IFS CS经验总结7---lenon系列

eameam

1、给tbw中的字段赋值参见“工单成本分析”界面。
2、在ORACLE数据库中添加主键和删除主键的代码
alter table STOP_MCH_BOOKI_TAB drop primary key ;
ALTER TABLE STOP_MCH_BOOKI_TAB
   ADD ( CONSTRAINT STOP_MCH_BOOKI_pk PRIMARY KEY (mch_code, stop_mch_time));
3、如何直接在pl/sql中声明变量以及运行存储过程
_declare
CURSOR C_CUR IS _select* FROM ryan_test_tab;
dd NUMBER(7);
BEGIN
DBMS_OUTPUT.PUT_LINE('Right Cursor!');
FOR C1 IN C_CUR LOOP
DBMS_OUTPUT.PUT_LINE('ID='||TO_CHAR(C1.id)||' --> CONTRACT='||C1.contract);
dd:=C1.ID;
_updateryan_test_tab SET contract='AA'||TO_CHAR(dd) WHERE ID=dd;
END LOOP;
COMMIT;
END;
/
4、为客户端调试添加提示语句的例子trace_sys.message('--ryan--'||to_char(begin_time_,'yyyy/mm/dd')||to_char(stop_time_,'yyyy/mm/dd')||product_line_);
l  客户端调出出错提示框
Call Console.Add(" Ryan ==> the number nTemp is:" || tempArray[1])
5、出现提示信息并且不中断程序的代码　Client_SYS.Add_Info(lu_name_, 'NEWWONO: The New Work Order Is 1 ',to_char(newrec_.wo_no)) ;
6、在客户端动态设置组件是否可编辑
On PM_DataItemQueryEnabled
If dfnPlanStarMonth >2
Return EDITSTATEFieldNotEnabled
7、客户端调用过程后自动刷新数据的举例
Call DbPLSQLTransaction(c_hSql, ' &AO.ALL_INVEST_PLAN_LINE_API.New_All_Invest_Plan_Line(:i_hWndFrame.frmAllInvestPlan.dfsContractNo,:i_hWndFrame.frmAllInvestPlan.dfsContract, :i_hWndFrame.frmAllInvestPlan.sPlanId) ' )
Call DataSourceUserWhere( METHOD__execute, SalHStringToNumber("contract_no ='"||i_hWndFrame.frmAllInvestPlan.dfsContractNo||"' and contract='"||i_hWndFrame.frmAllInvestPlan.dfsContract||"' and plan_id="||sPlanId))
Call DataSourcePopulate( METHOD__execute, 0 )

友情提示：转载本人原创作品，烦请保留原始链接http://blog.vsharing.com/lenon/
----------------------------------------------------
查询本人更多原创，搜索“在ERP/EAM中前行&孙刚”
----------------------------------------------------
在ERP/EAM中前行 致力于电力行业信息化事业
MSN:lenon_sun@hotmail.com
Mail:boysunsight@163.com