Ir para conteúdo
  • Cadastre-se

danielpohren

Membros Pro
  • Total de ítens

    118
  • Registro em

  • Última visita

Posts postados por danielpohren

  1. Boa tarde!

    A boa notícia, o envio da nota voltou a funcionar, enviei e consultei depois no site da prefeitura e a nota estava lá.

    A má notícia é que voltou o problema original, aquele lá do começo do trunk2 de não conseguir pegar o retorno...

    Após enviar a nota --> ACBRNfSe.Enviar( StrToInt(ACBrNFSe.NotasFiscais.NumeroLote), False);

    Ao tentar pegar código de verificação, 

    tanto com   --> ACBrNFSe.WebServices.ConsNFSeRps.RetornoNFSe.ListaNFSe.CompNFSe.Items[0].NFSe.CodigoVerificacao

    quanto com --> ACBrNFSe.WebServices.ConsLote.RetornoNFSe.ListaNFSe.CompNFSe.Items[0].NFSe.CodigoVerificacao

    tenho violação de acesso, pois nos dois casos o RetornoNFSe está nil....

  2. Obrigado!

    Na verdade vi que eu nunca tinha alimentado as propriedades de configuração abaixo, pois aparentemente até alguns dias atrás não era obrigatório? que passei a alimentar como segue, e o erro anterior passou...:

         AcbrNfse.Configuracoes.Geral.Emitente.CNPJ       := dmnfe.tNotasEmitente_CNPJ.Value;
         AcbrNfse.Configuracoes.Geral.Emitente.InscMun    := dmnfe.tNotasEMITENTE_INSCRICAO_MUNICIPAL.Value;
         AcbrNfse.Configuracoes.Geral.Emitente.RazSocial  := dmnfe.tNotasEMITENTE_Nome.value;
     

    Mas daí o que ocorrem os erros:

     

    Se alimento     acbrnfse.NotasFiscais[0].nfse.Prestador := dmnfe.tNotasEmitente_CNPJ.Value

    O elemento '{http://www.issnetonline.com.br/webserviceabrasf/vsd/tipos_complexos.xsd}Cnpj' é inesperado, de acordo com o modelo de conteúdo do elemento pai '{http://www.issnetonline.com.br/webserviceabrasf/vsd/tipos_complexos.xsd}Prestador'.

     

    Se não alimento

    Erro ao Assinar. O XML informado possui CNPJ diferente do Certificado Digital

     

     

  3. Bom dia!

    A partir da última atualização não consigo mais enviar notas para Novo Hamburgo... Está me dando o erro:

    '' viola a restrição length de '11'.

    Falha da análise do elemento '{http://www.issnetonline.com.br/webserviceabrasf/vsd/tipos_complexos.xsd}Cpf' com valor ''.

     

    Sendo que no caso tanto prestador quanto tomador são pessoas JURIDICAS, e estou alimentando normalmente o CNPJ deles:

         Prestador.Cnpj               := dmnfe.tNotasEmitente_CNPJ.Value;
         PrestadorServico.IdentificacaoPrestador.Cnpj               := dmnfe.tNotasEmitente_CNPJ.Value;
         Tomador.IdentificacaoTomador.CpfCnpj            := dmnfe.tNotasDESTINATARIO_CNPJ.Value;

     

    Att,


     

     

  4. Bom dia.

    Infelizmente ainda não consigo fazer minha rotina de NFS-e funcionar a contento com os fontes do trunk2.....

    AS notas estão sendo enviadas, mas ainda não vem nada no retorno... Tanto que a seguinte linha dá violação de acesso, uma vez que CompNFSE vem como nil:

    dmNFe.tNotasNRO_PROTOCOLO.Value := ACBrNFSe.WebServices.ConsNFSeRps.RetornoNFSe.ListaNFSe.CompNFSe.Items[0].NFSe.CodigoVerificacao; 
     

  5. 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,

  6.  

    ...

    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>

     

    ...

    ...

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

     

  8. Bom dia!

    O comando

    ACBrNFSe.WebServices.ConsNFSeRps.RetornoNFSe.ListaNFSe.CompNFSe.Items[0].NFSe.CodigoVerificacao

    deu violação de acesso, debugando vi que  ACBrNFSe.WebServices.ConsNFSeRps.RetornoNFSe.ListaNFSe.CompNFSe.Items[0].NFSe

    está com o valor nil... Parece que não retornou nada da prefeitura?

    Complementando, não sei se a informação é relevante...

    Dando um "ctrl+F7" debugando dentro do delphi em ACBrNFSe.WebServices.ConsNFSeRps

    Me mostrou:

    ('soap12', 'xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap12="http://www.w3.org/2003/05/soap-envelope"', 'nfeCabecMsg', 'nfeDadosMsg', '', '', '', '', '', '', '', '', $F6F684, $F6F708, 'con-nfse-rps', 'comp-nfse', '', '', '', $F6F684, $F9576C, proNenhum, stNFSeConsulta, LayNfseConsultaNfseRps, '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', ve100, '', '', '', 0, nil, '', '', '', '', '', '', '', '') 

    e em ACBrNFSe.WebServices.ConsNFSeRps.RetornoNFSe mostrou nil

     

    Att,

  9. Foi!

    Obrigado!

    Agora tive uma violação de acesso no retorno mas eu me viro por aqui deve ser coisa minha.

     

    Muito obrigado, você é o cara!

    Apenas para finalizar...

    estou enviando a nota, e dando tudo certo, com:

       ACBRNfSe.Enviar( StrToInt(ACBrNFSe.NotasFiscais.NumeroLote), False);

    o codigo de verificaçao pegava na linha abaixo, que agora está me dando violação de acesso...

        ACBrNFSe.WebServices.ConsLote.RetornoNFSe.ListaNFSe.CompNFSe.Items[0].NFSe.CodigoVerificacao  

    mudou a maneira de eu pegar este codigo?

     

    Obrigado!

     

     

  10. Bom, acabei de excluir todos arquivos da pasta GER e mandar novamente a nota, para ter certeza que só tem arquivos não manipulados por ninguem aqui.

     

    O erro: O servidor não pôde processar a solicitação. ---> Referência de objeto não definida para uma instância de um objeto.

     

    Estes 4 arquivos foram gerados... Na pasta "ger" não gerou nada agora....

     

    É isto?

     

    Obg!

     

    2451-env-lot.xml

    2451-env-lot-soap.xml

    2451-rec.xml

    2451-rec-soap.xml

  11. Boa tarde!

    Estou apelando porque realmente preciso de uma orientação quanto ao que fazer....

     

    Precisei atualizar para Trunk2 por causa das NTS 2015.002 e 2015.003 Mas não posso mandar a atualização para meus clientes, pois eles utilizam serviço (issnet prioritariamente - Novo Hamburgo/RS) e no trunk2 tenho sempre este erro no retorno... É o mesmo aplicativo, não tenho como ter o trunk baixado em uma máquina e o trunk2 em outra, como chegou a ser sugerido...

    Alterei já no meu fonte as chamadas e as propridades da nota de serviço para as do trunk2 para poder compilar, mas estou nesta cilada.... 

    Vi lá no forum que alguem postou os fontes com a solução (não cheguei a testar aqui para não ficar com fontes diferentes do projeto original).... 

     

    Enfim, minha pergunta é se os fontes postador no forum da NFSE estão em avaliação para serem integrados ao trunk2, ou caso não, como devo proceder?

    Obrigado,

  12. Boa tarde!

    Estou emitindo as notas fiscais agora utilizando o modo SINCRONO de envio, mas estou me deparando com uma situação que não estou conseguindo tratar... Quando ocorre uma falha ao pegar os dados do retorno da nota fiscal, por qualquer motivo, como queda da internet, banco de dados, enfim...

    Nesta situação a nota fiscal é enviada mas não tenho no retorno o protocolo nem o XML... No modo assincrono era fácil, eu tinha o recibo gerado para "re-consultar" a nota fiscal... Agora não sei como proceder, pois o reenvio da nota gera, obviamente, um erro de duplicidade...

    Como recupero o protocolo e principalmente o XML desta nota, uma vez que ela não foi ainda manifestada, pois estou com este erro na geração dela...

    Esta situação é bastante rara, mas quando ocorre incomoda bastante...

     

    Obrigado!

     

     

  13. Boa tarde.

    Estou conseguindo agora tratar o retorno do ACBrNFe.DownloadNFe 

    Está gerando pra mim o XML compactado, mas copiei a função do Italo :) e consigo tratar os pedaços dele individualmente.  Compartilho aqui a solução, para ajudar um pouco também, aqui onde sempre sou ajudado. Como é um fonte pequeno, colo aqui.

     

    Colocar no USES:  ZLibExGZ, synacode

     

    Function DescompactaStr(vsInput: String): String;

    var
       vsAux: String;
       StrStream: TStringStream;
    begin
         vsAux := DecodeBase64(vsInput);
     
         StrStream := TStringStream.Create('');
         StrStream.WriteString(vsAux);
         Result := GZDecompressStr(StrStream.DataString);
         FreeAndNil(StrStream);
     
    end;
     
     
    Na rotina onde baixo o xml:
    ...
               ACBRNfe.Download;
               vsXMLRetorno := ACBrNFe.WebServices.DownloadNFe.retDownloadNFe.retNFe.Items[0].procNFe;
     
               vsXmlCliente     := DescompactaStr(GetPedacoXml(vsXMLRetorno, 'NFeZip'));
               vsXmlProtocolo := DescompactaStr(GetPedacoXml(vsXMLRetorno, 'protNFeZip'));
     
    ....
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.