edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Ansicht API-Liste und Fehlerliste

Browse Source
This commit is contained in:
d.breimaier
2023-07-17 16:54:32 +02:00
parent 565e1f9942
commit 60bc349378
11 changed files with 1774 additions and 511 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
UID/ADMIN.vbproj
View File

@@ -437,6 +437,12 @@
<Compile Include="Dienstplan\frmDienstplan.vb"> <Compile Include="Dienstplan\frmDienstplan.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="frmERS.Designer.vb">
<DependentUpon>frmERS.vb</DependentUpon>
</Compile>
<Compile Include="frmERS.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Mitarbeiter\frmADsearch.Designer.vb"> <Compile Include="Mitarbeiter\frmADsearch.Designer.vb">
<DependentUpon>frmADsearch.vb</DependentUpon> <DependentUpon>frmADsearch.vb</DependentUpon>
</Compile> </Compile>
@@ -706,6 +712,9 @@
<EmbeddedResource Include="Dienstplan\frmDienstplan.resx"> <EmbeddedResource Include="Dienstplan\frmDienstplan.resx">
<DependentUpon>frmDienstplan.vb</DependentUpon> <DependentUpon>frmDienstplan.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmERS.resx">
<DependentUpon>frmERS.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Mitarbeiter\frmADsearch.resx"> <EmbeddedResource Include="Mitarbeiter\frmADsearch.resx">
<DependentUpon>frmADsearch.vb</DependentUpon> <DependentUpon>frmADsearch.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>

8
UID/Mitarbeiter/frmMitarbDetails.Designer.vb generated
View File

@@ -1166,7 +1166,7 @@ Partial Class frmMitarbDetails
'datEinstiegsdatum 'datEinstiegsdatum
' '
Me.datEinstiegsdatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.datEinstiegsdatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.datEinstiegsdatum.Location = New System.Drawing.Point(113, 234) Me.datEinstiegsdatum.Location = New System.Drawing.Point(118, 236)
Me.datEinstiegsdatum.Name = "datEinstiegsdatum" Me.datEinstiegsdatum.Name = "datEinstiegsdatum"
Me.datEinstiegsdatum.Size = New System.Drawing.Size(200, 20) Me.datEinstiegsdatum.Size = New System.Drawing.Size(200, 20)
Me.datEinstiegsdatum.TabIndex = 2 Me.datEinstiegsdatum.TabIndex = 2
@@ -1195,7 +1195,7 @@ Partial Class frmMitarbDetails
' '
Me.datGekuendigtAm.Enabled = False Me.datGekuendigtAm.Enabled = False
Me.datGekuendigtAm.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.datGekuendigtAm.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.datGekuendigtAm.Location = New System.Drawing.Point(113, 257) Me.datGekuendigtAm.Location = New System.Drawing.Point(118, 259)
Me.datGekuendigtAm.Name = "datGekuendigtAm" Me.datGekuendigtAm.Name = "datGekuendigtAm"
Me.datGekuendigtAm.Size = New System.Drawing.Size(200, 20) Me.datGekuendigtAm.Size = New System.Drawing.Size(200, 20)
Me.datGekuendigtAm.TabIndex = 9 Me.datGekuendigtAm.TabIndex = 9
@@ -1206,9 +1206,9 @@ Partial Class frmMitarbDetails
Me.cbxGekuendigt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cbxGekuendigt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxGekuendigt.Location = New System.Drawing.Point(16, 262) Me.cbxGekuendigt.Location = New System.Drawing.Point(16, 262)
Me.cbxGekuendigt.Name = "cbxGekuendigt" Me.cbxGekuendigt.Name = "cbxGekuendigt"
Me.cbxGekuendigt.Size = New System.Drawing.Size(96, 17) Me.cbxGekuendigt.Size = New System.Drawing.Size(69, 17)
Me.cbxGekuendigt.TabIndex = 8 Me.cbxGekuendigt.TabIndex = 8
Me.cbxGekuendigt.Text = "gekündigt, am:" Me.cbxGekuendigt.Text = "Ende DV"
Me.cbxGekuendigt.UseVisualStyleBackColor = True Me.cbxGekuendigt.UseVisualStyleBackColor = True
' '
'txtEmail 'txtEmail

2
UID/Mitarbeiter/frmMitarbDetails.vb
View File

@@ -1016,7 +1016,7 @@ Public Class frmMitarbDetails
If frmAD.ShowDialog = DialogResult.OK Then If frmAD.ShowDialog = DialogResult.OK Then
MsgBox("The Lightweight Directory Access Protocol (LDAP) provider does not CURRENTLY support this method!") MsgBox("The Lightweight Directory Access Protocol (LDAP) provider does not CURRENTLY support this method!")
'Sobald diese Funktion unterstützt wird, kann nachfolgende Funktion auskommentiert werden 'Sobald diese Funktion unterstützt wird, kann nachfolgende Funktion aktiviert werden
'https://learn.microsoft.com/en-us/dotnet/api/system.directoryservices.directoryentry.copyto 'https://learn.microsoft.com/en-us/dotnet/api/system.directoryservices.directoryentry.copyto
'Dim NewADAccount As DirectoryEntry = New DirectoryEntry(frmAD.activeDirectoryObj.ADEntry.Parent.Path, txtALIASUser.Text, txtPwd.Text) 'Dim NewADAccount As DirectoryEntry = New DirectoryEntry(frmAD.activeDirectoryObj.ADEntry.Parent.Path, txtALIASUser.Text, txtPwd.Text)
'frmAD.activeDirectoryObj.ADEntry.CopyTo(NewADAccount) 'frmAD.activeDirectoryObj.ADEntry.CopyTo(NewADAccount)

248
UID/frmERS.Designer.vb generated Normal file
View File

