' Script to determine whether we are using manual entries in forwards

Sub TestForm_OnLoad()
  Dim IO 
    Set IO = GetObject("","Cubes.IScriptCubeIO")

    number_rows = IO.GetInputCubeRows(0)

    ' Go through every row and check whether we should be using auto and man layer
    ' Set Accordingly
    For i=0 To number_rows-1
        
        ' The Forward types are:
        ' Manual = 1; Interpolated = 2; Live = 3; IRS = 4; Weighted = 5
        ForwardTypeToUse = IO.GetInputCubeCell(0,i).GetValueDouble()

        ' RC 28Nov05 Lock none manual cells.
        If ForwardTypeToUse = 1 Then
            IO.GetOutputCubeCell(0,i).SetValueLayer(1)
            IO.GetOutputCubeCell(0,i).bcellLocked()=False
        Else
            IO.GetOutputCubeCell(0,i).SetValueLayer(0)
            IO.GetOutputCubeCell(0,i).bcellLocked()=True
        End If
    Next
    
End Sub