Histórico da Página

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

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 manipular este Array
    cTabelaacTabela := Indices[1][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 cParam == "CRIA_INDICE"
	//Siga abaixo o modelo para inclusão de índices
	If cTabela == "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