Produto:

Microsiga Protheus

Ocorrência:

Exemplo de utilização no DMPL a função SaldoCT7Fil

Passo a passo:

No campo formula da visão referente ao DMPL incluir a sintaxe abaixo:

SALDO=U_TESTEPC()

Onde TestePc() é uma User Function exemplificada abaixo.

Veja também os links TDN:

CTB0054_Visão_Gerencial-Campo_Fórmula

CTB0055_Visão_Gerencial-Expressões_especiais

CTB0058_Visão_Gerencial-Uso_de_fórmulas

Exemplo de fonte com utilização da função SaldoCT7Fil

#INCLUDE "PROTHEUS.CH"

USER FUNCTION TESTEPC()

LOCAL cConta,dData,cMoeda,cTpSald
Local nSaldoAtu,nDebito,nCredito,nAtuDeb,nAtuCrd,nSaldoAnt,nAntDeb,nAntCrd
Local xSald, xSaldAnt

cConta := "11"
cMoeda := '01'
cTpSald := '1'
//saldo anterior
dData := CTOD("31/12/2015")
xSaldAnt=SaldoCT7Fil(cConta,dData,cMoeda,cTpSald,"TESTEPC" /*cRotina*/)
//saldo atual
dData := CTOD("31/12/2016")
xSald=SaldoCT7Fil(cConta,dData,cMoeda,cTpSald,"TESTEPC" /*cRotina*/)

//----------------------------------------------------------------------------------------------------------------------------//
//Retorno:
//[1] Saldo Atual (com sinal)
//[2] Debito na Data
//[3] Credito na Data
//[4] Saldo Atual Devedor
//[5] Saldo Atual Credor
//[6] Saldo Anterior (com sinal)
//[7] Saldo Anterior Devedor
//[8] Saldo Anterior Credor
//----------------------------------------------------------------------------------------------------------------------------//

//composicao dos valores extraindo os dados dos arrays xSald (Atual) e xSaldAnt (Anterior)
 

nSaldoAtu := xSald[1]
nDebito := xSald[4]-xSaldAnt[4]
nCredito := xSald[5]-xSaldAnt[5]
nAtuDeb := nDebito
nAtuCrd := nCredito
nSaldoAnt := xSaldAnt[1]
nAntDeb := xSaldAnt[4]
nAntCrd := xSaldAnt[5]

xSald := {nSaldoAtu,nDebito,nCredito,nAtuDeb,nAtuCrd,nSaldoAnt,nAntDeb,nAntCrd}

RETURN(xSald)