test_con_change.lwm 2.99 KB
Newer Older
Spencer Chang's avatar
Spencer Chang committed
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55
<?xml version="1.0" encoding="UTF-8"?>
<bm:model xmlns:bm="http://www.leaf-framework.org/schema/bm">
    <bm:operations>
        <bm:operation name="update">
            <bm:update-sql><![CDATA[declare
v_calc_session_id number;
v_calc_successful varchar2(1000);
begin
  -- Call the procedure
  con_change_req_calc_itfc_pkg.create_calculate(p_change_req_id => ${@contract_id}, --合同id
                                                p_contract_id => ${@contract_id},--合同id
                                                p_price_list => 'LEVEL_PMT_CCR',--写死
                                                p_adj_start_times => ${@start_times},--输入
                                                p_adj_lease_times => ${@lease_times},--输入
                                                p_calculate_flag => 'Y',--写死
                                                p_calc_session_id => v_calc_session_id,
                                                p_calc_successful => v_calc_successful,
                                                p_user_id => 1);
  select v_calc_session_id,v_calc_successful into ${@calc_session_id},${@calc_successful} from dual;
end;]]></bm:update-sql>
            <bm:parameters>
                <bm:parameter name="contract_id"/>
                <bm:parameter name="start_times"/>
                <bm:parameter name="lease_times"/>
                <bm:parameter name="calc_session_id" output="true"/>
                <bm:parameter name="calc_successful" output="true"/>
            </bm:parameters>
        </bm:operation>
        <bm:operation name="insert">
            <bm:update-sql><![CDATA[declare
v_calc_session_id number;
v_calc_successful varchar2(1000);
begin
  -- Call the procedure
  con_change_req_calc_itfc_pkg.create_calculate(p_change_req_id => ${@contract_id}, --合同id
                                                p_contract_id => ${@contract_id},--合同id
                                                p_price_list => 'LEVEL_PMT_CCR',--写死
                                                p_adj_start_times => ${@start_times},--输入
                                                p_adj_lease_times => ${@lease_times},--输入
                                                p_calculate_flag => 'Y',--写死
                                                p_calc_session_id => v_calc_session_id,
                                                p_calc_successful => v_calc_successful,
                                                p_user_id => 1);
  select v_calc_session_id,v_calc_successful into ${calc_session_id},${@calc_successful} from dual;
end;]]></bm:update-sql>
            <bm:parameters>
                <bm:parameter name="contract_id"/>
                <bm:parameter name="start_times"/>
                <bm:parameter name="lease_times"/>
                <bm:parameter name="calc_session_id" output="true"/>
                <bm:parameter name="calc_successful" output="true"/>
            </bm:parameters>
        </bm:operation>
    </bm:operations>
</bm:model>