//AB/ Project Synchronize Log Details
//AB/ Object prj is a Dialog_Project
  //AB/ Set ProjectName to "Synchronize Log Details"
  //AB/ Set ProjectFileName to "LogDialog.dg"
  //AB/ Set Size to 397 685

// Project Object Structure
//   oLogDialog is a cRDSDbModalPanel
//     Snclog_DD is a DataDictionary
//     oSnclog_Statustext_edt is a cRDSEdit
//     oSnclog_Tablename_edt is a cRDSEdit
//     Snclog_Datetime is a cRDSForm
//     Snclog_Networkusername is a cRDSDbForm
//     Snclog_Recid is a cRDSDbForm
//     oClose_bn is a cBitmapButton

// Register all objects
Register_Object oClose_bn
Register_Object oLogDialog
Register_Object oSnclog_Statustext_edt
Register_Object oSnclog_Tablename_edt
Register_Object Snclog_Datetime
Register_Object Snclog_DD
Register_Object Snclog_Networkusername
Register_Object Snclog_Recid

//AB-IgnoreStart
Use cRDSDbModalPanel.pkg
Use DataDict.pkg
Use cRDSEdit.pkg
Use cRDSForm.pkg
Use cRDSDbForm.pkg
Use cBitmapButton.pkg
//AB-IgnoreEnd


//AB-IgnoreStart
Use SNCLOG.DD
//AB-IgnoreEnd


Object oLogDialog is a cRDSDbModalPanel
  Set Border_Style to Border_Normal
  Set Minimize_Icon to FALSE
  Set Label to "Log Details"
  Set Location to 2 1
  Set Size to 174 455

  //AB-DDOStart

  Object Snclog_DD is a Snclog_DataDictionary

    //AB-StoreStart
    Procedure New_Current_Record Integer iOld Integer iNew
      Forward Send New_Current_Record iOld iNew
      Send DoApplyEditValues
    End_Procedure
    //AB-StoreEnd

  End_Object    // Snclog_DD

  Set Main_DD to Snclog_DD
  Set Server to Snclog_DD

  //AB-DDOEnd

  Object oSnclog_Statustext_edt is a cRDSEdit
    Set Label to "Status Text:"
    Set Size to 73 363
    Set Location to 6 82
    Set Status_Help to "Error, Warning or Status message for the selected log record."
    Set Color to clBtnFace
    Set Label_Row_Offset to 0
    Set Label_Col_Offset to 2
    Set Label_Justification_Mode to jMode_Right

    //AB-StoreStart
    Set Read_Only_State To True
    //AB-StoreEnd

  End_Object    // oSnclog_Statustext_edt

  Object oSnclog_Tablename_edt is a cRDSEdit
    Set Label to "Database Connection:"
    Set Size to 25 363
    Set Location to 81 82
    Set Status_Help to "User display name/Name of the database tables that were synchronized."
    Set Color to clBtnFace
    Set Label_Row_Offset to 0
    Set Label_Col_Offset to 2
    Set Label_Justification_Mode to jMode_Right

    //AB-StoreStart
    Set Read_Only_State To True
    
    //AB-StoreEnd

  End_Object    // oSnclog_Tablename_edt

  Object Snclog_Datetime is a cRDSForm
    Set Label to "Date and Time:"
    Set Size to 13 76
    Set Location to 108 82
    Set Status_Help to "Date and time the record was created."
    Set Color to clBtnFace
    Set Label_Col_Offset to 2
    Set Label_Justification_Mode to jMode_Right

    //AB-StoreStart
    Set Entry_State Item 0 To False
    //AB-StoreEnd

  End_Object    // Snclog_Datetime

  Object Snclog_Networkusername is a cRDSDbForm
    Entry_Item Snclog.Networkusername
    Set Label to "User:"
    Set Size to 13 76
    Set Location to 122 82
    Set Status_Help to "Network Name of the logged in person when the Connection Engine was run."
    Set Color to clBtnFace
    Set Label_Col_Offset to 2
    Set Label_Justification_Mode to jMode_Right

    //AB-StoreStart
    Set Entry_State Item 0 To False
    
    //AB-StoreEnd

  End_Object    // Snclog_Networkusername

  Object Snclog_Recid is a cRDSDbForm
    Entry_Item Snclog.Recid
    Set Label to "Log Record Id:"
    Set Size to 13 76
    Set Location to 138 82
    Set Status_Help to "Unique record id for the Connection Engine log."
    Set Color to clBtnFace
    Set Label_Col_Offset to 2
    Set Label_Justification_Mode to jMode_Right

    //AB-StoreStart
    Set Entry_State Item 0 To False
    
    //AB-StoreEnd

  End_Object    // Snclog_Recid

  Object oClose_bn is a cBitmapButton
    Set Label to "&Cancel"
    Set Size to 14 52
    Set Location to 138 393
    Set Status_Help to "Close the dialog"
    Set Default_State to TRUE
    Set Bitmap to "Cancel16.bmp"
    Set piTransparentColor to clFuchsia

    //AB-StoreStart
    Procedure OnClick
      Send Close_Panel
    End_Procedure // OnClick
    //AB-StoreEnd

  End_Object    // oClose_bn


  //AB-StoreStart
  Set Locate_Mode To SMART_LOCATE
  Set Extended_Window_Style To WS_EX_TOOLWINDOW False
  Set Extended_Window_Style To WS_EX_DLGMODALFRAME True
  
  Procedure DoApplyEditValues
    String sValue
    Integer iRecid
    Get Field_Current_Value Of SncLog_DD Field SncLog.TableName To sValue
    Set Value Of oSnclog_Tablename_edt Item 0 To (Trim(sValue))
    Get Field_Current_Value Of SncLog_DD Field SncLog.StatusText To sValue
    Set Value Of oSnclog_Statustext_edt Item 0 To (Trim(sValue))
    // For some odd reason this walue will not be correctly displayed
    // by a dbform, when used by the Scheme and Synchronize programs.
    // The other dbforms function ok. Go figure...
    Get Field_Current_Value Of SncLog_DD Field SncLog.Recid    To iRecid
    Set Value Of Snclog_Recid                                  To iRecid
    Get Field_Current_Value Of SncLog_DD Field SncLog.DateTime To sValue
    Set Value Of Snclog_Datetime Item 0 To (Trim(sValue))
  End_Procedure
  
  On_Key Key_Alt+Key_C Send KeyAction To oClose_bn
  On_Key kCancel       Send KeyAction To oClose_bn
  //AB-StoreEnd

End_Object    // oLogDialog


//AB-StoreStart
Procedure DoPopupLogDialog
  Send Popup Of oLogDialog
End_Procedure // DoPopupLogDialog

//AB-StoreEnd

//AB/ End_Object    // prj