Version =196611
ColumnsShown =3
Begin
    MacroName ="Mkr_status_einfuege_1"
End
Begin
    Condition ="[Status] Is Null"
    Action ="StopMacro"
    Comment ="OK"
End
Begin
    Condition ="[Forms]![frm_terminierung_ungebunden_neu]![Status]=\"Termin\" And [Forms]![frm_t"
        "erminierung_ungebunden_neu]![Termindatum] Is Null"
    Action ="MsgBox"
    Comment ="OK"
    Argument ="Speichern nicht möglich!!! Bitte geben Sie das Termindatum an!"
    Argument ="0"
    Argument ="3"
    Argument ="Achtung!"
End
Begin
    Condition ="[Forms]![frm_terminierung_ungebunden_neu]![Status]=\"Termin\" And [Forms]![frm_t"
        "erminierung_ungebunden_neu]![Termindatum] Is Null"
    Action ="StopMacro"
    Comment ="OK"
End
Begin
    Condition ="[Forms]![frm_terminierung_ungebunden_neu]![Status]=\"Termin\" And [Forms]![frm_t"
        "erminierung_ungebunden_neu]![Terminzeit] Is Null"
    Action ="MsgBox"
    Comment ="OK"
    Argument ="Speichern nicht möglich!!! Bitte geben Sie die Terminzeit an!"
    Argument ="0"
    Argument ="3"
    Argument ="Achtung!"
End
Begin
    Condition ="[Forms]![frm_terminierung_ungebunden_neu]![Status]=\"Termin\" And [Forms]![frm_t"
        "erminierung_ungebunden_neu]![Terminzeit] Is Null"
    Action ="StopMacro"
    Comment ="OK"
End
Begin
    Action ="Echo"
    Comment ="?"
    Argument ="0"
    Argument ="Anforderung wird ausgeführt"
End
Begin
    Action ="Hourglass"
    Comment ="?"
    Argument ="-1"
End
Begin
    Action ="RunMacro"
    Comment ="OK"
    Argument ="MkrAgent2"
End
Begin
    Action ="OpenForm"
    Comment ="Neu ... alle weiteren Felder"
    Argument ="frm_Statustabelle_Terminierung"
    Argument ="0"
    Argument =""
    Argument =""
    Argument ="0"
    Argument ="1"
End
Begin
    Action ="SetValue"
    Comment ="KDNR"
    Argument ="[Forms]![frm_Statustabelle_Terminierung]![KD_NR]"
    Argument ="[Forms]![frm_terminierung_ungebunden_neu]![KD_NR]"
End
Begin
    Action ="SetValue"
    Comment ="Anruftag"
    Argument ="[Forms]![frm_Statustabelle_Terminierung]![Anruftag]"
    Argument ="[Forms]![frm_terminierung_ungebunden_neu]![Anruftag]"
End
Begin
    Action ="SetValue"
    Comment ="Status"
    Argument ="[Forms]![frm_Statustabelle_Terminierung]![Status]"
    Argument ="[Forms]![frm_terminierung_ungebunden_neu]![Status]"
End
Begin
    Action ="SetValue"
    Comment ="Agent"
    Argument ="[Forms]![frm_Statustabelle_Terminierung]![Terminierer]"
    Argument ="[Forms]![frm_terminierung_ungebunden_neu]![Terminierer]"
End
Begin
    Action ="SetValue"
    Comment ="WV Datum"
    Argument ="[Forms]![frm_Statustabelle_Terminierung]![WV Datum]"
    Argument ="[Forms]![frm_terminierung_ungebunden_neu]![WVDatum]"
End
Begin
    Action ="SetValue"
    Comment ="WV Uhrzeit"
    Argument ="[Forms]![frm_Statustabelle_Terminierung]![WV Uhrzeit]"
    Argument ="[Forms]![frm_terminierung_ungebunden_neu]![WVUhrzeit]"
End
Begin
    Action ="SetValue"
    Comment ="WV Bemerkung"
    Argument ="[Forms]![frm_Statustabelle_Terminierung]![WV Bemerkung]"
    Argument ="[Forms]![frm_terminierung_ungebunden_neu]![WVBemerkung]"
