Tentando usar a gtwvw

Jarbas · Mensagem por **Jarbas** » 08 Dez 2006 10:59

Pessoal, bom dia, estou tentando usar a gtwvw no modo console e fiz assim :

#include "commands.ch"

Function Main()

local lV_Menu001 , lV_Menu002 , lV_Menu003 , lV_Menu004 , lV_Menu014 , ;
lV_Menu005 , lV_Menu015

param NAcesso

private pV_MenuGer, pA_Tela , pL_Abre:=TRUE , pA_Arquivo , pL_Mprg1 , pL_Mprg2 ,;
pL_Mprg3 , pN_Cores,pA_Cabec1 , pA_Cabec2 , pA_Rodape1 , pA_Rodape2 , pA_Fundo ,;
pA_Janela[4], pA_Say[4],pA_Destaque[4],pA_Sombra[4],pA_Get[4],pA_TarBo , ;
pA_DesBo , pA_SayBo,pA_LayOut[4] , pD_Dt , pA_Estados , pN_Bloqueio , lA_Senha2 ,;
pA_DirCob , pA_DirFat , sN_Total:=0 , sN_Dec:=2 , lL_Imp , pA_SenhaPf , pL_Prof:=.F.,;
pA_DirCar , pA_DirCob2, lN_TpImp:=1 , pA_DirImpe , pA_DirFa2 , pA_DirCo2,;
pA_DirFin , pA_DirPre

clear screen

//Defini‡„o de Cores

// DEFINE AS CORES DA TELA
pA_Cabec1 := 'n/w' // 1a. linha de cabecalho
pA_Cabec2 := 'w+/gr' // 2a. linha de cabecalho
pA_Rodape1 := 'n/w' // ultima linha
pA_Rodape2 := 'n/gr' // penultima linha
pA_fundo := 'b/b' // cor de fundo da tela

// DEFINE AS CORES DAS JANELAS DE ENTRADA DE DADOS
pA_Janela[1] := 'bg/bg' // cor de fundo da janela
pA_Say[1] := 'w+/bg' // cor que sera montado o lay-out
pA_Destaque[1] := 'r/bg' // cor de destaque dos campos
pA_Sombra[1] := 7 // cor de sombra da janela
pA_Get[1] := 'w+/bg , r/w , , , w+/bg' // cores dos get's
pA_LayOut[1] := 'n/bg'

pA_Janela[2] := 'w/w' // cor de fundo da janela
pA_Say[2] := 'w+/w' // cor que sera montado o campo
pA_Destaque[2] := 'r/w' // cor de destaque dos campos
pA_Sombra[2] := 7 // cor de sombra da janela
pA_Get[2] := 'w+/w , r/bg , , , w+/w' // cores dos get's
pA_LayOut[2] := 'n/w'

pA_Janela[3] := 'bg/bg' // cor de fundo da janela
pA_Say[3] := 'w+/bg' // cor que sera montado o lay-out
pA_Destaque[3] := 'r/bg' // cor de destaque dos campos
pA_Sombra[3] := 7 // cor de sombra da janela
pA_Get[3] := 'w+/bg , r/w , , , w+/bg' // cores dos get's
pA_LayOut[3] := 'n/bg'

pA_Janela[4] := 'w/w' // cor de fundo da janela
pA_Say[4] := 'w+/w' // cor que sera montado o campo
pA_Destaque[4] := 'r/w' // cor de destaque dos campos
pA_Sombra[4] := 7 // cor de sombra da janela
pA_Get[4] := 'w+/w , r/bg' // cores dos get's
pA_LayOut[4] := 'n/w'

// DEFINE AS CORES DA FUNCAO BOTAO
pA_TarBo := 'n/gr' // define tarja do botao
pA_DesBo := 'r/gr' // destaque do menu de botao
pA_SayBo := 'w+/gr' // mostra o lay-out do botao

pL_Mprg1 := pL_Mprg2:=pL_Mprg3:=FALSE
pN_Cores := 0
pD_Dt := date()
pA_Estados := 'SP_RJ_SC_MG_RS_PR_ES_DF_GO_MT_MS_AM_PA_RO_RR_AC_AP_FN_AL_PE_BA_MA_RN_CE_PI_PB_SE_TO'
pN_Bloqueio:= 10 // Numero de tentativas de bloqueio para rede
pA_Cli :="SP CABLE"

