[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,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,eig_cd_fr,eig_cd_to,output_ymd,ext6,ext7,brand_cd_fr,brand_cd_to,color_cd_fr,color_cd_to,eig_cd)
deforgpage(blank)
defheadarea(hed)
defbodyarea(mei)
subroutine(InsertWork)
subroutine(SelectRecords_Jisya)
subroutine(SelectRecords)
#loop(PrintNormal,@rs1,Key1,key2)
loop(PrintNormal,@rs1,Key1,key2,key3)
printreport($printMode,true,false)

#-------------------------------------------------
#  SQL実行_自社
#-------------------------------------------------
[SelectRecords_Jisya]
new($param)
dbselect(SelectRecords_Jisya,@rs0,$param)

#-------------------------------------------------
#  SQL実行(ストアド)
#-------------------------------------------------
[InsertWork]
new($param)
addparam($param,$s_id)
addparam($param,$syori_ymd_fr)
addparam($param,$syori_ymd_to)
addparam($param,$sir_cd_fr)
addparam($param,$sir_cd_to)
addparam($param,$shime_dd)
addparam($param,$eig_cd)
dbselect(InsertWork,@rsw,$param)

#-------------------------------------------------
#  SQL実行
#-------------------------------------------------
[SelectRecords]
new($param)
addparam($param,$han_name)
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)
addparam($param,$syori_ymd_to)
addparam($param,$taisyo_y)
addparam($param,$taisyo_m)
addparam($param,$tok_cd_fr)
addparam($param,$tok_cd_to)
addparam($param,$sir_cd_fr)
addparam($param,$sir_cd_to)
addparam($param,$tan_cd_fr)
addparam($param,$tan_cd_to)
addparam($param,$tan_nm_fr)
addparam($param,$tan_nm_to)
addparam($param,$hin_cd_fr)
addparam($param,$hin_cd_to)
addparam($param,$put_on)
addparam($param,$shime_dd)
addparam($param,$s_id)
addparam($param,@rs0.midasi_kbn)#汎用マスタ99のuri-jknrno
addparam($param,@rs0.midasi_FLG)#汎用マスタ90のhin-title
dbselect(SelectRecords,@rs1,$param)

#-------------------------------------------------
#  改ページ処理
#-------------------------------------------------
[P_break]
HPAGEBREAK($_row)

#------------------------------------------------------------------------------------------------------------------------
#  見出し作成処理
#------------------------------------------------------------------------------------------------------------------------
[CreateMidashi]
formatspecialrow($_row,0,4,2)
putline()
putcell($_row,2,日付)
putcell($_row,3,伝票No.)
putcell($_row,4,区分)
putcell($_row,5,品番)
putcell($_row,6,品名)
putcell($_row,7,数量)
putcell($_row,8,単価)
putcell($_row,9,税抜金額)
putcell($_row,10,税額)
putcell($_row,11,税込金額)
putcell($_row,12,出金額)
putcell($_row,13,買掛金額)
putcell($_row,14,備考1)
putcell($_row,15,備考2)
putline()

#------------------------------------------------------------------------------------------------------------------------
#  ヘッダ作成処理
#------------------------------------------------------------------------------------------------------------------------
[CreateHead]
formatspecialrow($_row,0,2,2)
putline()
#3行目
concatenate($sir_cd_s,仕入先コード：,@rs1.sir_cd)#ヘッダ表示用_仕入先コード
putcell($_row,2,$sir_cd_s)
putcell($_row,5,@rs1.sir_nm)
putcell($_row,15,@rs1.shime_dd)
putline()
#見出し作成処理_見出し表示を切り替える
subroutine(CreateMidashi)

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

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

#ヘッダ出力カウント_初期出力調整のため
setdouble($h_cnt,0)
#改ページ処理_最終出力調整のため
setdouble($r_cnt,0)

#合計金額表示用変数
setdouble($k_syukin_gaku,0)
setdouble($k_kaikake_gaku,0)

#合計行表示用変数
setdouble($kei_zeinuki,0)
setdouble($kei_zei,0)
setdouble($kei_zeikomi,0)
setdouble($kei_syukin,0)

#合計行表示用変数
setdouble($zei_calc_kbn,@rs1.zei_calc_kbn)

#ヘッダ出力処理
#1行目
formatspecialrow($_row,0,1,1)
putcell($_row,2,$han_name)#帳票タイトル
concatenate($from_to_ymd_s,指定日：,@rs1.from_to_ymd)#ヘッダ表示用_指定ymd
putcell($_row,14,$from_to_ymd_s)
#concatenate($output_ymd_s,発行日：,@rs1.output_ymd)#ヘッダ表示用_発行ymd＃TODO
#putcell($_row,13,$output_ymd_s)
putline()

#-------------------------------------------------
#  Key1終了時
#-------------------------------------------------
[GroupEnd_key1]

#FormatNormalするかどうか
pageclose(false)

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

#-------------------------------------------------
#  Key2開始時
#-------------------------------------------------
[GroupBegin_key2]
#ヘッダ作成処理
subroutine(CreateHead)
#ヘッダ出力カウント
sum($h_cnt,1)

#-------------------------------------------------
#  Key2終了時
#-------------------------------------------------
[GroupEnd_key2]
#最終月繰越金額
formatspecialrow($_row,0,9,1)
case($zei_calc_on_k,$zei_calc_kbn,0,1,0)
case($zei_calc_off_k,$zei_calc_kbn,1,1,0)
iterate(ChkZeiON_K,$zei_calc_on_k)
iterate(ChkZeiOFF_K,$zei_calc_off_k)


#改ページ処理
subroutine(P_break)

[ChkZeiON_K]
putline(,,,,,【期間合計金額】#,,,$kei_zeinuki#,$kei_zei#,$kei_zeikomi#,$kei_syukin#,$k_kaikake_gaku#)
[ChkZeiOFF_K]
putline(,,,,,【期間合計金額】#,,,$kei_zeinuki#,,,$kei_syukin#,$k_kaikake_gaku#)



#-------------------------------------------------
#  Key3設定ルーチン
#-------------------------------------------------
[KeyInfo_key3]
keyvalue(@rs1.sir_cd,@rs1.syori_ymd,@rs1.den_no)
keybreakproc(GroupBegin_key3,GroupEnd_key3)

#-------------------------------------------------
#  Key3開始時
#-------------------------------------------------
[GroupBegin_key3]
putcell($_row,2,@rs1.den_dt)
putcell($_row,3,@rs1.den_no)
putcell($_row,4,@rs1.kbn)

#-------------------------------------------------
#  Key3終了時
#-------------------------------------------------
[GroupEnd_key3]

#-------------------------------------------------
#  明細表示処理
#-------------------------------------------------
[PrintNormal]

#足し込みcase

#繰越金額行表示
case($kbn_kr,@rs1.kbn_no,0,1,0)
iterate(KuriKoshi_line,$kbn_kr)

#端数金額行表示
case($kbn_hs,@rs1.kbn_no,1,1,0)
iterate(zenHaSu_line,$kbn_hs)

#仕入明細金額行表示
case($kbn_u,@rs1.kbn_no,2,1,0)
iterate(Sir_line,$kbn_u)

#仕入伝票金額行表示
case($kbn_uh,@rs1.kbn_no,3,1,0)
iterate(SirH_line,$kbn_uh)

#出金明細金額行表示
case($kbn_n,@rs1.kbn_no,4,1,0)
iterate(Syukin_line,$kbn_n)

#出金金額行表示
case($kbn_n,@rs1.kbn_no,5,1,0)
iterate(SyukinH_line,$kbn_n)

#締請求行表示
case($kbn_ukk,@rs1.kbn_no,6,1,0)
iterate(KaiKaKe_line,$kbn_ukk)

[zenHaSu_line]
#変数足し引き
case($zei_calc_on,@rs1.zei_calc_kbn,0,1,0)
case($zei_calc_off,@rs1.zei_calc_kbn,1,1,0)
iterate(ChkZeiON,$zei_calc_on)
iterate(ChkZeiOFF,$zei_calc_off)

#sum($k_kaikake_gaku,@rs1.zeikomi_gaku)
diff($k_kaikake_gaku,@rs1.syukin_gaku)
#前月端数行表示
formatspecialrow($_row,0,9,1)
putcell($_row,14,@rs1.biko1)
putcell($_row,15,@rs1.biko2)
putline(,,,@rs1.kbn#,@rs1.hin_cd#,@rs1.hin_nm#,@rs1.suryo#,@rs1.tanka#,@rs1.kingaku#,@rs1.zei_gaku#,@rs1.zeikomi_gaku#,@rs1.syukin_gaku#,@rs1.kaikake_gaku#)

[Sir_line]
#仕入明細行表示

#小数管理しているかの判断
case($su_dec_on,@rs0.dec_FLG,1,1,0)
case($su_dec_off,@rs0.dec_FLG,0,1,0)
iterate(suryo_dec_on,$su_dec_on)
iterate(suryo_dec_off,$su_dec_off)

putcell($_row,14,@rs1.biko1)
putcell($_row,15,@rs1.biko2)
putline(,,,,@rs1.hin_cd#,@rs1.hin_nm#,@rs1.suryo#,@rs1.tanka#,@rs1.kingaku#,,,@rs1.syukin_gaku#,,)

[SirH_line]
#変数足し引き
case($zei_calc_on2,@rs1.zei_calc_kbn,0,1,0)
case($zei_calc_off2,@rs1.zei_calc_kbn,1,1,0)
iterate(ChkZeiON2,$zei_calc_on2)
iterate(ChkZeiOFF2,$zei_calc_off2)

#合計行用足し算
sum($kei_zeinuki,@rs1.kingaku)
sum($kei_zei,@rs1.zei_gaku)
sum($kei_zeikomi,@rs1.zeikomi_gaku)


[Syukin_line]
#変数足し引き
#sum($k_syukin_gaku,@rs1.syukin_gaku)
#diff($k_kaikake_gaku,@rs1.syukin_gaku)
#出金行表示
formatspecialrow($_row,0,7,1)
putcell($_row,14,@rs1.biko1)
putcell($_row,15,@rs1.biko2)
putline(,,,,,@rs1.hin_nm#,@rs1.suryo#,@rs1.tanka#,@rs1.kingaku#,,,@rs1.syukin_gaku#,,)
#合計行用足し算
#sum($kei_syukin,@rs1.syukin_gaku)

[SyukinH_line]
#変数足し引き
diff($k_kaikake_gaku,@rs1.syukin_gaku)
#出金行表示
formatspecialrow($_row,0,8,1)
putcell($_row,14,@rs1.biko1)
putcell($_row,15,@rs1.biko2)
putline(,,,,,@rs1.hin_nm#,@rs1.suryo#,@rs1.tanka#,@rs1.kingaku#,,,@rs1.syukin_gaku#,$k_kaikake_gaku#)
#合計行用足し算
sum($kei_syukin,@rs1.syukin_gaku)

[KuriKoshi_line]
#変数足し引き
sum($k_kaikake_gaku,@rs1.kaikake_gaku)
#繰越行表示
formatspecialrow($_row,0,9,1)
putcell($_row,14,@rs1.biko1)
putcell($_row,15,@rs1.biko2)
putline(,,,,@rs1.hin_cd#,@rs1.hin_nm#,@rs1.suryo#,@rs1.tanka#,@rs1.kingaku#,@rs1.zei_gaku#,@rs1.zeikomi_gaku#,@rs1.syukin_gaku#,@rs1.kaikake_gaku#)

[KaiKaKe_line]
#買掛行表示
formatspecialrow($_row,0,9,1)
putcell($_row,14,@rs1.biko1)
putcell($_row,15,@rs1.biko2)
putline(,,,,@rs1.hin_cd#,@rs1.hin_nm#,@rs1.suryo#,@rs1.tanka#,@rs1.kingaku#,@rs1.zei_gaku#,@rs1.zeikomi_gaku#,@rs1.syukin_gaku#,@rs1.kaikake_gaku#)

#case($zei_calc_on3,@rs1.zei_calc_kbn,0,1,0)
case($zei_calc_off3,@rs1.zei_calc_kbn,1,1,0)
#iterate(ChkZeiON3,$zei_calc_on3)
iterate(ChkZeiOFF3,$zei_calc_off3)

[suryo_dec_on]
formatspecialrow($_row,0,13,1)

[suryo_dec_off]
formatspecialrow($_row,0,7,1)


[ChkZeiON]
sum($k_kaikake_gaku,@rs1.zeikomi_gaku)
[ChkZeiOFF]
sum($k_kaikake_gaku,@rs1.kingaku)

[ChkZeiON2]
sum($k_kaikake_gaku,@rs1.zeikomi_gaku)
#仕入伝票行表示
formatspecialrow($_row,0,8,1)
putcell($_row,14,@rs1.biko1)
putcell($_row,15,@rs1.biko2)
putline(,,,,@rs1.hin_cd#,@rs1.hin_nm#,@rs1.suryo#,@rs1.tanka#,@rs1.kingaku#,@rs1.zei_gaku#,@rs1.zeikomi_gaku#,@rs1.syukin_gaku#,$k_kaikake_gaku#)

[ChkZeiOFF2]
sum($k_kaikake_gaku,@rs1.kingaku)
#仕入伝票行表示
formatspecialrow($_row,0,8,1)
putcell($_row,14,@rs1.biko1)
putcell($_row,15,@rs1.biko2)
putline(,,,,@rs1.hin_cd#,@rs1.hin_nm#,@rs1.suryo#,@rs1.tanka#,@rs1.kingaku#,,,@rs1.syukin_gaku#,$k_kaikake_gaku#)

#[ChkZeiON3]
#setdouble($k_kaikake_gaku,@rs1.zeikomi_gaku)
[ChkZeiOFF3]
setdouble($k_kaikake_gaku,@rs1.kaikake_gaku)