My script automatically changes orders from Quote to Standard when the script is executed (hourly via Windows Task Scheduler). I wanted to change the script so that after we added a checkbox in the AR_Customer table (UDF_DISABLE_AUTOFLIP), so that customers who had field checked, would not have their orders automatically changed to Standard. So currently the script is doing that by: (my test changes in red ) Dim ojSalesOrder Dim ojCust Set oSS = oScript.NewObject("SY_Session") Set ojSalesOrder = oScript.NewObject("SO_SalesOrder_BUS", oSS) ojSalesOrder.nMoveFirst() Do until CBool(ojSalesOrder.nEOF) dOrderDate = "" 'Date of currently examined salesorder dShipExpireDate = "" ' Date Quote is to be shipped dOrderCreated = "" 'Time of Quotes beyond which are not considered for changing sOrderNo = "" 'Currently examined salesorder number sOrderStatus = "" ' Added to filter by Order Status sTermsCode = "" 'Currently examined salesorder's TermsCode sOrderType = "" 'Currently examined salesorder's OrderType sTimeCreated = "" 'Currently examined salesorder's TimeCreated sARDivisionNo = "" ' Added to filter by Customer Type sCustomerNo = "" ' Added to filter by Customer Type sCustomerType = "" ' Added to filter by Customer Type sDisableAutoFlip = "" 'Added to filter out customers manually set not to autofilp retVal = ojSalesOrder.nGetValue("SalesOrderNo$",sOrderNo) retVal = ojSalesOrder.nGetValue("DateCreated$",dOrderDate) retVal = ojSalesOrder.nGetValue("OrderType$",sOrderType) retVal = ojSalesOrder.nGetValue("ShipExpireDate$",dShipExpireDate) retVal = ojSalesOrder.nGetValue("OrderStatus$",sOrderStatus) retVal = ojSalesOrder.nGetValue("TermsCode$",sTermsCode) retVal = ojSalesOrder.nGetValue("ARDivisionNo$", sARDivisionNo) retVal = ojSalesOrder.nGetValue("CustomerNo$", sCustomerNo) Set ojCust = ojSalesOrder.oGetChildHandle("CustomerNo") ' get AR_Customer_svc object handle retVal = ojCust.nFind(sARDivisionNo & sCustomerNo) retVal = ojCust.nGetValue("CustomerType$", sCustomerType) retVal = ojCust.nGetValue("UDF_DISABLE_AUTOFLIP$", sDisableAutoFlip) If sOrderType = Q And sOrderStatus H And sCustomerType 50 And sTermsCode "" And sDisableAutoFlip Y Then ..... ojSalesOrder.nMoveNext() I am pretty sure the cause of it not working is because UDF_DISABLE_AUTOFLIP is not in the AR_Customer_svc object. I think I need to reference that udf in AR_Customer_BUS.
↧