Jump to content

dev botao

Na impressão da GNRE 2.0 não estava somando o valor do FECP no total da guia.


FabioTellini
  • Este tópico foi criado há 1409 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Boa tarde.

Na impressão da GNRE 2.0 não estava somando o valor do FECP no total da guia.

Na unit ACBrGNReGuiaRLRetrato.pas na rotina RLBand1BeforePrint foram alteradas as linhas abaixo.

RLLabel28.Caption := FormatFloat('R$ ,0.00',  FGNRe.ValorPrincipal + FGNRe.ValorFECP);
RLLabel36.Caption := FormatFloat('R$ ,0.00',( FGNRe.ValorPrincipal + 
                                              FGNRe.AtualizacaoMonetaria+
                                              FGNRe.Juros +
                                              FGNRe.Multa +
                                              FGNRe.ValorFECP));
                                              
Na unit ACBrGNREGuiasRetorno, rotina LerXML foi adicionadas as linhas abaixo.

if Leitor.rAtributo('tipo=', 'valor') = '12' then
   GNRERetorno.ValorFECP := Leitor.rCampo(tcDe2, 'valor');                                              
                                              
Segue arquivos para validação.

Obrigado.

ACBrGNReGuiaRLRetrato.pas ACBrGNREGuiasRetorno.pas

Link to comment
Share on other sites

  • Este tópico foi criado há 1409 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.