QBFC를 사용하여 QuickBooks에 그룹 항목 추가

Question

여기에서 약간의 도움이 필요합니다.

QBFC12를 사용하여 항목 목록이있는 그룹 항목을 추가하려고하는데 문제가 있습니다. 나는 인벤토리 어셈블리 (Inventory Assembly)와 같은 방법을 만들려고했는데 잘 작동한다. 그러나이 하나는 나를 끔찍하게 느끼게합니다. 요청이 처리되면 요청에 누락 된 필드가 있음을 알리는 오류를 반환합니다. 희망을 가지고 누구나 나를 도와 줄 수 있기를 바랍니다. 나는 당신이 당신의 그룹 행을 추가하는 방법에 문제가 있다고 생각하지만, 아직 테스트하지 않은

Dim msgSetRequest As IMsgSetRequest 

Dim QBSM As New QBSessionManager 

Try 

    With QBSM 

     .OpenConnection("", "QB Test") 

     .BeginSession("", ENOpenMode.omDontCare) 

    End With 

Catch ex As Exception 

    Throw New Exception(ex.Message) 

    Return False 

End Try 

msgSetRequest = QBSM.CreateMsgSetRequest("US", 8, 0) 
msgSetRequest.Attributes.OnError = ENRqOnError.roeStop 

msgSetRequest.ClearRequests() 

Dim gAdd As IItemGroupAdd = msgSetRequest.AppendItemGroupAddRq 
gAdd.IsActive.SetValue(True) 

gAdd.Name.SetValue("Group Name") 

gAdd.ItemDesc.SetValue("Group Description") 



For Each gListItem As clsInventoryGroupItem In gItem.InventoryGroupItemList 

     Dim gItemAdd As IItemGroupLine = msgSetRequest.AppendItemGroupAddRq.ItemGroupLineList.Append 

     gItemAdd.ItemRef.FullName.SetValue(gListItem.ItemRef) 

     gItemAdd.Quantity.SetValue(gListItem.Quantity) 

Next 



Dim response As IMsgSetResponse = QBSM.DoRequests(msgSetRequest) 

If response.ResponseList.GetAt(0).StatusCode = 0 Then 

    MessageBox.Show("Success") 

else 

    MessageBox.Show("An Error occurred while inserting Group") 

endif 

Answer 1

:

감사

은 여기 아래에있는 내 코드입니다. msgSetRequest에서 ItemGroupLineList.Append를 사용하는 대신 IItemGroupAdd 객체 인 gAdd에서 호출해야합니다. 여기에 제가 생각해 냈지만 테스트하지 않았습니다.

Dim msgSetRequest As IMsgSetRequest 

Dim QBSM As New QBSessionManager 

Try 

    With QBSM 

     .OpenConnection("", "QB Test") 

     .BeginSession("", ENOpenMode.omDontCare) 

    End With 

Catch ex As Exception 

    Throw New Exception(ex.Message) 

    Return False 

End Try 

msgSetRequest = QBSM.CreateMsgSetRequest("US", 8, 0) 
msgSetRequest.Attributes.OnError = ENRqOnError.roeStop 

msgSetRequest.ClearRequests() 

Dim gAdd As IItemGroupAdd = msgSetRequest.AppendItemGroupAddRq 
gAdd.IsActive.SetValue(True) 

gAdd.Name.SetValue("Group Name") 

gAdd.ItemDesc.SetValue("Group Description") 



For Each gListItem As clsInventoryGroupItem In gItem.InventoryGroupItemList 

     Dim gItemAdd As IItemGroupLine = gAdd.ItemGroupLineList.Append 

     gItemAdd.ItemRef.FullName.SetValue(gListItem.ItemRef) 

     gItemAdd.Quantity.SetValue(gListItem.Quantity) 

Next 



Dim response As IMsgSetResponse = QBSM.DoRequests(msgSetRequest) 

If response.ResponseList.GetAt(0).StatusCode = 0 Then 

    MessageBox.Show("Success") 

else 

    MessageBox.Show("An Error occurred while inserting Group") 

endif