//***************************************************************************
//*
//* Class:        cWsDbForm
//* Package Name: cWsDbForm.pkg
//*
//***************************************************************************
// The class automatic converts date to 4 digit year (se description in
// cWsDateMixin.pkg)

Use DFAllEnt.pkg
Use cWsDateMixin.pkg

Class cWsDbForm Is A dbForm

    Import_Class_Protocol cWsDate_mixin

    // Construct_Object: Object constructor.
    Procedure Construct_object
        Forward Send Construct_Object

        // Define new Properties: Property {Type} {pxName} {initial_value}
        Send Define_cWsDate_Mixin

        // Create child objects

        // Set property values:

    End_Procedure

    // Create and augment procedure and functions

End_Class // cWsDbForm