VERSION 5.00
Object = "{97CCB603-0956-11D4-9466-E4E10EC10000}#4.0#0"; "ctList.ocx"
Object = "{0E9D0E41-7AB8-11D1-9400-00A0248F2EF0}#1.0#0"; "dzactx.dll"
Object = "{9E74CAA5-52DA-11D5-A85E-0080C8DFC881}#3.0#0"; "ctFile.ocx"
Object = "{0FB90DC1-97D1-11D1-87C0-444553540000}#1.0#0"; "duzactx.dll"
Object = "{19B73C7C-C76C-11D2-849E-840A94D4800A}#2.2#0"; "FTP.ocx"
Begin VB.Form FMStart 
   Caption         =   "BAUMAT KassaUpdate"
   ClientHeight    =   7800
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   10230
   Icon            =   "FMStart.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   7800
   ScaleWidth      =   10230
   StartUpPosition =   3  'Windows-Standard
   Begin FileLibCtl.ctFile ctFile1 
      Left            =   360
      Top             =   6120
      _Version        =   196608
      _ExtentX        =   740
      _ExtentY        =   740
      _StockProps     =   64
   End
   Begin VB.CommandButton BUExport 
      Caption         =   "Export"
      Height          =   375
      Left            =   3600
      TabIndex        =   10
      Top             =   960
      Width           =   1215
   End
   Begin VB.CommandButton BUImport 
      Caption         =   "Import"
      Height          =   375
      Left            =   2040
      TabIndex        =   9
      Top             =   960
      Width           =   1215
   End
   Begin DevPowerFTP.FTP FTP1 
      Left            =   360
      Top             =   6600
      _ExtentX        =   847
      _ExtentY        =   847
      _Type           =   "00007211263922370A1D04132E74646065627564622A07282635313B352035243722743339223F"
      Asynchronous    =   0   'False
   End
   Begin CTLISTLibCtl.ctList History 
      Height          =   3015
      Left            =   1920
      TabIndex        =   8
      Top             =   4680
      Visible         =   0   'False
      Width           =   7935
      _Version        =   262144
      _ExtentX        =   13996
      _ExtentY        =   5318
      _StockProps     =   77
      BackColor       =   16777215
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty TitleFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      TitleBackImage  =   "FMStart.frx":030A
      CheckPicDown    =   "FMStart.frx":0326
      CheckPicUp      =   "FMStart.frx":0342
      CheckPicDisabled=   "FMStart.frx":035E
      BackImage       =   "FMStart.frx":037A
      MouseIcon       =   "FMStart.frx":0396
      PreColumnPicture=   "FMStart.frx":03B2
      TitleText       =   "FTP-Log"
      ShowTitle       =   -1  'True
      HeaderData      =   "FMStart.frx":03CE
      PicArray0       =   "FMStart.frx":03F6
      PicArray1       =   "FMStart.frx":0412
      PicArray2       =   "FMStart.frx":042E
      PicArray3       =   "FMStart.frx":044A
      PicArray4       =   "FMStart.frx":0466
      PicArray5       =   "FMStart.frx":0482
      PicArray6       =   "FMStart.frx":049E
      PicArray7       =   "FMStart.frx":04BA
      PicArray8       =   "FMStart.frx":04D6
      PicArray9       =   "FMStart.frx":04F2
      PicArray10      =   "FMStart.frx":050E
      PicArray11      =   "FMStart.frx":052A
      PicArray12      =   "FMStart.frx":0546
      PicArray13      =   "FMStart.frx":0562
      PicArray14      =   "FMStart.frx":057E
      PicArray15      =   "FMStart.frx":059A
      PicArray16      =   "FMStart.frx":05B6
      PicArray17      =   "FMStart.frx":05D2
      PicArray18      =   "FMStart.frx":05EE
      PicArray19      =   "FMStart.frx":060A
      PicArray20      =   "FMStart.frx":0626
      PicArray21      =   "FMStart.frx":0642
      PicArray22      =   "FMStart.frx":065E
      PicArray23      =   "FMStart.frx":067A
      PicArray24      =   "FMStart.frx":0696
      PicArray25      =   "FMStart.frx":06B2
      PicArray26      =   "FMStart.frx":06CE
      PicArray27      =   "FMStart.frx":06EA
      PicArray28      =   "FMStart.frx":0706
      PicArray29      =   "FMStart.frx":0722
      PicArray30      =   "FMStart.frx":073E
      PicArray31      =   "FMStart.frx":075A
      PicArray32      =   "FMStart.frx":0776
      PicArray33      =   "FMStart.frx":0792
      PicArray34      =   "FMStart.frx":07AE
      PicArray35      =   "FMStart.frx":07CA
      PicArray36      =   "FMStart.frx":07E6
      PicArray37      =   "FMStart.frx":0802
      PicArray38      =   "FMStart.frx":081E
      PicArray39      =   "FMStart.frx":083A
      PicArray40      =   "FMStart.frx":0856
      PicArray41      =   "FMStart.frx":0872
      PicArray42      =   "FMStart.frx":088E
      PicArray43      =   "FMStart.frx":08AA
      PicArray44      =   "FMStart.frx":08C6
      PicArray45      =   "FMStart.frx":08E2
      PicArray46      =   "FMStart.frx":08FE
      PicArray47      =   "FMStart.frx":091A
      PicArray48      =   "FMStart.frx":0936
      PicArray49      =   "FMStart.frx":0952
      PicArray50      =   "FMStart.frx":096E
      PicArray51      =   "FMStart.frx":098A
      PicArray52      =   "FMStart.frx":09A6
      PicArray53      =   "FMStart.frx":09C2
      PicArray54      =   "FMStart.frx":09DE
      PicArray55      =   "FMStart.frx":09FA
      PicArray56      =   "FMStart.frx":0A16
      PicArray57      =   "FMStart.frx":0A32
      PicArray58      =   "FMStart.frx":0A4E
      PicArray59      =   "FMStart.frx":0A6A
      PicArray60      =   "FMStart.frx":0A86
      PicArray61      =   "FMStart.frx":0AA2
      PicArray62      =   "FMStart.frx":0ABE
      PicArray63      =   "FMStart.frx":0ADA
      PicArray64      =   "FMStart.frx":0AF6
      PicArray65      =   "FMStart.frx":0B12
      PicArray66      =   "FMStart.frx":0B2E
      PicArray67      =   "FMStart.frx":0B4A
      PicArray68      =   "FMStart.frx":0B66
      PicArray69      =   "FMStart.frx":0B82
      PicArray70      =   "FMStart.frx":0B9E
      PicArray71      =   "FMStart.frx":0BBA
      PicArray72      =   "FMStart.frx":0BD6
      PicArray73      =   "FMStart.frx":0BF2
      PicArray74      =   "FMStart.frx":0C0E
      PicArray75      =   "FMStart.frx":0C2A
      PicArray76      =   "FMStart.frx":0C46
      PicArray77      =   "FMStart.frx":0C62
      PicArray78      =   "FMStart.frx":0C7E
      PicArray79      =   "FMStart.frx":0C9A
      PicArray80      =   "FMStart.frx":0CB6
      PicArray81      =   "FMStart.frx":0CD2
      PicArray82      =   "FMStart.frx":0CEE
      PicArray83      =   "FMStart.frx":0D0A
      PicArray84      =   "FMStart.frx":0D26
      PicArray85      =   "FMStart.frx":0D42
      PicArray86      =   "FMStart.frx":0D5E
      PicArray87      =   "FMStart.frx":0D7A
      PicArray88      =   "FMStart.frx":0D96
      PicArray89      =   "FMStart.frx":0DB2
      PicArray90      =   "FMStart.frx":0DCE
      PicArray91      =   "FMStart.frx":0DEA
      PicArray92      =   "FMStart.frx":0E06
      PicArray93      =   "FMStart.frx":0E22
      PicArray94      =   "FMStart.frx":0E3E
      PicArray95      =   "FMStart.frx":0E5A
      PicArray96      =   "FMStart.frx":0E76
      PicArray97      =   "FMStart.frx":0E92
      PicArray98      =   "FMStart.frx":0EAE
      PicArray99      =   "FMStart.frx":0ECA
   End
   Begin VB.TextBox MailTxt 
      Height          =   300
      Left            =   1920
      TabIndex        =   6
      Text            =   "Text1"
      Top             =   4200
      Width           =   7935
   End
   Begin VB.CommandButton BUUpdate 
      Caption         =   "Updaten"
      Enabled         =   0   'False
      Height          =   375
      Left            =   480
      TabIndex        =   5
      Top             =   4080
      Width           =   1215
   End
   Begin CTLISTLibCtl.ctList LIServ 
      Height          =   2055
      Left            =   480
      TabIndex        =   4
      Top             =   1680
      Width           =   9375
      _Version        =   262144
      _ExtentX        =   16536
      _ExtentY        =   3625
      _StockProps     =   77
      BackColor       =   16777215
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty TitleFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty HeaderFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      TitleBackImage  =   "FMStart.frx":0EE6
      CheckPicDown    =   "FMStart.frx":0F02
      CheckPicUp      =   "FMStart.frx":0F1E
      CheckPicDisabled=   "FMStart.frx":0F3A
      BackImage       =   "FMStart.frx":0F56
      MouseIcon       =   "FMStart.frx":0F72
      PreColumnPicture=   "FMStart.frx":0F8E
      HeightOffset    =   2
      ShowHeader      =   -1  'True
      AlternateColor  =   -1  'True
      MultiSelect     =   -1  'True
      HorzGridLines   =   -1  'True
      SmallIcons      =   -1  'True
      HeaderData      =   "FMStart.frx":0FAA
      PicArray0       =   "FMStart.frx":10E3
      PicArray1       =   "FMStart.frx":1535
      PicArray2       =   "FMStart.frx":1987
      PicArray3       =   "FMStart.frx":19A3
      PicArray4       =   "FMStart.frx":19BF
      PicArray5       =   "FMStart.frx":19DB
      PicArray6       =   "FMStart.frx":19F7
      PicArray7       =   "FMStart.frx":1A13
      PicArray8       =   "FMStart.frx":1A2F
      PicArray9       =   "FMStart.frx":1A4B
      PicArray10      =   "FMStart.frx":1A67
      PicArray11      =   "FMStart.frx":1A83
      PicArray12      =   "FMStart.frx":1A9F
      PicArray13      =   "FMStart.frx":1ABB
      PicArray14      =   "FMStart.frx":1AD7
      PicArray15      =   "FMStart.frx":1AF3
      PicArray16      =   "FMStart.frx":1B0F
      PicArray17      =   "FMStart.frx":1B2B
      PicArray18      =   "FMStart.frx":1B47
      PicArray19      =   "FMStart.frx":1B63
      PicArray20      =   "FMStart.frx":1B7F
      PicArray21      =   "FMStart.frx":1B9B
      PicArray22      =   "FMStart.frx":1BB7
      PicArray23      =   "FMStart.frx":1BD3
      PicArray24      =   "FMStart.frx":1BEF
      PicArray25      =   "FMStart.frx":1C0B
      PicArray26      =   "FMStart.frx":1C27
      PicArray27      =   "FMStart.frx":1C43
      PicArray28      =   "FMStart.frx":1C5F
      PicArray29      =   "FMStart.frx":1C7B
      PicArray30      =   "FMStart.frx":1C97
      PicArray31      =   "FMStart.frx":1CB3
      PicArray32      =   "FMStart.frx":1CCF
      PicArray33      =   "FMStart.frx":1CEB
      PicArray34      =   "FMStart.frx":1D07
      PicArray35      =   "FMStart.frx":1D23
      PicArray36      =   "FMStart.frx":1D3F
      PicArray37      =   "FMStart.frx":1D5B
      PicArray38      =   "FMStart.frx":1D77
      PicArray39      =   "FMStart.frx":1D93
      PicArray40      =   "FMStart.frx":1DAF
      PicArray41      =   "FMStart.frx":1DCB
      PicArray42      =   "FMStart.frx":1DE7
      PicArray43      =   "FMStart.frx":1E03
      PicArray44      =   "FMStart.frx":1E1F
      PicArray45      =   "FMStart.frx":1E3B
      PicArray46      =   "FMStart.frx":1E57
      PicArray47      =   "FMStart.frx":1E73
      PicArray48      =   "FMStart.frx":1E8F
      PicArray49      =   "FMStart.frx":1EAB
      PicArray50      =   "FMStart.frx":1EC7
      PicArray51      =   "FMStart.frx":1EE3
      PicArray52      =   "FMStart.frx":1EFF
      PicArray53      =   "FMStart.frx":1F1B
      PicArray54      =   "FMStart.frx":1F37
      PicArray55      =   "FMStart.frx":1F53
      PicArray56      =   "FMStart.frx":1F6F
      PicArray57      =   "FMStart.frx":1F8B
      PicArray58      =   "FMStart.frx":1FA7
      PicArray59      =   "FMStart.frx":1FC3
      PicArray60      =   "FMStart.frx":1FDF
      PicArray61      =   "FMStart.frx":1FFB
      PicArray62      =   "FMStart.frx":2017
      PicArray63      =   "FMStart.frx":2033
      PicArray64      =   "FMStart.frx":204F
      PicArray65      =   "FMStart.frx":206B
      PicArray66      =   "FMStart.frx":2087
      PicArray67      =   "FMStart.frx":20A3
      PicArray68      =   "FMStart.frx":20BF
      PicArray69      =   "FMStart.frx":20DB
      PicArray70      =   "FMStart.frx":20F7
      PicArray71      =   "FMStart.frx":2113
      PicArray72      =   "FMStart.frx":212F
      PicArray73      =   "FMStart.frx":214B
      PicArray74      =   "FMStart.frx":2167
      PicArray75      =   "FMStart.frx":2183
      PicArray76      =   "FMStart.frx":219F
      PicArray77      =   "FMStart.frx":21BB
      PicArray78      =   "FMStart.frx":21D7
      PicArray79      =   "FMStart.frx":21F3
      PicArray80      =   "FMStart.frx":220F
      PicArray81      =   "FMStart.frx":222B
      PicArray82      =   "FMStart.frx":2247
      PicArray83      =   "FMStart.frx":2263
      PicArray84      =   "FMStart.frx":227F
      PicArray85      =   "FMStart.frx":229B
      PicArray86      =   "FMStart.frx":22B7
      PicArray87      =   "FMStart.frx":22D3
      PicArray88      =   "FMStart.frx":22EF
      PicArray89      =   "FMStart.frx":230B
      PicArray90      =   "FMStart.frx":2327
      PicArray91      =   "FMStart.frx":2343
      PicArray92      =   "FMStart.frx":235F
      PicArray93      =   "FMStart.frx":237B
      PicArray94      =   "FMStart.frx":2397
      PicArray95      =   "FMStart.frx":23B3
      PicArray96      =   "FMStart.frx":23CF
      PicArray97      =   "FMStart.frx":23EB
      PicArray98      =   "FMStart.frx":2407
      PicArray99      =   "FMStart.frx":2423
   End
   Begin VB.FileListBox File1 
      Height          =   1260
      Left            =   5880
      TabIndex        =   2
      Top             =   240
      Width           =   3975
   End
   Begin VB.TextBox QVerz 
      Height          =   300
      Left            =   1680
      TabIndex        =   1
      Top             =   360
      Width           =   3975
   End
   Begin DUZACTXLibCtl.duzactxctrl zip2 
      Left            =   1080
      OleObjectBlob   =   "FMStart.frx":243F
      Top             =   7200
   End
   Begin DZACTXLibCtl.dzactxctrl zip1 
      Left            =   360
      OleObjectBlob   =   "FMStart.frx":2537
      Top             =   7200
   End
   Begin VB.Label Label3 
      Caption         =   "E-Mail bestätigung auf:"
      Height          =   255
      Left            =   1920
      TabIndex        =   7
      Top             =   3960
      Width           =   2775
   End
   Begin VB.Label Label2 
      Caption         =   "Kassen:"
      Height          =   255
      Left            =   360
      TabIndex        =   3
      Top             =   1440
      Width           =   615
   End
   Begin VB.Label Label1 
      Caption         =   "Quellverzeichnis:"
      Height          =   255
      Left            =   360
      TabIndex        =   0
      Top             =   360
      Width           =   1335
   End
