Leandro SSilva {0,1}

Jeter já tem um arquivo em anexo em um comentario acima com os boletos voce nao deve ter visto, se tiver um tempinho pra olhar ficarei grato.

Bom dia ! Juliana como você tinha dito que a linha digitalvel poderia ficar diferente da linha digitavel do app da caixa fiz o teste gerei um boleto de 5,00 todos os dados do corpo do boleto esta identico do app da caixa mas as linhas estavam diferente então o boleto não caiu na conta e eu perdi os 5,00 rsrsrsr. Acho que tem que ser igual o Jeter falo as linhas tem que ser iguais tanto do app caixa quanto app componente. dai vo fazer outro teste e colocar aqui os 2 boletos e os dados de da conta do cliente que é pessoal fisica acho que pode ter algum problema pois n]ao ser juridica?

Boa noite! Ao Jeter, eu não defini o tamanho não, já tem uma rotina interna no componente que seta o tamanho para 15. A Juliana, o nosso numero esta sendo impresso correto ex: 800000000000413 a linha digital não bate com o do app da caixa, mais essa sua resposta Nem sempre a linha digitável gerada pelo aplicativo do banco irá bater com o do componente... já me deu mais esperança então irei gerar um boleto pelo componente com valor baixo e vou pagar pra ver se ele cai na conta, respeitando o controle do numero que já esta em andamento n o app da caixa..

Ok, estou passando 14 pra ele montar certo os 15 com o 8 na frente, porerm a linha digitavel nao fica ilgua o do app caixa, voce chego a dar uma olhada no arquivo anexo acima?

Boa noite, percebi alguma coisa errada pois quando eu passo 13 digitos para o nosso numero ele acerta os 5 primeiros digitos da linha digitavel (10490) e o restante ele muda a posição e nao coloca o 8 na frente do nosso numero. quando eu passo 14 digitos para o nosso numero ele erra os 5 primeiros digitos da linha digitavel (10498) e o restando ele muda a posição e coloca o 8 na frente do nosso numero. não consigo fazer o componente emitir igual o do app da caixa. Segue anexo boleto app caixa e boleto app componente. teste do primeiro boleto. boletos.rar

Obrigado por responder estou usando cobCaixaSicob mesmo mas nao consigo fazer geral igual o sistema da caixa, com esses voce consegue gerar igua o do banco? se sim pode me enviar a configuração usada pode ser que esteja colocando informação em lugar errado .

Pessoal alguém pode me ajudar?????????????

Pessoal eu li na internet que esse 870 se trata de uma tipo COBRANÇA AZUL da caixa econômica, mas não sei como funciona, o componente esta preparado para esse tipo de boleto?

1º - Pessoal estou com problema para gerar boleto/Arq.Retorno da caixa econômica hoje o boleto é gerado através do programa COBCAIXA . Obs: Emitente pessoa física, o componente deixa você coloca na propriedade cpf/cnpj em tempo de projeto e quando executa ele critica que é invalido dai tenho que colocar o cpf em tempo de execução ai funciona. Dai comecei a fazer o teste gerei um boleto COBCAIXA com as seguintes informações: Dt Emissão: 21/10/13 Dt Vencimento: 20/11/13 Nº Documento 111001 Espécie: DM Aceite: N Dt Proc: 21/10/201 Carteira: SR Ag/Cod.Cedente: 4755.870.00000028-9 Nosso Numero: 800000000000329-0 Valor: em branco. Foi gerada a linha digitavel: 10490 . 00282 . 47558 . 700002 . 00000 . 003293 7 58880000000000 Dai com as mesmas configurações pelo componente o boleto sai assim: 10498 . 00004 . 00000 . 002393 . 47558 . 700002 1 58880000000000 Não consegui entender porque eu acho que tem alguma coisa diferente quando se usa esse 870 no Cedente, ou eu estou fazendo algo errado mesmo. 2º - Dai peguei um arquivo de retorno dessa conta e fiz um teste com componente códigos de exemplo encontrado aqui mesmo fórum carregar o arquivo e fazer um loop inserindo em um TClienteDataSet ele acha o registo mas ele não acha o valor correto no Campo nosso numero que vem tudo zero. Alguém pode dar uma ajuda, dede de já obrigado pela atenção.

Sera isso então que o meu não esta gerando igual o do aplicativo da caixa sicob. Alguem ja pois no servidor???

Ola Juliana desculpe a demora segue as unit modificadas, para ser analisadas. Unit Boleto.rar

