Dim off

Sub emptyAD()
Set off = GetObject("", "FlowFact.applicatioN")
'Leere Adressen anzeigen

Pane = "AD"

F_PANE = "F_" & Pane
F_PaneStr = Pane & ".DSN in ("

Set rsTMP = off.getrecordset("Select DSN from AD Where Firma is Null and Name is Null and Straße is NULL and Land_PLZ is NUll and Ort is Null and Telefon Is Null and Fax is Null and EMAIL is Null")

    If rsTMP.RecordCount > 0 Then
        strdsn = ""
        Do While Not rsTMP.EOF
            strdsn = strdsn & "'" & rsTMP("DSN") & "',"
            rsTMP.movenext
        Loop
        strdsn = F_PaneStr & Left(strdsn, Len(strdsn) - 1) & ")"
        
        off.Panes(F_PANE).Find strdsn
        off.Panes(F_PANE).Show
    
    Else
        MsgBox "Keine Datensätze gefunden!"
    End If
    
End Sub

Sub emptyAKT()
Set off = GetObject("", "FlowFact.applicatioN")
Pane = "AKT"
'Leere Aktivitäten anzeigen

F_PANE = "F_" & Pane
F_PaneStr = Pane & ".DSN in ("

Set rsTMP = off.getrecordset("select DSN from AKT Where Subject is Null and Notiz is Null and AD_DSN is null and AD_B_DSN is Null and OBJ_DSN is Null")

If rsTMP.RecordCount > 0 Then
    strdsn = ""
    Do While Not rsTMP.EOF
        strdsn = strdsn & "'" & rsTMP("DSN") & "',"
        rsTMP.movenext
    Loop
    strdsn = F_PaneStr & Left(strdsn, Len(strdsn) - 1) & ")"
    
    off.Panes(F_PANE).Find strdsn
    off.Panes(F_PANE).Show

Else
    MsgBox "Keine Datensätze gefunden!"
End If
End Sub


Sub emptyOBJ()
Set off = GetObject("", "FlowFact.applicatioN")
Pane = "OBJ"
'Leere Objekte anzeigen

F_PANE = "F_" & Pane
F_PaneStr = Pane & ".DSN in ("

Set rsTMP = off.getrecordset("Select DSN from OBJ where INTERN is Null and PROV_INT is Null and Prov_ANB is Null and AKTIV = 1 AND TEXTFREI is Null and TEXTLAGE is Null and TEXTAUSSTATTUNG is Null and TEXTBEBAUBARKEIT is Null and TEXTOBJEKT is Null and AD_ANBIETER_DSN is Null and AD_KOLLEGE_DSN is Null and dsn not in (Select OBJDET.Obj_DSN From OBJ inner join OBJDet on OBJ.dsn = OBJdet.obj_dsn)")

If rsTMP.RecordCount > 0 Then
    strdsn = ""
    Do While Not rsTMP.EOF
        strdsn = strdsn & "'" & rsTMP("DSN") & "',"
        rsTMP.movenext
    Loop
    strdsn = F_PaneStr & Left(strdsn, Len(strdsn) - 1) & ")"
    
    off.Panes(F_PANE).Find strdsn
    off.Panes(F_PANE).Show

Else
    MsgBox "Keine Datensätze gefunden!"
End If
End Sub


Sub ANFnoLink()

' Anfragen ohne Verknüpfung anzeigen

Set off = GetObject("", "FlowFact.applicatioN")
Pane = "ANF"

F_PANE = "F_" & Pane
F_PaneStr = Pane & ".DSN in ("

Set rsTMP = off.getrecordset("select DSN from ANF where AD_DSN is null")

If rsTMP.RecordCount > 0 Then
    strdsn = ""
    Do While Not rsTMP.EOF
        strdsn = strdsn & "'" & rsTMP("DSN") & "',"
        rsTMP.movenext
    Loop
    strdsn = F_PaneStr & Left(strdsn, Len(strdsn) - 1) & ")"
    
    off.Panes(F_PANE).Find strdsn
    off.Panes(F_PANE).Show

Else
    MsgBox "Keine Datensätze gefunden!"
End If
End Sub


Sub DetnoLink()

' Details ohne Verknüpfung anzeigen




Set off = GetObject("", "FlowFact.applicatioN")
Pane = "DETAILS"

F_PANE = "F_" & Pane
F_PaneStr = Pane & ".DSN in ("

Set rsTMP = off.getrecordset("select DSN from Details where AD_DSN is null")

If rsTMP.RecordCount > 0 Then
    strdsn = ""
    Do While Not rsTMP.EOF
        strdsn = strdsn & "'" & rsTMP("DSN") & "',"
        rsTMP.movenext
    Loop
    strdsn = F_PaneStr & Left(strdsn, Len(strdsn) - 1) & ")"
    
    off.Panes(F_PANE).Find strdsn
    off.Panes(F_PANE).Show

Else
    MsgBox "Keine Datensätze gefunden!"
End If
End Sub


Sub AKTnoLink()

' Erledigt Aktivitäten ohne Verknüpfung anzeigen



Set off = GetObject("", "FlowFact.applicatioN")
Pane = "AKT"

