Jump to content

DouglasGV

Membros
  • Posts

    146
  • Joined

  • Last visited

Everything posted by DouglasGV

  1. Bom dia! Tudo certo? @Italo Giurizzato Junior Apaguei os fontes e atualizei! Resolveu meu problema, vi que a unit ACBrXmlBase está totalmente reformulada. Muito obrigado pela ajuda!
  2. Bom dia! Estou realizando todos estes procedimentos e irei passar o feedback
  3. @Juliomar Marchetti @Italo Giurizzato Junior Boa tarde! Tudo certo? Fiz uma alteração, implementei a função: GerarGrupoRPS na unit IPM.GerarXml onde adicionei a validação do município em questão (Cascavel PR); function TNFSeW_IPM.GerarGrupoRPS: Boolean; begin Result := (StrToIntDef(NFSe.IdentificacaoRps.Numero, 0) > 0) and (not MatchText(NFSe.Servico.MunicipioIncidencia.ToString, ['7493'])); end; Abaixo o print que indica isso na unit e onde seria aplicado na function GerarIdentificacaoRPS https://prnt.sc/gfnuvvO99Jmc Também a unit alterada IPM.GravarXml.pas
  4. @Juliomar Marchetti Beleza? Ajustei apenas na minha aplicação, coloquei letras RPS+número de RPS na propriedade IdentificacaoRPS.numero; Com isso não cai na parte de alimentar as tags. Print abaixo (Link) é referente a validação feita na unit IPM.GravarXML https://prnt.sc/k86BzOGBO4ay
  5. Pessoal consegui emitir! Fui testando e ignorei o trecho que alimenta os dados de RPS aí emitiu a nota... Ele verifica se o IdentificacaoRPS.Numero > 0; Criei na minha aplicação uma validação específica para IPM, inserindo na string letras para não cair atender a situação de alimentar as tags Dentro da unit: IPM.GravarXML função: function TNFSeW_IPM.GerarIdentificacaoRPS: TACBrXmlNode; function TNFSeW_IPM.GerarIdentificacaoRPS: TACBrXmlNode; begin Result := nil; if( StrToIntDef( NFSe.IdentificacaoRps.Numero, 0 ) > 0 ) then begin Result := CreateElement('rps'); Result.AppendChild(AddNode(tcStr, '#1', 'nro_recibo_provisorio', 1, 12, 1, NFSe.IdentificacaoRps.Numero, DSC_NUMRPS)); Result.AppendChild(AddNode(tcStr, '#1', 'serie_recibo_provisorio', 1, 2, 1, NFSe.IdentificacaoRps.Serie, DSC_SERIERPS)); Result.AppendChild(AddNode(tcDatVcto, '#1', 'data_emissao_recibo_provisorio', 1, 10, 1, NFSe.DataEmissaoRps, DSC_DEMI)); Result.AppendChild(AddNode(tcStr, '#1', 'hora_emissao_recibo_provisorio', 1, 8, 1, FormatDateTimeBr(NFSe.DataEmissaoRps, 'hh:mm:ss'), DSC_HEMI)); end;
  6. Sim! O estranho é que ontem consegui emitir 1 nota, utilizando componente ACBrNFSeX, na segunda tentativa me ocorreu a rejeição de: Código : 00209 Mensagem: Já consta uma NFSe para o referido prestador de serviço com o mesmo IDENTIFICADOR de arquivo Passei a alimentar o campo: IdentificacaoRps.Numero Começou a surgir a rejeição da série kkkk 00221 - A série do RPS informada no arquivo é diferente da série do RPS utilizada pelo respectivo município. 25-ger-nfse.xml
  7. Bom dia! Testei e infelizmente ocorreu a mesma rejeição.
  8. Bom dia! Tudo certo? Sim, olhei o manual e conversei com a prefeitura, o estranho que se emito pela minha aplicação vai de boa, apenas utilizando ACBrNFSeX ocorre a rejeição. No meu caso estou utilizando a série 1;
  9. Boa tarde! Tudo certo? Também estou com este problema
  10. @Italo Giurizzato Junior e @Bravus suporte Fiz um ajuste na unit: ACBrXmlBase, adicionei uma verificação quando retornado a data no formado yyyy/mm/dd e funcionou perfeitamente! Em anexo a unit. ACBrXmlBase.pas
  11. Exatamente neste local que ocorre o problema para mim.
  12. @Italo Giurizzato Junior Bom dia! Tudo certo? Pronto dentro deste arquivo anexei todos os arquivos gerados ao consultar lote. Arquivos NFSe.zip
  13. Este? @Italo Giurizzato Junior XML RETORNADO CONSULTA LOTE.xml
  14. Boa tarde! No inicio do tópico explico onde ocorre o problema. @Italo Giurizzato Junior XML EDITADO ERRO BARRA 0.xml
  15. @Italo Giurizzato Junior Bom dia! Tudo certo? Atualizando os fontes ocorre o erro na função de ler a data de competência
  16. Boa tarde! Tudo certo? Para o provedor issGoiania o retorno não apresenta sucesso e sim um código de erro, mesmo com a nota sendo transmitida. Ao consultar lote retorna apenas o arquivo, número da nota e XML.
  17. @EMBarbosa Fiz a implementação dos metodos no Publica.lerXml, poderia verificar se minha contribuição ficou de acordo com o padrão utilizado pela ACBr? O meu problema está no campo NFSe.Competencia que no XML retorna <Competencia>2022-04</Competencia> e ao utilizar o método LerCompetencia(AuxNode); Dentro da procedure TNFSeR_ABRASFv1.LerInfNfse(const ANode: TACBrXmlNode); retornava o erro acima: '/0' is not a valid integer value Mudei para este provedor o seguinte: NFSe.Competencia := StrtoDateTimeDef(AuxNode.Childrens.FindAnyNs('Competencia').ToString, now); Também adicionei a linha: NFSe.Link := ObterConteudo(AuxNode.Childrens.FindAnyNs('LinkVisualizacaoNfse'), tcStr); // que no TNFSeR_ABRASFv1 não existe está tag. Agora estou conseguindo consultar lote sem erro algum. Desde já agradeço a atenção. Publica.LerXml.pas
  18. @EMBarbosa Boa tarde! Sei onde está o erro, porém não sei se consigo ajustar kkkk procedure TNFSeR_ABRASFv1.LerInfNfse(const ANode: TACBrXmlNode); NFSe.Competencia := LerCompetencia(AuxNode); Ao executar o processo: '/0' is not a valid integer value
  19. @EMBarbosa "Aqui não ficou claro. O erro aparece somente ao imprimir ou em outras situações também? Quais?" Na impressão e no processo de consultar a situação do lote Erro(s): Código : X999 Mensagem: Erro de Conexão: '/0' is not a valid integer value Correção: ---------
  20. Bom dia! Tudo certo? Estou com problemas no provedor Publica, ao emitir não retorna a url da NFS-e, alterei na unit descrita abaixo e alimentou corretamente. procedure TNFSeR_ABRASFv1.LerInfNfse(const ANode: TACBrXmlNode); NFSe.Link := ObterConteudo(AuxNode.Childrens.FindAnyNs('LinkVisualizacaoNfse'), tcStr); Também estou com problemas na impressão da nota, não é alimentado nada no componente; Ao emitir a nota não me retorna o XML, então utilizo o método consultar lote e aí me retorna o XML(Porém este não é impresso). Anexei também o XML editado: "XML EDITADO ERRO BARRA 0"; Nele ocorre o erro ao tentar a impressão. Gostaria de ajuda XML EDITADO ERRO BARRA 0.xml XML RETORNADO CONSULTA LOTE.xml
  21. Reatualizei os componentes e resolveu!
  22. Boa tarde! Tudo certo? XMLRetorno : <EnviarLoteRpsSincronoResposta xmlns:xs="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://www.abrasf.org.br/nfse.xsd"><ListaNfse> Teria como remover as tags acima na leitura do XML retorno referente ao servidor proVitoria, pois com essas tags não imprime a nota; Desta forma imprime corretamente! Desta forma não imprime
  23. Ok, farei isso e te informo
×
×
  • 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.