Juliana mexi no código parece está ok. só pra esclarecimento uso Delphi2010 e QuickReport 504 Geração de boleto sem registro, sem data de vencimento e valor. Alterações: na Unit ACBrBoleto o método foi modificado. function TACBrBancoClass.CalcularFatorVencimento(const DataVencimento: TDatetime) : String; begin //-- Leandro.SSilva //-- Se a data de vencimento não for preenchida na hora de adicionar os titulos //-- ela vira com valor default 30/12/1899 após o calculo abaixo retonara -35710 //-- dai é preenchido com 0000. if IntToStr( Trunc(DataVencimento - EncodeDate(1997,10,07)) ) = '-35710' then Result:='0000' else //-- linha original Result := IntToStr( Trunc(DataVencimento - EncodeDate(1997,10,07)) ); end; ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// Na Unit ACBrBoletoFCQuickFr no evento BeforePrint de cada um dos três QuickReport foi alterado a linha //-- Se a data vier 30/12/1899 sera impresso vazio no QuickReport //-- Leandro.SSilva if FormatDateTime('dd/mm/yyyy', Titulo.Vencimento) = '30/12/1899' then txtDataVencimento2.Caption := '' else //-- Linha original txtDataVencimento2.Caption := FormatDateTime('dd/mm/yyyy', Titulo.Vencimento); //-- Leandro.SSilva //-- Se o valor vier 0 sera impresso vazio no QuickReport if Titulo.ValorDocumento = 0 then txtValorDocumento2.Caption :='' else //-- Linha original txtValorDocumento2.Caption := FormatFloat('###,###,##0.00',Titulo.ValorDocumento); ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// fiz teste aqui e funcionou perfeito fico no aguardo sobre a implantação. desde de já obrigado pela atenção.

Perfeito, então no final de semana eu vou mexer e aviso quando tiver pronto, obrigado pela atenção Juliana.

Obrigado pela atenção pessoal, tambem acho que não seria tão problematico, em codificar na impressão. Será possivel essa implementação?

Bom dia ! Pessoal gostaria de saber se tem como customizar o boleto? Ex: preciso imprimir boletos com valor e vencimento em branco, porque? os boletos tem que ser semi-impresso sem vencimento e valor, pois esses dados são colocados manualmente no momento da entrega do boleto ao consumidor final, os boletos são gerados e liberado dai quando chega ao consumidor a pessoa que entrega preencher esses dois campos, o boleto é do tipo cobrança sem registro.

Uso Delphi2010 e Quickrep504 Acabei de atualizar o Acbr e esta dando o mesmo erro que José Luis falo. tambem tive que adicionar a unit QRPDFFilt no arquivo ACBrBoletoFCQuickFr.pas para rodar o demo do Boleto, o ideal é acerta no repositorio

O erro é muito parecido com o do topico abaixo: ja fiz os procedimento que o topico fala, mas não funciona.

Desculpe a unit é ACBrNFeWebServices dentro do metodo: function TNFeRecepcao.Executar: Boolean;

Bom dia! apos atualiza o acbr para revisao 5272 quando eu tento enviar uma nota ambiente de homologação esta me retornando uma meem branco pode ser ? andei debugando e vir nesse bloco que o retorno vem vazio: {$ELSE} ReqResp.Execute(Acao.Text, Stream); StrStream := TStringStream.Create(''); StrStream.CopyFrom(Stream, 0); FRetornoWS := TiraAcentos(ParseText(StrStream.DataString, True)); if nfeAutorizacaoLote then FRetWS := SeparaDados( FRetornoWS,'nfeAutorizacaoLoteResult') else FRetWS := SeparaDados( FRetornoWS,'nfeRecepcaoLote2Result'); StrStream.Free; {$ENDIF} alguem pode me ajudar?

blz amigo, resolvido era conflito de bpl e dcp do PCN obrigado pela atenção.

