Module Dfrepky.pkg

     1//************************************************************************
     2//
     3// Confidential Trade Secret.
     4// Copyright 1987-1997 Data Access Corporation, Miami FL, USA
     5// All Rights reserved
     6// DataFlex is a registered trademark of Data Access Corporation.
     7//
     8//************************************************************************
     9//
    10// $File name  : DFRepKey.pkg
    11// $File title : Keypress interrupt panel for winreport
    12// Notice      :
    13// $Author(s)  : Janne Wassberg / John Tuohy
    14//
    15// $Rev History
    16// JT   02/25/98 changed locate_mode from center_on_panel to center_on_screen
    17// JT   7/22/97  Added Status log support (similar to BatchDD). Modified
    18//               error handling(added display_error_state and onError)
    19// JW ??/??/??   File created for VDF 4.0
    20//************************************************************************
    21Use LanguageText.pkg
    22Use Windows.pkg
    23
    24{ Visibility=Private }
    25Object DFPrint_Cancel_Rpt is a ModalPanel
    26    Set Label to C_$ReportInterrupt
    27    Set Size to 56 176
    28    Set pbSizeToClientArea to True
    29    Set Locate_Mode to Center_on_Screen
    30    
    31    Property Integer Report_Object_Id 0
    32    Property Integer Halt_State       False
    33    
    34    Object Textbox1 is a TextBox
    35        Set Label to C_$CancelThisReport
    36        Set Location to 9 34
    37    End_Object    // Textbox1
    38    
    39    Object YesBn is a Button
    40        Set Label to C_$Yes
    41        Set Size to 14 50
    42        Set Location to 38 12
    43        
    44        Procedure OnClick
    45            Set Halt_State to True
    46            Send close_panel
    47        End_Procedure // OnCLick
    48
    49    End_Object    // oOK_bn
    50
    51    Object NoBn is a Button
    52        Set Label to C_$No
    53        Set Location to 38 65
    54        
    55        Procedure OnClick
    56            Send close_panel
    57        End_Procedure // OnCLick
    58
    59    End_Object    // oCancel_bn
    60
    61    Object PreviewBn is a Button
    62        Set Label to (C_$Preview+"...")
    63        Set Location to 38 118
    64        
    65        Procedure OnClick
    66            Pointer hwnd
    67            Integer iRetVal
    68            Get Container_Handle to hWnd //JJT
    69            Move (PreviewDocument(hwnd)) to iRetVal
    70        End_Procedure // OnCLick
    71
    72    End_Object    // OK_bn
    73
    74    Function Halt_Report Integer RepObjId Returns Integer
    75        Set Report_Object_Id to RepObjId
    76        Set Halt_State to False
    77        Send Popup
    78        Function_Return (Halt_State(Self)) // if true, stop report, if false, keep going
    79    End_Function
    80
    81End_Object
    82