HOW TO PUT IFS REPORT ON CLIENT APL

admin

以"登錄到貨" RMB 列印驗收紀錄單  為例
登錄到貨 tbwPurchaseOrderArrival
tbwPurchaseOrderArrival  (PurchaseReceipt.apl)
1) Named Menu

1. Menu: menuTbwMethods
   
2.         Resource Id: 8640
   
3.         Title: &Operations
   
4.         Description:
   
5.         Enabled when:
   
6.         Status Text:
   
7. .....
   
8.         Menu Separator
   
9.         Menu Item: &Print Order Receipt Form...
   
10.                 Resource Id: 10951
    
11.                 Keyboard Accelerator: (none)
    
12.                 Status Text: Print purchase Requisition
    
13.                 Menu Settings
    
14.                         Enabled when: SalSendMsg(hWndForm, PM_UserMethod, METHOD_Inquire, SalHStringToNumber('PrintReceipt'))
    
15.                         Checked when:
    
16.                 Menu Actions
    
17.                         Call PostMessage(hWndForm, PM_UserMethod, METHOD_Execute, 'PrintReceipt')
    
18. 
    

複製代碼

2)Function: UserMethod

1. Function: UserMethod
   
2.         Description:
   
3.         Returns
   
4.                 Boolean:
   
5.         Parameters
   
6.                 Number: nWhat
   
7.                 String: sMethod
   
8.         Static Variables
   
9.         Local variables
   
10.                 Number: nRow
    
11.                 String: sRecState
    
12.         Actions
    
13.                 Select Case nWhat
    
14.                         Case METHOD_Inquire
    
15.                                 Set sRecState =  colsObjState
    
16. ....
    
17.                                 Else If sMethod = 'PrintReceipt'
    
18.                                         Return PrintPurchaseReceipt(nWhat)
    
19.                                 Return FALSE
    
20. 
    

複製代碼

3).Function:PrintPurchaseReceipt

Function: PrintPurchaseReceipt
        Description:
        Returns
        Parameters
                Number: nWhat
        Static Variables
        Local variables
                Number: nPrintJobId
                String: sReqNumber
                Long String: lsParamAttr
                Long String: lsReportAttr
                Long String: lsInstanceAttr
        Actions
                If nWhat = METHOD_Inquire
                        Return Security.IsViewAvailable('NTCH_PURCHASE_RECEIPT_REP')
                Else If nWhat = METHOD_Execute
                        Set lsInfo = strNULL
                        Set sReqNumber = colsOrderNo
                        Set lsReportAttr = InfoService.ItemValueCreate( 'REPORT_ID', 'NTCH_PURCHASE_RECEIPT_REP' )
                        Set lsParamAttr = lsParamAttr || InfoService.ItemValueCreate( 'PO_NO', sReqNumber )
                        ! ! Print report for all received lines

                        If InfoService.ReportExecute( nPrintJobId, lsReportAttr, lsParamAttr, strNULL )=FALSE
                                If InfoService._IsError()
                                        Return FALSE
                                Else
                                        Set lsInstanceAttr[ 0] = InfoService.ItemValueCreate( 'RESULT_KEY', PalAttrFormatNumber( nPrintJobId ))
                                        Return InfoService.ReportListPrint( strNULL, lsInstanceAttr )
                        Else
                                Set lsInstanceAttr[ 0] = InfoService.ItemValueCreate( 'RESULT_KEY', PalAttrFormatNumber( nPrintJobId ))
                                Return InfoService.ReportListPrint( strNULL, lsInstanceAttr )