Italo Giurizzato Junior

Bom dia Adriano, Atualize todos os fontes de todas as pastas, reinstale o ACBr e faça novos testes.

Bom dia Bruno, Já esta no SVN.

Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico.

Bom dia Benhur, Se não me falha a memória tem que entrar em contato com o provedor e solicitar a liberação.

Bom dia Roberto, Doas coisas a esclarecer: 1. pelo fato do envio ser Síncrono e com as mudanças realizadas no envelope soap é para ele retornar o resultado do processamento e isso esta ocorrendo, uma vez que no retorno consta o XML da nota, logo não se faz necessário realizar nenhuma consulta. 2. atualize todos os fontes de todas as pastas, reinstale o ACBr e refaça os testes.

Boa tarde João, Data de Emissão e Competência estão com a mesma data? <dhEmi>2024-01-03T13:20:35-03:00</dhEmi> <dCompet>2023-10-11</dCompet> Me parece que não esta.

Vinicius, Lhe convido a iniciar os testes com o novo componente de emissão de NFS-e: ACBrNFSeX O componente antigo: ACBrNFSe não está mais tendo manutenção. Faça os testes usando o programa exemplo do novo componente. Manual de Migração https://www.projetoacbr.com.br/forum/topic/63017-manual-de-migração-para-o-novo-componente-de-emissão-de-nfs-e/

Roberto, Você consegue debugar a procedure TratarRetornoEmitir que se encontra na unit Tecnos.Provider ? Coloque um ponto de parada na primeira linha: Document := TACBrXmlDocument.Create; Depois vai avançando quero saber se ele entra dentro do IF if Response.ModoEnvio in [meLoteSincrono, meUnitario] then Se entra dentro do FOR for I := Low(ANodeArray) to High(ANodeArray) do Desculpe em pedir isso, é porque eu evito ao máximo em pedir o certificado e os dados da empresa para que eu possa fazer os testes.

Douglas, Na unit PadraoNacional.LerXml temos: procedure TNFSeR_PadraoNacional.LerinfDPS(const ANode: TACBrXmlNode); var AuxNode: TACBrXmlNode; Ok: Boolean; begin AuxNode := ANode.Childrens.FindAnyNs('infDPS'); if AuxNode <> nil then begin NFSe.infID.ID := OnlyNumber(ObterConteudoTag(AuxNode.Attributes.Items['Id'])); NFSe.DataEmissao := ObterConteudo(AuxNode.Childrens.FindAnyNs('dhEmi'), tcDatHor); NFSe.verAplic := ObterConteudo(AuxNode.Childrens.FindAnyNs('verAplic'), tcStr); NFSe.IdentificacaoRps.Serie := ObterConteudo(AuxNode.Childrens.FindAnyNs('serie'), tcStr); NFSe.IdentificacaoRps.Numero := ObterConteudo(AuxNode.Childrens.FindAnyNs('nDPS'), tcStr); NFSe.Competencia := ObterConteudo(AuxNode.Childrens.FindAnyNs('dCompet'), tcDat); NFSe.tpEmit := StrTotpEmit(Ok, ObterConteudo(AuxNode.Childrens.FindAnyNs('tpEmit'), tcStr)); LerSubstituicao(AuxNode); LerPrestador(AuxNode); LerTomador(AuxNode); LerIntermediario(AuxNode); LerServico(AuxNode); LerValores(AuxNode); end; end; Como você pode ver ao ler o atributo Id (da tag infDPS) que contem a chave do DPS ele executa a função OnlyNumber visando remover o prefixo DPS da chave, deixando somente os dígitos.

Vinicius, Segundo o arquivo ACBrNFSeXServicos.ini o provedor é outro. [4304606] ; Atualizado em 31/10/2023 Nome=Canoas UF=RS Provedor=Infisc Versao=1.01 ProRecepcionar=https://nfse.canoas.rs.gov.br/services/nfse/ws/Servicos HomRecepcionar=https://canoas-homol.infisc.com.br/services/nfse/ws/Servicos ProLinkURL=https://nfse.canoas.rs.gov.br/portal/consulta.jspx?nf=%ChaveAcesso% HomLinkURL=https://canoas-homol.infisc.com.br/portal/consulta.jspx?nf=%ChaveAcesso%

Verifica com a prefeitura quais os códigos dos Itens de serviço aceitos por ela, pode ser que ela não aceita o código 01.05 Outra coisa, pode ser que para a cidade em questão o código seja 1.05

