Ansicht API-Liste und Fehlerliste
This commit is contained in:
@@ -437,6 +437,12 @@
|
||||
<Compile Include="Dienstplan\frmDienstplan.vb">
|
||||
<SubType>Form</SubType>
|
||||
</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">
|
||||
<DependentUpon>frmADsearch.vb</DependentUpon>
|
||||
</Compile>
|
||||
@@ -706,6 +712,9 @@
|
||||
<EmbeddedResource Include="Dienstplan\frmDienstplan.resx">
|
||||
<DependentUpon>frmDienstplan.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="frmERS.resx">
|
||||
<DependentUpon>frmERS.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Mitarbeiter\frmADsearch.resx">
|
||||
<DependentUpon>frmADsearch.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
|
||||
8
UID/Mitarbeiter/frmMitarbDetails.Designer.vb
generated
8
UID/Mitarbeiter/frmMitarbDetails.Designer.vb
generated
@@ -1166,7 +1166,7 @@ Partial Class frmMitarbDetails
|
||||
'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.Location = New System.Drawing.Point(113, 234)
|
||||
Me.datEinstiegsdatum.Location = New System.Drawing.Point(118, 236)
|
||||
Me.datEinstiegsdatum.Name = "datEinstiegsdatum"
|
||||
Me.datEinstiegsdatum.Size = New System.Drawing.Size(200, 20)
|
||||
Me.datEinstiegsdatum.TabIndex = 2
|
||||
@@ -1195,7 +1195,7 @@ Partial Class frmMitarbDetails
|
||||
'
|
||||
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.Location = New System.Drawing.Point(113, 257)
|
||||
Me.datGekuendigtAm.Location = New System.Drawing.Point(118, 259)
|
||||
Me.datGekuendigtAm.Name = "datGekuendigtAm"
|
||||
Me.datGekuendigtAm.Size = New System.Drawing.Size(200, 20)
|
||||
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.Location = New System.Drawing.Point(16, 262)
|
||||
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.Text = "gekündigt, am:"
|
||||
Me.cbxGekuendigt.Text = "Ende DV"
|
||||
Me.cbxGekuendigt.UseVisualStyleBackColor = True
|
||||
'
|
||||
'txtEmail
|
||||
|
||||
@@ -1016,7 +1016,7 @@ Public Class frmMitarbDetails
|
||||
If frmAD.ShowDialog = DialogResult.OK Then
|
||||
|
||||
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
|
||||
'Dim NewADAccount As DirectoryEntry = New DirectoryEntry(frmAD.activeDirectoryObj.ADEntry.Parent.Path, txtALIASUser.Text, txtPwd.Text)
|
||||
'frmAD.activeDirectoryObj.ADEntry.CopyTo(NewADAccount)
|
||||
|
||||
248
UID/frmERS.Designer.vb
generated
Normal file
248
UID/frmERS.Designer.vb
generated
Normal 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
1253
UID/frmERS.resx
Normal file
File diff suppressed because it is too large
Load Diff
41
UID/frmERS.vb
Normal file
41
UID/frmERS.vb
Normal 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
60
UID/frmMain.Designer.vb
generated
@@ -33,6 +33,8 @@ Partial Class frmMain
|
||||
Me.TableAdapterManager1 = New ADMIN.DataSetBerechtigungenTableAdapters.TableAdapterManager()
|
||||
Me.pnlMain = 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.Button1 = 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.Panel2 = New System.Windows.Forms.Panel()
|
||||
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.Panel2.SuspendLayout()
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
@@ -108,8 +108,8 @@ Partial Class frmMain
|
||||
'Panel3
|
||||
'
|
||||
Me.Panel3.BackColor = System.Drawing.Color.White
|
||||
Me.Panel3.Controls.Add(Me.Button3)
|
||||
Me.Panel3.Controls.Add(Me.Button2)
|
||||
Me.Panel3.Controls.Add(Me.btnFehler)
|
||||
Me.Panel3.Controls.Add(Me.btnAPI)
|
||||
Me.Panel3.Controls.Add(Me.btnHomepage)
|
||||
Me.Panel3.Controls.Add(Me.Button1)
|
||||
Me.Panel3.Controls.Add(Me.btnUpdate)
|
||||
@@ -125,6 +125,30 @@ Partial Class frmMain
|
||||
Me.Panel3.Size = New System.Drawing.Size(137, 801)
|
||||
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
|
||||
'
|
||||
Me.btnHomepage.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
@@ -249,30 +273,6 @@ Partial Class frmMain
|
||||
Me.PictureBox1.TabIndex = 31
|
||||
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
|
||||
'
|
||||
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 Button1 As System.Windows.Forms.Button
|
||||
Friend WithEvents btnHomepage As System.Windows.Forms.Button
|
||||
Friend WithEvents Button3 As Button
|
||||
Friend WithEvents Button2 As Button
|
||||
Friend WithEvents btnFehler As Button
|
||||
Friend WithEvents btnAPI As Button
|
||||
End Class
|
||||
|
||||
@@ -29,8 +29,8 @@ Public Class frmMain
|
||||
Button1.Enabled = False
|
||||
btnHomepage.Enabled = False
|
||||
Button6.Enabled = False
|
||||
Button2.Enabled = False
|
||||
Button3.Enabled = False
|
||||
btnAPI.Enabled = False
|
||||
btnFehler.Enabled = False
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("frmDienstplan", Me) Then
|
||||
btnDienstplan.Enabled = True
|
||||
@@ -46,8 +46,8 @@ Public Class frmMain
|
||||
btnSchulungen.Enabled = True
|
||||
btnDienstplan.Enabled = True
|
||||
Button1.Enabled = True
|
||||
Button2.Enabled = True
|
||||
Button3.Enabled = True
|
||||
btnAPI.Enabled = True
|
||||
btnFehler.Enabled = True
|
||||
btnHomepage.Enabled = True
|
||||
Button6.Enabled = True
|
||||
End If
|
||||
@@ -142,12 +142,14 @@ Public Class frmMain
|
||||
btnDienstplan.BackColor = Color.White : btnDienstplan.ForeColor = SystemColors.ControlText
|
||||
btnProgramme.BackColor = Color.White : btnProgramme.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.ForeColor = Color.White
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs)
|
||||
@@ -197,7 +199,7 @@ Public Class frmMain
|
||||
End If
|
||||
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()
|
||||
Dim usrCntl As New usrCntlAPI
|
||||
pnlMain.Controls.Add(usrCntl)
|
||||
@@ -205,7 +207,7 @@ Public Class frmMain
|
||||
button_Click(sender)
|
||||
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()
|
||||
Dim usrCntl As New usrCntlERS
|
||||
pnlMain.Controls.Add(usrCntl)
|
||||
|
||||
@@ -1,4 +1,6 @@
|
||||
Imports System.ComponentModel
|
||||
Imports GrapeCity
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
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("Durchführungsdatum", "DDat"))
|
||||
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("")
|
||||
cboInOut.fillWithSQL("SELECT distinct([api_InOut]) FROM [tblAPI] ", False, "ADMIN", True)
|
||||
'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("")
|
||||
|
||||
|
||||
cboType.Items.Clear()
|
||||
cboType.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
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.fillWithSQL("SELECT distinct(api_Type) FROM [tblAPI] ", False, "ADMIN", True)
|
||||
'cboType.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
'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("")
|
||||
|
||||
|
||||
cboAPIArt.Items.Clear()
|
||||
@@ -73,18 +77,10 @@ Public Class usrCntlAPI
|
||||
DateTimePicker1.Value = MONAT
|
||||
DateTimePicker2.Value = MONAT.AddMonths(1).AddDays(-1)
|
||||
Case "Jahr"
|
||||
' If cbxGeschaftsjahr.Checked Then
|
||||
'DateTimePicker1.Value = JAHR.AddMonths(1)
|
||||
' DateTimePicker2.Value = JAHR.AddYears(1).AddMonths(1).AddDays(-1)
|
||||
' Else
|
||||
|
||||
DateTimePicker1.Value = JAHR
|
||||
DateTimePicker2.Value = JAHR.AddYears(1).AddDays(-1)
|
||||
'End If
|
||||
Case "Tag"
|
||||
' If cbxGeschaftsjahr.Checked Then
|
||||
'DateTimePicker1.Value = JAHR.AddMonths(1)
|
||||
' DateTimePicker2.Value = JAHR.AddYears(1).AddMonths(1).AddDays(-1)
|
||||
' Else
|
||||
DateTimePicker1.Value = srcTAG
|
||||
DateTimePicker2.Value = srcTAG
|
||||
If srcTAG = Now.ToShortDateString Then
|
||||
@@ -136,12 +132,12 @@ Public Class usrCntlAPI
|
||||
|
||||
Dim sqlstr As String = ""
|
||||
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 "
|
||||
|
||||
With DataGridView
|
||||
' .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()
|
||||
|
||||
If .RowCount = 0 Then Me.Cursor = Cursors.Default : Exit Sub
|
||||
@@ -152,18 +148,9 @@ Public Class usrCntlAPI
|
||||
|
||||
.Columns("api_id").Visible = False
|
||||
|
||||
'.Columns("RechnungsNr").Width = 70
|
||||
'.Columns("RechnungsNr").HeaderText = "Rechnugs-Nr"
|
||||
'.Columns("RechnungsNr").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter
|
||||
'.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"
|
||||
For Each cc As DataGridViewColumn In .Columns
|
||||
cc.HeaderText = cc.Name.Replace("api_", "")
|
||||
Next
|
||||
|
||||
'.Columns("FilialenNr").Width = 45
|
||||
'.Columns("FilialenNr").HeaderText = "Filiale"
|
||||
@@ -181,43 +168,13 @@ Public Class usrCntlAPI
|
||||
'.Columns("Abfertigungsdatum").HeaderCell.Style.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
|
||||
End With
|
||||
|
||||
Me.Cursor = Cursors.Default
|
||||
End Sub
|
||||
|
||||
Function getRechnungsAusgangWhere() As String
|
||||
Function getAPIDatumWhere() As String
|
||||
Dim sqlstr = ""
|
||||
If kdtxtKunde.Text <> "" And IsNumeric(kdtxtKunde.Text) Then sqlstr &= " AND [api_KundenNr] LIKE @Kunde "
|
||||
|
||||
@@ -274,7 +231,7 @@ Public Class usrCntlAPI
|
||||
Return sqlstr
|
||||
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)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kunde", kdtxtKunde.KdNr_value))
|
||||
|
||||
399
UID/usrCntlERS.Designer.vb
generated
399
UID/usrCntlERS.Designer.vb
generated
@@ -27,20 +27,11 @@ Partial Class usrCntlERS
|
||||
Me.pnlSearch = New System.Windows.Forms.Panel()
|
||||
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
|
||||
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()
|
||||
Me.txtUser = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
|
||||
Me.cboType = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
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.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.Button6 = 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.btnVonMonat = New System.Windows.Forms.Button()
|
||||
Me.txtAbfertDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label26 = New System.Windows.Forms.Label()
|
||||
Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker()
|
||||
Me.Label27 = 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.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.cboDatum = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.pnlAnzeige = New System.Windows.Forms.Panel()
|
||||
@@ -75,6 +61,7 @@ Partial Class usrCntlERS
|
||||
Me.Panel3 = New System.Windows.Forms.Panel()
|
||||
Me.Button10 = 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()
|
||||
Me.SplitContainer.Panel1.SuspendLayout()
|
||||
Me.SplitContainer.Panel2.SuspendLayout()
|
||||
@@ -130,21 +117,13 @@ Partial Class usrCntlERS
|
||||
'
|
||||
'SplitContainer1.Panel1
|
||||
'
|
||||
Me.SplitContainer1.Panel1.Controls.Add(Me.cbxTestSys)
|
||||
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)
|
||||
Me.SplitContainer1.Panel1.Controls.Add(Me.txtUser)
|
||||
Me.SplitContainer1.Panel1.Controls.Add(Me.cboType)
|
||||
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.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.Button6)
|
||||
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.btnVonMonat)
|
||||
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.Label27)
|
||||
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.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.cboDatum)
|
||||
Me.SplitContainer1.Panel2Collapsed = True
|
||||
@@ -177,93 +151,39 @@ Partial Class usrCntlERS
|
||||
'Label9
|
||||
'
|
||||
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.Size = New System.Drawing.Size(74, 13)
|
||||
Me.Label9.Size = New System.Drawing.Size(32, 13)
|
||||
Me.Label9.TabIndex = 47
|
||||
Me.Label9.Text = "Kunde (KdNr):"
|
||||
Me.Label9.Text = "User:"
|
||||
'
|
||||
'kdtxtKunde
|
||||
'txtUser
|
||||
'
|
||||
Me.kdtxtKunde._AlleFirmenCLUSTER = False
|
||||
Me.kdtxtKunde._AllowSetValue = True
|
||||
Me.kdtxtKunde._autoSizeGross = False
|
||||
Me.kdtxtKunde._display_Name1 = False
|
||||
Me.kdtxtKunde._displayAVISO_Email = False
|
||||
Me.kdtxtKunde._displayFullName = False
|
||||
Me.kdtxtKunde._displayWoelflKd = False
|
||||
Me.kdtxtKunde._hideIfListEmpty = True
|
||||
Me.kdtxtKunde._loadKdData = False
|
||||
Me.kdtxtKunde._UseFIRMA = ""
|
||||
Me.kdtxtKunde._ValueKdAndName = True
|
||||
Me.kdtxtKunde.dgvpos = "LEFT"
|
||||
Me.kdtxtKunde.KdName = ""
|
||||
Me.kdtxtKunde.KdNr = "-1"
|
||||
Me.kdtxtKunde.kdNrField = Nothing
|
||||
Me.kdtxtKunde.KdNrNullInt = Nothing
|
||||
Me.kdtxtKunde.Location = New System.Drawing.Point(94, 89)
|
||||
Me.kdtxtKunde.Name = "kdtxtKunde"
|
||||
Me.kdtxtKunde.nurAktive = False
|
||||
Me.kdtxtKunde.searchActive = True
|
||||
Me.kdtxtKunde.Size = New System.Drawing.Size(214, 20)
|
||||
Me.kdtxtKunde.TabIndex = 48
|
||||
Me.kdtxtKunde.TIMER_SEARCH = True
|
||||
Me.kdtxtKunde.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"
|
||||
Me.txtUser._AlleFirmenCLUSTER = False
|
||||
Me.txtUser._AllowSetValue = True
|
||||
Me.txtUser._autoSizeGross = False
|
||||
Me.txtUser._display_Name1 = False
|
||||
Me.txtUser._displayAVISO_Email = False
|
||||
Me.txtUser._displayFullName = False
|
||||
Me.txtUser._displayWoelflKd = False
|
||||
Me.txtUser._hideIfListEmpty = True
|
||||
Me.txtUser._loadKdData = False
|
||||
Me.txtUser._searchName1 = True
|
||||
Me.txtUser._UseFIRMA = ""
|
||||
Me.txtUser._ValueKdAndName = True
|
||||
Me.txtUser.dgvpos = "LEFT"
|
||||
Me.txtUser.KdName = ""
|
||||
Me.txtUser.KdNr = "-1"
|
||||
Me.txtUser.kdNrField = Nothing
|
||||
Me.txtUser.KdNrNullInt = Nothing
|
||||
Me.txtUser.Location = New System.Drawing.Point(368, 58)
|
||||
Me.txtUser.Name = "txtUser"
|
||||
Me.txtUser.nurAktive = False
|
||||
Me.txtUser.searchActive = True
|
||||
Me.txtUser.Size = New System.Drawing.Size(128, 20)
|
||||
Me.txtUser.TabIndex = 48
|
||||
Me.txtUser.TIMER_SEARCH = True
|
||||
Me.txtUser.usrcntl = Nothing
|
||||
'
|
||||
'cboType
|
||||
'
|
||||
@@ -273,7 +193,7 @@ Partial Class usrCntlERS
|
||||
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(451, 30)
|
||||
Me.cboType.Name = "cboType"
|
||||
Me.cboType.Size = New System.Drawing.Size(105, 22)
|
||||
Me.cboType.TabIndex = 42
|
||||
@@ -282,24 +202,24 @@ Partial Class usrCntlERS
|
||||
'
|
||||
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(448, 12)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(35, 13)
|
||||
Me.Label6.TabIndex = 41
|
||||
Me.Label6.Text = "Type"
|
||||
'
|
||||
'cboInOut
|
||||
'cboProgram
|
||||
'
|
||||
Me.cboInOut._allowedValuesFreiText = Nothing
|
||||
Me.cboInOut._allowFreiText = False
|
||||
Me.cboInOut._value = ""
|
||||
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.Name = "cboInOut"
|
||||
Me.cboInOut.Size = New System.Drawing.Size(80, 22)
|
||||
Me.cboInOut.TabIndex = 40
|
||||
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(333, 30)
|
||||
Me.cboProgram.Name = "cboProgram"
|
||||
Me.cboProgram.Size = New System.Drawing.Size(99, 22)
|
||||
Me.cboProgram.TabIndex = 40
|
||||
'
|
||||
'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.Location = New System.Drawing.Point(330, 12)
|
||||
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.Text = "IN/OUT"
|
||||
'
|
||||
'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
|
||||
Me.Label5.Text = "Program"
|
||||
'
|
||||
'Button7
|
||||
'
|
||||
@@ -445,10 +292,12 @@ Partial Class usrCntlERS
|
||||
Me.txtAbfertDat._DateTimeOnly = False
|
||||
Me.txtAbfertDat._numbersOnly = False
|
||||
Me.txtAbfertDat._numbersOnlyKommastellen = ""
|
||||
Me.txtAbfertDat._numbersOnlyTrennzeichen = True
|
||||
Me.txtAbfertDat._Prozent = False
|
||||
Me.txtAbfertDat._ShortDateNew = False
|
||||
Me.txtAbfertDat._ShortDateOnly = True
|
||||
Me.txtAbfertDat._TimeOnly = False
|
||||
Me.txtAbfertDat._TimeOnly_Seconds = False
|
||||
Me.txtAbfertDat._value = ""
|
||||
Me.txtAbfertDat._Waehrung = False
|
||||
Me.txtAbfertDat._WaehrungZeichen = True
|
||||
@@ -565,10 +414,12 @@ Partial Class usrCntlERS
|
||||
Me.txtAbfertDatBis._DateTimeOnly = False
|
||||
Me.txtAbfertDatBis._numbersOnly = False
|
||||
Me.txtAbfertDatBis._numbersOnlyKommastellen = ""
|
||||
Me.txtAbfertDatBis._numbersOnlyTrennzeichen = True
|
||||
Me.txtAbfertDatBis._Prozent = False
|
||||
Me.txtAbfertDatBis._ShortDateNew = False
|
||||
Me.txtAbfertDatBis._ShortDateOnly = True
|
||||
Me.txtAbfertDatBis._TimeOnly = False
|
||||
Me.txtAbfertDatBis._TimeOnly_Seconds = False
|
||||
Me.txtAbfertDatBis._value = ""
|
||||
Me.txtAbfertDatBis._Waehrung = False
|
||||
Me.txtAbfertDatBis._WaehrungZeichen = True
|
||||
@@ -583,15 +434,6 @@ Partial Class usrCntlERS
|
||||
Me.txtAbfertDatBis.Size = New System.Drawing.Size(63, 20)
|
||||
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
|
||||
'
|
||||
Me.DateTimePicker2.CustomFormat = "''"
|
||||
@@ -603,15 +445,6 @@ Partial Class usrCntlERS
|
||||
Me.DateTimePicker2.Size = New System.Drawing.Size(92, 20)
|
||||
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
|
||||
'
|
||||
Me.Label13.AutoSize = True
|
||||
@@ -621,83 +454,28 @@ Partial Class usrCntlERS
|
||||
Me.Label13.TabIndex = 13
|
||||
Me.Label13.Text = "von:"
|
||||
'
|
||||
'cboFiliale
|
||||
'cboFirma
|
||||
'
|
||||
Me.cboFiliale._allowedValuesFreiText = Nothing
|
||||
Me.cboFiliale._allowFreiText = False
|
||||
Me.cboFiliale._value = ""
|
||||
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, 84)
|
||||
Me.cboFiliale.Name = "cboFiliale"
|
||||
Me.cboFiliale.Size = New System.Drawing.Size(104, 22)
|
||||
Me.cboFiliale.TabIndex = 20
|
||||
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(575, 26)
|
||||
Me.cboFirma.Name = "cboFirma"
|
||||
Me.cboFirma.Size = New System.Drawing.Size(104, 22)
|
||||
Me.cboFirma.TabIndex = 20
|
||||
'
|
||||
'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, 66)
|
||||
Me.Label1.Location = New System.Drawing.Point(572, 8)
|
||||
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.Text = "Filiale"
|
||||
'
|
||||
'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
|
||||
Me.Label1.Text = "Firma"
|
||||
'
|
||||
'DateTimePicker1
|
||||
'
|
||||
@@ -793,10 +571,12 @@ Partial Class usrCntlERS
|
||||
Me.txtMaxSrch._DateTimeOnly = False
|
||||
Me.txtMaxSrch._numbersOnly = True
|
||||
Me.txtMaxSrch._numbersOnlyKommastellen = ""
|
||||
Me.txtMaxSrch._numbersOnlyTrennzeichen = True
|
||||
Me.txtMaxSrch._Prozent = False
|
||||
Me.txtMaxSrch._ShortDateNew = False
|
||||
Me.txtMaxSrch._ShortDateOnly = False
|
||||
Me.txtMaxSrch._TimeOnly = False
|
||||
Me.txtMaxSrch._TimeOnly_Seconds = False
|
||||
Me.txtMaxSrch._value = ""
|
||||
Me.txtMaxSrch._Waehrung = False
|
||||
Me.txtMaxSrch._WaehrungZeichen = True
|
||||
@@ -853,6 +633,20 @@ Partial Class usrCntlERS
|
||||
Me.Button11.TabIndex = 4
|
||||
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
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
@@ -881,10 +675,6 @@ Partial Class usrCntlERS
|
||||
Friend WithEvents SplitContainer As SplitContainer
|
||||
Friend WithEvents pnlSearch As Panel
|
||||
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 Button6 As Button
|
||||
Friend WithEvents Button5 As Button
|
||||
@@ -898,15 +688,10 @@ Partial Class usrCntlERS
|
||||
Friend WithEvents btnBisMonat As Button
|
||||
Friend WithEvents btnVonMonat As Button
|
||||
Friend WithEvents txtAbfertDatBis As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label26 As Label
|
||||
Friend WithEvents DateTimePicker2 As DateTimePicker
|
||||
Friend WithEvents Label27 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 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 cboDatum As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents pnlAnzeige As Panel
|
||||
@@ -918,16 +703,12 @@ Partial Class usrCntlERS
|
||||
Friend WithEvents Panel3 As Panel
|
||||
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
|
||||
Friend WithEvents cboType As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
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 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 cbxTestSys As CheckBox
|
||||
End Class
|
||||
|
||||
@@ -1,4 +1,11 @@
|
||||
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
|
||||
|
||||
@@ -14,44 +21,22 @@ Public Class usrCntlERS
|
||||
btnMonat.Text = MONAT.ToString("MMMM")
|
||||
btnJahr.Text = JAHR.Year
|
||||
|
||||
txtUser.initKdBox(Me.FindForm) ' initKdAbsender()
|
||||
|
||||
kdtxtKunde.initKdBox(Me.FindForm) ' initKdAbsender()
|
||||
|
||||
|
||||
cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
|
||||
|
||||
cboFirma.fillWithSQL("SELECT [Firma_Bez] FROM [tblFirma] ", False, "FMZOLL", True)
|
||||
|
||||
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.changeItem("RDat")
|
||||
|
||||
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("")
|
||||
cboDatum.changeItem("EDat")
|
||||
|
||||
cboProgram.Items.Clear()
|
||||
cboProgram.fillWithSQL("SELECT [prog_id],[prog_codename] from [tblProgramme]", False, "ADMIN", True)
|
||||
cboProgram.changeItem("")
|
||||
|
||||
cboType.Items.Clear()
|
||||
cboType.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
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.fillWithSQL("SELECT distinct(ers_Type) FROM [tblERS] ", False, "ADMIN", True)
|
||||
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
|
||||
|
||||
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 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]
|
||||
FROM [tblAPI] WHERE 1=1 "
|
||||
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 [tblERS] WHERE 1=1 "
|
||||
|
||||
With DataGridView
|
||||
' .DataSource = myTable
|
||||
.SET_SQL(sqlstr & getRechnungsAusgangWhere() & " ORDER BY Rechnungsdatum, RK_ID", "FMZOLL", getSpedbuchList)
|
||||
.SET_SQL(sqlstr & getErrordatumWhere() & " ORDER BY ers_datetime", "ADMIN", getErrorList)
|
||||
.LOAD()
|
||||
|
||||
If .RowCount = 0 Then Me.Cursor = Cursors.Default : Exit Sub
|
||||
@@ -150,7 +135,12 @@ Public Class usrCntlERS
|
||||
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
|
||||
.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").HeaderText = "Rechnugs-Nr"
|
||||
@@ -217,85 +207,67 @@ Public Class usrCntlERS
|
||||
Me.Cursor = Cursors.Default
|
||||
End Sub
|
||||
|
||||
Function getRechnungsAusgangWhere() As String
|
||||
Function getErrordatumWhere() As String
|
||||
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 cboDatum._value = "ADat" Then
|
||||
If txtAbfertDat.Text <> "" Then
|
||||
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) "
|
||||
If txtAbfertDat.Text <> "" Then
|
||||
If txtAbfertDatBis.Text <> "" Then
|
||||
sqlstr &= " AND ([ers_datetime] BETWEEN @Datum_von AND @Datum_bis ) "
|
||||
Else
|
||||
sqlstr &= " AND [api_AbfertigungsNr] LIKE @AbfertigungsNr "
|
||||
sqlstr &= " AND ([ers_datetime] BETWEEN @Datum_von AND @Datum_von ) "
|
||||
End If
|
||||
End If
|
||||
|
||||
If cboFiliale._value <> "" Then sqlstr &= " AND [api_FilialenNr] LIKE @FilialenNr "
|
||||
|
||||
If txtAPIUArt.Text <> "" Then sqlstr &= " AND [api_apiUArt] LIKE @UArt "
|
||||
|
||||
If cboAPIArt._value <> "" Then sqlstr &= " AND [api_apiArt] LIKE @APIArt "
|
||||
If cboType._value <> "" Then sqlstr &= " AND [api_Type] LIKE @APIType "
|
||||
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 "
|
||||
|
||||
If cboFirma._value <> "" Then sqlstr &= " AND [ers_Firma] LIKE @ersFirma "
|
||||
If cboType._value <> "" Then sqlstr &= " AND [ers_Type] LIKE @ersType "
|
||||
If cboProgram._value <> "" Then sqlstr &= " AND [ers_progId] = @ersprogId "
|
||||
If cbxTestSys.CheckState <> CheckState.Indeterminate Then
|
||||
sqlstr &= " AND [ers_Testsystem] = @ersTestsystem "
|
||||
End If
|
||||
|
||||
|
||||
Return sqlstr
|
||||
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)
|
||||
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_bis", txtAbfertDatBis.Text & " 23:59:59"))
|
||||
If txtAbfertigungsnummerBis.Text <> "" Then
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", txtAbfertigungsnummer.Text.Replace("*", "")))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr_bis", txtAbfertigungsnummerBis.Text.Replace("*", "")))
|
||||
Else
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", txtAbfertigungsnummer.Text.Replace("*", "%")))
|
||||
End If
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ersFirma", cboFirma._value))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ersType", cboType._value))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ersprogId", cboProgram._value))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ersTestsystem", cbxTestSys.Checked))
|
||||
|
||||
|
||||
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
|
||||
|
||||
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
|
||||
|
||||
Reference in New Issue
Block a user