atez

2025-01-21 10:02:40 +01:00
parent a8375efde9
commit 31b4cf7e47
2 changed files with 127 additions and 32 deletions
--- a/initATLASAufschubkonten/frmStartOptions.Designer.vb
+++ b/initATLASAufschubkonten/frmStartOptions.Designer.vb
@@ -27,8 +27,6 @@ Partial Class frmStartOptions
        Me.pnl = New System.Windows.Forms.Panel()
        Me.LinkLabel69 = New System.Windows.Forms.LinkLabel()
        Me.Button27 = New System.Windows.Forms.Button()
-        Me.btnTestATEZ = New System.Windows.Forms.Button()
-        Me.Button26 = New System.Windows.Forms.Button()
        Me.txtMRNPrefix = New System.Windows.Forms.TextBox()
        Me.LinkLabel66 = New System.Windows.Forms.LinkLabel()
        Me.PictureBox24 = New System.Windows.Forms.PictureBox()
@@ -288,6 +286,13 @@ Partial Class frmStartOptions
        Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.Button21 = New System.Windows.Forms.Button()
        Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.Button26 = New System.Windows.Forms.Button()
+        Me.btnTestATEZ = New System.Windows.Forms.Button()
+        Me.Label47 = New System.Windows.Forms.Label()
+        Me.datTranscodeVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.datTranscodeBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label48 = New System.Windows.Forms.Label()
+        Me.cbxOverrideNCTSFin = New System.Windows.Forms.CheckBox()
        Me.pnl.SuspendLayout()
        CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.PictureBox23, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -332,8 +337,6 @@ Partial Class frmStartOptions
        Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.pnl.Controls.Add(Me.LinkLabel69)
        Me.pnl.Controls.Add(Me.Button27)
-        Me.pnl.Controls.Add(Me.btnTestATEZ)
-        Me.pnl.Controls.Add(Me.Button26)
        Me.pnl.Controls.Add(Me.txtMRNPrefix)
        Me.pnl.Controls.Add(Me.LinkLabel66)
        Me.pnl.Controls.Add(Me.PictureBox24)
@@ -430,30 +433,6 @@ Partial Class frmStartOptions
        Me.Button27.Size = New System.Drawing.Size(75, 23)
        Me.Button27.TabIndex = 1
        '
-        'btnTestATEZ
-        '
-        Me.btnTestATEZ.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnTestATEZ.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.btnTestATEZ.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnTestATEZ.Location = New System.Drawing.Point(1062, 459)
-        Me.btnTestATEZ.Name = "btnTestATEZ"
-        Me.btnTestATEZ.Size = New System.Drawing.Size(123, 24)
-        Me.btnTestATEZ.TabIndex = 140
-        Me.btnTestATEZ.Text = "test ATEZ"
-        Me.btnTestATEZ.UseVisualStyleBackColor = True
-        '
-        'Button26
-        '
-        Me.Button26.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button26.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.Button26.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button26.Location = New System.Drawing.Point(1062, 429)
-        Me.Button26.Name = "Button26"
-        Me.Button26.Size = New System.Drawing.Size(123, 24)
-        Me.Button26.TabIndex = 139
-        Me.Button26.Text = "NCTS Einlesen"
-        Me.Button26.UseVisualStyleBackColor = True
-        '
        'txtMRNPrefix
        '
        Me.txtMRNPrefix.Location = New System.Drawing.Point(1036, 48)
@@ -2159,9 +2138,16 @@ Partial Class frmStartOptions
        '
        'TabPage3
        '
+        Me.TabPage3.Controls.Add(Me.cbxOverrideNCTSFin)
+        Me.TabPage3.Controls.Add(Me.Label48)
+        Me.TabPage3.Controls.Add(Me.datTranscodeBis)
+        Me.TabPage3.Controls.Add(Me.datTranscodeVon)
+        Me.TabPage3.Controls.Add(Me.Label47)
        Me.TabPage3.Controls.Add(Me.LinkLabel50)
        Me.TabPage3.Controls.Add(Me.Label26)