Pessoal estou subindo o ambiente em uma maquina nova e esta apresentando alguns erro na instalacao segue o arquivo erro em tlCCeNFe nao exite pcnCCeNFe function TCCeNFe.GerarXML: boolean; var i : integer; begin Result := False; if RetornarVersaoLayout(FSchema, tlCCeNFe) = '2.00' then begin Gerador.ArquivoFormatoXML := ''; Gerador.wGrupo('envEvento ' + NAME_SPACE + ' ' + V1_00); Gerador.wCampo(tcInt, 'HP03', 'idLote', 001, 015, 1, FidLote, DSC_IDLOTE); for i:= 0 to Evento.Count - 1 do begin Evento.Items.InfEvento.id := 'ID110110' + SomenteNumeros(Evento.Items.InfEvento.chNFe) + Format('%.2d', [Evento.Items.InfEvento.nSeqEvento]); Gerador.wGrupo('evento ' + V1_00); Gerador.wGrupo('infEvento Id="' + Evento.Items.InfEvento.id + '"'); if Length(Evento.Items.InfEvento.id) < 54 then Gerador.wAlerta('HP07', 'ID', '', 'ID de carta de correção inválido'); Gerador.wCampo(tcInt, 'HP08', 'cOrgao', 001, 002, 1, Evento.Items.InfEvento.cOrgao); Gerador.wCampo(tcStr, 'HP09', 'tpAmb', 001, 001, 1, TpAmbToStr(Evento.Items.InfEvento.tpAmb), DSC_TPAMB); if Length(SomenteNumeros(Evento.Items.InfEvento.CNPJ)) = 14 then begin Gerador.wCampo(tcStr, 'HP10', 'CNPJ', 014, 014, 1, SomenteNumeros(Evento.Items.InfEvento.CNPJ), DSC_CNPJ); if not ValidarCNPJ(SomenteNumeros(Evento.Items.InfEvento.CNPJ)) then Gerador.wAlerta('HP10', 'CNPJ', DSC_CNPJ, ERR_MSG_INVALIDO); end else if Length(SomenteNumeros(Evento.Items.InfEvento.CNPJ)) = 11 then begin Gerador.wCampo(tcStr, 'HP11', 'CPF', 011, 011, 1, SomenteNumeros(Evento.Items.InfEvento.CNPJ), DSC_CPF); if not ValidarCPF(SomenteNumeros(Evento.Items.InfEvento.CNPJ)) then Gerador.wAlerta('HP11', 'CPF', DSC_CPF, ERR_MSG_INVALIDO); end; Gerador.wCampo(tcStr, 'HP12', 'chNFe', 044, 044, 1, Evento.Items.InfEvento.chNFe, DSC_CHAVE); if not ValidarChave('NFe' + SomenteNumeros(Evento.Items.InfEvento.chNFe)) then Gerador.wAlerta('HP12', 'chNFe', '', 'Chave de NFe inválida'); Gerador.wCampo(tcStr, 'HP13', 'dhEvento', 001, 050, 1, FormatDateTime('yyyy-mm-dd"T"hh:nn:ss',Evento.Items.InfEvento.dhEvento)+'-03:00'); Gerador.wCampo(tcInt, 'HP14', 'tpEvento', 006, 006, 1, Evento.Items.InfEvento.tpEvento); Gerador.wCampo(tcInt, 'HP15', 'nSeqEvento', 001, 002, 1, Evento.Items.InfEvento.nSeqEvento); Gerador.wCampo(tcStr, 'HP16', 'verEvento', 001, 004, 1, Evento.Items.InfEvento.versaoEvento); Gerador.wGrupo('detEvento ' + V1_00); Gerador.wCampo(tcStr, 'HP19', 'descEvento', 005, 060, 1, Evento.Items.InfEvento.detEvento.descEvento); Gerador.wCampo(tcStr, 'HP20', 'xCorrecao', 015, 1000, 1, Evento.Items.InfEvento.detEvento.xCorrecao); Gerador.wCampo(tcStr, 'HP20a', 'xCondUso', 001, 5000, 1, Evento.Items.InfEvento.detEvento.xCondUso); Gerador.wGrupo('/detEvento'); Gerador.wGrupo('/infEvento'); Gerador.wGrupo('/evento'); end; Gerador.wGrupo('/envEvento'); Result := (Gerador.ListaDeAlertas.Count = 0); end end;

bom dia pessoal! estou em homologação do PAF aqui no Rio de Janeiro e os arquivos nao podem ser gerado com o caracter "|" para separar colunas como posso resolver esse problema?

1º O codigo de barras do Quick Report precisa ser aumentado a largura pois esta cortanto a barra, e se der preview nao consegue imprimir so se imprimir direto. 2º Arquivo de remassa do BB para layout CN400, para contas que possiem convenio com 7 posições o bloco header, bloco 7 e bloco 9 do arquivo esta sendo gerado errado, em desacrodo com o manual do BB CN400. desde de ja obrigado pela atenção. se aparecer mas divergencia comunico aqui no forum.