TENDRE Q RETROCEDER A 16 BITS? POR TSBROWSE

[A&C]

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

[Patricio Avalos Aguirre]

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 ) ...

Te envie un correo con la libreria..


Saludos

Patricio

[A&C]

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.

[Patricio Avalos Aguirre]

Code: Select all  Expand view  RUN

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

[A&C]

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

[Patricio Avalos Aguirre]

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

[A&C]

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

[A&C]

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

[A&C]

....

[Antonio Linares]

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