/***************************************************************************
 功能：价格管理--调价
 作者：XX
 日期：2006-06-26
***************************************************************************/
CREATE PROCEDURE  WG_TJ
@YHDLM VARCHAR(50), --用户登陆名
@IP VARCHAR(20),  --IP地址
@TJYJ NVARCHAR(50),  --调价依据
@SFSQ VARCHAR(1),  --是否申请标记
@XJHJ DECIMAL(12,2),  --新计划价
@QCDM VARCHAR(18),  --器材代码
@PC VARCHAR(8),  --批次
@RE VARCHAR(10) OUTPUT --返回操作结果

AS

DECLARE @YHXM VARCHAR(10)
SELECT @YHXM=XM FROM WG_YHML WHERE YHDLM=@YHDLM AND ZTFW='N'

DECLARE @TJQJHJ DECIMAL(12,2)
SELECT @TJQJHJ=JHDJ FROM WG_BZDM WHERE QCDM=@QCDM

IF(@SFSQ='Y')  --以前是申请过的
BEGIN
 BEGIN TRAN --事务开始

DECLARE @KCSL  DECIMAL(12,3)
 DECLARE @DWDM VARCHAR(6)
 DECLARE @QCDM_TEMP VARCHAR(18)
 DECLARE @BJ VARCHAR(1)

DECLARE @ZXKCSL DECIMAL(12,3)
 SELECT @ZXKCSL=KCSL FROM CXX_KC WHERE QCDM=@QCDM

SELECT @QCDM_TEMP=QCDM FROM WG_KCJC WHERE QCDM=@QCDM AND PC=@PC
 IF(@@ROWCOUNT>0) BEGIN --检测库存价差表中是否已经存在此批次此物资
  SET @BJ='1'  --存在此物资,则从WG_TJJL 中查询出原计划价
  SELECT @TJQJHJ=YJHDJ FROM WG_TJJL WHERE SUBSTRING(SQPH,1,8)=@PC AND QCDM=@QCDM
  --库存价差中存在此物资并且此次价格与原计划价不相同则先删除再增加，以防止此段时间库存发生变化
  IF(@XJHJ<>@TJQJHJ AND @XJHJ<>0) BEGIN
   DELETE FROM WG_KCJC WHERE PC=@PC AND QCDM=@QCDM
  END
 END
 ELSE
  SET @BJ='0'  --不存在此物资

DECLARE OUTER_SURSOR_TJ CURSOR FOR --定义游标
 --从库存明细中查询
 SELECT KCSL,LSDWDM   
 FROM WG_KCMX
 WHERE QCDM=@QCDM

OPEN OUTER_SURSOR_TJ   --打开游标

FETCH NEXT FROM OUTER_SURSOR_TJ  --读取游标
 INTO @KCSL,@DWDM

WHILE @@FETCH_STATUS=0   --游标中数据处理
 BEGIN
  
  IF(@BJ='0')    --库存价差中不存在此批次此物资
  BEGIN --2-0  BEGIN
   IF(@XJHJ<>@TJQJHJ AND @XJHJ<>0)  --库存价差中不存在此批次此物资、执行计划价和原计划价不相同时则增加库存价差
   BEGIN -- 1 BEGIN
    --添加WG_KCJC
    INSERT INTO WG_KCJC
    (
     QCDM,
     KCSL,
     TJQJHJ,
     TJHJHJ,
     LSDWDM,
     KCJC,
     TJR,
     TJRQ,
     TJYJ,
     PC
    )
    VALUES
    (
     @QCDM,
     @KCSL,
     @TJQJHJ,
     @XJHJ,
     @DWDM,
     @KCSL*(@XJHJ-@TJQJHJ),
     @YHDLM,
     GETDATE(),
     @TJYJ,
     @PC
    )
    
    INSERT INTO WG_YHCZJL
     (
      YHDLM,
      CZBM,
      CZLX,
      JLGJZ,
      CZNR,
      CZSJ,
      IPDZ
     )
    VALUES
     (
      @YHDLM,
      'WG_KCJC',
      '新增记录',
      @QCDM,
      '新增库存价差记录:器材代码：'+@QCDM+ '，批次：' + @PC +'；操作人:'+@YHXM,
      GETDATE(),
      @IP--@IP
     )
   END --  1  END
  END -- 2-0 BEGIN
  ELSE 
  BEGIN --3-0 BEGIN  --库存中已经存在此批次的此物资
   IF(@XJHJ<>@TJQJHJ AND @XJHJ<>0)  --库存价差中不存在此批次此物资、执行计划价和原计划价不相同时则增加库存价差
   BEGIN -- 4 BEGIN
    --添加WG_KCJC
    INSERT INTO WG_KCJC
    (
     QCDM,
     KCSL,
     TJQJHJ,
     TJHJHJ,
     LSDWDM,
     KCJC,
     TJR,
     TJRQ,
     TJYJ,
     PC
    )
    VALUES
    (
     @QCDM,
     @KCSL,
     @TJQJHJ,
     @XJHJ,
     @DWDM,
     @KCSL*(@XJHJ-@TJQJHJ),
     @YHDLM,
     GETDATE(),
     @TJYJ,
     @PC
    )

