thiagoporto

é esse que uso para gerar os boletos SIGCB, mas não mando remessa para o banco eles apenas mando o retorno de liquidação.

Estou realizando testes com o retorno passado pela CEF, e percebi que o acbr está retornando o nosso número inválido...eu acho. O número impresso no boleto é: 240000000000113-2 O acbr retorna esse nosso número: 000024000000000 Retorno: 10400000 2052954170001420000000000000000000003151834488600000000R D DE VASCONCELOS AGUIAR SISTC ECON FEDERAL 20511201203411300000104000000 RETORNO-PRODUCAO 000 10400011T0100030 20052954170001420000000000000000000003151834488600000000R D DE VASCONCELOS AGUIAR SIST 00000001051120120000000000 00 1040001300001T 060000003448860000000 240000000000001132100000000000000005112012000000000116625237005460000000000000000 090000000000000000 000000000000295040101 1040001300002U 06000000000000000000000000000000000000000000000000000000000000000000000116625000000000116625000000000000000000000000000000051120120611201200000611201200000000000000000000000000000000000000000000000000000000000000000000 10400015 00000400000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 10499999 000001000006

Dei uma analisada junto ao cliente e verifiquei que ele está gerando a remessa com o layout c240. Já existe alguma função para ler o retorno c240?

Recebi o retorno da caixa e quando fui fazer a leitura dá a seguinte mensagem: "Função não implementa para c240". Sendo que uso o c400 para emitir, já existe alguma atualização para poder implementar? Desde já agradeço.

eles ainda informaram que precisam de um boleto com dígito zero, como posso informar isso?

Em anexo o boleto Boleto.pdf

