点击此处--->   群内免费提供SAP练习系统（在群公告中）

加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）

你好！

通过DI一揽子协议创建时遇到问题。

在执行方法AddBlanketAgreement BlanketAgreementsService对象后，我们收到：

-文本" PlannedAmountLC中的无效货币OAT1"或

-一揽子协议是使用主要货币系统而非外币创建的

当我们在用户界面中创建此一揽子协议手册时，我们已经取得了成功。 也许我们必须更改系统主设置？

我们正在等待一些建议，谢谢！

我们的主要代码行：

 SAPbobsCOM.BlanketAgreementsService oBargSer = oCompanyService.GetBusinessService（SAPbobsCOM.ServiceTypes.BlanketAgreementsService）作为SAPbobsCOM.BlanketAgreementsService;
 SAPbobsCOM.BlanketAgreement oBarg = oBargSer.GetDataInterface（SAPbobsCOM.BlanketAgreementsServiceDataInterfaces.basBlanketAgreement）as SAPbobsCOM.BlanketAgreement;
 SAPbobsCOM.BlanketAgreements_ItemsLine oBarg_i;
 SAPbobsCOM.BlanketAgreementParams oParams = oBargSer.GetDataInterface（SAPbobsCOM.BlanketAgreementsServiceDataInterfaces.basBlanketAgreementParams）作为SAPbobsCOM.BlanketAgreementParams;
 SAPbobsCOM.Currencies oCurr = oCompany.GetBusinessObject（SAPbobsCOM.BoObjectTypes.oCurrencyCodes）作为SAPbobsCOM.Currencies;
 oBarg.EndDate = Convert.ToDateTime（" 12,31，" + DateTime.Today.Year +""）; //датазакінчення-кінецьроку
 query2 ="从OCRD U_1C_GUID ='"中选择CardCode ="" + oRset.Fields.Item（" BpGUID"）。Value.ToString（）+"'";
 oRset2.DoQuery（query2）;
 if（oRset2.RecordCount == 1）
 oBarg.BPCode = oRset2.Fields.Item（" CardCode"）。Value.ToString（）;
 oCurr.GetByKey（oCurr.Code = oRset.Fields.Item（" BPCurr"）。Value.ToString（））;
 oBarg.BPCurrency = oCurr.Code;
 oBarg.AgreementMethod = SAPbobsCOM.BlanketAgreementMethodEnum.amMonetary;
 oBarg.Description = oRset.Fields.Item（" Descript"）。Value.ToString（）;
 sql ="从OHEM中选择empID，其中ExtEmpNo = N'" + oRset.Fields.Item（" Owner"）。Value.ToString（）+"'";
 dt = select（sql）;
 如果（dt.Rows.Count> 0）
 oBarg.Owner = Convert.ToInt32（dt.Rows [0] [0]）;
 sql ="从OCTG WHERE PymntGroup = N'中选择GroupNum" + oRset.Fields.Item（" GroupNum"）。Value.ToString（）+"'";
 dt = select（sql）;
 如果（dt.Rows.Count> 0）
 oBarg.PaymentTerms = Convert.ToInt32（dt.Rows [0] [0]）;
 sql ="从OPYM WHERE描述= N'"中选择PayMethCod + oRset.Fields.Item（" PayMethod"）。Value.ToString（）+"'";
 dt = select（sql）;
 如果（dt.Rows.Count> 0）
 oBarg.PaymentMethod = dt.Rows [0] [0] .ToString（）;
 如果（oBarg.BlanketAgreements_ItemsLines.Count == 1）
 oBarg.BlanketAgreements_ItemsLines.Remove（0）;
 oBarg_i = oBarg.BlanketAgreements_ItemsLines.Add（）;
 oBarg_i.PriceCurrency = oCurr.Code;
 oBarg_i.PlannedAmountFC = 1.0000;
 oBarg_i.PlannedAmountLC = 28.0000;
 oBarg.Status = SAPbobsCOM.BlanketAgreementStatusEnum.asApproved;
 oBargSer.AddBlanketAgreement（oBarg）;