How do you Create a Receipt of Invoice Batch. the code below creates a Receipt of Goods Batch. Set oScript = CreateObject ("ProvideX.Script") oScript.Init("my actual path") ' Set oSS = oScript.NewObject("SY_Session") r = oSS.nLogon() If r=0 Then r = oss.nSetUser("realuser","realpassword") End If r = oss.nsetcompany("a real company") r = oSS.nSetDate("P/O","20140725") r = oSS.nSetModule("P/O") poroi = oSS.nSetProgram(oSS.nLookupTask("PO_ReceiptOfInvoice_Ui")) r = oSS.nSetProgram(poroi) Set o = oScript.NewObject("PO_Receipt_Bus", oSS) BatchNo = "" PrivateFlag = "N" CommentText = "yes it works" r = o.nSetValue("TypeOfReceipt$","I") r = o.nSelectNewBatch(BatchNo, PrivateFlag, CommentText) wscript.echo BatchNo r = o.DropObject() o = 0
↧