Salve salve....
Ponto de entrada EICFI400- ( Antes e Depois das gravacoes do PO e da DI)
EICFI400-EICFI400 - PE Geral
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} EICFI400
PE Geral
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
User Function EICFI400()
Local cPonto := ''
Local xRet := .T.
If ValType(PARAMIXB) == "C"
cPonto := PARAMIXB
ElseIf ValType(PARAMIXB) == "A"
cPonto := PARAMIXB[01]
Endif
If cPonto == "ANTES_INC_TIT_INV"
If Empty(M->W6_DI_NUM)
lGeraTitInv := .F.
Endif
If M->W6_CURRIER == '1'
lGeraTitInv := .T.
Endif
ElseIf cPonto == "FI400POS_PO"
lGeraPR := IF(GetNewPar("MV_EASYFPO","S")=="S",.T.,.F.)
Elseif cPonto == "APOS_GRAVACAO_TIT"
If lRetF050 .AND. "SWB" $ cOrigem .AND. SE2->E2_TIPO == "INV" .AND. ALLTRIM(SW6->W6_TIPOFEC) == 'DA'
RecLock("SE2",.F.)
SE2->E2_ZZHAWB := SW6->W6_HAWB
SE2->(MsUnlock())
EndIf
Endif
Return( xRet )
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima