Histórico da Página
Descrição | EICGI400 - Manutenção de L.I. | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Observações | Utilizado durante a rotina de manutenção de L.I. | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Exemplos | User Function EICGI400() Local cParam:= "" Local xRet IF Type("ParamIXB") == "C" cParam:= PARAMIXB Else cParam:= PARAMIXB[1] Endif If cParam == "ADD_WORK_TMP" aAdd(aStru_TMP,{"EIT_TESTE","C",AvSx3("EIT_TESTE",3),0}) Elseif cParam == "ADD_WORK_EIT" aAdd(aStru_EIT,{"EIT_TESTE","C",AvSx3("EIT_TESTE",3),0}) Elseif cParam == "CARREGA_WORK_EIT1" Work_EIT->EIT_TESTE := EIT->EIT_TESTE Elseif cParam == "CARREGA_WORK_TMP" Work_TMP->EIT_TESTE := Work_EIT->EIT_TESTE Elseif cParam == "CARREGA_WORK_EIT2" Work_EIT->EIT_TESTE := Work_TMP->EIT_TESTE ElseIf cParam == "FILTRO_MBROWSE" xRet := "WP_FABR='000002' And WP_FABLOJ='02'" ElseIf cParam == "MSG_AC" lMsgAC := .F. ElseIf cParam == "VARIAVEIS" //permite definir variáveis para quebra da sequência da LI //cVar_Quebra:= conteúdo de controle //cCpo_Quebra:= conteúdo de comparação ElseIf cParam == "GRAVA_VARIAVEIS" //permite redefinir variáveis para quebra da sequência da LI //cVar_Quebra:= conteúdo de controle //cCpo_Quebra:= conteúdo de comparação ElseIf cParam == "QUEBRA" //permite alterar variáveis para quebra da sequência da LI //cVar_Quebra:= conteúdo de controle //cCpo_Quebra:= conteúdo de comparação ElseIf cParam == "QUEBRAESPECIAL" //permite criar uma regra própria para quebra da sequencia da LI //lQuebrou:= .T. Endif Return xRet | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Preview | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Veja também | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Idioma | Português(Brasil) | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Versões | Microsiga_Protheus11 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Sistemas Operacionais Suportados | Todos | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Compatível com as Bases de Dados | Todas | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Updates | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Parâmetros |
| ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Retorno | .T. - Retornar sempre true | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Eventos de chamada do Ponto de Entrada | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Variáveis |
| ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Programa Fonte | EICGI400.PRW |