{Adiciona os boletos para geração e impressão} FTitulo := FBoleto.CriarTituloNaLista; FTitulo.TotalParcelas := QtdeDocs; FTitulo.Parcela := FReceberParc; if ContemString(vAgencia, '-') = True then begin FAgencia := SubstituiString(vAgencia,'-',''); FAgenciaDgt := RightStr(FAgencia, 1); FAgencia := LeftStr(FAgencia, Length(FAgencia) - 1); end else FAgencia := vAgencia; FConta := SubstituiString(vConta,'-',''); FContaDgt := RightStr(FConta, 1); FConta := LeftStr(FConta, Length(FConta) - 1); {Atualiza a data de geracao do boleto na tabela receber, mas só quando for gerar o boleto} if GetDataGeracaoBoleto(FReceberParc,FReceberDoc) then begin SetUpdateDataGeracao(FReceberDoc,FReceberParc); end; {Informações da Empresa} FBoleto.Cedente.CNPJCPF := Empresa.Cnpj; FBoleto.Cedente.Nome := Empresa.Fantasia; FBoleto.Cedente.Agencia := FAgencia; if FAgenciaDgt = '' then FBoleto.Cedente.AgenciaDigito := '0' else FBoleto.Cedente.AgenciaDigito := FAgenciaDgt; FBoleto.Cedente.Conta := FConta; FBoleto.Cedente.ContaDigito := FContaDgt; FBoleto.Cedente.CodigoCedente := vCedente; case vBanco of 237: FBoleto.Banco.TipoCobranca := cobBradesco; 1: FBoleto.Banco.TipoCobranca := cobBancoDoBrasil; 104: if FCobrancaCaixa = 0 then FBoleto.Banco.TipoCobranca := cobCaixaEconomica else FBoleto.Banco.TipoCobranca := cobCaixaSicob; end; if FBoleto.Banco.Numero = 1 then begin FBoleto.Cedente.Convenio := FConvenioTpDoc; FBoleto.Cedente.Modalidade := fCarteiraModalidade; end; {Informações do Cliente} FTitulo.Sacado.NomeSacado := format('%.6d',[FClienteCodigo])+'-'+FClienteNome; FTitulo.Sacado.CNPJCPF := FormatarCpfCnpj(FClienteCpfCnpj); FTitulo.Sacado.Logradouro := FClienteEndereco; FTitulo.Sacado.Numero := ','+FClienteNumero; FTitulo.Sacado.Bairro := ' - '+FClienteBairro; FTitulo.Sacado.Cidade := ' '+FClienteCidade; FTitulo.Sacado.UF := '- '+FClienteUF; FTitulo.Sacado.CEP := FormatarCEP(FClienteCep); if FBoleto.Banco.Numero <> 104 then FTitulo.LocalPagamento := 'Pagar preferêncialmente nas agências do(a) '+FBoleto.Banco.Nome else FTitulo.LocalPagamento := 'Pagamento em qualquer agência bancária ou lotéricas até o vencimento, após somente na CAIXA'; FTitulo.EspecieDoc := 'DM'; case FBoleto.Banco.Numero of 237,1,104 : FTitulo.Aceite := atNao; end; {Informações do Documento} FTitulo.DataProcessamento := StrToDate(FSistema.DataServidor); FTitulo.Vencimento := FReceberVencimento; FTitulo.DataDocumento := FReceberDtCad; FTitulo.NumeroDocumento := FReceberDoc+'/'+IntToStr(FReceberParc); {Caso o boleto ja tenha sido gerado a funcao recupera o nosso_numero caso contrario ele gera um novo} if LoadNossoNumero(FReceberDoc,FReceberParc) <> EmptyStr then FTitulo.NossoNumero := LoadNossoNumero(FReceberDoc,FReceberParc) else begin if FGeraNossoNMManu = 0 then iNossoNumero := 0 else iNossoNumero := FNossoNumeroBolAux; FTitulo.NossoNumero := IntToStr(StrToInt(GetNossoNumero(FBoleto.Banco.Numero))+iNossoNumero); SetUpdateNossoNumero(FReceberParc,FReceberDoc,FTitulo.NossoNumero); end; FTitulo.ValorDocumento := FReceberValor; FTitulo.Mensagem.Text := FMensagemTpDoc; {Tipo de Carteira} FTitulo.Carteira := FCarteiraTpDoc; {Informações dos juros,multas,protesto e descontos para serem impresso no boleto} if FPercDescTpDoc > 0 Then begin FTitulo.ValorDesconto := (FPercDescTpDoc/100) * FReceberValor; FTitulo.DataDesconto := FReceberVencimento; end; if FDiasJurosTpDoc > 0 Then begin FTitulo.DataMoraJuros := IncDay(FReceberVencimento, FDiasJurosTpDoc); if FReceberJurosP > 0 then FTitulo.ValorMoraJuros := (FTitulo.ValorDocumento * (FPercJurosTpDoc/100)) /30; end; if FDiasMultaTpDoc > 0 Then begin DtJurosMulta := IncDay(FReceberVencimento, FDiasMultaTpDoc); ValJurosMulta := (FPercMultaTpDoc/100) * FTitulo.ValorDocumento; end; if FDiasProtesto > 0 then FTitulo.DataProtesto := IncDay(FReceberVencimento, FDiasProtesto); {Mensagem Impressas no Boleto} if FTitulo.ValorMoraJuros > 0 then FTitulo.Mensagem.Add('Mora Dia/Com. Permanência ........................ R$ '+FormatFloat('###,##0.00', FTitulo.ValorMoraJuros)); if (DtJurosMulta > FReceberVencimento) then FTitulo.Mensagem.Add('Após '+DateToStr(DtJurosMulta)+' Multa ............................ R$ '+FormatFloat('###,##0.00',ValJurosMulta)); if FBoleto.Banco.Numero = 1 then FTitulo.Mensagem.Add('Após o vencimento pagavél somente no '+FBoleto.Banco.Nome+'.') else FTitulo.Mensagem.Add('Após o vencimento pagavél somente no banco '+FBoleto.Banco.Nome+'.'); FTitulo.Mensagem.Add('Após o vencimento NÃO dispensar JUROS e MULTA.'); if Empresa.ImprimirNumeroNFBoleto = 1 then if GetNotaFiscal(FReceberOS) > 0 then FTitulo.Mensagem.Add('Referente ao pgto. da Nota fiscal '+IntToStr(GetNotaFiscal(FReceberOS))+'.'); FTitulo.Mensagem.Add('Não receber após 30 dias de vencido.'); if FReceberValorAbatido > 0 then begin FTitulo.ValorAbatimento := FReceberValorAbatido; FTitulo.Mensagem.Add('Conceder abatimento de ' + FormatCurr('R$ #,##0.00',FTitulo.ValorAbatimento)); end;

