我正在创建一个应用程序，将扫描的文档附加到SAP文档中，但我在这个过程中遇到了一些问题。我正在使用SAP BO 9 PL8，发现了下一个问题：
当我尝试使用update方法(使用attachments2对象)在现有附件中添加新的附件行时，DI会尝试检查较旧的行，并且该文件可能不存在于原始源路径中。所以，update方法报告了一个错误。我使用以下代码：
Attachments2 oAtt = oCompany.GetBusinessObject(BoObjectTypes.oAttachments2);
if (oAtt.GetByKey(doc.AttachmentEntry))
{
oAtt.Lines.Add();
oAtt.Lines.FileName = oAttNew.Lines.FileName;
oAtt.Lines.FileExtension = oAttNew.Lines.FileExtension;
oAtt.Lines.SourcePath = oAttNew.Lines.SourcePath;
oAtt.Lines.Override = BoYesNoEnum.tYES;
if (oAtt.Update() != 0)
throw new Exception(oCompany.GetLastErrorDescription());
}
SAP中有一些文档具有附件选项卡，但无法通过DI访问此功能。例如，物料主数据(oItems)或库存转移(oStockTransfer)。它们有一个类似于Documents对象的AttachmentEntry字段，但这些对象没有添加附件的属性，所以我必须为这些文档创建一个活动。
Documents doc = oCompany.GetBusinessObject(oType);
doc.GetByKey(int.Parse(docEntry));
doc.AttachmentEntry = oAtt.AbsoluteEntry;
StockTransfer oStock = .oCompany.GetBusinessObject(BoObjectTypes.oStockTransfer);
// oStock.AttachmentEntry = oAtt.AbsoluteEntry FAIL
当我修改LandedCost对象中的AttachmentEntry属性时，当我尝试更新它时，该对象会失败。如果该对象已经有附件(手动添加)，则在新行中添加新附件即可。第一种情况的错误是：找不到匹配的记录(ODBC-2028)。当我强制执行catch块时，我会得到其他信息："132000126-更新头字段不正确"。我使用以下代码：
LandedCostsService service = oCompany.GetCompanyService().GetBusinessService(ServiceTypes.LandedCostsService);
LandedCostParams oParam = service.GetDataInterface(LandedCostsServiceDataInterfaces.lcsLandedCostParams);
LandedCost oLandedCost = service.GetDataInterface(LandedCostsServiceDataInterfaces.lcsLandedCost);
oParam.LandedCostNumber = int.Parse(docEntry);
oLandedCost = service.GetLandedCost(oParam);
if (oAtt.GetByKey(oLandedCost.AttachmentEntry)) {
// Code similar to first code block I posted
}
else
{
if (oAttNew.Add() != 0)
throw new Exception(oCompany.GetLastErrorDescription());
oAtt.GetByKey(int.Parse(oCompany.GetNewObjectKey()));
oLandedCost.AttachmentEntry = oAtt.AbsoluteEntry;
try
{
service.UpdateLandedCost(oLandedCost);
}
catch (Exception ex)
{
throw new Exception(ex.Message + oCompany.GetLastErrorDescription());
}
}
我需要知道我做错了什么，或者是否需要与SAP联系以告知这些DI问题。我希望你能帮我。提前谢谢。
谨致问候，Pedro
我通常这样做，而且效果很好！
Private Sub test_NonContinue_LandedCost()
'Sample code for the non-continuous inventory system
Dim svrLandedCost As SAPbobsCOM.LandedCostsService = oCompany.GetCompanyService().GetBusinessService(SAPbobsCOM.ServiceTypes.LandedCostsService)
Dim oLandedCost As SAPbobsCOM.LandedCost = svrLandedCost.GetDataInterface(SAPbobsCOM.LandedCostsServiceDataInterfaces.lcsLandedCost)
Dim oLandedCostEntry As Long = 0
Dim GRPOEntry As Integer = 15
'Landed cost document - item tab line 1
Dim oLandedCost_ItemLine As SAPbobsCOM.LandedCost_ItemLine
oLandedCost_ItemLine = oLandedCost.LandedCost_ItemLines.Add
oLandedCost_ItemLine.BaseDocumentType = SAPbobsCOM.LandedCostBaseDocumentTypeEnum.asGoodsReceiptPO
oLandedCost_ItemLine.BaseEntry = GRPOEntry
oLandedCost_ItemLine.BaseLine = 0
'Landed cost document - item tab line 2
oLandedCost_ItemLine = oLandedCost.LandedCost_ItemLines.Add()
oLandedCost_ItemLine.BaseDocumentType = SAPbobsCOM.LandedCostBaseDocumentTypeEnum.asGoodsReceiptPO
oLandedCost_ItemLine.BaseEntry = GRPOEntry
oLandedCost_ItemLine.BaseLine = 1
'Landed cost document - item tab line 3
'This is a split line –split from second line (BaseEntry = 13, BaseLine = 1)
oLandedCost_ItemLine = oLandedCost.LandedCost_ItemLines.Add()
oLandedCost_ItemLine.BaseDocumentType = SAPbobsCOM.LandedCostBaseDocumentTypeEnum.asGoodsReceiptPO
oLandedCost_ItemLine.BaseEntry = GRPOEntry
oLandedCost_ItemLine.BaseLine = 1
oLandedCost_ItemLine.Quantity = 2
oLandedCost_ItemLine.Warehouse = "02"
'Landed cost document - cost tab line 1
Dim oLandedCost_CostLine As SAPbobsCOM.LandedCost_CostLine
oLandedCost_CostLine = oLandedCost.LandedCost_CostLines.Add
oLandedCost_CostLine.LandedCostCode = "CB"
'Suppose the vendor currency is Foreign Currency, if in local currency should set 'oLandedCost_CostLine.amount
oLandedCost_CostLine.amount = 100
'oLandedCost_CostLine.AllocationBy = SAPbobsCOM.LandedCostAllocationByEnum.asCashValueAfterCustoms
'Landed cost document - cost tab line 2
oLandedCost_CostLine = oLandedCost.LandedCost_CostLines.Add
oLandedCost_CostLine.LandedCostCode = "EQ"
oLandedCost_CostLine.amount = 100
'oLandedCost_CostLine.AllocationBy = SAPbobsCOM.LandedCostAllocationByEnum.asCashValueAfterCustoms
'Landed cost document - cost tab line 3
oLandedCost_CostLine = oLandedCost.LandedCost_CostLines.Add
oLandedCost_CostLine.LandedCostCode = "EQ"
oLandedCost_CostLine.amount = 100
'oLandedCost_CostLine.AllocationBy = SAPbobsCOM.LandedCostAllocationByEnum.asCashValueAfterCustoms
oLandedCost_CostLine.CostType = SAPbobsCOM.LCCostTypeEnum.asVariableCosts
Dim oLandedCostParams As SAPbobsCOM.LandedCostParams = svrLandedCost.GetDataInterface(SAPbobsCOM.LandedCostsServiceDataInterfaces.lcsLandedCostParams)
'Add a landed cost
Try
oLandedCostParams = svrLandedCost.AddLandedCost(oLandedCost)
oLandedCostEntry = oLandedCostParams.LandedCostNumber
Catch ex As Exception
'exception process
MsgBox(ex.Message)
End Try
'Update a landed cost
Dim oLandedCostUpdateParams As SAPbobsCOM.LandedCostParams = svrLandedCost.GetDataInterface(LandedCostsServiceDataInterfaces.lcsLandedCostParams)
Dim oLandedCostUpdate As SAPbobsCOM.LandedCost = svrLandedCost.GetDataInterface(LandedCostsServiceDataInterfaces.lcsLandedCost)
'Operate on the landed cost
oLandedCostUpdateParams.LandedCostNumber = oLandedCostEntry
'Get the landed cost
Try
oLandedCostUpdate = svrLandedCost.GetLandedCost(oLandedCostUpdateParams)
Catch ex As Exception
'exception process
MsgBox(ex.Message)
End Try
'Split functionality, split line 1
Dim oLandedCostUpdate_ItemLine As SAPbobsCOM.LandedCost_ItemLine
oLandedCostUpdate_ItemLine = oLandedCostUpdate.LandedCost_ItemLines.Add()
oLandedCostUpdate_ItemLine.OriginLine = 1
oLandedCostUpdate_ItemLine.Quantity = 1
oLandedCostUpdate_ItemLine.Warehouse = "02"
Dim oLandedCostUpdate_CostLine As SAPbobsCOM.LandedCost_CostLine
oLandedCostUpdate_CostLine = oLandedCostUpdate.LandedCost_CostLines.Add()
oLandedCostUpdate_CostLine.LandedCostCode = "QA"
oLandedCostUpdate_CostLine.amount = 50
oLandedCostUpdate_CostLine.CostType = SAPbobsCOM.LCCostTypeEnum.asVariableCosts
oLandedCostUpdate_CostLine.AllocationBy = LandedCostAllocationByEnum.asQuantity
Try
svrLandedCost.UpdateLandedCost(oLandedCostUpdate)
Catch ex As Exception
'exception process
MsgBox(ex.Message)
End Try
End Sub
{
oAtt.Lines.Add(); <------ here i think you have a error
oAtt.Lines.FileName = oAttNew.Lines.FileName;
oAtt.Lines.FileExtension = oAttNew.Lines.FileExtension;
oAtt.Lines.SourcePath = oAttNew.Lines.SourcePath;
oAtt.Lines.Override = BoYesNoEnum.tYES;
if (oAtt.Update() != 0)
throw new Exception(oCompany.GetLastErrorDescription());
}
通常在sap的对象中，第一行是默认的，所以除非要添加多行，否则不需要添加一行。
也许应该是这样的：
for(int i = 0 ;i< xxxx; i++)
{
oAtt.Lines.setCurrentLine(i);
if(i>0)
{
oAtt.Lines.add();
}
oAtt.Lines.FileName = oAttNew.Lines.FileName;
oAtt.Lines.FileExtension = oAttNew.Lines.FileExtension;
oAtt.Lines.SourcePath = oAttNew.Lines.SourcePath;
oAtt.Lines.Override = BoYesNoEnum.tYES;
}
if (oAtt.Update() != 0)
throw new Exception(oCompany.GetLastErrorDescription());
xxxx可以是您要添加的行数或对象具有的行数(Att.lines.Count)
区块报价