...
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
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 manipuar 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 |
