Rogerio Holetz

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

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.

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

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.

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?

Beleza Juliomar, na próxima farei desta forma. obrigado.

Tentei de tudo e não consegui resolver. Copiei a mesma função é coloquei na aplicativo desktop e funciona normalmente. Noutra hora vou tentar descobrir o que estou fazendo de errado para não funcionar no servidor.

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;

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

Apenas como dica... Assisti uma palestra do Bruto do Delphi no youtube falando sobre o ACBR, deu uma dica sensacional de como resolver suas dúvidas sobre o ACBrBoleto, que na real ajuda em tudo do ACBr.

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.

Eu olhei, mas vou revisar. Obrigado

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

Olá Bigwings! No caso é uma venda fora do estabelecimento. O caminhão carrega uma série de mercadorias, depois inicia as visitas nos clientes, onde efetua a venda com mobile e emite a nota. É meu primeiro projeto deste tipo e estou tomando uma surra atras da outro, já estou até tonto. (kkkk)

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.