首页  ·  知识 ·  生产制造
Form:ITEM之Prompt的动态显示
jarli  http://space.itpub.net/41594/viewspace-510207    编辑:德仔   图片来源:网络
用户要求销售一年的销售出货每月汇总数据,每月汇总数据的Prompt要动态显示。 DECLARE ITEM_ID1
用户要求销售一年的销售出货每月汇总数据,每月汇总数据的Prompt要动态显示。

DECLARE
ITEM_ID1 ITEM;
ITEM_ID2 ITEM;
ITEM_ID3 ITEM;
ITEM_ID4 ITEM;
ITEM_ID5 ITEM;
ITEM_ID6 ITEM;
ITEM_ID7 ITEM;
ITEM_ID8 ITEM;
ITEM_ID9 ITEM;
ITEM_ID10 ITEM;
ITEM_ID11 ITEM;
ITEM_ID12 ITEM;
LABEL1 VARCHAR(200);
LABEL2 VARCHAR(200);
LABEL3 VARCHAR(200);
LABEL4 VARCHAR(200);
LABEL5 VARCHAR(200);
LABEL6 VARCHAR(200);
LABEL7 VARCHAR(200);
LABEL8 VARCHAR(200);
LABEL9 VARCHAR(200);
LABEL10 VARCHAR(200);
LABEL11 VARCHAR(200);
LABEL12 VARCHAR(200);

BEGIN

GO_BLOCK('CUX_MRP_HISTORY_ORDER_SUM_V');

ITEM_ID1 := FIND_ITEM('CUX_MRP_HISTORY_ORDER_SUM_V.MONTH1');
ITEM_ID2 := FIND_ITEM('CUX_MRP_HISTORY_ORDER_SUM_V.MONTH2');
ITEM_ID3 := FIND_ITEM('CUX_MRP_HISTORY_ORDER_SUM_V.MONTH3');
ITEM_ID4 := FIND_ITEM('CUX_MRP_HISTORY_ORDER_SUM_V.MONTH4');
ITEM_ID5 := FIND_ITEM('CUX_MRP_HISTORY_ORDER_SUM_V.MONTH5');
ITEM_ID6 := FIND_ITEM('CUX_MRP_HISTORY_ORDER_SUM_V.MONTH6');
ITEM_ID7 := FIND_ITEM('CUX_MRP_HISTORY_ORDER_SUM_V.MONTH7');
ITEM_ID8 := FIND_ITEM('CUX_MRP_HISTORY_ORDER_SUM_V.MONTH8');
ITEM_ID9 := FIND_ITEM('CUX_MRP_HISTORY_ORDER_SUM_V.MONTH9');
ITEM_ID10 := FIND_ITEM('CUX_MRP_HISTORY_ORDER_SUM_V.MONTH10');
ITEM_ID11 := FIND_ITEM('CUX_MRP_HISTORY_ORDER_SUM_V.MONTH11');
ITEM_ID12 := FIND_ITEM('CUX_MRP_HISTORY_ORDER_SUM_V.MONTH12');

