Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Produto:

TOTVS Comércio Exterior

Linha de Produto:

Linha Protheus

Segmento:

Manufatura

Módulo:SIGAEIC
Função:EICIN100.PRW
País:Brasil
Ticket:Não há.
Requisito/Story/Issue (informe o requisito relacionado) :DTRADE-6436


02. SITUAÇÃO/REQUISITO

  • Este Ponto de Entrada pertence ao fonte EICIN100.PRW. Ele deve ser utilizado para a customização da Rotina de Integrações de Arquivos de Texto.

03. LOCALIZAÇÃO

  • Localizado no fonte EICIN100.PRW. Uso na rotina de Integrações de Arquivos de Texto que pode ser acessada através do menu Atualizações > Miscelânea > Int. Despachante

04. PARÂMETROS

NomeTipo Descrição
ANTES_VALIDCaracterePonto de Entrada chamado antes da validação das mensagens de erro, relacionadas ao frete e o seguro
CRIA_INDICECaracterePermite incluir índices customizados para as Integrações de Arquivo Txt
PE_FIM_PREVIACaracterePonto de Entrada chamado ao fim da execução do botão Prévia
PE_FIM_EFETIVACaracterePonto de Entrada chamado ao fim da execução do botão Efetiva

05. RETORNO

  • Não há.

06. VARIÁVEIS

ParâmetroNomeTipoEscopoPermite Alterar
ANTES_VALIDlIntFrt LógicoPrivateSim
CRIA_INDICEaIndices ArrayLocal(passagem por parâmetro)Não (apenas para consulta dos índices que o padrão possui)
CRIA_INDICEaIndCustom ArrayPrivateSim (Poderá manipular este Array para inserir índices novos e customizados.)

07. EXEMPLO


Exemplo 
User Function EICIN100()
Local cParam:= ""
Local aIndices := {}

If ValType(PARAMIXB) == "C"
    cParam   := PARAMIXB
ElseIf ValType(PARAMIXB) == "A"
    cParam   := PARAMIXB[1]
Endif
 
If cParam == "ANTES_VALID"
    MsgInfo("Entrou no ponto de entrada:'ANTES_VALID'.")
ElseIf ValType(PARAMIXB) == "A" .And. PARAMIXB[1] == "CRIA_INDICE"
    If Upper(PARAMIXB[2][1]) == "INT_DE"
        //Adicionar uma vez para cada índice customizado, informando somente a chave
        //aIndCustom - Array que será manipulado via Ponto de Entrada para customizações - criação de novos índices
      aAdd(aIndCustom, "NDETIPOREG")
    EndIf
ElseIf cParam == "PE_FIM_PREVIA"
    MsgInfo("Entrou no ponto de entrada:'PE_FIM_PREVIA'.")
ElseIf cParam == "PE_FIM_EFETIVA"
    MsgInfo("Entrou no ponto de entrada:'PE_FIM_EFETIVA'.")

EndIf
Return