FUNCTION COMPRAS( DeOndeVem )
IF DeOndeVem = [FORNECE]
REDEFINE SENSITIVE SAY aSayCliente VAR oSayFornece ID 403 OF oDlg COLOR CLR_CYAN UPDATE RIGHT FONT oFnt TRANSPARENT
//-> Codigo do Fornecedor - XCODFORNE
REDEFINE GET aGet[3] VAR XCODFORNE PICTURE "@K 999999999999" ;
ID 22 OF oDlg FONT oFnt UPDATE BITMAP "BUSCAR" ;
COLOR nRGB( 000, 000, 000 ), nRGB( 243, 250, 200 ) ;
ACTION( MOSTRAR_FORNECEDOR( XCODFORNE, aGet, DbCompras, ;
DbClientes, DbFornece, DbEstoque, DbObserva ) ) ;
VALID ( PESQUISA_FORNECEDOR( XCODFORNE, aGet, DbCompras, ;
DbClientes, DbFornece, DbEstoque, DbObserva ) ) ;
WHEN( lCodFornece )
aGet[3]:lBtnTransparent := .T. // transparent button
aGet[3]:bKeyDown := { |nKey| IF( nKey == VK_F7, Eval( aGet[3]:bAction ), Nil ) }
aGet[3]:cToolTip := OemToAnsi( "Digite o C¢digo do Fornecedor " )
ENDIF
IF DeOndeVem = [CLIENTES]
REDEFINE SENSITIVE SAY aSayCliente VAR oSayCliente ID 403 OF oDlg COLOR CLR_CYAN UPDATE RIGHT FONT oFnt TRANSPARENT
//-> Codigo do Fornecedor - XCODFORNE
REDEFINE GET aGet[3] VAR XCODFORNE PICTURE "@K 999999999999" ;
ID 22 OF oDlg FONT oFnt UPDATE BITMAP "BUSCAR" ;
COLOR nRGB( 000, 000, 000 ), nRGB( 243, 250, 200 ) ;
VALID ( PESQUISA_CLIENTES( XCODFORNE, ;
aGet, DbCompras, DbClientes, DbFornece, DbEstoque, DbObserva ) ) ;
ACTION( MOSTRAR_CLIENTES( XCODFORNE, ;
aGet, DbCompras, DbClientes, DbFornece, DbEstoque, DbObserva ) ) ;
WHEN( lCodFornece )
aGet[3]:lBtnTransparent := .T. // transparent button
aGet[3]:bKeyDown := { |nKey| IF( nKey == VK_F7, Eval( aGet[3]:bAction ), Nil ) }
aGet[3]:cToolTip := OemToAnsi( "Digite o C¢digo do Fornecedor " )
ENDIF