From 274817b9b56a8b63878604ce2eecc5c4f442b36d Mon Sep 17 00:00:00 2001 From: yuyubo <1870149533@qq.com> Date: Fri, 11 Jul 2025 15:28:56 +0800 Subject: [PATCH] 11 --- K3数据.txt | 33 ++++ .../SBUYingShouBiao/SBUYingShouBiao.cs | 2 +- 刷K3发票金额SQL.sql | 73 ++++++++ 收款单核销流水过程SQL.sql | 159 ++++++++++++++++++ 4 files changed, 266 insertions(+), 1 deletion(-) create mode 100644 K3数据.txt create mode 100644 刷K3发票金额SQL.sql create mode 100644 收款单核销流水过程SQL.sql diff --git a/K3数据.txt b/K3数据.txt new file mode 100644 index 0000000..7125a8a --- /dev/null +++ b/K3数据.txt @@ -0,0 +1,33 @@ +SELECT TOP 1000 a.FSourceTranType,a.FSourceInterId,a.FSourceBillNo,aa.FBillNo,a.FOrderInterID,a.FOrderEntryID, b.FNumber,FAuxQty [数量],a.FTaxPrice [含税价] +,a.FStdAmount [金额（本位币）],a.FStdAmountIncludeTax [价税合计（本位币）],a.FStdTaxAmount [税额（本位币）] + +,aa.FHeadSelfI0553 +,aa.FHeadSelfI0456, + aa.FDate + +,frob,aa.FTranType,a.FInterID,a.FEntryID + +--,c.FBillNo + +FROM k3.AIS20130323140156.dbo.icsaleentry a +LEFT JOIN k3.AIS20130323140156.dbo.icsale aa ON a.FInterID=aa.FInterID +LEFT JOIN k3.AIS20130323140156.dbo.t_icitem b ON a.FItemID=b.FItemID +INNER JOIN [AIS2025].[dbo].[ZZZ_ZZ_FaPiaoLosed] ddd ON a.FInterID=ddd.[FInterID] AND a.[FEntryID]=ddd.[FEntryID] +INNER JOIN (SELECT DISTINCT 合同号 FROM [AIS20250707104732].[dbo].[oldk3seorder0701]) vv ON aa.FHeadSelfI0456=vv.合同号 -- AND vv.物料编码= b.FNumber +INNER JOIN dbo.T_SAL_ORDER gg WITH(NOLOCK) ON vv.合同号=gg.F_CONTRACTNUMBER + --WHERE [合同号] ='S110403-PLR01' AND FNumber='H.01.020.0006' +ORDER BY aa.FDate desc, a.FInterID,a.FEntryID +--WHERE a.FInterID=1791 +--WHERE aa.FROB=-1 +--WHERE FHeadSelfI0456='S110301-ZWH01' +--WHERE aa.FHeadSelfI0553 ='' AND aa.FHeadSelfI0456 ='' +--WHERE a.FSourceInterId =0 OR a.FOrderInterID=0 + +--FHeadSelfI0456 + +--SELECT DISTINCT FTranType FROM k3.AIS20130323140156.dbo.icsale a + +--SELECT COUNT(1) +--FROM k3.AIS20130323140156.dbo.icsaleentry a +--LEFT JOIN k3.AIS20130323140156.dbo.icsale aa ON a.FInterID=aa.FInterID +--LEFT JOIN k3.AIS20130323140156.dbo.t_icitem b ON a.FItemID=b.FItemID \ No newline at end of file diff --git a/Pilot.Report.Exploitation/SBUYingShouBiao/SBUYingShouBiao.cs b/Pilot.Report.Exploitation/SBUYingShouBiao/SBUYingShouBiao.cs index 0a4f557..c3fe72e 100644 --- a/Pilot.Report.Exploitation/SBUYingShouBiao/SBUYingShouBiao.cs +++ b/Pilot.Report.Exploitation/SBUYingShouBiao/SBUYingShouBiao.cs @@ -115,7 +115,7 @@ namespace Pilot.Report.Exploitation.SBUYingShouBiao header.AddChild("本年回款额", new LocaleValue("本年回款额(含子公司)", this.Context.UserLocale.LCID), SqlStorageType.SqlMoney); header.AddChild("本年专责小组回款额", new LocaleValue("本年专责小组回款额", this.Context.UserLocale.LCID), SqlStorageType.SqlMoney); header.AddChild("本年实际业绩额", new LocaleValue("本年实际业绩额(含往年变更金额)", this.Context.UserLocale.LCID), SqlStorageType.SqlMoney); - header.AddChild("上年度应收额", new LocaleValue("上年度应收额", this.Context.UserLocale.LCID), SqlStorageType.SqlMoney); + //header.AddChild("上年度应收额", new LocaleValue("上年度应收额", this.Context.UserLocale.LCID), SqlStorageType.SqlMoney); header.AddChild("本年专责小组应收额", new LocaleValue("本年专责小组应收额", this.Context.UserLocale.LCID), SqlStorageType.SqlMoney); header.AddChild("回款率", new LocaleValue("回款率", this.Context.UserLocale.LCID), SqlStorageType.SqlMoney); header.AddChild("预发货到期应收账款", new LocaleValue("预发货到期应收账款", this.Context.UserLocale.LCID), SqlStorageType.SqlMoney); diff --git a/刷K3发票金额SQL.sql b/刷K3发票金额SQL.sql new file mode 100644 index 0000000..928aa74 --- /dev/null +++ b/刷K3发票金额SQL.sql @@ -0,0 +1,73 @@ + +UPDATE [oldk3seorder0701] SET רƱ=0,[Ʊ]=0; +TRUNCATE TABLE [ZZZ_ZZ_FaPiaoLosed]; + +DECLARE @FDATE DATETIME,@FSourceBillNo NVARCHAR(200),@FSourceTranType INT,@FSourceInterId INT ,@F_contractnumber NVARCHAR(2000) + ,@F_contractnumber2 NVARCHAR(2000),@F_contractnumber3 NVARCHAR(2000),@F_contractnumber4 NVARCHAR(2000),@FOrderInterID INT,@FOrderEntryID INT,@frob INT,@FNumber NVARCHAR(200),@FAuxQty DECIMAL(18,2) +,@amount DECIMAL(18,2),@hexiao DECIMAL(18,2),@FTranType INT,@saleBill NVARCHAR(200),@ifok INT=0,@id INT,@fid1 INT ,@fid2 INT,@row INT=0; +-- 1. α + DECLARE cursor_name2 CURSOR FOR + SELECT a.FInterID,a.FEntryID,a.FSourceTranType,a.FSourceInterId,a.FOrderInterID,a.FOrderEntryID,c.FBillNo AS [۵], b.FNumber,FAuxQty [] +-- ,a.FTaxPrice [˰] +--,a.FStdAmount [λң] +,a.FStdAmountIncludeTax [˰ϼƣλң] +--,a.FStdTaxAmount [˰λң] +,aa.FHeadSelfI0553 +,aa.FHeadSelfI0456 +,c.FHeadSelfS01108,c.FHeadSelfS0171 + ,aa.FDate +,frob,aa.FTranType --,aa.FBillNo,a.FInterID,a.FEntryID,a.FSourceBillNo,FHeadSelfS0172 +FROM k3.AIS20130323140156.dbo.icsaleentry a +LEFT JOIN k3.AIS20130323140156.dbo.icsale aa ON a.FInterID=aa.FInterID +LEFT JOIN k3.AIS20130323140156.dbo.t_icitem b ON a.FItemID=b.FItemID +LEFT JOIN k3.AIS20130323140156.dbo.SEOrder c ON a.FOrderInterID=c.FInterID +--WHERE FTranType NOT IN (80,86) +--WHERE c.FBillNo='S110301-ZWH01' +ORDER BY a.FInterID,a.FEntryID + OPEN cursor_name2; + FETCH NEXT FROM cursor_name2 + INTO @fid1,@fid2,@FSourceTranType, @FSourceInterId,@FOrderInterID,@FOrderEntryID,@saleBill,@FNumber,@FAuxQty,@amount,@F_contractnumber,@F_contractnumber2,@F_contractnumber3,@F_contractnumber4 + ,@FDATE,@frob,@FTranType + WHILE @@FETCH_STATUS = 0 + BEGIN + SELECT @row=@row+1; + SELECT @ifok=0,@id=0; + IF(@saleBill IS NOT NULL AND @saleBill !='') + BEGIN + SELECT @ifok=1; + SELECT @id=id FROM [oldk3seorder0701] WHERE @saleBill=[ݱ] AND []=@FOrderInterID AND [к]=@FOrderEntryID; + END + ELSE IF(@F_contractnumber2 IS NOT NULL AND @F_contractnumber2 !='') + BEGIN + SELECT @ifok=2; + SELECT @id=id FROM [oldk3seorder0701] WHERE @F_contractnumber2=[ͬ] AND @FNumber=[ϱ] AND @FAuxQty=[]; + END + PRINT CONCAT('id=',@id,' ڼ: ',@row,' FInterID: ',@fid1,' FEntryID: ',@fid2,' [˰ϼƣλң] ',@amount); + IF(@id=0) + BEGIN + INSERT INTO [dbo].[ZZZ_ZZ_FaPiaoLosed] ([FInterID] ,[FEntryID]) + VALUES (@fid1 ,@fid2) + END + -- @FTranType 80 רƱ 86 Ʊ 602 רƱ 601 Ʊ + IF(@FTranType IN (80,602) AND @id>0) + BEGIN + UPDATE [oldk3seorder0701] SET [רƱ]=ISNULL([רƱ],0)+@amount + WHERE id=@id + end + + IF(@FTranType IN (86,601) AND @id>0) + BEGIN + UPDATE [oldk3seorder0701] SET [Ʊ]=ISNULL([Ʊ],0)+@amount + WHERE id=@id + end + + -- ȡһ¼ + FETCH NEXT FROM cursor_name2 + INTO @fid1,@fid2,@FSourceTranType, @FSourceInterId,@FOrderInterID,@FOrderEntryID,@saleBill,@FNumber,@FAuxQty,@amount,@F_contractnumber,@F_contractnumber2,@F_contractnumber3,@F_contractnumber4 + ,@FDATE,@frob,@FTranType; + END + -- 4. رα + CLOSE cursor_name2; + + -- 5. ͷαԴ + DEALLOCATE cursor_name2; \ No newline at end of file diff --git a/收款单核销流水过程SQL.sql b/收款单核销流水过程SQL.sql new file mode 100644 index 0000000..ba33f3e --- /dev/null +++ b/收款单核销流水过程SQL.sql @@ -0,0 +1,159 @@ +SELECT TOP 100 FSRCBILLID,d.FDATE,FBILLFORMID, FVERIFYSEQ,FSOURCETYPE,FCURWRITTENOFFAMOUNTFOR,FCURWRITTENOFFAMOUNT,FSRCBILLNO,B.FEXCHANGERATE,FCURTAXMATCHAMOUNT,FCURNOTAXMATCHAMOUNT , B.FSettleCurrId +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 +LEFT JOIN t_AR_RECEIVEBILL d ON d.FBILLNO=B.FSRCBILLNO +--WHERE FBILLFORMID IN ('AR_receivable','AR_RECEIVEBILL','AR_AdjustExchangeRate') +ORDER BY FVERIFYSEQ + + +SELECT FSOURCETYPE,FCURWRITTENOFFAMOUNTFOR,FCURWRITTENOFFAMOUNT,FSRCBILLNO,FEXCHANGERATE,FCURTAXMATCHAMOUNT,FCURNOTAXMATCHAMOUNT ,FSettleCurrId FROM T_AR_RECMacthLogENTRY +WHERE FSRCBILLNO IN ('PL-AR202412000100','XN-QC202412000154') + +SELECT DISTINCT FSOURCETYPE,b.FBILLFORMID FROM T_AR_RECMacthLogENTRY a +LEFT JOIN T_BAS_BILLTYPE b ON a.FSOURCETYPE=b.FBILLTYPEID + +SELECT FDATE,FDOCUMENTSTATUS FROM T_AR_RECEIVEBILL + + +SELECT * FROM T_BAS_BILLTYPE +WHERE FBILLTYPEID IN ('180ecd4afd5d44b5be78a6efe4a7e041','180ecd4afd5d44b5be78a6efe4a7e041') +OR FBILLFORMID='AR_RECEIVEBILL' + + +SELECT F_VRYF_Text_83g,* FROM t_AR_receivable +WHERE FBILLNO='PL-XSCKD20250601337-000001' +ORDER BY FDATE DESC + + + +SELECT FDATE,FDOCUMENTSTATUS,FBILLNO,FID,FSALEORGID,F_contractnumber FROM T_AR_RECEIVEBILL +WHERE FDOCUMENTSTATUS='C' +ORDER BY FDATE + +DELETE [ZZZ_HeXiaoBook] WHERE [ShouKuanFDate]>=@BeginDATE + +DECLARE @FDATE DATETIME,@FBILLNO NVARCHAR(200),@ShouKuanFID INT,@FSALEORGID INT ,@F_contractnumber NVARCHAR(2000),@fid2 INT,@fid3 INT,@amount DECIMAL(18,2); +-- 1. α + DECLARE cursor_name2 CURSOR FOR + SELECT FDATE,FBILLNO,FID,FSALEORGID,F_contractnumber FROM T_AR_RECEIVEBILL +WHERE FDOCUMENTSTATUS='C' +ORDER BY FDATE + + OPEN cursor_name2; + FETCH NEXT FROM cursor_name2 + INTO @FDATE, + @FBILLNO, + @ShouKuanFID, + @FSALEORGID, + @F_contractnumber + WHILE @@FETCH_STATUS = 0 + BEGIN + ---۵Զ¼-- + SELECT @fid2=0,@fid3=0; + SELECT @fid2=FID FROM dbo.T_AutoWrireRecordEntry2 WHERE FBILLNO3=@FBILLNO + + SELECT @FDATE=ISNULL(F_YeWuDate,FCREATEDATE),@fid3=FID FROM T_AutoWrireRecord + WHERE FID=@fid2 AND FDOCUMENTSTATUS='C' + IF(@fid3>0) + BEGIN + INSERT INTO [dbo].[ZZZ_HeXiaoBook] + ([XiaoShouFid] + ,[XiaoShouBillNo] + ,[XiaoShouHeTong] + ,[ShouKuanFid] + ,[ShouKuanBillNo] + ,[ShouKuanFDate] + ,[BenCiHeXiao] + ,[FSaleOrgId]) + ( SELECT a.fid,a.FBILLNO,a.F_CONTRACTNUMBER,@ShouKuanFID,@FBILLNO,@FDATE + ,(CASE WHEN b.FALLAMOUNT220) + BEGIN + SELECT @F_contractnumber=FCONTRACTNUMBER,@amount=FALLAMOUNT22 FROM VRYF_t_Cust_Entry100024 a WHERE a.FID=@fid2 + + INSERT INTO [dbo].[ZZZ_HeXiaoBook] + ([XiaoShouFid] + ,[XiaoShouBillNo] + ,[XiaoShouHeTong] + ,[ShouKuanFid] + ,[ShouKuanBillNo] + ,[ShouKuanFDate] + ,[BenCiHeXiao] + ,[FSaleOrgId]) + ( SELECT a.fid,a.FBILLNO,a.F_CONTRACTNUMBER,@ShouKuanFID,@FBILLNO,@FDATE,@amount * dd.FExchangeRate,@FSALEORGID FROM T_SAL_ORDER a + LEFT JOIN T_SAL_ORDERFIN dd ON a.FID=dd.FID + WHERE a.FSALEORGID=[FSaleOrgId] and a.F_CONTRACTNUMBER=@F_contractnumber) + END + ---Ӧպ¼--------- + SELECT @fid2=0,@fid3=0,@F_contractnumber='',@amount=0; + SELECT d.FDATE,FBILLFORMID, FVERIFYSEQ,FSOURCETYPE,FCURWRITTENOFFAMOUNTFOR,FCURWRITTENOFFAMOUNT,FSRCBILLNO,b.FEXCHANGERATE,FCURTAXMATCHAMOUNT,FCURNOTAXMATCHAMOUNT , b.FSettleCurrId + INTO #temp2 +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 +LEFT JOIN t_AR_RECEIVEBILL d ON d.FBILLNO=b.FSRCBILLNO +WHERE FVERIFYSEQ IN (SELECT FVERIFYSEQ FROM T_AR_RECMacthLog a +LEFT JOIN dbo.T_AR_RECMACTHLOGENTRY b ON a.FID=b.FID WHERE b.FSRCBILLNO=@FBILLNO AND c.FBILLFORMID='AR_RECEIVEBILL') + SELECT @amount= SUM(FCURTAXMATCHAMOUNT) FROM #temp2 WHERE FBILLFORMID!='AR_RECEIVEBILL' + SELECT @fid2 FROM #temp2 WHERE FBILLFORMID ='AR_receivable' + SELECT @F_contractnumber= F_PAPERPRO FROM T_AR_receivable WHERE fid=@fid2 + + INSERT INTO [dbo].[ZZZ_HeXiaoBook] + ([XiaoShouFid] + ,[XiaoShouBillNo] + ,[XiaoShouHeTong] + ,[ShouKuanFid] + ,[ShouKuanBillNo] + ,[ShouKuanFDate] + ,[BenCiHeXiao] + ,[FSaleOrgId]) + ( SELECT a.fid,a.FBILLNO,a.F_CONTRACTNUMBER,@ShouKuanFID,@FBILLNO,@FDATE,@amount,@FSALEORGID FROM T_SAL_ORDER a + LEFT JOIN T_SAL_ORDERFIN dd ON a.FID=dd.FID + WHERE a.FSALEORGID=[FSaleOrgId] and a.F_CONTRACTNUMBER=@F_contractnumber) + --------ʷ¼-------------- + IF(@FSALEORGID=100302) + begin + SELECT F_ORDERNO,F_RECEIPTNUMBER,* FROM VRYF_t_Cust_Entry100021 WHERE F_matched=1 AND F_Receiptnumber=@FBILLNO + INSERT INTO [dbo].[ZZZ_HeXiaoBook] + ([XiaoShouFid] + ,[XiaoShouBillNo] + ,[XiaoShouHeTong] + ,[ShouKuanFid] + ,[ShouKuanBillNo] + ,[ShouKuanFDate] + ,[BenCiHeXiao] + ,[FSaleOrgId]) + ( SELECT a.fid,a.FBILLNO,a.F_CONTRACTNUMBER,@ShouKuanFID,@FBILLNO,@FDATE,F_shareAmount,@FSALEORGID FROM T_SAL_ORDER a + LEFT JOIN VRYF_t_Cust_Entry100021 c ON a.F_CONTRACTNUMBER=c.F_ORDERNO + LEFT JOIN T_SAL_ORDERFIN dd ON a.FID=dd.FID + WHERE a.FSALEORGID=[FSaleOrgId] AND F_matched=1 AND c.F_Receiptnumber=@FBILLNO ) + END + + -- ȡһ¼ + FETCH NEXT FROM cursor_name2 + INTO @FDATE, + @FBILLNO, + @ShouKuanFID, + @FSALEORGID, + @F_contractnumber; + END + + -- 4. رα + CLOSE cursor_name2; + + -- 5. ͷαԴ + DEALLOCATE cursor_name2; + \ No newline at end of file