utilizo CaixaEconomica, pois a conta é SIGCB tipo de conta informado pelo banco: Informamos que as amostras de SIBCB.

Quando mandei os boletos para envio o banco retornou a seguinte mensagem de erro: NÃO foram homologadas por apresentarem os motivos apontados abaixo: 1- Falta Dígito Verificador Geral do Código de Barras (ou seja, campo 4 da Representação Numérica) 5 e 7. Solicitamos contatar o cedente para que envie bloquetos com o DV faltante, ou seja, com dígito geral do código de barras 5 e 7. Ressaltamos que para a homologação as amostras devem ser enviadas em quantidade de 9 (nove) bloquetos originais, contendo todas as possibilidades de DV Geral do Código de Barras (de 1 a 9), ou seja, campo 4 da Representação Numérica, conforme exemplo a seguir: Campo 1 Campo 2 Campo 3 Campo 4 Campo 5 10493.44888 60000.200042 00000.000307 1 55210000000100 Em resumo, onde está o número 1 isolado na Representação Numérica acima, precisamos ter amostras com os números 1, 2, 3, 4, 5, 6, 7, 8 e 9, portanto, 09 (nove) amostras conforme MN CO 003 vigente. Solicitamos contatar o cliente para que proceda a correção, observando que as amostras devem ser emitidas de acordo com o "lay-out" definido. Ressaltamos que as amostras devem ser enviadas em quantidade de 9 (nove) guias originais, contendo todas as possibilidades de DV Geral do Código de Barras (de 1 a 9), ou seja, campo 4 da Representação Numérica. Qual informação que passo para resolver esse problema?

Implementei essas units no nos fontes e deu vários erros.

Isso já foi implementado no acbrboleto?

Mandei minha remessa para validação junto com 3 boletos, e o banco retornou com a seguinte mensagem: Prezado Cliente, Análise de cb230701.rem: Segmento 'P': Posição 016 a 017 (002 Dig.) - 02-PEDIDO BAIXA...Informado...[02] - O que o senhor deseja é realmente pedido de Baixa? Segmento 'Q': Posição 016 a 017 (002 Dig.) - 02-PEDIDO BAIXA...Informado...[02] - O que o senhor deseja é realmente pedido de Baixa? Segmento 'R': Posição 016 a 017 (002 Dig.) - 02-PEDIDO BAIXA...Informado...[02] - O que o senhor deseja é realmente pedido de Baixa? Nos boletos existe informação de mora e protesto já na remessa o senhor nada apresentou. Por gentileza verifique se estas informações realmente são importantes. Alguém pode me explicar o que significa? Desde já agradeço.

deu tudo certo, obrigado!

Na posição 019 a 032 esta faltando o NR INSCRICAO DA EMPRESA, o que tenho que passar? Dei uma olhada no componente e pelo que vi é o CNPJ, mas eu informo e não acontece nada

eu sei coloquei a informação no código do convênio, minha dúvida é se preciso informar alguma coisa no código do cedente?

mas tenho que passar o convênio no campo do código do cedente.

e outra coisa nessa conta não é informado o código do cedente.

tmb fiquei em dúvida em relação a variação da carteira e modalidade.

Mandei a remessa para o banco do Brasil e eles retornaram um email informando que havia erros na remessa, e que esta faltando a modalidade e variação da carteira, segue em anexo os erros apresentado na remessa.

Olá Daniel Simoes, fiz os testes que vc sugeriu e tive existos e informo que o problema esta nesta versão do acbr, como de costume faço um backup do acbr antes de atualiza-lo e voltei a versão e compilei no meu sistema e o boleto gerou o pdf normal, ai coloquei a versão atual do acbr e gerei o pdf do boleto e ficou como já sabemos, então como tenho muitos relatórios usando o fortes testei com outros relatórios a geração do pdf e ficou normal.

Isso aconteceu depois da atualização do Acbr.

isso começou depois da última atualização.

ocorreu nos clientes, achei que poderia ser o leitor de pdf.

já tentei várias vezes tirando e colocando esse código e em vários lugares do meu sistema, mas nada adianta.

mas vc colocou esse código dentro do ACBrBoletoFCFortesFr ?