Convertendo Sistema do GASPRO para Harbour

[Jairo Maia]

Olá Alexandre,

No caso deu certo pra vc, porque nao tem arquivos memo no exemplo que te passei..
estou anexando outro...ok

Sim no exemplo não tem. Veja o que fiz, e esta aqui ainda:

1- descompactei seus arquivos do exemplo antigo numa pasta
2- abri roma.pro no gas
3- acrescentei um campo memo no arquivo ITENS
4- gerei novos fontes
5- configurei o RDD para DBFSNX
6- compilei em Harbour usando seu R.BAT
7- compilei ROM_ADAP para atualizar os campos do arquivo ITENS
8- tentei usar a compactação, no seu exemplo não tinha a função APOIO
9- editei ROMA.PRO e manualmente acrescentei a função APOIO copiando de um projeto meu
10- abri ROMA.PRO no gas e gerei novos fontes.
11- refiz os passos acima
12- ao usar a compactação deu o mesmo ERRO.
13- achei que teriamos problemas nos fontes do gas, desespero, mais problemas, pois tenho aplicação na versão 4o do gas.
14- desisti
15- minutos depois, lembrei da bendita função EXTENSAO, eu nao uso a lib do algodão nos fontes do aplicativo que estou migrando, mas analizei estes fontes, muito legal, mas é generica, e carente de comentarios nos fontes
16- atualizei a função EXTENSAO para DBFSNX
17- compilei com R.BAT
18- testei. erro. lembrei que vc disse que o arquivo se corrompe
19- exclui o arquivo ITENS.DBF
20- executei ROMA.EXE. foi criado o arquivo ITENS.DBF e ITENS.SMT vazios
21- EXECUTEI A COMPILAÇÃO. bingo!!!

Será que os arquivos que vc está usando para testes, não estão corrompidos? Ou será que os arquivos SMT tem que ser criado pelo Harbour?? Ou será que não deu erro pq estava vazio? não sei.

Vou baixar os novos arquivos, e espero lhe reportar assim que puder. Talvez ainda pela manhã, dependerá de tempo, mas vou tentar fazer os testes o mais breve possível.

[Alexandre Silva]

Grande trabalho.. :)Pos
Acho que deve ser isso. o Harbour em NSX, usa o SMT... ai teriamos que converter o DBT pra SMT..
vou vazer uns testes..
Fico no aguardo..

[clipsis]

Olá a todos!

Vi nesse tópico algumas referências sobre LIBG2.PRG . Que arquivo é esse ? Pelo que entendi é uma versão modificado do LIBGAS.PRG.

Onde posso encontrá-la

Fico no aguardo.

Abrs

[Alexandre Silva]

Oi, Essa lib tem poucas mudancas, poucas mesmo, em relaçao a que já esta disponivel aqui no Forum
Aquela que tem um include do algodao.ch..
Onde vc ve libg2 leia-se gaslib

[clipsis]

Olá, a todos!!

Voltando ao assunto Convertendo Sistema do GASPRO para Harbour, estou com um dúvida.

Preciso fazer alguma coisa para as mensagens de erros ? Porque sempre que dá algum erro no sistema, se o usuario clicar em "Possíveis causas", aparece a mensagem de "ERRO NÃO IDENTIFICADO". O mesmo acontece se escolhe a opção "Solução/comentários".

Pelo que vi o arquivo ERROS.DBF do GASPro é criptografado.

Alguém conseguiu "convertê-lo". Eu tentei abrir o arquivo ERROS.DBF, descriptografar com o DECRIPTA do GASPro e criptograr com o ENCRIPTA da LIBGAS para Harbour, mas não tive êxito.

Abrs.

[clipsis]

Olá, a todos!!

Só para atualizar!!
Alguém tem alguma sugestão ??

Abrs

[clipsis]

Olá a todos!

Depois de muito tentar consegui resolver meu problema.
Espero que ajude a mais alguém. Fiz da mesma maneira que anteriormente, porém estava esquecendo da chave para descriptografar com o "criptografa do GAS". Agora está OK.

Segue o código que utilizei:

Código: Selecionar todos

FUNC ARQ_ERROS()

xVar6:= "478"
xVar6:= xVar6+xVar6

Use errosn new alias novo
zap

