Necesito Ayuda!!!!!

[FranciscoA]

Error: Unresolved external '_HB_FUN_MIFUN' referenced from c:\fwh\samples\gfl.obj

Esto indica que el linker no encuentra la function MiFun() porque está en otro .prg que no enlazas.

Por favor muestra como lo enlazas: usando rmake, o si usas otra herramienta (por ej. VerCe)
Saludos

[willy1701]

Hola, necesitaria si alguien tiene y me puede pasar un ejemplo de como usar TXBrowse desde recurso con bases de datos, ya que no consigo hacer que funcione, estoy usando fwh 6.12 desde ya muchas gracias. Mi correo es guillefernandoluis@yahoo.com.ar.-

[cnavarro]

Puedes poner el codigo que no te funciona?

[willy1701]

#include "FiveWin.ch"
#include "XBrowse.ch"
//-----------------------------------------------------------------------------------------------------------------
function MiBrowse()

local oDlg, oBrw, oWnd, oCol

SET RESOURCES TO "Mio.dll"

ErrorBlock( { | o | MsgInfo( o:Description ) } )

USE DATOS\Cli ALIAS Cli

DEFINE WINDOW oWnd FROM 2, 2 TO 25, 80

DEFINE DIALOG oDlg RESOURCE "Listado"

oBrw := TXBrowse() :New( oWnd )

oBrw:nColDividerStyle := LINESTYLE_INSET
oBrw:nRowDividerStyle := LINESTYLE_INSET
oBrw:lColDividerComplete := .T.

oBrw:nMarqueeStyle := MARQSTYLE_HIGHCELL

oCol = oBrw:AddCol()
oCol:bStrData = { || Cli->CLIENTE }
oCol:cHeader = "CLIENTES"
oCol:nEditType = 0

oBrw:oClient := oBrw

oBrw:CreateFromResource( 101 )

ACTIVATE DIALOG oDlg CENTER

ACTIVATE WINDOW oWnd MAXIMIZED

return nil
//-------------------------------------------------------------------------------------------
Aclaracion: Es la primera vez que utilizo esta clase, siempre use el tcbrowse de fivewin 2.3 y nunca tuve problemas, usaba el resource workshop, ahora estoy utilizando el resource builder.

[cnavarro]

Cambia

Code: Select all  Expand view

oBrw := TXBrowse() :New( oWnd )
 

por

Code: Select all  Expand view

oBrw := TXBrowse() :New( oDlg )
 

Que errores te da?

[willy1701]

Hola Critobal, ya lo probe y no funciona. No me da ningun error, cuando se esta ejecutando me muestra el browse pero esta vacio sin nada!!.

[cnavarro]

Prueba con

Code: Select all  Expand view

oBrw:cAlias := "Cli"
 

Aunque te aconsejaria que para empezar utilizaras el comando y no la funcion

[willy1701]

Cristobal, sigue igual no me muestra lo que tiene la base

[Antonio Linares]

Guillermo,

la versión 6.12 es muy antigua.

La versión actual es la 14.12

Imáginate la de años que han pasado (ocho) y la de cambios y mejoras que se han hecho

[FranciscoA]

Guillermo.

Intenta cambiando esto:

Code: Select all  Expand view

oBrw := TXBrowse() :New( oWnd )
 

Por esto;

Code: Select all  Expand view

oBrw := TXBrowse() :New( oDlg )
 

Cambia esto:

Code: Select all  Expand view

oBrw:oClient := oBrw

por esto:

Code: Select all  Expand view

oDlg:oClient := oBrw

Saludos.
PD: oBrw:nMarqueeStyle := MARQSTYLE_HIGHCELL //En la Ver. 1204 es: MARQSTYLE_HIGHLCELL