FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour TENDRE Q RETROCEDER A 16 BITS? POR TSBROWSE
A&C
Posts: 214
Joined: Sat Aug 19, 2006 01:37 PM
TENDRE Q RETROCEDER A 16 BITS? POR TSBROWSE
Posted: Fri Feb 02, 2007 01:50 PM

baje tsbr.. como indico ANTONIO LINARES,, pero nose si las .LIB no corresponden ya q al compilar me marca el siguiente error::

Error: Unresolved external '_hb_stack' referenced from C:\CLASSTERCEROS\SBX.LIB|Scroll

si es asi.. alguien las tiene que me las pueda mandar a mi Mail

zxzxzx@123mail.cl

o estoy haciendo algo mal

GRACIAS

Mi segundo amor es Programar
Patricio Avalos Aguirre
Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM
TENDRE Q RETROCEDER A 16 BITS? POR TSBROWSE
Posted: Fri Feb 02, 2007 02:49 PM

Tienes que tener paciencia

Ya que el cambio es bastante traumatico jijii :-), y espera cuando te cambies de base de DATOS ( ya se ADS, SQL, MySql ) ... 

         [u:2k2a72kc]Te envie un correo con la libreria..[/u:2k2a72kc]

Saludos

Patricio

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
A&C
Posts: 214
Joined: Sat Aug 19, 2006 01:37 PM
TENDRE Q RETROCEDER A 16 BITS? POR TSBROWSE
Posted: Fri Feb 02, 2007 06:40 PM

Estimado Patricio

muchisimas gracias por la libreria q me enviaste,,

ejecute do.bat y se genero la LIB

la compile al mi programa,, con verce pero me arroja el siguiente error::

Error: Unresolved external '_HB_FUN_MENU_OLBX' referenced from C:\CLASSTERCEROS\SBROWSEH.LIB|TSBrowse
Error: Unresolved external '_HB_FUN_HB_ENUMINDEX' referenced from C:\CLASSTERCEROS\SBROWSEH.LIB|TSBrowse
Error: Unresolved external '_HB_FUN_ADSKEYNO' referenced from C:\CLASSTERCEROS\SBROWSEH.LIB|TSBrowse

analice el problema y se trata en TSbr... el prg se hace mencion a MENU_OLBX() es una funcion que no se encuentra al igual de las demas,, las busque en todos los PRGs q compile para generar la LIB y no estan ,,

ati te funciona bien la libreria,, porque con verce no me deja seguir si marca algun error
si sabes de q se trata y me puedes ayudar mas aun,, se agradece

ATTE. Claudio.

Mi segundo amor es Programar
Patricio Avalos Aguirre
Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM
TENDRE Q RETROCEDER A 16 BITS? POR TSBROWSE
Posted: Fri Feb 02, 2007 06:49 PM
Code: Select all Collapse
function Menu_oLbx( nRow, nCol, oLbx )
	local oMenu, oClp, cVar := ""

	if oLbx:ClassName = "TWBROWSE"
		cVar := cValtoChar( Eval( oLbx:bLine )[oLbx:nColAct] )
	elseif oLbx:ClassName = "TSBROWSE"
		cVar :=	Alltrim(cValToChar( EVal( oLbx:aColumns[ oLbx:nCell ]:bData ) ))
	endif

	DEFINE CLIPBOARD oClp OF oLbx FORMAT TEXT

 	MENU oMenu POPUP
		MENUITEM "Copiar"  ACTION ;
   					iif( oClp:Open(), (;
													oClp:Clear(),;
													oClp:SetText( cVar ),;
													oClp:End(),;
													oMenu:End() ),;
							 MsgInfo( "El clipboard no esta habilitado por ahora", "Usuario" ) )

		MENUITEM "&Excel"  				ACTION oLbx:toExcel()


		if oLbx:ClassName = "TSBROWSE"
			SEPARATOR
			MENUITEM "Excel &Versión 2.1"  				ACTION oLbx:Excel2()
			SEPARATOR
		endif

		MENUITEM "&Imprimir"  				ACTION oLbx:Report()

	ENDMENU

	ACTIVATE POPUP oMenu AT nRow, nCol-1 OF oLbx

return( .t. )


FUNCTION ADSKEYNO()
RETURN( OrdKeyNo() )

ENUMINDEX es un funcion de xHarbour



