Andre Cristiano Ittner

Sicredi

Bom dia a Todos, Estava tentando entender como funciona o processo de geração do boleto pix pelo modo de arquivos cnab240, vendo o manual que o banco me passou e vendo o componente AcbrBoleto, e fazendo uns testes não consegui fazer aparecer no boleto o QRCode, então olhando no manual do banco vi que no retorno de remessa e "Segmento Y4" tem um campo "URL do QrCode" ai a minha pergunta "Só posso imprimir o boleto com o QRCode quando eu receber esse retorno? o componente não gera essa URL ?" acho muita informação com API mas não por arquivo CNAB desde ja obrigado!

Pode ser porque um computador esta emitindo uma nota fiscal e outro estar consultando ? apesar de serem processos diferentes pode bloquear ?

bom dia, estou com apenas um cliente com volta e meia problema com consumo indevido, Erro 656 Menssagen: Rejeicao: Consumo Indevido (Deve ser utilizado o ultNSU nas solicitacoes subsequentes. Tente apos 1 hora) interessante que as vezes a primeira consulta do dia já da consumo indevido, até gerei logs para ver se havia alguma falha no sistema "infringindo as regras da sefaz", porém não UltNsu := busca_ultimo_nsu_gravado; iContDown := 0; while true do begin try inc(iContDown); DM.ACBrNFe.DistribuicaoDFePorUltNSU(FrmEmpresa.Endereco.Estado.Ibge, FrmEmpresa.CNPJ, UltNsu); if (DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.cStat > 105) and (DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.cStat <> 138) then // então tem erro begin bAchou := true; // para nao mostrar msg de erro novamente if (DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 137) or // nao existe registros (DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 656) or (DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.ultNSU = DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.maxNSU)then begin if (DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 656) then begin if DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.ultNSU <> ultNSU then dlalerta('ultNSU utilizado nesta consulta [' + ultNSU + '] é diferente ' + 'do ultNSU consultado na Sefaz [' + DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.ultNSU + '].' + constEnterTab + 'Aguarde 1 hora para a próxima consulta.') else dlalerta(dlRetornaNFeStatus(DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.cStat) + constEnterTab + 'Aguarde 1 hora para a próxima consulta.') end; if (DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 137) then dlalerta('Atenção...: Não existem mais registros disponíveis.' + constEnterTab + 'Aguarde 1 hora para a próxima consulta.') else dlalerta('Atenção...: Este é o último lote de registros disponíveis para distribuição.' + constEnterTab + 'Aguarde 1 hora para a próxima consulta.'); end else dlalerta(dlRetornaNFeStatus(DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.cStat)); Break; end; except on e : exception do begin dlalerta(dlRetornaNFeStatus(DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.cStat) + constEnterTab + e.Message); Break; end; end; for x := 0 to DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Count -1 do begin if DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[x].resDFe.tpNF = tnSaida then begin iNsu := dlStrToInt(DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[x].NSU); sCNPJ := DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[x].resDFe.CNPJCPF; sRazao := DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[x].resDFe.xNome; sIE := DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[x].resDFe.IE; dDataEmi := DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[x].resDFe.dhEmi; cValor := DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[x].resDFe.vNF; sChave := DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[x].resDFe.chDFe; ... ... grava no banco de dados.. end; end; UltNsu := DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.ultNSU; if iContDown = 10 then // maximo 10 consultas begin Break; end; if (DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Count < 50) then Break; end; UltNsu := DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.ultNSU; .. grava na base ultimo nsu .. pode ser alguma coisa relacionada com certificado de segurança, ssl algo do tipo segue print como está no computador do cliente : alguem consegue me dar uma ideia do que pode estar acontecendo ?

segue documentação Manual Técnico de Cobrança Bancária – 240 Posições.pdf

Bom dia, Segue alteração no Arquivo banco cedred. em Homologação solicitaram para alterar no Header do arquivo a identificação do banco fixado no fonte como CECRED que a alguns anos mudou de nome para AILOS. Fiz a alteração, se alguem puder subir o arquivo, agradeço . abraços. ACBrBancoCecred.pas

UP, alguém pode pode adicionar essa alteração ? Obrigado!

Boa tarde a todos, Na geração do arquivo cnab240 para banco Sicrebi, não está verificando informação do campos "CodigoMoraJuros (cjValorDia, cjTaxaMensal, cjIsento, cjValorMensal, cjTaxaDiaria)", está opção de acordo com o manual possui 3 condições : 1’ - Valor monetário ‘2’ – Taxa Mensal ‘3’ - Isento porém na geração do segmento "P" esta verificando se valor de juros maior que 0 "zero" então condição = 1 -Valor monetário, se igual a 0 "zero" então condição = ‘3’ - Isento, ignorando valor informado no campo "CodigoMoraJuros" que pode ser 2- taxa mensal. fiz a alteração no fonte, segue em anexo para implementação. sem mais, abraços. ACBrBancoSicredi.pas

