39 lines
688 B
Plaintext
39 lines
688 B
Plaintext
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 |