略……
   END --  4  END
  
  END-- 3-0 END
  --PRINT(@KCSL)
  --PRINT(@DWDM)
  --读取游标下一条记录
  FETCH NEXT FROM OUTER_SURSOR_TJ INTO @KCSL,@DWDM
 END
 --关闭游标
 CLOSE OUTER_SURSOR_TJ
 DEALLOCATE OUTER_SURSOR_TJ
 --修改WG_TJJL ，若新价格与原价格不相同则修改WG_TJJL的多个字段
 IF(@XJHJ<>@TJQJHJ AND @XJHJ<>0) BEGIN
  UPDATE WG_TJJL SET TJYJ=@TJYJ,ZXJHDJ=@XJHJ, ZXKCSL=@ZXKCSL,ZXRQ=GETDATE(),TJR=@YHDLM,ZXBZ='Y' ,SHBZ='Z'
  WHERE QCDM=@QCDM AND SUBSTRING(SQPH,1,8)=@PC
 END
 ELSE BEGIN  ---修改WG_TJJL ，若新价格与原价格相同则不修改WG_TJJL中的执行计划单价
  UPDATE WG_TJJL SET TJYJ=@TJYJ,ZXJHDJ=@TJQJHJ, ZXKCSL=@ZXKCSL,ZXRQ=GETDATE(),TJR=@YHDLM,ZXBZ='Y' ,SHBZ='Z'
  WHERE QCDM=@QCDM AND SUBSTRING(SQPH,1,8)=@PC
 END
 IF(@@ROWCOUNT>0 AND @@ERROR<=0)
 BEGIN
  --  以下定义更新申请表中用到的变量
  DECLARE @ZXKCSL_TJSQ DECIMAL(12,3)
  DECLARE @SQDWDM_TJSQ VARCHAR(5)
  DECLARE @QCDM_TJSQ VARCHAR(18)
  DECLARE @SHPC_TJSQ VARCHAR(18)
  DECLARE @DWMC_TJSQ VARCHAR(50)
  DECLARE @SQR_TJSQ VARCHAR(50)
  --若新计划价与原计划价不相同则更新WG_BZDM中的计划价
  IF(@TJQJHJ<>@XJHJ AND @XJHJ<>0)
  BEGIN
   --修改WG_BZDM中计划价
   UPDATE WG_BZDM SET JHDJ=@XJHJ,TJRQ=GETDATE(),GXSJ=GETDATE()  WHERE QCDM=@QCDM
   IF(@@ROWCOUNT>0)
   BEGIN
    略……
    IF(@@ROWCOUNT>0)
    BEGIN
     SET @RE='成功'
     --最后修改  WG_TJSQ  中的信息
     --（由于没有申请过的可能要用零星再次调价，并且想放在此批次中，顾找不到他的申请项，放在最后修改不会出错）
     
     --为修改调价申请打开一个游标，怕库存中不存在此单位的物资（此时库存应为0），不用游标不能实现
     --***********************************************  游标区  ****************************************-------
     DECLARE  OUTER_SURSOR_TJSQ CURSOR FOR 
     SELECT DWDM,QCDM,SHPC,SQR FROM CXX_TJSQ_Simple WHERE QCDM=@QCDM AND SHPC=@PC

