project QadFinancials > class TReportSwitchMenu > method MainMethod

Parameters

Internal usage

program code (program9/treportswitchmenu.p)

Find first tRptMenuSettingsDS2 no-error.
if available tRptMenuSettingsDS2 then do:
    if tRptMenuSettingsDS2.tcRptNewUri = "QAD_BCashBoxReport_CashPaid" or
       tRptMenuSettingsDS2.tcRptNewUri = "QAD_BCashBoxReport_CashReceived" then
    do:
       <M-41 run QRFReportIsExist
          (input  tRptMenuSettingsDS2.tcRptNewUri (icQRFReportName), 
           output tRptMenuSettingsDS2.tlIsUseQRF (olQRFReportIsExist), 
           output viFcReturnSuper (oiReturnStatus)) in TReportSwitchMenu>
    end.  
      
end.


/* The following codes used by menu switch function */
olUpdateSuccess = yes. /* only used for the update method */
if ilIsGet
then do:
    <M-2 run GetCurrRptMenuSettings
       (input-output tRptMenuSettingsDS2 (tRptMenuSettingsDS2), 
        output viFcReturnSuper (oiReturnStatus)) in TReportSwitchMenu>
end.        
else do:    
    <M-86 run UpdateRptMenuSettings
       (input  tRptMenuSettingsDS2 (tRptMenuSettingsDS2), 
        output viFcReturnSuper (oiReturnStatus)) in TReportSwitchMenu>
    if viFcReturnSuper < 0 then assign olUpdateSuccess = no.
end.