[Main]
dbuse(true)
initparam(printMode,reportId,dt_from,dt_to,uri_no,tokui_cd,syohin_nm,han_name,fname,seikyu_s_id,ext6,ext7,group_no,ext8,ext9,ext10,ext11,ext12)
case($v_layout,$ext6,V,1,0)
case($h_layout,$ext6,V,0,1)
#TODO
case($g_line_cnt_1page,$v_layout,1,15,7)
deforgpage(blank)
defheadarea(hed)
defbodyarea(mei)
subroutine(SelectRecords_Jisya)
subroutine(SelectRecords)
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)
addparam($param,$g_line_cnt_1page)
dbselect(SelectRecords,@rs1,$param)

#-------------------------------------------------
#  �w�b�_����_�w�b�_�[
#-------------------------------------------------
[CreateHeader]
iterate(CreateHeaderH,$h_layout)
iterate(CreateHeaderV,$v_layout)

[CreateHeaderH]
#1�s��
putcell(1,42,@rs1.syori_ymd)
#2�s��
putcell(2,42,@rs1.shiji_no)
#3�s��
putcell(3,42,@rs1.tan_nm)
#4�s��
putcell(4,2,@rs1.sir_nm)
#5�s��
putcell(5,36,@rs2.j_nm)
#6�s��
putcell(6,2,@rs1.tel_no_s)
putcell(6,9,@rs1.fax_no_s)
putcell(6,36,@rs2.j_tel_s)
putcell(6,42,@rs2.j_fax_s)

case($type1,@rs1.report_type,1,1,0)
case($type2,@rs1.report_type,1,0,1)

iterate(PrintHeaderH1,$type1)
iterate(PrintHeaderH2,$type2)

