Update 29.8.22

2022-08-29 07:59:12 +02:00
parent fa439c19c2
commit 1d75dbb15b
132 changed files with 719 additions and 643 deletions
--- a/DPM2016/Zahlung/clscamt054.vb
+++ b/DPM2016/Zahlung/clscamt054.vb
@@ -125,7 +125,7 @@ Public Class clscamt054
            Next

            Dim directoryName As String = extractPath
-            For Each deleteFile In Directory.GetFiles(directoryName, "*.pdf", SearchOption.TopDirectoryOnly)
+            For Each deleteFile In Directory.GetFiles(directoryName, "*.xml", SearchOption.TopDirectoryOnly)
                File.Delete(deleteFile)
            Next

--- a/DPM2016/Zahlung/frmZahlung.Designer.vb
+++ b/DPM2016/Zahlung/frmZahlung.Designer.vb
@@ -39,7 +39,7 @@ Partial Class frmZahlung
        Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnquit, Me.tsbtnSave})
        Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
        Me.ToolStrip1.Name = "ToolStrip1"
-        Me.ToolStrip1.Size = New System.Drawing.Size(950, 27)
+        Me.ToolStrip1.Size = New System.Drawing.Size(1267, 27)
        Me.ToolStrip1.TabIndex = 16
        Me.ToolStrip1.Text = "ToolStrip1"
        '
@@ -49,7 +49,7 @@ Partial Class frmZahlung
        Me.tsbtnquit.Image = CType(resources.GetObject("tsbtnquit.Image"), System.Drawing.Image)
        Me.tsbtnquit.ImageTransparentColor = System.Drawing.Color.Magenta
        Me.tsbtnquit.Name = "tsbtnquit"
-        Me.tsbtnquit.Size = New System.Drawing.Size(24, 24)
+        Me.tsbtnquit.Size = New System.Drawing.Size(29, 24)
        Me.tsbtnquit.Text = "Schliessen"
        '
        'tsbtnSave
@@ -58,7 +58,7 @@ Partial Class frmZahlung
        Me.tsbtnSave.Image = CType(resources.GetObject("tsbtnSave.Image"), System.Drawing.Image)
        Me.tsbtnSave.ImageTransparentColor = System.Drawing.Color.Magenta
        Me.tsbtnSave.Name = "tsbtnSave"
-        Me.tsbtnSave.Size = New System.Drawing.Size(24, 24)
+        Me.tsbtnSave.Size = New System.Drawing.Size(29, 24)
        Me.tsbtnSave.Text = "Zahlungsdatei öffnen und verarbeiten"
        '
        'OpenFileDialog1
@@ -68,11 +68,12 @@ Partial Class frmZahlung
        'txtProtokoll
        '
        Me.txtProtokoll.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.txtProtokoll.Location = New System.Drawing.Point(0, 40)
+        Me.txtProtokoll.Location = New System.Drawing.Point(0, 44)
+        Me.txtProtokoll.Margin = New System.Windows.Forms.Padding(4)
        Me.txtProtokoll.Multiline = True
        Me.txtProtokoll.Name = "txtProtokoll"
        Me.txtProtokoll.ScrollBars = System.Windows.Forms.ScrollBars.Both
-        Me.txtProtokoll.Size = New System.Drawing.Size(950, 496)
+        Me.txtProtokoll.Size = New System.Drawing.Size(1267, 616)
        Me.txtProtokoll.TabIndex = 17
        '
        'Label1
@@ -80,20 +81,22 @@ Partial Class frmZahlung
        Me.Label1.AutoSize = True
        Me.Label1.Dock = System.Windows.Forms.DockStyle.Top
        Me.Label1.Location = New System.Drawing.Point(0, 27)
+        Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(48, 13)
+        Me.Label1.Size = New System.Drawing.Size(63, 17)
        Me.Label1.TabIndex = 18
        Me.Label1.Text = "Protokoll"
        '
        'frmZahlung
        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(950, 536)
+        Me.ClientSize = New System.Drawing.Size(1267, 660)
        Me.Controls.Add(Me.txtProtokoll)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.ToolStrip1)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Margin = New System.Windows.Forms.Padding(4)
        Me.Name = "frmZahlung"
        Me.Text = "Zahlungen verarbeiten"
        Me.ToolStrip1.ResumeLayout(False)
