[Main] dbuse(true) #initparam(printMode,reportId,dt_from,dt_to,uri_no,tokui_cd,syohin_nm,han_name,dst_filename,seikyu_s_id,option1,ext7,report_title,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,eigyo_tan_cd_fr,eigyo_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) initparam(printMode,reportId,dt_from,dt_to,uri_no,tokui_cd,syohin_nm,han_name,dst_filename,seikyu_s_id,option1,option2,group_no,option3,option4,option5,option6,option7,den_s_id,syukka_req_mng_id,eig_cd,input_dt_from,input_dt_to,loc_no,nonyu_hoho) deforgpage(blank) defheadarea(hed) defbodyarea(mei) subroutine(SelectRecords_Jisya) subroutine(SelectRecords) loop(PrintNormal,@rs1,Key0,Key1,Key2) printreport($printMode,true) #------------------------------------------------- # SQL���s_���� #------------------------------------------------- [SelectRecords_Jisya] new($param) addparam($param,$option4) dbselect(SelectRecords_Jisya,@rs0,$param) #------------------------------------------------- # SQL���s #------------------------------------------------- [SelectRecords] new($param) addparam($param,$dt_from) addparam($param,$dt_to) addparam($param,$uri_no) addparam($param,$tokui_cd) addparam($param,$syohin_nm)#5 addparam($param,$han_name) addparam($param,$dst_filename) addparam($param,$seikyu_s_id) addparam($param,$option1) addparam($param,$option2)#10 addparam($param,$option3) addparam($param,$option4) addparam($param,$option5) addparam($param,$option6) addparam($param,$option7) addparam($param,$den_s_id) addparam($param,$syukka_req_mng_id) addparam($param,$eig_cd) addparam($param,$input_dt_from) addparam($param,$input_dt_to)#20 addparam($param,$loc_no) addparam($param,$nonyu_hoho) addparam($param,@rs0.uri_tokadr_kbn) addparam($param,@rs0.juha_sync_flg)#24 dbselect(SelectRecords,@rs1,$param) #------------------------------------------------- # �w�b�_�쐬���� #------------------------------------------------- [CreateH] #1�s�� #�^�C�g����$title_s�ɓ���� case($title_s,$title,1,@rs0.title1,2,@rs0.title2) putcell($header,13,$title_s) sum($header,1) #2�s�� #putcell($header,1,��) putcell($header,2,@rs1.tok_zip_no) putcell($header,13,@rs1.u_ymd) putcell($header,25,No.) putcell($header,26,@rs1.uri_no) sum($header,1) #3�s�� putcell($header,1,@rs1.tok_addr1) putcell($header,29,@rs1.uri_row_kai_s) sum($header,1) #4�s�� putcell($header,1,@rs1.tok_addr2) putcell($header,20,@rs0.j_post_s) sum($header,1) #5�s�� putcell($header,1,@rs1.tok_addr3) putcell($header,20,@rs0.j_address) sum($header,1) #6�s�� putcell($header,1,@rs1.tokui_nm_s) putcell($header,20,@rs0.j_address2) sum($header,1) #7�s�� putcell($header,1,@rs1.tokui_nm2) putcell($header,20,@rs0.j_nm) sum($header,1) #8�s�� putcell($header,1,@rs1.nonyu_nm_s) putcell($header,20,@rs0.j_tel_s) putcell($header,25,@rs0.j_fax_s) sum($header,1) #9�s�� putcell($header,20,@rs1.tan_nm_s) sum($header,1) #10�s�� putcell($header,1,@rs0.mongon1) putcell($header,10,@rs1.tokui_cd_s) putcell($header,20,@rs0.j_reg_no_s) sum($header,1) #11�s�� putcell($header,1,���i��) putcell($header,13,����) putcell($header,16,�P��) putcell($header,18,�P��) putcell($header,21,���z) putcell($header,25,���l) sum($header,8) #19�s�� #19�s��_���v��_�� putcell($header,18,���v) #19�s��_��̏�_��̈� case($jyuryoin,$title,2,��̈�,) putcell($header,26,$jyuryoin) sum($header,1) #20�s�� putcell($header,10,����œ�) putcell($header,18,���v) sum($header,1) #21�s�� putcell($header,1,�E�v) putcell($header,3,@rs1.biko1) #��̏��� sum($header,2) sum($title,1) #------------------------------------------------- # �w�b�_�쐬 #------------------------------------------------- [CreateHedder] #�������ؑց@�P�������_�Q�� case($format_row,@rs0.uritndec_flg,1,45,1) formatspecialrow($page,0,$format_row,44)#1�y�[�W���t�H�[�}�b�g���� #�w�b�_�J�n�ʒu��� setdouble($header,$header_stt) #�w�b�_�쐬����_2��i�[�i�����Ǝ�̏����j iterate(CreateH,2) #------------------------------------------------- # ���v���쐬���� #------------------------------------------------- [CreateG] #�P���\����\�� case($zn_gaku_s,$option1,1,,$zn_gaku) case($z_gaku_s,$option1,1,,$z_gaku) case($zi_gaku_s,$option1,1,,$zi_gaku) putcell($goukei,21,$zn_gaku_s)#�P���\����\�� sum($goukei,1) putcell($goukei,14,$z_gaku_s)#�P���\����\�� putcell($goukei,21,$zi_gaku_s)#�P���\����\�� #��̏��� sum($goukei,21) #------------------------------------------------- # ���v���쐬 #------------------------------------------------- [Goukei_output] #���v���쐬_2��i�[�i�����Ǝ�̏����j iterate(CreateG,2) #------------------------------------------------- # Key0�ݒ胋�[�`�� #------------------------------------------------- [KeyInfo_Key0] keyvalue(dummy) keybreakproc(GroupBegin_Key0,GroupEnd_Key0) #------------------------------------------------- # Key0�J�n�� #------------------------------------------------- [GroupBegin_Key0] deforgpage(blank) #Import���邩�ǂ���,FormatNormal���邩�ǂ��� pageopen(false,false) deforgpage(formats) #�w�b�_�J�n�ʒu_���� setdouble($header_stt,1) #���v�J�n�ʒu_���� setdouble($goukei_stt,19) #���ʒu_�[�i��_���� setdouble($cow_stt,12) #���ʒu_���i��̏�_���� setdouble($cow2_stt,34) #���y�[�W�ʒu_���� setdouble($page,1) resetorg() #------------------------------------------------- # Key0�I���� #------------------------------------------------- [GroupEnd_Key0] pageclose(false) #------------------------------------------------- # Key1�ݒ胋�[�`�� #------------------------------------------------- [KeyInfo_key1] keyvalue(@rs1.uri_no) keybreakproc(GroupBegin_key1,GroupEnd_key1) #------------------------------------------------- # Key1�J�n�� #------------------------------------------------- [GroupBegin_key1] #------------------------------------------------- # Key1�I���� #------------------------------------------------- [GroupEnd_key1] #���v���쐬 subroutine(Goukei_output) #------------------------------------------------- # Key2�ݒ胋�[�`�� #------------------------------------------------- [KeyInfo_key2] keyvalue(@rs1.uri_no,@rs1.uri_row_kai,@rs1.tokui_cd) keybreakproc(GroupBegin_key2,GroupEnd_key2) #------------------------------------------------- # Key2�J�n�� #------------------------------------------------- [GroupBegin_key2] #���[��_�����l setdouble($title,1) #���J�n�ʒu_��� setdouble($cow,$cow_stt) setdouble($cow2,$cow2_stt) #���v�J�n�ʒu_��� setdouble($goukei,$goukei_stt) #���v�z_�ۑ� setdouble($zn_gaku,@rs1.zn_gaku) setdouble($z_gaku,@rs1.z_gaku) setdouble($zi_gaku,@rs1.zi_gaku) #���v�z_�ۑ�_�������ꊇ�Ȃ�\�����Ȃ� case($z_gaku,@rs1.zei_calc_kbn,1,,$z_gaku) #�w�b�_�쐬 subroutine(CreateHedder) #------------------------------------------------- # Key2�I���� #------------------------------------------------- [GroupEnd_key2] #���y�[�W���� HPAGEBREAK($page) #�w�b�_�J�n�ʒu_���Z sum($header_stt,44) #���v�J�n�ʒu_���Z sum($goukei_stt,44) #���ʒu_�[�i��_���Z sum($cow_stt,44) #���ʒu_���i��̏�_���Z sum($cow2_stt,44) #���y�[�W�ʒu_���Z sum($page,44) #------------------------------------------------- # ���ו\������ #------------------------------------------------- [PrintNormal] #���ו\������_�P���\����\�� case($uri_t,$option1,1,,@rs1.uri_t) case($uri_g,$option1,1,,@rs1.uri_g) putcell($cow,1,@rs1.hin_nm) putcell($cow,13,@rs1.uri_s) putcell($cow,16,@rs1.tani) putcell($cow,18,$uri_t)#�P���\����\�� putcell($cow,21,$uri_g)#�P���\����\�� putcell($cow,25,@rs1.meisai_biko) sum($cow,1) putcell($cow2,1,@rs1.hin_nm) putcell($cow2,13,@rs1.uri_s) putcell($cow2,16,@rs1.tani) putcell($cow2,18,$uri_t)#�P���\����\�� putcell($cow2,21,$uri_g)#�P���\����\�� putcell($cow2,25,@rs1.meisai_biko) putline() sum($cow2,1)