Public Property Let KtItems(ByVal vNewValue As Variant)
vKtItems = vNewValue
Call SplitItems(vKtItems)
End Property
Private Sub SplitItems(ByVal itemList As String)
Dim sStr() As String
Dim ictr As Long
Set adrsKotItems = Nothing
adrsKotItems.Fields.Append "itemTy", adChar, 2
adrsKotItems.Fields.Append "itemId", adChar, 10
adrsKotItems.Fields.Append "itemNm", adVarChar, 30
adrsKotItems.Fields.Append "itemQty", adDouble
adrsKotItems.Fields.Append "itemInst", adVarChar, 30
adrsKotItems.Fields.Append "itemGrp", adChar, 2
adrsKotItems.Fields.Append "itemSubGrp", adChar, 2
adrsKotItems.Fields.Append "itemColor", adChar, 2
adrsKotItems.Fields.Append "paitemid", adChar, 10
adrsKotItems.Fields.Append "Rate", adDouble
adrsKotItems.Fields.Append "SrNo", adChar, 6
adrsKotItems.Fields.Append "CostPer", adDouble
adrsKotItems.Fields.Append "MaxDiscPer", adDouble
adrsKotItems.Fields.Append "TaxStId", adChar, 3
adrsKotItems.Fields.Append "UomId", adChar, 3
adrsKotItems.Fields.Append "itemSplSno", adDouble
adrsKotItems.Fields.Append "itemSrvIns", adVarChar, 40
adrsKotItems.Fields.Append "itemPckNo", adChar, 5
adrsKotItems.Open
sStr = Split(itemList, ",")
For ictr = 0 To UBound(sStr) Step 18
adrsKotItems.AddNew
adrsKotItems.Fields("itemTy") = sStr(ictr)
adrsKotItems.Fields("itemId") = Trim$(sStr(ictr + 1))
adrsKotItems.Fields("itemNm") = sStr(ictr + 2)
adrsKotItems.Fields("itemQty") = Val(sStr(ictr + 3))
adrsKotItems.Fields("itemInst") = sStr(ictr + 4)
adrsKotItems.Fields("itemGrp") = Trim(sStr(ictr + 5))
adrsKotItems.Fields("itemSubGrp") = sStr(ictr + 6)
adrsKotItems.Fields("itemColor") = sStr(ictr + 7)
adrsKotItems.Fields("paitemid") = Trim$(sStr(ictr + 8))
adrsKotItems.Fields("Rate") = Val(sStr(ictr + 9))
adrsKotItems.Fields("SrNo") = Val(sStr(ictr + 10))
adrsKotItems.Fields("CostPer") = Val(sStr(ictr + 11))
adrsKotItems.Fields("MaxDiscPer") = Val(sStr(ictr + 12))
adrsKotItems.Fields("TaxStId") = Trim$(sStr(ictr + 13))
adrsKotItems.Fields("UomId") = Trim$(sStr(ictr + 14))
adrsKotItems.Fields("itemSplSno") = Val(sStr(ictr + 15))
adrsKotItems.Fields("itemSrvIns") = Trim$(sStr(ictr + 16))
adrsKotItems.Fields("itemPckNo") = Val(sStr(ictr + 17))
adrsKotItems.Update
Next ictr
End Sub