StartOptions (Einlesen Währungen) NCTS wegen Import von Dakosy

This commit is contained in:
2024-10-10 16:16:49 +02:00
parent 05815eff9e
commit cc67e23bb4
5 changed files with 209 additions and 76 deletions

View File

@@ -22,10 +22,11 @@ Partial Class frmStartOptions
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStartOptions))
Me.pnl = New System.Windows.Forms.Panel()
Me.PictureBox24 = New System.Windows.Forms.PictureBox()
Me.buchungenAMBAR = New System.Windows.Forms.Button()
Me.LinkLabel63 = New System.Windows.Forms.LinkLabel()
Me.PictureBox23 = New System.Windows.Forms.PictureBox()
Me.Label27 = New System.Windows.Forms.Label()
Me.MyTextBox3 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -74,6 +75,8 @@ Partial Class frmStartOptions
Me.CheckBox3 = New System.Windows.Forms.CheckBox()
Me.tbcntr = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.MyTextBox4 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label41 = New System.Windows.Forms.Label()
Me.LinkLabel99 = New System.Windows.Forms.LinkLabel()
Me.PictureBox99 = New System.Windows.Forms.PictureBox()
Me.Button99 = New System.Windows.Forms.Button()
@@ -142,7 +145,7 @@ Partial Class frmStartOptions
Me.Label6 = New System.Windows.Forms.Label()
Me.PictureBox15 = New System.Windows.Forms.PictureBox()
Me.PictureBox14 = New System.Windows.Forms.PictureBox()
Me.dgvMRN = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.dgvMRN = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
Me.clmnMRN = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.txtVRGOut_MRN = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtVRGOut_FilialenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -248,9 +251,10 @@ Partial Class frmStartOptions
Me.lblRoutineManager = New System.Windows.Forms.Label()
Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Button21 = New System.Windows.Forms.Button()
Me.Label41 = New System.Windows.Forms.Label()
Me.MyTextBox4 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.PictureBox25 = New System.Windows.Forms.PictureBox()
Me.Button23 = New System.Windows.Forms.Button()
Me.pnl.SuspendLayout()
CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox23, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox22, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.piceZollAnh, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -283,13 +287,18 @@ Partial Class frmStartOptions
CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox25, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'pnl
'
Me.pnl.BackColor = System.Drawing.Color.White
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnl.Controls.Add(Me.PictureBox25)
Me.pnl.Controls.Add(Me.Button23)
Me.pnl.Controls.Add(Me.PictureBox24)
Me.pnl.Controls.Add(Me.buchungenAMBAR)
Me.pnl.Controls.Add(Me.LinkLabel63)
Me.pnl.Controls.Add(Me.PictureBox23)
Me.pnl.Controls.Add(Me.Label27)
Me.pnl.Controls.Add(Me.MyTextBox3)
@@ -367,6 +376,17 @@ Partial Class frmStartOptions
Me.pnl.Size = New System.Drawing.Size(1229, 1007)
Me.pnl.TabIndex = 0
'
'PictureBox24
'
Me.PictureBox24.BackgroundImage = CType(resources.GetObject("PictureBox24.BackgroundImage"), System.Drawing.Image)
Me.PictureBox24.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox24.Location = New System.Drawing.Point(782, 46)
Me.PictureBox24.Name = "PictureBox24"
Me.PictureBox24.Size = New System.Drawing.Size(18, 18)
Me.PictureBox24.TabIndex = 92
Me.PictureBox24.TabStop = False
Me.PictureBox24.Visible = False
'
'buchungenAMBAR
'
Me.buchungenAMBAR.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -379,6 +399,17 @@ Partial Class frmStartOptions
Me.buchungenAMBAR.Text = "AMB GU --> Syska"
Me.buchungenAMBAR.UseVisualStyleBackColor = True
'
'LinkLabel63
'
Me.LinkLabel63.AutoSize = True
Me.LinkLabel63.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel63.Location = New System.Drawing.Point(668, 51)
Me.LinkLabel63.Name = "LinkLabel63"
Me.LinkLabel63.Size = New System.Drawing.Size(100, 13)
Me.LinkLabel63.TabIndex = 91
Me.LinkLabel63.TabStop = True
Me.LinkLabel63.Text = "Wahrungsliste NEU"
'
'PictureBox23
'
Me.PictureBox23.BackgroundImage = CType(resources.GetObject("PictureBox23.BackgroundImage"), System.Drawing.Image)
@@ -1016,6 +1047,40 @@ Partial Class frmStartOptions
Me.TabPage1.Text = "Zollverfahren"
Me.TabPage1.UseVisualStyleBackColor = True
'
'MyTextBox4
'
Me.MyTextBox4._DateTimeOnly = False
Me.MyTextBox4._numbersOnly = False
Me.MyTextBox4._numbersOnlyKommastellen = ""
Me.MyTextBox4._numbersOnlyTrennzeichen = True
Me.MyTextBox4._Prozent = False
Me.MyTextBox4._ShortDateNew = True
Me.MyTextBox4._ShortDateOnly = False
Me.MyTextBox4._TimeOnly = False
Me.MyTextBox4._TimeOnly_Seconds = False
Me.MyTextBox4._value = ""
Me.MyTextBox4._Waehrung = False
Me.MyTextBox4._WaehrungZeichen = True
Me.MyTextBox4.ForeColor = System.Drawing.Color.Black
Me.MyTextBox4.Location = New System.Drawing.Point(775, 277)
Me.MyTextBox4.MaxLength = 10
Me.MyTextBox4.MaxLineLength = -1
Me.MyTextBox4.MaxLines_Warning = ""
Me.MyTextBox4.MaxLines_Warning_Label = Nothing
Me.MyTextBox4.Name = "MyTextBox4"
Me.MyTextBox4.Size = New System.Drawing.Size(80, 20)
Me.MyTextBox4.TabIndex = 90
'
'Label41
'
Me.Label41.AutoSize = True
Me.Label41.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.Label41.Location = New System.Drawing.Point(775, 260)
Me.Label41.Name = "Label41"
Me.Label41.Size = New System.Drawing.Size(56, 13)
Me.Label41.TabIndex = 84
Me.Label41.Text = "ab Datum:"
'
'LinkLabel99
'
Me.LinkLabel99.AutoSize = True
@@ -1560,7 +1625,7 @@ Partial Class frmStartOptions
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(1158, 476)
Me.TabPage2.Size = New System.Drawing.Size(1219, 476)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "VERAG Interface"
Me.TabPage2.UseVisualStyleBackColor = True
@@ -1976,7 +2041,7 @@ Partial Class frmStartOptions
Me.TabPage3.Controls.Add(Me.Label11)
Me.TabPage3.Location = New System.Drawing.Point(4, 22)
Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Size = New System.Drawing.Size(1158, 476)
Me.TabPage3.Size = New System.Drawing.Size(1219, 476)
Me.TabPage3.TabIndex = 2
Me.TabPage3.Text = "Partner-Systeme"
Me.TabPage3.UseVisualStyleBackColor = True
@@ -3159,39 +3224,28 @@ Partial Class frmStartOptions
Me.Button21.Text = "AAS Sendung 24h"
Me.Button21.UseVisualStyleBackColor = True
'
'Label41
'PictureBox25
'
Me.Label41.AutoSize = True
Me.Label41.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.Label41.Location = New System.Drawing.Point(775, 260)
Me.Label41.Name = "Label41"
Me.Label41.Size = New System.Drawing.Size(56, 13)
Me.Label41.TabIndex = 84
Me.Label41.Text = "ab Datum:"
Me.PictureBox25.BackgroundImage = CType(resources.GetObject("PictureBox25.BackgroundImage"), System.Drawing.Image)
Me.PictureBox25.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox25.Location = New System.Drawing.Point(762, 459)
Me.PictureBox25.Name = "PictureBox25"
Me.PictureBox25.Size = New System.Drawing.Size(18, 18)
Me.PictureBox25.TabIndex = 94
Me.PictureBox25.TabStop = False
Me.PictureBox25.Visible = False
'
'MyTextBox4
'Button23
'
Me.MyTextBox4._DateTimeOnly = False
Me.MyTextBox4._numbersOnly = False
Me.MyTextBox4._numbersOnlyKommastellen = ""
Me.MyTextBox4._numbersOnlyTrennzeichen = True
Me.MyTextBox4._Prozent = False
Me.MyTextBox4._ShortDateNew = True
Me.MyTextBox4._ShortDateOnly = False
Me.MyTextBox4._TimeOnly = False
Me.MyTextBox4._TimeOnly_Seconds = False
Me.MyTextBox4._value = ""
Me.MyTextBox4._Waehrung = False
Me.MyTextBox4._WaehrungZeichen = True
Me.MyTextBox4.ForeColor = System.Drawing.Color.Black
Me.MyTextBox4.Location = New System.Drawing.Point(775, 277)
Me.MyTextBox4.MaxLength = 10
Me.MyTextBox4.MaxLineLength = -1
Me.MyTextBox4.MaxLines_Warning = ""
Me.MyTextBox4.MaxLines_Warning_Label = Nothing
Me.MyTextBox4.Name = "MyTextBox4"
Me.MyTextBox4.Size = New System.Drawing.Size(80, 20)
Me.MyTextBox4.TabIndex = 90
Me.Button23.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button23.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button23.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button23.Location = New System.Drawing.Point(564, 459)
Me.Button23.Name = "Button23"
Me.Button23.Size = New System.Drawing.Size(187, 24)
Me.Button23.TabIndex = 93
Me.Button23.Text = "Kundendaten aktualisieren (USTV-Anträge)"
Me.Button23.UseVisualStyleBackColor = True
'
'frmStartOptions
'
@@ -3208,6 +3262,7 @@ Partial Class frmStartOptions
Me.WindowState = System.Windows.Forms.FormWindowState.Minimized
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox23, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox22, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.piceZollAnh, System.ComponentModel.ISupportInitialize).EndInit()
@@ -3244,6 +3299,7 @@ Partial Class frmStartOptions
CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox25, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
@@ -3473,4 +3529,8 @@ Partial Class frmStartOptions
Friend WithEvents cbxUploadDA As CheckBox
Friend WithEvents MyTextBox4 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label41 As Label
Friend WithEvents PictureBox24 As PictureBox
Friend WithEvents LinkLabel63 As LinkLabel
Friend WithEvents PictureBox25 As PictureBox
Friend WithEvents Button23 As Button
End Class