OX003ALB - Ponto de Entrada Executado na Rotina Liberação de Venda (OFIXA015)

Ponto de Entrada localizado na rotina Liberação de Venda e é executado após Clicar em Liberar.

User Function OX003ALB()
lRet := .t.

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

Return(lRet)

Português(Brasil)

Todas

Todos

Todas

N/A

lRet - return lógico

Function OX003LIB(nOpc)
Local nCntFor
if nOpc == 2 .or. !lProcessa
oDlg:end()
return .t.
endif

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

dbSelectArea("VS6")
RecLock("VS6",.f.)

OFIXX003.PRW