Erro no tgetlist

[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...

[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

[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>]

[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