Migração Harbour

[sygecom]

Não percebi que você falou sobre o GPF, então tente começar retirando o MT, e pelo menos revisando se a Minigui é compativel com MT.

[mbrigatti]

Leonardo,

Primeiramente, grato pela pronta resposta.
Mas vamos lá, quanto ao -mt, pode deixar para lá o certo mesmo é -st (a multi thread pelo que ouvi no harbour está muito boa) mas acabei mpostando o arquivo errado.
Quanto ao -gtgui fa fiz dos dois modos com e sem, não muda nada. (no bcc com xharbour se não mencionar nenhuma gt funciona). Vi um post do Przmek dizendo pelo que entendi que se você não mencionar nenhum GT ela é implícita

http://www.matrixlist.com/pipermail/har ... 04484.html

Quanto as LIbs, já tentei mencionar explicitamente todas, mas o Marcos Gambeta aconselhou a deixar que o hbmk2 buscasse as libs do Core, então só mencionei as que não são. (No meu post anterior faltou a -lprocinfo.lib)

e por último o que está acontecendo é : Nada ! eu compilei sem erro algum, linkou perfeitamente, gerou executável e na hora de rodar erro dizendo que o meu aplicativo executou uma operação ilegal e será fechado !

[sygecom]

Por isso falei sobre as LIB renomeada da Minigui, tente usando o pacote do Harbour que não vem junto com a Minigui, por que pelo que vi eles ainda renomeiam as LIB, então tente compilar o Harbour do SVN e compilar seu aplicativo.
No caso do MT no Harbour sim está muito bom, porem você tem que ver se suas LIB são compatível com MT para poder usar, como por exemplo a Hwgui é compatível a Minigui eu não sei.
Tente antes de compilar seu aplicativo, compile um exemplo pequeno como "Olá Mundo" para ver se está tudo certo.

[leandromiler]

Nossa, que legal, consegui compilar usando estes parametros, e gerei o executável.

Mas na hora que executo, ele da um erro que no clipper não dava, abaixo está onde está dando o erro

IF mARQ='BANCO'
NomeCampos := BANCO->(ARRAY(AFIELDS(FCOUNT())))
mTIPO := BANCO->(ARRAY(AFIELDS(FCOUNT())))
mTAMANHO := BANCO->(ARRAY(AFIELDS(FCOUNT())))
mDECIMAL := BANCO->(ARRAY(AFIELDS(FCOUNT())))
BANCO->(AFIELDS(NomeCampos,mTIPO,mTAMANHO,mDECIMAL))
mNUMCAMPO := BANCO->(FCOUNT())
// acho que a rotina deu certo --------------------------------------
IF NomeCampos[mNUMCAMPO]!='PRCHEQUE' // 28/07/2005 // NESTA LINHA DA O ERRO

BASE/1132 bound error : array acess

O que poderia ser este erro ?

E como faço pra compilar utilizando o DEBUG. ??

[sygecom]

Olá Leandro,
Tem mudar a linha que está o erro para:
IF !NomeCampos[mNUMCAMPO]='PRCHEQUE'
...
...
...
ENDIF

[leandromiler]

Veja bem, esta é a rotina que uso para verificar se foi mudado a estrutura no arquivo DBF, caso tenha sido mudado, ou seja, caso o último campo seja diferente do mencionado no "IF", ele recria a estrutura usando DBCreate, e outras coisas. Eu preciso desta rotina, gostaria de saber o que preciso mudar nela pra funcionar no harbour, pois já testei, se eu tiro ela, aí o programa funciona normal, mas nao posso ficar sem ela.
Gostaria que visualizando a rotina, você me dissessem o que devo mudar.
Por enquanto obrigado.
Abaixo está a rotina completa (esta rotina funciona perfeitamente no clipper) :

Código: Selecionar todos

 IF mARQ='BANCO'
     NomeCampos := BANCO->(ARRAY(AFIELDS(FCOUNT())))
     mTIPO      := BANCO->(ARRAY(AFIELDS(FCOUNT())))
     mTAMANHO   := BANCO->(ARRAY(AFIELDS(FCOUNT())))
     mDECIMAL   := BANCO->(ARRAY(AFIELDS(FCOUNT())))
     BANCO->(AFIELDS(NomeCampos,mTIPO,mTAMANHO,mDECIMAL))
     mNUMCAMPO     := BANCO->(FCOUNT())
     IF NomeCampos[mNUMCAMPO]!='PRCHEQUE' // 28/07/2005
         SELE BANCO
         USE
         IF !ABREARQCDX((CAMINHO('BANCO')),'BANCO',.T.,10)
             ALERTA2('NAO FOI POSSIVEL ABRIR O ARQUIVO')
             CANCELA()
         ENDIF
         PACK
         USE
         ! CD DBFNTX                        > nul
         ! COPY BANCO.DBF BANCO.BKP         > nul
         ! DEL BANCO.DBF                    > nul
         ! DEL BANCO.CDX
         IF !FILE('BANCO.DBF')
           @24,01 say " Criando Arquivos  BANCO.DBF"
           @24,30 say " de   102 ate    88"
           ASIZE(A,0)
           AADD(A,{"BCODIGO"   ,"C",    5, 0})
           AADD(A,{"NOME"      ,"C",   20, 0})
           AADD(A,{"CHBANCO"   ,"N",    2, 0}) // codigo do tipo de impressao de cheque
           AADD(A,{"SALDO"     ,"N",   14, 2})
           AADD(A,{"ABERTURA"  ,"D",    8, 0})
           AADD(A,{"AGENCIA"   ,"C",   10, 0}) // agencia bancaria
           AADD(A,{"CONTA"     ,"C",   10, 0}) // Conta bancaria
           AADD(A,{"PRCHEQUE"  ,"C",    6, 0}) // proximo cheque - usado na impressao
           DBCREATE("BANCO.DBF",A)
         ENDIF
         USE BANCO ALIAS BANCO NEW
         APPE FROM BANCO.BKP
         USE
         ! CD..
         FERASE(CAMINHO('BANCO.CDX'))
         IF !FILE(CAMINHO('BANCO.CDX'))
              SHOW('Indexando arquivo de Clientes . . .')
              USE &(CAMINHO('BANCO')) ALIAS BANCO      NEW
              INDEX ON BCODIGO  TAG ('XBANCO1') EVAL CDXPROGRESS() EVERY LASTREC()/100
              INDEX ON NOME TAG ('XBANCO2')     EVAL CDXPROGRESS() EVERY LASTREC()/100
              USE
         ENDIF
         IF ABREARQCDX((CAMINHO('BANCO')),'BANCO',.F.,10)
         ELSE
             ALERTA2('NÆo foi poss¡vel abrir o arquivo de Contrato de Terceiros')
             CANCELA()
         ENDIF
     ENDIF
 ENDIF

