ustva, cbam, autofakt, etc.

2025-04-17 08:59:42 +02:00
parent 814133b95a
commit 98bd08ca60
18 changed files with 981 additions and 177 deletions
--- a/SDL/seriendruck/usrCntlFakturierung.Designer.vb
+++ b/SDL/seriendruck/usrCntlFakturierung.Designer.vb
@@ -86,6 +86,13 @@ Partial Class usrcntlFakturierung
        Me.Label63 = New System.Windows.Forms.Label()
        Me.Label45 = New System.Windows.Forms.Label()
        Me.btnRePos = New System.Windows.Forms.Button()
+        Me.Validation1 = New SDL.EORI.validation()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.cbxStatusAUTOMAIL = New System.Windows.Forms.CheckBox()
+        Me.PictureBox9 = New System.Windows.Forms.PictureBox()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.Label9 = New System.Windows.Forms.Label()
        Me.GroupBox1.SuspendLayout()
        Me.GBMautberichte.SuspendLayout()
        CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -98,6 +105,7 @@ Partial Class usrcntlFakturierung
        CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'GroupBox1
@@ -328,6 +336,12 @@ Partial Class usrcntlFakturierung
        '
        'GBSammelrechnung
        '
+        Me.GBSammelrechnung.Controls.Add(Me.Label9)
+        Me.GBSammelrechnung.Controls.Add(Me.Label8)
+        Me.GBSammelrechnung.Controls.Add(Me.PictureBox9)
+        Me.GBSammelrechnung.Controls.Add(Me.cbxStatusAUTOMAIL)
+        Me.GBSammelrechnung.Controls.Add(Me.Label7)
+        Me.GBSammelrechnung.Controls.Add(Me.Label6)
        Me.GBSammelrechnung.Controls.Add(Me.btnAbfdruck)
        Me.GBSammelrechnung.Controls.Add(Me.btnREJdruck)
        Me.GBSammelrechnung.Controls.Add(Me.PictureBox8)
@@ -371,7 +385,7 @@ Partial Class usrcntlFakturierung
        Me.GBSammelrechnung.Enabled = False
        Me.GBSammelrechnung.Location = New System.Drawing.Point(10, 356)
        Me.GBSammelrechnung.Name = "GBSammelrechnung"
-        Me.GBSammelrechnung.Size = New System.Drawing.Size(697, 393)
+        Me.GBSammelrechnung.Size = New System.Drawing.Size(697, 494)
        Me.GBSammelrechnung.TabIndex = 14
        Me.GBSammelrechnung.TabStop = False
        '
@@ -379,7 +393,7 @@ Partial Class usrcntlFakturierung
        '
        Me.btnAbfdruck.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnAbfdruck.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.btnAbfdruck.Location = New System.Drawing.Point(138, 346)
+        Me.btnAbfdruck.Location = New System.Drawing.Point(144, 396)
        Me.btnAbfdruck.Name = "btnAbfdruck"
        Me.btnAbfdruck.Size = New System.Drawing.Size(106, 32)
        Me.btnAbfdruck.TabIndex = 115
@@ -390,7 +404,7 @@ Partial Class usrcntlFakturierung
        '
        Me.btnREJdruck.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnREJdruck.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.btnREJdruck.Location = New System.Drawing.Point(10, 346)
+        Me.btnREJdruck.Location = New System.Drawing.Point(16, 396)
        Me.btnREJdruck.Name = "btnREJdruck"
        Me.btnREJdruck.Size = New System.Drawing.Size(106, 32)
        Me.btnREJdruck.TabIndex = 114
@@ -439,7 +453,7 @@ Partial Class usrcntlFakturierung
        '
        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.Button3.Location = New System.Drawing.Point(529, 346)
+        Me.Button3.Location = New System.Drawing.Point(535, 396)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(121, 32)
        Me.Button3.TabIndex = 109
@@ -451,7 +465,7 @@ Partial Class usrcntlFakturierung
        '
        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.Button2.Location = New System.Drawing.Point(410, 346)
+        Me.Button2.Location = New System.Drawing.Point(416, 396)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(106, 32)
        Me.Button2.TabIndex = 108
@@ -464,7 +478,7 @@ Partial Class usrcntlFakturierung
        Me.cbxMautanh.AutoSize = True
        Me.cbxMautanh.Checked = True
        Me.cbxMautanh.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.cbxMautanh.Location = New System.Drawing.Point(450, 262)
+        Me.cbxMautanh.Location = New System.Drawing.Point(491, 287)
        Me.cbxMautanh.Name = "cbxMautanh"
        Me.cbxMautanh.Size = New System.Drawing.Size(184, 17)
        Me.cbxMautanh.TabIndex = 107
@@ -561,7 +575,7 @@ Partial Class usrcntlFakturierung
        Me.cbxVorschau.AutoSize = True
        Me.cbxVorschau.Checked = True
        Me.cbxVorschau.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.cbxVorschau.Location = New System.Drawing.Point(329, 262)
