[Cancelamento De Nfe]

    Gera o XML de cancelamento mas no SEFAZ não aparece a nf como cancelada e percebi que o XML nao consta a parte mostrada abaixo

 

 

</evento>

- <retEvento versao="1.00">

- <infEvento>

  <tpAmb>1</tpAmb>

  <verAplic>SP_EVENTOS_PL_100</verAplic>

  <cOrgao>35</cOrgao>

  <cStat>135</cStat>

  <xMotivo>Evento registrado e vinculado a NF-e</xMotivo>

  <chNFe>35140761246245000198550010000251511000000085</chNFe>

  <tpEvento>110111</tpEvento>

  <xEvento>Cancelamento registrado</xEvento>

  <nSeqEvento>1</nSeqEvento>

  <CNPJDest>61390498000130</CNPJDest>

  <dhRegEvento>2014-07-23T14:20:35-03:00</dhRegEvento>

  <nProt>135140449940704</nProt>

  </infEvento>

  </retEvento>

  </procEventoNFe>

 

Obrigado

[Tag Nitemped]

Italo

 

  Obrigado,

[Tag Nitemped]

Tem um cliente que está solicitando que no XML gerado o Nr.Item do Pedido (tag nItemPed) não saia Zeros a Esquerda, isso é possível ?

 

Obrigado

[Carta De Correção]

Italo,

 

   eu consigo abrir e imprimir este XML, como faço com a DANFE ?

 

att,

[Carta De Correção]

Italo

 

  Ok, agora não está gravando.

 

Obrigado,

[Carta De Correção]

estou com o seguinte problema no envio da carta de correção

 

 

   Ocorreu o seguinte erro ao enviar a carta de correção 

   Codigo : 494

  Motivo : rejeicao chave de acesso inexistente para o tpEvento que exige a existencia da Nf-e

 

segue como estou fazendo :

 

  NumeroLote := StrToInt(FormatDateTime('yymmddhhmm', NOW));

 

  acbrnfe.EventoNFe.evento.Clear;

  acbrnfe.EventoNFe.idLote := Numerolote;

 

with ACBrNFe.EventoNFe.Evento.Add do

begin

  infEvento.chNFe      := edChave.text;

  infEvento.CNPJ       := '61246245000198';

  infEvento.dhEvento   := Now;

  infEvento.tpEvento   := teCCe;

  infEvento.nSeqEvento := 1;

  infEvento.detEvento.xCorrecao := 'Nr. de Volumes 12';

end;

 

 

 

  if ACBrNFe.EnviarEventoNFe(NumeroLote) then

begin

  with ACBrNFe.WebServices.EnvEvento do

  begin

    if not(EventoRetorno.retEvento.Items[0].RetInfEvento.cStat in [135, 136]) then

    begin

      raise EDatabaseError.CreateFmt(

        'Ocorreu o seguinte erro ao enviar a carta de correção:'  + sLineBreak +

        'Código:%d' + sLineBreak +

        'Motivo: %s', [

          EventoRetorno.retEvento.Items[0].RetInfEvento.cStat,

          EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo

      ]);

    end;

 

    // retornos

    DataHoraEvento  := EventoRetorno.retEvento.Items[0].RetInfEvento.dhRegEvento;

    NumeroProtocolo := EventoRetorno.retEvento.Items[0].RetInfEvento.nProt;

    XMLCCe          := EventoRetorno.retEvento.Items[0].RetInfEvento.XML;

    CodigoStatus    := EventoRetorno.retEvento.Items[0].RetInfEvento.cStat;

    MotivoStatus    := EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo;

  end;

end

else

begin

  with ACBrNFe.WebServices.EnvEvento do

  begin

    raise Exception.Create(

      'Ocorreram erros ao enviar a Carta de Correção:' + sLineBreak +

      'Lote: '     + IntToStr(EventoRetorno.idLote) + sLineBreak +

      'Ambiente: ' + TpAmbToStr(EventoRetorno.tpAmb) + sLineBreak +

      'Orgao: '    + IntToStr(EventoRetorno.cOrgao) + sLineBreak +

      sLineBreak +

      'Status: '   + IntToStr(EventoRetorno.cStat) + sLineBreak +

      'Motivo: '   + EventoRetorno.xMotivo

    );

  end;

