yuyubo/Pilot_KD_Parino_yuyubo
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2312312

Browse Source
This commit is contained in:
余宇波 2025-05-08 16:03:24 +08:00
parent 8af0c7f62a
commit 4767ce003b
7 changed files with 253 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Pilot_KD_Parino/Pilot_KD_Parino.csproj
View File

@ -340,6 +340,7 @@
<Compile Include="Sal_Order\YJAuditPlugIn.cs" /> <Compile Include="Sal_Order\YJAuditPlugIn.cs" />
<Compile Include="SQL\SqlManage_yuyubo.cs" /> <Compile Include="SQL\SqlManage_yuyubo.cs" />
<Compile Include="SQL\SqlManage.cs" /> <Compile Include="SQL\SqlManage.cs" />
<Compile Include="VRYF_FHTZDHXJL\FUpdateAmount.cs" />
<Compile Include="VRYF_FHTZDHXJL\UpdateAmount.cs" /> <Compile Include="VRYF_FHTZDHXJL\UpdateAmount.cs" />
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>

13
Pilot_KD_Parino/QPHY_AutoWrireRecord/FUpdateAmount.cs
View File

@ -50,7 +50,7 @@ namespace Pilot_KD_Parino.QPHY_AutoWrireRecord
T_SAL_ORDERPLAN B T_SAL_ORDERPLAN B
on A.FID = B.FID on A.FID = B.FID
Where A.FBILLNO = '{0}' Where A.FBILLNO = '{0}'
Order by F_ORDER", item["FBILLNO2"]); Order by F_ORDER desc ,FENTRYID desc", item["FBILLNO2"]);
var sql2List = DBUtils.ExecuteDynamicObject(Context, sql2); var sql2List = DBUtils.ExecuteDynamicObject(Context, sql2);
//如果只有一个直接赋值 //如果只有一个直接赋值
@ -68,13 +68,15 @@ namespace Pilot_KD_Parino.QPHY_AutoWrireRecord
//{ //{
//判断核销金额是否大于按照排序对冲金额 //判断核销金额是否大于按照排序对冲金额
decimal FRECADVANCEAMOUNT = Convert.ToDecimal(sql2List[i]["FRECADVANCEAMOUNT"]); decimal FRECADVANCEAMOUNT = Convert.ToDecimal(sql2List[i]["FRECADVANCEAMOUNT"]);
if (FALLAMOUNT > 0) decimal F_MBBA_Decimal_uky=Convert.ToDecimal(sql2List[i]["F_MBBA_Decimal_uky"]);
if (FALLAMOUNT > 0 && F_MBBA_Decimal_uky > 0)
{ {
decimal fAmount = 0; decimal fAmount = 0;
//判断是否整条对冲 //判断是否整条对冲
if (FALLAMOUNT - FRECADVANCEAMOUNT >= 0) if (FALLAMOUNT - F_MBBA_Decimal_uky >= 0)
{ {
fAmount = FRECADVANCEAMOUNT; fAmount = F_MBBA_Decimal_uky;
} }
else else
{ {
@ -82,8 +84,9 @@ namespace Pilot_KD_Parino.QPHY_AutoWrireRecord
} }
string sql3 = string.Format(@"Update T_SAL_ORDERPLAN Set F_MBBA_Decimal_uky = ISNULL(F_MBBA_Decimal_uky,0)-{0} Where FENTRYID = {1};", fAmount, sql2List[i]["FENTRYID"]); string sql3 = string.Format(@"Update T_SAL_ORDERPLAN Set F_MBBA_Decimal_uky = ISNULL(F_MBBA_Decimal_uky,0)-{0} Where FENTRYID = {1};", fAmount, sql2List[i]["FENTRYID"]);
DBUtils.ExecuteDynamicObject(Context, sql3); DBUtils.ExecuteDynamicObject(Context, sql3);
FALLAMOUNT = FALLAMOUNT - fAmount;
} }
FALLAMOUNT -= FRECADVANCEAMOUNT;
//} //}
} }
} }

37
Pilot_KD_Parino/QPHY_AutoWrireRecord/UpdateAmount.cs
View File