@@ -0,0 +1,248 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmERS
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmERS))
Me.Label4 = New System.Windows.Forms.Label()
Me.rtferrStack = New System.Windows.Forms.RichTextBox()
Me.txtDatetime = New System.Windows.Forms.TextBox()
Me.lblDat = New System.Windows.Forms.Label()
Me.txtMethode = New System.Windows.Forms.TextBox()
Me.lblProgramm = New System.Windows.Forms.Label()
Me.lblErrMsg = New System.Windows.Forms.Label()
Me.rtferrMsg = New System.Windows.Forms.RichTextBox()
Me.txtUser = New System.Windows.Forms.TextBox()
Me.lblUser = New System.Windows.Forms.Label()
Me.lblMethode = New System.Windows.Forms.Label()
Me.txtType = New System.Windows.Forms.TextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.cbxTestsysten = New System.Windows.Forms.CheckBox()
Me.lblFirma = New System.Windows.Forms.Label()
Me.txtMail = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.SuspendLayout()
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(9, 462)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(63, 13)
Me.Label4.TabIndex = 114
Me.Label4.Text = "Error Stack:"
'
'rtferrStack
'
Me.rtferrStack.Location = New System.Drawing.Point(12, 478)
Me.rtferrStack.Name = "rtferrStack"
Me.rtferrStack.Size = New System.Drawing.Size(358, 305)
Me.rtferrStack.TabIndex = 113
Me.rtferrStack.Text = ""
'
'txtDatetime
'
Me.txtDatetime.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtDatetime.Location = New System.Drawing.Point(12, 82)
Me.txtDatetime.Name = "txtDatetime"
Me.txtDatetime.Size = New System.Drawing.Size(143, 20)
Me.txtDatetime.TabIndex = 117
'
'lblDat
'
Me.lblDat.AutoSize = True
Me.lblDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblDat.Location = New System.Drawing.Point(9, 66)
Me.lblDat.Name = "lblDat"
Me.lblDat.Size = New System.Drawing.Size(79, 13)
Me.lblDat.TabIndex = 118
Me.lblDat.Text = "Datum/Uhrzeit:"
'
'txtMethode
'
Me.txtMethode.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtMethode.Location = New System.Drawing.Point(12, 169)
Me.txtMethode.Multiline = True
Me.txtMethode.Name = "txtMethode"
Me.txtMethode.Size = New System.Drawing.Size(361, 38)
Me.txtMethode.TabIndex = 115
'
'lblProgramm
'
Me.lblProgramm.AutoSize = True
Me.lblProgramm.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblProgramm.Location = New System.Drawing.Point(9, 17)
Me.lblProgramm.Name = "lblProgramm"
Me.lblProgramm.Size = New System.Drawing.Size(62, 13)
Me.lblProgramm.TabIndex = 116
Me.lblProgramm.Text = "Programm"
'
'lblErrMsg
'
Me.lblErrMsg.AutoSize = True
Me.lblErrMsg.Location = New System.Drawing.Point(12, 210)
Me.lblErrMsg.Name = "lblErrMsg"
Me.lblErrMsg.Size = New System.Drawing.Size(78, 13)
Me.lblErrMsg.TabIndex = 120
Me.lblErrMsg.Text = "Error Message:"
'
'rtferrMsg
'
Me.rtferrMsg.Location = New System.Drawing.Point(12, 226)
Me.rtferrMsg.Name = "rtferrMsg"
Me.rtferrMsg.Size = New System.Drawing.Size(361, 209)
Me.rtferrMsg.TabIndex = 119
Me.rtferrMsg.Text = ""
'
'txtUser
'
Me.txtUser.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtUser.Location = New System.Drawing.Point(12, 121)
Me.txtUser.Name = "txtUser"
Me.txtUser.Size = New System.Drawing.Size(143, 20)
Me.txtUser.TabIndex = 123
'
'lblUser
'
Me.lblUser.AutoSize = True
Me.lblUser.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblUser.Location = New System.Drawing.Point(9, 105)
Me.lblUser.Name = "lblUser"
Me.lblUser.Size = New System.Drawing.Size(32, 13)
Me.lblUser.TabIndex = 124
Me.lblUser.Text = "User:"
'
'lblMethode
'
Me.lblMethode.AutoSize = True
Me.lblMethode.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblMethode.Location = New System.Drawing.Point(12, 153)
Me.lblMethode.Name = "lblMethode"
Me.lblMethode.Size = New System.Drawing.Size(49, 13)
Me.lblMethode.TabIndex = 125
Me.lblMethode.Text = "Methode"
'
'txtType
'
Me.txtType.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtType.Location = New System.Drawing.Point(188, 82)
Me.txtType.Name = "txtType"
Me.txtType.Size = New System.Drawing.Size(108, 20)
Me.txtType.TabIndex = 126
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(185, 66)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(28, 13)
Me.Label2.TabIndex = 127
Me.Label2.Text = "Typ:"
'
'cbxTestsysten
'
Me.cbxTestsysten.AutoSize = True
Me.cbxTestsysten.Location = New System.Drawing.Point(309, 12)
Me.cbxTestsysten.Name = "cbxTestsysten"
Me.cbxTestsysten.Size = New System.Drawing.Size(79, 17)
Me.cbxTestsysten.TabIndex = 128
Me.cbxTestsysten.Text = "Testsystem"
Me.cbxTestsysten.UseVisualStyleBackColor = True
'
'lblFirma
'
Me.lblFirma.AutoSize = True
Me.lblFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblFirma.Location = New System.Drawing.Point(9, 41)
Me.lblFirma.Name = "lblFirma"
Me.lblFirma.Size = New System.Drawing.Size(37, 13)
Me.lblFirma.TabIndex = 129
Me.lblFirma.Text = "Firma"
'
'txtMail
'
Me.txtMail.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtMail.Location = New System.Drawing.Point(188, 121)
Me.txtMail.Name = "txtMail"
Me.txtMail.Size = New System.Drawing.Size(185, 20)
Me.txtMail.TabIndex = 130
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(185, 105)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(36, 13)
Me.Label1.TabIndex = 131
Me.Label1.Text = "EMail:"
'
'frmERS
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(391, 841)
Me.Controls.Add(Me.txtMail)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.lblFirma)
Me.Controls.Add(Me.cbxTestsysten)
Me.Controls.Add(Me.txtType)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.lblMethode)
Me.Controls.Add(Me.txtUser)
Me.Controls.Add(Me.lblUser)
Me.Controls.Add(Me.lblErrMsg)
Me.Controls.Add(Me.rtferrMsg)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.rtferrStack)
Me.Controls.Add(Me.txtDatetime)
Me.Controls.Add(Me.lblDat)
Me.Controls.Add(Me.txtMethode)
Me.Controls.Add(Me.lblProgramm)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmERS"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Error"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label4 As Label
Friend WithEvents rtferrStack As RichTextBox
Friend WithEvents txtDatetime As TextBox
Friend WithEvents lblDat As Label
Friend WithEvents txtMethode As TextBox
Friend WithEvents lblProgramm As Label
Friend WithEvents lblErrMsg As Label
Friend WithEvents rtferrMsg As RichTextBox
Friend WithEvents txtUser As TextBox
Friend WithEvents lblUser As Label
Friend WithEvents lblMethode As Label
Friend WithEvents txtType As TextBox
Friend WithEvents Label2 As Label
Friend WithEvents cbxTestsysten As CheckBox
Friend WithEvents lblFirma As Label
Friend WithEvents txtMail As TextBox
Friend WithEvents Label1 As Label
End Class

1253
UID/frmERS.resx Normal file
View File

File diff suppressed because it is too large Load Diff

41
UID/frmERS.vb Normal file
View File

@@ -0,0 +1,41 @@
Public Class frmERS
Public id, progId, progName, datetime, testsystem, type, mail, maId, userName, firma, errorCode, errStack, errMessage, errMethodName, progVersion
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub frmERS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
lblProgramm.Text = progId & " - " & progName & IIf(progVersion <> "", " (" & progVersion & ")", "")
lblFirma.Text = firma
txtUser.Text = maId & " " & userName
txtType.Text = type
txtMethode.Text = errMethodName
txtDatetime.Text = datetime
txtMail.Text = mail
rtferrMsg.Text = errMessage
rtferrStack.Text = errStack
If errorCode > 0 Then
lblErrMsg.Text &= " (Error Code: " & errorCode & ")"
End If
If testsystem IsNot Nothing Then
cbxTestsysten.Checked = testsystem
End If
End Sub
End Class

60
UID/frmMain.Designer.vb generated
View File

@@ -33,6 +33,8 @@ Partial Class frmMain
Me.TableAdapterManager1 = New ADMIN.DataSetBerechtigungenTableAdapters.TableAdapterManager() Me.TableAdapterManager1 = New ADMIN.DataSetBerechtigungenTableAdapters.TableAdapterManager()
Me.pnlMain = New System.Windows.Forms.Panel() Me.pnlMain = New System.Windows.Forms.Panel()
Me.Panel3 = New System.Windows.Forms.Panel() Me.Panel3 = New System.Windows.Forms.Panel()
Me.btnFehler = New System.Windows.Forms.Button()
Me.btnAPI = New System.Windows.Forms.Button()
Me.btnHomepage = New System.Windows.Forms.Button() Me.btnHomepage = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button()
Me.btnUpdate = New System.Windows.Forms.Button() Me.btnUpdate = New System.Windows.Forms.Button()
@@ -44,8 +46,6 @@ Partial Class frmMain
Me.btnMitarbeiter = New System.Windows.Forms.Button() Me.btnMitarbeiter = New System.Windows.Forms.Button()
Me.Panel2 = New System.Windows.Forms.Panel() Me.Panel2 = New System.Windows.Forms.Panel()
Me.PictureBox1 = New System.Windows.Forms.PictureBox() Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.Button2 = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button()
Me.Panel3.SuspendLayout() Me.Panel3.SuspendLayout()
Me.Panel2.SuspendLayout() Me.Panel2.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -108,8 +108,8 @@ Partial Class frmMain
'Panel3 'Panel3
' '
Me.Panel3.BackColor = System.Drawing.Color.White Me.Panel3.BackColor = System.Drawing.Color.White
Me.Panel3.Controls.Add(Me.Button3) Me.Panel3.Controls.Add(Me.btnFehler)
Me.Panel3.Controls.Add(Me.Button2) Me.Panel3.Controls.Add(Me.btnAPI)
Me.Panel3.Controls.Add(Me.btnHomepage) Me.Panel3.Controls.Add(Me.btnHomepage)
Me.Panel3.Controls.Add(Me.Button1) Me.Panel3.Controls.Add(Me.Button1)
Me.Panel3.Controls.Add(Me.btnUpdate) Me.Panel3.Controls.Add(Me.btnUpdate)
@@ -125,6 +125,30 @@ Partial Class frmMain
Me.Panel3.Size = New System.Drawing.Size(137, 801) Me.Panel3.Size = New System.Drawing.Size(137, 801)
Me.Panel3.TabIndex = 32 Me.Panel3.TabIndex = 32
' '
'btnFehler
'
Me.btnFehler.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnFehler.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnFehler.Location = New System.Drawing.Point(12, 280)
Me.btnFehler.Name = "btnFehler"
Me.btnFehler.Size = New System.Drawing.Size(94, 33)
Me.btnFehler.TabIndex = 40
Me.btnFehler.Text = "ERS"
Me.btnFehler.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnFehler.UseVisualStyleBackColor = True
'
'btnAPI
'
Me.btnAPI.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAPI.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnAPI.Location = New System.Drawing.Point(12, 241)
Me.btnAPI.Name = "btnAPI"
Me.btnAPI.Size = New System.Drawing.Size(94, 33)
Me.btnAPI.TabIndex = 39
Me.btnAPI.Text = "API"
Me.btnAPI.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnAPI.UseVisualStyleBackColor = True
'
'btnHomepage 'btnHomepage
' '
Me.btnHomepage.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnHomepage.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -249,30 +273,6 @@ Partial Class frmMain
Me.PictureBox1.TabIndex = 31 Me.PictureBox1.TabIndex = 31
Me.PictureBox1.TabStop = False Me.PictureBox1.TabStop = False
' '
'Button2
'
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button2.Location = New System.Drawing.Point(12, 241)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(94, 33)
Me.Button2.TabIndex = 39
Me.Button2.Text = "API"
Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button2.UseVisualStyleBackColor = True
'
'Button3
'
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button3.Location = New System.Drawing.Point(12, 280)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(94, 33)
Me.Button3.TabIndex = 40
Me.Button3.Text = "ERS"
Me.Button3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button3.UseVisualStyleBackColor = True
'
'frmMain 'frmMain
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -313,6 +313,6 @@ Partial Class frmMain
Friend WithEvents btnUpdate As System.Windows.Forms.Button Friend WithEvents btnUpdate As System.Windows.Forms.Button
Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents btnHomepage As System.Windows.Forms.Button Friend WithEvents btnHomepage As System.Windows.Forms.Button
Friend WithEvents Button3 As Button Friend WithEvents btnFehler As Button
Friend WithEvents Button2 As Button Friend WithEvents btnAPI As Button
End Class End Class