+        Me.cbxVorschau.Location = New System.Drawing.Point(491, 310)
        Me.cbxVorschau.Name = "cbxVorschau"
        Me.cbxVorschau.Size = New System.Drawing.Size(109, 17)
        Me.cbxVorschau.TabIndex = 48
@@ -573,7 +587,7 @@ Partial Class usrcntlFakturierung
        Me.cbxAbfVerbotdrucken.AutoSize = True
        Me.cbxAbfVerbotdrucken.Checked = True
        Me.cbxAbfVerbotdrucken.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.cbxAbfVerbotdrucken.Location = New System.Drawing.Point(166, 262)
+        Me.cbxAbfVerbotdrucken.Location = New System.Drawing.Point(307, 287)
        Me.cbxAbfVerbotdrucken.Name = "cbxAbfVerbotdrucken"
        Me.cbxAbfVerbotdrucken.Size = New System.Drawing.Size(157, 17)
        Me.cbxAbfVerbotdrucken.TabIndex = 47
@@ -585,7 +599,7 @@ Partial Class usrcntlFakturierung
        Me.cbxRechnungsjournaldrucken.AutoSize = True
        Me.cbxRechnungsjournaldrucken.Checked = True
        Me.cbxRechnungsjournaldrucken.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.cbxRechnungsjournaldrucken.Location = New System.Drawing.Point(6, 262)
+        Me.cbxRechnungsjournaldrucken.Location = New System.Drawing.Point(307, 310)
        Me.cbxRechnungsjournaldrucken.Name = "cbxRechnungsjournaldrucken"
        Me.cbxRechnungsjournaldrucken.Size = New System.Drawing.Size(154, 17)
        Me.cbxRechnungsjournaldrucken.TabIndex = 46
@@ -605,7 +619,7 @@ Partial Class usrcntlFakturierung
        '
        'Label72
        '
-        Me.Label72.Location = New System.Drawing.Point(96, 286)
+        Me.Label72.Location = New System.Drawing.Point(102, 336)
        Me.Label72.Name = "Label72"
        Me.Label72.Size = New System.Drawing.Size(589, 19)
        Me.Label72.TabIndex = 42
@@ -631,7 +645,7 @@ Partial Class usrcntlFakturierung
        Me.KdSearchBox3.KdNr = "-1"
        Me.KdSearchBox3.kdNrField = Nothing
        Me.KdSearchBox3.KdNrNullInt = Nothing
-        Me.KdSearchBox3.Location = New System.Drawing.Point(87, 308)
+        Me.KdSearchBox3.Location = New System.Drawing.Point(93, 358)
        Me.KdSearchBox3.Name = "KdSearchBox3"
        Me.KdSearchBox3.nurAktive = True
        Me.KdSearchBox3.searchActive = True
@@ -643,7 +657,7 @@ Partial Class usrcntlFakturierung
        'rbkunde
        '
        Me.rbkunde.AutoSize = True
-        Me.rbkunde.Location = New System.Drawing.Point(9, 309)
+        Me.rbkunde.Location = New System.Drawing.Point(15, 359)
        Me.rbkunde.Name = "rbkunde"
        Me.rbkunde.Size = New System.Drawing.Size(59, 17)
        Me.rbkunde.TabIndex = 40
@@ -654,7 +668,7 @@ Partial Class usrcntlFakturierung
        '
        Me.rbAlleKunden.AutoSize = True
        Me.rbAlleKunden.Checked = True
-        Me.rbAlleKunden.Location = New System.Drawing.Point(9, 286)
+        Me.rbAlleKunden.Location = New System.Drawing.Point(15, 336)
        Me.rbAlleKunden.Name = "rbAlleKunden"
        Me.rbAlleKunden.Size = New System.Drawing.Size(81, 17)
        Me.rbAlleKunden.TabIndex = 39
@@ -789,13 +803,72 @@ Partial Class usrcntlFakturierung
        '
        Me.btnRePos.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnRePos.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.btnRePos.Location = New System.Drawing.Point(10, 81)
+        Me.btnRePos.Location = New System.Drawing.Point(10, 95)
        Me.btnRePos.Name = "btnRePos"
        Me.btnRePos.Size = New System.Drawing.Size(121, 49)
        Me.btnRePos.TabIndex = 4
        Me.btnRePos.Text = "Rechnungspos. berechnen"
        Me.btnRePos.UseVisualStyleBackColor = True
        '
