[Main]
dbuse(true)
initparam(printMode,reportId,s_id,ext6,title,ext7,ext8,ext9,ext10,ext11,ext12,sort_mode,dst_filename)
# # 2:明細2行 3:明細1行軽減税率対応 5:明細2行+軽減税率対応
case($one_line_mode,$ext7,2,0,5,0,6,0,1)
case($two_line_mode,$ext7,2,1,5,1,6,1,0)
case($zei_multi_mode,$ext7,3,1,5,1,6,1,0)
case($zei_single_mode,$ext7,3,0,5,0,6,0,1)
case($seikyu_zan_mode,$ext8,1,1,0)
case($disc_per_mode,$ext7,4,1,0)
case($no_disc_per_mode,$ext7,4,0,1)

case($hstd_flg,$ext12,H,0,1)
case($hext_flg,$ext12,H,1,0)

case($no_denkbn_mode,$ext7,6,1,0)

case($midashi_n,$ext6,,1,1,0)
case($midashi_ext,$ext6,2,1,0)

case($group_mode,$ext9,1,0,1)
iterate(UpdateWork,$group_mode)

deforgpage(blank)
defheadarea(hed)
defbodyarea(mei)
subroutine(SelectRecords)
loop(PrintNormal,@rs1,Key0,Key1,Key2)
filename($dst_filename)

case($print_show_mode,$dst_filename,,1,0)
case($print_hide_mode,$dst_filename,,0,1)
iterate(printShow,$print_show_mode)
iterate(printHide,$print_hide_mode)

[printShow]
printreport($printMode,true,false)

[printHide]
printreport($printMode,false,false)

[UpdateWork]
new($param)
addparam($param,$s_id)
dbselect(UpdateWork,@rs_upd,$param)







#-------------------------------------------------
#  SQL実行
#-------------------------------------------------
[SelectRecords]
new($param)
addparam($param,$s_id)
addparam($param,$ext6)
addparam($param,$outputfile)
addparam($param,$ext9)
addparam($param,$two_line_mode)
addparam($param,$sort_mode)
addparam($param,$title)
addparam($param,$hext_flg)
addparam($param,$ext11)
dbselect(UpdateDb,@rs_upd,$param)
dbselect(SelectRecords,@rs1,$param)


#-------------------------------------------------
#  SQL実行_振込
#-------------------------------------------------
[SelectRecords_Furi]
new($param)
addparam($param,$s_id)
addparam($param,@rs1.tok_cd)
dbselect(SelectRecords_Furi,@rs2,$param)

#-------------------------------------------------
#  振込機関出力処理
#-------------------------------------------------
[Furikomi]
putcell($furikomi,21,@rs2.furikikan)
sum($furikomi,1)

#-------------------------------------------------
#  請求額_金額表示
#-------------------------------------------------
[PrintTotal]
iterate(PrintTotal_nomal,$midashi_n)
iterate(PrintTotal_ext,$midashi_ext)

[PrintTotal_nomal]
case($w_fmt_i,$seikyu_zan_mode,1,38,2)
formatspecialrow($total_print_row_no,0,$w_fmt_i,1)
putcell($total_print_row_no,2,@rs1.zen_seikyu_zan)
putcell($total_print_row_no,7,@rs1.nyukin_gaku)
putcell($total_print_row_no,12,@rs1.kurikoshi_gaku)
putcell($total_print_row_no,17,@rs1.zeinuki_gaku)
putcell($total_print_row_no,22,@rs1.zei_gaku)
putcell($total_print_row_no,27,@rs1.zeikomi_gaku)
putcell($total_print_row_no,33,@rs1.seikyu_zan)
#請求額_金額非表示フラグ_1
sum($total_print_flg,1)

[PrintTotal_ext]
formatspecialrow($total_print_row_no,0,26,1)
putcell($total_print_row_no,22,@rs1.zeinuki_gaku)
putcell($total_print_row_no,27,@rs1.zei_gaku)
putcell($total_print_row_no,33,@rs1.zeikomi_gaku)
#請求額_金額非表示フラグ_1
sum($total_print_flg,1)


