FiveTech Software tech support forums

Code: Select all

    REDEFINE GET aGet[32]  VAR  VRCUSTO2  ID 51 PICTURE "@K 999,999.99"      ;
             WHEN( lPesquisa )                                               ;
             OF oFld:aDialogs[1]        UPDATE                               ;
             FONT oFont     CURSOR oHand                                     ;
             COLORS CLR_BLACK, CLR_HCYAN                                     ;
             VALID( LIGA_BOTAO( oGravar ) )
             //-> Liga/Desliga o Botao <Gravar>


    REDEFINE BUTTONBMP oGravar ID 301 OF oDlg                            ;
             WHEN( lLigaBotao )                                          ;
             BITMAP "SALVAR"                                             ;
             ACTION( CLICK(), PGDNPRODU( lAppend, aGet, CADCLAES,        ;
                                                        CADPARAM,        ;
                                                        CADMOVES,        ;
                                                        CADPRODU, oDlg,  ;
                                                        oFld ) )

//
//-> Liga o Botao de Gravacao
//
STATIC FUNCTION LIGA_BOTAO( oGravar )

    //-> Desliga o Botao de Gravacao se for Seta Para Cima
    IF GETASYNCKEY( VK_UP )
        lLigaBotao := .F.
        oGravar:Refresh()
        RETURN( .T. )
    ENDIF
    //
    lLigaBotao := .T.
    oGravar:Refresh()
    //
RETURN( .T. )

Code: Select all

STATIC FUNCTION LIGA_BOTAO( oGravar )

    //-> Desliga o Botao de Gravacao se for Seta Para Cima
    IF GETASYNCKEY( VK_UP )
        //lLigaBotao := .F.
        //oGravar:Refresh()
        oGravar:Disable()
        RETURN( .T. )
    Else
        oGravar:Enable()
    ENDIF