Sub CreateUofMSchedule()
Dim uom As New taIVCreateUOFMScheduleHeader
Dim bReturn As Boolean
Dim uomDetail1 As New taIVCreateUOFMScheduleLine_ItemsTaIVCreateUOFMScheduleLine
Dim uomDetail2 As New taIVCreateUOFMScheduleLine_ItemsTaIVCreateUOFMScheduleLine
Dim oeConnectType As New eConnectType
'this is our eConnect helper function, located here: http://dyndeveloper.com/thread.aspx?Threadid=1117
Dim oeConnectFunctions As New eConnect11Lib.GP11.eConnectFunctions("vmGP11", "TWO")
Dim uomtype As New Microsoft.Dynamics.GP.eConnect.Serialization.IVCreateUOFMScheduleType
With uomDetail1
.UOMSCHDL = "MYUOM"
.UOFM = "EACH"
.EQUIVUOM = "EACH"
.EQUOMQTY = 1.0
End With
With uomDetail2
.UOMSCHDL = "MYUOM"
.UOFM = "SIXPACK"
.EQUIVUOM = "EACH"
.EQUOMQTY = 6
End With
Dim uomDetails(1) As taIVCreateUOFMScheduleLine_ItemsTaIVCreateUOFMScheduleLine
uomDetails(0) = uomDetail1
uomDetails(1) = uomDetail2
uomtype.taIVCreateUOFMScheduleLine_Items = uomDetails
With uom
.UMSCHDSC = "MYUOM"
.UOMSCHDL = "MYUOM"
.BASEUOFM = "EACH"
.UMDPQTYS = 5
End With
uomtype.taIVCreateUOFMScheduleHeader = uom
ReDim Preserve oeConnectType.IVCreateUOFMScheduleType(0)
'this is our eConnect helper function, located here: http://dyndeveloper.com/thread.aspx?Threadid=1117
oeConnectType.IVCreateUOFMScheduleType(0) = uomtype
bReturn = oeConnectFunctions.CreateEntity(oeConnectType)
End Sub