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/Clase/oavize.vc2
+++ b/Clase/oavize.vc2
@@ -0,0 +1,137 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="oavize.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+*
+DEFINE CLASS frm_date_aviz AS frm_termin_renunt OF "..\comun\clase\_frm_child.vcx" 
+ 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
+
+	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
+	*< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Clb_serie_act" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Ct_clb_cautare1" UniqueID="" Timestamp="" />
+
+	*<DefinedPropArrayMethod>
+		*m: do_cauta_altele
+	*</DefinedPropArrayMethod>
+
+	*<PropValue>
+		DoCreate = .T.
+		Height = 146
+		Name = "frm_date_aviz"
+		Width = 375
+		_shape1.Name = "_shape1"
+		_shape2.Height = 29
+		_shape2.Left = 312
+		_shape2.Name = "_shape2"
+		_shape2.Top = 0
+		_shape2.Width = 65
+		Lb_titlu_alb_b121.Caption = "Date aviz"
+		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
+		BUT_TERMIN1.Left = 344
+		BUT_TERMIN1.Name = "BUT_TERMIN1"
+		BUT_TERMIN1.Top = 1
+		Gridsort1.Left = 132
+		Gridsort1.Name = "Gridsort1"
+		Gridsort1.Top = 12
+		But_renunt1.Left = 315
+		But_renunt1.Name = "But_renunt1"
+		But_renunt1.Top = 1
+	*</PropValue>
+
+	ADD OBJECT 'Clb_serie_act' AS clb_serie_act WITH ;
+		cvariabila = serie_act, ;
+		cvariabiladoc = nract, ;
+		Left = 12, ;
+		Name = "Clb_serie_act", ;
+		nid_tipdoc = 6, ;
+		pcobj = poDate, ;
+		Top = 41, ;
+		Width = 314, ;
+		Text_simplu1.Name = "Text_simplu1", ;
+		_cbbase1.Name = "_cbbase1", ;
+		_lbbase1.Name = "_lbbase1"
+		*< END OBJECT: ClassLib="..\comun\clase\serii_numere.vcx" BaseClass="container" />
+
+	ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ;
+		Height = 29, ;
+		Left = 12, ;
+		Name = "Clb_tx_simplu2", ;
+		Top = 69, ;
+		Width = 314, ;
+		Text_simplu1.ControlSource = "poDate.nract", ;
+		Text_simplu1.InputMask = (get_mask(14,0)), ;
+		Text_simplu1.Left = 125, ;
+		Text_simplu1.Name = "Text_simplu1", ;
+		Text_simplu1.Top = 3, ;
+		Lb_simplu1.Caption = "Numarul avizului", ;
+		Lb_simplu1.Name = "Lb_simplu1"
+		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
+
+	ADD OBJECT 'Ct_clb_cautare1' AS ct_clb_cautare WITH ;
+		cconditie = EMPTY(NVL(poDate.listaid,'')), ;
+		cprocedura = thisform.do_cauta_altele, ;
+		cvar_afisata = poDate.descriere, ;
+		Left = 12, ;
+		Name = "Ct_clb_cautare1", ;
+		Top = 103, ;
+		img_cautare.Name = "img_cautare", ;
+		clb_tx_cautare.Lb_simplu1.Caption = "Gestiune destinatie", ;
+		clb_tx_cautare.Lb_simplu1.Name = "Lb_simplu1", ;
+		clb_tx_cautare.Name = "clb_tx_cautare", ;
+		clb_tx_cautare.Text_simplu1.Name = "Text_simplu1"
+		*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" />
+	
+	PROCEDURE do_cauta_altele
+		Local loCauta
+		loCauta = caut_gestiune_dest(poDate.id_client)
+		If !Isnull(loCauta) And !Empty(Nvl(loCauta.id_gestiune,0))
+			poDate.listaid = loCauta.id_gestiune
+			poDate.descriere = loCauta.nume_gestiune
+		
+			poDateGestiuneDest.id_gestiune = loCauta.id_gestiune
+			poDateGestiuneDest.id_tipgest = loCauta.id_tipgest
+			poDateGestiuneDest.Cont = Nvl(loCauta.Cont,[XXXX])
+			poDateGestiuneDest.acont = Nvl(loCauta.acont,[XXXX])
+		
+			This.ct_clb_cautare1.Refresh()
+		Endif
+		
+	ENDPROC
+
+	PROCEDURE inainte_de_do_termin
+		Local llReturn
+		Store .T. To llReturn
+		Do Case
+		Case Empty(Nvl(poDate.nract,0))
+			amessagebox("Numarul avizului trebuie sa fie diferit de 0!",48,"Atentie")
+			llReturn = .F.
+			Thisform.clb_tx_simplu2.SetFocus()
+		Case Empty(Nvl(poDate.listaid,''))
+			amessagebox("Nu ati ales gestiunea destinatie!",48,"Atentie")
+			llReturn = .F.
+			Thisform.ct_clb_cautare1.SetFocus()
+		Otherwise
+			llReturn = .T.
+		Endcase
+		Return llReturn
+		
+	ENDPROC
+
+	PROCEDURE Init
+		DoDefault()
+		With Thisform
+			If Inlist(poDate.rezultat_serii,1,3)
+				Thisform.clb_serie_act.do_initializeaza(poDate.rezultat_serii)
+				Thisform.clb_serie_act.SetFocus()
+			Else
+				lnHeight = lnHeight - Thisform.clb_serie_act.Height
+				laPozitii(Thisform.clb_serie_act.TabIndex,2)=1
+				Thisform.RemoveObject('clb_serie_act')
+				Thisform.clb_nract.SetFocus()
+			Endif
+		Endwith
+	ENDPROC
+
+ENDDEFINE