Histórico da Página
...
O ponto de entrada FACLMFKF será executado para gravar dados complementares na tabela FKF (Complemento do Título) quando os mesmos possuírem obrigatoriedade em seu preenchimento, em rotinas que utilizem o MsExecAuto das rotinas de contas a pagar (FINA050) e contas a receber (FINA040) para a inclusão e alteração de títulos, como exemplo ao fazer a (Medição de Contratos).
...
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 := 0 Local nPos := 0 Local aCamp := {} If cAlias == "SE2" If nOpc == 3 aCamp := {{"FKF_NATREN", "15002", NIL},; {"FKF_TPSERV", "04", NIL},; {"FKF_TPREPA", "4", NIL}} ElseIf nOpc == 4 aCamp := {{"FKF_NATREN", "15001", NIL},; {"FKF_TPSERV", "04", NIL},; {"FKF_TPREPA", "4", NIL}} EndIf ElseIf cAlias == "SE1" If nOpc == 3 aCamp := {{"FKF_NATREN", "20001", NIL},; {"FKF_TPSERV", "02", NIL}} ElseIf nOpc == 4 aCamp := {{"FKF_NATREN", "20001", NIL},; {"FKF_TPSERV", "01", NIL}} EndIf 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) |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas