fakt Abrechnung, ustva, etc.

2025-06-05 14:21:00 +02:00
parent 4fc5b7911b
commit 98f8c77821
11 changed files with 244 additions and 65 deletions
--- a/SDL/USTV/frmMDM_USTVAntrag.Designer.vb
+++ b/SDL/USTV/frmMDM_USTVAntrag.Designer.vb
@@ -132,12 +132,12 @@ Partial Class frmMDM_USTVAntrag
        Me.VorauszahlungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.AktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.DeaktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition()
-        Me.UstCntlUSTV_AntragErstattungen1 = New SDL.ustCntlUSTV_ErstattungPosition()
        Me.ncs_Belege = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
        Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
        Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition()
+        Me.UstCntlUSTV_AntragErstattungen1 = New SDL.ustCntlUSTV_ErstattungPosition()
        Me.pnlBottom.SuspendLayout()
        CType(Me.pb_Beleg, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.picExcel, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -1706,13 +1706,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(152, 26)
+        Me.cns_vorauszahlen.Size = New System.Drawing.Size(181, 48)
        '
        '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(151, 22)
+        Me.VorauszahlungToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
        Me.VorauszahlungToolStripMenuItem.Text = "Vorauszahlung"
        '
        'AktivierenToolStripMenuItem
@@ -1727,22 +1727,6 @@ Partial Class frmMDM_USTVAntrag
        Me.DeaktivierenToolStripMenuItem.Size = New System.Drawing.Size(138, 22)
        Me.DeaktivierenToolStripMenuItem.Text = "deaktivieren"
        '
-        'UstCntlUSTV_AntragPosition1
-        '
-        Me.UstCntlUSTV_AntragPosition1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.UstCntlUSTV_AntragPosition1.Location = New System.Drawing.Point(154, 0)
-        Me.UstCntlUSTV_AntragPosition1.Name = "UstCntlUSTV_AntragPosition1"
-        Me.UstCntlUSTV_AntragPosition1.Size = New System.Drawing.Size(1282, 261)
-        Me.UstCntlUSTV_AntragPosition1.TabIndex = 0
-        '
-        'UstCntlUSTV_AntragErstattungen1
-        '
-        Me.UstCntlUSTV_AntragErstattungen1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.UstCntlUSTV_AntragErstattungen1.Location = New System.Drawing.Point(154, 0)
-        Me.UstCntlUSTV_AntragErstattungen1.Name = "UstCntlUSTV_AntragErstattungen1"
-        Me.UstCntlUSTV_AntragErstattungen1.Size = New System.Drawing.Size(1280, 259)
-        Me.UstCntlUSTV_AntragErstattungen1.TabIndex = 2
-        '
        'ncs_Belege
        '
        Me.ncs_Belege.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1})
@@ -1768,6 +1752,22 @@ Partial Class frmMDM_USTVAntrag
        Me.ToolStripMenuItem3.Size = New System.Drawing.Size(138, 22)
        Me.ToolStripMenuItem3.Text = "deaktivieren"
        '
+        'UstCntlUSTV_AntragPosition1
+        '
+        Me.UstCntlUSTV_AntragPosition1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UstCntlUSTV_AntragPosition1.Location = New System.Drawing.Point(154, 0)
+        Me.UstCntlUSTV_AntragPosition1.Name = "UstCntlUSTV_AntragPosition1"
+        Me.UstCntlUSTV_AntragPosition1.Size = New System.Drawing.Size(1282, 261)
+        Me.UstCntlUSTV_AntragPosition1.TabIndex = 0
+        '
+        'UstCntlUSTV_AntragErstattungen1
+        '
+        Me.UstCntlUSTV_AntragErstattungen1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UstCntlUSTV_AntragErstattungen1.Location = New System.Drawing.Point(154, 0)
+        Me.UstCntlUSTV_AntragErstattungen1.Name = "UstCntlUSTV_AntragErstattungen1"
+        Me.UstCntlUSTV_AntragErstattungen1.Size = New System.Drawing.Size(1280, 259)
+        Me.UstCntlUSTV_AntragErstattungen1.TabIndex = 2
+        '
        'frmMDM_USTVAntrag
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
--- a/SDL/USTV/frmMDM_USTVAntrag.resx
+++ b/SDL/USTV/frmMDM_USTVAntrag.resx
@@ -234,7 +234,7 @@
        XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
        fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
        tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
-        6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALEAAACxABrSO9dQAAB4JJREFUSEu9lntM1FcW
+        6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALDAAACwwBP0AiyAAAB4JJREFUSEu9lntM1FcW
        x0+yNWpdBURGEJ0ZXtVqZX0hFJAB5gVILVbQTRCQ1wwDw7wYGMSCgiI+IoivtbpBwOLqqnUXq30YlVrX
        bXAFu6Ua2ShG0jVoq1ZFwQffzb3zhG22/+0vOZnf3Nz8Pjn3nPs9X1qx10yqpnWU27iOEuo0pG6qpMKP
        qyljXxkpt6hozdF6qvxkN2XuW0OymiwqO1I33tBUPTNhsypTUpVuydhTOi5jTynNL08mQUEkiQwyEhql
@@ -394,7 +394,7 @@
        XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
        fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
        tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
-        6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALEAAACxABrSO9dQAABM1JREFUOE9dU3tM01cU
+        6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALDAAACwwBP0AiyAAABM1JREFUOE9dU3tM01cU
        PjDIeGjymyTMQDFz6MwGIWJJKNBNrXGG+MfiNDPGqIMCnfjPGNMUjQlla9PiLEJnE17hJSDWKoKKrQUH
        OFcYNjhfCKaIggg+ECwtLbTf8vsB9fElX+65557z5Zx77qUgHx8KpnkEEFHqhg2xlwcHW5q6uuoazeba
        Zoultun69drLFkut4fbt2qu9vef1zc0qWW4uc/LkSdJoNFRWVkZbt24lgUBAlBMente5du2dc19+9Zcu
