Form:ITEM之Prompt的动态显示

用户要求销售一年的销售出货每月汇总数据，每月汇总数据的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;

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/41594/viewspace-50577/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/41594/viewspace-50577/