EICCD100 - Integração Fiscosoft ComexData

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 Type("ParamIXB") == "A"

      cParam:= ParamIXB[1]

   ElseIf Type("ParamIXB") == "C"

      cParam:= ParamIXB

   EndIf

   cParam:= Upper(cParam)

   Do Case

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

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

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

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

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

         If len(aGravaRet) > 0

            for nCont:= 1 to len(aGravaRet)

               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(aGravaRet, Len(aGravaRet) - 1) */
               EndIf

               nPos:= AScan(aGravaRet[nCont], {|x| x[1] == "EVJ_TEC"})
               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