Erro de compilação - Visualizando relatórios

[porter]

JoséQuintas, disse

Toledo, lembre-se que seu exemplo era pra Harbour 3.0.

Mas a cada mudança de versão do Harbour, tem que mexer no código fonte, os comandos usados não são mantidos ?

[porter]

Comentei quase todas as linhas de open_rel.prg, consegui compilar e gerar um executável, acrescentei a rotina abaixo e apresentou erro de compilação,
o que há de errado na rotina abaixo ?

undefined reference to 'HB_FUN_GETDESKTOPWIDTH

Código: Selecionar todos

IF GetDesktopWidth() > 1024
   PREPARE FONT oFont NAME "COURIER NEW" WIDTH 0 HEIGHT 0 WEIGHT -13
   nSizeFont := -13
   RETURN
ELSE  
    PREPARE FONT oFont NAME "COURIER NEW" WIDTH 0 HEIGHT 0 WEIGHT -11
    nSizeFont := -11
ENDIF

[Itamar M. Lins Jr.]

Ola!
Lembre-se que está usando como teste uma versão da Hwgui muito antiga...
Tente HWG_GetDesktopWidth()
Os comandos do Harbour não mudam com frequência e os do "Clipper" esses são mantidos.

Saudações,
Itamar M. Lins Jr.

[porter]

Lembre-se que está usando como teste uma versão da Hwgui muito antiga...
Tente HWG_GetDesktopWidth()
Os comandos do Harbour não mudam com frequência e os do "Clipper" esses são mantidos.

olá Itamar,
HWG_GetDesktopWidth() deu certo.

fiz o download do HWGUI pelo sourcefoge.net/projects/hwgui versão 2.20-b3, você diz que a versão é muito antiga,
seria a versão do HWGUI, ou os comandos são antigos, se for os comandos, onde posso verificar quais os comandos
corretos ?

[Toledo]

se for os comandos, onde posso verificar quais os comandos corretos ?

Amigo, veja se na pasta \INCLUDE da sua HwGui tem o arquivo hwgcompat.ch, neste arquivo vai ter todas as funções que o nome foram alterados.

Toledo, lembre-se que seu exemplo era pra Harbour 3.0.

