Impressão da DANFSe de Campo Limpo Paulista

[Adhelmar Rondon]

Olá

Boa tarde a todos do projeto ACBr

 

Eu alterei o motor do relatório da NFSe, para o Fast, porque o Fortes, esta gerando mais de uma pagina, com isso eu tive que alterar a rotina abaixo da GeisWeb, porque só estava mostrando o código do serviço pelo Fast

se puderem adequar essa rotina, agradeço muito

gratidão

 

procedure TNFSeR_GeisWeb.LerServico(const ANode: TACBrXmlNode);
var
  AuxNode: TACBrXmlNode;
  Ok: Boolean;
begin
  AuxNode := ANode.Childrens.FindAnyNs('Servico');

  if AuxNode <> nil then
  begin
    with NFSe.Servico do
    begin
      LerValores(AuxNode);

      ItemListaServico := ObterConteudo(AuxNode.Childrens.FindAnyNs('CodigoServico'), tcStr);
      xItemListaServico := ItemListaServicoDescricao(ItemListaServico);
      Discriminacao := ObterConteudo(AuxNode.Childrens.FindAnyNs('Discriminacao'), tcStr);
      Discriminacao := StringReplace(Discriminacao, FpQuebradeLinha,
                                      sLineBreak, [rfReplaceAll, rfIgnoreCase]);
      xItemListaServico := Discriminacao;
      VerificarSeConteudoEhLista(Discriminacao);

      CodigoMunicipio := ObterConteudo(AuxNode.Childrens.FindAnyNs('MunicipioPrestacaoServico'), tcStr);
      CodigoTributacaoMunicipio := ItemListaServico;
      xCodigoTributacaoMunicipio := xItemListaServico;
      TipoLancamento := StrToTipoLancamento(Ok, ObterConteudo(AuxNode.Childrens.FindAnyNs('TipoLancamento'), tcStr));

      NFSe.SituacaoNfse := snNormal;

      if TipoLancamento = tlCancelado then
        NFSe.SituacaoNfse := snCancelado;
    end;
  end;
end;

 

[Italo Giurizzato Junior]

Boa tarde Adhelmar,

Favor anexar a unit que você alterou para que possamos validar.

[Adhelmar Rondon]

20 minutos atrás, Italo Giurizzato Junior disse:

Boa tarde Adhelmar,

Favor anexar a unit que você alterou para que possamos validar.

segue anexo da unit, precisa analisar não sei se atualizei de forma correta

 

GeisWeb.LerXml.pas

[Adhelmar Rondon]

36 minutos atrás, Italo Giurizzato Junior disse:

Boa tarde Adhelmar,

Favor anexar a unit que você alterou para que possamos validar.

Não baixa essa unit, eu acabei pegando campo errado, e o cliente disse que pelo fast esta faltando algumas informações, e Fortes, ficou grande e sempre da duas páginas