Jump to content

dev botao

Cidade de Grajaú Fisslex


Go to solution Solved by Italo Giurizzato Junior,
  • Este tópico foi criado há 650 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Boa tarde, Queria tirar uma duvida se alguém pode me ajudar. 

Estou fazendo NFSe, usando o componente ACBrNFSeX, a cidade é Grajau e usa provedor FISSLex, no momento do envio ele me tras um retorno, nao estou conseguindo identificar.

 

			with xIntegrador.ACBrNFSe.WebService.Emite do
            begin  //Verifica erros na emissão
                if Erros.Count > 0 then
                begin
                    for i := 0 to Erros.Count-1 do
                        sErros := sErros+Erros[i].Codigo+' - '+Erros[i].Descricao+': '+Erros[i].Correcao+
                                  IfThen(Erros.Count > i+1,' | ');
                    raise Exception.Create(sErros);
                end;
            end;

			.... NESTE MOMENTO ....
            with xIntegrador.ACBrNFSe.WebService.ConsultaLoteRps do
            begin //Verifica erros pelo retorno do lote RPS
                if Erros.Count > 0 then
                begin
                    for i := 0 to Erros.Count-1 do
                        sErros := sErros+Erros[i].Codigo+' - '+Erros[i].Descricao+': '+Erros[i].Correcao+
                                  IfThen(Erros.Count > i+1,#13);
                    raise Exception.Create(sErros);
                end;
            end;

No momento do Consulta Lote RPS da o erro alguém sabe que pode ser?

99 - LOTERPS: Conteudo Contem Erros em Sua Estrutura: Deve Ser Informada a Assinatura Digital do LoteRPS

Att,

Renato

 

http://www.edsonbill.com

Link to comment
Share on other sites

  • Consultores

Boa tarde Renato,

Segundo a mensagem o provedor espera que o Lote seja assinado.

Ao enviar o Lote de Rps, o que é assinado?

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link to comment
Share on other sites

@Italo Giurizzato Junior entao o que estou fazendo eu envio o comando "ACBrNFSeX.Emitir", gera o XML e da este erro.

 

<?xml version="1.0" encoding="UTF-8"?>

-<EnviarLoteRpsEnvio xmlns="http://www.abrasf.org.br/ABRASF/arquivos/nfse.xsd">


-<LoteRps id="Lote_1338">

<NumeroLote>1338</NumeroLote>

<Cnpj>XXXXXX0000202</Cnpj>

<InscricaoMunicipal>XXXXX12XXX</InscricaoMunicipal>

<QuantidadeRps>1</QuantidadeRps>


-<ListaRps>


-<Rps>


-<InfRps id="Rps_133832">


-<IdentificacaoRps>

<Numero>1338</Numero>

<Serie>32</Serie>

<Tipo>1</Tipo>

</IdentificacaoRps>

<DataEmissao>2022-05-17T18:44:49</DataEmissao>

<NaturezaOperacao>3</NaturezaOperacao>

<OptanteSimplesNacional>2</OptanteSimplesNacional>

<IncentivadorCultural>2</IncentivadorCultural>

<Status>1</Status>


-<Servico>


-<Valores>

<ValorServicos>0.20</ValorServicos>

<ValorDeducoes>0.00</ValorDeducoes>

<ValorPis>0.00</ValorPis>

<ValorCofins>0.00</ValorCofins>

<ValorInss>0.00</ValorInss>

<ValorIr>0.00</ValorIr>

<ValorCsll>0.00</ValorCsll>

<IssRetido>2</IssRetido>

<ValorIss>0.00</ValorIss>

<ValorIssRetido>0.00</ValorIssRetido>

<OutrasRetencoes>0.00</OutrasRetencoes>

<BaseCalculo>0.00</BaseCalculo>

<ValorLiquidoNfse>0.20</ValorLiquidoNfse>

<DescontoIncondicionado>0.00</DescontoIncondicionado>

<DescontoCondicionado>0.00</DescontoCondicionado>

</Valores>

<ItemListaServico>11.04</ItemListaServico>

<Discriminacao>Servico: SERVIÇOS DE INTERNET ..Quant:1..Preco: R$ 0,20..Total item: R$ 0,20</Discriminacao>

<CodigoMunicipio>XXX4X00</CodigoMunicipio>

</Servico>


-<Prestador>

<Cnpj>XXXXXX0000202</Cnpj>

<InscricaoMunicipal>1102012517</InscricaoMunicipal>

</Prestador>


-<Tomador>


-<IdentificacaoTomador>


-<CpfCnpj>

<Cnpj>XXXXXX1XX00101</Cnpj>

</CpfCnpj>

</IdentificacaoTomador>

<RazaoSocial>XXXXXXX LTDA</RazaoSocial>


-<Endereco>

<Endereco>Rua XXXXX Maio</Endereco>

<Numero>46</Numero>

<Bairro>Centro</Bairro>

<CodigoMunicipio>XXXXX02</CodigoMunicipio>

<Uf>XX</Uf>

<Cep>XXXX02X0</Cep>

</Endereco>


-<Contato>

<Telefone>XXXXX200</Telefone>

</Contato>

</Tomador>

</InfRps>

</Rps>

</ListaRps>

</LoteRps>


-<Signature xmlns="http://www.w3.org/2000/09/xmldsig#">


-<SignedInfo>

<CanonicalizationMethod Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315"/>

<SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1"/>


-<Reference URI="#Lote_1338">


-<Transforms>

<Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature"/>

<Transform Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315"/>

</Transforms>

<DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1"/>

<DigestValue>H0awkaP7FZNF8XGBPDWeOVELkqA=</DigestValue>

</Reference>

</SignedInfo>

<SignatureValue>SliF2qL1S8V+fPpC1jXP7ncv7J2S5CSAGQcl1KNfkF7Jvc5b2M6NBZuw7McjoIk8XSsLvKwufrR6cvTXcwetpqqTy329P6a+TMvXfC5DDGEi/StlKHjU9zqBZeDxaZxdpt2PeolrUVGmevOHO+GVq8s9Apxl18+IXyBsX5TXh24IHMGViPQPj8Sc6i5acmoQVkimOmBE2VREk1O44Jd5NxicuKjVIwyMw1Zm7/Q6OW02FiHEIaWSURag4WtbGa04KJ1CIK+981ICi++43NQcuxAmnSumZm/0MwysvtEX0m03ehpSouzc2y4GMp7HLxhAFqc2ZdRdi3SqqdGbCyRZPw==</SignatureValue>


-<KeyInfo>


-<X509Data>

<X509Certificate>MIIILzCCBhegAwIBAgIQAweMKd0GIM058UVjDZuoGDANBgkqhkiG9w0BAQsFADCBgDELMAkGA1UEBhMCQlIxEzARBgNVBAoTCklDUC1CcmFzaWwxNjA0BgNVBAsTLVNlY3JldGFyaWEgZGEgUmVjZWl0YSBGZWRlcmFsIGRvIEJyYXNpbCAtIFJGQjEkMCIGA1UEAxMbQUMgSW5zdGl0dXRvIEZlbmFjb24gUkZCIEczMB4XDTIyMDQyNTE3NTQxM1oXDTIzMDQyNTE3NTQxM1owgecxCzAJBgNVBAYTAkJSMRMwEQYDVQQKDApJQ1AtQnJhc2lsMQswCQYDVQQIDAJNQTEPMA0GA1UEBwwGR1JBSkFVMTYwNAYDVQQLDC1TZWNyZXRhcmlhIGRhIFJlY2VpdGEgRmVkZXJhbCBkbyBCcmFzaWwgLSBSRkIxFjAUBgNVBAsMDVJGQiBlLUNOUEogQTExFzAVBgNVBAsMDjgxODg1NjM0MDAwMTcwMRMwEQYDVQQLDApQUkVTRU5DSUFMMScwJQYDVQQDDB5HRU5FU0lTQUdSTyBTIEE6MTg2MDQ0NDAwMDAyMDIwggEiMA0GCSqGSIb3DQEBAQUAA4IBDwAwggEKAoIBAQDMKmjuYYOCY5RlOXVQ++ngH2bRK7PB9F5VBKYELl+hDjI07jaszYaF+GZp93RyaGldjaHvmXTF88pUe45+gNUE06u6cMWqW9DzQ7nj7LLHP6zABIK6xihPS2w9CUQ27LgSmY1a8QeIhnrD8yg4vn19qvuyXKCILL2ddevLvLyFmsuEEr2lhOp5Dj0xFCdUSlT6AKp3HmPrdIRK4f+8o/wLn0lfaIXB3RNXf3pWt3v53V9puMm14oKkqf9s0F7zqhQhkxsWxDsW2Budc5V2DLCfJXaDGBxKKfYnqCdcfPRtj7+870nMQw6iNlos3eF218m8nM1a5V0D9/knrepDWKQhAgMBAAGjggM6MIIDNjCBxAYDVR0RBIG8MIG5oEIGBWBMAQMEoDkENzE1MTAxOTY2NjgzNjc5Mzc5NTMwMDAwMDAwMDAwMDAwMDAwMDAzNTMyODc5MzAwMFNTUEFQUFKgIwYFYEwBAwKgGgQYSEVOUklRVUUgVklDVE9SRUxMSSBORVRPoBkGBWBMAQMDoBAEDjE4NjA0NDQwMDAwMjAyoBcGBWBMAQMHoA4EDDAwMDAwMDAwMDAwMIEaRmluYW5jZWlyb0BnZW5lc2lzYWdyby5jb20wCQYDVR0TBAIwADAfBgNVHSMEGDAWgBQmx5Q9eod+f0t4ioc94M+1zqmw2jCBhgYDVR0gBH8wfTB7BgZgTAECASIwcTBvBggrBgEFBQcCARZjaHR0cDovL2ljcC1icmFzaWwuYWNmZW5hY29uLmNvbS5ici9yZXBvc2l0b3Jpby9kcGMvQUMtSW5zdGl0dXRvLUZlbmFjb24tUkZCL0RQQ19BQ19JRmVuYWNvbl9SRkIucGRmMIHKBgNVHR8EgcIwgb8wXqBcoFqGWGh0dHA6Ly9pY3AtYnJhc2lsLmFjZmVuYWNvbi5jb20uYnIvcmVwb3NpdG9yaW8vbGNyL0FDSW5zdGl0dXRvRmVuYWNvblJGQkczL0xhdGVzdENSTC5jcmwwXaBboFmGV2h0dHA6Ly9pY3AtYnJhc2lsLm91dHJhbGNyLmNvbS5ici9yZXBvc2l0b3Jpby9sY3IvQUNJbnN0aXR1dG9GZW5hY29uUkZCRzMvTGF0ZXN0Q1JMLmNybDAOBgNVHQ8BAf8EBAMCBeAwHQYDVR0lBBYwFAYIKwYBBQUHAwIGCCsGAQUFBwMEMIG7BggrBgEFBQcBAQSBrjCBqzBmBggrBgEFBQcwAoZaaHR0cDovL2ljcC1icmFzaWwuYWNmZW5hY29uLmNvbS5ici9yZXBvc2l0b3Jpby9jZXJ0aWZpY2Fkb3MvQUNfSW5zdGl0dXRvX0ZlbmFjb25fUkZCRzMucDdjMEEGCCsGAQUFBzABhjVodHRwOi8vb2NzcC1hYy1pbnN0aXR1dG8tZmVuYWNvbi1yZmIuY2VydGlzaWduLmNvbS5icjANBgkqhkiG9w0BAQsFAAOCAgEAljPA3NyhZ/eAuk0XdW+6k4kUQk9seZ9mI2M9Idx7IzkH+ejl5Vt2bve792kTb5Codpt7cU7cscZjMMFXT2lfi3qaMOKgzcO/PP0xS6xGUKvs96wD0L5CnzpvzYwn2L50tYrn1Ifs5FUcZdw5S/WiIconyjAeOZxQPsXRL4XVXLxwPhDThJHoVMJlaC8T22UiDgngiaUxbZAwql8pAQprBquPxvohiosBwdVqdknG+Ui7FL1EE1uTmqHski17XPmvuLNZymFGIiiaYe5bLwV9Rqru4XtPgyc+aR+Z8VZSGLdhJil2UR+spNHtBYmt36BopYPP9uLXuUQXmgA+m2paYJSj8HPm/Z9N8xaVrMLsx7yeyw6uKQRjElNJ6sxICyd6vjYsfnVAeRfqF7JjdD3P2hmppc4l/vKtlEiYTZT5Shdy874Ucd23xwz7/KBKR2ucQBW8nkrFoHjecYR7x2DjxZHAeXhWbmXxSdp3jGRFsOanDsQiQCP+2mgEU2RQE4LjHliV0KUvKdI7ELQGE+au23spSuT3DsTDdbklfgVfvs2tW+tZskW41F8o6JuHLl9FuevYb7fojToExCWzevXOetsqRgBwWNhX561x2mGb85km3Sq1o8Ht4/kZn56vrDoGMdyL1c1LoHvMEyRGi1QIxhxuL2HGSKD/mZ8LGI1W9m4=</X509Certificate>

</X509Data>

</KeyInfo>

</Signature>

</EnviarLoteRpsEnvio>

 

Att,

Renato

 

http://www.edsonbill.com

Link to comment
Share on other sites

@Italo Giurizzato Junior eu mudei a estratégia, peguei e fiz o update do código fonte, peguei o ACBr Exemplo da ACBrNFSeX, agora esta dando este erro no Exemplo:
Coloquei o Log abaixo, 
Erro(s):
Código  : X999
Mensagem: Erro de Conexão: Input is not proper UTF-8, indicate encoding !
Bytes: 0xE9 0x72 0x69 0x65

 

Citar

Método Executado: Enviar Lote
 
Parâmetros de Envio
Numero do Lote: 1
 
Parâmetros de Retorno
Data de Envio : 18/05/2022
Numero do Prot: MjAyMjA1MTdfXXXXXXXMDk0Ng==
Numero da Nota: 
Link          : 
Código Verif. : 
Sucesso       : True
 
 
Método Executado: ConsultarSituacao
 
Parâmetros de Envio
Numero do Prot: MjAyMjA1MTdfXXXXXXXMDk0Ng==
Numero do Lote: 1
 
Parâmetros de Retorno
Situação Lote : 
Sucesso       : False
 
Erro(s):
Código  : X999
Mensagem: Erro de Conexão: Input is not proper UTF-8, indicate encoding !
Bytes: 0xE9 0x72 0x69 0x65

Correção: 
---------
 
 
Método Executado: ConsultarLote
 
Parâmetros de Envio
Numero do Prot: MjAyMjA1MTdfXXXXXXXMDk0Ng==
Numero do Lote: 
 
Parâmetros de Retorno
Situação Lote : 3
Sucesso       : True
 
Erro(s):
Código  : X999
Mensagem: Erro de Conexão: Input is not proper UTF-8, indicate encoding !
Bytes: 0xE9 0x72 0x69 0x65

Correção: 
---------
 
NFS-e Numero....: 1
Cod. Verificacao: 
Prestador.......: ABC EFG GRAJAU
Tomador.........: INSCRICAO DE TESTE

 

Edited by RenatoE

Att,

Renato

 

http://www.edsonbill.com

Link to comment
Share on other sites

  • Consultores

Bom dia Renato,

Primeiramente, procure sempre anexar o XML e não colocar o seu conteúdo como parte do texto da postagem.

Anexando encurta a postagem e fica mais fácil a analise.

Agora vamos ao erro.

Esse erro esta ocorrendo ao executar o emitir?

Favor configurar o programa exemplo para ele salvar os arquivos Soap e anexe os arquivos XML gerados ao tentar emitir a nota.

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link to comment
Share on other sites

@Italo Giurizzato Junior os outros erros foi resolvido, o que esta dando agora para mim é o
 

Código  : X202
Mensagem: Lista de NFSe não encontrada! (ListaNfse)
			ACBrNFSe.Emitir(IntToStr(agrNFSe.NUMERORPS), xIntegrador.ModoEnvio, false);
            with ACBrNFSe.WebService.Emite do
            begin  //Verifica erros na emissão
                if Erros.Count > 0 then
                begin
                    for i := 0 to Erros.Count-1 do
                        sErros := sErros+Erros[i].Codigo+' - '+Erros[i].Descricao+': '+Erros[i].Correcao+
                                  IfThen(Erros.Count > i+1,' | ');
                    raise Exception.Create(sErros);
                end;
            end;

			........... Na consulta Lote RPS esta dando o erro ...........
            with ACBrNFSe.WebService.ConsultaLoteRps do
            begin //Verifica erros pelo retorno do lote RPS
                if Erros.Count > 0 then
                begin
                    for i := 0 to Erros.Count-1 do
                        sErros := sErros+Erros[i].Codigo+' - '+Erros[i].Descricao+': '+Erros[i].Correcao+
                                  IfThen(Erros.Count > i+1,#13);
                    raise Exception.Create(sErros);
                end;
            end;

 

não estou conseguindo jogar o arquivo aqui, no forum, eu subi o 6 XML de SOAP no sendSpace
https://www.sendspace.com/filegroup/2JCA0tpyyCqinwrbibN1U8hqezTZvhKV%2FxLdMZIqi7LCPZGItFUTVQ

Att,

Renato

 

http://www.edsonbill.com

Link to comment
Share on other sites

  • Consultores

Bom dia Renato,

Você não respondeu a minha pergunta.

Qual é o método que o erro ocorre?

Esse SendSpace quer que eu baixe ele e instale, e eu não vou fazer isso.

Favor verificar se você não atingiu o seu limite de anexos, caso afirmativo exclua os mais antigos para poder anexar os XMLs que eu necessito para analise.

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link to comment
Share on other sites

@Italo Giurizzato Junior Descobri o erro, ele acontecia quando ele ia ler o XML de retorno. Ele não encontrava a tag eu fiz a correção.
 

Código  : X202
Mensagem: Lista de NFSe não encontrada! (ListaNfse)

unit ACBrNFSeXProviderABRASFv1;
=========================================================================================
Antes

procedure TACBrNFSeProviderABRASFv1.TratarRetornoConsultaLoteRps(Response: TNFSeConsultaLoteRpsResponse);

    Response.Situacao := ObterConteudoTag(Document.Root.Childrens.FindAnyNs('SituacaoLoteRps'), tcStr);

      ANode := Document.Root.Childrens.FindAnyNs('ListaNfse');
      if not Assigned(ANode) then
      begin
        AErro := Response.Erros.New;
        AErro.Codigo := Cod202;
        AErro.Descricao := Desc202;
        Exit;
      end;

      ANodeArray := ANode.Childrens.FindAllAnyNs('CompNfse');
      if ANodeArray = nil then
        ANodeArray := ANode.Childrens.FindAllAnyNs('ComplNfse');

      if not Assigned(ANodeArray) then
      begin
        AErro := Response.Erros.New;
        AErro.Codigo := Cod203;
        AErro.Descricao := Desc203;
        Exit;
      end;

=========================================================================================
Resolvido assim:

     Response.Situacao := ObterConteudoTag(Document.Root.Childrens.FindAnyNs('SituacaoLoteRps'), tcStr);

      if Document.Root.Childrens.FindAnyNs('Consultarloterpsresposta') <> nil then
         ANode := Document.Root.Childrens.FindAnyNs('Consultarloterpsresposta')
      else
      begin
        AErro := Response.Erros.New;
        AErro.Codigo := Cod202;
        AErro.Descricao := Desc202;
        Exit;
      end;

      ANode := ANode.Childrens.FindAnyNs('ListaNfse');
      if not Assigned(ANode) then
      begin
        AErro := Response.Erros.New;
        AErro.Codigo := Cod202;
        AErro.Descricao := Desc202;
        Exit;
      end;

      ANodeArray := ANode.Childrens.FindAllAnyNs('CompNfse');
      if ANodeArray = nil then
        ANodeArray := ANode.Childrens.FindAllAnyNs('ComplNfse');

      if not Assigned(ANodeArray) then
      begin
        AErro := Response.Erros.New;
        AErro.Codigo := Cod203;
        AErro.Descricao := Desc203;
        Exit;
      end;


=========================================================================================

Att,

Renato

 

http://www.edsonbill.com

Link to comment
Share on other sites

  • Consultores
  • Solution

Boa tarde Renato,

Essa alteração que você fez devemos evitar ao máximo pois estamos alterando as rotinas das classes bases, repliquei essa rotina para a unit provider do provedor em questão que vai surtir o mesmo efeito.

Amanhã vou enviar para o SVN.

  • Thanks 1
Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link to comment
Share on other sites

  • Consultores

Bom dia Renato,

Faça uma cópia da unit que você alterou.

Depois, atualize os fontes, reinstale o ACBr e faça novos testes.

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link to comment
Share on other sites

×
×
  • 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.