5

我正在创建一个应用程序以将扫描的文档附加到 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 块时，我会得到其他信息：“1320000126 - 不正确的更新标头字段”。我使用下面的代码：

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 问题。我希望你能帮助我。提前致谢。

问候，佩德罗

4

2 回答 2

0 
{  
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 )

块引用

于 2017-09-28T14:05:19.383 回答
0

我通常这样做，它的工作原理！

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
于 2016-09-13T13:13:38.240 回答