PC Toledo

Boa tarde

Alguém conseguiu gerar boletos/arquivo remessa para o SICOOB (756) e poderia compartilhar a experiência?
Obrigado pela atenção

Bom dia Marcos

Agradeço pela atenção e aproveito para dizer que também concordo com o que você escreveu.
Eu também não sou fã da ideia de ter um outro programa trabalhando em segundo plano "prestando serviço" aos meus sistemas.
Mas o fato é que preciso de uma solução capaz de gerar esses boletos ...

Bom dia a todos

Algum colega do grupo já trabalhou ou trabalha com o ACBR MONITOR para geração de boletos bancários e também para geração de arquivos remessa/retorno para algum banco e teve êxito?
Dê-me o caminho das pedras por favor!

Boa tarde Pablo

Você tinha razão, acho que vou ter que utilizar o fopen()/fread() para fazer o que eu quero, pois da forma que eu fiz é gerado um caracter na primeira posição (linha zero coluna zero), e quando eu mando imprimir esse arquivo, é feito um salto de página. Quer dizer a impressora já ...

Consegui pessoal


function main()
cTexto := memoread("C:\ PRINTER\Pag00001.Txt")
nLinha := mlcount(cTexto)
set device to printer
set printer to "C:\ PRINTER\Pag00001.Txt"
wrow=0
For n := 2 to nLinh
@ wrow,0 say HB_ANSITOOEM(memoline(cTexto,134,n))
wrow++
Next
set device to screen ...

Peço desculpas ao moderador pois postei essa mensagem no local errado.

Olá

Estou precisando criar uma rotina para ler um arquivo TXT e retirar a primeira linha dele e depois salvá-lo novamente, mas sem essa primeira linha.
Alguém já tem alguma coisa pronta?

Att
Ronny

Valeu Imatech

Gerei um arquivo TXT com o documento a ser impresso e usei a Win_PrintFileRaw() para enviar para a impressora.
Funcionou corretamente.

Att
Ronny Wdson

Olá pessoal

Resolvi usando uma gambiarra .
Continuei gerando e imprimindo o relatório na para a porta LPT? mas usando o aplicativo DOSPrint para redirecionar a impressão para a porta USB.
Funcionou corretamente, inclusive caracteres condensados e não condensados.
Sei que não é uma boa prática, mas ...

Toledo

Quando eu uso oPrn:EndDoc(.T.) o documento não é enviado para impressão.
Caso não de certo a impressão dessa forma, será que com a MINIPRINT daria?
O problema está somente no fato da impressora ejetar um formulário em branco.

Att
Ronny Wdson

Bom dia Ronaldo e Toledo

Será que tem como desabilitar o salto de página do final de cada impressão.
Vários vendedores emitem pedidos quase que ao mesmo tempo. E eu queria saber se tem como ao final da impressão de um pedido, que a impressora parasse no inicio do próximo formulário e esperasse a ...

Concordo com você Ronaldo

Mas eu utilizarei essa forma de impressão somente se a mesma for feita em impressoras matriciais. Quando não são eu utilizo a MINIPRINT.
Eu não conhecia a hbwin . Aliás eu nem possuía a pasta .\harbour\contrib (rsrsrsrs), pois a minha instalação do HARBOUR é a que vem com ...

Ronaldo

Usei o código abaixo para imprimir em modo condensado: E use esse outro para espaçar as linhas:

Funcionou corretamente.
Valeu pela força

Att
Ronny Wdson

Ronaldo

Usei a função que você enviou e deu certo a compressão.
Só que ficou pequeno demais, não ficou igual ao tamanho usado quando se imprime pelo DOS na LPT1.
E o espaçamento entre as linhas também ficou maior.
Será que é possível ficar do mesmo tamanho?


Toledo

Toledo

Fiz as alterações e coloquei o código oPrn:SetFont("Courier New",13,{3,-50},0,.F.,.F.) que você postou, mas a impressora fica imprimindo no mesmo lugar várias vezes. Ela repete a mesma letra várias vezes e o tamanho continua grande.