KundeBeab, Seriendruck, cKundenErw.

SDL/frmdynMailvorlage.vb

@@ -57,6 +57,7 @@ Public Class frmdynMailvorlagen
         cbxTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Mahnung", "2"))
         cbxTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("OP-Liste", "3"))
         cbxTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MDM-SR", "4"))
+        cbxTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Erstattungsschreiben", "5"))
         cbxTyp.changeItem("")
 
 
@@ -430,6 +431,11 @@ Public Class frmdynMailvorlagen
             Case 1
                 'Sendungsvariable
                 txtVariablen.Text = "%VAR-GRENZE%, %LKW%, %LKWKennzeichen%, %Empfaenger%, %voraus-Eintreffen%, %FilialenNr%, %AbfertigungsNr%, %Absender%, %Gewicht%, %ImEx%, %Zollstelle%"
+
+            Case 5
+                'Erstattungsschreiben
+                txtVariablen.Text = "%BelegNr%, %Belegdatum%, %Betrag%, %Name%, %AbfertigungsNr%, %FilialenNr%, %Name%, %MWST%"
+
             Case Else
                 'Mahnvariable
                 txtVariablen.Text = " %Mahntext%, %KdNr%, %email_mahnung%"