Ola,
Consegui fazer mais ou menos o que preciso, mais ficou um código tão ruim que tenho ate vergonha de mostrar... rsrsrsr
Do jeito que esta, ate da pra usar, o único senão e se o usuário bipar outro item antes de encerrar o tempo de espera para recriar a janela, creio que existe algo mais pratico e mais fácil do que fiz, agradeço qualquer dica...
Não consigo entender o por que, de na validação do GET, ele não permanecer dentro da função que estou chamando, a PESQUISA_VALOR(), tentei de todas as maneiras parar a execução da rotina ai dentro, "PARAR AQUI", mais ele simplesmente sai.
FUNCTION PESQUISA_PRECO()
PRIVATE oDLGTEL, oBUTTON1, oET1, cET1:=SPAC(13), nVLRMARCA:=0, oGroup1
PRIVATE oET2, cET2:=SPAC(13), oLEL1, oLEL2, oLEL3, oLEL4
INIT DIALOG oDlgTEL TITLE "Preco do item" AT 0, 0 SIZE 1092,630 NOEXIT COLOR x_WHITE ;
FONT HFont():Add( 'Verdana',0,-13,400,,,) STYLE WS_POPUP+WS_CAPTION+WS_SYSMENU+DS_CENTER ;
ON EXIT {||Fileclose()}
@ 19,2 GROUPBOX oGroup1 CAPTION "" SIZE 1047,123 STYLE BS_LEFT
@ 28,11 SAY oLel1 CAPTION "Codigo EAN" SIZE 120,21 COLOR 4227072 TRANSPARENT
@ 28,35 GET oEt1 VAR cEt1 SIZE 200,26 PICTURE '9999999999999' VALID {|| IF(!EMPTY(cET1), ( PESQUISA_VALOR(), INKEY(2), oDLGTEL:CLOSE(), LIMPA() ), .T. ) }
@ 28,35 GET oEt2 VAR cEt2 SIZE 200,26
@ 19,125 GROUPBOX oGroup1 CAPTION "" SIZE 1047,130 STYLE BS_LEFT
@ 28,140 SAY oLel2 CAPTION [Descrição: ] SIZE 800,24 ;
COLOR 4227072 TRANSPARENT FONT HFont():Add( 'Verdana',0,-20,400,,,)
@ 28,180 SAY oLel3 CAPTION [De : ] SIZE 800,24 ;
COLOR 4227072 TRANSPARENT FONT HFont():Add( 'Verdana',0,-20,400,,,)
@ 28,220 SAY oLel4 CAPTION [Por: ] SIZE 800,24 ;
COLOR 4227072 TRANSPARENT FONT HFont():Add( 'Verdana',0,-20,400,,,)
ACTIVATE DIALOG oDlgTEL
RETURN NIL
FUNCTION PESQUISA_VALOR()
LOCAL xEAN:= TRANS(cET1, [@R 999.99999.9999-9])
DBCLOSEALL()
DBUSEAREA(.T., "DBFNTX", [xESTOQUE] , [xESTOQUE], .T.)
SET INDEX TO xESTEAN
xESTOQUE->(DBSEEK(xEAN, .F.))
IF xESTOQUE->(FOUND())
nVLRMARCA:=xESTOQUE->TABELA02 ; xPMC:=xESTOQUE->PRECOMC ; xDESCRI :=DESCRICAO
oLEL2:SETTEXT([Descricão: ]+xDESCRI )
oLEL2:REFRESH()
oLEL3:SETTEXT([De : ]+STR(xPMC,12,2) )
oLEL3:REFRESH()
oLEL4:SETTEXT([Por: ]+STR(nVLRMARCA,12,2) )
oLEL4:REFRESH()
cET1:=SPAC(13)
oEt1:Value := SPAC(13)
oEt1:REFRESH()
oEt1:setfocus()
ELSE
cET1:=SPAC(13)
oEt1:Value := SPAC(13)
oEt1:REFRESH()
oEt1:setfocus()
ENDIF
DBCLOSEALL()
hwg_msginfo([Parar aqui])
RETURN .T.
Function FileClose()
DBCloseArea()
DBCLOSEALL()
Return .T.
FUNCTION LIMPA()
PRIVATE oDLGTEL, oBUTTON1, oET1, cET1:=SPAC(13), nVLRMARCA:=0, oGroup1
PRIVATE oET2, cET2:=SPAC(13), oLEL1, oLEL2, oLEL3, oLEL4
INIT DIALOG oDlgTEL TITLE "Preco do item" AT 0, 0 SIZE 1092,630 NOEXIT COLOR x_WHITE ;
FONT HFont():Add( 'Verdana',0,-13,400,,,) STYLE WS_POPUP+WS_CAPTION+WS_SYSMENU+DS_CENTER ;
ON EXIT {||Fileclose()}
@ 19,2 GROUPBOX oGroup1 CAPTION "" SIZE 1047,123 STYLE BS_LEFT
@ 28,11 SAY oLel1 CAPTION "Codigo EAN" SIZE 120,21 COLOR 4227072 TRANSPARENT
@ 28,35 GET oEt1 VAR cEt1 SIZE 200,26 PICTURE '9999999999999' VALID {|| IF(!EMPTY(cET1), ( PESQUISA_VALOR(), INKEY(2), oDLGTEL:CLOSE(), LIMPA() ), .T. ) }
@ 28,35 GET oEt2 VAR cEt2 SIZE 200,26
@ 19,125 GROUPBOX oGroup1 CAPTION "" SIZE 1047,130 STYLE BS_LEFT
@ 28,140 SAY oLel2 CAPTION [Descrição: ] SIZE 800,24 ;
COLOR 4227072 TRANSPARENT FONT HFont():Add( 'Verdana',0,-20,400,,,)
@ 28,180 SAY oLel3 CAPTION [De : ] SIZE 800,24 ;
COLOR 4227072 TRANSPARENT FONT HFont():Add( 'Verdana',0,-20,400,,,)
@ 28,220 SAY oLel4 CAPTION [Por: ] SIZE 800,24 ;
COLOR 4227072 TRANSPARENT FONT HFont():Add( 'Verdana',0,-20,400,,,)
ACTIVATE DIALOG oDlgTEL
RETURN .T.