//AB/ Project SncTable_SL
//AB/ Object prj is a Lookup_Project
//AB/   Set ProjectName to "SncTable_SL"
//AB/   Set ProjectFileName to "SncTable.sl"

// Project Object Structure
//   SncTable_SL is a dbModalPanel
//     SncTable_DD is a DataDictionary
//     oSelList is a dbList
//     oOK_bn is a Button
//     oCancel_bn is a Button
//     oSearch_bn is a Button

// Register all objects
Register_Object oCancel_bn
Register_Object oOK_bn
Register_Object oSearch_bn
Register_Object oSelList
Register_Object SncTable_DD
Register_Object SncTable_SL


//AB-IgnoreStart

Use DFAllEnt.pkg


Use SNCTABLE.DD

//AB-IgnoreEnd

Object SncTable_SL is a dbModalPanel
  Set Label to "Select a Database Table Setup Record"
  Set Size to 199 473
  Set Location to 4 5
  Set piMinSize to 148 473

  //AB-DDOStart

  Object SncTable_DD is a SncTable_DataDictionary
  End_Object    // SncTable_DD

  Set Main_DD to SncTable_DD
  Set Server to SncTable_DD

  //AB-DDOEnd

  Object oSelList is a dbList
    Set Main_File to Snctable.File_Number
    Set Size to 153 457
    Set Location to 6 6
    Set peAnchors to anAll
    Set Auto_Server_State to TRUE

    Begin_Row
      Entry_Item Snctable.Sortfield
      Entry_Item Snctable.Recid
      Entry_Item Snctable.Text
      Entry_Item Snctable.Toowner
      Entry_Item Snctable.Hide
    End_Row

    Set Form_Width    item 0 to 50
    Set Header_Label  item 0 to "Sort Name"
    
    Set Form_Width    item 1 to 35
    Set Header_Label  item 1 to "Id"
    
    Set Form_Width    item 2 to 240
    Set Header_Label  item 2 to "User Display Name"
    
    Set Form_Width    item 3 to 100
    Set Header_Label  item 3 to "Synchronization Type"
    
    Set Form_Width    item 4 to 25
    Set Header_Label  item 4 to "Hide"
    Set Column_Checkbox_State  item 4 to True
    

    //AB-StoreStart
    Procedure Entry_Display Integer iFile Integer iType
      Handle hoVal
      String sValue
      Integer iField iBase
      Forward Send Entry_Display iFile iType
      Field_Map SncTable.File_Number "SynchType" To iField
      Get Field_Table_Object Of (Server(Self)) iField To hoVal
      Get Validation_Table_Description Of (Server(Self)) hoVal SncTable.SynchType To sValue
      Get Base_Item To iBase
      Set Value item (iBase + 3) To sValue
    End_Procedure
    
    //AB-StoreEnd

  End_Object    // oSelList

  Object oOK_bn is a Button
    Set Label to "&OK"
    Set Location to 163 304
    Set peAnchors to anBottomRight

    //AB-StoreStart
    Procedure OnClick
        Send OK To oSelList
    End_Procedure
    //AB-StoreEnd

  End_Object    // oOK_bn

  Object oCancel_bn is a Button
    Set Label to "&Cancel"
    Set Location to 163 358
    Set peAnchors to anBottomRight

    //AB-StoreStart
    Procedure OnClick
        Send Cancel To oSelList
    End_Procedure
    //AB-StoreEnd

  End_Object    // oCancel_bn

  Object oSearch_bn is a Button
    Set Label to "&Search..."
    Set Location to 163 413
    Set peAnchors to anBottomRight

    //AB-StoreStart
    Procedure OnClick
        Send Search To oSelList
    End_Procedure
    //AB-StoreEnd

  End_Object    // oSearch_bn


  //AB-StoreStart
  On_Key Key_Alt+Key_O Send KeyAction To oOk_bn
  On_Key Key_Alt+Key_C Send KeyAction To oCancel_bn
  On_Key Key_Alt+Key_S Send KeyAction To oSearch_bn
  
  //AB-StoreEnd

End_Object    // SncTable_SL

//AB/ End_Object    // prj