【问题】
因为这里收款单不是由应收下推过来的，需要一张收款单核销多张应收单，人工核销很费时费力
【方法】
在收款单前面二开一个销售回款认领单，可以加上认领的哪些应收单(房地产收款时候提交的请款单就是从应收单下推的)，
第一种：在收款单审核的时候自动核销。
第二种：在手工核销界面，增加按钮，根据认领的应收单以及收款类型自动匹配借方应收单并勾选
【详细】
在收款单审核时候自动核销相关联的多张认领的应收单(细节包含收款计划的认领金额)，就可以废除手工核销操作，不需要人工一张张寻找。
第一种：在收款单审核的时候自动核销。
Int64 FID = 0;
foreach (var data in e.DataEntitys)
{
FID = Convert.ToInt64(data["Id"]);
}
List<SpecialMatchDateForUser> dataList = new List<SpecialMatchDateForUser>();
string str_search = string.Format(@"select t1.fid,t2.fentryid,t2.fseq,t2.fpayamountfor-t2.frelatehadpayamount as famount,F_MXC_CLAIMAMOUNT from t_ar_receivable t1
inner join t_ar_receivableplan t2 on t2.fid=t1.fid
left join T_AR_RECEIVEBILLSUb t3 on t3.F_MXC_receivableNO=fbillno and F_MXC_SKPlan=F_adf_Assistant where
t3.fentryID in (select fentryID from T_AR_RECEIVEBILLSUb where FentryID=(select FentryID from T_AR_RECEIVEBILLSRCENTRY where fid={0})) ", FID);
DynamicObjectCollection docData = DBUtils.ExecuteDynamicObject(this.Context, str_search);
if (docData == null || docData.Count <= 0)
{
return;
}
//构造核销对象
foreach (var obj in docData)
{
SpecialMatchDateForUser userData = new SpecialMatchDateForUser();
userData.FBillId = Convert.ToInt64(obj["FID"]);
userData.FEntryID = Convert.ToInt64(obj["FENTRYID"]);
userData.FFormId = BusinessObjectConst.AR_RECEIVABLE;
userData.FMatchType = MatchType.RecableRec.ToString();
// 认领金额
userData.FTheMatchAmount = Convert.ToDecimal(obj["F_MXC_CLAIMAMOUNT"]);
dataList.Add(userData);
}
foreach (var data in e.DataEntitys)
{
long billId = Convert.ToInt64(data["ID"]);
DynamicObjectCollection objs = data["RECEIVEBILLENTRY"] as DynamicObjectCollection;
foreach (var entry in objs)
{
SpecialMatchDateForUser userData = new SpecialMatchDateForUser();
userData.FBillId = billId;
userData.FEntryID = Convert.ToInt64(entry["ID"]);
userData.FFormId = BusinessObjectConst.AR_RECEIVEBILL;
userData.FMatchType = MatchType.RecableRec.ToString();
// userData.FSeq = Convert.ToInt64(entry["Seq"]);
userData.FTheMatchAmount = Convert.ToDecimal(entry["RECTOTALAMOUNTFOR"]) - Convert.ToDecimal(entry["ReFundAmount"]);
dataList.Add(userData);
}
}
//构造核销参数
MatchParameters para = new MatchParameters();
para.MatchType = "3";
para.MatchMethodID = 36; //外部匹配核销，38是手工特殊核销，也就是先走匹配，匹配之后剩余的金额会进行特殊核销
//36外部特殊（匹配核销）
para.UserId = this.Context.UserId;
para.SelectedSchemeId = new List<object> { 20008 };// 核销方案内码
para.SpecialMatch = false;///外部特殊（匹配核销）
para.MatchFromId = "AP_PayMatck";
para.BatchGeneRecord = false;//应收收款特殊核销合并产生核销记录
// para.IsBadDebt
//调用接口
// var o = Kingdee.K3.FIN.Contracts.ServiceFactory.GetService< MatchService>(this.Context);
Kingdee.K3.FIN.App.Core.Match.MatchService matchService = new MatchService();
IOperationResult result= matchService.SpecialMatchForUser(this.Context, para, dataList);
// matchService.SpecialMatch(this.Context, para, dataList);
---------------------------------------------------------------------------
代码特别说明：
用这个接口“ Kingdee.K3.FIN.Contracts.ServiceFactory.GetService”：提示需要认证
"服务未注册：Kingdee.K3.FIN.App.Core.Match.MatchService, Kingdee.K3.FIN.App.Core, Version=8.1.620.12, Culture=neutral, PublicKeyToken=null"
直接跳过用下面这个“ Kingdee.K3.FIN.App.Core.Match.MatchService”接口即可。
---------------------------------------------------------------------------
第二种：在应收收款手工核销界面增加按钮自动勾选匹配的应收单。
效果图：
按钮代码：
if (e.BarItemKey == "MXC_tbCLAIM")
{
//
////借方
Entity FDebitEntry = this.Model.BillBusinessInfo.GetEntity("FDebitEntry");
DynamicObjectCollection rowsDebit = base.Model.GetEntityDataObject(FDebitEntry);
//贷方
Entity FCreditEntry = this.Model.BillBusinessInfo.GetEntity("FCreditEntry");
DynamicObjectCollection rows = base.Model.GetEntityDataObject(FCreditEntry);
int Index = this.Model.GetEntryCurrentRowIndex("FCreditEntry");
DynamicObject objs = rows[Index];
string FSRCBILLNO = objs["FSRCBILLNOC"].ToString();
string str = @"select F_MXC_PayRequestNO,F_MXC_SEQ,F_MXC_receivableNO,F_MXC_SKPlan,p.fname SKPlanName,F_MXC_PAYAMOUNTFOR,F_MXC_CLAIMAMOUNT from T_AR_RECEIVEBILL a
left join T_AR_RECEIVEBILLSRCENTRY b on a.fid=b.fid
left join T_AR_RECEIVEBILLSUb c on c.fentryid=b.fentryid
left join T_SaleOrderPlan_l p on p.fid=F_MXC_SKPlan where fbillno='" + FSRCBILLNO + "'";
DynamicObjectCollection Objsubs = DBServiceHelper.ExecuteDynamicObject(this.Context, str);
string F_MXC_receivableNO = "";
string F_MXC_SKPlan = "";
string F_MXC_receivableNO_d = "";
string F_MXC_SKPlan_d = "";
decimal FMaxMatchAmountD = 0;
foreach (DynamicObject Objsub in Objsubs)
{
F_MXC_receivableNO = Objsub["F_MXC_receivableNO"].ToString();
F_MXC_SKPlan = Objsub["SKPlanName"].ToString();
FMaxMatchAmountD = decimal.Parse(Objsub["F_MXC_CLAIMAMOUNT"].ToString());
int rowIndex = 0;
foreach (DynamicObject Obj in rowsDebit)
{
F_MXC_receivableNO_d = Obj["FSRCBILLNOD"].ToString();
F_MXC_SKPlan_d = Obj["F_adf_AssistantD"].ToString();
if (F_MXC_receivableNO == F_MXC_receivableNO_d && F_MXC_SKPlan == F_MXC_SKPlan_d)
{
this.Model.SetValue("FTheIsMatchD", true, rowIndex);
this.Model.SetValue("FMaxMatchAmountD", FMaxMatchAmountD, rowIndex);
}
rowIndex = rowIndex + 1;
}
}
}
推荐阅读