// By SVN - csfWebColumn Mixin

Class csfWebColumn_Mixin is a Mixin

    Procedure Define_csfWebColumn_Mixin
        Property String  psField
    End_Procedure

    Procedure BuildColumnID
        String  sColumnID
        String  sField
        Integer iFile
        Integer iField
        Get psField to sColumnID
        If (sColumnID="") Begin
            Get Data_File  to iFile
            Get Data_Field to iField
            If (iFile<>0 and iField<>0) Begin
                Move ("t"+trim(iFile)+"c"+trim(iField)) to sColumnID
            End
            Else Begin
                Get Object_Label To sColumnID
            End
            Set psField to sColumnID
        End
    End_Procedure

End_Class