[Main]
dbuse(true)
initparam(printMode,reportId,dt_fr,dt_to,uri_no,tokui_cd,syohin_nm,title,dst_filename,seikyu_s_id,option1,option2,group_no,option3,option4,option5,option6,option7)

#�t�H�[�}�b�g�w��
case($formatmode1,$option1,,1,1,1,0)
case($formatmode2,$option1,2,1,0)
case($formatmode3,$option1,3,1,0)
#case($formatmode1,$option1,1,1,0)

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

#iterate(DefMode1,$formatmode1)
#iterate(DefMode2,$formatmode2)
#iterate(DefMode3,$formatmode3)

#�����ł���key2�I�����Ă��܂�
setdouble($row_page,1)

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


#�����̕���̈Ӗ��Ȃ��ł����ꉞ�c���Ƃ�
[DefMode1]
deforgpage(blank)
defheadarea(hed)
defbodyarea(mei)

[DefMode2]
deforgpage(blank)
defheadarea(hed)
defbodyarea(mei)

[DefMode3]
deforgpage(blank)
defheadarea(hed)
defbodyarea(mei)

#-------------------------------------------------
#  SQL���s_����
#-------------------------------------------------
[SelectRecords_Jisya]
new($param)
addparam($param,$uri_no)#1
addparam($param,$option4)#2

dbselect(SelectRecords_Jisya,@rs0,$param)

#-------------------------------------------------
#  SQL���s
#-------------------------------------------------
[SelectRecords]
new($param)
addparam($param,$dt_fr)#1
addparam($param,$dt_to)#2
addparam($param,$uri_no)#3
addparam($param,$tokui_cd)#4
addparam($param,$syohin_nm)#5
addparam($param,$title)#6
addparam($param,$dst_filename) #7
addparam($param,$seikyu_s_id)#8
addparam($param,$option1)#9
addparam($param,$option2)#10
addparam($param,$group_no)#11
addparam($param,$option3)#12
addparam($param,$option4)#13
addparam($param,$option5)#14
addparam($param,$option6)#15
addparam($param,$option7)#16
addparam($param,@rs0.midasi_FLG)#17

dbselect(SelectRecords,@rs1,$param)
#�S���҈�C���[�W�R�[�h����
concatenate($tantoin,inkan_,@rs1.tan_cd)


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

dbselect(SelectKakuin,@rs_kaku,$param)
case($kaku_flg,@rs_kaku.image_cd,,0,1)
iterate(LoadKakuImage,$kaku_flg)

dbselect(SelectTanto,@rs_tan,$param)
case($tan_flg,@rs_tan.image_cd,,0,1)
iterate(LoadTanImage,$tan_flg)

dbselect(SelectSyaban,@rs_syab,$param)
case($syab_flg,@rs_syab.image_cd,,0,1)
iterate(LoadSyabanImage,$syab_flg)

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

[LoadKakuImage]
new($param)
addparam($param,@rs_kaku.image_cd)
dbselect(SelectImage,@rs_img_kaku,$param)
tempimage(kakuin,@rs_img_kaku.file_image)

[LoadTanImage]
#	
new($param)
addparam($param,$tantoin)
#addparam($param,@rs_tan.image_cd)
dbselect(SelectImage,@rs_img_tan,$param)
#tempimage(inkan_waku,@rs_img_tan.file_image)
tempimage(inkan,@rs_img_tan.file_image)

[LoadSyabanImage]
new($param)
addparam($param,@rs_syab.image_cd)
dbselect(SelectImage,@rs_img_syab,$param)
tempimage(syaban,@rs_img_syab.file_image)


#-------------------------------------------------
#  �w�b�_�쐬
#-------------------------------------------------
[CreateHedder]
formatspecialrow($_row,0,1,22)

#�w�b�_�󎚓��e
#1�s��--------------------

putline(,)

#2�s��--------------------

