TIMAS API, API, etc

This commit is contained in:
2023-10-31 17:08:04 +01:00
parent 0e6f88e932
commit 7b5c593bd8
13 changed files with 1766 additions and 96 deletions

View File

@@ -26,6 +26,7 @@ Partial Class usrCntlAPI
Me.SplitContainer = New System.Windows.Forms.SplitContainer()
Me.pnlSearch = New System.Windows.Forms.Panel()
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
Me.cboPartnersystem = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.Label11 = New System.Windows.Forms.Label()
Me.txtZollBelegNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -33,7 +34,6 @@ Partial Class usrCntlAPI
Me.txtBezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label9 = New System.Windows.Forms.Label()
Me.kdtxtKunde = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
Me.txtAPIUArt = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label8 = New System.Windows.Forms.Label()
Me.cboAPIArt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label7 = New System.Windows.Forms.Label()
@@ -63,7 +63,9 @@ Partial Class usrCntlAPI
Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker()
Me.Label27 = New System.Windows.Forms.Label()
Me.Label13 = New System.Windows.Forms.Label()
Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label12 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.txtAbfertigungsnummerBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -80,6 +82,8 @@ Partial Class usrCntlAPI
Me.Panel3 = New System.Windows.Forms.Panel()
Me.Button10 = New System.Windows.Forms.Button()
Me.Button11 = New System.Windows.Forms.Button()
Me.cboProgram = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label14 = New System.Windows.Forms.Label()
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer.Panel1.SuspendLayout()
Me.SplitContainer.Panel2.SuspendLayout()
@@ -135,6 +139,9 @@ Partial Class usrCntlAPI
'
'SplitContainer1.Panel1
'
Me.SplitContainer1.Panel1.Controls.Add(Me.cboProgram)
Me.SplitContainer1.Panel1.Controls.Add(Me.Label14)
Me.SplitContainer1.Panel1.Controls.Add(Me.cboPartnersystem)
Me.SplitContainer1.Panel1.Controls.Add(Me.Button1)
Me.SplitContainer1.Panel1.Controls.Add(Me.Label11)
Me.SplitContainer1.Panel1.Controls.Add(Me.txtZollBelegNr)
@@ -142,7 +149,6 @@ Partial Class usrCntlAPI
Me.SplitContainer1.Panel1.Controls.Add(Me.txtBezugsNr)
Me.SplitContainer1.Panel1.Controls.Add(Me.Label9)
Me.SplitContainer1.Panel1.Controls.Add(Me.kdtxtKunde)
Me.SplitContainer1.Panel1.Controls.Add(Me.txtAPIUArt)
Me.SplitContainer1.Panel1.Controls.Add(Me.Label8)
Me.SplitContainer1.Panel1.Controls.Add(Me.cboAPIArt)
Me.SplitContainer1.Panel1.Controls.Add(Me.Label7)
@@ -172,7 +178,9 @@ Partial Class usrCntlAPI
Me.SplitContainer1.Panel1.Controls.Add(Me.DateTimePicker2)
Me.SplitContainer1.Panel1.Controls.Add(Me.Label27)
Me.SplitContainer1.Panel1.Controls.Add(Me.Label13)
Me.SplitContainer1.Panel1.Controls.Add(Me.cboFirma)
Me.SplitContainer1.Panel1.Controls.Add(Me.cboFiliale)
Me.SplitContainer1.Panel1.Controls.Add(Me.Label12)
Me.SplitContainer1.Panel1.Controls.Add(Me.Label1)
Me.SplitContainer1.Panel1.Controls.Add(Me.Label2)
Me.SplitContainer1.Panel1.Controls.Add(Me.txtAbfertigungsnummerBis)
@@ -184,6 +192,19 @@ Partial Class usrCntlAPI
Me.SplitContainer1.SplitterDistance = 125
Me.SplitContainer1.TabIndex = 0
'
'cboPartnersystem
'
Me.cboPartnersystem._allowedValuesFreiText = Nothing
Me.cboPartnersystem._allowFreiText = False
Me.cboPartnersystem._value = ""
Me.cboPartnersystem.DropDownWidth = 250
Me.cboPartnersystem.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboPartnersystem.FormattingEnabled = True
Me.cboPartnersystem.Location = New System.Drawing.Point(324, 31)
Me.cboPartnersystem.Name = "cboPartnersystem"
Me.cboPartnersystem.Size = New System.Drawing.Size(73, 22)
Me.cboPartnersystem.TabIndex = 54
'
'Button1
'
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -299,39 +320,15 @@ Partial Class usrCntlAPI
Me.kdtxtKunde.TIMER_SEARCH = True
Me.kdtxtKunde.usrcntl = Nothing
'
'txtAPIUArt
'
Me.txtAPIUArt._DateTimeOnly = False
Me.txtAPIUArt._numbersOnly = False
Me.txtAPIUArt._numbersOnlyKommastellen = ""
Me.txtAPIUArt._numbersOnlyTrennzeichen = True
Me.txtAPIUArt._Prozent = False
Me.txtAPIUArt._ShortDateNew = False
Me.txtAPIUArt._ShortDateOnly = False
Me.txtAPIUArt._TimeOnly = False
Me.txtAPIUArt._TimeOnly_Seconds = False
Me.txtAPIUArt._value = Nothing
Me.txtAPIUArt._Waehrung = False
Me.txtAPIUArt._WaehrungZeichen = True
Me.txtAPIUArt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAPIUArt.ForeColor = System.Drawing.Color.Black
Me.txtAPIUArt.Location = New System.Drawing.Point(720, 30)
Me.txtAPIUArt.MaxLineLength = -1
Me.txtAPIUArt.MaxLines_Warning = ""
Me.txtAPIUArt.MaxLines_Warning_Label = Nothing
Me.txtAPIUArt.Name = "txtAPIUArt"
Me.txtAPIUArt.Size = New System.Drawing.Size(99, 20)
Me.txtAPIUArt.TabIndex = 46
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.Location = New System.Drawing.Point(717, 14)
Me.Label8.Location = New System.Drawing.Point(321, 16)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(62, 13)
Me.Label8.Size = New System.Drawing.Size(90, 13)
Me.Label8.TabIndex = 45
Me.Label8.Text = "Unter-Art:"
Me.Label8.Text = "Partnersystem:"
'
'cboAPIArt
'
@@ -341,16 +338,16 @@ Partial Class usrCntlAPI
Me.cboAPIArt.DropDownWidth = 250
Me.cboAPIArt.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboAPIArt.FormattingEnabled = True
Me.cboAPIArt.Location = New System.Drawing.Point(542, 30)
Me.cboAPIArt.Location = New System.Drawing.Point(714, 34)
Me.cboAPIArt.Name = "cboAPIArt"
Me.cboAPIArt.Size = New System.Drawing.Size(172, 22)
Me.cboAPIArt.Size = New System.Drawing.Size(78, 22)
Me.cboAPIArt.TabIndex = 44
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.Location = New System.Drawing.Point(539, 12)
Me.Label7.Location = New System.Drawing.Point(711, 16)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(47, 13)
Me.Label7.TabIndex = 43
@@ -364,16 +361,16 @@ Partial Class usrCntlAPI
Me.cboType.DropDownWidth = 250
Me.cboType.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboType.FormattingEnabled = True
Me.cboType.Location = New System.Drawing.Point(419, 30)
Me.cboType.Location = New System.Drawing.Point(639, 34)
Me.cboType.Name = "cboType"
Me.cboType.Size = New System.Drawing.Size(105, 22)
Me.cboType.Size = New System.Drawing.Size(69, 22)
Me.cboType.TabIndex = 42
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label6.Location = New System.Drawing.Point(416, 12)
Me.Label6.Location = New System.Drawing.Point(636, 16)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(35, 13)
Me.Label6.TabIndex = 41
@@ -387,16 +384,16 @@ Partial Class usrCntlAPI
Me.cboInOut.DropDownWidth = 250
Me.cboInOut.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboInOut.FormattingEnabled = True
Me.cboInOut.Location = New System.Drawing.Point(333, 30)
Me.cboInOut.Location = New System.Drawing.Point(557, 34)
Me.cboInOut.Name = "cboInOut"
Me.cboInOut.Size = New System.Drawing.Size(80, 22)
Me.cboInOut.Size = New System.Drawing.Size(74, 22)
Me.cboInOut.TabIndex = 40
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.Location = New System.Drawing.Point(330, 12)
Me.Label5.Location = New System.Drawing.Point(554, 16)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(52, 13)
Me.Label5.TabIndex = 39
@@ -406,7 +403,7 @@ Partial Class usrCntlAPI
'
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(330, 73)
Me.Label3.Location = New System.Drawing.Point(334, 100)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(80, 13)
Me.Label3.TabIndex = 38
@@ -415,7 +412,7 @@ Partial Class usrCntlAPI
'Label34
'
Me.Label34.AutoSize = True
Me.Label34.Location = New System.Drawing.Point(330, 122)
Me.Label34.Location = New System.Drawing.Point(334, 149)
Me.Label34.Name = "Label34"
Me.Label34.Size = New System.Drawing.Size(67, 13)
Me.Label34.TabIndex = 37
@@ -424,7 +421,7 @@ Partial Class usrCntlAPI
'Label35
'
Me.Label35.AutoSize = True
Me.Label35.Location = New System.Drawing.Point(330, 96)
Me.Label35.Location = New System.Drawing.Point(334, 123)
Me.Label35.Name = "Label35"
Me.Label35.Size = New System.Drawing.Size(45, 13)
Me.Label35.TabIndex = 34
@@ -446,7 +443,7 @@ Partial Class usrCntlAPI
Me.txtSendungsId._WaehrungZeichen = True
Me.txtSendungsId.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSendungsId.ForeColor = System.Drawing.Color.Black
Me.txtSendungsId.Location = New System.Drawing.Point(399, 119)
Me.txtSendungsId.Location = New System.Drawing.Point(403, 146)
Me.txtSendungsId.MaxLineLength = -1
Me.txtSendungsId.MaxLines_Warning = ""
Me.txtSendungsId.MaxLines_Warning_Label = Nothing
@@ -470,7 +467,7 @@ Partial Class usrCntlAPI
Me.txtAvisoId._WaehrungZeichen = True
Me.txtAvisoId.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAvisoId.ForeColor = System.Drawing.Color.Black
Me.txtAvisoId.Location = New System.Drawing.Point(399, 93)
Me.txtAvisoId.Location = New System.Drawing.Point(403, 120)
Me.txtAvisoId.MaxLineLength = -1
Me.txtAvisoId.MaxLines_Warning = ""
Me.txtAvisoId.MaxLines_Warning_Label = Nothing
@@ -684,7 +681,7 @@ Partial Class usrCntlAPI
'Label26
'
Me.Label26.AutoSize = True
Me.Label26.Location = New System.Drawing.Point(649, 122)
Me.Label26.Location = New System.Drawing.Point(554, 149)
Me.Label26.Name = "Label26"
Me.Label26.Size = New System.Drawing.Size(23, 13)
Me.Label26.TabIndex = 30
@@ -704,7 +701,7 @@ Partial Class usrCntlAPI
'Label27
'
Me.Label27.AutoSize = True
Me.Label27.Location = New System.Drawing.Point(649, 96)
Me.Label27.Location = New System.Drawing.Point(554, 123)
Me.Label27.Name = "Label27"
Me.Label27.Size = New System.Drawing.Size(28, 13)
Me.Label27.TabIndex = 21
@@ -719,6 +716,19 @@ Partial Class usrCntlAPI
Me.Label13.TabIndex = 13
Me.Label13.Text = "von:"
'
'cboFirma
'
Me.cboFirma._allowedValuesFreiText = Nothing
Me.cboFirma._allowFreiText = False
Me.cboFirma._value = ""
Me.cboFirma.DropDownWidth = 250
Me.cboFirma.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboFirma.FormattingEnabled = True
Me.cboFirma.Location = New System.Drawing.Point(414, 74)
Me.cboFirma.Name = "cboFirma"
Me.cboFirma.Size = New System.Drawing.Size(104, 22)
Me.cboFirma.TabIndex = 20
'
'cboFiliale
'
Me.cboFiliale._allowedValuesFreiText = Nothing
@@ -727,16 +737,26 @@ Partial Class usrCntlAPI
Me.cboFiliale.DropDownWidth = 250
Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboFiliale.FormattingEnabled = True
Me.cboFiliale.Location = New System.Drawing.Point(542, 91)
Me.cboFiliale.Location = New System.Drawing.Point(414, 34)
Me.cboFiliale.Name = "cboFiliale"
Me.cboFiliale.Size = New System.Drawing.Size(104, 22)
Me.cboFiliale.TabIndex = 20
'
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label12.Location = New System.Drawing.Point(411, 56)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(37, 13)
Me.Label12.TabIndex = 6
Me.Label12.Text = "Firma"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(539, 73)
Me.Label1.Location = New System.Drawing.Point(411, 16)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(40, 13)
Me.Label1.TabIndex = 6
@@ -746,7 +766,7 @@ Partial Class usrCntlAPI
'
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(649, 73)
Me.Label2.Location = New System.Drawing.Point(554, 100)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(121, 13)
Me.Label2.TabIndex = 7
@@ -769,7 +789,7 @@ Partial Class usrCntlAPI
Me.txtAbfertigungsnummerBis.Enabled = False
Me.txtAbfertigungsnummerBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAbfertigungsnummerBis.ForeColor = System.Drawing.Color.Black
Me.txtAbfertigungsnummerBis.Location = New System.Drawing.Point(683, 119)
Me.txtAbfertigungsnummerBis.Location = New System.Drawing.Point(588, 146)
Me.txtAbfertigungsnummerBis.MaxLineLength = -1
Me.txtAbfertigungsnummerBis.MaxLines_Warning = ""
Me.txtAbfertigungsnummerBis.MaxLines_Warning_Label = Nothing
@@ -793,7 +813,7 @@ Partial Class usrCntlAPI
Me.txtAbfertigungsnummer._WaehrungZeichen = True
Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAbfertigungsnummer.ForeColor = System.Drawing.Color.Black
Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(683, 93)
Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(588, 120)
Me.txtAbfertigungsnummer.MaxLineLength = -1
Me.txtAbfertigungsnummer.MaxLines_Warning = ""
Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing
@@ -822,6 +842,7 @@ Partial Class usrCntlAPI
Me.cboDatum.DropDownWidth = 250
Me.cboDatum.FlatStyle = System.Windows.Forms.FlatStyle.Popup
Me.cboDatum.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboDatum.ForeColor = System.Drawing.Color.Red
Me.cboDatum.FormattingEnabled = True
Me.cboDatum.Items.AddRange(New Object() {"Rechnungsdatum", "Abfertigungsdatum"})
Me.cboDatum.Location = New System.Drawing.Point(17, 9)
@@ -957,6 +978,29 @@ Partial Class usrCntlAPI
Me.Button11.TabIndex = 4
Me.Button11.UseVisualStyleBackColor = True
'
'cboProgram
'
Me.cboProgram._allowedValuesFreiText = Nothing
Me.cboProgram._allowFreiText = False
Me.cboProgram._value = ""
Me.cboProgram.DropDownWidth = 250
Me.cboProgram.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboProgram.FormattingEnabled = True
Me.cboProgram.Location = New System.Drawing.Point(324, 72)
Me.cboProgram.Name = "cboProgram"
Me.cboProgram.Size = New System.Drawing.Size(73, 22)
Me.cboProgram.TabIndex = 56
'
'Label14
'
Me.Label14.AutoSize = True
Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label14.Location = New System.Drawing.Point(321, 54)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(62, 13)
Me.Label14.TabIndex = 55
Me.Label14.Text = "Programm"
'
'usrCntlAPI
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1023,7 +1067,6 @@ Partial Class usrCntlAPI
Friend WithEvents Button10 As Button
Friend WithEvents Button11 As Button
Friend WithEvents Label3 As Label
Friend WithEvents txtAPIUArt As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label8 As Label
Friend WithEvents cboAPIArt As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label7 As Label
@@ -1039,4 +1082,9 @@ Partial Class usrCntlAPI
Friend WithEvents Label10 As Label
Friend WithEvents txtBezugsNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Button1 As Button
Friend WithEvents cboPartnersystem As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cboFirma As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label12 As Label
Friend WithEvents cboProgram As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label14 As Label
End Class