imports BBasic
imports BBHelper
imports BBHelper.Helper
imports System
class UserScript

 #region "Noetige Teile"
 Dim WithEvents bbsys as BBasic.Class_bbsys
 sub beenden
  bbsys = nothing
 end sub

sub starten(b as BBasic.Class_bbsys)
        'Diese Funktion ist wichtig. Sie initialisiert das Makro
 bbsys =b
 Init  
end sub
#End Region
sub Init
 bbsys.mainformstart(nothing)
 bbsys.mainform.visible=false
' bbsys.hasuserinterface=false
    bbsys.Login_BBasicUser("firmenname", "NUTZERNAME", "KENNWORT", 0)
 bbsys.Setting.AktuellerMandant=1
 bbsys.Wartebild_SetSubtext("Internet Limitts") 
   dim hv as new Class_Hausverwaltung(bbsys, "Mieter Internet")
 hv.InternetLimitt(false)
    hv = Nothing
  
   bbsys.Wartebild_SetSubtext("Do AUTOSIK")    
    bbsys.DoAutoSik()
    dim prog as New XBBMain(bbsys, "MassenOCR") 
   bbsys.Wartebild_SetSubtext("Gastro Import")
    prog.GastroKassenImport()
   'bbsys.Wartebild_SetSubtext("Compress-SQL-File")
    'Try
 'bbsys.ZipCompress ("\\10.8.0.102\daten\bbasic\daten\ofendt\SQL.ZIP","D:\SicherungMySQLOF\ofendt.sql","\",BBasic.Class_bbsys.ZipOverRideMode.OverwriteDiffrentOlder)
    'Catch ex As Exception
    'bbsys.Logging_LogError("Makro OCR.BBS ZIP:" +ex.message)
    'End Try
   bbsys.Wartebild_SetSubtext("ZIP Datensicherung")    
 bbsys.ZipDatensicherung()
   bbsys.Wartebild_SetSubtext("OCR Texterkennung 250 Dokumente")
 
    prog.MassenOCR(0,250)
       
       
       
    Dim dok As New DataClass.Dokument(bbsys)
    Dim max%
    dok.Nof = dok.Search("(sicherflag & 8192)=0  order by id desc limit 15000")
  bbsys.Wartebild_SetSubtext("Volltext Index aufbauen")
        While dok.Nof
            bbsys.Sleep(1)
            dok.VolltextRefresh(True)
            dok.Next
        End While
    dok.Close()
   bbsys.Wartebild_SetSubtext("Programm beenden")
      
    Call prog.Ende()       
 bbsys.endbbasic 
 bbsys.MakroEnd=true
end sub

end class