nSizeCell=20
nSizeName=40

SELECT code, lpu FROM pac_foms_issleds WHERE BETWEEN(dat_obs,{^2012-01-10},{^2012-01-15}) INTO CURSOR curData

SELECT DISTINCT PADR('00000 01 LPU=',nSizeName) AS IdRow, CHRTRAN(STR(t1.lpu,3),' ','0') AS idCol, ;
 PADR(LTRIM(STR(t2.lpu)),nSizeCell) AS mark ;
 FROM curData t1 INNER JOIN lpu t2 ON t1.lpu=t2.lpu ;
UNION ;
SELECT DISTINCT PADR('00000 02 Name=',nSizeName) AS IdRow, CHRTRAN(STR(t1.lpu,3),' ','0') AS idCol, ;
 PADR(t2.nam,nSizeCell) AS mark ;
 FROM curData t1 INNER JOIN lpu t2 ON t1.lpu=t2.lpu ;
UNION ;
SELECT DISTINCT PADR('00000 03 Fomslpu=',nSizeName) AS IdRow, CHRTRAN(STR(t1.lpu,3),' ','0') AS idCol, ;
 PADR(t2.fomslpu,nSizeCell) AS mark ;
 FROM curData t1 INNER JOIN lpu t2 ON t1.lpu=t2.lpu ;
UNION ;
SELECT PADR(t1.code+'    '+NVL(t2.name_issl,''),nSizeName) AS idRow, CHRTRAN(STR(t1.lpu,3),' ','0') as idCol, ;
 PADR(LTRIM(STR(t1.mark)),nSizeCell) as mark ;
 FROM (SELECT t0.code, t0.lpu, COUNT(*) as mark FROM curData t0 GROUP BY 1,2) t1 ;
  LEFT JOIN issled t2 ON t1.code=t2.shifr ;
INTO CURSOR curTempD

DO (_GENXTAB) WITH 'curTemp',,.f.,,1,2,3,,,.f.