Histórico da Página

...

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 Arquivo de Texto.

03. SOLUÇÃ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. DEMAIS INFORMAÇÕES

• Não há.

...

User Function EICIN100()
Local lRet := .F.
Local cParam
IF ValType(ParamIXB:= ""
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 manipuar este Array
Endif

If
cParam:= ParamIXB
ENDIF
IF cParam == "ANTES_VALID"
MsgInfo   MsgInfo("Entrou no ponto de entrada:'ANTES_VALID'.")
ENDIF
IF cParam ElseIf cParam == "GRVFD1"
MsgInfo   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 EndIf

Return lRet