[Main]
dbuse(true)
initparam(printMode,reportId,dt_from,dt_to,uri_no,tokui_cd,syohin_nm,han_name,fname,ext6,ndt_from,ndt_to,ext7)
case($m_layout,$ext7,,1,0)
case($l_layout,$ext7,L,1,0)
deforgpage(blank)
defheadarea(hed)
defbodyarea(mei)
subroutine(SelectRecords_Jisya)
subroutine(SelectRecords)
subroutine(SelectRecords_Image)
loop(PrintNormal,@rs1,Key1,Key2)
printreport($printMode,true)

#-------------------------------------------------
#  SQL���s
#-------------------------------------------------
[SelectRecords_Jisya]
new($param)
#addparam($param,$s_id)
addparam($param,$dt_from)
addparam($param,$dt_to)
addparam($param,$uri_no)
addparam($param,$tokui_cd)
addparam($param,$syohin_nm)
addparam($param,$han_name)
dbselect(SelectRecords_Jisya,@rs2,$param)

#-------------------------------------------------
#  SQL���s
#-------------------------------------------------
[SelectRecords]
new($param)
#addparam($param,$s_id)
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,@rs2.midasi_FLG)
addparam($param,$ndt_from)
addparam($param,$ndt_to)
dbselect(SelectRecords,@rs1,$param)

#-------------------------------------------------
#  SQL���s_�摜
#-------------------------------------------------
[SelectRecords_Image]
dbselect(SelectLogo,@rs_logo,$param)
case($logo_flg,@rs_logo.image_cd,,0,1)
iterate(LoadLogoImage,$logo_flg)

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


#-------------------------------------------------
#  �w�b�_����_�w�b�_�[
#-------------------------------------------------
[CreateHeader]
#to_do�R�{���w�d�l
#�t���O�m�F/�t�H�[�}�b�g�ύX
case($f_flg,@rs2.format_FLG,1,1,0)
case($n_flg,@rs2.format_FLG,0,1,0)
iterate(sp_format,$f_flg)
iterate(nomal_format,$n_flg)

#1�s��
putcell(1,28,@rs1.syori_ymd)
#2�s��
putcell(2,28,@rs1.den_no)
putcell(2,4,@rs1.yubin_no)
#3�s��
#4�s��
#5�s��
putcell(5,22,@rs2.j_nm)
#�摜�`��
putimage(5,19,0,0,0,0,logo)
#6�s��
putcell(6,22,@rs2.j_post_s)
putcell(6,25,@rs2.j_address)
#7�s��
putcell(7,22,@rs2.j_address2_s)
#8�s��
putcell(8,4,@rs1.sir_nm)
putcell(8,15,@rs1.keisyou1)
putcell(8,22,@rs2.j_tel_s)
putcell(8,28,@rs2.j_fax_s)
#9�s��
putcell(9,22,@rs2.j_url_s)
#10�s��
putcell(10,4,@rs1.sir_tan)
putcell(10,15,@rs1.keisyou2)
putcell(10,22,@rs2.j_email_s)
#11�s��
#13�s��
putcell(13,2,@rs1.nouki_lbl)
putcell(13,6,@rs1.nouki_ymd)
#14�s��
putcell(14,25,�S���ҁF)
putcell(14,28,@rs1.tan_nm)


[nomal_format]
formatspecialrow(12,0,12,5)

