11

Pilot.Report.Exploitation/SBUYingShouBiao/SBUYingShouBiao.cs

@@ -261,7 +261,8 @@ FROM T_SAL_ORDERFIN aa
             result.Add(new SummaryField("预发货回款额", Kingdee.BOS.Core.Enums.BOSEnums.Enu_SummaryType.SUM));
             result.Add(new SummaryField("预发货回款率", Kingdee.BOS.Core.Enums.BOSEnums.Enu_SummaryType.SUM));
             result.Add(new SummaryField("回款目标", Kingdee.BOS.Core.Enums.BOSEnums.Enu_SummaryType.SUM));
-            
+            result.Add(new SummaryField("仪表发货金额", Kingdee.BOS.Core.Enums.BOSEnums.Enu_SummaryType.SUM));
+            result.Add(new SummaryField("系统验收金额", Kingdee.BOS.Core.Enums.BOSEnums.Enu_SummaryType.SUM));
 
             return result;
         }

非C#代码文件/收款单核销流水存储过程.sql

@@ -13,7 +13,7 @@ CREATE PROCEDURE dbo.PR_YingShouSBU_yuyubo @BeginDATE DATETIME='2024-01-01'
 AS
 BEGIN
 
-DELETE [ZZZ_HeXiaoBook] WHERE [ShouKuanFDate]>=@BeginDATE
+DELETE [ZZZ_HeXiaoBook] WHERE [ShouKuanFDate]>=@BeginDATE OR ShouKuanType>0
 
 DECLARE @FDATE DATETIME,@FBILLNO NVARCHAR(200),@ShouKuanFID INT,@FSALEORGID INT ,@F_contractnumber NVARCHAR(2000),@fid2 INT,@fid3 INT,@amount DECIMAL(18,2),@hexiao DECIMAL(18,2)
 ,@remark NVARCHAR(200);
@@ -53,7 +53,7 @@ ORDER BY FDATE
 			,[BenCiHeXiao]
 			,[FSaleOrgId],Note,NoteFid,FExchangeRate,FSettleCurrId,FLOCALCURRID,[ShouKuanType],Remark)
 			( SELECT a.fid,a.FBILLNO,a.F_CONTRACTNUMBER,@ShouKuanFID,@FBILLNO,@FDATE
-			,(CASE WHEN  b.FALLAMOUNT22<c.FALLAMOUNT33 THEN b.FALLAMOUNT22 ELSE c.FALLAMOUNT33 END)   
+			,b.FALLAMOUNT22
 			,@FSALEORGID,'销售的自动核销记录单',@fid2,dd.FExchangeRate,FSettleCurrId,FLocalCurrId,0
 		    ,head.F_NOTE
 			FROM T_SAL_ORDER a
@@ -210,17 +210,31 @@ LEFT JOIN dbo.T_AR_RECMACTHLOGENTRY b ON a.FID=b.FID WHERE  b.FSRCBILLNO=@FBILLN
 
     -- 5. 释放游标资源
     DEALLOCATE cursor_name2;
+  
+    INSERT INTO [dbo].[ZZZ_HeXiaoBook]
+			   ([XiaoShouFid]
+			   ,[XiaoShouBillNo]
+			   ,[XiaoShouHeTong]
+			   ,[ShouKuanFid]
+			   ,[ShouKuanBillNo]
+			   ,[ShouKuanFDate]
+			   ,[BenCiHeXiao]
+			   ,[FSaleOrgId],Note,NoteFid,FExchangeRate,FSettleCurrId,FLOCALCURRID,[ShouKuanType],Remark)
+	      
+		 ( SELECT   a.fid AS [XiaoShouFid],a.FBILLNO,a.F_CONTRACTNUMBER,b.FEntryID,head.FBILLNO,head.F_YEWUDATE
+			,b.FALLAMOUNT22   
+			,a.FSaleOrgId,'销售单与销售单调整',head.FID AS heahid,dd.FExchangeRate,FSettleCurrId,FLocalCurrId,2
+		    ,head.F_NOTE
+			FROM  T_AutoWrireRecordEntry b
+			LEFT JOIN T_SAL_ORDER a ON a.FBILLNO=b.FBILLNO2
+			LEFT JOIN T_AutoWrireRecordEntry2 c  ON b.FID=c.FID		
+			LEFT JOIN T_SAL_ORDERFIN dd ON a.FID=dd.FID
+		    LEFT JOIN T_AutoWrireRecord head ON b.FID=head.FID
+			WHERE    head.FDOCUMENTSTATUS='C' AND c.FID IS NULL 
+		   )
 
---SELECT a.XiaoShouFid,a.XiaoShouBillNo,[XiaoShouHeTong],a.ShouKuanFDate,b.预计到期时间,b.到期时间 FROM [ZZZ_HeXiaoBook] a
+  
---LEFT JOIN (SELECT b.销售单主键ID,MAX(b.预计到期时间) AS 预计到期时间 ,max (b.到期时间) AS 到期时间  FROM  [ZRP_YingShouMingXi_yuyubo] b GROUP BY  销售单主键ID) b
---ON a.XiaoShouFid=b.销售单主键ID
---ORDER BY a.XiaoShouFid
 
- UPDATE  [ZZZ_HeXiaoBook] SET  ZhangLing= ISNULL(  ROUND( DATEDIFF(DAY,[到期时间],[ZZZ_HeXiaoBook].ShouKuanFDate) / 30,0) ,0 ) 
- FROM (SELECT a.XiaoShouFid,a.XiaoShouBillNo,[XiaoShouHeTong],a.ShouKuanFDate,b.预计到期时间,b.到期时间 FROM [ZZZ_HeXiaoBook] a
-LEFT JOIN (SELECT b.销售单主键ID,MAX(b.预计到期时间) AS 预计到期时间 ,max (b.到期时间) AS 到期时间  FROM  [ZRP_YingShouMingXi_yuyubo] b GROUP BY  销售单主键ID) b
-ON a.XiaoShouFid=b.销售单主键ID) b
-WHERE [ZZZ_HeXiaoBook].XiaoShouFid=b.XiaoShouFid
 
 --------以下是特殊核销----------
 
@@ -237,8 +251,7 @@ WHERE a.FMATCHMETHODID=30
   )
 ORDER BY a.FVERIFYSEQ
 
