Ir para conteúdo
  • Cadastre-se

dev botao

ACBrNFe - ACBrNFe.WebServices.Enviar.dhRecbto


Ver Solução Respondido por Italo Giurizzato Junior,

Recommended Posts

  • Membros Pro

Estou com uma situação que ao utilizar ACBrNFe.WebServices.Enviar.dhRecbto estou recebendo uma data 30/12/1899. Os outros campos, como por exemplo ACBrNFe.WebServices.Enviar.Protocolo e ACBrNFe.WebServices.Enviar.cStat vem correto, somente o dhRecbto esta vindo errado. Não seria essa a forma de pegar a data? Teria uma outra forma entao?

Link para o comentário
Compartilhar em outros sites

  • Moderadores

Tópico movido para a área do SAC, para que o SLA de respostas seja considerado

34 minutos atrás, janderson@atron disse:

Estou com uma situação que ao utilizar ACBrNFe.WebServices.Enviar.dhRecbto estou recebendo uma data 30/12/1899. Os outros campos, como por exemplo ACBrNFe.WebServices.Enviar.Protocolo e ACBrNFe.WebServices.Enviar.cStat vem correto, somente o dhRecbto esta vindo errado. Não seria essa a forma de pegar a data? Teria uma outra forma entao?

está enviando sincrono?

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Transparent-02.png
 

 

Link para o comentário
Compartilhar em outros sites

  • 3 semanas depois ...
  • Consultores

Bom dia @janderson@atron.

O problema ainda persiste?

Como questionado pelo Juliomar, você está fazendo o envio de forma síncrona ou assíncrona?

Seus fontes estão atualizados e em dia com o SVN?

Se você conferir no arquivo de retorno do web service, consta a informação da dhRecbto?

 

  • Curtir 1
Consultor SAC ACBr

Diego Folieni
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link para o comentário
Compartilhar em outros sites

  • Membros Pro
Em 27/08/2024 at 07:54, Diego Foliene disse:

Bom dia @janderson@atron.

O problema ainda persiste?

Como questionado pelo Juliomar, você está fazendo o envio de forma síncrona ou assíncrona?

Seus fontes estão atualizados e em dia com o SVN?

Se você conferir no arquivo de retorno do web service, consta a informação da dhRecbto?

 

Boa tarde.

O envio esta sendo feito no modo Sincrono - ACBrNFe.Enviar(1,False,True);

Os fontes estão atualizados.

E abaixo o retorno do webservise. O campo dhRecbto vem no XML vem correto, mas o utilizando ACBrNFe.WebServices.Enviar.dhRecbto para pegar esta dada ainda continua vindo 30/12/1899

<retEnviNFe versao="4.00"
            xmlns="http://www.portalfiscal.inf.br/nfe">
    <tpAmb>2</tpAmb>
    <verAplic>SVRS2408131252</verAplic>
    <cStat>104</cStat>
    <xMotivo>Lote processado</xMotivo>
    <cUF>11</cUF>
    <dhRecbto>2024-08-28T15:06:06-04:00</dhRecbto>
    <protNFe versao="4.00">
        <infProt>
            <tpAmb>2</tpAmb>
            <verAplic>SVRS2408131252</verAplic>
            <chNFe>11240835329956000116550020000000471681663024</chNFe>
            <dhRecbto>2024-08-28T15:06:06-04:00</dhRecbto>
            <nProt>311240000013707</nProt>
            <digVal>geaGeTmmKtUcH5+nZzkEfExX3AU=</digVal>
            <cStat>100</cStat>
            <xMotivo>Autorizado o uso da NF-e</xMotivo>
        </infProt>
    </protNFe>
</retEnviNFe>

O @Juliomar Marchetti através do Discord sugeriu utilizar o ACBrNFe.NotasFiscais.Items[0].NFe.procNFe.dhRecbto
Este campo vem com a data correta somente com a nota é autorizada, mas se tiver uma rejeição ela vem tamém como 30/12/1899



Em resumo...
ACBrNFe.NotasFiscais.Items[0].NFe.procNFe.dhRecbto com nota autoriza vem a data e hora correta. Caso tenha rejeição vem a data 30/12/1899

