Convertendo Sistema do GASPRO para Harbour

[clipsis]

Olá e bom dia a todos!

Caro Toledo, você postou:

Olha, consegui decifrar em partes as funções DECRIPT e ENCRIPT, mas foi o suficiente para ler os arquivos de senha e o ERROS.DBF. Então estes dois problemas já foram resolvidos, tive apenas que deletar os arquivos NTX das senhas!

As funções DECRIPT e ENCRIPT, nos testes que eu fiz, estão funcionando 100% sem a utilização da senha (segundo parâmetro destas funções). Para descriptografar o arquivo ERROS.DBF, que usa uma senha, montei uma condição específica para a senha utilizada na criptografia. Se a senha passada para as funções for diferente da utilizada na encriptação do arquivo ERROS.DBF, é utilizado então a função alternativa CRIPTOGRAFA().

Essas modificações/correções estão no arquivo GASP40HB.PRG ?

Porque estou tendo que apagar os arquivos PW*.DBF, PW*.NTX e *.SYS, para que o sistema funcione, apagar apenas os NTX das senhas, não resolve.

Se você ainda não disponibilizou, poderia fazê-low?

Abraços

[Toledo]

Amigos, desculpe a demora!
Segue em anexo mais uma atualização do GASCOMP, com as alterações das funções ENCRIPT/DECRIPT e também as modificações nas funções GBAK e RBAK, que gera e restaura o Backup, agora em formato ZIP.

Acabei alterando de novo o nome do utilitário, GASCOMP já existe na net, então para evitar confusão, mudei o nome para Gas4Harbour.

As instruções de uso continuam a mesma:

- Descompactar o Gas4Harbour na pasta onde estão os arquivos fontes gerados pelo GASPRO40.
- Copiar o arquivo GETSYS.PRG da pasta \GASPRO40\ para a pasta do programa.
- Não precisa fazer qualquer modificação nos arquivos gerados pelo GASPRO40
- Deletar os arquivos de índices dos arquivos de senhas (PWGRUPO1.NTX, PWTABEL1.NTX, PWUSUA1.NTX e PWUSUA2.NTX)

Depois é só digitar:

Gas4Harbour <NomedoArquivoLNK>

Link para download da última versão do Gas4Harbour

Abraços,

[clipsis]

Olá e boa noite a todos!

Toledo, parabéns!!! Ficou show de bola.

Apenas uma modificação, no fonte GASP40HB.PRG na linha 4000: o último parâmetro de DBOX deve ser .F. e não .T. Senão a impressão fica parada esperando uma tecla.

Outra coisa: ainda preciso comentar as linhas:

REQUEST HB_GT_WVT_DEFAULT
e
HB_GtInfo( HB_GTI_ISFULLSCREEN, .T. )

Até agora não entendi o porquê.

O restante nota 10. Valeu pela iniciativa e de novo parabéns.

Abraços

[Toledo]

Apenas uma modificação, no fonte GASP40HB.PRG na linha 4000: o último parâmetro de DBOX deve ser .F. e não .T. Senão a impressão fica parada esperando uma tecla.

Ok... já fiz a correção na minha cópia.

ainda preciso comentar as linhas:

REQUEST HB_GT_WVT_DEFAULT
e
HB_GtInfo( HB_GTI_ISFULLSCREEN, .T. )

Faz um teste, deixe as linhas acima e digite:

Gas4Harbour <NomedoArquivoLNK> -gui

Veja se dá certo.

Abraços,

[Jairo Maia]

Olá clipsis,

Outra coisa: ainda preciso comentar as linhas:
REQUEST HB_GT_WVT_DEFAULT
e
HB_GtInfo( HB_GTI_ISFULLSCREEN, .T. )

A linha REQUEST HB_GT_WVT_DEFAULT carrega o drive GT WVT, se você a comenta, não pode usar a linha HB_GtInfo( HB_GTI_ISFULLSCREEN, .T. ) que é um comando GT.

Por outro lado, vejo na sua assinatura atual que você está usando a versão 2.1, mesmo que funcione usando o parâmetro -gui, sugiro a atualização para a versão 3.0, que tem muitos recursos adicionais a versão 2.1. Usar um drive GT permite inclusive você dar uma aparência melhor no sistema, incluindo o uso de uma fonte mais bonita como a Lucida Console por exemplo:

Código: Selecionar todos

HB_GtInfo( HB_GTI_FONTNAME, "Lucida Console" )

[clipsis]

Olá e boa tarde a todos

Fiz o que Jairo Maia indicou. Atualizei para a versão 3.0 do Harbour e deu certo.

Obrigado pela dica. Agora gero os fontes no GASPro e executo o GAS4Harbour e compila normalmente e executa tranquilo

Valew
Abraços

[clipsis]

Olá e boa noite a todos!

Apenas para confirmar: a função Imprime_hb do arquivo GASP40HB.PRG, não converte todos os comandos ESC/P, converte ?

Pergunto porque tentei imprimir uma ordem pedido que contem expandido, negrito e comprimido e aparentemente não saiu de forma correta.

Pesquisando encontrei em http://www.hmgforum.com/viewtopic.php?f ... ilit=EPSON, um EXE feito em Harbour que aparentemente resolve o problema. Porém ele usa HMG. Seria possível escrevê-lo em Harbour puro sem usar os comando HMG?

Abraços

[marrari]

Bom dia colegas.

