GONDIM

Bom dia, segue o e-mail de retorno o banco, se caso alguém tiver passando este problema. " Olá, Em contato com Fernando foi verificado que os arquivos de retorno não trazem o código 06 para baixa dos boletos. Busquei no Internet Banking os retornos nas datas informadas e o código não consta nos boletos liquidados. Não identificamos a causa e estamos consultando o produto para mais orientações e assim que verificado, retornarei o contato com Fernando para validarmos. Grato Qualquer dúvida estou a disposição Atenciosamente, Paulo Mattos PJ Tech – Homologação de Produtos Suporte 51 3358-8000 opção PJ Tech Centro Administrativo Sicredi – Porto Alegre "

Juliomar, Primeiramente quero agradecer sua atenção. Mas o que ocorreu foi um erro do banco, onde eles não estão enviando no arquivo o Status 06 que seria a liquidação do titulo. Me ligaram aqui e me informaram que vão verificar o ocorrido. Abraços.

no componente marcou para ele lercedente ? sim esta igual a TRUE

O pessoal do Sicred mandou esta resposta para gente: De: pjtech <pjtech@sicredi.com.br> Enviado: sexta-feira, 25 de abril de 2025 14:45 Para: FERNANDO GONDIM <fdgondim@hotmail.com>; Rodrigo Franca <rodrigo.solucoes.sistemas@hotmail.com>; Laura Santhiago Alves <laura_santhiago@sicredi.com.br>; financeiro@bugcontrole.com.br <financeiro@bugcontrole.com.br> Assunto: RES: Suporte PJTECH - AFJV CONTROLE DE VETORES E PRAGAS URBANAS LTDA - API Cobrança - PJTECH-27657 Olá, Verificado que o arquivo de retorno traz a informação do valor do pagamento nos campos 82 a 100 da linha 3 Favor verificar com o suporte de seu sistema se ele esta capturando a informação do valor nos campos corretos Grato Qualquer dúvida estou a disposição Atenciosamente, Paulo Mattos PJ Tech – Homologação de Produtos Suporte 51 3358-8000 opção PJ Tech Centro Administrativo Sicredi – Porto Alegre

Dr. Boa tarde, mudei aqui no exemplo do acbr e continua com o valor recebido zero. Segue as imagens em anexo. RetornoProcessado400.txt

Pessoal, boa tarde, Estou usando o componente para ler o arquivo de retorno do Sicred, mas o campo valor recebido esta vindo Zerado. O que pode ser? Até no exemplo o arquivo esta lendo o valor zerado. Segue em anexo o arquivo e a imagens abaixo para verificar. Agradeço a todos pela ajuda; Abraços 52232416.CRT 52232416.TXT RetornoProcessado.txt

bom dia, montei o arquivo em cobrança 400 e gerou o seguinte erro: Prezados, bom dia! Segue validação do arquivo e descrição dos ajustes. RELATÓRIO ARQUIVO REMESSA COBRANCA 400 Dados do arquivo: Código do convênio (acessório escritural): 1054406 Nome da Empresa: ASTRA Data de Gravação do Arquivo: 24/05/23 Número do sequencial de arquivo: 0000006 Contratos no arquivo: Car Agên Conta-Produto 009 0265-0010440-6 ============================================================================================================================ Linha 1, colunas 027 a 046, Header de arquivo, acessório escritural inválido. Zeros à esquerda. Linha 2, colunas 037 a 037, Registro tipo 1, Dígito da conta-corrente inválido. Linha 3, colunas 037 a 037, Registro tipo 1, Dígito da conta-corrente inválido. Linha 4, colunas 037 a 037, Registro tipo 1, Dígito da conta-corrente inválido. Linha 5, colunas 037 a 037, Registro tipo 1, Dígito da conta-corrente inválido. Linha 6, colunas 037 a 037, Registro tipo 1, Dígito da conta-corrente inválido. Linha 7, colunas 037 a 037, Registro tipo 1, Dígito da conta-corrente inválido. ============================================================================================================================ Não sei onde estou fazendo errado, alguém pode me ajudar, se for o caso pago um consultoria. segue o arquivo. CB24500.REM BRADESCO_BOLETOS_PDF_REMESSA_NRO_6_24-05-2023_09-56-55.pdf

