使用VB.NET和QBFC库将自定义字段添加到客户的QuickBooks预估

Question

对于我的生活，我似乎就是不能让它工作。情况是这样的:我正在尝试将已经存在的客户自定义字段(已有定义，但没有值)添加到我当前通过QBSDK 12创建的预估中。到目前为止，我可以将预估、自定义字段添加到行项目中，但不能在预估标题区域(为客户信息保留)中添加属于客户的自定义字段。

下面是我尝试的头部代码(不起作用)：

        If Not (DE.sconProof(x) Is Nothing) Or Not (DE.sconProof(x) = "") Then
      Dim DataExtModRq As IDataExtMod
     DataExtModRq = requestMsgSet.AppendDataExtModRq
             ' DataExtModRq.ORListTxn.TxnDataExt.TxnID.SetValue(sEstID)


      DataExtModRq.OwnerID.SetValue("0")
      DataExtModRq.DataExtName.SetValue("Proof Required")
      DataExtModRq.ORListTxn.TxnDataExt.TxnDataExtType.SetValue(ENTxnDataExtType.tdetEstimate)
      DataExtModRq.ORListTxn.ListDataExt.ListObjRef.FullName.SetValue(DE.sconCompany(x))
      DataExtModRq.DataExtValue.SetValue(DE.sconProof(x))
    End If

以下是我在估算内的行项目的工作代码(确实有效)：

          If Not DE.sitemDateNeeded(i) = "" Then
         Dim DataExt53 As IDataExt
         DataExt53 = EstimateLineAdder.EstimateLineAdd.DataExtList.Append()
         'Set field value for OwnerID
         DataExt53.OwnerID.SetValue("0")
         DataExt53.DataExtName.SetValue("In Hands By")
         'Set field value for DataExtValue
         DataExt53.DataExtValue.SetValue(DE.sitemDateNeeded(i))
      End If
      If Not DE.sitemSPC(i) = "" Then
         Dim DataExt54 As IDataExt
         DataExt54 = EstimateLineAdder.EstimateLineAdd.DataExtList.Append
         DataExt54.DataExtName.SetValue("SPC")
         DataExt54.DataExtValue.SetValue(DE.sitemSPC(i))
      End If

错误消息说我缺少TxnID，但我没有修改估计值，我正在创建新的估计值。我也尝试过"IDataExt“，但效果并不好。如果我需要保存新创建的预估，然后返回并添加TxnID，这将非常奇怪，而且我不确定有什么简单的方法可以做到这一点。我应该能够将数据添加到估算的标题部分的自定义字段中，而不会经历如此多的“胡言乱语”。如果你知道答案，请帮帮我。

Answer 1

我想通了..。

    If Not (DE.sconProof(x) Is Nothing) Or Not (DE.sconProof(x) = "") Then
      Dim DataExtModRq As IDataExtMod
     DataExtModRq = requestMsgSet.AppendDataExtModRq

      DataExtModRq.DataExtName.SetValue("Proof Required")
      DataExtModRq.DataExtValue.SetValue(DE.sconProof(x))
      DataExtModRq.OwnerID.SetValue("0")
      'DataExtModRq.ORListTxn.TxnDataExt.TxnDataExtType.SetValue(ENTxnDataExtType.tdetEstimate)
      DataExtModRq.ORListTxn.ListDataExt.ListDataExtType.SetValue(ENListDataExtType.ldetCustomer)
      DataExtModRq.ORListTxn.ListDataExt.ListObjRef.FullName.SetValue(DE.sconCompany(x))
      'DataExtModRq.ORListTxn.TxnDataExt.TxnID.SetValue(sTxnID)


    End If