[Main]
dbuse(true)
initparam(printMode,reportId,han_name,bum_cd,bum_nm,tok_cat_cd,tok_cat_nm,sir_cat_cd,sir_cat_nm,dcat_cd_fr,dcat_cd_to,dcat_nm_fr,dcat_nm_to,cat_cd_fr,cat_cd_to,cat_nm_fr,cat_nm_to,syori_ymd_fr,syori_ymd_to,taisyo_y,taisyo_m,tok_cd_fr,tok_cd_to,sir_cd_fr,sir_cd_to,tan_cd_fr,tan_cd_to,tan_nm_fr,tan_nm_to,hin_cd_fr,hin_cd_to,put_on,shime_dd,s_id,eig_cd_fr,eig_cd_to,output_ymd,ext6,ext7,brand_cd_fr,brand_cd_to,color_cd_fr,color_cd_to,eig_cd)
deforgpage(blank)
defheadarea(hed)
defbodyarea(mei)
subroutine(InsertWork)
subroutine(SelectRecords_Jisya)
subroutine(SelectRecords)
#loop(PrintNormal,@rs1,Key1,key2)
loop(PrintNormal,@rs1,Key1,key2,key3)
printreport($printMode,true,false)

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

#-------------------------------------------------
#  SQL���s(�X�g�A�h)
#-------------------------------------------------
[InsertWork]
new($param)
addparam($param,$s_id)
addparam($param,$syori_ymd_fr)
addparam($param,$syori_ymd_to)
addparam($param,$sir_cd_fr)
addparam($param,$sir_cd_to)
addparam($param,$shime_dd)
addparam($param,$eig_cd)
dbselect(InsertWork,@rsw,$param)

#-------------------------------------------------
#  SQL���s
#-------------------------------------------------
[SelectRecords]
new($param)
addparam($param,$han_name)
addparam($param,$bum_cd)
addparam($param,$bum_nm)
addparam($param,$tok_cat_cd)
addparam($param,$tok_cat_nm)
addparam($param,$sir_cat_cd)
addparam($param,$sir_cat_nm)
addparam($param,$dcat_cd_fr)
addparam($param,$dcat_cd_to)
addparam($param,$dcat_nm_fr)
addparam($param,$dcat_nm_to)
addparam($param,$cat_cd_fr)
addparam($param,$cat_cd_to)
addparam($param,$cat_nm_fr)
addparam($param,$cat_nm_to)
addparam($param,$syori_ymd_fr)
addparam($param,$syori_ymd_to)
addparam($param,$taisyo_y)
addparam($param,$taisyo_m)
addparam($param,$tok_cd_fr)
addparam($param,$tok_cd_to)
addparam($param,$sir_cd_fr)
addparam($param,$sir_cd_to)
addparam($param,$tan_cd_fr)
addparam($param,$tan_cd_to)
addparam($param,$tan_nm_fr)
addparam($param,$tan_nm_to)
addparam($param,$hin_cd_fr)
addparam($param,$hin_cd_to)
addparam($param,$put_on)
addparam($param,$shime_dd)
addparam($param,$s_id)
addparam($param,@rs0.midasi_kbn)#�ėp�}�X�^99��uri-jknrno
addparam($param,@rs0.midasi_FLG)#�ėp�}�X�^90��hin-title
dbselect(SelectRecords,@rs1,$param)

#-------------------------------------------------
#  ���y�[�W����
#-------------------------------------------------
[P_break]
HPAGEBREAK($_row)

#------------------------------------------------------------------------------------------------------------------------
#  ���o���쐬����
#------------------------------------------------------------------------------------------------------------------------
[CreateMidashi]
formatspecialrow($_row,0,4,2)
putline()
putcell($_row,2,���t)
putcell($_row,3,�`�[No.)
putcell($_row,4,�敪)
putcell($_row,5,�i��)
putcell($_row,6,�i��)
putcell($_row,7,����)
putcell($_row,8,�P��)
putcell($_row,9,�Ŕ����z)
putcell($_row,10,�Ŋz)
putcell($_row,11,�ō����z)
putcell($_row,12,�o���z)
putcell($_row,13,���|���z)
putcell($_row,14,���l1)
putcell($_row,15,���l2)
putline()

#------------------------------------------------------------------------------------------------------------------------
#  �w�b�_�쐬����
#------------------------------------------------------------------------------------------------------------------------
[CreateHead]
formatspecialrow($_row,0,2,2)
putline()
#3�s��
concatenate($sir_cd_s,�d����R�[�h�F,@rs1.sir_cd)#�w�b�_�\���p_�d����R�[�h
putcell($_row,2,$sir_cd_s)
putcell($_row,5,@rs1.sir_nm)
putcell($_row,15,@rs1.shime_dd)
putline()
#���o���쐬����_���o���\����؂�ւ���
subroutine(CreateMidashi)

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

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

#�w�b�_�o�̓J�E���g_�����o�͒����̂���
setdouble($h_cnt,0)
#���y�[�W����_�ŏI�o�͒����̂���
setdouble($r_cnt,0)

#���v���z�\���p�ϐ�
setdouble($k_syukin_gaku,0)
setdouble($k_kaikake_gaku,0)

#���v�s�\���p�ϐ�
setdouble($kei_zeinuki,0)
setdouble($kei_zei,0)
setdouble($kei_zeikomi,0)
setdouble($kei_syukin,0)

#���v�s�\���p�ϐ�
setdouble($zei_calc_kbn,@rs1.zei_calc_kbn)

#�w�b�_�o�͏���
#1�s��
formatspecialrow($_row,0,1,1)
putcell($_row,2,$han_name)#���[�^�C�g��
concatenate($from_to_ymd_s,�w����F,@rs1.from_to_ymd)#�w�b�_�\���p_�w��ymd
putcell($_row,14,$from_to_ymd_s)
#concatenate($output_ymd_s,���s���F,@rs1.output_ymd)#�w�b�_�\���p_���symd��TODO
#putcell($_row,13,$output_ymd_s)
putline()

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

#FormatNormal���邩�ǂ���
pageclose(false)

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

#-------------------------------------------------
#  Key2�J�n��
#-------------------------------------------------
[GroupBegin_key2]
#�w�b�_�쐬����
subroutine(CreateHead)
#�w�b�_�o�̓J�E���g
sum($h_cnt,1)

#-------------------------------------------------
#  Key2�I����
#-------------------------------------------------
[GroupEnd_key2]
#�ŏI���J�z���z
formatspecialrow($_row,0,9,1)
case($zei_calc_on_k,$zei_calc_kbn,0,1,0)
case($zei_calc_off_k,$zei_calc_kbn,1,1,0)
iterate(ChkZeiON_K,$zei_calc_on_k)
iterate(ChkZeiOFF_K,$zei_calc_off_k)


#���y�[�W����
subroutine(P_break)

[ChkZeiON_K]
putline(,,,,,�y���ԍ��v���z�z#,,,$kei_zeinuki#,$kei_zei#,$kei_zeikomi#,$kei_syukin#,$k_kaikake_gaku#)
[ChkZeiOFF_K]
putline(,,,,,�y���ԍ��v���z�z#,,,$kei_zeinuki#,,,$kei_syukin#,$k_kaikake_gaku#)



#-------------------------------------------------
#  Key3�ݒ胋�[�`��
#-------------------------------------------------
[KeyInfo_key3]
keyvalue(@rs1.sir_cd,@rs1.syori_ymd,@rs1.den_no)
keybreakproc(GroupBegin_key3,GroupEnd_key3)

#-------------------------------------------------
#  Key3�J�n��
#-------------------------------------------------
[GroupBegin_key3]
putcell($_row,2,@rs1.den_dt)
putcell($_row,3,@rs1.den_no)
putcell($_row,4,@rs1.kbn)

#-------------------------------------------------
#  Key3�I����
#-------------------------------------------------
[GroupEnd_key3]

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

#��������case

#�J�z���z�s�\��
case($kbn_kr,@rs1.kbn_no,0,1,0)
iterate(KuriKoshi_line,$kbn_kr)

#�[�����z�s�\��
case($kbn_hs,@rs1.kbn_no,1,1,0)
iterate(zenHaSu_line,$kbn_hs)

#�d�����׋��z�s�\��
case($kbn_u,@rs1.kbn_no,2,1,0)
iterate(Sir_line,$kbn_u)

#�d���`�[���z�s�\��
case($kbn_uh,@rs1.kbn_no,3,1,0)
iterate(SirH_line,$kbn_uh)

#�o�����׋��z�s�\��
case($kbn_n,@rs1.kbn_no,4,1,0)
iterate(Syukin_line,$kbn_n)

#�o�����z�s�\��
case($kbn_n,@rs1.kbn_no,5,1,0)
iterate(SyukinH_line,$kbn_n)

#�������s�\��
case($kbn_ukk,@rs1.kbn_no,6,1,0)
iterate(KaiKaKe_line,$kbn_ukk)

[zenHaSu_line]
#�ϐ���������
case($zei_calc_on,@rs1.zei_calc_kbn,0,1,0)
case($zei_calc_off,@rs1.zei_calc_kbn,1,1,0)
iterate(ChkZeiON,$zei_calc_on)
iterate(ChkZeiOFF,$zei_calc_off)

#sum($k_kaikake_gaku,@rs1.zeikomi_gaku)
diff($k_kaikake_gaku,@rs1.syukin_gaku)
#�O���[���s�\��
formatspecialrow($_row,0,9,1)
putcell($_row,14,@rs1.biko1)
putcell($_row,15,@rs1.biko2)
putline(,,,@rs1.kbn#,@rs1.hin_cd#,@rs1.hin_nm#,@rs1.suryo#,@rs1.tanka#,@rs1.kingaku#,@rs1.zei_gaku#,@rs1.zeikomi_gaku#,@rs1.syukin_gaku#,@rs1.kaikake_gaku#)

[Sir_line]
#�d�����׍s�\��

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

putcell($_row,14,@rs1.biko1)
putcell($_row,15,@rs1.biko2)
putline(,,,,@rs1.hin_cd#,@rs1.hin_nm#,@rs1.suryo#,@rs1.tanka#,@rs1.kingaku#,,,@rs1.syukin_gaku#,,)

[SirH_line]
#�ϐ���������
case($zei_calc_on2,@rs1.zei_calc_kbn,0,1,0)
case($zei_calc_off2,@rs1.zei_calc_kbn,1,1,0)
iterate(ChkZeiON2,$zei_calc_on2)
iterate(ChkZeiOFF2,$zei_calc_off2)

#���v�s�p�����Z
sum($kei_zeinuki,@rs1.kingaku)
sum($kei_zei,@rs1.zei_gaku)
sum($kei_zeikomi,@rs1.zeikomi_gaku)


[Syukin_line]
#�ϐ���������
#sum($k_syukin_gaku,@rs1.syukin_gaku)
#diff($k_kaikake_gaku,@rs1.syukin_gaku)
#�o���s�\��
formatspecialrow($_row,0,7,1)
putcell($_row,14,@rs1.biko1)
putcell($_row,15,@rs1.biko2)
putline(,,,,,@rs1.hin_nm#,@rs1.suryo#,@rs1.tanka#,@rs1.kingaku#,,,@rs1.syukin_gaku#,,)
#���v�s�p�����Z
#sum($kei_syukin,@rs1.syukin_gaku)

[SyukinH_line]
#�ϐ���������
diff($k_kaikake_gaku,@rs1.syukin_gaku)
#�o���s�\��
formatspecialrow($_row,0,8,1)
putcell($_row,14,@rs1.biko1)
putcell($_row,15,@rs1.biko2)
putline(,,,,,@rs1.hin_nm#,@rs1.suryo#,@rs1.tanka#,@rs1.kingaku#,,,@rs1.syukin_gaku#,$k_kaikake_gaku#)
#���v�s�p�����Z
sum($kei_syukin,@rs1.syukin_gaku)

[KuriKoshi_line]
#�ϐ���������
sum($k_kaikake_gaku,@rs1.kaikake_gaku)
#�J�z�s�\��
formatspecialrow($_row,0,9,1)
putcell($_row,14,@rs1.biko1)
putcell($_row,15,@rs1.biko2)
putline(,,,,@rs1.hin_cd#,@rs1.hin_nm#,@rs1.suryo#,@rs1.tanka#,@rs1.kingaku#,@rs1.zei_gaku#,@rs1.zeikomi_gaku#,@rs1.syukin_gaku#,@rs1.kaikake_gaku#)

[KaiKaKe_line]
#���|�s�\��
formatspecialrow($_row,0,9,1)
putcell($_row,14,@rs1.biko1)
putcell($_row,15,@rs1.biko2)
putline(,,,,@rs1.hin_cd#,@rs1.hin_nm#,@rs1.suryo#,@rs1.tanka#,@rs1.kingaku#,@rs1.zei_gaku#,@rs1.zeikomi_gaku#,@rs1.syukin_gaku#,@rs1.kaikake_gaku#)

#case($zei_calc_on3,@rs1.zei_calc_kbn,0,1,0)
case($zei_calc_off3,@rs1.zei_calc_kbn,1,1,0)
#iterate(ChkZeiON3,$zei_calc_on3)
iterate(ChkZeiOFF3,$zei_calc_off3)

[suryo_dec_on]
formatspecialrow($_row,0,13,1)

[suryo_dec_off]
formatspecialrow($_row,0,7,1)


[ChkZeiON]
sum($k_kaikake_gaku,@rs1.zeikomi_gaku)
[ChkZeiOFF]
sum($k_kaikake_gaku,@rs1.kingaku)

[ChkZeiON2]
sum($k_kaikake_gaku,@rs1.zeikomi_gaku)
#�d���`�[�s�\��
formatspecialrow($_row,0,8,1)
putcell($_row,14,@rs1.biko1)
putcell($_row,15,@rs1.biko2)
putline(,,,,@rs1.hin_cd#,@rs1.hin_nm#,@rs1.suryo#,@rs1.tanka#,@rs1.kingaku#,@rs1.zei_gaku#,@rs1.zeikomi_gaku#,@rs1.syukin_gaku#,$k_kaikake_gaku#)

[ChkZeiOFF2]
sum($k_kaikake_gaku,@rs1.kingaku)
#�d���`�[�s�\��
formatspecialrow($_row,0,8,1)
putcell($_row,14,@rs1.biko1)
putcell($_row,15,@rs1.biko2)
putline(,,,,@rs1.hin_cd#,@rs1.hin_nm#,@rs1.suryo#,@rs1.tanka#,@rs1.kingaku#,,,@rs1.syukin_gaku#,$k_kaikake_gaku#)

#[ChkZeiON3]
#setdouble($k_kaikake_gaku,@rs1.zeikomi_gaku)
[ChkZeiOFF3]
setdouble($k_kaikake_gaku,@rs1.kaikake_gaku)