[Main]
dbuse(true)
#initparam(printMode,reportId,han_name,bum_cd,bum_nm,tok_cat_cd,tok_cat_nm,sir_cat_cd,sir_cat_nm,dcat_cd_fr,dcat_cd_to,dcat_nm_fr,dcat_nm_to,cat_cd_fr,cat_cd_to,cat_nm_fr,cat_nm_to,syori_ymd_fr,syori_ymd_to,taisyo_y,taisyo_m,tok_cd_fr,tok_cd_to,s_id)
initparam(printMode,reportId,han_name,bum_cd,bum_nm,tok_cat_cd,tok_cat_nm,sir_cat_cd,sir_cat_nm,dcat_cd_fr,dcat_cd_to,dcat_nm_fr,dcat_nm_to,cat_cd_fr,cat_cd_to,cat_nm_fr,cat_nm_to,syori_ymd_fr,syori_ymd_to,taisyo_y,taisyo_m,tok_cd_fr,tok_cd_to,sir_cd_fr,sir_cd_to,tan_cd_fr,tan_cd_to,tan_nm_fr,tan_nm_to,hin_cd_fr,hin_cd_to,put_on,shime_dd,s_id)
deforgpage(blank)
defheadarea(hed)
defbodyarea(mei)
subroutine(SelectRecords_Jisya)
subroutine(SelectRecords)
#loop(PrintNormal,@rs1,Key1,Key2)
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,$han_name)#&1
addparam($param,$bum_cd)
addparam($param,$bum_nm)
addparam($param,$tok_cat_cd)
addparam($param,$tok_cat_nm)
addparam($param,$sir_cat_cd)
addparam($param,$sir_cat_nm)
addparam($param,$dcat_cd_fr)
addparam($param,$dcat_cd_to)
addparam($param,$dcat_nm_fr)
addparam($param,$dcat_nm_to)
addparam($param,$cat_cd_fr)
addparam($param,$cat_cd_to)
addparam($param,$cat_nm_fr)
addparam($param,$cat_nm_to)
addparam($param,$syori_ymd_fr)#&16
addparam($param,$syori_ymd_to)#&17
addparam($param,$taisyo_y)
addparam($param,$taisyo_m)
addparam($param,$tok_cd_fr)#&20
addparam($param,$tok_cd_to)#&21
addparam($param,$s_id)#&22
#addparam($param,$seikyu_ymd)
dbselect(SelectRecords,@rs1,$param)

#-------------------------------------------------
#  SQL実行_Max_row_no
#-------------------------------------------------
[SelectRecords_Max]
new($param)
#addparam($param,@rs1.tok_cd)
addparam($param,$tok_max)
addparam($param,$s_id)
dbselect(SelectRecords_Max,@rs2,$param)

#-------------------------------------------------
#  ヘッダ作成
#-------------------------------------------------
[CreateHedder]
#1ページ分フォーマット処理
formatspecialrow($_row,0,1,11)
#1行目
putcell($_row,13,@rs0.tait)
putline(,)
#2行目
putcell($_row,1,〒)
putcell($_row,2,@rs1.zip_no)
putcell($_row,29,@rs1.uri_row_kai_s)
putline(,)
#3行目
putcell($_row,1,@rs1.addr1)
putline(,)
#4行目
putcell($_row,1,@rs1.addr2)
putcell($_row,20,@rs0.j_post_s)
putline(,)
#5行目
putcell($_row,1,@rs1.addr3)
putcell($_row,20,@rs0.j_address)
putline(,)
#6行目
putcell($_row,1,@rs1.tokui_nm)
putcell($_row,20,@rs0.j_nm)
putline(,)
#7行目
putline(,)
#8行目
putcell($_row,1,@rs1.now_ymd)
putcell($_row,7,現在)
putcell($_row,20,@rs0.j_tel_s)
putcell($_row,25,@rs0.j_fax_s)
putline(,)
#9行目
putcell($_row,1,@rs0.mongon1)
#putcell($_row,20,@rs1.tan_nm_s)
putline(,)
#10行目
#concatenate($syori_ymd_frto,（,　,@rs1.syori_ymd_fr,　,〜,　,@rs1.syori_ymd_to,　,）)
#putcell($_row,1,$syori_ymd_frto)
putline(,)

#11行目
#putcell($_row,1,品　番)
putcell($_row,7,品名)
putcell($_row,24,現在個数)
putline(,)

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

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

#-------------------------------------------------
#  Key0終了時
#-------------------------------------------------
[GroupEnd_Key0]
pageclose(false)

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

#-------------------------------------------------
#  Key1開始時
#-------------------------------------------------
[GroupBegin_key1]
#得意先単位合計_初期値
setdouble($stock_goukei_sum,0)
concatenate($tok_max,@rs1.tok_cd)_

#-------------------------------------------------
#  Key1終了時
#-------------------------------------------------
[GroupEnd_key1]
#合計行表示処理
formatspecialrow($_row,0,14,1)
putcell($_row,7,合計)
putcell($_row,24,$stock_goukei_sum)
putline(,)


#改ページ処理
HPAGEBREAK($_row)

#-------------------------------------------------
#  Key2設定ルーチン
#-------------------------------------------------
[KeyInfo_key2]
keyvalue(@rs1.tok_cd,@rs1.uri_row_kai)
keybreakproc(GroupBegin_key2,GroupEnd_key2)

#-------------------------------------------------
#  Key2開始時
#-------------------------------------------------
[GroupBegin_key2]
#合計在庫数
setdouble($stock_goukei,0)
setdouble($row_kai,@rs1.uri_row_kai)
#ヘッダ作成処理
subroutine(CreateHedder)

#-------------------------------------------------
#  Key2終了時
#-------------------------------------------------
[GroupEnd_key2]
#小計行表示処理
formatspecialrow($_row,0,14,1)
putcell($_row,7,小計)
putcell($_row,24,$stock_goukei)
putline(,)
#合計額_加算
sum($stock_goukei_sum,$stock_goukei)
#改ページ処理_最終ページが呼び出される時だけ改ページを回避
subroutine(SelectRecords_Max)
case($max,$row_kai,@rs2.uri_row_kai_max,0,1)
#case($max,@rs1.uri_row_kai,@rs2.uri_row_kai_max,0,1)
iterate(Max,$max)
[Max]
#改ページ処理
HPAGEBREAK($_row)

#-------------------------------------------------
#  明細表示処理
#-------------------------------------------------
[PrintNormal]
formatspecialrow($_row,0,12,1)
putcell($_row,1,@rs1.brand_nm)
putcell($_row,7,@rs1.hin_nm)
putcell($_row,24,@rs1.stock)
putline(,)
#小計額_加算
sum($stock_goukei,@rs1.stock)