brunosadna

Como a Juliana disse, faz uma query trazendo os dados do boleto do seu BD, inclusive o nosso numero e a Emissão (isso se você salvou tudo hehe)... passa pro componente e só manda imprimir. QQ dúvida manda msg novamente, Att,

Bom dia Pessoal, o problema estava na configuração da impressora. Quando ligava a mesma, aparecia assim 10/10/DAT, apertando a seta para o lado muda a configuração e fica 10/10/2012, um erro aparentemente simples, mas que me custou horas de testes para ver que não era na programação e sim no equipamento. Se alguem passar por algo parecidom, espero que ajude Att, Bruno

Pessoal, consegui o manual da Chronos, conferi os comandos e estão corretos... agora estou com mais duvida ainda do que pode estar acontencendo

Bom dia, Quando imprimo o cheque na chronos 31100, os valores saem corretamente EXCETO a data que sai assim: IBITINGA, 0(ZERO) 'ESPAÇO GRANDE' 2013, abaixo a procedure de impressão onde o valor de DataStr é '14/08/13'. procedure TACBrCHQChronos.ImprimirCheque; Var ValStr, DataStr : String ; begin { Banco } fpDevice.EnviaString( #27 + #162 + fpBanco + #13 ) ; Sleep(100); { Valor } ValStr := IntToStrZero( Round( fpValor * 100), 11) ; ValStr := copy(ValStr,1,9)+','+copy(ValStr,10,2) ; fpDevice.EnviaString( #27 + #163 + ValStr + #13 ) ; Sleep(100); { Favorecido } fpDevice.EnviaString( #27 + #160 + Trim(fpFavorecido) + #13 ) ; Sleep(100); { Cidade } fpDevice.EnviaString( #27 + #161 + Trim(fpCidade) + #13 ) ; Sleep(100); { Data } DataStr := FormatDateTime('dd/mm/yy',fpData) ; DataStr := StringReplace(DataStr,DateSeparator,'/',[rfReplaceAll]) ; fpDevice.EnviaString( #27 + #164 + DataStr + #13 ) ; Sleep(100); fpDevice.EnviaString( #27 + #176 ) ; // Imprimir... Sleep(100); end; Help, alguem ja passou por isso? Att, Bruno

Bom dia cada parcela/boleto é individual.... de uma olhada nos exemplos do ACBRBOLETO que tem uma rotina facil para vc adaptar no seu projeto. Procure por: Titulo := ACBrBoleto1.CriarTituloNaLista; with Titulo do begin Vencimento := dVenc; DataDocumento := dHoje; etc... end; Att,

Pessoal, o código está sendo lido. Como ficou: Ratio 3, Modul 1. Se for exportar pra PDF resolução 300. Qualidade Impressão 'Normal' ou 'Melhor'. Agradeço pelas informações.

Bom dia Juliana, você saberia me dizer se os ajustes são o ratio e o Modul. Ou teve mais ajustes? Att.

Boa tarde, use a ocorrencia 'toRemessaBaixar' para cada titulo. Att,

Boa tarde pessoal, eu vi muitos posts aqui sobre esse assunto mas sinceramente to com duvida ainda... O código de barras que esta sendo gerado não é lido pelas leitoras. Ja mudei o ratio para 3, para 2... ja mudei o Modul pra 1 e nao lê... Alguma dica por favor... alguem ta usando com o QuickReport e tá lendo normal? Att, Bruno

Caro Andre... tentei o sleep, Application.ProcessMessages, mais continuava ocorrendo o problema, o que eu entendi nao sei o porque da velocidade, é que na primeira vez a impressora nao respeitava o tamanho da folha cheque que era 18 linhas... o que eu fiz.... na unit 'ACBrCHQImpressoraComum.pas' joguei o comando 'fpDevice.EnviaString( CmdTamanhoPag + chr(fsLinCheque) ) ;' no create e tambem antes do comando 'fpDevice.Eject ;' Está funcionando normalmente, passei para a área de testes verificar. Obrigado. Bruno

Bom dia, Quando vou imprimir em formulario de cheques passo o comando ACBrCHQ1.ImprimirCheque dentro de um while... até ai td bem... O problema ocorre na primeira vez que entro no programa apos ter ligado o computador... ele imprime o primeiro cheque, vai para a proxima pagina e imprime os demais... Se mandar imprimir novamente, sai tudo certo. Se reiniciar o computador entrar novamente no sistema e ir debugando(delphi) passo a passo, ele imprime corretamente mesmo sendo a primeira execução... Alguem já se deparou com isso? Será que o problema é a velocidade que os dados são transmitidos para a impressora, ja que quando vou debugando demora mais para ir os outros cheques... Agradeço qq ajuda... Att, Bruno

Prezados, consegui resolver assim: IMPRESSÃO DE CHEQUES SERVIDOR REMOTO COMPUTADOR COM IMPRESSORA LOCAL LX-300+ (USB) 1. DEIXAR A IMPRESSORA COMO PADRÃO 2. MARCAR A OPÇÃO “ATIVAR POOL DE IMPRESSÃO” E SELECIONAR AS PORTAS LPT1 E USB 3. ATIVAR O COMPARTILHAMENTO DE PORTAS NO REMOTE DESKTOP COMPUTADOR COM IMPRESSORA REDE LX-300 (LPT1) 1. DEIXAR A IMPRESSORA COMO PADRÃO 2. EXECUTAR “NET USE LPT1 \\REDE\IMPRESSORA / PERSISTENT:YES” 3. ATIVAR O COMPARTILHAMENTO DE PORTAS NO REMOTE DESKTOP IMPRESSORA: CHQIMPRESSORACOMUM PORTA: LPT1 Att, Bruno

Bom dia amigos, Tenho em meu sistema a impressão de cheques com o ACBR para 'impressoras comuns (impressão simples ou formulario) ' e também para 'impressoras de cheque'. Está funcionando normalmente nos micros locais/rede. Agora instalamos o sistema em um servidor web e acessamos através do Remote Desktop, onde não temos as impressoras locais. Minha dúvida é se consigo imprimir em minha impressora LPT1 por exemplo sem passar a porta para o ACBR ou como deve ser passada quando remoto. Grato. Bruno

Juliomar boar tarde, Como faço para colocar esse tópico como resolvido? Eu achei so esses botoes resolvido em cada mensagem e ja estão com check..

Boa tarde, só uma observação sobre carnê que eu estava com duvida... conversei com o suporte do banco e os mesmos me disseram que não há opção de enviar a opção do layout do boleto, todos vão ser o "simples", então se quiser carnê temos que usar a opção que o cliente emite e imprimir pelo ACBR, ai podemos construir uma capa. Agradeço a atenção de vocês.

Boa tarde amigos, após analisar os arquivos de retorno e inconsistencias, verifiquei que o erro estava na sequencia do nosso numero. Atualizei o contador, e tudo ficou resolvido. Só uma observação sobre carnê que eu estava com duvida... conversei com o suporte do banco e os mesmos me disseram que não há opção de enviar a opção do layout do boleto, todos vão ser o "simples", então se quiser carnê temos que usar a opção que o cliente emite e imprimir pelo ACBR, ai podemos construir uma capa. Agradeço a atenção de vocês.

Boa tarde Juliana, após analisar o retorno, vou entrar em contato com o suporte. Att, Bruno

Boa tarde Jeter, vou pedir para meu cliente o arquivo de retorno para analisar... hoje faço as baixas com o retorno, mas vou verificar os outros codigos para ver se acho alguma rejeição. Att, Bruno

Amigos, gerei uma remessa com 330 titulos, mas uns 10 clientes não receberam... confirmei no arquivo remessa e os dados estão todos digitados corretamente. Fiz outra remessa para esses clientes que não receberam e foi enviado o boleto normalmente. Alguem ja passou por isso? Tipo o banco não enviar todos os titulos? Utilizei o SICOOB (Credicitrus) Att, Bruno

Bom dia Jeter, mandei outra remessa para o banco, com 12 titulos para o mesmo cliente, acredito que agora eles vão imprimir como carnê. Att, Bruno

Prezado Jeter, obrigado por responder, hoje já estou gerando remessa para o banco do brasil e para o sicoob, mas sempre vai como layout padrão, olhei no manual e não achei onde falava sobre o tipo: boleto ou carne? No Quick report, tenho a opção layout carne, mas isso acredito que seja so para quando o cliente imprime, no banco ainda estou com duvida... Será que alguem tem mais alguma dica?

Bom dia prezados, 1 - Gostaria de saber se o layout carnê está disponivel no componente para quickReport? 2 - E quando o "banco Emite" gostaria de saber qual propriedade devo incluir na lista para gerar a remessa, eu vi em um post a propriedade layoutBol, tentei no cedente, sacado, banco, conta, mas todas não aceitam... onde devo passar? Agradeço antecipadamente por qq dica,

Bom dia Juliomar, Funcionou, realmente eu tinha alguns fontes que não foram atualizados. Obrigado pela informação.

Compiling package C:\ACBr2012\Pacotes\Delphi\ACBr_Boleto.dpk "C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\bin\dcc32.exe" "C:\ACBr2012\Pacotes\Delphi\ACBr_Boleto.dpk" --no-config -B -$O- -$W+ -$Y- -M -Q -H- -W- -DRELEASE -U"C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\lib\Win32\release" -U"c:\program files (x86)\embarcadero\rad studio\9.0\lib\Win32\release;C:\Users\BRUNO\Documents\RAD Studio\9.0\Imports;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\Imports;C:\Users\Public\Documents\RAD Studio\9.0\Dcp\Win32;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\include;C:\Program Files (x86)\FastReports\LibD16x64;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\RaveReports\Lib64;C:\Program Files (x86)\Raize\CS5\Lib\RS-XE2\Win64;C:\Program Files (x86)\madCollection\madBasic\BDS9\Win32;C:\Program Files (x86)\madCollection\madDisAsm\BDS9\Win32;C:\Program Files (x86)\madCollection\madExcept\BDS9\Win32;C:\Program Files (x86)\madCollection\madExcept\..\Plugins\Win32;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\JVCL348\jcl\lib\d16\Win32;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\JVCL348\jcl\source\include;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\JVCL348\jvcl\lib\D16\Win32;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\JVCL348\jvcl\common;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\JVCL348\jvcl\Resources;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\JVCL348\jvcl\run;C:\DELPHI XE2\COMPONENTES\VCLSkin5\Source;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\Quickrep505;C:\TMP\Tee9QR5D16Std\COMPILED;C:\DELPHI XE2\COMPONENTES\OFX XE\Release\Win32;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\FIBPlus 7.3FS\sources;C:\Users\Public\Documents\RAD Studio\9.0\Bpl;C:\Users\Public\Documents\RAD Studio\9.0\Dcp;C:\ACBr2012\Fontes\synalist;C:\ACBr2012\Fontes\PCN2;C:\ACBr2012\Fontes\ACBrComum;C:\ACBr2012\Fontes\ACBrDiversos;C:\ACBr2012\Fontes\ACBrSerial;C:\ACBr2012\Fontes\ACBrTCP;C:\ACBr2012\Fontes\ACBrTEFD;C:\ACBr2012\Fontes\ACBrCapicom;C:\ACBr2012\Fontes\ACBrBoleto;C:\ACBr2012\Fontes\ACBrPAF;C:\ACBr2012\Fontes\ACBrCTe;C:\ACBr2012\Fontes\ACBrNFe2;C:\ACBr2012\Fontes\ACBrSintegra;C:\ACBr2012\Fontes\ACBrSPED;C:\ACBr2012\Fontes\ACBrSPED\ACBrSPEDContabil;C:\ACBr2012\Fontes\ACBrSPED\ACBrSPEDFCont;C:\ACBr2012\Fontes\ACBrSPED\ACBrSPEDFiscal;C:\ACBr2012\Fontes\ACBrSPED\ACBrSPEDPisCofins" -U"C:\ACBr2012\Lib\Delphi\LibD16" -I"c:\program files (x86)\embarcadero\rad studio\9.0\lib\Win32\release;C:\Users\BRUNO\Documents\RAD Studio\9.0\Imports;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\Imports;C:\Users\Public\Documents\RAD Studio\9.0\Dcp\Win32;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\include;C:\Program Files (x86)\FastReports\LibD16x64;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\RaveReports\Lib64;C:\Program Files (x86)\Raize\CS5\Lib\RS-XE2\Win64;C:\Program Files (x86)\madCollection\madBasic\BDS9\Win32;C:\Program Files (x86)\madCollection\madDisAsm\BDS9\Win32;C:\Program Files (x86)\madCollection\madExcept\BDS9\Win32;C:\Program Files (x86)\madCollection\madExcept\..\Plugins\Win32;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\JVCL348\jcl\lib\d16\Win32;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\JVCL348\jcl\source\include;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\JVCL348\jvcl\lib\D16\Win32;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\JVCL348\jvcl\common;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\JVCL348\jvcl\Resources;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\JVCL348\jvcl\run;C:\DELPHI XE2\COMPONENTES\VCLSkin5\Source;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\Quickrep505;C:\TMP\Tee9QR5D16Std\COMPILED;C:\DELPHI XE2\COMPONENTES\OFX XE\Release\Win32;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\FIBPlus 7.3FS\sources;C:\Users\Public\Documents\RAD Studio\9.0\Bpl;C:\Users\Public\Documents\RAD Studio\9.0\Dcp;C:\ACBr2012\Fontes\synalist;C:\ACBr2012\Fontes\PCN2;C:\ACBr2012\Fontes\ACBrComum;C:\ACBr2012\Fontes\ACBrDiversos;C:\ACBr2012\Fontes\ACBrSerial;C:\ACBr2012\Fontes\ACBrTCP;C:\ACBr2012\Fontes\ACBrTEFD;C:\ACBr2012\Fontes\ACBrCapicom;C:\ACBr2012\Fontes\ACBrBoleto;C:\ACBr2012\Fontes\ACBrPAF;C:\ACBr2012\Fontes\ACBrCTe;C:\ACBr2012\Fontes\ACBrNFe2;C:\ACBr2012\Fontes\ACBrSintegra;C:\ACBr2012\Fontes\ACBrSPED;C:\ACBr2012\Fontes\ACBrSPED\ACBrSPEDContabil;C:\ACBr2012\Fontes\ACBrSPED\ACBrSPEDFCont;C:\ACBr2012\Fontes\ACBrSPED\ACBrSPEDFiscal;C:\ACBr2012\Fontes\ACBrSPED\ACBrSPEDPisCofins" -R"c:\program files (x86)\embarcadero\rad studio\9.0\lib\Win32\release;C:\Users\BRUNO\Documents\RAD Studio\9.0\Imports;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\Imports;C:\Users\Public\Documents\RAD Studio\9.0\Dcp\Win32;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\include;C:\Program Files (x86)\FastReports\LibD16x64;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\RaveReports\Lib64;C:\Program Files (x86)\Raize\CS5\Lib\RS-XE2\Win64;C:\Program Files (x86)\madCollection\madBasic\BDS9\Win32;C:\Program Files (x86)\madCollection\madDisAsm\BDS9\Win32;C:\Program Files (x86)\madCollection\madExcept\BDS9\Win32;C:\Program Files (x86)\madCollection\madExcept\..\Plugins\Win32;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\JVCL348\jcl\lib\d16\Win32;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\JVCL348\jcl\source\include;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\JVCL348\jvcl\lib\D16\Win32;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\JVCL348\jvcl\common;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\JVCL348\jvcl\Resources;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\JVCL348\jvcl\run;C:\DELPHI XE2\COMPONENTES\VCLSkin5\Source;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\Quickrep505;C:\TMP\Tee9QR5D16Std\COMPILED;C:\DELPHI XE2\COMPONENTES\OFX XE\Release\Win32;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\FIBPlus 7.3FS\sources;C:\Users\Public\Documents\RAD Studio\9.0\Bpl;C:\Users\Public\Documents\RAD Studio\9.0\Dcp;C:\ACBr2012\Fontes\synalist;C:\ACBr2012\Fontes\PCN2;C:\ACBr2012\Fontes\ACBrComum;C:\ACBr2012\Fontes\ACBrDiversos;C:\ACBr2012\Fontes\ACBrSerial;C:\ACBr2012\Fontes\ACBrTCP;C:\ACBr2012\Fontes\ACBrTEFD;C:\ACBr2012\Fontes\ACBrCapicom;C:\ACBr2012\Fontes\ACBrBoleto;C:\ACBr2012\Fontes\ACBrPAF;C:\ACBr2012\Fontes\ACBrCTe;C:\ACBr2012\Fontes\ACBrNFe2;C:\ACBr2012\Fontes\ACBrSintegra;C:\ACBr2012\Fontes\ACBrSPED;C:\ACBr2012\Fontes\ACBrSPED\ACBrSPEDContabil;C:\ACBr2012\Fontes\ACBrSPED\ACBrSPEDFCont;C:\ACBr2012\Fontes\ACBrSPED\ACBrSPEDFiscal;C:\ACBr2012\Fontes\ACBrSPED\ACBrSPEDPisCofins" -N0"C:\ACBr2012\Lib\Delphi\LibD16" -LE"C:\Users\Public\Documents\RAD Studio\9.0\Bpl" -LN"C:\Users\Public\Documents\RAD Studio\9.0\Dcp" -N"SData.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;System.Win" Embarcadero Delphi for Win32 compiler version 23.0 Copyright © 1983,2011 Embarcadero Technologies, Inc. C:\ACBr2012\Fontes\ACBrBoleto\ACBrBancoBradesco.pas(57) Error: E2037 Declaration of 'GerarRegistroHeader400' differs from previous declaration C:\ACBr2012\Fontes\ACBrBoleto\ACBrBancoBradesco.pas(58) Error: E2037 Declaration of 'GerarRegistroTransacao400' differs from previous declaration C:\ACBr2012\Fontes\ACBrBoleto\ACBrBancoBradesco.pas(59) Error: E2037 Declaration of 'GerarRegistroTrailler400' differs from previous declaration ACBr_Boleto.dpk(44) Fatal: F2063 Could not compile used unit 'ACBrBancoBradesco.pas' Compilation failure Alguem já passou por isso?

Prezado Daniel, Copiei as DLL's que você indicou para a pasta C:\WINDOWS\SYSWOW64 e funcionou perfeitamente... Agradeço pela ajuda.