OPEN OUTER_SURSOR_TJSQ
     
     FETCH NEXT FROM OUTER_SURSOR_TJSQ
     INTO @SQDWDM_TJSQ,@QCDM_TJSQ,@SHPC_TJSQ,@SQR_TJSQ
     
     WHILE @@FETCH_STATUS=0  BEGIN
      SET @SQR_TJSQ=LTRIM(RTRIM(@SQR_TJSQ))
      EXEC WG_KC_Select_BY_YHDLMandQCDM @YHDLM=@SQR_TJSQ,@QCDM=@QCDM,@KCSL=@ZXKCSL_TJSQ OUTPUT
      
      IF(@XJHJ<>0) BEGIN
       UPDATE WG_TJSQ SET ZXJHDJ=@XJHJ,ZXKCSL=@ZXKCSL_TJSQ,ZXR=@YHDLM,ZXRQ=GETDATE(),SHBZ='Z',ZJXGSJ=GETDATE()
       WHERE QCDM=@QCDM AND SHPC=@PC AND LTRIM(RTRIM(SQR))=@SQR_TJSQ
      END
      ELSE BEGIN
       UPDATE WG_TJSQ SET ZXJHDJ=@TJQJHJ,ZXKCSL=@ZXKCSL_TJSQ,ZXR=@YHDLM,ZXRQ=GETDATE(),SHBZ='Z',ZJXGSJ=GETDATE()
       WHERE QCDM=@QCDM AND SHPC=@PC AND LTRIM(RTRIM(SQR))=@SQR_TJSQ
      END
      FETCH NEXT FROM OUTER_SURSOR_TJSQ INTO @SQDWDM_TJSQ,@QCDM_TJSQ,@SHPC_TJSQ,@SQR_TJSQ
     END
     
     CLOSE OUTER_SURSOR_TJSQ
     DEALLOCATE OUTER_SURSOR_TJSQ
     --***********************************************  游标区  ****************************************-------
    END
    ELSE
     SET @RE='失败'
   END
  END
  ELSE BEGIN  --调价的价格不改变的话只修改调价申请中的信息
    SET @RE='成功'
   --为修改调价申请打开一个游标，怕库存中不存在此单位的物资（此时库存应为0），不用游标不能实现
   --***********************************************  游标区  ****************************************-------
   DECLARE  OUTER_SURSOR_TJSQ_ CURSOR FOR 
   SELECT DWDM,QCDM,SHPC,SQR FROM CXX_TJSQ_Simple WHERE QCDM=@QCDM AND SHPC=@PC

OPEN OUTER_SURSOR_TJSQ_
   
   FETCH NEXT FROM OUTER_SURSOR_TJSQ_
   INTO @SQDWDM_TJSQ,@QCDM_TJSQ,@SHPC_TJSQ,@SQR_TJSQ
   
   WHILE @@FETCH_STATUS=0  BEGIN
    SET @SQR_TJSQ=LTRIM(RTRIM(@SQR_TJSQ))
    --SELECT @ZXKCSL_TJSQ=KCSL FROM WG_KCMX WHERE QCDM=@QCDM AND LSDWDM=@SQDWDM_TJSQ
    EXEC WG_KC_Select_BY_YHDLMandQCDM @YHDLM=@SQR_TJSQ,@QCDM=@QCDM,@KCSL=@ZXKCSL_TJSQ OUTPUT
    IF(@XJHJ<>0) BEGIN
     UPDATE WG_TJSQ SET ZXJHDJ=@XJHJ,ZXKCSL=@ZXKCSL_TJSQ,ZXR=@YHDLM,ZXRQ=GETDATE(),SHBZ='Z',ZJXGSJ=GETDATE()
     WHERE QCDM=@QCDM AND SHPC=@PC AND LTRIM(RTRIM(SQR))=@SQR_TJSQ
    END
    ELSE BEGIN
     UPDATE WG_TJSQ SET ZXJHDJ=@TJQJHJ,ZXKCSL=@ZXKCSL_TJSQ,ZXR=@YHDLM,ZXRQ=GETDATE(),SHBZ='Z',ZJXGSJ=GETDATE()
     WHERE QCDM=@QCDM AND SHPC=@PC AND LTRIM(RTRIM(SQR))=@SQR_TJSQ
    END
    FETCH NEXT FROM OUTER_SURSOR_TJSQ_ INTO @SQDWDM_TJSQ,@QCDM_TJSQ,@SHPC_TJSQ,@SQR_TJSQ
   END
   
   CLOSE OUTER_SURSOR_TJSQ_
   DEALLOCATE OUTER_SURSOR_TJSQ_
   --***********************************************  游标区  ****************************************-------
  END
 END

