[Main]
dbuse(true)
#initparam(printMode,reportId,dt_from,dt_to,uri_no,tokui_cd,syohin_nm,han_name,dst_filename,seikyu_s_id,option1)
initparam(printMode,reportId,s_id,syori_ymd_fr,syori_ymd_to,tok_cd_fr,tok_cd_to,tan_cd_fr,tan_cd_to,ptn,nyukin_no,option1)
deforgpage(blank)
defheadarea(hed)
defbodyarea(mei)
subroutine(SelectRecords_flg)
subroutine(SelectRecords_Jisya)
subroutine(SelectRecords)
loop(PrintNormal,@rs1,Key1,Key2)
printreport($printMode,true)

#-------------------------------------------------
#  SQL実行_フラグ設定
# 設定項目
#	option1 帳票項目7
#	なしor0: normal 1:売上から出力(uri_flg=1) 2:空 4:空 8:空 16:空 32:空
#	必要な項目の数値の合算を帳票項目設定
#-------------------------------------------------
[SelectRecords_flg]
new($param)
addparam($param,$option1)
dbselect(SelectRecords_flg,@rs4,$param)
case($uri_flg,@rs4.uri_flg,1,1,0)
case($nyukin_flg,@rs4.uri_flg,0,1,0)
#-------------------------------------------------
#  SQL実行_自社
#-------------------------------------------------
[SelectRecords_Jisya]
new($param)
dbselect(SelectRecords_Jisya,@rs0,$param)

#-------------------------------------------------
#  SQL実行
#-------------------------------------------------
[SelectRecords]
iterate(SelectRecords_uri,$uri_flg)
iterate(SelectRecords_normal,$nyukin_flg)

[SelectRecords_normal]
new($param)
#addparam($param,$s_id)
addparam($param,$syori_ymd_fr)
addparam($param,$syori_ymd_to)
addparam($param,$tok_cd_fr)
addparam($param,$tok_cd_to)
addparam($param,$tan_cd_fr)
addparam($param,$tan_cd_to)
addparam($param,$ptn)
addparam($param,$nyukin_no)
dbselect(SelectRecords_normal,@rs1,$param)

[SelectRecords_uri]
new($param)
#210から来たらden_noがsyori_ymd_toにないってる
addparam($param,$syori_ymd_to)
#addparam($param,$s_id)
dbselect(SelectRecords_uri,@rs1,$param)
#-------------------------------------------------
#  ヘッダ作成
#-------------------------------------------------
[CreateHeader]
#納品書_ヘッダ_タイトル
putcell(1,29,@rs1.nyukin_no)
#putcell(2,29,@rs1.nyukin_no_kai_s)
putcell(3,15,@rs1.nyukin_ymd)
#納品書_ヘッダ_得意先
putcell(2,2,@rs1.post_n)
putcell(3,1,@rs1.addr1)
putcell(4,1,@rs1.addr2)
putcell(5,1,@rs1.addr3)
putcell(6,1,@rs1.tokui_nm_s)
putcell(7,1,@rs1.tokui_nm2)
#putcell(8,1,@rs1.nonyu_nm_s)
putcell(10,10,@rs1.tokui_cd_s)
putcell(10,23,@rs0.j_reg_no_s)
#納品書_ヘッダ_自社
putcell(4,23,@rs0.j_post_s)
putcell(5,23,@rs0.j_address)
putcell(6,23,@rs0.j_address2)
#putcell(7,18,@rs1.j_address3)
putcell(7,23,@rs0.j_nm)
putcell(8,23,@rs0.j_tel_s)
putcell(8,28,@rs0.j_fax_s)
putcell(9,23,@rs1.tan_nm_s)
#納品書_フッタ_摘要
putcell(17,3,@rs1.biko)
putcell(20,1,@rs0.mongon1)
#物品受領書_ヘッダ_タイトル
putcell(27,29,@rs1.nyukin_no)
#putcell(29,29,@rs1.uri_row_kai_s)
putcell(29,15,@rs1.nyukin_ymd)
#物品受領書_ヘッダ_得意先
putcell(28,2,@rs1.post_n)
putcell(29,1,@rs1.addr1)
putcell(30,1,@rs1.addr2)
putcell(31,1,@rs1.addr3)
putcell(32,1,@rs1.tokui_nm_s)
putcell(33,1,@rs1.tokui_nm2)
putcell(34,1,@rs1.nonyu_nm_s)
putcell(36,10,@rs1.tokui_cd_s)
putcell(36,23,@rs0.j_reg_no_s)
#物品受領書_ヘッダ_自社
putcell(30,23,@rs0.j_post_s)
putcell(31,23,@rs0.j_address)
putcell(32,23,@rs0.j_address2)
#putcell(26,17,@rs1.j_address3)
putcell(33,23,@rs0.j_nm)
putcell(34,23,@rs0.j_tel_s)
putcell(34,28,@rs0.j_fax_s)
putcell(35,23,@rs1.tan_nm_s)
#物品受領書_フッタ_摘要
putcell(43,3,@rs1.biko)
putcell(46,1,@rs0.mongon1)
#合計金額欄_2ページ目以降空白
case($total_gaku_sum,$total_gaku_sum_flg,0,@rs1.total_gaku_sum,1,)
putcell(12,28,$total_gaku_sum)
putcell(14,24,@rs0.mongon2)
putcell(38,28,$total_gaku_sum)
putcell(40,24,@rs0.mongon2)
iterate(CreateHeader_uri,$uri_flg)

