Convertendo Sistema do GASPRO para Harbour

[bcm]

bom dia!

segue código fonte

[bcm]

esse outro tambem imprime uma pagina em branco ao final

[alxsts]

Olá!

Não tenho muito tempo para analisar nem como testar a fundo o teu Prg mas, em uma olhada rápida, creio que o problema seja realmente o teu contador de linhas, conforme mencionado pelo Itamar no outro tópico por você postado. Já vi várias vezes este problema.

Se você vem imprimindo em sequência, incrementando o contador de linhas, e quando está em 10, por exemplo, você manda imprimir na linha 5, ocorre o salto de página pois a linha atual é 10 e a linha 5 está na próxima página.

Achei bem estranho o fato de você chamar tantas vezes a rotina de cabeçalho abaixo:

Código: Selecionar todos

STATIC PROC REL_CAB(qt)                            // cabecalho do relatorio
LOCAL ar_:=ALIAS()
IF qt>0                                            // se parametro maior que 0
 cl=cl+qt                                          // soma no contador de linhas
ENDI

IF cl>maxli .OR. qt=0                              // quebra de pagina
 SELE PDV                                          // volta ao arquivo pai
 @ 2,025 SAY alltrim(NEMP)
 @ 3,000 SAY REPL("-",75)
 @ 4,000 SAY PADC('Insc.Est.: '+ALLTRIM(M->e_inscesta)+' Insc.Mun.: '+ALLTRIM(M->e_inscmuni)+' CNPJ: '+TRAN(M->e_cgc,'@R 99.999.999/9999-99'),60)// nos
 @ 5,000 SAY TRAN(padc(alltrim(M->e_endereco)+', '+ALLTRIM(e_numero)+' - '+ alltrim(M->e_cidade)+' - '+M->e_uf,60),"@!")// Endereco/Bairro
 @ 6,000 SAY TRAN(padc('Tel..: '+alltrim(M->e_telefone),60),"@!")// Telefones
 @ 7,000 SAY TRAN(padc('Fax..: '+alltrim(M->e_fax),60),"@!")// Fax
 @ 8,017 SAY "*** CONTROLE INTERNO ***"
 @ 9,000 SAY REPL("-",75)
 SELE (ar_)
 cl=qt+9 ; pg_++
ENDI

Normalmente, quando se imprime um cabeçalho, o contador de linhas é reinicializado para o total de linhas do cabeçalho mais uma. Não é o que ocorre na tua rotina, onde o contador é incrementado com +9 na linha

Código: Selecionar todos

 cl=qt+9 ; pg_++

Não seria

Código: Selecionar todos

 cl := 9 ; pg_++

Revise este processo.

[bcm]

Boa tarde
segue código fonte do relatório

[LDOSISTEMAS]

Anexa o arquivo , de impressão e não o fonte, pelo que relatou sua folhaa deve estar maior talvez uma ou duas linhas, vi que o relatório é do gerador GAS, você editou ele ou esta usando o gerador ainda para contruir ?

[bcm]

Boa tarde a todos!

eu converti meu sistema feito no gaspro 4.0 para harbour em modo console.
Está funcionando perfeitamente, mas tem sido muito questionado se o meu sistema funciona on line.
Teria uma maneira de eu fazer meu sistema funcionar on line ?

[sygecom]

Boa tarde a todos!

eu converti meu sistema feito no gaspro 4.0 para harbour em modo console.
Está funcionando perfeitamente, mas tem sido muito questionado se o meu sistema funciona on line.
Teria uma maneira de eu fazer meu sistema funcionar on line ?

Mesmo em modo console consegue sim usar on-line, tem algumas possibilidades.

1-Se usa DBF, pode usar LETODB e colocar os DBF na nuvem para usar a aplicação local e os dados on-line na nuvem.
2-Pode migrar para um SGBD tipo PostgreSQL e deixar o banco de dados na nuvem e sua aplicação console nas estação local.
3-Pode usar um serviço tipo o APPSTREM da AWS e usar seu sistema exatamente como está pelo navegador ( isso tem um custo mais alto $$$$ )
https://aws.amazon.com/pt/appstream2/

Nota: Entende NUVEM como sendo um servidor windows/linux para hospedar seus dados on-line.

[lucimauro]

Ola,
Uma outra alternativa seria TSPLUS
https://tsplusbrasil.com.br/

[clodoaldomonteiro]

Uma outra alternativa, é usar a área de trabalho remota do windows, o TSPLus usa ela e é muito bom.
Link: https://apps.microsoft.com/store/detail ... t-br&gl=br

[bcm]

Boa tarde!
Obrigado pelas dicas

[bcm]

Bom dia a todos!

Converti meu sistema de gaspro40 para harbour em modo console. Eu tenho uma função que importa de uma determinada pasta os pedidos enviado em txt ou prn para o banco de dados, mais eu tenho alguns pedidos que são enviados em pdf e precisaria ser convertidos para txt ou prn para que a função possa fazer a importação. Alguém teria uma função em prg que posso me enviar?

[clodoaldomonteiro]

Bom dia a todos!

Converti meu sistema de gaspro40 para harbour em modo console. Eu tenho uma função que importa de uma determinada pasta os pedidos enviado em txt ou prn para o banco de dados, mais eu tenho alguns pedidos que são enviados em pdf e precisaria ser convertidos para txt ou prn para que a função possa fazer a importação. Alguém teria uma função em prg que posso me enviar?

Você já verificou se tem algum aplicativo que converta PDF em TXT, e chamá-lo de dentro do seu sistema, passando os parâmetros para tal?

Veja o PDFTK.exe, pode ser que ele tenha esse recurso.

Veja o link: https://pdf.wondershare.com.br/online/pdf-to-text.html

Veja este Link, ler o PDF com CreateObject("AcroExch.App"), daí é só usar o método Salvar como TXT, se existir. hehe: https://fivetechsupport.com/forums/view ... 1&start=15

Abraços.

[bcm]

Boa tarde a todos!

Converti meu sistema feito em gaspro 4.0 para harbour em modo console, estou precisando o gerar etiquetas de produtos com a impressão das barras do código de barras, mas está travando, mesmo se eu enviar para uma impressora de pdv ele trava.

Poderiam me ajudar?

[Itamar M. Lins Jr.]

Olá!

Poderiam me ajudar?

Sim! Cadê o código ? Ta fazendo como ?

Saudações,
Itamar M. Lins Jr.

[bcm]

Boa tarde

segue anexo o codigo fonte