[Main] #MAIN���̋L�ڂ͊�{�����R�s�[���A�K�v�ɉ����ďC���̂��ƁB dbuse(true) #3�ڂ���sql�̃p�����[�^��ݒ肷�� #initparam(printMode,reportId,s_id) initparam(printMode,reportId,dt_from,dt_to,uri_no,tokui_cd,syohin_nm,title,outputfile,s_id,option1) deforgpage(blank) defheadarea(hed) defbodyarea(mei) #SQL�Z�N�V�����̖��O��ݒ� subroutine(SelectRecords_Jisya) subroutine(SelectRecords) #�`�敔�̃Z�N�V�������ASQL�Ŏ擾�����l���i�[����z�A���s���郋�[�`������ݒ� loop(PrintNormal,@rs1,Key1,Key2) printreport($printMode,true) #------------------------------------------------- # SQL���s_���Y�v�� #------------------------------------------------- [SelectRecords_Footer] new($param) addparam($param,$uri_no) dbselect(SelectRecords_Footer,@rs2,$param) #------------------------------------------------- # SQL���s_�H���[�� #------------------------------------------------- [SelectRecords_Process] new($param) addparam($param,$uri_no) dbselect(SelectRecords_Process,@rs2,$param) #------------------------------------------------- # SQL���s_���� #------------------------------------------------- [SelectRecords_Jisya] new($param) dbselect(SelectRecords_Jisya,@rs0,$param) #------------------------------------------------- # SQL���s #------------------------------------------------- [SelectRecords] #����������param�Ɋi�[�BSQL����&(����)�œn�����Ƃ��ł���B 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) #�P�߂̈����Ŏw�肵��SQL�Z�N�V���������s���A2�ڂ̈���(@rs1)�Ɏ擾�����l���i�[�A3�ڂ̈����͏����p�����[�^) dbselect(SelectRecords,@rs1,$param) #------------------------------------------------- # �t�b�^�[�쐬���� #------------------------------------------------- [CreateFooter] putcell($_row,2,@rs2.spec_naiyo) putline(@rs2.spec_seq#,) formatspecialrow($_row,0,37,1) #------------------------------------------------- # Key1�ݒ胋�[�`�� #------------------------------------------------- [KeyInfo_key1] keyvalue(@rs1.den_no) keybreakproc(GroupBegin_key1,GroupEnd_key1) #------------------------------------------------- # Key1�J�n�� #------------------------------------------------- [GroupBegin_key1] deforgpage(blank) #Import���邩�ǂ���,FormatNormal���邩�ǂ��� pageopen(true,false) deforgpage(formats) resetorg() #------------------------------------------------- # Key1�I���� #------------------------------------------------- [GroupEnd_key1] pageclose(false) #------------------------------------------------- # Key2�ݒ胋�[�`�� #------------------------------------------------- [KeyInfo_Key2] keyvalue(@rs1.den_no) keybreakproc(GroupBegin_Key2,GroupEnd_Key2) #------------------------------------------------- # Key2�J�n�� #------------------------------------------------- [GroupBegin_Key2] #�w�b�_�쐬���� #putcell(�s,��,�l)�́A�w��̍s��v����Z���Ɏw��̒l��`�悷����B�l�ɂ�SQL�Ŏ擾�������̂��g����B formatspecialrow(1,0,1,1) putcell(2,1,���H�w�}��) formatspecialrow(2,0,2,1) putcell(3,1,NO:) putcell(3,2,@rs1.kanri_no) putcell(3,10,@rs1.syori_ymd) formatspecialrow(3,0,3,1) putcell(4,1,PO:) putcell(4,2,@rs1.tok_hacyu_no_h) formatspecialrow(4,0,4,1) putcell(5,1,MESSRS.) putcell(5,10,Shipping Mark) formatspecialrow(5,0,5,1) putcell(5,2,@rs1.tok_nm) putcell(6,2,@rs1.addr1) putcell(7,2,@rs1.addr2) putcell(8,2,@rs1.tel_no) putcell(9,2,@rs1.tok_tan) putcell(9,10,@rs1.tok_nm) #putcell(10,10,@rs1.?) putcell(11,2,@rs1.nonyu_nm) putcell(11,10,@rs1.addr2) putcell(12,2,@rs1.konpo_keijo) putcell(13,2,@rs1.biko6) formatspecialrow(7,0,7,8) putcell(11,1,CONSIGNEE:) putcell(12,1,PACKING:) putcell(13,1,SHIPMENT:) formatspecialrow(11,0,11,3) putcell(15,1,DESTINATION:) putcell(16,1,PAYMENT:) putcell(15,2,@rs1.biko4) putcell(16,2,@rs1.payment_term) formatspecialrow(15,0,15,2) #TODO ���ߍ��� #putcell(17,8,BANK ADDRESS:) #putcell(19,2,ACCOUNT NO:) #putcell(20,2,SWIFT CODE:) putcell(22,1,NO.) putcell(22,2,TYPE) putcell(22,3,KIND) putcell(22,4,THICKNESS) putcell(22,5,DESCRIPTION) putcell(22,8,Q'TY) putcell(22,10,UNIT PRICE) putcell(22,12,AMOUNT) formatspecialrow(22,0,22,1) putcell(24,3,"YAMAMOTO" CLOSED CELL SPONGE RUBBER SHEETS) putcell(24,10,@rs1.pay_kbn_nm) formatspecialrow(24,0,24,1) putcell(26,10,(per sheet)) #putcell(25,3,TYPE NO. 39-LL(BLACK) Size: 1.40M X 2.20M (+/-5%) ) #------------------------------------------------- # Key2�I���� #------------------------------------------------- [GroupEnd_Key2] #���v�s�쐬���� putcell($_row,5,@rs1.pay_kbn_nm) putcell($_row,8,$jucyu_su_sum) putcell($_row,9,@rs1.tani) putcell($_row,12,$kingaku_sum) formatspecialrow($_row,0,31,1) #formatspecialrow($_row,0,$format_total,1) putline(,,,,,,,$jucyu_su_sum#,,,$kingaku_sum#) #�t�b�^�쐬���� #putline() #formatspecialrow($_row,0,32,1) putline() putcell($_row,13,(In USD)) formatspecialrow($_row,0,33,1) putline() formatspecialrow($_row,0,34,2) putline() putcell($_row,1,���Y�v��) formatspecialrow($_row,0,36,1) putline() formatspecialrow($_row,0,37,1) #���Y�v�� subroutine(SelectRecords_Footer) loop(CreateFooter,@rs2) #�H���[�� putline() putcell($_row,8,�\��[��) formatspecialrow($_row,0,42,1) putline() subroutine(SelectRecords_Process) loop(CreateProcess,@rs2) #putcell($_row,2,�X�L) #formatspecialrow($_row,0,43,7) #putline() #putcell($_row,2,�\��) #putline() #putcell($_row,2,SCS) #putline() #putcell($_row,2,������) #putline() #putcell($_row,2,�^����) #putline() #putcell($_row,2,����) #putline() #putcell($_row,2,�[��) #------------------------------------------------- # ���ו\������ #------------------------------------------------- [PrintNormal] #formatspecialrow(�J�n�s,�Ώۍs��,�t�H�[�}�b�g�̊J�n�s,�t�H�[�}�b�g�̑Ώۍs��)�́A��`�t�@�C���Ŏw�肳�ꂽ�A�G�N�Z���̌r�����̎Q�ƃt�H�[�}�b�g����A�`�悷�钠�[�ɏ������R�s�[������B�`��t�@�C���̏�����ݒ肵�����s�ƍs�����ŏ��̂Q�����Ɏw�肵�A�R�s�[�����������̍s�ƍs�������̂Q�����Ɏw�肷��Bputcell�Ƃ͈Ⴂ�A�s�P�ʂŒl���ꊇ�`�悷��B�J���}���ŃZ���̈ʒu���w�肷�邱�Ƃ��ł���Bputline�̊J�n�s�͒�`�t�@�C���̖��ח̈�ݒ蕔�̊J�n�s������n�܂�Bputline�����s���邽�тɍs����͎����ōs����i1�s���j #formatspecialrow($_row,0,$format_meisai,1) putline(@rs1.row_no#,@rs1.dhin_nm#,@rs1.kind_s#,@rs1.size_h#,@rs1.hin_nm_s#,,,@rs1.jucyu_su#,@rs1.tani#,@rs1.tanka#,,@rs1.kingaku#) formatspecialrow(30,0,30,1) sum($jucyu_su_sum,@rs1.jucyu_su) sum($kingaku_sum,@rs1.kingaku) #sum($kingaku_sum_j,@rs1.kingaku_j) formatspecialrow($_row,0,30,1) #------------------------------------------------- # �H���[�� #------------------------------------------------- [CreateProcess] formatspecialrow($_row,0,43,1) putcell($_row,9,@rs2.koutei_ymd) putline(,@rs2.koutei_nm#,,,@rs2.seizou_tan_nm#,,,,)