FiveTech Support Forums

      REDEFINE GET oGet[ 12 ] VAR aPedido:ndolarpago PICTURE "@e 9,999.999"  ID 113 of odlgped UPDATE;
         valid (Eval(cEva1 ), .T. ) ACTION verdolar() bitmap "..\picture\lupita.bmp"

    REDEFINE GET    aGetVenda[1] VAR nNumeroTel  PICTURE "@K!"               ;
             ID 20  OF oDlgVendas                                            ;
             COLOR nRGB( 000, 000, 000 ), nRGB( 243, 250, 200 )              ;
             WHEN( lLigaCliente )                                            ;
             CURSOR  oHand       FONT oFnt       UPDATE  BITMAP   "BUSCAR"   ;
             VALID ( PESQUISA_TELEFONE( nNumeroTel, aGetVenda, oLbx,         ;
                             DbClientes, DbEstoque, DbPedidos, DbFornece ) ) ;
             ACTION( PESQUISA_TELEFONE( nNumeroTel := [00000000000000000],   ;
                                        aGetVenda, oLbx, DbClientes,         ;
                                        DbEstoque, DbPedidos, DbFornece ) )

    //aGetVenda[1]:Disable()
    aGetVenda[1]:lBtnTransparent := .T.       // transparent button get aGetVenda[1]
    aGetVenda[1]:lAdjustBtn      := .T.       // Button Get Adjust Witdh aGetVenda[1]
    aGetVenda[1]:lDisColors      := .F.       // Deactive disable color
    aGetVenda[1]:nClrTextDis     := CLR_WHITE // Color text disable status
    aGetVenda[1]:nClrPaneDis     := CLR_BLUE  // Color Pane disable status

    aGetVenda[1]:bKeyDown := { |nKey| IF( nKey == VK_F7, Eval( aGetVenda[1]:bAction ), Nil ) }