Diogo Loff

Valeu resolvido!

Ola! No componente ACBrNFSeX, quando importado um XML de um RPS do provedor Betha, esta ocorrendo erro no campo de DataVencimento. O tipo esta incorreto. Atualmente no fonte esta: DataVencimento := ObterConteudo(ANodes[i].Childrens.FindAnyNs('DataVencimento'), tcDat); O correto é: DataVencimento := ObterConteudo(ANodes[i].Childrens.FindAnyNs('DataVencimento'), tcDatVcto); Fonte Betha.LerXml.pas Linha 98. Segue anexo fonte alterado. Betha.LerXml.pas

Bom já testei deu certo valeu!

Valeu mestre, a noite vou testar e reporto.

Sim, entendo, justamente qe ultimamente tenho colocado mas questões aqui e o ACBr tem ajustado. Realmente não quero mais ter que mexer no componente. Mas ocorre que anos atras tivemos um problema sério em uma das primeiras versões do Trunk2, onde as NFes no momento de validar em Lote se tinha uma no meio que dava erro, acabava replicando a chave de acesso da primeira que dava certo e gerou um transtorno gigantesco, nossa empresa trabalha com industria e muitos são multinacionais, empresas que trabalham com Petrobras, Vale e outras, empresas que emitem muita NF. Então por segurança e receio nosso estavamos sempre adequando principalmente a NFe e NFSe, porem isto tem ficado complicado demais em manter as alterações em aparalelo, principalmente da NFSe. Mas em fim se puderem verificar este item agradeço. Para fins de informação, hoje na empresa usamos a NFe, CTe, SPED EFD, Consulta de CNPJ e Impressão de Etiquetas, esta ultima esta totalmente customizada desde antes do trunk2, este tenho que tirar um tempo e avaliar bem o que tem no componente se esta funcional em todas as linguages e se faltar alguma coisa enviar um compilado de tudo que adequei para ver se vocês aceitam. E fora a etiqueta no momento só tenho customizado a partes dos Danfe da NFSe que inclusive abri já um outro topico sugerindo adequações. Valeu ai obrigado.

Não saberia precisar, mas faz bastante tempo, eu me obriguei atualizar agora inicio do ano devido a NFse. Muita vezes atualizava partes dos fontes e adaptava outras aqui para manter compatibilidade, mas já fazia acho uns 2 anos que não atualizava ele total. Estava usando muita coisa customizada nos fontes aqui também, coisa que quero eliminar total, quero passar usar o ACBr 100% oficial sem customizações. Tem um ultimo item ainda que não consegui usar o de vocês atalizado que é a impressão de etiquetas térmicas, o fonte é todo modificado aqui a mais de 10 anos já, sempre passo um trabalho com troca dos fontes e adaptar o AcbrDevice, mas quero ver se até final do ano mando as sugestões para vocês, pois o meu aqui esta rodando com PPLA, PPLB, ZPL, ZPLII, EPL2 com todos os comandos disponiveis.

Ao meu ver é um erro, pois, antes fazia agora não mais. Também todas as outras funções da NFe como gerar nfe e eventos, estão trazendo path completo, pelo que vi só a opção de donwload que não o faz mais. Vou anexar aqui os fontes, ao meu ver minha sugestão resolve, porem fica fora do padrão dos outros objetos como NF e Eventos. Também não entendi porque o objeto abaixo é destruido e depois recriado novamente sem o path. Então creio que vocês deveriam avaliar para se manter o padrão conforme das demais funções. Segue os fontes. Obrigado! ACBrNFeWebServices.pas

