[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)
# J:�󒍑Ώ�
case($jucyu_flg,$option1,J,1,0)

# �^�C�v(:������,1:�[�i��,2:�o�׃`�F�b�N�\,3:�o�ז��׏�)
concatenate($rep_type,$option4)
# 1:���z��\���A2:�W���P����\���A3:�W���P���̂ݕ\��
case($hide_kingaku_flg,$option6,1,1,3,1,0)
case($hide_htanka_flg,$option6,1,1,2,1,4,1,5,1,0)#4�y���ŗ��Ή��i2:�W���P����\��+�ŗ��j
case($hide_disc_flg,$option6,1,1,2,1,3,1,4,1,5,1,0)#4�y���ŗ��Ή��i2:�W���P����\��+�ŗ��j
case($show_disc_mode,$option6,2,0,4,0,5,0,1)
case($hide_disc_mode,$option6,2,1,4,1,5,1,0)
case($show_tani_mode,$option6,5,1,0) #�P�ʂ���
case($hide_tani_mode,$option6,5,0,1) #�P�ʂȂ�
case($keigen_zeiritu_mode,$option6,4,1,0)#�y���ŗ��Ή�
# 1:���P�[�V�����\��
case($location_flg,$option7,1,1,0)

#�������̏ꍇ�U������o��
case($furikomosaki,$rep_type,,1,0)

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

