[Main]
dbuse(true)
initparam(printMode,reportId,dt_from,dt_to,uri_no,tokui_cd,syohin_nm,han_name,outputfile)
deforgpage(blank)
defheadarea(hed)
defbodyarea(mei)
subroutine(SelectRecords)
loop(PrintNormal,@rs1,Key1)
printreport($printMode,true,false)

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

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

#�w�b�_����
putcell(1,6,@rs1.mitsumori_no)
putcell(4,3,@rs1.tok_nm)
putcell(5,3,@rs1.title1)
putcell(6,3,@rs1.title2)

#-------------------------------------------------
#  Key1�I����
#-------------------------------------------------
[GroupEnd_key1]
#�t�b�^����
formatspecialrow($_row,0,20,3)
#�t�b�^_���v���z
putcell($_row,3,���v���z)
putformula($_row,4,SUM\x28R8C:R[-1]C\x29)
putformula($_row,5,SUM\x28R8C:R[-1]C\x29)
putformula($_row,6,SUM\x28R8C:R[-1]C\x29)
putformula($_row,7,IF\x28RC[-3]\x3d0\x2c0\x2c\x28\x28RC[-3]\x2dRC[-2]\x29\x2fRC[-3]\x29\x2a100\x29)
putline()
#�t�b�^_�o���l��
putcell($_row,3,�o���l��)
putcell($_row,4,@rs1.nebiki)
putline()
#�t�b�^_���v���z�i�l����j
putcell($_row,3,���v���z�i�l����j)
putformula($_row,4,R[-2]C\x2bR[-1]C)
putformula($_row,5,R[-2]C)
putformula($_row,6,RC[-2]\x2dRC[-1])
putformula($_row,7,IF\x28RC[-3]\x3d0\x2c0\x2c\x28\x28RC[-3]\x2dRC[-2]\x29\x2fRC[-3]\x29\x2a100\x29)
putline()

pageclose(false)

#-------------------------------------------------
#  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)
dbselect(SelectRecords,@rs1,$param)

#-------------------------------------------------
#  ���ו\������
#-------------------------------------------------
[PrintNormal]
formatspecialrow($_row,0,8,1)
putcell($_row,2,@rs1.s_row_no)
putcell($_row,3,@rs1.cat_cd_nm)
putline(,,,@rs1.mitsumori_gaku#,@rs1.sir_gaku#,@rs1.arari_gaku#,@rs1.arari_ritu#)