[Main] dbuse(true) initparam(printMode,reportId,dt_from,dt_to,uri_no,tokui_cd,syohin_nm) deforgpage(blank) defheadarea(hed) defbodyarea(mei) subroutine(SelectRecords) loop(PrintNormal,@rs1,Key1,Key2) printreport($printMode,true) #------------------------------------------------- # SQL���s #------------------------------------------------- [SelectRecords] new($param) #addparam($param,$sort) addparam($param,$dt_from) addparam($param,$dt_to) addparam($param,$uri_no) addparam($param,$tokui_cd) addparam($param,$syohin_nm) dbselect(SelectRecords,@rs1,$param) #------------------------------------------------- # ���y�[�W���� #------------------------------------------------- [page_flg] #���y�[�W�}�� HPAGEBREAK($_row) #------------------------------------------------- # ���y�[�W���� #------------------------------------------------- [PageBreak] #�Q�T�s���Ƃɉ��y�[�W div($row_no,30,$kekka,$amari) #���s���Q�T�s�Ȃ���y�[�W case($page_flg,$amari,0,1,0) #���y�[�W���� iterate(page_flg,$page_flg) #------------------------------------------------- # Key1�ݒ胋�[�`�� #------------------------------------------------- [KeyInfo_key1] keyvalue(dummy) keybreakproc(GroupBegin_key1,GroupEnd_key1) #------------------------------------------------- # Key1�J�n�� #------------------------------------------------- [GroupBegin_key1] deforgpage(blank) #Import���邩�ǂ���,FormatNormal���邩�ǂ��� pageopen(true,false) deforgpage(formats) resetorg() #------------------------------------------------- # Key1�I���� #------------------------------------------------- [GroupEnd_key1] #FormatNormal���邩�ǂ��� #setdouble($con,0) #putcell(16,22,@rs1.uri_row) pageclose(false) #------------------------------------------------- # Key2�ݒ胋�[�`�� #------------------------------------------------- [KeyInfo_key2] keyvalue(@rs1.row_page) keybreakproc(GroupBegin_key2,GroupEnd_key2) #------------------------------------------------- # Key2�J�n�� #------------------------------------------------- [GroupBegin_key2] #------------------------------------------------- # Key2�I���� #------------------------------------------------- [GroupEnd_key2] HPAGEBREAK($_row) #------------------------------------------------- # ���ו\������ #------------------------------------------------- [PrintNormal] #subroutine(PageBreak) formatspecialrow($_row,0,1,5) #formatspecialrow($_row,0,1,1) putline(,,,,@rs1.uriage#,,,@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.keihi_kei#) #formatspecialrow($_row,0,2,1) putline(�x������#,@rs1.output_ymd#,@rs1.haiso_tan_nm#,,����#,%�T��#,�����v�@#,@rs1.hin_nm1#,@rs1.hin_nm2#,@rs1.hin_nm3#,@rs1.hin_nm4#,@rs1.hin_nm5#,@rs1.hin_nm6#,@rs1.hin_nm7#,@rs1.hin_nm8#,@rs1.hin_nm9#,@rs1.hin_nm10#,@rs1.hin_nm11#,@rs1.hin_nm12#,,�T�����v�@#,�������v�@#,���^�ݒ�z#,�����̍��v�@#,�O���J�z#,�����J�z�@#,�ۋ��^�A�J���������#) #formatspecialrow($_row,0,3,1) putline(,,,,) #formatspecialrow($_row,0,4,1) putline(,,,,�x���z#,,,,�T���z#) putline(,)