Ir para conteúdo
  • Cadastre-se

dcpleal

Membros
  • Total de ítens

    34
  • Registro em

  • Última visita

Posts postados por dcpleal

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

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

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

  4. 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).

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

  6. 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;
  7. 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.

  8. 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.
  9. 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.
  10. 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.
  11. 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

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.