// C:\SI\New\AppSrc\AudFiles.vw
// Tables to Audit
//

Use Dftable.pkg
Use dfEntry.pkg

Use AudFiles.DD
Use TranLock.Pkg
Use Windows.pkg

ACTIVATE_VIEW Activate_oAudFiles FOR oAudFiles
Object oAudFiles is a dbView
    Set Location to 5 5
    Set Size to 239 434
    Set Label To "Tables to Audit"
    Set Border_Style to Border_Thick
    Set piMinSize to 200 434

    Object oAudfiles_DD is a Audfiles_DataDictionary
    End_Object // oAudfiles_DD

    Set Main_DD To oAudfiles_DD
    Set Server  To oAudfiles_DD

    Object odbGridAudFiles is a DbGrid
        Set Size to 216 316
        Set Location to 5 4

        Begin_Row
            Entry_Item AudFiles.Table
            Entry_Item AudFiles.Desc
            Entry_Item AudFiles.Audit
        End_Row

        Set Main_File to AudFiles.File_number

        Set Form_Width 0 to 69
        Set Header_Label 0 to "Table"
        Set Form_Width 1 to 172
        Set Header_Label 1 to "Desc"
        Set Form_Width 2 to 62
        Set Header_Label 2 to "Audit"
        Set Column_CheckBox_State 2 to True
        Set Ordering to 1
        Set peAnchors to anAll
        Set peResizeColumn to rcAll
        Set CurrentRowColor to 12910591    
    End_Object

    Object oButtonAdd is a Button
        Set Size to 14 63
        Set Location to 5 367
        Set Label to "Add Tables"
        Set peAnchors to anTopRight
        Set psToolTip to "Add new tables to the grid"
    
        Procedure OnClick
            Handle htable
            String sRoot sDisplay sTable
        
            Send ChangeAllFileModes DF_Filemode_ReadOnly  
            //Comment: Set All Open Files To ReadOnly Except For... (Files Used In Transaction Block)
            Set_Attribute DF_File_Mode of AudFiles.File_Number to DF_Filemode_Default
            Move 0 to hTable
            Repeat
                Get_Attribute DF_FILE_NEXT_USED of hTable to hTable
                If (hTable <> 0) Begin
                    Get_Attribute DF_FILE_ROOT_NAME    of hTable to sRoot
                    Get_Attribute DF_FILE_DISPLAY_NAME of hTable to sDisplay
                    Get_Attribute DF_FILE_LOGICAL_NAME of hTable to sTable
                    Clear AudFiles
                    Move sTable to AudFiles.Table
                    Find EQ        AudFiles.Table
                    If (not(Found)) Begin
                        Lock
                            Clear AudFiles
                            Move sTable   to AudFiles.Table
                            Move sDisplay to AudFiles.Desc
                            SaveRecord AudFiles
                        Unlock
                    End
                End
            Until (hTable = 0)
            Send ChangeAllFileModes DF_Filemode_Default  // Set FileModes Back From Readonly To Normal
            Send Beginning_of_Data of odbGridAudFiles
        End_Procedure
    
    End_Object

    Object oAudFiles_Notes is a cDbTextEdit
        Entry_Item AudFiles.Notes
        Set Location to 27 324
        Set Size to 194 105
        Set Label to "Notes:"
        Set peAnchors to anTopBottomRight
        Set psToolTip to "Notes on this Table"
    End_Object

    Object oTextBox1 is a TextBox
        Set Auto_Size_State to False
        Set Size to 10 315
        Set Location to 224 6
        Set Label to "If you change Auditing for any tables, the changes will not take effect until users exit && restart!"
        Set peAnchors to anBottomLeft
    End_Object
End_Object // oAudFiles