[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開始時 #------------------------------------------------- [GroupBegin_Key0] deforgpage(blank) #Importするかどうか,FormatNormalするかどうか pageopen(true,false) deforgpage(formats) resetorg() #集計:前月・残高 setdouble($all_zen_seikyu_zan,0) #集計：左部入金額 setdouble($all_lnyukin_gaku,0) #集計:繰越残高 setdouble($sum_kurikosi_zan,0) #集計:売上 setdouble($all_zeinuki_gaku,0) #集計:消費税 setdouble($all_zei_gaku,0) #集計:売上合計 setdouble($all_zeikomi_gaku,0) #集計:振込 setdouble($all_furikomi,0) #集計:現金 setdouble($all_genkin,0) #集計:小切手 setdouble($all_kogitte,0) #集計:手形 setdouble($all_tegata,0) #集計:相殺 setdouble($all_sousai,0) #集計:手数料 setdouble($all_tesuryo,0) #集計:その他 setdouble($all_sonota,0) #集計:入金額 setdouble($all_nyukin_gaku,0) #集計:次月繰越 setdouble($all_kurikosi_gaku,0) #ヘッダ処理_ヘッダー #concatenate($syori_ym_s,対象年月,:,@rs1.syori_ym_s) putcell(1,2,@rs1.syori_ym_s) #空行 putline(,) putline(,) #------------------------------------------------- # Key0終了時 #------------------------------------------------- [GroupEnd_Key0] formatspecialrow(5,0,5,2) concatenate($goukei,【,合計,】) #集計 putcell(5,2,$goukei) putcell(5,4,$all_zen_seikyu_zan) putcell(5,5,$all_lnyukin_gaku) #集計：繰越残高(左部) 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) #集計：繰越額(右部) 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開始時 #------------------------------------------------- [GroupBegin_key1] #集計:前月・残高 setdouble($sum_zen_seikyu_zan,0) #集計：左部入金額 setdouble($sum_lnyukin_gaku,0) #集計:繰越残高 setdouble($sum_kurikosi_zan,0) #集計:売上 setdouble($sum_zeinuki_gaku,0) #集計:消費税 setdouble($sum_zei_gaku,0) #集計:売上合計 setdouble($sum_zeikomi_gaku,0) #集計:振込 setdouble($sum_furikomi,0) #集計:現金 setdouble($sum_genkin,0) #集計:小切手 setdouble($sum_kogitte,0) #集計:手形 setdouble($sum_tegata,0) #集計:相殺 setdouble($sum_sousai,0) #集計:手数料 setdouble($sum_tesuryo,0) #集計:その他 setdouble($sum_sonota,0) #集計:入金 setdouble($sum_nyukin_gaku,0) #集計:次月繰越 setdouble($sum_kurikosi_gaku,0) #------------------------------------------------- # Key1終了時 #------------------------------------------------- [GroupEnd_key1] formatspecialrow($_row,0,7,1) concatenate($syoukei,【,小計,】) #集計 putcell($_row,2,$syoukei) #集計：繰越残高(左部) putformula($_row,6,RC[-2]-RC[-1]) #集計：繰越額(右部) 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#,) #集計:前月・残高 sum($all_zen_seikyu_zan,$sum_zen_seikyu_zan) #集計：左部入金額 sum(all_lnyukin_gaku,$sum_lnyukin_gaku) #集計:繰越残高 sum($all_kurikosi_zan,$sum_kurikosi_zan) #集計:売上 sum($all_zeinuki_gaku,$sum_zeinuki_gaku) #集計:消費税 sum($all_zei_gaku,$sum_zei_gaku) #集計:売上合計 sum($all_zeikomi_gaku,$sum_zeikomi_gaku) #集計:振込 sum($all_furikomi,$sum_furikomi) #集計:現金 sum($all_genkin,$sum_genkin) #集計:小切手 sum($all_kogitte,$sum_kogitte) #集計:手形 sum($all_tegata,$sum_tegata) #集計:相殺 sum($all_sousai,$sum_sousai) #集計:手数料 sum($all_tesuryo,$sum_tesuryo) #集計:その他 sum($all_sonota,$sum_sonota) #集計:次月繰越 sum($all_kurikosi_gaku,$sum_kurikosi_gaku) #集計:入金額 sum($all_nyukin_gaku,$sum_nyukin_gaku) #改ページ処理 HPAGEBREAK($_row) #------------------------------------------------- # SQL実行 #------------------------------------------------- [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] #横計変数初期化 setdouble($lnyukin_gaku,0) setdouble($kurikosi_zan,0) setdouble($nyukin_gaku,0) setdouble($kurikosi_gaku,0) #集計：繰越残高 = 前月・残高 - L入金額 putformula($_row,6,RC[-2]-RC[-1]) #sum($kurikosi_zan,@rs1.zen_seikyu_zan) #diff($kurikosi_zan,$lnyukin_gaku) #集計：入金額 = 振込+現金+小切手+手形+相殺+手数料+その他 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) #集計：繰越額 = (繰越残高 + 売上合計) - 入金額 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#,) #集計:前月・残高 sum($sum_zen_seikyu_zan,@rs1.zen_seikyu_zan) #集計：左部入金額 sum($sum_lnyukin_gaku,lnyukin_gaku) #集計:繰越残高 sum($sum_kurikosi_zan,$kurikosi_zan) #集計:売上 sum($sum_zeinuki_gaku,@rs1.zeinuki_gaku) #集計:消費税 sum($sum_zei_gaku,@rs1.zei_gaku) #集計:売上合計 sum($sum_zeikomi_gaku,@rs1.zeikomi_gaku) #集計:振込 sum($sum_furikomi,@rs1.furikomi) #集計:現金 sum($sum_genkin,@rs1.genkin) #集計:小切手 sum($sum_kogitte,@rs1.kogitte) #集計:手形 sum($sum_tegata,@rs1.tegata) #集計:相殺 sum($sum_sousai,@rs1.sousai) #集計:手数料 sum($sum_tesuryo,@rs1.tesuryo) #集計:その他 sum($sum_sonota,@rs1.sonota) #集計:次月繰越 sum($sum_kurikosi_gaku,$kurikosi_gaku) #集計：入金額 sum($sum_nyukin_gaku,$nyukin_gaku)