+        Me.TabPage3.Controls.Add(Me.btnTestATEZ)
        Me.TabPage3.Controls.Add(Me.LinkLabel39)
+        Me.TabPage3.Controls.Add(Me.Button26)
        Me.TabPage3.Controls.Add(Me.LinkLabel40)
        Me.TabPage3.Controls.Add(Me.Label22)
        Me.TabPage3.Controls.Add(Me.LinkLabel34)
@@ -3738,6 +3724,109 @@ Partial Class frmStartOptions
        Me.DataGridViewTextBoxColumn1.MinimumWidth = 8
        Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
        '
+        'Button26
+        '
+        Me.Button26.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button26.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Button26.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button26.Location = New System.Drawing.Point(419, 242)
+        Me.Button26.Name = "Button26"
+        Me.Button26.Size = New System.Drawing.Size(123, 24)
+        Me.Button26.TabIndex = 139
+        Me.Button26.Text = "NCTS Einlesen"
+        Me.Button26.UseVisualStyleBackColor = True
+        '
+        'btnTestATEZ
+        '
+        Me.btnTestATEZ.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnTestATEZ.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.btnTestATEZ.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnTestATEZ.Location = New System.Drawing.Point(419, 272)
+        Me.btnTestATEZ.Name = "btnTestATEZ"
+        Me.btnTestATEZ.Size = New System.Drawing.Size(123, 24)
+        Me.btnTestATEZ.TabIndex = 140
+        Me.btnTestATEZ.Text = "test ATEZ"
+        Me.btnTestATEZ.UseVisualStyleBackColor = True
+        '
+        'Label47
+        '
+        Me.Label47.AutoSize = True
+        Me.Label47.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label47.Location = New System.Drawing.Point(416, 218)
+        Me.Label47.Name = "Label47"
+        Me.Label47.Size = New System.Drawing.Size(117, 13)
+        Me.Label47.TabIndex = 141
+        Me.Label47.Text = "TRANSCODE NEU:"
+        '
+        'datTranscodeVon
+        '
+        Me.datTranscodeVon._DateTimeOnly = False
+        Me.datTranscodeVon._numbersOnly = False
+        Me.datTranscodeVon._numbersOnlyKommastellen = ""
+        Me.datTranscodeVon._numbersOnlyTrennzeichen = True
+        Me.datTranscodeVon._Prozent = False
+        Me.datTranscodeVon._ShortDateNew = True
+        Me.datTranscodeVon._ShortDateOnly = False
+        Me.datTranscodeVon._TimeOnly = False
+        Me.datTranscodeVon._TimeOnly_Seconds = False
+        Me.datTranscodeVon._value = ""
+        Me.datTranscodeVon._Waehrung = False
+        Me.datTranscodeVon._WaehrungZeichen = True
+        Me.datTranscodeVon.ForeColor = System.Drawing.Color.Black
+        Me.datTranscodeVon.Location = New System.Drawing.Point(548, 245)
+        Me.datTranscodeVon.MaxLength = 10
+        Me.datTranscodeVon.MaxLineLength = -1
+        Me.datTranscodeVon.MaxLines_Warning = ""
+        Me.datTranscodeVon.MaxLines_Warning_Label = Nothing
+        Me.datTranscodeVon.Name = "datTranscodeVon"
+        Me.datTranscodeVon.Size = New System.Drawing.Size(87, 20)
+        Me.datTranscodeVon.TabIndex = 142
+        '
+        'datTranscodeBis
+        '
+        Me.datTranscodeBis._DateTimeOnly = False
+        Me.datTranscodeBis._numbersOnly = False
+        Me.datTranscodeBis._numbersOnlyKommastellen = ""
+        Me.datTranscodeBis._numbersOnlyTrennzeichen = True
+        Me.datTranscodeBis._Prozent = False
+        Me.datTranscodeBis._ShortDateNew = True
+        Me.datTranscodeBis._ShortDateOnly = False
+        Me.datTranscodeBis._TimeOnly = False
+        Me.datTranscodeBis._TimeOnly_Seconds = False
+        Me.datTranscodeBis._value = ""
+        Me.datTranscodeBis._Waehrung = False
+        Me.datTranscodeBis._WaehrungZeichen = True
+        Me.datTranscodeBis.ForeColor = System.Drawing.Color.Black
+        Me.datTranscodeBis.Location = New System.Drawing.Point(646, 245)
+        Me.datTranscodeBis.MaxLength = 10
+        Me.datTranscodeBis.MaxLineLength = -1
+        Me.datTranscodeBis.MaxLines_Warning = ""
+        Me.datTranscodeBis.MaxLines_Warning_Label = Nothing
+        Me.datTranscodeBis.Name = "datTranscodeBis"
+        Me.datTranscodeBis.Size = New System.Drawing.Size(87, 20)
+        Me.datTranscodeBis.TabIndex = 143
+        '
+        'Label48
+        '
+        Me.Label48.AutoSize = True
+        Me.Label48.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label48.Location = New System.Drawing.Point(635, 248)
+        Me.Label48.Name = "Label48"
+        Me.Label48.Size = New System.Drawing.Size(11, 13)
+        Me.Label48.TabIndex = 144
+        Me.Label48.Text = "-"
+        '
+        'cbxOverrideNCTSFin
+        '
+        Me.cbxOverrideNCTSFin.AutoSize = True
+        Me.cbxOverrideNCTSFin.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxOverrideNCTSFin.Location = New System.Drawing.Point(548, 267)
+        Me.cbxOverrideNCTSFin.Name = "cbxOverrideNCTSFin"
+        Me.cbxOverrideNCTSFin.Size = New System.Drawing.Size(196, 17)
+        Me.cbxOverrideNCTSFin.TabIndex = 139
+        Me.cbxOverrideNCTSFin.Text = "Erledigte Daten auch überschreiben"
+        Me.cbxOverrideNCTSFin.UseVisualStyleBackColor = True
+        '
        'frmStartOptions
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -4054,9 +4143,14 @@ Partial Class frmStartOptions
    Friend WithEvents LinkLabel67 As LinkLabel
    Friend WithEvents LinkLabel68 As LinkLabel
    Friend WithEvents PictureBox26 As PictureBox
