nbsp; end if;
end loop;
end if;
end if;
end loop;
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;
上一页 [1] [2] |
