ERP – Regras LSP – Como testar a execução da função LoteLctoAdicionaAuxiliarRet
Dúvida
Como testar a execução da função LoteLctoAdicionaAuxiliarRet, no modulo Gestão de Contabilidade?
Solução
Segue sugestões de como testar a a execução da função LoteLctoAdicionaAuxiliarRet:
1. Uma sugestão seria depurar a execução do modelo importador para verificar a funcionalidade e os retornos;
2. Uma outra alternativa é criar uma regra e executar a mesma com o depurador ativo.
Segue exemplo de regra:
Definir Alfa pCplLct;
Definir Alfa pResult;
pCodFil = 1;
Dia = 10;
Mes = 07;
Ano = 2015;
MontaData(Dia, Mes, Ano, DatMon);
@Carregar informações para gerar lançamento contábil@
pDatLct = DatMon;
pCtaDeb = 2170;
pCtaCre = 50;
pVlrLct = 1161796.99;
pCodHpd = 8;
pCplLct = teste importação;
pNumFtc = 0;
@Carregar informações para gerar lançamentos auxiliares@
pCtaAux = 647060;
/*Dados do rateio*/
/*
Definir Alfa pCodCcu;
pCodCcu = 1101;
pPerRat = 100;
pVlrRat = 1161796.99;
*/
@Iniciar o procedimento@
LoteLctoCria();
LoteLctoInicializa(1, 1, DatMon, IMPORT);
@Adicionar lançamentos contábeis@
LoteLctoAdicionaLcto(pCodFil, pDatLct, pCtaDeb, pCtaCre, pVlrLct, pCodHpd, pCplLct, pNumFtc);
/*LoteLctoAdicionaRateio(50, pCodCcu, pPerRat, pVlrRat);
LoteLctoAdicionaRateio(110, pCodCcu, pPerRat, pVlrRat);
*/
@Adicionar lançamentos auxiliares@
LoteLctoAdicionaAuxiliarRet(pCtaDeb, pCtaAux, pVlrLct, pCodHpd, pCplLct,,pResult);
@Finalização do processo e inclusão do lote@
LoteLctoGeraLote();
LoteLctoLibera();
Depura++;
Depura++;