[Main] dbuse(true) initparam(printMode,reportId,dt_from,dt_to,uri_no,tokui_cd,syohin_nm,han_name,dst_filename,seikyu_s_id,option1) deforgpage(blank) defheadarea(hed) defbodyarea(mei) subroutine(SelectRecords_Jisya) subroutine(SelectRecords) loop(PrintNormal,@rs1,Key0,Key1,Key2) printreport($printMode,true) #------------------------------------------------- # SQL実行_自社 #------------------------------------------------- [SelectRecords_Jisya] new($param) dbselect(SelectRecords_Jisya,@rs0,$param) #------------------------------------------------- # SQL実行 #------------------------------------------------- [SelectRecords] new($param) #addparam($param,$sort) addparam($param,$dt_from) addparam($param,$dt_to) addparam($param,$uri_no) addparam($param,$tokui_cd) addparam($param,$syohin_nm) addparam($param,$han_name) addparam($param,$dst_filename) addparam($param,$seikyu_s_id) addparam($param,$option1) deforgpage(blank) dbselect(SelectRecords,@rs1,$param) #------------------------------------------------- # ヘッダ作成 #------------------------------------------------- [CreateHedder] #1ページ分フォーマット処理 formatspecialrow($page,0,1,44) #ヘッダ開始位置代入 setdouble($header,$header_stt) #ヘッダ作成処理_2回回す（納品書分と受領処分） iterate(CreateH,2) #ヘッダ作成処理 [CreateH] #1行目 case($title_s,$title,1,納品書,2,物品受領書) putcell($header,13,$title_s) sum($header,1) #2行目 putcell($header,1,〒) putcell($header,2,@rs1.post_n) putcell($header,13,@rs1.u_ymd) putcell($header,25,No.) putcell($header,26,@rs1.uri_no) sum($header,1) #3行目 putcell($header,1,@rs1.addr1) putcell($header,29,@rs1.uri_row_kai_s) sum($header,1) #4行目 putcell($header,1,@rs1.addr2) putcell($header,20,@rs0.j_post_s) sum($header,1) #5行目 putcell($header,1,@rs1.addr3) putcell($header,20,@rs0.j_address) sum($header,1) #6行目 putcell($header,1,@rs1.tokui_nm_s) putcell($header,20,@rs0.j_address2) sum($header,1) #7行目 putcell($header,1,@rs1.tokui_nm2) putcell($header,20,@rs0.j_nm) sum($header,1) #8行目 putcell($header,1,@rs1.nonyu_nm_s) putcell($header,20,@rs0.j_tel_s) putcell($header,25,@rs0.j_fax_s) sum($header,1) #9行目 putcell($header,20,@rs1.tan_nm_s) sum($header,1) #10行目 putcell($header,1,@rs0.mongon1) putcell($header,10,@rs1.tokui_cd_s) sum($header,1) #11行目 putcell($header,1,商品名) putcell($header,13,数量) putcell($header,16,単位) putcell($header,18,単価) putcell($header,21,金額) putcell($header,25,備考) sum($header,8) #19行目 #19行目_合計欄_空白 putcell($header,18,小計) sum($header,1) #20行目 putcell($header,10,消費税等) putcell($header,18,合計) #20行目_受領書_受領印 case($jyuryoin,$title,2,受領印,) putcell($header,26,$jyuryoin) sum($header,1) #21行目 putcell($header,1,摘要) putcell($header,3,@rs1.biko1) #受領書へ sum($header,2) sum($title,1) #------------------------------------------------- # 合計欄作成 #------------------------------------------------- [Goukei_output] #合計欄作成_2回回す（納品書分と受領処分） iterate(CreateG,2) #合計欄作成処理 [CreateG] #単価表示非表示 case($zn_gaku_s,$option1,1,,$zn_gaku) case($z_gaku_s,$option1,1,,$z_gaku) case($zi_gaku_s,$option1,1,,$zi_gaku) putcell($goukei,21,$zn_gaku_s)#単価表示非表示 sum($goukei,1) putcell($goukei,14,$z_gaku_s)#単価表示非表示 putcell($goukei,21,$zi_gaku_s)#単価表示非表示 #受領書へ sum($goukei,21) #------------------------------------------------- # Key0設定ルーチン #------------------------------------------------- [KeyInfo_Key0] keyvalue(dummy) keybreakproc(GroupBegin_Key0,GroupEnd_Key0) #------------------------------------------------- # Key0開始時 #------------------------------------------------- [GroupBegin_Key0] deforgpage(blank) #Importするかどうか,FormatNormalするかどうか pageopen(true,false) deforgpage(formats) #ヘッダ開始位置_初期 setdouble($header_stt,1) #合計開始位置_初期 setdouble($goukei_stt,19) #明細位置_納品書_初期 setdouble($cow_stt,12) #明細位置_物品受領書_初期 setdouble($cow2_stt,34) #改ページ位置_初期 setdouble($page,1) resetorg() #------------------------------------------------- # Key0終了時 #------------------------------------------------- [GroupEnd_Key0] pageclose(false) #------------------------------------------------- # Key1設定ルーチン #------------------------------------------------- [KeyInfo_key1] keyvalue(@rs1.uri_no) keybreakproc(GroupBegin_key1,GroupEnd_key1) #------------------------------------------------- # Key1開始時 #------------------------------------------------- [GroupBegin_key1] #------------------------------------------------- # Key1終了時 #------------------------------------------------- [GroupEnd_key1] #合計欄作成 subroutine(Goukei_output) #------------------------------------------------- # Key2設定ルーチン #------------------------------------------------- [KeyInfo_key2] keyvalue(@rs1.uri_no,@rs1.uri_row_kai,@rs1.tokui_cd) keybreakproc(GroupBegin_key2,GroupEnd_key2) #------------------------------------------------- # Key2開始時 #------------------------------------------------- [GroupBegin_key2] #帳票名_初期値 setdouble($title,1) #明細開始位置_代入 setdouble($cow,$cow_stt) setdouble($cow2,$cow2_stt) #合計開始位置_代入 setdouble($goukei,$goukei_stt) #合計額_保存 setdouble($zn_gaku,@rs1.zn_gaku) setdouble($z_gaku,@rs1.z_gaku) setdouble($zi_gaku,@rs1.zi_gaku) #合計額_保存_請求時一括なら表示しない case($z_gaku,@rs1.zei_calc_kbn,1,,$z_gaku) #ヘッダ作成 subroutine(CreateHedder) #------------------------------------------------- # Key2終了時 #------------------------------------------------- [GroupEnd_key2] #改ページ処理 HPAGEBREAK($page) #ヘッダ開始位置_加算 sum($header_stt,44) #合計開始位置_加算 sum($goukei_stt,44) #明細位置_納品書_加算 sum($cow_stt,44) #明細位置_物品受領書_加算 sum($cow2_stt,44) #改ページ位置_加算 sum($page,44) #------------------------------------------------- # 明細表示処理 #------------------------------------------------- [PrintNormal] #明細表示処理_単価表示非表示 case($uri_t,$option1,1,,@rs1.uri_t) case($uri_g,$option1,1,,@rs1.uri_g) putcell($cow,1,@rs1.hin_nm) putcell($cow,13,@rs1.uri_s) putcell($cow,16,@rs1.tani) putcell($cow,18,$uri_t)#単価表示非表示 putcell($cow,21,$uri_g)#単価表示非表示 putcell($cow,25,@rs1.meisai_biko) sum($cow,1) putcell($cow2,1,@rs1.hin_nm) putcell($cow2,13,@rs1.uri_s) putcell($cow2,16,@rs1.tani) putcell($cow2,18,$uri_t)#単価表示非表示 putcell($cow2,21,$uri_g)#単価表示非表示 putcell($cow2,25,@rs1.meisai_biko) sum($cow2,1)