End
Attribute VB_Name = "FMStart"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub BUExport_Click()

     BUExport.Enabled = False
     BUImport.Enabled = False
     DoEvents
     
     Open FMStart.QVerz.Text & "\vers.txt" For Input As #1
     Line Input #1, vers
     Close #1
     vers = Piece(vers, Chr(10), 1)
     
     fdir = "x:\software\baumat\kassa\" & vers & ".zip"
     erg = MsgBox(fdir & " erstellen", vbYesNo)
     If erg = 6 Then
     
        History.ClearList
        History.Visible = True
        History.InsertItem "Verzeichnis anlegen und files kopieren", 0
        
        Screen.MousePointer = 11
        DoEvents
     
        On Error Resume Next
        MkDir "x:\software\baumat\kassa\archiv\" & vers
     
        Kill "x:\software\baumat\kassa\*.zip"
        Kill "x:\software\baumat\kassa\archiv\" & vers & "\*.*"
        
        comm = "copy " & FMStart.QVerz.Text & "\*.*" & " x:\software\baumat\kassa\archiv\" & vers
        erg = Shell(Environ("comspec") & " /c " & comm)
        
        zip1.ZIPFile = fdir
        zip1.ZIPString = ""
        zip1.ItemList = QVerz.Text & "\*"
        zip1.RecurseFlag = False
        zip1.CompressionFactor = 9
        zip1.NoDirectoryNamesFlag = True
        zip1.NoDirectoryEntriesFlag = True
        zip1.QuietFlag = True
        History.InsertItem "Start Dateien zippen", 0
        zip1.ActionDZ = 4
        
        If zip1.ErrorCode = 0 Then
            History.InsertItem "Ende Zippen fehlerfrei", 0
         Else
            History.InsertItem "Ende Zippen mit Fehler " & zip1.ErrorCode, 0
            Call MsgBox("Export fehlgeschlagen", vbCritical)
        End If
     End If
     
     BUExport.Enabled = True
     BUImport.Enabled = True
     Screen.MousePointer = 1
     DoEvents