Boa tarde Roberto, Vou lhe pedir um favor, faça um teste com a unit em anexo. Tecnos.Provider.pas

Boa tarde Vinicius, Qual é a cidade/provedor?

Boa tarde, Mas o correto não seria 01.05 ?

Boa tarde Douglas, Após o envio você consegue a chave do DPS e da Nota da seguinte forma: em ACBrNFSeX1.WebService.Emite.idNota temos a chave do DPS em ACBrNFSeX1.WebService.Emite.Link temos a chave da Nota. Ao carregar o XML da nota temos: a chave da nota lendo (...).NFSe.infNFSe.ID a chave do DPS lendo (...).NFSe.infID.ID Caso você carrego o XML do DPS em vez da NFS-e você só tem a chave do DPS lendo: (...).NFSe.infID.ID

Boa tarde @renemelo, Curitiba e Cabo de Santo Agostino por exemplo o webservice trabalha na versão 1 do layout da ABRASF, sendo assim após o envio devemos consultar a situação do lote, se a situação for 3 ou 4 devemos consultar o lote. Se a situação for 3 teremos uma lista de erros, por outro lado se for 4 teremos o XML da nota. Por outro lado a cidade de Belford Roxo o webservice trabalha com a versão 2 do layout da ABRASF. Se você executa o método Emitir no modo automático de envio (meAutomatico) para todas as cidades no caso de Belford Roxo já era para trazer o XML da nota, a não ser que a nota tenha sido rejeitada. Já para as cidades que usam a versão 1 do layout da ABRASF é interessante atribuir o valor True a propriedade: Configuracoes.Geral.ConsultaLoteAposEnvio. Desta forma o componente realiza as consultas mencionadas acima de forma automática.

Boa tarde Bruno, Muito obrigado pela colaboração, já inclui na minha lista de tarefas. TK-4936

Bom dia Douglas, Você tem fontes do ACBr com alterações locais? Verifica se não tem nenhuma unit do ACBr com uma bolinha vermelha em seu ícone, caso afirmativo delete a unit. Atualize todos os fontes de todas as pastas. Reinstale o ACBr com a opção de apagar arquivos antigos marcada. Compile a aplicação com a opção Build. Por fim repita os testes.

Bom dia Glauber, Como não foi informado o modo de envio do RPS fica mais difícil de lhe ajudar. A cidade de Limeira é atendida pelo provedor iiBrasil que se utiliza da versão 2.04 do layout da ABRASF. Em seu WebService foi disponibiliza os serviços: RecepcionarLoteRps, RecepcionarLoteRpsSincrono e GerarNfse (envio unitário do RPS). O RecepcionarLoteRps nos permite o envio de um lote com até 50 RPS, mas ele trabalha no modo assíncrono, sendo assim se faz necessário Consultar o Lote para saber o resultado do processamento. Se foi processado com sucesso teremos os XML das notas caso contrario teremos a lista de erros. Já o RecepcionarLoteRpsSincrono nos permite o envio de um lote com até 50 RPS, mas ele trabalha no modo síncrono, neste caso logo após o envio já temos o resultado do processamento. Por fim o GerarNfse (envio unitário) nos permite o envio de apenas um RPS por vez e ele trabalha no modo síncrono, sendo assim, após o envio do RPS já temos o resultado do processamento.

Bom dia Bruno, Lembre-se que alterar a unit ACBrNFSeXGravarXml_ABRASFv2, essa alteração passa a valer para todos os provedor que seguem a versão 2 do layout da ABRASF. Só podemos alterar essa unit quando temos certeza que todos os provedores seguem essa configuração. O lugar mais indicado é alterar a unit GravarXml do referido provedor. Exemplo: procedure TNFSeW_DSF200.Configuracao; begin inherited Configuracao; FormatoAliq := tcDe2; GerarNSRps := False; NrOcorrExigibilidadeISS := -1; end; Lembrando que: // Numero de Ocorrencias Minimas de uma tag // se for 0 só gera a tag se o conteudo for diferente de vazio ou zero // se for 1 sempre vai gerar a tag // se for -1 nunca gera a tag Outra coisa: Segundo os Schemas que temos para esse provedor a tag é obrigatória, veja: <xsd:element name="ExigibilidadeISS" type="tsExigibilidadeISS" minOccurs="1" maxOccurs="1" /> Quando o mínimo de ocorrências é 1 significa que é obrigatória. Os valores aceitos são: <xsd:simpleType name="tsExigibilidadeISS"> <xsd:annotation> <xsd:documentation>Exigibilidade do ISS da NFS-e ( 1 - Exigivel; 2 - Nao incidencia; 3 - Isencao; 4 - Exportacao; 5 - Imunidade; 6 - Exigibilidade Suspensa por Decisao Judicial; 7 - Exigibilidade Suspensa por Processo Administrativo) </xsd:documentation> </xsd:annotation> <xsd:restriction base="xsd:byte"> <xsd:pattern value="1|2|3|4|5|6|7" /> </xsd:restriction> </xsd:simpleType> Note que o erro que você esta tendo é de que o valor informado esta incorreto e não que a tag não deve constar no XML. O componente usa os seguintes valores: function TACBrNFSeXProvider.ExigibilidadeISSToStr( const t: TnfseExigibilidadeISS): string; begin Result := EnumeradoToStr(t, ['1', '2', '3', '4', '5', '6', '7', '8'], [exiExigivel, exiNaoIncidencia, exiIsencao, exiExportacao, exiImunidade, exiSuspensaDecisaoJudicial, exiSuspensaProcessoAdministrativo, exiISSFixo]); end; Note que existe o valor 8 = ISS Fixo que não é utilizado pelo provedor em questão.