[PrintHeaderH1]
formatspecialrow(8,0,8,5)
#8�s��
putcell(8,2,���Ӑ�:)
putcell(8,7,@rs1.tok_nm)
putcell(8,34,�o�ו��@:)
putcell(8,39,@rs1.biko6)
#9�s��
putcell(9,2,��No:)
putcell(9,7,@rs1.den_no)
putcell(9,34,�p�b�L���O:)
putcell(9,39,@rs1.pack_keijyos)
#10�s��
putcell(10,2,�Ǘ��ԍ�:)
putcell(10,7,@rs1.kanri_no)
putcell(10,34,���H�[��:)
putcell(10,39,@rs1.koutei1_nm)
putcell(10,41,@rs1.koutei1_ymd)
#11�s��
putcell(11,2,����:)
#TODO
concatenate($suryo_view,@rs1.suryo_kei, ,��)
putcell(11,7,$suryo_view)
putcell(11,39,@rs1.koutei2_nm)
putcell(11,41,@rs1.koutei2_ymd)
#12�s��
putcell(12,2,�[��:)
putcell(12,7,@rs1.koutei4_ymd)
putcell(12,39,@rs1.koutei3_nm)
putcell(12,41,@rs1.koutei3_ymd)

[PrintHeaderH2]
formatspecialrow(8,0,14,5)
#8�s��
putcell(8,2,��No:)
putcell(8,7,@rs1.den_no)
putcell(8,34,���H�[��:)
putcell(8,39,@rs1.nouki_ymd)

[CreateHeaderV]
#1�s��
putcell(1,28,@rs1.syori_ymd)
#2�s��
putcell(2,28,@rs1.shiji_no)
#3�s��
putcell(3,28,@rs1.tan_nm)
#4�s��
putcell(4,2,@rs1.sir_nm)
#5�s��
putcell(5,22,@rs2.j_nm)
#6�s��
putcell(6,2,@rs1.tel_no_s)
putcell(6,9,@rs1.fax_no_s)
putcell(6,22,@rs2.j_tel_s)
putcell(6,28,@rs2.j_fax_s)

case($type1,@rs1.report_type,1,1,0)
case($type2,@rs1.report_type,1,0,1)

iterate(PrintHeaderV1,$type1)
iterate(PrintHeaderV2,$type2)

[PrintHeaderV1]
formatspecialrow(8,0,8,5)
#8�s��
putcell(8,2,���Ӑ�:)
putcell(8,7,@rs1.tok_nm)
putcell(8,20,�o�ו��@:)
putcell(8,25,@rs1.biko6)
#9�s��
putcell(9,2,��No:)
putcell(9,7,@rs1.den_no)
putcell(9,20,�p�b�L���O:)
putcell(9,25,@rs1.pack_keijyos)
#10�s��
putcell(10,2,�Ǘ��ԍ�:)
putcell(10,7,@rs1.kanri_no)
putcell(10,20,���H�[��:)
putcell(10,25,@rs1.koutei1_nm)
putcell(10,27,@rs1.koutei1_ymd)
#11�s��
putcell(11,2,����:)
#TODO
concatenate($suryo_view,@rs1.suryo_kei, ,��)
putcell(11,7,$suryo_view)
putcell(11,25,@rs1.koutei2_nm)
putcell(11,27,@rs1.koutei2_ymd)
#12�s��
putcell(12,2,�[��:)
putcell(12,7,@rs1.koutei4_ymd)
putcell(12,25,@rs1.koutei3_nm)
putcell(12,27,@rs1.koutei3_ymd)

[PrintHeaderV2]
formatspecialrow(8,0,14,5)
#8�s��
putcell(8,2,��No:)
putcell(8,7,@rs1.den_no)
putcell(8,20,���H�[��:)
putcell(8,25,@rs1.nouki_ymd)





#-------------------------------------------------
#  �����o��
#-------------------------------------------------
[Mongon]
#TODO
formatspecialrow($_row,0,81,1)
iterate(MongonH,$h_layout)
iterate(MongonV,$v_layout)
putline(,)

[MongonH]
putcell($_row,2,NO)
putcell($_row,3,�i��/�d�l�i�T�C�Y/�F/�ގ��j)
putcell($_row,40,����)
putcell($_row,41,����)
putcell($_row,44,�P��)

[MongonV]
putcell($_row,2,NO)
putcell($_row,3,�i��/�d�l�i�T�C�Y/�F/�ގ��j)
putcell($_row,28,����)
putcell($_row,29,����)
putcell($_row,31,�P��)
















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

#-------------------------------------------------
#  Key1�J�n��
#-------------------------------------------------
[GroupBegin_key1]
case($id_blank,$v_layout,1,blank2,blank)
case($id_formats,$v_layout,1,formats2,formats)
deforgpage($id_blank)
#Import���邩�ǂ���,FormatNormal���邩�ǂ���
pageopen(true,false)
deforgpage($id_formats)
resetorg()

concatenate($now_den_no,@rs1.den_no)

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



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

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

#-------------------------------------------------
#  Key2�J�n��
#-------------------------------------------------
[GroupBegin_key2]
#setdouble($line_cnt_1page,15)
setdouble($line_cnt_1page,$g_line_cnt_1page)
#�����o��
subroutine(Mongon)

#TODO
#formatspecialrow($_row,0,82,15)

















#-------------------------------------------------
#  Key2�I����
#-------------------------------------------------
[GroupEnd_key2]
#�s���s���߂�
iterate(PrintSpace,$line_cnt_1page)

#��s
putline(,)
#���l
#formatspecialrow($_row,0,67,6)
putcell($_row,3,���l�F)
putline(,)

#�d�l
subroutine(SelectSpecList)
loop(PrintSpec,@rs3)

hpagebreak($_row)

[PrintSpace]
putline(,)



#-------------------------------------------------
#  ���ו\������
#-------------------------------------------------
[PrintNormal]
iterate(PrintNormalH,$h_layout)
iterate(PrintNormalV,$v_layout)

[PrintNormalH]
case($hosoku_dtl,@rs1.dhin_nm,,0,1)
case($sonota_dtl,@rs1.dhin_nm,,1,0)
iterate(PrintNormalH_Hosoku,$hosoku_dtl)
iterate(PrintNormalH_Sonota,$sonota_dtl)

[PrintNormalH_Hosoku]
formatspecialrow($_row,0,82,1)
putcell($_row,2,@rs1.row_no)
putcell($_row,3,@rs1.dhin_nm)
putcell($_row,5,@rs1.kind_s)
putcell($_row,9,@rs1.hosoku1)
putcell($_row,11,@rs1.size_h_view)
putcell($_row,14,@rs1.hin_nm_s1)
putcell($_row,27,@rs1.hin_nm_s2)
#putcell($_row,27,@rs1.nouki_m_ymd)
putline(,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,@rs1.price_rank#,@rs1.hacyu_su#,,,@rs1.hin_tani#)
#putline(,,@rs1.m_biko#)

sum($line_cnt_1page,-1)

#setdouble($dat_OFF,@rs2.hin_cd_FLG)
#setdouble($dat_ON,@rs2.hin_cd_FLG)



[PrintNormalH_Sonota]
formatspecialrow($_row,0,99,1)
putcell($_row,2,@rs1.row_no)
putcell($_row,3,@rs1.hin_cd)
putcell($_row,9,@rs1.hin_nm)
putline(,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,@rs1.price_rank#,@rs1.hacyu_su#,,,@rs1.hin_tani#)
sum($line_cnt_1page,-1)

[PrintNormalV]
case($hosoku_dtl,@rs1.dhin_nm,,0,1)
case($sonota_dtl,@rs1.dhin_nm,,1,0)
iterate(PrintNormalV_Hosoku,$hosoku_dtl)
iterate(PrintNormalV_Sonota,$sonota_dtl)

[PrintNormalV_Hosoku]
formatspecialrow($_row,0,82,1)
putcell($_row,2,@rs1.row_no)
putcell($_row,3,@rs1.dhin_nm)
putcell($_row,5,@rs1.kind_s)
putcell($_row,8,@rs1.hosoku1)
putcell($_row,10,@rs1.size_h_view)
putcell($_row,12,@rs1.hin_nm_s1)
putcell($_row,20,@rs1.hin_nm_s2)
#putcell($_row,30,@rs1.nouki_m_ymd)
putline(,,,,,,,,,,,,,,,,,,,,,,,,,,,@rs1.price_rank#,@rs1.hacyu_su#,,@rs1.hin_tani#)
#putline(,,@rs1.m_biko#)

sum($line_cnt_1page,-1)

#setdouble($dat_OFF,@rs2.hin_cd_FLG)
#setdouble($dat_ON,@rs2.hin_cd_FLG)



[PrintNormalV_Sonota]
formatspecialrow($_row,0,99,1)
putcell($_row,2,@rs1.row_no)
putcell($_row,3,@rs1.hin_cd)
putcell($_row,8,@rs1.hin_nm)
putline(,,,,,,,,,,,,,,,,,,,,,,,,,,,@rs1.price_rank#,@rs1.hacyu_su#,,@rs1.hin_tani#)
sum($line_cnt_1page,-1)























[SelectSpecList]
new($param)
addparam($param,$now_den_no)
dbselect(SelectSpecList,@rs3,$param)

[PrintSpec]
putcell($_row,4,@rs3.spec_naiyo)
putline(,,@rs3.spec_seq#,)