diff --git a/非C#代码文件/收款单核销流水存储过程.sql b/非C#代码文件/收款单核销流水存储过程.sql
index 2c1c372..f0ad60d 100644
--- a/非C#代码文件/收款单核销流水存储过程.sql
+++ b/非C#代码文件/收款单核销流水存储过程.sql
@@ -748,6 +748,25 @@ CLOSE TuiKuanRecord;
 -- 5. �ͷ��α���Դ
 DEALLOCATE TuiKuanRecord;
 
+   INSERT INTO [dbo].[ZZZ_HeXiaoBook]
+			   ([XiaoShouFid]
+			   ,[XiaoShouBillNo]
+			   ,[XiaoShouHeTong]
+			   ,[ShouKuanFid]
+			   ,[ShouKuanBillNo]
+			   ,[ShouKuanFDate]
+			   ,[BenCiHeXiao]
+			   ,[FSaleOrgId],Note,NoteFid,FExchangeRate,FSettleCurrId,FLOCALCURRID,[ShouKuanType],Remark)
+			   ( SELECT 0,'','',bill.FID,bill.FBILLNO,FVERIFYDATE,FCURWRITTENOFFAMOUNTFOR*-1,FSALEORGID,'�������ֻ���˿�',FVERIFYSEQ
+			   ,bill.FEXCHANGERATE,b.FCURRENCYID,b.FLOCALCURRID,4  ,FAbstract			 
+FROM T_AR_RECMacthLog a 
+LEFT JOIN dbo.T_AR_RECMACTHLOGENTRY b ON a.FID=b.FID
+LEFT JOIN T_BAS_BILLTYPE c ON b.FSOURCETYPE=c.FBILLTYPEID 
+INNER JOIN T_AR_REFUNDBILL bill ON FSRCBILLNO=bill.FBILLNO
+WHERE  FBILLFORMID='AR_REFUNDBILL' AND   FVERIFYSEQ NOT IN (100135,100138,100042,100140)  AND FVERIFYSEQ NOT IN (100135,100138,100042,100141,100139) )
+
+--DELETE [ZZZ_HeXiaoBook] WHERE Note='�������ֻ���˿�'
+
   -----�տ�Ѻ������= ���۵�����-�˿����
 	UPDATE  T_AR_RECEIVEBILL SET F_AMOUNT=F_AMOUNT+ISNULL(b.BenCiHeXiao,0),F_TUIKUAN_AMOUNT=ISNULL(b.BenCiHeXiao,0)
 	FROM  (SELECT SUM(BenCiHeXiao*-1 ) BenCiHeXiao,XiaoShouBillNo  FROM dbo.ZZZ_HeXiaoBook WHERE  [ShouKuanType]=4