Biblioteca GASPro (LIBGAS.PRG)

[clipsis]

Olá, boa noite a todos!

Vi que muitos estão querendo "migrar" seus projetos feitos no GASPro 4.0 para o Harbour.
Bom, estou usando o fonte disponibilizado em: http://www.suportegas.com.br/portal/dl_goto.asp?id=394. E pelo que vi até agora está servindo adequadamente. Cada vez que gero os fontes no GAS preciso fazer apenas três modificações, para que o sistema rode belezinha.

Acredito eu, que essas três alterações possa incomodar um pouco, mas só o ganho em performance e o fato de poder rodar num sistema 64 bits já compensa.

Segue abaixo as modificações que faço:

Código: Selecionar todos

Depois de gerar fontes fazer alteracoes para Harbour
- funcao MOSTRA_RELA() - SIS_FUNC.PRG
    *bloquear linha
      //    IF chv_1 != &chv_rela .OR. !br_outro:stable
      //    ENDI

- funcao LDBEDIT() - SIS_FUNC.PRG
    *trocar
      //ind_ord=db_&pas.ind_ord
    *por
      //ind_ord=db_&pas.ind_or

- funcao PWU_get1()- SIS_FUN2.PRG
  * depois do READ - trocar DECRIPT por ENCRIPT
  * de todas as variaveis
         M->pw_codigo=ENCRIPT(_codigo)            // encripta variaveis

Apenas com essas modificações meus sistemas rodam sem problemas. O único "problema" é o mouse que ainda não consegui fazer funcionar.
Espero ter ajudado e se alguém tiver mais alguma dica seria bem-vinda.

Abraços

[Alexandre Silva]

é bem isso mesmo..
eu acrescentaria a variavel com nome longo, drvautohelp que no clipper era gravada como dbfautohel, mas no harbour o nome é longo.. vejam aqui mesmo no forum como tratar


Estou tendo um probleme na geracao de qquer relatorio em aquivo/video ou com ALT_V
aparece um coluna de caracteres ( ponto de interrogacao) no final do relatorio..
Se abrir com outros aplicativos ou na impressao nao dá problema, é só na tela
?
?
?
?
O que esta gerando isso ? voce teve esse problema ?

[Jairo Maia]

Olá Colegas,

Publiquei na seção Dicas e Contribuições as funções para habiltar o mouse nas aplicações Gaspro/Harbour:

https://pctoledo.org/forum/viewto ... 43&t=11941

Nota de Moderação:
por Pablo César: Mensagem reditada para inserir o TAG de URL. Favor utilizar TAGs de URL cada vez que precisar inserir algum link

[clipsis]

Olá boa noite a todos!

Quando ao ALT+V, para que não aparecesse os caracteres "estranhos" na tela, fiz o seguinte:

na procedure : STATIC PROC MONTA_LIN(qtlin_,qttab_) // le/imprime linhas do arquivo binario do arquivo ???_PROC.PRG

troca a linha:
IF !EMPTY(lin_).AND.!OK_PRINT(lin_) // tem caracter de controle?

por:
IF !EMPTY(lin_) // tem caraceter de controle?

Comigo funciona beleza

Abraços

[Alexandre Silva]

Pra mim nao funciona.. quando chega nesse ponto a variavel lin_ já contem "?"