ICPADDI0 - Recebimento de Importação

ICPADDI0_RDM.PRW - Ponto de entrada ICPADDI0 para recebimento de Importacao com alteracoes para o MERCOSUL

Ponto de entrada chamado nas rotinas EICDI154 e EICDI554 (Atualizações/ Desembaraço/ Recebimento de Importação)

#INCLUDE "RWMAKE.CH"
#INCLUDE "AVERAGE.CH"

User Function ICPADDI0()

cExecute := ""
IF TYPE("ParamIXB") == "C"
cExecute := ParamIXB
ENDIF

IF cPaisLoc == "BRA"
IF cExecute == "BOTAO"
If Type("oDlgPrv") == "O"
@ 004,055 BUTTON STR0259 SIZE 35,11 ACTION (IF(DIGerou(),Processa({|| DI154PRETXT()},STR0031),)) PIXEL // EXPORTA
Else
@ 1.5,040 BUTTON STR0259 SIZE 37,11 ACTION (IF(DIGerou(),Processa({|| DI154PRETXT()},STR0031),)) PIXEL // EXPORTA
EndIf
nOpca:=0
ENDIF
RETURN .T.
ENDIF

Return lRet

Português(Brasil)

Microsiga_Protheus12