Histórico da Página

...

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

03. 

...

LOCALIZAÇÃO

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

04. 

...

PARÂMETROS

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

...

• Não há.

05. 

...

RETORNO

• Não há.

06. VARIÁVEIS

• Ponto de Entrada "ANTES_VALID" Possui as variável: lIntFrt do tipo "Lógico, Escopo "Private" e com Permissão para alteração
• Ponto de Entrada "GRVFD1" Possui a variável: aItens do tipo "Array", Escopo "Private" e com Permissão para alteração 
• Ponto de Entrada "CRIA_INDICE" Possui as variáveis: 
  1. aIndices do tipo "Array", Escopo "Local" e sem Permissão para alteração, ou seja, apenas para consulta dos índices que o padrão possui.
  2. aIndCustom do tipo "Array", Escopo "Private" e com Permissão para alteração. Poderá manipular este Array para inserir índices novos e customizados.

07. EXEMPLO

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

If Type("ParamIXB") == "C"
	cParam   := PARAMIXB
Else
	cParam   := PARAMIXB[1]
	aIndices := PARAMIXB[2] //Índices do padrão apenas para consulta, não será possível manipuarmanipular este Array
Endif

If cParam == "ANTES_VALID"
	MsgInfo("Entrou no ponto de entrada:'ANTES_VALID'.")
ElseIf cParam == "GRVFD1"
	MsgInfo("Entrou no ponto de entrada:'GRVFD1'.")
ElseIf cParam == "CRIA_INDICE"
	//Siga abaixo o modelo para inclusão de índices
	If aIndices[1][1] == "Int_DE" //por padrão a posição [1][1] refere-se a tabela, mesmo se tiverem mais linhas no Array serão da mesma tabela
	  aAdd(aIndCustom, {"NDEDADOS","NDEHOUSE+NDEDADOS"})
	  msginfo("Entrou no ponto de entrada 'CRIA_INDICE' e adicionou indice na tabela Int_DE")
	EndIf
EndIf

Return lRet