234 lines
7.2 KiB
Plaintext
234 lines
7.2 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (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
|