Histórico da Página
...
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#INCLUDE "PROTHEUS.CH" User Function FACLMFKF() Local aRet := ParamIxb[1] //Array com os campos recebidos Local cAlias := ParamIxb[2] //Alias da Tabela Local nOpc := ParamIxb[3] // 3-Inclusão | 4-Alteração Local nX Local nPos := 0 Local aCamp := {} //Array com os campos desejados If cAlias == "SE2" If nOpc == 3 aCamp := {{"FKF_NATREN", "15002", NIL},; {"FKF_TPSERV", "04", NIL}} elseif nOpc == 4 aCamp := {{"FKF_NATREN", "15001", NIL},; {"FKF_TPSERV", "04", NIL}} endif ElseIf cAlias == "SE1" EndIf aCamp := {{"FKF_NATREN", "20001", NIL},; {"FKF_TPSERV", "02", NIL}} EndIf For nX := 1 to Len(aCamp) nPos := aScan(aRet, {|x| AllTrim(Upper(x[1])) == aCamp[nX][1] }) //Verifica se o campo não foi adicionado no Array If nPos = 0 aAdd(aRet, {aCamp[nX][1], aCamp[nX][2], aCamp[nX][3]}) EndIf Next nX Return(aRet) |
04. DEMAIS INFORMAÇÕES
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas