OM140IGA - Fórmula de exportação de garantia.

Este Ponto de entrada está localizado na rotina Liberação de OS (OFIOM140) e sua funcionalidade permite verificar se a fórmula de exportação de garantia será ou não executada.

#include "protheus.ch"

User Function OM140IGA()

MsgInfo("OM140IGA")

Return .t.

Português(Brasil)

Todas

Todos

Todas

cTipTem - Tipo de tempo liberado

LOGICO

cTipTem := aTTLibVOO[nCont,1]

// Existe Casos de Garantia com Tipo de Tempo INTERNO
If ExistBlock("OM140IGA")
lRetPE := ExecBlock("OM140IGA",.F.,.F.,\{cTipTem\})
EndIf
//

VOI->(DbSetOrder(1))
VOI->(dbSeek( xFilial("VOI") + cTipTem ))
If !VOI->VOI_SITTPO $ "2.4" .and. lRetPE
Loop
EndIf

OFIOM140.PRW