Saludos
Patricio
Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
A&C
Posts: 214
Joined: Sat Aug 19, 2006 01:37 PM
TENDRE Q RETROCEDER A 16 BITS? POR TSBROWSE
Posted: Fri Feb 02, 2007 08:11 PM

muchisimas gracias por tu ayuda amigo... ojala hubieran mas como tu

ENUMINDEX es un funcion de xHarbour

y como la incorporo a mi programa.. tu como lo hiciste

atte.. CLAUDIO

Mi segundo amor es Programar
Patricio Avalos Aguirre
Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM
TENDRE Q RETROCEDER A 16 BITS? POR TSBROWSE
Posted: Fri Feb 02, 2007 08:41 PM

Compilando con xharbour...

La tsbrowse que te envie fueron cambiados todos los "for" por
"For EACH", y esta es una extension de xHarbour es mucho mas rapido que los for comunes

te envie por mail la tsbrowse.prg con los "for" normales

Saludos
Patricio

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
A&C
Posts: 214
Joined: Sat Aug 19, 2006 01:37 PM
TENDRE Q RETROCEDER A 16 BITS? POR TSBROWSE
Posted: Sat Feb 03, 2007 02:35 AM

Amigo una duda:: re ferente a compilar con xharbo..... lo hago con verce4.3 claro.. ,, referente a la TSbrowse.prg q me enviaste al correo,, la revise y igual hay "For EACH", eso es correcto q deban estar ahi

con la lib q genere y compilando con xharbour me da este error solamente

Error: Unresolved external '_HB_FUN_HB_ENUMINDEX' referenced from C:\CLASSTERCEROS\MSBROWSEH.LIB|TSBrowse

ya me dijiste q era una funcion de xharbourd pero ,, estoy compilando con xharb.... pq igual me aparece el error

Pd. disculpa las molestias

un agradecido

Atte. CLAUDIO

Mi segundo amor es Programar
A&C
Posts: 214
Joined: Sat Aug 19, 2006 01:37 PM
TENDRE Q RETROCEDER A 16 BITS? POR TSBROWSE
Posted: Sat Feb 03, 2007 12:54 PM

Amigo:: compile la tsbrowse.prg pero al momento de hacerlo la compilacion si bien se crea el .LIB,, me marca este error:

Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
TSCombo.c:
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
TSMulti.c:
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
ScrllBar.c:
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
BtnDown.c:
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
..\source\function\TSBFUNCS.C:
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
..\source\function\SCROLL.C:
Warning W8070 ..\source\function\SCROLL.C 75: Function should return a value in
function HB_FUN_SETSCROLLRANGE
Warning W8070 ..\source\function\SCROLL.C 101: Function should return a value in
function HB_FUN_SETSCROLLPOS
Warning W8070 ..\source\function\SCROLL.C 128: Function should return a value in
function HB_FUN_GETSCROLLRANGE
Warning W8070 ..\source\function\SCROLL.C 140: Function should return a value in
function HB_FUN_GETSCROLLPOS
Warning W8070 ..\source\function\SCROLL.C 160: Function should return a value in
function HB_FUN_SETSCROLLINFO
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
..\source\function\GETBTN.C:
D:\TSBROW6\LIB>edit do.bat

D:\TSBROW6\LIB>do
El sistema no puede hallar el archivo especificado.
No se esperaba >> en este momento.
D:\TSBROW6\LIB>edit do.bat

D:\TSBROW6\LIB>do
No se encuentra D:\TSBROW6\LIB*.lib
El sistema no puede hallar el archivo especificado.
No se esperaba >> en este momento.
D:\TSBROW6\LIB>edit do.bat

D:\TSBROW6\LIB>do
No se encuentra D:\TSBROW6\LIB*.lib
El sistema no puede hallar el archivo especificado.
No se esperaba >> en este momento.
D:\TSBROW6\LIB>edit do.bat

D:\TSBROW6\LIB>do
No se encuentra D:\TSBROW6\LIB*.lib
El sistema no puede hallar el archivo especificado.
Presione una tecla para continuar . . .
No se esperaba >> en este momento.
D:\TSBROW6\LIB>edit do.bat

