#include "fivewin.ch"
memvar oWndPrinc, oBrush, oIconApli, aMeses, cMeses, cDias, date, WFecha, WHora, Tecla, dFecsys, aDias
********************************************************************************************
function Main()
********************************************************************************************
local oBar
Inicia()
............
********************************************************************************************
function inicia()
********************************************************************************************
public oWndPrinc, oBrush, oIconApli, aMeses, cMeses, cDias, date, WFecha, WHora, Tecla, dFecsys, aDias
date := Date()
.............
**********************************************************************************************************************
function ManArt( nWnd )
**********************************************************************************************************************
local aArrayVars[nTipVarMax][nObjVarMax][nWndMax]
if nWnd = nWndMax
MsgStop("No se pueden abrir más procesos " + STR(nWnd),"Atención!!!")
Return nil
endif
aObjVar( cFecha, nWnd ) := date
............
aObjVar( cFecha, nWnd ) := date
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 122 guests