Initial commit — sursa ROAIMOB

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>

Programe/Vechi/SITAN1.PRG

@@ -0,0 +1,39 @@
+SET SAFETY OFF
+
+
+local i,t,k
+public m.an m.nl m.t_2121 m.t_2122 m.t_2123 m.t_2124 m.t_2125 m.t_2126 an nl
+*store ' ' to m.an, m.nl
+store 0 to i, k, m.t_2121, m.t_2122, m.t_2123, m.t_2124, m.t_2125, m.t_2126
+
+sele 0
+use &DIRGEN\MFIX2000\datE\sitmf.dbf EXCLUSIVE ALIAS SITMF
+ZAP
+
+sele mf 
+use 
+
+SELE CALENDAR
+scan
+scatter memvar
+
+*cale = 'c:\delta\data\an'+m.an+'\date'+m.nl
+SELECT 0
+use &DATE\mf.dbf again alias mf
+
+for i=1 to 6	
+	t='sum ceiling(valoare/normat) to m.t_212' +str(i,1)+' for scd = "212'+str(i,1)+'" '
+	&t
+next
+sele sitmf
+appe blank
+gather memvar
+SELE MF
+USE
+endscan	
+
+SELE SITMF
+report form sitmf1 TO PRINTER PROMPT PREVIEW
+USE
+
+do totv