D:\TSBROW6\LIB>do
No se encuentra D:\TSBROW6\LIB*.lib
El sistema no puede hallar el archivo especificado.
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
TSBrowse.c:
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
SBMsgSpa.c:
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
TSColumn.c:
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
TSBtnGet.c:
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
TSGet.c:
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
TSCombo.c:
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
TSMulti.c:
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
ScrllBar.c:
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
BtnDown.c:
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
RPreview.c:
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
TMetafil.c:
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
..\source\function\TSBFUNCS.C:
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
..\source\function\SCROLL.C:
Warning W8070 ..\source\function\SCROLL.C 75: Function should return a value in
function HB_FUN_SETSCROLLRANGE
Warning W8070 ..\source\function\SCROLL.C 101: Function should return a value in
function HB_FUN_SETSCROLLPOS
Warning W8070 ..\source\function\SCROLL.C 128: Function should return a value in
function HB_FUN_GETSCROLLRANGE
Warning W8070 ..\source\function\SCROLL.C 140: Function should return a value in
function HB_FUN_GETSCROLLPOS
Warning W8070 ..\source\function\SCROLL.C 160: Function should return a value in
function HB_FUN_SETSCROLLINFO
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
..\source\function\GETBTN.C:
D:\TSBROW6\LIB>lear
"lear" no se reconoce como un comando interno o externo,
programa o archivo por lotes ejecutable.

D:\TSBROW6\LIB>clear

D:\TSBROW6\LIB>for %i in (*.lib) do del %i

D:\TSBROW6\LIB>del SBrowseH.LIB

D:\TSBROW6\LIB>for %i in (*.obj) do del %i

D:\TSBROW6\LIB>for %i in (*.c) do del %i

D:\TSBROW6\LIB>for %i in (*.log) do del %i

D:\TSBROW6\LIB>del Lib.log

D:\TSBROW6\LIB>del log.log

D:\TSBROW6\LIB>for %i in (*.ppo) do del %i

D:\TSBROW6\LIB>for %i in (*.bak) do del %i

D:\TSBROW6\LIB>do
No se encuentra D:\TSBROW6\LIB*.lib
No se encuentra D:\TSBROW6\LIB*.log

//
El sistema no puede hallar el archivo especificado. /// este es el primero
//

Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
TSBrowse.c:
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
SBMsgSpa.c:
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
TSColumn.c:
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
TSBtnGet.c:
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
TSGet.c:
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
TSCombo.c:
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
TSMulti.c:
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
ScrllBar.c:
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
BtnDown.c:
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
RPreview.c:
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
TMetafil.c:
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
..\source\function\TSBFUNCS.C:
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
/// aca los demas,,,, me arroja warning en scroll.c
..\source\function\SCROLL.C:
Warning W8070 ..\source\function\SCROLL.C 75: Function should return a value in
function HB_FUN_SETSCROLLRANGE
Warning W8070 ..\source\function\SCROLL.C 101: Function should return a value in
function HB_FUN_SETSCROLLPOS
Warning W8070 ..\source\function\SCROLL.C 128: Function should return a value in
function HB_FUN_GETSCROLLRANGE
Warning W8070 ..\source\function\SCROLL.C 140: Function should return a value in
function HB_FUN_GETSCROLLPOS
Warning W8070 ..\source\function\SCROLL.C 160: Function should return a value in
function HB_FUN_SETSCROLLINFO
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
..\source\function\GETBTN.C:
D:\TSBROW6\LIB>

cuando la incorporo al programa ,, y la compilo con mi aplicacion con verce..

me da este error

Unrecoverable error 9000

"Program with 1st fun: TSBROWSE" was compiled by older version, PCODE version 0 is no longer supported - please recompile

QUE SERA...

No tienes la LIB ya compilada y el .CH ,, porque es todo lo q se necesita verdad---

Ojo.. Harb. y xHarb. no son lo mismo,, ya q compilo con xharbour

GRACIAS

Mi segundo amor es Programar
A&C
Posts: 214
Joined: Sat Aug 19, 2006 01:37 PM
TENDRE Q RETROCEDER A 16 BITS? POR TSBROWSE
Posted: Sat Feb 03, 2007 08:45 PM

....

Mi segundo amor es Programar
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
TENDRE Q RETROCEDER A 16 BITS? POR TSBROWSE
Posted: Sat Feb 03, 2007 09:39 PM

Tienes que recompilar TSBrowse con el xharbour que estás usando

regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion

Static archive · New replies & topics via GitHub Discussions