OX002LIB - Ponto de Entrada Executado na Rotina Conferência de Itens do Orçamento (OFIXA013)

Ponto de entrada localizado na rotina de Conferência de Itens do Orçamento (OFIXA013) e é executado após clicar em Liberar.

User Function OX002LIB()
lRet := .t.

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

Return(lRet)

Português(Brasil)

Versões_Anteriores

Todos

Todas

N/A

lRet -return lógico

Static Function FS_LIBERAR()
Local ni := 0
Local aAuxItens := \{\}

// Ponto de entrada chamado quando clica em Liberar.
if ExistBlock("OX002LIB")
lRetorn := ExecBlock("OX002LIB",.f.,.f.)
if !lRetorn
return .f.
Endif
Endif

For ni := 1 to len(aIte)
If !Empty(aIte[ni,3]) .and. !aIte[ni,1]
If !MsgYesNo(STR0008,STR0005)
return .f.
endif
If !MsgYesNo(STR0009,STR0005)
return .f.
endif
exit
EndIf
Next

OFIXX002.PRW