Ir para conteúdo
  • Cadastre-se

Rogerio Holetz

Membros
  • Total de ítens

    24
  • Registro em

  • Última visita

Posts postados por Rogerio Holetz

  1. Insisti com o cliente e acabo de descobrir que o problema era a SENHA, foi alterada no outlook e não no sistema. 

    Já serve de exemplo para outros programadores, porque a mensagem de erro da localweb era... Servidor requer autenticação

    Valeu pessoal

    • Curtir 1
  2. Sim, vi este e outros no fórum, mas nada muito atual, inclusive um meu de 2018 com o mesmo problema, veja que desde então estava funcionando. Pedi ao cliente que envie um e-mail para a localweb, a questão é que tentei todas as combinações possíveis, e nada.

  3. Bom dia!

    Li todos os posts sobre esse assunto no fórum e nada funcionou... Até semana passada enviava e-mails normalmente, e então... Erro, servidor requer autenticação, em teoria uma alteração na localweb porque não houve atualização do meu sistema, iniciei então a saga para resolver, atualizei o ACBr, e utilizei o  ACBrMail para testar, usei todas as configurações possíveis, li as mensagens no fórum... E nada. Alguém possou ou está passando por este problemas neste últimos dias?

    Valeu

  4. Bom dia!

    O erro está no meu código, ainda não resolvi, fiz um debug e percebi que o arquivo que estou mandando para o SEFAZ é um mais antigo, não é o que acabei de gerar... Ainda vou verificar porque isto está ocorrendo principalmente porque a versão que o cliente está usando não foi alterada.

  5. Bom dia!

    Vi alguns mensagens aqui sobre o assunto, mas não encontrei uma solução, até ontem o cliente emitia Nfe sem problemas chegou no número 10000, hoje a fazer a validação da 10001 apresenta erro 539, duplicidade, tentei avançar para próximo número, mesmo erro, avançamos mais um e segue o erro.

    Consultei no SEFAZ Nacional e no Estadual, só consta até a nota 10000 a duas que tentamos emitir hoje não constam da base de ambos, a 10000 consta em ambas.

    Atualizei o ACBr a uns 10 dias e a versão que o cliente tem é já com essa base do ACBr. E como mencionei até ontem tudo funcionava, o software não foi atualizado nem a máquina onde está. 

    Windows do cliente é original, Anti-virus Norton original , e tudo isso já estava assim ontem quando tudo funcionava.

    Verifiquei o serviço do SEFAZ-SC na real RS que atende SC, até estava meio instável mais cedo, mas agora está estável.

    Alguém já passou ou está passando por isso? 

  6. Esse é o terceiro código, tô quase louco, o cliente está louco.

    function TSmGerais.Boletos2(aRegistro: TJsonObject): string;
    var
      lResultado     : TJSONObject;

      Titulo         : TACBrTitulo;
      LinhaDigitavel : string;
      codigoBarras   : string;
      qtBoletos      : integer;

      sCODIGOEMPRESA : string;
      sCODIGOBANCO   : string;
      sGERARPDF      : string;
      sIMPRIMIR      : string;
      sNUMEROREMESSA : string;
      sFAZERREMESSA  : string;
    begin
      result := EmptyStr;

      sCODIGOEMPRESA := (aRegistro as TJSONObject).Values['CODIGOEMPRESA'].Value;
      sCODIGOBANCO   := (aRegistro as TJSONObject).Values['CODIGOBANCO'].Value;
      sGERARPDF      := (aRegistro as TJSONObject).Values['GERARPDF'].Value;
      sIMPRIMIR      := (aRegistro as TJSONObject).Values['IMPRIMIR'].Value;
      sNUMEROREMESSA := (aRegistro as TJSONObject).Values['NUMEROREMESSA'].Value;
      sFAZERREMESSA  := (aRegistro as TJSONObject).Values['FAZERREMESSA'].Value;

      //Dados Banco
      try
        dadosBanco(StrToInt(sCODIGOBANCO));
      Except ON E:exception do
        begin
          frmPrincipal.RichEdit1.Lines.Add('=============================');
          frmPrincipal.RichEdit1.SelAttributes.Color := frmPrincipal.vermelho;
          frmPrincipal.RichEdit1.Lines.Add('Emissão boleto');
          frmPrincipal.RichEdit1.Lines.Add('Erro procedure dadosBanco');
          frmPrincipal.RichEdit1.SelAttributes.Color := frmPrincipal.vermelho;
          frmPrincipal.RichEdit1.Lines.Add(E.Message);
          abort;
        end;
      end;

      //Dados Emitente
      try
        dadosEmitente(sCODIGOEMPRESA);
      Except ON E:exception do
        begin
          frmPrincipal.RichEdit1.Lines.Add('=============================');
          frmPrincipal.RichEdit1.SelAttributes.Color := frmPrincipal.vermelho;
          frmPrincipal.RichEdit1.Lines.Add('Emissão boleto');
          frmPrincipal.RichEdit1.Lines.Add('Erro procedure dadosEmitente');
          frmPrincipal.RichEdit1.SelAttributes.Color := frmPrincipal.vermelho;
          frmPrincipal.RichEdit1.Lines.Add(E.Message);
          abort;
        end;
      end;

      with ACBrBoleto do
      begin
        ListadeBoletos.Clear;

        ACBrBoletoFC.LayOut := lPadraoEntrega;

        ACBrBoletoFC.Filtro := fiNenhum;
        DirArqRemessa       := bancoLocalRemessaBanco;
        DirArqRetorno       := bancoLocalRetornoBanco;

        //Define o que for específico de cada banco
        if bancoNumeroBanco = 1 then
        begin
          Banco.TipoCobranca := cobBancoDoBrasil;
          Cedente.Convenio   := bancoCedenteConvenio;
          Cedente.Modalidade := bancoCedenteVariacao;
          LayoutRemessa      := c240;
        end
        else if bancoNumeroBanco = 85 then
        begin
          Banco.TipoCobranca := cobBancoCECRED;
          Cedente.Convenio   := bancoCedenteConvenio;
          LayoutRemessa      := c240;
        end
        else if bancoNumeroBanco = 748 then
        begin
          Banco.TipoCobranca := cobSicred;
          //Banco.TipoCobranca := cobBancoDoBrasil;
          //Cedente.Convenio   := bancoCedenteConvenio;
          Cedente.Modalidade := bancoModalidade;
          LayoutRemessa      := c240;
        end;

        with banco do
        begin
          Numero         := bancoNumeroBanco;
          Nome           := BancoNome;
          LocalPagamento := bancoLocalPagamento;
        end;

        with Cedente do
        begin
          FantasiaCedente := RemoveAcentos(emitenteFantasia);
          Nome            := RemoveAcentos(emitenteRazaoSocial);
          Logradouro      := emitenteEndereco;
          NumeroRes       := emitenteNumero;
          Bairro          := emitenteBairro;
          Cidade          := emitenteCidade;
          Uf              := emitenteUf;
          CEP             := SONUMEROS(emitenteCep);
          Telefone        := emitenteFone;
          Nome            := emitenteRazaoSocial;
          CNPJCPF         := SoNumeros(emitenteCNPJ);
          CodigoCedente   := IntToStr(bancoCodigoCedente);
          Agencia         := bancoAgencia;
          AgenciaDigito   := bancoAgenciaDigito;
          Conta           := bancoConta;
          ContaDigito     := bancoContaDigito;
          Modalidade      := bancoModalidade;
        end;

        //Buscando boletos
        fdqBoletoDados.Active := True;
        fdqBoletoDados.Close;
        fdqBoletoDados.SQL.Clear;
        fdqBoletoDados.SQL.Add('SELECT * FROM TB_BoletoDados          ');
        fdqBoletoDados.SQL.Add('WHERE (NUMEROREMESSA = :NUMEROREMESSA)');
        fdqBoletoDados.SQL.Add('  AND (EMITIDO = :EMITIDO)            ');
        fdqBoletoDados.SQL.Add('ORDER BY SEQUENCIA                    ');
        fdqBoletoDados.ParamByName('NumeroRemessa').AsInteger := StrToInt(sNUMEROREMESSA);
        fdqBoletoDados.ParamByName('Emitido').AsString        := 'NÃO';
        fdqBoletoDados.Open;
        fdqBoletoDados.First;

        if sFAZERREMESSA = 'NÃO' then
        begin
          Titulo := ACBrBoleto.CriarTituloNaLista;
        end;


        while Not fdqBoletoDados.Eof do
        begin
          if fdqBoletoDadosCodigoCliente.AsInteger > 0 then
          begin
            if sFAZERREMESSA = 'SIM' then
            begin
              Titulo := ACBrBoleto.CriarTituloNaLista;
            end;

            //Destinatário
            fdqCliente.Active := True;
            fdqCliente.Close;
            fdqCliente.SQL.Clear;
            fdqCliente.SQL.Add('SELECT * FROM TB_CLIENTE');
            fdqCliente.SQL.Add('WHERE CODIGO = :CODIGO');
            fdqCliente.ParamByName('CODIGO').AsInteger := fdqBoletoDadosCODIGOCLIENTE.AsInteger;
            fdqCliente.Open;

            destinatarioNome     := RemoveAcentos(fdqClienteNOME.AsString);
            destinatarioEndereco := RemoveAcentos(fdqClienteEndereco.AsString);
            destinatarioNumero   := fdqClienteNumero.AsString;
            destinatarioBairro   := fdqClienteBairro.AsString;
            destinatarioCidade   := fdqClienteCidade.AsString;
            destinatarioUf       := fdqClienteUF.AsString;
            destinatarioCep      := fdqClienteCep.AsString;
            destinatarioCNPJ     := fdqClienteCNPJ.AsString;
            destinatarioTipo     := fdqClienteTIPO.AsString;

            fdqCliente.Close;
            fdqCliente.Active := false;

            with Titulo do
            begin
              if bancoProtestar = 'CORRIDOS' then
              begin
                TipoDiasProtesto      := diCorridos;
                CodigoNegativacao     := cnProtestarCorrido;
              end
              else if bancoProtestar = 'ÚTEIS' then
              begin
                TipoDiasProtesto      := diUteis;
                CodigoNegativacao     := cnProtestarUteis;
              end;
              Vencimento              := fdqBoletoDadosVencimento.AsDateTime;
              DataDocumento           := fdqBoletoDadosDataDocumento.AsDateTime;
              NumeroDocumento         := fdqBoletoDadosNumeroDocumento.AsString;
              EspecieDoc              := 'DM';
              DataProcessamento       := Now;
              Carteira                := bancoCarteira;
              ValorDocumento          := fdqBoletoDadosValor.AsFloat;
              Sacado.NomeSacado       := destinatarioNome;
              if destinatarioTipo = 'JURÍDICA' then
                Sacado.Pessoa := pJuridica
              else
                Sacado.Pessoa := pFisica;
              Sacado.CNPJCPF          := SoNumeros(destinatarioCNPJ);
              Sacado.Logradouro       := destinatarioEndereco;
              Sacado.Numero           := destinatarioNumero;
              Sacado.Bairro           := destinatarioBairro;
              Sacado.Cidade           := destinatarioCidade;
              Sacado.UF               := destinatarioUf;
              Sacado.CEP              := SoNumeros(destinatarioCEP);
              ValorAbatimento         := fdqBoletoDadosValorAbatimento.AsFloat;
              LocalPagamento          := bancoLocalPagamento;
              ValorMoraJuros          := bancoJurosmes;
              ValorDesconto           := fdqBoletoDadosValorDesconto.AsFloat;
              ValorOutrasDespesas     := fdqBoletoDadosValorOutrasDespesas.AsFloat;
              DataMoraJuros           := fdqBoletoDadosVencimento.AsDateTime + bancoNumDiasJuros;
              DataDesconto            := fdqBoletoDadosVencimento.AsDateTime;
              DataAbatimento          := fdqBoletoDadosVencimento.AsDateTime;
              DataMulta               := fdqBoletoDadosVencimento.AsDateTime + bancoNumDiasJuros;
              PercentualMulta         := bancoMultaAtraso;
              OcorrenciaOriginal.Tipo := toRemessaRegistrar;
              NossoNumero             := IntToStr(fdqBoletoDadosNossoNumero.AsInteger);
              Instrucao1              := PadRight(trim(boletoInstrucao1),2,'0');
              Instrucao2              := PadRight(trim(boletoInstrucao2),2,'0');
              Mensagem.Text           := bancoObservacao;
            end;

            //try
            //  ACBrBoletoFC.NomeArquivo := bancoLocalBoleto +
            //                              StrZero(DmMem.memBoletoSerie.AsInteger,3) +
            //                              StrZero(StrToint(DmMem.memBoletoNumeroDocumento.AsString),6) +
            //                              '-' +
            //                              strZero(DmMem.memBoletoParcela.AsInteger,3) +
            //                              '.PDF';
            //finally
            //  frmPrincipal.RichEdit1.Lines.Add(bancoLocalBoleto +
            //                                     StrZero(DmMem.memBoletoSerie.AsInteger,3) +
            //                                     StrZero(StrToint(DmMem.memBoletoNumeroDocumento.AsString),6) +
            //                                     '-' +
            //                                     strZero(DmMem.memBoletoParcela.AsInteger,3) +
            //                                     '.PDF');
            //end;

            //sleep(3000);

            if sGERARPDF = 'SIM' then
            begin
              //frmPrincipal.RichEdit1.Lines.Add(
              try
                ACBrBoletoFC.NomeArquivo := bancoLocalBoleto +
                                          StrZero(fdqBoletoDadosSerie.AsInteger,3) +
                                          StrZero(StrToint(fdqBoletoDadosNumeroDocumento.AsString),6) +
                                          '-' +
                                          strZero(fdqBoletoDadosParcela.AsInteger,3) +
                                          '.PDF';
              except on E:Exception do
                begin
                  frmPrincipal.RichEdit1.Lines.Add('**** ERRO COLOCAR NOME ****');
                  frmPrincipal.RichEdit1.Lines.Add(e.Message);
                  abort;
                end;
              end;

              try
                GerarPDF;

                frmPrincipal.RichEdit1.Lines.Add(bancoLocalBoleto +
                                                 StrZero(fdqBoletoDadosSerie.AsInteger,3) +
                                                 StrZero(StrToint(fdqBoletoDadosNumeroDocumento.AsString),6) +
                                                 '-' +
                                                 strZero(fdqBoletoDadosParcela.AsInteger,3) +
                                                 '.PDF');
              except on E:Exception do
                begin
                  frmPrincipal.RichEdit1.Lines.Add('**** ERRO GERAR PDF ****');
                  frmPrincipal.RichEdit1.Lines.Add(e.Message);
                  abort;
                end;
              end;

            end;

            if sIMPRIMIR = 'SIM' then
              ACBrBoletoFCFortes1.Imprimir;

            LinhaDigitavel := ACBrBoleto.Banco.MontarLinhaDigitavel(AcBRBoleto.Banco.MontarCodigoBarras(AcBRBoleto.ListadeBoletos.Objects[0]), AcBRBoleto.ListadeBoletos.Objects[0]);
            codigoBarras   := ACBrBoleto.Banco.MontarCodigoBarras(Titulo);

            //sleep(3000);

            Result := LinhaDigitavel;

            //Grava linha digitável no a receber
            try
              lJson := TJsonObject.Create;
              lJson.AddPair('SEQUENCIA',IntToStr(fdqBoletoDadosSequencia.AsInteger));
              lJson.AddPair('CODIGOBARRABOLETO',codigoBarras);
              lJson.AddPair('LINHADIGITAVELBOLETO',LinhaDigitavel);
              lJson.AddPair('NOSSONUMERO',IntToStr(fdqBoletoDadosNossoNumero.AsInteger));

              sMensagem := RECEBER(lJson,'L');
            finally

            end;
          end;
          fdqBoletoDados.Next;
        end;

        qtBoletos := ListadeBoletos.Count;

        result := 'OK';

        //if StrToInt(sNUMEROREMESSA) > 0 then
        if sFAZERREMESSA = 'SIM' then
        begin
          try
            ACBrBoleto.GerarRemessa(StrToInt(sNUMEROREMESSA));
            result := 'OK';
          except on E:Exception do
            begin
              result := 'ERRO';
            end;
          end;
        end;

      end;

      fdqBoletoDados.Close;
      fdqBoletoDados.active := false;

    end;

  7. Minha aplicação desktop envia para um servidor de aplicação datasnap os dados para emissão de boletos, se eu mandar sucessivos boleto em um determinado momento ocorre um erro, mesmo que eu mande apenas um boleto repetidamente, sempre o mesmo, em um determinado momento o mesmo erro ocorre. 

           try
             GerarPDF;

              frmPrincipal.RichEdit1.Lines.Add(bancoLocalBoleto +
                                               StrZero(DmMem.memBoletoSerie.AsInteger,3) +
                                               StrZero(StrToint(DmMem.memBoletoNumeroDocumento.AsString),6) +
                                               '-' +
                                               strZero(DmMem.memBoletoParcela.AsInteger,3) +
                                               '.PDF');
            except on E:Exception do
              begin
                frmPrincipal.RichEdit1.Lines.Add('**** ERRO GERAR PDF ****');
                frmPrincipal.RichEdit1.Lines.Add(e.Message);
                //DmMem.memBoleto.Close;
                //DmMem.memBoleto.active := false;
                abort;
              end;
            end;

    **** ERRO GERAR PDF ****   (Meu tratamento exception)
    Invalid font for GetOutlineTextMetrics (mensagem do e.mesage)

    Atualizei vis SVN e reinstalei hoje, antes o erro já ocorria.

    Depurando cheguei a esse ponto, o estranho é que funciona durante 

    image.png.c6f3a24b6234519fdadeba634a611d37.png

  8. Boa tarde!

    Homologuei essa semana, iria postar aqui no final de semana... Homologou com o padrão que está no ACBR. O exemplo que uma pessoa do banco me mandou era 085-0 mas passou normalmente com 085-1.

    Pode mandar para a validação que o exemplo está errado e o ACBR está correto.

     

     

    • Obrigado 1
  9. Estou fazendo um boleto para o banco AILOS 085, no boleto ao lado da logo pelo modelo que o banco me enviou deveria aparece 085-0 mas aparece 085-1, vi um post aqui sobre isso de 2018, acredito que é da época em que a CECRED virou AILOS, neste post não há uma solução... 

    Estou vivendo esse problema hoje, pelo tempo que passou devo estar fazendo algo errado, só não sei o que, a remessa também está estranha, não carrega os títulos e não está no formato que o banco me mandou, noutros bancos a rotina está OK.

    Atualizei o ACBr hoje, recompilei e não resolveu, e uma coisa que me chamou atenção foi que nas logos o banco 085 segue sendo o do CECRED.

    Atenciosamente

    Rogério Holetz

  10. Bom dia!

    Estou fazendo alguns testes com NFE em modo de contingência,

    Comandos na emissão:

    Ide.dhCont := Now;
    Ide.tpEmis := teOffline;
    Ide.xJust := 'Emissão em contingência por falha de conexão';

    Funciona perfeitamente, quando mando imprimir a DANFE em tamanho normal A4 aparece a marca d'água informando que é nota em contingência, tudo correto, porém ao emitir o mesmo XML com a DANFE simplificada não aparece essa informação, o restante aparece da forma correta, só não aparece a marca d'água com a informação da contingência.

    Comandos para impresão:

    ACBrNFe1.NotasFiscais.Clear;
    ACBrNFe1.NotasFiscais.LoadFromFile(LocalXml,False);
    ACBrNFe1.DANFE := DmFiscal.ACBrNFeDANFeRL1;
    ACBrNFeDANFeRL1.TipoDANFE := tiRetrato;
    ACBrNFeDANFeRL1.TipoDANFE := tiSimplificado;

    ACBrNFe1.NotasFiscais.Imprimir;
     

    O que estou fazendo de errado?

    Desde já agradeço.

  11. Bom dia!

    Está tudo preenchido, quando entro no site da locaweb funciona perfeitamente, pelo sistema não vai, porém usei outra conta do cliente pelo sistema e funciona sem problema. Irei verificar com a locaweb, deve ter algum problema lá, algo relacionado com segurança. Desculpe-me o incomodo.

    !image.png.f9f4e7e5d0ce6d13efe3a64715ade2de.png

  12. Boa noite!

    Tenho um aplicação rodando em um cliente, compilada com o trunk mandando e-mail normalmente pela Locaweb, fiz uma nova versão já com trunk2, não consigo enviar de forma alguma, se mudar para yahoo envia sem problemas.

    Usando o exemplo do ACBr dá o seguinte erro.

    image.png.7c807171c623a7c9956c020da9e31f63.png

    Li diversos posts sobre isso mas não consegui resolver.

    Porta:587

    TLS: true

    Alguém consegue me dar uma luz por favor.

     

  13. Boa tarde!

    Este é o conteúdo do log de retorno no ACBR

    <?xml version="1.0" encoding="UTF-8"?>

    -<retEnviNFe xmlns="http://www.portalfiscal.inf.br/nfe" versao="3.10">

    <tpAmb>2</tpAmb>

    <verAplic>SVRS201603081012</verAplic>

    <cStat>410</cStat>

    <xMotivo>Rejeicao: UF informada no campo cUF nao e atendida pelo Web Service</xMotivo>

    <cUF>35</cUF>

    <dhRecbto>2016-11-11T15:01:57-02:00</dhRecbto>

    </retEnviNFe>

     

    Estranhei  <cUF>35</cUF> pois estou usando SC que seria 42, talvez quando não ache responda por SP que é 35.

    Esse é meu primeiro projeto com o ACBr então a surra está sendo grande.

    Outra coisa muito estranha que pode esta relacionada é a data/hora estou informando assim...

     Ide.cNF     := strToInt(NumeroNota.Text);
     Ide.natOp   := Cfop.Text;
     Ide.indPag  := ipPrazo;                     
     Ide.modelo  := 55;
     Ide.Serie   := StrToInt(Serie.Text);
     Ide.nNF     := strToInt(NumeroNota.Text);
     Ide.dEmi    := DataEmissao.Date ;
     Ide.dSaiEnt := DataSaida.Date;
     ide.hSaiEnt := now;

     if TipoNfe.Text = 'SAÍDA' then
       Ide.tpNF     :=  tnSaida
     else
       Ide.tpNF     :=  tnEntrada;
     

    Mas no XML a data fica conforme imagem.

     

     

     

     

     

    CRHHappyDaysDocs42161185150613000168550010000000011000000010-nfe.xml - Internet Explorer.jpg

  14. Desinstalei tudo, instalei novamente, dai percebi que não havia marcado a opção de instalar o pacote relativo a Danfe com rave, mas gostria de uma explicação de como faço para instalar outras partes do pacote, como por exemplo a da impressão do boleto e da própria Danfe com o Fortes Report que consegui instalar anteiormente agora após a reinstalção do componente não funciona mais.

  15. Havia apagado uma hoje durante a tarde, ao ler no fórum que isso poderia ser problema, encontrei mais uma agora, apaguei mas segue com o mesmo problema, é necessário reinstalar o componente ou reiniciar a máquina? Sim usei o instalador ACBrInstall.

  16. Olá pessoal,

     

    Ao abrir o Demo da ACBrNFe aparecem dois erros,

     

    Class TACBrNFeDANFERAVE not Found

    e

    Class TACBrNFeDANFERAVECB not Found

     

    Estou usando Delphi XE com o Rave 9.0 BE, baixei ontem o ACBr e atualizei pelo SVN hoje, alguém sabe como resolver isso?

     

    Grato.

×
×
  • 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.