*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="otoolbar.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS img_help AS _image OF "_baza.vcx" 
 	*< CLASSDATA: Baseclass="image" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<DefinedPropArrayMethod>
		*p: comanda_program
	*</DefinedPropArrayMethod>

	*<PropValue>
		BackStyle = 0
		BorderColor = 255,255,255
		BorderStyle = 1
		comanda_program = 
		Height = 26
		MousePointer = 15
		Name = "img_help"
		Picture = ..\grafice\help\_disabled_help.ico
		Stretch = 1
		Width = 26
	*</PropValue>
	
	PROCEDURE Click
		IF  !EMPTY(this.comanda_program)
			IF this.comanda_program<>'INACTIV'
				OPEN_DEFAULT_APP(this.comanda_program)
			ELSE 
				AMESSAGEBOX("Manualul de utilizare nu este configurat corect!",0+48,"Atentie")
			ENDIF 
		ELSE 				
			AMESSAGEBOX("Manualul de utilizare nu este instalat!",0+48,"Atentie")
		ENDIF 
		
	ENDPROC

ENDDEFINE

DEFINE CLASS img_program AS _image OF "_baza.vcx" 
 	*< CLASSDATA: Baseclass="image" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<DefinedPropArrayMethod>
		*p: comanda_program
	*</DefinedPropArrayMethod>

	*<PropValue>
		BackStyle = 0
		BorderColor = 192,192,192
		BorderStyle = 1
		comanda_program = 
		Height = 26
		MousePointer = 15
		Name = "img_program"
		Stretch = 1
		Width = 37
	*</PropValue>
	
	PROCEDURE Click
		*!*	If Like([*.htm],Lower(This.comanda_program)) Or Like([*.html],Lower(This.comanda_program))
		*!*		open_default_app(This.comanda_program)
		*!*	Else
		*!*		Try
		*!*			lcComanda = This.comanda_program + Alltrim(Str(gnan)) + [;] + Alltrim(Str(gnluna)) + ;
		*!*				[;] + Alltrim(gcS) + [;] + Alltrim(Str(gnIdFirma))
		*!*			&lcComanda
		*!*		Catch
		*!*			AMESSAGEBOX("Programul "+ Alltrim(This.ToolTipText) +" nu este instalat pe server!",0+48,"Atentie")
		*!*		Finally
		*!*		Endtry
		*!*	Endif
		*!* modificare ROACONT-2.0.95
		Local loUpdate
		Local lbrun, lcAppVer, lcComanda, lcRun, loEx
		Local llFileExists
		loUpdate = Createobject("oUpdate", [])
		If Type('loUpdate') = 'O'
			lbrun = .T.
			*!*	modificare	17.11.2011
			*!*				lbrun=loUpdate.updatecheck(Juststem(This.comanda_program),.T.,0)
			Do Case
				Case Lower(This.comanda_program) = [romfast_suport.exe]
					llFileExists = File(m.gcDirMare + This.comanda_program)
					lbrun = loUpdate.updatecheckTxt(Juststem(This.comanda_program),.F., m.llFileExists)
					lbrun = File(m.gcDirMare + This.comanda_program)
		
				Case Lower(This.comanda_program) = [roascreenshot.exe]
					llFileExists = File(m.gcDirMare + This.comanda_program)
					*MESSAGEBOX('File(' + m.gcDirMare + This.comanda_program + ')=' + TRANSFORM(m.llFileExists))
					lbrun = loUpdate. updatecheckTxt(Juststem(This.comanda_program),.F., m.llFileExists)
					lbrun = File(m.gcDirMare + This.comanda_program)
				Otherwise
					lbrun = loUpdate.updatecheck(Juststem(This.comanda_program), .T., 0)
			Endcase
			*!*	modificare	17.11.2011	^
			Release loUpdate
		Else
			lbrun = .T.
		Endif
		
		If lbrun
			DO CASE 
				CASE  Like([*.htm], Lower(This.comanda_program)) Or Like([*.html], Lower(This.comanda_program))
					open_default_app(This.comanda_program)
				CASE  Like([chatbot], Lower(This.comanda_program))
					open_default_app('https://www.romfast.ro/chatbot_maria.html')
					* Nu mai deschid formularul foxpro - nu stiu de ce da timeout
					* DO FORM frm_chatbot
			OTHERWISE 
				Try
					*!*	modificare	17.11.2011	^
					*!*					lcComanda = This.comanda_program + Alltrim(Str(gnan)) + [;] + Alltrim(Str(gnluna)) + ;
					*!*						[;] + Alltrim(gcS) + [;] + Alltrim(Str(gnIdFirma))
					Do Case
						Case Lower(This.comanda_program) = "romfast_suport.exe"
							lcComanda = gcDirMare + This.comanda_program
							open_default_app(lcComanda)
		
						Case Lower(This.comanda_program) = "roascreenshot.exe"
							lcComanda = gcDirMare + This.comanda_program
							Try
								lcAppVer = Getversion(gcAppName)
								lcComanda = ["] + gcDirMare + This.comanda_program + [" "office@romfast.ro" "Sesizare ] + Alltrim(gcAppName) + [ v] + m.lcAppVer + [ - ] + Alltrim(m.gcFirma) + [ - ] + Padl(m.gnLuna, 2, '0') + [/] + Alltrim(Str(m.gnAn)) + [ - ] + Alltrim(m.gcUserNameApp) + ["]
							Catch To loEx
								lcComanda = gcDirMare + This.comanda_program
							Endtry
							lcRun = [RUN /N ] + m.lcComanda
		
							&lcRun
		
						Otherwise
							lcComanda = This.comanda_program + Alltrim(Str(gnAn)) + [;] + Alltrim(Str(gnLuna)) + ;
								[;] + Alltrim(gcS) + [;] + Alltrim(Str(gnIdFirma))
							&lcComanda
					Endcase
					*!*	modificare	17.11.2011	^
				Catch To loEx
					Messagebox("Programul " + Alltrim(This.ToolTipText) + " nu este instalat!" + Chr(13) + Chr(10) + loEx.Message, 0 + 48, "Atentie")
				Endtry
			ENDCASE 
		Endif
		*!* modificare ROACONT-2.0.95 ^
		
	ENDPROC

