[Main] dbuse(true) #initparam(printMode,reportId,s_id,tok_cd,seikyu_ymd) initparam(printMode,reportId,s_id,shime_dd,syori_ymd_fr,syori_ymd_to,prc_sts,tok_cd_fr,tok_cd_to,nonyu_no_fr,nonyu_no_to,tan_cd_fr,tan_cd_to,hin_cd_fr,hin_cd_to,cat_cd_fr,cat_cd_to,den_no_fr,den_no_to,hin_nm,genka_flg,output_ymd) 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) addparam($param,$shime_dd) addparam($param,$syori_ymd_fr) addparam($param,$syori_ymd_to) addparam($param,$prc_sts) addparam($param,$tok_cd_fr) addparam($param,$tok_cd_to) addparam($param,$nonyu_no_fr) addparam($param,$nonyu_no_to) addparam($param,$tan_cd_fr) #10 addparam($param,$tan_cd_to) addparam($param,$hin_cd_fr) addparam($param,$hin_cd_to) addparam($param,$cat_cd_fr) addparam($param,$cat_cd_to) addparam($param,$den_no_fr) addparam($param,$den_no_to) addparam($param,$hin_nm) addparam($param,$genka_flg) #19 addparam($param,$output_ymd)#20 #addparam($param,$seikyu_ymd) dbselect(SelectRecords,@rs1,$param) #------------------------------------------------- # �w�b�_�쐬 #------------------------------------------------- [CreateHedder] #�w�b�_���� formatspecialrow($_row,0,1,2) #1�s�� putcell($_row,2,@rs0.tait) putline(,)#���s #2�s�� putcell($_row,2,$record_ymd_frto)#debug #putcell($_row,7,�쐬��) putcell($_row,8,@rs1.output_ymd_s) putline(,)#���s #3�s��#���o������ formatspecialrow($_row,0,3,1) #�斱��,����,%��,����,�R�,�C����,�^�C���E�y,�����v���[�g,�ی�,�Е�,���p�g�p,����,�����t�F���[,���̑�2,�^�s��,���̑�,���v,�������z putcell($_row,2,�斱��) putcell($_row,3,����) putcell($_row,4,%��) putcell($_row,5,����) putcell($_row,6,�R�) putcell($_row,7,�C����) putcell($_row,8,�^�C���E�y�\����) putcell($_row,9,�����v���[�g) putcell($_row,10,�ی�) putcell($_row,11,�Е�) putcell($_row,12,���p�g�p) putcell($_row,13,����) putcell($_row,14,�����t�F���[) putcell($_row,15,���̑�2) putcell($_row,16,�^�s��) putcell($_row,17,���̑�) putcell($_row,18,���v) putcell($_row,19,�������z) putline(,)#���s #------------------------------------------------- # #�ϐ�_������ #------------------------------------------------- [set_variable] #���v:�^������ setdouble($zeinuki_gaku_sum,0) #���v:�b�ԗ� setdouble($genka1_gaku_sum,0) #���v:���v setdouble($saeki_sum,0) #���v:�\���� setdouble($component_sum,0) #���v:�^������ setdouble($zeinuki_gaku_sum_sum,0) #���v:�b�ԗ� setdouble($genka1_gaku_sum_sum,0) #���v:���v setdouble($saeki_sum_sum,0) #���v:�\���� setdouble($component_sum_sum,0) #���v:�� setdouble($zei_sum,0) #���v:�������v #setdouble($zei_sum,0) #putline(,,@rs1.uriage#,@rs1.kousu_keisu#,����#,@rs1.keihi1#,@rs1.keihi2#,@rs1.keihi3#,@rs1.keihi4#,@rs1.keihi5#,@rs1.keihi6#,@rs1.keihi7#,@rs1.keihi8#,@rs1.keihi9#,@rs1.keihi10#,@rs1.keihi11#,@rs1.keihi12#,@rs1.gokei_keihi#,�������z#)#debug #*���v*:���� setdouble($uriage_sum,0) #*���v*:%�� setdouble($p_hiki_sum,0) #*���v*:���� setdouble($sa_hiki_sum,0) #*���v*:�R� setdouble($keihi1_sum,0) #*���v*:�C���� setdouble($keihi2_sum,0) #*���v*:�^�C���E�y setdouble($keihi3_sum,0) #*���v*:�����v���[�g setdouble($keihi4_sum,0) #*���v*:�ی� setdouble($keihi5_sum,0) #*���v*:�Е� setdouble($keihi6_sum,0) #*���v*:���p�g�p #setdouble($keihi7_sum,0) #*���v*:���� setdouble($keihi8_sum,0) #*���v*:�����t�F���[ setdouble($keihi9_sum,0) #*���v*:���̑�2 setdouble($keihi10_sum,0) #*���v*:�^�s�� setdouble($keihi11_sum,0) #*���v*:���̑� #setdouble($keihi12_sum,0) #*���v*:���v #setdouble($gokei_keihi_sum,0) #*���v*:�������z #setdouble($sahiki_gokei_sum,0) #------------------------------------------------- # 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() #�ϐ�_������ subroutine(set_variable) #�w�b�_���� subroutine(CreateHedder) #------------------------------------------------- # Key0�I���� #------------------------------------------------- [GroupEnd_key0] formatspecialrow($_row,0,6,1) putcell($_row,2,*�����v*) putline(,,$uriage_sum#,$p_hiki_sum#,$sa_hiki_sum#,$keihi1_sum#,$keihi2_sum#,$keihi3_sum#,$keihi4_sum#,$keihi5_sum#,$keihi6_sum#,$keihi7_sum#,$keihi8_sum#,$keihi9_sum#,$keihi10_sum#,$keihi11_sum#,$keihi12_sum#,$gokei_keihi_sum#,$sahiki_gokei_sum#)#debug pageclose(false) #------------------------------------------------- # Key1�ݒ胋�[�`�� #------------------------------------------------- [KeyInfo_key1] keyvalue(dummy) keybreakproc(GroupBegin_key1,GroupEnd_key1) #------------------------------------------------- # Key1�J�n�� #------------------------------------------------- [GroupBegin_key1] #------------------------------------------------- # Key1�I���� #------------------------------------------------- [GroupEnd_key1] #------------------------------------------------- # ���ו\������ #------------------------------------------------- [PrintNormal] formatspecialrow($_row,0,4,1) putcell($_row,2,@rs1.haiso_tan_nm) #putcell($_row,3,@rs1.sir_nm) #putcell($_row,4,@rs1.eig_nm) putline(,,@rs1.uriage#,@rs1.kousu_keisu#,����#,@rs1.keihi1#,@rs1.keihi2#,@rs1.keihi3#,@rs1.keihi4#,@rs1.keihi5#,@rs1.keihi6#,@rs1.keihi7#,@rs1.keihi8#,@rs1.keihi9#,@rs1.keihi10#,@rs1.keihi11#,@rs1.keihi12#,@rs1.gokei_keihi#,�������z#)#debug #*���v*:���� sum($uriage_sum,@rs1.uriage) #*���v*:%���i�������j sum($p_hiki_sum,0) #*���v*:�����i�������j sum($sa_hiki_sum,0) #*���v*:�R� sum($keihi1_sum,@rs1.keihi1) #*���v*:�C���� sum($keihi2_sum,@rs1.keihi2) #*���v*:�^�C���E�y sum($keihi3_sum,@rs1.keihi3) #*���v*:�����v���[�g sum($keihi4_sum,@rs1.keihi4) #*���v*:�ی� sum($keihi5_sum,@rs1.keihi5) #*���v*:�Е� sum($keihi6_sum,@rs1.keihi6) #*���v*:���p�g�p sum($keihi7_sum,@rs1.keihi7) #*���v*:���� sum($keihi8_sum,@rs1.keihi8) #*���v*:�����t�F���[ sum($keihi9_sum,@rs1.keihi9) #*���v*:���̑�2 sum($keihi10_sum,@rs1.keihi10) #*���v*:�^�s�� sum($keihi11_sum,@rs1.keihi11) #*���v*:���̑� sum($keihi12_sum,@rs1.keihi12) #*���v*:���v sum($gokei_keihi_sum,@rs1.gokei_keihi) #*���v*:�������z�i�������j sum($sahiki_gokei_sum,0)