ACBrNFe.WebServices.Enviar.dhRecbto Tanto a nota AUTOZIADA quanto a REJEITADA vem a data 30/12/1899

Eu salvo estes dados no banco de dados 

  qry := TFDQuery.Create(nil);
  qry.Connection := Model.Connection.FConnection;
  qry.Active := False;
  qry.sql.Clear;
  qry.sql.Add('insert into erp.nfe_eventos(');
  qry.SQL.Add('    id_empresa,');
  qry.SQL.Add('    id_nfe,');
  qry.SQL.Add('    tpevento,');
  qry.SQL.Add('    tpamb,');
  qry.SQL.Add('    veraplic,');
  qry.SQL.Add('    cstat,');
  qry.SQL.Add('    xmotivo,');
  qry.SQL.Add('    cuf,');
  qry.SQL.Add('    dhrecbto,');
  qry.SQL.Add('    protocolo,');
  qry.SQL.Add('    recibo,');
  qry.SQL.Add('    retws,');
  qry.SQL.Add('    xml');
  qry.SQL.Add(') values (');
  qry.SQL.Add('    :id_empresa,');
  qry.SQL.Add('    :id_nfe,');
  qry.SQL.Add('    :tpevento,');
  qry.SQL.Add('    :tpamb,');
  qry.SQL.Add('    :veraplic,');
  qry.SQL.Add('    :cstat,');
  qry.SQL.Add('    :xmotivo,');
  qry.SQL.Add('    :cuf,');
  qry.SQL.Add('    :dhrecbto,');
  qry.SQL.Add('    :protocolo,');
  qry.SQL.Add('    :recibo,');
  qry.SQL.Add('    :retws::xml,');
  qry.SQL.Add('    :xml::xml');
  qry.SQL.Add(')');
  qry.ParamByName('id_empresa').Value := Fid_empresa;
  qry.ParamByName('id_nfe').Value := Fid_nfe;
  qry.ParamByName('tpevento').Value := 'Envio NFe';
  
  case ACBrNFe.WebServices.Enviar.TpAmb of
    taProducao: qry.ParamByName('tpamb').Value := '1 - Produção'; 
    taHomologacao: qry.ParamByName('tpamb').Value := '2 - Homologação';
  end;
  
  qry.ParamByName('veraplic').Value := ACBrNFe.WebServices.Enviar.verAplic;
  qry.ParamByName('cstat').Value := ACBrNFe.WebServices.Enviar.cStat;
  qry.ParamByName('xmotivo').Value := ACBrNFe.WebServices.Enviar.xMotivo;
  qry.ParamByName('cuf').Value := ACBrNFe.WebServices.Enviar.cUF;
  qry.ParamByName('dhrecbto').Value := {ACBrNFe.NotasFiscais.Items[0].NFe.procNFe.dhRecbto; //}ACBrNFe.WebServices.Enviar.dhRecbto;
  qry.ParamByName('protocolo').Value := ACBrNFe.WebServices.Enviar.Protocolo;
  qry.ParamByName('recibo').Value := ACBrNFe.WebServices.Enviar.Recibo;
  
  //xml de resposta do webservice
  qry.ParamByName('retws').DataType := ftWideMemo;
  qry.ParamByName('retws').Value := ACBrNFe.WebServices.Enviar.RetWS;
  
  //xml completo da nfe
  qry.ParamByName('xml').DataType := ftWideMemo;
  qry.ParamByName('xml').Value := ACBrNFe.NotasFiscais.Items[0].XML;
  
  qry.ExecSQL;
  qry.Free;

Link para o comentário
Compartilhar em outros sites

  • 2 semanas depois ...
  • Consultores

Boa tarde!

Estamos verificando esta questão.

Damos um retorno assim que descobrirmos algo.

  • Curtir 1
Consultor SAC ACBr

Diego Folieni
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link para o comentário
Compartilhar em outros sites

  • Consultores
  • Solution

@janderson@atron,

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

  • Curtir 2
Consultor SAC ACBr

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

Projeto ACBr

Analista de Sistemas / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está agora fechado para novas respostas
×
×
  • 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.