Marius Mutu
b241a639b1
Binarele VFP raman pe SVN si sunt git-ignored; COMUN e gestionat separat. Co-Authored-By: Claude Opus 5 (1M context) <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_01A5okKjUKMM5Xk1egq2w81P
1836 lines
58 KiB
Plaintext
1836 lines
58 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_fundal.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||
*
|
||
*
|
||
DEFINE CLASS dataenvironment AS dataenvironment
|
||
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
||
|
||
*<PropValue>
|
||
DataSource = .NULL.
|
||
Height = 0
|
||
Left = 0
|
||
Name = "Dataenvironment"
|
||
Top = 0
|
||
Width = 0
|
||
*</PropValue>
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS frm_start AS _frmnotitle OF "..\comun\clase\_frm_base.vcx"
|
||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||
|
||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||
*< OBJECTDATA: ObjPath="Pgf_optiuni1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Pgf_optiuni1.Page1.meniu" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Pgf_optiuni1.Page1.txt_mesaj" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Pgf_optiuni1.Page2.Cw_optiuni1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Pgf_optiuni1.Page2.Cw_optiuni2" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Pgf_optiuni1.Page2.Cw_optiuni3" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Pgf_optiuni1.Page2.Cw_optiuni4" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Pgf_optiuni1.Page2.Cw_optiuni5" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Pgf_optiuni1.Page3.Cw_optiuni1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Pgf_optiuni1.Page3.Cw_optiuni2" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Pgf_optiuni1.Page3.Cw_optiuni3" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Pgf_optiuni1.Page4.Cw_optiuni1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Pgf_optiuni1.Page4.Cw_optiuni2" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Pgf_optiuni1.Page4.Cw_optiuni3" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Pgf_optiuni1.Page4.Cw_optiuni4" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Pgf_optiuni1.Page4.Cw_optiuni5" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Pgf_optiuni1.Page5.Cw_optiuni2" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Pgf_optiuni1.Page5.Cw_optiuni1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Pgf_optiuni1.Page5.Cw_optiuni3" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Pgf_optiuni1.Page5.Cw_optiuni4" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Pgf_optiuni1.Page5.Cw_optiuni5" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Pgf_optiuni1.Page5.Cw_optiuni6" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Img_stanga1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Cw_meniu1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Cw_meniu2" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Cw_meniu3" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Cw_meniu4" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Cw_meniu5" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Lb_numeutilizator" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="img_utilnou" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="img_logoff" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Lb_logoff" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="img_actualizari" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Actualizari" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="lblRTVAIActualizare" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="lblServerActualizare" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Config" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="img_Config" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="cb_server_info" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="tmrProgressBar" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="lblProgressbar" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="lb_utilizator" UniqueID="" Timestamp="" />
|
||
|
||
*<DefinedPropArrayMethod>
|
||
*m: afiseaza_programe
|
||
*m: dezactiveaza_optiuni
|
||
*m: do_config_actualizari
|
||
*m: do_deselecteaza
|
||
*m: do_inchide
|
||
*m: do_initializeaza_server_info
|
||
*m: do_meniu_actualizare_server
|
||
*m: do_schimba_parola
|
||
*m: do_schimba_util
|
||
*m: do_verifica_actualizari
|
||
*m: do_verifica_stare_actualizare
|
||
*m: minimizeaza
|
||
*m: redimensioneaza_pagina
|
||
*m: refreshstareactualizare
|
||
*m: wndproc
|
||
*p: nnrobiectevizibile && Numarul de obiecte vizibile din fiecare container.
|
||
*p: oobjsystray
|
||
*p: ostareactualizare
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
BorderStyle = 1
|
||
Caption = "Form"
|
||
DoCreate = .T.
|
||
Height = 394
|
||
KeyPreview = .T.
|
||
Name = "FRM_START"
|
||
nnrobiectevizibile = 6
|
||
oobjsystray =
|
||
ostareactualizare = NULL
|
||
Themes = .F.
|
||
Width = 793
|
||
*</PropValue>
|
||
|
||
ADD OBJECT 'Actualizari' AS label WITH ;
|
||
Alignment = 0, ;
|
||
Anchor = 6, ;
|
||
BackStyle = 0, ;
|
||
BorderStyle = 0, ;
|
||
Caption = "Verifica actualizari", ;
|
||
ForeColor = 255,255,255, ;
|
||
Height = 17, ;
|
||
Left = 37, ;
|
||
MousePointer = 15, ;
|
||
Name = "Actualizari", ;
|
||
Top = 341, ;
|
||
Width = 114, ;
|
||
ZOrderSet = 14
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'cb_server_info' AS _combobox WITH ;
|
||
Anchor = 6, ;
|
||
ColumnWidths = "30", ;
|
||
FontName = "Arial Narrow", ;
|
||
Height = 24, ;
|
||
Left = 9, ;
|
||
Name = "cb_server_info", ;
|
||
SelectedBackColor = 219,251,187, ;
|
||
SelectedForeColor = 2,2,2, ;
|
||
SpecialEffect = 1, ;
|
||
Top = 280, ;
|
||
Width = 139
|
||
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" />
|
||
|
||
ADD OBJECT 'Config' AS label WITH ;
|
||
Alignment = 0, ;
|
||
Anchor = 6, ;
|
||
BackStyle = 0, ;
|
||
BorderStyle = 0, ;
|
||
Caption = "Config actualizari", ;
|
||
ForeColor = 255,255,255, ;
|
||
Height = 17, ;
|
||
HelpContextID = 0, ;
|
||
Left = 37, ;
|
||
MousePointer = 15, ;
|
||
Name = "Config", ;
|
||
Top = 319, ;
|
||
Width = 114, ;
|
||
ZOrderSet = 15
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Cw_meniu1' AS cw_meniu WITH ;
|
||
lapasat = .T., ;
|
||
Left = 6, ;
|
||
lvcomun = .T., ;
|
||
Name = "Cw_meniu1", ;
|
||
TabIndex = 2, ;
|
||
Top = 10, ;
|
||
ZOrderSet = 3, ;
|
||
_shape1.Name = "_shape1", ;
|
||
Lb_meniu1.Caption = "Start", ;
|
||
Lb_meniu1.Name = "Lb_meniu1", ;
|
||
_linie1.Name = "_linie1", ;
|
||
_linie2.Name = "_linie2"
|
||
*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Cw_meniu2' AS cw_meniu WITH ;
|
||
Left = 6, ;
|
||
Name = "Cw_meniu2", ;
|
||
TabIndex = 3, ;
|
||
Top = 55, ;
|
||
ZOrderSet = 4, ;
|
||
_shape1.Name = "_shape1", ;
|
||
Lb_meniu1.Caption = "Initializari", ;
|
||
Lb_meniu1.Name = "Lb_meniu1", ;
|
||
_linie1.Name = "_linie1", ;
|
||
_linie2.Name = "_linie2"
|
||
*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Cw_meniu3' AS cw_meniu WITH ;
|
||
Left = 6, ;
|
||
Name = "Cw_meniu3", ;
|
||
TabIndex = 4, ;
|
||
Top = 100, ;
|
||
ZOrderSet = 5, ;
|
||
_shape1.Name = "_shape1", ;
|
||
Lb_meniu1.Caption = "Grupuri", ;
|
||
Lb_meniu1.Name = "Lb_meniu1", ;
|
||
_linie1.Name = "_linie1", ;
|
||
_linie2.Name = "_linie2"
|
||
*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Cw_meniu4' AS cw_meniu WITH ;
|
||
Left = 6, ;
|
||
lvcomun = .T., ;
|
||
Name = "Cw_meniu4", ;
|
||
TabIndex = 5, ;
|
||
Top = 145, ;
|
||
ZOrderSet = 6, ;
|
||
_shape1.Name = "_shape1", ;
|
||
Lb_meniu1.Caption = "Utilizatori", ;
|
||
Lb_meniu1.Name = "Lb_meniu1", ;
|
||
_linie1.Name = "_linie1", ;
|
||
_linie2.Name = "_linie2"
|
||
*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Cw_meniu5' AS cw_meniu WITH ;
|
||
Left = 6, ;
|
||
Name = "Cw_meniu5", ;
|
||
TabIndex = 6, ;
|
||
Top = 190, ;
|
||
Visible = .F., ;
|
||
ZOrderSet = 7, ;
|
||
_shape1.Name = "_shape1", ;
|
||
Lb_meniu1.Caption = "Administrare", ;
|
||
Lb_meniu1.Name = "Lb_meniu1", ;
|
||
_linie1.Name = "_linie1", ;
|
||
_linie2.Name = "_linie2"
|
||
*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'img_actualizari' AS image WITH ;
|
||
Anchor = 6, ;
|
||
BackStyle = 0, ;
|
||
Height = 24, ;
|
||
Left = 9, ;
|
||
MousePointer = 15, ;
|
||
Name = "img_actualizari", ;
|
||
Picture = ..\grafice\update-yellow.png, ;
|
||
Stretch = 1, ;
|
||
Top = 336, ;
|
||
Width = 24
|
||
*< END OBJECT: BaseClass="image" />
|
||
|
||
ADD OBJECT 'img_Config' AS image WITH ;
|
||
Anchor = 6, ;
|
||
Height = 24, ;
|
||
Left = 9, ;
|
||
MousePointer = 15, ;
|
||
Name = "img_Config", ;
|
||
Picture = ..\grafice\2downarrow.gif, ;
|
||
RotateFlip = 0, ;
|
||
Stretch = 1, ;
|
||
Top = 312, ;
|
||
Width = 24
|
||
*< END OBJECT: BaseClass="image" />
|
||
|
||
ADD OBJECT 'img_logoff' AS _image WITH ;
|
||
Anchor = 6, ;
|
||
Height = 24, ;
|
||
Left = 9, ;
|
||
MousePointer = 15, ;
|
||
Name = "img_logoff", ;
|
||
Picture = ..\grafice\logoff.png, ;
|
||
Stretch = 2, ;
|
||
Top = 359, ;
|
||
Width = 24, ;
|
||
ZOrderSet = 11
|
||
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="image" />
|
||
|
||
ADD OBJECT 'Img_stanga1' AS img_stanga WITH ;
|
||
Height = 396, ;
|
||
Name = "Img_stanga1", ;
|
||
Picture = ..\comun\grafice\f2.jpg, ;
|
||
Top = 0, ;
|
||
Width = 168, ;
|
||
ZOrderSet = 1
|
||
*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="image" />
|
||
|
||
ADD OBJECT 'img_utilnou' AS _image WITH ;
|
||
Height = 24, ;
|
||
Left = 760, ;
|
||
MousePointer = 15, ;
|
||
Name = "img_utilnou", ;
|
||
Picture = ..\grafice\iesire.png, ;
|
||
Stretch = 2, ;
|
||
Top = 359, ;
|
||
Width = 24, ;
|
||
ZOrderSet = 10
|
||
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="image" />
|
||
|
||
ADD OBJECT 'Lb_logoff' AS lb_simplu WITH ;
|
||
Anchor = 6, ;
|
||
Caption = "Ie<49>ire", ;
|
||
FontItalic = .F., ;
|
||
ForeColor = 255,255,255, ;
|
||
Left = 37, ;
|
||
MousePointer = 15, ;
|
||
Name = "Lb_logoff", ;
|
||
TabIndex = 9, ;
|
||
Top = 363, ;
|
||
ZOrderSet = 12
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />
|
||
|
||
ADD OBJECT 'Lb_numeutilizator' AS lb_simplu WITH ;
|
||
AutoSize = .F., ;
|
||
Caption = "nume_utilizator", ;
|
||
FontBold = .T., ;
|
||
FontItalic = .T., ;
|
||
FontUnderline = .T., ;
|
||
ForeColor = 0,0,128, ;
|
||
Height = 17, ;
|
||
Left = 504, ;
|
||
MousePointer = 15, ;
|
||
Name = "Lb_numeutilizator", ;
|
||
TabIndex = 8, ;
|
||
Top = 364, ;
|
||
Width = 255, ;
|
||
ZOrderSet = 9
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />
|
||
|
||
ADD OBJECT 'lb_utilizator' AS _label WITH ;
|
||
Anchor = 6, ;
|
||
Caption = "Operator :", ;
|
||
FontItalic = .T., ;
|
||
ForeColor = 0,0,128, ;
|
||
Left = 443, ;
|
||
Name = "lb_utilizator", ;
|
||
Top = 364, ;
|
||
Visible = .F.
|
||
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />
|
||
|
||
ADD OBJECT 'lblProgressbar' AS _label WITH ;
|
||
Anchor = 6, ;
|
||
Caption = "Creare firma noua...", ;
|
||
ForeColor = 0,0,128, ;
|
||
Left = 177, ;
|
||
Name = "lblProgressbar", ;
|
||
Top = 364, ;
|
||
Visible = .F.
|
||
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />
|
||
|
||
ADD OBJECT 'lblRTVAIActualizare' AS label WITH ;
|
||
Alignment = 0, ;
|
||
Anchor = 6, ;
|
||
AutoSize = .F., ;
|
||
BackColor = 232,230,225, ;
|
||
BackStyle = 1, ;
|
||
BorderStyle = 0, ;
|
||
Caption = "RTVAI actualizare", ;
|
||
FontSize = 8, ;
|
||
Height = 16, ;
|
||
Left = 9, ;
|
||
MousePointer = 15, ;
|
||
Name = "lblRTVAIActualizare", ;
|
||
Top = 263, ;
|
||
Width = 137, ;
|
||
WordWrap = .T., ;
|
||
ZOrderSet = 14
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'lblServerActualizare' AS label WITH ;
|
||
Alignment = 0, ;
|
||
Anchor = 6, ;
|
||
AutoSize = .F., ;
|
||
BackColor = 232,230,225, ;
|
||
BackStyle = 1, ;
|
||
BorderStyle = 0, ;
|
||
Caption = "Server actualizare", ;
|
||
FontSize = 8, ;
|
||
Height = 31, ;
|
||
Left = 9, ;
|
||
MousePointer = 15, ;
|
||
Name = "lblServerActualizare", ;
|
||
Top = 233, ;
|
||
Width = 137, ;
|
||
WordWrap = .T., ;
|
||
ZOrderSet = 14
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Pgf_optiuni1' AS pgf_optiuni WITH ;
|
||
ErasePage = .T., ;
|
||
Height = 397, ;
|
||
Left = 143, ;
|
||
Name = "Pgf_optiuni1", ;
|
||
PageCount = 5, ;
|
||
TabIndex = 1, ;
|
||
Top = -2, ;
|
||
Width = 650, ;
|
||
ZOrderSet = 0, ;
|
||
Page1.Name = "Page1", ;
|
||
Page2.Name = "Page2", ;
|
||
Page3.Name = "Page3", ;
|
||
Page4.BackColor = 255,255,255, ;
|
||
Page4.Caption = "Page4", ;
|
||
Page4.Name = "Page4", ;
|
||
Page5.BackColor = 255,255,255, ;
|
||
Page5.Caption = "Page5", ;
|
||
Page5.Name = "Page5"
|
||
*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="pageframe" />
|
||
|
||
ADD OBJECT 'Pgf_optiuni1.Page1.meniu' AS menulib WITH ;
|
||
Anchor = 4, ;
|
||
Left = 119, ;
|
||
Name = "meniu", ;
|
||
Top = 227
|
||
*< END OBJECT: ClassLib="..\comun\clase\utility.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Pgf_optiuni1.Page1.txt_mesaj' AS txt_mesaj WITH ;
|
||
Left = 383, ;
|
||
Name = "txt_mesaj", ;
|
||
Top = 14
|
||
*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="editbox" />
|
||
|
||
ADD OBJECT 'Pgf_optiuni1.Page2.Cw_optiuni1' AS cw_optiuni WITH ;
|
||
cprocedura = viz_programe, ;
|
||
Height = 58, ;
|
||
Left = 25, ;
|
||
Name = "Cw_optiuni1", ;
|
||
Top = 10, ;
|
||
Width = 300, ;
|
||
lb_imagine.Left = 4, ;
|
||
lb_imagine.Name = "lb_imagine", ;
|
||
lb_imagine.Picture = ..\grafice\init\programe.png, ;
|
||
lb_imagine.Top = 6, ;
|
||
lb_program.Caption = "Programe", ;
|
||
lb_program.Name = "lb_program", ;
|
||
lb_explicatie.Caption = "Initializarea programelor", ;
|
||
lb_explicatie.Name = "lb_explicatie"
|
||
*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Pgf_optiuni1.Page2.Cw_optiuni2' AS cw_optiuni WITH ;
|
||
cprocedura = viz_firme, ;
|
||
Height = 58, ;
|
||
Left = 334, ;
|
||
Name = "Cw_optiuni2", ;
|
||
Top = 10, ;
|
||
Width = 300, ;
|
||
lb_imagine.Left = 4, ;
|
||
lb_imagine.Name = "lb_imagine", ;
|
||
lb_imagine.Picture = ..\grafice\init\firme.png, ;
|
||
lb_imagine.Top = 6, ;
|
||
lb_program.Caption = "Firme", ;
|
||
lb_program.Name = "lb_program", ;
|
||
lb_explicatie.Caption = "Initializarea firmelor", ;
|
||
lb_explicatie.Name = "lb_explicatie"
|
||
*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Pgf_optiuni1.Page2.Cw_optiuni3' AS cw_optiuni WITH ;
|
||
cprocedura = viz_organigrama_programe, ;
|
||
Height = 58, ;
|
||
Left = 25, ;
|
||
Name = "Cw_optiuni3", ;
|
||
Top = 70, ;
|
||
Width = 300, ;
|
||
lb_imagine.Left = 4, ;
|
||
lb_imagine.Name = "lb_imagine", ;
|
||
lb_imagine.Picture = ..\grafice\init\informatiip.png, ;
|
||
lb_imagine.Top = 6, ;
|
||
lb_program.Caption = "Informatii programe", ;
|
||
lb_program.Name = "lb_program", ;
|
||
lb_explicatie.Caption = "Detalii despre grupuri, firme <20>i utilizatori", ;
|
||
lb_explicatie.Name = "lb_explicatie"
|
||
*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Pgf_optiuni1.Page2.Cw_optiuni4' AS cw_optiuni WITH ;
|
||
cprocedura = viz_organigrama_firme, ;
|
||
Height = 58, ;
|
||
Left = 334, ;
|
||
Name = "Cw_optiuni4", ;
|
||
Top = 70, ;
|
||
Width = 300, ;
|
||
lb_imagine.Left = 4, ;
|
||
lb_imagine.Name = "lb_imagine", ;
|
||
lb_imagine.Picture = ..\grafice\init\informatiif.png, ;
|
||
lb_imagine.Top = 6, ;
|
||
lb_program.Caption = "Informatii firme", ;
|
||
lb_program.Name = "lb_program", ;
|
||
lb_explicatie.Caption = "Detalii despre grupuri <20>i utilizatori", ;
|
||
lb_explicatie.Name = "lb_explicatie"
|
||
*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Pgf_optiuni1.Page2.Cw_optiuni5' AS cw_optiuni WITH ;
|
||
cprocedura = viz_grup_program, ;
|
||
Height = 58, ;
|
||
Left = 25, ;
|
||
Name = "Cw_optiuni5", ;
|
||
Top = 130, ;
|
||
Width = 300, ;
|
||
lb_imagine.Left = 4, ;
|
||
lb_imagine.Name = "lb_imagine", ;
|
||
lb_imagine.Picture = ..\grafice\init\programegrup.png, ;
|
||
lb_imagine.Top = 6, ;
|
||
lb_program.Caption = "Grupuri de programe", ;
|
||
lb_program.Name = "lb_program", ;
|
||
lb_explicatie.Caption = "Initializarea grupurilor de programe", ;
|
||
lb_explicatie.Name = "lb_explicatie"
|
||
*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Pgf_optiuni1.Page3.Cw_optiuni1' AS cw_optiuni WITH ;
|
||
cprocedura = viz_grupuri, ;
|
||
Height = 58, ;
|
||
Left = 25, ;
|
||
Name = "Cw_optiuni1", ;
|
||
Top = 10, ;
|
||
Width = 300, ;
|
||
lb_imagine.Left = 4, ;
|
||
lb_imagine.Name = "lb_imagine", ;
|
||
lb_imagine.Picture = ..\grafice\grup\configurareg.png, ;
|
||
lb_imagine.Top = 6, ;
|
||
lb_program.Caption = "Definire", ;
|
||
lb_program.Name = "lb_program", ;
|
||
lb_explicatie.Caption = "Definirea grupurilor", ;
|
||
lb_explicatie.Name = "lb_explicatie"
|
||
*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Pgf_optiuni1.Page3.Cw_optiuni2' AS cw_optiuni WITH ;
|
||
cprocedura = viz_grupprog, ;
|
||
Height = 58, ;
|
||
Left = 334, ;
|
||
Name = "Cw_optiuni2", ;
|
||
Top = 10, ;
|
||
Width = 300, ;
|
||
lb_imagine.Left = 4, ;
|
||
lb_imagine.Name = "lb_imagine", ;
|
||
lb_imagine.Picture = ..\grafice\grup\drepturig.png, ;
|
||
lb_imagine.Top = 6, ;
|
||
lb_program.Caption = "Drepturi pe programe", ;
|
||
lb_program.Name = "lb_program", ;
|
||
lb_explicatie.Caption = "Definirea drepturilor de acces pe programe", ;
|
||
lb_explicatie.Name = "lb_explicatie"
|
||
*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Pgf_optiuni1.Page3.Cw_optiuni3' AS cw_optiuni WITH ;
|
||
cprocedura = viz_organigrama_grupuri, ;
|
||
Height = 58, ;
|
||
Left = 25, ;
|
||
Name = "Cw_optiuni3", ;
|
||
Top = 70, ;
|
||
Width = 300, ;
|
||
lb_imagine.Left = 4, ;
|
||
lb_imagine.Name = "lb_imagine", ;
|
||
lb_imagine.Picture = ..\grafice\grup\informatiig.png, ;
|
||
lb_imagine.Top = 6, ;
|
||
lb_program.Caption = "Informatii grupuri", ;
|
||
lb_program.Name = "lb_program", ;
|
||
lb_explicatie.Caption = "Organigrama grupuri <20>i utilizatori", ;
|
||
lb_explicatie.Name = "lb_explicatie"
|
||
*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Pgf_optiuni1.Page4.Cw_optiuni1' AS cw_optiuni WITH ;
|
||
cprocedura = viz_utilizatori, ;
|
||
Height = 58, ;
|
||
Left = 25, ;
|
||
Name = "Cw_optiuni1", ;
|
||
Top = 10, ;
|
||
Width = 300, ;
|
||
lb_imagine.Left = 4, ;
|
||
lb_imagine.Name = "lb_imagine", ;
|
||
lb_imagine.Picture = ..\grafice\util\detaliiu.png, ;
|
||
lb_imagine.Top = 6, ;
|
||
lb_program.Caption = "Definire", ;
|
||
lb_program.Name = "lb_program", ;
|
||
lb_explicatie.Caption = "Definirea utilizatorilor", ;
|
||
lb_explicatie.Name = "lb_explicatie"
|
||
*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Pgf_optiuni1.Page4.Cw_optiuni2' AS cw_optiuni WITH ;
|
||
cprocedura = viz_utilgrupfirma, ;
|
||
Height = 58, ;
|
||
Left = 334, ;
|
||
Name = "Cw_optiuni2", ;
|
||
Top = 10, ;
|
||
Width = 300, ;
|
||
lb_imagine.Left = 4, ;
|
||
lb_imagine.Name = "lb_imagine", ;
|
||
lb_imagine.Picture = ..\grafice\util\configurareu.png, ;
|
||
lb_imagine.Top = 6, ;
|
||
lb_program.Caption = "Definire roluri", ;
|
||
lb_program.Name = "lb_program", ;
|
||
lb_explicatie.Caption = "Introducerea utilizatorilor <20>n grupuri", ;
|
||
lb_explicatie.Name = "lb_explicatie"
|
||
*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Pgf_optiuni1.Page4.Cw_optiuni3' AS cw_optiuni WITH ;
|
||
cprocedura = viz_organigrama_utilizatori, ;
|
||
Height = 58, ;
|
||
Left = 25, ;
|
||
Name = "Cw_optiuni3", ;
|
||
Top = 70, ;
|
||
Width = 300, ;
|
||
lb_imagine.Left = 4, ;
|
||
lb_imagine.Name = "lb_imagine", ;
|
||
lb_imagine.Picture = ..\grafice\util\informatiiu.png, ;
|
||
lb_imagine.Top = 6, ;
|
||
lb_program.Caption = "Informatii utilizatori", ;
|
||
lb_program.Name = "lb_program", ;
|
||
lb_explicatie.Caption = "Grupuri pe utilizatori,firme pe utilizatori", ;
|
||
lb_explicatie.Name = "lb_explicatie"
|
||
*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Pgf_optiuni1.Page4.Cw_optiuni4' AS cw_optiuni WITH ;
|
||
cprocedura = Thisform.do_schimba_parola, ;
|
||
Height = 58, ;
|
||
Left = 334, ;
|
||
lvcomun = .T., ;
|
||
Name = "Cw_optiuni4", ;
|
||
Top = 70, ;
|
||
Width = 300, ;
|
||
lb_imagine.Left = 4, ;
|
||
lb_imagine.Name = "lb_imagine", ;
|
||
lb_imagine.Picture = ..\grafice\util\parola.png, ;
|
||
lb_imagine.Top = 6, ;
|
||
lb_program.Caption = "Modificare parola", ;
|
||
lb_program.Name = "lb_program", ;
|
||
lb_explicatie.Caption = "Modificarea parolei utilizatorului curent", ;
|
||
lb_explicatie.Name = "lb_explicatie"
|
||
*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Pgf_optiuni1.Page4.Cw_optiuni5' AS cw_optiuni WITH ;
|
||
cprocedura = mod_validari, ;
|
||
Height = 58, ;
|
||
Left = 25, ;
|
||
Name = "Cw_optiuni5", ;
|
||
Top = 130, ;
|
||
Visible = .T., ;
|
||
Width = 300, ;
|
||
lb_imagine.Left = 4, ;
|
||
lb_imagine.Name = "lb_imagine", ;
|
||
lb_imagine.Picture = ..\grafice\util\personalizare.png, ;
|
||
lb_imagine.Top = 6, ;
|
||
lb_program.Caption = "Modificare drepturi validari", ;
|
||
lb_program.Name = "lb_program", ;
|
||
lb_explicatie.Caption = "Personalizarea programului", ;
|
||
lb_explicatie.Name = "lb_explicatie"
|
||
*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Pgf_optiuni1.Page5.Cw_optiuni1' AS cw_optiuni WITH ;
|
||
Height = 58, ;
|
||
Left = 25, ;
|
||
Name = "Cw_optiuni1", ;
|
||
Top = 10, ;
|
||
Width = 300, ;
|
||
lb_imagine.Left = 4, ;
|
||
lb_imagine.Name = "lb_imagine", ;
|
||
lb_imagine.Picture = ..\grafice\admin\import alfa contafin.png, ;
|
||
lb_imagine.Top = 6, ;
|
||
lb_program.Caption = "Import Alfa_Contafin_Oracle", ;
|
||
lb_program.Name = "lb_program", ;
|
||
lb_explicatie.Caption = "Import schema Alfa Contafin Oracle", ;
|
||
lb_explicatie.Name = "lb_explicatie"
|
||
*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Pgf_optiuni1.Page5.Cw_optiuni2' AS cw_optiuni WITH ;
|
||
Height = 58, ;
|
||
Left = 334, ;
|
||
Name = "Cw_optiuni2", ;
|
||
Top = 10, ;
|
||
Width = 300, ;
|
||
lb_imagine.Left = 4, ;
|
||
lb_imagine.Name = "lb_imagine", ;
|
||
lb_imagine.Picture = ..\grafice\admin\import alfa.png, ;
|
||
lb_imagine.Top = 6, ;
|
||
lb_program.Caption = "Import Alfa", ;
|
||
lb_program.Name = "lb_program", ;
|
||
lb_explicatie.Caption = "Import schema Alfa", ;
|
||
lb_explicatie.Name = "lb_explicatie"
|
||
*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Pgf_optiuni1.Page5.Cw_optiuni3' AS cw_optiuni WITH ;
|
||
Height = 58, ;
|
||
Left = 25, ;
|
||
Name = "Cw_optiuni3", ;
|
||
Top = 70, ;
|
||
Width = 300, ;
|
||
lb_imagine.Left = 4, ;
|
||
lb_imagine.Name = "lb_imagine", ;
|
||
lb_imagine.Picture = ..\grafice\admin\contafin nou.png, ;
|
||
lb_imagine.Top = 6, ;
|
||
lb_program.Caption = "Contafin Oracle nou", ;
|
||
lb_program.Name = "lb_program", ;
|
||
lb_explicatie.Caption = "Initializare schema Contafin Oracle", ;
|
||
lb_explicatie.Name = "lb_explicatie"
|
||
*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Pgf_optiuni1.Page5.Cw_optiuni4' AS cw_optiuni WITH ;
|
||
Height = 58, ;
|
||
Left = 334, ;
|
||
Name = "Cw_optiuni4", ;
|
||
Top = 70, ;
|
||
Width = 300, ;
|
||
lb_imagine.Left = 4, ;
|
||
lb_imagine.Name = "lb_imagine", ;
|
||
lb_imagine.Picture = ..\grafice\admin\firma noua.png, ;
|
||
lb_imagine.Top = 6, ;
|
||
lb_program.Caption = "Firma noua", ;
|
||
lb_program.Name = "lb_program", ;
|
||
lb_explicatie.Caption = "Initializare firma noua", ;
|
||
lb_explicatie.Name = "lb_explicatie"
|
||
*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Pgf_optiuni1.Page5.Cw_optiuni5' AS cw_optiuni WITH ;
|
||
Height = 58, ;
|
||
Left = 25, ;
|
||
Name = "Cw_optiuni5", ;
|
||
Top = 130, ;
|
||
Width = 300, ;
|
||
lb_imagine.Left = 4, ;
|
||
lb_imagine.Name = "lb_imagine", ;
|
||
lb_imagine.Picture = ..\grafice\admin\verificare.png, ;
|
||
lb_imagine.Top = 6, ;
|
||
lb_program.Caption = "Check Differences", ;
|
||
lb_program.Name = "lb_program", ;
|
||
lb_explicatie.Caption = "Comparatie intre doua scheme", ;
|
||
lb_explicatie.Name = "lb_explicatie"
|
||
*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Pgf_optiuni1.Page5.Cw_optiuni6' AS cw_optiuni WITH ;
|
||
Height = 58, ;
|
||
Left = 334, ;
|
||
Name = "Cw_optiuni6", ;
|
||
Top = 130, ;
|
||
Width = 300, ;
|
||
lb_imagine.Left = 4, ;
|
||
lb_imagine.Name = "lb_imagine", ;
|
||
lb_imagine.Picture = ..\grafice\admin\main.png, ;
|
||
lb_imagine.Top = 6, ;
|
||
lb_program.Caption = "Main", ;
|
||
lb_program.Name = "lb_program", ;
|
||
lb_explicatie.Caption = "", ;
|
||
lb_explicatie.Name = "lb_explicatie"
|
||
*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Shape1' AS shape WITH ;
|
||
Anchor = 6, ;
|
||
BackStyle = 0, ;
|
||
BorderColor = 255,255,255, ;
|
||
Curvature = 10, ;
|
||
Height = 160, ;
|
||
Left = 6, ;
|
||
Name = "Shape1", ;
|
||
Top = 228, ;
|
||
Width = 144, ;
|
||
ZOrderSet = 2
|
||
*< END OBJECT: BaseClass="shape" />
|
||
|
||
ADD OBJECT 'tmrProgressBar' AS _timer WITH ;
|
||
Enabled = .F., ;
|
||
Interval = 2000, ;
|
||
Left = 175, ;
|
||
Name = "tmrProgressBar", ;
|
||
Top = 312
|
||
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="timer" />
|
||
|
||
PROCEDURE afiseaza_programe
|
||
Lparameters tnId_grup_prog
|
||
lcNumeContainer="scrollcont"+Alltrim(Str(tnId_grup_prog))
|
||
|
||
With This.pgf_optiuni1.page1
|
||
For i=1 To .Objects.Count
|
||
With .Objects(i)
|
||
If Upper(Alltrim(.Class))=[_SCROLLCONTAINER]
|
||
If Upper(Alltrim(.Name))=Upper(Alltrim(lcNumeContainer))
|
||
.do_redimensioneaza()
|
||
.Visible=.T.
|
||
.ZOrder(0)
|
||
Else
|
||
.Visible=.F.
|
||
.ZOrder(1)
|
||
Endif
|
||
Endif
|
||
Endwith
|
||
Endfor
|
||
Endwith
|
||
*!* With This.pgf_optiuni1.page1._scrollcontainer1
|
||
*!* For i=1 To .Objects.Count
|
||
*!* If Upper(Alltrim(.Objects(i).Class))=[CW_PROGRAME]
|
||
*!* If .Objects(i).nid_grup_prog=tnId_grup_prog
|
||
*!* .Objects(i).Visible=.T.
|
||
*!* Else
|
||
*!* .Objects(i).Visible=.F.
|
||
*!* Endif
|
||
*!* Endif
|
||
*!* Endfor
|
||
*!* Endwith
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE dezactiveaza_optiuni
|
||
Local i,lntop
|
||
i=0
|
||
lntop=10
|
||
For Each oObiect In Thisform.Objects
|
||
If Type('oObiect.lvcomun')!='U'
|
||
oObiect.Visible=oObiect.lvcomun
|
||
If oObiect.Visible
|
||
i=i+1
|
||
oObiect.Top=lntop
|
||
lntop=lntop+45
|
||
Endif
|
||
Endif
|
||
Endfor
|
||
With This.pgf_optiuni1
|
||
For l=2 To .PageCount
|
||
i=0
|
||
lntop=10
|
||
lnLeft=25
|
||
For Each oObiect In .Pages(l).Objects
|
||
If Type('oObiect.lvcomun')!='U'
|
||
oObiect.Visible=oObiect.lvcomun
|
||
If oObiect.Visible
|
||
i=i+1
|
||
oObiect.Top=lntop
|
||
oObiect.Left=lnLeft
|
||
If i%2==1
|
||
lnLeft=334
|
||
Else
|
||
lntop=lntop+60
|
||
lnLeft=25
|
||
Endif
|
||
Endif
|
||
Endif
|
||
Endfor
|
||
Endfor
|
||
Endwith
|
||
Thisform.Refresh()
|
||
ENDPROC
|
||
|
||
PROCEDURE do_config_actualizari
|
||
DO FORM frm_iniconfig
|
||
ENDPROC
|
||
|
||
PROCEDURE do_deselecteaza
|
||
For i=1 To Thisform.Objects.Count
|
||
Try
|
||
If Thisform.Objects(i).lapasat
|
||
Thisform.Objects(i).do_apasa
|
||
Exit
|
||
Endif
|
||
Catch
|
||
Endtry
|
||
Endfor
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE do_inchide
|
||
*!* modificare v 2.1.7
|
||
LPARAMETERS tlSilent
|
||
goApp.onshutdown(tlSilent)
|
||
*!* If aMessagebox("Doriti sa parasiti aplicatia ROA START?",0+4+32,"Confirmare")==6
|
||
*!* *!* modificare v 2.0.23
|
||
*!* Unbindevents(_Screen,[Resize],Thisform,[minimizeaza])
|
||
*!* Unbindevents(_vfp.HWnd,0xA123)
|
||
*!* *!* modificare v 2.0.23 ^
|
||
*!* Thisform.Release
|
||
*!* Clear Events
|
||
*!* Quit
|
||
*!* Endif
|
||
*!* modificare v 2.1.7 ^
|
||
ENDPROC
|
||
|
||
PROCEDURE do_initializeaza_server_info
|
||
citeste_server_info()
|
||
*!* modificare v 2.0.29
|
||
If Used('crsserverinfo')
|
||
*!* modificare v 2.0.29 ^
|
||
With Thisform.cb_server_info
|
||
.RowSource = [crsserverinfo.value]
|
||
.RowSourceType = 6
|
||
.Value = Alltrim(crsserverinfo.Value)
|
||
.Refresh()
|
||
Endwith
|
||
If Reccount('crsserverinfo') = 1
|
||
Thisform.cb_server_info.Enabled = .F.
|
||
*!* modificare v 2.0.29
|
||
*!* ENDIF
|
||
Else
|
||
If Reccount('crsserverinfo') = 0
|
||
Thisform.cb_server_info.Enabled = .F.
|
||
Thisform.img_actualizari.Enabled = .F.
|
||
Thisform.img_actualizari.Picture = [update-disabled.png]
|
||
Thisform.actualizari.Enabled = .F.
|
||
Endif
|
||
Endif
|
||
Else
|
||
Thisform.cb_server_info.Enabled = .F.
|
||
Thisform.img_actualizari.Enabled = .F.
|
||
Thisform.img_actualizari.Picture = [update-disabled.png]
|
||
Thisform.actualizari.Enabled = .F.
|
||
Endif
|
||
*!* modificare v 2.0.29 ^
|
||
|
||
*!* Thisform.shape1.Anchor = 0
|
||
*!* Thisform.shape1.Height = 88
|
||
*!* Thisform.shape1.Top = 300
|
||
*!* Thisform.shape1.Anchor = 6
|
||
*!* Thisform.shape1.Refresh()
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE do_meniu_actualizare_server
|
||
Lparameters tcTip
|
||
* tcTip: ROA/RTVAI
|
||
|
||
Local lcSql, llSucces, lnOptiune, lnStare, loStare, lcTip
|
||
Private pcSchemaList, pdUpdScripturiDataMin, pnUpdateApp, pnUpdateDatabase, pnUpdateScripturi, pnIdUtil
|
||
|
||
lcTip = Upper(Transform(m.tcTip))
|
||
lcTip = Iif(!Empty(m.lcTip), m.lcTip, 'ROA')
|
||
|
||
Do Case
|
||
Case m.lcTip = 'ROA'
|
||
loStare = Thisform.oStareActualizare
|
||
If Isnull(loStare)
|
||
Return
|
||
Endif
|
||
lnStare = loStare.stare
|
||
If !Inlist(m.lnStare, 0, 1, 2, 3, 4)
|
||
Return
|
||
Endif
|
||
If lnStare = 4 && actualizare incheiata
|
||
lnOptiune = xmenu("Start actualizare ROA;\Marcheaza actualizarea ROA terminata")
|
||
Else
|
||
lnOptiune = xmenu("\Start actualizare ROA;Marcheaza actualizarea ROA terminata")
|
||
Endif
|
||
|
||
If Empty(m.lnOptiune)
|
||
Return
|
||
Endif
|
||
Do Case
|
||
Case m.lnOptiune = 1
|
||
pnUpdateApp = 1
|
||
pnUpdateDatabase = 1
|
||
pnUpdateScripturi = 1
|
||
pdUpdScripturiDataMin = Cast(Null As T)
|
||
pcSchemaList = ''
|
||
pnIdUtil = gnIdUtil
|
||
|
||
lcSql = [BEGIN pack_update.updateroajob(?pnupdateapp, ?pnupdatescripturi, ?pnupdatedatabase, ?pdupdscripturidatamin, ?pcschemalist, ?pnidutil); END;]
|
||
llSucces = goExecutor.oExecuta(m.lcSql)
|
||
Case m.lnOptiune = 2
|
||
llSucces = goExecutor.oExecuta([begin pack_update.incheiereactualizare; end;])
|
||
ENDCASE
|
||
|
||
Case m.lcTip = 'RTVAI'
|
||
lnOptiune = xmenu("Start actualizare RTVAI")
|
||
If m.lnOptiune = 1
|
||
lcSql = [BEGIN pack_roartvai.updatertvaijob; END;]
|
||
llSucces = goExecutor.oExecuta(m.lcSql)
|
||
Endif && m.lnOptiune = 1
|
||
Endcase
|
||
|
||
|
||
Thisform.refreshstareactualizare(m.lcTip)
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE do_schimba_parola
|
||
*!* modificare v 2.0.29
|
||
gnButon=1
|
||
ofrmparola=Createobject("frm_parola_nou")
|
||
ofrmparola.Show(1)
|
||
Release ofrmparola
|
||
If gnButon=1
|
||
aMessagebox("Parola a fost schimbat<61>!",0+64,"Modificare parola")
|
||
*!* modificare v 2.1.7 : le-am mutat in goApp.Restart
|
||
*!* Unbindevents(_Screen,[Resize],Thisform,[minimizeaza])
|
||
*!* Unbindevents(_vfp.HWnd,0xA123)
|
||
*!* modificare v 2.1.7 ^
|
||
goApp.Restart()
|
||
Endif
|
||
*!* modificare v 2.0.29 ^
|
||
ENDPROC
|
||
|
||
PROCEDURE do_schimba_util
|
||
If aMessagebox("Dori<72>i s<> v<> loga<67>i cu un alt utilizator?",0+4+32,"Confirmare")==6
|
||
*!* modificare v 2.1.7 : le-am mutat in goApp.restart()
|
||
*!* *!* modificare v 2.0.23
|
||
*!* Unbindevents(_Screen,[Resize],Thisform,[minimizeaza])
|
||
*!* Unbindevents(_vfp.HWnd,0xA123)
|
||
*!* *!* modificare v 2.0.23 ^
|
||
*!* modificare v 2.1.7 ^
|
||
*!* modificare v 2.0.29
|
||
*!* Thisform.Release
|
||
*!* goApp.SetCaption("ROA Romfast Applications")
|
||
*!* Do Form frm_fundal
|
||
goApp.Restart()
|
||
*!* modificare v 2.0.29 ^
|
||
Endif
|
||
ENDPROC
|
||
|
||
PROCEDURE do_verifica_actualizari
|
||
Do viz_prg_instalat In update_start.prg
|
||
Select nume, explicatie,1 As ales,Alltrim(nume)+".png" As imagine, nume As versiune ;
|
||
FROM v_programe_instalate ;
|
||
INTO Cursor cProgrameUpdate Readwrite
|
||
Insert Into cProgrameUpdate(nume,explicatie,ales,imagine) Values ("manual","Manualul Aplicatiei",1,"_Active_help.ico")
|
||
*!* INSERT INTO cprogrameupdate(nume,explicatie,ales,imagine) VALUES ("comun","Fisiere comune",1,"na.png")
|
||
If UpdatePrograme()
|
||
Do Form frm_update Name actualizari
|
||
Endif
|
||
Use In cProgrameUpdate
|
||
ENDPROC
|
||
|
||
PROCEDURE do_verifica_stare_actualizare
|
||
*!* 27.04.2015
|
||
*!* marius.mutu
|
||
*!* verificare stare actualizare rtvai, stare job actualizare ROA, stare job actualizare RTVAI
|
||
|
||
Lparameters tcTIP
|
||
* tcTIP: ROA/RTVAI
|
||
|
||
Local loStare
|
||
Local lcSql, llSucces
|
||
loStare = Createobject("empty")
|
||
AddProperty(loStare, 'stare', '')
|
||
AddProperty(loStare, 'descriere', '')
|
||
AddProperty(loStare, 'dataora_start', {//::})
|
||
AddProperty(loStare, 'dataora_end', {//::})
|
||
AddProperty(loStare, 'utilizator', '')
|
||
AddProperty(loStare, 'id_util', 0)
|
||
|
||
AddProperty(loStare, 'ultimul_import_cu_succes', {//::})
|
||
AddProperty(loStare, 'ultima_zi_verificare', {//::})
|
||
AddProperty(loStare, 'ultima_zi_succes', 0)
|
||
AddProperty(loStare, 'log_date', {//::})
|
||
AddProperty(loStare, 'req_start_date', {//::})
|
||
AddProperty(loStare, 'actual_start_date', {//::})
|
||
AddProperty(loStare, 'status', '')
|
||
AddProperty(loStare, 'additional_info', '')
|
||
|
||
|
||
AddProperty(loStare, 'rtvai_ultimul_import_cu_succes', {//::})
|
||
AddProperty(loStare, 'rtvai_ultima_zi_verificare', {//::})
|
||
AddProperty(loStare, 'rtvai_ultima_zi_succes', 0)
|
||
AddProperty(loStare, 'rtvai_log_date', {//::})
|
||
AddProperty(loStare, 'rtvai_req_start_date', {//::})
|
||
AddProperty(loStare, 'rtvai_actual_start_date', {//::})
|
||
AddProperty(loStare, 'rtvai_status', '')
|
||
AddProperty(loStare, 'rtvai_additional_info', '')
|
||
|
||
If 'ROA'$Upper(Transform(tcTIP)) Or Empty(tcTIP)
|
||
* Verifica starea ultimei actualizari a bazei de date si a programelor de pe server
|
||
lcSql = [select * from vupd_stare_actualizare]
|
||
lnSucces = goExecutor.oExecute(m.lcSql, 'cStareActualizare')
|
||
|
||
If m.lnSucces > 0
|
||
loStare.stare = cStareActualizare.stare
|
||
loStare.descriere = cStareActualizare.descriere
|
||
loStare.dataora_start = cStareActualizare.dataora_start
|
||
loStare.dataora_end = cStareActualizare.dataora_end
|
||
loStare.utilizator = cStareActualizare.utilizator
|
||
loStare.id_util = cStareActualizare.id_util
|
||
|
||
*!* select log_date, req_start_date, actual_start_date, status, additional_info from vupd_stare_job
|
||
lcSql = [select log_date, req_start_date, actual_start_date, status, additional_info from vupd_stare_job;]
|
||
lnSucces = goExecutor.oExecute(m.lcSql, 'cUPDStareJob')
|
||
If m.lnSucces > 0
|
||
loStare.log_date = cUPDStareJob.log_date
|
||
loStare.req_start_date = cUPDStareJob.req_start_date
|
||
loStare.actual_start_date = cUPDStareJob.actual_start_date
|
||
loStare.status = cUPDStareJob.Status
|
||
loStare.additional_info = cUPDStareJob.additional_info
|
||
ENDIF
|
||
USE IN (SELECT('cUPDStareJob'))
|
||
Else
|
||
* Nu este configurata actualizarea automata
|
||
Endif
|
||
Use In (Select('StareActualizare'))
|
||
Endif && ROA
|
||
|
||
If 'RTVAI'$Upper(Transform(tcTIP)) Or Empty(tcTIP)
|
||
* Verifica starea ultimei actualizari RTVAI
|
||
*!* select ultimul_import_cu_succes, ultima_zi_verificare, ultima_zi_succes from vrtvai_stare_actualizare
|
||
lcSql = [select ultimul_import_cu_succes, ultima_zi_verificare, ultima_zi_succes from vrtvai_stare_actualizare;]
|
||
llSucces = goExecutor.oExecuta(m.lcSql, 'cRTVAIStareActualizare')
|
||
If llSucces
|
||
loStare.rtvai_ultimul_import_cu_succes = cRTVAIStareActualizare.ultimul_import_cu_succes
|
||
loStare.rtvai_ultima_zi_verificare = cRTVAIStareActualizare.ultima_zi_verificare
|
||
loStare.rtvai_ultima_zi_succes = cRTVAIStareActualizare.ultima_zi_succes
|
||
*!* select log_date, req_start_date, actual_start_date, status, additional_info from vrtvai_stare_job
|
||
lcSql = [select log_date, req_start_date, actual_start_date, status, additional_info from vrtvai_stare_job;]
|
||
lnSucces = goExecutor.oExecute(m.lcSql, 'cRTVAIStareJob')
|
||
If m.lnSucces > 0
|
||
loStare.rtvai_log_date = cRTVAIStareJob.log_date
|
||
loStare.rtvai_req_start_date = cRTVAIStareJob.req_start_date
|
||
loStare.rtvai_actual_start_date = cRTVAIStareJob.actual_start_date
|
||
loStare.rtvai_status = cRTVAIStareJob.Status
|
||
loStare.rtvai_additional_info = cRTVAIStareJob.additional_info
|
||
ENDIF
|
||
USE IN (SELECT('cRTVAIStareJob'))
|
||
ENDIF
|
||
USE IN (SELECT('cRTVAIStareActualizare'))
|
||
Endif && RTVAI
|
||
|
||
|
||
Return loStare
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Init
|
||
*!* 21.06.2012
|
||
*!* marius.mutu
|
||
*!* glAdministrator - dezactivare definire programe, grupuri programe
|
||
|
||
Local lofrmlogin,lnMaxFereastra, lnTopPrograme, lnTopGrup, lnBottomAltele
|
||
gnButon=1
|
||
lofrmlogin=Createobject('frm_login')
|
||
lofrmlogin.Show(1)
|
||
Release lofrmlogin
|
||
If gnButon=2
|
||
*!* modificare v 2.1.7
|
||
*!* Thisform.Release
|
||
*!* Do iesire
|
||
Thisform.do_inchide(.T.)
|
||
*!* modificare v 2.1.7 ^
|
||
*!* modificare v 2.0.29
|
||
Return
|
||
*!* modificare v 2.0.29 ^
|
||
Endif
|
||
|
||
*!* modificare v 2.0.23
|
||
Bindevent(_Screen,[Resize],Thisform,[minimizeaza],1)
|
||
Bindevent(_vfp.HWnd,0xA123,This,[wndproc],1)
|
||
*!* modificare v 2.0.23 ^
|
||
|
||
goApp.SetCaption("ROA Romfast Applications - Server : "+Alltrim(gcHost))
|
||
*!* *!* modificare v 2.0.31
|
||
*!* actualizeaza_etichete(This)
|
||
*!* *!* modificare v 2.0.31 ^
|
||
_Screen.TitleBar= 1
|
||
_Screen.Visible=.T.
|
||
*!* modificare v 2.0.29
|
||
If Type('_Screen.nHeight') <> 'N'
|
||
AddProperty(_Screen,'nHeight',0)
|
||
AddProperty(_Screen,'nWidth',0)
|
||
Endif
|
||
*!* modificare v 2.0.29 ^
|
||
_Screen.Height=Thisform.Height
|
||
_Screen.Width=Thisform.Width
|
||
_Screen.AutoCenter=.T.
|
||
_Screen.Refresh
|
||
Thisform.Left=0
|
||
Thisform.Top=0
|
||
lnMaxFereastra=0
|
||
lnMaxContainer=0
|
||
lnTopPrograme=0
|
||
lnTopGrup=0
|
||
lnBottomGrup=lnTopGrup
|
||
*!* modificare v 2.0.23
|
||
lnBottomAltele = Thisform.pgf_optiuni1.page1.txt_mesaj.Top + Thisform.pgf_optiuni1.page1.txt_mesaj.Height
|
||
*!* modificare v 2.0.23 ^
|
||
|
||
lnDif=Thisform.lb_numeutilizator.Left-Thisform.lb_utilizator.Left
|
||
Thisform.lb_numeutilizator.Caption=Upper(Alltrim(gcUserNameApp))
|
||
Thisform.lb_numeutilizator.AutoSize=.T.
|
||
Thisform.lb_numeutilizator.Visible=Thisform.lb_numeutilizator.Visible
|
||
Thisform.lb_numeutilizator.Left=Thisform.img_utilnou.Left-Thisform.lb_numeutilizator.Width-5
|
||
Thisform.lb_utilizator.Left=Thisform.lb_numeutilizator.Left-lnDif
|
||
*!* modificare 2.0.6
|
||
Thisform.do_initializeaza_server_info()
|
||
*!* modificare 2.0.6 ^
|
||
With Thisform.pgf_optiuni1.page1
|
||
Do viz_prg_instalat In update_start.prg
|
||
If Used('v_programe_instalate') And Reccount('v_programe_instalate') > 0
|
||
*!* grupuri
|
||
If Used('crsgrupuriprog')
|
||
Use In crsgrupuriprog
|
||
Endif
|
||
*!* modificare v 2.0.23
|
||
*!* Select Count(*) As nr_prog,id_grup_prog,grup,ordine_grup From v_programe_instalate ;
|
||
*!* GROUP By id_grup_prog,grup,ordine_grup Order By ordine_grup Desc ;
|
||
*!* Into Cursor crsgrupuriprog Readwrite
|
||
*!* Select crsgrupuriprog
|
||
*!* Calculate Max(nr_prog) To lnMaxNrObiecte
|
||
*!* Append Blank
|
||
*!* Replace id_grup_prog With 0,grup With 'Favorite',ordine_grup With 0
|
||
Select Count(*) As nr_prog,0 As id_grup_prog,'Favorite' As grup,0 As ordine_grup From v_programe_instalate Where favorit = 1 ;
|
||
UNION All ;
|
||
Select Count(*) As nr_prog,id_grup_prog,grup,ordine_grup From v_programe_instalate ;
|
||
GROUP By id_grup_prog,grup,ordine_grup Order By 4 ;
|
||
Into Cursor crsgrupuriprog Readwrite
|
||
Select crsgrupuriprog
|
||
Calculate Max(nr_prog) To lnMaxNrObiecte
|
||
*!* modificare v 2.0.23 ^
|
||
lnIdPrimulGrup=0
|
||
|
||
lnLeftGrup=365
|
||
*!* modificare v 2.0.23
|
||
*!* lnTopGrup=Thisform.lb_utilizator.Top - 20
|
||
lnTopGrup = lnBottomAltele
|
||
*!* modificare v 2.0.23 ^
|
||
lnBottomGrup=lnTopGrup
|
||
|
||
lnLeftContainer = 25
|
||
lnTopContainer = 15
|
||
lnWidthContainer = lnLeftGrup - lnLeftContainer - 5
|
||
lnVerticalOffset = 4
|
||
|
||
Scan
|
||
lnIdGrupProg=crsgrupuriprog.id_grup_prog
|
||
lcmdNume="cw_grup"+Alltrim(Str(lnIdGrupProg))
|
||
lcNumeContainer="scrollcont"+Alltrim(Str(lnIdGrupProg))
|
||
|
||
|
||
*!* adaugare container pentru grupul de programe
|
||
*!* initializare container:
|
||
*!* tnNrObiecteVizibile, tnTop, tnLeft, tnWidth, tnDistantaVObiecte, tnDistantaOObiecte
|
||
If lnIdGrupProg>0
|
||
*!* modificare v 2.0.23 : Min(Thisform.nNrObiecteVizibile,lnMaxNrObiecte) in loc de Thisform.nNrObiecteVizibile
|
||
.AddObject(lcNumeContainer,"_scrollcontainer",Min(Thisform.nNrObiecteVizibile,lnMaxNrObiecte),lnTopContainer,;
|
||
lnLeftContainer,lnWidthContainer,lnVerticalOffset)
|
||
.AddObject(lcmdNume,"cw_grupprog")
|
||
Else
|
||
*!* modificare v 2.0.23 : Min(Thisform.nNrObiecteVizibile,lnMaxNrObiecte) in loc de Min(Thisform.nNrObiecteVizibile,lnMaxNrObiecte+1)
|
||
.AddObject(lcNumeContainer,"_scrollcontainer",Min(Thisform.nNrObiecteVizibile,lnMaxNrObiecte),;
|
||
lnTopContainer,lnLeftContainer,lnWidthContainer,lnVerticalOffset)
|
||
.AddObject(lcmdNume,"cw_grupfav")
|
||
Endif
|
||
*!* .&lcNumeContainer..Left=lnLeftContainer
|
||
*!* .&lcNumeContainer..Top=lnTopContainer
|
||
*!* .&lcNumeContainer..Width=lnLeftGrup-lnLeftContainer-5
|
||
*!* .&lcNumeContainer..do_redimensioneaza()
|
||
|
||
*!* adaugare grup de programe
|
||
*!* modificare v 2.0.23
|
||
*!* lnTopGrup=lnTopGrup-.&lcmdNume..Height
|
||
*!* .&lcmdNume..lb_grup.Caption=caps_first(Alltrim(grup))
|
||
*!* .&lcmdNume..Top=lnTopGrup
|
||
.&lcmdNume..lb_grup.Caption=caps_first(Alltrim(grup))
|
||
.&lcmdNume..Top=lnBottomGrup
|
||
lnBottomGrup = lnBottomGrup + .&lcmdNume..Height
|
||
*!* modificare v 2.0.23 ^
|
||
.&lcmdNume..Visible=.T.
|
||
.&lcmdNume..Left=lnLeftGrup
|
||
.&lcmdNume..Anchor = 1
|
||
.&lcmdNume..nid_grup_prog=lnIdGrupProg
|
||
.&lcmdNume..do_redimensioneaza()
|
||
*!* modificare v 2.0.23
|
||
*!* .&lcmdNume..Anchor=0
|
||
*!* modificare v 2.0.23 ^
|
||
Endscan
|
||
Use In crsgrupuriprog
|
||
|
||
*!* programe
|
||
Select v_programe_instalate
|
||
i=0
|
||
Scan
|
||
i=i+1
|
||
lnIdProgram=v_programe_instalate.id_program
|
||
lnIdProg=v_programe_instalate.id_prog
|
||
lcIdProgram=Alltrim(Str(lnIdProgram))
|
||
lcIdProg=Alltrim(Str(lnIdProg))
|
||
|
||
If Type('v_programe_instalate.parametru_prog') <> 'U'
|
||
lnParametru_prog = v_programe_instalate.parametru_prog && pt. programul de Contracte - clienti si furnizori
|
||
lcParametru_prog = Alltrim(Str(Nvl(lnParametru_prog,0)))
|
||
Else
|
||
lcParametru_prog = '0'
|
||
Endif
|
||
|
||
lcDirector = Alltrim(Director)
|
||
lcNumeProgram=caps_first(Alltrim(explicatie))
|
||
lnFavorit=v_programe_instalate.favorit
|
||
lcImagineFav=Upper(Alltrim(nume))+"_fav.png"
|
||
lcImagine=Upper(Alltrim(nume))+".png"
|
||
*!* lcImagineDefault=Iif(lnFavorit=1,lcImagineFav,lcImagine)
|
||
lcImagineDefault=Iif(lnFavorit=1,Iif(File(lcImagineFav),lcImagineFav,[na_fav.png]),Iif(File(lcImagine),lcImagine,[na.png]))
|
||
lnIdGrupProg=v_programe_instalate.id_grup_prog
|
||
lnIdGrupProgFav=0
|
||
If Like([*.htm],Lower(Alltrim(nume))) Or Like([*.html],Lower(Alltrim(nume)))
|
||
lcComandaProgram = gcDirMare + Iif(Empty(lcDirector),Alltrim(nume),Alltrim(lcDirector))+[\]+;
|
||
Alltrim(nume)
|
||
Else
|
||
lcCaleProgram = gcDirMare+Iif(Empty(lcDirector),Juststem(nume),Alltrim(lcDirector))+[\]+;
|
||
Juststem(Alltrim(nume))+[.exe]
|
||
lcParametru = gcHost+";"+gcuserName+";"+gcPassword+";"+Alltrim(Str(gcutil))+";"+lcIdProgram+";"+lcParametru_prog
|
||
lcComandaProgram=[run /n ] + lcCaleProgram +[ ]+lcParametru
|
||
Endif
|
||
|
||
lcmdNume="cw_"+lcIdProg
|
||
lcNumeContainer="scrollcont"+Alltrim(Str(lnIdGrupProg))
|
||
lcNumeContainerFav="scrollcont"+Alltrim(Str(lnIdGrupProgFav))
|
||
|
||
With .&lcNumeContainer.
|
||
.do_initializeazaobiect(lcmdNume,"cw_programe")
|
||
&& tcNumeProgram,tcImagine,tcComanda,tnIdProgram,tnIdGrupProg,tnIdGrupProgTata
|
||
.&lcmdNume..do_initializeaza(lcNumeProgram,lcDirector,lcImagineDefault,lcComandaProgram,lnIdProg,lnIdGrupProg)
|
||
lnMaxContainer=Max(lnMaxContainer,.nmaxheight)
|
||
Endwith
|
||
|
||
*!* If lnFavorit=1
|
||
*!* With .&lcNumeContainerFav.
|
||
*!* .do_initializeazaobiect(lcmdNume,"cw_programe")
|
||
*!* .&lcmdNume..do_initializeaza(lcNumeProgram,lcImagine,lcComandaProgram,lnIdProgram,lnIdGrupProgFav,lnIdGrupProg)
|
||
*!* lnMaxContainer=Max(lnMaxContainer,.nmaxheight)
|
||
*!* Endwith
|
||
*!* Endif
|
||
Endscan
|
||
|
||
*!* programe favorite
|
||
If Used('v_programe_favorite')
|
||
Use In v_programe_favorite
|
||
Endif
|
||
Select * From v_programe_instalate Where favorit=1 Order By ordine_favorit Into Cursor v_programe_favorite
|
||
Select v_programe_favorite
|
||
Scan
|
||
lnIdProgram=id_program
|
||
lnIdProg=id_prog
|
||
lcIdProgram=Alltrim(Str(lnIdProgram))
|
||
lcIdProg=Alltrim(Str(lnIdProg))
|
||
lcNumeProgram=caps_first(Alltrim(explicatie))
|
||
lcDirector = Alltrim(Director)
|
||
|
||
If Type('v_programe_favorite.parametru_prog') <> 'U'
|
||
lnParametru_prog = v_programe_favorite.parametru_prog && pt. programul de Contracte - clienti si furnizori
|
||
lcParametru_prog = Alltrim(Str(Nvl(lnParametru_prog,0)))
|
||
Else
|
||
lcParametru_prog = '0'
|
||
Endif
|
||
|
||
*!* lcImagine=Upper(Alltrim(nume))+".png"
|
||
lcImagine=Iif(File(Upper(Alltrim(nume))+".png"),Upper(Alltrim(nume))+".png",[na.png])
|
||
lnIdGrupProg=id_grup_prog
|
||
lnIdGrupProgFav=0
|
||
If Like([*.htm],Lower(Alltrim(nume))) Or Like([*.html],Lower(Alltrim(nume)))
|
||
lcComandaProgram = gcDirMare + Iif(Empty(lcDirector),Alltrim(nume),Alltrim(lcDirector))+[\]+;
|
||
Alltrim(nume)
|
||
Else
|
||
lcCaleProgram = gcDirMare+Iif(Empty(lcDirector),Juststem(nume),Alltrim(lcDirector))+[\]+;
|
||
Juststem(Alltrim(nume))+[.exe]
|
||
lcParametru = gcHost+";"+gcuserName+";"+gcPassword+";"+Alltrim(Str(gcutil))+";"+lcIdProgram+";"+lcParametru_prog
|
||
lcComandaProgram=[run /n ] + lcCaleProgram +[ ]+lcParametru
|
||
Endif
|
||
|
||
lcmdNume="cw_"+lcIdProg
|
||
lcNumeContainerFav="scrollcont"+Alltrim(Str(lnIdGrupProgFav))
|
||
|
||
With .&lcNumeContainerFav.
|
||
.do_initializeazaobiect(lcmdNume,"cw_programe")
|
||
.&lcmdNume..do_initializeaza(lcNumeProgram,lcDirector,lcImagine,lcComandaProgram,lnIdProg,lnIdGrupProgFav,lnIdGrupProg)
|
||
lnMaxContainer=Max(lnMaxContainer,.nmaxheight)
|
||
Endwith
|
||
Endscan
|
||
|
||
lcmdNume="cw_grup"+Alltrim(Str(lnIdPrimulGrup))
|
||
.&lcmdNume..Click()
|
||
|
||
Endif
|
||
Endwith
|
||
*!* modificare v 2.0.32
|
||
*!* If Used('v_programe_instalate')
|
||
*!* Use In v_programe_instalate
|
||
*!* Endif
|
||
*!* modificare v 2.0.32 ^
|
||
|
||
If Used('v_programe_favorite')
|
||
Use In v_programe_favorite
|
||
Endif
|
||
|
||
*!* Locale
|
||
lcFisierIni = shortpath(GetIniPath())
|
||
|
||
lcBuffer=Space(255)
|
||
GetPrivateProfileString( "locale","lang","",@m.lcBuffer, Len(m.lcBuffer), m.lcFisierIni)
|
||
|
||
lcBuffer = Strtran(m.lcBuffer,Chr(0),"")
|
||
lcBuffer = Alltrim(m.lcBuffer)
|
||
goLocale.Locale = m.lcBuffer
|
||
|
||
goLocale.SetLocale( Thisform )
|
||
|
||
*!* Locale ^
|
||
*!* modificare v 2.0.23
|
||
*!* lnMaxFereastra=Iif(lnBottomGrup>lnMaxContainer,Max(lnBottomGrup-lnTopGrup,lnMaxContainer)+25,lnMaxContainer)
|
||
lnMaxFereastra=Max(lnBottomGrup,lnMaxContainer)
|
||
*!* modificare v 2.0.27
|
||
*!* lnMaxFereastra=Iif(!glSupervizor And lnMaxFereastra<60,MAX(40+Thisform.shape1.Height,lnBottomAltele),;
|
||
*!* Iif(glSupervizor And lnMaxFereastra<300,190+Thisform.shape1.Height,lnMaxFereastra))
|
||
lnMaxFereastra=Iif(!(glSupervizor OR glAdministrator) And lnMaxFereastra<60,Max(40+Thisform.shape1.Height,lnBottomAltele),;
|
||
Iif((glSupervizor OR glAdministrator) And lnMaxFereastra<300,300,lnMaxFereastra))
|
||
*!* modificare v 2.0.27 ^
|
||
*!* modificare v 2.0.23 ^
|
||
|
||
Do Case
|
||
Case m.glSupervizor
|
||
* NU DEZACTIVEZ NIMIC
|
||
Case m.glAdministrator
|
||
* DEZACTIVEZ DEFINIRE PROGRAME
|
||
This.pgf_optiuni1.page2.cw_optiuni1.Visible = .F. && PROGRAME
|
||
This.pgf_optiuni1.page2.cw_optiuni5.Visible = .F. && GRUPURI PROGRAME
|
||
Otherwise
|
||
This.dezactiveaza_optiuni()
|
||
Endcase
|
||
Thisform.redimensioneaza_pagina(lnMaxFereastra+15)
|
||
_Screen.AutoCenter=.T.
|
||
_Screen.Refresh
|
||
|
||
_Screen.AddProperty("oFundal", This)
|
||
_Screen.AddProperty("cNewSchema", "")
|
||
_Screen.AddProperty("nNewSchemaAn", 0)
|
||
_Screen.AddProperty("nNewSchemaLuna", 0)
|
||
_Screen.AddProperty("cTime", "")
|
||
|
||
*!* This.progressbar.ctlVisible = .F.
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE KeyPress
|
||
Lparameters nKeyCode, nShiftAltCtrl
|
||
Do Case
|
||
Case nKeyCode=-1 &&F2
|
||
Thisform.do_inchide()
|
||
Nodefault
|
||
Case nKeyCode=1 And nShiftAltCtrl=2
|
||
Thisform.do_config_actualizari()
|
||
Nodefault
|
||
Otherwise
|
||
DoDefault(nKeyCode,nShiftAltCtrl)
|
||
Endcase
|
||
ENDPROC
|
||
|
||
PROCEDURE minimizeaza
|
||
If _Screen.WindowState=1
|
||
Thisform.oobjsystray = Newobject('systray')
|
||
*!* modificare v 2.0.29
|
||
poLog.Log([minimizare 1:]+;
|
||
ALLTRIM(Str(_Screen.Width))+"x"+Alltrim(Str(_Screen.Height)),Program())
|
||
*!* modificare v 2.0.29 ^
|
||
poLog.Log('IconFile=' + gcComunPath + [ROASTART.ICO], program())
|
||
With Thisform.oobjsystray
|
||
.IconFile = gcComunPath + [ROASTART.ICO]
|
||
.TipText = [ROASTART]
|
||
.crightclickproc = [arata_meniu_tray] && modificare v 2.0.32
|
||
.AddIconToSystray()
|
||
.ShowBalloonTip("Faceti dublu-click pentru maximizare!"+CHR(13)+CHR(10)+"Faceti click dreapta pentru acces la lansarea rapida a programelor!", "ROASTART" , 1, 3)
|
||
Endwith
|
||
*!* Read Events
|
||
_Screen.Hide()
|
||
*!* modificare v 2.0.29
|
||
poLog.Log([minimizare 2:]+;
|
||
ALLTRIM(Str(_Screen.Width))+"x"+Alltrim(Str(_Screen.Height)),Program())
|
||
*!* modificare v 2.0.29 ^
|
||
Else
|
||
If Type('Thisform.oobjsystray.IconFile') <> 'U'
|
||
Thisform.oobjsystray = Null
|
||
*!* _Screen.Show()
|
||
Endif
|
||
Endif
|
||
ENDPROC
|
||
|
||
PROCEDURE redimensioneaza_pagina
|
||
Lparameters tnTop
|
||
&& redimensionare pagina
|
||
&& cw_program.height = 58
|
||
Thisform.img_logoff.Top=tnTop-4
|
||
Thisform.img_utilnou.Top=tnTop-4
|
||
Thisform.lb_logoff.Top=tnTop
|
||
Thisform.lb_numeutilizator.Top=tnTop
|
||
Thisform.lb_utilizator.Top=tnTop
|
||
Thisform.pgf_optiuni1.Height=tnTop+34
|
||
Thisform.img_stanga1.Height=tnTop+34
|
||
|
||
Thisform.Height=tnTop+34
|
||
_Screen.Height=tnTop+34
|
||
|
||
*!* modificare v 2.0.29
|
||
_Screen.nHeight = Thisform.Height
|
||
_Screen.nWidth = Thisform.Width
|
||
*!* modificare v 2.0.29 ^
|
||
*!* modificare v 2.0.6
|
||
*!* thisform.cb_server_info.Top = thisform.Height - 122
|
||
*!* Thisform.actualizari.Top = Thisform.Height - 60
|
||
*!* Thisform.Config.Top = Thisform.Height - 85
|
||
*!* Thisform.img_Actualizari.Top = Thisform.Height - 65
|
||
*!* Thisform.img_Config.Top = Thisform.Height - 90
|
||
*!* modificare v 2.0.6 ^
|
||
ENDPROC
|
||
|
||
PROCEDURE refreshstareactualizare
|
||
*!* 28.04.2015
|
||
*!* marius.mutu
|
||
*!* stare job actualizare ROA, stare actualizare RTVAi
|
||
|
||
Lparameters tcTip
|
||
* tcTip: ROA/RTVAI
|
||
|
||
Local lcCaption, lcDescriere, lcSetSeconds, lcToolTip, lnDurata, loStare, ltDataOraEnd
|
||
Local ltDataOraStart, lnStare
|
||
Local lcCaptionRTVAI, lcForeColor, lcForeColorRTVAI, lcToolTipRTVAI, lnDurataRTVAI, ltCurrentTime
|
||
loStare = Thisform.do_verifica_stare_actualizare(tcTip)
|
||
This.oStareActualizare = loStare
|
||
|
||
* ROA
|
||
ltDataOraStart = loStare.dataora_start
|
||
ltDataOraEnd = Nvl(loStare.dataora_end, {//::})
|
||
lcDescriere = loStare.descriere
|
||
lnStare = loStare.stare
|
||
ltCurrentTime = Get_Ora()
|
||
lcCaption = ""
|
||
lcToolTip = ""
|
||
|
||
|
||
|
||
lcSetSeconds = Set("Seconds")
|
||
SET SECONDS OFF && se lungeste prea mult data in caption
|
||
|
||
* Actualizare ROA
|
||
If 'ROA' $ Upper(Transform(m.tcTip)) Or Empty(m.tcTip)
|
||
Do Case
|
||
Case Empty(Nvl(ltDataOraStart, {//::}))
|
||
lcCaption = 'Actualizarea nu este configurata'
|
||
lcToolTip = 'Actualizarea nu este configurata sau nu s-a actualizat niciodata baza de date.'
|
||
lcForeColor = Rgb(0, 0, 0) && actualizare neconfigurata - negru
|
||
Otherwise
|
||
lnDurata = Int((ltCurrentTime - m.ltDataOraStart) / 60)
|
||
If lnStare <> 4 And lnDurata > 20 && durata actualizarii > 20 minute inseamna eroare
|
||
lcCaption = Ttoc(m.ltDataOraStart) && + ' EROARE!'
|
||
lcForeColor = Rgb(255, 0, 0) && actualizare cu eroare - rosu
|
||
lcToolTip = Ttoc(m.ltDataOraStart) + ' - ' + Ttoc(m.ltDataOraEnd) + ' ' + m.lcDescriere + Chr(13) + Chr(10) + Chr(13) + Chr(10) + 'SUNATI LA SUPORTUL TEHNIC!'
|
||
Else
|
||
If !Empty(m.ltDataOraEnd)
|
||
lcForeColor = Rgb(0, 64, 64) && actualizare terminata - verde inchis
|
||
Else
|
||
lcForeColor = Rgb(255, 128, 0) && in curs de actualizare - portocaliu
|
||
Endif
|
||
lcCaption = Ttoc(m.ltDataOraStart) && + ' ' + m.lcDescriere
|
||
lcToolTip = Ttoc(m.ltDataOraStart) + ' - ' + Ttoc(m.ltDataOraEnd) + ' ' + m.lcDescriere
|
||
Endif
|
||
ENDCASE
|
||
lcCaption = 'ROA: ' + m.lcCaption
|
||
TRY
|
||
lcToolTip = lcTooltip + CHR(13) + CHR(10) + ;
|
||
'Ultimul task update ROA: ' + ALLTRIM(TRANSFORM(IIF(EMPTY(NVL(loStare.log_date, '')),'',loStare.log_date))) + ' ' + ALLTRIM(NVL(loStare.status, '')) + CHR(13) + CHR(10) + ;
|
||
LEFT(NVL(loStare.additional_info, ''), 200)
|
||
ENDTRY
|
||
|
||
This.lblServerActualizare.Caption = m.lcCaption
|
||
This.lblServerActualizare.ToolTipText = m.lcToolTip
|
||
This.lblServerActualizare.ForeColor = m.lcForeColor
|
||
This.lblServerActualizare.Refresh()
|
||
Endif && ROA
|
||
|
||
|
||
* Actualizare RTVAI
|
||
If 'RTVAI' $ Upper(Transform(m.tcTip)) Or Empty(m.tcTip)
|
||
lnDurataRTVAI = Int((ltCurrentTime - loStare.rtvai_ultimul_import_cu_succes) / (60 * 60 * 24)) && cate zile de la ultimul import cu succes
|
||
lcCaptionRTVAI = 'RTVAI: ' + dtoc(TTOD(loStare.rtvai_ultimul_import_cu_succes)) + IIF(loStare.rtvai_ultima_zi_succes = 0, '!!!', '')
|
||
lcForeColorRTVAI = IIF(m.lnDurataRTVAI <= 2, Rgb(0, 64, 64), IIF(m.lnDurataRTVAI <= 7, Rgb(255, 128, 0), Rgb(255, 0, 0))) && verde <=2 zile, portocaliu <= 7 zile, rosu > 5 zile de la ultima actualizare, verde inchis < 3 zile de la ultima actualizare
|
||
TRY
|
||
lcToolTipRTVAI = 'Ultimul import RTVAI cu succes: ' + dtoc(TTOD(loStare.rtvai_ultimul_import_cu_succes)) + Chr(13) + Chr(10) + ;
|
||
'Ultima verificare RTVAI: ' + dtoc(TTOD(loStare.rtvai_ultima_zi_verificare)) + IIF(loStare.rtvai_ultima_zi_succes = 1, ' SUCCES', ' EROARE! SUNATI LA SUPORTUL TEHNIC!') + Chr(13) + Chr(10) + Chr(13) + Chr(10) + ;
|
||
'Ultimul task import RTVAI: ' + NVL(loStare.rtvai_log_date, '') + ' ' + ALLTRIM(NVL(loStare.rtvai_status, '')) + CHR(13) + CHR(10) + ;
|
||
LEFT(NVL(loStare.rtvai_additional_info, ''), 200)
|
||
CATCH
|
||
lcToolTipRTVAI = ''
|
||
ENDTRY
|
||
This.lblRTVAIActualizare.Caption = m.lcCaptionRTVAI
|
||
This.lblRTVAIActualizare.ToolTipText = m.lcToolTipRTVAI
|
||
This.lblRTVAIActualizare.ForeColor = m.lcForeColorRTVAI
|
||
This.lblRTVAIActualizare.Refresh()
|
||
Endif && RTVAI
|
||
|
||
Set Seconds &lcSetSeconds
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Release
|
||
LogStream=""
|
||
LogStream=Thisform.pgf_optiuni1.page1.txt_mesaj.Value
|
||
If LogStream<>""
|
||
lnNrOfLines = Alines(LogLines,LogStream)
|
||
LogStream=""
|
||
For contor = 1 To lnNrOfLines
|
||
LogStream=LogStream+Dtoc(Date())+" "+Time()+" > "+ LogLines(contor) + Chr(13)+Chr(10)
|
||
Endfor
|
||
*!* Strtofile(LogStream,gcDirMare+"updates.log",1)
|
||
polog.Log(LogStream,Program())
|
||
Endif
|
||
Thisform.cb_server_info.RowSource = []
|
||
If Used('crsserverinfo')
|
||
Use In crsserverinfo
|
||
ENDIF
|
||
*!* modificare v 2.0.32
|
||
If Used('v_programe_instalate')
|
||
Use In v_programe_instalate
|
||
Endif
|
||
*!* modificare v 2.0.32 ^
|
||
*!* modificare v 2.0.29
|
||
For i = 1 To This.Objects.Count
|
||
This.RemoveObject(This.Objects(1).Name)
|
||
Endfor
|
||
DODEFAULT()
|
||
*!* modificare v 2.0.29 ^
|
||
ENDPROC
|
||
|
||
PROCEDURE Show
|
||
LPARAMETERS nStyle
|
||
|
||
Thisform.refreshstareactualizare()
|
||
ENDPROC
|
||
|
||
PROCEDURE wndproc
|
||
Lparameters HWnd, Msg, wParam, Lparam
|
||
If Msg = 0xA123 And Type('Thisform.oobjsystray.IconFile') <> 'U'
|
||
Thisform.oobjsystray.icondblclickevent()
|
||
Endif
|
||
ENDPROC
|
||
|
||
PROCEDURE Actualizari.Click
|
||
Thisform.do_verifica_actualizari()
|
||
ENDPROC
|
||
|
||
PROCEDURE Actualizari.MouseEnter
|
||
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
||
this.FontBold= .T.
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Actualizari.MouseLeave
|
||
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
||
this.FontBold= .F.
|
||
ENDPROC
|
||
|
||
PROCEDURE Config.Click
|
||
thisform.do_config_actualizari()
|
||
ENDPROC
|
||
|
||
PROCEDURE Config.MouseEnter
|
||
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
||
this.FontBold= .T.
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Config.MouseLeave
|
||
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
||
this.FontBold= .F.
|
||
ENDPROC
|
||
|
||
PROCEDURE Cw_meniu1.Click
|
||
If !This.lapasat
|
||
Thisform.do_deselecteaza
|
||
This.do_apasa
|
||
Thisform.pgf_optiuni1.ActivePage=1
|
||
Endif
|
||
ENDPROC
|
||
|
||
PROCEDURE Cw_meniu2.Click
|
||
If !This.lapasat
|
||
Thisform.do_deselecteaza
|
||
This.do_apasa
|
||
Thisform.pgf_optiuni1.ActivePage=2
|
||
Endif
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Cw_meniu3.Click
|
||
If !This.lapasat
|
||
Thisform.do_deselecteaza
|
||
This.do_apasa
|
||
Thisform.pgf_optiuni1.ActivePage=3
|
||
Endif
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Cw_meniu4.Click
|
||
If !This.lapasat
|
||
Thisform.do_deselecteaza
|
||
This.do_apasa
|
||
Thisform.pgf_optiuni1.ActivePage=4
|
||
Endif
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Cw_meniu5.Click
|
||
If !This.lapasat
|
||
Thisform.do_deselecteaza
|
||
This.do_apasa
|
||
Thisform.pgf_optiuni1.ActivePage=5
|
||
Endif
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE img_actualizari.Click
|
||
Thisform.do_verifica_actualizari()
|
||
ENDPROC
|
||
|
||
PROCEDURE img_Config.Click
|
||
thisform.do_config_actualizari()
|
||
ENDPROC
|
||
|
||
PROCEDURE img_logoff.Click
|
||
Thisform.do_inchide()
|
||
ENDPROC
|
||
|
||
PROCEDURE img_utilnou.Click
|
||
Thisform.do_schimba_util()
|
||
ENDPROC
|
||
|
||
PROCEDURE img_utilnou.RightClick
|
||
*!* _Screen.cNewSchema = 'SCHEMA_TEST'
|
||
*!* _Screen.nNewSchemaAn = 2014
|
||
*!* _Screen.nNewSchemaLuna = 10
|
||
*!* _Screen.cTime = Time()
|
||
*!* _Screen.oFundal.tmrProgressBar.timer()
|
||
*!* *_Screen.oFundal.tmrProgressBar.Enabled = !_Screen.oFundal.tmrProgressBar.Enabled
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE lblRTVAIActualizare.Click
|
||
Thisform.refreshstareactualizare('RTVAI')
|
||
ENDPROC
|
||
|
||
PROCEDURE lblRTVAIActualizare.MouseEnter
|
||
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
||
this.FontBold= .T.
|
||
|
||
Thisform.refreshstareactualizare('RTVAI')
|
||
ENDPROC
|
||
|
||
PROCEDURE lblRTVAIActualizare.MouseLeave
|
||
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
||
this.FontBold= .F.
|
||
ENDPROC
|
||
|
||
PROCEDURE lblRTVAIActualizare.RightClick
|
||
Thisform.do_meniu_actualizare_server('RTVAI')
|
||
ENDPROC
|
||
|
||
PROCEDURE lblServerActualizare.Click
|
||
Thisform.refreshstareactualizare('ROA')
|
||
ENDPROC
|
||
|
||
PROCEDURE lblServerActualizare.MouseEnter
|
||
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
||
this.FontBold= .T.
|
||
|
||
Thisform.refreshstareactualizare('ROA')
|
||
ENDPROC
|
||
|
||
PROCEDURE lblServerActualizare.MouseLeave
|
||
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
||
this.FontBold= .F.
|
||
ENDPROC
|
||
|
||
PROCEDURE lblServerActualizare.RightClick
|
||
* Nu afisez meniul de actualizare pentru utilizatorii care nu au dreptul la optiunea Initializare
|
||
If !Thisform.cw_meniu2.Visible
|
||
Return
|
||
Endif
|
||
|
||
Thisform.do_meniu_actualizare_server('ROA')
|
||
ENDPROC
|
||
|
||
PROCEDURE Lb_logoff.Click
|
||
Thisform.do_inchide()
|
||
ENDPROC
|
||
|
||
PROCEDURE Lb_logoff.MouseEnter
|
||
Lparameters nButton, nShift, nXCoord, nYCoord
|
||
This.FontBold=.T.
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Lb_logoff.MouseLeave
|
||
Lparameters nButton, nShift, nXCoord, nYCoord
|
||
This.FontBold=.F.
|
||
ENDPROC
|
||
|
||
PROCEDURE Lb_numeutilizator.Click
|
||
Thisform.do_schimba_util()
|
||
ENDPROC
|
||
|
||
PROCEDURE Lb_numeutilizator.MouseEnter
|
||
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
||
this.ForeColor=RGB(128,0,128)
|
||
ENDPROC
|
||
|
||
PROCEDURE Lb_numeutilizator.MouseLeave
|
||
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
||
this.ForeColor=RGB(0,0,128)
|
||
ENDPROC
|
||
|
||
PROCEDURE Pgf_optiuni1.Page2.Activate
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE tmrProgressBar.Timer
|
||
*!* 21.10.2014
|
||
*!* marius.mutu
|
||
*!* am mutat SYN_NEWSCHEMAPOST in SYN_NEWSCHEMA si nu o mai apelez separat
|
||
|
||
Local lcProgress, lcSchema, lcSql, lnSucces, lcEndTime
|
||
Private pcSchema, pnLuna, pnAn
|
||
pcSchema = Alltrim(_Screen.cNewSchema)
|
||
pnAn = _screen.nNewSchemaAn
|
||
pnLuna = _screen.nNewSchemaLuna
|
||
lcStartTime = _screen.cTime
|
||
lcEndTime = ""
|
||
|
||
lcStare = "Creare firma " + m.pcSchema
|
||
lcProgress = ""
|
||
lcSql = [SYN_NEWSCHEMAPROGRESS(?pcSchema)]
|
||
lnSucces = goExecutor.oFunction2Value(m.lcSql, @lcProgress)
|
||
lcProgress = UPPER(Nvl(m.lcProgress, ''))
|
||
llEnabled = (lnSucces > 0)
|
||
IF m.lcProgress = 'FINALIZAT'
|
||
lcEndTime = TIME()
|
||
|
||
This.Enabled = .F.
|
||
*!* Thisform.ProgressBar.ctlPlay = .F.
|
||
*!* Thisform.ProgressBar.ctlVisible = .F.
|
||
|
||
*** aduc aplicatia in fata
|
||
If _Screen.WindowState=1
|
||
IF TYPE('Thisform.oobjsystray') = 'O'
|
||
Thisform.oobjsystray.icondblclickevent()
|
||
ELSE
|
||
_Screen.WindowState = 0
|
||
_Screen.Show()
|
||
ENDIF
|
||
ENDIF
|
||
|
||
*!* *** SCRIPTURI POST IMPORT (CALENDAR, SAL_CALENDAR, COTE_TVA, PLCONT)
|
||
|
||
*!* lcSql = [BEGIN SYN_NEWSCHEMAPOST(?pcSchema, ?pnLuna, ?pnAn); END;]
|
||
*!* lnSucces = goExecutor.oExecuta(m.lcSql)
|
||
|
||
AMESSAGEBOX('S-a creat firma ' + m.pcSchema + CHR(13) + CHR(10) + ;
|
||
'Pute<74>i da drepturi utilizatorilor pe noua firm<72>!',0+64, 'Firma noua')
|
||
ELSE
|
||
This.Enabled = m.llEnabled
|
||
*!* Thisform.ProgressBar.ctlPlay = m.llEnabled
|
||
*!* Thisform.ProgressBar.ctlMarquee = 1
|
||
*!* Thisform.ProgressBar.ctlVisible = m.llEnabled
|
||
ENDIF
|
||
Thisform.lblProgressbar.Visible = m.llEnabled
|
||
lcStare = m.lcStare + " * " + m.lcStartTime + '-' + IIF(!EMPTY(m.lcEndTime), m.lcEndTime, TIME()) + " * " + Nvl(m.lcProgress, '')
|
||
Thisform.lblProgressbar.Caption = lcStare
|
||
If !m.llEnabled
|
||
AMESSAGEBOX(m.lcStare + Chr(13) + Chr(10) + goExecutor.cEroare,0+16,_Screen.Caption)
|
||
ENDIF
|
||
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|