FiveTech Software tech support forums

... + D:\MySql\WinContaPro\Sire\Wc-Sire\Obj\Sire.Obj + D:\MySql\WinContaPro\Sire\Wc-Sire\Obj\FUNCIONS.Obj + D:\MySql\WinContaPro\Sire\Wc-Sire\Obj\TPublic.Obj + E:\Tools\bcc760\Lib\c0w32.obj, + D:\MySql\WinContaPro\Sire\Wc-Sire\bin\Wc-Sire.Exe, + , + E:\Tools\fwh2307\lib\FiveHX.lib + E:\Tools\fwh2307\lib\FiveHC.lib ...

... %HOME%\Source\connect.prg=2,.F.,25,96, %HOME%\Source\ventas.prg=3,.F.,11,1, %HOME%\Source\FUNCIONS.PRG=4,.F.,40,20, E:\Tools\Clases\TPublic.prg=5,.F.,0,0, %HOME%\Resource\SireResource.res=6,.F.,0,0, %HOME%\Source\Sire.prg=7,.F.,7,1, %C_LIB_INSTALL%\C0W32.OBJ=8,.T.,0,0, E:\Tools\fwh2307\lib\FiveHX.lib=9,.T.,0,0, ...

... about. Thanks eveyone. I found the class in the forum : http://forums.fivetechsupport.com/viewtopic.php?f=6&t=38871&hilit=tpublic Antonio asked about it. Maybe it is inside FWH already ?? I have to test/see in the source files Otherwise, If I want to use it, I copy it to ...

Another option is to use a CLASS already developed by Andrade A. Daniel. The CLASS's name is TPublic // UsageoBill:=TPublic():New(.T.)// Vaiables DeclarationoBill:nBillNo:=100oBill:dBillDate:=Date()oBill:cCustCode:=Space(10)oBill:cCustName:=Space(35) ...

Horacio,

Puedes publicar aqui el código fuente de la clase TPublic que comentas ? gracias

Hay una clase que yo utilizo que se llama TPublic, donde defines solo una variable pública y declaras las que quieras dentro de ella. Public oWith Object o := TPublic() : New()    :Add( "usuario" )    :Add( ...

No. Pero solamente estas ejecutardo la CLase Tpublic. Colocalo asi. __objSendMsg( Self, "_" + cName,xValue ) Me imagino que pasas el Nombre (cName) y el valor para inicializarlo (xValue) Muestrame como haces el llamado a esta clase. Sigue ...

No.
Pero solamente estas ejecutardo la CLase Tpublic.
Colocalo asi.

__objSendMsg( Self, "_" + cName,xValue )

Me imagino que pasas el Nombre (cName) y el valor para inicializarlo (xValue)
Muestrame como haces el llamado a esta clase.

Si trabajo con la misma version. Podrias ajustarlso asi. te deberia de funcionar. Estas modificando la Clase TPublic. Saludos , mira si te funciona que error de da, me comentas o me escribes.     METHOD Set( cName, xValue ) CLASS TPublic       IF oSend(Self,cName)=NIL  ...

Si trabajo con la misma version. Podrias ajustarlso asi. te deberia de funcionar. Estas modificando la Clase TPublic. Saludos , mira si te funciona que error de da, me comentas o me escribes.     METHOD Set( cName, xValue ) CLASS TPublic      ...

Busmatic_wpb wrote:Buenas Listeros
Yo he usado de la Daniel y trabaja exelente muy buena la aportacion del compañero.
Gracias por compartir .

Hola, la usas con Harbour ?

Buenas Listeros
Yo he usado de la Daniel y trabaja exelente muy buena la aportacion del compañero.
Gracias por compartir .

... funcionalidades agregados metodos IsDefData, IsDefMethod, Save, Restore ////Designed by: Daniel Garcia-Gil [ danielgarciagil@gmail.com ]////Class TPublic//Create dynamically Datas//Create "in fly" new methods#include "hbclass.ch"//------------------------------------------------//CLASS ...

... Classes in use: =============== 1 ERROR 2 HBCLASS 3 HBOBJECT 4 TWINDOW 5 TCONTROL 6 TGET 7 TAPLICACION 8 WIN_OLEAUTO 9 TOLEAUTO 10 TPUBLIC 11 TICON 12 TBRUSH 13 TFONT 14 TDIALOG 15 TSAY 16 GET 17 TCLIPGET 18 TDATEPICK 19 TXBROWSE 20 TREG32 21 TXBRWCOLUMN 22 TBUTTON 23 TBUTTONBMP ...

Este es el archivo MAIN.PRG que llama a la clase tpublic

#INCLUDE "fivewin.CH"

STATIC oBmp

FUNCTION main()
LOCAL oIco, oBar


SET DELETE OFF

PUBLIC oApp


oApp :=TPublic():New( .t. )

RETURN NIL


Contiua el error