OXA016LB - Validação da liberação de crédito.

Descrição

Ponto de entrada localizado na rotina Liberação de Crédito. Tem como finalidade efetuar uma validação complementar e personalizada por parte do usuário, desta maneira pormitindo ou não a liberação de crédito.

Observações

Exemplos

#include "Protheus.ch"

User Function OXA016LB()

lRet := MsgInfo("Libera cliente?.")

Return lRet

Preview

Veja também

Idioma

Português(Brasil)

Versões

Todas

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

Retorno

lRet - Booleano

Eventos de chamada do Ponto de Entrada

Function OXA016L(cAlias,nReg,nOpc)
//
if ExistBlock("OX016LIB")
if !ExecBlock("OX016LIB",.f.,.f.)
DisarmTransaction()
Return(.f.)
Endif
Endif

DBSelectArea("VS1")

if !MsgYesNo(STR0008,STR0007)

return .f.

endif

if !MsgYesNo(STR0009,STR0007)

return .f.

endif

dbClearFilter() // CLAUDIA

DBSelectArea("SA1")

DBSetOrder(1)

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

DBSelectArea("VSW")

RecLock("VSW",.t.)

VSW_FILIAL := xFilial("VSW")

VSW_CODCLI := SA1->A1_COD

VSW_LOJA := SA1->A1_LOJA

VSW_VALCRE := VS1->VS1_VTOTNF

VSW_ORIGEM := FunName()

VSW_RISANT := SA1->A1_RISCO

VSW_LCANT := SA1->A1_LC

VSW_VLCANT := SA1->A1_VENCLC

VSW_USUARI := Subs(cUsuario,7,15)

VSW_DATHOR := Dtoc(dDataBase)+"-"+Left(Time(),5)

MsUnlock()

Variáveis

Programa Fonte

OFIXA016.PRW