资源描述：
《oracle 过程语法样例》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、--标注：红色部分为语法注意//定义过程名称及参数类型CREATEORREPLACEPROCEDURETL_GetNewSheetID(I_SheetTypeINVARCHAR2,I_SpecifiedPrefixINVARCHAR2,O_NewSheetIDOUTVARCHAR2)As//注意这个AS//规范说明---------------------------------------------------------------------TL_CheckGoodsID商品编码检查--断点：2169nnn--参数：BUID、商品统一码、商品业务码、商品条码、经营方式--返回：商
2、品统一码、商品业务码、商品条码【注意：只检查资料不产生编码】--算法:--建立：DDP2011-11-09--修改：DDP2011-11-21商品业务码已经指定时取系统码规则调整--修改:DDP2011-11-29VivioPlus自编条码使用7位编码--修 改:XSY2011-12-16区域新增商品统一码规则：检查上级业态总部-->零售总部-------------------------------------------------------------------//定义变量v_ErrINTEGER:=-20101;v_BreakPointINTEGER;v_MsgVARCHA
3、R2(255);BEGINv_BreakPoint:=2162150;//游标循环FORCur_G2IN(selectBUID,BUFlagfromTmp_BUIDorderbyProcessOrder)LOOP//条件判断1IFv_TmpBUID=v_HQBUIDTHENv_TmpGoodsID:=v_SysGoodsID;ELSEv_TmpGoodsID:=v_GoodsID;ENDIF;//赋值v_TmpBarcode:=v_Barcode;//条件判断2IFsubstr(v_Barcode,1,2)IN('22','23')andv_TmpBUID<>v_EditBUIDTHEN
4、//调用其他存储过程TL_MakeBarCode(v_TmpGoodsID,'21',v_TmpBarcode);ENDIF;v_BreakPoint:=2162155;v_Modiattr:='-';BEGINselect1intov_ExistsfromHQGoodswhereBUID=v_TmpBUIDandGoodsID=v_TmpGoodsID;//异常判断EXCEPTIONWHENNO_DATA_FOUNDTHENv_Exists:=0;END;//SQL赋值INTO使用例selectcount(*)intov_CountfromHQGoodswhereBUIDIN(sele
5、ctBUIDfromBUInfowhereBUID<>v_EditBUIDandBUFlag=v_EditBUFlag)//条件判断3IFv_OLDBarcodeISNOTNULLandv_TmpBUID=v_EditBUIDandsubstr(v_OLDBarcode,1,2)IN('22','23')THENv_BreakPoint:=2162165;ELSEv_TmpPackageID:=v_TmpPackageID+1;ENDIF;IFI_Checker='切换'THENv_Modiattr:='-';ENDIF;//条件判断4IFv_Modiattr<>'-'THENv_Bre
6、akPoint:=2162170;ENDIF;ENDLOOP;//条件判断5IFv_PrefixType=0THENO_NewSheetID:=v_PreFix
7、
8、v_YYYYMMDD
9、
10、v_SNumber;//字符串连接ELSIFv_PrefixType=1THEN//RAISE_APPLICATION_ERROR(-20001,'机构编码(店号)暂时不能使用');//中途异常抛出ELSIFv_PrefixType=2THENRAISE_APPLICATION_ERROR(-20002,'BUID暂时不能使用');ENDIF;//位置定向IFv_SysGoodsID<=0andv_Go
11、odsID<=0andv_Barcode='待编码'THENGOTORETURN_GetNewCode;特定语法ENDIF<>//游标循环2FORCur_HQUpdCostListIN(selectHQSheetID,BUID,VenderID,VenderCode,ExecuteFlagfromHQUpdateCostListwheresheetid=I_SheetID)LOOPUpdateH
