Página 1 de 1
Erro no tgetlist
Enviado: 27 Mai 2007 12:10
por mgreich
Ola pessoal, estou migrando o meu sistema para o xharbour, consegui compilar ele, mas todos os get's do sistema estao dando o erro abaixo:
hbgetlist: settle(832) in module: tgetlist.prg
readmodal(100) in module: getsys.prg
estou usando o xHarbour 0.99.70
se alguem puder ajudar eu agradeço...
Enviado: 27 Mai 2007 21:55
por sygecom
Buenas...no CLIPPER vc fez alguma alteração no GETSYS.PRG ? se vc esta querendo usar a sua propria rotina para tratamento nos GET tente tirar fora esse seu PRG.
Abraços
Leonardo Machado
O problema esta no cabeçalho clube.ch
Enviado: 28 Mai 2007 00:17
por mgreich
eu utilizo o cabeçalho abaixo nas minhas aplicacoes clipper 5.2, se eu tirar o clube.ch das rotinas os gets funcionam, mas terei muito mais trabalho mudando as minhas rotinas...
#command @ <row> , <col> GET <var> ;
[<clauses,...>] ;
PASSWORD ;
[<moreClauses,...>] ;
;
=> @ <row> , <col> GET <var> ;
[<clauses>] ;
SEND reader := {|oGet| ;
GetPassword(oGet) };
[<moreClauses>]
#command @ <row>, <col> GET <var> ;
[PICTURE <pic>] ;
[VALID <valid>] ;
[WHEN <when>] ;
[MSG <msg>] ;
[SEND <send>] ;
;
=> SetPos( <row>, <col> ) ;
; AAdd( ;
GetList,{ ;
_GET_( <var>, <"var">, <pic>, <{valid}>, <{when}> ):display();
,[<msg>]} ) ;
[; GetList.GET_POS:<send>]
Enviado: 28 Mai 2007 13:28
por sygecom
Tche, na verdade não entendo nem pq no clipper vc usava isso....mas vou dar uma procurada a respeito dos GET no xHarbour...e volto pra tentar ajudar vc...
Abraços
Leonardo Machado