[sp_format]
formatspecialrow(12,0,70,5)
#12�s��
putcell(12,4,@rs1.tel_no_s)
putcell(12,11,@rs1.fax_no_s)
#13�s��
putcell(13,13,�[���񓚗��F)
#15�s��
#putcell(15,2,���ɏꏊ�F)
#putcell(15,6,@rs1.v_loc_nm)
putcell(15,2,@rs2.sp_mongon2)
#16�s��
putcell(16,25,�m�F�ҁF)

#17�s��
#putcell(17,2,�[����i�����j)
#putcell(18,2,@rs1.tok_nm)
#concatenate($put_tok_addr,@rs1.tok_zip_no_s,@rs1.tok_addr)
#putcell(19,2,$put_tok_addr)
#putcell(20,2,@rs1.tok_tel_no_s)

#-------------------------------------------------
#  �����o��
#-------------------------------------------------
[Mongon]
formatspecialrow($_row,0,17,4)

#formatspecialrow($_row,0,18,3)
#to_do�قڎR�{���w�d�l
iterate(sp_mongon,$f_flg)
iterate(nomal_mongon,$n_flg)

#setdouble($head_OFF,@rs2.hin_cd_FLG)
#setdouble($head_ON,@rs2.hin_cd_FLG)
case($headVer_OFF,@rs2.hin_cd_FLG,0,1,0)
case($headVer_ON,@rs2.hin_cd_FLG,1,1,0)
iterate(headVer_OFF,$headVer_OFF)
iterate(headVer_ON,$headVer_ON)

[headVer_OFF]
#���X���\���t���O
case($dis_OFF,@rs2.dis_FLG,0,1,0)
case($dis_ON,@rs2.dis_FLG,1,1,0)
iterate(disMidashi_OFF,$dis_OFF)
iterate(disMidashi_ON,$dis_ON)

[disMidashi_OFF]
iterate(disMidashi_OFF_m,$m_layout)
iterate(disMidashi_OFF_l,$l_layout)

[disMidashi_OFF_m]
#���o���i�ԂȂ�Ver
formatspecialrow($_row,0,22,2)
putcell($_row,2,NO)
putcell($_row,3,�i��/�d�l�i�T�C�Y/�F/�ގ��j)
putcell($_row,16,���萔)
putcell($_row,18,����)
putcell($_row,20,�P��)
putcell($_row,22,�P��)
putcell($_row,26,�������z)
putcell($_row,30,�[��)
putline(,)
putcell($_row,3,���l��)
putline(,)

[disMidashi_OFF_l]
#���o���i�ԂȂ�Ver
formatspecialrow($_row,0,22,2)
putcell($_row,2,NO)
putcell($_row,3,�i��/�d�l�i�T�C�Y/�F/�ގ��j)
putcell($_row,22,���萔)
putcell($_row,24,����)
putcell($_row,28,�P��)
putcell($_row,30,�[��)
putline(,)
putcell($_row,3,���l��)
putline(,)

[disMidashi_ON]
formatspecialrow($_row,0,101,2)
putcell($_row,2,NO)
putcell($_row,3,���i����)
putcell($_row,15,����)
putcell($_row,17,�P��)
putcell($_row,19,�艿)
putcell($_row,23,������)
putcell($_row,25,�P��)
putcell($_row,29,���z)
putline(,)
#putcell($_row,3,���l��)
putline(,)

[headVer_ON]
#���o���i�Ԃ���Ver
formatspecialrow($_row,0,44,2)
putcell($_row,2,NO)
putcell($_row,3,�i��/�i��/�d�l�i�T�C�Y/�F/�ގ��j)
putcell($_row,20,����)
putcell($_row,22,�P��)
putcell($_row,26,�������z)
putcell($_row,30,�[��)
putline(,)
putcell($_row,3,���l��)
putline(,)

[sp_mongon]
putcell($_row,2,@rs2.sp_mongon1)
putline(,)
putcell($_row,2,@rs2.sp_mongon2)
putcell($_row,25,���v���z)
putline(,)
putcell($_row,2,@rs2.sp_mongon3)

#�P�ƂQ�y�[�W�ڂō��v���z�̕\������
case($goukei,@rs1.row_page,0,@rs1.zeinuki_gaku,-)
putcell($_row,25,$goukei)
#��s
putline(,)

#putcell($_row,13,@rs1.loc_addr)
putline(,)
putline(,)

iterate(sofu_put,@rs2.cyokus_FLG)
[sofu_put]
#17�s��
#putcell(17,2,�[����i�����j)
putcell(17,2,@rs2.cyokus_title)
putcell(18,2,@rs1.tok_nm)
concatenate($put_tok_addr,@rs1.tok_zip_no_s,�@,@rs1.tok_addr)
putcell(19,2,$put_tok_addr)
putcell(20,2,@rs1.tok_tel_no_s)


[nomal_mongon]
putcell($_row,2,@rs2.mongon1)
putline(,)
putcell($_row,2,@rs2.mongon2)
putcell($_row,25,���v���z)
putline(,)
putcell($_row,2,@rs2.mongon3)

#�P�ƂQ�y�[�W�ڂō��v���z�̕\������
case($goukei,@rs1.row_page,0,@rs1.zeinuki_gaku,-)
putcell($_row,25,$goukei)
#��s
putline(,)

putcell($_row,2,@rs1.loc_nm)
putcell($_row,13,@rs1.loc_addr)
putline(,)
putline(,)

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

#-------------------------------------------------
#  Key1�J�n��
#-------------------------------------------------
[GroupBegin_key1]
case($id_blank,$l_layout,1,blankL,blank)
case($id_formats,$l_layout,1,formatsL,formats)
deforgpage($id_blank)
#Import���邩�ǂ���,FormatNormal���邩�ǂ���
pageopen(true,false)
deforgpage($id_formats)
resetorg()
#�t�b�^����_�t�b�^�ʒu_�����l
setdouble($f_biko,56)
#�A�����ޕ\����\��
setdouble($need_hin_cd,@rs2.sp1_FLG)

#�w�b�_����_�w�b�_�[
subroutine(CreateHeader)



#-------------------------------------------------
#  Key1�I����
#-------------------------------------------------
[GroupEnd_key1]
#FormatNormal���邩�ǂ���
pageclose(false)

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

#-------------------------------------------------
#  Key2�J�n��
#-------------------------------------------------
[GroupBegin_key2]
#�����o��
subroutine(Mongon)

#���z�\���L��
case($ext6_flg_ON,$ext6,1,1,0)
iterate(op_goukei_ON,$ext6_flg_ON)


#setdouble($mei_OFF,@rs2.hin_cd_FLG)
#setdouble($mei_ON,@rs2.hin_cd_FLG)
case($meiVer_OFF,@rs2.hin_cd_FLG,0,1,0)
case($meiVer_ON,@rs2.hin_cd_FLG,1,1,0)
iterate(meiVer_OFF,$meiVer_OFF)
iterate(meiVer_ON,$meiVer_ON)

[op_goukei_ON]
putcell(18,25,)
putcell(19,25,)

[meiVer_OFF]
#���׍s�ꊇformat�i�ԂȂ�Ver

#�����Ǘ����Ă��邩�̔��f
case($su_dec_on,@rs2.dec_FLG,1,1,0)
case($su_dec_off,@rs2.dec_FLG,0,1,0)
iterate(suryo_dec_on,$su_dec_on)
iterate(suryo_dec_off,$su_dec_off)


[meiVer_ON]
#���׍s�ꊇformat�i�Ԃ���Ver
formatspecialrow($_row,0,46,20)

[suryo_dec_on]
formatspecialrow($_row,0,79,20)
# #19536 2021.06.15 MOD STT
setdouble($row2,$_row)
sum($row2,20)
formatspecialrow($row2,0,89,10)
# #19536 2021.06.15 MOD END

[suryo_dec_off]
case($dis_OFF,@rs2.dis_FLG,0,1,0)
case($dis_ON,@rs2.dis_FLG,1,1,0)
iterate(dis_OFF,$dis_OFF)
iterate(dis_ON,$dis_ON)

[dis_OFF]
formatspecialrow($_row,0,24,20)

[dis_ON]
formatspecialrow($_row,0,103,30)

#-------------------------------------------------
#  Key2�I����
#-------------------------------------------------
[GroupEnd_key2]
#��s
putline(,)
#�t�b�^����
formatspecialrow($f_biko,0,67,2)
putcell($f_biko,3,���l�F)
sum($f_biko,1)
putline(,)

putcell($f_biko,3,@rs1.biko1)
putline(,)
putline(,)
sum($f_biko,2)

#���y�[�W�}��
HPAGEBREAK($f_biko)
sum($f_biko,38)

#-------------------------------------------------
#  ���ו\������
#-------------------------------------------------
[PrintNormal]

#setdouble($dat_OFF,@rs2.hin_cd_FLG)
#setdouble($dat_ON,@rs2.hin_cd_FLG)
case($datVer_OFF,@rs2.hin_cd_FLG,0,1,0)
case($datVer_ON,@rs2.hin_cd_FLG,1,1,0)
iterate(datVer_OFF,$datVer_OFF)
iterate(datVer_ON,$datVer_ON)

[datVer_OFF]
case($ext6_flg_OFF,$ext6,,1,0)
case($ext6_flg_ON,$ext6,1,1,0)
iterate(op_kingaku_OFF,$ext6_flg_OFF)
iterate(op_kingaku_ON,$ext6_flg_ON)

[op_kingaku_OFF]
case($dis_OFF,@rs2.dis_FLG,0,1,0)
case($dis_ON,@rs2.dis_FLG,1,1,0)
iterate(disMei_OFF,$dis_OFF)
iterate(disMei_ON,$dis_ON)

#���z�\���L��
[disMei_OFF]
iterate(disMei_OFF_m,$m_layout)
iterate(disMei_OFF_l,$l_layout)

[disMei_OFF_m]
putcell($_row,2,@rs1.row_no)
putcell($_row,3,@rs1.hin_nm)
putcell($_row,30,@rs1.nouki_m_ymd)
putline(,,,,,,,,,,,,,,,@rs1.iri_su#,,@rs1.hacyu_su#,,@rs1.hin_tani#,,@rs1.tanka#,,,,@rs1.kingaku#,,,,@rs1.nouki_m_ymd)
# 2021.06.11 #19286
putline(,,@rs1.m_biko#,,,,,,,,,,,,,,,@rs1.hacyu_su_lower#,,@rs1.tani_lower#)
#putline(,,@rs1.m_biko#)
#putcell($_row,3,@rs1.m_biko)
#putline(,)

[disMei_OFF_l]
putcell($_row,2,@rs1.row_no)
putcell($_row,3,@rs1.hin_nm)
putcell($_row,30,@rs1.nouki_m_ymd)
putline(,,,,,,,,,,,,,,,,,,,,,@rs1.iri_su#,,@rs1.hacyu_su#,,,,@rs1.hin_tani#)
putline(,,@rs1.m_biko#,,,,,,,,,,,,,,,,,,,,,@rs1.hacyu_su_lower#,,,,@rs1.tani_lower#)

[disMei_ON]
putline(,,@rs1.hin_cd#)
putcell($_row,2,@rs1.row_no)
putcell($_row,3,@rs1.hin_nm)
putcell($_row,24,%)
putline(,,,,,,,,,,,,,,@rs1.hacyu_su#,,@rs1.hin_tani#,,@rs1.htanka#,,,,@rs1.disc_per#,,@rs1.tanka#,,,,@rs1.kingaku#)
#putline(,,@rs1.m_biko#,,,,,,,,,,,,,,,@rs1.iri_su#)
#putcell($_row,3,@rs1.m_biko)
#putline(,)

[op_kingaku_ON]
case($dis_OFF,@rs2.dis_FLG,0,1,0)
case($dis_ON,@rs2.dis_FLG,1,1,0)
iterate(disMeiKin_OFF,$dis_OFF)
iterate(disMeiKin_ON,$dis_ON)

[disMeiKin_OFF]
iterate(disMeiKin_OFF_m,$m_layout)
iterate(disMeiKin_OFF_l,$l_layout)

[disMeiKin_OFF_m]
#���z�\���L��
putcell($_row,2,@rs1.row_no)
putcell($_row,3,@rs1.hin_nm)
putcell($_row,30,@rs1.nouki_m_ymd)
putline(,,,,,,,,,,,,,,,@rs1.iri_su#,,@rs1.hacyu_su#,,@rs1.hin_tani#,,,,,,,,,,@rs1.nouki_m_ymd)
#putline(,,@rs1.m_biko#,,,,,,,,,,,,,,,@rs1.iri_su#)
putline(,,@rs1.m_biko#)
#putcell($_row,3,@rs1.m_biko)
#putline(,)

[disMeiKin_OFF_l]
#���z�\���L��
putcell($_row,2,@rs1.row_no)
putcell($_row,3,@rs1.hin_nm)
putcell($_row,30,@rs1.nouki_m_ymd)
putline(,,,,,,,,,,,,,,,,,,,,,@rs1.iri_su#,,@rs1.hacyu_su#,,,,@rs1.hin_tani#)
putline(,,@rs1.m_biko#,,,,,,,,,,,,,,,,,,,,,@rs1.hacyu_su_lower#,,,,@rs1.tani_lower#)

[disMeiKin_ON]
putline(,,@rs1.hin_cd#)
putcell($_row,2,@rs1.row_no)
putcell($_row,3,@rs1.hin_nm)
putline(,,,,,,,,,,,,,,@rs1.hacyu_su#,,@rs1.hin_tani#)
#putcell($_row,3,@rs1.m_biko)
#putline(,)


[datVer_ON]
#���i���ޘA���o��ONOFF����
case($hin_cd_ON,$need_hin_cd,0,1,0)
case($hin_cd_OFF,$need_hin_cd,1,1,0)
iterate(hin_cd_ON,$hin_cd_ON)
iterate(hin_cd_OFF,$hin_cd_OFF)

[hin_cd_ON]
putcell($_row,2,@rs1.row_no)
putcell($_row,3,@rs1.hin_cd)
putcell($_row,8,@rs1.hin_nm)
putcell($_row,30,@rs1.nouki_m_ymd)
putline(,,,,,,,,,,,,,,,,,,,@rs1.hacyu_su#,,@rs1.tanka#,,,,@rs1.kingaku#,,,,@rs1.nouki_m_ymd)
putcell($_row,3,@rs1.m_biko)
putline(,)

[hin_cd_OFF]
case($hin_cd_o,$hin_cd_put,@rs1.hin_cd,,@rs1.hin_cd)
#2�y�[�W�ڍŏ��͕K���o�͂���
case($hin_cd,$nex_pF,@rs1.page_no,$hin_cd_o,@rs1.hin_cd)
putcell($_row,2,@rs1.row_no)
putcell($_row,3,$hin_cd)
putcell($_row,8,@rs1.hin_nm)
putcell($_row,30,@rs1.nouki_m_ymd)
putline(,,,,,,,,,,,,,,,,,,,@rs1.hacyu_su#,,@rs1.tanka#,,,,@rs1.kingaku#,,,,@rs1.nouki_m_ymd)
putcell($_row,3,@rs1.m_biko)
putline(,)
concatenate($hin_cd_put,@rs1.hin_cd)
concatenate($nex_pF,@rs1.page_no)