[Main]
dbuse(true)
initparam(printMode,reportId,s_id)
deforgpage(blank)
defheadarea(hed)
defbodyarea(mei)
subroutine(SelectRecords_Jisya)
subroutine(SelectRecords)
loop(PrintNormal,@rs1,Key0,Key1)
printreport($printMode,true,false)

#-------------------------------------------------
#  SQL���s_����
#-------------------------------------------------
[SelectRecords_Jisya]
new($param)
dbselect(SelectRecords_Jisya,@rs0,$param)

#-------------------------------------------------
#  SQL���s
#-------------------------------------------------
[SelectRecords]
new($param)
addparam($param,$s_id)
dbselect(SelectRecords,@rs1,$param)

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

#-------------------------------------------------
#  SQL���s_���v
#-------------------------------------------------
[SelectRecords_sum]
new($param)
addparam($param,$s_id)
addparam($param,@rs1.tok_cd)
addparam($param,@rs1.seikyu_ymd)
dbselect(SelectRecords_sum,@rs3,$param)

#-------------------------------------------------
#  �����z_���z�\����\��
#-------------------------------------------------
[kingaku_off]
subroutine(SelectRecords_sum)
#formatspecialrow($seikyu_num,0,2,1)
#putcell($seikyu_num,7,@rs1.zen_seikyu_zan)
putcell($_row,7,@rs3.asuryo_sum)
putcell($_row,12,@rs3.kingaku_sum)
putcell($_row,17,@rs3.zeinukigaku)
putcell($_row,22,@rs3.zei)
putcell($_row,27,@rs3.zeikomigaku)
putcell($_row,34,@rs3.zeikomigaku)
#�����z_���z��\���t���O_1
sum($kingaku_off_flg,1)

#-------------------------------------------------
#  ���v�s�쐬
#-------------------------------------------------
[CreateSumRow]
formatspecialrow($_row,0,6,2)
putline(,,,,,,,,,,,,,,,,,,,,,,$nyusyukkoryou_sum#,,,,,,,,,,,,$asuryo_sum#,)
putcell($_row,2,�y���v�z)
putline(,,,,,,,,,,,,,,,,,,,,,,$hokanryo_sum#,,,,,,,,,,,,$kingaku_sum#)
#���v_�ϐ����Z
sum($nyusyukkoryou_sum_sum,$nyusyukkoryou_sum)
#���v_�ϐ����Z
sum($hokanryo_sum_sum,$hokanryo_sum)
#���v_�ϐ����Z
sum($asuryo_sum_sum,$asuryo_sum)
#���v_�ϐ����Z
sum($kingaku_sum_sum,$kingaku_sum)
#���v_�ۊǐϐ�_�����l
setdouble($nyusyukkoryou_sum,0)
#���v_�ۊǗ�_�����l
setdouble($hokanryo_sum,0)
#���v_������_�����l
setdouble($asuryo_sum,0)
#���v_���o�ɗ�_�����l
setdouble($kingaku_sum,0)

#-------------------------------------------------
#  ���v�s�쐬
#-------------------------------------------------
[CreateSumSumRow]
formatspecialrow($_row,0,6,2)
putline(,,,,,,,,,,,,,,,,,,,,,,$nyusyukkoryou_sum_sum#,,,,,,,,,,,,$asuryo_sum_sum#,)
putcell($_row,2,�y���v�z)
putline(,,,,,,,,,,,,,,,,,,,,,,$hokanryo_sum_sum#,,,,,,,,,,,,$kingaku_sum_sum#)

#-------------------------------------------------
#  ���y�[�W����
#-------------------------------------------------
[page_flg]
#���v�s�쐬
subroutine(CreateSumRow)
#���y�[�W�}��
HPAGEBREAK($_row)
#���o���쐬
subroutine(CreateHedder)

#-------------------------------------------------
#  ���y�[�W�����t���O
#-------------------------------------------------
[PageBreak]
#26�s���Ƃɉ��y�[�W_���ݍs��26�s���ǂ���
div($row_no,26,$kekka,$amari)
#���׍s��26�s�Ȃ���y�[�W�����t���O������
case($page_flg,$amari,0,1,0)
#���y�[�W�����t���O������_���y�[�W����
iterate(page_flg,$page_flg)

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

#-------------------------------------------------
#  #�w�b�_�[�쐬
#-------------------------------------------------
[CreateHedder]
formatspecialrow($_row,0,9,12)
#1�s��
putcell($_row,17,@rs0.tait)
putline(,)
#2�s��
putcell($_row,2,@rs1.yubin_no)
putcell($_row,30,���s���F)
putcell($_row,33,@rs1.seikyu_ymd_s)
putline(,)
#3�s��
putcell($_row,2,@rs1.address1)
putline(,)
#4�s��
putcell($_row,2,@rs1.address2)
putcell($_row,25,@rs0.j_nm)
putline(,)
#5�s��
putcell($_row,2,@rs1.address3)
putcell($_row,25,@rs0.j_post_s)
putcell($_row,28,@rs0.j_address)
putline(,)
#6�s��
putcell($_row,2,@rs1.tok_nm_s)
putcell($_row,25,@rs0.j_tel_s)
putcell($_row,31,@rs0.j_fax_s)
putline(,)
#7�s��
putcell($_row,2,@rs1.tok_tan)
putcell($_row,25,@rs0.j_url_s)
putline(,)
#8�s��
putcell($_row,24,�U����F)
putline(,)
#9�s��
putcell($_row,2,@rs0.mongon1)
subroutine(SelectRecords_Furi)
setdouble($furikomi,$_row)
loop(Furikomi,@rs2)
putline(,)
#10�s��
putcell($_row,2,@rs0.mongon2)
putline(,)
#11�s��
putcell($_row,2,@rs0.mongon3)
putline(,)
#12�s��
putline(,)
#13�s��
formatspecialrow($_row,0,3,1)
concatenate($tok_cd,���q�l�R�[�h:,@rs1.tok_cd)
putcell($_row,2,$tok_cd)
#�y�[�WNo.�\������_26�s�o�͂�����J�E���g�A�b�v
div($row_no,26,$kekka,$amari)
case($amari_flg,$amari,0,1)
sum($amari_flg_sum,$amari_flg)
concatenate($amari_flg_disp,Page.,$amari_flg_sum)
#�y�[�WNo.�\������
putcell($_row,37,$amari_flg_disp)
putline(,)
#14�s�� �����z_���o��
formatspecialrow($_row,0,1,3)
#putcell($_row,2,)
putcell($_row,7,�ۊǗ�)
putcell($_row,12,���o�ɗ�)
putcell($_row,17,�Ŕ��䐿���z)
putcell($_row,22,�����)
putcell($_row,27,�����䔃����z)
putcell($_row,34,����䐿���z)
putline(,)
#�����z_���z�\��_��\���i1�y�[�W�ڂ������z�\���j
case($kingaku_off,$kingaku_off_flg,0,1,0)
#�����z_���z�\����\��
iterate(kingaku_off,$kingaku_off)
putline(,)
#��s
putline(,)
#����_���o��
formatspecialrow($_row,0,4,2)
putcell($_row,2,�i��)
putcell($_row,14,�O�����c)
putcell($_row,17,���ɐ�)
putcell($_row,20,�o�ɐ�)
putcell($_row,23,�ۊǐϐ�)
putcell($_row,27,�ۊǒP��)
putcell($_row,31,���ɒP��)
putcell($_row,35,������)
putline(,)
putcell($_row,2,)
putcell($_row,14,����c)
putcell($_row,17,�����c)
putcell($_row,20,�����c)
putcell($_row,23,)
putcell($_row,23,�ۊǗ�)
putcell($_row,31,�o�ɒP��)
putcell($_row,35,���o�ɗ�)
putline(,)

#-------------------------------------------------
#  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()

#-------------------------------------------------
#  Key0�I����
#-------------------------------------------------
[GroupEnd_Key0]
pageclose(false)

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

#-------------------------------------------------
#  Key1�J�n��
#-------------------------------------------------
[GroupBegin_key1]
#���y�[�W�����t���O_�����l
setdouble($page_flg,0)
#���y�[�W�����t���O_�����l
setdouble($amari_flg,0)
#���y�[�W�����t���O_�����l
setdouble($amari_flg_sum,0)
#�����z_���z��\���t���O_�����l
setdouble($kingaku_off_flg,0)
#����_�s���J�E���g_�����l
setdouble($row_no,0)
#�y�[�W�J�E���g_�����l
setdouble($amari_sum,0)
#���v_�ۊǐϐ�_�����l
setdouble($nyusyukkoryou_sum,0)
#���v_�ۊǗ�_�����l
setdouble($hokanryo_sum,0)
#���v_������_�����l
setdouble($asuryo_sum,0)
#���v_���o�ɗ�_�����l
setdouble($kingaku_sum,0)
#���v_�ۊǐϐ�_�����l
setdouble($nyusyukkoryou_sum_sum,0)
#���v_�ۊǗ�_�����l
setdouble($hokanryo_sum_sum,0)
#���v_������_�����l
setdouble($asuryo_sum_sum,0)
#���v_���o�ɗ�_�����l
setdouble($kingaku_sum_sum,0)
#����_�s���J�E���g_�����l
setdouble($furikomi,12)
#�w�b�_�[�쐬
subroutine(CreateHedder)

#-------------------------------------------------
#  Key1�I����
#-------------------------------------------------
[GroupEnd_key1]
#���v�s�쐬
subroutine(CreateSumRow)
#���v�s�쐬
subroutine(CreateSumSumRow)
#���y�[�W�}��
HPAGEBREAK($_row)

#-------------------------------------------------
#  ���ו\������
#-------------------------------------------------
[PrintNormal]
formatspecialrow($_row,0,6,2)
putline(,@rs1.brand_nm#,,,,,,,,,,,,@rs1.zen_stock#,,,@rs1.in_suryo#,,,@rs1.out_suryo#,,,@rs1.nyusyukkoryou#,,,,@rs1.tanka#,,,,@rs1.stanka#,,,,@rs1.asuryo#,)
putline(,@rs1.hin_nm#,,,,,,,,,,,,@rs1.first_stock#,,,@rs1.medium_stock#,,,@rs1.second_stock#,,,@rs1.hokanryo#,,,,,,,,@rs1.htanka#,,,,@rs1.kingaku#)
#���v_�ϐ����Z
sum($nyusyukkoryou_sum,@rs1.nyusyukkoryou)
#���v_�ϐ����Z
sum($hokanryo_sum,@rs1.hokanryo)
#���v_�ϐ����Z
sum($asuryo_sum,@rs1.asuryo)
#���v_�ϐ����Z
sum($kingaku_sum,@rs1.kingaku)
#����_�s���J�E���g
sum($row_no,2)
#���y�[�W����
subroutine(PageBreak)