#�E��_���ϔԍ�
case($den_no_lbl,@rs1.mitsumori_flg,1,���ϔԍ��F,�󒍔ԍ��F)
case($mitsumori_no,@rs1.mitsumori_flg,1,@rs1.mitsumori_no,@rs1.uri_no)
concatenate($mitsumori_no,$den_no_lbl,$mitsumori_no)
putcell($_row,27,$mitsumori_no)

putline(,)

#3�s��--------------------

#�^�C�g��
#subroutine(GetTitle)
putcell($_row,12,@rs0.title1)
#���t
putcell($_row,27,@rs1.u_ymd)

putline(,)

#4�s��--------------------

putline(,)

#5�s��--------------------

#���Ӑ�敪
putcell($_row,2,@rs1.tok_nm)
putcell($_row,17,@rs1.keisyo1_ex)

putline(,)

#6�s��--------------------

#���Ӑ�敪
putcell($_row,2,@rs1.tok_tan)
putcell($_row,17,@rs1.keisyo2_ex)

putline(,)

#7�s��--------------------

#�E��_���Ћ敪
putcell($_row,25,@rs0.koumoku1)
putline(,)

#8�s��--------------------

#�E��_���Ћ敪
putcell($_row,25,@rs0.koumoku2)

putline(,)

#9�s��--------------------

#�Ŋz�\��
putcell($_row,2,�Ŕ����v���z)
putcell($_row,6,@rs1.zn_gaku)

#�E��_���Ћ敪
putcell($_row,25,@rs0.koumoku3)
putline(,)

#10�s��--------------------

#�Ŋz�\��
putcell($_row,2,�����)
putcell($_row,6,@rs1.z_gaku)

#���S�\��
putimage($_row,23,0,0,0,0,logo)

#�E��_���Ћ敪
putcell($_row,25,@rs0.koumoku4)
putline(,)

#11�s��--------------------

#���v���z
putcell($_row,2,���v���z)
putcell($_row,6,@rs1.zi_gaku)

#�E��_���Ћ敪
putcell($_row,25,@rs0.j_nm)

putline(,)

#12�s��--------------------

#�E��_���Ћ敪
putcell($_row,25,@rs0.j_post_s)
putline(,)

#13�s��--------------------

#�E��_���Ћ敪
putcell($_row,25,@rs0.j_address)
putline(,)

#14�s��--------------------

putcell($_row,2,���ϖ���)
putcell($_row,7,@rs1.title1)

#�E��_���Ћ敪
putcell($_row,25,@rs0.j_address2)
putline(,)

#15�s��--------------------

putline(,)

#16�s��--------------------

