Forums

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.

    End If

End Sub

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