Characteristic.SaveEx

SVB Example

Data Entry Example 2: Adding a characteristic for data entry:

Sub Main

    Dim oOM As ObjectManager
    'Reconnect into Enterprise
    Set oOM = New ObjectManager
    oOM.Reconnect Application

    Dim grainLevelInfo As New CharacteristicCreateInfo
    grainLevelInfo.AuditLogReason = "Add grain level characteristic"
    grainLevelInfo.Name = "Grain Level"
    grainLevelInfo.Folder = "/Blake's Materials"

    'Add the characteristic to the system
    Dim grainLevel As Characteristic
    Set grainLevel = oOM.Characteristics.AddEx(grainLevelInfo)
    grainLevel.AutoSave = False

    'Set the description and sample size to 5
    grainLevel.Description = "Measurement (in cups) of grain used in a loaf mixture." & vbCrLf & _
                             "Note that this includes flour (rye, barley) and also quinoa, flaxseed, etc."
    grainLevel.SampleSize = 5
    'The grain level entered by the user will be the number of cups of grain for each batch
    'associated with a baker. We will set reasonable limits here that the system will enforce
    'during data entry. In this example, less than 5 cups is not enough, and more than 8 is too much.
    'If the measurement entered is outside of this range, then we will know that something
    'has gone awry (or should we say "a rye") with the bread batch.
    grainLevel.EnableCheckReasonableValue = True
    grainLevel.ReasonableLimitEnabled = True
    grainLevel.ReasonableLow = 5
    grainLevel.ReasonableHigh = 8

    'Connect the cause and action labels
    grainLevel.CauseLabel = oOM.Labels("/Blake's Materials/Bad Mixture Causes")
    grainLevel.ActionLabel = oOM.Labels("/Blake's Materials/Bad Mixture Actions")

    'Commit our changes
    Dim grainLevelUpdateInfo As New CharacteristicUpdateInfo
    grainLevelUpdateInfo.AuditLogReason = "Setting up grain level characteristic"
    grainLevel.SaveEx(grainLevelUpdateInfo)

    oOM.Disconnect

End Sub