//****************************************************************************
 // $Module type: CLASS
 // $Module name: cDbFormPath.pkg
 // $Author     : Nils G. Svedmyr
 // Created     : 2002-07-21 @ 11:16
 //
 // Description :
 //
 // $Rev History
 //    2002-07-21  Module header created
 //****************************************************************************
Use cRDSDbForm.pkg

 Class cDbFormPath is a cRDSDbForm
  Procedure Construct_Object
    Forward Send Construct_Object
    Property Integer piDbType 0
    // Visual DataFlex 12.0 Migration Utility, added March 28, 2007: 15:13:25
    #IF (!@ >= 120)
    { InitialValue=True }
    #ENDIF
    Property Boolean pbFrom   True
    Property Handle  phoDD    (Main_DD(Self))
  End_Procedure // Construct_Object

  Procedure End_Construct_Object
    Forward Send End_Construct_Object
    Set Enabled_State To False
  End_Procedure // End_Construct_Object

  Procedure DoEnableDisable Integer iValue
    Set piDbType To iValue
  End_Procedure // DoEnableDisable

  Procedure DoCheckClear
    Handle hoDD
    Integer iFile iField iType
    String sValue
    Get phoDD      To hoDD
    Get Data_File  To iFile
    Get Data_Field To iField
    Set File_Field_Changed_Value Of hoDD iFile iField To ""
    // 2003-05-26 ------------------------------------ Start Nils G. Svedmyr
    // Bug fix.
//    Set File_Field_Changed_State Of hoDD iFile iField To False
    // 2003-05-26 ------------------------------------ Stop Nils G. Svedmyr
  End_Procedure // DoCheckClear

 End_Class // cDbFormPath