trunk2 erro ao pegar o retorno da nota (codigo de verificação) e nota de São Leopoldo

[danielpohren]

Bom dia.

 

Pergunta "2 em 1"...

Alguma novidade quanto à violação de acesso ao pegar o código de verificação na nota de Novo Hamburgo?

Pergunta 2... O provedor Thema, utilizado em São Leopoldo, está já portado para o Trunk2? Estamos tendo erro nas notas de serviço de São Leopoldo... Se já foi portado vou atrás dos XMLS dos erros.

 

Obrigado

[Italo Giurizzato Junior]

Bom dia Daniel,

Desculpe ainda não tive tempo de checar o erro de violação de acesso.

No que diz respeito a cidade São Leopoldo consta no arquivo Cidades.INI que a mesma se utiliza do provedor Thema.

Logo você pode realizar testes de envio de RPS para essa cidade.

[danielpohren]

Agora a coisa ficou feia mesmo.... O problema na verdade não é no retorno... O furo é bem mais embaixo.....

Depois da ultima mexida, onde aparentemente a nota foi processada mas estava com erro no retorno

Enviei as notas:  vbEnviou := ACBRNfSe.Enviar( StrToInt(ACBrNFSe.NotasFiscais.NumeroLote), False);

vbEnviou retornou "true"... mas não tinha nota nenhuma no retorno lembra?

Só que hoje entrei no site da prefeitura e vi que nenhuma destas notas estão registradas lá....... Ou seja, me retornou true mas não enviou nada

 

[Italo Giurizzato Junior]

Bom dia Daniel,

Quando a função Enviar retorna True significa que todo o seu processo foi executado, mas não significa que os RPS foram aceitos. 

[danielpohren]

 

...

Complementando com informações que podem ser uteis...

Segue um trecho maior do meu fonte

     vbEnviou := False;

       try
            vbEnviou := ACBRNfSe.Enviar( StrToInt(ACBrNFSe.NotasFiscais.NumeroLote), False);
         except
            on e:exception do
            begin
                vsErroValidacao := e.message;
                mStatus.Lines.Add(vsErroValidacao);
                vbEnviou := False;
            end;
         end;

     end;

     if vbEnviou then
     begin
         mXML.Lines.Add(ACBrNFSe.NotasFiscais.items[0].XMLNFSe);

         mRetorno.Lines.Text := UTF8Encode(ACBRNFSe.WebServices.EnviarLoteRPS.RetWS);
         mStatus.Lines.Add('Protocolo: ' + ACBRNFSe.WebServices.EnviarLoteRPS.Protocolo);

         dmNFe.tNotas.Edit;
         dmNFe.tNotasSTATUS_NOTA.Value        := 'EMITIDA';
         DMNFE.tnotaschave_nfe.value          := 'NFE PROT: ' + ACBRNFSe.WebServices.EnviarLoteRPS.Protocolo;    <--- Aqui me dá o numero correto..... ou seja aparentemente o RPS vai, mas não é transformado em nota? Tem como eu testar se deu certo esta transformação? Pois eu sempre mandei desta maneira apenas...

Não sei se ajuda, mas... Enviei a nota para a prefeitura na versão do ACBR do trunk e a nota foi. Comparei os 2 XMLs, e notei que o gerado pelo trunk2 tem uma linha a mais na assinatura, na parte do "transforms"

trecho do trunk

-<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="">
       -<Transforms>
           <Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature"/>
        </Transforms>
        <DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1"/>
        <DigestValue>fnihrNfdu13lu70nlPrIPsH1D8k=</DigestValue>
     </Reference>
</SignedInfo>

no trunk2

-<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="">
       -<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>MBSHR7o1lfGTwD0P3LuKS1TCfps=</DigestValue>
    </Reference>
</SignedInfo>

 

...

...

[Italo Giurizzato Junior]

Boa tarde Daniel,

Dica, quando postar trechos longos de código ou arquivos XML, por favor postar como anexo.

Quanto a linha a mais no grupo Transforms segue o layout padrão de assinatura digital.

Outra coisa, é interessante que você configure o componente para salvar os arquivos soap.

Configuracoes.WebServices.Salvar := True;

E post como anexo todos os arquivos ( *-soap.xml) gerados ao executar o Enviar ( ACBrNFSe - Trunk2 ) para que possamos analisar.

 

[danielpohren]

Italo, não sei de mais nada....

Agora enviei uma nota e gravou no banco de dados da prefeitura...

Terça enviei perto de 100 notas e não registrou nenhuma, daí que me bateu o pavor hoje de manhã.....

Então, voltamos ao tópico original, o retorno

PODE SER que a prefeitura aqui estivesse fora, ou algo do genero terça de manhã, e como eu não estou conseguindo tratar o retorno por causa da violação de acesso aquela não percebi isto....

 

Att,

[Italo Giurizzato Junior]

Daniel,

Vou tentar arrumar um tempo hoje a noite para verificar o retorno do código de verificação.

[danielpohren]

Bom dia!

Alguma evolução na questão do retorno dos dados no envio das nfs?

 

Obrigado!

[Italo Giurizzato Junior]

Bom dia Daniel,

Ocorreram varias alterações nos fontes, caso não esteja com os fontes atualizados, por favor atualize e teste novamente.