// para windows 98/XP
//freetslice(20)
//
//Funcoes da gtwvw
WVW_SetFont(,"Lucida Console",28, 12, 500)
WVW_SetCodePage(,255)
WVW_SetTitle(NIL,"Sistema Faturamento")
SETMODE(25,80)

. . . .

1 - No xDevStudio da o seguinte erro :

Executando: ILINK32 @B32.BC
Turbo Incremental Link 5.69 Copyright (c) 1997-2005 Borland
Error: Unresolved external '_HB_FUN_WVW_SETFONT' referenced from C:\FAT\OBJ\FATURA.OBJ
Error: Unresolved external '_HB_FUN_WVW_SETCODEPAGE' referenced from C:\FAT\OBJ\FATURA.OBJ
Error: Unresolved external '_HB_FUN_WVW_SETTITLE' referenced from C:\FAT\OBJ\FATURA.OBJ

2 - No hbmake ele gera o EXE mas na executação ele dá erro de variavel

Error BASE/1003 Variable does not exist: PN_CORES |
| |
|Error at ...: FAT011(23) in Module: FAT011.PRG |
| |
|

3 - no BrMake ele gera o EXE mas simplesmente não executa.

Se alguem puder me ajudar ficarei grato.

Abs
Jarbas

Mensagem por **vailton** » 08 Dez 2006 20:02

posta aqui o seu b32.bc gerado pela xDevStudio, por favor.

Jarbas · Mensagem por **Jarbas** » 08 Dez 2006 20:22

Ai, está : (mto obrigado)

-I"C:\xharbour\include;C:\softtec\spcable\FAT\;" +
-L"C:\xharbour\lib;C:\softtec\spcable\FAT\;;C:\BORLAND\bcc55\Lib;C:\softtec\spcable\FAT\;" +
-Gn -M -m -Tpe -s +
c0w32.obj +
"C:\softtec\spcable\FAT\Obj\Fatura.obj" +
"C:\softtec\spcable\FAT\Obj\FAT011.obj" +
"C:\softtec\spcable\FAT\Obj\FAT014.obj" +
"C:\softtec\spcable\FAT\Obj\FAT021.obj" +
"C:\softtec\spcable\FAT\Obj\FAT024.obj" +
"C:\softtec\spcable\FAT\Obj\FAT025.obj" +
"C:\softtec\spcable\FAT\Obj\FAT031.obj" +
"C:\softtec\spcable\FAT\Obj\FAT034.obj" +
"C:\softtec\spcable\FAT\Obj\FAT041.obj" +
"C:\softtec\spcable\FAT\Obj\FAT042.obj" +
"C:\softtec\spcable\FAT\Obj\FAT045.obj" +
"C:\softtec\spcable\FAT\Obj\FAT051.obj" +
"C:\softtec\spcable\FAT\Obj\FAT061.obj" +
"C:\softtec\spcable\FAT\Obj\FAT071.obj" +
"C:\softtec\spcable\FAT\Obj\fat075.obj" +
"C:\softtec\spcable\FAT\Obj\FAT112.obj" +
"C:\softtec\spcable\FAT\Obj\FAT113.obj" +
"C:\softtec\spcable\FAT\Obj\FAT122.obj" +
"C:\softtec\spcable\FAT\Obj\FAT123.obj" +
"C:\softtec\spcable\FAT\Obj\FAT132.obj" +
"C:\softtec\spcable\FAT\Obj\FAT133.obj" +
"C:\softtec\spcable\FAT\Obj\FAT142.obj" +
"C:\softtec\spcable\FAT\Obj\FAT162.obj" +
"C:\softtec\spcable\FAT\Obj\FAT212.obj" +
"C:\softtec\spcable\FAT\Obj\FAT213.obj" +
"C:\softtec\spcable\FAT\Obj\FAT222.obj" +
"C:\softtec\spcable\FAT\Obj\FAT223.obj" +
"C:\softtec\spcable\FAT\Obj\FAT232.obj" +
"C:\softtec\spcable\FAT\Obj\FAT233.obj" +
"C:\softtec\spcable\FAT\Obj\FAT242.obj" +
"C:\softtec\spcable\FAT\Obj\FAT262.obj" +
"C:\softtec\spcable\FAT\Obj\FAT312.obj" +
"C:\softtec\spcable\FAT\Obj\FAT313.obj" +
"C:\softtec\spcable\FAT\Obj\FAT322.obj" +
"C:\softtec\spcable\FAT\Obj\FAT323.obj" +
"C:\softtec\spcable\FAT\Obj\FAT332.obj" +
"C:\softtec\spcable\FAT\Obj\FAT333.obj" +
"C:\softtec\spcable\FAT\Obj\FAT342.obj" +
"C:\softtec\spcable\FAT\Obj\FAT362.obj" +
"C:\softtec\spcable\FAT\Obj\FAT412.obj" +
"C:\softtec\spcable\FAT\Obj\FAT413.obj" +
"C:\softtec\spcable\FAT\Obj\FAT422.obj" +
"C:\softtec\spcable\FAT\Obj\FAT423.obj" +
"C:\softtec\spcable\FAT\Obj\FAT432.obj" +
"C:\softtec\spcable\FAT\Obj\FAT433.obj" +
"C:\softtec\spcable\FAT\Obj\FAT512.obj" +
"C:\softtec\spcable\FAT\Obj\FAT513.obj" +
"C:\softtec\spcable\FAT\Obj\FAT523.obj" +
"C:\softtec\spcable\FAT\Obj\FAT532.obj" +
"C:\softtec\spcable\FAT\Obj\FAT533.obj" +
"C:\softtec\spcable\FAT\Obj\FAT613.obj" +
"C:\softtec\spcable\FAT\Obj\FAT622.obj" +
"C:\softtec\spcable\FAT\Obj\FAT633.obj" +
"C:\softtec\spcable\FAT\Obj\FAT713.obj" +
"C:\softtec\spcable\FAT\Obj\FAT722.obj" +
"C:\softtec\spcable\FAT\Obj\FAT723.obj" +
"C:\softtec\spcable\FAT\Obj\FAT733.obj" +
"C:\softtec\spcable\FAT\Obj\FAT823.obj" +
"C:\softtec\spcable\FAT\Obj\FAT923.obj" +
"C:\softtec\spcable\FAT\Obj\FATA23.obj" +
"C:\softtec\spcable\FAT\Obj\FATC23.obj" +
"C:\softtec\spcable\FAT\Obj\FATD23.obj" +
"C:\softtec\spcable\FAT\Obj\FATE23.obj" +
"C:\softtec\spcable\FAT\Obj\FATG23.obj" +
"C:\softtec\spcable\FAT\Obj\FATH23.obj" +
"C:\softtec\spcable\FAT\Obj\FATI23.obj" +
"C:\softtec\spcable\FAT\Obj\FATJ23.obj" +
"C:\softtec\spcable\FAT\Obj\FATK23.obj" +
"C:\softtec\spcable\FAT\Obj\FUNCOES.obj", +
"C:\softtec\spcable\FAT\Fatura.EXE", +
"C:\softtec\spcable\FAT\Fatura.map", +
lang.lib +
vm.lib +
rtl.lib +
rdd.lib +
macro.lib +
pp.lib +
common.lib +
codepage.lib +
dbfntx.lib +
bcc640.lib +
dbffpt.lib +
hbsix.lib +
gtwin.lib +
cw32.lib +
import32.lib +
,

Jarbas · Mensagem por **Jarbas** » 08 Dez 2006 20:26

Vailton, eu não soube onde declarar a gtwvw.lib .

Mto Obrigado
Abs
Jarbas

Jarbas · Mensagem por **Jarbas** » 09 Dez 2006 10:53

Vailton, bom dia, eu fiz o seguinte :

Editei o harbour.xcompile.prg e inclui :

AADD( aLines, 'gtwvw.lib + ' )

Agora ele gera o executavel, mas quando executa aparece aquela tela de enviar erro a Microsoft.

Se eu retirar as funcoes :

WVW_SetFont(,"Lucida Console",28, 12, 500)
WVW_SetCodePage(,255)
WVW_SetTitle(NIL,"Sistema Faturamento")

Ele funciona normalmente.

Obrigado pela força .

Abs
Jarbas

Mto Obrigado

Mensagem por **vagucs** » 09 Dez 2006 12:43

apenas substitua a GTWIN.LIB pela GTWVW.LIB.

Jarbas · Mensagem por **Jarbas** » 09 Dez 2006 13:12

Valeu Vagner, funcionou mto obrigado

Abs
Jarbas