100分，求MS SQL 翻译成ORACLE ，十分感谢

Question

create PROCEDURE [dbo].[pro_Inbound] 
@Barcode varchar(100),
@By varchar(50),
@Message  int output  --成功返回1，错误返回0
AS
DECLARE @_SkuCode varchar(100)
BEGIN
  SET NOCOUNT ON;
   set @Message=1
   --查询条码的物料编号
   select top 1 @_SkuCode=IDManageSkuCode from dbo.Task_IDManage where IDManageCode=@Barcode
   --插入到库存表
   begin transaction
      insert into dbo.Task_LotLocSku(
       [LotLocSkuWareHouse]
      ,[LotLocSkuLoc]
      ,[LotLocSkuSku]
      ,[LotLocSkuLot]
      ,[LotLocSkuIdCode]
      ,[LotLocSkuStorer]
      ,[LotLocSkuCQty]
      ,[LotLocSkuUom1]
      ,[LotLocSkuQty1]
      ,[LotLocSkuUom2]
      ,[LotLocSkuQty2]
      ,[LotLocSkuCheckQty1]
      ,[LotLocSkuCheckQty2]         
      ,[LotLocSkuUser]
      ,[LotLocSkuDate]      
      ,[LotLocSkuStatus]      
      ,[LotLocSkuFreezeQty1]
      ,[LotLocSkuFreezeQty2] )
       values('WH01','00',@_SkuCode,'',@Barcode,'HG',1,40,1,999999999,1,0,0,'Sys',getdate(),0,0,0) 
        if @@error<>0
             begin
               rollback transaction    
               set @Message=0           
               return
             end       
      --插入到操作记录表
      insert into dbo.Task_LotLocSkuOper(
       [OperBillType]
      ,[OperBillStatus]
      ,[OperBillTypeCode]      
      ,[OperStorer]
      ,[OperSku]      
      ,[OperBillBarCode]
      ,[OperSourceStock]
      ,[OperSourceLoc]
      ,[OperStock]
      ,[OperLoc]
      ,[OperUomDefault]
      ,[OperCQty]
      ,[OperUom1]
      ,[OperQty1]
      ,[OperUom2]
      ,[OperQty2]      
      ,[OperStatus]
      ,[OperStatus1]
      ,[OperType]
      ,[OperType1]
      ,[OperBy]
      ,[OperDate]      
      ,[OperationId])
      values(1,0,'01','HG',@_SkuCode,@Barcode,'WH01','00','WH01','00',0,1,40,1,999999999,1,0,0,0,0,@By,getdate(),1)
      if @@error<>0
             begin
               rollback transaction    
               set @Message=0           
               return
             end 
      commit transaction          
END

Answer 1

create or replace PROCEDURE pro_Inbound
(Barcode varchar2(100),By varchar2(50),Message out number) --成功返回1，错误返回0
AS
DECLARE SkuCode varchar2(100);
BEGIN 
  --查询条码的物料编号
  select IDManageSkuCode into skucode from dbo.Task_IDManage where IDManageCode=Barcode and rownum<=1;
  --插入到库存表
  insert into dbo.Task_LotLocSku(
  LotLocSkuWareHouse
  ,LotLocSkuLoc
  ,LotLocSkuSku
  ,LotLocSkuLot
  ,LotLocSkuIdCode
  ,LotLocSkuStorer
  ,LotLocSkuCQty
  ,LotLocSkuUom1
  ,LotLocSkuQty1
  ,LotLocSkuUom2
  ,LotLocSkuQty2
  ,LotLocSkuCheckQty1
  ,LotLocSkuCheckQty2   
  ,LotLocSkuUser
  ,LotLocSkuDate   
  ,LotLocSkuStatus   
  ,LotLocSkuFreezeQty1
  ,LotLocSkuFreezeQty2 )
  values('WH01','00',SkuCode,'',Barcode,'HG',1,40,1,999999999,1,0,0,'Sys',sysdate,0,0,0);
  --插入到操作记录表
  insert into dbo.Task_LotLocSkuOper(
  OperBillType
  ,OperBillStatus
  ,OperBillTypeCode   
  ,OperStorer
  ,OperSku   
  ,OperBillBarCode
  ,OperSourceStock
  ,OperSourceLoc
  ,OperStock
  ,OperLoc
  ,OperUomDefault
  ,OperCQty
  ,OperUom1
  ,OperQty1
  ,OperUom2
  ,OperQty2   
  ,OperStatus
  ,OperStatus1
  ,OperType
  ,OperType1
  ,OperBy
  ,OperDate   
  ,OperationId)
  values(1,0,'01','HG',SkuCode,Barcode,'WH01','00','WH01','00',0,1,40,1,999999999,1,0,0,0,0,By,sysdate,1);
  commit;
  Message:=1;
exception when others then
  rollback;
  Message:=0;
END;

Answer 2

By varchar2(50) by是关键字，你换个 v_by

Answer 3

create PROCEDURE pro_Inbound(v_Barcode varchar2,
                             v_By varchar2,
                             v_Message out number--成功返回1，错误返回0) 
AS
DECLARE v_SkuCode varchar2(100);
BEGIN 
v_Message:=1
  --查询条码的物料编号select IDManageSkuCode into v_SkuCode  from Task_IDManage where IDManageCode=v_Barcode and rownum=1;
  --插入到库存表
begin
savepoint sp1;
  insert into Task_LotLocSku(
  LotLocSkuWareHouse
  ,LotLocSkuLoc
  ,LotLocSkuSku
  ,LotLocSkuLot
  ,LotLocSkuIdCode
  ,LotLocSkuStorer
  ,LotLocSkuCQty
  ,LotLocSkuUom1
  ,LotLocSkuQty1
  ,LotLocSkuUom2
  ,LotLocSkuQty2
  ,LotLocSkuCheckQty1
  ,LotLocSkuCheckQty2
  ,LotLocSkuUser
  ,LotLocSkuDate  
  ,LotLocSkuStatus  
  ,LotLocSkuFreezeQty1
  ,LotLocSkuFreezeQty2)
  values('WH01','00',v_SkuCode,'',v_Barcode,'HG',1,40,1,999999999,1,0,0,'Sys',sysdate,0,0,0)  
exception 
when others then
rollback to sp1;
v_Message:=0   ;
end ;  
  --插入到操作记录表
begin
  insert into Task_LotLocSkuOper(
  OperBillType
  ,OperBillStatus
  ,OperBillTypeCode
  ,OperStorer
  ,OperSku  
  ,OperBillBarCode
  ,OperSourceStock
  ,OperSourceLoc
  ,OperStock
  ,OperLoc
  ,OperUomDefault
  ,OperCQty
  ,OperUom1
  ,OperQty1
  ,OperUom2
  ,OperQty2
  ,OperStatus
  ,OperStatus1
  ,OperType
  ,OperType1
  ,OperBy
  ,OperDate   
  ,OperationId)
  values(1,0,'01','HG',v_SkuCode,v_Barcode,'WH01','00','WH01','00',0,1,40,1,999999999,1,0,0,0,0,v_By,sysdate,1)
exception 
when others then
rollback to sp1;
v_Message:=0   ;
end ;  
END