I am stuck in other problem in the same code. I want to get values from Lines tab in Sales Order Entry like Extension Amount, Quantity and Item code and want to store them in UDT as well. without these my code is working fine. But while importing these I am unable to get values from these fields. My code is like this. myUDT = 0 myUDT = oSession.GetObject("CM_UDTMaint_bus", "SO_UDT_PRODUCTION") If myUDT = 0 Then dbg = oScript.DebugPrint("Unable to access the UDT") end if if myUDT 0 then Set myUDT = oSession.AsObject(myUDT) else retVal = oSession.AsObject(oSession.UI).MessageBox("Insufficient permissions for this action") end if workordernumber = "" shipdate = "" deliverdate = "" orderdate = "" customernumber = "" shipto = "" vin = "" make = "" model = "" yr = "" salesman = "" status = "" qunatity = "" amount = "" result = oBusObj.GetValue("SALESORDERNO$",workordernumber) 'msgbox("SALESORDERNO",& workordernumber) result = oBusObj.GetValue("ShipExpireDate$",shipdate) 'msgbox("ShipExpireDate",& shipdate) result = oBusObj.GetValue("UDF_SHIP_DATE$",deliverdate) result = oBusObj.GetValue("OrderDate$",orderdate) result = oBusObj.GetValue("CustomerNo$",customernumber) result = oBusObj.GetValue("ConfirmTo$",shipto) result = oBusObj.GetValue("UDF_VIN$",vin) result = oBusObj.GetValue("UDF_MAKE$",make) result = oBusObj.GetValue("UDF_MODEL$",model) 'result = oBusObj.GetValue("UDF_YEAR$",yr) result = oBusObj.GetValue("UDF_SALESMAN$",salesman) result = oBusObj.GetValue("UDF_STATUS$",status) dim key key = workordernumber retVal = myUDT.SetKey(key) retVal= myUDT.SetValue("UDF_SHIP_DATE$",shipdate) retVal= myUDT.SetValue("UDF_DELIVER_DATE$",deliverdate) retVal= myUDT.SetValue("UDF_ORDER_DATE$",orderdate) retVal= myUDT.SetValue("UDF_CUSTOMER_NUMBER$",customernumber) retVal= myUDT.SetValue("UDF_SHIP_TO$",shipto) retVal= myUDT.SetValue("UDF_VIN$",vin) retVal= myUDT.SetValue("UDF_MAKE$",make) retVal= myUDT.SetValue("UDF_MODEL$",model) retVal= myUDT.SetValue("UDF_YEAR$",yr) retVal= myUDT.SetValue("UDF_SALESMAN$",salesman) retVal= myUDT.SetValue("UDF_STATUS$",status) If ItemType 0 then retVal = oItem.Find(itemCode) ItemCode = 0 retVal = oSO_SalesOrderDetail.GetValue("ExtensionAmt$", amount) retVal = myUDT.SetValue("UDF_AMOUNT$",amount) retVal = oSO_SalesOrderDetail.GetValue("QuantityOrdered$",quantity) retVal = myUDT.SetValue("UDF_QUANTITY$",quantity) retVal = oSO_SalesOrderDetail.GetValue("Item",item) retVal = myUDT.SetValue("UDF_PART_1$",item) retVal = myUDT.SetValue("UDF_PART_2$",item) retVal = myUDT.SetValue("UDF_PART_3$",item) retVal = myUDT.SetValue("UDF_PART_4$",item) retVal = myUDT.SetValue("UDF_PART_5$",item) end If retVal = myUDT.Write() Please check where i am doing wrong to get values from Lines tab in Sales Order
↧