[Main] dbuse(true) initparam(printMode,reportId,han_name,bum_cd,bum_nm,tok_cat_cd,tok_cat_nm,sir_cat_cd,sir_cat_nm,dcat_cd_fr,dcat_cd_to,dcat_nm_fr,dcat_nm_to,cat_cd_fr,cat_cd_to,cat_nm_fr,cat_nm_to,syori_ymd_fr,syori_ymd_to,taisyo_y,taisyo_m,tok_cd_fr,tok_cd_to,sir_cd_fr,sir_cd_to,tan_cd_fr,tan_cd_to,tan_nm_fr,tan_nm_to,hin_cd_fr,hin_cd_to,put_on) deforgpage(blank) defheadarea(hed) defbodyarea(mei) subroutine(SelectRecords) loop(PrintNormal,@rs1,Key0,Key1) printreport($printMode,true,false) #------------------------------------------------- # Key0�ݒ胋�[�`�� #------------------------------------------------- [KeyInfo_Key0] keyvalue(dummy) keybreakproc(GroupBegin_Key0,GroupEnd_Key0) #------------------------------------------------- # Key0�J�n�� #------------------------------------------------- [GroupBegin_Key0] deforgpage(blank) #Import���邩�ǂ���,FormatNormal���邩�ǂ��� pageopen(true,false) deforgpage(formats) resetorg() #�W�v:�O���E�c�� setdouble($all_zen_seikyu_zan,0) #�W�v�F���������z setdouble($all_lnyukin_gaku,0) #�W�v:�J�z�c�� setdouble($sum_kurikosi_zan,0) #�W�v:���� setdouble($all_zeinuki_gaku,0) #�W�v:����� setdouble($all_zei_gaku,0) #�W�v:���㍇�v setdouble($all_zeikomi_gaku,0) #�W�v:�U�� setdouble($all_furikomi,0) #�W�v:���� setdouble($all_genkin,0) #�W�v:���؎� setdouble($all_kogitte,0) #�W�v:��` setdouble($all_tegata,0) #�W�v:���E setdouble($all_sousai,0) #�W�v:�萔�� setdouble($all_tesuryo,0) #�W�v:���̑� setdouble($all_sonota,0) #�W�v:�����z setdouble($all_nyukin_gaku,0) #�W�v:�����J�z setdouble($all_kurikosi_gaku,0) #�w�b�_����_�w�b�_�[ #concatenate($syori_ym_s,�Ώ۔N��,:,@rs1.syori_ym_s) putcell(1,2,@rs1.syori_ym_s) #��s putline(,) putline(,) #------------------------------------------------- # Key0�I���� #------------------------------------------------- [GroupEnd_Key0] formatspecialrow(5,0,5,2) concatenate($goukei,�y,���v,�z) #�W�v putcell(5,2,$goukei) putcell(5,4,$all_zen_seikyu_zan) putcell(5,5,$all_lnyukin_gaku) #�W�v�F�J�z�c��(����) putformula(5,6,RC[-2]-RC[-1]) putcell(5,7,$all_zeinuki_gaku) putcell(5,8,$all_zei_gaku) putcell(5,9,$all_zeikomi_gaku) putcell(5,11,$all_furikomi) putcell(5,12,$all_genkin) putcell(5,13,$all_kogitte) putcell(5,14,$all_tegata) putcell(5,16,$all_sousai) putcell(5,17,$all_tesuryo) putcell(5,18,$all_sonota) putcell(5,19,$all_nyukin_gaku) #�W�v�F�J�z�z(�E��) putformula(5,20,((RC[-14]+RC[-11])-RC[-1])) pageclose(false) #------------------------------------------------- # Key1�ݒ胋�[�`�� #------------------------------------------------- [KeyInfo_key1] keyvalue(@rs1.uri_row_kai) keybreakproc(GroupBegin_key1,GroupEnd_key1) #------------------------------------------------- # Key1�J�n�� #------------------------------------------------- [GroupBegin_key1] #�W�v:�O���E�c�� setdouble($sum_zen_seikyu_zan,0) #�W�v�F���������z setdouble($sum_lnyukin_gaku,0) #�W�v:�J�z�c�� setdouble($sum_kurikosi_zan,0) #�W�v:���� setdouble($sum_zeinuki_gaku,0) #�W�v:����� setdouble($sum_zei_gaku,0) #�W�v:���㍇�v setdouble($sum_zeikomi_gaku,0) #�W�v:�U�� setdouble($sum_furikomi,0) #�W�v:���� setdouble($sum_genkin,0) #�W�v:���؎� setdouble($sum_kogitte,0) #�W�v:��` setdouble($sum_tegata,0) #�W�v:���E setdouble($sum_sousai,0) #�W�v:�萔�� setdouble($sum_tesuryo,0) #�W�v:���̑� setdouble($sum_sonota,0) #�W�v:���� setdouble($sum_nyukin_gaku,0) #�W�v:�����J�z setdouble($sum_kurikosi_gaku,0) #------------------------------------------------- # Key1�I���� #------------------------------------------------- [GroupEnd_key1] formatspecialrow($_row,0,7,1) concatenate($syoukei,�y,���v,�z) #�W�v putcell($_row,2,$syoukei) #�W�v�F�J�z�c��(����) putformula($_row,6,RC[-2]-RC[-1]) #�W�v�F�J�z�z(�E��) putformula($_row,20,((RC[-14]+RC[-11])-RC[-1])) #putline(,,,$sum_zen_seikyu_zan#,$sum_zeinuki_gaku#,$sum_zei_gaku#,$sum_zeikomi_gaku#,,$sum_furikomi#,$sum_genkin#,$sum_kogitte#,$sum_tegata#,,$sum_sousai#,$sum_tesuryo#,$sum_sonota#,$sum_kurikosi_gaku#,) putline(,,,$sum_zen_seikyu_zan#,$sum_lnyukin_gaku#,,$sum_zeinuki_gaku#,$sum_zei_gaku#,$sum_zeikomi_gaku#,,$sum_furikomi#,$sum_genkin#,$sum_kogitte#,$sum_tegata#,,$sum_sousai#,$sum_tesuryo#,$sum_sonota#,$sum_nyukin_gaku#,) #�W�v:�O���E�c�� sum($all_zen_seikyu_zan,$sum_zen_seikyu_zan) #�W�v�F���������z sum(all_lnyukin_gaku,$sum_lnyukin_gaku) #�W�v:�J�z�c�� sum($all_kurikosi_zan,$sum_kurikosi_zan) #�W�v:���� sum($all_zeinuki_gaku,$sum_zeinuki_gaku) #�W�v:����� sum($all_zei_gaku,$sum_zei_gaku) #�W�v:���㍇�v sum($all_zeikomi_gaku,$sum_zeikomi_gaku) #�W�v:�U�� sum($all_furikomi,$sum_furikomi) #�W�v:���� sum($all_genkin,$sum_genkin) #�W�v:���؎� sum($all_kogitte,$sum_kogitte) #�W�v:��` sum($all_tegata,$sum_tegata) #�W�v:���E sum($all_sousai,$sum_sousai) #�W�v:�萔�� sum($all_tesuryo,$sum_tesuryo) #�W�v:���̑� sum($all_sonota,$sum_sonota) #�W�v:�����J�z sum($all_kurikosi_gaku,$sum_kurikosi_gaku) #�W�v:�����z sum($all_nyukin_gaku,$sum_nyukin_gaku) #���y�[�W���� HPAGEBREAK($_row) #------------------------------------------------- # SQL���s #------------------------------------------------- [SelectRecords] new($param) addparam($param,$han_name) addparam($param,$bum_cd) addparam($param,$bum_nm) addparam($param,$tok_cat_cd) addparam($param,$tok_cat_nm) addparam($param,$sir_cat_cd) addparam($param,$sir_cat_nm) addparam($param,$dcat_cd_fr) addparam($param,$dcat_cd_to) addparam($param,$dcat_nm_fr) addparam($param,$dcat_nm_to) addparam($param,$cat_cd_fr) addparam($param,$cat_cd_to) addparam($param,$cat_nm_fr) addparam($param,$cat_nm_to) addparam($param,$syori_ymd_fr) addparam($param,$syori_ymd_to) addparam($param,$taisyo_y) addparam($param,$taisyo_m) addparam($param,$tok_cd_fr) addparam($param,$tok_cd_to) addparam($param,$sir_cd_fr) addparam($param,$sir_cd_to) addparam($param,$tan_cd_fr) addparam($param,$tan_cd_to) addparam($param,$tan_nm_fr) addparam($param,$tan_nm_to) addparam($param,$hin_cd_fr) addparam($param,$hin_cd_to) addparam($param,$put_on) dbselect(SelectRecords,@rs1,$param) #------------------------------------------------- # ���ו\������ #------------------------------------------------- [PrintNormal] #���v�ϐ������� setdouble($lnyukin_gaku,0) setdouble($kurikosi_zan,0) setdouble($nyukin_gaku,0) setdouble($kurikosi_gaku,0) #�W�v�F�J�z�c�� = �O���E�c�� - L�����z putformula($_row,6,RC[-2]-RC[-1]) #sum($kurikosi_zan,@rs1.zen_seikyu_zan) #diff($kurikosi_zan,$lnyukin_gaku) #�W�v�F�����z = �U��+����+���؎�+��`+���E+�萔��+���̑� sum($nyukin_gaku,@rs1.furikomi) sum($nyukin_gaku,@rs1.genkin) sum($nyukin_gaku,@rs1.kogitte) sum($nyukin_gaku,@rs1.tegata) sum($nyukin_gaku,@rs1.sousai) sum($nyukin_gaku,@rs1.tesuryo) sum($nyukin_gaku,@rs1.sonota) #�W�v�F�J�z�z = (�J�z�c�� + ���㍇�v) - �����z putformula($_row,20,((RC[-14]+RC[-11])-RC[-1])) #sum($kurikosi_gaku,$kurikosi_zan) #sum($kurikosi_gaku,@rs1.zeikomi_gaku) #diff($kurikosi_gaku,$nyukin_gaku) #���ו\������ formatspecialrow($_row,0,5,1) putcell($_row,2,@rs1.tok_nm_s) putcell($_row,3,@rs1.nyukin_yotei_ymd) putcell($_row,10,@rs1.nyukinbi) putcell($_row,15,@rs1.mankibi) #putline(,,,@rs1.zen_seikyu_zan#,$lnyukin_gaku#,$kurikosi_zan#,@rs1.zeinuki_gaku#,@rs1.zei_gaku#,@rs1.zeikomi_gaku#,,@rs1.furikomi#,@rs1.genkin#,@rs1.kogitte#,@rs1.tegata#,,@rs1.sousai#,@rs1.tesuryo#,@rs1.sonota#,$nyukin_gaku#,$kurikosi_gaku#,) putline(,,,@rs1.zen_seikyu_zan#,$lnyukin_gaku#,$kurikosi_zan#,@rs1.zeinuki_gaku#,@rs1.zei_gaku#,@rs1.zeikomi_gaku#,,@rs1.furikomi#,@rs1.genkin#,@rs1.kogitte#,@rs1.tegata#,,@rs1.sousai#,@rs1.tesuryo#,@rs1.sonota#,$nyukin_gaku#,$kurikosi_gaku#,) #�W�v:�O���E�c�� sum($sum_zen_seikyu_zan,@rs1.zen_seikyu_zan) #�W�v�F���������z sum($sum_lnyukin_gaku,lnyukin_gaku) #�W�v:�J�z�c�� sum($sum_kurikosi_zan,$kurikosi_zan) #�W�v:���� sum($sum_zeinuki_gaku,@rs1.zeinuki_gaku) #�W�v:����� sum($sum_zei_gaku,@rs1.zei_gaku) #�W�v:���㍇�v sum($sum_zeikomi_gaku,@rs1.zeikomi_gaku) #�W�v:�U�� sum($sum_furikomi,@rs1.furikomi) #�W�v:���� sum($sum_genkin,@rs1.genkin) #�W�v:���؎� sum($sum_kogitte,@rs1.kogitte) #�W�v:��` sum($sum_tegata,@rs1.tegata) #�W�v:���E sum($sum_sousai,@rs1.sousai) #�W�v:�萔�� sum($sum_tesuryo,@rs1.tesuryo) #�W�v:���̑� sum($sum_sonota,@rs1.sonota) #�W�v:�����J�z sum($sum_kurikosi_gaku,$kurikosi_gaku) #�W�v�F�����z sum($sum_nyukin_gaku,$nyukin_gaku)