sync SVN r18058

2026-08-26 12:49:21 +03:00
commit f0d5151c24
46 changed files with 13195 additions and 0 deletions
--- a/Clase/ofundal_preturi.vc2
+++ b/Clase/ofundal_preturi.vc2
@@ -0,0 +1,106 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="ofundal_preturi.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+*
+DEFINE CLASS pg_meniu_princ AS pg_meniu OF "..\comun\clase\ofundal.vcx" 
+ 	*< CLASSDATA: Baseclass="pageframe" Timestamp="" Scale="Pixels" Uniqueid="" />
+
+	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
+	*< OBJECTDATA: ObjPath="Page1.Pict_meniu1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Page1.Cw1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Page1.Cw6" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Page1.Cw7" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Page1.Pict_liniuta2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Page2.Pict_meniu1" UniqueID="" Timestamp="" />
+
+	*<PropValue>
+		ErasePage = .T.
+		Height = 256
+		Name = "pg_meniu_princ"
+		PageCount = 2
+		Themes = .F.
+		Width = 799
+		Page1.Caption = "Configurare"
+		Page1.Name = "Page1"
+		Page2.Caption = ""
+		Page2.Enabled = .F.
+		Page2.Name = "Page2"
+	*</PropValue>
+
+	ADD OBJECT 'Page1.Cw1' AS cw WITH ;
+		Left = 3, ;
+		Name = "Cw1", ;
+		TabIndex = 3, ;
+		Top = 22, ;
+		Label_item1.Caption = "Catalog de articole", ;
+		Label_item1.Name = "Label_item1"
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
+
+	ADD OBJECT 'Page1.Cw6' AS cw WITH ;
+		Height = 20, ;
+		Left = 3, ;
+		Name = "Cw6", ;
+		TabIndex = 4, ;
+		Top = 76, ;
+		Width = 117, ;
+		Label_item1.Caption = "Liste de preturi", ;
+		Label_item1.Name = "Label_item1"
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
+
+	ADD OBJECT 'Page1.Cw7' AS cw WITH ;
+		Height = 20, ;
+		Left = 3, ;
+		Name = "Cw7", ;
+		nid_cw = 8, ;
+		ntip = 1, ;
+		TabIndex = 1, ;
+		Top = 49, ;
+		Width = 117, ;
+		Label_item1.Caption = "Note de vanzari", ;
+		Label_item1.Name = "Label_item1"
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
+
+	ADD OBJECT 'Page1.Pict_liniuta2' AS pict_liniuta WITH ;
+		Left = 3, ;
+		Name = "Pict_liniuta2", ;
+		Picture = ..\comun\grafice\f3.jpg, ;
+		Top = 101
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
+
+	ADD OBJECT 'Page1.Pict_meniu1' AS pict_meniu WITH ;
+		Anchor = 7, ;
+		Height = 553, ;
+		Left = 0, ;
+		Name = "Pict_meniu1", ;
+		Picture = ..\grafice\f2.jpg, ;
+		Top = 8, ;
+		Width = 133
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
+
+	ADD OBJECT 'Page2.Pict_meniu1' AS pict_meniu WITH ;
+		Anchor = 7, ;
+		Left = 0, ;
+		Name = "Pict_meniu1", ;
+		Picture = ..\grafice\f2.jpg, ;
+		Top = 8
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
+	
+	PROCEDURE Page1.Cw1.do_actiune
+		Do viz_catalog_articole In onom_preturi.prg
+	ENDPROC
+
+	PROCEDURE Page1.Cw6.do_actiune
+		Do viz_politici In onom_preturi.prg
+		
+	ENDPROC
+
+	PROCEDURE Page1.Cw7.do_actiune
+		* DO viz_note_vanzari IN onom_preturi.prg
+		LOCAL llCRM 
+		llCRM = .T.
+		DO configurare_note WITH llCRM IN omeniu_initializari.prg
+	ENDPROC
+
+ENDDEFINE
--- a/Clase/ofundal_roapreturi.vc2
+++ b/Clase/ofundal_roapreturi.vc2
@@ -0,0 +1,339 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="ofundal_roapreturi.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+*
+DEFINE CLASS pagefr AS pg_meniu OF "..\comun\clase\ofundal.vcx" 
+ 	*< CLASSDATA: Baseclass="pageframe" Timestamp="" Scale="Pixels" Uniqueid="" />
+
+	*<PropValue>
+		ErasePage = .T.
+		Height = 177
+		Name = "pagefr"
+		PageCount = 2
+		Themes = .F.
+		Width = 428
+		Page1.Caption = "Configurare"
+		Page1.Name = "Page1"
+		Page2.Caption = ""
+		Page2.Name = "Page2"
+	*</PropValue>
+
+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="Image2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Pagefr1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Pagefr1.Page1.shape1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Pagefr1.Page1.Cw2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Pagefr1.Page1.Cw1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Pagefr1.Page1.Cw3" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Pagefr1.Page2.Cw3" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="lb_utilizator" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Imagine01" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="lb_utilizator1" UniqueID="" Timestamp="" />
+
+	*<PropValue>
+		AlwaysOnTop = .F.
+		BackColor = 255,255,255
+		BorderStyle = 0
+		ControlBox = .F.
+		DoCreate = .T.
+		Left = 0
+		Name = "princ"
+		ShowTips = .T.
+		Top = 0
+		WindowState = 2
+	*</PropValue>
+
+	ADD OBJECT 'Image1' AS image WITH ;
+		Anchor = 12, ;
+		Height = 220, ;
+		Left = 182, ;
+		Name = "Image1", ;
+		Picture = ..\grafice\roapreturi.bmp, ;
+		Top = 195, ;
+		Width = 556, ;
+		ZOrderSet = 2
+		*< END OBJECT: BaseClass="image" />
+
+	ADD OBJECT 'Image2' AS image WITH ;
+		Anchor = 11, ;
+		BackStyle = 1, ;
+		Height = 63, ;
+		Left = 0, ;
+		Name = "Image2", ;
+		Picture = ..\comun\grafice\f1.jpg, ;
+		Stretch = 2, ;
+		Top = 0, ;
+		Width = 804, ;
+		ZOrderSet = 0
+		*< END OBJECT: BaseClass="image" />
+
+	ADD OBJECT 'Imagine01' AS imagine WITH ;
+		ccod = A03, ;
+		Height = 54, ;
+		Left = 9, ;
+		Name = "Imagine01", ;
+		nid_img = 1, ;
+		picturedown = lista2.bmp, ;
+		pictureup = lista1.bmp, ;
+		ToolTipText = "Drepturi de acces la listele de preturi", ;
+		Top = 1, ;
+		Width = 45
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
+
+	ADD OBJECT 'lb_utilizator' AS lb_simplu WITH ;
+		Anchor = 9, ;
+		Caption = "Operator:", ;
+		FontItalic = .T., ;
+		ForeColor = 255,255,255, ;
+		Left = 457, ;
+		Name = "lb_utilizator", ;
+		Top = 9, ;
+		ZOrderSet = 4
+		*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />
+
+	ADD OBJECT 'lb_utilizator1' AS lb_simplu WITH ;
+		Anchor = 9, ;
+		Caption = "nume_utilizator", ;
+		FontBold = .T., ;
+		FontItalic = .T., ;
+		ForeColor = 255,255,255, ;
+		Left = 513, ;
+		Name = "lb_utilizator1", ;
+		Top = 9, ;
+		Visible = .F., ;
+		ZOrderSet = 5
+		*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />
+
+	ADD OBJECT 'Pagefr1' AS pagefr WITH ;
+		ErasePage = .T., ;
+		Height = 475, ;
+		Left = -1, ;
+		Name = "Pagefr1", ;
+		Top = 59, ;
+		Width = 804, ;
+		Page1.Name = "Page1", ;
+		Page2.Caption = "Liste de pre<72>uri", ;
+		Page2.Name = "Page2"
+		*< END OBJECT: ClassLib="ofundal_roapreturi.vcx" BaseClass="pageframe" />
+
+	ADD OBJECT 'Pagefr1.Page1.Cw1' AS cw WITH ;
+		Left = 4, ;
+		Name = "Cw1", ;
+		nid_cw = 1, ;
+		ntip = 1, ;
+		TabIndex = 3, ;
+		Top = 12, ;
+		ZOrderSet = 4, ;
+		LABEL_ITEM1.Caption = "Catalog de articole", ;
+		LABEL_ITEM1.Name = "LABEL_ITEM1"
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
+
+	ADD OBJECT 'Pagefr1.Page1.Cw2' AS cw WITH ;
+		Height = 20, ;
+		Left = 4, ;
+		Name = "Cw2", ;
+		nid_cw = 2, ;
+		ntip = 1, ;
+		TabIndex = 1, ;
+		Top = 39, ;
+		Width = 117, ;
+		ZOrderSet = 2, ;
+		LABEL_ITEM1.Caption = "Note de v<>nz<6E>ri", ;
+		LABEL_ITEM1.Name = "LABEL_ITEM1"
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
+
+	ADD OBJECT 'Pagefr1.Page1.Cw3' AS cw WITH ;
+		Height = 31, ;
+		Left = 4, ;
+		Name = "Cw3", ;
+		nid_cw = 3, ;
+		ntip = 1, ;
+		TabIndex = 1, ;
+		Top = 67, ;
+		Width = 117, ;
+		ZOrderSet = 2, ;
+		Label_item1.Caption = "Drepturi de acces la listele de pre<72>uri", ;
+		Label_item1.Height = 30, ;
+		Label_item1.Left = 5, ;
+		Label_item1.Name = "Label_item1", ;
+		Label_item1.Top = 1, ;
+		Label_item1.Width = 99, ;
+		Label_item1.WordWrap = .T.
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
+
+	ADD OBJECT 'Pagefr1.Page1.shape1' AS pict_meniu WITH ;
+		Anchor = 7, ;
+		Height = 420, ;
+		Left = 0, ;
+		Name = "shape1", ;
+		Picture = ..\comun\grafice\f2.jpg, ;
+		Top = -4, ;
+		Width = 133
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
+
+	ADD OBJECT 'Pagefr1.Page2.Cw3' AS cw WITH ;
+		Height = 20, ;
+		Left = 12, ;
+		Name = "Cw3", ;
+		nid_cw = 1, ;
+		ntip = 4, ;
+		TabIndex = 4, ;
+		Top = 45, ;
+		Width = 117, ;
+		ZOrderSet = 3, ;
+		Label_item1.Caption = "Liste de preturi", ;
+		Label_item1.Name = "Label_item1"
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
+	
+	PROCEDURE RightClick
+		Thisform.image1.RightClick()
+	ENDPROC
+
+	PROCEDURE Show
+		Lparameters nStyle
+		
+		*!*	verifica_drepturi('oprinc','pagefr1')
+		
+		* comentat 15.09.2006
+		*!*	Local lnScrH,lnScrW
+		
+		*!*	_SCREEN.HEIGHT = THISFORM.HEIGHT
+		*!*	_SCREEN.WIDTH = THISFORM.WIDTH
+		
+		*!*	_Screen.AutoCenter=.T.
+		*!*	_Screen.Refresh
+		*!*	Thisform.Left=0
+		*!*	Thisform.Top=0
+		
+		
+		*****
+		Local w,h
+		w=_Screen.Width
+		h=_Screen.Height
+		
+		This.Width = w
+		This.Height = h
+		
+		*!*	This.image1.Left=w-This.image1.Width
+		*!*	This.image1.Top=h-This.image1.Height
+		*!*	This.lb_utilizator.Top=h-This.lb_utilizator.Height
+		*!*	This.lb_utilizator1.Top=h-This.lb_utilizator1.Height
+		*!*	This.image2.Width = w + 180
+		
+		With This.pagefr1
+			.Width = w
+			.Height = h
+			.page1.shape1.Height = h
+		ENDWITH
+		
+		
+		
+	ENDPROC
+
+	PROCEDURE Image1.RightClick
+		Do start_firma In ostartfirma.prg
+		
+		** Initializez gnRon corespunzator lunii in care am intrat
+		Local lcLunaRon, lcAnulRon, lnValue, lcExec, lnSucces, lcTextEroare
+		lcLunaRon = Substr(gcDataRon,1,2)
+		lcAnulRon = Substr(gcDataRon,4,4)
+		If gnAn * 12 + gnLuna < Val(lcAnulRon) * 12 + Val(lcLunaRon)
+			lnValue = 2
+		Else
+			lnValue = 1
+		Endif
+		
+		lcExec = [update optiuni set varvalue = ] + Alltrim(Str(lnValue)) + [ where varname = 'RON']
+		
+		lnSucces = goExecutor.oExecute(lcExec)
+		If lnSucces < 0
+			lcTextEroare = goExecutor.cEroare
+			aMessagebox(lcTextEroare,48,"Eroare")
+			Return
+		Endif
+		
+		Do oinit_optiuni.prg
+		**
+		
+		verifica_drepturi('oprinc','pagefr1')
+		
+		
+		
+	ENDPROC
+
+	PROCEDURE Imagine01.do_actiune
+		LOCAL llCRM 
+		llCRM = .T.
+		DO acces_liste IN omeniu_initializari.prg
+	ENDPROC
+
+	PROCEDURE Pagefr1.Page1.Cw1.do_actiune
+		Do viz_catalog_articole In oproceduri_articole.prg
+	ENDPROC
+
+	PROCEDURE Pagefr1.Page1.Cw2.do_actiune
+		* DO viz_note_vanzari IN onom_preturi.prg
+		LOCAL llCRM 
+		llCRM = .T.
+		DO configurare_note WITH llCRM IN omeniu_initializari.prg
+	ENDPROC
+
+	PROCEDURE Pagefr1.Page1.Cw3.do_actiune
+		* DO viz_note_vanzari IN onom_preturi.prg
+		LOCAL llCRM 
+		llCRM = .T.
+		DO acces_liste IN omeniu_initializari.prg
+	ENDPROC
+
+	PROCEDURE Pagefr1.Page1.RightClick
+		Do start_firma In ostartfirma.prg
+		
+		** Initializez gnRon corespunzator lunii in care am intrat
+		Local lcLunaRon, lcAnulRon, lnValue, lcExec, lnSucces, lcTextEroare
+		lcLunaRon = Substr(gcDataRon,1,2)
+		lcAnulRon = Substr(gcDataRon,4,4)
+		If gnAn * 12 + gnLuna < Val(lcAnulRon) * 12 + Val(lcLunaRon)
+			lnValue = 2
+		Else
+			lnValue = 1
+		Endif
+		
+		lcExec = [update optiuni set varvalue = ] + Alltrim(Str(lnValue)) + [ where varname = 'RON']
+		
+		lnSucces = goExecutor.oExecute(lcExec)
+		If lnSucces < 0
+			lcTextEroare = goExecutor.cEroare
+			aMessagebox(lcTextEroare,48,"Eroare")
+			Return
+		Endif
+		
+		Do oinit_optiuni.prg
+		**
+		
+		verifica_drepturi('oprinc','pagefr1')
+	ENDPROC
+
+	PROCEDURE Pagefr1.Page2.Click
+		Do viz_politici In onom_preturi.prg
+		thisform.pagefr1.page1.SetFocus
+		
+	ENDPROC
+
+	PROCEDURE Pagefr1.Page2.Cw3.do_actiune
+		Do viz_politici In onom_preturi.prg
+		*!*	thisform.pagefr1.page1.SetFocus
+	ENDPROC
+
+	PROCEDURE Pagefr1.RightClick
+		Thisform.image1.RightClick()
+	ENDPROC
+
+ENDDEFINE
--- a/Clase/onom_preturi.vc2
+++ b/Clase/onom_preturi.vc2
--- a/Clase/opreturi.vc2
+++ b/Clase/opreturi.vc2
@@ -0,0 +1,98 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="opreturi.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+*
+DEFINE CLASS capplication AS wzapplication OF "..\..\roacont\clase\appwiz.vcx" 		&& Application class.
+ 	*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
+
+	*<PropValue>
+		clastcaption = Microsoft Visual FoxPro
+		clasticon = 
+		Name = "capplication"
+		nformcount = 0
+	*</PropValue>
+	
+	PROCEDURE doform
+		LPARAMETERS tcFileName,tcClass,tlNoMultipleInstances,tlNoShow
+		LOCAL lcFileName,lcClass,oForm,oForm2,lcName,lnCount,lnTop,lnLeft
+		LOCAL lcFormName,lnFormCount
+		
+		_screen.visible=.t.
+		
+		lcFileName=UPPER(ALLTRIM(tcFileName))
+		IF EMPTY(lcFileName)
+			RETURN .F.
+		ENDIF
+		lcClass=IIF(TYPE("tcClass")=="C",LOWER(ALLTRIM(tcClass)),"")
+		lcFileName=LOWER(FULLPATH(lcFileName))
+		IF NOT "."$lcFileName
+			lcFileName=lcFileName+IIF(EMPTY(lcClass),".scx",".vcx")
+		ENDIF
+		IF NOT FILE(lcFileName)
+			this.FileNotFoundMsgBox(lcFileName)
+			RETURN .F.
+		ENDIF
+		lcFormName=IIF(EMPTY(lcClass),lcFileName,lcFileName+","+lcClass)
+		IF tlNoMultipleInstances
+			FOR lnCount = 1 TO this.nFormCount
+				IF this.aFormNames[lnCount]==lcFormName AND ;
+						TYPE("this.aForms[lnCount]")=="O" AND ;
+						NOT ISNULL(this.aForms[lnCount])
+					this.aForms[lnCount].Show
+					RETURN .F.
+				ENDIF
+			ENDFOR
+		ENDIF
+		this.RefreshFormsCollection
+		this.nFormCount=this.nFormCount+1
+		DIMENSION this.aForms[this.nFormCount],this.aFormNames[this.nFormCount]
+		this.aFormNames[this.nFormCount]=lcFormName
+		IF NOT EMPTY(lcClass)
+			SET CLASSLIB TO (lcFileName) ADDITIVE
+			this.aForms[this.nFormCount]=CREATEOBJECT(lcClass)
+			IF NOT tlNoShow AND TYPE("this.aForms[this.nFormCount]")=="O" AND ;
+					NOT ISNULL(this.aForms[this.nFormCount])
+				this.aForms[this.nFormCount].Show
+			ENDIF
+		ELSE
+			DO FORM (lcFileName) NAME this.aForms[this.nFormCount] LINKED NOSHOW
+		ENDIF
+		lnFormCount=this.nFormCount
+		this.RefreshFormsCollection
+		IF this.lCascadeForms AND this.nFormCount>=lnFormCount
+			oForm=this.aForms[this.nFormCount]
+			lnTop=oForm.Top
+			lnLeft=oForm.Left
+			lcName=oForm.Name
+			IF WEXIST(lcName) AND oForm.WindowState#2
+				FOR lnCount = 1 TO (this.nFormCount-1)
+					oForm2=this.aForms[lnCount]
+					IF TYPE("oForm2")#"O" OR ISNULL(oForm2)
+						LOOP
+					ENDIF
+					IF lcName==oForm2.Name AND WLROW(lcName)=WLROW(oForm2.Name) AND ;
+							WLCOL(lcName)=WLCOL(oForm2.Name)
+						lnTop=lnTop+this.nPixelOffset
+						lnLeft=lnLeft+this.nPixelOffset
+					ENDIF
+				ENDFOR
+				IF oForm.Top#lnTop
+					oForm.Top=lnTop
+				ENDIF
+				IF oForm.Left#lnLeft
+					oForm.Left=lnLeft
+				ENDIF
+			ENDIF
+		ENDIF
+		
+		*!* modificat 18.10.2004
+		*!* Marius
+		IF !(tlNoShow OR ('LOGIN'$UPPER(lcFileName) and glParametri))
+			this.aForms[this.nFormCount].Show 
+		ENDIF
+		
+	ENDPROC
+
+ENDDEFINE