faktMail, ustva, Auswertungen, etc.

SDL/USTV/frmMDM_USTVAntrag.Designer.vb

@@ -138,6 +138,7 @@ Partial Class frmMDM_USTVAntrag
         Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
         Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition()
         Me.UstCntlUSTV_AntragErstattungen1 = New SDL.ustCntlUSTV_ErstattungPosition()
+        Me.cbxSicherheit = New System.Windows.Forms.CheckBox()
         Me.pnlBottom.SuspendLayout()
         CType(Me.pb_Beleg, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.picExcel, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -520,6 +521,7 @@ Partial Class frmMDM_USTVAntrag
         '
         Me.Panel8.BackColor = System.Drawing.Color.WhiteSmoke
         Me.Panel8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel8.Controls.Add(Me.cbxSicherheit)
         Me.Panel8.Controls.Add(Me.Label16)
         Me.Panel8.Controls.Add(Me.txtRZam)
         Me.Panel8.Controls.Add(Me.Label17)
@@ -1706,13 +1708,13 @@ Partial Class frmMDM_USTVAntrag
         '
         Me.cns_vorauszahlen.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.VorauszahlungToolStripMenuItem})
         Me.cns_vorauszahlen.Name = "cns_vorauszahlen"
-        Me.cns_vorauszahlen.Size = New System.Drawing.Size(181, 48)
+        Me.cns_vorauszahlen.Size = New System.Drawing.Size(152, 26)
         '
         'VorauszahlungToolStripMenuItem
         '
         Me.VorauszahlungToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AktivierenToolStripMenuItem, Me.DeaktivierenToolStripMenuItem})
         Me.VorauszahlungToolStripMenuItem.Name = "VorauszahlungToolStripMenuItem"
-        Me.VorauszahlungToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.VorauszahlungToolStripMenuItem.Size = New System.Drawing.Size(151, 22)
         Me.VorauszahlungToolStripMenuItem.Text = "Vorauszahlung"
         '
         'AktivierenToolStripMenuItem
@@ -1768,6 +1770,17 @@ Partial Class frmMDM_USTVAntrag
         Me.UstCntlUSTV_AntragErstattungen1.Size = New System.Drawing.Size(1280, 259)
         Me.UstCntlUSTV_AntragErstattungen1.TabIndex = 2
         '
+        'cbxSicherheit
+        '
+        Me.cbxSicherheit.AutoSize = True
+        Me.cbxSicherheit.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxSicherheit.ForeColor = System.Drawing.Color.White
+        Me.cbxSicherheit.Location = New System.Drawing.Point(794, 10)
+        Me.cbxSicherheit.Name = "cbxSicherheit"
+        Me.cbxSicherheit.Size = New System.Drawing.Size(15, 14)
+        Me.cbxSicherheit.TabIndex = 53
+        Me.cbxSicherheit.UseVisualStyleBackColor = False
+        '
         'frmMDM_USTVAntrag
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1928,4 +1941,5 @@ Partial Class frmMDM_USTVAntrag
     Friend WithEvents ToolStripMenuItem1 As ToolStripMenuItem
     Friend WithEvents ToolStripMenuItem2 As ToolStripMenuItem
     Friend WithEvents ToolStripMenuItem3 As ToolStripMenuItem
+    Friend WithEvents cbxSicherheit As CheckBox
 End Class

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -4,6 +4,7 @@ Imports System.Windows.Documents
 Imports DocumentFormat.OpenXml.Drawing.Diagrams
 Imports itextsharp.text.pdf
 Imports Microsoft.Office.Interop
+Imports sun.net.www.protocol
 Imports sun.swing
 Imports VERAG_PROG_ALLGEMEIN
 Imports VERAG_PROG_ALLGEMEIN.TESTJSON
@@ -344,6 +345,7 @@ Public Class frmMDM_USTVAntrag
         cbxFiliale.changeItem(If(USTV_ANTRAG.FilialenNr, ""))
         cbxWahrung.changeItem(If(USTV_ANTRAG.UStVAn_Währungscode, ""))
         cbxRGretour.Checked = USTV_ANTRAG.UStVAn_RGRetour
+        cbxSicherheit.Checked = USTV_ANTRAG.UStVAn_Sicherheit
 
     End Sub
 
@@ -362,7 +364,7 @@ Public Class frmMDM_USTVAntrag
 
             USTV_ANTRAG.FilialenNr = cbxFiliale._value
 
-            USTV_ANTRAG.FilialenNr = cbxFiliale._value
+            USTV_ANTRAG.UStVAn_Sicherheit = cbxSicherheit.Checked
 
             If txt3470.Text <> "" AndAlso IsNumeric(txt3470.Text) Then
                 USTV_ANTRAG.UStVAn_3470 = CDbl(txt3470.Text)
@@ -2283,12 +2285,14 @@ Public Class frmMDM_USTVAntrag
                     '        TextHTML = TextHTML.Replace("%FilialenNr%", row.Item("FilialenNr"))
 
                     Mail_HTMLBody = "<div style=""font-family:Calibri, Arial"">" & TextHTML & "</div>"
-                    Mail_To = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(USTV_ANTRAG.UStVAn_KuNr, "Rechnung an")
-                    Mail_CC = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressCC(USTV_ANTRAG.UStVAn_KuNr, "Rechnung an")
-                    Mail_BCC = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressBCC(USTV_ANTRAG.UStVAn_KuNr, "Rechnung an")
-                    Mail_HTMLBody &= "<br><br><br>" & cFakturierung.getSignature(USTV_ANTRAG.UStVAn_LandKz, 19)
 
 
+                    Dim AD = New VERAG_PROG_ALLGEMEIN.cAdressen(USTV_ANTRAG.UStVAn_KuNr)
+                    If AD.E_Mail IsNot Nothing AndAlso AD.E_Mail <> "" Then Mail_To &= AD.E_Mail & ";"
+                    If AD.E_Mail2 IsNot Nothing AndAlso AD.E_Mail2 <> "" Then Mail_To &= AD.E_Mail2 & ";"
+
+                    Mail_HTMLBody &= "<br><br><br>" & cFakturierung.getSignature(USTV_ANTRAG.UStVAn_LandKz, 19)
+
                     Dim outl As New Outlook.Application
                     Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
                     Mail = outl.CreateItem(0)

SDL/USTV/usrCntlUSTV.vb

@@ -67,7 +67,7 @@ Public Class usrCntlUSTV
                 DataGridViewCellStyleDate.Format = "MM/yyyy"
 
 
-                .Columns("UStVAn_ID").Visible = False
+                '.Columns("UStVAn_ID").Visible = False
                 .Columns("UStVAn_AntragArt").HeaderText = "Art"
                 .Columns("UStVAn_AntragArt").MinimumWidth = 50