OX016ARE - Reabertura de Orçamento na Rotina Liberação de Crédito (OFIXA016)

Ponto de Entrada está localizado na rotina Liberação de Credito do Orçamento de Peças e Serviços (OFIXA016) e é executado após clicar em Reabrir Orçamento.

User Function OX016ARE()
lRet := .t.

MsgInfo("Ponto de entrada OX016ARE foi executado com sucesso!")

Return(lRet)

Português(Brasil)

Todas

Todos

Todas

N/A

lRet - return lógico

aMotCancel := \{\}
dbSelectArea("VS0")
dbGotop()
DBSelectArea("VS1")
if !MsgYesNo(STR0006,STR0007)
return .f.
endif

// Ponto de entrada chamado apos clicar em Reabrir Orçamento
if ExistBlock("OX016ARE")
lRetorn := ExecBlock("OX016ARE",.f.,.f.)
if !lRetorn
return .f.
Endif
Endif

// Pergunta o Motivo de reabertura/negacao do credito.
if GetNewPar("MV_MIL0012","0") $ "1"
aMotCancel := OFA210MOT(cMotivo,"4",VS1->VS1_FILIAL,VS1->VS1_NUMORC,.T.)
If Len(aMotCancel) == 0
Return(.f.)
EndIf
RecLock("VS1",.f.)
VS1->VS1_MOTCRD := MV_PAR01
MsUnlock()
Endif

OFIXA016.PRW