Tengo este reporte de checkRes.. y no he podido liberarlos
Jonsson Russi
11/13/2024 21:02:19: e:\ZERUS\zeruswin.exe -- FONT,-1945497203,TMETROPANEL:NEW(121)->MAKEMETROPANEL(9525)->VALIDAUSER_X(9450)->VALIDAUSER(9429)->ZERUSMAIN(1219)->MAIN(17)
11/13/2024 21:02:19: e:\ZERUS\zeruswin.exe -- FONT,-100004238,TMETROPANEL:NEW(123)->MAKEMETROPANEL(9525)->VALIDAUSER_X(9450)->VALIDAUSER(9429)->ZERUSMAIN(1219)->MAIN(17)
11/13/2024 21:02:19: e:\ZERUS\zeruswin.exe -- PAL,1812467870,(b)TWINDOW:TWINDOW(603)->TMETROBTN:READIMAGE(0)->TMETROBTN:LOADBITMAPS(724)->TBTNBMP:NEW(468)->TMETROBTN:NEW(609)->TMETROPANEL:ADDBUTTON(455)->MAKEMETROPANEL(9586)->VALIDAUSER_X(9450)->VALIDAUSER(9429)->ZERUSMAIN(1219)->MAIN(17)
- Code: Select all Expand view RUN
function ValidaUSer_X(xWnd,vVecDat,vVecCom,cCodEqu,cEmpAct,cNomAct)
LOCAL oBar, oMetro, oBrush
PUBLIC lIngZer := .F. , oWndMet
M->cIniMet := "S"
DEFINE WINDOW oWndMet TITLE "" STYLE nOr( WS_POPUP,WS_MAXIMIZE ) // WS_MAXIMIZE
oMetro := MakeMetroPanel( oWndMet,@vVecDat,vVecCom,cCodEqu,cEmpAct,cNomAct )
IF FILE("imagenes\windows10.bmp")
DEFINE BRUSH oBrush FILE "imagenes\windows10.bmp" RESIZE
oMetro:SetBrush( oBrush )
RELEASE BRUSH oBrush
ENDIF
ACTIVATE WINDOW oWndMet MAXIMIZED ON INIT oMetro:Show()
try
oMetro:DESTROY()
oWndMet:DESTROY()
catch
end
RETURN lIngZer
//****************************************************************
11/13/2024 21:02:19: e:\ZERUS\zeruswin.exe -- FONT,319425528,TWINDOW:GETFONT(3174)->TWINDOW:NEW(984)->PRINCIPAL_METRO(7276)->PRINCIPAL(1355)->ZERUSMAIN(4533)->MAIN(17)
11/13/2024 21:02:19: e:\ZERUS\zeruswin.exe -- FONT,17437078,TMETROPANEL:NEW(118)->MAKEMETROPANELPRINCIPAL(7616)->PRINCIPAL_METRO(7278)->PRINCIPAL(1355)->ZERUSMAIN(4533)->MAIN(17)
11/13/2024 21:02:19: e:\ZERUS\zeruswin.exe -- PAL,-1207432855,(b)TWINDOW:TWINDOW(603)->TMETROBTN:READIMAGE(0)->TMETROBTN:LOADBITMAPS(724)->TBTNBMP:NEW(468)->TMETROBTN:NEW(609)->TMETROPANEL:ADDBUTTON(455)->MAKEMETROPANELPRINCIPAL(7724)->PRINCIPAL_METRO(7278)->PRINCIPAL(1355)->ZERUSMAIN(4533)->MAIN(17)
- Code: Select all Expand view RUN
FUNCTION PRINCIPAL_METRO()
LOCAL oBrush,hborland,oCursor,oCursorPen,oFont, oFon
LOCAL cDirAct := DISKNAME()+":"+XDIRNAME()+"\"+cCodCia
LOCAL oTimer , oSprite , oIco,oPopup3, oPopup2
LOCAL cTipCon := "", cImaFon, SW := 0 ,oMetPri
LOCAL nDurTim := 3000 ,oErr // cada dos minutos
LOCAL cPatLoc := "C:\TEMP"
PRIVATE lActFun := .F., cNomFon := "imagenes\fondonegro1.bmp" // 7 ok
MEMVAR oBar, Omenu
PUBLIC oImageList, oToolBar, oBa1r, oBar, Omenu
cambiaTemp(@cPatLoc)
IF M->lProEje
MYMEN("Error. El programa ya esta en ejecuci¢n")
RETURN NIL
ENDIF
M->lProEje := .T.
Ctrl_F7 := {"BorraMoviConcepto(cPatSis)"}
SetResDebug( .T. )
IF FILE(".\IMAGENES\zeruswin.ico") // PONGA EN EL DIRECTORIO DEL PROGRAMA
DEFINE ICON oIco FILENAME ".\IMAGENES\zeruswin.ico"
ELSE
ENDIF
M->cTitVenPri := HB_OEMTOANSI("Russoft ERP. Sistema de Gesti¢n Empresarial " +"(Versi¢n : "+m->cFecVerZer+")"+ " | "+ cCiaAct +" - "+ cCiaNom )
DEFINE WINDOW oWnd FROM 0, 0 TO 46, 128 ;
TITLE M->cTitVenPri ;
ICON oIco ;
MENU MenuPrincipal(oWnd)
oMetPri := MakeMetroPanelPrincipal( oWnd,oBrush )
IF oMetPri == NIL
RETURN NIL
ENDIF
m->oMetWin := oMetPri
ACTIVATE WINDOW oWnd MAXIMIZED ON INIT ( oMetPri:Show(),;
oTimer := XTimers(),;
LINEAESTADOFW(oWnd) )
IF FILE( "checkres.txt" )
CopyFile("checkres.txt","x_checkres.txt",0)
FErase( "checkres.txt" )
ENDIF
CREASALIRBASCULAJAVA()
M->lProEje := .F.
IF oBrush <> NIL
DeleteObject( oBrush )
ENDIF
DeleteObject( oMetPri )
oFon3:end()
while oFon2:nCount > 0
oFon2:End()
end
if oMenMet <> nil
oMenMet:END()
endif
if oMe1Met <> nil
oMe1Met:END()
endif
if oMe2Met <> nil
oMe2Met:END()
endif
if oMe3Met <> nil
oMe3Met:END()
endif
if oMe4Met <> nil
oMe4Met:END()
endif
if oMe5Met <> nil
oMe5Met:END()
endif
if oMe6Met <> nil
oMe6Met:END()
endif
if oMe7Met <> nil
oMe7Met:END()
endif
if oMe8Met <> nil
oMe8Met:END()
endif
if oMe9Met <> nil
oMe9Met:END()
endif
if oMe10Met <> nil
oMe10Met:END()
endif
if oMe11Met <> nil
oMe11Met:END()
endif
if oMe12Met <> nil
oMe12Met:END()
endif
if oMe13Met <> nil
oMe13Met:END()
endif
if oMe14Met <> nil
oMe14Met:END()
endif
if oMe15Met <> nil
oMe15Met:END()
endif
if oMe16Met <> nil
oMe16Met:END()
endif
//oMe17Met:END()
//oMe18Met:END()
//oMe19Met:END()
//oMe20Met:END()
IF oMe21Met <> NIL
oMe21Met:END()
ENDIF
IF oMe22Met <> NIL
oMe22Met:END()
ENDIF
M->oFonAc0:END()
M->oFonAct:END()
M->oFonAc1:END()
M->oFonAc2:END()
M->oFonAc3:END()
M->oFonAc4:END()
M->oFonAc5:END()
M->oFonAc6:END()
M->oFonAc7:END()
M->oFonAc8:END()
M->oFonAc9:END()
M->oFonAc10:END()
M->oFonAc11:END()
M->oFonAc12:END()
M->oFonAc13:END()
M->oFonAc24:END()
SET PRINTER TO
FCLOSE(M->cArcImp)
IF M->lFW_Gtw
M->oWndFW:End()
ENDIF
IF M->lXhbCom
Z_SR_END()
ENDIF
IF M->hAds2 <> NIL
AdsDisconnect( M->hAds2 )
ENDIF
IF M->hAds1 <> NIL
AdsDisconnect( M->hAds1 )
ENDIF
oWnd:END()
DbCommitAll()
DbUnLockAll()
DbCloseAll()
FreeResources()
RELEASE ALL
SysRefresh()
HB_GCALL( .T. )
CLEAR MEMORY
SET KEY VK_ESCAPE TO
M->lProEje := .F.
/*
fBorraArchivos(cPatLoc+"\","*.TMP")
fBorraArchivos(cPatLoc+"\","*.TEM")
fBorraArchivos(cPatLoc+"\","*.TMD")
fBorraArchivos(cPatLoc+"\","*.CDX")
*/
CheckRes()
PostQuitMessage( 0 )
__QUIT()
RETURN NIL // ( oWnd )
