I'm not getting an error message but it is not importing. I'm I using the correct program? I thought it might be the nsetnewkey issue. Are any of you importing directly into the history?
retval = oSS.nSetDate("A/R", "20130101")
retval = oSS.nSetModule("A/R")
retval = oSS.nSetProgram(oSS.nLookupTask("AR_InvoiceHistoryInquiry_UI"))
Set oTrackingBus = oScript.NewObject("AR_InvoiceHistoryTracking_BUS", oSS)
Dim testkey
testkey = invoiceno + "000000" + "0001"
retval = oTrackingBus.nsetnewkey(testkey)
retval = oTrackingBus.nsetvalue("InvoiceNo$", invoiceno)
retval = oTrackingBus.nsetvalue("HeaderSeqNo$", "000000")
retval = oTrackingBus.nsetvalue("TrackingID$", trackno)
retval = oTrackingBus.nsetvalue("PackageNo$", "0001")
retval = oTrackingBus.nsetvalue("Comment$", comment)
retval = oTrackingBus.nsetvalue("StarshipShipvia$", carrier)
retval = oTrackingBus.nsetvalue("Weight", weight)
retval = oTrackingBus.nsetvalue("FreightAmt", packagecost)
retval = oTrackingBus.nsetvalue("FreightAmtAddedToInv", packagecost)
retval = oTrackingBus.nwrite