ENDDEFINE

DEFINE CLASS sep AS _shape OF "_baza.vcx" 
 	*< CLASSDATA: Baseclass="shape" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		BackStyle = 0
		BorderColor = 192,192,192
		Height = 32
		Name = "sep"
		SpecialEffect = 0
		Style = 0
		Width = 2
	*</PropValue>

ENDDEFINE

DEFINE CLASS tool AS toolbar 
 	*< CLASSDATA: Baseclass="toolbar" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		Caption = "ROMFAST Applications"
		Height = 19
		Left = 0
		Name = "tool"
		Top = 0
		Width = 33
	*</PropValue>

ENDDEFINE

DEFINE CLASS tool_help AS toolbar 
 	*< CLASSDATA: Baseclass="toolbar" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		Caption = "Ajutor"
		Height = 19
		Left = 0
		Name = "tool_help"
		Top = 0
		Width = 33
	*</PropValue>

ENDDEFINE

DEFINE CLASS toolhelp AS formset 
 	*< CLASSDATA: Baseclass="formset" Timestamp="" Scale="" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Tool_help1" UniqueID="" Timestamp="" />

	*<PropValue>
		Name = "toolhelp"
	*</PropValue>

	ADD OBJECT 'Tool_help1' AS tool_help WITH ;
		Height = 19, ;
		Left = 201, ;
		Name = "Tool_help1", ;
		Top = 31, ;
		Width = 33
		*< END OBJECT: ClassLib="otoolbar.vcx" BaseClass="toolbar" />

ENDDEFINE

DEFINE CLASS toolset AS formset 
 	*< CLASSDATA: Baseclass="formset" Timestamp="" Scale="" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Tool1" UniqueID="" Timestamp="" />

	*<PropValue>
		AutoRelease = .T.
		Name = "toolset"
	*</PropValue>

	ADD OBJECT 'Tool1' AS tool WITH ;
		ControlBox = .F., ;
		Height = 19, ;
		Left = 213, ;
		Name = "Tool1", ;
		Top = 10, ;
		Width = 33
		*< END OBJECT: ClassLib="otoolbar.vcx" BaseClass="toolbar" />

ENDDEFINE