Boa tarde, Procurei no fórum erros semelhantes, encontrei algumas alternativas porém nenhum me resolvel. Segue o problema: <a href="https://ibb.co/NKTSj9t"><img src="https://i.ibb.co/NKTSj9t/Capturarxxxx.jpg" alt="Capturarxxxx" border="0"></a> Can't load package C:\...LibD28\win32\DCLACBr_BoletoFR.bpl não foi possível encontrar o móduto especificado. para todos os aquivos ACBR aonde possuem Fast Report 1 - Estou usando : delphi versão :11.1 - Fast Repost versão: 6.9.14 e acbr atualizado hj. o que ja tentei fazer : reinstalar o ACBR, apagar todos DCU e BPL dele e instalar novamente, sem sucesso. 2 - já coloquei no path a pasta ..\ACBR2\Lib\Delphi\LibD28\Win32 3- já copiei todas as bpl na pasta system32 obs. o fast report está funcionando normalmente. alguém tem alguma ideia do que pode ser ?

Alguém tem ideia do que pode ser ?

Infelizmente não deu certo segue imagem de como esta os parametros da child

Boa tarde, Estou com dificuldades para montar um relatório que vai ser assim : Pedidos e seus item, até ai tranquilo, o que não estou conseguindo é que as vezes esses itens podem contar uma observação, e quando tiver queria que aparecesse abaixo de cada item. tentei adicionar um child, porém quando esse campos obs esta vazio mesmo assim ele pila uma linha. ja fiz isso a um tempo atras mas não lembro mais como fiz, não me lembro se adicionei uma banda de child ou detail OBS uso fastreport versão que acompanha o delphi segue imagem onde aparece linha em branco quando não tem obs no item

Obrigado pelo retorno, mas as dlls do openssl estão ok

Bom dia a todos, Quando vou enviar um evento de confirmação, segue código abaixo, esta dando erro de Forbidden 403, interessante que em uma outra maquina aqui na empresa usando as mesmas parametros do acbr, não dá esse erro, acredito q possa ser algo na maquina local, alguém teria ideia do que pode ser ? ACBrNFe.EventoNFe.Evento.Clear; with ACBrNFe.EventoNFe.Evento.Add do begin InfEvento.cOrgao := 91; infEvento.chNFe := Chave; infEvento.CNPJ := CNPJ; infEvento.dhEvento := now; infEvento.tpEvento := teManifDestConfirmacao; end; ACBrNFe.EnviarEvento(NumeroLote); Segue imagem do erro: desde já obrigado!

Depois que coloquei o aplicativo para executar como administrador esta saindo certinho, nao consegui entender o porque disso, mas funcionou. estou usando windows 10

Comigo também esta acontecendo mesma coisa, desde que atualizei o acbr. Pra mim so acontece quando usa a função ACBrBoleto.GerarPDF; se usar ACBrBoleto.Imprimir; funciona perfeitamente.

Bom dia, Por favor alguém pode adicionar a implementação que foi feita para cnab240 banco CECRED. ja postei esta implementação em novembro do ano passado mas ninguém se prontifica a adicionar ao svn. conforme link abaixo http://www.projetoacbr.com.br/forum/topic/33261-implementação-do-cnab240-cecred/ por favor perca 1 minuto do seu tempo para fazer esse grande favor. esta tudo funcionando estou gerando títulos desde novembro de 2016.

Bom dia, Fiz uma pequena modificação, ref. leitura do retorno. segue os arquivos atualizados, segue o manual tbm. AcbrBoleto.pas ACBrBancoCecred.pas Manual Técnico CNAB 240.pdf

UP, .

Segue manual solicitado. Manual Técnico CNAB 240.pdf

Boa tarde , feliz ano novo a todos, favor não esquecer de adicionar ao svn.

ok, vlw, achei que não tinham visto o post. Obrigado pela atenção

UP.. alguém pode subir essa versão ? obrigado.

Bom dia, Implementei o CNAB240 para Banco CECRED, ja está validado com o banco, segue confirmação do registro importado no banco, Arquivos ACBrBoletos.pas e ACBrBancoCecred.pas para inclusão no SVN Abraços. ACBrBancoCecred.pas ACBrBoleto.pas

Estou com o mesmo erro aqui. "if not (uppercase(copy(FastFile,length(FastFileEvento)-3,4))='.FR3') then" valor de : FastFile = c:\sistema\DANFe.fr3 FastFileEvento = c:\sistema\EVENTOS.fr3 ou seja esta verificando tamanho de um endereço + arquivo para depois copiar de outro, acredito que isso está incorreto.