14
UID/frmMain.vb
View File

@@ -29,8 +29,8 @@ Public Class frmMain
Button1.Enabled = False Button1.Enabled = False
btnHomepage.Enabled = False btnHomepage.Enabled = False
Button6.Enabled = False Button6.Enabled = False
Button2.Enabled = False btnAPI.Enabled = False
Button3.Enabled = False btnFehler.Enabled = False
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("frmDienstplan", Me) Then If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("frmDienstplan", Me) Then
btnDienstplan.Enabled = True btnDienstplan.Enabled = True
@@ -46,8 +46,8 @@ Public Class frmMain
btnSchulungen.Enabled = True btnSchulungen.Enabled = True
btnDienstplan.Enabled = True btnDienstplan.Enabled = True
Button1.Enabled = True Button1.Enabled = True
Button2.Enabled = True btnAPI.Enabled = True
Button3.Enabled = True btnFehler.Enabled = True
btnHomepage.Enabled = True btnHomepage.Enabled = True
Button6.Enabled = True Button6.Enabled = True
End If End If
@@ -142,6 +142,8 @@ Public Class frmMain
btnDienstplan.BackColor = Color.White : btnDienstplan.ForeColor = SystemColors.ControlText btnDienstplan.BackColor = Color.White : btnDienstplan.ForeColor = SystemColors.ControlText
btnProgramme.BackColor = Color.White : btnProgramme.ForeColor = SystemColors.ControlText btnProgramme.BackColor = Color.White : btnProgramme.ForeColor = SystemColors.ControlText
btnMitarbeiter.BackColor = Color.White : btnMitarbeiter.ForeColor = SystemColors.ControlText btnMitarbeiter.BackColor = Color.White : btnMitarbeiter.ForeColor = SystemColors.ControlText
btnAPI.BackColor = Color.White : btnAPI.ForeColor = SystemColors.ControlText
btnFehler.BackColor = Color.White : btnFehler.ForeColor = SystemColors.ControlText
sender.BackColor = System.Drawing.Color.FromArgb(0, 54, 128) 'Color.RoyalBlue sender.BackColor = System.Drawing.Color.FromArgb(0, 54, 128) 'Color.RoyalBlue
sender.ForeColor = Color.White sender.ForeColor = Color.White
@@ -197,7 +199,7 @@ Public Class frmMain
End If End If
End Sub End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Private Sub btnAPI_Click(sender As Object, e As EventArgs) Handles btnAPI.Click
clrPnlMain() clrPnlMain()
Dim usrCntl As New usrCntlAPI Dim usrCntl As New usrCntlAPI
pnlMain.Controls.Add(usrCntl) pnlMain.Controls.Add(usrCntl)
@@ -205,7 +207,7 @@ Public Class frmMain
button_Click(sender) button_Click(sender)
End Sub End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Private Sub btnFehler_Click(sender As Object, e As EventArgs) Handles btnFehler.Click
clrPnlMain() clrPnlMain()
Dim usrCntl As New usrCntlERS Dim usrCntl As New usrCntlERS
pnlMain.Controls.Add(usrCntl) pnlMain.Controls.Add(usrCntl)

87
UID/usrCntlAPI.vb
View File

@@ -1,4 +1,6 @@
Imports System.ComponentModel Imports System.ComponentModel
Imports GrapeCity
Imports VERAG_PROG_ALLGEMEIN
Public Class usrCntlAPI Public Class usrCntlAPI
@@ -25,21 +27,23 @@ Public Class usrCntlAPI
cboDatum.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("API-Datum", "ADat")) cboDatum.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("API-Datum", "ADat"))
cboDatum.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Durchführungsdatum", "DDat")) cboDatum.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Durchführungsdatum", "DDat"))
cboDatum.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Error-Datum", "EDat")) cboDatum.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Error-Datum", "EDat"))
cboDatum.changeItem("RDat") cboDatum.changeItem("EDat")
cboInOut.Items.Clear() cboInOut.Items.Clear()
cboInOut.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) cboInOut.fillWithSQL("SELECT distinct([api_InOut]) FROM [tblAPI] ", False, "ADMIN", True)
cboInOut.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IN", VERAG_PROG_ALLGEMEIN.cAPI_INOUT.IN)) 'cboInOut.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboInOut.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("OUT", VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT)) 'cboInOut.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IN", VERAG_PROG_ALLGEMEIN.cAPI_INOUT.IN))
cboInOut.changeItem("") 'cboInOut.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("OUT", VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT))
'cboInOut.changeItem("")
cboType.Items.Clear() cboType.Items.Clear()
cboType.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) cboType.fillWithSQL("SELECT distinct(api_Type) FROM [tblAPI] ", False, "ADMIN", True)
cboType.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FTP", VERAG_PROG_ALLGEMEIN.cAPI_Type.FTP)) 'cboType.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboType.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MAIL", VERAG_PROG_ALLGEMEIN.cAPI_Type.MAIL)) 'cboType.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FTP", VERAG_PROG_ALLGEMEIN.cAPI_Type.FTP))
cboType.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("REST", VERAG_PROG_ALLGEMEIN.cAPI_Type.REST)) 'cboType.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MAIL", VERAG_PROG_ALLGEMEIN.cAPI_Type.MAIL))
cboType.changeItem("") 'cboType.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("REST", VERAG_PROG_ALLGEMEIN.cAPI_Type.REST))
'cboType.changeItem("")
cboAPIArt.Items.Clear() cboAPIArt.Items.Clear()
@@ -73,18 +77,10 @@ Public Class usrCntlAPI
DateTimePicker1.Value = MONAT DateTimePicker1.Value = MONAT
DateTimePicker2.Value = MONAT.AddMonths(1).AddDays(-1) DateTimePicker2.Value = MONAT.AddMonths(1).AddDays(-1)
Case "Jahr" Case "Jahr"
' If cbxGeschaftsjahr.Checked Then
'DateTimePicker1.Value = JAHR.AddMonths(1)
' DateTimePicker2.Value = JAHR.AddYears(1).AddMonths(1).AddDays(-1)
' Else
DateTimePicker1.Value = JAHR DateTimePicker1.Value = JAHR
DateTimePicker2.Value = JAHR.AddYears(1).AddDays(-1) DateTimePicker2.Value = JAHR.AddYears(1).AddDays(-1)
'End If
Case "Tag" Case "Tag"
' If cbxGeschaftsjahr.Checked Then
'DateTimePicker1.Value = JAHR.AddMonths(1)
' DateTimePicker2.Value = JAHR.AddYears(1).AddMonths(1).AddDays(-1)
' Else
DateTimePicker1.Value = srcTAG DateTimePicker1.Value = srcTAG
DateTimePicker2.Value = srcTAG DateTimePicker2.Value = srcTAG
If srcTAG = Now.ToShortDateString Then If srcTAG = Now.ToShortDateString Then
@@ -136,12 +132,12 @@ Public Class usrCntlAPI
Dim sqlstr As String = "" Dim sqlstr As String = ""
Dim TopMax = If(IsNumeric(txtMaxSrch.Text), " TOP " & txtMaxSrch.Text, "") Dim TopMax = If(IsNumeric(txtMaxSrch.Text), " TOP " & txtMaxSrch.Text, "")
sqlstr &= "SELECT " & TopMax & " api_id, [api_apiArt],[api_apiUArt],[api_apiZollStatus],[api_InOut],[api_datetime],[api_status],[api_fehlversuch],[api_progName],[api_progVersion],[api_Type],[api_EMail],[api_filepathSource],[api_filepathDestination],[api_Firma],[api_Username],[api_Partnersystem],[api_Vorsystem],[api_KundenNr],[api_AvisoId],[api_SendungsId],[api_FilialenNr],[api_AbfertigungsNr],[api_BezugsNr],[api_Zollbelegnummer],[api_finTstmp] sqlstr &= "SELECT " & TopMax & " api_id,[api_datetime],[api_progName],[api_Type],[api_Partnersystem], api_apiArt,api_apiUArt,[api_apiZollStatus],[api_InOut],[api_status],[api_fehlversuch],[api_progVersion],[api_EMail],[api_filepathSource],[api_filepathDestination],[api_Firma],[api_Username],[api_Vorsystem],[api_KundenNr],[api_AvisoId],[api_SendungsId],[api_FilialenNr],[api_AbfertigungsNr],[api_BezugsNr],[api_Zollbelegnummer],[api_finTstmp]
FROM [tblAPI] WHERE 1=1 " FROM [tblAPI] WHERE 1=1 "
With DataGridView With DataGridView
' .DataSource = myTable ' .DataSource = myTable
.SET_SQL(sqlstr & getRechnungsAusgangWhere() & " ORDER BY api_datetime DESC", "ADMIN", getSpedbuchList) .SET_SQL(sqlstr & getAPIDatumWhere() & " ORDER BY api_datetime DESC", "ADMIN", getAPIList)
.LOAD() .LOAD()
If .RowCount = 0 Then Me.Cursor = Cursors.Default : Exit Sub If .RowCount = 0 Then Me.Cursor = Cursors.Default : Exit Sub
@@ -152,18 +148,9 @@ Public Class usrCntlAPI
.Columns("api_id").Visible = False .Columns("api_id").Visible = False
'.Columns("RechnungsNr").Width = 70 For Each cc As DataGridViewColumn In .Columns
'.Columns("RechnungsNr").HeaderText = "Rechnugs-Nr" cc.HeaderText = cc.Name.Replace("api_", "")
'.Columns("RechnungsNr").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter Next
'.Columns("RechnungsNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
'.Columns("RechnungsDatum").Width = 100
'.Columns("RechnungsDatum").HeaderText = "Rg-Dat."
'.Columns("RechnungsDatum").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter
'.Columns("RechnungsDatum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
'.Columns("Sammelrechnung").Width = 45
'.Columns("Sammelrechnung").HeaderText = "SR"
'.Columns("FilialenNr").Width = 45 '.Columns("FilialenNr").Width = 45
'.Columns("FilialenNr").HeaderText = "Filiale" '.Columns("FilialenNr").HeaderText = "Filiale"
@@ -181,43 +168,13 @@ Public Class usrCntlAPI
'.Columns("Abfertigungsdatum").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter '.Columns("Abfertigungsdatum").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter
'.Columns("Abfertigungsdatum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter '.Columns("Abfertigungsdatum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
'.Columns("RechnungAn").MinimumWidth = 150
'.Columns("RechnungAn").HeaderText = "Rechnung an"
'.Columns("RechnungAn").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
''.Columns("Absender").MinimumWidth = 150
''.Columns("Absender").HeaderText = "Absender"
''.Columns("Absender").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
'.Columns("Vermittler").MinimumWidth = 150
'.Columns("Vermittler").HeaderText = "Auftraggeber"
'.Columns("Vermittler").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
''.Columns("Empfänger").MinimumWidth = 150
''.Columns("Empfänger").HeaderText = "Empfänger"
''.Columns("Empfänger").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
'.Columns("LKW Kennzeichen").Width = 120
'.Columns("LKW Kennzeichen").HeaderText = "LKW Kennzeichen"
'.Columns("Sachbearbeiter").MinimumWidth = 100
'.Columns("Sachbearbeiter").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
'.Columns("SteuerpflichtigerGesamtbetrag").Width = 120
'.Columns("SteuerpflichtigerGesamtbetrag").HeaderText = "Betrag (stpfl.)"
'.Columns("SteuerpflichtigerGesamtbetrag").DefaultCellStyle.Format = "N2"
'.Columns("SteuerfreierGesamtbetrag").Width = 120
'.Columns("SteuerfreierGesamtbetrag").HeaderText = "Betrag (stfr.)"
'.Columns("SteuerfreierGesamtbetrag").DefaultCellStyle.Format = "N2"
lblErgebnis.Text = "Ergebnisse: " & .RowCount lblErgebnis.Text = "Ergebnisse: " & .RowCount
End With End With
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
End Sub End Sub
Function getRechnungsAusgangWhere() As String Function getAPIDatumWhere() As String
Dim sqlstr = "" Dim sqlstr = ""
If kdtxtKunde.Text <> "" And IsNumeric(kdtxtKunde.Text) Then sqlstr &= " AND [api_KundenNr] LIKE @Kunde " If kdtxtKunde.Text <> "" And IsNumeric(kdtxtKunde.Text) Then sqlstr &= " AND [api_KundenNr] LIKE @Kunde "
@@ -274,7 +231,7 @@ Public Class usrCntlAPI
Return sqlstr Return sqlstr
End Function End Function
Function getSpedbuchList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) Function getAPIList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kunde", kdtxtKunde.KdNr_value)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kunde", kdtxtKunde.KdNr_value))