Olá! No meu sistema na parte de entrada de notas fiscais, se o usuário colocar a chave da NFe eu faço o Download da mesma. Ocorre que 09/01/24 fiz uma atualização dos componentes e agora no nome do arquivo não vem mais o path e esta ocorrendo erros no sistema, pois bem. Antes após fazer o comando: ACBrNFe1.DistribuicaoDFePorChaveNFe(StrToInt(Copy(lsChave, 1, 2)), nfeEmitCNPJ, lsChave); Eu pegava o path assim lsArquivo := ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[0].NomeArq Aqui vinha o path completo, com o definido na propriedade de download + o mês ano, pasta down + e o nome do arquivo final. Então o que esta acontecendo... agora esta ficando em branco, eu estive vendo no fonte do ACBrNFeWebServices linha 3778 e esta sendo dado Free na variavel FretDistDFeInt que é a mesma que retornar em retDistDFeInt. Pois bem para resolver o problema eu fiz uma alteração antes onde adiciona os arquivos numa lista para colocar o path, linha 3760. if NaoEstaVazio(NomeArq) then FlistaArqs.Add( aPath + FNomeArq ); Ai no sistema agora estou usando assim lsArquivo := ACBrNFe1.WebServices.DistribuicaoDFe.ListaArqs[0]; Bom resolveu meu problema, mas tive que mexer no componente, então não achei outra forma de resolver. Se puderem me orientar ou verificar o caso, agradeço.

Fechou deu certo.

Certo, bom como disse são sugestões. Sim o item 1 da quebra pode ser em virtude do item 2 onde nós utilizamos os dois blocos. Como sitei pelo menos meus clientes querem as informações mais padronizadas, tabuladas, mais semelhante a uma NFe, mas tudo bem, vou manter ainda minhas adequações aqui em separado como sempre fiz. Sobre o item 3 quais são os campos equivalentes? pois não localizei, aqui resolvendo já evito algumas linhas de customização.

Ola! Estou testando as novas possibilidades de consulta CNPJ pelas APIs que foram disponibilizadas no ACBrConsultaCNPJ e senti falta de exceção quando vem um erro do servidor. Como por exemplo o ReceitaWS com mais de 3 consultas por minuto já da erro, porem no componente não esta acontecendo nada. Fica sugestão a alteração que fiz. Implementei na ReceitaWS e na BrasilAPI. Em ambas adicionei um else se não deu certo, para lançar uma exceção do campo "message". if (Trim(LJsonObject.Values['message'].AsString) <> '') then raise EACBrConsultaCNPJWSException.Create(LJsonObject.Values['message'].AsString); Obrigado. ACBrConsultaCNPJ.WS.BrasilAPI.pas ACBrConsultaCNPJ.WS.ReceitaWS.pas

Valeu, fechou!

Valeu!

Oi Italo, na realidade ali a ordem não interfere, o idendificador pode vir depois não tem problema. A questão mesmo é que o identificador precisa ser diferente se não acaba misturando numeração com a oficial do cliente. Como coloquei ali eu adicionei um "h" no identificador para distinguir o teste, pois eles não aceitam a série diferente, em fim vai entender. O IPM é precario em documentação, diria um dos mais, e tem questões que depois de muito tempo bater cabeça com o suporte deles você acaba resolvendo. Mas em fim isto já ta rodando a bastante tempo, e não tenho tido problemas, aqui esta o print de como fica no envio o RPS e depois como Retorna deles. Se por acaso você envia em testes com o mesmo identificador do produção, começa misturar notas com do cliente, um exemplo. Digamos que eu na minha base de testes esteja com numeração inferior a do cliente, quando eu gero meu teste e o identificador é o mesmo de produção, acaba dando problema de RPS já informado e se consulta vem a nota que o cliente emitiu lá em produção anteriormente. Agora ao contrário, se por acaso você esta com númeração acima do cliente e faz o teste ai o pepino é maior, porque quando o cliente atinge o mesmo número ele não consegue mais seguir, trava a sequencia, e só ligando para prefeitura e IPM para resolver. Agora se no teste você também gera com um indentificador diferente ai este problema fica resolvido. Segue anexo os prints de como fica.

