queria q em determinado momento eu pudesse abrir outro sub-tela para o
funcionario digitar outras informações.
Por exemplo, quando chegasse no campo imposto, ia abrir outra tela com mais
3 gets onde ele pode digitar mais dados, depois q ele digitar os dados, e
tela some e ele volta na tela anterior, fiz, ate q deu +- certo, quando ele
ta navegando com as setas para cima, e chega no campo imposta, a função
BoxImpostos é chamada e ele nunca consegue alterar o campo antes dessa
função ( a variavel 'NfDevo' nao receb o cursor do get).
O que estou fazendo errado
??DEVPOS( 07, 33 ) ; AADD( GetList, _GET_( natope , "natope" , "9999"
, ) )
DEVPOS( 08, 31 ) ; AADD( GetList, _GET_( pedido , "pedido" , "@!" ) )
DEVPOS( 09, 31 ) ; AADD( Getlist, _Get_( NfDevo , "NfDevo","@!" ,, ) )
DEVPOS( 10, 27 ) ; AADD( GetList, _GET_( cImposto , "cImposto" , "!" ,{||
BoxImpostos(funca,@irrf,@iss,@inss) } ) )
DEVPOS( 04, 47 ) ; AADD( GetList, _GET_( vdescin, "vdescin",
999999999.99" ) )
ReadModal(getList) ; getList := {}
////////////////////////////////////////////////////////////////////////////
/////
Function BoxImpostos(funca,irrf,iss,inss)
LOCAL cTela
LOCAL cCorOLD := SETCOLOR()
SETCOLOR( Cep50a->Ce50TexAvi )
cTelaOLD := SAVESCREEN(00,00,24,79)
getList2 := {}
DEVPOS( 12, 16 ) ; DEVOUT( "Irrf" + CHR( 16 ) )
DEVPOS( 13, 16 ) ; DEVOUT( "Iss " + CHR( 16 ) )
DEVPOS( 14, 16 ) ; DEVOUT( "Inss" + CHR( 16 ) )
DEVPOS( 12, 22 ) ; AADD( GetList2, _GET_( irrf , "irrf" ,
"9999999.99" ) )
DEVPOS( 13, 22 ) ; AADD( GetList2, _GET_( iss , "iss" ,
"9999999.99" ) )
DEVPOS( 14, 22 ) ; AADD( GetList2, _GET_( inss , "inss" ,
"9999999.99" ) )
READMODAL( getlist2 ) //; getlist := {}
SETCOLOR(cCorOLD)
RESTSCREEN(00,00,24,79,cTelaOLD)
Return .t.