-    Friend WithEvents Button26 As Button
-    Friend WithEvents btnTestATEZ As Button
    Friend WithEvents LinkLabel69 As LinkLabel
    Friend WithEvents LinkLabel70 As LinkLabel
    Friend WithEvents Button27 As Button
+    Friend WithEvents Label48 As Label
+    Friend WithEvents datTranscodeBis As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents datTranscodeVon As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label47 As Label
+    Friend WithEvents btnTestATEZ As Button
+    Friend WithEvents Button26 As Button
+    Friend WithEvents cbxOverrideNCTSFin As CheckBox
 End Class
--- a/initATLASAufschubkonten/frmStartOptions.vb
+++ b/initATLASAufschubkonten/frmStartOptions.vb
@@ -109,7 +109,8 @@ Public Class frmStartOptions

        'doIDSPlatts()
        'Exit Sub
-
+        datTranscodeVon._value = Now.Date.AddDays(-1).ToShortDateString
+        datTranscodeBis._value = Now.Date.ToShortDateString

        'Standart-Errorverhalten ist MAIL
        VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL
@@ -5424,7 +5425,7 @@ Public Class frmStartOptions
    End Sub

    Private Sub Button26_Click(sender As Object, e As EventArgs) Handles Button26.Click
-        VERAG_PROG_ALLGEMEIN.cATEZ_ncts_api.query_declarations("01.12.2024", "31.12.2024")
+        VERAG_PROG_ALLGEMEIN.cATEZ_ncts_api.query_declarations(datTranscodeVon._value, datTranscodeVon._value, cbxOverrideNCTSFin.Checked)
    End Sub

    Private Sub Button27_Click(sender As Object, e As EventArgs) Handles btnTestATEZ.Click