End
Begin
    Action ="SetValue"
    Comment ="AD"
    Argument ="[Forms]![frm_Statustabelle_Terminierung]![AD]"
    Argument ="[Forms]![frm_terminierung_ungebunden_neu]![AD]"
End
Begin
    Action ="SetValue"
    Comment ="Termintag"
    Argument ="[Forms]![frm_Statustabelle_Terminierung]![Termintag]"
    Argument ="[Forms]![frm_terminierung_ungebunden_neu]![Termintag]"
End
Begin
    Action ="SetValue"
    Comment ="Termindatum"
    Argument ="[Forms]![frm_Statustabelle_Terminierung]![Termindatum]"
    Argument ="[Forms]![frm_terminierung_ungebunden_neu]![Termindatum]"
End
Begin
    Action ="SetValue"
    Comment ="Terminzeit"
    Argument ="[Forms]![frm_Statustabelle_Terminierung]![Terminzeit]"
    Argument ="[Forms]![frm_terminierung_ungebunden_neu]![Terminzeit]"
End
Begin
    Action ="SetValue"
    Comment ="Terminbemerkung"
    Argument ="[Forms]![frm_Statustabelle_Terminierung]![Termin Bemerkung]"
    Argument ="[Forms]![frm_terminierung_ungebunden_neu]![Terminbemerkung]"
End
Begin
    Action ="SetValue"
    Comment ="Bestätigt"
    Argument ="[Forms]![frm_Statustabelle_Terminierung]![Bestätigt]"
    Argument ="[Forms]![frm_terminierung_ungebunden_neu]![Bestätigt]"
End
Begin
    Action ="SetValue"
    Comment ="Zeit"
    Argument ="[Forms]![frm_Statustabelle_Terminierung]![Uhrzeit]"
    Argument ="[Forms]![frm_terminierung_ungebunden_neu]![Zeit]"
End
Begin
    Action ="SetValue"
    Comment ="Agent2     -    WICHTIG noch in VBA reinnehmen bei wechsel auf Statustabelle"
    Argument ="[Forms]![frm_Statustabelle_Terminierung]![Agent2]"
    Argument ="[Forms]![frm_terminierung_ungebunden_neu]![Agent2]"
End
Begin
    Action ="SetValue"
    Comment ="ID Terminart     -    WICHTIG noch in VBA reinnehmen bei wechsel auf Statustabel"
        "le"
    Argument ="[Forms]![frm_Statustabelle_Terminierung]![Terminart]"
    Argument ="[Forms]![frm_terminierung_ungebunden_neu]![Terminart]"
End
Begin
    Action ="Close"
    Comment ="..."
    Argument ="2"
    Argument ="frm_Statustabelle_Terminierung"
    Argument ="2"
End
Begin
    Condition ="[Forms]![frm_terminierung_ungebunden_neu]![Status] Not Like \"* WV\""
    Action ="RunMacro"
    Comment ="..."
    Argument ="Mkr_WVNeu"
End
Begin
    Condition ="[Forms]![frm_HauptTerminierungWV]![Retention]=\"Retention\" And [Forms]![frm_Hau"
        "ptTerminierungWV]![Retentiondaten].[Form]![Bearbeitet] Is Null"
    Action ="SetValue"
    Comment ="? brauchen wir das???"
    Argument ="[Forms]![frm_HauptTerminierungWV]![Retentiondaten].[Form]![Bearbeitet]"
    Argument ="\"Ja\""
End
Begin
    Condition ="[Status]=\"Termin\" And [Forms]![frm_Haupt]![Terminierer]<>\"Birgit Reuner\" Or "
        "[Status]=\"Termin\" And [Forms]![frm_Haupt]![Terminierer]<>\"D. Alscher\""
    Action ="OpenForm"
    Comment ="Brauchen wir nicht mehr"
    Argument ="frm_WarnsystTerminZeit1"
    Argument ="0"
    Argument =""
    Argument =""
    Argument ="-1"
    Argument ="1"
End
Begin
    Action ="Close"
    Comment ="Brauchen wir nicht mehr"
    Argument ="2"
    Argument ="frm_terminierung_ungebunden_neu"
    Argument ="2"