--- a/SDL/USTV/frmMDM_USTVAntrag.vb
+++ b/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.swing
 Imports VERAG_PROG_ALLGEMEIN
 Imports VERAG_PROG_ALLGEMEIN.TESTJSON

@@ -2023,6 +2024,12 @@ Public Class frmMDM_USTVAntrag
            cns_neAntraege.Items.Add(oa)
        End If

+        If Not cns_neAntraege.Items.ContainsKey("zuwenig") Then
+            Dim oa = New ToolStripMenuItem() With {.Text = "zu wenig Email", .Name = "zuwenig", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
+            AddHandler oa.Click, AddressOf mnuItem_Clicked
+            cns_neAntraege.Items.Add(oa)
+        End If
+
        cns_neAntraege.Show(Cursor.Position)


@@ -2039,6 +2046,9 @@ Public Class frmMDM_USTVAntrag
            ElseIf item.Name = "mail" Then
                mailmitExcelauswertung()

+            ElseIf item.Name = "zuwenig" Then
+                zuwenigMail()
+
            ElseIf item.Name = "offeneAntraege" Then

                Dim USTV_ANTRAG As New VERAG_PROG_ALLGEMEIN.cUSTVAntrag(UStVAn_ID)
@@ -2224,8 +2234,98 @@ Public Class frmMDM_USTVAntrag

    End Sub

-    Private Sub dgvUSTVPositionen_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvUSTVPositionen.CellContentDoubleClick

+    Private Sub zuwenigMail()
+        Try
+
+
+            Dim spracheMail = ""
+            Dim listOfTextconserven = New cTextkonserve_LIST(6, "", 19)
+
+
+            Select Case USTV_ANTRAG.UStVAn_LandKz
+                Case "HR", "SRB" : spracheMail = "SRB"
+                Case "A", "AT", "D", "DE", "CH" : spracheMail = "DE"
+                Case "RO" : spracheMail = "RO"
+                Case Else
+                    spracheMail = "DE"
+            End Select
+
+
+            If listOfTextconserven.LIST.Any(Function(c) c.txt_sprache = spracheMail) Then
+                Dim r As cTextkonserve = listOfTextconserven.LIST.Find(Function(c) c.txt_sprache = spracheMail)
+                If r IsNot Nothing Then
+                    Dim Mail_Subject = ""
+                    Dim Mail_HTMLBody = ""
+
+                    Dim Mail_To = ""
+                    Dim Mail_CC = ""
+                    Dim Mail_BCC = ""
+
+                    Mail_Subject = r.txt_betreff
+                    Dim TextHTML = ""
+                    TextHTML &= r.txt_text
+
+                    'Mail_Subject = Mail_Subject.Replace("%BelegNr%", (USTV_ANTRAG.UStVAn_ReDatVon)
+                    '        Mail_Subject = Mail_Subject.Replace("%Belegdatum%", row.Item("Belegdatum"))
+                    '        Mail_Subject = Mail_Subject.Replace("%Name%", row.Item("Name"))
+                    '        Mail_Subject = Mail_Subject.Replace("%AbfertigungsNr%", row.Item("AbfertigungsNr"))
+                    '        Mail_Subject = Mail_Subject.Replace("%FilialenNr%", row.Item("FilialenNr"))
+                    '        Mail_Subject = Mail_Subject.Replace("%MWST%", row.Item("MWST"))
+                    '        Mail_Subject = Mail_Subject.Replace("%Betrag%", row.Item("Betrag"))
+
+                    '        TextHTML = TextHTML.Replace("%BelegNr%", row.Item("Belegnummer"))
+                    '        TextHTML = TextHTML.Replace("%Belegdatum%", row.Item("Belegdatum"))
+                    '        TextHTML = TextHTML.Replace("%Betrag%", row.Item("Betrag"))
+                    '        TextHTML = TextHTML.Replace("%Name%", row.Item("Name"))
+                    '        TextHTML = TextHTML.Replace("%AbfertigungsNr%", row.Item("AbfertigungsNr"))
+                    '        TextHTML = TextHTML.Replace("%MWST%", row.Item("MWST"))
+                    '        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 outl As New Outlook.Application
+                    Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
+                    Mail = outl.CreateItem(0)
+                    Mail.Subject = Mail_Subject
+                    Mail.HTMLBody = Mail_HTMLBody
+
+                    Mail.To = Mail_To
+                    Mail.CC = Mail_CC
+                    Mail.BCC = Mail_BCC
+
+                    For Each row As DataGridViewRow In dgvUSTVPositionen.SelectedRows.Cast(Of DataGridViewRow)().OrderBy(Function(dgvr) dgvr.Index)
+
+                        Dim pdf As String = ""
+                        pdf = func.getPDF(row.Cells("UStVPo_SchnittstellenNr").Value, row.Cells("UStVPo_ReNr").Value, row.Cells("UStVPo_ReDat").Value, row.Cells("UStVPo_daId").Value, -1, True, Antrag_LandKz, USTV_ANTRAG, New cFakturierung, False)
+
+                        If pdf <> "" Then
+                            Mail.Attachments.Add(pdf, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
+                        End If
+
+                    Next
+
+
+
+                    Try
+                    Catch ex2 As Exception
+                        MsgBox(ex2.Message)
+                    End Try
+                    Mail.Display()
+
+                End If
+            End If
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!")
+        End Try
+    End Sub
+
+    Private Sub dgvUSTVPositionen_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvUSTVPositionen.CellContentDoubleClick
        Try
            If e.RowIndex >= 0 AndAlso e.ColumnIndex >= 0 Then