Private Function prodCheckFormsInProject(hdb As EplHandle, hProj As EplHandle) As Boolean
Dim hiSeite As EplHandle
Dim hSeite As EplHandle
Dim hiInstanz As EplHandle
Dim hInstanz As EplHandle
Dim h_indSymbolFile As EplHandle
Dim h_indSymbol As EplHandle
Dim iInstanztyp As Integer

prodCheckFormsInProject = True

With ObjEpl
    hiSeite = .eplan.openIterator(epl_s, hProj, ITERTYPE_PAGES)
    If hiSeite <> EPL_ERROR Then
                
        ' Kontrolle der Formulare
        hSeite = .eplan.First(epl_s, hiSeite)
        While hSeite <> EPL_ERROR
            ' Kontrolle, ob Zugriff auf Formular ok. Zusätzlich muss auf der Seite ein Formularname eingetragen sein (3004)
            If .eplan.getPropertyUser(epl_s, hSeite, PROPERTY_PAGE_IND_FORM) = EPL_ERROR And Len(.eplan.getProperty(epl_s, hSeite, 3004)) > 0 Then
                ' Fehler in Statusliste eintragen
                prodCheckFormsInProject = False
            End If
            hSeite = .eplan.Next(epl_s, hiSeite)
        Wend
        
        ' Kontrolle der Plotrahmen
        hSeite = .eplan.First(epl_s, hiSeite)
        While hSeite <> EPL_ERROR
            ' Kontrolle, ob Zugriff auf Plotrahmen ok. Zusätzlich muss auf der Seite ein Plotrahmen eingetragen sein (3004)
            If .eplan.getPropertyUser(epl_s, hSeite, PROPERTY_PAGE_IND_PLOTFRAME) = EPL_ERROR And Len(.eplan.getProperty(epl_s, hSeite, 7)) > 0 Then
                ' Fehler in Statusliste eintragen
                prodCheckFormsInProject = False
            End If
            hSeite = .eplan.Next(epl_s, hiSeite)
        Wend
    End If
    
    ' Kontrolle der Symboldateien und Symbole
    hiInstanz = .eplan.openIterator(epl_s, hProj, ITERTYPE_INSTANCES)
    If hiInstanz <> EPL_ERROR Then
        
        hInstanz = .eplan.First(epl_s, hiInstanz)
        While hInstanz <> EPL_ERROR
            
            iInstanztyp = .eplan.getProperty(epl_s, hInstanz, PROPERTY_PRIM_INSTID)
            ' Kontrolle des Instanztyps. Nur logische Instanzen ohne Autoconnecting-Linien
            If iInstanztyp > 100 And _
               iInstanztyp < 200 And iInstanztyp <> 118 Then
                
                h_indSymbolFile = .eplan.getPropertyUser(epl_s, hInstanz, PROPERTY_COMP_IND_SYMBOLFILE)
                If h_indSymbolFile <> EPL_ERROR Then
    
                    h_indSymbol = .eplan.getPropertyUser(epl_s, hInstanz, PROPERTY_COMP_IND_SYMBOL)
                    If h_indSymbol = EPL_ERROR Then
                        ' Fehler in Statusliste eintragen
                        prodCheckFormsInProject = False
                    End If
                Else
                    ' Fehler in Statusliste eintragen
                    prodCheckFormsInProject = False
                End If
            End If
                    
            hInstanz = .eplan.Next(epl_s, hiInstanz)
        Wend
    End If
End With
End Function