Jump to content
Fivewin Brasil

Tela preta dos DOS quando programa é executado


kapiaba

Recommended Posts

Tela preta dos DOS quando programa é executado...

Estou incluindo a GTGUI.LIB, mas está dando tela preta no programa:

\XHARBOUR\lib\gtgui.Lib

Idem se eu usar:

\XHARBOUR\lib\gtwin.Lib

Se eu executar direto pelo .EXE, mostra se eu executar por um .BAT. mostra.

Alguém tem uma GTGUI.LIB que esteja funcionando?

Que não mostre tela preta dos DOS??

Favor me enviar em: joao@pleno.com.br

Obg, abs

João Santos - São Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe

Link to comment
Share on other sites

Tela preta dos DOS quando programa é executado...

Estou incluindo a GTGUI.LIB, mas está dando tela preta no programa:

\XHARBOUR\lib\gtgui.Lib

Idem se eu usar:

\XHARBOUR\lib\gtwin.Lib

Se eu executar direto pelo .EXE, mostra se eu executar por um .BAT. mostra.

Alguém tem uma GTGUI.LIB que esteja funcionando?

Que não mostre tela preta dos DOS??

Favor me enviar em: joao@pleno.com.br

Obg, abs

João Santos - São Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe

Link to comment
Share on other sites

Fala Alessandro, onde está o erro aqui?


c0w32.Obj +

GERAPNFE.Obj +

AUXINDEX.Obj +

NFE.Obj +

LICENCAS.Obj +

DBMANUT.Obj +

REJEICAO.Obj +

CARTA.Obj +

DANFE.OBJ +

VONFE.OBJ +

VONFEUTIL.Obj +

VONFE2G.OBJ +

VONFEUTIL2G.Obj +

CORGET.Obj +

TGET.Obj +

MGET.Obj +

WINDOW.Obj +

MSGMETER.Obj +

MSGRUN.Obj +

DSAY.Obj +

RMAIL.OBJ +

EMAILENV.OBJ +

BTNGET.OBJ +

BTNDOWN.Obj +

GETBTN.Obj +

RPREVIEW.Obj +

ERRSYSW.Obj +

FWERROR.Obj, +

GERAPNFE.exe, +

GERAPNFE.map, +

\FwH27\lib\FiveHX.Lib +

\FwH27\lib\FiveHC.Lib +

\XHARBOUR\Lib\RddAds.Lib +

\XHARBOUR\lib\hbzip.Lib +

\XHARBOUR\lib\rtl.Lib +

\XHARBOUR\lib\vm.Lib +

\XHARBOUR\lib\gtgui.Lib +

\XHARBOUR\lib\gtnul.Lib +

\XHARBOUR\lib\lang.Lib +

\XHARBOUR\lib\macro.Lib +

\XHARBOUR\lib\rdd.Lib +

\XHARBOUR\lib\dbfntx.Lib +

\XHARBOUR\lib\dbfcdx.Lib +

\XHARBOUR\lib\dbfdbt.Lib +

\XHARBOUR\lib\debug.Lib +

\XHARBOUR\lib\common.Lib +

\XHARBOUR\lib\tip.Lib +

\XHARBOUR\lib\pp.Lib +

\XHARBOUR\lib\dbffpt.Lib +

\XHARBOUR\lib\codepage.Lib +

\XHARBOUR\lib\HbSix.Lib +

\XHARBOUR\lib\PcRepos.Lib +

\XHARBOUR\Lib\ct.Lib +

\Bcc55\lib\cw32.Lib +

\Bcc55\lib\psdk\msimg32.Lib +

\Bcc55\lib\psdk\odbc32.Lib +

\Bcc55\lib\psdk\rasapi32.Lib +

\Bcc55\lib\psdk\nddeapi.Lib +

\Bcc55\lib\psdk\iphlpapi.Lib +

\Bcc55\lib\import32.Lib,

NFE.RES +

EMAIL.RES +

IMAGENS.RES +

IMAGENS2.RES

id=code>id=code>

Abs

João Santos - São Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe

Link to comment
Share on other sites

João Santos, boa tarde.

Este problema eu tenho quando uso a wvwtools, com hwgui, pois a wvwtools, tem que vir antes da hwgui.

Você realmente precisa da gtgui?

Leco

citação:

Tela preta dos DOS quando programa é executado...

Estou incluindo a GTGUI.LIB, mas está dando tela preta no programa:

\XHARBOUR\lib\gtgui.Lib

Idem se eu usar:

\XHARBOUR\lib\gtwin.Lib

Se eu executar direto pelo .EXE, mostra se eu executar por um .BAT. mostra.

Alguém tem uma GTGUI.LIB que esteja funcionando?

Que não mostre tela preta dos DOS??

Favor me enviar em: joao@pleno.com.br

Obg, abs

João Santos - São Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe


id=quote>id=quote>

Five PPC

Harbour 1.0.1 - 1999-2008

Link to comment
Share on other sites

Você realmente precisa da gtgui?

Leco

A GTGUI.LIB, é justamente para que a TELA PRETA DO DOS, NÃO APAREÇA quando usa-se uma aplicação FOR WINDOWS.

Se eu eu a tiro, a tela preta aparece do mesmo jeito, eu acho que eu estou com um GTGUI.LIB bixada.... kkkkkkk

João Santos - São Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe

Link to comment
Share on other sites

Tente mudar a posicao do GTGUI para o final ou para o começo (se nao der certo colocando no final).

c0w32.Obj +

GERAPNFE.Obj +

AUXINDEX.Obj +

NFE.Obj +

LICENCAS.Obj +

DBMANUT.Obj +

REJEICAO.Obj +

CARTA.Obj +

DANFE.OBJ +

VONFE.OBJ +

VONFEUTIL.Obj +

VONFE2G.OBJ +

VONFEUTIL2G.Obj +

CORGET.Obj +

TGET.Obj +

MGET.Obj +

WINDOW.Obj +

MSGMETER.Obj +

MSGRUN.Obj +

DSAY.Obj +

RMAIL.OBJ +

EMAILENV.OBJ +

BTNGET.OBJ +

BTNDOWN.Obj +

GETBTN.Obj +

RPREVIEW.Obj +

ERRSYSW.Obj +

FWERROR.Obj, +

GERAPNFE.exe, +

GERAPNFE.map, +

\FwH27\lib\FiveHX.Lib +

\FwH27\lib\FiveHC.Lib +

\XHARBOUR\Lib\RddAds.Lib +

\XHARBOUR\lib\hbzip.Lib +

\XHARBOUR\lib\rtl.Lib +

\XHARBOUR\lib\vm.Lib +

\XHARBOUR\lib\gtnul.Lib +

\XHARBOUR\lib\lang.Lib +

\XHARBOUR\lib\macro.Lib +

\XHARBOUR\lib\rdd.Lib +

\XHARBOUR\lib\dbfntx.Lib +

\XHARBOUR\lib\dbfcdx.Lib +

\XHARBOUR\lib\dbfdbt.Lib +

\XHARBOUR\lib\debug.Lib +

\XHARBOUR\lib\common.Lib +

\XHARBOUR\lib\tip.Lib +

\XHARBOUR\lib\pp.Lib +

\XHARBOUR\lib\dbffpt.Lib +

\XHARBOUR\lib\codepage.Lib +

\XHARBOUR\lib\HbSix.Lib +

\XHARBOUR\lib\PcRepos.Lib +

\XHARBOUR\Lib\ct.Lib +

\Bcc55\lib\cw32.Lib +

\Bcc55\lib\psdk\msimg32.Lib +

\Bcc55\lib\psdk\odbc32.Lib +

\Bcc55\lib\psdk\rasapi32.Lib +

\Bcc55\lib\psdk\nddeapi.Lib +

\Bcc55\lib\psdk\iphlpapi.Lib +

\Bcc55\lib\import32.Lib,

\XHARBOUR\lib\gtgui.Lib +

NFE.RES +

EMAIL.RES +