Bom dia Adriano, Se você abrir a unit ACBrNFSeXGravarXml_ABRASFv2, procedure configuracao temos: FNrOcorrRegimeEspecialTributacao := 0; FNrOcorrValorISS := 0; FNrOcorrAliquota := 0; FNrOcorrDescIncond := 0; Como você pode ver o componente configura essas duas tag como sendo opcionais para todos os provedores que seguem a versão 2 do layout da ABRASF. Se você remover o IF inteiro vai dar na mesma. Como você fez uma alteração na unit do provedor ela vai surtir efeito para todas as cidades atendidas por esse provedor nessa versão. Como que fica as demais cidades? Já que o provedor não é capaz de estabelecer um padrão para todas as cidades que ele atende por incompetência e olhar para o próprio umbigo, temos que dar os nossos pulos. Você teria alguma sugestão de como resolver?

Bom dia Bruno, A alteração no código do componente como você fez, é indicada quanto todas as cidades seguem a mesma formatação. Se o provedor não foi capaz de padronizar a formatação do ItemListaServico para todas as cidades, ou seja, para algumas é 01.01 em outras é 1.01, é possível definir uma formação para cada cidade no arquivo ACBrNFSeXServicos.ini Veja este exemplo: [3525904] ; Atualizado em 03/01/2024 Nome=Jundiai UF=SP Provedor=Ginfes Params=NaoFormatarItemServicoSemZeroEsquerda: ProLinkURL=http://jundiai.ginfes.com.br/report/consultarNota?__report=nfs_ver4&cdVerificacao=%CodVerif%&numNota=%NumeroNFSe%&cnpjPrestador=null HomLinkURL=http://jundiai.ginfesh.com.br/report/consultarNota?__report=nfs_ver4&cdVerificacao=%CodVerif%&numNota=%NumeroNFSe%&cnpjPrestador=null O campo Params poderá receber os seguintes valores: ; NaoFormatarItemServico é do tipo Boolean ; NaoFormatarItemServicoSemZeroEsquerda é do tipo Boolean ; FormatarItemServicoSemZeroEsquerda é do tipo Boolean ; FormatarItemServicoNaoSeAplica é do tipo Boolean A ausência desse campo no arquivo INI o componente assume que o ItemListaServico deve ser formatado e com o zero a esquerda, exemplo: 01.01 a não ser que na unit GravarXml do provedor tenha uma configuração diferente.

Bom dia @rogerio.rizzon, Tente desta forma: [4311304] ; Atualizado em 03/01/2023 Nome=Lagoa Vermelha UF=RS Provedor=IPM ;Versao=1.01 ProRecepcionar=https://lagoavermelha.atende.net/?pg=rest&service=WNERestServiceNFSe&cidade=padrao HomRecepcionar=https://homologacao.atende.net/?pg=rest&service=WNERestServiceNFSe&cidade=padrao Comente a linha que contem a versão, desta forma ele vai assumir a verão 1.00 automaticamente. Altere o arquivo INI, execute o Compila_RES, reinstale o ACBr, recompila a aplicação com a opção Build e faça novos testes.

Adhelmar, As notas que você emitiu em dezembro foram todas em ambiente de homologação, correto? E agora em janeiro também foi em homologação ou produção?

Boa tarde Bruno, Você sabe me dizer se essa formatação para o ItemListaServico é a mesma para todas as cidades atendidas pelo provedor?