Tirando os nomes de funções que foram alteradas (neste caso é só incluir (#Include) o hwgcompat.ch no início do PRG), acho que o resto deveria funcionar.

Abraços,

[porter]

Acrescentando o #include "hwgcompat.ch" a quantidade de erro diminuiu, pelo menos resolveu
o problema do GETDESKTOPWIDTH, agora existem outros como:

undefined reference to HB_FUN_CUTPAT
undefined reference to HB_FUN_ADDPAT
undefined reference to HB_FUN_FILEPAT

[Toledo]

Estas funções não são do meu demo (Open_Rel) e sim da HwGui, mas os nomes estão errados, o correto é CUTPATH, ADDPATH e FILEPATH. Então resta saber em qual PRG você está usando estas funções e corrigir o nome.

Abraços,

[porter]

Estas funções não são do meu demo (Open_Rel) e sim da HwGui, mas os nomes estão errados, o correto é CUTPATH, ADDPATH e FILEPATH. Então resta saber em qual PRG você está usando estas funções e corrigir o nome.

Houve erro de digitação, é CUTPATH, ADDPATH e FILEPATH,

Se eu habilitar essas linhas todas as duas de Open_Rel.prg, da o erro que mencionei anteriormente, agora não sei o que fazer se tem mudar o comando ou incluir alguma lib...

Private oIcon_def := HIcon():AddResource("ICON_E")

ou

PREPARE FONT oFont NAME "COURIER NEW" WIDTH 0 HEIGHT 0 WEIGHT -13

[Itamar M. Lins Jr.]

Ola!

você diz que a versão é muito antiga,

A Hwgui mais nova é esta mesmo, mas os fontes do programa do Toledo são antigos era para Hwgui 2.17
Tem que colocar "HWG_" em algumas funções...

Saudações,
Itamar M. Lins Jr.

[porter]

olá Itamar,
Esses erros de compilação consegui resolver, faltava o -lprocmisc no arquivo .HBP, o erro que está aprensentando agora
em tempo de execução, é esse na linha 66:

Error BASE/1075 Erro nos parƒmetros: >
Called from OPEN_REL.PRG->MAIN(66)

HWGUI 2.20 Build 3
Date:03/27/17
Time:12:51:44

Código: Selecionar todos

64  Do Case
65
66    case hb_gtinfo(HB_GTI_DESKTOPWIDTH) > 1200     <---  Erro aqui
67     hb_gtinfo(HB_GTI_FONTWIDTH, 16)
68     hb_gtinfo(HB_GTI_FONTSIZE, 27)
69
70    case hb_gtinfo(HB_GTI_DESKTOPWIDTH) > 1023
71     hb_gtinfo(HB_GTI_FONTWIDTH, 12)
72     hb_gtinfo(HB_GTI_FONTSIZE, 27)

73    case hb_gtinfo(HB_GTI_DESKTOPWIDTH) > 799
74     hb_gtinfo(HB_GTI_FONTWIDTH, 10 )
75     hb_gtinfo(HB_GTI_FONTSIZE, 22 )
76
77    otherwise
78     hb_gtinfo(HB_GTI_FONTWIDTH, 8)
79     hb_gtinfo(HB_GTI_FONTSIZE, 17)
80
81  EndCase

[Itamar M. Lins Jr.]

Ola!
HB_gtinfo() não retorna número.

Saudações,
Itamar M. Lins Jr.

[Toledo]

HB_gtinfo(), dependendo do parâmetro que é passado, pode retornar String, Lógico, Array, CodeBlock ou número.

Para mais detalhes, veja: https://github.com/zgamero/sandbox/wiki/HB_GT_INFO (em cada variável (parâmetro), a terceira coluna corresponde ao retorno/Output da HB_gtinfo)

Abraços,

[JoséQuintas]

Os #define fazem referência a arquivos da GTWVT ou outra.

Esse, acredito que seja "hbgtinfo.ch", que é normal do Harbour, pras GTs.

É pra retornar o tamanho da tela pra se configurar, nesse caso retorna número.

Teste se passa pela compilação -w3 -es2, pode ajudar a encontrar #defines faltando.

[Itamar M. Lins Jr.]

Ola!

Error BASE/1075 Erro nos parƒmetros: >
Called from OPEN_REL.PRG->MAIN(66)

Código: Selecionar todos

hb_gtinfo(HB_GTI_DESKTOPWIDTH) > 1200     <---  Erro aqui

Pelo erro informado, não foi numérico o retorno.

Deve ser conflito de versões dos GT´s dele.
Aqui retornou corretamente um valor numérico.
Mas essa função e difícil de entender e usar, é um alicate suíço.

Saudações,
Itamar M. Lins Jr.

[JoséQuintas]

Isso de redimensionar a janela conforme o monitor, aqui eu removi, já que o objetivo inicial é fazer funcionar.
Mas acaba em mais erros.

Pelo que vi, esse programa é relativamente simples.
Não daria pra refazê-lo na hwgui atual?

Ou mais... até equivalentes em outras GUIs.
Seria interessante como comparativo entre GUIs, e também como exemplos de cada GUI.
Seria interessante ver em hwgui, fivewin, hmg, etc.
O fonte necessário é muito importante, porque temos mudanças todo dia e toda hora, pode ajudar numa escolha de qual gui usar.

Inclusive está aí uma rotina que poderia ou não usar multithread, pra visualizar múltiplos relatórios.

Lembrando que sempre existe a opção de usar como EXE separado, e usar o RUN.
Isto pode ser a solução mais rápida.

Esse caso, por exemplo, pode espantar interessados pela HWGUI.