478 lines
14 KiB
Plaintext
478 lines
14 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="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 = 200
|
|
Left = 1
|
|
Name = "Dataenvironment"
|
|
Top = 220
|
|
Width = 520
|
|
*</PropValue>
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS form1 AS form
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Image2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_pgfrmbase1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="lb_utilizator" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="lb_utilizator1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Imagine01" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Imagine02" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Imagine03" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Imagine04" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Imagine05" UniqueID="" Timestamp="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*m: arata_meniu_fluna
|
|
*m: statusbarclick
|
|
*p: ostatusbar
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
AlwaysOnBottom = .T.
|
|
AutoCenter = .T.
|
|
BackColor = 255,255,255
|
|
BorderStyle = 0
|
|
Caption = ""
|
|
Closable = .F.
|
|
ControlBox = .F.
|
|
DoCreate = .T.
|
|
Enabled = .T.
|
|
FillColor = 0,0,0
|
|
HalfHeightCaption = .F.
|
|
Height = 429
|
|
MaxButton = .F.
|
|
MinButton = .F.
|
|
Movable = .F.
|
|
Name = "Form1"
|
|
ostatusbar =
|
|
Picture = ..\..\
|
|
ShowTips = .T.
|
|
Themes = .F.
|
|
Width = 797
|
|
WindowState = 2
|
|
*</PropValue>
|
|
|
|
ADD OBJECT '_pgfrmbase1' AS pg_meniu_princ WITH ;
|
|
ErasePage = .T., ;
|
|
Height = 457, ;
|
|
Left = -2, ;
|
|
Name = "_pgfrmbase1", ;
|
|
Top = 60, ;
|
|
Page1.Cw1.Label_item1.Name = "Label_item1", ;
|
|
Page1.Cw1.Name = "Cw1", ;
|
|
Page1.Cw10.Label_item1.Name = "Label_item1", ;
|
|
Page1.Cw10.Name = "Cw10", ;
|
|
Page1.Cw11.Label_item1.Name = "Label_item1", ;
|
|
Page1.Cw11.Name = "Cw11", ;
|
|
Page1.Cw12.Label_item1.Name = "Label_item1", ;
|
|
Page1.Cw12.Name = "Cw12", ;
|
|
Page1.Cw13.Label_item1.Name = "Label_item1", ;
|
|
Page1.Cw13.Name = "Cw13", ;
|
|
Page1.Cw2.Label_item1.Name = "Label_item1", ;
|
|
Page1.Cw2.Name = "Cw2", ;
|
|
Page1.Cw3.Label_item1.Name = "Label_item1", ;
|
|
Page1.Cw3.Name = "Cw3", ;
|
|
Page1.Cw4.Label_item1.Name = "Label_item1", ;
|
|
Page1.Cw4.Name = "Cw4", ;
|
|
Page1.Cw5.Label_item1.Name = "Label_item1", ;
|
|
Page1.Cw5.Name = "Cw5", ;
|
|
Page1.Cw7.Label_item1.Name = "Label_item1", ;
|
|
Page1.Cw7.Name = "Cw7", ;
|
|
Page1.Cw8.Label_item1.Name = "Label_item1", ;
|
|
Page1.Cw8.Name = "Cw8", ;
|
|
Page1.Cw9.Label_item1.Name = "Label_item1", ;
|
|
Page1.Cw9.Name = "Cw9", ;
|
|
Page1.Name = "Page1", ;
|
|
Page1.Pict_liniuta1.Name = "Pict_liniuta1", ;
|
|
Page1.Pict_liniuta2.Name = "Pict_liniuta2", ;
|
|
Page1.Pict_meniu1.Name = "Pict_meniu1", ;
|
|
Page2.Cw1.Label_item1.Name = "Label_item1", ;
|
|
Page2.Cw1.Name = "Cw1", ;
|
|
Page2.Cw2.Label_item1.Name = "Label_item1", ;
|
|
Page2.Cw2.Name = "Cw2", ;
|
|
Page2.Cw3.Label_item1.Name = "Label_item1", ;
|
|
Page2.Cw3.Name = "Cw3", ;
|
|
Page2.Cw4.Label_item1.Name = "Label_item1", ;
|
|
Page2.Cw4.Name = "Cw4", ;
|
|
Page2.Cw5.Label_item1.Name = "Label_item1", ;
|
|
Page2.Cw5.Name = "Cw5", ;
|
|
Page2.Cw6.Label_item1.Name = "Label_item1", ;
|
|
Page2.Cw6.Name = "Cw6", ;
|
|
Page2.Cw7.Label_item1.Name = "Label_item1", ;
|
|
Page2.Cw7.Name = "Cw7", ;
|
|
Page2.Cw8.Label_item1.Name = "Label_item1", ;
|
|
Page2.Cw8.Name = "Cw8", ;
|
|
Page2.Name = "Page2", ;
|
|
Page2.Pict_liniuta1.Name = "Pict_liniuta1", ;
|
|
Page2.Pict_liniuta2.Name = "Pict_liniuta2", ;
|
|
Page2.Pict_liniuta3.Name = "Pict_liniuta3", ;
|
|
Page2.Pict_liniuta4.Name = "Pict_liniuta4", ;
|
|
Page2.Pict_meniu1.Name = "Pict_meniu1", ;
|
|
Page3.Cw1.Label_item1.Name = "Label_item1", ;
|
|
Page3.Cw1.Name = "Cw1", ;
|
|
Page3.Cw2.Label_item1.Name = "Label_item1", ;
|
|
Page3.Cw2.Name = "Cw2", ;
|
|
Page3.Cw3.Label_item1.Name = "Label_item1", ;
|
|
Page3.Cw3.Name = "Cw3", ;
|
|
Page3.Cw4.Label_item1.Name = "Label_item1", ;
|
|
Page3.Cw4.Name = "Cw4", ;
|
|
Page3.Cw5.Label_item1.Name = "Label_item1", ;
|
|
Page3.Cw5.Name = "Cw5", ;
|
|
Page3.Cw6.Label_item1.Name = "Label_item1", ;
|
|
Page3.Cw6.Name = "Cw6", ;
|
|
Page3.Cw7.Label_item1.Name = "Label_item1", ;
|
|
Page3.Cw7.Name = "Cw7", ;
|
|
Page3.Cw8.Label_item1.Name = "Label_item1", ;
|
|
Page3.Cw8.Name = "Cw8", ;
|
|
Page3.Cw9.Label_item1.Name = "Label_item1", ;
|
|
Page3.Cw9.Name = "Cw9", ;
|
|
Page3.Name = "Page3", ;
|
|
Page3.Pict_liniuta1.Name = "Pict_liniuta1", ;
|
|
Page3.Pict_liniuta2.Name = "Pict_liniuta2", ;
|
|
Page3.Pict_liniuta3.Name = "Pict_liniuta3", ;
|
|
Page3.Pict_meniu1.Name = "Pict_meniu1", ;
|
|
Page4.Cw1.Label_item1.Name = "Label_item1", ;
|
|
Page4.Cw1.Name = "Cw1", ;
|
|
Page4.Cw2.Label_item1.Name = "Label_item1", ;
|
|
Page4.Cw2.Name = "Cw2", ;
|
|
Page4.Cw3.Label_item1.Name = "Label_item1", ;
|
|
Page4.Cw3.Name = "Cw3", ;
|
|
Page4.Cw4.Label_item1.Name = "Label_item1", ;
|
|
Page4.Cw4.Name = "Cw4", ;
|
|
Page4.Cw5.Label_item1.Name = "Label_item1", ;
|
|
Page4.Cw5.Name = "Cw5", ;
|
|
Page4.Cw6.Label_item1.Name = "Label_item1", ;
|
|
Page4.Cw6.Name = "Cw6", ;
|
|
Page4.Name = "Page4", ;
|
|
Page4.Pict_liniuta1.Name = "Pict_liniuta1", ;
|
|
Page4.Pict_meniu1.Name = "Pict_meniu1", ;
|
|
Page5.Cw1.Label_item1.Name = "Label_item1", ;
|
|
Page5.Cw1.Name = "Cw1", ;
|
|
Page5.Cw2.Label_item1.Name = "Label_item1", ;
|
|
Page5.Cw2.Name = "Cw2", ;
|
|
Page5.Cw3.Label_item1.Name = "Label_item1", ;
|
|
Page5.Cw3.Name = "Cw3", ;
|
|
Page5.Name = "Page5", ;
|
|
Page5.Pict_meniu1.Name = "Pict_meniu1"
|
|
*< END OBJECT: ClassLib="..\clase\ofundal_dev.vcx" BaseClass="pageframe" />
|
|
|
|
ADD OBJECT 'Image1' AS image WITH ;
|
|
Height = 220, ;
|
|
Left = 228, ;
|
|
Name = "Image1", ;
|
|
Picture = ..\grafice\roaauto.bmp, ;
|
|
Stretch = 0, ;
|
|
Top = 205, ;
|
|
Width = 556
|
|
*< END OBJECT: BaseClass="image" />
|
|
|
|
ADD OBJECT 'Image2' AS image WITH ;
|
|
Height = 63, ;
|
|
Left = -11, ;
|
|
Name = "Image2", ;
|
|
Picture = ..\comun\grafice\f1.jpg, ;
|
|
Stretch = 2, ;
|
|
Top = -1, ;
|
|
Width = 851
|
|
*< END OBJECT: BaseClass="image" />
|
|
|
|
ADD OBJECT 'Imagine01' AS imagine WITH ;
|
|
ccod = A01, ;
|
|
Height = 48, ;
|
|
Left = 13, ;
|
|
Name = "Imagine01", ;
|
|
nid_img = 1, ;
|
|
ntip = 0, ;
|
|
picturedown = clie2.bmp, ;
|
|
pictureup = clie1.bmp, ;
|
|
ToolTipText = "Clienti", ;
|
|
Top = 7, ;
|
|
Width = 60
|
|
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
|
|
|
|
ADD OBJECT 'Imagine02' AS imagine WITH ;
|
|
ccod = B01, ;
|
|
Height = 48, ;
|
|
Left = 74, ;
|
|
Name = "Imagine02", ;
|
|
nid_img = 2, ;
|
|
ntip = 0, ;
|
|
picturedown = gene2.bmp, ;
|
|
pictureup = gene1.bmp, ;
|
|
ToolTipText = "Generare (F5)", ;
|
|
Top = 7, ;
|
|
Width = 60
|
|
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
|
|
|
|
ADD OBJECT 'Imagine03' AS imagine WITH ;
|
|
ccod = B02, ;
|
|
Height = 48, ;
|
|
Left = 136, ;
|
|
Name = "Imagine03", ;
|
|
nid_img = 3, ;
|
|
ntip = 0, ;
|
|
picturedown = norm2.bmp, ;
|
|
pictureup = norm1.bmp, ;
|
|
ToolTipText = "Normare (F6)", ;
|
|
Top = 7, ;
|
|
Width = 60
|
|
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
|
|
|
|
ADD OBJECT 'Imagine04' AS imagine WITH ;
|
|
ccod = B03, ;
|
|
Height = 48, ;
|
|
Left = 198, ;
|
|
Name = "Imagine04", ;
|
|
nid_img = 4, ;
|
|
ntip = 0, ;
|
|
picturedown = valid2.bmp, ;
|
|
pictureup = valid1.bmp, ;
|
|
ToolTipText = "Validare (F7)", ;
|
|
Top = 7, ;
|
|
Width = 60
|
|
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
|
|
|
|
ADD OBJECT 'Imagine05' AS imagine WITH ;
|
|
ccod = C01, ;
|
|
Height = 48, ;
|
|
Left = 260, ;
|
|
Name = "Imagine05", ;
|
|
nid_img = 5, ;
|
|
ntip = 0, ;
|
|
picturedown = fact2.bmp, ;
|
|
pictureup = fact1.bmp, ;
|
|
ToolTipText = "Emitere facturi (F8)", ;
|
|
Top = 7, ;
|
|
Width = 60
|
|
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
|
|
|
|
ADD OBJECT 'Label1' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Operator:", ;
|
|
FontItalic = .T., ;
|
|
ForeColor = 0,0,128, ;
|
|
Height = 17, ;
|
|
Left = 7, ;
|
|
Name = "Label1", ;
|
|
Top = 381, ;
|
|
Width = 53
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label2' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Nivel de acces:", ;
|
|
FontItalic = .T., ;
|
|
ForeColor = 0,0,128, ;
|
|
Height = 17, ;
|
|
Left = 7, ;
|
|
Name = "Label2", ;
|
|
Top = 401, ;
|
|
Width = 85
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'lb_utilizator' AS lb_simplu WITH ;
|
|
Anchor = 4, ;
|
|
Caption = "Operator:", ;
|
|
FontItalic = .T., ;
|
|
ForeColor = 0,0,128, ;
|
|
Left = 142, ;
|
|
Name = "lb_utilizator", ;
|
|
Top = 379
|
|
*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT 'lb_utilizator1' AS lb_simplu WITH ;
|
|
Anchor = 4, ;
|
|
Caption = "nume_utilizator", ;
|
|
FontBold = .T., ;
|
|
FontItalic = .T., ;
|
|
ForeColor = 0,0,128, ;
|
|
Left = 196, ;
|
|
Name = "lb_utilizator1", ;
|
|
Top = 379, ;
|
|
Visible = .F.
|
|
*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT 'Text1' AS textbox WITH ;
|
|
BackStyle = 0, ;
|
|
BorderStyle = 0, ;
|
|
ControlSource = "utilizator", ;
|
|
FontBold = .T., ;
|
|
FontItalic = .T., ;
|
|
ForeColor = 0,0,128, ;
|
|
Height = 23, ;
|
|
Left = 62, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T., ;
|
|
TabStop = .F., ;
|
|
Top = 380, ;
|
|
Width = 147
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text2' AS textbox WITH ;
|
|
BackStyle = 0, ;
|
|
BorderStyle = 0, ;
|
|
ControlSource = "m.nivel", ;
|
|
FontBold = .T., ;
|
|
FontItalic = .T., ;
|
|
ForeColor = 0,0,128, ;
|
|
Height = 23, ;
|
|
Left = 93, ;
|
|
Name = "Text2", ;
|
|
ReadOnly = .T., ;
|
|
TabStop = .F., ;
|
|
Top = 400, ;
|
|
Width = 28
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
PROCEDURE Activate
|
|
*!* THISFORM.AUTOCENTER=.T.
|
|
Local lnScrH,lnScrW
|
|
lnScrW = _Screen.Width
|
|
lnScrH = _Screen.Height
|
|
|
|
Thisform.image1.Top = lnScrH - Thisform.image1.Height - 50
|
|
Thisform.image1.Left = lnScrW - Thisform.image1.Width - 30
|
|
Thisform.image2.Width = lnScrW + 30
|
|
Thisform._pgfrmbase1.Width = lnScrW
|
|
Thisform._pgfrmbase1.Height = Thisform.Height-Thisform.image2.Height
|
|
Thisform._pgfrmbase1.page1.Pict_meniu1.Height = Thisform._pgfrmbase1.Height
|
|
Thisform._pgfrmbase1.page2.Pict_meniu1.Height = Thisform._pgfrmbase1.Height
|
|
Thisform._pgfrmbase1.page3.Pict_meniu1.Height = Thisform._pgfrmbase1.Height
|
|
Thisform._pgfrmbase1.page4.Pict_meniu1.Height = Thisform._pgfrmbase1.Height
|
|
Thisform._pgfrmbase1.page5.Pict_meniu1.Height = Thisform._pgfrmbase1.Height
|
|
ENDPROC
|
|
|
|
PROCEDURE arata_meniu_fluna
|
|
Do start_firma In ostartfirma.prg
|
|
verifica_drepturi('gofundal','_pgfrmbase1')
|
|
ENDPROC
|
|
|
|
PROCEDURE KeyPress
|
|
Lparameters nKeyCode, nShiftAltCtrl
|
|
Do Case
|
|
Case nKeyCode==-1 &&F2
|
|
Do IESIRE
|
|
Case nKeyCode = -4 && F5
|
|
&& am apelat click pentru ca utilizatorul s-ar putea sa nu aiba drepturi pe optiunea respectiva,
|
|
&& iar daca nu are, atunci nu poate sa faca click
|
|
Thisform._pgfrmbase1.ActivePage = 2
|
|
Thisform._pgfrmbase1.page2.cw1.Click()
|
|
Case nKeyCode = -5 && F6
|
|
Thisform._pgfrmbase1.ActivePage = 2
|
|
Thisform._pgfrmbase1.page2.cw2.Click()
|
|
Case nKeyCode = -6 && F7
|
|
Thisform._pgfrmbase1.ActivePage = 2
|
|
Thisform._pgfrmbase1.page2.cw3.Click()
|
|
Case nKeyCode = -7 && F8
|
|
Thisform._pgfrmbase1.ActivePage = 3
|
|
Thisform._pgfrmbase1.page3.cw1.Click()
|
|
Otherwise
|
|
DoDefault(nKeyCode, nShiftAltCtrl)
|
|
Endcase
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE RightClick
|
|
Thisform.arata_meniu_fluna()
|
|
ENDPROC
|
|
|
|
PROCEDURE Show
|
|
Lparameters nStyle
|
|
DoDefault(nStyle)
|
|
This.AlwaysOnBottom = .T.
|
|
|
|
*!* modificare v 2.0.5
|
|
If Not Pemstatus(_Screen,"StatusBar", 5) Then
|
|
_Screen.Newobject("StatusBar","ctl32_statusbar", "ctl32_statusbar_fals.vcx", Null, 2)
|
|
Endif
|
|
Thisform.oStatusBar = _Screen.StatusBar
|
|
Thisform.oStatusBar.ctlIcon="roaautomic.ico"
|
|
Thisform.oStatusBar.ctlMessage = _Screen.Caption
|
|
Bindevent(Thisform.oStatusBar, [ctlClick], This, [StatusBarClick])
|
|
*!* modificare v 2.0.5 ^
|
|
|
|
Thisform.arata_meniu_fluna()
|
|
primadata = .F.
|
|
Thisform.lb_utilizator1.Caption=Alltrim(gcUserNameApp)
|
|
Thisform.lb_utilizator1.Visible=.T.
|
|
Do lansare_toolbar In oproceduri_comune.prg
|
|
DO lansare_help IN oproceduri_comune.prg
|
|
ENDPROC
|
|
|
|
PROCEDURE statusbarclick
|
|
Thisform.oStatusBar.newtooltip()
|
|
ENDPROC
|
|
|
|
PROCEDURE Image1.RightClick
|
|
Thisform.arata_meniu_fluna()
|
|
ENDPROC
|
|
|
|
PROCEDURE Imagine01.do_actiune
|
|
DO viz_clienti IN onom_devize.prg
|
|
ENDPROC
|
|
|
|
PROCEDURE Imagine02.do_actiune
|
|
DO generare_com IN oproceduri_devize.prg
|
|
ENDPROC
|
|
|
|
PROCEDURE Imagine03.do_actiune
|
|
DO normare_comanda IN oproceduri_devize.prg
|
|
ENDPROC
|
|
|
|
PROCEDURE Imagine04.do_actiune
|
|
DO validare_comenzi IN oproceduri_vizualizare.prg
|
|
ENDPROC
|
|
|
|
PROCEDURE Imagine05.do_actiune
|
|
DO emitere_facturi IN oproceduri_vizualizare.prg
|
|
ENDPROC
|
|
|
|
PROCEDURE lb_utilizator.RightClick
|
|
Thisform.arata_meniu_fluna()
|
|
ENDPROC
|
|
|
|
PROCEDURE lb_utilizator1.RightClick
|
|
Thisform.arata_meniu_fluna()
|
|
ENDPROC
|
|
|
|
PROCEDURE _pgfrmbase1.Page1.RightClick
|
|
Thisform.arata_meniu_fluna()
|
|
ENDPROC
|
|
|
|
PROCEDURE _pgfrmbase1.Page2.RightClick
|
|
Thisform.arata_meniu_fluna()
|
|
ENDPROC
|
|
|
|
PROCEDURE _pgfrmbase1.Page3.RightClick
|
|
Thisform.arata_meniu_fluna()
|
|
ENDPROC
|
|
|
|
PROCEDURE _pgfrmbase1.Page4.RightClick
|
|
Thisform.arata_meniu_fluna()
|
|
ENDPROC
|
|
|
|
PROCEDURE _pgfrmbase1.Page5.RightClick
|
|
Thisform.arata_meniu_fluna()
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|