ALTER PROC FUpdateSalOrderAmount2   
(  
 @fid NVARCHAR(1000)  
)  
AS   
BEGIN   

 DECLARE @F_Amount DECIMAL(18,2)=0,@FBILLNO NVARCHAR(50),@saleOrgId INT,@F_Papercontract NVARCHAR(2000)

   SELECT @F_Amount=ISNULL(SUM(CONVERT(DECIMAL(18,2), FALLAMOUNT2)),0), @FBILLNO=FBILLNO2  FROM VRYF_t_Cust100015 A   
  INNER JOIN  VRYF_t_Cust_Entry100024 B ON A.FID = B.FID   
  WHERE  a.FID =@FID
  GROUP BY   FBILLNO2
 
 SELECT @saleOrgId= a.FSALEORGID,@F_Papercontract=F_Papercontract  FROM T_SAL_DELIVERYNOTICE a 
 WHERE a.FBILLNO=@FBILLNO

--修改发货通知单的累计核销金额
 UPDATE T_SAL_DELIVERYNOTICE SET F_Amount =ISNULL(F_Amount,0)-@F_Amount    
 WHERE FBILLNO =@FBILLNO  ;

 UPDATE dbo.T_SAL_ORDER SET F_AMOUNT=ISNULL(F_AMOUNT,0)-@F_Amount
 WHERE F_SALEORGID=@saleOrgId AND F_contractnumber=@F_Papercontract


 --修改收款单累计核销金额
 
   SELECT @F_Amount=ISNULL(SUM(CONVERT(decimal(18,2), FALLAMOUNT3)),0), @FBILLNO=FBILLNO3  FROM VRYF_t_Cust100015 A   
  INNER JOIN  VRYF_t_Cust_Entry100025 B ON A.FID = B.FID   
  WHERE  a.FID =@FID
    GROUP BY   FBILLNO3

  UPDATE T_AR_RECEIVEBILL SET F_Amount=ISNULL(F_Amount,0)-@F_Amount,F_contractnumber=''    
   WHERE FBILLNO =@FBILLNO  ;
    
end 



--SKD00000003
 --SELECT FBILLNO3,SUM(CONVERT(decimal(18,2), FALLAMOUNT3)) AS '核销金额' FROM T_AutoWrireRecord A   
 -- INNER JOIN  T_AutoWrireRecordEntry2 B ON A.FID = B.FID   
 -- WHERE A.FDOCUMENTSTATUS = 'C'  
 -- GROUP BY B.FBILLNO3
  

  go
  --Select * From T_SAL_ORDER Where FBILLNO = 'PL-XSDD20250200007'
  --Update T_SAL_ORDER Set FDOCUMENTSTATUS = 'D' Where FBILLNO = 'PL-XSDD20250200007'