25552 - Função SaldoMes não retorna o saldo do primeiro mês.
Problema:
Rotina / Tela: Contabilidade função: SaldoMes
Solução: Solução: Avaliamos a regra e ela possui um pequeno erro, que ocasionou essa situação relatada.
Descrição do Problema: Estamos utilizando a função SaldoMes passando o parâmetro pDebCre como S-Saldo Mês, porém a primeira variável pSalM01 não retorna o valor do primeiro mês.
Rotina / Tela: Contabilidade função: SaldoMes
Solução: Solução: Avaliamos a regra e ela possui um pequeno erro, que ocasionou essa situação relatada.
O segundo parâmetro da função *SaldoMes* denominado *pMesSal* deve ser um valor numérico, que representa o mês (de 1 a 12) inicial para a carga das 6 variáveis de retorno, no caso da chamada da regra do cliente, esta sendo passado a data inicial (*dDatIni* do tipo *Data*) e com isso a rotina não se comporta da maneira correta, pois tenta converter a data em um valor numérico. No caso da regra do cliente o correto é utilizar a variável: *nMesIni*.
*Regra atual*:
SaldoMes(50,dDatIni,"S",pSalM01,pSalM02,pSalM03,pSalM04,pSalM05,pSalM06);
*Regra correta*:
SaldoMes(50,nMesIni,"S",pSalM01,pSalM02,pSalM03,pSalM04,pSalM05,pSalM06);
Regra completa abaixo:
====================================================
Definir Data dDatIni;
Definir Data dDatFim;
nDiaIni=01;
nMesIni=01;
nAnoIni=2020;
MontaData(nDiaIni, nMesIni, nAnoIni, dDatIni);
nDiaFim=30;
nMesFim=06;
nAnoFim=2020;
MontaData(nDiaFim, nMesFim, nAnoFim, dDatFim);
CarregaSaldoPorMes("1","1"," ",dDatIni,dDatFim);
CarregaSaldoPorMesAnt("1","1"," ",dDatIni,dDatFim);
SaldoMes(50,nMesIni,"S",pSalM01,pSalM02,pSalM03,pSalM04,pSalM05,pSalM06) ;
depura++;
Definir Data dDatIni;
Definir Data dDatFim;
nDiaIni=01;
nMesIni=01;
nAnoIni=2020;
MontaData(nDiaIni, nMesIni, nAnoIni, dDatIni);
nDiaFim=30;
nMesFim=06;
nAnoFim=2020;
MontaData(nDiaFim, nMesFim, nAnoFim, dDatFim);
CarregaSaldoPorMes("1","1"," ",dDatIni,dDatFim);
CarregaSaldoPorMesAnt("1","1"," ",dDatIni,dDatFim);
SaldoMes(50,nMesIni,"S",pSalM01,pSalM02,pSalM03,pSalM04,pSalM05,pSalM06) ;
depura++;
====================================================