case($furikomi_h,@rs0.furikomi_head_flg,1,$furikomosaki,0)
case($furikomi_f,@rs0.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

subroutine(SelectRecords)
loop(PrintNormal,@rs1,Key0,Key1,Key2)
printreport($printMode,true,false)

#-------------------------------------------------
#  SQL���s_����
#-------------------------------------------------
[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���s
#-------------------------------------------------
[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,$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
dbselect(SelectRecords,@rs1,$param)

#-------------------------------------------------
#  SQL���s_�U��
#-------------------------------------------------
[SelectRecords_Furi]
new($param)
addparam($param,$s_id)
addparam($param,@rs1.tok_cd)
addparam($param,@rs1.den_no)
dbselect(SelectRecords_Furi,@rs2,$param)

#-------------------------------------------------
#  ���׌��o��
#-------------------------------------------------
[meisai_midashi]
case($discper_lbl,@rs0.rev,rev,�|��,������)
case($hin_loc_lbl,$location_flg,1,�i��/�I��,�i��)
case($htanka_lbl,$hide_htanka_flg,1,,@rs0.htanka_label)
case($discper_lbl,$hide_disc_flg,1,,$discper_lbl)
case($tanka_lbl,$hide_kingaku_flg,1,,�P��)
case($kingaku_lbl,$hide_kingaku_flg,1,,���z)

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

#���X����
[meisai_midashi_disc]
# #23704 2022.05.27 MOD STT
#formatspecialrow($header,0,19,1)
# #24485 2022.06.25 MOD STT
#formatspecialrow($header,0,22,1)
case($fmt_i,$hinnmwide_on,1,316,22)
formatspecialrow($header,0,$fmt_i,1)
# #24485 2022.06.25 MOD END
# #23704 2022.05.27 MOD END
iterate(meisai_midashi_disc_hinnmwide,$hinnmwide_on)
iterate(meisai_midashi_disc_normal,$hinnmwide_off)
sum($header,1)
# #23704 2022.05.27 MOD STT
#case($fmt_i,@rs0.uri_tn_dec,0,140,75)
# #24485 2022.06.25 MOD STT
#case($fmt_i,@rs0.uri_tn_dec,0,143,78)
case($fmt_i_int,$hinnmwide_on,1,317,143)
case($fmt_i,@rs0.uri_tn_dec,0,$fmt_i_int,78)
# #24485 2022.06.25 MOD END
# #23704 2022.05.27 MOD END
formatspecialrow($header,0,$fmt_i,30)
sum($header,1)

[meisai_midashi_disc_normal]
putcell($header,2,No.)
putcell($header,3,$hin_loc_lbl)
putcell($header,7,�i��/���ה��l)
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_disc_hinnmwide]
putcell($header,2,No.)
putcell($header,3,$hin_loc_lbl)
putcell($header,5,�i��/���ה��l)
putcell($header,18,����)
putcell($header,20,$htanka_lbl)
putcell($header,23,$discper_lbl)
putcell($header,25,$tanka_lbl)
putcell($header,28,$kingaku_lbl)

#���X�Ȃ�
[meisai_midashi_no_disc]
# #23704 2022.05.27 MOD STT
#formatspecialrow($header,0,107,1)
# #24493 2022.06.25 MOD STT
#formatspecialrow($header,0,110,1)
case($fmt_i_wk,$hinnmwide_on,1,349,110)
case($fmt_i,$show_tani_mode,1,283,$fmt_i_wk)
formatspecialrow($header,0,$fmt_i,1)
# #24493 2022.06.25 MOD END
# #23704 2022.05.27 MOD END
# #24493 2022.06.25 MOD STT
iterate(meisai_midashi_no_disc_tani_ari,$show_tani_mode)
iterate(meisai_midashi_no_disc_tani_nas,$hide_tani_mode)
# #24493 2022.06.25 MOD END
sum($header,1)
# #23704 2022.05.27 MOD STT
#case($fmt_i,@rs0.uri_tn_dec,0,172,108)
# #24493 2022.06.25 MOD STT
#case($fmt_i,@rs0.uri_tn_dec,0,175,111)
case($fmt_i_int,$hinnmwide_on,1,350,175)
case($fmt_i_dec,$show_tani_mode,1,284,111)
case($fmt_i,@rs0.uri_tn_dec,0,$fmt_i_int,$fmt_i_dec)
# #24493 2022.06.25 MOD END
# #23704 2022.05.27 MOD END
formatspecialrow($header,0,$fmt_i,31)
sum($header,1)

[meisai_midashi_no_disc_tani_ari]
putcell($header,2,No.)
putcell($header,3,$hin_loc_lbl)
putcell($header,7,�i��/���ה��l)
putcell($header,20,����)
putcell($header,22,�P��)
putcell($header,24,$tanka_lbl)
putcell($header,28,$kingaku_lbl)

[meisai_midashi_no_disc_tani_nas]
iterate(meisai_midashi_no_disc_tani_nas_hinnmwide,$hinnmwide_on)
iterate(meisai_midashi_no_disc_tani_nas_normal,$hinnmwide_off)

[meisai_midashi_no_disc_tani_nas_normal]
putcell($header,2,No.)
putcell($header,3,$hin_loc_lbl)
putcell($header,7,�i��/���ה��l)
putcell($header,22,����)
putcell($header,24,$tanka_lbl)
putcell($header,28,$kingaku_lbl)

[meisai_midashi_no_disc_tani_nas_hinnmwide]
putcell($header,2,No.)
putcell($header,3,$hin_loc_lbl)
putcell($header,5,�i��/���ה��l)
putcell($header,23,����)
putcell($header,25,$tanka_lbl)
putcell($header,28,$kingaku_lbl)

# �ŗ���\��Ver�i
[meisai_midashi_zeiritu]
# #23704 2022.05.27 MOD STT
#formatspecialrow($header,0,208,31)
formatspecialrow($header,0,211,31)
# #23704 2022.05.27 MOD END
putcell($header,2,No.)
putcell($header,3,$hin_loc_lbl)
putcell($header,7,�i��/�T�C�Y�E�K�i/�Y�n/���ה��l)
putcell($header,20,�ŗ�)
putcell($header,22,����)
putcell($header,24,$tanka_lbl)
putcell($header,28,$kingaku_lbl)
sum($header,2)


#-------------------------------------------------
#  �w�b�_����_�w�b�_�[
#-------------------------------------------------
[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]
case($hinnmwide_on,@rs1.sp4_kbn,1,1,0)
case($hinnmwide_off,@rs1.sp4_kbn,1,0,1)

concatenate($page_n,@rs1.row_page,/,@rs1.max_page)
#�[���Ȃ��̎����[���̕\���o���B
case($nonyu_ymd,@rs1.nonyu_ymd,,��Њ�]�[���F�@----/--/--�@,��Њ�]�[���F)
concatenate($nonyu_ymd,$nonyu_ymd,@rs1.nonyu_ymd)

#�����}�X�^�̕��߂���������
concatenate($mongon1,@rs1.mongon1,@rs1.mongon2)
concatenate($mongon2,@rs1.mongon3,@rs1.mongon4,@rs1.mongon5)

#�o�ז��׏��͔[����Z���̕����o��
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)
#�w�b�_����
# #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�s��
putcell($header,18,@rs0.report_title)
sum($header,1)
# #23704 2022.05.27 MOD END

#1�s��
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,@rs0.syori_ymd_label)
putcell($header,28,@rs1.syori_ymd)
# #23704 2022.05.27 MOD END
iterate(PutLogo,$logo_flg)
sum($header,1)