pessoal boa tarde, não sei o que estou fazendo errado, coloquei os dados corretos conforme a imagem abaixo: o sistema gerou o arquivo e os campos foram unificados conforme abaixo, o arquivo este em anexo, e o banco fala que esta gerando este erro. Alguém pode ajudar? Se for o caso pago por uma consultória, deve ser coisa simples mas não sei o que eh. Linha 1, Header de arquivo, colunas 071 a 071, dígito da conta-corrente inválido. Linha 2, Header de lote, colunas 072 a 072, dígito da conta-corrente inválido. Linha 3, colunas 036 a 036, dígito da conta-corrente inválido. Linha 6, colunas 036 a 036, dígito da conta-corrente inválido. Linha 9, colunas 036 a 036, dígito da conta-corrente inválido. Linha 12, colunas 036 a 036, dígito da conta-corrente inválido.BRADESCO_BOLETOS_PDF_REMESSA_NRO_6_23-05-2023_10-38-27.pdf Linha 15, colunas 036 a 036, dígito da conta-corrente inválido. Linha 18, colunas 036 a 036, dígito da conta-corrente inválido. Número da Conta: 000000010440 - 6 INFORMAR CTA.PRODUTO: 02650105440 - 6 ACBrBoleto1.Cedente.Agencia := qryContaDS_AGENCIA.AsString; ACBrBoleto1.Cedente.AgenciaDigito := qryContaDS_DIGAG.AsString; ACBrBoleto1.Cedente.Conta := qryContaNR_CEDENTE.AsString;//qryContaCT_CORRENTE.AsString; ACBrBoleto1.Cedente.ContaDigito := qryContaDS_DIGCC.AsString; ACBrBoleto1.Cedente.CodigoCedente := qryContaNR_CEDENTE.AsString; ACBrBoleto1.Cedente.Nome := Trim(qryEmpresaNM_RAZAO_SOCIAL.AsString); ACBrBoleto1.Cedente.CNPJCPF := qryEmpresaNR_CGC.AsString; ACBrBoleto1.Cedente.Cidade := qryEmpresaDS_CIDADE.AsString; ACBrBoleto1.Cedente.Bairro := qryEmpresaDS_BAIRRO.AsString; ACBrBoleto1.Cedente.UF := qryEmpresaDS_ESTADO.AsString; ACBrBoleto1.Cedente.CEP := qryEmpresaDS_CEP.AsString; ACBrBoleto1.Cedente.Logradouro := qryEmpresaDS_ENDERECO.AsString; ACBrBoleto1.Cedente.NumeroRes := qryEmpresaNR_LOGRADOURO.AsString; ACBrBoleto1.Cedente.Complemento := qryEmpresaDS_COMPL_LOGR.AsString; ACBrBoleto1.Cedente.Convenio := qryContaNR_CONVENIO.AsString; ACBrBoleto1.Cedente.Modalidade := qryContaNR_MODALIDADE.AsString; CB23500.REM

Pessoal, bom dia, estou gerando o boleto do bradesco alguém sabe me informar como vou casar os campo, pois o gerente me mandou estas informações: Conta produto 02650105440-6 onde informo este campo ? Carteira 09 Acessório estrutural negociado 5686515 onde informo este campo ? O campo espécie e modalidade seria qual ? minha tela possui estas informações a serem colocadas:

bom dia, já tentei de todo jeito o que vc me aconselha, por favor

bom dia estou usando libcrypto-1_1.dll, libssl-1_1.dll, libeay32.dll, ssleay32.dll

