Use DataDict.pkg
Use Dfabout.pkg
Use cReadDirValidationTable.pkg

Open CodeHdr
Open CodeSys
Open CodeDtl
Open CodeClass

Object oStyleSheet_validation is a cReadDirDescriptionValidationTable
    Set psExtension to "*.css"  
    Set psFilePath  to (psHelpPath(phoWorkspace(ghoApplication)))
End_Object

Register_Object oCodeHdr_sl

Class cCodeHdrDataDictionary is a DataDictionary
    
    Procedure Construct_Object
        Forward Send Construct_Object
        Set Main_File to CodeHdr.File_Number

        Set Add_Client_File to CodeDtl.File_Number
        Set Add_Client_File to CodeClass.File_Number

        Set Add_System_File to CodeSys.File_Number DD_Lock_On_All

        Set Foreign_Field_Option DD_KEYFIELD DD_NOPUT to True
        Set Foreign_Field_Option DD_KEYFIELD DD_FINDREQ to True
        Set Foreign_Field_Option DD_INDEXFIELD DD_NOPUT to True
        Set Foreign_Field_Option DD_DEFAULT DD_DISPLAYONLY to True

        Set Status_Help Field CodeHdr.ID to "Automatically generated ID (identity) Use the field to find saved records"
        Set Field_Option Field CodeHdr.ID DD_AUTOFIND to True
        Set Key_Field_State Field CodeHdr.ID to True
        Set Field_Auto_Increment Field CodeHdr.ID to File_Field CodeSys.CodeHdrID
        Set Field_Prompt_Object Field CodeHdr.ID to oCodeHdr_sl

        Set Status_Help Field CodeHdr.SWSFileName to "Name of the workspace .sws file without path"
        Set Field_Label_Long Field CodeHdr.SWSFileName to "SWS Filename"
        Set Field_Label_Short Field CodeHdr.SWSFileName to "SWS Filename"
        Set Field_Prompt_Object Field CodeHdr.SWSFileName to oCodeHdr_sl

        Set Status_Help Field CodeHdr.Path to "The full path to the selected .sws file"

        Set Status_Help Field CodeHdr.TargetFolder to "Full path to the output target folder"
        Set Field_Label_Long Field CodeHdr.TargetFolder to "Target Folder (Output)"
        Set Field_Label_Short Field CodeHdr.TargetFolder to "Target Folder"

        Set Field_Class_Name Field CodeHdr.ScanDependencies to "Checkbox"
        Set Field_Label_Long Field CodeHdr.ScanDependencies to "Scan Dependencies"
        Set Field_Label_Short Field CodeHdr.ScanDependencies to "Scan Dependencies"
        Set Status_Help Field CodeHdr.ScanDependencies to "Scan dependencies (Use *.pkg). If selected, every file that is included in a scanned file is also scanned."
        Set Field_Checkbox_Values Field CodeHdr.ScanDependencies to "1" "0"

        Set Field_Class_Name Field CodeHdr.PublicInterfaceOnly to "Checkbox"
        Set Status_Help Field CodeHdr.PublicInterfaceOnly to "Public interface only. (Only members that contains '<public>' in the source comment)"
        Set Field_Label_Long Field CodeHdr.PublicInterfaceOnly to "Public interface only"
        Set Field_Label_Short Field CodeHdr.PublicInterfaceOnly to "Public interface only"
        Set Field_Checkbox_Values Field CodeHdr.PublicInterfaceOnly to "1" "0"

        Set Field_Label_Long Field CodeHdr.StyleSheet to "Style Sheet"
        Set Field_Label_Short Field CodeHdr.StyleSheet to "Style Sheet"
        Set Field_Value_Table Field CodeHdr.StyleSheet to oStyleSheet_validation

        Set Status_Help Field CodeHdr.CreatedBy to "The login name of the user who created the record"
        Set Field_Entry_msg Field CodeHdr.CreatedBy to NetworkUserName

        Set Status_Help Field CodeHdr.CreatedDateTime to "The date and time the record was created"
        Set Field_Mask_Type Field CodeHdr.CreatedDateTime to Mask_DateTime_Window
        Set Field_Mask Field CodeHdr.CreatedDateTime to "dddd, MMMM d, yyyy hh:mm"
        Set Field_Entry_msg Field CodeHdr.CreatedDateTime to TodaysDateTime

        Set Status_Help Field CodeHdr.ChangedBy to "The login name of the user who last edited the record"
        Set Field_Entry_msg Field CodeHdr.ChangedBy to NetworkUserName

        Set Status_Help Field CodeHdr.ChangedDateTime to "The date and time the record was last edited"
        Set Field_Mask_Type Field CodeHdr.ChangedDateTime to Mask_DateTime_Window
        Set Field_Mask Field CodeHdr.ChangedDateTime to "dddd, MMMM d, yyyy hh:mm"
        Set Field_Entry_msg Field CodeHdr.ChangedDateTime to TodaysDateTime

    End_Procedure

    Procedure Field_Defaults
        Forward Send Field_Defaults
        Set Field_Changed_Value Field CodeHdr.ScanDependencies to 0
        Set Field_Changed_Value Field CodeHdr.PublicInterfaceOnly to 1
        Set Field_Changed_Value Field CodeHdr.StyleSheet to "ModernTheme.css"
    End_Procedure

    Procedure Creating
        String sUserName
        Forward Send Creating
        If (CodeHdr.CreatedDateTime = 0) Begin
            Move (CurrentDateTime()) to CodeHdr.CreatedDateTime
            Get Network_User_Name to CodeHdr.CreatedBy
        End
    End_Procedure

    Procedure Update
        Forward Send Update
        Move (CurrentDateTime()) to CodeHdr.ChangedDateTime
        Get Network_User_Name to CodeHdr.ChangedBy
    End_Procedure

    Procedure TodaysDate Integer iField Date dDate
        Integer iChanged
        
        Get Field_Changed_State iField to iChanged
        If (iChanged=0 and dDate=0) Begin
            Sysdate dDate
            Set Field_Changed_Value iField to dDate
        End
    End_Procedure     
    
    Procedure TodaysDateTime Integer iField DateTime dtDateTime
        Integer iChanged
        
        Get Field_Changed_State iField to iChanged
        If (iChanged = 0) Begin
            Move (CurrentDateTime()) to dtDateTime
            Set Field_Changed_Value iField to dtDateTime
        End
    End_Procedure

    Procedure NetworkUserName Integer iField String sUserName
         Integer iChanged    
         Get Field_Changed_State iField to iChanged
         If (iChanged=0 and sUserName="") Begin
            Move (Network_User_Name(Self)) to sUserName
            Set Field_Default_Value iField to sUserName
         End
    End_Procedure

End_Class    


#IFDEF Is$WebApp
#ELSE
Use CodeHdr.sl
#ENDIF