End Sub

Private Sub BUImport_Click()

    Dim regobj As New Stonebroom.RegEx
    
    BUImport.Enabled = False
    
    fdir = regobj.GetRegValueEx(1, "\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders", "Desktop", 0)

    ctFile1.InitialDir = fdir
    ctFile1.Filter = "*.zip"
    
    If ctFile1.ShowOpen Then
    
        lfile = QVerz.Text & "\*.*"
        On Error Resume Next
        Kill lfile
        File1.Refresh
        
        file = ctFile1.PathName
        zip2.ErrorCode = 0
        zip2.ZIPFile = file
        zip2.Filespec = "*.*"
        zip2.Destination = QVerz.Text
        zip2.OverwriteFlag = True
        zip2.QuietFlag = True
        zip2.MessageCallbackFlag = True
        zip2.AllQuiet = True
        zip2.ActionDZ = 3
        zipcnt = zip2.ReturnCount
        
        If zipcnt = 0 Then
          MsgBox "Kassaupdate enthält keine Daten", vbCritical
          BUImport.Enabled = True
          Exit Sub
        End If
      
        zip2.ActionDZ = 4
        zip2.ActionDZ = 8
        File1.Refresh
        If zip2.ErrorCode = 0 Then
            MsgBox "Importieren Kassaupdate war erfolgreich", vbInformation
         Else
            MsgBox "Fehler bei importieren Kassaupdate", vbCritical
            BUImport.Enabled = True
            Exit Sub
        End If
    End If
    
    BUImport.Enabled = True
    

