' ------------------------------------------------ Kontingent erhöhen / erfassen
Private Sub btnKErhöhen_Click()
    If sevAnzahl = 0 Then
       MsgBox "Bitte geben Sie die Anzahl der Zimmer ein"
       sevAnzahl.SetFocus
       Exit Sub
    End If
    sDatumVon = sevDatumVon
    sDatumBis = sevDatumVon
    Do While sDatumBis <= sevDatumBis
       sSQL = "KontDatum = '" & sevDatumVon & "'"
       If sevGrid1.FindFirst = 0 Then
          ' ------------------------------------- Neuen Kontingentsatz erstellen
          With sevGrid1
             .AddNew
             .CellNew("KontNr") = 0
             .CellNew("KontHotel") = sevHotelNr
             .CellNew("KontZiArt") = sevZimmerart
             .CellNew("Kontdatum") = sDatumVon
             .CellNew("KontMax") = sevAnzahl
             .CellNew("KontGebucht") = 0
             .CellNew("KontFrei") = sevAnzahl
             .CellNew("KontText") = ""
             .UpdateRow
          End With
       ' -------------------------------------- Kontingent erhöhen
       Else
          With sevGrid1
 
          End With
 
       End If