[Main] dbuse(true) initparam(printMode,reportId,dt_from,dt_to,uri_no,tokui_cd,syohin_nm,han_name,outputfile) deforgpage(blank) defheadarea(hed) defbodyarea(mei) subroutine(SelectRecords) loop(PrintNormal,@rs1,Key1) printreport($printMode,true,false) #------------------------------------------------- # Key1�ݒ胋�[�`�� #------------------------------------------------- [KeyInfo_key1] keyvalue(@rs1.mitsumori_no) keybreakproc(GroupBegin_key1,GroupEnd_key1) #------------------------------------------------- # Key1�J�n�� #------------------------------------------------- [GroupBegin_key1] deforgpage(blank) #Import���邩�ǂ���,FormatNormal���邩�ǂ��� pageopen(true,false) deforgpage(formats) resetorg() #�w�b�_���� putcell(1,6,@rs1.mitsumori_no) putcell(4,3,@rs1.tok_nm) putcell(5,3,@rs1.title1) putcell(6,3,@rs1.title2) #------------------------------------------------- # Key1�I���� #------------------------------------------------- [GroupEnd_key1] #�t�b�^���� formatspecialrow($_row,0,20,3) #�t�b�^_���v���z putcell($_row,3,���v���z) putformula($_row,4,SUM\x28R8C:R[-1]C\x29) putformula($_row,5,SUM\x28R8C:R[-1]C\x29) putformula($_row,6,SUM\x28R8C:R[-1]C\x29) putformula($_row,7,IF\x28RC[-3]\x3d0\x2c0\x2c\x28\x28RC[-3]\x2dRC[-2]\x29\x2fRC[-3]\x29\x2a100\x29) putline() #�t�b�^_�o���l�� putcell($_row,3,�o���l��) putcell($_row,4,@rs1.nebiki) putline() #�t�b�^_���v���z�i�l����j putcell($_row,3,���v���z�i�l����j) putformula($_row,4,R[-2]C\x2bR[-1]C) putformula($_row,5,R[-2]C) putformula($_row,6,RC[-2]\x2dRC[-1]) putformula($_row,7,IF\x28RC[-3]\x3d0\x2c0\x2c\x28\x28RC[-3]\x2dRC[-2]\x29\x2fRC[-3]\x29\x2a100\x29) putline() pageclose(false) #------------------------------------------------- # SQL���s #------------------------------------------------- [SelectRecords] new($param) #addparam($param,$s_id) addparam($param,$dt_from) addparam($param,$dt_to) addparam($param,$uri_no) addparam($param,$tokui_cd) addparam($param,$syohin_nm) addparam($param,$han_name) dbselect(SelectRecords,@rs1,$param) #------------------------------------------------- # ���ו\������ #------------------------------------------------- [PrintNormal] formatspecialrow($_row,0,8,1) putcell($_row,2,@rs1.s_row_no) putcell($_row,3,@rs1.cat_cd_nm) putline(,,,@rs1.mitsumori_gaku#,@rs1.sir_gaku#,@rs1.arari_gaku#,@rs1.arari_ritu#)