-
+             INSERT INTO [dbo].[ZZZ_HeXiaoBook]
-      INSERT INTO [dbo].[ZZZ_HeXiaoBook]
 			   ([XiaoShouFid]
 			   ,[XiaoShouBillNo]
 			   ,[XiaoShouHeTong]
@@ -248,8 +261,8 @@ ORDER BY a.FVERIFYSEQ
 			   ,[BenCiHeXiao]
 			   ,[FSaleOrgId],Note,NoteFid,FExchangeRate,FSettleCurrId,FLOCALCURRID,[ShouKuanType],Remark)
 			   ( 
-			   SELECT a.fid,a.FBILLNO,a.F_CONTRACTNUMBER,d.FVERIFYSEQ,d.FSRCBILLNO,FVERIFYDATE,FCURWRITTENOFFAMOUNTFOR,a.FSALEORGID,'特殊核销没有收款单',FVERIFYSEQ
+			   SELECT a.fid,a.FBILLNO,a.F_CONTRACTNUMBER,0,d.FSRCBILLNO,FVERIFYDATE,FCURWRITTENOFFAMOUNTFOR,a.FSALEORGID,'特殊核销没有收款单',FVERIFYSEQ
-			   ,dd.FEXCHANGERATE,FSettleCurrId,FLOCALCURRID,0  ,''
+			   ,dd.FEXCHANGERATE,FSettleCurrId,FLOCALCURRID,1  ,''
 			   FROM T_SAL_ORDER a
 			     LEFT JOIN T_SAL_ORDERFIN dd ON a.FID=dd.FID			 
 				 INNER JOIN
@@ -259,21 +272,23 @@ ORDER BY a.FVERIFYSEQ
 				 ) c
 				 ON c.F_PAPER=a.F_CONTRACTNUMBER AND c.FSALEORGID=a.FSALEORGID
 				 INNER JOIN #temp222 d ON d.FSRCBILLID=c.fid AND d.FBILLFORMID ='AR_receivable'
-			     WHERE   d.FBILLFORMID='AR_receivable'  AND a.FDOCUMENTSTATUS='C'	 
+			     WHERE   d.FBILLFORMID='AR_receivable'  AND a.FDOCUMENTSTATUS='C'
-				 --AND d.FVERIFYSEQ=109376
-				 ORDER BY d.FVERIFYSEQ
-
 				 )
+               DROP TABLE  #temp222
 
-				 --SELECT * FROM #temp222
+ UPDATE  [ZZZ_HeXiaoBook] SET  ZhangLing= ISNULL(  ROUND( DATEDIFF(DAY,[到期时间],[ZZZ_HeXiaoBook].ShouKuanFDate) / 30,0) ,0 ) 
-				 --WHERE FVERIFYSEQ=109376
+ FROM (SELECT a.XiaoShouFid,a.XiaoShouBillNo,[XiaoShouHeTong],a.ShouKuanFDate,b.预计到期时间,b.到期时间 FROM [ZZZ_HeXiaoBook] a
+LEFT JOIN (SELECT b.销售单主键ID,MAX(b.预计到期时间) AS 预计到期时间 ,max (b.到期时间) AS 到期时间  FROM  [ZRP_YingShouMingXi_yuyubo] b GROUP BY  销售单主键ID) b
+ON a.XiaoShouFid=b.销售单主键ID) b
+WHERE [ZZZ_HeXiaoBook].XiaoShouFid=b.XiaoShouFid
 
-DROP TABLE  #temp222
+
-SELECT  FVERIFYDATE,FBILLFORMID, FVERIFYSEQ,FSOURCETYPE,FCURWRITTENOFFAMOUNTFOR,FCURWRITTENOFFAMOUNT,FSRCBILLNO,b.FEXCHANGERATE,FCURTAXMATCHAMOUNT,FCURNOTAXMATCHAMOUNT  ,FSRCBILLID,a.FMATCHMETHODID		 
+
-FROM T_AR_RECMacthLog a 
+--SELECT  FVERIFYDATE,FBILLFORMID, FVERIFYSEQ,FSOURCETYPE,FCURWRITTENOFFAMOUNTFOR,FCURWRITTENOFFAMOUNT,FSRCBILLNO,b.FEXCHANGERATE,FCURTAXMATCHAMOUNT,FCURNOTAXMATCHAMOUNT  ,FSRCBILLID,a.FMATCHMETHODID		 
-LEFT JOIN dbo.T_AR_RECMACTHLOGENTRY b ON a.FID=b.FID
+--FROM T_AR_RECMacthLog a 
-LEFT JOIN T_BAS_BILLTYPE c ON b.FSOURCETYPE=c.FBILLTYPEID 
+--LEFT JOIN dbo.T_AR_RECMACTHLOGENTRY b ON a.FID=b.FID
-WHERE a.FVERIFYSEQ =100135
+--LEFT JOIN T_BAS_BILLTYPE c ON b.FSOURCETYPE=c.FBILLTYPEID 
+--WHERE a.FVERIFYSEQ =100135
 
   END