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

Co-Authored-By: Claude Opus 5 (1M context) <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_015husoVS24ewJZr21ZoVR3v

Meniuri/blocaredel.mn2

@@ -0,0 +1,167 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="blocaredel.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+*<MenuType>4</MenuType>
+*<MenuLocation>REPLACE</MenuLocation>
+
+*<MenuCode>
+DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL()
+DEFINE BAR 1 OF Shortcut PROMPT "\<Blocare de luna"
+ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
+
+DEFINE BAR 2 OF Shortcut PROMPT "\<Situatia lunilor blocate"
+ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P
+ACTIVATE POPUP Shortcut
+
+*</MenuCode>
+
+*<Procedures>
+PROCEDURE BAR_1_OF_Shortcut_FB2P
+	sele calendar
+	
+	loca for nl=m.nl and an=m.an
+	if smf
+		do mesaj with 'Luna '+m.nl+' '+m.an+' este inchisa!',''
+	else
+		oi=crea('danuinchid')
+		oi.show(1)
+		if buton=1
+			sele calendar
+			loca for nl=m.nl and an=m.an
+			repl smf with .t.
+			luna_inchisa=.t.
+		endif
+	endif
+ENDPROC && BAR_1_OF_Shortcut_FB2P
+
+PROCEDURE BAR_2_OF_Shortcut_FB2P
+	Store 0 To lnprogram,lnfirma,lncalendar
+	Store {//} To lddata
+	Store '' To lcfirma,lcprogram
+	Store '' To poLista1
+	Store '' To poLista2
+	Store '' To poLista3
+	Store '' To pcselect
+	*///////////////////////////////////////////////////////////////////////////////////
+	*-----------
+	*!*	pcSchema=['']
+	*!*	pcSelect=[select id_program,denumire from contafin_oracle.nom_programe where 1=2]
+	*!*	pcOrder=[denumire]
+	*!*	pcFiltru = [1=1]
+	*!*	llAfiseaza = .F.
+	*!*	gencursor('poLista1','crsprograme',pcSelect,pcFiltru,pcSchema,pcOrder,llAfiseaza)
+	*!*	poLista1.ca_baza1.afisare()
+	*--------
+	
+	lcsql = "select id_program,denumire from contafin_oracle.nom_programe order by denumire"
+	*STRTOFILE(lcsql,'c:\seleprograme.txt')
+	lnSucces=goExecutor.oExecute(lcsql,'crsprograme')
+	If lnSucces<0
+		aMESSAGEBOX(goExecutor.cEroare,16,"Eroare")
+		Return
+	Endif
+	
+	Select  crsprograme
+	Go Top
+	lnprogram=id_program
+	lcprogram=Alltrim(denumire)
+	*///////////////////////////////////////////////////////////////////////////////////
+	
+	
+	
+	*///////////////////////////////////////////////////////////////////////////////////
+	*---------
+	*!*	pcSchema=['']
+	*!*	pcSelect=['select id_firma,schema  from  contafin_oracle.nom_firme ]
+	*!*	pcOrder=[schema]
+	*!*	pcFiltru = []
+	*!*	llAfiseaza = .F.
+	*!*	gencursor('poLista2','crsfirme',pcSelect,pcFiltru,pcSchema,pcOrder,llAfiseaza)
+	*!*	poLista2.ca_baza1.afisare()
+	*---------
+	
+	lcsql = "select id_firma,schema  from  contafin_oracle.nom_firme order by firma"
+	*STRTOFILE(lcsql,'c:\selefirme.txt')
+	lnSucces=goExecutor.oExecute(lcsql,'crsfirme')
+	If lnSucces<0
+		aMESSAGEBOX(goExecutor.cEroare,16,"Eroare")
+		Return
+	Endif
+	
+	Select crsfirme
+	Go Top
+	lnfirma=id_firma
+	lcfirma=Alltrim(schema)
+	*///////////////////////////////////////////////////////////////////////////////////
+	
+	
+	
+	
+	
+	
+	*///////////////////////////////////////////////////////////////////////////////////
+	* se face un update la tabela de blocari
+	lcsql= " select id_calendar,nl,an from "+lcfirma+".calendar where ( id_calendar not in "+;
+		" (select id_calendar from "+lcfirma+".blocatprogramluni where id_program ="+Alltrim(Str(lnprogram))+"  ) )"
+	
+	lnSucces=goExecutor.oExecute(lcsql,'crsplusluni')
+	If lnSucces<0
+		aMESSAGEBOX(goExecutor.cEroare,16,"Eroare")
+		Return
+	Endif
+	
+	Select crsplusluni
+	*brow
+	If Reccount()>0
+	*MESSAGEBOX("intrat in scan ! ")
+		Scan
+			lcsql=" insert into "+lcfirma+".blocatprogramluni(id_program,id_calendar,blocat,lunaan)"+;
+				" values ( "+Alltrim(Str(lnprogram))+","+Alltrim(Str(id_calendar))+",0,"+;
+				" to_date("+Alltrim(nl)+"||'/'||"+Alltrim(an)+",'mm/yyyy') )"
+			Strtofile(lcsql,'c:\insertluni.txt')
+			lnSucces=goExecutor.oExecute(lcsql)
+			If lnSucces<0
+				aMESSAGEBOX(goExecutor.cEroare,16,"Eroare")
+				Return
+			Endif
+			Select crsplusluni
+		Endscan
+	Endif
+	
+	
+	*-----------
+	*!*	pcSchema=['']
+	*!*	pcSelect=['select lunaan,blocat from  ]+lcfirma+[.blocatprogramluni where 1=2']
+	*!*	pcOrder=[lunaan]
+	*!*	pcFiltru = [id_program=]+ALLTRIM(STR(lnprogram))
+	*!*	llAfiseaza = .F.
+	*!*	gencursor('poLista3','crslunian',pcSelect,pcFiltru,pcSchema,pcOrder,llAfiseaza)
+	*!*	poLista.ca_baza1.afisare()
+	
+	*-----------
+	lcsql = " select lunaan,blocat,id_calendar from  "+lcfirma+".blocatprogramluni where "+;
+		" id_program="+Alltrim(Str(lnprogram))+"order by lunaan "
+	*STRTOFILE(lcsql,'c:\selelunianblocat.txt')
+	lnSucces=goExecutor.oExecute(lcsql,'crslunian')
+	If lnSucces<0
+		aMESSAGEBOX(goExecutor.cEroare,16,"Eroare")
+		Return
+	Endif
+	Select crslunian
+	
+	*///////////////////////////////////////////////////////////////////////////////////
+	ovizblocate=Createobject('frm_viz_blocate')
+	ovizblocate.Show(1)
+	
+	
+	
+	
+	
+	
+	
+	
+ENDPROC && BAR_2_OF_Shortcut_FB2P
+
+*</Procedures>