#2�s��
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,@rs0.den_no_label)
putcell($header,28,@rs1.den_no)
# #23704 2022.05.27 MOD END
sum($header,1)

#3�s��
putcell($header,4,$w_addr1)
# #23704 2022.05.27 MOD STT
#putcell($header,22,@rs1.j_nm)
putcell($header,31,@rs1.tok_cd)
# #23704 2022.05.27 MOD END
sum($header,1)

#4�s��
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�s��
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�s��
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�s��
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�s��
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�s��
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�s��
putcell($header,20,$tel_fax)
sum($header,1)

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

#12�s��
# #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
#�������̏ꍇ�w�b�_�ɐU������o��
# #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�s��
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)
# #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,,���L�̒ʂ育�����\���グ�܂��B,)
#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�s��(�^�C�g�����v�s)
# #23704 2022.05.27 MOD STT
#case($w_syukaCH_mongon,$rep_type,2,�K���`�[���s�m�F�����,)
case($w_syukaCH_mongon,$rep_type,2,�K���`�[���s�m�F�����,,,$mongon2)
# #23704 2022.05.27 MOD END
case($w_zeinuki_gaku_lbl_nohin,$hide_kingaku_flg,1,,�Ŕ��䔃��z)
# #24566 2022.06.25 MOD STT
#case($w_zei_gaku_lbl_nohin,$hide_kingaku_flg,1,,�����)
case($w_zei_gaku_lbl_nohin,$hide_kingaku_flg,1,,@rs1.total_zei_label)
# #24566 2022.06.25 MOD END
case($w_zeikomi_gaku_lbl_nohin,$hide_kingaku_flg,1,,�ō��䔃��z)
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,�䒍�����v���z,$w_zeikomi_gaku_lbl_nohin)
case($w_seikyu_mongon2,$rep_type,,����䐿���z,)
case($w_seikyu_mongon3,$rep_type,,�i�ō��j,)
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�s��
#case($put_title,$han_name,����������(�艿��\��),����������,����������,$han_name)
# #24372 2022.06.17 MOD STT
#case($w_zeinuki_gaku_nohin,$hide_kingaku_flg,1,,@rs1.zeinuki_gaku)
#case($w_zei_gaku_nohin,$hide_kingaku_flg,1,,@rs1.zei_gaku)
#case($w_zeikomi_gaku_nohin,$hide_kingaku_flg,1,,@rs1.zeikomi_gaku)
case($w_hide_kingaku_flg,@rs1.row_page,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)
# #24372 2022.06.17 MOD END
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_seikyu_gaku,$rep_type,,@rs1.zeikomi_gaku,)
# #23704 2022.05.27 MOD STT
#putcell($header,2,@rs0.report_title)
#putcell($header,14,$w_zeinuki_gaku)
#putcell($header,18,$w_zei_gaku)
#putcell($header,22,$w_zeikomi_gaku)
#putcell($header,27,$w_seikyu_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)
# #23704 2022.05.27 MOD END
sum($header,1)

#16�s��
# #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

#-------------------------------------------------
#  �U���@�֏o�͏���
#-------------------------------------------------
[Furikomi]
putcell($furikomi,$furikomi_col,@rs2.furikikan)
sum($furikomi,1)

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

#1�s��
putcell($header,20,���U����:)
#����1
putcell($header,2,@rs1.mongon1)
sum($header,1)

#2�s��
#�U����p�̈ʒu�ۑ�
setdouble($furikomi,$header)
#����2
putcell($header,2,@rs1.mongon2)
sum($header,1)

#3�s��
#����3
putcell($header,2,@rs1.mongon3)
sum($header,1)

#4�s��
#����4
putcell($header,2,@rs1.mongon4)
sum($header,1)

#5�s��
#����5
putcell($header,2,@rs1.mongon5)
sum($header,1)

#TODO �x�������̎d�l�Ȃ�
##5�s��
#putcell($goukei,2,$tori_cond)
#sum($goukei,1)

#�U����o�́i�ؑ֗\��j
#2-4�s��
subroutine(SelectRecords_Furi)
#�U���@�֏o�͏���
setdouble($furikomi_col,20)
loop(Furikomi,@rs2)

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

#1�s��
#����1
putcell($header,2,@rs1.mongon1)
sum($header,1)

#2�s��
#����2
putcell($header,2,@rs1.mongon2)
sum($header,1)

#3�s��
#����3
putcell($header,2,@rs1.mongon3)
sum($header,1)

#4�s��
#����4
putcell($header,2,@rs1.mongon4)
sum($header,1)

#5�s��
#����5
putcell($header,2,@rs1.mongon5)
sum($header,1)


[seikyuF]
# #23704 2022.05.27 MOD STT
#TODO 6�s�ł͂Ȃ�5�s���������̂ł́H
#formatspecialrow($goukei,0,53,6)
formatspecialrow($goukei,0,56,5)
# #23704 2022.05.27 MOD END

#1�s��
putcell($goukei,20,���U����:)
putcell($goukei,2,$mongon1)
sum($goukei,1)

#2�s��
#���[�v�J�E���^�ݒ�
setdouble($furikomi,$goukei)
putcell($goukei,2,$mongon2)
sum($goukei,1)

#3�s��
#putcell($goukei,2,@rs1.mongon3)
sum($goukei,1)

#4�s��
#putcell($goukei,2,@rs1.mongon4)
sum($goukei,1)

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

#�U����o�́i�ؑ֗\��j
#2-4�s��
subroutine(SelectRecords_Furi)
#�U���@�֏o�͏���
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�s��
putcell($goukei,26,�`�[���s�m�F)
sum($goukei,1)

#2-4�s��
putcell($goukei,26,�o�ז���)
putcell($goukei,28,�[�i��)
putcell($goukei,30,���C�Y����)
sum($goukei,3)

#5�s��
sum($goukei,1)


#-------------------------------------------------
#  �t�b�^����_�t�b�^�[
#-------------------------------------------------
[CreateFooter]
#�t�H�[�}�b�g�w��
# #23704 2022.05.27 MOD STT
#formatspecialrow($goukei,0,40,10)
formatspecialrow($goukei,0,43,10)
# #23704 2022.05.27 MOD END

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)

#�x�������Z�b�g
case($tori_cond_label,@rs1.tori_cond,,,�x������:)
concatenate($tori_cond,$tori_cond_label,@rs1.tori_cond)
#�[�i��^�C�g���Z�b�g
case($nonyu_tit_label,@rs0.uri_tokadr_kbn,1,�[�i����F,)
case($w_zip_no,$rep_type,3,����,@rs1.zip_no)
concatenate($zip_no,$nonyu_tit_label,$w_zip_no)
#�[�i��TEL��FAX
case($nonyu_tel_label,@rs1.nonyu_tel,,,�d�b�ԍ�:)
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)

#1�s��
#���v����
putcell($goukei,31,@rs1.suryo_kei_view)
#���Ӑ�R�[�h�i�t�b�^�j
putcell($goukei,2,@rs1.tok_cd_bottom_view)
sum($goukei,1)

#2�s��
putcell($goukei,2,$zip_no)
putcell($goukei,12,$nonyu_tel)
putcell($goukei,22,$nonyu_fax)
sum($goukei,1)

#3�s��
putcell($goukei,2,$w_addr1)
sum($goukei,1)

#4�s��
putcell($goukei,2,$w_addr2)
sum($goukei,1)

#5�s��
putcell($goukei,2,$w_addr3)
sum($goukei,1)

#6�s��
putcell($goukei,2,$w_addr4)
sum($goukei,1)

#7�s��
putcell($goukei,2,$w_nonyu_nm)
sum($goukei,1)

#8�s��
sum($goukei,1)

#9�s��
putcell($goukei,2,���l��:)
sum($goukei,1)

#10�s��
putcell($goukei,2,@rs1.biko1)
sum($goukei,1)

#11�s��
#TODO ���̍s�Aformat�ł��ĂȂ�
#���Ӑ敪�ރR�[�h
putcell($goukei,2,@rs1.tok_cat_cd)
sum($goukei,1)

# #23704 2022.05.27 MOD STT
#formatspecialrow($goukei,0,51,2)
##����1�s��
#putcell($goukei,2,$mongon1)
#sum($goukei,1)
##����2�s��
#putcell($goukei,2,$mongon2)
#sum($goukei,1)
# #23704 2022.05.27 MOD END

#�������̏ꍇ�t�b�^�ɐU������o��
# #23704 2022.05.27 MOD STT
#iterate(seikyuF,$furikomosaki)
iterate(seikyuF,$furikomi_f)
# #23704 2022.05.27 MOD END

#�o�׃`�F�b�N�\�t�b�^
case($syukaCH_ft,$rep_type,2,1,0)
iterate(syukaCHF,$syukaCH_ft)




#-------------------------------------------------
#  Key0�ݒ胋�[�`��
#-------------------------------------------------
[KeyInfo_Key0]
keyvalue(dummy)
keybreakproc(GroupBegin_Key0,GroupEnd_Key0)

#-------------------------------------------------
#  Key0�J�n��
#-------------------------------------------------
[GroupBegin_Key0]
deforgpage(blank)
#Import���邩�ǂ���,FormatNormal���邩�ǂ���
pageopen(true,false)
deforgpage(formats)
resetorg()

#�w�b�_�J�n�ʒu_����
setdouble($header_stt,1)
#�t�b�^�J�n�ʒu_����
# #23704 2022.05.27 MOD STT
#setdouble($goukei_stt,46)
#setdouble($goukei_stt,49)
#�U������w�b�_�󎚂���Ƃ��͂��炷
case($goukei_stt,$furikomi_h,1,54,49)
# #23704 2022.05.27 MOD END
#���׈ʒu_�[�i��_����
# #23704 2022.05.27 MOD STT
#setdouble($cow_stt,16)
#setdouble($cow_stt,19)
#�U������w�b�_�󎚂���Ƃ��͂��炷
case($cow_stt,$furikomi_h,1,24,19)
# #23704 2022.05.27 MOD END
#���y�[�W�ʒu_����
setdouble($page,1)
#hin_cd�o�͐���
setdouble($need_hin_cd,@rs0.hin_cd_FLG)
setdouble($kakuin_eig_mode,0)

#���S
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)