Use erros new alias atual
Index On codi_erro To erros

go top

while !eof()
   scod:=decript(codi_erro,xVar6)
   stpm:=decript(tpmsg_erro,xVar6)
   smsg:=decript(msg_erro,xVar6)

   sele novo
   append blank
   repl codi_erro  with encript_h(scod)
   repl tpmsg_erro with encript_h(stpm)
   repl msg_erro   with encript_h(smsg)

   sele atual
   skip
endd

close all
retu

Abrs

[leozirio]

Boa Noite Alexandre

Tenho Varios sistemas feitos em gas4.0 e fiquei interessado nesta conversao:

Voce conseguiu converter seus sistemas?

Como comecar?

Qual o caminho das pedras?

Agradeço qualquer informação.

Leozirio

[Alexandre Silva]

AMigo o Caminho seria esta todo aqui no forum..
1-Aprenda a usar o harbour, defina como vai compilar, (eu uso hmnk2 por ser parecedido com rmake que usava)

2-Obtenha a gaslib para poder compilar em harbour, procure aqui no forum)
voce vera que a rotina que encripta e decripta é diferente entao, ou vc decripta as senhas e direitos pela lib original e encripta pelo novo sistema, ou apagar todos os pw*.dbf e refaz tudo..

3-Tive problemas com indices NSX, mas só numa rotina e usei NTX, talvez vc nao tenha o problema

4-O que posso te adiantar, que vai evitar perda de tempo tb esta aqui no fourm, veja o que vc deve mudar nestes prg

Código: Selecionar todos

*Para o arquivo principal
function main()
setmode(25,80)
*--
REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_ES850C
REQUEST DESCEND, MTAB, VUF, VDV2, VCGC, NMES, VHORA, EXT
*--
Hb_GTInfo(HB_GTI_MOUSESTATUS, .f. )  // mouse off
HB_SETCODEPAGE('ES850C')
HB_LANGSELECT('PT')

*--------------------------
* inf_proc.prg  //  linha 250
  STATIC PROC MONTA_LIN(qtlin_,qttab_)  //  linha 250
       l_arq[maxlin_]:=""  /// CHR(0)  se deixa chr(0) aparece ???? quando mostra o rel na tela

* inf_fun2.prg
  mudar PWU_get1(tp_mov, excl_rela) // mudar decript por encript