399
UID/usrCntlERS.Designer.vb generated
View File

@@ -27,20 +27,11 @@ Partial Class usrCntlERS
Me.pnlSearch = New System.Windows.Forms.Panel() Me.pnlSearch = New System.Windows.Forms.Panel()
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
Me.Label9 = New System.Windows.Forms.Label() Me.Label9 = New System.Windows.Forms.Label()
Me.kdtxtKunde = New VERAG_PROG_ALLGEMEIN.KdSearchBox() Me.txtUser = 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()
Me.cboType = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cboType = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label6 = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label()
Me.cboInOut = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cboProgram = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label5 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label34 = New System.Windows.Forms.Label()
Me.Label35 = New System.Windows.Forms.Label()
Me.txtSendungsId = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtAvisoId = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Button7 = New System.Windows.Forms.Button() Me.Button7 = New System.Windows.Forms.Button()
Me.Button6 = New System.Windows.Forms.Button() Me.Button6 = New System.Windows.Forms.Button()
Me.Button5 = New System.Windows.Forms.Button() Me.Button5 = New System.Windows.Forms.Button()
@@ -54,15 +45,10 @@ Partial Class usrCntlERS
Me.btnBisMonat = New System.Windows.Forms.Button() Me.btnBisMonat = New System.Windows.Forms.Button()
Me.btnVonMonat = New System.Windows.Forms.Button() Me.btnVonMonat = New System.Windows.Forms.Button()
Me.txtAbfertDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtAbfertDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label26 = New System.Windows.Forms.Label()
Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker() Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker()
Me.Label27 = New System.Windows.Forms.Label()
Me.Label13 = New System.Windows.Forms.Label() Me.Label13 = New System.Windows.Forms.Label()
Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label1 = 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()
Me.txtAbfertigungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker() Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
Me.cboDatum = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cboDatum = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.pnlAnzeige = New System.Windows.Forms.Panel() Me.pnlAnzeige = New System.Windows.Forms.Panel()
@@ -75,6 +61,7 @@ Partial Class usrCntlERS
Me.Panel3 = New System.Windows.Forms.Panel() Me.Panel3 = New System.Windows.Forms.Panel()
Me.Button10 = New System.Windows.Forms.Button() Me.Button10 = New System.Windows.Forms.Button()
Me.Button11 = New System.Windows.Forms.Button() Me.Button11 = New System.Windows.Forms.Button()
Me.cbxTestSys = New System.Windows.Forms.CheckBox()
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer.Panel1.SuspendLayout() Me.SplitContainer.Panel1.SuspendLayout()
Me.SplitContainer.Panel2.SuspendLayout() Me.SplitContainer.Panel2.SuspendLayout()
@@ -130,21 +117,13 @@ Partial Class usrCntlERS
' '
'SplitContainer1.Panel1 'SplitContainer1.Panel1
' '
Me.SplitContainer1.Panel1.Controls.Add(Me.cbxTestSys)
Me.SplitContainer1.Panel1.Controls.Add(Me.Label9) Me.SplitContainer1.Panel1.Controls.Add(Me.Label9)
Me.SplitContainer1.Panel1.Controls.Add(Me.kdtxtKunde) Me.SplitContainer1.Panel1.Controls.Add(Me.txtUser)
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)
Me.SplitContainer1.Panel1.Controls.Add(Me.cboType) Me.SplitContainer1.Panel1.Controls.Add(Me.cboType)
Me.SplitContainer1.Panel1.Controls.Add(Me.Label6) Me.SplitContainer1.Panel1.Controls.Add(Me.Label6)
Me.SplitContainer1.Panel1.Controls.Add(Me.cboInOut) Me.SplitContainer1.Panel1.Controls.Add(Me.cboProgram)
Me.SplitContainer1.Panel1.Controls.Add(Me.Label5) Me.SplitContainer1.Panel1.Controls.Add(Me.Label5)
Me.SplitContainer1.Panel1.Controls.Add(Me.Label3)
Me.SplitContainer1.Panel1.Controls.Add(Me.Label34)
Me.SplitContainer1.Panel1.Controls.Add(Me.Label35)
Me.SplitContainer1.Panel1.Controls.Add(Me.txtSendungsId)
Me.SplitContainer1.Panel1.Controls.Add(Me.txtAvisoId)
Me.SplitContainer1.Panel1.Controls.Add(Me.Button7) Me.SplitContainer1.Panel1.Controls.Add(Me.Button7)
Me.SplitContainer1.Panel1.Controls.Add(Me.Button6) Me.SplitContainer1.Panel1.Controls.Add(Me.Button6)
Me.SplitContainer1.Panel1.Controls.Add(Me.Button5) Me.SplitContainer1.Panel1.Controls.Add(Me.Button5)
@@ -158,15 +137,10 @@ Partial Class usrCntlERS
Me.SplitContainer1.Panel1.Controls.Add(Me.btnBisMonat) Me.SplitContainer1.Panel1.Controls.Add(Me.btnBisMonat)
Me.SplitContainer1.Panel1.Controls.Add(Me.btnVonMonat) Me.SplitContainer1.Panel1.Controls.Add(Me.btnVonMonat)
Me.SplitContainer1.Panel1.Controls.Add(Me.txtAbfertDatBis) Me.SplitContainer1.Panel1.Controls.Add(Me.txtAbfertDatBis)
Me.SplitContainer1.Panel1.Controls.Add(Me.Label26)
Me.SplitContainer1.Panel1.Controls.Add(Me.DateTimePicker2) 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.Label13)
Me.SplitContainer1.Panel1.Controls.Add(Me.cboFiliale) Me.SplitContainer1.Panel1.Controls.Add(Me.cboFirma)
Me.SplitContainer1.Panel1.Controls.Add(Me.Label1) Me.SplitContainer1.Panel1.Controls.Add(Me.Label1)
Me.SplitContainer1.Panel1.Controls.Add(Me.Label2)
Me.SplitContainer1.Panel1.Controls.Add(Me.txtAbfertigungsnummerBis)
Me.SplitContainer1.Panel1.Controls.Add(Me.txtAbfertigungsnummer)
Me.SplitContainer1.Panel1.Controls.Add(Me.DateTimePicker1) Me.SplitContainer1.Panel1.Controls.Add(Me.DateTimePicker1)
Me.SplitContainer1.Panel1.Controls.Add(Me.cboDatum) Me.SplitContainer1.Panel1.Controls.Add(Me.cboDatum)
Me.SplitContainer1.Panel2Collapsed = True Me.SplitContainer1.Panel2Collapsed = True
@@ -177,93 +151,39 @@ Partial Class usrCntlERS
'Label9 'Label9
' '
Me.Label9.AutoSize = True Me.Label9.AutoSize = True
Me.Label9.Location = New System.Drawing.Point(14, 92) Me.Label9.Location = New System.Drawing.Point(330, 62)
Me.Label9.Name = "Label9" Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(74, 13) Me.Label9.Size = New System.Drawing.Size(32, 13)
Me.Label9.TabIndex = 47 Me.Label9.TabIndex = 47
Me.Label9.Text = "Kunde (KdNr):" Me.Label9.Text = "User:"
' '
'kdtxtKunde 'txtUser
' '
Me.kdtxtKunde._AlleFirmenCLUSTER = False Me.txtUser._AlleFirmenCLUSTER = False
Me.kdtxtKunde._AllowSetValue = True Me.txtUser._AllowSetValue = True
Me.kdtxtKunde._autoSizeGross = False Me.txtUser._autoSizeGross = False
Me.kdtxtKunde._display_Name1 = False Me.txtUser._display_Name1 = False
Me.kdtxtKunde._displayAVISO_Email = False Me.txtUser._displayAVISO_Email = False
Me.kdtxtKunde._displayFullName = False Me.txtUser._displayFullName = False
Me.kdtxtKunde._displayWoelflKd = False Me.txtUser._displayWoelflKd = False
Me.kdtxtKunde._hideIfListEmpty = True Me.txtUser._hideIfListEmpty = True
Me.kdtxtKunde._loadKdData = False Me.txtUser._loadKdData = False
Me.kdtxtKunde._UseFIRMA = "" Me.txtUser._searchName1 = True
Me.kdtxtKunde._ValueKdAndName = True Me.txtUser._UseFIRMA = ""
Me.kdtxtKunde.dgvpos = "LEFT" Me.txtUser._ValueKdAndName = True
Me.kdtxtKunde.KdName = "" Me.txtUser.dgvpos = "LEFT"
Me.kdtxtKunde.KdNr = "-1" Me.txtUser.KdName = ""
Me.kdtxtKunde.kdNrField = Nothing Me.txtUser.KdNr = "-1"
Me.kdtxtKunde.KdNrNullInt = Nothing Me.txtUser.kdNrField = Nothing
Me.kdtxtKunde.Location = New System.Drawing.Point(94, 89) Me.txtUser.KdNrNullInt = Nothing
Me.kdtxtKunde.Name = "kdtxtKunde" Me.txtUser.Location = New System.Drawing.Point(368, 58)
Me.kdtxtKunde.nurAktive = False Me.txtUser.Name = "txtUser"
Me.kdtxtKunde.searchActive = True Me.txtUser.nurAktive = False
Me.kdtxtKunde.Size = New System.Drawing.Size(214, 20) Me.txtUser.searchActive = True
Me.kdtxtKunde.TabIndex = 48 Me.txtUser.Size = New System.Drawing.Size(128, 20)
Me.kdtxtKunde.TIMER_SEARCH = True Me.txtUser.TabIndex = 48
Me.kdtxtKunde.usrcntl = Nothing Me.txtUser.TIMER_SEARCH = True
' Me.txtUser.usrcntl = Nothing
'txtAPIUArt
'
Me.txtAPIUArt._DateTimeOnly = False
Me.txtAPIUArt._numbersOnly = False
Me.txtAPIUArt._numbersOnlyKommastellen = ""
Me.txtAPIUArt._Prozent = False
Me.txtAPIUArt._ShortDateNew = False
Me.txtAPIUArt._ShortDateOnly = False
Me.txtAPIUArt._TimeOnly = 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.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(62, 13)
Me.Label8.TabIndex = 45
Me.Label8.Text = "Unter-Art:"
'
'cboAPIArt
'
Me.cboAPIArt._allowedValuesFreiText = Nothing
Me.cboAPIArt._allowFreiText = False
Me.cboAPIArt._value = ""
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.Name = "cboAPIArt"
Me.cboAPIArt.Size = New System.Drawing.Size(172, 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.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(47, 13)
Me.Label7.TabIndex = 43
Me.Label7.Text = "API-Art"
' '
'cboType 'cboType
' '
@@ -273,7 +193,7 @@ Partial Class usrCntlERS
Me.cboType.DropDownWidth = 250 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.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.FormattingEnabled = True
Me.cboType.Location = New System.Drawing.Point(419, 30) Me.cboType.Location = New System.Drawing.Point(451, 30)
Me.cboType.Name = "cboType" Me.cboType.Name = "cboType"
Me.cboType.Size = New System.Drawing.Size(105, 22) Me.cboType.Size = New System.Drawing.Size(105, 22)
Me.cboType.TabIndex = 42 Me.cboType.TabIndex = 42
@@ -282,24 +202,24 @@ Partial Class usrCntlERS
' '
Me.Label6.AutoSize = True 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.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(448, 12)
Me.Label6.Name = "Label6" Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(35, 13) Me.Label6.Size = New System.Drawing.Size(35, 13)
Me.Label6.TabIndex = 41 Me.Label6.TabIndex = 41
Me.Label6.Text = "Type" Me.Label6.Text = "Type"
' '
'cboInOut 'cboProgram
' '
Me.cboInOut._allowedValuesFreiText = Nothing Me.cboProgram._allowedValuesFreiText = Nothing
Me.cboInOut._allowFreiText = False Me.cboProgram._allowFreiText = False
Me.cboInOut._value = "" Me.cboProgram._value = ""
Me.cboInOut.DropDownWidth = 250 Me.cboProgram.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.cboProgram.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.cboProgram.FormattingEnabled = True
Me.cboInOut.Location = New System.Drawing.Point(333, 30) Me.cboProgram.Location = New System.Drawing.Point(333, 30)
Me.cboInOut.Name = "cboInOut" Me.cboProgram.Name = "cboProgram"
Me.cboInOut.Size = New System.Drawing.Size(80, 22) Me.cboProgram.Size = New System.Drawing.Size(99, 22)
Me.cboInOut.TabIndex = 40 Me.cboProgram.TabIndex = 40
' '
'Label5 'Label5
' '
@@ -307,82 +227,9 @@ Partial Class usrCntlERS
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.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(330, 12)
Me.Label5.Name = "Label5" Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(52, 13) Me.Label5.Size = New System.Drawing.Size(53, 13)
Me.Label5.TabIndex = 39 Me.Label5.TabIndex = 39
Me.Label5.Text = "IN/OUT" Me.Label5.Text = "Program"
'
'Label3
'
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, 66)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(80, 13)
Me.Label3.TabIndex = 38
Me.Label3.Text = "Aviso Daten:"
'
'Label34
'
Me.Label34.AutoSize = True
Me.Label34.Location = New System.Drawing.Point(330, 115)
Me.Label34.Name = "Label34"
Me.Label34.Size = New System.Drawing.Size(67, 13)
Me.Label34.TabIndex = 37
Me.Label34.Text = "SendungsId:"
'
'Label35
'
Me.Label35.AutoSize = True
Me.Label35.Location = New System.Drawing.Point(330, 89)
Me.Label35.Name = "Label35"
Me.Label35.Size = New System.Drawing.Size(45, 13)
Me.Label35.TabIndex = 34
Me.Label35.Text = "AvisoId:"
'
'txtSendungsId
'
Me.txtSendungsId._DateTimeOnly = False
Me.txtSendungsId._numbersOnly = True
Me.txtSendungsId._numbersOnlyKommastellen = ""
Me.txtSendungsId._Prozent = False
Me.txtSendungsId._ShortDateNew = False
Me.txtSendungsId._ShortDateOnly = False
Me.txtSendungsId._TimeOnly = False
Me.txtSendungsId._value = ""
Me.txtSendungsId._Waehrung = False
Me.txtSendungsId._WaehrungZeichen = True
Me.txtSendungsId.Enabled = False
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, 112)
Me.txtSendungsId.MaxLineLength = -1
Me.txtSendungsId.MaxLines_Warning = ""
Me.txtSendungsId.MaxLines_Warning_Label = Nothing
Me.txtSendungsId.Name = "txtSendungsId"
Me.txtSendungsId.Size = New System.Drawing.Size(125, 20)
Me.txtSendungsId.TabIndex = 36
'
'txtAvisoId
'
Me.txtAvisoId._DateTimeOnly = False
Me.txtAvisoId._numbersOnly = True
Me.txtAvisoId._numbersOnlyKommastellen = ""
Me.txtAvisoId._Prozent = False
Me.txtAvisoId._ShortDateNew = False
Me.txtAvisoId._ShortDateOnly = False
Me.txtAvisoId._TimeOnly = False
Me.txtAvisoId._value = ""
Me.txtAvisoId._Waehrung = False
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, 86)
Me.txtAvisoId.MaxLineLength = -1
Me.txtAvisoId.MaxLines_Warning = ""
Me.txtAvisoId.MaxLines_Warning_Label = Nothing
Me.txtAvisoId.Name = "txtAvisoId"
Me.txtAvisoId.Size = New System.Drawing.Size(125, 20)
Me.txtAvisoId.TabIndex = 35
' '
'Button7 'Button7
' '
@@ -445,10 +292,12 @@ Partial Class usrCntlERS
Me.txtAbfertDat._DateTimeOnly = False Me.txtAbfertDat._DateTimeOnly = False
Me.txtAbfertDat._numbersOnly = False Me.txtAbfertDat._numbersOnly = False
Me.txtAbfertDat._numbersOnlyKommastellen = "" Me.txtAbfertDat._numbersOnlyKommastellen = ""
Me.txtAbfertDat._numbersOnlyTrennzeichen = True
Me.txtAbfertDat._Prozent = False Me.txtAbfertDat._Prozent = False
Me.txtAbfertDat._ShortDateNew = False Me.txtAbfertDat._ShortDateNew = False
Me.txtAbfertDat._ShortDateOnly = True Me.txtAbfertDat._ShortDateOnly = True
Me.txtAbfertDat._TimeOnly = False Me.txtAbfertDat._TimeOnly = False
Me.txtAbfertDat._TimeOnly_Seconds = False
Me.txtAbfertDat._value = "" Me.txtAbfertDat._value = ""
Me.txtAbfertDat._Waehrung = False Me.txtAbfertDat._Waehrung = False
Me.txtAbfertDat._WaehrungZeichen = True Me.txtAbfertDat._WaehrungZeichen = True
@@ -565,10 +414,12 @@ Partial Class usrCntlERS
Me.txtAbfertDatBis._DateTimeOnly = False Me.txtAbfertDatBis._DateTimeOnly = False
Me.txtAbfertDatBis._numbersOnly = False Me.txtAbfertDatBis._numbersOnly = False
Me.txtAbfertDatBis._numbersOnlyKommastellen = "" Me.txtAbfertDatBis._numbersOnlyKommastellen = ""
Me.txtAbfertDatBis._numbersOnlyTrennzeichen = True
Me.txtAbfertDatBis._Prozent = False Me.txtAbfertDatBis._Prozent = False
Me.txtAbfertDatBis._ShortDateNew = False Me.txtAbfertDatBis._ShortDateNew = False
Me.txtAbfertDatBis._ShortDateOnly = True Me.txtAbfertDatBis._ShortDateOnly = True
Me.txtAbfertDatBis._TimeOnly = False Me.txtAbfertDatBis._TimeOnly = False
Me.txtAbfertDatBis._TimeOnly_Seconds = False
Me.txtAbfertDatBis._value = "" Me.txtAbfertDatBis._value = ""
Me.txtAbfertDatBis._Waehrung = False Me.txtAbfertDatBis._Waehrung = False
Me.txtAbfertDatBis._WaehrungZeichen = True Me.txtAbfertDatBis._WaehrungZeichen = True
@@ -583,15 +434,6 @@ Partial Class usrCntlERS
Me.txtAbfertDatBis.Size = New System.Drawing.Size(63, 20) Me.txtAbfertDatBis.Size = New System.Drawing.Size(63, 20)
Me.txtAbfertDatBis.TabIndex = 3 Me.txtAbfertDatBis.TabIndex = 3
' '
'Label26
'
Me.Label26.AutoSize = True
Me.Label26.Location = New System.Drawing.Point(649, 115)
Me.Label26.Name = "Label26"
Me.Label26.Size = New System.Drawing.Size(23, 13)
Me.Label26.TabIndex = 30
Me.Label26.Text = "bis:"
'
'DateTimePicker2 'DateTimePicker2
' '
Me.DateTimePicker2.CustomFormat = "''" Me.DateTimePicker2.CustomFormat = "''"
@@ -603,15 +445,6 @@ Partial Class usrCntlERS
Me.DateTimePicker2.Size = New System.Drawing.Size(92, 20) Me.DateTimePicker2.Size = New System.Drawing.Size(92, 20)
Me.DateTimePicker2.TabIndex = 4 Me.DateTimePicker2.TabIndex = 4
' '
'Label27
'
Me.Label27.AutoSize = True
Me.Label27.Location = New System.Drawing.Point(649, 89)
Me.Label27.Name = "Label27"
Me.Label27.Size = New System.Drawing.Size(28, 13)
Me.Label27.TabIndex = 21
Me.Label27.Text = "von:"
'
'Label13 'Label13
' '
Me.Label13.AutoSize = True Me.Label13.AutoSize = True
@@ -621,83 +454,28 @@ Partial Class usrCntlERS
Me.Label13.TabIndex = 13 Me.Label13.TabIndex = 13
Me.Label13.Text = "von:" Me.Label13.Text = "von:"
' '
'cboFiliale 'cboFirma
' '
Me.cboFiliale._allowedValuesFreiText = Nothing Me.cboFirma._allowedValuesFreiText = Nothing
Me.cboFiliale._allowFreiText = False Me.cboFirma._allowFreiText = False
Me.cboFiliale._value = "" Me.cboFirma._value = ""
Me.cboFiliale.DropDownWidth = 250 Me.cboFirma.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.cboFirma.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.cboFirma.FormattingEnabled = True
Me.cboFiliale.Location = New System.Drawing.Point(542, 84) Me.cboFirma.Location = New System.Drawing.Point(575, 26)
Me.cboFiliale.Name = "cboFiliale" Me.cboFirma.Name = "cboFirma"
Me.cboFiliale.Size = New System.Drawing.Size(104, 22) Me.cboFirma.Size = New System.Drawing.Size(104, 22)
Me.cboFiliale.TabIndex = 20 Me.cboFirma.TabIndex = 20
' '
'Label1 'Label1
' '
Me.Label1.AutoSize = True 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.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, 66) Me.Label1.Location = New System.Drawing.Point(572, 8)
Me.Label1.Name = "Label1" Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(40, 13) Me.Label1.Size = New System.Drawing.Size(37, 13)
Me.Label1.TabIndex = 6 Me.Label1.TabIndex = 6
Me.Label1.Text = "Filiale" Me.Label1.Text = "Firma"
'
'Label2
'
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, 66)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(121, 13)
Me.Label2.TabIndex = 7
Me.Label2.Text = "Abfertigungsnummer"
'
'txtAbfertigungsnummerBis
'
Me.txtAbfertigungsnummerBis._DateTimeOnly = False
Me.txtAbfertigungsnummerBis._numbersOnly = False
Me.txtAbfertigungsnummerBis._numbersOnlyKommastellen = ""
Me.txtAbfertigungsnummerBis._Prozent = False
Me.txtAbfertigungsnummerBis._ShortDateNew = False
Me.txtAbfertigungsnummerBis._ShortDateOnly = False
Me.txtAbfertigungsnummerBis._TimeOnly = False
Me.txtAbfertigungsnummerBis._value = Nothing
Me.txtAbfertigungsnummerBis._Waehrung = False
Me.txtAbfertigungsnummerBis._WaehrungZeichen = True
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, 112)
Me.txtAbfertigungsnummerBis.MaxLineLength = -1
Me.txtAbfertigungsnummerBis.MaxLines_Warning = ""
Me.txtAbfertigungsnummerBis.MaxLines_Warning_Label = Nothing
Me.txtAbfertigungsnummerBis.Name = "txtAbfertigungsnummerBis"
Me.txtAbfertigungsnummerBis.Size = New System.Drawing.Size(136, 20)
Me.txtAbfertigungsnummerBis.TabIndex = 23
'
'txtAbfertigungsnummer
'
Me.txtAbfertigungsnummer._DateTimeOnly = False
Me.txtAbfertigungsnummer._numbersOnly = False
Me.txtAbfertigungsnummer._numbersOnlyKommastellen = ""
Me.txtAbfertigungsnummer._Prozent = False
Me.txtAbfertigungsnummer._ShortDateNew = False
Me.txtAbfertigungsnummer._ShortDateOnly = False
Me.txtAbfertigungsnummer._TimeOnly = False
Me.txtAbfertigungsnummer._value = Nothing
Me.txtAbfertigungsnummer._Waehrung = False
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, 86)
Me.txtAbfertigungsnummer.MaxLineLength = -1
Me.txtAbfertigungsnummer.MaxLines_Warning = ""
Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing
Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer"
Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(136, 20)
Me.txtAbfertigungsnummer.TabIndex = 22
' '
'DateTimePicker1 'DateTimePicker1
' '
@@ -793,10 +571,12 @@ Partial Class usrCntlERS
Me.txtMaxSrch._DateTimeOnly = False Me.txtMaxSrch._DateTimeOnly = False
Me.txtMaxSrch._numbersOnly = True Me.txtMaxSrch._numbersOnly = True
Me.txtMaxSrch._numbersOnlyKommastellen = "" Me.txtMaxSrch._numbersOnlyKommastellen = ""
Me.txtMaxSrch._numbersOnlyTrennzeichen = True
Me.txtMaxSrch._Prozent = False Me.txtMaxSrch._Prozent = False
Me.txtMaxSrch._ShortDateNew = False Me.txtMaxSrch._ShortDateNew = False
Me.txtMaxSrch._ShortDateOnly = False Me.txtMaxSrch._ShortDateOnly = False
Me.txtMaxSrch._TimeOnly = False Me.txtMaxSrch._TimeOnly = False
Me.txtMaxSrch._TimeOnly_Seconds = False
Me.txtMaxSrch._value = "" Me.txtMaxSrch._value = ""
Me.txtMaxSrch._Waehrung = False Me.txtMaxSrch._Waehrung = False
Me.txtMaxSrch._WaehrungZeichen = True Me.txtMaxSrch._WaehrungZeichen = True
@@ -853,6 +633,20 @@ Partial Class usrCntlERS
Me.Button11.TabIndex = 4 Me.Button11.TabIndex = 4
Me.Button11.UseVisualStyleBackColor = True Me.Button11.UseVisualStyleBackColor = True
' '
'cbxTestSys
'
Me.cbxTestSys.AutoSize = True
Me.cbxTestSys.BackColor = System.Drawing.Color.White
Me.cbxTestSys.Checked = True
Me.cbxTestSys.CheckState = System.Windows.Forms.CheckState.Indeterminate
Me.cbxTestSys.Location = New System.Drawing.Point(530, 64)
Me.cbxTestSys.Name = "cbxTestSys"
Me.cbxTestSys.Size = New System.Drawing.Size(79, 17)
Me.cbxTestSys.TabIndex = 50
Me.cbxTestSys.Text = "Testsystem"
Me.cbxTestSys.ThreeState = True
Me.cbxTestSys.UseVisualStyleBackColor = False
'
'usrCntlERS 'usrCntlERS
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -881,10 +675,6 @@ Partial Class usrCntlERS
Friend WithEvents SplitContainer As SplitContainer Friend WithEvents SplitContainer As SplitContainer
Friend WithEvents pnlSearch As Panel Friend WithEvents pnlSearch As Panel
Friend WithEvents SplitContainer1 As SplitContainer Friend WithEvents SplitContainer1 As SplitContainer
Friend WithEvents Label34 As Label
Friend WithEvents Label35 As Label
Friend WithEvents txtSendungsId As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtAvisoId As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Button7 As Button Friend WithEvents Button7 As Button
Friend WithEvents Button6 As Button Friend WithEvents Button6 As Button
Friend WithEvents Button5 As Button Friend WithEvents Button5 As Button
@@ -898,15 +688,10 @@ Partial Class usrCntlERS
Friend WithEvents btnBisMonat As Button Friend WithEvents btnBisMonat As Button
Friend WithEvents btnVonMonat As Button Friend WithEvents btnVonMonat As Button
Friend WithEvents txtAbfertDatBis As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtAbfertDatBis As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label26 As Label
Friend WithEvents DateTimePicker2 As DateTimePicker Friend WithEvents DateTimePicker2 As DateTimePicker
Friend WithEvents Label27 As Label
Friend WithEvents Label13 As Label Friend WithEvents Label13 As Label
Friend WithEvents cboFiliale As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents cboFirma As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label1 As Label Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
Friend WithEvents txtAbfertigungsnummerBis As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtAbfertigungsnummer As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents DateTimePicker1 As DateTimePicker Friend WithEvents DateTimePicker1 As DateTimePicker
Friend WithEvents cboDatum As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents cboDatum As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents pnlAnzeige As Panel Friend WithEvents pnlAnzeige As Panel
@@ -918,16 +703,12 @@ Partial Class usrCntlERS
Friend WithEvents Panel3 As Panel Friend WithEvents Panel3 As Panel
Friend WithEvents Button10 As Button Friend WithEvents Button10 As Button
Friend WithEvents Button11 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
Friend WithEvents cboType As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents cboType As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label6 As Label Friend WithEvents Label6 As Label
Friend WithEvents cboInOut As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents cboProgram As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label5 As Label Friend WithEvents Label5 As Label
Friend WithEvents Label9 As Label Friend WithEvents Label9 As Label
Friend WithEvents kdtxtKunde As VERAG_PROG_ALLGEMEIN.KdSearchBox Friend WithEvents txtUser As VERAG_PROG_ALLGEMEIN.KdSearchBox
Friend WithEvents lblErgebnis As Label Friend WithEvents lblErgebnis As Label
Friend WithEvents cbxTestSys As CheckBox
End Class End Class

