--Code snippet for customization to add commas to a screen
--Note from DorothyZ on 3/19/08   This code isn't working in V7.0; incident has been opened

--Source:   Bob Milanowski, EHTC (bobm@ehtc.com)

--this is the version for V6.5

  Dim mycontrol As SIVControl
  
  For Each mycontrol In sivMyApp.Controls
    
    If mycontrol.Properties("ControlType") = "SAFFloat" Then
        mycontrol.Properties("Separator") = True
    End If
  Next



--this is the version for V7.0
--sent from Dorothy Zmaniec (dorothy@genica.com) after 6.5 version didn't work in 7.0 3/19/08


    Dim mycontrol As SIVControl
    Dim i As Integer
    
    On Error GoTo skipit
    
  For i = 0 To sivMyApp.Controls.Count - 1
    
        Set mycontrol = sivMyApp.Controls(i)
        
        If mycontrol.Properties.Item("ControlType") = "SAFFloat" Then
            mycontrol.Properties.Item("Separator") = True
        End If
skipit:
    Next