@ -40,7 +40,7 @@ namespace Pilot_KD_Parino.QPHY_AutoWrireRecord
T_SAL_ORDERPLAN B T_SAL_ORDERPLAN B
on A.FID = B.FID on A.FID = B.FID
Where A.FBILLNO = '{0}' Where A.FBILLNO = '{0}'
Order by F_ORDER", item["FBILLNO2"]); Order by F_ORDER,FENTRYID", item["FBILLNO2"]);
var sql2List = DBUtils.ExecuteDynamicObject(Context, sql2); var sql2List = DBUtils.ExecuteDynamicObject(Context, sql2);
//如果只有一个直接赋值 //如果只有一个直接赋值
@ -56,24 +56,27 @@ namespace Pilot_KD_Parino.QPHY_AutoWrireRecord
//判断核销顺序是否为空 //判断核销顺序是否为空
//if (!string.IsNullOrWhiteSpace(sql2List[i]["F_ORDER"]?.ToString())) //if (!string.IsNullOrWhiteSpace(sql2List[i]["F_ORDER"]?.ToString()))
//{ //{
//判断核销金额是否大于按照排序对冲金额 //判断核销金额是否大于按照排序对冲金额
decimal FRECADVANCEAMOUNT = Convert.ToDecimal(sql2List[i]["FRECADVANCEAMOUNT"]); decimal FRECADVANCEAMOUNT = Convert.ToDecimal(sql2List[i]["FRECADVANCEAMOUNT"]);
if (FALLAMOUNT > 0) decimal F_MBBA_Decimal_uky = Convert.ToDecimal(sql2List[i]["F_MBBA_Decimal_uky"]);
if (FALLAMOUNT > 0 && F_MBBA_Decimal_uky < FRECADVANCEAMOUNT)
{
decimal fAmount = 0;
decimal chazhi = FRECADVANCEAMOUNT- F_MBBA_Decimal_uky;
//判断是否整条对冲
if (FALLAMOUNT - chazhi >= 0)
{ {
decimal fAmount = 0; fAmount = chazhi;
//判断是否整条对冲
if (FALLAMOUNT - FRECADVANCEAMOUNT >= 0)
{
fAmount = FRECADVANCEAMOUNT;
}
else
{
fAmount = FALLAMOUNT;
}
string sql3 = string.Format(@"Update T_SAL_ORDERPLAN Set F_MBBA_Decimal_uky = ISNULL(F_MBBA_Decimal_uky,0)+{0} Where FENTRYID = '{1}';", fAmount, sql2List[i]["FENTRYID"]);
DBUtils.ExecuteDynamicObject(Context, sql3);
} }
FALLAMOUNT -= FRECADVANCEAMOUNT; else
{
fAmount = FALLAMOUNT;
}
string sql3 = string.Format(@"Update T_SAL_ORDERPLAN Set F_MBBA_Decimal_uky = ISNULL(F_MBBA_Decimal_uky,0)+{0} Where FENTRYID = '{1}';", fAmount, sql2List[i]["FENTRYID"]);
DBUtils.ExecuteDynamicObject(Context, sql3);
FALLAMOUNT = FALLAMOUNT- fAmount;
}
//} //}
} }
} }

99
Pilot_KD_Parino/VRYF_FHTZDHXJL/FUpdateAmount.cs Normal file
View File

@ -0,0 +1,99 @@
using Kingdee.BOS.App.Data;
using Kingdee.BOS.Core.DynamicForm.PlugIn;
using Kingdee.BOS.Core.DynamicForm.PlugIn.Args;
using Kingdee.BOS.Util;
using Pilot_KD_Parino.SQL;
using System;
using System.ComponentModel;
using System.Linq;
namespace Pilot_KD_Parino.VRYF_FHTZDHXJL
{
/// <summary>
/// 核销记录单(发货通知单)--反审核更新核销金额
/// </summary>
[Description("核销记录单(发货通知单)--反审核更新核销金额"), HotUpdate]
public class FUpdateAmount : AbstractOperationServicePlugIn
{
//public override void EndOperationTransaction(EndOperationTransactionArgs e)
//{
// base.EndOperationTransaction(e);
// var fId = e.DataEntitys[0][0]?.ToString();
// //获取销售订单核销金额数据
// SqlManage.FUpdateSalOrderAmount(this.Context, fId);
//}
public override void AfterExecuteOperationTransaction(AfterExecuteOperationTransaction e)
{
base.AfterExecuteOperationTransaction(e);
foreach (var rows in e.SelectedRows)
{
var Billobj = rows.DataEntity;
//获取销售订单核销金额数据
string sql = string.Format(@"/*dialect*/ EXEC FUpdateSalOrderAmount2 {0} ", Convert.ToString(Billobj["Id"]));
//执行SQL
DBUtils.ExecuteDynamicObject(Context, sql);
string sql1 = string.Format(@"/*dialect*/Select B.FBILLNO2,B.FALLAMOUNT2,FORGID,FCONTRACTNUMBER From VRYF_t_Cust100015 A
JOIN VRYF_t_Cust_Entry100024 B
on A.FID = B.FID Where A.FID = '{0}'", Billobj["Id"]);
var sql1List = DBUtils.ExecuteDynamicObject(Context, sql1);
foreach (var item in sql1List.ToList())
{
decimal FALLAMOUNT = 0;
FALLAMOUNT = Convert.ToDecimal(item["FALLAMOUNT2"]); //要计算的核销金额
string sql2 = string.Format($@"/*dialect*/Select B.FENTRYID,B.FRECADVANCEAMOUNT,ISNULL(B.F_ORDER,'') as 'F_ORDER' From
T_SAL_ORDER A
JOIN
T_SAL_ORDERPLAN B
on A.FID = B.FID
Where A.F_contractnumber = '{item["FCONTRACTNUMBER"]}' and A.FSaleOrgId={item["FORGID"]}
Order by F_ORDER desc ,FENTRYID desc ");
var sql2List = DBUtils.ExecuteDynamicObject(Context, sql2);
//如果只有一个直接赋值
if (sql2List.Count == 1)
{
string sql3 = string.Format(@"Update T_SAL_ORDERPLAN Set F_MBBA_Decimal_uky =ISNULL(F_MBBA_Decimal_uky,0)- {0} Where FENTRYID = {1};", FALLAMOUNT, sql2List[0]["FENTRYID"]);
DBUtils.ExecuteDynamicObject(Context, sql3);
}
if (sql2List.Count > 1)
{
for (int i = 0; i < sql2List.Count; i++)
{
//判断核销顺序是否为空
//if (!string.IsNullOrWhiteSpace(sql2List[i]["F_ORDER"]?.ToString()))
//{
//判断核销金额是否大于按照排序对冲金额
decimal FRECADVANCEAMOUNT = Convert.ToDecimal(sql2List[i]["FRECADVANCEAMOUNT"]); //应收款金额
decimal F_MBBA_Decimal_uky = Convert.ToDecimal(sql2List[i]["F_MBBA_Decimal_uky"]); //累计核销金额
if (FALLAMOUNT > 0 && F_MBBA_Decimal_uky > 0)
{
decimal fAmount = 0;
//判断是否整条对冲
if (FALLAMOUNT - F_MBBA_Decimal_uky >= 0)
{
fAmount = F_MBBA_Decimal_uky;
}
else
{
fAmount = FALLAMOUNT;
}
string sql3 = string.Format(@"Update T_SAL_ORDERPLAN Set F_MBBA_Decimal_uky = ISNULL(F_MBBA_Decimal_uky,0)-{0} Where FENTRYID = {1};", fAmount, sql2List[i]["FENTRYID"]);
DBUtils.ExecuteDynamicObject(Context, sql3);
FALLAMOUNT = FALLAMOUNT - fAmount;
}
//}
}
}
}
}
}
}
}

45
Pilot_KD_Parino/VRYF_FHTZDHXJL/UpdateAmount.cs
View File

@ -13,7 +13,7 @@ using Kingdee.BOS.App.Data;
namespace Pilot_KD_Parino.VRYF_FHTZDHXJL namespace Pilot_KD_Parino.VRYF_FHTZDHXJL
{ {
[HotUpdate] [HotUpdate]
[Description("核销记录单(发货通知单)--更新销售订单金额")] [Description("核销记录单(发货通知单)--更新累计核销金额")]
public class UpdateAmount : AbstractOperationServicePlugIn public class UpdateAmount : AbstractOperationServicePlugIn
{ {
public override void AfterExecuteOperationTransaction(AfterExecuteOperationTransaction e) public override void AfterExecuteOperationTransaction(AfterExecuteOperationTransaction e)
@ -23,9 +23,11 @@ namespace Pilot_KD_Parino.VRYF_FHTZDHXJL
{ {
var Billobj = rows.DataEntity; var Billobj = rows.DataEntity;
//获取销售订单核销金额数据 //获取销售订单核销金额数据
SqlManage.UpdateSalOrderAmount(this.Context, Convert.ToString(Billobj["Id"])); string sql = string.Format(@"/*dialect*/ EXEC UpdateSalOrderAmount2 {0} ", Convert.ToString(Billobj["Id"]));
//执行SQL
DBUtils.ExecuteDynamicObject(Context, sql);
string sql1 = string.Format(@"/*dialect*/Select B.FBILLNO2,B.FALLAMOUNT2 From VRYF_t_Cust100015 A string sql1 = string.Format(@"/*dialect*/Select B.FBILLNO2,B.FALLAMOUNT2,FORGID,FCONTRACTNUMBER From VRYF_t_Cust100015 A
JOIN VRYF_t_Cust_Entry100024 B JOIN VRYF_t_Cust_Entry100024 B
on A.FID = B.FID Where A.FID = '{0}'", Billobj["Id"]); on A.FID = B.FID Where A.FID = '{0}'", Billobj["Id"]);
@ -42,7 +44,7 @@ namespace Pilot_KD_Parino.VRYF_FHTZDHXJL
JOIN JOIN
T_SAL_ORDERPLAN B T_SAL_ORDERPLAN B
on A.FID = B.FID on A.FID = B.FID
Where A.FDOCUMENTSTATUS = '{item["FDOCUMENTSTATUS"]}' and A.FSaleOrgId={item["FORGID"]} Where A.F_contractnumber = '{item["FCONTRACTNUMBER"]}' and A.FSaleOrgId={item["FORGID"]}
Order by F_ORDER ,FENTRYID"); Order by F_ORDER ,FENTRYID");
var sql2List = DBUtils.ExecuteDynamicObject(Context, sql2); var sql2List = DBUtils.ExecuteDynamicObject(Context, sql2);
@ -59,24 +61,27 @@ namespace Pilot_KD_Parino.VRYF_FHTZDHXJL
//判断核销顺序是否为空 //判断核销顺序是否为空
//if (!string.IsNullOrWhiteSpace(sql2List[i]["F_ORDER"]?.ToString())) //if (!string.IsNullOrWhiteSpace(sql2List[i]["F_ORDER"]?.ToString()))
//{ //{
//判断核销金额是否大于按照排序对冲金额 //判断核销金额是否大于按照排序对冲金额
decimal FRECADVANCEAMOUNT = Convert.ToDecimal(sql2List[i]["FRECADVANCEAMOUNT"]); decimal FRECADVANCEAMOUNT = Convert.ToDecimal(sql2List[i]["FRECADVANCEAMOUNT"]);
if (FALLAMOUNT > 0) decimal F_MBBA_Decimal_uky = Convert.ToDecimal(sql2List[i]["F_MBBA_Decimal_uky"]);
if (FALLAMOUNT > 0 && F_MBBA_Decimal_uky < FRECADVANCEAMOUNT)
{
decimal fAmount = 0;
decimal chazhi = FRECADVANCEAMOUNT - F_MBBA_Decimal_uky;
//判断是否整条对冲
if (FALLAMOUNT - chazhi >= 0)
{ {
decimal fAmount = 0; fAmount = chazhi;
//判断是否整条对冲
if (FALLAMOUNT - FRECADVANCEAMOUNT >= 0)
{
fAmount = FRECADVANCEAMOUNT;
}
else
{
fAmount = FALLAMOUNT;
}
string sql3 = string.Format(@"Update T_SAL_ORDERPLAN Set F_MBBA_Decimal_uky = '{0}' Where FENTRYID = '{1}';", fAmount, sql2List[i]["FENTRYID"]);
DBUtils.ExecuteDynamicObject(Context, sql3);
} }
FALLAMOUNT -= FRECADVANCEAMOUNT; else
{
fAmount = FALLAMOUNT;
}
string sql3 = string.Format(@"Update T_SAL_ORDERPLAN Set F_MBBA_Decimal_uky = ISNULL(F_MBBA_Decimal_uky,0)+{0} Where FENTRYID = '{1}';", fAmount, sql2List[i]["FENTRYID"]);
DBUtils.ExecuteDynamicObject(Context, sql3);
FALLAMOUNT = FALLAMOUNT - fAmount;
}
//} //}
} }
} }

50
发货通知单的核销记录反审核.sql Normal file
View File

@ -0,0 +1,50 @@
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
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'

50
发货通知单的核销记录审核.sql Normal file
View File

@ -0,0 +1,50 @@
ALTER proc UpdateSalOrderAmount2
(
@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
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'