Ricardo Menon Luchesi

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

Italo Obrigado,

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

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

Italo Ok, agora não está gravando. Obrigado,

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;

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

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

juliomar Tem alguma posição quanto ao problema acima ? Obrigado,

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

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;

Alguem poderia me ajudar ?

ME DESCULPE MAS NAO ENTENDI

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,

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

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

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

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

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

Juliomar Você tem alguma posição ? obrigado,

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

Juliomar, Tem alguma resposta sobre o assunto acima Obrigado

Regys Muito Obrigado !!! att,

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

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