Maut, QU-Kontrolle, MAhnlauf, Kundebearbeiten, etc.

SDL/frmdynMailvorlage.vb

@@ -1,4 +1,6 @@
 Imports System.Windows.Controls
+Imports System.Windows.Documents
+Imports DocumentFormat.OpenXml.Drawing.Charts
 Imports GrapeCity.ActiveReports.SectionReportModel
 Imports Microsoft.Office.Interop
 Imports VERAG_PROG_ALLGEMEIN
@@ -36,10 +38,27 @@ Public Class frmdynMailvorlagen
         cbxFirma.fillWithSQL("SELECT distinct([Firmengruppe]) FROM [tblFirma] where Firmengruppe is not null  ", False, "FMZOLL", True)
         cbxFirmaChange.Items.AddRange(cbxFirma.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray())
 
-        cbxFirma.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
+
+        If Not IsDBNull(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_firmaFMZoll) AndAlso CInt(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_firmaFMZoll) = 19 Then
+
+            Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(19)
+            cbxFirma.changeItem(FIRMA.Firmengruppe)
+        Else
+            cbxFirma.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
+        End If
+
+
+
 
         cbxSendungsvermerk.fillWithSQL("SELECT VermerkCodeId,Bezeichnung  FROM [VermerkeCodes]", True, "AVISO", True)
 
+        cbxTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+        cbxTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Sendung", "1"))
+        cbxTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Mahnung", "2"))
+        cbxTyp.changeItem("")
+
+
+
         cbxFirma.Enabled = editall
         btnDelete.Enabled = editall
 
@@ -100,6 +119,8 @@ Public Class frmdynMailvorlagen
             .Columns("txt_sendungsvermerk").HeaderText = "Sendungsvermerk"
             .Columns("txt_sendungsvermerkId").Visible = False
             .Columns("txt_sendungsvermerkText").Visible = False
+            .Columns("txt_fixerEmpfaengerEmail").Visible = False
+            .Columns("txt_typ").Visible = False
         End With
 
 
@@ -158,7 +179,7 @@ Public Class frmdynMailvorlagen
             Dim txtKonserve As New cTextkonserve(dgvMailvorlagen.SelectedRows(0).Cells("txt_id").Value)
 
             If vbYes = MsgBox("Möchten Sie diesen Mailvorlage " & txtKonserve.txt_bezeichnung & " (" & txtKonserve.txt_sprache & ")" & " in " & txtKonserve.txt_FIRMA & " wirklich löschen?", vbYesNo) Then
-                'txtKonserve.deleteWarenort(txtKonserve.txt_Id) ' delete funktion implementierten
+                txtKonserve.DELETE(txtKonserve.txt_Id) ' delete funktion implementierten
                 initDGVMailvorlagen(cbxFirma._value)
             End If
 
@@ -214,6 +235,11 @@ Public Class frmdynMailvorlagen
             cbxSendungsvermerk.changeItem(txtkonserve.txt_sendungsvermerkId)
             txtSendungsvermerk.Text = txtkonserve.txt_sendungsvermerkText
             txtfixeEmail.Text = txtkonserve.txt_fixerEmpfaengerEmail
+            If txtkonserve.txt_typ IsNot Nothing Then
+                cbxTyp.changeItem(txtkonserve.txt_typ, True)
+            Else
+                cbxTyp.changeItem("")
+            End If
 
 
         Catch ex As Exception
@@ -242,6 +268,7 @@ Public Class frmdynMailvorlagen
             txtKS.txt_letzteAenderungUser = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
             txtKS.txt_fixerEmpfaengerEmail = txtfixeEmail.Text
             txtKS.txt_sendungsvermerk = cbSendungsvermerk.Checked
+            txtKS.txt_typ = cbxTyp._value
 
             If cbSendungsvermerk.Checked AndAlso cbxSendungsvermerk._value = "" Then MsgBox("SendungsvermerksID hinterlegen!") : Exit Sub
             If cbSendungsvermerk.Checked AndAlso txtSendungsvermerk.Text = "" Then MsgBox("Sendungsvermerk hinterlegen!") : Exit Sub
@@ -388,4 +415,25 @@ Public Class frmdynMailvorlagen
         Label9.Visible = cbSendungsvermerk.Checked
 
     End Sub
+
+    Private Sub cbxTyp_SelectedValueChanged(sender As Object, e As EventArgs) Handles cbxTyp.SelectedValueChanged
+        If cbxTyp.SelectedItem Is Nothing Then
+            txtVariablen.Text = "-"
+            Exit Sub
+
+        End If
+        Dim oItem As VERAG_PROG_ALLGEMEIN.MyListItem = CType(cbxTyp.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem)
+
+        Select Case oItem.Value
+            Case 1
+                'Sendungsvariable
+                txtVariablen.Text = "%VAR-GRENZE%, %LKW%, %LKWKennzeichen%, %Empfaenger%, %voraus-Eintreffen%, %FilialenNr%, %AbfertigungsNr%, %Absender%, %Gewicht%, %ImEx%, %Zollstelle%"
+            Case Else
+                'Mahnvariable
+                txtVariablen.Text = " %Mahntext%, %KdNr%, %email_mahnung%"
+
+        End Select
+
+
+    End Sub
 End Class