Private Sub FehlenderFahrauftrag()
       On Error GoTo ErrorHandler:
       sRs_Close
       sSQL = "SELECT * FROM tblfahrauftragsti"
       sRs.CursorLocation = adUseClient
       sRs.Open sSQL, oConn, adOpenKeyset, adLockBatchOptimistic
       sRsOpen = True
       If sRs.RecordCount = 0 Then
          Exit Sub
       End If
 
       sRs.AddNew
       sRs!fa01_referenz = sevReferenz
       sRs!fa01_auftragsnummer = zRs!buz_vorgang
       sRs!fa01_kunde = sevKundennummer
       sRs!fa01_kundenname = left(sevAdresse1.Caption, 80)
       sRs!fa01_reisedatum = zRs!buz_datum
       sRs!fa01_reiseende = zRs!buz_datum
       sRs!fa01_fahrzeug_neu = ""
       sRs!fa01_auftrag_folge = 1
       sRs!fa01_bereit_zeit = zRs!buz_zeit
       sRs!fa01_abfahrt_zeit = zRs!buz_zeit
       sRs!fa01_abfahrt_ort = sevAbfOrtH
       sRs!fa01_ende_zeit = zRs!buz_zeitbis
       sRs!fa01_kilometer_inland = 0
       sRs!fa01_kilometer_ausland = 0
       sRs!fa01_route = sevFahrtziel
       sRs!fa01_kurzroute = left(sevFahrtziel, 30)
       sRs!fa01_bemerkung = ""
       sRs!fa01_status = 2
       sRs!fa01_user = sUserName
       If IsNumeric(sevPersBis) And sevPersBis > 0 Then
          sRs!fa01_anzahl_personen = sevPersBis
       Else
          sRs!fa01_anzahl_personen = sevPersVon
       End If
       sRs!fa01_anzahl_fahrzeuge = 1
       sRs!fa01_fahrzeug = zRs!buz_bus
       sRs!fa01_chauffeur = ""
       sRs!fa01_art = "Auftrag"
       sRs!fa01_fahrtart = "Programmfahrten"
 
       If Not IsNull(sevWerbe) Then
          If sevWerbe = "75 Incoming" Or sevWerbe = "Incoming" Then
             sRs!fa01_fahrtart = "Incoming"
          End If
       End If
       If IsNumeric(sevFahrzeugpreis) Then
          sRs!fa01_fahrzeugpreis = CDbl(sevFahrzeugpreis)
       Else
          sRs!fa01_fahrzeugpreis = 0
       End If
       sRs!fa01_preis_programm = 0
       sRs.Update
       nfahrauftrag_nummer = sRs!fa01_fahrauftrag
       Exit Sub
ErrorHandler:
    If Err <> 0 Then
       MsgBox Err.Source & "-->" & Err.Description, , "Fehler -" & _
         "FehlenderFahrauftrag"
    End If
 
End Sub