dcpleal
-
Total de ítens
34 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por dcpleal
-
-
Não só usei aqui como em outro fóruns, por isso recorri aqui e perguntei o que fizeram para dar certo.
Já até desinstalei meu antivirus (Kaspersky), coloquei as dll´s na pasta do sistema e na system32 e/ou SysWow64, coloquei só o usuário do e-mail sem o "@ig.com.br", mudei porta, fiz tudo que era possível.
-
Bom dia a todos,
Estou com o mesmo problema no IG, me cliente possui uma conta da empresa no IG e esta dando a mesma mensagem citada pelos amigos.
Pausei o antivirus e mesmo assim continuou e como disse um dos amigos acima parece que ele só testa a porta 25 pois erro aponta ela.
Aguardo uma ajuda se possível.
ERRO: Erro ao enviar email
SMTP ERROR: Login??-Other undefined Status
421 Cannot connect to SMTP server XXX.XXX.XXX.XXX (XXX.XXX.XXX.XXX:25), connect error 10060
-
Boa tarde,
Como foi esse IF que você colocou na Ficha 205?
Aguardo.
-
Eu também não estou conseguindo imprimir o logo, alguem conseguiu?
-
Bom realmente o problema da carta de correção foi o apontado na função SaveToFile, mas não estou conseguindo gravar o XML da carta de correção, ele esta imprimindo tudo certo, mas não esta gravando, o que pode ser feito?
Aguardo.
-
O erro que da conforme eu disse no post anterior nos arquivos .dbf é:
[Microsoft][Driver ODBC para dBase] Erro inesperado causado pelo drivers de banco de dados externo (8458).
-
Então cara esse é outro problema eu tenho uma espécie de robo que le uns arquivos .dbf e na maquina do cliente como é win xp roda tranquilo e na minha máquina que preciso debugar meu windows é o 7 64 bits ai ele não lê os .dbf da erro que não pode abrir os dados e tal.
-
Eu coloquei esta linha para tentar gravar no diretório da nota fiscal na maquina do cliente, porém se ele já grava automático tranquilo ... vc acha que é este o problema?
-
sim mas isto é a resposta que o sefaz deve fazer ao evento certo?
meu codigo esta igual a este que te repassei.
Segue meu codigo:
var codufemp, NumeroLote, CodigoStatus: integer;XMLCCe, MotivoStatus, correcao, arq_nfe, NumeroProtocolo: string;DataHoraEvento: TDateTime;beginif MessageDlg('Deseja enviar Carta de Correção para essa Nota Fiscal?',mtconfirmation,[mbYes,mbNo],0) = mryes thenbegin// numero do lote de envioNumeroLote := StrToInt(FormatDateTime('yymmddhhmm', NOW));NFe.EventoNFe.Evento.Clear;NFe.EventoNFe.idLote := NumeroLote;// preenchimento dos dados da carta de correçãowith NFe.EventoNFe.Evento.Add dobegininfEvento.chNFe := qryNfTransNROCHAVENFE.AsString;infEvento.CNPJ := funcoes.TiraCaracter(DM.qryEmpresaCNPJ.AsString);infEvento.dhEvento := Now;infEvento.tpEvento := teCCe;With DM.qryAux1 doBeginClose;Sql.Clear;Sql.Add('SELECT (CASE WHEN PROTOCOLO_CCE IS NOT NULL THEN 2 ELSE 1 END) AS SEQ FROM NOTA_FISCAL '+'WHERE NRONF = '+qryNfTransNRONF.AsString+' '+' AND NROCHAVENFE = '''+qryNfTransNROCHAVENFE.AsString+''' '+' AND CODEMPRESA = '+UPrincipal.CodEmpresa+' ');Open;infEvento.nSeqEvento := DM.qryAux1.FieldByName('SEQ').AsInteger;End;infEvento.detEvento.descEvento := 'Carta de Correção';if not(InputQuery('Informe o motivo da carta de correção', 'Motivo', correcao)) thenexit;infEvento.detEvento.xCorrecao := correcao;infEvento.detEvento.xCondUso := 'A Carta de Correcao e disciplinada pelo paragrafo 1o-A do art. '+'7o do Convenio S/N, de 15 de dezembro de 1970 e pode ser utilizada '+'para regularizacao de erro ocorrido na emissao de documento fiscal, '+'desde que o erro nao esteja relacionado com: I - as variaveis que '+'determinam o valor do imposto tais como: base de calculo, aliquota, '+'diferenca de preco, quantidade, valor da operacao ou da prestacao; '+'II - a correcao de dados cadastrais que implique mudanca do remetente '+'ou do destinatario; III - a data de emissao ou de saida. ';end;// envio da carta de correçãoif NFe.EnviarEventoNFe(NumeroLote) thenbeginwith NFe.WebServices.EnvEvento dobeginif not(EventoRetorno.retEvento.Items[0].RetInfEvento.cStat in [135, 136]) thenbeginraise 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;// retornosDataHoraEvento := 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;NFe.Configuracoes.Geral.PathSalvar := DM.qryEmpresaPATHARQNFE.AsString;NFe.NotasFiscais.Items[0].SaveToFile;mResp.Lines.Add('Data e hora do evento: '+FormatDateTime('dd/MM/yyyy', DataHoraEvento));mResp.Lines.Add('Protocolo de envio CC-e: '+NumeroProtocolo);mResp.Lines.Add('Arquivo XML: '+XMLCCe);mResp.Lines.Add('Status: '+IntToStr(CodigoStatus)+' - '+MotivoStatus);ACBrNFeDANFERaveCB1.MostrarPreview := True;NFe.NotasFiscais.Clear;NFe.NotasFiscais.LoadFromString(qryNfTransPATHNFE.AsString);NFe.EventoNFe.Evento.Clear;NFe.EventoNFe.LerXMLFromString(XMLCCe);NFe.ImprimirEvento;//Geração do arquivo PDFNFe.DANFE.PathPDF := DM.qryEmpresaPATHARQPDF.AsString;ACBrNFeDANFERaveCB1.MostrarPreview := True;NFe.NotasFiscais.Clear;NFe.NotasFiscais.LoadFromString(qryNfTransPATHNFE.AsString);NFe.EventoNFe.Evento.Clear;NFe.EventoNFe.LerXMLFromString(XMLCCe);NFe.ImprimirEventoPDF;With qryAux1 doBeginClose;Sql.Clear;Sql.Add('UPDATE NOTA_FISCAL '+' SET PROTOCOLO_CCE = '''+NumeroProtocolo+''', '+' ARQCCE = '''+arq_nfe+''' '+'WHERE NRONF = '+qryNfTransNRONF.AsString+' '+' AND NROCHAVENFE = '''+qryNfTransNROCHAVENFE.AsString+''' '+' AND CODEMPRESA = '+UPrincipal.CodEmpresa+' ');ExecSql;DM.transLoteamento.CommitRetaining;End;end;endelsebeginwith NFe.WebServices.EnvEvento dobeginraise 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;end;end; -
Isso não existe mesmo essa função retEvento.Items.count
eu fiz como pede este link veja:
http://www.regys.com.br/como-enviar-uma-carta-de-correcao-utilizando-o-acbrnfe/
Abraços
-
Boa noite,
sim esse é o codigo sim, não sei o que colocar no lugar do 0, o que sugestionam?
Aguardo.
-
Segue exemplo retirado do artigo: http://www.regys.com.br/como-enviar-uma-carta-de-correcao-utilizando-o-acbrnfe/
// Adicione a unit pcnConversao ao uses. // numero do lote de envio NumeroLote := StrToInt(FormatDateTime('yymmddhhmm', NOW)); // preenchimento dos dados da carta de correção ACBrNFe.EventoNFe.Evento.Clear; ACBrNFe.EventoNFe.idLote := NumeroLote; with ACBrNFe.EventoNFe.Evento.Add do begin infEvento.chNFe := ChaveNFe; infEvento.CNPJ := CnpjEmitente; infEvento.dhEvento := Now; infEvento.tpEvento := teCCe; infEvento.nSeqEvento := <Numero Sequencial>; infEvento.detEvento.xCorrecao := <Texto da Carta de Correção>; end; // envio da carta de correção 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;
Boa tarde,
segui a orientação que foi dada acima pelo regys.silveira e quando tento emitir e imprimir da erro List index in bound (0) ou algo semelhante, não consigo gravar o xml da carta de correção e muito menos imprimi-la, seria possivel alguem me ajudar? Aguardo.
-
Boa tarde a todos,
Estou fazendo a carta de correção eletronica e toda vez que vou enviar ele da essa mensagem de erro:
Falha na validação dos dados do Envio de Evento'ID110110351301639840660001835500100000362310000301' viola a restrição pattern de 'ID[0-9]{52}'.Falha da análise do atributo 'Id' com valor 'ID110110351301639840660001835500100000362310000301'.O que poderá ser?Aguardo. -
Boa tarde a todos,
Estou fazendo a carta de correção eletronica e toda vez que vou enviar ele da essa mensagem de erro:
Falha na validação dos dados do Envio de Evento'ID110110351301639840660001835500100000362310000301' viola a restrição pattern de 'ID[0-9]{52}'.Falha da análise do atributo 'Id' com valor 'ID110110351301639840660001835500100000362310000301'.O que poderá ser?Aguardo. -
Eu faço atualização como SVN, portanto, quanto vem atualização vem em todos os módulos.
-
Acabei de constatar que o problema é no NFeMonitor que vem junto com o ACBr, nas minhas aplicações o problema não apareceu.
-
E o que podemos fazer com a mensagem de Consumo indevido?
-
Resolvi aqui deu certo... redeclared a unit que você disseram ai e deu certo... porem no projeto ACBr.
-
Esse fragmento é uma unit do pacote ACBr e não do meu sistema.
-
Fiz a atualização ontem era quase 23:30.
-
Mas o problema não é na minha aplicação e sim nessa unit que você mencionou.
-
Bom dia,
A uses esta adicionada mas as funções estavam comentadas, eu apenas tirei o comentário e voltou a funcionar normalmente.
Abraços.
-
Boa noite,Fiz download da atualização dos arquivos do ACBr, executei a instalação do mesmo que agora vem em anexo um instalador.Porém quando vou compilar o monitor ou mesmo o software que possuo para execução da nota fiscal eletrônica o arquivo DoACBrNFeUnit.pas apresenta erro nesta sintaxe if abaixo:if NotaUtil.NaoEstaVazio(Cmd.Params(1)) thenACBrNFe1.DANFE.Impressora := Cmd.Params(1)elseACBrNFe1.DANFE.Impressora := cbxImpressora.Text;O erro diz que a função "NaoEstaVazio" não existe, mas essa função é usada em várias situações.Alguém saberia como resolver?Aguardo.
-
Boa noite,
Estou tentando instalar os arquivos da nova nota fiscal eletronica de serviços e esta dando a seguinte mensagem ao tentar instalar o pacote ACBrNFSeDANFSeRL.dpk
[Fatal Error] ACBrNFSeDanfseRLpkg.dpk(55): File not found: 'ACBrNFSeDANFSeRL.dcu'
Realizei o download de toda a pasta do ACBr pela SVN e mesmo assim não consigo criar este arquivo.
No caso do arquivo ACBrNFSeDanfseQR da o erro abaixo:
[Fatal Error] ACBrNFSeDanfseQRpkg.dpk(47): Required package 'QR5RunD7' not found
Se alguem puder me ajudar agradeceria.
Abraços
Danilo Leal
Problemas Em Enviar E-Mail
em ACBrNFe
Postado
Já fiz tudo isso e a não estou usando a porta 25 e sim a 465 mas ele insiste em dar o erro na porta 25.