This commit is contained in:
余宇波 2025-07-11 15:28:56 +08:00
parent fccd29251e
commit 274817b9b5
4 changed files with 266 additions and 1 deletions

33
K3数据.txt Normal file
View File

@ -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

View File

@ -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);
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);

73
刷K3发票金额SQL.sql Normal file
View File

@ -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;

View File

@ -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.FALLAMOUNT22<c.FALLAMOUNT33 THEN b.FALLAMOUNT22 ELSE c.FALLAMOUNT33 END) * dd.FExchangeRate
,@FSALEORGID FROM T_SAL_ORDER a
LEFT JOIN T_AutoWrireRecordEntry b 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
WHERE b.FID=@fid2 )
END
--------------------
SELECT @fid2=0,@fid3=0,@F_contractnumber='',@amount=0;
SELECT @fid2=FID FROM dbo.VRYF_t_Cust_Entry100025 WHERE FBILLNO3=@FBILLNO
SELECT @FDATE=FCREATEDATE,@fid3=FID FROM VRYF_t_Cust100015
WHERE FID=@fid2 AND FDOCUMENTSTATUS='C'
IF(@fid3>0)
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;