www.FiveTechSoft.com
https://fivetechsoft.com/forums/
Gracias.Hola Antonio,
Ya me pienso que tienes mucha faena pero, podrias indicarme algun camino ?
Muchas gracias, por su tiempo.
Pere
Code: Select all
#include "fivewin.ch"
FUNCTION testing()
LOCAL oWnd, oWnd2
DEFINE WINDOW oWnd TITLE "FIVEWIN MAIN WINDOW"
//movemos a coordenadas negativas para que no se vea el WINDOW
//despues la ocultaremos
oWnd:Move( -1000, -1000 )
DEFINE WINDOW oWnd2 TITLE "bbb" STYLE nOR( WS_POPUP, WS_CAPTION, ;
WS_SYSMENU, WS_THICKFRAME, ;
WS_MINIMIZEBOX, WS_MAXIMIZEBOX ) of oWnd
ACTIVATE WINDOW oWnd2 //VALID( oWnd:End(), .T. )
ACTIVATE WINDOW oWnd ON INIT ::Hide()
RETURN NILCode: Select all
ACTIVATE WINDOW oWnd2Code: Select all
ShowWindow( ::hWnd, AScan( { "HIDDEN", "NORMAL", "ICONIZED", "MAXIMIZED" }, cShow ) - 1 )
UpdateWindow( ::hWnd )
Code: Select all
CINI =
C_OUTPUTFOLDER =
DEFFILE =
INCLUDEFOLDERS = G:\CLIENTS\GENXHB\LIBEXT\Include;I:\xHB\include;I:\xHB\c_include\Win;I:\HwGui\include
LAUTORUN = .T.
LDEBUG = .F.
LGUI = .T.
LIBFOLDERS = I:\xHB\c_lib\Win;I:\HwGui\lib
LMT = .F.
LNOAUTOFWH = .F.
LPRG_CLASSICDEBUG = .F.
LPRG_DEBUG = .T.
LUSEDLL = .F.
MAPFILE =
MYC_FLAGS =
MYDEFINES =
MYLINK_FLAGS =
MYPRG_FLAGS = -DHB_EXT_INKEY -N -DHB_NO_READDBG -D__GTWVW__ -D__GESTIO__ -D__PFW__ -D__APLITEC_FW__
MYRC_FLAGS =
MYSLY_FLAGS =
OUTPUTFOLDER = OBJFW
PRG_OUTPUTFOLDER =
RC_OUTPUTFOLDER =
RUNARGUMENTS =
SLY_OUTPUTFOLDER =
STARTIN =
TARGETFOLDER =
[I:\FWH\lib\xhb2.obj]
[G:\Clients\GENXHB\LIBEXT\LIB\xhb3.obj]
[I:\xHB\c_lib\profiler.lib]
[I:\xHB\lib\SixCDX.lib]
[I:\xHB\lib\Ole.lib]
[I:\xHB\lib\xHB.lib]
[I:\xHB\lib\Nanfor.lib]
[I:\hwgui\lib\hwgui.lib]
[I:\xHB\lib\GD.lib]
[I:\xHB\lib\FTS32.lib]
[I:\xHB\lib\WVW.lib]
[I:\xHB\lib\xHBCOMM.lib]
[I:\xHB\lib\xHBCommDll.lib]
[I:\FWH\lib\Fivehcm.lib]
[I:\FWH\lib\Fivehmx.lib]
[I:\FWH\lib\oledlg.lib]
[I:\FWH\lib\version.lib]
Code: Select all
Type: C >>>xlink.exe -NOEXPOBJ -MAP -FORCE:MULTIPLE -NOIMPLIB -subsystem:windows -UNMANGLE -LIBPATH:"I:\xHB\c_lib\Win" -LIBPATH:"I:\HwGui\lib" -LIBPATH:"I:\fwh\lib" -LIBPATH:"I:\xHB\lib" -LIBPATH:"I:\xHB\c_lib" -LIBPATH:"I:\xHB\c_lib\win" DbgServe.lib "I:\xHB\c_lib\profiler.lib" "I:\xHB\lib\SixCDX.lib" "I:\xHB\lib\Ole.lib" "I:\xHB\lib\xHB.lib" "I:\xHB\lib\Nanfor.lib" "I:\hwgui\lib\hwgui.lib" "I:\xHB\lib\GD.lib" "I:\xHB\lib\FTS32.lib" "I:\xHB\lib\WVW.lib" "I:\xHB\lib\xHBCOMM.lib" "I:\xHB\lib\xHBCommDll.lib" "I:\FWH\lib\Fivehcm.lib" "I:\FWH\lib\Fivehmx.lib" "I:\FWH\lib\oledlg.lib" "I:\FWH\lib\version.lib" "OptG.lib" "six.lib" "sde61.lib" "sql.lib" "ace32.lib" "libmysql.lib" "libpq.lib" "xhb.lib" "dbf.lib" "nsx.lib" "ntx.lib" "cdx.lib" "rmdbfcdx.lib" "ct3comm.lib" crt.lib kernel32.lib user32.lib winspool.lib ole32.lib oleaut32.lib odbc32.lib odbccp32.lib uuid.lib wsock32.lib ws2_32.lib wininet.lib advapi32.lib shlwapi.lib msimg32.lib mpr.lib comctl32.lib comdlg32.lib gdi32.lib shell32.lib winmm.lib lz32.lib Netapi32.lib -out:"FWfactura.exe"<<<
Code: Select all
Application
===========
Path and name: I:\CLIENTS\COMERCIAL\FACTURA\FWfactura.exe (32 bits)
Size: 6,112,768 bytes
Time from start: 0 hours 0 mins 8 secs
Error occurred at: 08/17/10, 17:08:32
Error description: Error BASE/1004 Class: 'NIL' has no exported method: BLCLICKED
Args:
[ 1] = U
Stack Calls
===========
Called from: => BLCLICKED(0)
Called from: G:\Clients\GENXHB\FIVEWIN\FWRutina1.prg => FWACTAPLITEC(21)
Called from: G:\CLIENTS\GENERIC\LIBAPLI\FONTS\GENERIC.PRG => GENERIC(117)
Called from: G:\CLIENTS\GENERIC\FACTURA\FONTS\FACTURA.PRG => FACTURA(75)
Code: Select all
ACTIVATE WINDOW oWndFW ON INIT ::Hide()