Histórico da Página

Pontos de Entrada para customizações na rotina de Integração Comex Data

Quando o ponto de entrada "EICCD100" estiver passando no parâmetro "Paramixb", o conteúdo "INTEGRACAO_TAXAS" permitirá a customização da integração de taxas fiscais das moedas.

Quando o ponto de entrada "EICCD100" estiver passando no parâmetro "Paramixb", o conteúdo "INTEGRACAO_NCM" permitirá a customização da integração de NCMs.

Quando o ponto de entrada "EICCD100" estiver passando no parâmetro "Paramixb", o conteúdo "INTEGRACAO_EX" permitirá a customização da integração de EXs.

Quando o ponto de entrada "EICCD100" estiver passando no parâmetro "Paramixb", o conteúdo "PROCESSA_RET" permitirá a customização do processamento dos dados retornados da integração.

Quando o ponto de entrada "EICCD100" estiver passando no parâmetro "Paramixb", o conteúdo "GRAVA_RET" permitirá a customização da gravação dos dados retornados da integração.

User Function EICCD100()
Local cParam := If(

   If Type("ParamIxbParamIXB") == "A",ParamIxb

      cParam:= ParamIXB[1]

   ElseIf ,If( Type("ParamIxbParamIXB") == "C"

      cParam:= ParamIXB

   EndIf

   cParam:= Upper(cParam)

   Do Case

      Case ,ParamIxb,""))
If cParam == "INTEGRACAO_TAXAS"
MsgInfo         MsgInfo("Entrou no ponto de entrada 'INTEGRACAO_TAXAS'.")EndIf
If

      Case cParam == "INTEGRACAO_NCM"
MsgInfo         MsgInfo("Entrou no ponto de entrada 'INTEGRACAO_NCM'.")EndIf
If

      Case cParam == "INTEGRACAO_EX"
MsgInfo         MsgInfo("Entrou no ponto de entrada 'INTEGRACAO_EX'.")EndIf
If

      Case cParam == "GRAVA_RET"
         MsgInfo("Entrou no ponto de entrada 'GRAVA_RET'.")

      Case cParam == "PROCESSA_RET"
MsgInfo         MsgInfo("Entrou no ponto de entrada 'PROCESSA_RET'.")

if          If len(aGravaretaGravaRet) > 0

            for nCont:= 1 to len(aGravaRet)

               adel nPos:= AScan(aGravaRet[nCont], {|x| x[1] == "YD_TEC"})
               If nPos > 0 .And. aGravaRet[nCont][nPos][2] == "85111000"
                  /* Tratamentos customizados. Exemplo:
                     ADel(aGravaRet, nCont)
     asize              ASize(aGravaRet, lenLen(aGravaRet) - 1) */
 
EndIf             EndIf

               nPos:= AScan(aGravaRet[nCont], {|x| x[1] EndIf
If cParam == "GRAVAEVJ_RETTEC"
MsgInfo("Entrou no ponto de entrada 'GRAVA_RET'.")
EndIf })
               If nPos > 0 .And. aGravaRet[nCont][nPos][2] == "85111000" //.And. aGravaRet[nCont][AScan(aGravaRet[nCont], {|x| x[1] == "EVJ_ASSUNT"})][2] == "EXCECAO PIS"
                  //Tratamentos customizados
               EndIf

            Next

         EndIf

   EndCase

Return Nil

Português(Brasil)

Microsiga_Protheus11

Todos

Todas

INTEGRACAO_TAXAS - Permite a customização da integração de taxas fiscais das moedas.
INTEGRACAO_NCM - Permite a customização da integração de NCMs.
INTEGRACAO_EX - Permite a customização da integração de EXs.
PROCESSA_RET - Permite a customização do processamento dos dados retornados da integração.
GRAVA_RET - Permite a customização da gravação dos dados retornados da integração.

EICCD100.PRW