putcell($_row,2,�[���ꏊ)
putcell($_row,7,@rs1.nonyu_nm)


#�E��_���Ћ敪
putcell($_row,25,@rs0.j_tel_s)
putcell($_row,31,@rs0.j_fax_s)

putline(,)

#17�s��--------------------


putcell($_row,2,�[������)
putcell($_row,7,@rs1.nonyu_ymd_str)

#�E��_���Ћ敪
putcell($_row,25,@rs0.j_url_s)

putline(,)

#18�s��--------------------

putcell($_row,2,���ϗL������)
case($mitsu_kigen_mongon,@rs1.mitsu_kigen_mongon,,�䌩�ς��1�J��,@rs1.mitsu_kigen_mongon)
#putcell($_row,7,@rs1.mitsu_kigen_mongon)
putcell($_row,7,$mitsu_kigen_mongon)

#�E��_���Ћ敪
putcell($_row,25,@rs0.j_email_s)
putline(,)

#19�s��--------------------

putcell($_row,2,�x������)
putcell($_row,7,@rs1.payment_term)

#�S���҈�\��
#putimage($_row,33,0,0,0,0,inkan_waku)
putimage($_row,33,0,0,0,0,inkan)
#putcell($_row,33,$tantoin)	# �m�F�p 
#putcell($_row,33,@rs1.tan_nm)
putline(,)

#20�s��--------------------

putline(,)

#21�s��--------------------

putcell($_row,2,@rs0.mongon1)
putline(,)

#22�s��--------------------

putcell($_row,2,@rs0.mongon2)
putline(,)

iterate(PutSyaban,$syab_flg)

[PutSyaban]
setdouble($put_img_row,0)
#TODO
#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)

[GetTitle]
case($title_s,$title,�[�i��,�[�i��,���i��̏�,���i��̏�,���Ϗ�,�䌩�Ϗ�,�䌩�Ϗ�)
#case($title_s,$title,1,�[�i��,$title,2,���i��̏�,$title,3,�䌩�Ϗ�,�䌩�Ϗ�)
case($title_m,@rs1.mitsumori_flg,1,�䌩�Ϗ�)
case($title_k,@rs1.mitsumori_flg,1,$title_m,$title_s)


#-------------------------------------------------
#  ���o���쐬
#-------------------------------------------------
[CreateMidashi]
#23�s�ڈڍs��2�y�[�W�ڈȍ~����`��
formatspecialrow($_row,0,23,2)
putcell($_row,2,@rs0.mongon3)
putline(,)
putcell($_row,2,@rs0.mongon4)
putline(,)

#�w�茩�o���̕ύX
iterate(MidashiMode1,$formatmode1)
iterate(MidashiMode2,$formatmode2)
iterate(MidashiMode3,$formatmode3)

[MidashiMode1]
#��{�d�l�i�艿�L�j
formatspecialrow($_row,0,27,2)
#���׃��x��1�s��
putline(,)
#���׃��x��2�s��
putcell($_row,2,NO.)
putcell($_row,4,���@�@�@�@�@�@�@�@�@�@��)
putcell($_row,15,����)
putcell($_row,17,��@�@��)
putcell($_row,21,�P�@�@��)
putcell($_row,25,���@�@�z)
putcell($_row,29,���ה��l)
putline(,)


[MidashiMode2]
#��{�d�l�i�艿��\���j
formatspecialrow($_row,0,37,2)
#���׃��x��1�s��
putline(,)
#���׃��x��2�s��
putcell($_row,2,NO.)
putcell($_row,4,���@�@�@�@�@�@�@�@�@�@��)
putcell($_row,19,����)
putcell($_row,21,�P�@�@��)
putcell($_row,25,���@�@�z)
putcell($_row,29,���ה��l)
putline(,)


[MidashiMode3]
#��{�d�l�i�艿�����E�P�ʁE���Ӑ攭���ԍ��\���L�j
formatspecialrow($_row,0,45,2)
#���׃��x��1�s��
putcell($_row,28,���ה��l)
putline(,)
#���׃��x��2�s��
putcell($_row,2,NO.)
putcell($_row,4,���@�@�@�@�@�@�@�@�@�@��)
putcell($_row,16,����)
putcell($_row,18,�P��)
putcell($_row,20,�P�@�@��)
putcell($_row,24,���@�@�z)
putcell($_row,28,�}�ʔԍ�)
putline(,)


#-------------------------------------------------
#  �t�b�^���l�쐬
#-------------------------------------------------
[biko_output]

formatspecialrow($_row,0,33,2)
putcell($_row,2,���l��)
putline(,)
putcell($_row,2,@rs1.biko1)
putline(,)


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

#-------------------------------------------------
#  Key0�J�n��
#-------------------------------------------------
[GroupBegin_Key0]
pageopen(true,false)

#�w��t�H�[�}�b�g�̕ύX
deforgpage(formats)

#iterate(FormatMode1,$formatmode1)
#iterate(FormatMode2,$formatmode2)
#iterate(FormatMode3,$formatmode3)

#�w�b�_�J�n�ʒu_����
setdouble($header_stt,1)
#���׈ʒu_�[�i��_����
setdouble($cow_stt,12)
#���y�[�W�ʒu_����
setdouble($page,58)

#�y�[�W�ԍ��p_����
setdouble($page_row,1)

#2�y�[�W�ڈȍ~�̉��s�����e�X�g
setdouble($test,0)
setdouble($row_page,1)
setdouble($row_page_c,0)
setdouble($row_c,0)
setdouble($max_row_c,15)

#HPAGEBREAK���p��flg
setdouble($page_flg,1)


resetorg()

#�w�b�_�쐬
subroutine(CreateHedder)


#�����̕���̈Ӗ��Ȃ��ł����ꉞ�c���Ƃ�
[FormatMode1]
deforgpage(formats)

[FormatMode2]
deforgpage(formats)

[FormatMode3]
deforgpage(formats)

#-------------------------------------------------
#  Key0�I����
#-------------------------------------------------
[GroupEnd_Key0]

#�t�b�^���l�쐬
subroutine(biko_output)

pageclose(false)

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

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


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



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

#-------------------------------------------------
#  Key2�J�n��
#-------------------------------------------------
[GroupBegin_key2]

subroutine(CreateMidashi)


#���[��_�����l
setdouble($title,1)
#���׊J�n�ʒu_���
setdouble($cow,$cow_stt)
setdouble($cow2,$cow2_stt)
#���v�z_�ۑ�
setdouble($zn_gaku,@rs1.zn_gaku)
setdouble($z_gaku,@rs1.z_gaku)
setdouble($zi_gaku,@rs1.zi_gaku)
#���v�z_�ۑ�_�������ꊇ�Ȃ�\�����Ȃ�
case($z_gaku,@rs1.zei_calc_kbn,1,,$z_gaku)


case($page_flg,@rs1.max_row_no,$max_row_c,0,1)
iterate(pBreak,$page_flg)

#2�y�[�W�ڂ�3�y�[�W�ڈȍ~��
case($first_sum,$max_row_c,15,1,0)
case($from_sum,$max_row_c,15,0,1)
iterate(FirstSum,$first_sum)
iterate(FromSum,$from_sum)

[FirstSum]
concatenate($page_n,$row_page,/,@rs1.max_page)
putcell($page_row,35,$page_n)
sum($page_row,57)

[FromSum]
concatenate($page_n,$row_page,/,@rs1.max_page)
putcell($page_row,35,$page_n)
sum($page_row,55)

[pBreak]
HPAGEBREAK($page)
sum($page,55)

#-------------------------------------------------
#  Key2�I����
#-------------------------------------------------
[GroupEnd_key2]
putline(,)


#-------------------------------------------------
#  ���ו\������
#-------------------------------------------------
[PrintNormal]
#�w��t�H�[�}�b�g�ɂĖ��ו`��
iterate(PrintMode1,$formatmode1)
iterate(PrintMode2,$formatmode2)
iterate(PrintMode3,$formatmode3)

sum($row_page_c,1)
case($row_page_f,$row_page_c,$max_row_c,1,0)
iterate(CountRow,$row_page_f)

[PrintMode1]
formatspecialrow($_row,0,31,2)
putcell($_row,4,@rs1.hin_cd)
putline()
putcell($_row,4,@rs1.hin_nm)
putline(,@rs1.row_no#,,,,,,,,,,,,,@rs1.jucyu_su#,,@rs1.htanka#,,,,@rs1.uri_t#,,,,@rs1.uri_g#,,,,@rs1.meisai_biko#)

[PrintMode2]
formatspecialrow($_row,0,41,2)
putcell($_row,4,@rs1.hin_cd)
putline()
putcell($_row,4,@rs1.hin_nm)
putline(,@rs1.row_no#,,,,,,,,,,,,,,,,,@rs1.jucyu_su#,,@rs1.uri_t#,,,,@rs1.uri_g#,,,,@rs1.meisai_biko#)


[PrintMode3]
#
formatspecialrow($_row,0,49,2)
putcell($_row,4,@rs1.hin_nm1)
putcell($_row,28,@rs1.meisai_biko)
putline()
putcell($_row,4,@rs1.hin_nm2)
#concatenate($row_page_s,$max_row_c,with,@rs1.row_no)
putline(,@rs1.row_no#,,,,,,,,,,,,,,@rs1.jucyu_su#,,@rs1.tani#,,@rs1.uri_t#,,,,@rs1.uri_g#,,,,@rs1.tok_hacyu_no#)



[CountRow]

sum($max_row_c,25)
sum($row_page,1)