Italo Giurizzato Junior

Bom dia @Rosemeri Nespolo, Complementando o que o @Juliomar Marchetti já lhe passou, temos o tópico abaixo com mais orientações.

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

Bom dia @Lopes Ricardo, Chegou a fazer um teste usando o programa exemplo?

Bom dia @Zottis, Chegou a fazer um teste com o programa exemplo? O Numero do protocolo é obtido no retorno do Emitir.

@C4Dev, O provedor EL na sua versão 1 (layout próprio) o fluxo para obter o XML completo da NFS-e é este abaixo: 1. Alimentar o componente com os dados do RPS. 2. Enviar o RPS para o webservice. 3. Com o componente ainda carregado com os dados do RPS, executar o Consultar Situação informando o numero do Protocolo retornado ao enviar. 4. Com o componente ainda carregado com os dados do RPS, executar o Consultar Lote informando o numero do Protocolo. 5. Se o RPS foi processado com sucesso o componente vai montar o XML completo da nota com os dados do retorno da consulta ao lote. Você esta seguindo esse fluxo? Ele chega a gravar o XML da nota em disco?

@C4Dev, Eu acho que ficou faltando uma linha, veja: AResumo.Data := Response.Data; AResumo.Situacao := Response.Situacao; AResumo.NumeroRps := Response.NumeroRps; aXmlRetorno := AuxNode.OuterXml; <==== incluir esta linha if AResumo.NumeroNota <> '' then ANota := TACBrNFSeX(FAOwner).NotasFiscais.FindByNFSe(AResumo.NumeroNota); if not Assigned(ANota) then ANota := TACBrNFSeX(FAOwner).NotasFiscais.FindByRps(AResumo.NumeroRps); Inclui a linha reinstale o ACBr e faça novos testes.

Boa tarde @chico_lopes, Pelo que eu entendi, você pega um XML qualquer e na base da tentativa erro tenta descobrir se o XML é de uma NF-e, ou CT-e, ou evento de NF-e ou evento de CT-e, é isso? Se a ideia é essa não seria o caso de, você carregar o XML como uma string checar a presença de um elemento que você sabe que só existe em um determinado tipo de documento? Por exemplo: procedure TfrmEmissorDFE.CarregaArquivo; var ArquivoXML: TStringList; Tamanho: Integer; PathEvento: String; begin ArquivoXML := TStringList.Create; ArquivoXML.LoadFromFile(edtArquivo.Text); TipoDFE := 0; if pos('<infNFe', ArquivoXML.Text) > 0 then TipoDFE := 1; if pos('<infCte', ArquivoXML.Text) > 0 then TipoDFE := 2; if pos('InfNfse', ArquivoXML.Text) > 0 then TipoDFE := 3; if pos('infMDFe', ArquivoXML.Text) > 0 then TipoDFE := 4; if pos('procEventoNFe', ArquivoXML.Text) > 0 then TipoDFE := 5; if pos('procEventoCTe', ArquivoXML.Text) > 0 then TipoDFE := 6; if pos('procEventoMDFe', ArquivoXML.Text) > 0 then TipoDFE := 7; ArquivoXML.Free; (...) end;

Boa tarde @C4Dev, Ao consultar a variável aXmlRetorno é para conter o XML retornado pelo webservice. Você poderia anexar esse XML para que possamos analisar o problema?

Boa tarde @Anderson Grolli, Favor atualizar todos os fontes de todas as pastas, reinstale o ACBr e faça novos testes.

Bom dia @Anderson Grolli, Já foi criado a TK-5972 para analise do problema.

Bom dia @Elisângela Borato, Você anexou a unit do Ginfes e não do Giap.

Bom dia @Zottis, Notei que no seu XML o valor de RetidoCpp é 1. Inclua a linha abaixo na rotina que alimenta o componente: Servico.Valores.RetidoCpp := snNao; Desta forma ele vai gerar com o valor 2. Vamos ver se isso resolve o problema.