end;

[Carta De Correção]

Juliomar

 

    coloquei a pasta referente o SCHEMA no ACBrNfe1.PathSchemas e rodei novamente

 

    aparece : Ambiente : 1

                   Versao Aplicativo :

                   Status Codigo : 0

                   Status Descrição :

 

 

   dei OK e aparece outra tela  sem nada escrito só da para digitar OK

 

Obrigado

[Carta De Correção]

JUliomar

 

  tem alguma sugestão pois ja tentei de tudo e nao estou conseguindo

 

Obrigado

[Carta De Correção]

juliomar

 

  Tem alguma posição quanto ao problema acima ?

 

Obrigado,

[Carta De Correção]

juliomar

  

foi exatamente este exemplo que peguei e esta dando este erro 

 

  Falha na validacao dos dados do envio do evento 

the attribute "ID"  with value  ID110110351476124500019855001000025019100400000125019  failed to parse

[Carta De Correção]

JUliomar

 

   deu um outro erro agora "Falha na Validacao dos Dados do envio do evento ", segue abaixo como estou fazendo 

 

procedure TFrmConsNFVendas.rzbtbtn4Click(Sender: TObject);

var

 Numerolote      : Integer;

 DataHoraEvento  : TDateTime;

 NumeroProtocolo : string;

 XMLCCe          : string;

 CodigoStatus    : Integer;

 MotivoStatus    : string;

 

 

begin

 

  NumeroLote := StrToInt(FormatDateTime('yymmddhhmm', NOW));

 

  acbrnfe.EventoNFe.evento.Clear;

  acbrnfe.EventoNFe.idLote := Numerolote;

 

with ACBrNFe.EventoNFe.Evento.Add do

begin

  infEvento.chNFe      := edChave.text;

  infEvento.CNPJ       := '61246245000198';

  infEvento.dhEvento   := Now;

  infEvento.tpEvento   := teCCe;

  infEvento.nSeqEvento := 25019;

  infEvento.detEvento.xCorrecao := 'Nr. de Volumes 12';

end;

 

 

 

  if ACBrNFe.EnviarEventoNFe(NumeroLote) then

begin

  with ACBrNFe.WebServices.EnvEvento do

  begin

    if not(EventoRetorno.retEvento.Items[0].RetInfEvento.cStat in [135, 136]) then

    begin

      raise EDatabaseError.CreateFmt(

        'Ocorreu o seguinte erro ao enviar a carta de correção:'  + sLineBreak +

        'Código:%d' + sLineBreak +

        'Motivo: %s', [

          EventoRetorno.retEvento.Items[0].RetInfEvento.cStat,

          EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo

      ]);

    end;

 

    // retornos

    DataHoraEvento  := EventoRetorno.retEvento.Items[0].RetInfEvento.dhRegEvento;

    NumeroProtocolo := EventoRetorno.retEvento.Items[0].RetInfEvento.nProt;

    XMLCCe          := EventoRetorno.retEvento.Items[0].RetInfEvento.XML;

    CodigoStatus    := EventoRetorno.retEvento.Items[0].RetInfEvento.cStat;

    MotivoStatus    := EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo;

  end;

end

else

begin

  with ACBrNFe.WebServices.EnvEvento do

  begin

    raise Exception.Create(

      'Ocorreram erros ao enviar a Carta de Correção:' + sLineBreak +

      'Lote: '     + IntToStr(EventoRetorno.idLote) + sLineBreak +

      'Ambiente: ' + TpAmbToStr(EventoRetorno.tpAmb) + sLineBreak +

      'Orgao: '    + IntToStr(EventoRetorno.cOrgao) + sLineBreak +

      sLineBreak +

      'Status: '   + IntToStr(EventoRetorno.cStat) + sLineBreak +

      'Motivo: '   + EventoRetorno.xMotivo

    );

  end;

end;

[Carta De Correção]

Alguem poderia me ajudar ?

