[Main]
dbuse(true)
#initparam(printMode,reportId,dt_from,dt_to,uri_no,tokui_cd,syohin_nm,han_name,dst_filename,seikyu_s_id,option1,ext7,report_title,shime_dd,syori_ymd_fr,syori_ymd_to,prc_sts,tok_cd_fr,tok_cd_to,nonyu_no_fr,nonyu_no_to,tan_cd_fr,tan_cd_to,eigyo_tan_cd_fr,eigyo_tan_cd_to,hin_cd_fr,hin_cd_to,cat_cd_fr,cat_cd_to,den_no_fr,den_no_to,hin_nm,genka_flg,output_ymd)
initparam(printMode,reportId,dt_from,dt_to,uri_no,tokui_cd,syohin_nm,han_name,dst_filename,seikyu_s_id,option1,option2,group_no,option3,option4,option5,option6,option7,den_s_id,syukka_req_mng_id,eig_cd,input_dt_from,input_dt_to,loc_no,nonyu_hoho)
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)
addparam($param,$option4)
dbselect(SelectRecords_Jisya,@rs0,$param)

#-------------------------------------------------
#  SQL実行
#-------------------------------------------------
[SelectRecords]
new($param)
addparam($param,$dt_from)
addparam($param,$dt_to)
addparam($param,$uri_no)
addparam($param,$tokui_cd)
addparam($param,$syohin_nm)#5
addparam($param,$han_name)
addparam($param,$dst_filename)
addparam($param,$seikyu_s_id)
addparam($param,$option1)
addparam($param,$option2)#10
addparam($param,$option3)
addparam($param,$option4)
addparam($param,$option5)
addparam($param,$option6)
addparam($param,$option7)
addparam($param,$den_s_id)
addparam($param,$syukka_req_mng_id)
addparam($param,$eig_cd)
addparam($param,$input_dt_from)
addparam($param,$input_dt_to)#20
addparam($param,$loc_no)
addparam($param,$nonyu_hoho)
addparam($param,@rs0.uri_tokadr_kbn)
addparam($param,@rs0.juha_sync_flg)#24

dbselect(SelectRecords,@rs1,$param)

#-------------------------------------------------
#  ヘッダ作成処理
#-------------------------------------------------
[CreateH]
#1行目
#タイトルを$title_sに入れる
case($title_s,$title,1,@rs0.title1,2,@rs0.title2)
putcell($header,13,$title_s)
sum($header,1)
#2行目
#putcell($header,1,〒)
putcell($header,2,@rs1.tok_zip_no)
putcell($header,13,@rs1.u_ymd)
putcell($header,25,No.)
putcell($header,26,@rs1.uri_no)
sum($header,1)
#3行目
putcell($header,1,@rs1.tok_addr1)
putcell($header,29,@rs1.uri_row_kai_s)
sum($header,1)
#4行目
putcell($header,1,@rs1.tok_addr2)
putcell($header,20,@rs0.j_post_s)
sum($header,1)
#5行目
putcell($header,1,@rs1.tok_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)
putcell($header,20,@rs0.j_reg_no_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,小計)
#19行目_受領書_受領印
case($jyuryoin,$title,2,受領印,)
putcell($header,26,$jyuryoin)
sum($header,1)
#20行目
putcell($header,10,消費税等)
putcell($header,18,合計)
sum($header,1)
#21行目
putcell($header,1,摘要)
putcell($header,3,@rs1.biko1)

#受領書へ
sum($header,2)
sum($title,1)

#-------------------------------------------------
#  ヘッダ作成
#-------------------------------------------------
[CreateHedder]
#明細書式切替　単価小数点２桁
case($format_row,@rs0.uritndec_flg,1,45,1)
formatspecialrow($page,0,$format_row,44)#1ページ分フォーマット処理
#ヘッダ開始位置代入
setdouble($header,$header_stt)
#ヘッダ作成処理_2回回す（納品書分と受領処分）
iterate(CreateH,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)

#-------------------------------------------------
#  合計欄作成
#-------------------------------------------------
[Goukei_output]
#合計欄作成_2回回す（納品書分と受領処分）
iterate(CreateG,2)

#-------------------------------------------------
#  Key0設定ルーチン
#-------------------------------------------------
[KeyInfo_Key0]
keyvalue(dummy)
keybreakproc(GroupBegin_Key0,GroupEnd_Key0)

#-------------------------------------------------
#  Key0開始時
#-------------------------------------------------
[GroupBegin_Key0]
deforgpage(blank)
#Importするかどうか,FormatNormalするかどうか
pageopen(false,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)
putline()

sum($cow2,1)