Convertendo Sistema do GASPRO para Harbour

[clipsis]

Olá e boa noite a todos!

Alguém usa sistema gerado pelo GASPro com LetoDB ?

Poderia passar quais as vantagens, prós e contras ?

Foram muitas modificações ? Poderia passar quais foram ?
Talvez possa ser colocado no Gas4Harbour.

Abraços

[bcm]

Toledo, boa tarde.

Fiz a compilação do meu sistema com o utilitário gas4harbour.exe,
mais quando entro em qualquer modulo do meu sistema dar mensagem de operação não autorizada. no plano de senha, em permissões está mostrando a seguinte seguencia de caracteres:

OCTDFPOCTDFPOCTDFPOCTDFPOCTDFP

Poderia me ajudar?

[bcm]

Toledo, boa tarde.

Fiz a compilação com utilitário gas4harbour e agora quando entro no sistema, e tendo acessar algum modulo, mostra mensagem de operação nao autorizada .

um abraço

[Toledo]

Olá bcm, em todos os testes que eu fiz nunca ocorreu este problema. Tive apenas que deletar os arquivos de índices dos arquivos de senha.

O Gas4Harbour está convertendo apenas projetos criados pelo GASPRO40, então verifique se os fontes do seu sistemas é desta versão do GAS.

Abraços,

[bcm]

Caro toledo,

eu baixei o codigo fonte gasp40hb.prg com data de 31/10/2012 compilei com o utilitario gas4harbour com data de 08/10/2012.Utilizei a seguinte sintax

gas4harbour sistcom.lnk

compila todo direito, sem erro algum.
Apeguei os arquivos com extensão .sys, .cdx, .ntx que estavam no diretorio padrão do sistema.
Executei o sistema, cofirmei o diretorio de trabalho, e quando tento acessa uma determinada opção, recebo a mensagem de "Operação não autorizada", todo sistema está em gaspro40 com clipper 5.2

Notei também que, toda vez que eu incluo uma nova tabela no sistema e utilizo o utilitário adap gerado pelo gas a senha fica embaralhada.

um grande abraço

[Toledo]

eu baixei o codigo fonte gasp40hb.prg com data de 31/10/2012 compilei com o utilitario gas4harbour com data de 08/10/2012.

Amigo, o certo é baixar a última atualização do Gas4Harbour! Segue o link:

Gas4Harbour - Conversor GASPRO40 para Harbour

Apeguei os arquivos com extensão .sys, .cdx, .ntx que estavam no diretorio padrão do sistema.

Fiz a compilação do meu sistema com o utilitário gas4harbour.exe,
mais quando entro em qualquer modulo do meu sistema dar mensagem de operação não autorizada. no plano de senha, em permissões está mostrando a seguinte seguencia de caracteres:

OCTDFPOCTDFPOCTDFPOCTDFPOCTDFP

O arquivo PWTABELA.DBF que é referente as permissões do plano de senha, então os arquivos que você deletou (apagou) não iam interferir em nada. Provavelmente estas restrições já estavam no arquivo PWTABELA.DBF ou no arquivo .SYS o "diretório de trabalho" para os arquivos DBF era outro, diferente do diretório padrão. Mensagem editada: veja as mensagens seguintes deste tópico

No uso do Gas4Harbour você deve apenas deletar os arquivos de índices dos arquivos de senhas (PWGRUPO1.NTX, PWTABEL1.NTX, PWUSUA1.NTX e PWUSUA2.NTX).

Notei também que, toda vez que eu incluo uma nova tabela no sistema e utilizo o utilitário adap gerado pelo gas a senha fica embaralhada.

O Gas4Harbour não tem opção para converter e compilar o utilitário ADAP, então se você estiver usando o ADAP compilado com o Clipper, é bom deletar os índices dos arquivos de senha antes de executar o seu sistema.

Vou ver se dá para criar uma opção no Gas4Harbour para converter e compilar também o ADAP.

Abraços,

[clipsis]

Olá e bom dia a todos

Olá Toledo. Realmente quando o arquivo de senhas é criado, o campo com as permissões é preenchido com :
OCTDFPOCTDFPOCTDFPOCTDFPOCTDFP

Percebi que nas rotinas ENCRIPT e DECRIPT, há um "desvio" quando o argumento "frase" é passado em branco (que é o caso de uma nova tabela ou criação do arquivo de senhas/permissões) ele salta e faz a encriptação pelo método usado no antigo arquivo LIBGAS.PRG.

Existe a necessidade desse "desvio" ?

Estou fazendo alguns testes. Qualquer novidade posto aqui.

Abraços.

[Toledo]

Percebi que nas rotinas ENCRIPT e DECRIPT, há um "desvio" quando o argumento "frase" é passado em branco

Realmente, este era o problema! Mas basta fazer o seguinte:

No arquivo GASP40HB.PRG procure todas as ocorrências de:

Código: Selecionar todos

if !empt(frase) .and. (pcount()==1 .or. cpw=="478478")

e troque por:

Código: Selecionar todos

if (pcount()==1 .or. cpw=="478478")

Vou atualizar a versão do Gas4Harbour que está nos links das minhas mensagens neste tópico e também o que está na seção download do fórum.

Abraços,

[bcm]

Agora funcionou direitinho.

Obrigado a todos.

um grande abraço

[bcm]

Olá pessoal, boa noite.

Quais as alteraçoes de devo fazer para imprimir em uma impressora com porta usb, após a inclusão?
Pois quando imprimo, está travando.

um grande abraço

[marrari]

Boa tarde.

Após a conversão de um sistema utilizando o conversor GAS4HARBOUR disponibilizado pelo nosso colega Toledo, meus relatórios com indexação decrescente, que usam a função DESCEND(), não estão funcionando mais. Já tentei as possíveis soluções apresentadas neste fórum, tipo colocar REQUEST DESCEND no início do programa principal, mas não funcionou (embora o conversor já faça isso automaticamente). Utilizo o Harbour 3.0.0.

Alguma outra solução?

Agradeço a atenção.

[Toledo]

Marrari, tenta fazer o seguinte:

- Na compilação do seu programa digite:

gas4harbour nomedoarquivo.lnk -lhbrtl

Abraços,

[marrari]

Colega Toledo,

Muito obrigado por tentar ajudar. Infelizmente, não deu certo. Tentei também o comando:

hbmk2 nomedoarquivo.lnk -lhbrtl

mas não obtive sucesso também.

Mais alguma dica?

[Toledo]

Marrari, qual é o problema que está ocorrendo no seu programa em relação a função DESCEND? Ocorre alguma mensagem de erro? O arquivo de índice é criado?

Bom, no programa que tenho aqui para teste não tem nenhum relatório que utiliza a função DESCEND(), mas fiz um teste na opção de "Consulta" de um dos cadastros que existe no programa, criando uma ordenação (OUTRA ORDEM), onde depois que você escolhe o campo para ordenação, pergunta se é em ordem CRESCENTE ou DECRESCENTE. Estou escolhendo DECRESCENTE e os registros do cadastro ficam em ordem decrescente certinho, então o programa está conseguindo utilizar a função DESCEND() corretamente.

A compilação deste programa exemplo que estou usando com o Gas4Harbour é o padrão, sem qualquer parâmetro:

Gas4Harbour nomedoarquivo.lnk

Apenas no arquivo principal tem a chamada da função DESCEND:

Código: Selecionar todos

/*
   Funcoes chamadas dentro de macros
*/

REQUEST DESCEND, MTAB, VUF, VCGC, MMAA, NMES, LTOC

Abraços,

[Jairo Maia]

Olá Pessoal,

Quando migrei meus sistemas do GasPro para Harbour, não usei o utilitário Gas4Harbour, pois ele foi criado depois, assim, acho que não está relacionado ao utilitário Gas4Harbour.

Tive problemas com a Descend() quanto a chave do índice continha mais de um campo, e me lembro que precisei alterar. Por exemplo:

Código: Selecionar todos

Descend( codcli + DToS( datapgto ) )

Precisei alterar para:

Código: Selecionar todos

Descend( codcli ) + Descend( DToS( datapgto ) )

Não sei se é o mesmo caso.