Exibir origem

01. DADOS GERAIS

Produto:
Linha de Produto:
Segmento:
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 utilzado 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

Nome	Tipo	Descrição
ANTES_VALID	Caractere	Ponto de Entrada chamado antes da validação das mensagens de erro, relacionadas ao frete e o seguro
GRVFD1	Caractere	Permite manipular a gravação dos dados na tabela SD1
CRIA_INDICE	Caractere	Permite incluir índices customizados para as Integrações de Arquivo Txt

05. RETORNO

Não há.

06. VARIÁVEIS

Parâmetro	Nome	Tipo	Escopo	Permite Alterar
ANTES_VALID	lIntFrt	Lógico	Private	Sim
GRVFD1	aItens	Array	Private	Sim
CRIA_INDICE	aIndices	Array	Local(passagem por parâmetro)	Não (apenas para consulta dos índices que o padrão possui)
CRIA_INDICE	aIndCustom	Array	Private	Sim (Poderá manipular este Array para inserir índices novos e customizados.)

07. EXEMPLO

User Function EICIN100()
Local lRet := .F.
Local cParam:= ""
Local aIndices := {}
Local cTabela  := {}

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 cParam == "GRVFD1"
	MsgInfo("Entrou no ponto de entrada:'GRVFD1'.")
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
      aAdd(aIndCustom, "NDETIPOREG")
    EndIf
EndIf

Return lRet