Disable Forms

 
Sub DisableForm()

    Dim i

    Dim I2

    Dim nField

    Dim nSegment

    Dim rfrmForm

    Dim sField

    Dim sSegment

    Dim sSegmentVisible

    Dim sFieldVisible

     

    Set rfrmForm = UIMaster.RUICenter.Form

    nSegment = rfrmForm.Segments.Count

   

    For i = 0 To (nSegment - 1)

        nField = rfrmForm.Segments(i).FormFields.Count

        sSegment = rfrmForm.Segments(i).SegmentName

        sSegmentVisible = rfrmForm.Segments(i).IsHidden

        For I2 = 0 To (nField - 1)

            sField = rfrmForm.Segments(i).FormFields.Item(CInt(I2)).FieldName

            sFieldVisible = rfrmForm.Segments(i).FormFields.Item(CInt(I2)).Visible

           

           ' stop

            If rfrmForm.Segments(i).FormFields.Item(CInt(I2)).IsButton And rfrmForm.Segments(i).FormFields.Item(CInt(I2)).Visible Then

                                               If Not rfrmForm.Segments(i).IsHidden Then

                                                           UIMaster.RUICenter.GetButtonEx(rfrmForm.Segments(i).ParentTab.TabId, sSegment, rfrmForm.Segments(i).FormFields.Item(CInt(I2)).ButtonName).Disabled = True

                                               End If

            End If

           

            If sField <> "" And sFieldVisible = True And sSegmentVisible = False Then
                If rfrmForm.Segments(i).IsSecondary Then
                    UIMaster.RUICenter.DisableSecondaryFieldEx rfrmForm.Segments(i).ParentTab.TabId, sSegment, sField, True
                Else
                    UIMaster.RUICenter.DisableFieldEx rfrmForm.Segments(i).ParentTab.TabId, sSegment, sField, True
                End If

            End If

        Next

        If rfrmForm.Segments(i).IsSecondary Then MakeSecondaryReadonly sSegment, True

    Next

   

    UIMaster.RUICenter.SelectTab 0

End Sub





' RemoveAddButtonFromSecondary. AndreyF. 09/19/05

Sub RemoveAddButtonFromSecondary(vntSecondary)

    Dim strAddButtonId: strAddButtonId = "AddButton" + GetSegmentSuffix(vntSecondary)

    Dim htmlAddButton: Set htmlAddButton = Document.frames("Centre").Document.getElementById(strAddButtonId)

    If htmlAddButton Is Nothing Then Exit Sub



    htmlAddButton.innerHTML = ""

    htmlAddButton.Title = ""

    htmlAddButton.ClassName = "NoAddButton"

End Sub



' GetSegmentSuffix. AndreyF. 09/19/05

Function GetSegmentSuffix(vntSegment)

    Dim rfrm: Set rfrm = UIMaster.RUICenter.Form

    Dim rseg: Set rseg = rfrm.Segments(vntSegment)

    Dim rtab: Set rtab = rseg.ParentTab



    Dim lngTab: lngTab = 0

    While Not rfrm.Tabs(lngTab) Is rtab

        lngTab = lngTab + 1

    Wend

    Dim lngSeg: lngSeg = 0

    While Not rtab.Segments(lngSeg) Is rseg

        lngSeg = lngSeg + 1

    Wend



    GetSegmentSuffix = "_" & lngTab & "_" & lngSeg

End Function



' RemoveDeleteButtonFromSecondary. AndreyF. 09/19/05

Sub RemoveDeleteButtonFromSecondary(vntSecondary)

    Dim strSegmentSuffix: strSegmentSuffix = GetSegmentSuffix(vntSecondary)

    Dim strDeleteHeadingId: strDeleteHeadingId = "DeleteHeading" + strSegmentSuffix

    Dim strDeleteButtonId: strDeleteButtonId = "DeleteButton" + strSegmentSuffix



    Dim htmlDocument: Set htmlDocument = Document.frames("Centre").Document

    Dim htmlDeleteHeading: Set htmlDeleteHeading = htmlDocument.getElementById(strDeleteHeadingId)

    If Not htmlDeleteHeading Is Nothing Then htmlDeleteHeading.removeNode True

    Dim htmlDeleteButton: Set htmlDeleteButton = htmlDocument.getElementById(strDeleteButtonId)

    If Not htmlDeleteButton Is Nothing Then htmlDeleteButton.removeNode True

End Sub



'--------------------------------

' MakeSecondaryReadonly  ArthurH 23/06/2005

'--------------------------------

Sub MakeSecondaryReadonly(vntSecondary, blnStatus)

   ' On Error Resume Next

    'stop

    Dim RUICenter: Set RUICenter = UIMaster.RUICenter

    Dim rfld: For Each rfld In RUICenter.Form.Segments(vntSecondary).FormFields

        If Not rfld.ReadOnly And Not RUICenter.Form.Segments(vntSecondary).IsHidden Then RUICenter.DisableSecondaryFieldEx RUICenter.Form.Segments(vntSecondary).ParentTab.TabId, vntSecondary, rfld.FieldId, blnStatus

    Next

   

RemoveAddButtonFromSecondary vntSecondary

RemoveDeleteButtonFromSecondary vntSecondary

   

    'If Err.Number <> 0 Then Err.Clear

End Sub