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