if v_noowner_detail_param_list.COUNT>0 then for k in v_noowner_detail_param_list.first..v_noowner_detail_param_list.last loop if v_noowner_detail_param_list.EXISTS(k) THEN v_owner_detail_param_list(v_owner_detail_param_list.COUNT + 1).acc_code:= v_noowner_detail_param_list(k).acc_code; v_owner_detail_param_list(v_owner_detail_param_list.COUNT + 1).fee:= v_noowner_detail_param_list(k).fee; v_owner_detail_param_list(v_owner_detail_param_list.COUNT + 1).time:= v_noowner_detail_param_list(k).time; v_owner_detail_param_list(v_owner_detail_param_list.COUNT + 1).cout:= v_noowner_detail_param_list(k).cout; v_owner_detail_param_list(v_owner_detail_param_list.COUNT + 1).unit:= v_noowner_detail_param_list(k).unit; end if; end loop; end if;
for i in v_owner_detail_param_list.first..v_owner_detail_param_list.last loop if v_owner_detail_param_list.EXISTS(i) THEN v_AccCode:=v_owner_detail_param_list(i).acc_code; v_iLen:=length(v_AccCode); while 7-v_iLen>0 loop v_AccCode:='''' ''''||v_AccCode; v_iLen:=length(v_AccCode); end loop;
v_strFee:=v_owner_detail_param_list(i).fee; v_iLen:=length(v_strFee); while 9-v_iLen>0 loop v_strFee:='''' ''''||v_strFee ; v_iLen:=length(v_strFee); end loop;
v_strCount:=v_owner_detail_param_list(i).cout; v_iLen:=length(v_strCount); while 7-v_iLen>0 loop v_strCount:='''' ''''||v_strCount ; v_iLen:=length(v_strCount); end loop;
v_strUnit:=v_owner_detail_param_list(i).unit; v_iLen:=length(v_strUnit); while 12-v_iLen>0 loop v_strUnit:='''' ''''||v_strUnit ; v_iLen:=length(v_strUnit); end loop; v_NewDetail:=v_NewDetail||v_AccCode||v_strFee ||v_owner_detail_param_list(i).time||v_strCount||v_strUnit; end if; end loop; v_owner_detail_param_list.delete;
v_NewDetail:=''''''''; end loop; close v_ser;
p_nStatus:=0; p_szErrorMsg:=''''Succeed to finish proc_no2ower.''''; return; exception when others then p_nStatus:=-1; p_szErrormsg:=''''encounter a exception,sqlcode:''''||sqlcode ||'''',sqlerrm:''''||sqlerrm||''''v_sql:''''||v_strSql; return; end proc_XXX;