--LABEL1:=TO_CHAR(SYSDATE,'YYYY')||'年'||TO_CHAR(SYSDATE,'MM')||'月';
LABEL1:=TO_CHAR(ADD_MONTHS(LAST_DAY(SYSDATE),-0),'YYYY')||'年'||TO_CHAR(ADD_MONTHS(LAST_DAY(SYSDATE),-0),'MM')||'月';
LABEL2:=TO_CHAR(ADD_MONTHS(LAST_DAY(SYSDATE),-1),'YYYY')||'年'||TO_CHAR(ADD_MONTHS(LAST_DAY(SYSDATE),-1),'MM')||'月';
LABEL3:=TO_CHAR(ADD_MONTHS(LAST_DAY(SYSDATE),-2),'YYYY')||'年'||TO_CHAR(ADD_MONTHS(LAST_DAY(SYSDATE),-2),'MM')||'月';
LABEL4:=TO_CHAR(ADD_MONTHS(LAST_DAY(SYSDATE),-3),'YYYY')||'年'||TO_CHAR(ADD_MONTHS(LAST_DAY(SYSDATE),-3),'MM')||'月';
LABEL5:=TO_CHAR(ADD_MONTHS(LAST_DAY(SYSDATE),-4),'YYYY')||'年'||TO_CHAR(ADD_MONTHS(LAST_DAY(SYSDATE),-4),'MM')||'月';
LABEL6:=TO_CHAR(ADD_MONTHS(LAST_DAY(SYSDATE),-5),'YYYY')||'年'||TO_CHAR(ADD_MONTHS(LAST_DAY(SYSDATE),-5),'MM')||'月';
LABEL7:=TO_CHAR(ADD_MONTHS(LAST_DAY(SYSDATE),-6),'YYYY')||'年'||TO_CHAR(ADD_MONTHS(LAST_DAY(SYSDATE),-6),'MM')||'月';
LABEL8:=TO_CHAR(ADD_MONTHS(LAST_DAY(SYSDATE),-7),'YYYY')||'年'||TO_CHAR(ADD_MONTHS(LAST_DAY(SYSDATE),-7),'MM')||'月';
LABEL9:=TO_CHAR(ADD_MONTHS(LAST_DAY(SYSDATE),-8),'YYYY')||'年'||TO_CHAR(ADD_MONTHS(LAST_DAY(SYSDATE),-8),'MM')||'月';
LABEL10:=TO_CHAR(ADD_MONTHS(LAST_DAY(SYSDATE),-9),'YYYY')||'年'||TO_CHAR(ADD_MONTHS(LAST_DAY(SYSDATE),-9),'MM')||'月';
LABEL11:=TO_CHAR(ADD_MONTHS(LAST_DAY(SYSDATE),-10),'YYYY')||'年'||TO_CHAR(ADD_MONTHS(LAST_DAY(SYSDATE),-10),'MM')||'月';
LABEL12:=TO_CHAR(ADD_MONTHS(LAST_DAY(SYSDATE),-11),'YYYY')||'年'||TO_CHAR(ADD_MONTHS(LAST_DAY(SYSDATE),-11),'MM')||'月';

SET_ITEM_PROPERTY(ITEM_ID1,PROMPT_TEXT,LABEL1 );
SET_ITEM_PROPERTY(ITEM_ID2,PROMPT_TEXT,LABEL2 );
SET_ITEM_PROPERTY(ITEM_ID3,PROMPT_TEXT,LABEL3 );
SET_ITEM_PROPERTY(ITEM_ID4,PROMPT_TEXT,LABEL4 );
SET_ITEM_PROPERTY(ITEM_ID5,PROMPT_TEXT,LABEL5 );
SET_ITEM_PROPERTY(ITEM_ID6,PROMPT_TEXT,LABEL6 );
SET_ITEM_PROPERTY(ITEM_ID7,PROMPT_TEXT,LABEL7 );
SET_ITEM_PROPERTY(ITEM_ID8,PROMPT_TEXT,LABEL8 );
SET_ITEM_PROPERTY(ITEM_ID9,PROMPT_TEXT,LABEL9 );
SET_ITEM_PROPERTY(ITEM_ID10,PROMPT_TEXT,LABEL10 );
SET_ITEM_PROPERTY(ITEM_ID11,PROMPT_TEXT,LABEL11 );
SET_ITEM_PROPERTY(ITEM_ID12,PROMPT_TEXT,LABEL12 );

END;

本文作者:jarli 来源:网络http://space.itpub.net/41594/viewspace-510207
CIO之家 www.ciozj.com 微信公众号:imciow
   
免责声明:本站转载此文章旨在分享信息,不代表对其内容的完全认同。文章来源已尽可能注明,若涉及版权问题,请及时与我们联系,我们将积极配合处理。同时,我们无法对文章内容的真实性、准确性及完整性进行完全保证,对于因文章内容而产生的任何后果,本账号不承担法律责任。转载仅出于传播目的,读者应自行对内容进行核实与判断。请谨慎参考文章信息,一切责任由读者自行承担。
延伸阅读