Histórico da Página
01. DADOS GERAIS
Linha de Produto: | Microsiga Protheus® |
---|---|
Segmento: | Serviços |
Módulo: | Financeiro |
Rotina: | FINA986 - Complemento de Título |
02. DESCRIÇÃO
O ponto de entrada FA986NF FACLMFKF será executado para gravar dados complementares na tabela FKF (Complemento do Título) ao incluir Documentos de Entrada (MATA103) e Documento de Saída (MATA461).
Ele será executado em dois momentos:
...
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).
Informações | ||
---|---|---|
| ||
Parâmetros:ParamIXB[1] - Sub-model para adicionar dados complementares no registro da tabela Array contendo os campos da FKF. |
03. EXEMPLO DE UTILIZAÇÃO
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#INCLUDE "PROTHEUS.CH" User Function FA986NFFACLMFKF() Local oObjaRet := 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 cCont1 := "1"0 Local cCont2nPos := "01" 0 Local aCamp := {} If cAlias == "SF2SE2" //Complemento de Título do Contas a Receber oObj:SetValue( "FKFMASTER", If nOpc == 3 aCamp := {{"FKF_NATREN", "15002", NIL},; {"FKF_TPSERV", "04", NIL},; {"FKF_TPREPA", "4", cCont1 ) NIL}} ElseIf nOpc == 4 aCamp oObj:SetValue(= {{"FKFMASTERFKF_NATREN", "15001", NIL},; {"FKF_TPSERV", "04", NIL},; {"FKF_TPREPA", cCont2 ) "4", NIL}} EndIf ElseIf cAlias == "SF1" //Complemento de Título do Contas a Pagar oObj:SetValue( "FKFMASTER","FKF_TPREPA" , cCont1 ) oObj:SetValue( "FKFMASTER","FKF_TPSERV" , cCont2 ) EndIf ReturnSE1" 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] }) If nPos = 0 aAdd(aRet, {aCamp[nX][1], aCamp[nX][2], aCamp[nX][3]}) EndIf Next nX Return(aRet) |
04. DEMAIS INFORMAÇÕES
Não há
05. ASSUNTOS RELACIONADOS
...
Não há
Templatedocumentos |
---|
HTML |
---|
<style> div.theme-default .ia-splitter #main { margin-left: 0px; } .ia-fixed-sidebar, .ia-splitter-left { display: none; } #main { padding-left: 10px; padding-right: 10px; overflow-x: hidden; } .aui-header-primary .aui-nav, .aui-page-panel { margin-left: 0px !important; } .aui-header-primary .aui-nav { margin-left: 0px !important; } </style> |
...