nSizeCell=50
nSizeName=90

SELECT code, lpu FROM pac_foms_issleds1 WHERE excluded=.f.;
	union all (SELECT code, lpu FROM pac_foms_issleds2 WHERE excluded=.f.);
	union all (SELECT code, lpu FROM pac_foms_issleds3 WHERE excluded=.f.);
	union all (SELECT code, lpu FROM pac_foms_issleds4 WHERE excluded=.f.);
	union all (SELECT code, lpu FROM pac_foms_issleds5 WHERE excluded=.f.);
	union all (SELECT code, lpu FROM pac_foms_issleds6 WHERE excluded=.f.);
	union all (SELECT code, lpu FROM pac_foms_issleds7 WHERE excluded=.f.);
	union all (SELECT code, lpu FROM pac_foms_issleds8 WHERE excluded=.f.);
	union all (SELECT code, lpu FROM pac_foms_issleds9 WHERE excluded=.f.);
	union all (SELECT code, lpu FROM pac_foms_issleds10 WHERE excluded=.f.);
	union all (SELECT code, lpu FROM pac_foms_issleds11 WHERE excluded=.f.);
	union all (SELECT code, lpu FROM pac_foms_issleds12 WHERE excluded=.f.);
	INTO CURSOR curData
  
SELECT DISTINCT '00000    Номер ЛПУ' 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 INTO CURSOR LpuNumbers
 
SELECT DISTINCT '00000    ЛПУ направившие' 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 INTO CURSOR LpuNames
  
SELECT DISTINCT '00000    Код ЛПУ ФОМС' 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 INTO CURSOR LpuFoms
 
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 NameIssleds
  
SELECT * FROM LpuNumbers ;
	UNION ;
	select * FROM LpuNames ;
	UNION ;
	select * FROM LpuFoms ;
	UNION ;
	select * FROM NameIssleds INTO CURSOR curTempD

DO vfpxtab.prg WITH 'curTemp',,.f.,,1,2,3,,,.f.

SELECT curTemp
UPDATE curTemp SET Idrow=SUBSTR(Idrow,10)

SELECT curtemp
brow