shu/DPM_PADM
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Update 2024-01-10

Browse Source
This commit is contained in:
Stefan Hutter
2024-01-10 09:40:00 +01:00
parent 6164ec3d16
commit 2d7f517e98
148 changed files with 2871 additions and 940 deletions
Download Patch File Download Diff File Expand all files Collapse all files

151
DPM2016/Diverses/frmProgrammeinstellungen.Designer.vb generated
View File

@@ -28,6 +28,10 @@ Partial Class frmProgrammeinstellungen
Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.Tarif = New System.Windows.Forms.TabPage()
Me.ClsStammdaten_flat1 = New DPM2016.clsStammdaten_flat()
Me.ProduktZusatz = New System.Windows.Forms.TabPage()
Me.ClsStammdaten_flat4 = New DPM2016.clsStammdaten_flat()
Me.ProduktZusaatzDetails = New System.Windows.Forms.TabPage()
Me.ClsStammdaten_flat5 = New DPM2016.clsStammdaten_flat()
Me.Konto = New System.Windows.Forms.TabPage()
Me.ClsStammdaten_flat3 = New DPM2016.clsStammdaten_flat()
Me.MailTexte = New System.Windows.Forms.TabPage()
@@ -37,19 +41,18 @@ Partial Class frmProgrammeinstellungen
Me.Properties_DMS = New PropertyGridEx.PropertyGridEx()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.ProduktZusatz = New System.Windows.Forms.TabPage()
Me.ProduktZusaatzDetails = New System.Windows.Forms.TabPage()
Me.ClsStammdaten_flat4 = New DPM2016.clsStammdaten_flat()
Me.ClsStammdaten_flat5 = New DPM2016.clsStammdaten_flat()
Me.Produkt = New System.Windows.Forms.TabPage()
Me.ClsStammdaten_flat6 = New DPM2016.clsStammdaten_flat()
Me.TabControl1.SuspendLayout()
Me.Tarif.SuspendLayout()
Me.ProduktZusatz.SuspendLayout()
Me.ProduktZusaatzDetails.SuspendLayout()
Me.Konto.SuspendLayout()
Me.MailTexte.SuspendLayout()
Me.AllgEinstellungen.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.ToolStrip1.SuspendLayout()
Me.ProduktZusatz.SuspendLayout()
Me.ProduktZusaatzDetails.SuspendLayout()
Me.Produkt.SuspendLayout()
Me.SuspendLayout()
'
'Properties
@@ -66,7 +69,7 @@ Partial Class frmProgrammeinstellungen
Me.Properties.DocCommentDescription.ForeColor = System.Drawing.Color.WhiteSmoke
Me.Properties.DocCommentDescription.Location = New System.Drawing.Point(3, 18)
Me.Properties.DocCommentDescription.Name = ""
Me.Properties.DocCommentDescription.Size = New System.Drawing.Size(892, 37)
Me.Properties.DocCommentDescription.Size = New System.Drawing.Size(1160, 37)
Me.Properties.DocCommentDescription.TabIndex = 1
Me.Properties.DocCommentImage = CType(resources.GetObject("Properties.DocCommentImage"), System.Drawing.Image)
'
@@ -104,7 +107,7 @@ Partial Class frmProgrammeinstellungen
Me.Properties.ToolStrip.Location = New System.Drawing.Point(0, 1)
Me.Properties.ToolStrip.Name = ""
Me.Properties.ToolStrip.Padding = New System.Windows.Forms.Padding(2, 0, 1, 0)
Me.Properties.ToolStrip.Size = New System.Drawing.Size(898, 25)
Me.Properties.ToolStrip.Size = New System.Drawing.Size(1166, 25)
Me.Properties.ToolStrip.TabIndex = 1
Me.Properties.ToolStrip.TabStop = True
Me.Properties.ToolStrip.Text = "PropertyGridToolBar"
@@ -112,6 +115,7 @@ Partial Class frmProgrammeinstellungen
'TabControl1
'
Me.TabControl1.Controls.Add(Me.Tarif)
Me.TabControl1.Controls.Add(Me.Produkt)
Me.TabControl1.Controls.Add(Me.ProduktZusatz)
Me.TabControl1.Controls.Add(Me.ProduktZusaatzDetails)
Me.TabControl1.Controls.Add(Me.Konto)
@@ -138,8 +142,9 @@ Partial Class frmProgrammeinstellungen
'
'ClsStammdaten_flat1
'
Me.ClsStammdaten_flat1.Connectionstring = "data source=shu01\shu00;initial catalog=shub_padm;persist security info=false;workstati" &
"on id=;packet size=4096;user id=sa;password=*shu29"
Me.ClsStammdaten_flat1.AllowAddNew = True
Me.ClsStammdaten_flat1.Connectionstring = "data source=shu01\shu00;initial catalog=shub_padm;persist security info=false;wor" &
"kstation id=;packet size=4096;user id=sa;password=*shu29"
Me.ClsStammdaten_flat1.Dock = System.Windows.Forms.DockStyle.Fill
Me.ClsStammdaten_flat1.Location = New System.Drawing.Point(3, 3)
Me.ClsStammdaten_flat1.Name = "ClsStammdaten_flat1"
@@ -148,6 +153,52 @@ Partial Class frmProgrammeinstellungen
Me.ClsStammdaten_flat1.TabIndex = 0
Me.ClsStammdaten_flat1.Tablename = Nothing
'
'ProduktZusatz
'
Me.ProduktZusatz.Controls.Add(Me.ClsStammdaten_flat4)
Me.ProduktZusatz.Location = New System.Drawing.Point(4, 22)
Me.ProduktZusatz.Name = "ProduktZusatz"
Me.ProduktZusatz.Size = New System.Drawing.Size(1172, 565)
Me.ProduktZusatz.TabIndex = 5
Me.ProduktZusatz.Text = "Produkt Zusatz"
Me.ProduktZusatz.UseVisualStyleBackColor = True
'
'ClsStammdaten_flat4
'
Me.ClsStammdaten_flat4.AllowAddNew = True
Me.ClsStammdaten_flat4.Connectionstring = "data source=shu01\shu00;initial catalog=shub_padm;persist security info=false;wor" &
"kstation id=;packet size=4096;user id=sa;password=*shu29"
Me.ClsStammdaten_flat4.Dock = System.Windows.Forms.DockStyle.Fill
Me.ClsStammdaten_flat4.Location = New System.Drawing.Point(0, 0)
Me.ClsStammdaten_flat4.Name = "ClsStammdaten_flat4"
Me.ClsStammdaten_flat4.Size = New System.Drawing.Size(1172, 565)
Me.ClsStammdaten_flat4.SQL = ""
Me.ClsStammdaten_flat4.TabIndex = 1
Me.ClsStammdaten_flat4.Tablename = Nothing
'
'ProduktZusaatzDetails
'
Me.ProduktZusaatzDetails.Controls.Add(Me.ClsStammdaten_flat5)
Me.ProduktZusaatzDetails.Location = New System.Drawing.Point(4, 22)
Me.ProduktZusaatzDetails.Name = "ProduktZusaatzDetails"
Me.ProduktZusaatzDetails.Size = New System.Drawing.Size(1172, 565)
Me.ProduktZusaatzDetails.TabIndex = 6
Me.ProduktZusaatzDetails.Text = "Produkt Zusatz Details"
Me.ProduktZusaatzDetails.UseVisualStyleBackColor = True
'
'ClsStammdaten_flat5
'
Me.ClsStammdaten_flat5.AllowAddNew = True
Me.ClsStammdaten_flat5.Connectionstring = "data source=shu01\shu00;initial catalog=shub_padm;persist security info=false;wor" &
"kstation id=;packet size=4096;user id=sa;password=*shu29"
Me.ClsStammdaten_flat5.Dock = System.Windows.Forms.DockStyle.Fill
Me.ClsStammdaten_flat5.Location = New System.Drawing.Point(0, 0)
Me.ClsStammdaten_flat5.Name = "ClsStammdaten_flat5"
Me.ClsStammdaten_flat5.Size = New System.Drawing.Size(1172, 565)
Me.ClsStammdaten_flat5.SQL = ""
Me.ClsStammdaten_flat5.TabIndex = 1
Me.ClsStammdaten_flat5.Tablename = Nothing
'
'Konto
'
Me.Konto.Controls.Add(Me.ClsStammdaten_flat3)
@@ -160,8 +211,9 @@ Partial Class frmProgrammeinstellungen
'
'ClsStammdaten_flat3
'
Me.ClsStammdaten_flat3.Connectionstring = "data source=shu01\shu00;initial catalog=shub_padm;persist security info=false;workstati" &
"on id=;packet size=4096;user id=sa;password=*shu29"
Me.ClsStammdaten_flat3.AllowAddNew = True
Me.ClsStammdaten_flat3.Connectionstring = "data source=shu01\shu00;initial catalog=shub_padm;persist security info=false;wor" &
"kstation id=;packet size=4096;user id=sa;password=*shu29"
Me.ClsStammdaten_flat3.Dock = System.Windows.Forms.DockStyle.Fill
Me.ClsStammdaten_flat3.Location = New System.Drawing.Point(0, 0)
Me.ClsStammdaten_flat3.Name = "ClsStammdaten_flat3"
@@ -182,8 +234,9 @@ Partial Class frmProgrammeinstellungen
'
'ClsStammdaten_flat2
'
Me.ClsStammdaten_flat2.Connectionstring = "data source=shu01\shu00;initial catalog=shub_padm;persist security info=false;workstati" &
"on id=;packet size=4096;user id=sa;password=*shu29"
Me.ClsStammdaten_flat2.AllowAddNew = True
Me.ClsStammdaten_flat2.Connectionstring = "data source=shu01\shu00;initial catalog=shub_padm;persist security info=false;wor" &
"kstation id=;packet size=4096;user id=sa;password=*shu29"
Me.ClsStammdaten_flat2.Dock = System.Windows.Forms.DockStyle.Fill
Me.ClsStammdaten_flat2.Location = New System.Drawing.Point(0, 0)
Me.ClsStammdaten_flat2.Name = "ClsStammdaten_flat2"
@@ -227,7 +280,7 @@ Partial Class frmProgrammeinstellungen
Me.Properties_DMS.DocCommentDescription.ForeColor = System.Drawing.Color.WhiteSmoke
Me.Properties_DMS.DocCommentDescription.Location = New System.Drawing.Point(3, 18)
Me.Properties_DMS.DocCommentDescription.Name = ""
Me.Properties_DMS.DocCommentDescription.Size = New System.Drawing.Size(898, 37)
Me.Properties_DMS.DocCommentDescription.Size = New System.Drawing.Size(1166, 37)
Me.Properties_DMS.DocCommentDescription.TabIndex = 1
Me.Properties_DMS.DocCommentImage = CType(resources.GetObject("Properties_DMS.DocCommentImage"), System.Drawing.Image)
'
@@ -265,7 +318,7 @@ Partial Class frmProgrammeinstellungen
Me.Properties_DMS.ToolStrip.Location = New System.Drawing.Point(0, 1)
Me.Properties_DMS.ToolStrip.Name = ""
Me.Properties_DMS.ToolStrip.Padding = New System.Windows.Forms.Padding(2, 0, 1, 0)
Me.Properties_DMS.ToolStrip.Size = New System.Drawing.Size(904, 25)
Me.Properties_DMS.ToolStrip.Size = New System.Drawing.Size(1172, 25)
Me.Properties_DMS.ToolStrip.TabIndex = 1
Me.Properties_DMS.ToolStrip.TabStop = True
Me.Properties_DMS.ToolStrip.Text = "PropertyGridToolBar"
@@ -288,49 +341,28 @@ Partial Class frmProgrammeinstellungen
Me.ToolStripButton1.Size = New System.Drawing.Size(65, 22)
Me.ToolStripButton1.Text = "Schliessen"
'
'ProduktZusatz
'Produkt
'
Me.ProduktZusatz.Controls.Add(Me.ClsStammdaten_flat4)
Me.ProduktZusatz.Location = New System.Drawing.Point(4, 22)
Me.ProduktZusatz.Name = "ProduktZusatz"
Me.ProduktZusatz.Size = New System.Drawing.Size(1172, 565)
Me.ProduktZusatz.TabIndex = 5
Me.ProduktZusatz.Text = "Produkt Zusatz"
Me.ProduktZusatz.UseVisualStyleBackColor = True
Me.Produkt.Controls.Add(Me.ClsStammdaten_flat6)
Me.Produkt.Location = New System.Drawing.Point(4, 22)
Me.Produkt.Name = "Produkt"
Me.Produkt.Size = New System.Drawing.Size(1172, 565)
Me.Produkt.TabIndex = 7
Me.Produkt.Text = "Produkt"
Me.Produkt.UseVisualStyleBackColor = True
'
'ProduktZusaatzDetails
'ClsStammdaten_flat6
'
Me.ProduktZusaatzDetails.Controls.Add(Me.ClsStammdaten_flat5)
Me.ProduktZusaatzDetails.Location = New System.Drawing.Point(4, 22)
Me.ProduktZusaatzDetails.Name = "ProduktZusaatzDetails"
Me.ProduktZusaatzDetails.Size = New System.Drawing.Size(1172, 565)
Me.ProduktZusaatzDetails.TabIndex = 6
Me.ProduktZusaatzDetails.Text = "Produkt Zusatz Details"
Me.ProduktZusaatzDetails.UseVisualStyleBackColor = True
'
'ClsStammdaten_flat4
'
Me.ClsStammdaten_flat4.Connectionstring = "data source=shu01\shu00;initial catalog=shub_padm;persist security info=false;workstati" &
"on id=;packet size=4096;user id=sa;password=*shu29"
Me.ClsStammdaten_flat4.Dock = System.Windows.Forms.DockStyle.Fill
Me.ClsStammdaten_flat4.Location = New System.Drawing.Point(0, 0)
Me.ClsStammdaten_flat4.Name = "ClsStammdaten_flat4"
Me.ClsStammdaten_flat4.Size = New System.Drawing.Size(1172, 565)
Me.ClsStammdaten_flat4.SQL = ""
Me.ClsStammdaten_flat4.TabIndex = 1
Me.ClsStammdaten_flat4.Tablename = Nothing
'
'ClsStammdaten_flat5
'
Me.ClsStammdaten_flat5.Connectionstring = "data source=shu01\shu00;initial catalog=shub_padm;persist security info=false;workstati" &
"on id=;packet size=4096;user id=sa;password=*shu29"
Me.ClsStammdaten_flat5.Dock = System.Windows.Forms.DockStyle.Fill
Me.ClsStammdaten_flat5.Location = New System.Drawing.Point(0, 0)
Me.ClsStammdaten_flat5.Name = "ClsStammdaten_flat5"
Me.ClsStammdaten_flat5.Size = New System.Drawing.Size(1172, 565)
Me.ClsStammdaten_flat5.SQL = ""
Me.ClsStammdaten_flat5.TabIndex = 1
Me.ClsStammdaten_flat5.Tablename = Nothing
Me.ClsStammdaten_flat6.AllowAddNew = True
Me.ClsStammdaten_flat6.Connectionstring = "data source=shu01\shu00;initial catalog=shub_padm;persist security info=false;wor" &
"kstation id=;packet size=4096;user id=sa;password=*shu29"
Me.ClsStammdaten_flat6.Dock = System.Windows.Forms.DockStyle.Fill
Me.ClsStammdaten_flat6.Location = New System.Drawing.Point(0, 0)
Me.ClsStammdaten_flat6.Name = "ClsStammdaten_flat6"
Me.ClsStammdaten_flat6.Size = New System.Drawing.Size(1172, 565)
Me.ClsStammdaten_flat6.SQL = ""
Me.ClsStammdaten_flat6.TabIndex = 1
Me.ClsStammdaten_flat6.Tablename = Nothing
'
'frmProgrammeinstellungen
'
@@ -344,14 +376,15 @@ Partial Class frmProgrammeinstellungen
Me.Text = "Programmeinstellungen / Stammdaten"
Me.TabControl1.ResumeLayout(False)
Me.Tarif.ResumeLayout(False)
Me.ProduktZusatz.ResumeLayout(False)
Me.ProduktZusaatzDetails.ResumeLayout(False)
Me.Konto.ResumeLayout(False)
Me.MailTexte.ResumeLayout(False)
Me.AllgEinstellungen.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.ProduktZusatz.ResumeLayout(False)
Me.ProduktZusaatzDetails.ResumeLayout(False)
Me.Produkt.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -374,4 +407,6 @@ Partial Class frmProgrammeinstellungen
Friend WithEvents ProduktZusaatzDetails As TabPage
Friend WithEvents ClsStammdaten_flat4 As clsStammdaten_flat
Friend WithEvents ClsStammdaten_flat5 As clsStammdaten_flat
Friend WithEvents Produkt As TabPage
Friend WithEvents ClsStammdaten_flat6 As clsStammdaten_flat
End Class