+        'Validation1
+        '
+        Me.Validation1.Credentials = Nothing
+        Me.Validation1.Url = "http://ec.europa.eu/taxation_customs/dds2/eos/validation/services/validation"
+        Me.Validation1.UseDefaultCredentials = False
+        '
+        'Label6
+        '
+        Me.Label6.Location = New System.Drawing.Point(304, 265)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(48, 19)
+        Me.Label6.TabIndex = 116
+        Me.Label6.Text = "Anzeige:"
+        '
+        'Label7
+        '
+        Me.Label7.Location = New System.Drawing.Point(13, 265)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(48, 19)
+        Me.Label7.TabIndex = 117
+        Me.Label7.Text = "AUTO:"
+        '
+        'cbxStatusAUTOMAIL
+        '
+        Me.cbxStatusAUTOMAIL.AutoSize = True
+        Me.cbxStatusAUTOMAIL.Location = New System.Drawing.Point(15, 287)
+        Me.cbxStatusAUTOMAIL.Name = "cbxStatusAUTOMAIL"
+        Me.cbxStatusAUTOMAIL.Size = New System.Drawing.Size(143, 17)
+        Me.cbxStatusAUTOMAIL.TabIndex = 118
+        Me.cbxStatusAUTOMAIL.Text = "Email autom. versenden*"
+        Me.cbxStatusAUTOMAIL.UseVisualStyleBackColor = True
+        '
+        'PictureBox9
+        '
+        Me.PictureBox9.BackgroundImage = Global.SDL.My.Resources.Resources.ok
+        Me.PictureBox9.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox9.Location = New System.Drawing.Point(148, 230)
+        Me.PictureBox9.Name = "PictureBox9"
+        Me.PictureBox9.Size = New System.Drawing.Size(14, 14)
+        Me.PictureBox9.TabIndex = 119
+        Me.PictureBox9.TabStop = False
+        Me.PictureBox9.Visible = False
+        '
+        'Label8
+        '
+        Me.Label8.Location = New System.Drawing.Point(168, 230)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(151, 16)
+        Me.Label8.TabIndex = 120
+        Me.Label8.Text = "3. Status Autoversand setzen"
+        '
+        'Label9
+        '
+        Me.Label9.Location = New System.Drawing.Point(13, 307)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(149, 19)
+        Me.Label9.TabIndex = 121
+        Me.Label9.Text = "* wird im Nachtlauf versendet!"
+        '
        'usrcntlFakturierung
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -823,6 +896,7 @@ Partial Class usrcntlFakturierung
        CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
        Me.PerformLayout()

@@ -889,4 +963,11 @@ Partial Class usrcntlFakturierung
    Friend WithEvents btnREJdruck As Button
    Friend WithEvents btnAbfdruck As Button
    Friend WithEvents btnLieferantenrechnungen As Button
+    Friend WithEvents Validation1 As EORI.validation
+    Friend WithEvents Label8 As Label
+    Friend WithEvents PictureBox9 As PictureBox
+    Friend WithEvents cbxStatusAUTOMAIL As CheckBox
+    Friend WithEvents Label7 As Label
+    Friend WithEvents Label6 As Label
+    Friend WithEvents Label9 As Label
 End Class
--- a/SDL/seriendruck/usrCntlFakturierung.resx
+++ b/SDL/seriendruck/usrCntlFakturierung.resx
@@ -238,4 +238,7 @@
        SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
 </value>
  </data>
+  <metadata name="Validation1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
 </root>
--- a/SDL/seriendruck/usrCntlFakturierung.vb
+++ b/SDL/seriendruck/usrCntlFakturierung.vb
@@ -880,7 +880,7 @@ Public Class usrcntlFakturierung

    End Function

-    Private Function setStatus2(Sachbearbeiter As String, rechnungsdatum As Date, dtSammelRechnugen As DataTable) As Boolean
+    Private Function setStatus2(Sachbearbeiter As String, rechnungsdatum As Date, dtSammelRechnugen As DataTable, automMailversand As Boolean) As Boolean

        Dim cnt = 0

@@ -888,7 +888,7 @@ Public Class usrcntlFakturierung
        If dtSammelRechnugen.Rows.Count > 0 Then
            For Each re In dtSammelRechnugen.Rows

-                reIsSet = cFakturierung.doSAMMELRechnungsDruck(19, 6, rechnungsdatum, rechnungsdatum, "", False, False, re("RechnungsKundenNr"), 7, , , , Nothing, , ,,, ,, )
+                reIsSet = cFakturierung.doSAMMELRechnungsDruck(19, 6, rechnungsdatum, rechnungsdatum, "", False, False, re("RechnungsKundenNr"), 7, , , , Nothing, , ,,, ,, ,,, automMailversand)

                If Not reIsSet Then
                    Return reIsSet
@@ -969,7 +969,7 @@ Public Class usrcntlFakturierung

            If Not vbYes = MsgBox("Möchten Sie die Rechnungsnummern für " & dtSammelrechnungenGruppiert.Rows.Count & " Rechnungen setzen?" & vbNewLine & "Es wird eine Rechnungsnummer vergeben, die Rechnungen gelten somit als gedruckt und können nicht mehr bearbeitet werden.", vbYesNoCancel) Then Exit Sub

-            Dim reNrisSet = setStatus2(Sachbearbeiter, rechnungsdatum, dtSammelrechnungenGruppiert)
+            Dim reNrisSet = setStatus2(Sachbearbeiter, rechnungsdatum, dtSammelrechnungenGruppiert, cbxStatusAUTOMAIL.Checked)

            showPic(reNrisSet, PictureBox7)