End
Begin
    Action ="GoToRecord"
    Comment ="Beim schliessen Formular Ungebunden  OK über Makro"
    Argument ="2"
    Argument ="frm_HauptTerminierungWV"
    Argument ="1"
End
Begin
    Action ="GoToRecord"
    Comment ="Beim schliessen Formular Ungebunden  OK über Makro"
    Argument ="2"
    Argument ="frm_HauptTerminierungWV"
    Argument ="0"
End
Begin
    Action ="Echo"
    Comment ="?"
    Argument ="-1"
    Argument ="Anforderung ist ausgeführt"
End
Begin
    Action ="Hourglass"
    Comment ="?"
    Argument ="0"
End
Begin
    Action ="MsgBox"
    Comment ="Brauchen wir nicht mehr"
    Argument ="Status gespeichert"
    Argument ="0"
    Argument ="4"
End
Begin
    Comment ="[Formulare]![frm_HauptTerminierungWV]![StatusWV]=\"WV\"   (Ausführenn MAkro)"
End
Begin
    Condition ="[Status] Not Like \"Termi*\" And [Termindatum]>0"
    Action ="MsgBox"
    Comment ="Brauchen wir nicht mehr"
    Argument ="Achtung! Bei Termin Status \"Termin\" eintragen!"
    Argument ="0"
    Argument ="1"
    Argument ="Achtung!"
End
Begin
    Condition ="[Forms]![frm_HauptTerminierungWV]![StatusWV]<>\"WV\" And [Forms]![frm_Haupt]![PL"
        "Z]<>[Forms]![frm_HauptTerminierungWV]![PLZ] And [Forms]![frm_Anmeldung]![Benutze"
        "rart]=1"
    Action ="MsgBox"
    Comment ="Brauchen wir nicht mehr"
    Argument ="Achtung!!! Neue Postleitzahl!!! Bitte zur Hauptmaske wechseln!!!"
    Argument ="-1"
    Argument ="1"
    Argument ="Wichtige Information!"
End
Begin
    Condition ="[Status] Like \"Termin*\""
    Action ="MsgBox"
    Comment ="Beim schliessen Formular Ungebunden  OK über Makro"
    Argument ="Bitte Kunden nach Email Adresse wegen Termin-Bestätigung-Email fragen und Email "
        "versenden! Falls Kunde keine Email hat bitte Faxnummer erfragen und Kunden Termi"
        "n-Bestätigung faxen!"
    Argument ="-1"
    Argument ="1"
    Argument ="Wichtig!"
End
Begin
    Condition ="[Status] Like \"Termin*\""
    Action ="GoToControl"
    Comment ="Beim schliessen Formular Ungebunden  OK über Makro"
    Argument ="Email"
End
Begin
    Condition ="[Status] Not Like \"Termi*\""
    Action ="GoToRecord"
    Comment ="Beim schliessen Formular Ungebunden  OK über Makro"
    Argument ="2"
    Argument ="frm_HauptTerminierungWV"
    Argument ="1"
End
Begin
    Condition ="[Status] Not Like \"Termi*\""
    Action ="GoToControl"
    Comment ="Beim schliessen Formular Ungebunden  OK über Makro"
    Argument ="Rufnummer"
End
Begin
    Condition ="[Forms]![frm_HauptTerminierungWV]![StatusWV] Is Null And [Forms]![frm_HauptTermi"
        "nierungWV]![PLZ]<>[Forms]![frm_Haupt]![PLZ] And [Forms]![frm_Anmeldung]![Benutze"
        "rart]=1"
    Action ="MsgBox"
    Comment ="Brauchen wir nicht mehr"
    Argument ="=\"Hallo \" & [Forms]![frm_Haupt]![Terminierer] & \" Du hast eine neue Postleitz"
        "ahl!! Bitte wechsle zum Hauptformular!!\""
    Argument ="0"
    Argument ="1"
    Argument ="Achtung!"
End
Begin
    Condition ="[Forms]![frm_HauptTerminierungWV]![StatusWV]=\"WV\""
    Action ="Close"
    Comment ="Brauchen wir nicht mehr"
    Argument ="2"
    Argument ="frm_HauptTerminierungWV"
    Argument ="2"
End