#-------------------------------------------------
#  請求額見出し(CreateMidashi)
#-------------------------------------------------
[CreateMidashi]
iterate(NomalMidashi,$midashi_n)
iterate(ExtMidashi,$midashi_ext)

[NomalMidashi]
case($w_fmt_i,$seikyu_zan_mode,1,37,1)
formatspecialrow($_row,0,$w_fmt_i,3)
putcell($_row,2,前回御請求額)
putcell($_row,7,御入金額)
putcell($_row,12,繰越額)
putcell($_row,17,御買上金額)
putcell($_row,22,消費税等)
putcell($_row,27,当月御買上金額)
putcell($_row,33,今回御請求額)
putline(,)

[ExtMidashi]
formatspecialrow($_row,0,25,3)
putcell($_row,22,御買上金額)
putcell($_row,27,消費税等)
putcell($_row,33,当月御買上金額)
putline(,)

#-------------------------------------------------
#  見出し作成
#-------------------------------------------------
[CreateHeader]
formatspecialrow($_row,0,9,13)
iterate(PutSyaban,$syab_flg)
iterate(PutLogo,$logo_flg)

#1行目
case($w_title_add,@rs1.rep_type,1,【控】,)
concatenate($w_title,@rs1.tait,$w_title_add)
putcell($_row,21,$w_title)
#putcell($_row,21,$title)
#putcell($_row,21,$outputfile)
#ページNo.表示処理
concatenate($page_no_view,Page., ,@rs1.page_no,/,@rs1.max_page)
putcell($_row,37,$page_no_view)
putline(,)
#2行目
#putcell($_row,30,発行日：)
putcell($_row,30,請求日：)
putcell($_row,33,@rs1.seikyu_ymd_s)
putline(,)
#3行目
putcell($_row,4,@rs1.yubin_no)
#concatenate($tok_cd,お客様コード:,@rs1.tok_cd)
concatenate($tok_cd,@rs1.seikyu_no_label,@rs1.seikyu_no)
putcell($_row,37,$tok_cd)
putline(,)
#4行目
putcell($_row,4,@rs1.address1)
putcell($_row,21,@rs1.jis_nm)
putline(,)
#5行目
putcell($_row,4,@rs1.address2)
putcell($_row,21,@rs1.jis_post_s)
putcell($_row,24,@rs1.jis_address)
putline(,)
#6行目
putcell($_row,4,@rs1.address3)
putcell($_row,21,@rs1.jis_tel_s)
putcell($_row,29,@rs1.jis_fax_s)
putline(,)
#7行目
putcell($_row,4,@rs1.tok_nm_s)
putcell($_row,21,@rs1.jis_url_s)
putline(,)
#8行目
putcell($_row,4,@rs1.tok_tan)
putcell($_row,21,@rs1.jis_mail_s)
putline(,)
#9行目
putcell($_row,4,@rs1.tok_nm_add)
#putcell($_row,21,振込先：)
iterate(PrintHeadFuri,@rs1.head_furi_flg)
iterate(PrintJisExt,$jis_ext_flg)
putline(,)
#10行目
#subroutine(SelectRecords_Furi)
#setdouble($furikomi,$_row)
#loop(Furikomi,@rs2)
# #23703 2022.06.09 MOD STT
#ややこしいけど、先頭行が項目4
putcell($_row,2,@rs1.mongon4)
# #23703 2022.06.09 MOD END
putline(,)
#11行目
# #23703 2022.06.09 MOD STT
#putcell($_row,2,@rs0.mongon1)
putcell($_row,2,@rs1.mongon1)
# #23703 2022.06.09 MOD END
putline(,)
#12行目
# #23703 2022.06.09 MOD STT
#putcell($_row,2,@rs0.mongon2)
putcell($_row,2,@rs1.mongon2)
# #23703 2022.06.09 MOD END
putline(,)
#13行目
# #23703 2022.06.09 MOD STT
#putcell($_row,2,@rs0.mongon3)
putcell($_row,2,@rs1.mongon3)
# #23703 2022.06.09 MOD END
putline(,)

iterate(CreateHeader_ext,$hext_flg)

#請求額_見出しcase有り
subroutine(CreateMidashi)

#請求額_金額_座標
setdouble($total_print_row_no,$_row)
putline(,)
#空行
putline(,)
#明細_見出し
iterate(MeisaiMidashi_One,$one_line_mode)
iterate(MeisaiMidashi_Two,$two_line_mode)
putline(,)
#罫線処理_罫線位置
setdouble($boder_row,$_row)

#請求額_金額表示_非表示（1ページ目だけ金額表示）
case($total_print_cnt,$total_print_flg,0,1,0)
#請求額_金額表示
iterate(PrintTotal,$total_print_cnt)

[CreateHeader_ext]
formatspecialrow($_row,0,45,8)
putline(,)
putline(,)
putline(,)
putline(,)
putline(,)
putline(,)
putline(,)
putline(,)

[PrintJisExt]
setdouble($w_row_no,$_row);
putcell($w_row_no,21,@rs1.jis_ext1)
sum($w_row_no,1)
putcell($w_row_no,21,@rs1.jis_ext2)
sum($w_row_no,1)
#2023.04.17 現状2項目のみ対応。5項目まで可能。
#putcell($w_row_no,21,@rs1.jis_ext3)
#sum($w_row_no,1)
#putcell($w_row_no,21,@rs1.jis_ext4)
#sum($w_row_no,1)
#putcell($w_row_no,21,@rs1.jis_ext5)
#sum($w_row_no,1)

[PrintHeadFuri]
putcell($_row,21,お振込先：)
subroutine(SelectRecords_Furi)
setdouble($furikomi,$_row)
sum($furikomi,1)
loop(Furikomi,@rs2)

[MeisaiMidashi_One]
formatspecialrow($_row,0,$midashi_fmt_row_no,1)
iterate(MeisaiMidashi_One_a,$logic_a)
iterate(MeisaiMidashi_One_b,$logic_b)
iterate(MeisaiMidashi_One_c,$logic_c)

#掛率なし 軽減税率なし
[MeisaiMidashi_One_a]
putcell($_row,2,日付)
putcell($_row,4,@rs1.den_no_label)
putcell($_row,6,伝区)
putcell($_row,8,品名)
putcell($_row,20,数量)
putcell($_row,23,単位)
putcell($_row,25,単価)
putcell($_row,29,金額)
putcell($_row,33,備考)

#掛率なし 軽減税率あり
[MeisaiMidashi_One_b]
putcell($_row,2,日付)
putcell($_row,4,@rs1.den_no_label)
putcell($_row,6,伝区)
putcell($_row,8,品名)
putcell($_row,20,数量)
putcell($_row,23,単位)
putcell($_row,25,単価)
putcell($_row,29,金額)
putcell($_row,33,税)
putcell($_row,34,備考)

#掛率あり 軽減税率なし
[MeisaiMidashi_One_c]
putcell($_row,2,日付)
putcell($_row,4,@rs1.den_no_label)
putcell($_row,6,伝区)
putcell($_row,8,品名)
putcell($_row,20,数量)
putcell($_row,22,税抜定価)
putcell($_row,25,掛率%)
putcell($_row,27,単価)
putcell($_row,30,金額)
putcell($_row,34,備考)

[MeisaiMidashi_Two]
formatspecialrow($_row,0,$midashi_fmt_row_no,1)
iterate(MeisaiMidashi_Two_a,$logic_a)
iterate(MeisaiMidashi_Two_b,$logic_b)
iterate(MeisaiMidashi_Two_c,$logic_c)

#掛率なし 軽減税率なし
[MeisaiMidashi_Two_a]
putcell($_row,2,日付)
putcell($_row,4,@rs1.den_no_label)
putcell($_row,6,伝区)
putcell($_row,8,@rs1.hin_cd_label)
putcell($_row,12,品名/備考)
putcell($_row,27,数量)
putcell($_row,30,単価)
putcell($_row,34,金額)

