[Main]
dbuse(true)
initparam(printMode,reportId,s_id,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,hin_cd_fr,hin_cd_to,cat_cd_fr,cat_cd_to,den_no_fr,den_no_to,hin_nm,genka_flg)
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,$s_id)
addparam($param,$shime_dd)
addparam($param,$syori_ymd_fr)
addparam($param,$syori_ymd_to)
addparam($param,$prc_sts)
addparam($param,$tok_cd_fr)
addparam($param,$tok_cd_to)
addparam($param,$nonyu_no_fr)
addparam($param,$nonyu_no_to)
addparam($param,$tan_cd_fr) #10
addparam($param,$tan_cd_to)
addparam($param,$hin_cd_fr)
addparam($param,$hin_cd_to)
addparam($param,$cat_cd_fr)
addparam($param,$cat_cd_to)
addparam($param,$den_no_fr)
addparam($param,$den_no_to)
addparam($param,$hin_nm)
addparam($param,$genka_flg) #19

#addparam($param,$seikyu_ymd)
dbselect(SelectRecords,@rs1,$param)

#-------------------------------------------------
#  ヘッダ作成
#-------------------------------------------------
[CreateHedder]
#1ページ分フォーマット処理
formatspecialrow($page,0,1,44)
#ヘッダ開始位置代入
setdouble($header,$header_stt)
#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,30)

#41行目
#41行目_合計欄_空白
putcell($header,18,小計)
sum($header,1)
#42行目
putcell($header,10,消費税等)
putcell($header,18,合計)
#42行目
sum($header,1)
#43行目
putcell($header,1,摘要)
putcell($header,3,@rs1.biko1)


#-------------------------------------------------
#  合計欄作成
#-------------------------------------------------
[Goukei_output]
#単価表示非表示
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)#単価表示非表示

#-------------------------------------------------
#  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,41)
#明細位置_納品書_初期
setdouble($cow_stt,12)
#改ページ位置_初期
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)