[sygecom]

Você testou como eu lhe disse ?

[leandromiler]

Testei como você disse, e aconteceu o mesmo problema.

[mbrigatti]

Leonardo,

Eu não creio ser isso não. Uso sim a extended (confirmando), e a mesma compila bem os exemplos da pasta samples através do build.bat que utiliza o hbmk2. (Bom de qualquer forma enquanto estava escrevendo isso, fui verificar o que o build fazia e ele usa um minigui.hbp que idenftifica as Libs da extended, então mais tarde vou tentar informa-lo no meu batch e ver o que dá)

[sygecom]

Então está explicado, tem que usar o script deles que já deve está customizado para compilar com as LIB renomeada deles. Mas se pegar o Harbour Original ai pode usar o hbmk2 sem muita frescura, ou seja ai o hbmk2 vai atras das LIB certas.

[mbrigatti]

Pessoal, não sei mais o que faço. Fiz o que disse no tópico anterior apareceu mais alguns erros, corrigi, compilou olha ai abaixo o resultado

• C:\Visualxh\Pneus\NOVAPA~1>set hb_platform=win
  
  C:\Visualxh\Pneus\NOVAPA~1>rem c:\minigui\harbour\bin\hbmk2 teste.hbp c:\minigui\minigui.hbc -inc -rebuild
  
  C:\Visualxh\Pneus\NOVAPA~1>c:\minigui\harbour\bin\hbmk2 teste.hbp -inc
  hbmk2: Processing environment options: -platform=win
  hbmk2: Target up to date: SysFatur.exe
  
  C:\Visualxh\Pneus\NOVAPA~1>cls
  
  C:\Visualxh\Pneus\NOVAPA~1>c:\minigui\harbour\bin\hbmk2 teste.hbp \minigui\harbour\bin\minigui.hbc
  hbmk2: Processing environment options: -platform=win -compiler=bcc
  hbmk2: Compiling resources...
  Borland Resource Compiler Version 5.40
  Copyright (c) 1990, 1999 Inprise Corporation. All rights reserved.
  Borland Resource Compiler Version 5.40
  Copyright (c) 1990, 1999 Inprise Corporation. All rights reserved.
  hbmk2: Linking... SysFatur.exe
  Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland

Continua dando gpf

[sygecom]

O que tem nesse teste.hbp ?

[mbrigatti]

Leonardo,

teste.hbp
# -----------
# NOME DO EXE
# -----------
-oSysFatur
# -------
# INCLUDE
# -------
-incpath=c:\minigui\harbour\include
# ---
# LIB
# ---
-Lc:\minigui\harbour\lib
# ----
# LIBS
# ----
-lprocinfo
-lcputype
-lcpuspeed
-lgtgui
-lhbnortl.lib
-lrtl.lib
# ----------
# PARAMETROS
# ----------
-inc
-head=native
-gui
-n
-nowarn
-st
-b
#-rebuild
# ---
# PRG
# ---
- Mostrar texto das mensagens anteriores -
# --
# RC
# --
myresource.rc

[Itamar M. Lins Jr.]

Ola!
As vezes até desanima ajudar, porque é preciso ter mais atenção.
Estão embolando os tópicos.
Para cada situação é melhor abrir tópicos diferentes.
No caso da minigui, já procurou ajuda no forum oficial ? é melhor colocar a dúvida/problema no forum da minigui.
Neste tópico mesmo tem o mbrigat com determinado tipo de problema e o leandromiler com outro problema.
E foi aberto outro tópico com o mesmo problema, vamos organizar melhor. "nós"

Saudações,
Itamar M. Lins Jr.

[sygecom]

Olá Marcelo,
Como eu falei antes tem algo errado ai e é com essa versão do Harbour da Minigui, tente compilar com o Harbour original, e não com esse que vem junto com a Minigui, acredito que eles devem mexer com algo que deixe apenas compatível com os samples, ou tente descobrir o que foi mudado e como se usa esse hbmk2 da Minigui.