18
DPM2016/Diverses/frmProgrammeinstellungen.resx
View File

@@ -452,15 +452,15 @@
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHpSURBVDhPrZPNSoJREIbNn2hREURtiuhPEVsLlYR4CaEg
ou505cKtG/EaxDtw5yWIa0VQEUQRFNyIfwvbulCcznM6fkTrBgbmm3nf9wwz89n+zUTEPhwOz3q93mO3
270wacvIUQMD1qR/rFAoOIvF4ns8HpdsNivBYPB+NBrdqtIRbmJnLpeTZDL5VSqV3uDA1dZsNs8h9/t9
mc1mkkgktIh69QYnTqVSstvtpNVqaRE6MXSbvdFoPCMAebPZyHw+t0RwYnLUxuOxxGIxgQMXAUe5XL72
er2vkUhEd7HdbmW1WgmvptNpHZNTrwoYsJVK5QouAqg4q9Xqg8fjCQAYDAb6NVrGiQ9kMGDhGK42Alet
VrsDEI1GZbFYyHK53K/Xa90BOWpgwBqOZUzbqYZ56/f7PYCn0+keAVzNZk+OGhiwhmPZUbvdvmNgtDmZ
TISXEaETYnLUwICF80NVxpH8JTMHXsWJ/4r8Pja72u0Tq2FQANkEQLfb/YETk6MGBlE4cBFwqMu65A7q
9bp0Oh1r2mpVD/hhO9yA+hawcOAiYFctnWQymc9wOGxN26yKabsOK6YGBiwcuAhgDp/PdxoKhV7y+XyA
w1I5yEwbd5GjBgYsHOWWoUTiWDnKhyPRP5OJyVEDA1blbLZvNs6PAhRFf7MAAAAASUVORK5CYII=
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHnSURBVDhPrZO7aoJBEIWNl5AiCYGQNAkhN0VMLSSRID5C
UBBRO60sbG3EZxDfwM5HEGtFUBFEERQsxAsWprVQnOy3WX9C6gwMzH/mnLPLzP62fwsRsQ+Hw7Ner/fY
7XYvDGwFGD04cA38E4VCwVksFt/j8bhks1kJBoP3o9HoVrWOSFM7c7mcJJPJr1Kp9IYGrY5ms3mOuN/v
y3w+l0QioU3UqTckdSqVkt1uJ61WS5twEyO32RuNxjMGiDebjSwWC8uEpAajNx6PJRaLCRq0GDjK5fK1
1+t9jUQi+hbb7VZWq5Vwajqd1jWYOlXgwK1UKldoMcDFWa1WHzweTwDCYDDQp3FlkvoghgMXjdHqoHDV
arU7CNFoVJbLJblfr9f6BmD04MA1GiuYtlMN89bv93sgT6fTPQbkbDbbg9GDA9dorDhqt9t3DIxrTiYT
4WRjomswenDgovmRquCR/BUzB04lqf+a/H5sdrXbJ1bDoCCyCYhut/uDpAajBwdTNGgxcKiXdck7qNfr
0ul0rGmrVT2Qh+3wBtS3wEWDFgO7utJJJpP5DIfD1rTNqpi267BienDgokGLAeHw+XynoVDoJZ/PB3hY
CkPMtEkXGD04cNGotAIngGOVOB8eif6ZTA1GDw5chdls3xRyjvBPq5uWAAAAAElFTkSuQmCC
</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">

9
DPM2016/Diverses/frmProgrammeinstellungen.vb
View File

@@ -28,9 +28,14 @@ Public Class frmProgrammeinstellungen
Me.ClsStammdaten_flat5.Tablename = "ProduktZusatzDetail"
Me.ClsStammdaten_flat5.ToolStripButton5.Visible = False
Me.ClsStammdaten_flat5.get_data()
Me.ClsStammdaten_flat6.ToolStripButton5.Visible = False
Me.ClsStammdaten_flat6.Tablename = "Produkt"
Me.ClsStammdaten_flat6.get_data()
Else
Me.TabControl1.TabPages(1).Visible = False
Me.TabControl1.TabPages(2).Visible = False
Me.TabControl1.TabPages.Remove(Me.ProduktZusatz)
Me.TabControl1.TabPages.Remove(Me.ProduktZusaatzDetails)
Me.TabControl1.TabPages.Remove(Me.Produkt)
End If
If My.Settings.SoftwareType = "PADM" Then Me.TabControl1.TabPages(0).Text = "Artikel"