CLOSE TABLES ALL
SET DELETED ON
SELECT  0 
* Генератор этикетки KWIT.LBL построен на основании  2  курсоров CKWIT,CNAM
CREATE CURSOR ckwit ;
   (FIO C( 22 ),  N_KOM N( 3 ),ID_ZIL I( 4 ), ;
	SUMA1 N( 16 ),SUMA2 N( 16 ),SUMA3 N( 16 ),SUMA4 N( 16 ),SUMA5 N( 16 ),SUMA6 N( 16 ),SUMA7 N( 16 ),SUMA8 N( 16 ),SUMA9 N( 16 ), ;
	SUMA10 N( 16 ),SUMA11 N( 16 ),SUMA12 N( 16 ),SUMA13 N( 16 ),SUMA14 N( 16 ),SUMA15 N( 16 ))
  
SELECT  0 
CREATE CURSOR cnam ;
   (USL1 C( 20 ),USL2 C( 20 ),USL3 C( 20 ),USL4 C( 20 ),USL5 C( 20 ),USL6 C( 20 ),USL7 C( 20 ),USL8 C( 20 ),USL9 C( 20 ), ;
   USL10 C( 20 ),USL11 C( 20 ),USL12 C( 20 ),USL13 C( 20 ),USL14 C( 20 ),USL15 C( 20 ))
* Предполагается,что расчёты по квартплате хранятся в таблице из которой получается следующий курсор
*   (ID_ZIL I( 4 ),ID_USL I( 4 ),SUMA N( 10 ))
*  где ID_ZIL-идентификатор жильца,ID_USL-идентификатор услуги,SUMA(# 0 )-расч.сумма для данного жильца и данной усуги
* На основании выше указанного курсора получили  шахматку SXM следующей структуры:
*!*	   1  ID_ZIL      I( 4 , 0 )
*!*	   2  N_1         N( 16 , 0 )
*!*	   3  N_2         N( 16 , 0 )
*!*	   4  N_3         N( 16 , 0 )
*!*	   5  N_4         N( 16 , 0 )
*!*	   6  N_5         N( 16 , 0 )
*!*	   7  N_6         N( 16 , 0 )
*!*	   8  N_7         N( 16 , 0 )
*!*	   9  N_8         N( 16 , 0 )
*!*	  10  N_9         N( 16 , 0 )
*!*	  11  TOTAL       N( 18 , 0 )  
*!*	   
* ЗАПОЛНИМ КУРСОР CKWIT
USE SXM IN  0 
KPL=FCOUNT("SXM")
LISTP="(FIO,N_KOM,ID_ZIL"
FOR I= 2  TO KPL
	LISTP=LISTP+","+"SUMA"+LTRIM(STR(I- 1 ))+IIF(I=KPL,")","")
ENDFOR

INSERT INTO CKWIT &LISTP;
 SELECT SP_ZIL.FIO,SP_KOM.N_KOM,SXM.* FROM SXM,SP_ZIL,SP_KOM WHERE SP_ZIL.ID_ZIL=SXM.ID_ZIL AND SP_KOM.ID_KOM=SP_ZIL.ID_KOM ;
 	ORDER BY  2 
* Заполним курсор CNAM
 SELECT "N_"+PADR(ID_USL, 3 ) AS KODN,NAMU FROM SP_USL ;
 UNION SELECT DISTINCT "TOTAL" AS KODN,PADR("ВСЕГO", 20 ) AS NAMU FROM SP_USL INTO CURSOR CUSL
DIMENSION NM(KPL- 1 )
SELECT CUSL
FOR I= 2  TO KPL
	POL=PADR(FIELD(I,"SXM"), 5 ) 
	NM(I- 1 )=LOOKUP(NAMU,M.POL,KODN)
ENDFOR
SELECT CNAM
APPEND FROM ARRAY NM
SELECT CKWIT
KSTR=KPL- 1 
MSC="АВГУСТ"
SGOD="2008"
KWN= 1 
KWK= 99 
WYB= 2 
DO CASE
	CASE WYB= 1 
		LABEL FORM KWIT TO PRINTER PROMPT NOCONSOLE FOR BETWEEN(N_KOM,KWN,KWK)
	CASE WYB= 2 
		LABEL FORM KWIT PREVIEW FOR BETWEEN(N_KOM,KWN,KWK)
ENDCASE