Cidade de Grajaú Fisslex

[RenatoE]

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

[Italo Giurizzato Junior]

Boa tarde Renato,

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

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

[RenatoE]

@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>

 

[RenatoE]

@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

 

Editado 18 Maio, 2022 por RenatoE

[Italo Giurizzato Junior]

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.

[RenatoE]

@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

[Italo Giurizzato Junior]

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.

[RenatoE]

@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;

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

[Italo Giurizzato Junior]

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.

[RenatoE]

Blz, quando subir já pego esta alteração, Obrigado!

[Italo Giurizzato Junior]

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.