Trocar função MaxRow() por Wvw_MaxMaxRow()

[frazato]

Bom dia!
Depois de muito tempo estou tendo a necessidade de mudar de xHarbour para harbour, já tenho algumas coisas pequenas em harbour mais o meu ERP e feito em xharbour
com GTWVW, funciona bem, mais tenho que mudar, fiz vários ajuste para compilar em harbour ta rodando mais tá cheio de pau "divisor ZERO" mais vou arrumando, mais
toda fez que faço um ajuste no fonte tenho que compilar e ele recompila tudo e possível compilar apenas os alterados, estou usando HBMK2.

Outra coisa as funções de telas ficando doidas, tenho que utilizar a Wvw_MaxMaxRow() q funciona, mais gostaria de criar troca-las automatico e possivel.

Obrigado

Frazato

[Jairo Maia]

e possível compilar apenas os alterados,

Sim, acrescente o parâmetro -inc em seu arquivo .HBP para ativar a compilação incremental.

tenho que utilizar a Wvw_MaxMaxRow()

Não conheço a Wvw_MaxMaxRow(), mas qual a diferença dela para a MaxRow()?

[frazato]

Bom dia!
o -inc funcionou!

Quando a MaxCol() deveria no meu entendimento fazer a mesma coisa, mais por algum motivo no xharbour funcina no harbour não, mais wvw_maxmaxcol() funciona, ai teria q ajustar o sistema para usar ela, gostaria de fazer automatica sem ter que ficar mexendo em fontes.

Frazato

[JoséQuintas]

A WVW é diferente entre 3.2 e 3.4
No 3.2 faz parte de extras, não segue o padrão normal.
No 3.4 ela foi melhorada e faz parte de contribs.
Não sei se faz diferença.

MaxRow() talvez só trabalhe na janela principal.

TALVEZ uma opção seja criar um #translate

Em todos os fontes, coloque #include "meuarquivo.ch"

E em meuarquivo.ch, coloque o que quiser alterar

#translate MaxRow() => wvw_MaxRow()
#translate MaxCol() => wvw_MaxCol()

Sempre que quiser alteração em massa, altere nesse CH.
Não deixa de ser uma opção.

Ou, com editor de textos, use replace all " MaxRow()" por " wvw_MaxRow()", e " MaxCol()" por " wvw_MaxCol()"
Assim não depende de nada externo.

[JoséQuintas]

Mas se usa isso pra mensagem.....
Em todo fonte @ wvw_MaxRow(), 0 SAY "texto de mensagem"

Muuuuito mais fácil criar uma rotina pra mensagem e ajustar só na rotina.

Código: Selecionar todos

Mensagem( "texto da mensagem" )

FUNCTION Mensagem( cText )

   hb_Default( @cText, "" )
   Scroll( wvw_MaxRow(), 0, wvw_MaxRow(), wvw_MaxCol(), 0 )
   @ wvw_MaxRow(), 0 SAY cText

   RETURN Nil

Note que ainda assim pode ficar disponível GET.

Código: Selecionar todos

Mensagem( "Digite código" )
@ Row(), Col() + 2 GET cCampo
READ

Além de criar variações, por exemplo:

Código: Selecionar todos

IF ! MsgYesNo( "Confirma" )
   RETURN
ENDIF
...
FUNCTION MsgYesNo( cText )

   LOCAL nConfirma := "N"

   Mensagem( cText )
   @ Row(), Col() + 2 GET cConfirma PICTURE "!A"
   READ
   Mensagem()

   RETURN cConfirma == "S"

[frazato]

Bom dia!!
Obrigado vou dar uma testa com na versão 3.4! ta dando erros nos meus menus, não estão funcionando, vou baixar a versao 3.4 e testar talvez resolva.


Frazato