Boa tarde, Sempre que atualizo os fontes do ACBr, tenho que realizar algumas customizações no fonte da impressão de Danfse do ACBrNFSex para fastreports. Fica se sugestão se puderem realizar estas melhorias. Antes de mais nada vamos ao que levaram agente ter que customizar os Danfse. 1 - A quebra de pagina não funciona de uma forma bem certa, pode ser nós que talvez nunca soubermos a forma correta de utilizar como pode ser defeito. 2 - Cliente desejam ver as parcelas ali impressas, mesmo que o provedor não tenha a parte financeira no XML o cliente quer que apareça isto na impressão. 3 - Tem dois campos de datas que tive que criar a parte para atender algumas prefeituras, que diziam que tinha que ter. Ficaria muito grato se pudessem estudar as questões apresentadas, já tem ao menos uns 2 anos que tenho tido sempre que customizar isto. Item 1: Com relação a quebra, nós customizamos os arquivos de impressão, para que cada bloco siga o seu antecessor, nos originais disponibilizados isto não esta bem correto ao nosso entendimento, e tem bloco quebrando de forma manual via codificação, e acreditamos que da forma como ajustamos resolvemos o problema da quebra de pagina, uma vez que principalmente no corpo dos itens os demais campos abaixo seguem a quebra. Segue anexo os modelos de impressão, inclusive estes 3 modelos estamos usando em diversos municipios já a uns 2 anos e não tem necessitado mais adequações. DANFSEX_ATUAL modelo1 - Padrao.fr3 (Este é o modelo simples com chave da prefeitura pequena) DANFSEX_ATUAL modelo2 - Chave Grande (Este é o modelo simples com chave da prefeitura grande) DANFSEX_ATUAL modelo3 - QrCode (Este é o modelo com QrCode) Item 2: Com relação as parcelas os clientes querem ver no corpo, e também sempre querem os itens tabulados (não só descrição do serviço), isto é uma coisa que sempre gerou reclamação ao menos nos meus clientes e uma solução foi comentar a seguinte linha no procedimento TACBrNFSeXDANFSeFR.frxReportBeforePrint(Sender: TfrxReportComponent). frxReport.FindObject('Memo13').Visible := (not ((cdsItensServico.RecordCount > 0) and (frxReport.FindObject('Page2') <> nil)) or (frxReport.FindObject('Page2') = nil)); Se pudessem criar uma propriedade que pudesse setar sempre visivel este memo eu agradeceria, pois ocorre que pela implementação do ACBr este bloco fica invisivel se você colocar os itens da nota em formato de grade. O mesmo só fica visivel se só informado os itens de forma descritiva. Como nós utilizamos aqui??? Sempre a impressão dos itens é alimentado em forma de grade, mesmo que no XML da prefeitura seja só a descrição dos serviços, então sempre sai tabulado em grade. E porque precisamos ainda do "Memo13", é para ali mostrar outras informações que não constam muitas vezes na prefeitura, como por exemplo as parcelas, este é um caso muito utilizado. Em anexo estou colocando 3 modelos impressos para vocês entenderem o que estou falando. Ver os modelos de DANFSe anexados. Item 3: Tive necessidade para um provedor especifico criar duas propriedades novas para mostrar correto no DANFe. No procedimento TACBrNFSeXDANFSeFR.CriarDataSetsFrx adicionado; cdsIdentificacao.FieldDefs.Add('DataServico', ftString, 20); // para distinguir a data do servico da data da nfe para provedor que tenha isto cdsIdentificacao.FieldDefs.Add('DataEmissaoRps', ftString, 19); // para distinguir a data do RPS da data da nfe frxIdentificacao.FieldAliases.Add('DataServico=DataServico'); // Relação dos campos com o report frxIdentificacao.FieldAliases.Add('DataEmissaoRps=DataEmissaoRps'); // Relação dos campos com o report No procedimento TACBrNFSeXDANFSeFR.CarregaIdentificacao(ANFSe: TNFSe) adicionado LCDS.FieldByName('DataServico').AsString := FormatDateTime('dd/mm/yyyy', ANFSe.Competencia); // Alimentado o campo DataServico if (Provedor in [ proSigCorp ]) then LCDS.FieldByName('DataEmissaoRps').AsString := FormatDateBr(ANFSe.DataEmissaoRps); // Alimentado o campo DataEmissaoRps Segue anexo os fontes. DANFSEX_ATUAL modelo1 - Padrao.fr3 DANFSEX_ATUAL modelo2 - Chave Grande.fr3 DANFSEX_ATUAL modelo3 - QrCode.fr3 ACBrNFSeXDANFSeFR.pas DANFSEX_ATUAL_chavesimples2.pdf DANFSEX_ATUAL_chavegande2.pdf NFS-E teste PRODUCAO 2.pdf