COMMIT
PRINT(@RE)
RETURN
END

ELSE  --没有申请的
BEGIN
 BEGIN TRANSACTION

DECLARE @MC VARCHAR(40)
 DECLARE @GG NVARCHAR(60)
 DECLARE @JLDW NVARCHAR(4) 
 DECLARE @YJHDJ DECIMAL(12,2) --原计划单价（调价记录中存在此批次此物资，从调价记录中读取；否则从标准代码中读取）
 DECLARE @KCSL1 DECIMAL(12,3) --总库存数量
 DECLARE @YHDW VARCHAR(30) --用户单位
 DECLARE @YBJ VARCHAR(1)  --原来是否存在此记录的标记（存在：Y；不存在：N）

SELECT @KCSL1=KCSL FROM CXX_KC WHERE QCDM=@QCDM --读取总库存
 SELECT @MC=MC,@GG=GG,@JLDW=JLDW,@YJHDJ=JHDJ FROM WG_BZDM WHERE QCDM=@QCDM
 SELECT @YHDW=DWMC FROM WG_DWML,WG_YHML WHERE WG_DWML.DWDM=WG_YHML.DWDM AND ZTFW='N' AND YHDLM=@YHDLM

DECLARE @SQPH_Temp VARCHAR(15)
 SELECT @SQPH_Temp=SQPH FROM WG_TJJL WHERE SUBSTRING(SQPH,1,8)=@PC AND QCDM=@QCDM
 IF(@@ROWCOUNT>0) BEGIN --调价记录中存在此批次此物资
  SET @YBJ='Y'  --调价记录中存在此批次此记录，（存在：Y）
  UPDATE WG_TJJL SET ZXJHDJ=@XJHJ,ZXRQ=GETDATE(),TJR=@YHDLM,TJYJ=@TJYJ WHERE QCDM=@QCDM AND SUBSTRING(SQPH,1,8)=@PC
  IF @@ROWCOUNT>0  BEGIN --若原来就存在记录，则原计划价不从标准代码中读取而从调价记录中读取
   SELECT @YJHDJ=YJHDJ FROM WG_TJJL WHERE SUBSTRING(SQPH,1,8)=@PC AND QCDM=@QCDM
   --DELETE FROM WG_KCJC WHERE QCDM=@QCDM AND PC=@PC
   SET @RE='成功'
   --PRINT(@PC)
  END
  ELSE BEGIN
    SET @RE='失败'
  END
 END
 ELSE BEGIN  --若没有找到这条记录，则新增
 -- 1    BEGIN
  SET @YBJ='N'  --调价记录中不存在此批次此记录，（不存在：N）
  DECLARE @MAX_LSH INT
  DECLARE @LSH VARCHAR(4)
  SET @MAX_LSH=CAST((SELECT MAX(SUBSTRING(SQPH,10,4)) FROM WG_TJJL WHERE SUBSTRING(SQPH,1,9)=@PC+'-') AS INT)
  
  IF(@MAX_LSH=NULL)
   SET @MAX_LSH=0
  SET @MAX_LSH=@MAX_LSH+1
  IF(@MAX_LSH<10)
   SET @LSH='000' + CAST(@MAX_LSH AS VARCHAR(1))
  ELSE IF(@MAX_LSH<100)
   SET @LSH='00' + CAST(@MAX_LSH AS VARCHAR(2))
  ELSE IF(@MAX_LSH<1000)
   SET @LSH='0' + CAST(@MAX_LSH AS VARCHAR(3))
  ELSE IF(@MAX_LSH<10000)
   SET @LSH=CAST(@MAX_LSH AS VARCHAR(4))
  --增加WG_TJJL记录
  INSERT INTO WG_TJJL
   (
    SQPH,
    QCDM,
    MC,
    GG,
    JLDW,
    YJHDJ,
    BPJHDJ,
    BPKCSL,
    SHR,
    PZSJ, --批准时间
    ZXKCSL,--执行库存数量
    ZXRQ, --执行日期
    ZXJHDJ,--执行计划价
    GLJPFJHJ, --管理局批复计划价
    GLJPFR,--管理局批复人
    GLJPFSJ, --管理局批复时间
    TJR, --调价人
    TJYJ, --调价依据
    ZXBZ, --执行标志
    SQBZ, --申请标志
    SHBZ
   )
   VALUES
   (
    @PC+'-'+@LSH,
    @QCDM,
    @MC,
    @GG,
    @JLDW,
    @YJHDJ,
    @XJHJ,
    @KCSL1,
    @YHDLM,
    GETDATE(), --批准时间
    @KCSL1, --执行库存数量 --总库存
    GETDATE(), --执行日期
    @XJHJ,  --执行计划单价
    @XJHJ,  --管理局批复计划价
    @YHDLM, --管理局批复人(用户登陆名)
    GETDATE(), --管理局批复时间
    @YHDLM, --执行人（用户登陆名）
    @TJYJ,
    'Y',
    'N',
    'Z'
   )
  --增加操作记录
  略……
 -- 1   END
 END --增加调价记录