Estou testando o método de conversão (gas4harbour.zip) e estou com alguma dificuldade. Utilizo o HMG 3.0.35 e acredito que tenha que fazer alguns ajustes de configuração, pois não entra nem no modo de compilação, só ajusta os progamas e aborta. Quando instalei o HMG, notei que ele não altera nada nas variáveis de path e outros. Preciso então que me ajudem nessas configurações (variáveis de ambiente, Autoexec.NT, etc.). Outra coisa que notei é que não achei a lib minizip. Terei que instalar então outra versão do harbour para utilizar o gas4harbour.zip? Se tiver, me ajudem com um passo à passo com instalações e configurações. Tentei me virar, pesquisando neste fórum e outros, mas estou tendo dificuldades.

Muito obrigado pela atenção e parabéns ao Toledo pela iniciativa de desenvolver um conversor para tornar mais fácil e rápido a conversão de nossos sistemas Gaspro.

[Jairo Maia]

Olá Marrari,

Terei que instalar então outra versão do harbour para utilizar o gas4harbour.zip?

Talvez você pudesse usar o Harbour que vem com a HMG, mas sugiro sim que instalae a versão 3.0.0 do Harbour, que é uma versão estável e totalmente compatível com os fontes do GASPRO após a conversão com o Gas4Harbour.

Não sugiro ainda baixar a versão 3.2 do Harbour para usar com os fontes do GAS, pois inicialmente haveria dois problemas: Run e Sombras das telas.

Você pode baixar a versão 3.0.0 aqui e instalar. Depois basta você acessar o prompt de comando e usar o Gas4Harbour. Não precisa nehuma configuração adicional, somente a pasta C:\hb30\bin no path, que o instalador já coloca.

Download harbour-3.0.0-win.exe (58.4 MB)

[Toledo]

Apenas para confirmar: a função Imprime_hb do arquivo GASP40HB.PRG, não converte todos os comandos ESC/P, converte ?

Não converte não!

Pesquisando encontrei em http://www.hmgforum.com/viewtopic.php?f ... it=EPSON...

Este exemplo não vai servir, pois no Imprime_HB estamos usando a classe Win_prn. Mas vou ver o que dá para fazer.

Abraços,

[Toledo]

Pergunto porque tentei imprimir uma ordem pedido que contem expandido, negrito e comprimido e aparentemente não saiu de forma correta.

clipsis, tem como você gravar este relatório (ordem de pedido) em arquivo me anexar aqui no tópico para que eu possa fazer alguns testes?
Obs.: antes de gravar o arquivo, selecione primeiro uma impressora Epson para configurar os comandos de impressão da Epson.

Abraços,

[clipsis]

Olá e boa tarde a todos!

Olá Toledo, tudo bem. Segue arquivo com impressão e comando para impressora Epson (comandos ESC/P).

Abraços

[Pablo César]

Pergunto porque tentei imprimir uma ordem pedido que contem expandido, negrito e comprimido e aparentemente não saiu de forma correta.

Seria também interessante que escaneasse e mostra na tela o resultado impresso. Não sabemos exatamente onde você está achando como "não forma correta".

Observei que o seu relatório também faz acentuação por retrocesso da cabeça de impressão. Tudo isso, poderia ser observado na impressão, se fosse escaneada a folha. Pode ser ?

O que também vejo é que os comandos para ativar e desativar o tamanho CPP 12 estão invertidos. Pois para ativar seria Chr(27)+"M" e para desativar seria Chr(27)+"P". Outra coisa, parece que no final de cada linha onde estão sendo impressos os itens (Produto/Descricao) estão sem função alguma... deve ser isso ! Pois estaria ativando numa linha e dasativando na linha seguinte. O certo é começar a ativar logo no começo da linha e desativar no final da linha ou até melhor, ativa no inicio do primeiro item e desativar no ultimo item a ser impresso (de cada página, é claro). Talvez é questão de posicionamento que está falhando no ativa/desativa CPP12...

[clipsis]

Olá Pablo César, tudo bem?

Antes queria dizer que acompanhei seu posto no HMGForum sobre o STRU. Muito bom !

Na verdade esse é um relatório gerado automaticamente pelo GASPro 4.0. Se imprimo ele em arquivo e depois uso o DOSPRINTER a impressão sai correta com CPP10, CPP 12, CPP 17.5, negrito, itálico, expandido.

Tenho outros relatórios também em que o negrito é apenas em uma das colunas do relatório. Então nesse caso não poderia, por exemplo, colocar os comando de negrito no início e no final da linha.

Segue arquivo com o relatório impresso no formato PDF.

Abraços

[Pablo César]

Olá Pablo César, tudo bem?

Tudo bem !

Antes queria dizer que acompanhei seu posto no HMGForum sobre o STRU. Muito bom !

Obrigado ! Mas aqui no fórum também é abordado o STRU e disponibilizado na seção de Downloads, esteja a vontade para fazer alguma sugestão ou crítica.

Na verdade esse é um relatório gerado automaticamente pelo GASPro 4.0.

Você poderia postar o código fonte que gera esse relatório ?

Tenho outros relatórios também em que o negrito é apenas em uma das colunas do relatório. Então nesse caso não poderia, por exemplo, colocar os comando de negrito no início e no final da linha.

Não, o negrito é o comando Chr(27)+"E" para ativar e Chr(27)+"F" para desativar e você deve fazê-lo no momento certo, não no inicio e final de linha, pois ai tudo irá ficar em negrito. Eu me referia quando ao comando Chr(27)+"P" que ativa CPP 12 e Chr(27)+"M" que destiva e retorna o CPP 10. Pois este estão no final da linha, sendo que Chr(27)+"P" deveria estar no inicio da linha. Acho que aqui está havendo falta de posicionamento desse comando.

Olhe as minhas observações na tela do seu relatório e o arquivo de impressão: