Adhelmar Rondon Postado 8 Março Compartilhar Postado 8 Março 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; Link para o comentário Compartilhar em outros sites More sharing options...
Consultores Italo Giurizzato Junior Postado 8 Março Consultores Compartilhar Postado 8 Março Boa tarde Adhelmar, Favor anexar a unit que você alterou para que possamos validar. Italo Giurizzato Junior Ajude o Projeto ACBr crescer - Assine o SAC Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP Araraquara - A era dos Trólebus Link para o comentário Compartilhar em outros sites More sharing options...
Adhelmar Rondon Postado 8 Março Autor Compartilhar Postado 8 Março 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 Link para o comentário Compartilhar em outros sites More sharing options...
Adhelmar Rondon Postado 8 Março Autor Compartilhar Postado 8 Março 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 1 Link para o comentário Compartilhar em outros sites More sharing options...
Recommended Posts
Crie uma conta ou entre para comentar
Você precisar ser um membro para fazer um comentário
Criar uma conta
Crie uma nova conta em nossa comunidade. É fácil!
Crie uma nova contaEntrar
Já tem uma conta? Faça o login.
Entrar Agora