Ricardo Menon Luchesi

Obrigado Sergio, deu certo

Sergio bom dia, Qual arquivo devo editar, sou novo no acbr

Estou como seguinte problema apos atualizar para a versao 4.0 Error reading ACBRNfe1.Configuracoes.geral.incluirqrcodexmlnfce: property incluirqrcodexmlnfve does bnot exist. Obrigado

Fiz o processo de atualização para versao 4.0 e ao abrir o Delphi da o seguinte erro [DCC Fatal Error] Un_frmMenu.pas(1313): F2051 Unit ACBrGNREGuiaFRDM was compiled with a different version of ACBrGNREGuiaClass.TACBrGNREGuiaClass poderiam me ajudar

Estou com o seguinte erro ACBREmail : unable emailto obrigado

17/09/2015 - URGENTE: Faltam poucos dias para a desativação dos ambientes de autorização de documentos eletrônicos! Os ambientes ?antigos? de autorização de documentos eletrônicos da Sefaz Virtual do Rio Grande do Sul (SVRS) e do RS (SEFAZ-RS) serão desativados em 01-outubro-2015. As empresas que ainda não migraram seus sistemas de emissão para o ambiente novo precisam fazê-lo até 30-setembro, sob pena de ficarem sem poder emitir documentos eletrônicos (NF-e, NFC-e, CT-e, MDF-e)! Mais informações no site da SEFAZ/RS (Clique aqui: notícia publicada em 01-jul). é necessário alterar alguma rotina ? Obrigado

Estou usando uma variavel para o caminho do arquivo e da o erro : add attachment : file not exists, só que existe, o que pode ser ? dmVendas.ACBrMail1.AddAttachment(vDir); vdir é a variável Obrigado

Juliomar, estou usando a versao 3,1

Desculpa, Componente com o Fastreport, atualizei da versao 2 para a 3 e começou a dar o erro Obrigado

Pessoal, A Danfe nao abre para eu imprimir, o que pode ser ? Obrigado

boa tarde, estou testando mas nao existe a opcao de enviar danfe ?

Quanto a gerar a Danfe está ok porém gostaria de enviar por email para os clientes, como faço Obrigado,

italo Eu consulto no Sefaz e nao aparece como cancelada obrigado

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 ?