[CreateHeader_uri]
putcell(11,1,支払内訳)
putcell(11,6,消費税額)
putcell(11,18,合計金額)
putcell(37,1,支払内訳)
putcell(37,6,消費税額)
putcell(37,18,合計金額)
#-------------------------------------------------
#  改ページ処理
#-------------------------------------------------
[P_break]
pageclose(false)
pageopen(true,false)
#合計金額欄_2ページ目以降空白
setdouble($total_gaku_sum_flg,1)
#明細位置_初期化
setdouble($cow,11)
setdouble($cow2,38)
#明細カウント_初期化
setdouble($cow_no,1)
setdouble($cow2_no,1)
#ヘッダ作成
subroutine(CreateHeader)

#-------------------------------------------------
#  Key1設定ルーチン
#-------------------------------------------------
[KeyInfo_key1]
#keyvalue(@rs1.tok_cd,@rs1.nyukin_no_kai)
keyvalue(@rs1.nyukin_no)
keybreakproc(GroupBegin_key1,GroupEnd_key1)

#-------------------------------------------------
#  Key1開始時
#-------------------------------------------------
[GroupBegin_key1]
deforgpage(blank)
#Importするかどうか,FormatNormalするかどうか
pageopen(true,false)
deforgpage(formats)

#領収書開始位置_初期値
setdouble($cow,11)
#領収書(控)開始位置_初期値
setdouble($cow2,38)
#領収書カウント_初期値
setdouble($cow_no,1)
#領収書(控)カウント_初期値
setdouble($cow2_no,1)
#合計金額欄_表示フラグ_初期値
setdouble($total_gaku_sum_flg,0)

resetorg()

#ヘッダ作成
subroutine(CreateHeader)

#-------------------------------------------------
#  Key1終了時
#-------------------------------------------------
[GroupEnd_key1]
pageclose(false)

#-------------------------------------------------
#  明細表示処理
#-------------------------------------------------
[PrintNormal]
#ページNo.表示処理_6行以上出力したらカウントアップ
div($cow_no,6,$kekka,$amari)
case($amari_flg,$amari,0,1)
#改ページ処理
iterate(P_break,$amari_flg)
iterate(PrintNormal_uri,$uri_flg)
iterate(PrintNormal_normal,$nyukin_flg)

[PrintNormal_normal]
#明細処理_領収書
putcell($cow,1,@rs1.nyukin_nm)
#putcell($cow,6,@rs1.total_gaku)
putcell($cow,6,@rs1.nyukin_gaku)
putcell($cow,10,@rs1.tegata_ymd)
putcell($cow,14,@rs1.tegata_no)
putcell($cow,18,@rs1.biko)
sum($cow,1)
sum($cow_no,1)
#明細処理_領収書(控)
putcell($cow2,1,@rs1.nyukin_nm)
#putcell($cow2,6,@rs1.total_gaku)
putcell($cow2,6,@rs1.nyukin_gaku)
putcell($cow2,10,@rs1.tegata_ymd)
putcell($cow2,14,@rs1.tegata_no)
putcell($cow2,18,@rs1.biko)
sum($cow2,1)
sum($cow2_no,1)

[PrintNormal_uri]
sum($cow,1)
#明細処理_領収書
putcell($cow,1,@rs1.kazei1)
putcell($cow,6,@rs1.zei1)
#putcell($cow,10,@rs1.tegata_ymd)
#putcell($cow,14,@rs1.tegata_no)
putcell($cow,18,@rs1.kei1)
sum($cow,1)
putcell($cow,1,@rs1.kazei2)
putcell($cow,6,@rs1.zei2)
#putcell($cow,10,@rs1.tegata_ymd)
#putcell($cow,14,@rs1.tegata_no)
putcell($cow,18,@rs1.kei2)
sum($cow_no,1)
#明細処理_領収書(控)
putcell($cow2,1,@rs1.kazei1)
putcell($cow2,6,@rs1.zei1)
#putcell($cow2,10,@rs1.tegata_ymd)
#putcell($cow2,14,@rs1.tegata_no)
putcell($cow2,18,@rs1.kei1)
sum($cow2,1)
putcell($cow2,1,@rs1.kazei2)
putcell($cow2,6,@rs1.zei2)
#putcell($cow,10,@rs1.tegata_ymd)
#putcell($cow,14,@rs1.tegata_no)
putcell($cow2,18,@rs1.kei2)
sum($cow2_no,1)