Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- SET DELETED ON
- store 0 to r_klot,r_kpot,r_vspot,r_klgv,r_kpgv,r_vspgv,r_klvod,r_kpvod,r_vspvod,r_klngv,r_kpngv,r_vspngv
- store 0 to r_klkan,r_kpkan,r_sumkan,r_klmys,r_kpmys,r_summys,r_klmys1,r_kpmys1,r_summys1,r_vspmys,r_vspkan,r_vspmys1
- STORE 0 TO r_klmys2,r_kpmys2,r_summys2,r_vspmys2
- STORE 0 TO r_klmys3,r_kpmys3,r_summys3,r_vspmys3
- STORE 0 TO r_klmys4,r_kpmys4,r_summys4,r_vspmys4
- STORE 0 TO r_klmys5,r_kpmys5,r_summys5,r_vspmys5
- SELECT 2
- USE tarif INDEX tarif SHARED
- SELECT 1
- use kw SHARED
- SET RELATION TO kodtar INTO tarif
- go top
- do while .not. eof()
- if kw.ot=0
- r_klot=r_klot+1
- r_kpot=r_kpot+kp
- r_vspot=r_vspot+vsp
- endif
- if kw.gv#0 .or. prgvod=0
- r_klgv=r_klgv+1
- r_kpgv=r_kpgv+kp
- r_vspgv=r_vspgv+vsp
- endif
- if kw.vod#0 .or. prv=0
- r_klvod=r_klvod+1
- r_kpvod=r_kpvod+kp
- r_vspvod=r_vspvod+vsp
- endif
- IF tarif.tgv#0
- r_klngv=r_klngv+1
- r_kpngv=r_kpngv+kp
- r_vspngv=r_vspngv+vsp
- ENDIF
- IF kw.kan#0
- r_klkan=r_klkan+1
- r_kpkan=r_kpkan+kp
- r_sumkan=r_sumkan+kan
- r_vspkan=r_vspkan+vsp
- ENDIF
- IF kw.mys#0
- r_klmys=r_klmys+1
- r_kpmys=r_kpmys+kp
- r_summys=r_summys+mys
- r_vspmys=r_vspmys+vsp
- ENDIF
- *газ.плита 2-х комфорочная
- IF kw.gpp=1
- r_klmys1=r_klmys1+1
- r_kpmys1=r_kpmys1+kp
- r_summys1=r_summys1+gps
- r_vspmys1=r_vspmys1+vsp
- ENDIF
- *газ.плита 4-х комфорочная
- IF kw.gpp=2
- r_klmys2=r_klmys2+1
- r_kpmys2=r_kpmys2+kp
- r_summys2=r_summys2+gps
- r_vspmys2=r_vspmys2+vsp
- ENDIF
- *нагреватель проточный (обычная колонка)
- IF kw.gkp=1
- r_klmys3=r_klmys3+1
- r_kpmys3=r_kpmys3+kp
- r_summys3=r_summys3+gks
- r_vspmys3=r_vspmys3+vsp
- ENDIF
- *нагреватель емкостной, газовый (титан)
- IF kw.gkp=2
- r_klmys4=r_klmys4+1
- r_kpmys4=r_kpmys4+kp
- r_summys4=r_summys4+gks
- r_vspmys4=r_vspmys4+vsp
- ENDIF
- *водоотведение
- IF kw.yb#0
- r_klmys5=r_klmys5+1
- r_kpmys5=r_kpmys5+kp
- r_summys5=r_summys5+yb
- r_vspmys5=r_vspmys5+vsp
- ENDIF
- skip
- enddo
- REPORT FORM spr1r TO PRINTER prompt PREVIEW
- ---
- set date british
- select 2
- use sprstr index sprstr SHARED
- SET ORDER TO TAG KST OF SPRSTR.CDX
- SELE 3
- USE TARIF INDEX TARIF SHARED
- select 1
- use kw index kw1 SHARED
- set relation to kst into b,kodtar INTO c
- SET FILTER TO ls=r_ls
- sdr=DTOC(thisform.text1.Value)
- REPORT FORM subsid PREVI
- *газ.плита 2-х комфорочная
- IF kw.gpp=1
- r_klmys1=r_klmys1+1
- r_kpmys1=r_kpmys1+kp
- r_summys1=r_summys1+gps
- r_vspmys1=r_vspmys1+vsp
- ENDIF
- *газ.плита 4-х комфорочная
- IF kw.gpp=2
- r_klmys2=r_klmys2+1
- r_kpmys2=r_kpmys2+kp
- r_summys2=r_summys2+gps
- r_vspmys2=r_vspmys2+vsp
- ENDIF
- *нагреватель проточный (обычная колонка)
- IF kw.gkp=1
- r_klmys3=r_klmys3+1
- r_kpmys3=r_kpmys3+kp
- r_summys3=r_summys3+gks
- r_vspmys3=r_vspmys3+vsp
- ENDIF
- *нагреватель емкостной, газовый (титан)
- IF kw.gkp=2
- r_klmys4=r_klmys4+1
- r_kpmys4=r_kpmys4+kp
- r_summys4=r_summys4+gks
- r_vspmys4=r_vspmys4+vsp
- ENDIF
- *водоотведение
- IF kw.yb#0
- r_klmys5=r_klmys5+1
- r_kpmys5=r_kpmys5+kp
- r_summys5=r_summys5+yb
- r_vspmys5=r_vspmys5+vsp
- ENDIF
- skip
- enddo
- REPORT FORM spr1r TO PRINTER prompt PREVIEW
- ---
- set date british
- select 2
- use sprstr index sprstr SHARED
- SET ORDER TO TAG KST OF SPRSTR.CDX
- SELE 3
- USE TARIF INDEX TARIF SHARED
- select 1
- use kw index kw1 SHARED
- set relation to kst into b,kodtar INTO c
- SET FILTER TO ls=r_ls
- sdr=DTOC(thisform.text1.Value)
- REPORT FORM subsid PREVI
- *газ.плита 4-х комфорочная
- IF kw.gpp=2
- r_klmys2=r_klmys2+1
- r_kpmys2=r_kpmys2+kp
- r_summys2=r_summys2+gps
- r_vspmys2=r_vspmys2+vsp
- ENDIF
- *нагреватель проточный (обычная колонка)
- IF kw.gkp=1
- r_klmys3=r_klmys3+1
- r_kpmys3=r_kpmys3+kp
- r_summys3=r_summys3+gks
- r_vspmys3=r_vspmys3+vsp
- ENDIF
- *нагреватель емкостной, газовый (титан)
- IF kw.gkp=2
- r_klmys4=r_klmys4+1
- r_kpmys4=r_kpmys4+kp
- r_summys4=r_summys4+gks
- r_vspmys4=r_vspmys4+vsp
- ENDIF
- *водоотведение
- IF kw.yb#0
- r_klmys5=r_klmys5+1
- r_kpmys5=r_kpmys5+kp
- r_summys5=r_summys5+yb
- r_vspmys5=r_vspmys5+vsp
- ENDIF
- skip
- enddo
- REPORT FORM spr1r TO PRINTER prompt PREVIEW
- ---
- set date british
- select 2
- use sprstr index sprstr SHARED
- SET ORDER TO TAG KST OF SPRSTR.CDX
- SELE 3
- USE TARIF INDEX TARIF SHARED
- select 1
- use kw index kw1 SHARED
- set relation to kst into b,kodtar INTO c
- SET FILTER TO ls=r_ls
- sdr=DTOC(thisform.text1.Value)
- REPORT FORM subsid PREVI
- *нагреватель проточный (обычная колонка)
- IF kw.gkp=1
- r_klmys3=r_klmys3+1
- r_kpmys3=r_kpmys3+kp
- r_summys3=r_summys3+gks
- r_vspmys3=r_vspmys3+vsp
- ENDIF
- *нагреватель емкостной, газовый (титан)
- IF kw.gkp=2
- r_klmys4=r_klmys4+1
- r_kpmys4=r_kpmys4+kp
- r_summys4=r_summys4+gks
- r_vspmys4=r_vspmys4+vsp
- ENDIF
- *водоотведение
- IF kw.yb#0
- r_klmys5=r_klmys5+1
- r_kpmys5=r_kpmys5+kp
- r_summys5=r_summys5+yb
- r_vspmys5=r_vspmys5+vsp
- ENDIF
- skip
- enddo
- REPORT FORM spr1r TO PRINTER prompt PREVIEW
- ---
- set date british
- select 2
- use sprstr index sprstr SHARED
- SET ORDER TO TAG KST OF SPRSTR.CDX
- SELE 3
- USE TARIF INDEX TARIF SHARED
- select 1
- use kw index kw1 SHARED
- set relation to kst into b,kodtar INTO c
- SET FILTER TO ls=r_ls
- sdr=DTOC(thisform.text1.Value)
- REPORT FORM subsid PREVI
- *нагреватель емкостной, газовый (титан)
- IF kw.gkp=2
- r_klmys4=r_klmys4+1
- r_kpmys4=r_kpmys4+kp
- r_summys4=r_summys4+gks
- r_vspmys4=r_vspmys4+vsp
- ENDIF
- *водоотведение
- IF kw.yb#0
- r_klmys5=r_klmys5+1
- r_kpmys5=r_kpmys5+kp
- r_summys5=r_summys5+yb
- r_vspmys5=r_vspmys5+vsp
- ENDIF
- skip
- enddo
- REPORT FORM spr1r TO PRINTER prompt PREVIEW
- ---
- set date british
- select 2
- use sprstr index sprstr SHARED
- SET ORDER TO TAG KST OF SPRSTR.CDX
- SELE 3
- USE TARIF INDEX TARIF SHARED
- select 1
- use kw index kw1 SHARED
- set relation to kst into b,kodtar INTO c
- SET FILTER TO ls=r_ls
- sdr=DTOC(thisform.text1.Value)
- REPORT FORM subsid PREVI
- *водоотведение
- IF kw.yb#0
- r_klmys5=r_klmys5+1
- r_kpmys5=r_kpmys5+kp
- r_summys5=r_summys5+yb
- r_vspmys5=r_vspmys5+vsp
- ENDIF
- skip
- enddo
- REPORT FORM spr1r TO PRINTER prompt PREVIEW
- ---
- set date british
- select 2
- use sprstr index sprstr SHARED
- SET ORDER TO TAG KST OF SPRSTR.CDX
- SELE 3
- USE TARIF INDEX TARIF SHARED
- select 1
- use kw index kw1 SHARED
- set relation to kst into b,kodtar INTO c
- SET FILTER TO ls=r_ls
- sdr=DTOC(thisform.text1.Value)
- REPORT FORM subsid PREVIEW
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement