[Main] dbuse(true) initparam(printMode,reportId,s_id) 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) dbselect(SelectRecords,@rs1,$param) #------------------------------------------------- # SQL���s_�U�� #------------------------------------------------- [SelectRecords_Furi] new($param) addparam($param,$s_id) addparam($param,@rs1.tok_cd) dbselect(SelectRecords_Furi,@rs2,$param) #------------------------------------------------- # SQL���s_���v #------------------------------------------------- [SelectRecords_sum] new($param) addparam($param,$s_id) addparam($param,@rs1.tok_cd) addparam($param,@rs1.seikyu_ymd) dbselect(SelectRecords_sum,@rs3,$param) #------------------------------------------------- # �����z_���z�\����\�� #------------------------------------------------- [kingaku_off] subroutine(SelectRecords_sum) #formatspecialrow($seikyu_num,0,2,1) #putcell($seikyu_num,7,@rs1.zen_seikyu_zan) putcell($_row,7,@rs3.asuryo_sum) putcell($_row,12,@rs3.kingaku_sum) putcell($_row,17,@rs3.zeinukigaku) putcell($_row,22,@rs3.zei) putcell($_row,27,@rs3.zeikomigaku) putcell($_row,34,@rs3.zeikomigaku) #�����z_���z��\���t���O_1 sum($kingaku_off_flg,1) #------------------------------------------------- # ���v�s�쐬 #------------------------------------------------- [CreateSumRow] formatspecialrow($_row,0,6,2) putline(,,,,,,,,,,,,,,,,,,,,,,$nyusyukkoryou_sum#,,,,,,,,,,,,$asuryo_sum#,) putcell($_row,2,�y���v�z) putline(,,,,,,,,,,,,,,,,,,,,,,$hokanryo_sum#,,,,,,,,,,,,$kingaku_sum#) #���v_�ϐ����Z sum($nyusyukkoryou_sum_sum,$nyusyukkoryou_sum) #���v_�ϐ����Z sum($hokanryo_sum_sum,$hokanryo_sum) #���v_�ϐ����Z sum($asuryo_sum_sum,$asuryo_sum) #���v_�ϐ����Z sum($kingaku_sum_sum,$kingaku_sum) #���v_�ۊǐϐ�_�����l setdouble($nyusyukkoryou_sum,0) #���v_�ۊǗ�_�����l setdouble($hokanryo_sum,0) #���v_������_�����l setdouble($asuryo_sum,0) #���v_���o�ɗ�_�����l setdouble($kingaku_sum,0) #------------------------------------------------- # ���v�s�쐬 #------------------------------------------------- [CreateSumSumRow] formatspecialrow($_row,0,6,2) putline(,,,,,,,,,,,,,,,,,,,,,,$nyusyukkoryou_sum_sum#,,,,,,,,,,,,$asuryo_sum_sum#,) putcell($_row,2,�y���v�z) putline(,,,,,,,,,,,,,,,,,,,,,,$hokanryo_sum_sum#,,,,,,,,,,,,$kingaku_sum_sum#) #------------------------------------------------- # ���y�[�W���� #------------------------------------------------- [page_flg] #���v�s�쐬 subroutine(CreateSumRow) #���y�[�W�}�� HPAGEBREAK($_row) #���o���쐬 subroutine(CreateHedder) #------------------------------------------------- # ���y�[�W�����t���O #------------------------------------------------- [PageBreak] #26�s���Ƃɉ��y�[�W_���ݍs��26�s���ǂ��� div($row_no,26,$kekka,$amari) #���s��26�s�Ȃ���y�[�W�����t���O������ case($page_flg,$amari,0,1,0) #���y�[�W�����t���O�����Ă�_���y�[�W���� iterate(page_flg,$page_flg) #------------------------------------------------- # �U���@�֏o�͏��� #------------------------------------------------- [Furikomi] putcell($furikomi,24,@rs2.furikikan) sum($furikomi,1) #------------------------------------------------- # #�w�b�_�[�쐬 #------------------------------------------------- [CreateHedder] formatspecialrow($_row,0,9,12) #1�s�� putcell($_row,17,@rs0.tait) putline(,) #2�s�� putcell($_row,2,@rs1.yubin_no) putcell($_row,30,���s���F) putcell($_row,33,@rs1.seikyu_ymd_s) putline(,) #3�s�� putcell($_row,2,@rs1.address1) putline(,) #4�s�� putcell($_row,2,@rs1.address2) putcell($_row,25,@rs0.j_nm) putline(,) #5�s�� putcell($_row,2,@rs1.address3) putcell($_row,25,@rs0.j_post_s) putcell($_row,28,@rs0.j_address) putline(,) #6�s�� putcell($_row,2,@rs1.tok_nm_s) putcell($_row,25,@rs0.j_tel_s) putcell($_row,31,@rs0.j_fax_s) putline(,) #7�s�� putcell($_row,2,@rs1.tok_tan) putcell($_row,25,@rs0.j_url_s) putline(,) #8�s�� putcell($_row,24,�U����F) putline(,) #9�s�� putcell($_row,2,@rs0.mongon1) subroutine(SelectRecords_Furi) setdouble($furikomi,$_row) loop(Furikomi,@rs2) putline(,) #10�s�� putcell($_row,2,@rs0.mongon2) putline(,) #11�s�� putcell($_row,2,@rs0.mongon3) putline(,) #12�s�� putline(,) #13�s�� formatspecialrow($_row,0,3,1) concatenate($tok_cd,���q�l�R�[�h:,@rs1.tok_cd) putcell($_row,2,$tok_cd) #�y�[�WNo.�\������_26�s�o�͂�����J�E���g�A�b�v div($row_no,26,$kekka,$amari) case($amari_flg,$amari,0,1) sum($amari_flg_sum,$amari_flg) concatenate($amari_flg_disp,Page.,$amari_flg_sum) #�y�[�WNo.�\������ putcell($_row,37,$amari_flg_disp) putline(,) #14�s�� �����z_���o�� formatspecialrow($_row,0,1,3) #putcell($_row,2,) putcell($_row,7,�ۊǗ�) putcell($_row,12,���o�ɗ�) putcell($_row,17,�Ŕ��䐿���z) putcell($_row,22,�����) putcell($_row,27,�����䔃����z) putcell($_row,34,����䐿���z) putline(,) #�����z_���z�\��_��\���i1�y�[�W�ڂ������z�\���j case($kingaku_off,$kingaku_off_flg,0,1,0) #�����z_���z�\����\�� iterate(kingaku_off,$kingaku_off) putline(,) #��s putline(,) #����_���o�� formatspecialrow($_row,0,4,2) putcell($_row,2,�i��) putcell($_row,14,�O�����c) putcell($_row,17,���ɐ�) putcell($_row,20,�o�ɐ�) putcell($_row,23,�ۊǐϐ�) putcell($_row,27,�ۊǒP��) putcell($_row,31,���ɒP��) putcell($_row,35,������) putline(,) putcell($_row,2,) putcell($_row,14,����c) putcell($_row,17,�����c) putcell($_row,20,�����c) putcell($_row,23,) putcell($_row,23,�ۊǗ�) putcell($_row,31,�o�ɒP��) putcell($_row,35,���o�ɗ�) putline(,) #------------------------------------------------- # 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() #------------------------------------------------- # Key0�I���� #------------------------------------------------- [GroupEnd_Key0] pageclose(false) #------------------------------------------------- # Key1�ݒ胋�[�`�� #------------------------------------------------- [KeyInfo_key1] keyvalue(@rs1.tok_cd,@rs1.tok_nm) keybreakproc(GroupBegin_key1,GroupEnd_key1) #------------------------------------------------- # Key1�J�n�� #------------------------------------------------- [GroupBegin_key1] #���y�[�W�����t���O_�����l setdouble($page_flg,0) #���y�[�W�����t���O_�����l setdouble($amari_flg,0) #���y�[�W�����t���O_�����l setdouble($amari_flg_sum,0) #�����z_���z��\���t���O_�����l setdouble($kingaku_off_flg,0) #����_�s���J�E���g_�����l setdouble($row_no,0) #�y�[�W�J�E���g_�����l setdouble($amari_sum,0) #���v_�ۊǐϐ�_�����l setdouble($nyusyukkoryou_sum,0) #���v_�ۊǗ�_�����l setdouble($hokanryo_sum,0) #���v_������_�����l setdouble($asuryo_sum,0) #���v_���o�ɗ�_�����l setdouble($kingaku_sum,0) #���v_�ۊǐϐ�_�����l setdouble($nyusyukkoryou_sum_sum,0) #���v_�ۊǗ�_�����l setdouble($hokanryo_sum_sum,0) #���v_������_�����l setdouble($asuryo_sum_sum,0) #���v_���o�ɗ�_�����l setdouble($kingaku_sum_sum,0) #����_�s���J�E���g_�����l setdouble($furikomi,12) #�w�b�_�[�쐬 subroutine(CreateHedder) #------------------------------------------------- # Key1�I���� #------------------------------------------------- [GroupEnd_key1] #���v�s�쐬 subroutine(CreateSumRow) #���v�s�쐬 subroutine(CreateSumSumRow) #���y�[�W�}�� HPAGEBREAK($_row) #------------------------------------------------- # ���ו\������ #------------------------------------------------- [PrintNormal] formatspecialrow($_row,0,6,2) putline(,@rs1.brand_nm#,,,,,,,,,,,,@rs1.zen_stock#,,,@rs1.in_suryo#,,,@rs1.out_suryo#,,,@rs1.nyusyukkoryou#,,,,@rs1.tanka#,,,,@rs1.stanka#,,,,@rs1.asuryo#,) putline(,@rs1.hin_nm#,,,,,,,,,,,,@rs1.first_stock#,,,@rs1.medium_stock#,,,@rs1.second_stock#,,,@rs1.hokanryo#,,,,,,,,@rs1.htanka#,,,,@rs1.kingaku#) #���v_�ϐ����Z sum($nyusyukkoryou_sum,@rs1.nyusyukkoryou) #���v_�ϐ����Z sum($hokanryo_sum,@rs1.hokanryo) #���v_�ϐ����Z sum($asuryo_sum,@rs1.asuryo) #���v_�ϐ����Z sum($kingaku_sum,@rs1.kingaku) #����_�s���J�E���g sum($row_no,2) #���y�[�W���� subroutine(PageBreak)