romfast/roagest
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
6690751547fc7c99b0fabf43436e386901b39a8e
roagest/Clase/gestiuni.vc2

2317 lines
66 KiB
Plaintext
Raw Blame History

*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="gestiuni.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS pagefr AS pageframe
*< CLASSDATA: Baseclass="pageframe" Timestamp="" Scale="Pixels" Uniqueid="" />
*<DefinedPropArrayMethod>
*m: activate_pag
*m: selectie
*p: c_deschis
*p: c_gri
*p: c_inchis
*</DefinedPropArrayMethod>
*<PropValue>
ActivePage = 6
c_deschis = 16777215
c_gri = 0
c_inchis = 8404992
ErasePage = .T.
Height = 185
Name = "pagefr"
PageCount = 7
Tabs = .T.
TabStretch = 0
TabStyle = 1
Width = 789
Page1.BackColor = 255,255,255
Page1.Caption = "\<Gestiuni"
Page1.Enabled = .T.
Page1.FontCharSet = 238
Page1.FontSize = 10
Page1.Name = "p1"
Page1.PageOrder = 1
Page2.Caption = "\<Materii prime si materiale"
Page2.FontCharSet = 238
Page2.FontSize = 10
Page2.Name = "p2"
Page2.PageOrder = 2
Page2.ToolTipText = "Cont: 301,302"
Page3.Caption = "\<Obiecte de inventar"
Page3.FontCharSet = 238
Page3.FontSize = 10
Page3.Name = "p3"
Page3.PageOrder = 3
Page3.ToolTipText = "Cont: 303"
Page4.Caption = "\<Produse"
Page4.FontCharSet = 238
Page4.FontSize = 10
Page4.Name = "p4"
Page4.PageOrder = 4
Page4.ToolTipText = "Cont: 341,345"
Page5.Caption = "Marfuri la pret de \<achizitie"
Page5.Enabled = .T.
Page5.FontCharSet = 238
Page5.FontSize = 10
Page5.Name = "p5"
Page5.PageOrder = 5
Page5.ToolTipText = "Cont: 371"
Page6.Caption = "Marfuri la pret de \<vânzare"
Page6.FontCharSet = 238
Page6.FontSize = 10
Page6.Name = "p6"
Page6.PageOrder = 6
Page6.ToolTipText = "Cont: 371"
Page7.Caption = "Marfuri la pret de achiziti\<e *"
Page7.FontCharSet = 238
Page7.FontSize = 10
Page7.Name = "p7"
Page7.PageOrder = 7
Page7.ToolTipText = "*) Marfuri la pret de achizitie inregistrate in stoc la pret de vânzare (Cont: 371)"
*</PropValue>
PROCEDURE activate_pag
PARAMETERS np
*!* IF np=1
*!* osetgest.tbrprim.hide
*!* osetgest.tbrprim.dock(-1,0,0)
*!* osetviz.tbrprim.dock(0,0,0)
*!* osetviz.tbrprim.visible=.t.
*!* else
*!* osetviz.tbrprim.hide
*!* osetviz.tbrprim.dock(-1,0,0)
*!* osetgest.tbrprim.dock(0,135,0)
*!* osetgest.tbrprim.visible=.t.
*!* ENDIF
*!* FOR i=1 TO this.PageCount
*!* zi='this.p'+ALLTRIM(STR(i))+'.'
*!* IF i<>np
*!* &zi.BackColor=this.c_gri
*!* &zi.ForeColor=this.c_deschis
*!* else
*!* &zi.BackColor=this.c_deschis
*!* &zi.ForeColor=this.c_inchis
*!* ENDIF
*!* NEXT
gnTipGest =np
*!* oprinc.tbrprim.refresh
this.selectie(gnTipGest)
ENDPROC
PROCEDURE Init
*!* this.c_gri=11630087
*!* this.c_deschis=16777215
*!* this.c_inchis=8404992
this.c_gri=RGB(255,255,255)
this.c_deschis=RGB(255,255,255)
this.c_inchis=RGB(255,255,255)
this.SetAll('backcolor',this.c_gri,'page')
ENDPROC
PROCEDURE selectie
PARAMETERS nr_g
ENDPROC
PROCEDURE p1.Activate
TIP_GEST=THIS.CAPTION
cont_gest='-1'
this.parent.activate_pag(1)
ENDPROC
PROCEDURE p2.Activate
TIP_GEST=THIS.CAPTION
cont_gest='301,302,351'
this.parent.activate_pag(2)
ENDPROC
PROCEDURE p2.Init
*this.BackColor=11630087
ENDPROC
PROCEDURE p3.Activate
TIP_GEST=THIS.CAPTION
cont_gest='303,8039'
this.parent.activate_pag(3)
ENDPROC
PROCEDURE p4.Activate
TIP_GEST=THIS.CAPTION
cont_gest='341,345,346'
this.parent.activate_pag(4)
ENDPROC
PROCEDURE p5.Activate
TIP_GEST=THIS.CAPTION
cont_gest='371,357,471'
this.parent.activate_pag(5)
ENDPROC
PROCEDURE p6.Activate
TIP_GEST=THIS.CAPTION
cont_gest='371,357'
this.parent.activate_pag(6)
ENDPROC
PROCEDURE p7.Activate
TIP_GEST=THIS.CAPTION
cont_gest='371,357'
this.parent.activate_pag(7)
ENDPROC
ENDDEFINE
DEFINE CLASS princ AS ffergen OF "..\comun\clase\_frm_base.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Pagefr1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p1.Shape1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p1.Cw2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p1.Cw5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p1.Cw1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p1.Cw4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p1.Pict_liniuta1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p1.Pict_liniuta2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p1.Pict_liniuta3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p1.Cw3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p1.Cw6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p1.Pict_liniuta4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p1.Pict_liniuta5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p2.Shape1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p2.Cw6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p2.Cw5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p2.Cw8" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p2.Cw4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p2.Cw3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p2.Cw1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p2.Cw2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p2.Cw7" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p2.Pict_liniuta3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p2.Pict_liniuta1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p2.Pict_liniuta2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p3.Shape1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p3.Cw7" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p3.Cw6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p3.Cw5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p3.Cw4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p3.Cw3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p3.Cw1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p3.Cw2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p3.Pict_liniuta3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p3.Pict_liniuta1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p3.Pict_liniuta2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p3.Pict_liniuta4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p4.Shape1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p4.Cw7" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p4.Cw6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p4.Cw8" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p4.Cw4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p4.Cw3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p4.Cw5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p4.Cw1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p4.Cw2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p4.Pict_liniuta3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p4.Pict_liniuta1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p4.Pict_liniuta2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p4.Pict_liniuta4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p5.Shape1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p5.Cw7" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p5.Cw6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p5.Cw4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p5.Cw3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p5.Cw2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p5.Cw1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p5.Cw5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p5.Cw8" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p5.Pict_liniuta3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p5.Pict_liniuta1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p5.Pict_liniuta2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p6.Shape1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p6.Cw7" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p6.Cw4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p6.Cw6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p6.Cw3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p6.Cw1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p6.Cw2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p6.Cw5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p6.Pict_liniuta3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p6.Pict_liniuta1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p6.Pict_liniuta2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p6.Pict_liniuta4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p6.Pict_liniuta5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p7.Shape1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p7.Cw7" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p7.Cw4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p7.Cw6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p7.Cw3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p7.Cw1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p7.Cw2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p7.Cw5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p7.Pict_liniuta3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p7.Pict_liniuta1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p7.Pict_liniuta2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p7.Pict_liniuta4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.p7.Pict_liniuta5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Image2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Imagine01" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Imagine05" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Imagine04" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Imagine03" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Imagine02" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Container1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Container1.Label1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Container1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lstNumere" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lblNumere" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: actualizeazanumereact
*m: getcwbynumber
*m: selectie_achi
*m: selectie_vanz
*m: selenumegest
*p: npagina
*p: opaginaactiva
*a: anumeredoc[1,4]
*p: _memberdata && XML Metadata for customizable properties
*</DefinedPropArrayMethod>
*<PropValue>
AlwaysOnTop = .F.
AutoCenter = .F.
BackColor = 255,255,255
BorderStyle = 1
Caption = ""
DoCreate = .T.
FontCharSet = 238
FontSize = 10
Height = 512
KeyPreview = .T.
Left = 0
Name = "princ"
npagina = 1
opaginaactiva = Null
ShowTips = .T.
Top = 0
Width = 800
WindowType = 0
_memberdata = <VFPData>
<memberdata name="anumeredoc" display="aNumereDoc"/>
<memberdata name="actualizeazanumereact" display="ActualizeazaNumereAct"/>
</VFPData>
*</PropValue>
ADD OBJECT 'Container1' AS container WITH ;
Anchor = 9, ;
BackStyle = 0, ;
BorderWidth = 0, ;
Height = 26, ;
Left = 451, ;
Name = "Container1", ;
SpecialEffect = 1, ;
TabStop = .F., ;
Top = 5, ;
Width = 302, ;
ZOrderSet = 8
*< END OBJECT: BaseClass="container" />
ADD OBJECT 'Container1.Label1' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Operator:", ;
FontItalic = .T., ;
ForeColor = 255,255,255, ;
Height = 17, ;
Left = 8, ;
Name = "Label1", ;
Top = 5, ;
Width = 53
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Container1.Text1' AS label WITH ;
BackStyle = 0, ;
Caption = "Text", ;
FontBold = .T., ;
FontItalic = .T., ;
ForeColor = 255,255,255, ;
Height = 17, ;
Left = 67, ;
Name = "Text1", ;
Top = 5, ;
Width = 216
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Image1' AS image WITH ;
Anchor = 12, ;
Height = 220, ;
Left = 228, ;
Name = "Image1", ;
Picture = ..\grafice\roagest.bmp, ;
Stretch = 0, ;
Top = 244, ;
Width = 556, ;
ZOrderSet = 7
*< END OBJECT: BaseClass="image" />
ADD OBJECT 'Image2' AS image WITH ;
Height = 63, ;
Left = 0, ;
Name = "Image2", ;
Picture = ..\comun\grafice\f1.jpg, ;
Stretch = 2, ;
Top = 0, ;
Width = 851, ;
ZOrderSet = 1
*< END OBJECT: BaseClass="image" />
ADD OBJECT 'Imagine01' AS imagine WITH ;
ccod = A05, ;
Height = 55, ;
Left = 8, ;
Name = "Imagine01", ;
nid_img = 1, ;
Picture = ..\comun\grafice\rj1.bmp, ;
picturedown = rj2.bmp, ;
pictureup = rj1.bmp, ;
ToolTipText = "Jurnal", ;
Top = 1, ;
Width = 52, ;
ZOrderSet = 2
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Imagine02' AS imagine WITH ;
ccod = B01;C01;D01;E01;F01, ;
Height = 54, ;
Left = 61, ;
Name = "Imagine02", ;
nid_img = 2, ;
Picture = ..\grafice\in1_b.bmp, ;
picturedown = in2.bmp, ;
pictureup = in1.bmp, ;
ToolTipText = "NIR (intrari)", ;
Top = 1, ;
Width = 45, ;
ZOrderSet = 6
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Imagine03' AS imagine WITH ;
ccod = B03;D03;E04, ;
Height = 54, ;
Left = 114, ;
Name = "Imagine03", ;
nid_img = 3, ;
Picture = ..\grafice\out1_b.bmp, ;
picturedown = out2.bmp, ;
pictureup = out1.bmp, ;
ToolTipText = "Bon (iesiri)", ;
Top = 1, ;
Width = 45, ;
ZOrderSet = 5
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Imagine04' AS imagine WITH ;
ccod = A03, ;
Height = 53, ;
Left = 168, ;
Name = "Imagine04", ;
nid_img = 4, ;
Picture = ..\grafice\rul1.bmp, ;
picturedown = rul2.bmp, ;
pictureup = rul1.bmp, ;
ToolTipText = "Rulaje", ;
Top = 1, ;
Width = 51, ;
ZOrderSet = 4
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Imagine05' AS imagine WITH ;
ccod = B06;C06;D07;E07;F05, ;
Height = 53, ;
Left = 223, ;
Name = "Imagine05", ;
nid_img = 5, ;
Picture = ..\grafice\stoc1.bmp, ;
picturedown = stoc2.bmp, ;
pictureup = stoc1.bmp, ;
ToolTipText = "Stocuri", ;
Top = 1, ;
Width = 51, ;
ZOrderSet = 3
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'lblNumere' AS _label WITH ;
Caption = "Ultimele numere NIR/BON pentru utilizatorul curent", ;
FontItalic = .T., ;
Height = 17, ;
Left = 213, ;
Name = "lblNumere", ;
ToolTipText = "Dublu click pe o linie pentru copierea numarului", ;
Top = 128, ;
Visible = .F., ;
Width = 283
*< END OBJECT: ClassLib="..\..\..\contafin\comun\clase\_baza.vcx" BaseClass="label" />
ADD OBJECT 'lstNumere' AS _listbox WITH ;
Anchor = 15, ;
AutoHideScrollbar = 1, ;
BorderColor = 255,255,255, ;
ColumnCount = 4, ;
ColumnLines = .F., ;
ColumnWidths = "150,400,100,150", ;
Height = 170, ;
Left = 213, ;
Name = "lstNumere", ;
NumberOfElements = 4, ;
RowSource = "Thisform.aNumereDoc", ;
RowSourceType = 5, ;
SpecialEffect = 1, ;
ToolTipText = "Dublu click pe o linie pentru copierea numarului. Click dreapta pentru copierea tabelului.", ;
Top = 148, ;
Visible = .F., ;
Width = 569
*< END OBJECT: ClassLib="..\..\..\contafin\comun\clase\_baza.vcx" BaseClass="listbox" />
ADD OBJECT 'Pagefr1' AS pagefr WITH ;
ActivePage = 1, ;
ErasePage = .T., ;
Height = 454, ;
Left = 0, ;
Name = "Pagefr1", ;
TabStyle = 1, ;
Themes = .F., ;
Top = 62, ;
Width = 790, ;
ZOrderSet = 0, ;
p1.Name = "p1", ;
p1.PageOrder = 1, ;
p2.Name = "p2", ;
p2.PageOrder = 2, ;
p3.Name = "p3", ;
p3.PageOrder = 3, ;
p4.Name = "p4", ;
p4.PageOrder = 4, ;
p5.Name = "p5", ;
p5.PageOrder = 5, ;
p6.Name = "p6", ;
p6.PageOrder = 6, ;
p7.Name = "p7", ;
p7.PageOrder = 7
*< END OBJECT: ClassLib="gestiuni.vcx" BaseClass="pageframe" />
ADD OBJECT 'Pagefr1.p1.Cw1' AS cw WITH ;
Left = 7, ;
Name = "Cw1", ;
nid_cw = 2, ;
ntip = 2, ;
TabIndex = 2, ;
Top = 84, ;
Width = 180, ;
ZOrderSet = 3, ;
Label_item1.Caption = "3.Configurare", ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p1.Cw2' AS cw WITH ;
Left = 8, ;
Name = "Cw2", ;
nid_cw = 4, ;
ntip = 1, ;
TabIndex = 4, ;
Top = 157, ;
Width = 180, ;
ZOrderSet = 1, ;
Label_item1.Caption = "5.Rapoarte", ;
Label_item1.Name = "Label_item1", ;
Label_item1.TabIndex = 1
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p1.Cw3' AS cw WITH ;
Left = 7, ;
Name = "Cw3", ;
nid_cw = 1, ;
TabIndex = 1, ;
Top = 17, ;
Visible = .T., ;
Width = 180, ;
ZOrderSet = 8, ;
Label_item1.Caption = "1.Inventar", ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p1.Cw4' AS cw WITH ;
Enabled = .F., ;
Left = 7, ;
Name = "Cw4", ;
nid_cw = 5, ;
ntip = 4, ;
TabIndex = 4, ;
Top = 121, ;
Visible = .T., ;
Width = 180, ;
ZOrderSet = 1, ;
LABEL_ITEM1.Caption = "4.Registru Jurnal", ;
LABEL_ITEM1.Left = 5, ;
LABEL_ITEM1.Name = "LABEL_ITEM1", ;
LABEL_ITEM1.TabIndex = 1, ;
LABEL_ITEM1.Top = 2
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p1.Cw5' AS cw WITH ;
Enabled = .T., ;
Left = 9, ;
linactiv = .T., ;
Name = "Cw5", ;
nid_cw = 3, ;
ntip = 4, ;
TabIndex = 3, ;
Top = 210, ;
Visible = .F., ;
Width = 180, ;
ZOrderSet = 2, ;
Label_item1.Caption = "6.Vizualizare", ;
Label_item1.Name = "Label_item1", ;
Label_item1.TabIndex = 1
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p1.Cw6' AS cw WITH ;
Left = 7, ;
Name = "Cw6", ;
nid_cw = 6, ;
ntip = 4, ;
TabIndex = 1, ;
Top = 40, ;
Visible = .T., ;
Width = 180, ;
ZOrderSet = 8, ;
Label_item1.Caption = "2.Inventar magazin", ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p1.Pict_liniuta1' AS pict_liniuta WITH ;
Left = 5, ;
Name = "Pict_liniuta1", ;
Picture = ..\comun\grafice\f3.jpg, ;
Top = 70
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Pagefr1.p1.Pict_liniuta2' AS pict_liniuta WITH ;
Left = 5, ;
Name = "Pict_liniuta2", ;
Picture = ..\comun\grafice\f3.jpg, ;
Top = 107
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Pagefr1.p1.Pict_liniuta3' AS pict_liniuta WITH ;
Left = 7, ;
Name = "Pict_liniuta3", ;
Picture = ..\comun\grafice\f3.jpg, ;
Top = 233, ;
Visible = .F.
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Pagefr1.p1.Pict_liniuta4' AS pict_liniuta WITH ;
Left = 7, ;
Name = "Pict_liniuta4", ;
Picture = ..\comun\grafice\f3.jpg, ;
Top = 271, ;
Visible = .F., ;
Width = 180
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Pagefr1.p1.Pict_liniuta5' AS pict_liniuta WITH ;
Left = 5, ;
Name = "Pict_liniuta5", ;
Picture = ..\comun\grafice\f3.jpg, ;
Top = 147
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Pagefr1.p1.Shape1' AS pict_meniu WITH ;
Left = 1, ;
Name = "Shape1", ;
Picture = ..\comun\grafice\f2.jpg, ;
Top = 5, ;
Width = 200, ;
ZOrderSet = 0
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Pagefr1.p2.Cw1' AS cw WITH ;
Left = 7, ;
Name = "Cw1", ;
nid_cw = 1, ;
TabIndex = 1, ;
Top = 13, ;
Width = 180, ;
ZOrderSet = 5, ;
Label_item1.Caption = "1.Achiziþie", ;
Label_item1.FontCharSet = 238, ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p2.Cw2' AS cw WITH ;
Left = 7, ;
Name = "Cw2", ;
nid_cw = 3, ;
TabIndex = 3, ;
Top = 103, ;
Width = 180, ;
ZOrderSet = 6, ;
Label_item1.Caption = "4.Consum", ;
Label_item1.FontSize = 9, ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p2.Cw3' AS cw WITH ;
Left = 7, ;
Name = "Cw3", ;
nid_cw = 4, ;
TabIndex = 4, ;
Top = 128, ;
Width = 180, ;
ZOrderSet = 4, ;
Label_item1.Caption = "5.Transfer", ;
Label_item1.FontSize = 9, ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p2.Cw4' AS cw WITH ;
Left = 7, ;
Name = "Cw4", ;
nid_cw = 2, ;
TabIndex = 2, ;
Top = 38, ;
Width = 180, ;
ZOrderSet = 3, ;
Label_item1.AutoSize = .F., ;
Label_item1.Caption = "2.Achiziþie din import / intern", ;
Label_item1.FontCharSet = 238, ;
Label_item1.Height = 19, ;
Label_item1.Left = 4, ;
Label_item1.Name = "Label_item1", ;
Label_item1.Top = 2, ;
Label_item1.Width = 172, ;
Label_item1.WordWrap = .T.
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p2.Cw5' AS cw WITH ;
Left = 7, ;
Name = "Cw5", ;
nid_cw = 6, ;
ntip = 2, ;
TabIndex = 6, ;
Top = 189, ;
Width = 180, ;
ZOrderSet = 2, ;
Label_item1.Caption = "7.Stocuri materiale", ;
Label_item1.FontSize = 9, ;
Label_item1.Left = 3, ;
Label_item1.Name = "Label_item1", ;
Label_item1.TabIndex = 1, ;
Label_item1.Top = 3
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p2.Cw6' AS cw WITH ;
Left = 7, ;
Name = "Cw6", ;
nid_cw = 7, ;
ntip = 1, ;
TabIndex = 7, ;
Top = 225, ;
Width = 180, ;
ZOrderSet = 1, ;
Label_item1.Caption = "8.Rapoarte", ;
Label_item1.FontSize = 9, ;
Label_item1.Name = "Label_item1", ;
Label_item1.TabIndex = 1
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p2.Cw7' AS cw WITH ;
Left = 7, ;
Name = "Cw7", ;
nid_cw = 5, ;
TabIndex = 5, ;
Top = 153, ;
Width = 180, ;
ZOrderSet = 7, ;
Label_item1.Caption = "6.Vânzare", ;
Label_item1.FontSize = 9, ;
Label_item1.Left = 5, ;
Label_item1.Name = "Label_item1", ;
Label_item1.Top = 3
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p2.Cw8' AS cw WITH ;
Height = 35, ;
Left = 7, ;
Name = "Cw8", ;
nid_cw = 2, ;
TabIndex = 2, ;
Top = 63, ;
Width = 180, ;
ZOrderSet = 3, ;
Label_item1.AutoSize = .F., ;
Label_item1.Caption = "3.Intrare din transfer de la gestiune valoricã", ;
Label_item1.FontCharSet = 238, ;
Label_item1.Height = 32, ;
Label_item1.Left = 5, ;
Label_item1.Name = "Label_item1", ;
Label_item1.Top = 1, ;
Label_item1.Width = 155, ;
Label_item1.WordWrap = .T.
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p2.Pict_liniuta1' AS pict_liniuta WITH ;
Left = 5, ;
Name = "Pict_liniuta1", ;
Picture = ..\comun\grafice\f3.jpg, ;
Top = 212
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Pagefr1.p2.Pict_liniuta2' AS pict_liniuta WITH ;
Left = 5, ;
Name = "Pict_liniuta2", ;
Picture = ..\comun\grafice\f3.jpg, ;
Top = 250
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Pagefr1.p2.Pict_liniuta3' AS pict_liniuta WITH ;
Left = 5, ;
Name = "Pict_liniuta3", ;
Picture = ..\comun\grafice\f3.jpg, ;
Top = 177
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Pagefr1.p2.Shape1' AS pict_meniu WITH ;
Height = 362, ;
Left = 1, ;
Name = "Shape1", ;
Picture = ..\comun\grafice\f2.jpg, ;
Top = 5, ;
Width = 200, ;
ZOrderSet = 0
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Pagefr1.p3.Cw1' AS cw WITH ;
Left = 5, ;
Name = "Cw1", ;
nid_cw = 1, ;
TabIndex = 1, ;
Top = 13, ;
ZOrderSet = 6, ;
Label_item1.Caption = "1.Achiziþie", ;
Label_item1.FontSize = 9, ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p3.Cw2' AS cw WITH ;
Left = 5, ;
Name = "Cw2", ;
nid_cw = 2, ;
TabIndex = 2, ;
Top = 37, ;
ZOrderSet = 7, ;
Label_item1.Caption = "2.Consum", ;
Label_item1.FontSize = 9, ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p3.Cw3' AS cw WITH ;
Left = 5, ;
Name = "Cw3", ;
nid_cw = 3, ;
TabIndex = 3, ;
Top = 61, ;
ZOrderSet = 5, ;
Label_item1.Caption = "3.Transfer", ;
Label_item1.FontSize = 9, ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p3.Cw4' AS cw WITH ;
Height = 34, ;
Left = 5, ;
Name = "Cw4", ;
nid_cw = 4, ;
ntip = 2, ;
TabIndex = 4, ;
Top = 97, ;
ZOrderSet = 4, ;
Label_item1.AutoSize = .F., ;
Label_item1.Caption = "4.Rulaje ob. de inventar în folosintã", ;
Label_item1.Height = 30, ;
Label_item1.Left = 5, ;
Label_item1.Name = "Label_item1", ;
Label_item1.Top = 1, ;
Label_item1.Width = 169, ;
Label_item1.WordWrap = .T.
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p3.Cw5' AS cw WITH ;
Height = 34, ;
Left = 5, ;
Name = "Cw5", ;
nid_cw = 6, ;
ntip = 2, ;
TabIndex = 4, ;
Top = 183, ;
ZOrderSet = 3, ;
Label_item1.AutoSize = .F., ;
Label_item1.Caption = "6.Obiecte de inventar în stoc (303)", ;
Label_item1.Height = 30, ;
Label_item1.Left = 5, ;
Label_item1.Name = "Label_item1", ;
Label_item1.Top = 1, ;
Label_item1.Width = 169, ;
Label_item1.WordWrap = .T.
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p3.Cw6' AS cw WITH ;
Left = 5, ;
Name = "Cw6", ;
nid_cw = 7, ;
ntip = 1, ;
TabIndex = 4, ;
Top = 232, ;
ZOrderSet = 2, ;
Label_item1.Caption = "7.Rapoarte", ;
Label_item1.FontSize = 9, ;
Label_item1.Height = 17, ;
Label_item1.Left = 5, ;
Label_item1.Name = "Label_item1", ;
Label_item1.TabIndex = 1, ;
Label_item1.Top = 1, ;
Label_item1.Width = 63
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p3.Cw7' AS cw WITH ;
Height = 34, ;
Left = 5, ;
Name = "Cw7", ;
nid_cw = 5, ;
ntip = 2, ;
TabIndex = 4, ;
Top = 135, ;
ZOrderSet = 1, ;
Label_item1.AutoSize = .F., ;
Label_item1.Caption = "5.Obiecte de inventar în folosintã", ;
Label_item1.Height = 30, ;
Label_item1.Left = 5, ;
Label_item1.Name = "Label_item1", ;
Label_item1.Top = 1, ;
Label_item1.Width = 169, ;
Label_item1.WordWrap = .T.
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p3.Pict_liniuta1' AS pict_liniuta WITH ;
Left = 4, ;
Name = "Pict_liniuta1", ;
Picture = ..\comun\grafice\f3.jpg, ;
Top = 172
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Pagefr1.p3.Pict_liniuta2' AS pict_liniuta WITH ;
Left = 4, ;
Name = "Pict_liniuta2", ;
Picture = ..\comun\grafice\f3.jpg, ;
Top = 221
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Pagefr1.p3.Pict_liniuta3' AS pict_liniuta WITH ;
Left = 4, ;
Name = "Pict_liniuta3", ;
Picture = ..\comun\grafice\f3.jpg, ;
Top = 84
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Pagefr1.p3.Pict_liniuta4' AS pict_liniuta WITH ;
Left = 4, ;
Name = "Pict_liniuta4", ;
Picture = ..\comun\grafice\f3.jpg, ;
Top = 256
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Pagefr1.p3.Shape1' AS pict_meniu WITH ;
Left = 1, ;
Name = "Shape1", ;
Picture = ..\comun\grafice\f2.jpg, ;
Top = 5, ;
ZOrderSet = 0
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Pagefr1.p4.Cw1' AS cw WITH ;
Left = 5, ;
linactiv = .F., ;
Name = "Cw1", ;
nid_cw = 2, ;
TabIndex = 1, ;
Top = 36, ;
ZOrderSet = 7, ;
Label_item1.Caption = "2.Intrare în gestiune", ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p4.Cw2' AS cw WITH ;
Left = 5, ;
Name = "Cw2", ;
nid_cw = 3, ;
TabIndex = 2, ;
Top = 60, ;
ZOrderSet = 8, ;
Label_item1.Caption = "3.Consum", ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p4.Cw3' AS cw WITH ;
Left = 5, ;
Name = "Cw3", ;
nid_cw = 4, ;
TabIndex = 3, ;
Top = 83, ;
ZOrderSet = 5, ;
Label_item1.Caption = "4.Transfer", ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p4.Cw4' AS cw WITH ;
Left = 5, ;
Name = "Cw4", ;
nid_cw = 5, ;
TabIndex = 4, ;
Top = 107, ;
ZOrderSet = 4, ;
Label_item1.Caption = "5.Vânzare", ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p4.Cw5' AS cw WITH ;
Left = 5, ;
Name = "Cw5", ;
nid_cw = 6, ;
ntip = 2, ;
TabIndex = 5, ;
Top = 145, ;
ZOrderSet = 6, ;
Label_item1.Caption = "6.Configurare", ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p4.Cw6' AS cw WITH ;
Left = 5, ;
Name = "Cw6", ;
nid_cw = 7, ;
ntip = 2, ;
TabIndex = 3, ;
Top = 182, ;
ZOrderSet = 2, ;
Label_item1.Caption = "7.Stocuri produse", ;
Label_item1.Name = "Label_item1", ;
Label_item1.TabIndex = 1
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p4.Cw7' AS cw WITH ;
Left = 5, ;
Name = "Cw7", ;
nid_cw = 8, ;
ntip = 1, ;
TabIndex = 4, ;
Top = 218, ;
ZOrderSet = 1, ;
Label_item1.Caption = "8.Rapoarte", ;
Label_item1.Name = "Label_item1", ;
Label_item1.TabIndex = 1
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p4.Cw8' AS cw WITH ;
Left = 5, ;
Name = "Cw8", ;
nid_cw = 1, ;
TabIndex = 1, ;
Top = 12, ;
ZOrderSet = 3, ;
Label_item1.Caption = "1. Achiziþie", ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p4.Pict_liniuta1' AS pict_liniuta WITH ;
Left = 4, ;
Name = "Pict_liniuta1", ;
Picture = ..\comun\grafice\f3.jpg, ;
Top = 169
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Pagefr1.p4.Pict_liniuta2' AS pict_liniuta WITH ;
Left = 4, ;
Name = "Pict_liniuta2", ;
Picture = ..\comun\grafice\f3.jpg, ;
Top = 206
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Pagefr1.p4.Pict_liniuta3' AS pict_liniuta WITH ;
Left = 4, ;
Name = "Pict_liniuta3", ;
Picture = ..\comun\grafice\f3.jpg, ;
Top = 132
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Pagefr1.p4.Pict_liniuta4' AS pict_liniuta WITH ;
Left = 4, ;
Name = "Pict_liniuta4", ;
Picture = ..\comun\grafice\f3.jpg, ;
Top = 242
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Pagefr1.p4.Shape1' AS pict_meniu WITH ;
Left = 1, ;
Name = "Shape1", ;
Picture = ..\comun\grafice\f2.jpg, ;
Top = 5, ;
ZOrderSet = 0
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Pagefr1.p5.Cw1' AS cw WITH ;
Left = 5, ;
Name = "Cw1", ;
nid_cw = 1, ;
TabIndex = 1, ;
Top = 12, ;
ZOrderSet = 6, ;
Label_item1.Caption = "1.Achiziþie", ;
Label_item1.FontCharSet = 238, ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p5.Cw2' AS cw WITH ;
Left = 5, ;
Name = "Cw2", ;
nid_cw = 4, ;
TabIndex = 4, ;
Top = 101, ;
ZOrderSet = 5, ;
Label_item1.Caption = "4.Consum", ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p5.Cw3' AS cw WITH ;
Left = 5, ;
Name = "Cw3", ;
nid_cw = 5, ;
TabIndex = 7, ;
Top = 126, ;
ZOrderSet = 4, ;
Label_item1.Caption = "5.Transfer", ;
Label_item1.Left = 4, ;
Label_item1.Name = "Label_item1", ;
Label_item1.Top = 3
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p5.Cw4' AS cw WITH ;
Left = 5, ;
linactiv = .F., ;
Name = "Cw4", ;
nid_cw = 2, ;
TabIndex = 2, ;
Top = 37, ;
ZOrderSet = 3, ;
Label_item1.AutoSize = .F., ;
Label_item1.Caption = "2.Achiziþie din import / intern", ;
Label_item1.FontCharSet = 238, ;
Label_item1.Height = 14, ;
Label_item1.Left = 5, ;
Label_item1.Name = "Label_item1", ;
Label_item1.Top = 1, ;
Label_item1.Width = 169, ;
Label_item1.WordWrap = .T.
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p5.Cw5' AS cw WITH ;
Left = 5, ;
Name = "Cw5", ;
nid_cw = 6, ;
TabIndex = 8, ;
Top = 152, ;
ZOrderSet = 7, ;
Label_item1.Caption = "6.Vânzare", ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p5.Cw6' AS cw WITH ;
Left = 5, ;
Name = "Cw6", ;
nid_cw = 7, ;
ntip = 2, ;
TabIndex = 5, ;
Top = 187, ;
ZOrderSet = 2, ;
Label_item1.Caption = "7.Stocuri marfã", ;
Label_item1.Name = "Label_item1", ;
Label_item1.TabIndex = 1
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p5.Cw7' AS cw WITH ;
Left = 5, ;
Name = "Cw7", ;
nid_cw = 8, ;
ntip = 1, ;
TabIndex = 6, ;
Top = 223, ;
ZOrderSet = 1, ;
Label_item1.Caption = "8.Rapoarte", ;
Label_item1.Name = "Label_item1", ;
Label_item1.TabIndex = 1
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p5.Cw8' AS cw WITH ;
Height = 35, ;
Left = 5, ;
Name = "Cw8", ;
nid_cw = 3, ;
TabIndex = 3, ;
Top = 62, ;
ZOrderSet = 3, ;
Label_item1.AutoSize = .F., ;
Label_item1.Caption = "3.Intrare din transfer de la gestiune valoricã", ;
Label_item1.Height = 32, ;
Label_item1.Left = 5, ;
Label_item1.Name = "Label_item1", ;
Label_item1.Top = 3, ;
Label_item1.Width = 169, ;
Label_item1.WordWrap = .T.
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p5.Pict_liniuta1' AS pict_liniuta WITH ;
Left = 5, ;
Name = "Pict_liniuta1", ;
Picture = ..\comun\grafice\f3.jpg, ;
Top = 212
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Pagefr1.p5.Pict_liniuta2' AS pict_liniuta WITH ;
Left = 5, ;
Name = "Pict_liniuta2", ;
Picture = ..\comun\grafice\f3.jpg, ;
Top = 247
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Pagefr1.p5.Pict_liniuta3' AS pict_liniuta WITH ;
Left = 5, ;
Name = "Pict_liniuta3", ;
Picture = ..\comun\grafice\f3.jpg, ;
Top = 176
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Pagefr1.p5.Shape1' AS pict_meniu WITH ;
Left = 1, ;
Name = "Shape1", ;
Picture = ..\comun\grafice\f2.jpg, ;
Top = 5, ;
ZOrderSet = 0
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Pagefr1.p6.Cw1' AS cw WITH ;
Left = 7, ;
Name = "Cw1", ;
nid_cw = 1, ;
TabIndex = 1, ;
Top = 12, ;
ZOrderSet = 5, ;
Label_item1.Caption = "1.Achiziþie", ;
Label_item1.FontCharSet = 238, ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p6.Cw2' AS cw WITH ;
Left = 7, ;
Name = "Cw2", ;
nid_cw = 4, ;
TabIndex = 4, ;
Top = 97, ;
ZOrderSet = 6, ;
Label_item1.Caption = "4.Configurare", ;
Label_item1.FontCharSet = 238, ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p6.Cw3' AS cw WITH ;
Left = 7, ;
Name = "Cw3", ;
nid_cw = 2, ;
TabIndex = 2, ;
Top = 36, ;
ZOrderSet = 4, ;
Label_item1.Caption = "2.Transfer", ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p6.Cw4' AS cw WITH ;
Left = 7, ;
Name = "Cw4", ;
nid_cw = 6, ;
ntip = 1, ;
TabIndex = 4, ;
Top = 169, ;
ZOrderSet = 2, ;
Label_item1.Caption = "6.Rapoarte", ;
Label_item1.Name = "Label_item1", ;
Label_item1.TabIndex = 1
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p6.Cw5' AS cw WITH ;
Left = 7, ;
Name = "Cw5", ;
nid_cw = 3, ;
TabIndex = 3, ;
Top = 61, ;
ZOrderSet = 7, ;
Label_item1.Caption = "3.Vânzare", ;
Label_item1.FontCharSet = 238, ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p6.Cw6' AS cw WITH ;
Left = 7, ;
Name = "Cw6", ;
nid_cw = 5, ;
ntip = 2, ;
TabIndex = 3, ;
Top = 133, ;
ZOrderSet = 3, ;
Label_item1.Caption = "5.Stocuri marfã", ;
Label_item1.FontCharSet = 238, ;
Label_item1.Name = "Label_item1", ;
Label_item1.TabIndex = 1
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p6.Cw7' AS cw WITH ;
Left = 7, ;
Name = "Cw7", ;
nid_cw = 7, ;
TabIndex = 4, ;
Top = 202, ;
ZOrderSet = 1, ;
Label_item1.Caption = "7.Casa de marcat", ;
Label_item1.Name = "Label_item1", ;
Label_item1.TabIndex = 1
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p6.Pict_liniuta1' AS pict_liniuta WITH ;
Left = 6, ;
Name = "Pict_liniuta1", ;
Picture = ..\comun\grafice\f3.jpg, ;
Top = 122
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Pagefr1.p6.Pict_liniuta2' AS pict_liniuta WITH ;
Left = 6, ;
Name = "Pict_liniuta2", ;
Picture = ..\comun\grafice\f3.jpg, ;
Top = 157
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Pagefr1.p6.Pict_liniuta3' AS pict_liniuta WITH ;
Left = 6, ;
Name = "Pict_liniuta3", ;
Picture = ..\comun\grafice\f3.jpg, ;
Top = 85
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Pagefr1.p6.Pict_liniuta4' AS pict_liniuta WITH ;
Left = 6, ;
Name = "Pict_liniuta4", ;
Picture = ..\comun\grafice\f3.jpg, ;
Top = 192
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Pagefr1.p6.Pict_liniuta5' AS pict_liniuta WITH ;
Left = 6, ;
Name = "Pict_liniuta5", ;
Picture = ..\comun\grafice\f3.jpg, ;
Top = 226
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Pagefr1.p6.Shape1' AS pict_meniu WITH ;
Left = 1, ;
Name = "Shape1", ;
Picture = ..\comun\grafice\f2.jpg, ;
Top = 5, ;
ZOrderSet = 0
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Pagefr1.p7.Cw1' AS cw WITH ;
Left = 7, ;
Name = "Cw1", ;
nid_cw = 1, ;
TabIndex = 1, ;
Top = 12, ;
ZOrderSet = 5, ;
Label_item1.Caption = "1.Achiziþie", ;
Label_item1.FontCharSet = 238, ;
Label_item1.FontName = "Arial Narrow", ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p7.Cw2' AS cw WITH ;
Left = 7, ;
linactiv = .T., ;
Name = "Cw2", ;
nid_cw = 4, ;
TabIndex = 4, ;
Top = 97, ;
ZOrderSet = 6, ;
Label_item1.Caption = "4.Configurare", ;
Label_item1.FontCharSet = 238, ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p7.Cw3' AS cw WITH ;
Left = 7, ;
Name = "Cw3", ;
nid_cw = 2, ;
TabIndex = 2, ;
Top = 36, ;
ZOrderSet = 4, ;
Label_item1.Caption = "2.Transfer", ;
Label_item1.FontCharSet = 238, ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p7.Cw4' AS cw WITH ;
Left = 7, ;
Name = "Cw4", ;
nid_cw = 6, ;
ntip = 1, ;
TabIndex = 4, ;
Top = 169, ;
ZOrderSet = 2, ;
Label_item1.Caption = "6.Rapoarte", ;
Label_item1.FontCharSet = 238, ;
Label_item1.Name = "Label_item1", ;
Label_item1.TabIndex = 1
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p7.Cw5' AS cw WITH ;
Left = 7, ;
Name = "Cw5", ;
nid_cw = 3, ;
TabIndex = 3, ;
Top = 61, ;
ZOrderSet = 7, ;
Label_item1.Caption = "3.Vânzare", ;
Label_item1.FontCharSet = 238, ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p7.Cw6' AS cw WITH ;
Left = 7, ;
linactiv = .F., ;
Name = "Cw6", ;
nid_cw = 5, ;
ntip = 2, ;
TabIndex = 3, ;
Top = 133, ;
ZOrderSet = 3, ;
Label_item1.Caption = "5.Stocuri marfã", ;
Label_item1.FontCharSet = 238, ;
Label_item1.Name = "Label_item1", ;
Label_item1.TabIndex = 1
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p7.Cw7' AS cw WITH ;
Left = 7, ;
linactiv = .T., ;
Name = "Cw7", ;
nid_cw = 7, ;
TabIndex = 4, ;
Top = 202, ;
Visible = .F., ;
ZOrderSet = 1, ;
Label_item1.Caption = "7.Casa de marcat", ;
Label_item1.FontCharSet = 238, ;
Label_item1.Name = "Label_item1", ;
Label_item1.TabIndex = 1
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.p7.Pict_liniuta1' AS pict_liniuta WITH ;
Left = 6, ;
Name = "Pict_liniuta1", ;
Picture = ..\comun\grafice\f3.jpg, ;
Top = 122
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Pagefr1.p7.Pict_liniuta2' AS pict_liniuta WITH ;
Left = 6, ;
Name = "Pict_liniuta2", ;
Picture = ..\comun\grafice\f3.jpg, ;
Top = 157
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Pagefr1.p7.Pict_liniuta3' AS pict_liniuta WITH ;
Left = 6, ;
Name = "Pict_liniuta3", ;
Picture = ..\comun\grafice\f3.jpg, ;
Top = 85
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Pagefr1.p7.Pict_liniuta4' AS pict_liniuta WITH ;
Left = 6, ;
Name = "Pict_liniuta4", ;
Picture = ..\comun\grafice\f3.jpg, ;
Top = 192
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Pagefr1.p7.Pict_liniuta5' AS pict_liniuta WITH ;
Left = 6, ;
Name = "Pict_liniuta5", ;
Picture = ..\comun\grafice\f3.jpg, ;
Top = 226, ;
Visible = .F.
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Pagefr1.p7.Shape1' AS pict_meniu WITH ;
Left = 1, ;
Name = "Shape1", ;
Picture = ..\comun\grafice\f2.jpg, ;
Top = 5, ;
ZOrderSet = 0
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
PROCEDURE Activate
*!* 31.12.2019
*!* marius.mutu
*!* ActualizeazaNumereAct - lista cu ultimele numere NIR/BON pe gestiuni pentru utilizatorul curent
Local E,G,h,I,J
Store .F. To E,G,h,I,J
Thisform.container1.texT1.Caption=gcUserNameApp
E=Iif('-1'$gcGestPermis,.T.,.F.)
G=Iif(M.NIVEL=0 Or E,.T.,.F.)
h=Iif(m.NIVEL<3,.T.,.F.)
I=Iif(!luna_inchisa,.T.,.F.)
J=(h And I)
This.Pagefr1.P1.Enabled=G
If !G And This.Pagefr1.ActivePage=1
This.Pagefr1.ActivePage=2
Endif
This.ActualizeazaNumereAct()
ENDPROC
PROCEDURE actualizeazanumereact
* Afisare ultimele numere documente din gestiune pe utilizatorul curent (ACN)
* Nu fac nimic daca nu este configurata optiunea RG_AFISARE_NUMERE = 1
IF !(TYPE('gnRG_AFISARE_NUMERE') = 'N' AND gnRG_AFISARE_NUMERE = 1)
RETURN .F.
ENDIF
Local lcSql, lSucces, lcSelect
lcSelect = SELECT()
This.lblNumere.Visible = .F.
this.lstNumere.Visible = .F.
This.lstNumere.RowSource = ""
Dimension Thisform.aNumereDoc[1, 4]
Thisform.aNumereDoc = ""
Text To lcSql Textmerge Noshow
select distinct tipdoc, entitate, dataact, id_set, nnir, nnirmax
from (Select d.fel_document As tipdoc,
g.nume_gestiune As entitate,
r.dataact,
r.id_set,
r.nnir,
Max(r.nnir) OVER(PARTITION BY d.fel_document, g.nume_gestiune, r.id_set) As nnirmax
FROM rul r
Left Join nom_gestiuni g
On r.id_gestiune = g.id_gestiune
LEFT Join act a
On r.an = a.an
and r.luna = a.luna
and r.cod = a.cod
LEFT Join nom_fdoc d
on a.id_fdoc = d.id_fdoc
WHERE r.an = <<m.gnAn>>
and r.luna = <<m.gnLuna>>
and r.id_util = <<m.gnIdUtil>>
and r.sters = 0)
where nnir = nnirmax
Endtext
llSucces = goExecutor.oExecuta(m.lcSql, 'cNumereTemp')
If m.llSucces
Select Distinct tipdoc, entitate, INT(nnir) as nnir, TTOD(dataact) as dataact ;
From cNumereTemp ;
Into Array Thisform.aNumereDoc
Use In (Select('cNumereTemp'))
If _Tally > 0
This.lblNumere.Visible = .T.
this.lstNumere.Visible = .T.
This.lstNumere.RowSource = "Thisform.aNumereDoc"
Endif
Endif
This.lstNumere.Refresh()
SELECT (m.lcSelect)
ENDPROC
PROCEDURE getcwbynumber
Lparameters tnCWNumber
LOCAL loControl, loCW, lcCaption, lnNumber, i, lnControlCount
loCW = null
loPaginaActiva = this.oPaginaActiva
lnControlCount = this.oPaginaActiva.Controlcount
FOR i = 1 TO lnControlCount
loControl = loPaginaActiva.controls(i)
If Lower(Left(loControl.Name,2)) = 'cw'
lcCaption = loControl.label_item1.caption
lnPos = AT('.', m.lcCaption)
IF lnPos > 0
lnNumber = VAL(LEFT(lcCaption, lnPos - 1))
IF lnNumber = tnCWNumber
loCW = loControl
EXIT
ENDIF
ENDIF
Endif
Endfor
RETURN loCW
ENDPROC
PROCEDURE KeyPress
Lparameters nKeyCode, nShiftAltCtrl
Local lcNumber, lnNumber, loCW, lcNextCharacter, loControl
loControl = Null
Do Case
Case nShiftAltCtrl = 0 And Between(nKeyCode, 49, 57) && 1..9
lcNumber = Alltrim(Str(nKeyCode - 48))
IF .F. && se activeaza daca sunt peste 9 containere
If nKeyCode = 49 && 1
Set Cursor Off
Wait "" To lcNextCharacter Timeout 0.5
Set Cursor On
If Alltrim(m.lcNextCharacter)$'0123456789'
lcNumber = m.lcNumber + Alltrim(m.lcNextCharacter) && 10, 11,12,13,14,15
Endif
ENDIF
ENDIF
lnNumber = Int(Val(m.lcNumber))
loCW = This.Getcwbynumber(m.lnNumber)
If !Isnull(loCW)
If loCW.Enabled
loControl = loCW
Endif
Endif
Case nShiftAltCtrl = 0 And nKeyCode = -5 && F6 Registrul Jurnal
If Pemstatus(This, "Imagine01", 5) And This.Imagine01.Visible
loControl = This.Imagine01
Endif
Case nShiftAltCtrl = 0 And nKeyCode = -6 && F7 NIR
If Pemstatus(This, "Imagine02", 5) And This.Imagine02.Visible
loControl = This.Imagine02
Endif
Case nShiftAltCtrl = 0 And nKeyCode = -7 && F8 Bon
If Pemstatus(This, "Imagine03", 5) And This.Imagine03.Visible
loControl = This.Imagine03
Endif
Case nShiftAltCtrl = 0 And nKeyCode = -8 && F9 Rulaje
If Pemstatus(This, "Imagine04", 5) And This.Imagine04.Visible
loControl = This.Imagine04
Endif
Case nShiftAltCtrl = 0 And nKeyCode = 96 && ` = F10 Stocuri (Tratat cu ON KEY LABEL F10)
If Pemstatus(This, "Imagine05", 5) And This.Imagine05.Visible
loControl = This.Imagine05
Endif
Case nShiftAltCtrl = 0 And nKeyCode = 103 && G Gestiuni
This.Pagefr1.p1.Activate()
Case nShiftAltCtrl = 0 And nKeyCode = 109 && M Materii prime
This.Pagefr1.p2.Activate()
Case nShiftAltCtrl = 0 And nKeyCode = 111 && O Obiecte de inventar
This.Pagefr1.p3.Activate()
Case nShiftAltCtrl = 0 And nKeyCode = 112 && P Produse
this.pagefr1.p4.Activate()
Case nShiftAltCtrl = 0 And nKeyCode = 97 && A Marfa pret achizitie
This.Pagefr1.p5.Activate()
Case nShiftAltCtrl = 0 And nKeyCode = 118 && V Marfa pret vanzare
This.Pagefr1.p6.Activate()
Case nShiftAltCtrl = 0 And nKeyCode = 101 && E Marfa pret achizitie *
This.Pagefr1.p7.Activate()
Endcase
If !Isnull(loControl)
Nodefault
With loControl
.MouseEnter()
.Click()
.MouseLeave()
Endwith
Else
DoDefault(nKeyCode, nShiftAltCtrl)
Endif
ENDPROC
PROCEDURE RightClick
DO start_firma IN ostartfirma.prg
verifica_drepturi('oprinc','pagefr1')
ENDPROC
PROCEDURE selectie_achi
Local lc_cond
IF RIGHT(ALLTRIM(gcGestPermis),1)=','
gcGestPermis=LEFT(gcGestPermis,LEN(ALLTRIM(gcGestPermis))-1)
ENDIF
*!* lc_cond=[((nrg!=6) and IIF("-1"$grupepermis,.t.,INLIST(gest,]+gcGestPermis+[)))]
**********************************************************************************
lcCond=[nrg!=6]
lcGestPermis = gcGestPermis
lcFiltre = []
DO case
CASE "-1"$lcGestPermis
*
OTHERWISE
lnnr = OCCURS(",",lcGestPermis )+1
IF lnnr>24
lcFiltre = lcFiltre + " and ("
lngrupe = CEILING(lnnr/24)
lcgrupa = lcGestPermis
FOR i = 1 TO lngrupe
lnpos = AT(",",lcgrupa,24)
IF lnpos != 0
lcgrupat = LEFT(lcGrupa,lnpos-1)
ELSE
lcgrupat = lcgrupa
ENDIF
lcgrupa = SUBSTR(lcgrupa,lnpos+1)
lcFiltre = lcFiltre + " INLIST(gest,"+lcgrupat+") or "
ENDFOR
lcFiltre = LEFT(lcFiltre , LEN(lcFiltre) -4) + ")"
ELSE
lcFiltre = lcFiltre + " and INLIST(gest,"+lcGestPermis +")"
ENDIF
ENDCASE
lcCond = lcCond + lcFiltre
********************************************************************
*!* IF USED('NUMEGEST')
*!* Use In numegest
*!* Do des With 'numegest'
*!* Select * From numegest Where &lccond Into Cursor nn Order By numegest NOFILTER
*!* USE IN numegest
*!* lcdbf=DBF('nn')
*!* USE (lcdbf) again IN 0 ALIAS numegest share
*!* * SELECT * from nn INTO CURSOR numegest Order By numegest
*!* USE IN nn
*!* ENDIF
ENDPROC
PROCEDURE selectie_vanz
Local lccond
IF RIGHT(ALLTRIM(gcGestPermis),1)=','
gcGestPermis=LEFT(gcGestPermis,LEN(ALLTRIM(gcGestPermis))-1)
ENDIF
*!* lccond=[((nrg=6) and IIF("-1"$grupepermis,.t.,INLIST(gest,]+gcGestPermis+[)))]
********************************************************************
lcCond=[nrg=6]
lcGestPermis = gcGestPermis
lcFiltre = []
DO case
CASE "-1"$lcGestPermis
*
OTHERWISE
lnnr = OCCURS(",",lcGestPermis )+1
IF lnnr>24
lcFiltre = lcFiltre + " and ("
lngrupe = CEILING(lnnr/24)
lcgrupa = lcGestPermis
FOR i = 1 TO lngrupe
lnpos = AT(",",lcgrupa,24)
IF lnpos != 0
lcgrupat = LEFT(lcGrupa,lnpos-1)
ELSE
lcgrupat = lcgrupa
ENDIF
lcgrupa = SUBSTR(lcgrupa,lnpos+1)
lcFiltre = lcFiltre + " INLIST(gest,"+lcgrupat+") or "
ENDFOR
lcFiltre = LEFT(lcFiltre , LEN(lcFiltre) -4) + ")"
ELSE
lcFiltre = lcFiltre + " and INLIST(gest,"+lcGestPermis +")"
ENDIF
ENDCASE
lcCond = lcCond + lcFiltre
********************************************************************
*!* IF USED('NUMEGEST')
*!* *!* Use In numegest
*!* *!* Do des With 'numegest'
*!* *!* Select * From numegest Where &cond Into Cursor nn Order By numegest
*!* *!* USE IN numegest
*!* *!* SELECT * from nn INTO CURSOR numegest Order By numegest
*!* *!* USE IN nn
*!* Use In numegest
*!*
*!* Do des With 'numegest'
*!* Select * From numegest Where &lccond Into Cursor nn Order By numegest NOFILTER
*!* USE IN numegest
*!* lcdbf=DBF('nn')
*!* USE (lcdbf) again IN 0 ALIAS numegest share
*!* * SELECT * from nn INTO CURSOR numegest Order By numegest
*!* USE IN nn
*!* ENDIF
ENDPROC
PROCEDURE selenumegest
ENDPROC
PROCEDURE Show
Lparameters nStyle
Local w,h
w=_Screen.Width
h=_Screen.Height
This.Width=w
This.Height=h
*!* lnTopVer = this.lbversion.Top - this.image1.Top
*!* lnLeftVer = this.lbversion.Left - this.image1.Left
This.image1.Left=w-This.image1.Width
This.image1.Top=h-This.image1.Height
This.imaGE2.Width = w
*this.container1.Left=w-this.container1.Width
This.container1.Top=h-This.container1.Height
*!* this.Lbversion.Left=this.image1.Left + lnLeftVer
*!* this.Lbversion.Top=this.image1.Top + lnTopVer
With This.pagefr1
.Width=w
.Height=h
.p1.shape1.Height=h
.p2.shape1.Height=h
.p3.shape1.Height=h
.p4.shape1.Height=h
.p5.shape1.Height=h
.p6.shape1.Height=h
.p7.shape1.Height=h
Endwith
ON KEY LABEL F10 KEYBOARD "`" && F10 activa meniul in loc sa apese pe imaginea Stocuri
KEYBOARD '{CTRL+TAB}'
ENDPROC
PROCEDURE Image1.RightClick
thisform.rightclick
ENDPROC
PROCEDURE Imagine01.do_actiune
DO viz_act IN ooperatii_comune
ENDPROC
PROCEDURE Imagine02.do_actiune
*!* DO CASE
*!* CASE INLIST(gnTipGest,2,3,4,5)
*!* lans(46)
*!* CASE INLIST(gnTipGest,6)
*!* lans(49)
*!* ENDCASE
DO CASE
CASE gnTipGest = 2 AND oprinc.pagefr1.p2.cw1.enabled
lans(46)
CASE gnTipGest = 3 AND oprinc.pagefr1.p3.cw1.enabled
lans(46)
CASE gnTipGest = 4 AND oprinc.pagefr1.p4.cw8.enabled
lans(46)
CASE gnTipGest = 5 AND oprinc.pagefr1.p5.cw1.enabled
lans(43)
CASE gnTipGest = 6 AND oprinc.pagefr1.p6.cw1.enabled
lans(49)
CASE gnTipGest = 7 AND oprinc.pagefr1.p7.cw1.enabled
lans(246)
ENDCASE
ENDPROC
PROCEDURE Imagine03.do_actiune
*!* Do Case
*!* Case gnTipGest=2
*!* lans(53)
*!* Case gnTipGest=3
*!* && Do consum2 In procmeniu.prg
*!* Case gnTipGest=4
*!* lans(54)
*!* Case gnTipGest=5
*!* lans(56)
*!* ENDCASE
DO CASE
CASE gnTipGest = 2 AND oprinc.pagefr1.p2.cw2.enabled
lans(53)
CASE gnTipGest = 3 AND oprinc.pagefr1.p3.cw2.enabled
lans(55)
CASE gnTipGest = 4 AND oprinc.pagefr1.p4.cw2.enabled
lans(54)
CASE gnTipGest = 5 AND oprinc.pagefr1.p5.cw2.enabled
lans(56)
ENDCASE
ENDPROC
PROCEDURE Imagine04.do_actiune
Do viz_rulaje In oproceduri_rulaje.prg
ENDPROC
PROCEDURE Imagine05.do_actiune
LOCAL lnTipGest, lcTitlu, lcPagina
lnTipGest = gnTipGest
lcPagina = 'p'+ALLTRIM(STR(gnTipGest))
lcTitlu = thisform.pagefr1.&lcPagina..caption
IF gnTipGest = 1
lnTipGest = 0
lcTitlu = ''
ENDIF
DO viz_stocuri IN oproceduri_stocuri.prg WITH lnTipGest, lcTitlu
ENDPROC
PROCEDURE lstNumere.DblClick
_cliptext = This.ListItem(This.ListItemId,3)
ENDPROC
PROCEDURE lstNumere.RightClick
Local lcSelect
lcSelect = Select()
Create Cursor cNumereTemp (tipdoc V(100), entitate V(100), nnir I, dataact D)
Select cNumereTemp
Append From Array Thisform.aNumereDoc
GO TOP
_vfp.DataToClip('cNumereTemp',,3)
Use In (Select('cNumereTemp'))
Select (m.lcSelect)
ENDPROC
PROCEDURE Pagefr1.activate_pag
LPARAMETERS tnPagina
Local lcPagina, lnPagina
*:Global gnTipGest
lnPagina = IIF(!EMPTY(m.tnPagina), tnPagina, 1)
lcPagina = ALLTRIM(STR(lnPagina))
thisform.nPagina = m.lnPagina
thisform.oPaginaActiva = this.p&lcPagina
thisform.opaginaactiva.click()
thisform.opaginaactiva.setfocus()
gnTipGest = lnPagina
this.selectie(gnTipGest)
IF lnPagina = 1
thisform.imagine02.picture = 'IN1_B.BMP'
thisform.imagine02.pictureup = 'IN1_B.BMP'
thisform.imagine02.picturedown = 'IN2_B.BMP'
thisform.imagine03.picture = 'OUT1_B.BMP'
thisform.imagine03.pictureup = 'OUT1_B.BMP'
thisform.imagine03.picturedown = 'OUT2_B.BMP'
ELSE
thisform.imagine02.picture = 'IN1.BMP'
thisform.imagine02.pictureup = 'IN1.BMP'
thisform.imagine02.picturedown = 'IN2.BMP'
thisform.imagine03.picture = 'OUT1.BMP'
thisform.imagine03.pictureup = 'OUT1.BMP'
thisform.imagine03.picturedown = 'OUT2.BMP'
ENDIF
ENDPROC
PROCEDURE Pagefr1.p1.Cw1.do_actiune
DO config.mpr
ENDPROC
PROCEDURE Pagefr1.p1.Cw2.do_actiune
*!* DO listgen.mpr
DO rapoarte.mpr
ENDPROC
PROCEDURE Pagefr1.p1.Cw3.do_actiune
Do lista_inventar In ointroduceri.prg
ENDPROC
PROCEDURE Pagefr1.p1.Cw4.do_actiune
DO viz_act IN ooperatii_comune
ENDPROC
PROCEDURE Pagefr1.p1.Cw5.do_actiune
DO vizgen.mpr
ENDPROC
PROCEDURE Pagefr1.p1.Cw6.do_actiune
*!* 24.02.2010
*!* Do lista_inventar_magazin In ointroduceri.prg
Do lista_inventar WITH 5 In ointroduceri.prg
*!* 24.02.2010 ^
ENDPROC
PROCEDURE Pagefr1.p1.RightClick
this.parent.RightClick
ENDPROC
PROCEDURE Pagefr1.p2.Cw1.do_actiune
DO achi.mpr
ENDPROC
PROCEDURE Pagefr1.p2.Cw2.do_actiune
DO consum1.mpr
ENDPROC
PROCEDURE Pagefr1.p2.Cw3.do_actiune
DO transfer2.mpr
ENDPROC
PROCEDURE Pagefr1.p2.Cw4.do_actiune
LOCAL llIntern as Boolean
x = xmenu("Achizitie din import;Achizitie interna")
DO CASE
CASE x = 1
llIntern = .F.
DO achizitie_import WITH 208, llIntern IN ointroduceri.prg
CASE x = 2
llIntern = .T.
DO achizitie_import WITH 221, llIntern IN ointroduceri.prg
ENDCASE
ENDPROC
PROCEDURE Pagefr1.p2.Cw5.do_actiune
DO viz_stocuri IN oproceduri_stocuri.prg WITH gnTipGest,this.Parent.caption
ENDPROC
PROCEDURE Pagefr1.p2.Cw6.do_actiune
DO list1.mpr
ENDPROC
PROCEDURE Pagefr1.p2.Cw7.do_actiune
DO vanz2.mpr
ENDPROC
PROCEDURE Pagefr1.p2.Cw8.do_actiune
DO achi_transfer.mpr
ENDPROC
PROCEDURE Pagefr1.p2.RightClick
this.parent.RightClick
ENDPROC
PROCEDURE Pagefr1.p3.Cw1.do_actiune
DO achi.mpr
ENDPROC
PROCEDURE Pagefr1.p3.Cw2.do_actiune
DO consum2.mpr
ENDPROC
PROCEDURE Pagefr1.p3.Cw3.do_actiune
DO transfer2.mpr
ENDPROC
PROCEDURE Pagefr1.p3.Cw4.do_actiune
Do viz_rulaje_obinv In oproceduri_rulaje.prg
ENDPROC
PROCEDURE Pagefr1.p3.Cw5.do_actiune
DO viz_stocuri IN oproceduri_stocuri.prg WITH gnTipGest,this.Parent.caption
ENDPROC
PROCEDURE Pagefr1.p3.Cw6.do_actiune
DO list2.mpr
ENDPROC
PROCEDURE Pagefr1.p3.Cw7.do_actiune
DO viz_stocuri_obinv IN oproceduri_stocuri.prg WITH gnTipGest,this.Parent.caption, .T.
ENDPROC
PROCEDURE Pagefr1.p3.RightClick
this.parent.RightClick
ENDPROC
PROCEDURE Pagefr1.p4.Cw1.do_actiune
DO achi3.mpr
ENDPROC
PROCEDURE Pagefr1.p4.Cw2.do_actiune
DO consum3.mpr
ENDPROC
PROCEDURE Pagefr1.p4.Cw3.do_actiune
DO transfer1.mpr
ENDPROC
PROCEDURE Pagefr1.p4.Cw4.do_actiune
DO vanz3.mpr
ENDPROC
PROCEDURE Pagefr1.p4.Cw5.do_actiune
DO config3.mpr
ENDPROC
PROCEDURE Pagefr1.p4.Cw6.do_actiune
DO viz_stocuri IN oproceduri_stocuri.prg WITH gnTipGest,this.Parent.caption
ENDPROC
PROCEDURE Pagefr1.p4.Cw7.do_actiune
DO list3.mpr
ENDPROC
PROCEDURE Pagefr1.p4.Cw8.do_actiune
DO achi.mpr
ENDPROC
PROCEDURE Pagefr1.p4.RightClick
this.parent.RightClick
ENDPROC
PROCEDURE Pagefr1.p5.Cw1.do_actiune
DO achi4.mpr
ENDPROC
PROCEDURE Pagefr1.p5.Cw2.do_actiune
DO consum4.mpr
ENDPROC
PROCEDURE Pagefr1.p5.Cw3.do_actiune
DO transfer.mpr
ENDPROC
PROCEDURE Pagefr1.p5.Cw4.do_actiune
LOCAL llIntern as Boolean
x = xmenu("Achizitie din import;Achizitie interna")
DO CASE
CASE x = 1
llIntern = .F.
DO achizitie_import WITH 209, llIntern IN ointroduceri.prg
CASE x = 2
llIntern = .T.
DO achizitie_import WITH 220, llIntern IN ointroduceri.prg
ENDCASE
ENDPROC
PROCEDURE Pagefr1.p5.Cw5.do_actiune
DO vanz4.mpr
ENDPROC
PROCEDURE Pagefr1.p5.Cw6.do_actiune
DO viz_stocuri IN oproceduri_stocuri.prg WITH gnTipGest,this.Parent.caption
ENDPROC
PROCEDURE Pagefr1.p5.Cw7.do_actiune
DO list4.mpr
ENDPROC
PROCEDURE Pagefr1.p5.Cw8.do_actiune
DO achi_transfer.mpr
ENDPROC
PROCEDURE Pagefr1.p5.RightClick
this.parent.RightClick
ENDPROC
PROCEDURE Pagefr1.p6.Cw1.do_actiune
DO achi5.mpr
ENDPROC
PROCEDURE Pagefr1.p6.Cw2.do_actiune
DO config5.mpr
ENDPROC
PROCEDURE Pagefr1.p6.Cw3.do_actiune
DO transfer5.mpr
ENDPROC
PROCEDURE Pagefr1.p6.Cw4.do_actiune
DO list5.mpr
ENDPROC
PROCEDURE Pagefr1.p6.Cw5.do_actiune
DO vanz5.mpr
ENDPROC
PROCEDURE Pagefr1.p6.Cw6.do_actiune
DO viz_stocuri_pretv IN oproceduri_stocuri.prg WITH gnTipGest,this.Parent.caption
ENDPROC
PROCEDURE Pagefr1.p6.Cw7.do_actiune
DO casamarcat.mpr
*!* DO casademarcat IN oproceduri_casademarcat.prg
ENDPROC
PROCEDURE Pagefr1.p6.RightClick
this.parent.RightClick
ENDPROC
PROCEDURE Pagefr1.p7.Cw1.do_actiune
DO achi6.mpr
ENDPROC
PROCEDURE Pagefr1.p7.Cw2.do_actiune
DO config6.mpr
ENDPROC
PROCEDURE Pagefr1.p7.Cw3.do_actiune
DO transfer6.mpr
ENDPROC
PROCEDURE Pagefr1.p7.Cw4.do_actiune
DO list6.mpr
ENDPROC
PROCEDURE Pagefr1.p7.Cw5.do_actiune
DO vanz6.mpr
ENDPROC
PROCEDURE Pagefr1.p7.Cw6.do_actiune
*!* DO viz_stocuri_pretv IN oproceduri_stocuri.prg WITH gnTipGest,this.Parent.caption
DO viz_stocuri IN oproceduri_stocuri.prg WITH gnTipGest,this.Parent.caption
ENDPROC
PROCEDURE Pagefr1.p7.Cw7.do_actiune
DO casamarcat.mpr
*!* DO casademarcat IN oproceduri_casademarcat.prg
ENDPROC
PROCEDURE Pagefr1.p7.RightClick
this.parent.RightClick
ENDPROC
PROCEDURE Pagefr1.RightClick
thisform.imaGE1.RightClick
ENDPROC
PROCEDURE Pagefr1.selectie
PARAMETERS n_g
LOCAL lccond
lccond = ALLTRIM(STR(n_g))
lnTip = n_g
IF USED('nom_gestiuni')
USE IN nom_gestiuni
ENDIF
*!* modificare ROAGEST v 2.0.6
*!* DO CASE
*!* CASE "-1" $ gcGestPermis
*!* IF gnTipGest = 6
*!* lcSql = [select * from vnom_GESTIUNI where inactiv = 0 and nr_pag = ?gnTipGest order by nume_gestiune]
*!* ELSE
*!* lcSql = [select * from vnom_GESTIUNI where inactiv = 0 and nr_pag <> 6 order by nume_gestiune]
*!* ENDIF
*!* lcCursor = [nom_gestiuni]
*!* lnSucces = goExecutor.oExecute(lcSql,lcCursor)
*!* IF lnSucces < 0
*!* aMESSAGEBOX(goExecutor.cEroare,0+16,'Eroare')
*!* QUIT
*!* ENDIF
*!* goExecutor.oReset()
*!* OTHERWISE
IF gnTipGest = 6
lcSql = [select * from vnom_GESTIUNI where inactiv = 0 and nr_pag = ] + lccond + [ and id_gestiune in ] + ;
[(select g.id_gestiune from vgest_coresp_grupe_gestiuni g join ] + ;
gcs + [.vgest_coresp_util_grupe u on g.id_grupe = u.id_grupe and u.id_util = ?gnIdUtil) order by nume_gestiune]
ELSE
lcSql = [select * from vnom_GESTIUNI where inactiv = 0 and nr_pag <> 6 and id_gestiune in ] + ;
[(select g.id_gestiune from vgest_coresp_grupe_gestiuni g join ] + ;
gcs + [.vgest_coresp_util_grupe u on g.id_grupe = u.id_grupe and u.id_util = ?gnIdUtil) order by nume_gestiune]
ENDIF
lcCursor = [nom_gestiuni]
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
IF lnSucces < 0
aMESSAGEBOX(goExecutor.cEroare,0+16,'Eroare')
QUIT
ENDIF
goExecutor.oReset()
*!* ENDCASE
*!* modificare ROAGEST v 2.0.6 ^
ENDPROC
ENDDEFINE
Reference in New Issue View Git Blame Copy Permalink