--- a/DPM2016/Zahlung/frmZahlung.resx
+++ b/DPM2016/Zahlung/frmZahlung.resx
@@ -124,7 +124,7 @@
  <data name="tsbtnquit.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK2SURBVDhPnZLdS1NhHMcfCPoDuummi+gyunJg0QviNrd5
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAK2SURBVDhPnZLdS1NhHMcfCPoDuummi+gyunJg0QviNrd5
        PDtzc7Z5ztl20pUzo6I3yFIrS9N8K7Qih6lUFJVaGWXZi6KRoZSFmCuyi+iiiCKILgo+HTUWu7QffOD5
        PfB8eL6/5xH/U1+mh4IzM+O/Ovdm8Hdrvi5X5PR2H86ht2oWKUnPEYkr5XYexXfyebKfTxO3+P5mkIv7
        ramCngqZtDV2Vq+zsWbDP9LXWVllWc+PRD+J3krGWv18TTzm8kFHqqC7TCbD6sRml7A7XEmsWU7S19t4
@@ -142,24 +142,24 @@
  <data name="tsbtnSave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAP4SURBVEhLnZVtaFt1FMZXFV83VvGTCFP8NJWJCGopsTdJ
-        U6yzgg6rxYoyEOY+9MvYFETtcJ3bcNG9MDebIq5p1mEwtrVUq/MF955maRaaOZSEJK1rF9s1MWte772P
-        59zcf3aXbuvoHx5OG+59fuc55+ZmiTiDg4MPZ7PZS6TZTCaTHAtH5S0j/0IaCirScEiRhgLK6u5RdfXQ
-        BFq6R9To+HgqFoud7O3tfUiSpNtYZFNVcrvGcTqdj4JOIpFQi4qKj47GsGK/D8t3ncYyEteVzvNo7TkG
-        h+sbNZ1OY3p6GmNjY7LdbpdsNtvy9vb2W3S7+cfhcDwuAIm5Ilr7orh/dxDVOwOo/tSPavtZWN1xfLLn
-        AGZmZlAsFjUlk0kEAgGlq6vrPYKsoCR3kt28JFWdnZ1PMIBPMitj4y9JrHJcxCNfTmHlgUk89tUlvOmO
-        wb5rNxRF0cQATpJKpTA6OqqQxyaGNDU13V2ZRgOoqlq6UVbR6Zdh7ZFhOljEs91FmA8D6z3jBNhb7p5F
-        +9IAAtLW1vaq1Wp9oLGx8Q4jpAyQZRlcv/1TxUtuwOwE6nsAGwP6LmD75/s040KhgHg8jlAoBL/fj2Aw
-        qP3t9Xon6urqnqqvr7+vubn5Vt3/CkDop7CKN/oAqRuUBLAcAtb2z2L7HofWhBDvgJfNe4lEIvD5fDIl
-        WGexWB4kwO26/9UJeEy+CwrWD1ECHWB2AS2eNHbsd2rds0QSrvl8XoMxhMw3UopVNTU1d+n+JYBYHiuS
-        UvHhHzQeMrZwAqqv9auwO3rL8zdKQHlsNJ7NlOLJhoaGe3T/EuByTsblTBbZXA7nJmax9Xgez9PseQ8M
-        afkB2Pe1WzPijtmYq/g/R/fpgA7ewzxAKqvAG8/APvw3dv48gXeP5PEyLVrSAWv6gS88R5HJ5jCXJcMC
-        PUW5EoDNKwH0nViq+18ZUaEowzulYttpYMMR4PXvdADJ1qPi7e9z2HZKwV6/ioFQGlOzmfJ4WDcE8II5
-        Ntcz/8j4+Bjwzo+lx5QhPKoXKNG634AP3AGcj13Uur7pBGzMF4sanCygg/awxgPUHQSeo328NQx85jmJ
-        ycR02VjMn16UCwNECqHjZ//C+7/+h1foO7F2IIM+b7zcNRtX6qYSiKdD6PeRc9h6SsWJSLrcteicuxZ1
-        wQTCuBIwN1daZOUTI4xFXRRAjKPS1GjMn/NLj7UggM2uJQE0SkCNuiFAGHE13sSfVXZt7FzUBRMYOxaw
-        ShnBRgnodQEul+tFo+n1TEStlDEB/artoJfd07W1tct0/yVV9B5vjUaj2gWLVTgc1kTmW8xm8zNXAUwm
-        070UyUTqIB2mCwYWqUN0/+bSiKSl/wNrbjccuCWaUwAAAABJRU5ErkJggg==
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAP5SURBVEhLnZVtaFt1FMZXFV83VvGTCFP8NJWJCGopsTdJ
+        U6yzgg6rxYoyEOY+9ItMBVE7XOc2tsy9MDubUuzSl0EwtrVUq/MFt9ktiWEN7ZwvDUla0262a2LW3Lzc
+        ex/Pubn/7C7d1tE/PJw23Pv8znPOzc0KcQYHBx+UZfkiaT6dTifG/vhb2eb/F9JQUJWGR1VpKKCu7/Br
+        64em0NAxokUmJ5PRaHSkt7f3AUmSbmGRTVnB7SrH7XY/DDrxeFzLqxo+Oh7FmtYAVu87jVUkrmvd59DY
+        dQKtnT1aKpXC7OwsxsbGFKfTKTkcjtXNzc03GXaLj8vlelQALizk0dgXwb37Qyjfcwblu4Mod47C7onh
+        kwOHMTc3h3w+ryuRSCAQCKjt7e3vEWQNJbmd7BYlKWtra3uMAXwSsoItPySwznUeD30+g7WHp/FIx0W8
+        7onCuW8/VFXVxQBOkkwm4ff7VfJ4hyF1dXV3lqbRAZqmFW5UNLQFFdi7FFg683j6SB7Wo8Bm7yQBDha7
+        Z9G+dICANDU1vWy32++rra29zQwpAhRFAdcvf9fwggewuoHqLsDBgL44dn56SDfO5XKIxWIYHx9HMBhE
+        KBTS//b5fFNVVVVPVFdX31NfX3+z4X8ZIPTdhIbX+gDpCCgJYOsBNvbPY+cBl96EEO+Al817CYfDvA+F
+        Emyy2Wz3E+BWw//KBDymQFzF5iFKYACs3UCDN4VdrW69e5ZIwjWbzeowhpD5FkqxrqKi4g7DvwAQy2OF
+        kxo+/IXGQ8Y2TkD1lX4NTldvcf5mCSiPjcazlVI8XlNTc5fhXwBcyii4lJYhZzI4OzWP7SezeJZmz3tg
+        SMM3wKEvPLoRd8zGXMX/GbrPALTwHhYBkrIKXywN5/Bf2PP9FN49lsWLtGjJAGzoBz7zHkdazmBBJsMc
+        PUWZAoDNSwH0nVhp+F8eUS6vwDejYcdp4O1jwKtfGQCSo0vDm19nsOOUioNBDQPjKczMp4vjYV0XwAvm
+        2Fx/+0fBxyeAt74tPKYM4VE9R4k2/QR84DmDc9Hzetc3nICN+WJRQ9M5tNAeNniBqk7gGdrHG8PAXu8I
+        pi/MFo3F/OlFuTRApBA6Ofon3v/xP7xE34mNA2n0+WLFrtm4VDeUQDwdQj/7z2L7KQ2/hlPFrkXn3LWo
+        SyYQxqWAhYXCIkufGGEs6rIAYhylpmZj/pxfeqwlAWx2NQmgWQJq1nUBwoir+Sb+rLRrc+eiLpnA3LGA
+        lcoMNktArwno7u5+3mx6LRNRS2VOQL9qu+hl92RlZeUqw39FGb3HGyORiH7BcjUxMaGLzLdZrdanrgBY
+        LJa7KZKF1EI6ShcMLFM9dP/Wwoiklf8D5J42sARXhi4AAAAASUVORK5CYII=
 </value>
  </data>
  <metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
--- a/DPM2016/Zahlung/frmZahlung.vb
+++ b/DPM2016/Zahlung/frmZahlung.vb
@@ -110,6 +110,7 @@ Public Class frmZahlung
                        f.MdiParent = Me.MdiParent
                        f.Show()
                        f.Show_CAMT_Journal()
+
                    Catch ex As Exception
                        MsgBox("Bei der Verarbeitung ist ein Fehler aufgetreten." + ex.Message)
                        Insert_Protokoll(ex.Message)