[Carta De Correção]

ME DESCULPE MAS NAO ENTENDI

[Carta De Correção]

Pessoal

 

Estou testando a Carta de Correção do ACBRDEMO e está dando a seguinte mensagem 

 

    Project ACBrNfe_demo.exe raised exception class EACBrNfeException with message "

 

 

 

    Antes  aparece a tela

 

   Ambiente : 1

   Versão Aplicativo :

   Status Codigo : 0

   Status Descrição

 

Obrigado,

[Erro Ao Gerar O Pdf]

Juliomar

 

  Desculpe respondi no lugar errado  !!!!!

 

   entrei no .pas carreguei o DANFE.Fr3 do diretorio exemplos depois selecionei todos os datasets e salvei, recompilei o meu aplicativo e não deu certo, o que percebi que quando entro novamente no .pas está como não tivesse salvo.

 

Obrigado

[Nfce - Impressão Danfe Com Fast Report]

Juliomar

 

   entrei no .pas carreguei o DANFE.Fr3 do diretorio exemplos depois selecionei todos os datasets e salvei, recompilei o meu aplicativo e não deu certo, o que percebi que quando entro novamente no .pas está como não tivesse salvo.

 

Obrigado

[Erro Ao Gerar O Pdf]

ao abrir o .pas deu o seguinte erro error reading frxPDFExport.dataonly : property dataonly no exist

 

o que faço

[Erro Ao Gerar O Pdf]

Juliomar,

  

  me desculpe mas continuo com o mesmo problema, você poderia me ajudar ?

 

Obrigado

[Nao Esta Gerando O Danfe]

Gera o XML mas não gera a Danfe, estou usando o Fastreport (FastFile) da o seguinte erro 

 

     DataSet "Identificacao" não existe

 

O mesmo erro acontece também com o exemplo que vem no ACBR 

 

 

Por favor alguém poderia me ajudar, estou com nfs paradas

[Erro Ao Gerar O Pdf]

Juliomar

 

  Você tem alguma posição ?

 

obrigado,

[Erro Ao Gerar O Pdf]

eu usei o ACBRINSTALL, o que está acontecendo é que demora bastante nao abre a DANfe e da o erro DATASET "Identificacao" nao existe mas gera o XML

[Erro Ao Gerar O Pdf]

Juliomar,

 

   Tem alguma resposta sobre o assunto acima

 

Obrigado

[Erro Out Fo Memory Ao Executar O Recuperarxml]

Regys

 

  Muito Obrigado !!!

 

att,

[Erro Ao Gerar O Pdf]

Juliomar,

 

   Veja se estou fazendo certo

 

  Hoje esta assim 

 

dmVendas.ACBrNFe1.Configuracoes.Geral.PathSalvar := IncludeTrailingPathDelimiter('C:\NFE\XML');

dmVendas.ACBrNFe1.Configuracoes.Geral.PathSchemas := 'C:\NFE\Schemas';

dmvendas.ACBrNFe1.Configuracoes.WebServices.Ambiente :=  StrToTpAmb(OK,'1'); //1-Producao

dmVendas.ACBrNFeDANFEFR1.FastFile := 'C:\NFE\ReportBin\DANFE.fr3';

dmVendas.ACBrNFeDANFEFR1.PathPDF  := 'C:\NFE\ReportBin\Danfe.pdf';

dmVendas.ACBrNFe1.DANFE.PathPDF   := VDIRDANFE;  //'C:\NFE\ReportBin\Danfex.Pdf';

dmVendas.ACBrNFe1.DANFE.Logo := 'C:\NFE\LOGO\LOGO.JPG';

 

 

copiei o arquivo DANFE.FR3 que esta no ACBR para a pasta acima

 

quanto usar o danfe para modelo 55 e com o nome em nfce para o 65 nao tenho ideia como fazer

 

 

att

[Erro Ao Gerar O Pdf]

Juliomar

 

  Desculpe a minha ignorância é a primeira vez que estou mexendo no ACBR, você poderia me orientar como verifico.

 

  desculpe o transtorno 

 

Obrigado