F_PANE = "F_" & Pane
F_PaneStr = Pane & ".DSN in ("

Set rsTMP = off.getrecordset("select DSN from AKT where AD_DSN is null and AD_B_DSN is Null and OBJ_DSN is Null and Erledigt = 1")

If rsTMP.RecordCount > 0 Then
    strdsn = ""
    Do While Not rsTMP.EOF
        strdsn = strdsn & "'" & rsTMP("DSN") & "',"
        rsTMP.movenext
    Loop
    strdsn = F_PaneStr & Left(strdsn, Len(strdsn) - 1) & ")"
    
    off.Panes(F_PANE).Find strdsn
    off.Panes(F_PANE).Show

Else
    MsgBox "Keine Datensätze gefunden!"
End If
End Sub



Sub UnfinishedAKTnoLink()

'Unerledigte Aktivitäten ohne Merkmale anzeigen




Set off = GetObject("", "FlowFact.applicatioN")
Pane = "AKT"

F_PANE = "F_" & Pane
F_PaneStr = Pane & ".DSN in ("

Set rsTMP = off.getrecordset("select DSN from Akt where Erledigt = 0 and DSN not in (select Aktmkm.Link_DSN from AKT inner join AKTMKM on AKT.DSN = AKTMKM.Link_DSN)")

If rsTMP.RecordCount > 0 Then
    strdsn = ""
    Do While Not rsTMP.EOF
        strdsn = strdsn & "'" & rsTMP("DSN") & "',"
        rsTMP.movenext
    Loop
    strdsn = F_PaneStr & Left(strdsn, Len(strdsn) - 1) & ")"
    
    off.Panes(F_PANE).Find strdsn
    off.Panes(F_PANE).Show

Else
    MsgBox "Keine Datensätze gefunden!"
End If
End Sub




Sub showBIGAkt()

'Aktivitäten mit großen Anhängen anzeigen

Set off = GetObject("", "FlowFact.applicatioN")
Pane = "AKT"

F_PANE = "F_" & Pane
F_PaneStr = Pane & ".DSN in ("



Do
    intMB = InputBox("Bitte geben Sie die Größe in MegaByte ein ab der die Anhänge angezeigt werden sollen.", "Aktivitäten mit Anhängen größer als ...", 1)
    if intMB = "" then
				exit sub
    end if
Loop Until IsNumeric(intMB) = True 

If InStr(1, intMB, ",") Then
    intMB = Replace(intMB, ",", ".")
End If

Set rsTMP = off.getrecordset("select AKT.DSN from AKT Inner join BLOB on AKT.DSN = BLob.uidLINK_DSN where strLinkTable = 'AKT' and lngTyp <> 30 and lngsize > (1.0 * " & intMB & " * 1024 * 1024) order by lngsize DESC")


If rsTMP.RecordCount > 0 Then
    strdsn = ""
    Do While Not rsTMP.EOF
        strdsn = strdsn & "'" & rsTMP("DSN") & "',"
        rsTMP.movenext
    Loop
    strdsn = F_PaneStr & Left(strdsn, Len(strdsn) - 1) & ")"
    
    off.Panes(F_PANE).Find strdsn
    off.Panes(F_PANE).Show

Else
    MsgBox "Keine Datensätze gefunden!"
End If
End Sub

commands.add "Bau12_0","Datenbank aufräumen","TypeMenu","bmpFolder"
commands.add "Bau12_1","Leere Adressen anzeigen","emptyAD","bmpAD"
commands.add "Bau12_2","Leere Aktivitäten anzeigen","emptyAKT","bmpAKT"
commands.add "Bau12_3","Leere Objekte anzeigen","emptyOBJ","bmpOBJ"
commands.add "Bau12_4","Anfragen ohne Verknüpfung anzeigen","ANFnoLink","bmpANF"
commands.add "Bau12_5","Details ohne Verknüpfung anzeigen","Detnolink","bmpDETAILS"
commands.add "Bau12_6","Aktivitäten ohne Verknüpfungen anzeigen","Aktnolink","bmpAKT"
commands.add "Bau12_7","Unerledigte Aktivitäten ohne Merkmale anzeigen","UnfinishedAKTnoLink","bmpAKT"
commands.add "Bau12_8","Aktivitäten mit großen Anhängen anzeigen","showBIGAkt","bmpAKT"

Set m_cNavBaustein12 = new cNavBaustein12

application.addeventsconsumer m_cNavBaustein12

class cNavBaustein12
Sub ToolbarCustomize
		Commands.NavigatorAdd "","Bau12_0"
		Commands.NavigatorAdd "Bau12_0","Bau12_1"
		Commands.NavigatorAdd "Bau12_0","Bau12_2"
		Commands.NavigatorAdd "Bau12_0","Bau12_3"
		Commands.NavigatorAdd "Bau12_0","Bau12_4"
		Commands.NavigatorAdd "Bau12_0","Bau12_5"
		Commands.NavigatorAdd "Bau12_0","Bau12_6"
		Commands.NavigatorAdd "Bau12_0","Bau12_7"
		Commands.NavigatorAdd "Bau12_0","Bau12_8"
	End Sub
End class