Hi We are trying to create dynamic print function for OM invoice 40680 from SL6.5 sp1. By taking sample from http://www.systematicsol.com/Quick%20Print%20Button.htm
Private Sub ButtonQuickPrint_Click()
Dim CmdLine$ 'Create a variable to save the command we will use to access the report.
Dim CustId$, RefNbr$, DocType$ 'Create some other variables to store record information.
CustId = GetObjectValue("ccustid")
RefNbr = GetObjectValue("crefnbr")
DocType = GetObjectValue("cdoctype")
If Len(Trim(RefNbr)) > 0 Then 'Only call the report if there is an invoice number.
CmdLine = "ROI.EXE " 'Solomon's report-running program.
CmdLine = CmdLine + PRMSEP + "08760/RUN" 'Add in the report number we want to run.
CmdLine = CmdLine + PRMSEP + "08760/FORMAT" 'Add in the format we want to use.
'The next four lines create the selection criteria.
CmdLine = CmdLine + PRMSEP + "ARDoc.CustId =" + SParm(CustId) + "And "
CmdLine = CmdLine + "ARDoc.RefNbr =" + SParm(RefNbr) + "And "
CmdLine = CmdLine + "ARDoc.DocType =" + SParm(DocType)
CmdLine = CmdLine + "/WHERE"
CmdLine = CmdLine + PRMSEP + "/PSCRN" 'Print the report to screen.
serr1 = Launch(CmdLine, True, True, 0) 'Call the report engine and run a report.
we can print AR invoice but not sure how to pass parameters for OM invoice (40680) and how to supress the screen of post process with "keep All" funciton. If anyone can help? Cheers, Luke
Did you ever receive a response on this question?? Would love to hear it if you did. Thanks.
Other Microsoft Sites
I'm a Customer
I'm a Partner
Use the official Twitter tags:
#MSDYNCOMM | #CONV13