End Sub

Private Sub BUUpdate_Click()

     
     Dim c As Byte
     Dim S As String
     Dim obj As Object
     
     BUUpdate.Enabled = False
     Screen.MousePointer = 11
     DoEvents
     
     History.ClearList
     History.Visible = True
     History.InsertItem "Beginn Update", 0
     History.InsertItem "Beginn Zippen", 0
    
     Open QVerz & "\vers.txt" For Input As #1
     Line Input #1, vers
     Close #1
     If MailTxt.Text <> "" Then
        Open Environ("temp") & "\mail.txt" For Output As #1
        Print #1, MailTxt.Text
        Close #1
     End If
     
     zip1.ZIPFile = Environ("temp") & "\kassa.zip"
     zip1.ZIPString = ""
     zip1.ItemList = QVerz.Text & "\*"
     zip1.RecurseFlag = False
     zip1.CompressionFactor = 9
     zip1.NoDirectoryNamesFlag = True
     zip1.NoDirectoryEntriesFlag = True
     zip1.QuietFlag = True
     zip1.ActionDZ = 4
     If zip1.ErrorCode = 0 Then
        History.InsertItem "Ende Zippen fehlerfrei", 0
      Else
        History.InsertItem "Ende Zippen mit Fehler " & zip1.ErrorCode, 0
        GoTo Ende
     End If
     
     For i = 0 To LIServ.ListCount - 1
       If LIServ.ListSelect(i) Then
          ip = Piece(LIServ.ListText(i), Chr(10), 3)
          user = Piece(LIServ.ListText(i), Chr(10), 4)
          passw = Piece(LIServ.ListText(i), Chr(10), 5)
          
          On Error GoTo ftperr
          FTP1.Connect ip, user, passw
          FTP1.CD "/asci/kasoft"
          FTP1.TransferType = ftpBinary
          FTP1.PutFile Environ("temp") & "\kassa.zip", "/asci/kasoft", "kassa.zip"
          FTP1.TransferType = ftpAscii
          FTP1.PutFile QVerz & "\vers.txt", "/asci/kasoft", "vers.txt"
          If MailTxt.Text <> "" Then
            FTP1.PutFile Environ("temp") & "\mail.txt", "/asci/kasoft", "mail.txt"
            Kill Environ("temp") & "\mail.txt"
          End If
          FTP1.Disconnect
          LIServ.CellPicture(i, 6) = 2
          VerbindungEIN
          Set obj = WWS_Server.OpenId("BM.KassaSW", LIServ.ListCargo(i))
          obj.FtpVersion = vers
          obj.sys_Save
          obj.SYS_Close
          servakt

       End If
     Next
              
       
     