DECLARE @XKCSL DECIMAL(12,3)
 DECLARE @LSDWDM VARCHAR(6)

DECLARE @QCDM_TEMP1 VARCHAR(18)
 --SELECT @QCDM_TEMP1=QCDM FROM WG_KCJC WHERE QCDM=@QCDM AND PC=@PC
 IF(@YBJ='Y') BEGIN  --若调价记录中存在此批次此物资，则先删除库存价差中的记录，因为此批次此物资再次调价的话，库存会发生变化
  DELETE FROM WG_KCJC WHERE PC=@PC AND QCDM=@QCDM
 END
 
 DECLARE OUTER_CURSOR2 CURSOR FOR --定义游标

SELECT KCSL,LSDWDM  --查询
 FROM WG_KCMX
 WHERE QCDM=@QCDM

OPEN OUTER_CURSOR2   --打开游标

FETCH NEXT FROM OUTER_CURSOR2  --读取游标
 INTO @XKCSL,@LSDWDM

WHILE @@FETCH_STATUS=0   --游标中数据处理
 BEGIN
  --添加WG_KCJC
  INSERT INTO WG_KCJC
  (
   QCDM,
   KCSL,
   TJQJHJ,
   TJHJHJ,
   LSDWDM,
   KCJC,
   TJR,
   TJRQ,
   TJYJ,
   PC
  )
  VALUES
  (
   @QCDM,
   @XKCSL,
   @YJHDJ,
   @XJHJ,
   @LSDWDM,
   @XKCSL*(@XJHJ-@YJHDJ),
   @YHDLM,
   GETDATE(),
   @TJYJ,
   @PC
  )
  --增加操作记录
  略……
  --读取游标下一条记录
  FETCH NEXT FROM OUTER_CURSOR2 INTO @XKCSL,@LSDWDM
  
 END
 --关闭游标
 CLOSE OUTER_CURSOR2
 DEALLOCATE OUTER_CURSOR2

--修改WG_BZDM中计划价
 UPDATE WG_BZDM SET JHDJ=@XJHJ,TJRQ=GETDATE(),GXSJ=GETDATE()  WHERE QCDM=@QCDM
 --增加操作记录
 IF(@@ROWCOUNT>0)
 BEGIN
  INSERT INTO WG_YHCZJL
   (
    YHDLM,
    CZBM,
    CZLX,
    JLGJZ,
    CZNR,
    CZSJ,
    IPDZ
   )
  VALUES
   (
    @YHDLM,
    'WG_BZDM',
    '修改记录',
    @QCDM,
    '修改标准代码中的计划价:将器材代码为：'+@QCDM+'物资的计划价由:'+CAST(@TJQJHJ AS VARCHAR(12))+'，修改为:'+CAST(@XJHJ AS VARCHAR(12))+'操作人:'+@YHXM,
    GETDATE(),
    @IP--@IP
   )
  IF(@@ROWCOUNT>0)
   SET @RE='成功'
  ELSE
   SET @RE='失败'
   
 END
 COMMIT
 
PRINT(@RE)
RETURN
END
GO