ORACLE 截断字符串

王朝oracle·作者佚名  2008-05-31
窄屏简体版  字體: |||超大  

create or replace procedure ModifyLadingItemPack

(

ASoditemguid varchar2, --合同电子仓单明细GUID

ALadingitemGUID varchar2, --提单子项GUID

ACDResID varchar2, --电子仓单号

APackageIDList varchar2, --仓单捆包具体GUID列表

Aladingnum float,

Aladingpieces float,

AReturnValue out integer --返回值:

)

is

ALadingItem_PackagesGUID varchar(32);

ATempIDList varchar2(4000);

AID varchar2(32);

APackageWeight float;

APackagePiece float;

ATotalPackWeight float;

begin

AReturnValue := 1;

ATempIDList := APackageIDList;

APackageWeight :=0;

APackagePiece :=0;

---------------------------------更新合同电子仓单明细---------------------------

while ( INSTR(ATempIDList,':' ) > 0 ) or ( LENGTH(ATempIDList ) > 0 ) loop

if INSTR(ATempIDList,':' ) > 0 then

select sys_guid() into ALadingItem_PackagesGUID from dual;

AID := SUBSTR(ATempIDList ,1,INSTR( ATempIDList,':') - 1 );

ATempIDList := SUBSTR(ATempIDList,INSTR( ATempIDList,':') + 1 , LENGTH(ATempIDList) - INSTR(ATempIDList,':'));

---------------------------------提单捆包明细----------------------------------

insert into HT_LadingItem_packages(sGUID, sLadingItemGUID, sCDResID, sPackageID)

values(ALadingItem_PackagesGUID, ALadingitemGUID, ACDResID,AID);

---------------------------------更新仓单捆包明细状态---------------------------

UPDATE ZY_Packages SET state = 5 WHERE SGUID = AID;

select fWeight into ATotalPackWeight from ZY_Packages where sGUID=AID;

APackageWeight:=APackageWeight+ATotalPackWeight;

APackagePiece:=APackagePiece+1;

else

AID := ATempIDList;

ATempIDList := '';

end if;

end loop;

update HT_SODItem set fLadingNum=fLadingNum+APackageWeight,fLadingPieces=fLadingPieces+APackagePiece

where sGUID=ASoditemguid;

COMMIT;

EXCEPTION

WHEN OTHERS THEN BEGIN

AReturnValue := 99;

ROLLBACK;

END;

end;

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航