[Main] dbuse(true) initparam(printMode,reportId,taisyo_ym,shime_dd,shime,zan,all) deforgpage(blank) defheadarea(hed) defbodyarea(mei) subroutine(SelectRecords) #loop(PrintNormal,@rs1,Key0,Key1,Key2) loop(PrintNormal,@rs1,Key0,Key1) printreport($printMode,true) #------------------------------------------------- # Key0設定ルーチン #------------------------------------------------- [KeyInfo_key0] keyvalue(DUMMY) keybreakproc(GroupBegin_key0,GroupEnd_key0) #------------------------------------------------- # Key0開始時 #------------------------------------------------- [GroupBegin_key0] deforgpage(blank) #Importするかどうか,FormatNormalするかどうか pageopen(true,false) deforgpage(formats) resetorg() #ファイル名作成 #concatenate($book_title,得意先別売掛管理表,-,$dt_syori) #dstprefix($book_title) #filename($book_title) #concatenate($page_name,$book_title,_) #sheetprefix($page_name) #ヘッダ処理 putcell(2,2,@rs1.orderkey2) #putcell(3,2,他の物に置き換え？) #putcell(4,2,不要？) #行カウンタ setdouble($current_row,0) #------------------------------------------------- # Key0終了時 #------------------------------------------------- [GroupEnd_key0] #FormatNormalするかどうか pageclose(false) #------------------------------------------------- # Key1設定ルーチン #------------------------------------------------- [KeyInfo_key1] keyvalue(@rs1.type) keybreakproc(GroupBegin_key1,GroupEnd_key1) #------------------------------------------------- # Key1開始時 #------------------------------------------------- [GroupBegin_key1] #case($titl,@rs1.type,2,小計,4,小計,5,合計,@rs1.tok_cd) #case($root1,@rs1.type,2,1,4,1,5,1,0) #iterate(Tit1,$root1) #[Tit1] #putcell($_row,1,@rs1.seikyu_ymd) #putcell($_row,2,$titl) #putcell($_row,3,@rs1.tok_nm) #putcell($_row,4,@rs1.syori_ymd) #putcell($_row,5,@rs1.den_no) #putcell($_row,6,@rs1.zen_seikyu_ymd) #putcell($_row,14,@rs1.han_name) #putcell($_row,15,@rs1.pay_d) #putline(,,,,,,@rs1.zen_seikyu_zan#,@rs1.nyukin_gaku#,@rs1.kurikoshi_gaku#,@rs1.zeikomi_gaku#,@rs1.seikyu_zan#,@rs1.kaisyu_gaku#,@rs1.kaisyu_zan#,,,,) #sum($current_row,1) #------------------------------------------------- # Key1終了時 #------------------------------------------------- [GroupEnd_key1] #HPAGEBREAK($_row) #１空行 formatspecialrow($_row,0,8,1) setdouble($tt,$_row) sum($tt,-1) putcell($tt,2,$titl) putline() #行カウンタリセット setdouble($current_row,0) #------------------------------------------------- # Key2設定ルーチン #------------------------------------------------- #[KeyInfo_key2] #keyvalue(DUMMY) #keyvalue(@rs1.seq) #keybreakproc(GroupBegin_key2,GroupEnd_key2) #------------------------------------------------- # Key2開始時 #------------------------------------------------- #[GroupBegin_key2] #------------------------------------------------- # Key2終了時 #------------------------------------------------- #[GroupEnd_key2] #１空行 #putline() #行カウンタリセット #setdouble($current_row,0) #------------------------------------------------- # SQL実行 #------------------------------------------------- [SelectRecords] new($param) #addparam($param,$s_id) addparam($param,$taisyo_ym) addparam($param,$shime_dd) addparam($param,$shime) addparam($param,$zan) addparam($param,$all) #addparam($param,$name_sakusei) dbselect(SelectRecords,@rs1,$param) #------------------------------------------------- # 明細表示処理 #------------------------------------------------- [PrintNormal] formatspecialrow($_row,0,7,1) #setdouble($current_row,$_row) #div($current_row,10,$kekka,$amari) #case($original_row,$amari,5,12,6,13,7,14,8,15,9,16,17) #formatspecialrow($_row,0,$original_row,1) #case($root1,@rs1.type,2,1,4,1,5,1,0) #case($root2,@rs1.type,1,1,3,1,0) #iterate(Tit1,$root1) #iterate(Tit2,$root2) #[Tit1] #putcell($_row,1,@rs1.seikyu_ymd) #putcell($_row,2,$titl) #putcell($_row,3,@rs1.tok_nm) #putcell($_row,4,@rs1.syori_ymd) #putcell($_row,5,@rs1.den_no) #putcell($_row,6,@rs1.zen_seikyu_ymd) #putcell($_row,14,@rs1.han_name) #putcell($_row,15,@rs1.pay_d) #putline(,,,,,,@rs1.zen_seikyu_zan#,@rs1.nyukin_gaku#,@rs1.kurikoshi_gaku#,@rs1.zeikomi_gaku#,@rs1.seikyu_zan#,@rs1.kaisyu_gaku#,@rs1.kaisyu_zan#,,,,) #sum($current_row,1) #[Tit2] #putcell($_row,1,@rs1.seikyu_ymd) #putcell($_row,2,@rs1.tok_cd) #putcell($_row,3,@rs1.tok_nm) #putcell($_row,4,@rs1.syori_ymd) #putcell($_row,5,@rs1.den_no) #putcell($_row,6,@rs1.zen_seikyu_ymd) #putcell($_row,14,@rs1.han_name) #putcell($_row,15,@rs1.pay_d) putline(@rs1.seikyu_ymd,@rs1.tok_cd,@rs1.tok_nm,@rs1.syori_ymd,@rs1.den_no,@rs1.zen_seikyu_ymd,@rs1.zen_seikyu_zan#,@rs1.nyukin_gaku#,@rs1.kurikoshi_gaku#,@rs1.zeikomi_gaku#,@rs1.seikyu_zan#,@rs1.kaisyu_gaku#,@rs1.kaisyu_zan#,@rs1.han_name,@rs1.pay_d,,) sum($current_row,1) case($titl,@rs1.type,2,小計,4,小計,5,合計,@rs1.tok_cd) #case($type_a,@rs1.seq,1,0,1) #iterate(HeaderA,$type_a) #[HeaderA] #１空行 #putline() #行カウンタリセット #setdouble($current_row,0)