IMAGENS.RES +

IMAGENS2.RES

=================================================

OU

\XHARBOUR\lib\gtgui.Lib +

c0w32.Obj +

GERAPNFE.Obj +

AUXINDEX.Obj +

NFE.Obj +

LICENCAS.Obj +

DBMANUT.Obj +

REJEICAO.Obj +

CARTA.Obj +

DANFE.OBJ +

VONFE.OBJ +

VONFEUTIL.Obj +

VONFE2G.OBJ +

VONFEUTIL2G.Obj +

CORGET.Obj +

TGET.Obj +

MGET.Obj +

WINDOW.Obj +

MSGMETER.Obj +

MSGRUN.Obj +

DSAY.Obj +

RMAIL.OBJ +

EMAILENV.OBJ +

BTNGET.OBJ +

BTNDOWN.Obj +

GETBTN.Obj +

RPREVIEW.Obj +

ERRSYSW.Obj +

FWERROR.Obj, +

GERAPNFE.exe, +

GERAPNFE.map, +

\FwH27\lib\FiveHX.Lib +

\FwH27\lib\FiveHC.Lib +

\XHARBOUR\Lib\RddAds.Lib +

\XHARBOUR\lib\hbzip.Lib +

\XHARBOUR\lib\rtl.Lib +

\XHARBOUR\lib\vm.Lib +

\XHARBOUR\lib\gtnul.Lib +

\XHARBOUR\lib\lang.Lib +

\XHARBOUR\lib\macro.Lib +

\XHARBOUR\lib\rdd.Lib +

\XHARBOUR\lib\dbfntx.Lib +

\XHARBOUR\lib\dbfcdx.Lib +

\XHARBOUR\lib\dbfdbt.Lib +

\XHARBOUR\lib\debug.Lib +

\XHARBOUR\lib\common.Lib +

\XHARBOUR\lib\tip.Lib +

\XHARBOUR\lib\pp.Lib +

\XHARBOUR\lib\dbffpt.Lib +

\XHARBOUR\lib\codepage.Lib +

\XHARBOUR\lib\HbSix.Lib +

\XHARBOUR\lib\PcRepos.Lib +

\XHARBOUR\Lib\ct.Lib +

\Bcc55\lib\cw32.Lib +

\Bcc55\lib\psdk\msimg32.Lib +

\Bcc55\lib\psdk\odbc32.Lib +

\Bcc55\lib\psdk\rasapi32.Lib +

\Bcc55\lib\psdk\nddeapi.Lib +

\Bcc55\lib\psdk\iphlpapi.Lib +

\Bcc55\lib\import32.Lib,

NFE.RES +

EMAIL.RES +

IMAGENS.RES +

IMAGENS2.RES

citação:

Você realmente precisa da gtgui?

Leco

A GTGUI.LIB, é justamente para que a TELA PRETA DO DOS, NÃO APAREÇA quando usa-se uma aplicação FOR WINDOWS.

Se eu eu a tiro, a tela preta aparece do mesmo jeito, eu acho que eu estou com um GTGUI.LIB bixada.... kkkkkkk

João Santos - São Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe


id=quote>id=quote>

Eduardo Motta

emotta@gmail.com.br

FWH 9.09 (original) - xHARBOUR 1.2.1 (comercial e original) - SQLRDD

AJbJ

Link to comment
Share on other sites

Boa noite João,

Pra não mostrar a tela preta quando executo programa DOS, eu uso a function abaixo:


//---------------------------------------------------------------------

Function myRUN( cComando, nStyle, lWait, lShowResult )

local oShell, RET

IF valtype( nStyle ) != "N"

nStyle := 0

ENDIF

IF ValType( lWait ) != "L"

lWait := .T.

ENDIF

IF ValType( lShowResult ) != "L"

lShowResult := .F.

ENDIF

oShell := CreateObject( "WScript.Shell" )

IF !GetEnv( "OS" ) == "Windows_NT"

cComando += "start " + cComando

ENDIF

RET := oShell:Run( "%comspec% /c " + cComando, nStyle, lWait )

