Salve salve....
Ponto de entrada EICDI154- ( Recebimento de Importacao)
EICDI154-EICDI154 - PE Geral
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} EICDI154
PE Geral
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
User Function EICDI154()
Local cPonto := ''
Local xRet := .T.
If ValType(PARAMIXB) == "C"
cPonto := PARAMIXB
ElseIf ValType(PARAMIXB) == "A"
cPonto := PARAMIXB[01]
Endif
If cPonto == "TELA_TOTAIS" //Utilizado no Botao TOTAIS do Recebimento de Importação - NF de Complemento
ElseIf cPonto == 'GRAVACAO_SD1'
aAdd( aItem, {"D1_LOTECTL" , U_GERALOTE(Work1->WKCOD_I) ,".T." } )
ElseIf cPonto == "FINAL_GRAVA_NF" .And. (nTipoNF == 1 .Or. nTipoNF == 3) // Nota fiscal de importação, primeira ou unica
ElseIf cPonto == "FINAL_GRAVA_NF" .And. nTipoNF == 2 // Nota fiscal complementar de importação.
ElseIf cPonto == "ESTORNO_NF"
ElseIf cPonto == 'GRAVA_WN'
SWN->WN_XCLIPAG := SW6->W6_XCLIPAG
EndIf
Return( xRet )
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima