Module Dfrpt.pkg

************************************************************************ Confidential Trade Secret. Copyright 1987-1997 Data Access Corporation, Miami FL, USA All Rights reserved DataFlex is a registered trademark of Data Access Corporation. ************************************************************************ $File name : DFRpt.pkg $File title : BasicReport support for VDF Notice : $Author(s) : John Tuohy $Rev History JJT 12/31/2001 Changed IO logic to use report_channel logic (seq_Chnl) from super-class Clean up MG 10/2/98 Changed error_report with additional parameter JT 9/22/97 Added status_params property and support. printer modes moved to their own file JT 7/22/97 Added Status log support (similar to BatchDD). Modified error handling(added display_error_state and onError) JT 6/09/97 Added Allow_Cancel_State for status panel JT ??/??/?? File created for VDF 4.0 ************************************************************************ Creates Character Mode RO class for windows: BasicReport

Dfrpt.pkg (view source)
• import declarations
  • LanguageText.pkg (view source)
  • Windows.pkg (view source)
  • Reportds.pkg (view source)
  • Statpnl.pkg (view source)
    creates object Status_Panel
  • Msgbox.pkg (view source)
  • PtrModes.pkg (view source)
    Define Print_to_xxxx modes
  • GlobalFunctionsProcedures.pkg (view source)
• IntegerSystem_default_pageend
• IntegerSystem_default_pagefeed
• BasicReport : Report_DS
  • Construct_Object()
    Inherited from Report_DS
    • StringPrivate.Output_Device
    • IntegerStatus_Panel_State
      set this false if you do not want a status panel popping up
    • IntegerAllow_Cancel_State
    • StringStatus_Params
    • StringReport_Caption
    • StringReport_Title
    • StringReport_Message
    • IntegerReport_Status_Panel
    • IntegerReport_View_Id
    • IntegerDisplay_Error_State
      Error related properties if set true, errors will be forwarded to the normal VDF error handler causing an error message to popup. We will leave this true for backwards compatibility.
    • IntegerOld_Error_Object_Id
    • integerError_Processing_State
      internal use
    • IntegerError_Check_State
      internal
    • IntegerStatus_Log_State
      Logging
    • IntegerStatus_Log_Id
      If you are going to log information you must create a status log object and set this property to its ID. See Statlog.pkg for more information.
  • StringOutput_Device_Name()
    • IntegerId
    • StringDevName
  • StringOutput_Device()
    • StringDevName
  • Set(string Devname)
    Inherited from Report
  • Update_Status(string Val)
    • IntegerStatPnl
  • Start_Status()
    • IntegerStatPnl
  • Resume_Status()
    • IntegerStatPnl
  • End_Status()
    • IntegerStatPnl
  • Start_Log()
    ------------------------------------------------------------------------ Status Logging related Messages Send Start_log Send End_Log Send Error_Log_Status Error_Info Error_Mess Send Log_Status StatusString ------------------------------------------------------------------------
  • End_Log()
  • Error_Log_Status(integer ErrNum integer Err_Line string ErrMsg)
  • Log_Status(String Mess)
    • IntegerStatId
  • Initialize_Output_Device()
    open output device. Assign channel if needed
    • IntegeriRptChannel
  • Close_Output_Device()
    close output device and release channel if needed
  • IntegerStarting_Main_Report()
    Inherited from Report
    • IntegerRetVal
  • Update_Status_Page()
  • Ending_Main_Report()
    Inherited from Report
    close down the report
  • IntegerReport_Interrupt()
    • IntegerrVal
    • StringMess
  • IntegerTest_KeyPressed()
    Inherited from Report
    check for report interrupt handler Return True to stop report, false to continue
    • IntegerStatPnl
    • IntegerStopIt
  • Calling_All_Reports(Integer Obj Integer Msg)
    • IntegerCur_Obj
  • Initialize_All_Reports(Integer Obj Integer Msg)
  • Error_Report(integer ErrNum integer Err_Line string ErrMsg)
    All errors are directed to the main report. By Default we shut off the status panel, report the error and notify the interrupt mechanism to ask if the report should be canceled. VERY IMPORTANT! If you augment this and you plan on doing ANY windows IO you should first shut of the status panel.
    • Integerid
  • OnError(integer ErrNum integer Err_Line string ErrMsg)
    Event called by Error_Report. For augmentation. If you are planning on doing any interactive IO and you are using the status panel you must first remove the panel (send End_Status).

References (3):

Field References (0):