IF lShowResult .AND. RET > 0 .and. RET <= 32

msginfo( "Erro Win_Run(): " + ltrim( Str( RET ) ), " OK " )

ENDIF

oShell := NIL

Return IF( RET = 0, .T., .F. )

id=code>id=code>

Cuja sintaxe é esta:

lRet := myrun( "WORDview.EXE" + fRTF + " /p" )

Voce pode testar o retorno lRet( retorna .t. ou .f. ), pra saber se executou ou não o seu comando.

Espero que ajude,

552.jpg

Luiz Augusto

São José dos Pinhais - PR

xHarbour + Fivewin + Workshop + Sql via Odbc

Vamos Aderir:"Retorne avisando se a dica funcionou"

Link to comment
Share on other sites

Desculpe a demora....fui fazer exame de F.... kkkkkkkk

bem colocaria nessa sequencia.


\FwH27\lib\FiveHX.Lib +

\FwH27\lib\FiveHC.Lib +

\XHARBOUR\lib\rtl.Lib +

\XHARBOUR\lib\vm.Lib +

\XHARBOUR\lib\gtgui.Lib +

\XHARBOUR\lib\lang.Lib +

\XHARBOUR\lib\codepage.Lib +

\XHARBOUR\lib\macro.Lib +

\XHARBOUR\lib\rdd.Lib +

\XHARBOUR\lib\dbfntx.Lib +

\XHARBOUR\lib\dbfdbt.Lib +

\XHARBOUR\lib\dbfcdx.Lib +

\XHARBOUR\lib\dbffpt.Lib +

\XHARBOUR\Lib\RddAds.Lib +

\XHARBOUR\lib\HbSix.Lib +

\XHARBOUR\lib\debug.Lib +

\XHARBOUR\lib\common.Lib +

\XHARBOUR\lib\pp.Lib +

\XHARBOUR\lib\PcRepos.Lib +

\XHARBOUR\Lib\ct.Lib +

\XHARBOUR\lib\hbzip.Lib +

\XHARBOUR\lib\gtnul.Lib +

\XHARBOUR\lib\tip.Lib +

id=code>id=code>

Um grande Abraço

Alessandroid=blue>

FW9.07 + xHb121 + CDX

Fico feliz com os Meus erros, pois eles me apontam a direção para o acerto.id=red>

Link to comment
Share on other sites

ola

eu uso o WinExec( cSintaxe , 0 )

o segundo parametro (0/zero) faz com q a tela preta nao seja mostrada, quando executado o programa.

espero tem ajudado.

att

Gilberto

Gilberto Frohlich - Toledo/PR

giba_f@hotmail.com

giba_f@yahoo.com.br

xHarbour xBuild+Fivewin 2.7+PellesC+(Postgres+DB2)

Link to comment
Share on other sites

Buenas Friend, NENHUMA DAS FORMAS FUNCIONOU...

Tem alguma coisa errada nos flags de compilação da minha CX.BAT abaixo?


@Echo Off

Cls

Echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿

Echo ³ FiveWin For xHarbour 2.7 - Mar‡o de 2006 xHarbour Development Power ³Ü

Echo ³ © FiveTech, 1993-2006 For Microsoft Windows 95/98/NT/2000/ME And XP ³Û

Echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ

Echo ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß

Echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿

Echo ³ FiveWin For xHarbour 2.7 - Mar‡o de 2006 The Karin MegaTrends Inc. ³Ü

Echo ³ Aguarde um Momento, Compilando Aplica‡Æo 32 Bits, Processamento Demorado ³Û

Echo ³ CopyRight© JoÆo@2007 - Todos os Direitos Reservados. Vendas 32 Bits. ³Û

Echo ³ Participa‡Æo Especial Vagner Wirts - vwirts@ig.com.br - 01/08/2007 Inicio. ³Û

Echo ³ Agradecimentos Especiais - Gilmer Tavares - Virtual Objects Informatica ³Û

Echo ³ vendas@fivewin.com.br - suporte@fivewin.com.br - gilmer@fivewin.com.br ³Û

Echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ

Echo ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß

Echo .

Echo Aguarde... Compilando os Modulos do Programa... Processamento Demorado

Echo Gerando o Arquivo ERRO.LOG, em Caso de Duvidas, Consulte-o. Borland C.

Rem Localiza‡Æo dos Paths

Set hDir=C:\XHARBOUR

Set bcDir=C:\bcc55

Set FwhDir=C:\FwH27

@If Exist *.Bak Del *.Bak

@If Exist GERAPNFE.Obj Del GERAPNFE.Obj

@If Exist *.Log Del *.Log

@If Exist GERAPNFE.Map Del GERAPNFE.Map

@If Exist GERAPNFE.PPO Del GERAPNFE.Ppo

@If Exist GERAPNFE.TDS Del GERAPNFE.TDS

@If Exist *.Bc Del *.bc

@If Exist GERAPNFE.C Del GERAPNFE.C

@If Exist GERAPNFE.HC Del *.HC

If Exist GERAPNFE.Exe Del GERAPNFE.Exe

COPY C:\PLENOCBW\BTNGET\GETBTN.C /Y

REM -> Area dos Arquivos com ExtensÆo *.PRG Gerados em FiveWin 2.7 For xHarbour

%hdir%\bin\harbour GERAPNFE /m/n /i%fwhdir%\include;%hdir%\include /w0 /p GERAPNFE.C > Erro.log

%hdir%\bin\harbour AUXINDEX /m/n /i%fwhdir%\include;%hdir%\include /w0 /p AUXINDEX.C >> Erro.log

%hdir%\bin\harbour NFE /m/n /i%fwhdir%\include;%hdir%\include /w0 /p NFE.C >> Erro.log

%hdir%\bin\harbour LICENCAS /m/n /i%fwhdir%\include;%hdir%\include /w0 /p LICENCAS.C >> Erro.log

%hdir%\bin\harbour DBMANUT /m/n /i%fwhdir%\include;%hdir%\include /w0 /p DBMANUT.C >> Erro.log

%hdir%\bin\harbour REJEICAO /m/n /i%fwhdir%\include;%hdir%\include /w0 /p REJEICAO.C >> Erro.log

%hdir%\bin\harbour CARTA /m/n /i%fwhdir%\include;%hdir%\include /w0 /p CARTA.C >> Erro.log

%hdir%\bin\harbour DANFE /m/n /D__VERSIONOLD__ /i%fwhdir%\include;%hdir%\include /w0 /p DANFE.C >> Erro.log

%hdir%\bin\harbour VONFE /m/n /i%fwhdir%\include;%hdir%\include /w0 /p VONFE.C >> Erro.log

%hdir%\bin\harbour VONFEUTIL /m/n /i%fwhdir%\include;%hdir%\include /w0 /p VONFEUTIL.C >> Erro.log

%hdir%\bin\harbour VONFE2G /m/n /i%fwhdir%\include;%hdir%\include /w0 /p VONFE2G.C >> Erro.log

%hdir%\bin\harbour VONFEUTIL2G /m/n /i%fwhdir%\include;%hdir%\include /w0 /p VONFEUTIL2G.C >> Erro.log

REM -> CLASSES INCORPORADAS EM 10/08/2009

%hdir%\bin\harbour CORGET /m/n /i%fwhdir%\include;%hdir%\include /w0 /p CORGET.C >> ERRO.log

%hdir%\bin\harbour TGET /m/n /i%fwhdir%\include;%hdir%\include /w0 /p TGET.C >> ERRO.log

%hdir%\bin\harbour MGET /m/n /i%fwhdir%\include;%hdir%\include /w0 /p MGET.C >> ERRO.log

%hdir%\bin\harbour WINDOW /es2/m/n/a/w2 /i%fwhdir%\include;%hdir%\include /w /p WINDOW.C >> ERRO.log

%hdir%\bin\harbour RPREVIEW /es2/m/n/a/w2 /i%fwhdir%\include;%hdir%\include /w /p RPREVIEW.C >> ERRO.log

%hdir%\bin\harbour ERRSYSW /es2/m/n/a/w0 /i%fwhdir%\include;%hdir%\include /w /p ERRSYSW.C >> Erro.log

%hdir%\bin\harbour FWERROR /es2/m/n/a/w0 /i%fwhdir%\include;%hdir%\include /w /p FWERROR.C >> Erro.log

%hdir%\bin\harbour MSGMETER /es2/m/n/a/w2 /i%fwhdir%\include;%hdir%\include /w /p MSGMETER.C >> ERRO.log

%hdir%\bin\harbour MSGRUN /es2/m/n/a/w2 /i%fwhdir%\include;%hdir%\include /w /p MSGRUN.C >> ERRO.log

%hdir%\bin\harbour DSAY /es2/m/n/a/w0 /i%fwhdir%\include;%hdir%\include /w /p DSAY.C >> Erro.log

rem //-> area dos emails

%hdir%\bin\harbour RMAIL /m /n /i%fwhdir%\include;%hdir%\include /w0 /P RMAIL.C >> Erro.log

%hdir%\bin\harbour EMAILENV /m /n /i%fwhdir%\include;%hdir%\include /w0 /P EMAILENV.C >> Erro.log

%hdir%\bin\harbour BTNGET /m /n /i%fwhdir%\include;%hdir%\include /w0 /P BTNGET.C >> Erro.log

%hdir%\bin\harbour BTNDOWN /m /n /i%fwhdir%\include;%hdir%\include /w0 /p BTNDOWN.C >> Erro.log

%bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include GERAPNFE.C >> Erro.log

%bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include AUXINDEX.C >> Erro.log

%bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include NFE.C >> Erro.log

%bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include LICENCAS.C >> Erro.log

%bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include DBMANUT.C >> Erro.log

%bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include REJEICAO.C >> Erro.log

%bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include CARTA.C >> Erro.log

%bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include DANFE.C >> Erro.log

%bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include VONFE.C >> Erro.log

%bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include VONFEUTIL.C >> Erro.log

%bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include VONFE2G.C >> Erro.log

%bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include VONFEUTIL2G.C >> Erro.log

%bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include CORGET.C >> Erro.log

%bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include TGET.C >> Erro.log

%bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include MGET.C >> Erro.log

%bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include WINDOW.C >> Erro.log

%bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include RPREVIEW.C >> Erro.log

%bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include ERRSYSW.C >> Erro.log

%bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include FWERROR.C >> Erro.log

%bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include MSGMETER.C >> Erro.log

%bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include MSGRUN.C >> Erro.log

%bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include DSAY.C >> Erro.log

REM -> Area dos Arquivos Gerados na Linguagem C Pelo [x]Harbour

%bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include RMAIL.C >> Erro.log

%bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include EMAILENV.C >> Erro.log

%bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include BTNGET.C >> Erro.log

%bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include BTNDOWN.C >> Erro.log

REM -> Vou Transformar Arquivos.C em Arquivos.Obj Para Usar no Programa

REM -> BTNGET.PRG PRECISA

%FwhDir%\Tools\CLP2HARB GetBtn.C GetBtn.HC

REM -> Vou Transformar em Arquivos.Obj Para Usar no Programa Com a BtnGet.Prg

%bcdir%\Bin\bcc32 -c -D__HARBOUR__;HB_API_MACROS -I%FwhDir%\Include;%hDir%\Include -tW GetBtn.HC

REM -> Incorporando arquivo.c diretamente via xharbour - nao funcionou

%bcdir%\bin\bcc32 -M -c -D__HARBOUR__ -I%fwhdir%\include;%hdir%\include GetBtn.C >> Erro.log

If ErrorLevel 1 Type Erro.log | More

If ErrorLevel 1 Goto Exit

%bcdir%\bin\bcc32 -M -c -O2 -eGERAPNFE.exe -I%hdir%\include GERAPNFE.c

REM %bcdir%\bin\bcc32 -M -c -O2 -eGERAPNFE.EXE -I%hdir%\include;%bcdir%\include GERAPNFE.c

:ENDCOMPILE

%bcdir%\bin\ilink32 -Gn -aa -Tpe -s @Cxp.Lnk

Echo .

IF ERRORLEVEL 1 GOTO LINKERROR

REM Cls

Echo .

Echo * Aplicacao Foi Desenvolvida Com Sucesso

Echo .

Echo * Aguarde um Momento, Compactando Aplicacao, Usando o UPX.EXE

Echo .

REM UPX.EXE -9 GERAPNFE.EXE

Echo .

Echo * Aplicativo Foi Compactado Com Sucesso - Aguarde Execucao.

Echo .

Echo * Aguarde, Executando o Aplicativo, Gerado Com Sucesso Absoluto *

rem GERAPNFE

GOTO EXIT

:LINKERROR

PAUSE * Applicacao Nao Foi Desenvolvida Com Sucesso. Veja ERRO.LOG *

GOTO EXIT

Echo .

cls

:EXIT

id=code>id=code>

Obg, abs.

João Santos - São Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe

Link to comment
Share on other sites

Acabei de faze um teste com programinha simples, funciona:

REM CX.BAT

@Echo Off

Cls

Echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿

Echo ³ FiveWin For xHarbour 2.7 - Mar‡o de 2006 xHarbour Development Power ³Ü

Echo ³ © FiveTech, 1993-2006 For Microsoft Windows 95/98/NT/2000/ME And XP ³Û

Echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ

Echo ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß

Echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿

Echo ³ FiveWin For xHarbour 2.7 - Mar‡o de 2006 Comparies Tecnologia Ltda ³Ü

Echo ³ Aguarde um Momento, Compilando Aplica‡Æo 32 Bits, Processamento Demorado ³Û

Echo ³ CopyRight© JoÆo@2005 - Todos os Direitos Reservados. TELAGET 32 Bits. ³Û

Echo ³ Participa‡Æo Especial Vagner Wirts - vwirts@ig.com.br - 25/11/2005 Inicio. ³Û

Echo ³ Agradecimentos Especiais - Gilmer Tavares - Virtual Objects Informatica ³Û

Echo ³ vendas@fivewin.com.br - suporte@fivewin.com.br - gilmer@fivewin.com.br ³Û

Echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ

Echo ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß

Echo .

Echo Aguarde... Compilando os Modulos do Programa... Processamento Demorado

Echo Gerando o Arquivo ERRO.LOG, em Caso de Duvidas, Consulte-o. Borland C.

Rem Localiza‡Æo dos Paths

Set hDir=C:\xHarbour

Set bcDir=C:\bcc55

Set FwhDir=C:\FwH27

@If Exist *.Bak Del *.Bak

@If Exist *.Obj Del *.Obj

@If Exist *.Log Del *.Log

@If Exist *.Map Del *.Map

@If Exist *.PPO Del *.Ppo

@If Exist *.TDS Del *.TDS

@If Exist *.Bc Del *.bc

@If Exist *.C Del *.C

@If Exist *.HC Del *.HC

If Exist TESTE.EXE Del TESTE.EXE

REM -> Area dos Arquivos com ExtensÆo *.PRG Gerados em FiveWin 2.7 For xHarbour

%hdir%\bin\harbour TELAGET /m/n /i%fwhdir%\include;%hdir%\include /w0/p TELAGET.C > Erro.log

REM -> Area dos Arquivos Gerados na Linguagem C Pelo [x]Harbour

%bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include TELAGET.C >> Erro.log

If ErrorLevel 1 Type Erro.log | More

If ErrorLevel 1 Goto Exit

%bcdir%\bin\bcc32 -M -c -O2 -eTESTE.EXE -I%hdir%\include TELAGET.c

:ENDCOMPILE

%bcdir%\bin\ilink32 -Gn -aa -Tpe -s @Cx.Lnk

Echo .

IF ERRORLEVEL 1 GOTO LINKERROR

Cls

Echo .

Echo * Aplicacao Foi Desenvolvida Com Sucesso

Echo .

Echo * Aguarde um Momento, Compactando Aplicacao, Usando o UPX.EXE

Echo .

REM \PDVXB\UPX\UPX.EXE -9 TESTE.EXE

Echo .

Echo * Aplicativo Foi Compactado Com Sucesso - Aguarde Execucao.

Echo .

Echo * Aguarde, Executando o Aplicativo, Gerado Com Sucesso Absoluto *

TESTE

GOTO EXIT

:LINKERROR

PAUSE * Applicacao Nao Foi Desenvolvida Com Sucesso. Veja ERRO.LOG *

GOTO EXIT

Echo .

cls

:EXIT

João Santos - São Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe

Link to comment
Share on other sites

CX.LNK

c0w32.Obj +

TELAGET.Obj, +

TESTE.exe, +

TELAGET.map, +

\FwH27\lib\FiveHX.lib +

\FwH27\lib\FiveHC.lib +

\xHarbour\Lib\Ace32.Lib +

\xHarbour\Lib\RddAds.Lib +

\xHarbour\lib\hbzip.lib +

\xHarbour\lib\rtl.lib +

\xHarbour\lib\vm.lib +

\xHarbour\lib\gtgui.lib +

\xHarbour\lib\lang.lib +

\xHarbour\lib\macro.lib +

\xHarbour\lib\rdd.lib +

\xHarbour\lib\dbfntx.lib +

\xHarbour\lib\dbfcdx.lib +

\xHarbour\lib\dbfdbt.lib +

\xHarbour\lib\debug.lib +

\xHarbour\lib\common.lib +

\xHarbour\lib\tip.lib +

\xHarbour\lib\pp.lib +

\xHarbour\lib\dbffpt.lib +

\xHarbour\lib\codepage.lib +

\xHarbour\lib\libmisc.lib +

\xHarbour\lib\HbCt.lib +

\xHarbour\lib\HbSix.lib +

\Bcc55\lib\cw32.lib +

\Bcc55\lib\psdk\msimg32.lib +

\Bcc55\lib\psdk\odbc32.lib +

\Bcc55\lib\psdk\rasapi32.lib +

\Bcc55\lib\psdk\nddeapi.lib +

\Bcc55\lib\psdk\iphlpapi.lib +

\Bcc55\lib\import32.lib

João Santos - São Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe

Link to comment
Share on other sites

beauty amigo., acho que é a gtnul.lib, que está te atrapalhando, veja que nesse ultimo exemplo vc não tem ela no .lnk

Um grande Abraço

Alessandroid=blue>

FW9.07 + xHb121 + CDX

Fico feliz com os Meus erros, pois eles me apontam a direção para o acerto.id=red>

Link to comment
Share on other sites

JESUS!!!! RESOLVIDO!!!

Senhores me desculpem, não era na GTGUI.LIB o erro, era em um arquivo de lote que chamava a Nota Fiscal Eletrônica.

Resolvido assim:

NFE.BAT

@ECHO: //-> Faz com que o prompt fique oculto durante toda execução. YES!!

START C:\INST_NFE\GERAPNFE > NUL

PQP, Quase que eu me morro de tanta raiva por aqui...

Muito obrigado a todos e mais uma vez, SORRY!!

Aqui, todos os comandos em arquivos de lotes, caso alguém precise:

http://www.devmedia.com.br/introducao-a-arquivos-bat-e-programacao-em-lotes/24800

abs,

João Santos - São Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe

Link to comment
Share on other sites

citação:

JESUS, PQ VC USA UM .BAT PARA CHAMAR O PROGRAMA?

Um grande Abraço

Alessandroid=blue>

FW9.07 + xHb121 + CDX

Fico feliz com os Meus erros, pois eles me apontam a direção para o acerto.id=red>


id=quote>id=quote>

KKKKKKKKKK, Não sou eu... + deixa pra lá...

Obg, abs.

João Santos - São Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
×
  • Create New...