[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�I����
#-------------------------------------------------
[GroupEnd_Key0]
pageclose(false)

#-------------------------------------------------
#  Key1�ݒ胋�[�`��
#-------------------------------------------------
[KeyInfo_key1]
keyvalue(@rs1.den_no)
keybreakproc(GroupBegin_key1,GroupEnd_key1)

#-------------------------------------------------
#  Key1�J�n��
#-------------------------------------------------
[GroupBegin_key1]

#-------------------------------------------------
#  Key1�I����
#-------------------------------------------------
[GroupEnd_key1]

#-------------------------------------------------
#  Key2�ݒ胋�[�`��
#-------------------------------------------------
[KeyInfo_key2]
keyvalue(@rs1.den_no,@rs1.w_page_no,@rs1.tok_cd)
keybreakproc(GroupBegin_key2,GroupEnd_key2)

#-------------------------------------------------
#  Key2�J�n��
#-------------------------------------------------
[GroupBegin_key2]
#���׊J�n�ʒu_���
setdouble($cow,$cow_stt)
#���v�J�n�ʒu_���
setdouble($goukei,$goukei_stt)
#�w�b�_�쐬
subroutine(CreateHeader)
#�t�b�^�쐬
subroutine(CreateFooter)

#-------------------------------------------------
#  Key2�I����
#-------------------------------------------------
[GroupEnd_key2]
#���y�[�W����
HPAGEBREAK($page)

# #23704 2022.05.27 MOD STT
#TODO �P���ɑ��₷�����ł悢�̂��H
#setdouble($lines_per_page,63)
setdouble($lines_per_page,64)
# #23704 2022.05.27 MOD END

#�w�b�_�J�n�ʒu_���Z
sum($header_stt,$lines_per_page)
#���v�J�n�ʒu_���Z
sum($goukei_stt,$lines_per_page)
#���׈ʒu_�[�i��_���Z
sum($cow_stt,$lines_per_page)
#���׈ʒu_���i��̏�_���Z
#sum($cow2_stt,$lines_per_page)
#���y�[�W�ʒu_���Z
sum($page,$lines_per_page)

#-------------------------------------------------
#  ���ו\������
#-------------------------------------------------
[PrintNormal]
#��i
#putcell($cow,2,@rs1.w_row_no)
#putcell($cow,3,@rs1.hin_cd)
#putcell($cow,7,@rs1.hin_nm)
iterate(PrintNormal_L1_hinnmwide,$hinnmwide_on)
iterate(PrintNormal_L1_normal,$hinnmwide_off)
sum($cow,1)

#���i
iterate(PrintNormal_disc,$show_disc_mode)
iterate(PrintNormal_no_disc,$hide_disc_mode)
iterate(PrintNormal_zeiritu,$keigen_zeiritu_mode)
sum($cow,1)

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

[PrintNormal_L1_hinnmwide]
putcell($cow,2,@rs1.w_row_no)
putcell($cow,3,@rs1.hin_cd)
putcell($cow,5,@rs1.hin_nm)
#TODO �i���g���Ə�i�\�����ꏏ�Ɏ������Ă���
iterate(PrintNormal_L1_hinnmwide_disc,$show_disc_mode)
iterate(PrintNormal_L1_hinnmwide_no_disc,$hide_disc_mode)

[PrintNormal_L1_hinnmwide_disc]
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_hinnmwide_no_disc]
putcell($cow,23,@rs1.suryo)
putcell($cow,25,@rs1.tanka)
putcell($cow,28,@rs1.kingaku)

[PrintNormal_disc]
iterate(PrintNormal_disc_hinnmwide,$hinnmwide_on)
iterate(PrintNormal_disc_normal,$hinnmwide_off)

[PrintNormal_disc_normal]
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_disc_hinnmwide]
putcell($cow,3,@rs1.loc_no)
putcell($cow,5,@rs1.meisai_biko)
#TODO �i���g���Ə�i�\�����ꏏ�Ɏ������Ă���
#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_no_disc]
iterate(PrintNormal_no_disc_tani_ari,$show_tani_mode)
iterate(PrintNormal_no_disc_tani_nas,$hide_tani_mode)

[PrintNormal_no_disc_tani_ari]
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_no_disc_tani_nas]
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_zeiritu]
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)