Bom dia @C4Dev, Se o problema é realmente o conteúdo do atributo URI, como foi dito precisamos que a tag a ser assinada possua o atributo Id. Veja um schema de um provedor que possui esse atributo: Definição da tag InfDeclaracaoPrestacaoServico: <xsd:complexType name="tcInfDeclaracaoPrestacaoServico"> <xsd:sequence> <xsd:element name="Rps" type="tcInfRps" minOccurs="0" maxOccurs="1" /> <xsd:element name="Competencia" type="xsd:date" minOccurs="1" maxOccurs="1" /> <xsd:element name="Servico" type="tcDadosServico" minOccurs="1" maxOccurs="1" /> <xsd:element name="Prestador" type="tcIdentificacaoPrestador" minOccurs="1" maxOccurs="1" /> <xsd:element name="Tomador" type="tcDadosTomador" minOccurs="0" maxOccurs="1" /> <xsd:element name="Intermediario" type="tcDadosIntermediario" minOccurs="0" maxOccurs="1" /> <xsd:element name="ConstrucaoCivil" type="tcDadosConstrucaoCivil" minOccurs="0" maxOccurs="1" /> <xsd:element name="RegimeEspecialTributacao" type="tsRegimeEspecialTributacao" minOccurs="0" maxOccurs="1" /> <xsd:element name="OptanteSimplesNacional" type="tsSimNao" minOccurs="1" maxOccurs="1" /> <xsd:element name="IncentivoFiscal" type="tsSimNao" minOccurs="1" maxOccurs="1" /> </xsd:sequence> <xsd:attribute name="Id" type="tsIdTag" /> </xsd:complexType> Definição da tag LoteRps: <xsd:complexType name="tcLoteRps"> <xsd:sequence> <xsd:element name="NumeroLote" type="tsNumeroLote" minOccurs="1" maxOccurs="1" /> <xsd:element name="CpfCnpj" type="tcCpfCnpj" minOccurs="1" maxOccurs="1" /> <xsd:element name="InscricaoMunicipal" type="tsInscricaoMunicipal" minOccurs="0" maxOccurs="1" /> <xsd:element name="QuantidadeRps" type="tsQuantidadeRps" minOccurs="1" maxOccurs="1" /> <xsd:element name="ListaRps" minOccurs="1" maxOccurs="1"> <xsd:complexType> <xsd:sequence> <xsd:element name="Rps" type="tcDeclaracaoPrestacaoServico" minOccurs="1" maxOccurs="unbounded" > </xsd:element> </xsd:sequence> </xsd:complexType> </xsd:element> </xsd:sequence> <xsd:attribute name="Id" type="tsIdTag" /> <xsd:attribute name="versao" type="tsVersao" use="required" /> </xsd:complexType> Note que em ambos temos a linha que defini o atributo Id. Nesse Schema que você anexou temos: Definição da tag InfDeclaracaoPrestacaoServico: <xsd:complexType name="tcInfDeclaracaoPrestacaoServico"> <xsd:sequence> <xsd:element name="Rps" type="tcInfRps" minOccurs="0" maxOccurs="1" /> <xsd:element name="Servico" type="tcDadosServico" minOccurs="1" maxOccurs="1" /> <xsd:element name="Prestador" type="tcIdentificacaoPrestador" minOccurs="1" maxOccurs="1" /> <xsd:element name="Tomador" type="tcDadosTomador" minOccurs="0" maxOccurs="1" /> </xsd:sequence> </xsd:complexType> Definição da tag LoteRps: <xsd:complexType name="tcLoteRps"> <xsd:sequence> <xsd:element name="NumeroLote" type="tsNumeroLote" minOccurs="1" maxOccurs="1" /> <xsd:element name="CpfCnpj" type="tcCpfCnpj" minOccurs="1" maxOccurs="1" /> <xsd:element name="InscricaoMunicipal" type="tsInscricaoMunicipal" minOccurs="0" maxOccurs="1" /> <xsd:element name="QuantidadeRps" type="tsQuantidadeRps" minOccurs="1" maxOccurs="1" /> <xsd:element name="ListaRps" minOccurs="1" maxOccurs="1"> <xsd:complexType> <xsd:sequence> <xsd:element name="Rps" type="tcDeclaracaoPrestacaoServico" minOccurs="1" maxOccurs="unbounded"> </xsd:element> </xsd:sequence> </xsd:complexType> </xsd:element> </xsd:sequence> <xsd:attribute name="versao" type="tsVersao" use="required" /> </xsd:complexType> Como você pode ver em nenhum dessas duas definições não consta a linha que defini o atributo Id. Resumindo com esse Schema novo ainda não vai ser possível gerar o valor do atributo URI, uma vez que esse valor é o mesmo valor do atributo Id. E além disso o Schema traz um erro na definição do tipo complexo tcIdentificacaoTomador, veja: <xsd:complexType name="tcIdentificacaoTomador"> <xsd:sequence> <xsd:element name="CpfCnpj" type="tcCpfCnpj" minOccurs="0" maxOccurs="1" /> <xsd:element name="InscricaoMunicipal" type="tsInscricaoMunicipal" minOccurs="0" maxOccurs="1" /> <xsd:element name="tsInscricaoEstadual" type="tsInscricaoEstadual" minOccurs="0" maxOccurs="1" /> </xsd:sequence> </xsd:complexType> Percebeu o erro? O nome do elemento é o mesmo do seu tipo: Errado: <xsd:element name="tsInscricaoEstadual" type="tsInscricaoEstadual" minOccurs="0" maxOccurs="1" /> Correto <xsd:element name="InscricaoEstadual" type="tsInscricaoEstadual" minOccurs="0" maxOccurs="1" /> Por fim consta um XML chamado: modelo-soap-enviar-lote-rps-sincrono.xml, abra esse arquivo e procure por URI, você vai notar que o seu valor é vazio. Essa ultima orientação que lhe passaram vai contra ao Schema e ao exemplo que lhe forneceram.

Bom dia @SisMaster Sistemas, Acabei de fazer um teste usando o seu XML e não ocorreu o problema que você esta tendo. 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.

Olá Pessoal, Já se encontra no SVN a atualização dos fontes de componente ACBrCTe visando a emissão do CT-e Simplificado. Foi enviando também a atualização dos programas exemplos tanto em Delphi quanto em Lazarus, que agora tem uma procedure para exemplificar a alimentação do componente para a emissão do CT-e Simplificado. Peço a todos que façam a atualização dos fontes, reinstale o ACBr e realizem os testes. Até a data de hoje (17/09/2024) somente a SEFAZ-Virtual do RS que disponibilizou as URLs de homologação especificas para o CT-e Simplificado, sendo assim somente RS e as UF atendidas pela SVRS que vão poder realizar os testes neste momento. UF atendidas pela SVRS: AC, AL, AM, BA, CE, DF, ES, GO, MA,PA, PB, PI, RJ, RN, RO, RS, SC, SE e TO. Caso encontre algum erro na emissão do CT-e Simplificado ou no CT-e ou CT-e OS ou GTV-e, por favor criem um tópico no fórum relatando o problema para que possamos sanar o mais breve possível.