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.