boa tarde, não sei se é possível verificar este erro estou tentando enviar uma chamada de uma url que não tem retorno, já tentei de varias formas e todas geram o mesmo erro, conforme foto em anexo alguém consegue me ajudar, segue o exemplo. exemplo 1: mIdHTTP := TIdHTTP.Create(NIL); mIdSSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil); try try mIdHTTP.IOHandler := mIdSSL; mIdHTTP.Get('https://fornacedelivery.com.br/admin/endpointNotificacoes.php?t=9u2i0B6#!6UB&pedido=' + IntTOStr(CodigoPedido)); except on E:Exception do begin frmErros.AddErro('Erro na função VerificaAltCliente. ' + E.Message); frmErros.AcionaPopupErro; end; end; finally mIdHTTP.Free; mIdSSL.Free; end; exemplo 2: {try SSLSocket.SSLOptions.Method := sslvSSLv23; SSLSocket.SSLOptions.Mode := sslmClient; JsonStreamRetorno := TStringStream.Create('', TEncoding.UTF8); HTTPClient.Request.Clear; HTTPClient.Request.ContentType := 'application/json'; HTTPClient.Request.Charset := 'UTF-8'; HTTPClient.Request.BasicAuthentication := false; HTTPClient.Request.CustomHeaders.Clear; HTTPClient.Request.CustomHeaders.AddValue('cache-control', 'no-cache'); HTTPClient.Request.CustomHeaders.AddValue('Content-Type', 'application/json'); HTTPClient.Request.CustomHeaders.AddValue('Accept', 'application/json'); HTTPClient.Request.CustomHeaders.AddValue('cache-control', 'no-cache'); HTTPClient.Request.Accept := 'application/json'; HTTPClient.Get('https://fornacedelivery.com.br/admin/endpointNotificacoes.php?t=9u2i0B6#!6UB&pedido=' + IntTOStr(CodigoPedido));//, JsonStreamRetorno except on E : Exception do begin frmErros.AddErro('Erro na função VerificaAltCliente. ' + E.Message); frmErros.AcionaPopupErro; end; end; }

Pessoal bom dia, consegui terminar o sicredi Se alguém tiver duvida, os campos que alteram em relação as outros bancos são: Numero banco = 748 Digito banco = 0 Agencia = colocar o numero sem o digito exemplo 0333-8 no caso seria apenas 0333 digito agencia = seria no numero do posto exemplo 26 numero da conta e digito são os valores normais. numero convenio = '' numero carteira = '1' modalidade = '' especie = 'DMI' eles não aceitam 'DM' quando for passar os parâmetros as mudanças principais que eu tive que alterar foi: ACBrBoleto1.Cedente.DigitoVerificadorAgenciaConta := ''; CodigoMoraJuros := cjTaxaMensal; ValorMoraJuros := StrToCurrDef(FormatFloat('#,##0.00',qryRemessaVR_MORADIARIA.Asfloat),0); colocar o percentual não o valor em R$ //ACBrBoleto1.AdicionarMensagensPadroes(Titulo,Mensagem); tive que deixar em comentário pois eles não aceitam mensagens fora do padrão. //Mensagem.Text := qryRemessaDS_MEMBOLETO.AsString + #13#10 + qryRemessaDS_MEMBOLETO2.AsString; Espera ter ajudado. Abraços.

bom dia, no caso do exemplo acima ACBrBoleto1.Cedente.Agencia := '03338' sendo 8 o digito da agencia ACBrBoleto1.Cedente.Agencia := '0333' ficaria desta forma e o digito da agencia onde vou passar que seria o 8 no caso? ACBrBoleto1.Cedente.AgenciaDigito := '26' seria o numero do posto. Eu passo neste lugar mesmo ? ACBrBoleto1.Cedente.DigitoVerificadorAgenciaConta := '0'; ACBrBoleto1.Cedente.DigitoVerificadorAgenciaConta := '' vai ficar vazio correto;

Pessoal boa tarde, estou fazendo o boleto da Sicredi, gostaria de saber se estou casando do campos corretamente, tem um campo posto que segundo a informações, pediu para colocar a agencia junto com o digito dela e no campo agencia digito o campo posto, e o nosso numero o máximo seria 5 ou 10 dígitos eu verifiquei o valor é 5 mesmo? Estou pedindo para verificar antes que enviar para homologar: ACBrBoleto1.Cedente.Agencia := '03338' sendo 8 o digito da agencia ACBrBoleto1.Cedente.AgenciaDigito := '26' numero o posto ACBrBoleto1.Cedente.Conta := '22816'; ACBrBoleto1.Cedente.ContaDigito := '6'; ACBrBoleto1.Cedente.CodigoCedente := '22816'; ACBrBoleto1.Cedente.Nome := 'TESTE' ACBrBoleto1.Cedente.CNPJCPF := '04.048.938/0001-22' ACBrBoleto1.Cedente.Cidade := 'TESTE' ACBrBoleto1.Cedente.Bairro := 'TESTE' ACBrBoleto1.Cedente.UF := 'MG' ACBrBoleto1.Cedente.CEP := '38400000' ACBrBoleto1.Cedente.Logradouro := 'RUA TESTE' ACBrBoleto1.Cedente.NumeroRes := '1' ACBrBoleto1.Cedente.Complemento := ''; ACBrBoleto1.Cedente.Convenio := ''; ACBrBoleto1.Cedente.Modalidade := ''; ACBrBoleto1.LayoutRemessa := c240; ACBrBoleto1.DataArquivo := Date; ACBrBoleto1.Cedente.DigitoVerificadorAgenciaConta := '0'; with Titulo do begin LocalPagamento := 'EM QULAQUER BANCO ATE O VENCIMENTO'; Vencimento := '07/10/2022'; DataDocumento := '07/10/2022'; NumeroDocumento := '123456' EspecieDoc := 'DM' Aceite := atSim; DataProcessamento := '07/10/2022'; Carteira := 'RG'; NossoNumero := IntToStrZero(qryContasReceberNR_BOLETO.AsInteger,5); ValorDocumento := '5950' Sacado.NomeSacado := 'TESTE' Sacado.CNPJCPF := OnlyNumber(qryClienteDS_CNPJFAT.AsString); if qryClienteTP_PESSOA.AsString = 'J' then Sacado.Pessoa := pJuridica else Sacado.Pessoa := pFisica; Sacado.Logradouro := qryClienteDS_ENDERECO.AsString; Sacado.Numero := qryClienteNR_ENDFATU.AsString; Sacado.Bairro := qryClienteDS_BAIRRO.AsString; Sacado.Cidade := qryClienteDS_CIDADE.AsString; Sacado.UF := qryClienteDS_SIGLA.AsString; Sacado.CEP := TiraPontoVirgula(qryClienteDS_CEPFATU.AsString); ValorAbatimento := StrToCurrDef('0',0); LocalPagamento := qryContasReceberDS_LOCALPAGTO.AsString; ValorMoraJuros := StrToCurrDef(FormatFloat('#,##0.00',qryContasReceberVrMoraRS.Asfloat),0); ValorDesconto := StrToCurrDef('0',0); ValorAbatimento := StrToCurrDef('0',0); DataMoraJuros := StrToDateDef(DatetoStr(qryContasReceberDT_MULTA.AsDateTime), 0); DataMulta := StrToDateDef(DatetoStr(qryContasReceberDT_MULTA.AsDateTime), 0); //DataDesconto := StrToDateDef(edtDataDesconto.Text, 0); //DataAbatimento := StrToDateDef(edtDataAbatimento.Text, 0); DataProtesto := StrToDateDef(DatetoStr(qryContasReceberDT_PROTESTO.AsDateTime), 0); PercentualMulta := StrToCurrDef(FormatFloat('#,##0.00',qryContasReceberVR_MULTA.Asfloat),0); Mensagem.Text := qryContasReceberDS_MEMBOLETO.AsString + #13#10 + qryContasReceberDS_MEMBOLETO2.AsString + #13#10 + qryContasReceberDS_MEMBOLETO3.AsString; //Instrucao1 := padL(trim(edtInstrucoes1.Text),2,'0'); //Instrucao2 := padL(trim(edtInstrucoes2.Text),2,'0'); ACBrBoleto1.AdicionarMensagensPadroes(Titulo,Mensagem); end;