Ende:
     BUUpdate.Enabled = True
     Screen.MousePointer = 1
     Call SaveSetting("KassaUpdate", "Default", "EMail", MailTxt.Text)
     Exit Sub
     
ftperr:
     On Error Resume Next
     FTP1.Disconnect
     LIServ.CellPicture(i, 6) = 1
     BUUpdate.Enabled = True
     Screen.MousePointer = 1

End Sub

Private Sub File1_DblClick()
Shell Environ("windir") & "/notepad.exe " & File1.Path & "\" & File1.FileName, vbNormalFocus


End Sub

Private Sub Form_Load()

BUExport.Visible = (command = "intern")

Neustart:
PasswortErforderlich = False
If Not user_anmeld Then GoTo Neustart


QVerz.Text = GetSetting("KassaUpdate", "Default", "Quellverzeichnis")
MailTxt.Text = GetSetting("KassaUpdate", "Default", "EMail")
servakt

End Sub



Private Sub Form_Unload(Cancel As Integer)
If WWS_Server.IsConnected Then WWS_Server.Disconnect
Beep
End
End Sub

Private Sub FTP1_ServerResponse(ByVal message As String)
History.InsertItem "   FTP:  " & message, 0
DoEvents
End Sub

Private Sub LIServ_Click()
sw = False
For i = 0 To LIServ.ListCount - 1
       If LIServ.ListSelect(i) Then sw = True
Next
BUUpdate.Enabled = sw
End Sub

Private Sub LIServ_DblClick()

FMKassen.Show 1, Me
Unload FMKassen

End Sub

Private Sub LIServ_LostFocus()
sw = False
For i = 0 To LIServ.ListCount - 1
       If LIServ.ListSelect(i) Then sw = True
Next
BUUpdate.Enabled = sw
End Sub

Private Sub QVerz_Change()
If QVerz.Text = "\" Then GoTo err:
On Error GoTo err:
File1.Path = QVerz.Text
File1.Visible = True
Call SaveSetting("KassaUpdate", "Default", "Quellverzeichnis", QVerz.Text)
Exit Sub
err:
  File1.Visible = False
End Sub

Private Sub Tcp1_State()

End Sub