162
UID/usrCntlERS.vb
View File

@@ -1,4 +1,11 @@
Imports System.ComponentModel Imports System.ComponentModel
Imports DocumentFormat.OpenXml.Drawing.Spreadsheet
Imports DocumentFormat.OpenXml.Office2010.Excel
Imports System.Windows.Forms.VisualStyles.VisualStyleElement.StartPanel
Imports VERAG_PROG_ALLGEMEIN.TESTJSON
Imports DocumentFormat.OpenXml.Spreadsheet
Imports DocumentFormat.OpenXml.Wordprocessing
Imports GrapeCity.ActiveReports.ReportsCore.Tools
Public Class usrCntlERS Public Class usrCntlERS
@@ -14,44 +21,22 @@ Public Class usrCntlERS
btnMonat.Text = MONAT.ToString("MMMM") btnMonat.Text = MONAT.ToString("MMMM")
btnJahr.Text = JAHR.Year btnJahr.Text = JAHR.Year
txtUser.initKdBox(Me.FindForm) ' initKdAbsender()
kdtxtKunde.initKdBox(Me.FindForm) ' initKdAbsender() cboFirma.fillWithSQL("SELECT [Firma_Bez] FROM [tblFirma] ", False, "FMZOLL", True)
cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
cboDatum.Items.Clear() cboDatum.Items.Clear()
cboDatum.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("API-Datum", "ADat"))
cboDatum.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Durchführungsdatum", "DDat"))
cboDatum.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Error-Datum", "EDat")) cboDatum.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Error-Datum", "EDat"))
cboDatum.changeItem("RDat") cboDatum.changeItem("EDat")
cboInOut.Items.Clear()
cboInOut.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboInOut.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IN", VERAG_PROG_ALLGEMEIN.cAPI_INOUT.IN))
cboInOut.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("OUT", VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT))
cboInOut.changeItem("")
cboProgram.Items.Clear()
cboProgram.fillWithSQL("SELECT [prog_id],[prog_codename] from [tblProgramme]", False, "ADMIN", True)
cboProgram.changeItem("")
cboType.Items.Clear() cboType.Items.Clear()
cboType.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) cboType.fillWithSQL("SELECT distinct(ers_Type) FROM [tblERS] ", False, "ADMIN", True)
cboType.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FTP", VERAG_PROG_ALLGEMEIN.cAPI_Type.FTP))
cboType.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MAIL", VERAG_PROG_ALLGEMEIN.cAPI_Type.MAIL))
cboType.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("REST", VERAG_PROG_ALLGEMEIN.cAPI_Type.REST))
cboType.changeItem("") cboType.changeItem("")
cboAPIArt.Items.Clear()
cboAPIArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboAPIArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AVISO_OUT_STATUSMAIL", VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_OUT_STATUSMAIL))
cboAPIArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AVISO_OUT_BELEGMAIL", VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_OUT_BELEGMAIL))
cboAPIArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG_OUT_EZA", VERAG_PROG_ALLGEMEIN.cAPI_ART.VERAG_OUT_EZA))
cboAPIArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG_OUT_NCTS", VERAG_PROG_ALLGEMEIN.cAPI_ART.VERAG_OUT_NCTS))
cboAPIArt.changeItem("")
End Sub End Sub
Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
@@ -136,12 +121,12 @@ Public Class usrCntlERS
Dim sqlstr As String = "" Dim sqlstr As String = ""
Dim TopMax = If(IsNumeric(txtMaxSrch.Text), " TOP " & txtMaxSrch.Text, "") Dim TopMax = If(IsNumeric(txtMaxSrch.Text), " TOP " & txtMaxSrch.Text, "")
sqlstr &= "SELECT " & TopMax & " api_id, [api_apiArt],[api_apiUArt],[api_apiZollStatus],[api_InOut],[api_datetime],[api_status],[api_fehlversuch],[api_progName],[api_progVersion],[api_Type],[api_EMail],[api_filepathSource],[api_filepathDestination],[api_Firma],[api_Username],[api_Partnersystem],[api_Vorsystem],[api_KundenNr],[api_AvisoId],[api_SendungsId],[api_FilialenNr],[api_AbfertigungsNr],[api_BezugsNr],[api_Zollbelegnummer],[api_finTstmp] sqlstr &= "SELECT " & TopMax & " [ers_id],[ers_progId],[ers_progName],[ers_progVersion],[ers_datetime],[ers_Testsystem],[ers_Type],[ers_EMail],[ers_maId],[ers_userName],[ers_Firma],[ers_errCode],[ers_errStack],[ers_errMessage],[ers_errMethodName],[ers_infotext]
FROM [tblAPI] WHERE 1=1 " FROM [tblERS] WHERE 1=1 "
With DataGridView With DataGridView
' .DataSource = myTable ' .DataSource = myTable
.SET_SQL(sqlstr & getRechnungsAusgangWhere() & " ORDER BY Rechnungsdatum, RK_ID", "FMZOLL", getSpedbuchList) .SET_SQL(sqlstr & getErrordatumWhere() & " ORDER BY ers_datetime", "ADMIN", getErrorList)
.LOAD() .LOAD()
If .RowCount = 0 Then Me.Cursor = Cursors.Default : Exit Sub If .RowCount = 0 Then Me.Cursor = Cursors.Default : Exit Sub
@@ -150,7 +135,12 @@ Public Class usrCntlERS
.SelectionMode = DataGridViewSelectionMode.FullRowSelect .SelectionMode = DataGridViewSelectionMode.FullRowSelect
.MultiSelect = False .MultiSelect = False
.Columns("api_id").Visible = False .Columns("ers_id").Visible = False
.Columns("ers_progId").Visible = False
For Each cc As DataGridViewColumn In .Columns
cc.HeaderText = cc.Name.Replace("ers_", "")
Next
'.Columns("RechnungsNr").Width = 70 '.Columns("RechnungsNr").Width = 70
'.Columns("RechnungsNr").HeaderText = "Rechnugs-Nr" '.Columns("RechnungsNr").HeaderText = "Rechnugs-Nr"
@@ -217,85 +207,67 @@ Public Class usrCntlERS
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
End Sub End Sub
Function getRechnungsAusgangWhere() As String Function getErrordatumWhere() As String
Dim sqlstr = "" Dim sqlstr = ""
If kdtxtKunde.Text <> "" And IsNumeric(kdtxtKunde.Text) Then sqlstr &= " AND [api_KundenNr] LIKE @Kunde " If txtUser.Text <> "" And IsNumeric(txtUser.Text) Then sqlstr &= " AND [ers_userName] LIKE @User "
If txtAbfertDat.Text <> "" Then
If cboDatum._value = "ADat" Then If txtAbfertDatBis.Text <> "" Then
If txtAbfertDat.Text <> "" Then sqlstr &= " AND ([ers_datetime] BETWEEN @Datum_von AND @Datum_bis ) "
If txtAbfertDatBis.Text <> "" Then
sqlstr &= " AND ([api_datetime] BETWEEN @Datum_von AND @Datum_bis ) "
Else
sqlstr &= " AND ([api_datetime] BETWEEN @Datum_von AND @Datum_von ) "
End If
End If
ElseIf cboDatum._value = "DDat" Then
If txtAbfertDat.Text <> "" Then
If txtAbfertDatBis.Text <> "" Then
sqlstr &= " AND ([api_finTstmp] BETWEEN @Datum_von AND @Datum_bis ) "
Else
sqlstr &= " AND ([api_finTstmp] BETWEEN @Datum_von AND @Datum_von ) "
End If
End If
ElseIf cboDatum._value = "EDat" Then
If txtAbfertDat.Text <> "" Then
If txtAbfertDatBis.Text <> "" Then
sqlstr &= " AND ([api_errTstmp] BETWEEN @Datum_von AND @Datum_bis ) "
Else
sqlstr &= " AND ([api_errTstmp] BETWEEN @Datum_von AND @Datum_von ) "
End If
End If
End If
If txtAbfertigungsnummer.Text <> "" Then
If txtAbfertigungsnummerBis.Text <> "" Then
sqlstr &= " AND ([api_AbfertigungsNr] BETWEEN @AbfertigungsNr AND @AbfertigungsNr_bis) "
Else Else
sqlstr &= " AND [api_AbfertigungsNr] LIKE @AbfertigungsNr " sqlstr &= " AND ([ers_datetime] BETWEEN @Datum_von AND @Datum_von ) "
End If End If
End If End If
If cboFiliale._value <> "" Then sqlstr &= " AND [api_FilialenNr] LIKE @FilialenNr " If cboFirma._value <> "" Then sqlstr &= " AND [ers_Firma] LIKE @ersFirma "
If cboType._value <> "" Then sqlstr &= " AND [ers_Type] LIKE @ersType "
If txtAPIUArt.Text <> "" Then sqlstr &= " AND [api_apiUArt] LIKE @UArt " If cboProgram._value <> "" Then sqlstr &= " AND [ers_progId] = @ersprogId "
If cbxTestSys.CheckState <> CheckState.Indeterminate Then
If cboAPIArt._value <> "" Then sqlstr &= " AND [api_apiArt] LIKE @APIArt " sqlstr &= " AND [ers_Testsystem] = @ersTestsystem "
If cboType._value <> "" Then sqlstr &= " AND [api_Type] LIKE @APIType " End If
If cboInOut._value <> "" Then sqlstr &= " AND [api_InOut] LIKE @APIInOut "
If txtAvisoId.Text <> "" Then sqlstr &= " AND [api_AvisoId] LIKE @AvisoId "
If txtSendungsId.Text <> "" Then sqlstr &= " AND [api_SendungsId] LIKE @SendungsId "
Return sqlstr Return sqlstr
End Function End Function
Function getSpedbuchList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) Function getErrorList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kunde", kdtxtKunde.KdNr_value)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("User", txtUser.KdNr_value))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Datum_von", txtAbfertDat.Text & " 00:00:00")) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Datum_von", txtAbfertDat.Text & " 00:00:00"))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Datum_bis", txtAbfertDatBis.Text & " 23:59:59")) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Datum_bis", txtAbfertDatBis.Text & " 23:59:59"))
If txtAbfertigungsnummerBis.Text <> "" Then list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ersFirma", cboFirma._value))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", txtAbfertigungsnummer.Text.Replace("*", ""))) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ersType", cboType._value))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr_bis", txtAbfertigungsnummerBis.Text.Replace("*", ""))) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ersprogId", cboProgram._value))
Else list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ersTestsystem", cbxTestSys.Checked))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", txtAbfertigungsnummer.Text.Replace("*", "%")))
End If
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNr", cboFiliale._value))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UArt", txtAPIUArt.Text.Replace("*", "%").ToUpper))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("APIArt", cboAPIArt._value))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("APIType", cboType._value))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("APIInOut", cboInOut._value))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AvisoId", txtAvisoId._value))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SendungsId", txtSendungsId._value))
Return list Return list
End Function End Function
Private Sub DataGridView_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView.CellDoubleClick
Me.Cursor = Cursors.WaitCursor
Dim err As New frmERS With {
.id = sender.CurrentRow.Cells("ers_id").Value,
.progId = sender.CurrentRow.Cells("ers_progId").Value,
.progName = sender.CurrentRow.Cells("ers_progName").Value,
.progVersion = sender.CurrentRow.Cells("ers_progVersion").Value,
.datetime = sender.CurrentRow.Cells("ers_datetime").Value,
.testsystem = sender.CurrentRow.Cells("ers_testsystem").Value,
.type = sender.CurrentRow.Cells("ers_type").Value,
.mail = sender.CurrentRow.Cells("ers_email").Value,
.maId = sender.CurrentRow.Cells("ers_maId").Value,
.userName = sender.CurrentRow.Cells("ers_userName").Value,
.firma = sender.CurrentRow.Cells("ers_firma").Value,
.errorCode = sender.CurrentRow.Cells("ers_progId").Value,
.errStack = sender.CurrentRow.Cells("ers_errStack").Value,
.errMessage = sender.CurrentRow.Cells("ers_errMessage").Value,
.errMethodName = sender.CurrentRow.Cells("ers_errMethodName").Value
}
err.Show(Me)
sender.RELOAD()
Me.Cursor = Cursors.Default
End Sub
End Class End Class