DT OXA019LB Validacao da Liberação de Credito Oficina

Descrição:

Este ponto de entrada está localizado na rotina Lib. Cred. Oficina (OFIXA019). No browse principal da rotina, ao selecionar a opção Liberar este ponto de entrada será executado com o objetivo de realizar uma validação de usuário para permitir ou não a liberação. Esta liberação personalizada não substitui a regra de liberação padrão do sistema, mas sim agrega.

Eventos:

Function OXA019L(cAlias,nReg,nOpc)

//

if ExistBlock("OXA019LB")

    if !ExecBlock("OXA019LB",.f.,.f.)

        Return(.f.)

    Endif

Endif

DBSelectArea("VSW")

if !MsgYesNo(STR0008,STR0006)

    return .f.

endif

if !MsgYesNo(STR0009,STR0006)

    return .f.

endif

// dbClearFilter()           // CLAUDIA

if VAI->(FieldPos("VAI_ALLBCR")) > 0  

    DbSelectArea("VAI")

    Dbsetorder(4)

    DbSeek(xFilial("VAI")+__cUserID)

    if VAI->VAI_ALLBCR > 0

        if VAI->VAI_ALLBCR < VSW->VSW_VALCRE

            MsgStop(STR0022,STR0006)        

            Return(.f.)

        Endif

    Endif

Endif

cMotivo := space(TamSX3("VSW_MOTIVO")[1])

nOpca := 1

DEFINE MSDIALOG oDlgMot TITLE OemtoAnsi(STR0015) FROM  01,11 TO 08,76 OF oMainWnd

@ 020,003 SAY STR0014 + ":" SIZE 170,40  Of oDlgMot PIXEL

@ 020,030 MSGET oMotivo VAR cMotivo PICTURE "@!" SIZE 200,4 OF oDlgMot PIXEL COLOR CLR_BLUE

ACTIVATE MSDIALOG oDlgMot ON INIT EnchoiceBar(oDlgMot,{||nOpca := 1,oDlgMot:End()},{||nOpca := 0,oDlgMot:End()}) CENTER

DBSelectArea("VAI")

DBSetOrder(6)

DBSeek(xFilial("VAI")+VS1->VS1_CODVEN)

DBSelectArea("SA1")

DBSetOrder(1)

DBSeek(xFIlial("SA1")+VS1->VS1_CLIFAT + VS1->VS1_LOJA)

if nOpca == 1

    DBSelectArea("VSW")

    RecLock("VSW",.f.)

    VSW_USULIB := Subs(cUsuario,7,15)

    VSW_DTHLIB := Left(Dtoc(dDataBase),6)+Right(STR(Year(dDataBase)),2)+"-"+Left(Time(),5)

    VSW_MOTIVO := cMotivo

    msunlock()

endif

Return .t.

Função: