[Main]
dbuse(true)
initparam(printMode,reportId,dt_from,dt_to,uri_no,tokui_cd,syohin_nm,han_name,dst_filename,seikyu_s_id,option1,option2,group_no,option3,option4,option5,option6,option7,den_s_id,syukka_req_mng_id,eig_cd,input_dt_from,input_dt_to,loc_no,nonyu_hoho,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,eigyo_tan_cd_fr,eigyo_tan_cd_to,hin_cd_fr,hin_cd_to,cat_cd_fr,cat_cd_to,den_no_fr,den_no_to,hin_nm2,genka_flg,output_ymd,tok_cat_fr,tok_cat_to,sort_sql,dst_filename)
# J:受注対象
case($jucyu_flg,$option1,J,1,0)

# タイプ(:請求書,1:納品書,2:出荷チェック表,3:出荷明細書)
concatenate($rep_type,$option4)
# 1:金額非表示、2:標準単価非表示、3:標準単価のみ表示
case($hide_kingaku_flg,$option6,1,1,3,1,6,1,0)
case($hide_htanka_flg,$option6,1,1,2,1,4,1,5,1,6,1,7,1,0)#4軽減税率対応（2:標準単価非表示+税率）
case($hide_disc_flg,$option6,1,1,2,1,3,1,4,1,5,1,6,1,7,1,0)#4軽減税率対応（2:標準単価非表示+税率）
case($show_disc_mode,$option6,2,0,4,0,5,0,6,0,7,0,1)
case($hide_disc_mode,$option6,2,1,4,1,5,1,6,1,7,1,0)
case($show_tani_mode,$option6,5,1,7,1,0) #単位あり
case($hide_tani_mode,$option6,5,0,7,0,1) #単位なし
case($keigen_zeiritu_mode,$option6,4,1,7,1,0)#軽減税率対応
# 1:ロケーション表示
case($location_flg,$option7,1,1,0)

#請求書の場合振込先を出力
case($furikomosaki,$rep_type,,1,0)

#消費税なし
case($no_zei_mode,$rep_type,5,1,0)

#社内情報あり
case($internal_flg,$rep_type,6,1,0)

#受領書
case($jyuryo_mode,$rep_type,7,1,0)

deforgpage(blank)
defheadarea(hed)
defbodyarea(mei)
#subroutine(SelectRecords_Jisya)

subroutine(SelectRecords)
loop(PrintNormal,@rs1,Key0,Key1,Key2)
filename($dst_filename)

#printreport($printMode,true,false)

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)

#-------------------------------------------------
#  SQL実行_自社
#-------------------------------------------------
[SelectRecords_Jisya]
new($param)
addparam($param,$han_name)
addparam($param,$option2)
addparam($param,$uri_no)
addparam($param,$rep_type)
addparam($param,$option3)
dbselect(SelectRecords_Jisya,@rs0,$param)

#-------------------------------------------------
#  SQL実行
#-------------------------------------------------
[SelectRecords]
new($param)
addparam($param,$dt_from)
addparam($param,$dt_to)
addparam($param,$uri_no)
addparam($param,$tokui_cd)
addparam($param,$syohin_nm)
addparam($param,$han_name)
addparam($param,$seikyu_s_id)
addparam($param,$jucyu_flg)
#addparam($param,@rs0.uri_tokadr_kbn)
#addparam($param,@rs0.hin_cd_FLG)
#addparam($param,@rs0.tok_cd_FLG)
#addparam($param,@rs0.midasi_FLG)#12
addparam($param,rs0_uri_tokadr_kbn)
addparam($param,rs0_hin_cd_FLG)
addparam($param,rs0_tok_cd_FLG)
addparam($param,rs0_midasi_FLG)#12
addparam($param,$option3)#13
addparam($param,$hide_kingaku_flg)#14
addparam($param,$hide_htanka_flg)#15
addparam($param,$hide_disc_flg)#16
addparam($param,$location_flg)#17
addparam($param,$eig_cd)#18
addparam($param,$input_dt_from)
addparam($param,$input_dt_to)
addparam($param,$rep_type)
addparam($param,$option2)#22
addparam($param,$den_s_id)
addparam($param,$no_zei_mode)
addparam($param,$internal_flg)
dbselect(UpdateDb,@rs_upd,$param)
dbselect(SelectRecords,@rs1,$param)

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

#-------------------------------------------------
#  明細見出し
#-------------------------------------------------
[meisai_midashi]
concatenate($discper_lbl,@rs1.discper_lbl)
#case($hin_loc_lbl,$location_flg,1,品番/棚番,品番)
case($hin_loc_lbl,$location_flg,1,品番/棚番,@rs1.hin_cd_lbl)
case($htanka_lbl,$hide_htanka_flg,1,,@rs1.htanka_label)
case($discper_lbl,$hide_disc_flg,1,,$discper_lbl)
case($tanka_lbl_w,$internal_flg,1,原価@/販売@,単価)
case($tanka_lbl,$hide_kingaku_flg,1,,$tanka_lbl_w)
case($kingaku_lbl,$hide_kingaku_flg,1,,金額)

#iterate(meisai_midashi_disc,$show_disc_mode)
#iterate(meisai_midashi_no_disc,$hide_disc_mode)
#iterate(meisai_midashi_zeiritu,$keigen_zeiritu_mode)

formatspecialrow($header,0,$midashi_fmt_row_no,1)
iterate(meisai_midashi_a,$logic_a)
iterate(meisai_midashi_b,$logic_b)
iterate(meisai_midashi_c,$logic_c)
iterate(meisai_midashi_d,$logic_d)
iterate(meisai_midashi_e,$logic_e)
iterate(meisai_midashi_f,$logic_f)
iterate(meisai_midashi_g,$logic_g)
sum($header,1)
formatspecialrow($header,0,$meisai_fmt_row_no,30)
sum($header,1)

#単位なし
[meisai_midashi_a]
putcell($header,2,No.)
putcell($header,3,$hin_loc_lbl)
putcell($header,7,品名/明細備考)
putcell($header,22,数量)
putcell($header,24,$tanka_lbl)
putcell($header,28,$kingaku_lbl)

#単位あり
[meisai_midashi_b]
putcell($header,2,No.)
putcell($header,3,$hin_loc_lbl)
putcell($header,7,品名/明細備考)
putcell($header,20,数量)
putcell($header,22,単位)
putcell($header,24,$tanka_lbl)
putcell($header,28,$kingaku_lbl)

#品名拡張
[meisai_midashi_c]
putcell($header,2,No.)
putcell($header,3,$hin_loc_lbl)
putcell($header,5,品名/明細備考)
putcell($header,23,数量)
putcell($header,25,$tanka_lbl)
putcell($header,28,$kingaku_lbl)

#レスあり
[meisai_midashi_d]
putcell($header,2,No.)
putcell($header,3,$hin_loc_lbl)
putcell($header,7,品名/明細備考)
putcell($header,16,数量)
putcell($header,18,$htanka_lbl)
putcell($header,22,$discper_lbl)
putcell($header,24,$tanka_lbl)
putcell($header,28,$kingaku_lbl)

#レスあり・品名拡張
[meisai_midashi_e]
putcell($header,2,No.)
putcell($header,3,$hin_loc_lbl)
putcell($header,5,品名/明細備考)
putcell($header,18,数量)
putcell($header,20,$htanka_lbl)
putcell($header,23,$discper_lbl)
putcell($header,25,$tanka_lbl)
putcell($header,28,$kingaku_lbl)

# 税率列表示Ver
[meisai_midashi_f]
putcell($header,2,No.)
putcell($header,3,$hin_loc_lbl)
putcell($header,7,品名/サイズ・規格/産地/明細備考)
putcell($header,20,税率)
putcell($header,22,数量)
putcell($header,24,$tanka_lbl)
putcell($header,28,$kingaku_lbl)

# 税率・単位列表示Ver
[meisai_midashi_g]
putcell($header,2,No.)
putcell($header,3,$hin_loc_lbl)
putcell($header,7,品名/明細備考)
putcell($header,18,税率)
putcell($header,20,数量)
putcell($header,22,単位)
putcell($header,24,$tanka_lbl)
putcell($header,28,$kingaku_lbl)

#-------------------------------------------------
#  ヘッダ処理_ヘッダー
#-------------------------------------------------
[PutLogo]
setdouble($logo_row,-1)
sum($logo_row,$header)
sum($logo_row,@rs_logo.logo_row)
putimage($logo_row,@rs_logo.logo_col,0,0,0,0,logo)

[PutSyaban]
setdouble($syab_row,-1)
sum($syab_row,$header)
sum($syab_row,@rs_syab.img_row)
#TODO
case($w_eig_cd,$kakuin_eig_mode,1,@rs1.eig_cd,)
#concatenate($kakuin_id,kakuin,@rs1.eig_cd)
concatenate($kakuin_id,kakuin,$w_eig_cd)
#concatenate($kakuin_id,kakuin,)
putimage($syab_row,@rs_syab.img_col,0,0,0,0,$kakuin_id)

[CreateHeader]
concatenate($page_n,Page. ,@rs1.page_no,/,@rs1.max_page)


#納期なしの時も納期の表示出す。
case($nonyu_ymd,@rs1.nonyu_ymd,,御社希望納期：　----/--/--　,御社希望納期：)
concatenate($nonyu_ymd,$nonyu_ymd,@rs1.nonyu_ymd)

#文言マスタの文節を結合する
concatenate($mongon1,@rs1.mongon1,@rs1.mongon2)
concatenate($mongon2,@rs1.mongon3,@rs1.mongon4,@rs1.mongon5)

#出荷明細書は納入先住所の方を出す
case($w_zip_no,$rep_type,3,@rs1.zip_no,@rs1.tok_zip_no)
case($w_addr1,$rep_type,3,@rs1.addr1,@rs1.tok_addr1)
case($w_addr2,$rep_type,3,@rs1.addr2,@rs1.tok_addr2)
case($w_addr3,$rep_type,3,@rs1.addr3,@rs1.tok_addr3)
case($w_addr4,$rep_type,3,@rs1.addr4,@rs1.tok_addr4)

case($w_tok_nm,$rep_type,3,@rs1.nonyu_nm,@rs1.tok_nm_s)
case($w_tok_tan,$rep_type,3,,@rs1.tok_tan)

case($w_eigyou_tan_nm,$rep_type,3,,@rs1.eigyou_tan_nm_s)

concatenate($tel_fax,@rs1.j_tel_s, ,@rs1.j_fax_s)

setdouble($header,$header_stt)
#ヘッダ処理
# #23704 2022.05.27 MOD STT
#formatspecialrow($header,0,1,10)
formatspecialrow($header,0,1,13)
# #23704 2022.05.27 MOD END

# #23704 2022.05.27 MOD STT
#0行目
putcell($header,18,@rs1.title)
putcell($header,31,$page_n)
sum($header,1)
# #23704 2022.05.27 MOD END

#1行目
iterate(PutSyaban,$syab_flg)
# #23704 2022.05.27 MOD STT
#putcell($header,24,@rs0.syori_ymd_label)
#putcell($header,27,@rs1.syori_ymd)
putcell($header,27,@rs1.syori_ymd_label)
putcell($header,28,@rs1.syori_ymd)
# #23704 2022.05.27 MOD END
iterate(PutLogo,$logo_flg)
sum($header,1)

#2行目
putcell($header,4,$w_zip_no)
# #23704 2022.05.27 MOD STT
#putcell($header,24,@rs0.den_no_label)
#putcell($header,27,@rs1.den_no)
putcell($header,27,@rs1.den_no_label)
putcell($header,28,@rs1.den_no_view)
# #23704 2022.05.27 MOD END
sum($header,1)

#3行目
putcell($header,4,$w_addr1)
# #23704 2022.05.27 MOD STT
#putcell($header,22,@rs1.j_nm)
putcell($header,31,@rs1.tok_cd_view)
# #23704 2022.05.27 MOD END
sum($header,1)

#4行目
putcell($header,4,$w_addr2)
# #23704 2022.05.27 MOD STT
#putcell($header,22,@rs1.j_post_s)
# #23704 2022.05.27 MOD END
sum($header,1)

#5行目
putcell($header,4,$w_addr3)
# #23704 2022.05.27 MOD STT
#putcell($header,22,@rs1.j_address)
putcell($header,20,@rs1.j_nm)
# #23704 2022.05.27 MOD END
sum($header,1)

#6行目
putcell($header,4,$w_addr4)
# #23704 2022.05.27 MOD STT
#putcell($header,22,@rs1.j_address2)
putcell($header,20,@rs1.j_post_s)
# #23704 2022.05.27 MOD END
sum($header,1)

#7行目
putcell($header,4,$w_tok_nm)
# #23704 2022.05.27 MOD STT
#putcell($header,22,@rs1.j_address3)
putcell($header,20,@rs1.j_address)
# #23704 2022.05.27 MOD END
sum($header,1)

#8行目
putcell($header,4,$w_tok_tan)
# #23704 2022.05.27 MOD STT
#putcell($header,22,$tel_fax)
putcell($header,20,@rs1.j_address2)
# #23704 2022.05.27 MOD END
sum($header,1)

#9行目
putcell($header,4,@rs1.tok_nm_add)
# #23704 2022.05.27 MOD STT
#putcell($header,22,@rs1.j_url_s)
putcell($header,20,@rs1.j_address3)
# #23704 2022.05.27 MOD END
sum($header,1)

# #23704 2022.05.27 MOD STT
#10行目
putcell($header,4,@rs1.under_tok_nm)
putcell($header,20,$tel_fax)
sum($header,1)

#11行目
putcell($header,20,@rs1.j_url_s)
sum($header,1)
# #23704 2022.05.27 MOD END

#12行目
# #23704 2022.05.27 MOD STT
#putcell($header,22,@rs1.j_email_s)
putcell($header,20,@rs1.j_email_s)
# #23704 2022.05.27 MOD END
sum($header,1)

# #23704 2022.05.27 MOD STT
#請求書の場合ヘッダに振込先を出力
# #24318 2022.06.07 MOD STT
#iterate(seikyuH,$furikomi_h)
iterate(seikyuH,$furikomi_h_n)
iterate(seikyuH_NoneFuri,$furikomi_h_d)
# #24318 2022.06.07 MOD END
# #23704 2022.05.27 MOD END

#13行目
putcell($header,27,$w_eigyou_tan_nm)
# #23704 2022.05.27 MOD STT
#case($w_format_row_nohin,$hide_kingaku_flg,1,203,15)
#case($w_format_row,$rep_type,1,$w_format_row_nohin,2,15,3,69,11)
case($w_format_row_nohin,$hide_kingaku_flg,1,206,18)
#case($w_format_row,$rep_type,1,$w_format_row_nohin,2,18,3,72,14)
case($w_format_row,$rep_type,1,$w_format_row_nohin,5,414,2,18,3,72,6,$w_format_row_nohin,7,$w_format_row_nohin,14)
# #23704 2022.05.27 MOD END
formatspecialrow($header,0,$w_format_row,4)
# #23704 2022.05.27 MOD STT
#case($w_seikyu_mongon,$rep_type,,下記の通りご請求申し上げます。,)
#putcell($header,14,$w_seikyu_mongon)
case($w_seikyu_mongon,$rep_type,,@rs1.mongon6,$mongon1)
putcell($header,2,$w_seikyu_mongon)
# #23704 2022.05.27 MOD END
sum($header,1)

#14行目(タイトル合計行)
case($w_syukaCH_mongon,$rep_type,2,必ず伝票発行確認を取る,,,$mongon2)

case($ww_total_lbl1,$no_zei_mode,1,,税抜御買上額)
case($ww_total_lbl2,$no_zei_mode,1,,@rs1.total_zei_label)
case($ww_total_lbl3,$no_zei_mode,1,税抜御買上額,税込御買上額)

#case($w_zeinuki_gaku_lbl_nohin,$hide_kingaku_flg,1,,税抜御買上額)
case($w_zeinuki_gaku_lbl_nohin,$hide_kingaku_flg,1,,$ww_total_lbl1)

#case($w_zei_gaku_lbl_nohin,$hide_kingaku_flg,1,,@rs1.total_zei_label)
case($w_zei_gaku_lbl_nohin,$hide_kingaku_flg,1,,$ww_total_lbl2)

#case($w_zeikomi_gaku_lbl_nohin,$hide_kingaku_flg,1,,税込御買上額)
case($w_zeikomi_gaku_lbl_nohin,$hide_kingaku_flg,1,,$ww_total_lbl3)

case($w_zeinuki_gaku_lbl,$rep_type,3,,2,,$w_zeinuki_gaku_lbl_nohin)
case($w_zei_gaku_lbl,$rep_type,3,,2,,$w_zei_gaku_lbl_nohin)
case($w_zeikomi_gaku_lbl,$rep_type,3,,2,御注文合計金額,$w_zeikomi_gaku_lbl_nohin)
case($w_seikyu_mongon2,$rep_type,,今回御請求額,)
case($w_seikyu_mongon3,$rep_type,,（税込）,)
putcell($header,2,$w_syukaCH_mongon)
# #23704 2022.05.27 MOD STT
#putcell($header,14,$w_zeinuki_gaku_lbl)
#putcell($header,18,$w_zei_gaku_lbl)
#putcell($header,22,$w_zeikomi_gaku_lbl)
#putcell($header,27,$w_seikyu_mongon2)
putcell($header,20,$w_zeinuki_gaku_lbl)
putcell($header,24,$w_zei_gaku_lbl)
putcell($header,28,$w_zeikomi_gaku_lbl)
# #23704 2022.05.27 MOD END
sum($header,1)

#15行目
case($w_hide_kingaku_flg,@rs1.page_no,1,$hide_kingaku_flg,1)
case($w_zeinuki_gaku_nohin,$w_hide_kingaku_flg,1,,@rs1.zeinuki_gaku)
case($w_zei_gaku_nohin,$w_hide_kingaku_flg,1,,@rs1.zei_gaku)
case($w_zeikomi_gaku_nohin,$w_hide_kingaku_flg,1,,@rs1.zeikomi_gaku)

#case($w_zeinuki_gaku,$rep_type,3,,2,,$w_zeinuki_gaku_nohin)
#case($w_zei_gaku,$rep_type,3,,2,,$w_zei_gaku_nohin)
#case($w_zeikomi_gaku,$rep_type,3,,$w_zeikomi_gaku_nohin)
case($w_zeinuki_gaku,$rep_type,3,,5,,2,,$w_zeinuki_gaku_nohin)
case($w_zei_gaku,$rep_type,3,,5,,2,,$w_zei_gaku_nohin)
case($w_zeikomi_gaku,$rep_type,3,,5,$w_zeinuki_gaku_nohin,$w_zeikomi_gaku_nohin)
case($w_seikyu_gaku,$rep_type,,@rs1.zeikomi_gaku,)

putcell($header,20,$w_zeinuki_gaku)
putcell($header,24,$w_zei_gaku)
putcell($header,28,$w_zeikomi_gaku)
putcell($header,7,$w_seikyu_gaku)
putcell($header,6,$w_seikyu_mongon2)
putcell($header,12,$w_seikyu_mongon3)

sum($header,1)

#16行目
# #23704 2022.05.27 MOD STT
#putcell($header,2,@rs1.tok_cd)
# #23704 2022.05.27 MOD END
putcell($header,14,@rs1.tok_hacyu_no_h)
setdouble($hks_flg,0)
iterate(nouki_on,$jucyu_flg)
sum($header,1)

subroutine(meisai_midashi)




[nouki_on]
# #26746 2023.01.04 MOD STT
#putcell($header,29,$nonyu_ymd)
#putcell($header,31,$page_n)
# #26746 2023.01.04 MOD END

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

[seikyuH]
formatspecialrow($header,0,243,5)

#1行目
putcell($header,20,お振込先:)
#文言1
putcell($header,2,@rs1.mongon1)
sum($header,1)

#2行目
#振込先用の位置保存
setdouble($furikomi,$header)
#文言2
putcell($header,2,@rs1.mongon2)
sum($header,1)

#3行目
#文言3
putcell($header,2,@rs1.mongon3)
sum($header,1)

#4行目
#文言4
putcell($header,2,@rs1.mongon4)
sum($header,1)

#5行目
#文言5
putcell($header,2,@rs1.mongon5)
sum($header,1)

#TODO 支払条件の仕様なし
##5行目
#putcell($goukei,2,$tori_cond)
#sum($goukei,1)

#振込先出力（切替予定）
#2-4行目
subroutine(SelectRecords_Furi)
#振込機関出力処理
setdouble($furikomi_col,20)
loop(Furikomi,@rs2)

[seikyuH_NoneFuri]
formatspecialrow($header,0,276,5)

#1行目
#文言1
putcell($header,2,@rs1.mongon1)
sum($header,1)

#2行目
#文言2
putcell($header,2,@rs1.mongon2)
sum($header,1)

#3行目
#文言3
putcell($header,2,@rs1.mongon3)
sum($header,1)

#4行目
#文言4
putcell($header,2,@rs1.mongon4)
sum($header,1)

#5行目
#文言5
putcell($header,2,@rs1.mongon5)
sum($header,1)


[seikyuF]
# #23704 2022.05.27 MOD STT
#TODO 6行ではなく5行が正しいのでは？
#formatspecialrow($goukei,0,53,6)
formatspecialrow($goukei,0,56,5)
# #23704 2022.05.27 MOD END

#1行目
putcell($goukei,20,お振込先:)
putcell($goukei,2,$mongon1)
sum($goukei,1)

#2行目
#ループカウンタ設定
setdouble($furikomi,$goukei)
putcell($goukei,2,$mongon2)
sum($goukei,1)

#3行目
#putcell($goukei,2,@rs1.mongon3)
sum($goukei,1)

#4行目
#putcell($goukei,2,@rs1.mongon4)
sum($goukei,1)

#5行目
#putcell($goukei,2,@rs1.mongon5)
putcell($goukei,2,$tori_cond)
sum($goukei,1)

#振込先出力（切替予定）
#2-4行目
subroutine(SelectRecords_Furi)
#振込機関出力処理
setdouble($furikomi_col,20)
loop(Furikomi,@rs2)




[syukaCHF]
# #23704 2022.05.27 MOD STT
#formatspecialrow($goukei,0,62,6)
formatspecialrow($goukei,0,65,6)
# #23704 2022.05.27 MOD END

#1行目
putcell($goukei,26,伝票発行確認)
sum($goukei,1)

#2-4行目
putcell($goukei,26,出荷明細)
putcell($goukei,28,納品書)
putcell($goukei,30,ワイズ請求)
sum($goukei,3)

#5行目
sum($goukei,1)


#-------------------------------------------------
#  フッタ処理_フッター
#-------------------------------------------------
[CreateFooter]
case($w_addr1,$rep_type,3,,@rs1.addr1)
case($w_addr2,$rep_type,3,,@rs1.addr2)
case($w_addr3,$rep_type,3,,@rs1.addr3)
case($w_addr4,$rep_type,3,,@rs1.addr4)
case($w_nonyu_nm,$rep_type,3,,@rs1.nonyu_nm)

#支払条件セット
case($tori_cond_label,@rs1.tori_cond,,,支払条件:)
concatenate($tori_cond,$tori_cond_label,@rs1.tori_cond)

#納品先タイトルセット
#case($nonyu_tit_label,@rs0.uri_tokadr_kbn,1,納品先情報：,)
concatenate($nonyu_tit_label,@rs1.nonyu_title_label)
case($w_zip_no,$rep_type,3,同上,@rs1.zip_no)
concatenate($zip_no,$nonyu_tit_label,$w_zip_no)
#納品先TELとFAX
case($nonyu_tel_label,@rs1.nonyu_tel,,,電話番号:)
case($nonyu_fax_label,@rs1.nonyu_fax,,,FAX番号:)
concatenate($nonyu_tel,$nonyu_tel_label,@rs1.nonyu_tel)
concatenate($nonyu_fax,$nonyu_fax_label,@rs1.nonyu_fax)

#納入先有無で分岐
case($w_nonyu_ari,@rs1.nonyu_print_flg,1,1,0)
case($w_nonyu_nasi,@rs1.nonyu_print_flg,1,0,1)
iterate(FooterNonyuAri,$w_nonyu_ari)
iterate(FooterNonyuNasi,$w_nonyu_nasi)

#8行目
sum($goukei,1)

#9行目
putcell($goukei,2,備考欄:)
sum($goukei,1)

#10行目
putcell($goukei,2,@rs1.biko1)
sum($goukei,1)

#11行目
#TODO この行、formatできてない
#得意先分類コード
putcell($goukei,2,@rs1.tok_cat_cd)
sum($goukei,1)

# #23704 2022.05.27 MOD STT
#formatspecialrow($goukei,0,51,2)
##文言1行目
#putcell($goukei,2,$mongon1)
#sum($goukei,1)
##文言2行目
#putcell($goukei,2,$mongon2)
#sum($goukei,1)
# #23704 2022.05.27 MOD END

#請求書の場合フッタに振込先を出力
# #23704 2022.05.27 MOD STT
#iterate(seikyuF,$furikomosaki)
iterate(seikyuF,$furikomi_f)
# #23704 2022.05.27 MOD END

#出荷チェック表フッタ
case($syukaCH_ft,$rep_type,2,1,0)
iterate(syukaCHF,$syukaCH_ft)

#社内備考
iterate(InternalFooter2,$internal_flg)

#受領印
iterate(JyuryoFooter,$jyuryo_mode)

[FooterNonyuCommon]
#1行目
#合計数量
putcell($goukei,31,@rs1.suryo_kei_view)
#得意先コード（フッタ）
putcell($goukei,2,@rs1.tok_cd_bottom_view)
iterate(InternalFooter,$internal_flg)
#軽減税率対象商品に対するコメント
putcell($goukei,7,@rs1.zei_multi_comment)
sum($goukei,1)

[FooterNonyuAri]
#フォーマット指定
formatspecialrow($goukei,0,43,10)

#1行目
subroutine(FooterNonyuCommon)

#2行目
putcell($goukei,2,$zip_no)
putcell($goukei,12,$nonyu_tel)
putcell($goukei,22,$nonyu_fax)
sum($goukei,1)

#3行目
putcell($goukei,2,$w_addr1)
sum($goukei,1)

#4行目
putcell($goukei,2,$w_addr2)
sum($goukei,1)

#5行目
putcell($goukei,2,$w_addr3)
sum($goukei,1)

#6行目
putcell($goukei,2,$w_addr4)
sum($goukei,1)

#7行目
putcell($goukei,2,$w_nonyu_nm)
sum($goukei,1)



[FooterNonyuNasi]
#フォーマット指定
formatspecialrow($goukei,0,458,4)

#1行目
subroutine(FooterNonyuCommon)



[InternalFooter]
concatenate($w_nonyu_ymd,納期：,@rs1.nonyu_ymd)
putcell($goukei,2,$w_nonyu_ymd)

[InternalFooter2]
formatspecialrow($goukei,0,51,2)
putcell($goukei,2,社内備考欄:)
sum($goukei,1)
putcell($goukei,2,@rs1.biko2)
sum($goukei,1)

[JyuryoFooter]
formatspecialrow($goukei,0,419,5)
putcell($goukei,26,受領印)
sum($goukei,5)


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

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

case($furikomi_h,@rs1.furikomi_head_flg,1,$furikomosaki,0)
case($furikomi_f,@rs1.furikomi_head_flg,1,0,$furikomosaki)
# #24318 2022.06.07 MOD STT
case($furikomi_h_n,$option7,3,0,$furikomi_h)
case($furikomi_h_d,$option7,3,$furikomi_h,0)
# #24318 2022.06.07 MOD END

case($hinnmwide_on,@rs1.sp4_kbn,1,1,0)
case($hinnmwide_off,@rs1.sp4_kbn,1,0,1)

#ヘッダ開始位置_初期
setdouble($header_stt,1)
#フッタ開始位置_初期
# #23704 2022.05.27 MOD STT
#setdouble($goukei_stt,46)
#setdouble($goukei_stt,49)
#振込先をヘッダ印字するときはずらす
case($goukei_stt,$furikomi_h,1,54,49)
# #23704 2022.05.27 MOD END
#明細位置_納品書_初期
# #23704 2022.05.27 MOD STT
#setdouble($cow_stt,16)
#setdouble($cow_stt,19)
#振込先をヘッダ印字するときはずらす
case($cow_stt,$furikomi_h,1,24,19)
# #23704 2022.05.27 MOD END
#改ページ位置_初期
setdouble($page,1)
#hin_cd出力制御
#setdouble($need_hin_cd,@rs0.hin_cd_FLG)
setdouble($kakuin_eig_mode,0)

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

#社判
dbselect(SelectSyaban,@rs_syab,$param)
case($syab_flg,@rs_syab.image_cd,,0,1)
iterate(LoadSyabImage,$syab_flg)

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

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

[LoadSyabImage]
new($param)
addparam($param,@rs_syab.image_cd)
dbselect(SelectImageList,@rs_img_syab,$param)
loop(LoadSyabImageOne,@rs_img_syab)

[LoadSyabImageOne]
#tempimage(@rs_img_syab.image_cd,@rs_img_syab.file_image)
#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)
setdouble($kakuin_eig_mode,1)
[LoadSyabImageOne_Eig2]
tempimage(kakuin2,@rs_img_syab.file_image)
setdouble($kakuin_eig_mode,1)

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

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

#-------------------------------------------------
#  Key1開始時
#-------------------------------------------------
[GroupBegin_key1]

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

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

#-------------------------------------------------
#  Key2開始時
#-------------------------------------------------
[GroupBegin_key2]
#明細開始位置_代入
setdouble($cow,$cow_stt)
#合計開始位置_代入
setdouble($goukei,$goukei_stt)
#ヘッダ作成
subroutine(CreateHeader)
#フッタ作成
subroutine(CreateFooter)

#-------------------------------------------------
#  Key2終了時
#-------------------------------------------------
[GroupEnd_key2]
#改ページ処理
HPAGEBREAK($page)

# #23704 2022.05.27 MOD STT
#TODO 単純に増やすだけでよいのか？
#setdouble($lines_per_page,63)
setdouble($lines_per_page,64)
# #23704 2022.05.27 MOD END

#ヘッダ開始位置_加算
sum($header_stt,$lines_per_page)
#合計開始位置_加算
sum($goukei_stt,$lines_per_page)
#明細位置_納品書_加算
sum($cow_stt,$lines_per_page)
#明細位置_物品受領書_加算
#sum($cow2_stt,$lines_per_page)
#改ページ位置_加算
sum($page,$lines_per_page)

#-------------------------------------------------
#  明細表示処理
#-------------------------------------------------
[PrintNormal]
#上段
iterate(PrintNormal_L1_a,$logic_a)
iterate(PrintNormal_L1_b,$logic_b)
iterate(PrintNormal_L1_c,$logic_c)
iterate(PrintNormal_L1_d,$logic_d)
iterate(PrintNormal_L1_e,$logic_e)
iterate(PrintNormal_L1_f,$logic_f)
iterate(PrintNormal_L1_g,$logic_g)
sum($cow,1)

#下段
iterate(PrintNormal_a,$logic_a)
iterate(PrintNormal_b,$logic_b)
iterate(PrintNormal_c,$logic_c)
iterate(PrintNormal_d,$logic_d)
iterate(PrintNormal_e,$logic_e)
iterate(PrintNormal_f,$logic_f)
iterate(PrintNormal_g,$logic_g)
sum($cow,1)

[PrintNormal_L1_a]
putcell($cow,2,@rs1.row_no)
putcell($cow,3,@rs1.hin_cd)
putcell($cow,7,@rs1.hin_nm)
putcell($cow,24,@rs1.gentanka)

[PrintNormal_L1_b]
putcell($cow,2,@rs1.row_no)
putcell($cow,3,@rs1.hin_cd)
putcell($cow,7,@rs1.hin_nm)

[PrintNormal_L1_c]
putcell($cow,2,@rs1.row_no)
putcell($cow,3,@rs1.hin_cd)
putcell($cow,5,@rs1.hin_nm)
#TODO 品名拡張と上段表示を一緒に実装しておく
putcell($cow,23,@rs1.suryo)
putcell($cow,25,@rs1.tanka)
putcell($cow,28,@rs1.kingaku)

[PrintNormal_L1_d]
putcell($cow,2,@rs1.row_no)
putcell($cow,3,@rs1.hin_cd)
putcell($cow,7,@rs1.hin_nm)

[PrintNormal_L1_e]
putcell($cow,2,@rs1.row_no)
putcell($cow,3,@rs1.hin_cd)
putcell($cow,5,@rs1.hin_nm)
#TODO 品名拡張と上段表示を一緒に実装しておく
putcell($cow,18,@rs1.suryo)
putcell($cow,20,@rs1.htanka)
putcell($cow,23,@rs1.disc_per)
putcell($cow,25,@rs1.tanka)
putcell($cow,28,@rs1.kingaku)

[PrintNormal_L1_f]
putcell($cow,2,@rs1.row_no)
putcell($cow,3,@rs1.hin_cd)
putcell($cow,7,@rs1.hin_nm)

[PrintNormal_L1_g]
putcell($cow,2,@rs1.row_no)
putcell($cow,3,@rs1.hin_cd)
putcell($cow,7,@rs1.hin_nm)

[PrintNormal_a]
putcell($cow,3,@rs1.loc_no)
putcell($cow,7,@rs1.meisai_biko)
putcell($cow,22,@rs1.suryo)
putcell($cow,24,@rs1.tanka)
putcell($cow,28,@rs1.kingaku)

[PrintNormal_b]
putcell($cow,3,@rs1.loc_no)
putcell($cow,7,@rs1.meisai_biko)
putcell($cow,20,@rs1.suryo)
putcell($cow,22,@rs1.tani)
putcell($cow,24,@rs1.tanka)
putcell($cow,28,@rs1.kingaku)

[PrintNormal_c]
putcell($cow,3,@rs1.loc_no)
putcell($cow,5,@rs1.meisai_biko)

[PrintNormal_d]
putcell($cow,3,@rs1.loc_no)
putcell($cow,7,@rs1.meisai_biko)
putcell($cow,16,@rs1.suryo)
putcell($cow,18,@rs1.htanka)
putcell($cow,22,@rs1.disc_per)
putcell($cow,24,@rs1.tanka)
putcell($cow,28,@rs1.kingaku)

[PrintNormal_e]
putcell($cow,3,@rs1.loc_no)
putcell($cow,5,@rs1.meisai_biko)

[PrintNormal_f]
putcell($cow,3,@rs1.loc_no)
putcell($cow,7,@rs1.meisai_biko)
putcell($cow,20,@rs1.zei_rate)
putcell($cow,22,@rs1.suryo)
putcell($cow,24,@rs1.tanka)
putcell($cow,28,@rs1.kingaku)

[PrintNormal_g]
putcell($cow,3,@rs1.loc_no)
putcell($cow,7,@rs1.meisai_biko)
putcell($cow,18,@rs1.zei_rate)
putcell($cow,20,@rs1.suryo)
putcell($cow,22,@rs1.tani)
putcell($cow,24,@rs1.tanka)
putcell($cow,28,@rs1.kingaku)




[SelectMeisaiType]
new($param)
addparam($param,$keigen_zeiritu_mode)
addparam($param,$show_disc_mode)
addparam($param,$hinnmwide_on)
addparam($param,$show_tani_mode)
addparam($param,@rs1.uri_tn_dec)
addparam($param,@rs1.uri_su_dec)
dbselect(SelectMeisaiType,@rs_fmt,$param)

setdouble($meisai_fmt_row_no,@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)
case($logic_d,@rs_fmt.logic_type,d,1,0)
case($logic_e,@rs_fmt.logic_type,e,1,0)
case($logic_f,@rs_fmt.logic_type,f,1,0)
case($logic_g,@rs_fmt.logic_type,g,1,0)