#掛率なし 軽減税率あり
[MeisaiMidashi_Two_b]
putcell($_row,2,日付)
putcell($_row,4,@rs1.den_no_label)
putcell($_row,6,伝区)
putcell($_row,8,@rs1.hin_cd_label)
putcell($_row,12,品名/備考)
putcell($_row,26,税)
putcell($_row,27,数量)
putcell($_row,30,単価)
putcell($_row,34,金額)

#掛率なし 軽減税率あり 伝票区分なし
[MeisaiMidashi_Two_c]
putcell($_row,2,日付)
putcell($_row,4,@rs1.den_no_label)
putcell($_row,7,@rs1.hin_cd_label)
putcell($_row,12,品名/備考)
putcell($_row,27,数量)
putcell($_row,30,単価)
putcell($_row,34,金額)

#-------------------------------------------------
#  見出し作成(2ページ目以降)
#-------------------------------------------------
[CreateHeaderPage2]
formatspecialrow($_row,0,9,1)

#1行目
putcell($_row,21,@rs1.tait)

#ページNo.表示処理
concatenate($page_no_view,Page., ,@rs1.page_no,/,@rs1.max_page)
putcell($_row,37,$page_no_view)
putline(,)

#2行目
putline(,)

#明細_見出し
iterate(MeisaiMidashi_One,$one_line_mode)
iterate(MeisaiMidashi_Two,$two_line_mode)
putline(,)
#罫線処理_罫線位置
setdouble($boder_row,$_row)
#22947 2022.02.15 2ページ目以降headerなしモードの時は罫線用変数に足し算したい
case($boder_add_plus,$hext_flg,1,18,0)





#-------------------------------------------------
#  罫線処理
#-------------------------------------------------
[PrintBorder]
#折れ線処理_罫線位置修正
case($boder_bug_add,$hext_flg,1,-5,3)
sum($boder_row,$boder_bug_add)
#22947 2022.02.15 2ページ目以降headerなしモードの時は罫線用変数に足し算したい
sum($boder_row,$boder_add_plus)
#折れ線処理_罫線出力
setborder($boder_row,0,1,0,1,1,001000,1,2,1)

#-------------------------------------------------
#  改ページ処理フラグ
#-------------------------------------------------
[NewPage]
##罫線処理_1回目は出力しない
#case($boder_off,$boder_off_flg,1,1,0)
##罫線処理_1回目は出力しない
#setdouble($boder_off_flg,1)
##罫線処理
#iterate(PrintBorder,$boder_off)

#改ページ挿入
#HPAGEBREAK($_row)
case($print_next_page_cnt,@rs1.page_no,1,0,1)
iterate(PrintNextPage,$print_next_page_cnt)

#見出し作成
case($page1_flg,@rs1.page_no,1,1,0)
case($page2_flg,@rs1.page_no,1,0,1)
case($header_page1,$hext_flg,1,$page1_flg,1)
case($header_page2,$hext_flg,1,$page2_flg,0)
iterate(CreateHeader,$header_page1)
iterate(CreateHeaderPage2,$header_page2)

[PrintNextPage]
#改ページ挿入
HPAGEBREAK($_row)

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

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

#請求額_金額非表示フラグ
setdouble($total_print_flg,0)

##明細_行数カウント
#setdouble($furikomi,9)

#折れ線初期値
setdouble($boder_row,0)
#22947 2022.02.15 2ページ目以降headerなしモードの時は罫線用変数に足し算したい
setdouble($boder_add_plus,0)
##折れ線初期値
#setdouble($boder_off_flg,0)


#-------------------------------------------------
#  Key1終了時
#-------------------------------------------------
[GroupEnd_key1]
#罫線処理
#subroutine(PrintBorder)
#フッタ処理
#iterate(PrintFooter,@rs1.footer_flg)
pageclose(false)

[PrintFooter]
formatspecialrow($_row,0,33,3)
putcell($_row,2,@rs1.footer1)
putline(,)
putcell($_row,2,@rs1.footer2)
putline(,)
putcell($_row,2,@rs1.footer3)
putline(,)

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

#-------------------------------------------------
#  Key2開始時
#-------------------------------------------------
[GroupBegin_key2]
#改ページ処理
subroutine(NewPage)


#-------------------------------------------------
#  Key2終了時
#-------------------------------------------------
[GroupEnd_key2]
#罫線処理
subroutine(PrintBorder)
#フッタ処理
iterate(PrintFooter,@rs1.footer_flg)



#-------------------------------------------------
#  明細表示処理
#-------------------------------------------------
[PrintNormal]
#改ページ処理
#subroutine(PageBreak)
iterate(PrintNormal_One,$one_line_mode)
iterate(PrintNormal_Two,$two_line_mode)

[PrintNormal_One]
formatspecialrow($_row,0,$uritndec,1)
iterate(PrintNormal_One_a,$logic_a)
iterate(PrintNormal_One_b,$logic_b)
iterate(PrintNormal_One_c,$logic_c)

#掛率なし 軽減税率なし
[PrintNormal_One_a]
putcell($_row,2,@rs1.den_dt_view)
putcell($_row,4,@rs1.den_no_view)
putcell($_row,6,@rs1.kbn_view)
putcell($_row,8,@rs1.hin_nm)
putcell($_row,23,@rs1.tani)
putcell($_row,33,@rs1.meisai_biko_s)
putline(,,,,,,,,,,,,,,,,,,,@rs1.suryo#,,,,,@rs1.tanka#,,,,@rs1.kingaku#,,,,)

#掛率なし 軽減税率あり
[PrintNormal_One_b]
putcell($_row,2,@rs1.den_dt_view)
putcell($_row,4,@rs1.den_no_view)
putcell($_row,6,@rs1.kbn_view)
putcell($_row,8,@rs1.hin_nm)
putcell($_row,23,@rs1.tani)
putcell($_row,33,@rs1.zei_rate)
putcell($_row,34,@rs1.meisai_biko_s)
putline(,,,,,,,,,,,,,,,,,,,@rs1.suryo#,,,,,@rs1.tanka#,,,,@rs1.kingaku#,,,,)

#掛率あり 軽減税率なし
[PrintNormal_One_c]
putcell($_row,2,@rs1.den_dt_view)
putcell($_row,4,@rs1.den_no_view)
putcell($_row,6,@rs1.kbn_view)
putcell($_row,8,@rs1.hin_nm)
putcell($_row,34,@rs1.meisai_biko_s)
putline(,,,,,,,,,,,,,,,,,,,@rs1.suryo#,,@rs1.htanka#,,,@rs1.disc_per#,,@rs1.tanka#,,,@rs1.kingaku#)

[PrintNormal_Two]
formatspecialrow($_row,0,$uritndec,2)
iterate(PrintNormal_Two_ab,$logic_a)
iterate(PrintNormal_Two_ab,$logic_b)
iterate(PrintNormal_Two_c,$logic_c)

[PrintNormal_Two_ab]
#1行目
putcell($_row,2,@rs1.den_dt)
putcell($_row,4,@rs1.den_no_view)
putcell($_row,6,@rs1.kbn)
putcell($_row,8,@rs1.hin_cd)
putcell($_row,12,@rs1.hin_nm)
putline(,)
#2行目
case($zei_rate,$zei_multi_mode,1,@rs1.zei_rate,)
putcell($_row,12,@rs1.meisai_biko_s)
putline(,,,,,,,,,,,,,,,,,,,,,,,,,$zei_rate#,@rs1.suryo#,,,@rs1.tanka#,,,,@rs1.kingaku#)

[PrintNormal_Two_c]
#1行目
putcell($_row,2,@rs1.den_dt)
putcell($_row,4,@rs1.den_no_view)
putcell($_row,7,@rs1.hin_cd)
putcell($_row,12,@rs1.hin_nm)
putline(,)
#2行目
case($zei_rate,$zei_multi_mode,1,@rs1.zei_rate,)
putcell($_row,12,@rs1.meisai_biko_s)
putline(,,,,,,,,,,,,,,,,,,,,,,,,,$zei_rate#,@rs1.suryo#,,,@rs1.tanka#,,,,@rs1.kingaku#)


#-------------------------------------------------
#  Key0設定ルーチン
#-------------------------------------------------
[KeyInfo_key0]
keyvalue(dummy)
keybreakproc(GroupBegin_key0,GroupEnd_key0)

#-------------------------------------------------
#  Key0開始時
#-------------------------------------------------
[GroupBegin_key0]
dbselect(SelectSyaban,@rs_syab,$param)
case($syab_flg,@rs_syab.image_cd,,0,1)
iterate(LoadSyabImage,$syab_flg)

dbselect(SelectLogo,@rs_logo,$param)
case($logo_flg,@rs_logo.image_cd,,0,1)
iterate(LoadLogoImage,$logo_flg)

#明細パターン判定
subroutine(SelectMeisaiType)

#自社拡張情報（ヘッダの振込先印字が無いときのみ）
case($jis_ext_flg,@rs1.head_furi_flg,1,0,1)


#-------------------------------------------------
#  Key0終了時
#-------------------------------------------------
[GroupEnd_key0]

[LoadLogoImage]
new($param)
addparam($param,@rs_logo.image_cd)
dbselect(SelectImage,@rs_img_logo,$param)
tempimage(logo,@rs_img_logo.file_image)

[LoadSyabImage]
new($param)
addparam($param,@rs_syab.image_cd)
#dbselect(SelectImage,@rs_img,$param)
#tempimage(syaban,@rs_img.file_image)
dbselect(SelectImageList,@rs_img_syab,$param)
loop(LoadSyabImageOne,@rs_img_syab)

[LoadSyabImageOne]
#TODO
case($kakuin_normal,@rs_img_syab.image_cd,kakuin,1,0)
case($kakuin_eig1,@rs_img_syab.image_cd,kakuin1,1,0)
case($kakuin_eig2,@rs_img_syab.image_cd,kakuin2,1,0)
iterate(LoadSyabImageOne_Normal,$kakuin_normal)
iterate(LoadSyabImageOne_Eig1,$kakuin_eig1)
iterate(LoadSyabImageOne_Eig2,$kakuin_eig2)

[LoadSyabImageOne_Normal]
tempimage(kakuin,@rs_img_syab.file_image)
[LoadSyabImageOne_Eig1]
tempimage(kakuin1,@rs_img_syab.file_image)
[LoadSyabImageOne_Eig2]
tempimage(kakuin2,@rs_img_syab.file_image)

[PutLogo]
setdouble($put_img_row,0)
sum($put_img_row,$_row)
sum($put_img_row,@rs_logo.img_row)
putimage($put_img_row,@rs_logo.img_col,0,0,0,0,logo)

[PutSyaban]
setdouble($put_img_row,0)
sum($put_img_row,$_row)
sum($put_img_row,@rs_syab.img_row)
#putimage($put_img_row,@rs_syab.img_col,0,0,0,0,syaban)
concatenate($kakuin_id,kakuin,@rs1.eig_cd)
putimage($put_img_row,@rs_syab.img_col,0,0,0,0,$kakuin_id)

[SelectMeisaiType]
new($param)
addparam($param,$disc_per_mode)
addparam($param,$zei_multi_mode)
addparam($param,@rs1.uritndec)
addparam($param,$two_line_mode)
addparam($param,$no_denkbn_mode)
dbselect(SelectMeisaiType,@rs_fmt,$param)
setdouble($uritndec,@rs_fmt.meisai_format_row_no)
setdouble($midashi_fmt_row_no,@rs_fmt.midashi_format_row_no)
case($logic_a,@rs_fmt.logic_type,a,1,0)
case($logic_b,@rs_fmt.logic_type,b,1,0)
case($logic_c,@rs_fmt.logic_type,c,1,0)