Jump to content

dcpleal

Membros
  • Posts

    34
  • Joined

  • Last visited

Everything posted by dcpleal

  1. 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.
  2. 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.
  3. 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
  4. Boa tarde, Como foi esse IF que você colocou na Ficha 205? Aguardo.
  5. Eu também não estou conseguindo imprimir o logo, alguem conseguiu?
  6. dcpleal

    Impressao CCe

    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.
  7. dcpleal

    Impressao CCe

    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).
  8. dcpleal

    Impressao CCe

    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.
  9. dcpleal

    Impressao CCe

    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?
  10. dcpleal

    Impressao CCe

    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; begin if MessageDlg('Deseja enviar Carta de Correção para essa Nota Fiscal?',mtconfirmation,[mbYes,mbNo],0) = mryes then begin // numero do lote de envio NumeroLote := StrToInt(FormatDateTime('yymmddhhmm', NOW)); NFe.EventoNFe.Evento.Clear; NFe.EventoNFe.idLote := NumeroLote; // preenchimento dos dados da carta de correção with NFe.EventoNFe.Evento.Add do begin infEvento.chNFe := qryNfTransNROCHAVENFE.AsString; infEvento.CNPJ := funcoes.TiraCaracter(DM.qryEmpresaCNPJ.AsString); infEvento.dhEvento := Now; infEvento.tpEvento := teCCe; With DM.qryAux1 do Begin Close; 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)) then exit; 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ção if NFe.EnviarEventoNFe(NumeroLote) then begin with NFe.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; 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 PDF NFe.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 do Begin Close; 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; end else begin with NFe.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; end; end;
  11. dcpleal

    Impressao CCe

    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
  12. dcpleal

    Impressao CCe

    Boa noite, sim esse é o codigo sim, não sei o que colocar no lugar do 0, o que sugestionam? Aguardo.
  13. dcpleal

    Impressao CCe

    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.
  14. 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.
  15. dcpleal

    Impressao CCe

    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.
  16. Eu faço atualização como SVN, portanto, quanto vem atualização vem em todos os módulos.
  17. Acabei de constatar que o problema é no NFeMonitor que vem junto com o ACBr, nas minhas aplicações o problema não apareceu.
  18. E o que podemos fazer com a mensagem de Consumo indevido?
  19. Resolvi aqui deu certo... redeclared a unit que você disseram ai e deu certo... porem no projeto ACBr.
  20. Esse fragmento é uma unit do pacote ACBr e não do meu sistema.
  21. Mas o problema não é na minha aplicação e sim nessa unit que você mencionou.
  22. 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.
  23. 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)) then ACBrNFe1.DANFE.Impressora := Cmd.Params(1) else ACBrNFe1.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.
  24. 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
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.