*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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