Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)

Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
2026-07-16 11:22:03 +03:00
commit 7ae0c39d5e
204 changed files with 66147 additions and 0 deletions
--- a/Ferestre/accesindivid.sc2
+++ b/Ferestre/accesindivid.sc2
@@ -0,0 +1,172 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="accesindivid.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+*
+DEFINE CLASS dataenvironment AS dataenvironment 
+ 	*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
+
+	*<PropValue>
+		DataSource = .NULL.
+		Height = 0
+		Left = 0
+		Name = "Dataenvironment"
+		Top = 0
+		Width = 0
+	*</PropValue>
+
+ENDDEFINE
+
+DEFINE CLASS formtermin1 AS formtermin OF "..\comun\clase\baza.vcx" 
+ 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
+
+	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
+	*< OBJECTDATA: ObjPath="TEXT_ITEM1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label_item1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label_item2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label_item3" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="List1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="List2" UniqueID="" Timestamp="" />
+
+	*<PropValue>
+		BorderStyle = 3
+		DoCreate = .T.
+		Height = 318
+		Name = "Formtermin1"
+		Width = 456
+		Shape1.Height = 32
+		Shape1.Left = 0
+		Shape1.Name = "Shape1"
+		Shape1.Top = 0
+		Shape1.Width = 455
+		TERMINAT1.COMMAND1.Name = "COMMAND1"
+		TERMINAT1.IMBUTON1.Height = 27
+		TERMINAT1.IMBUTON1.Name = "IMBUTON1"
+		TERMINAT1.IMBUTON1.Width = 30
+		TERMINAT1.Left = 424
+		TERMINAT1.Name = "TERMINAT1"
+		TERMINAT1.Top = 1
+		TITLUFRUMOS1.Caption = "Grupe de acces"
+		TITLUFRUMOS1.Height = 25
+		TITLUFRUMOS1.Left = 8
+		TITLUFRUMOS1.Name = "TITLUFRUMOS1"
+		TITLUFRUMOS1.Top = 4
+		TITLUFRUMOS1.Width = 364
+	*</PropValue>
+
+	ADD OBJECT 'Label_item1' AS label_item WITH ;
+		AutoSize = .F., ;
+		Caption = "Are drepturi de acces asupra grupelor de gestiuni :", ;
+		Height = 32, ;
+		Left = 14, ;
+		Name = "Label_item1", ;
+		Top = 106, ;
+		Width = 198, ;
+		WordWrap = .T.
+		*< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="label" />
+
+	ADD OBJECT 'Label_item2' AS label_item WITH ;
+		AutoSize = .F., ;
+		Caption = "Gestiunile:", ;
+		Height = 32, ;
+		Left = 242, ;
+		Name = "Label_item2", ;
+		Top = 106, ;
+		Width = 198, ;
+		WordWrap = .T.
+		*< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="label" />
+
+	ADD OBJECT 'Label_item3' AS label_item WITH ;
+		Caption = "Are drepturi de acces asupra tuturor gestiunilor.", ;
+		Left = 12, ;
+		Name = "Label_item3", ;
+		Top = 72, ;
+		Visible = .F.
+		*< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="label" />
+
+	ADD OBJECT 'List1' AS listbox WITH ;
+		BorderColor = 0,64,128, ;
+		FontName = "Arial Narrow", ;
+		Height = 157, ;
+		ItemBackColor = 217,241,255, ;
+		Left = 12, ;
+		Name = "List1", ;
+		RowSourceType = 1, ;
+		SpecialEffect = 1, ;
+		Top = 144, ;
+		Width = 205
+		*< END OBJECT: BaseClass="listbox" />
+
+	ADD OBJECT 'List2' AS listbox WITH ;
+		BorderColor = 0,64,128, ;
+		FontName = "Arial Narrow", ;
+		Height = 157, ;
+		ItemBackColor = 217,241,255, ;
+		Left = 240, ;
+		Name = "List2", ;
+		RowSourceType = 1, ;
+		SpecialEffect = 1, ;
+		Top = 144, ;
+		Width = 205
+		*< END OBJECT: BaseClass="listbox" />
+
+	ADD OBJECT 'TEXT_ITEM1' AS text_item WITH ;
+		ControlSource = "", ;
+		FontBold = .T., ;
+		FontUnderline = .T., ;
+		Height = 20, ;
+		Left = 12, ;
+		Name = "TEXT_ITEM1", ;
+		Top = 48, ;
+		Width = 240
+		*< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="textbox" />
+	
+	PROCEDURE Init
+		
+		PRIVATE pcutil
+		STORE '' TO pcutil
+		
+		*Are drepturi de acces asupra grupelor de gestiuni cu numerele:
+		*Are drepturi de acces asupra tuturor gestiunilor.
+		*Gestiuni cu indicativele:
+		
+		lcSql = [select utilizator from utilizatori where id_util = ] + ALLTRIM(STR(gnidutil))
+		lcCursor = [crsUtil]
+		lnSucces = goExecutor.oExecute(lcSql,lcCursor)
+		IF lnSucces < 0
+			lcMesaj = goExecutor.cEroare
+			ofrm_eroare =CREATEOBJECT('frm_mesaj',[Eroare],[exclam.ico],[Avertizare],lcMesaj)
+			ofrm_eroare.show()
+			RELEASE ofrm_eroare
+			return
+		ENDIF
+		
+		pcutil = &lcCursor..utilizator
+		this.text_item1.ControlSource = [pcutil]
+		
+		IF '-1'$gcGrupePermis
+			this.label_item1.Visible=.f.
+			this.label_item2.Visible=.f.
+			this.list1.Visible=.f.
+			this.list2.Visible=.f.
+			this.label_item3.Visible=.t.
+		ENDIF
+		
+		IF EMPTY(gcGrupePermis_nume)
+			this.label_item1.Caption = [Nu are drepturi pe grupe de gestiuni!]
+			this.list1.Visible=.f.
+		ENDIF 
+		
+		IF EMPTY(gcGestPermis_nume)
+			this.label_item2.Caption = [Nu are drepturi pe gestiuni!]
+			this.list2.Visible=.f.
+		ENDIF 
+		
+		this.list1.RowSource = (gcGrupePermis_nume)
+		this.list2.RowSource = (gcGestPermis_nume)
+		
+		
+	ENDPROC
+
+ENDDEFINE