* inf_func.prg
  FUNC MOSTRA_RELA()  // 540
     IF chv_1 != &chv_rela .OR. br_outro:stable  // tirar ! do br_outro ou  it .t.

  mudar LDBEDIT( <ExpL> // 2688 ldb..
      ind_ord=db_&pas.ind_or // d  tirar o D

[leozirio]

Boa Noite Alexandre
Podemos conversar em particular poder ser via email (leozirio@gmail.com) ou msn leozirio@infonet.com.br

Nota de Moderação:
por [url=https://pctoledo.org/forum/memberlist.php?mode=viewprofile&u=100899][color=#00AA00]Pablo César[/color][/url]: (de acordo a sua ultima citação) 
 
Enviar por email, resolver através de meios privados são práticas não aceitas aqui no fórum. Desestimulamos este tipo de procedimento, já que o objetivo do fórum é para servir como fonte centralizadora de informações, onde os usuários possam compartilhar de forma pública e não exclusiva. Favor ler a Regra Geral do Fórum (itens 10,11,12 e 13).

[marrari]

Boa tarde colegas.

Por favor, não me tomem como preguiçoso ou como alguém que queira tudo mastigadinho. É que sou bem leigo mesmo no Harbour, estou começando a ler sobre o mesmo recentemente. Estou precisando migrar um sistema um tanto complexo, cheio de programas e rotinas que fora desenvolvido por mim em Gaspro 4.0o, Clipper 5.2e. Alguém que já tenho tido sucesso em tal empreitada poderia, por gentileza, montar um tutorialzinho em apenas um tópico para ajudar nessa tarefa? Poderia explicar desde o comecinho:

- Programas a serem puxados para a conversão e detalhamento da instalação (paths, etc.). Eu puxei a última versão do harbour (3.0) e cliquei no executável para instalação. Não sei se devo instalar ou setar alguma coisa para funcionar corretamente.

- O que deve ser convertido nos programas

- Como fazer a complilação e melhor configuração para isso

- Como contornar erros já encontrados nos programas originais

- Enfim, um passo à passo bem detalhado e definitivo

Se alguém puder ajudar, agradeço. Acredito que tem muita gente que anda adiando a conversão de seus projetos por não ter encontrado ainda, num único local, informações básicas e detalhadas para tal tarefa, principalmente os usuário da ferramenta Gaspro.

Fico no aguardo.

[marrari]

Boa tarde colegas.

Alguém pode ajudar com as minhas questões do tópico anterior?

Ainda no aguardo.

Obrigado.

[Pablo César]

Voce tem a funcaao mudafonte() e a naopisca(), ?

Eu achei estes códigos:

Código: Selecionar todos

Function NAOPISCA
Local xVar1
xVar1:= cardtype()
If (xVar1 = 2 .OR. xVar1 = 3)
   xVar1:= val_bx()
   val_bx("0")
   val_ax("1003")
   callint("10")
   val_bx(xVar1)
EndIf
Return Nil

Function MUDAFONTE(xArg1)
Local xVar1,xVar2,xVar3,xVar4,xVar5,xVar6
xVar6:= drverr+Chr(86)+Chr(71)+Chr(65)+Chr(76)+Chr(73)+Chr(66)+Chr(46)+Chr(70)+Chr(84)+Chr(83)
ret_val:= ""
If (cardtype() = 3 .AND. MaxRow() < 49 .AND. file(xVar6))
   If (xArg1 == 0)
      SaveScreen()
      setmode(50,80)
      setmode(25,80)
      naopisca()
      RestScreen()
   Else
      xVar2:= fopen(xVar6)
      xVar4:= fseek(xVar2,0,2)
      xVar5:= xVar4/4112+1
      If (xArg1 == 999)
         ret_val:= "  Normal    |"
         xVar3:= 0
         For i:= 1 To xVar5-1
            fseek(xVar2,xVar3)
            xVar1:= Space(16)
            fread(xVar2,@xVar1,16)
            ret_val:= ret_val+"ÿ"+" "+Left(alltrim(xVar1)+Replicate("ÿ",10),10)+IIf(i = xVar5-1,"","|")
            xVar3:= xVar3+4112
         Next
         fclose(xVar2)
      Else
         If (xVar5 <= xArg1)
            drvfonte:= 0
         Else
            p_:= (xArg1-1)*4112
            If (xVar2 # -1)
               fseek(xVar2,p_+16)
               ft_:= Space(4096)
               fread(xVar2,@ft_,4096)
               fclose(xVar2)
               ok:= fontevga(ft_)
            EndIf
         EndIf
      EndIf
   EndIf
EndIf
Return ret_val

Function CARDTYPE
Local xVar1,xVar2
xVar2:= 0
If (peek("0","0463") == 180)
   xVar2:= 1
Else
   val_ax("1A00")
   callint("10")
   If (val_al() == 26)
      xVar2:= 3
   Else
      xVar1:= val_bx()
      val_ax("1200")
      val_bx("0010")
      callint("10")
      If (val_bl() # 16)
         xVar2:= 2
      EndIf
      val_bx(xVar1)
   EndIf
EndIf
Return xVar2

O problema que essa funções pedem as seguintes funções da LIB:

• VAL_BX
  VAL_AX
  CALLINT
  FONTEVGA
  PEEK
  VAL_AL
  VAL_BL

E essas não as tenho.

[bcm]

Consegui compilar o sistema feito em gaspro 40 e funcionou perfeitamente, so tem um detalhe a opção de troca de fonte e o mouse nao funciona.

Quanto ao mouse, ele se movimenta na tela mais nao entrada na opção desejada quando clica.
Quanto a fonte de caracteres nao esta acessivel

O programa ficou muita mais rapido em todos os sentidos.

Eu so tenho uma duvida ao qual preciso de ajuda.Como fazer para imprimir em qualquer impressora?

Tanto na usb e na matricial.

Este forum fez reviver todos os sistema que tenho instalado, pois trabalho com a ferramenta do gas para clipper desde 1994.

Desde já agradeço!

[Imatech]

Olá !

Faça busca no forum por: Win_PrintFileRaw
https://pctoledo.org/forum/search ... intfileraw


Ira encontrar o que precisa...