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

eameam

给tbw中的字段赋值参见“工单成本分析”界面。

l
在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));

l
如何直接在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;

/

l
为客户端调试添加提示语句的例子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])

l
出现提示信息并且不中断程序的代码　Client_SYS.Add_Info(lu_name_, 'NEWWONO: The New Work Order Is 1 ',to_char(newrec_.wo_no)) ;

l
在客户端动态设置组件是否可编辑

On PM_DataItemQueryEnabled

If dfnPlanStarMonth >2

Return EDITSTATEFieldNotEnabled

l
客户端调用过程后自动刷新数据的举例

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 )