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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2019-11-06 16:31:56 +01:00
parent e2c05a5ea3
commit d4dfcd1744
46 changed files with 3412 additions and 678 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
UID/ADMIN.vbproj
View File

@@ -11,7 +11,7 @@
<AssemblyName>ADMIN</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
<TargetFrameworkVersion>v4.7</TargetFrameworkVersion>
<IsWebBootstrapper>false</IsWebBootstrapper>
<TargetFrameworkProfile>
</TargetFrameworkProfile>
@@ -31,7 +31,7 @@
<BootstrapperEnabled>true</BootstrapperEnabled>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<PlatformTarget>x86</PlatformTarget>
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>

2
UID/App.config
View File

@@ -10,7 +10,7 @@
<add name="ADMIN.My.MySettings.connToAdminDEV" connectionString="Data Source=DEVELOPER\DEVSQL;Initial Catalog=ADMIN;Persist Security Info=True;User ID=sa;Password=BmWr501956" providerName="System.Data.SqlClient"/>
</connectionStrings>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1"/>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7"/>
</startup>
<userSettings>
<ADMIN.My.MySettings>

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

@@ -61,6 +61,9 @@ Partial Class frmMitarbDetails
Me.cboATLAS_SB = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.cboALIASDomain = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtALIASUser = New System.Windows.Forms.TextBox()
Me.Label52 = New System.Windows.Forms.Label()
Me.lkl = New System.Windows.Forms.LinkLabel()
Me.Label45 = New System.Windows.Forms.Label()
Me.MyListBox1 = New VERAG_PROG_ALLGEMEIN.MyListBox()
@@ -158,9 +161,6 @@ Partial Class frmMitarbDetails
Me.PictureBox6 = New System.Windows.Forms.PictureBox()
Me.cboAdminBer = New System.Windows.Forms.ComboBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.Label52 = New System.Windows.Forms.Label()
Me.txtALIASUser = New System.Windows.Forms.TextBox()
Me.cboALIASDomain = New VERAG_PROG_ALLGEMEIN.MyComboBox
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.TabControl2.SuspendLayout()
@@ -643,6 +643,37 @@ Partial Class frmMitarbDetails
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Firmendaten"
'
'cboALIASDomain
'
Me.cboALIASDomain._allowedValuesFreiText = Nothing
Me.cboALIASDomain._allowFreiText = False
Me.cboALIASDomain._value = ""
Me.cboALIASDomain.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboALIASDomain.FormattingEnabled = True
Me.cboALIASDomain.Items.AddRange(New Object() {"Suben", "Salzburg", "Waidhaus", "Nickelsdorf"})
Me.cboALIASDomain.Location = New System.Drawing.Point(409, 37)
Me.cboALIASDomain.Name = "cboALIASDomain"
Me.cboALIASDomain.Size = New System.Drawing.Size(116, 21)
Me.cboALIASDomain.TabIndex = 100
'
'txtALIASUser
'
Me.txtALIASUser.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtALIASUser.Location = New System.Drawing.Point(524, 37)
Me.txtALIASUser.Name = "txtALIASUser"
Me.txtALIASUser.Size = New System.Drawing.Size(179, 20)
Me.txtALIASUser.TabIndex = 99
'
'Label52
'
Me.Label52.AutoSize = True
Me.Label52.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label52.Location = New System.Drawing.Point(406, 21)
Me.Label52.Name = "Label52"
Me.Label52.Size = New System.Drawing.Size(167, 13)
Me.Label52.TabIndex = 98
Me.Label52.Text = "ALIAS-Name (Domain / AD-User):"
'
'lkl
'
Me.lkl.AutoSize = True
@@ -704,7 +735,6 @@ Partial Class frmMitarbDetails
Me.cboFirma.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboFirma.FormattingEnabled = True
Me.cboFirma.Items.AddRange(New Object() {"VERAG", "ATILLA", "IMEX", "BEIDE"})
Me.cboFirma.Location = New System.Drawing.Point(18, 76)
Me.cboFirma.Name = "cboFirma"
Me.cboFirma.Size = New System.Drawing.Size(177, 21)
@@ -1259,7 +1289,7 @@ Partial Class frmMitarbDetails
Me.TabPage3.Location = New System.Drawing.Point(4, 22)
Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage3.Size = New System.Drawing.Size(715, 679)
Me.TabPage3.Size = New System.Drawing.Size(715, 700)
Me.TabPage3.TabIndex = 1
Me.TabPage3.Text = "Programme"
Me.TabPage3.UseVisualStyleBackColor = True
@@ -1694,34 +1724,6 @@ Partial Class frmMitarbDetails
Me.Label7.TabIndex = 78
Me.Label7.Text = "Berechtigung:"
'
'Label52
'
Me.Label52.AutoSize = True
Me.Label52.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label52.Location = New System.Drawing.Point(406, 21)
Me.Label52.Name = "Label52"
Me.Label52.Size = New System.Drawing.Size(167, 13)
Me.Label52.TabIndex = 98
Me.Label52.Text = "ALIAS-Name (Domain / AD-User):"
'
'txtALIASUser
'
Me.txtALIASUser.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtALIASUser.Location = New System.Drawing.Point(524, 37)
Me.txtALIASUser.Name = "txtALIASUser"
Me.txtALIASUser.Size = New System.Drawing.Size(179, 20)
Me.txtALIASUser.TabIndex = 99
'
'cboALIASDomain
'
Me.cboALIASDomain.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboALIASDomain.FormattingEnabled = True
Me.cboALIASDomain.Items.AddRange(New Object() {"Suben", "Salzburg", "Waidhaus", "Nickelsdorf"})
Me.cboALIASDomain.Location = New System.Drawing.Point(409, 37)
Me.cboALIASDomain.Name = "cboALIASDomain"
Me.cboALIASDomain.Size = New System.Drawing.Size(116, 21)
Me.cboALIASDomain.TabIndex = 100
'
'frmMitarbDetails
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

39
UID/Mitarbeiter/frmMitarbDetails.vb
View File

@@ -52,6 +52,9 @@
cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG", "VERAG"))
cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "ATILLA"))
cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX"))
cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISPED"))
cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMBAR"))
cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FRONTOFFICE", "FRONTOFFICE"))
cboALIASDomain.Items.Clear()
cboALIASDomain.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
@@ -60,6 +63,17 @@
cboALIASDomain.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG-SBG", "VERAG-SBG"))
cboALIASDomain.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAGNEUHAUS", "VERAGNEUHAUS"))
cboALIASDomain.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG-NCTS (ATILLA)", "VERAG-NCTS"))
cboALIASDomain.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISU.AT"))
cboFirma.Items.Clear()
cboFirma.Items.Add("VERAG")
cboFirma.Items.Add("ATILLA")
cboFirma.Items.Add("IMEX")
cboFirma.Items.Add("UNISPED")
cboFirma.Items.Add("AMBAR")
cboFirma.Items.Add("FRONTOFFICE")
cboFirma.Items.Add("ALLE")
@@ -195,14 +209,12 @@
cboALIASDomain.changeItem(mitarbeiter.mit_AliasAD_Domain)
txtALIASUser.Text = mitarbeiter.mit_AliasAD_Username
If mitarbeiter.mit_firma = "VERAG" Then
cboFirma.SelectedIndex = 0
ElseIf mitarbeiter.mit_firma = "ATILLA" Then
cboFirma.SelectedIndex = 1
ElseIf mitarbeiter.mit_firma = "IMEX" Then
cboFirma.SelectedIndex = 2
ElseIf mitarbeiter.mit_firma = "ALL" Then
cboFirma.SelectedIndex = 3
If mitarbeiter.mit_firma = "ALL" Then
cboFirma.Text = "ALLE"
Else
cboFirma.Text = mitarbeiter.mit_firma
End If
cboFirmaFMZOLL.changeItem(If(mitarbeiter.mit_firmaFMZoll, ""))
@@ -493,15 +505,10 @@
cboKasse.changeItem(SQL.doSQL("UPDATE [Personal] SET Standard_RKSV_KasseId='" & cboKasse._value & "' WHERE ID='" & mitarbeiter.mit_FMZollPersID & "'", "FMZOLL"))
End If
If cboFirma.SelectedIndex = 0 Then
mitarbeiter.mit_firma = "VERAG"
ElseIf cboFirma.SelectedIndex = 1 Then
mitarbeiter.mit_firma = "ATILLA"
ElseIf cboFirma.SelectedIndex = 2 Then
mitarbeiter.mit_firma = "IMEX"
ElseIf cboFirma.SelectedIndex = 3 Then
If cboFirma.Text = "ALLE" Then
mitarbeiter.mit_firma = "ALL"
Else
mitarbeiter.mit_firma = cboFirma.Text
End If
If cbxEinsteigsDat.Checked Then mitarbeiter.mit_einstiegsdatum = datEinstiegsdatum.Text Else mitarbeiter.mit_einstiegsdatum = ""

137
UID/Mitarbeiter/usrCntlMitarbeiter.Designer.vb generated
View File

@@ -33,6 +33,12 @@ Partial Class usrCntlMitarbeiter
Me.dgvVERAG = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.dgvATILLA = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.dgvIMEX = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.TabPage4 = New System.Windows.Forms.TabPage()
Me.dgvUNISPED = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.TabPage5 = New System.Windows.Forms.TabPage()
Me.dgvAMBAR = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Panel1 = New System.Windows.Forms.Panel()
Me.cbx = New System.Windows.Forms.CheckBox()
Me.txtSuche = New System.Windows.Forms.TextBox()
@@ -40,18 +46,24 @@ Partial Class usrCntlMitarbeiter
Me.Button2 = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.dgvIMEX = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.TabPage6 = New System.Windows.Forms.TabPage()
Me.dgvFRONTOFFICE = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Panel2.SuspendLayout()
Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout()
CType(Me.dgvVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage2.SuspendLayout()
CType(Me.dgvATILLA, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.Panel3.SuspendLayout()
Me.TabPage3.SuspendLayout()
CType(Me.dgvIMEX, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage4.SuspendLayout()
CType(Me.dgvUNISPED, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage5.SuspendLayout()
CType(Me.dgvAMBAR, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.Panel3.SuspendLayout()
Me.TabPage6.SuspendLayout()
CType(Me.dgvFRONTOFFICE, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Button6
@@ -116,6 +128,9 @@ Partial Class usrCntlMitarbeiter
Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Controls.Add(Me.TabPage2)
Me.TabControl1.Controls.Add(Me.TabPage3)
Me.TabControl1.Controls.Add(Me.TabPage4)
Me.TabControl1.Controls.Add(Me.TabPage5)
Me.TabControl1.Controls.Add(Me.TabPage6)
Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.TabControl1.Location = New System.Drawing.Point(0, 0)
Me.TabControl1.Name = "TabControl1"
@@ -165,6 +180,69 @@ Partial Class usrCntlMitarbeiter
Me.dgvATILLA.Size = New System.Drawing.Size(875, 616)
Me.dgvATILLA.TabIndex = 25
'
'TabPage3
'
Me.TabPage3.Controls.Add(Me.dgvIMEX)
Me.TabPage3.Location = New System.Drawing.Point(4, 22)
Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage3.Size = New System.Drawing.Size(881, 622)
Me.TabPage3.TabIndex = 2
Me.TabPage3.Text = "IMEX"
Me.TabPage3.UseVisualStyleBackColor = True
'
'dgvIMEX
'
Me.dgvIMEX.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvIMEX.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvIMEX.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvIMEX.Location = New System.Drawing.Point(3, 3)
Me.dgvIMEX.Name = "dgvIMEX"
Me.dgvIMEX.Size = New System.Drawing.Size(875, 616)
Me.dgvIMEX.TabIndex = 25
'
'TabPage4
'
Me.TabPage4.Controls.Add(Me.dgvUNISPED)
Me.TabPage4.Location = New System.Drawing.Point(4, 22)
Me.TabPage4.Name = "TabPage4"
Me.TabPage4.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage4.Size = New System.Drawing.Size(881, 622)
Me.TabPage4.TabIndex = 3
Me.TabPage4.Text = "UNISPED"
Me.TabPage4.UseVisualStyleBackColor = True
'
'dgvUNISPED
'
Me.dgvUNISPED.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvUNISPED.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvUNISPED.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvUNISPED.Location = New System.Drawing.Point(3, 3)
Me.dgvUNISPED.Name = "dgvUNISPED"
Me.dgvUNISPED.Size = New System.Drawing.Size(875, 616)
Me.dgvUNISPED.TabIndex = 25
'
'TabPage5
'
Me.TabPage5.Controls.Add(Me.dgvAMBAR)
Me.TabPage5.Location = New System.Drawing.Point(4, 22)
Me.TabPage5.Name = "TabPage5"
Me.TabPage5.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage5.Size = New System.Drawing.Size(881, 622)
Me.TabPage5.TabIndex = 4
Me.TabPage5.Text = "AMBAR"
Me.TabPage5.UseVisualStyleBackColor = True
'
'dgvAMBAR
'
Me.dgvAMBAR.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvAMBAR.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvAMBAR.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvAMBAR.Location = New System.Drawing.Point(3, 3)
Me.dgvAMBAR.Name = "dgvAMBAR"
Me.dgvAMBAR.Size = New System.Drawing.Size(875, 616)
Me.dgvAMBAR.TabIndex = 25
'
'Panel1
'
Me.Panel1.Controls.Add(Me.cbx)
@@ -232,26 +310,26 @@ Partial Class usrCntlMitarbeiter
Me.Panel3.Size = New System.Drawing.Size(889, 648)
Me.Panel3.TabIndex = 27
'
'TabPage3
'TabPage6
'
Me.TabPage3.Controls.Add(Me.dgvIMEX)
Me.TabPage3.Location = New System.Drawing.Point(4, 22)
Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage3.Size = New System.Drawing.Size(881, 622)
Me.TabPage3.TabIndex = 2
Me.TabPage3.Text = "IMEX"
Me.TabPage3.UseVisualStyleBackColor = True
Me.TabPage6.Controls.Add(Me.dgvFRONTOFFICE)
Me.TabPage6.Location = New System.Drawing.Point(4, 22)
Me.TabPage6.Name = "TabPage6"
Me.TabPage6.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage6.Size = New System.Drawing.Size(881, 622)
Me.TabPage6.TabIndex = 5
Me.TabPage6.Text = "FRONT-OFFICE"
Me.TabPage6.UseVisualStyleBackColor = True
'
'dgvIMEX
'dgvFRONTOFFICE
'
Me.dgvIMEX.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvIMEX.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvIMEX.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvIMEX.Location = New System.Drawing.Point(3, 3)
Me.dgvIMEX.Name = "dgvIMEX"
Me.dgvIMEX.Size = New System.Drawing.Size(875, 616)
Me.dgvIMEX.TabIndex = 25
Me.dgvFRONTOFFICE.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvFRONTOFFICE.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvFRONTOFFICE.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvFRONTOFFICE.Location = New System.Drawing.Point(3, 3)
Me.dgvFRONTOFFICE.Name = "dgvFRONTOFFICE"
Me.dgvFRONTOFFICE.Size = New System.Drawing.Size(875, 616)
Me.dgvFRONTOFFICE.TabIndex = 26
'
'usrCntlMitarbeiter
'
@@ -269,11 +347,17 @@ Partial Class usrCntlMitarbeiter
CType(Me.dgvVERAG, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage2.ResumeLayout(False)
CType(Me.dgvATILLA, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage3.ResumeLayout(False)
CType(Me.dgvIMEX, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage4.ResumeLayout(False)
CType(Me.dgvUNISPED, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage5.ResumeLayout(False)
CType(Me.dgvAMBAR, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.Panel3.ResumeLayout(False)
Me.TabPage3.ResumeLayout(False)
CType(Me.dgvIMEX, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage6.ResumeLayout(False)
CType(Me.dgvFRONTOFFICE, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
@@ -296,5 +380,10 @@ Partial Class usrCntlMitarbeiter
Friend WithEvents cbx As System.Windows.Forms.CheckBox
Friend WithEvents TabPage3 As System.Windows.Forms.TabPage
Friend WithEvents dgvIMEX As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents TabPage4 As TabPage
Friend WithEvents TabPage5 As TabPage
Friend WithEvents dgvUNISPED As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents dgvAMBAR As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents TabPage6 As TabPage
Friend WithEvents dgvFRONTOFFICE As VERAG_PROG_ALLGEMEIN.MyDatagridview
End Class

239
UID/Mitarbeiter/usrCntlMitarbeiter.vb
View File

@@ -33,6 +33,12 @@ Public Class usrCntlMitarbeiter
showVERAGATILLA("ATILLA")
ElseIf TabControl1.SelectedIndex = 2 Then
showVERAGATILLA("IMEX")
ElseIf TabControl1.SelectedIndex = 3 Then
showVERAGATILLA("UNISPED")
ElseIf TabControl1.SelectedIndex = 4 Then
showVERAGATILLA("AMBAR")
ElseIf TabControl1.SelectedIndex = 5 Then
showVERAGATILLA("FRONTOFFICE")
End If
End Sub
@@ -64,7 +70,7 @@ Public Class usrCntlMitarbeiter
If dgvVERAG.RowCount = 0 Then
dgvVERAG.DataSource = Nothing
Else
sortVERAG()
sortDGV(dgvVERAG)
'Eintraege_festlegen()
'AL: Sortierung nach Ausfahrt (Zeit)
dgvVERAG.Sort(dgvVERAG.Columns(3), ListSortDirection.Ascending)
@@ -79,7 +85,7 @@ Public Class usrCntlMitarbeiter
If dgvATILLA.RowCount = 0 Then
dgvATILLA.DataSource = Nothing
Else
sortATILLA()
sortDGV(dgvATILLA)
'Eintraege_festlegen()
'AL: Sortierung nach Ausfahrt (Zeit)
dgvATILLA.Sort(dgvATILLA.Columns(3), ListSortDirection.Ascending)
@@ -94,111 +100,67 @@ Public Class usrCntlMitarbeiter
If dgvIMEX.RowCount = 0 Then
dgvIMEX.DataSource = Nothing
Else
sortIMEX()
sortDGV(dgvIMEX)
'Eintraege_festlegen()
'AL: Sortierung nach Ausfahrt (Zeit)
dgvIMEX.Sort(dgvIMEX.Columns(3), ListSortDirection.Ascending)
End If
ElseIf firma = "UNISPED" Then
' dgvATILLA.DataSource = UID.AnzeigeTabelleFirma(sql)
dgvUNISPED.SET_SQL(sql, "ADMIN")
dgvUNISPED.LOAD()
'Tabelle Kommt/Geht bereinigen
If dgvUNISPED.RowCount = 0 Then
dgvUNISPED.DataSource = Nothing
Else
sortDGV(dgvUNISPED)
'Eintraege_festlegen()
'AL: Sortierung nach Ausfahrt (Zeit)
dgvUNISPED.Sort(dgvUNISPED.Columns(3), ListSortDirection.Ascending)
End If
ElseIf firma = "AMBAR" Then
' dgvATILLA.DataSource = UID.AnzeigeTabelleFirma(sql)
dgvAMBAR.SET_SQL(sql, "ADMIN")
dgvAMBAR.LOAD()
'Tabelle Kommt/Geht bereinigen
If dgvAMBAR.RowCount = 0 Then
dgvAMBAR.DataSource = Nothing
Else
sortDGV(dgvAMBAR)
'Eintraege_festlegen()
'AL: Sortierung nach Ausfahrt (Zeit)
dgvAMBAR.Sort(dgvAMBAR.Columns(3), ListSortDirection.Ascending)
End If
ElseIf firma = "FRONTOFFICE" Then
' dgvATILLA.DataSource = UID.AnzeigeTabelleFirma(sql)
dgvFRONTOFFICE.SET_SQL(sql, "ADMIN")
dgvFRONTOFFICE.LOAD()
'Tabelle Kommt/Geht bereinigen
If dgvFRONTOFFICE.RowCount = 0 Then
dgvFRONTOFFICE.DataSource = Nothing
Else
sortDGV(dgvFRONTOFFICE)
'Eintraege_festlegen()
'AL: Sortierung nach Ausfahrt (Zeit)
dgvFRONTOFFICE.Sort(dgvFRONTOFFICE.Columns(3), ListSortDirection.Ascending)
End If
End If
End Sub
Private Sub sortVERAG()
With dgvVERAG
.RowTemplate.Height = 20
.RowTemplate.DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft
.AllowUserToAddRows = False
.AllowUserToDeleteRows = False
.AllowUserToOrderColumns = False
.AllowUserToResizeColumns = False
.AllowUserToResizeRows = False
.RowTemplate.ReadOnly = True
.RowHeadersVisible = False
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.AllowUserToOrderColumns = True
.Columns(0).Visible = False 'ID nicht anzeigen
.Columns(1).Width = 150
.Columns(1).HeaderText = "Username"
.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(2).Width = 100
.Columns(2).HeaderText = "Vorname"
.Columns(3).Width = 130
.Columns(3).HeaderText = "Nachname"
.Columns(4).Width = 85
.Columns(4).HeaderText = "Niederlassung"
.Columns(5).Width = 85
.Columns(5).HeaderText = "Abteilung"
.Columns(6).Width = 120
.Columns(6).HeaderText = "Email"
.Columns(7).Width = 120
.Columns(7).HeaderText = "TelefonNr."
.Columns(8).Width = 80
.Columns(8).HeaderText = "Gekündigt"
End With
End Sub
Private Sub sortATILLA()
With dgvATILLA
.RowTemplate.Height = 20
.RowTemplate.DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft
.AllowUserToAddRows = False
.AllowUserToDeleteRows = False
.AllowUserToOrderColumns = False
.AllowUserToResizeColumns = False
.AllowUserToResizeRows = False
.RowTemplate.ReadOnly = True
.RowHeadersVisible = False
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.AllowUserToOrderColumns = True
.Columns(0).Visible = False 'ID nicht anzeigen
.Columns(1).Width = 150
.Columns(1).HeaderText = "Username"
.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(2).Width = 100
.Columns(2).HeaderText = "Vorname"
.Columns(3).Width = 130
.Columns(3).HeaderText = "Nachname"
.Columns(4).Width = 85
.Columns(4).HeaderText = "Niederlassung"
.Columns(5).Width = 85
.Columns(5).HeaderText = "Abteilung"
.Columns(6).Width = 120
.Columns(6).HeaderText = "Email"
.Columns(7).Width = 120
.Columns(7).HeaderText = "TelefonNr."
.Columns(8).Width = 80
.Columns(8).HeaderText = "Gekündigt"
End With
End Sub
Private Sub sortIMEX()
With dgvIMEX
Private Sub sortDGV(dgv As DataGridView)
With dgv
.RowTemplate.Height = 20
.RowTemplate.DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft
.AllowUserToAddRows = False
@@ -248,6 +210,9 @@ Public Class usrCntlMitarbeiter
Case 0 : Firma = "VERAG"
Case 1 : Firma = "ATILLA"
Case 2 : Firma = "IMEX"
Case 3 : Firma = "UNISPED"
Case 4 : Firma = "AMBAR"
Case 5 : Firma = "FRONTOFFICE"
End Select
Dim frmMitarbDetails As New frmMitarbDetails(Firma)
frmMitarbDetails.Show()
@@ -285,6 +250,31 @@ Public Class usrCntlMitarbeiter
Tabelle_anzeigen()
Case vbNo
End Select
ElseIf TabControl1.SelectedIndex = 3 Then
Select Case MsgBox("Soll der Mitarbeiter '" & dgvUNISPED.CurrentRow.Cells(1).Value & "' wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?")
Case vbYes
UID.delData(Convert.ToInt32(dgvUNISPED.CurrentRow.Cells(0).Value))
Tabelle_anzeigen()
Case vbNo
End Select
ElseIf TabControl1.SelectedIndex = 4 Then
Select Case MsgBox("Soll der Mitarbeiter '" & dgvAMBAR.CurrentRow.Cells(1).Value & "' wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?")
Case vbYes
UID.delData(Convert.ToInt32(dgvAMBAR.CurrentRow.Cells(0).Value))
Tabelle_anzeigen()
Case vbNo
End Select
ElseIf TabControl1.SelectedIndex = 5 Then
Select Case MsgBox("Soll der Mitarbeiter '" & dgvFRONTOFFICE.CurrentRow.Cells(1).Value & "' wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?")
Case vbYes
UID.delData(Convert.ToInt32(dgvFRONTOFFICE.CurrentRow.Cells(0).Value))
Tabelle_anzeigen()
Case vbNo
End Select
End If
@@ -304,33 +294,13 @@ Public Class usrCntlMitarbeiter
End Sub
Private Sub dgvVERAG_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVERAG.CellDoubleClick
Private Sub dgvIMEX_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvIMEX.CellDoubleClick, dgvUNISPED.CellDoubleClick, dgvAMBAR.CellDoubleClick, dgvVERAG.CellDoubleClick, dgvATILLA.CellDoubleClick, dgvFRONTOFFICE.CellDoubleClick
Me.Cursor = Cursors.WaitCursor
Dim frmMitarbDetails As New frmMitarbDetails
frmMitarbDetails.mid = dgvVERAG.CurrentRow.Cells(0).Value
frmMitarbDetails.mid = sender.CurrentRow.Cells(0).Value
frmMitarbDetails.ShowDialog(Me)
dgvVERAG.RELOAD()
Me.Cursor = Cursors.Default
' AddHandler frmMitarbDetails.FormClosing, AddressOf handleClose
End Sub
Private Sub dgvATILLA_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvATILLA.CellDoubleClick
Me.Cursor = Cursors.WaitCursor
Dim frmMitarbDetails As New frmMitarbDetails
frmMitarbDetails.mid = dgvATILLA.CurrentRow.Cells(0).Value
frmMitarbDetails.ShowDialog(Me)
dgvATILLA.RELOAD()
Me.Cursor = Cursors.Default
' AddHandler frmMitarbDetails.FormClosing, AddressOf handleClose
End Sub
Private Sub dgvIMEX_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvIMEX.CellDoubleClick
Me.Cursor = Cursors.WaitCursor
Dim frmMitarbDetails As New frmMitarbDetails
frmMitarbDetails.mid = dgvIMEX.CurrentRow.Cells(0).Value
frmMitarbDetails.ShowDialog(Me)
dgvIMEX.RELOAD()
sender.RELOAD()
Me.Cursor = Cursors.Default
' AddHandler frmMitarbDetails.FormClosing, AddressOf handleClose
End Sub
@@ -341,25 +311,26 @@ Public Class usrCntlMitarbeiter
Tabelle_anzeigen()
End Sub
Private Sub dgvVERAG_CellContentClick_1(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVERAG.CellContentClick
End Sub
Private Sub txtSuche_KeyDown(sender As Object, e As KeyEventArgs) Handles txtSuche.KeyDown
Dim dgv As DataGridView = Nothing
Select Case TabControl1.SelectedIndex
Case 0 : dgv = dgvVERAG
Case 1 : dgv = dgvATILLA
Case 2 : dgv = dgvIMEX
Case 3 : dgv = dgvUNISPED
Case 4 : dgv = dgvAMBAR
Case 5 : dgv = dgvFRONTOFFICE
End Select
If e.KeyCode = Keys.Return Then
If TabControl1.SelectedIndex = 0 Then
If dgvVERAG.SelectedRows.Count > 0 Then
dgvVERAG_CellContentClick(dgvVERAG, New DataGridViewCellEventArgs(0, dgvVERAG.SelectedRows(0).Index))
End If
ElseIf TabControl1.SelectedIndex = 1 Then
If dgvATILLA.SelectedRows.Count > 0 Then
dgvATILLA_CellContentClick(dgvATILLA, New DataGridViewCellEventArgs(0, dgvATILLA.SelectedRows(0).Index))
End If
If dgv.SelectedRows.Count > 0 Then
dgvIMEX_CellContentClick(dgv, New DataGridViewCellEventArgs(0, dgv.SelectedRows(0).Index))
End If
ElseIf TabControl1.SelectedIndex = 1 Then
If dgvIMEX.SelectedRows.Count > 0 Then
dgvIMEX_CellContentClick(dgvIMEX, New DataGridViewCellEventArgs(0, dgvIMEX.SelectedRows(0).Index))
End If
End If
End Sub

11
UID/My Project/Resources.Designer.vb generated
View File

@@ -375,6 +375,15 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die ähnelt.
'''</summary>
Friend ReadOnly Property jjjiioioolokoik() As String
Get
Return ResourceManager.GetString("jjjiioioolokoik", resourceCulture)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@@ -635,7 +644,7 @@ Namespace My.Resources
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die 1.8.5 ähnelt.
''' Sucht eine lokalisierte Zeichenfolge, die 1.8.8 ähnelt.
'''</summary>
Friend ReadOnly Property Version() As String
Get

5
UID/My Project/Resources.resx
View File

@@ -188,7 +188,7 @@
<value>Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;</value>
</data>
<data name="Version" xml:space="preserve">
<value>1.8.5</value>
<value>1.8.8</value>
</data>
<data name="del" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -298,4 +298,7 @@
<data name="gear" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\gear.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="jjjiioioolokoik" xml:space="preserve">
<value />
</data>
</root>

428
UID/Programme/frmProgDetails.Designer.vb generated
View File

@@ -113,13 +113,33 @@ Partial Class frmProgDetails
Me.Button22 = New System.Windows.Forms.Button()
Me.Button23 = New System.Windows.Forms.Button()
Me.Label24 = New System.Windows.Forms.Label()
Me.txtInstallProdPfadNKD = New System.Windows.Forms.TextBox()
Me.txtInstallProdPfadUNI = New System.Windows.Forms.TextBox()
Me.Button24 = New System.Windows.Forms.Button()
Me.Button25 = New System.Windows.Forms.Button()
Me.Label25 = New System.Windows.Forms.Label()
Me.txtInstallProdPfadNEU = New System.Windows.Forms.TextBox()
Me.txtInstallProdPfadAMB = New System.Windows.Forms.TextBox()
Me.Button26 = New System.Windows.Forms.Button()
Me.cbxZip = New System.Windows.Forms.CheckBox()
Me.cbxStandorttxtErstellenAMB = New System.Windows.Forms.CheckBox()
Me.Button27 = New System.Windows.Forms.Button()
Me.Label26 = New System.Windows.Forms.Label()
Me.txtProdPfadAMB = New System.Windows.Forms.TextBox()
Me.Button28 = New System.Windows.Forms.Button()
Me.cbxStandorttxtErstellenUNI = New System.Windows.Forms.CheckBox()
Me.Button29 = New System.Windows.Forms.Button()
Me.Label27 = New System.Windows.Forms.Label()
Me.txtProdPfadUNI = New System.Windows.Forms.TextBox()
Me.Button30 = New System.Windows.Forms.Button()
Me.Button31 = New System.Windows.Forms.Button()
Me.txtInstallProdPfadNEU = New System.Windows.Forms.TextBox()
Me.Button32 = New System.Windows.Forms.Button()
Me.Button33 = New System.Windows.Forms.Button()
Me.txtInstallProdPfadNKD = New System.Windows.Forms.TextBox()
Me.Button34 = New System.Windows.Forms.Button()
Me.Label28 = New System.Windows.Forms.Label()
Me.Label29 = New System.Windows.Forms.Label()
Me.Button35 = New System.Windows.Forms.Button()
Me.cbxIncrementalCopy = New System.Windows.Forms.CheckBox()
CType(Me.picIcon, System.ComponentModel.ISupportInitialize).BeginInit()
Me.grpName.SuspendLayout()
Me.SuspendLayout()
@@ -137,7 +157,7 @@ Partial Class frmProgDetails
'btnProdCopy
'
Me.btnProdCopy.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnProdCopy.Location = New System.Drawing.Point(487, 188)
Me.btnProdCopy.Location = New System.Drawing.Point(509, 188)
Me.btnProdCopy.Name = "btnProdCopy"
Me.btnProdCopy.Size = New System.Drawing.Size(100, 24)
Me.btnProdCopy.TabIndex = 41
@@ -147,7 +167,7 @@ Partial Class frmProgDetails
'btnDevCopy
'
Me.btnDevCopy.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDevCopy.Location = New System.Drawing.Point(487, 161)
Me.btnDevCopy.Location = New System.Drawing.Point(509, 161)
Me.btnDevCopy.Name = "btnDevCopy"
Me.btnDevCopy.Size = New System.Drawing.Size(100, 24)
Me.btnDevCopy.TabIndex = 40
@@ -211,7 +231,7 @@ Partial Class frmProgDetails
'
'txtDevPfad
'
Me.txtDevPfad.Location = New System.Drawing.Point(110, 164)
Me.txtDevPfad.Location = New System.Drawing.Point(132, 164)
Me.txtDevPfad.Name = "txtDevPfad"
Me.txtDevPfad.Size = New System.Drawing.Size(289, 20)
Me.txtDevPfad.TabIndex = 44
@@ -236,7 +256,7 @@ Partial Class frmProgDetails
'
'txtProdPfad
'
Me.txtProdPfad.Location = New System.Drawing.Point(110, 190)
Me.txtProdPfad.Location = New System.Drawing.Point(132, 190)
Me.txtProdPfad.Name = "txtProdPfad"
Me.txtProdPfad.Size = New System.Drawing.Size(289, 20)
Me.txtProdPfad.TabIndex = 46
@@ -244,7 +264,7 @@ Partial Class frmProgDetails
'btnDevAkt
'
Me.btnDevAkt.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDevAkt.Location = New System.Drawing.Point(405, 162)
Me.btnDevAkt.Location = New System.Drawing.Point(427, 162)
Me.btnDevAkt.Name = "btnDevAkt"
Me.btnDevAkt.Size = New System.Drawing.Size(76, 24)
Me.btnDevAkt.TabIndex = 48
@@ -254,7 +274,7 @@ Partial Class frmProgDetails
'btnProdAkt
'
Me.btnProdAkt.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnProdAkt.Location = New System.Drawing.Point(405, 188)
Me.btnProdAkt.Location = New System.Drawing.Point(427, 188)
Me.btnProdAkt.Name = "btnProdAkt"
Me.btnProdAkt.Size = New System.Drawing.Size(76, 24)
Me.btnProdAkt.TabIndex = 49
@@ -264,7 +284,7 @@ Partial Class frmProgDetails
'btnSourceAkt
'
Me.btnSourceAkt.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSourceAkt.Location = New System.Drawing.Point(405, 125)
Me.btnSourceAkt.Location = New System.Drawing.Point(427, 125)
Me.btnSourceAkt.Name = "btnSourceAkt"
Me.btnSourceAkt.Size = New System.Drawing.Size(76, 24)
Me.btnSourceAkt.TabIndex = 53
@@ -282,7 +302,7 @@ Partial Class frmProgDetails
'
'txtSourcePfad
'
Me.txtSourcePfad.Location = New System.Drawing.Point(110, 127)
Me.txtSourcePfad.Location = New System.Drawing.Point(132, 127)
Me.txtSourcePfad.Name = "txtSourcePfad"
Me.txtSourcePfad.Size = New System.Drawing.Size(289, 20)
Me.txtSourcePfad.TabIndex = 51
@@ -301,7 +321,7 @@ Partial Class frmProgDetails
'
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(20, 407)
Me.Label7.Location = New System.Drawing.Point(20, 435)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(79, 13)
Me.Label7.TabIndex = 67
@@ -310,7 +330,7 @@ Partial Class frmProgDetails
'btnInstallSourceAkt
'
Me.btnInstallSourceAkt.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnInstallSourceAkt.Location = New System.Drawing.Point(405, 421)
Me.btnInstallSourceAkt.Location = New System.Drawing.Point(427, 449)
Me.btnInstallSourceAkt.Name = "btnInstallSourceAkt"
Me.btnInstallSourceAkt.Size = New System.Drawing.Size(76, 24)
Me.btnInstallSourceAkt.TabIndex = 66
@@ -320,7 +340,7 @@ Partial Class frmProgDetails
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(20, 426)
Me.Label8.Location = New System.Drawing.Point(20, 454)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(69, 13)
Me.Label8.TabIndex = 65
@@ -328,7 +348,7 @@ Partial Class frmProgDetails
'
'txtInstallSourcePfad
'
Me.txtInstallSourcePfad.Location = New System.Drawing.Point(110, 423)
Me.txtInstallSourcePfad.Location = New System.Drawing.Point(132, 451)
Me.txtInstallSourcePfad.Name = "txtInstallSourcePfad"
Me.txtInstallSourcePfad.Size = New System.Drawing.Size(289, 20)
Me.txtInstallSourcePfad.TabIndex = 64
@@ -336,7 +356,7 @@ Partial Class frmProgDetails
'btnInstallProdAkt
'
Me.btnInstallProdAkt.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnInstallProdAkt.Location = New System.Drawing.Point(405, 484)
Me.btnInstallProdAkt.Location = New System.Drawing.Point(427, 512)
Me.btnInstallProdAkt.Name = "btnInstallProdAkt"
Me.btnInstallProdAkt.Size = New System.Drawing.Size(76, 24)
Me.btnInstallProdAkt.TabIndex = 62
@@ -346,7 +366,7 @@ Partial Class frmProgDetails
'btnInstallDevAkt
'
Me.btnInstallDevAkt.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnInstallDevAkt.Location = New System.Drawing.Point(405, 458)
Me.btnInstallDevAkt.Location = New System.Drawing.Point(427, 486)
Me.btnInstallDevAkt.Name = "btnInstallDevAkt"
Me.btnInstallDevAkt.Size = New System.Drawing.Size(76, 24)
Me.btnInstallDevAkt.TabIndex = 61
@@ -356,7 +376,7 @@ Partial Class frmProgDetails
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Location = New System.Drawing.Point(20, 489)
Me.Label9.Location = New System.Drawing.Point(20, 517)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(80, 13)
Me.Label9.TabIndex = 60
@@ -364,7 +384,7 @@ Partial Class frmProgDetails
'
'txtInstallProdPfad
'
Me.txtInstallProdPfad.Location = New System.Drawing.Point(110, 486)
Me.txtInstallProdPfad.Location = New System.Drawing.Point(132, 514)
Me.txtInstallProdPfad.Name = "txtInstallProdPfad"
Me.txtInstallProdPfad.Size = New System.Drawing.Size(289, 20)
Me.txtInstallProdPfad.TabIndex = 59
@@ -372,7 +392,7 @@ Partial Class frmProgDetails
'Label11
'
Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(20, 463)
Me.Label11.Location = New System.Drawing.Point(20, 491)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(84, 13)
Me.Label11.TabIndex = 58
@@ -380,7 +400,7 @@ Partial Class frmProgDetails
'
'txtInstallDevPfad
'
Me.txtInstallDevPfad.Location = New System.Drawing.Point(110, 460)
Me.txtInstallDevPfad.Location = New System.Drawing.Point(132, 488)
Me.txtInstallDevPfad.Name = "txtInstallDevPfad"
Me.txtInstallDevPfad.Size = New System.Drawing.Size(289, 20)
Me.txtInstallDevPfad.TabIndex = 57
@@ -388,7 +408,7 @@ Partial Class frmProgDetails
'btnInstallProdCopy
'
Me.btnInstallProdCopy.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnInstallProdCopy.Location = New System.Drawing.Point(487, 484)
Me.btnInstallProdCopy.Location = New System.Drawing.Point(509, 512)
Me.btnInstallProdCopy.Name = "btnInstallProdCopy"
Me.btnInstallProdCopy.Size = New System.Drawing.Size(100, 24)
Me.btnInstallProdCopy.TabIndex = 56
@@ -398,7 +418,7 @@ Partial Class frmProgDetails
'btnInstallDevCopy
'
Me.btnInstallDevCopy.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnInstallDevCopy.Location = New System.Drawing.Point(487, 457)
Me.btnInstallDevCopy.Location = New System.Drawing.Point(509, 485)
Me.btnInstallDevCopy.Name = "btnInstallDevCopy"
Me.btnInstallDevCopy.Size = New System.Drawing.Size(100, 24)
Me.btnInstallDevCopy.TabIndex = 55
@@ -408,7 +428,7 @@ Partial Class frmProgDetails
'btnInsert
'
Me.btnInsert.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnInsert.Location = New System.Drawing.Point(510, 786)
Me.btnInsert.Location = New System.Drawing.Point(532, 854)
Me.btnInsert.Name = "btnInsert"
Me.btnInsert.Size = New System.Drawing.Size(77, 24)
Me.btnInsert.TabIndex = 68
@@ -419,7 +439,7 @@ Partial Class frmProgDetails
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.Location = New System.Drawing.Point(18, 712)
Me.Label12.Location = New System.Drawing.Point(20, 783)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(28, 13)
Me.Label12.TabIndex = 70
@@ -427,7 +447,7 @@ Partial Class frmProgDetails
'
'txtInfo
'
Me.txtInfo.Location = New System.Drawing.Point(110, 712)
Me.txtInfo.Location = New System.Drawing.Point(132, 780)
Me.txtInfo.Multiline = True
Me.txtInfo.Name = "txtInfo"
Me.txtInfo.Size = New System.Drawing.Size(477, 68)
@@ -436,7 +456,7 @@ Partial Class frmProgDetails
'btnAktInfo
'
Me.btnAktInfo.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAktInfo.Location = New System.Drawing.Point(110, 786)
Me.btnAktInfo.Location = New System.Drawing.Point(132, 854)
Me.btnAktInfo.Name = "btnAktInfo"
Me.btnAktInfo.Size = New System.Drawing.Size(76, 24)
Me.btnAktInfo.TabIndex = 72
@@ -491,7 +511,7 @@ Partial Class frmProgDetails
'Button1
'
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Location = New System.Drawing.Point(405, 213)
Me.Button1.Location = New System.Drawing.Point(427, 213)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(76, 24)
Me.Button1.TabIndex = 78
@@ -509,7 +529,7 @@ Partial Class frmProgDetails
'
'txtProdPfadAtilla
'
Me.txtProdPfadAtilla.Location = New System.Drawing.Point(110, 216)
Me.txtProdPfadAtilla.Location = New System.Drawing.Point(132, 216)
Me.txtProdPfadAtilla.Name = "txtProdPfadAtilla"
Me.txtProdPfadAtilla.Size = New System.Drawing.Size(289, 20)
Me.txtProdPfadAtilla.TabIndex = 76
@@ -517,7 +537,7 @@ Partial Class frmProgDetails
'Button2
'
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.Location = New System.Drawing.Point(487, 213)
Me.Button2.Location = New System.Drawing.Point(509, 213)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(100, 24)
Me.Button2.TabIndex = 75
@@ -527,7 +547,7 @@ Partial Class frmProgDetails
'Button3
'
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.Location = New System.Drawing.Point(405, 510)
Me.Button3.Location = New System.Drawing.Point(427, 538)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(76, 24)
Me.Button3.TabIndex = 82
@@ -537,7 +557,7 @@ Partial Class frmProgDetails
'Label15
'
Me.Label15.AutoSize = True
Me.Label15.Location = New System.Drawing.Point(20, 515)
Me.Label15.Location = New System.Drawing.Point(20, 543)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(80, 13)
Me.Label15.TabIndex = 81
@@ -545,7 +565,7 @@ Partial Class frmProgDetails
'
'txtInstallProdPfadAtilla
'
Me.txtInstallProdPfadAtilla.Location = New System.Drawing.Point(110, 512)
Me.txtInstallProdPfadAtilla.Location = New System.Drawing.Point(132, 540)
Me.txtInstallProdPfadAtilla.Name = "txtInstallProdPfadAtilla"
Me.txtInstallProdPfadAtilla.Size = New System.Drawing.Size(289, 20)
Me.txtInstallProdPfadAtilla.TabIndex = 80
@@ -553,7 +573,7 @@ Partial Class frmProgDetails
'Button4
'
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button4.Location = New System.Drawing.Point(487, 510)
Me.Button4.Location = New System.Drawing.Point(509, 538)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(100, 24)
Me.Button4.TabIndex = 79
@@ -565,7 +585,7 @@ Partial Class frmProgDetails
Me.cbxStandorttxtErstellen.AutoSize = True
Me.cbxStandorttxtErstellen.Checked = True
Me.cbxStandorttxtErstellen.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxStandorttxtErstellen.Location = New System.Drawing.Point(593, 219)
Me.cbxStandorttxtErstellen.Location = New System.Drawing.Point(615, 219)
Me.cbxStandorttxtErstellen.Name = "cbxStandorttxtErstellen"
Me.cbxStandorttxtErstellen.Size = New System.Drawing.Size(126, 17)
Me.cbxStandorttxtErstellen.TabIndex = 83
@@ -577,7 +597,7 @@ Partial Class frmProgDetails
Me.cbxStandorttxtErstellenImex.AutoSize = True
Me.cbxStandorttxtErstellenImex.Checked = True
Me.cbxStandorttxtErstellenImex.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxStandorttxtErstellenImex.Location = New System.Drawing.Point(593, 245)
Me.cbxStandorttxtErstellenImex.Location = New System.Drawing.Point(615, 245)
Me.cbxStandorttxtErstellenImex.Name = "cbxStandorttxtErstellenImex"
Me.cbxStandorttxtErstellenImex.Size = New System.Drawing.Size(126, 17)
Me.cbxStandorttxtErstellenImex.TabIndex = 88
@@ -587,7 +607,7 @@ Partial Class frmProgDetails
'Button5
'
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button5.Location = New System.Drawing.Point(405, 239)
Me.Button5.Location = New System.Drawing.Point(427, 239)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(76, 24)
Me.Button5.TabIndex = 87
@@ -605,7 +625,7 @@ Partial Class frmProgDetails
'
'txtProdPfadImex
'
Me.txtProdPfadImex.Location = New System.Drawing.Point(110, 242)
Me.txtProdPfadImex.Location = New System.Drawing.Point(132, 242)
Me.txtProdPfadImex.Name = "txtProdPfadImex"
Me.txtProdPfadImex.Size = New System.Drawing.Size(289, 20)
Me.txtProdPfadImex.TabIndex = 85
@@ -613,7 +633,7 @@ Partial Class frmProgDetails
'Button6
'
Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button6.Location = New System.Drawing.Point(487, 239)
Me.Button6.Location = New System.Drawing.Point(509, 239)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(100, 24)
Me.Button6.TabIndex = 84
@@ -623,7 +643,7 @@ Partial Class frmProgDetails
'Button7
'
Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button7.Location = New System.Drawing.Point(405, 536)
Me.Button7.Location = New System.Drawing.Point(427, 564)
Me.Button7.Name = "Button7"
Me.Button7.Size = New System.Drawing.Size(76, 24)
Me.Button7.TabIndex = 92
@@ -633,7 +653,7 @@ Partial Class frmProgDetails
'Label17
'
Me.Label17.AutoSize = True
Me.Label17.Location = New System.Drawing.Point(20, 541)
Me.Label17.Location = New System.Drawing.Point(20, 569)
Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(84, 13)
Me.Label17.TabIndex = 91
@@ -641,7 +661,7 @@ Partial Class frmProgDetails
'
'txtInstallProdPfadimex
'
Me.txtInstallProdPfadimex.Location = New System.Drawing.Point(110, 538)
Me.txtInstallProdPfadimex.Location = New System.Drawing.Point(132, 566)
Me.txtInstallProdPfadimex.Name = "txtInstallProdPfadimex"
Me.txtInstallProdPfadimex.Size = New System.Drawing.Size(289, 20)
Me.txtInstallProdPfadimex.TabIndex = 90
@@ -649,7 +669,7 @@ Partial Class frmProgDetails
'Button8
'
Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button8.Location = New System.Drawing.Point(487, 536)
Me.Button8.Location = New System.Drawing.Point(509, 564)
Me.Button8.Name = "Button8"
Me.Button8.Size = New System.Drawing.Size(100, 24)
Me.Button8.TabIndex = 89
@@ -659,7 +679,7 @@ Partial Class frmProgDetails
'Button9
'
Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button9.Location = New System.Drawing.Point(405, 562)
Me.Button9.Location = New System.Drawing.Point(427, 590)
Me.Button9.Name = "Button9"
Me.Button9.Size = New System.Drawing.Size(76, 24)
Me.Button9.TabIndex = 96
@@ -669,7 +689,7 @@ Partial Class frmProgDetails
'Label18
'
Me.Label18.AutoSize = True
Me.Label18.Location = New System.Drawing.Point(20, 567)
Me.Label18.Location = New System.Drawing.Point(20, 595)
Me.Label18.Name = "Label18"
Me.Label18.Size = New System.Drawing.Size(80, 13)
Me.Label18.TabIndex = 95
@@ -677,7 +697,7 @@ Partial Class frmProgDetails
'
'txtInstallProdPfadSBG
'
Me.txtInstallProdPfadSBG.Location = New System.Drawing.Point(110, 564)
Me.txtInstallProdPfadSBG.Location = New System.Drawing.Point(132, 592)
Me.txtInstallProdPfadSBG.Name = "txtInstallProdPfadSBG"
Me.txtInstallProdPfadSBG.Size = New System.Drawing.Size(289, 20)
Me.txtInstallProdPfadSBG.TabIndex = 94
@@ -685,7 +705,7 @@ Partial Class frmProgDetails
'Button10
'
Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button10.Location = New System.Drawing.Point(487, 562)
Me.Button10.Location = New System.Drawing.Point(509, 590)
Me.Button10.Name = "Button10"
Me.Button10.Size = New System.Drawing.Size(100, 24)
Me.Button10.TabIndex = 93
@@ -697,7 +717,7 @@ Partial Class frmProgDetails
Me.cbxStandorttxtErstellenSBG.AutoSize = True
Me.cbxStandorttxtErstellenSBG.Checked = True
Me.cbxStandorttxtErstellenSBG.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxStandorttxtErstellenSBG.Location = New System.Drawing.Point(593, 271)
Me.cbxStandorttxtErstellenSBG.Location = New System.Drawing.Point(615, 271)
Me.cbxStandorttxtErstellenSBG.Name = "cbxStandorttxtErstellenSBG"
Me.cbxStandorttxtErstellenSBG.Size = New System.Drawing.Size(126, 17)
Me.cbxStandorttxtErstellenSBG.TabIndex = 101
@@ -707,7 +727,7 @@ Partial Class frmProgDetails
'Button11
'
Me.Button11.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button11.Location = New System.Drawing.Point(405, 265)
Me.Button11.Location = New System.Drawing.Point(427, 265)
Me.Button11.Name = "Button11"
Me.Button11.Size = New System.Drawing.Size(76, 24)
Me.Button11.TabIndex = 100
@@ -725,7 +745,7 @@ Partial Class frmProgDetails
'
'txtProdPfadSBG
'
Me.txtProdPfadSBG.Location = New System.Drawing.Point(110, 268)
Me.txtProdPfadSBG.Location = New System.Drawing.Point(132, 268)
Me.txtProdPfadSBG.Name = "txtProdPfadSBG"
Me.txtProdPfadSBG.Size = New System.Drawing.Size(289, 20)
Me.txtProdPfadSBG.TabIndex = 98
@@ -733,7 +753,7 @@ Partial Class frmProgDetails
'Button12
'
Me.Button12.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button12.Location = New System.Drawing.Point(487, 265)
Me.Button12.Location = New System.Drawing.Point(509, 265)
Me.Button12.Name = "Button12"
Me.Button12.Size = New System.Drawing.Size(100, 24)
Me.Button12.TabIndex = 97
@@ -745,7 +765,7 @@ Partial Class frmProgDetails
Me.Button13.BackColor = System.Drawing.Color.SteelBlue
Me.Button13.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button13.ForeColor = System.Drawing.Color.White
Me.Button13.Location = New System.Drawing.Point(487, 125)
Me.Button13.Location = New System.Drawing.Point(509, 125)
Me.Button13.Name = "Button13"
Me.Button13.Size = New System.Drawing.Size(100, 24)
Me.Button13.TabIndex = 102
@@ -757,7 +777,7 @@ Partial Class frmProgDetails
Me.Button14.BackColor = System.Drawing.Color.SteelBlue
Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button14.ForeColor = System.Drawing.Color.White
Me.Button14.Location = New System.Drawing.Point(487, 421)
Me.Button14.Location = New System.Drawing.Point(509, 449)
Me.Button14.Name = "Button14"
Me.Button14.Size = New System.Drawing.Size(100, 24)
Me.Button14.TabIndex = 103
@@ -769,7 +789,7 @@ Partial Class frmProgDetails
Me.cbxStandorttxtErstellenWAI.AutoSize = True
Me.cbxStandorttxtErstellenWAI.Checked = True
Me.cbxStandorttxtErstellenWAI.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxStandorttxtErstellenWAI.Location = New System.Drawing.Point(593, 297)
Me.cbxStandorttxtErstellenWAI.Location = New System.Drawing.Point(615, 297)
Me.cbxStandorttxtErstellenWAI.Name = "cbxStandorttxtErstellenWAI"
Me.cbxStandorttxtErstellenWAI.Size = New System.Drawing.Size(126, 17)
Me.cbxStandorttxtErstellenWAI.TabIndex = 108
@@ -779,7 +799,7 @@ Partial Class frmProgDetails
'Button15
'
Me.Button15.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button15.Location = New System.Drawing.Point(405, 291)
Me.Button15.Location = New System.Drawing.Point(427, 291)
Me.Button15.Name = "Button15"
Me.Button15.Size = New System.Drawing.Size(76, 24)
Me.Button15.TabIndex = 107
@@ -797,7 +817,7 @@ Partial Class frmProgDetails
'
'txtProdPfadWAI
'
Me.txtProdPfadWAI.Location = New System.Drawing.Point(110, 294)
Me.txtProdPfadWAI.Location = New System.Drawing.Point(132, 294)
Me.txtProdPfadWAI.Name = "txtProdPfadWAI"
Me.txtProdPfadWAI.Size = New System.Drawing.Size(289, 20)
Me.txtProdPfadWAI.TabIndex = 105
@@ -805,7 +825,7 @@ Partial Class frmProgDetails
'Button16
'
Me.Button16.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button16.Location = New System.Drawing.Point(487, 291)
Me.Button16.Location = New System.Drawing.Point(509, 291)
Me.Button16.Name = "Button16"
Me.Button16.Size = New System.Drawing.Size(100, 24)
Me.Button16.TabIndex = 104
@@ -817,7 +837,7 @@ Partial Class frmProgDetails
Me.cbxStandorttxtErstellenNKD.AutoSize = True
Me.cbxStandorttxtErstellenNKD.Checked = True
Me.cbxStandorttxtErstellenNKD.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxStandorttxtErstellenNKD.Location = New System.Drawing.Point(593, 323)
Me.cbxStandorttxtErstellenNKD.Location = New System.Drawing.Point(615, 323)
Me.cbxStandorttxtErstellenNKD.Name = "cbxStandorttxtErstellenNKD"
Me.cbxStandorttxtErstellenNKD.Size = New System.Drawing.Size(126, 17)
Me.cbxStandorttxtErstellenNKD.TabIndex = 113
@@ -827,7 +847,7 @@ Partial Class frmProgDetails
'Button17
'
Me.Button17.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button17.Location = New System.Drawing.Point(405, 317)
Me.Button17.Location = New System.Drawing.Point(427, 317)
Me.Button17.Name = "Button17"
Me.Button17.Size = New System.Drawing.Size(76, 24)
Me.Button17.TabIndex = 112
@@ -845,7 +865,7 @@ Partial Class frmProgDetails
'
'txtProdPfadNKD
'
Me.txtProdPfadNKD.Location = New System.Drawing.Point(110, 320)
Me.txtProdPfadNKD.Location = New System.Drawing.Point(132, 320)
Me.txtProdPfadNKD.Name = "txtProdPfadNKD"
Me.txtProdPfadNKD.Size = New System.Drawing.Size(289, 20)
Me.txtProdPfadNKD.TabIndex = 110
@@ -853,7 +873,7 @@ Partial Class frmProgDetails
'Button18
'
Me.Button18.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button18.Location = New System.Drawing.Point(487, 317)
Me.Button18.Location = New System.Drawing.Point(509, 317)
Me.Button18.Name = "Button18"
Me.Button18.Size = New System.Drawing.Size(100, 24)
Me.Button18.TabIndex = 109
@@ -865,7 +885,7 @@ Partial Class frmProgDetails
Me.cbxStandorttxtErstellenNEU.AutoSize = True
Me.cbxStandorttxtErstellenNEU.Checked = True
Me.cbxStandorttxtErstellenNEU.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxStandorttxtErstellenNEU.Location = New System.Drawing.Point(593, 349)
Me.cbxStandorttxtErstellenNEU.Location = New System.Drawing.Point(615, 349)
Me.cbxStandorttxtErstellenNEU.Name = "cbxStandorttxtErstellenNEU"
Me.cbxStandorttxtErstellenNEU.Size = New System.Drawing.Size(126, 17)
Me.cbxStandorttxtErstellenNEU.TabIndex = 118
@@ -875,7 +895,7 @@ Partial Class frmProgDetails
'Button19
'
Me.Button19.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button19.Location = New System.Drawing.Point(405, 343)
Me.Button19.Location = New System.Drawing.Point(427, 343)
Me.Button19.Name = "Button19"
Me.Button19.Size = New System.Drawing.Size(76, 24)
Me.Button19.TabIndex = 117
@@ -893,7 +913,7 @@ Partial Class frmProgDetails
'
'txtProdPfadNEU
'
Me.txtProdPfadNEU.Location = New System.Drawing.Point(110, 346)
Me.txtProdPfadNEU.Location = New System.Drawing.Point(132, 346)
Me.txtProdPfadNEU.Name = "txtProdPfadNEU"
Me.txtProdPfadNEU.Size = New System.Drawing.Size(289, 20)
Me.txtProdPfadNEU.TabIndex = 115
@@ -901,7 +921,7 @@ Partial Class frmProgDetails
'Button20
'
Me.Button20.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button20.Location = New System.Drawing.Point(487, 343)
Me.Button20.Location = New System.Drawing.Point(509, 343)
Me.Button20.Name = "Button20"
Me.Button20.Size = New System.Drawing.Size(100, 24)
Me.Button20.TabIndex = 114
@@ -911,7 +931,7 @@ Partial Class frmProgDetails
'Button21
'
Me.Button21.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button21.Location = New System.Drawing.Point(405, 588)
Me.Button21.Location = New System.Drawing.Point(427, 616)
Me.Button21.Name = "Button21"
Me.Button21.Size = New System.Drawing.Size(76, 24)
Me.Button21.TabIndex = 122
@@ -921,7 +941,7 @@ Partial Class frmProgDetails
'Label23
'
Me.Label23.AutoSize = True
Me.Label23.Location = New System.Drawing.Point(20, 593)
Me.Label23.Location = New System.Drawing.Point(20, 621)
Me.Label23.Name = "Label23"
Me.Label23.Size = New System.Drawing.Size(79, 13)
Me.Label23.TabIndex = 121
@@ -929,7 +949,7 @@ Partial Class frmProgDetails
'
'txtInstallProdPfadWAI
'
Me.txtInstallProdPfadWAI.Location = New System.Drawing.Point(110, 590)
Me.txtInstallProdPfadWAI.Location = New System.Drawing.Point(132, 618)
Me.txtInstallProdPfadWAI.Name = "txtInstallProdPfadWAI"
Me.txtInstallProdPfadWAI.Size = New System.Drawing.Size(289, 20)
Me.txtInstallProdPfadWAI.TabIndex = 120
@@ -937,7 +957,7 @@ Partial Class frmProgDetails
'Button22
'
Me.Button22.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button22.Location = New System.Drawing.Point(487, 588)
Me.Button22.Location = New System.Drawing.Point(509, 616)
Me.Button22.Name = "Button22"
Me.Button22.Size = New System.Drawing.Size(100, 24)
Me.Button22.TabIndex = 119
@@ -947,7 +967,7 @@ Partial Class frmProgDetails
'Button23
'
Me.Button23.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button23.Location = New System.Drawing.Point(405, 614)
Me.Button23.Location = New System.Drawing.Point(427, 695)
Me.Button23.Name = "Button23"
Me.Button23.Size = New System.Drawing.Size(76, 24)
Me.Button23.TabIndex = 126
@@ -957,23 +977,23 @@ Partial Class frmProgDetails
'Label24
'
Me.Label24.AutoSize = True
Me.Label24.Location = New System.Drawing.Point(20, 619)
Me.Label24.Location = New System.Drawing.Point(20, 647)
Me.Label24.Name = "Label24"
Me.Label24.Size = New System.Drawing.Size(81, 13)
Me.Label24.TabIndex = 125
Me.Label24.Text = "Produktiv-NKD:"
'
'txtInstallProdPfadNKD
'txtInstallProdPfadUNI
'
Me.txtInstallProdPfadNKD.Location = New System.Drawing.Point(110, 616)
Me.txtInstallProdPfadNKD.Name = "txtInstallProdPfadNKD"
Me.txtInstallProdPfadNKD.Size = New System.Drawing.Size(289, 20)
Me.txtInstallProdPfadNKD.TabIndex = 124
Me.txtInstallProdPfadUNI.Location = New System.Drawing.Point(132, 697)
Me.txtInstallProdPfadUNI.Name = "txtInstallProdPfadUNI"
Me.txtInstallProdPfadUNI.Size = New System.Drawing.Size(289, 20)
Me.txtInstallProdPfadUNI.TabIndex = 124
'
'Button24
'
Me.Button24.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button24.Location = New System.Drawing.Point(487, 614)
Me.Button24.Location = New System.Drawing.Point(509, 695)
Me.Button24.Name = "Button24"
Me.Button24.Size = New System.Drawing.Size(100, 24)
Me.Button24.TabIndex = 123
@@ -983,7 +1003,7 @@ Partial Class frmProgDetails
'Button25
'
Me.Button25.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button25.Location = New System.Drawing.Point(405, 640)
Me.Button25.Location = New System.Drawing.Point(427, 721)
Me.Button25.Name = "Button25"
Me.Button25.Size = New System.Drawing.Size(76, 24)
Me.Button25.TabIndex = 130
@@ -993,23 +1013,23 @@ Partial Class frmProgDetails
'Label25
'
Me.Label25.AutoSize = True
Me.Label25.Location = New System.Drawing.Point(20, 645)
Me.Label25.Location = New System.Drawing.Point(20, 673)
Me.Label25.Name = "Label25"
Me.Label25.Size = New System.Drawing.Size(81, 13)
Me.Label25.TabIndex = 129
Me.Label25.Text = "Produktiv-NEU:"
'
'txtInstallProdPfadNEU
'txtInstallProdPfadAMB
'
Me.txtInstallProdPfadNEU.Location = New System.Drawing.Point(110, 642)
Me.txtInstallProdPfadNEU.Name = "txtInstallProdPfadNEU"
Me.txtInstallProdPfadNEU.Size = New System.Drawing.Size(289, 20)
Me.txtInstallProdPfadNEU.TabIndex = 128
Me.txtInstallProdPfadAMB.Location = New System.Drawing.Point(132, 723)
Me.txtInstallProdPfadAMB.Name = "txtInstallProdPfadAMB"
Me.txtInstallProdPfadAMB.Size = New System.Drawing.Size(289, 20)
Me.txtInstallProdPfadAMB.TabIndex = 128
'
'Button26
'
Me.Button26.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button26.Location = New System.Drawing.Point(487, 640)
Me.Button26.Location = New System.Drawing.Point(509, 721)
Me.Button26.Name = "Button26"
Me.Button26.Size = New System.Drawing.Size(100, 24)
Me.Button26.TabIndex = 127
@@ -1026,20 +1046,230 @@ Partial Class frmProgDetails
Me.cbxZip.Text = "ZIP Copy"
Me.cbxZip.UseVisualStyleBackColor = True
'
'cbxStandorttxtErstellenAMB
'
Me.cbxStandorttxtErstellenAMB.AutoSize = True
Me.cbxStandorttxtErstellenAMB.Checked = True
Me.cbxStandorttxtErstellenAMB.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxStandorttxtErstellenAMB.Location = New System.Drawing.Point(615, 401)
Me.cbxStandorttxtErstellenAMB.Name = "cbxStandorttxtErstellenAMB"
Me.cbxStandorttxtErstellenAMB.Size = New System.Drawing.Size(126, 17)
Me.cbxStandorttxtErstellenAMB.TabIndex = 141
Me.cbxStandorttxtErstellenAMB.Text = "'Standort.txt' erstellen"
Me.cbxStandorttxtErstellenAMB.UseVisualStyleBackColor = True
'
'Button27
'
Me.Button27.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button27.Location = New System.Drawing.Point(427, 395)
Me.Button27.Name = "Button27"
Me.Button27.Size = New System.Drawing.Size(76, 24)
Me.Button27.TabIndex = 140
Me.Button27.Text = "Aktualisieren"
Me.Button27.UseVisualStyleBackColor = True
'
'Label26
'
Me.Label26.AutoSize = True
Me.Label26.Location = New System.Drawing.Point(20, 401)
Me.Label26.Name = "Label26"
Me.Label26.Size = New System.Drawing.Size(96, 13)
Me.Label26.TabIndex = 139
Me.Label26.Text = "Produktiv-AMBAR:"
'
'txtProdPfadAMB
'
Me.txtProdPfadAMB.Location = New System.Drawing.Point(132, 398)
Me.txtProdPfadAMB.Name = "txtProdPfadAMB"
Me.txtProdPfadAMB.Size = New System.Drawing.Size(289, 20)
Me.txtProdPfadAMB.TabIndex = 138
'
'Button28
'
Me.Button28.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button28.Location = New System.Drawing.Point(509, 395)
Me.Button28.Name = "Button28"
Me.Button28.Size = New System.Drawing.Size(100, 24)
Me.Button28.TabIndex = 137
Me.Button28.Text = "PRODUKTIV->F"
Me.Button28.UseVisualStyleBackColor = True
'
'cbxStandorttxtErstellenUNI
'
Me.cbxStandorttxtErstellenUNI.AutoSize = True
Me.cbxStandorttxtErstellenUNI.Checked = True
Me.cbxStandorttxtErstellenUNI.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxStandorttxtErstellenUNI.Location = New System.Drawing.Point(615, 375)
Me.cbxStandorttxtErstellenUNI.Name = "cbxStandorttxtErstellenUNI"
Me.cbxStandorttxtErstellenUNI.Size = New System.Drawing.Size(126, 17)
Me.cbxStandorttxtErstellenUNI.TabIndex = 136
Me.cbxStandorttxtErstellenUNI.Text = "'Standort.txt' erstellen"
Me.cbxStandorttxtErstellenUNI.UseVisualStyleBackColor = True
'
'Button29
'
Me.Button29.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button29.Location = New System.Drawing.Point(427, 369)
Me.Button29.Name = "Button29"
Me.Button29.Size = New System.Drawing.Size(76, 24)
Me.Button29.TabIndex = 135
Me.Button29.Text = "Aktualisieren"
Me.Button29.UseVisualStyleBackColor = True
'
'Label27
'
Me.Label27.AutoSize = True
Me.Label27.Location = New System.Drawing.Point(20, 375)
Me.Label27.Name = "Label27"
Me.Label27.Size = New System.Drawing.Size(106, 13)
Me.Label27.TabIndex = 134
Me.Label27.Text = "Produktiv-UNISPED:"
'
'txtProdPfadUNI
'
Me.txtProdPfadUNI.Location = New System.Drawing.Point(132, 372)
Me.txtProdPfadUNI.Name = "txtProdPfadUNI"
Me.txtProdPfadUNI.Size = New System.Drawing.Size(289, 20)
Me.txtProdPfadUNI.TabIndex = 133
'
'Button30
'
Me.Button30.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button30.Location = New System.Drawing.Point(509, 369)
Me.Button30.Name = "Button30"
Me.Button30.Size = New System.Drawing.Size(100, 24)
Me.Button30.TabIndex = 132
Me.Button30.Text = "PRODUKTIV->F"
Me.Button30.UseVisualStyleBackColor = True
'
'Button31
'
Me.Button31.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button31.Location = New System.Drawing.Point(427, 668)
Me.Button31.Name = "Button31"
Me.Button31.Size = New System.Drawing.Size(76, 24)
Me.Button31.TabIndex = 147
Me.Button31.Text = "Aktualisieren"
Me.Button31.UseVisualStyleBackColor = True
'
'txtInstallProdPfadNEU
'
Me.txtInstallProdPfadNEU.Location = New System.Drawing.Point(132, 670)
Me.txtInstallProdPfadNEU.Name = "txtInstallProdPfadNEU"
Me.txtInstallProdPfadNEU.Size = New System.Drawing.Size(289, 20)
Me.txtInstallProdPfadNEU.TabIndex = 146
'
'Button32
'
Me.Button32.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button32.Location = New System.Drawing.Point(509, 668)
Me.Button32.Name = "Button32"
Me.Button32.Size = New System.Drawing.Size(100, 24)
Me.Button32.TabIndex = 145
Me.Button32.Text = "PRODUKTIV->F"
Me.Button32.UseVisualStyleBackColor = True
'
'Button33
'
Me.Button33.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button33.Location = New System.Drawing.Point(427, 642)
Me.Button33.Name = "Button33"
Me.Button33.Size = New System.Drawing.Size(76, 24)
Me.Button33.TabIndex = 144
Me.Button33.Text = "Aktualisieren"
Me.Button33.UseVisualStyleBackColor = True
'
'txtInstallProdPfadNKD
'
Me.txtInstallProdPfadNKD.Location = New System.Drawing.Point(132, 644)
Me.txtInstallProdPfadNKD.Name = "txtInstallProdPfadNKD"
Me.txtInstallProdPfadNKD.Size = New System.Drawing.Size(289, 20)
Me.txtInstallProdPfadNKD.TabIndex = 143
'
'Button34
'
Me.Button34.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button34.Location = New System.Drawing.Point(509, 642)
Me.Button34.Name = "Button34"
Me.Button34.Size = New System.Drawing.Size(100, 24)
Me.Button34.TabIndex = 142
Me.Button34.Text = "PRODUKTIV->F"
Me.Button34.UseVisualStyleBackColor = True
'
'Label28
'
Me.Label28.AutoSize = True
Me.Label28.Location = New System.Drawing.Point(20, 726)
Me.Label28.Name = "Label28"
Me.Label28.Size = New System.Drawing.Size(96, 13)
Me.Label28.TabIndex = 149
Me.Label28.Text = "Produktiv-AMBAR:"
'
'Label29
'
Me.Label29.AutoSize = True
Me.Label29.Location = New System.Drawing.Point(20, 700)
Me.Label29.Name = "Label29"
Me.Label29.Size = New System.Drawing.Size(106, 13)
Me.Label29.TabIndex = 148
Me.Label29.Text = "Produktiv-UNISPED:"
'
'Button35
'
Me.Button35.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button35.Location = New System.Drawing.Point(615, 125)
Me.Button35.Name = "Button35"
Me.Button35.Size = New System.Drawing.Size(126, 24)
Me.Button35.TabIndex = 150
Me.Button35.Text = "Update-Daten"
Me.Button35.UseVisualStyleBackColor = True
'
'cbxIncrementalCopy
'
Me.cbxIncrementalCopy.AutoSize = True
Me.cbxIncrementalCopy.Checked = True
Me.cbxIncrementalCopy.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxIncrementalCopy.Location = New System.Drawing.Point(487, 72)
Me.cbxIncrementalCopy.Name = "cbxIncrementalCopy"
Me.cbxIncrementalCopy.Size = New System.Drawing.Size(105, 17)
Me.cbxIncrementalCopy.TabIndex = 151
Me.cbxIncrementalCopy.Text = "IncrementalCopy"
Me.cbxIncrementalCopy.UseVisualStyleBackColor = True
'
'frmProgDetails
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(716, 824)
Me.ClientSize = New System.Drawing.Size(759, 903)
Me.Controls.Add(Me.cbxIncrementalCopy)
Me.Controls.Add(Me.Button35)
Me.Controls.Add(Me.Label28)
Me.Controls.Add(Me.Label29)
Me.Controls.Add(Me.Button31)
Me.Controls.Add(Me.txtInstallProdPfadNEU)
Me.Controls.Add(Me.Button32)
Me.Controls.Add(Me.Button33)
Me.Controls.Add(Me.txtInstallProdPfadNKD)
Me.Controls.Add(Me.Button34)
Me.Controls.Add(Me.cbxStandorttxtErstellenAMB)
Me.Controls.Add(Me.Button27)
Me.Controls.Add(Me.Label26)
Me.Controls.Add(Me.txtProdPfadAMB)
Me.Controls.Add(Me.Button28)
Me.Controls.Add(Me.cbxStandorttxtErstellenUNI)
Me.Controls.Add(Me.Button29)
Me.Controls.Add(Me.Label27)
Me.Controls.Add(Me.txtProdPfadUNI)
Me.Controls.Add(Me.Button30)
Me.Controls.Add(Me.cbxZip)
Me.Controls.Add(Me.Button25)
Me.Controls.Add(Me.Label25)
Me.Controls.Add(Me.txtInstallProdPfadNEU)
Me.Controls.Add(Me.txtInstallProdPfadAMB)
Me.Controls.Add(Me.Button26)
Me.Controls.Add(Me.Button23)
Me.Controls.Add(Me.Label24)
Me.Controls.Add(Me.txtInstallProdPfadNKD)
Me.Controls.Add(Me.txtInstallProdPfadUNI)
Me.Controls.Add(Me.Button24)
Me.Controls.Add(Me.Button21)
Me.Controls.Add(Me.Label23)
@@ -1226,11 +1456,31 @@ Partial Class frmProgDetails
Friend WithEvents Button22 As System.Windows.Forms.Button
Friend WithEvents Button23 As System.Windows.Forms.Button
Friend WithEvents Label24 As System.Windows.Forms.Label
Friend WithEvents txtInstallProdPfadNKD As System.Windows.Forms.TextBox
Friend WithEvents txtInstallProdPfadUNI As System.Windows.Forms.TextBox
Friend WithEvents Button24 As System.Windows.Forms.Button
Friend WithEvents Button25 As System.Windows.Forms.Button
Friend WithEvents Label25 As System.Windows.Forms.Label
Friend WithEvents txtInstallProdPfadNEU As System.Windows.Forms.TextBox
Friend WithEvents txtInstallProdPfadAMB As System.Windows.Forms.TextBox
Friend WithEvents Button26 As System.Windows.Forms.Button
Friend WithEvents cbxZip As CheckBox
Friend WithEvents cbxStandorttxtErstellenAMB As CheckBox
Friend WithEvents Button27 As Button
Friend WithEvents Label26 As Label
Friend WithEvents txtProdPfadAMB As TextBox
Friend WithEvents Button28 As Button
Friend WithEvents cbxStandorttxtErstellenUNI As CheckBox
Friend WithEvents Button29 As Button
Friend WithEvents Label27 As Label
Friend WithEvents txtProdPfadUNI As TextBox
Friend WithEvents Button30 As Button
Friend WithEvents Button31 As Button
Friend WithEvents txtInstallProdPfadNEU As TextBox
Friend WithEvents Button32 As Button
Friend WithEvents Button33 As Button
Friend WithEvents txtInstallProdPfadNKD As TextBox
Friend WithEvents Button34 As Button
Friend WithEvents Label28 As Label
Friend WithEvents Label29 As Label
Friend WithEvents Button35 As Button
Friend WithEvents cbxIncrementalCopy As CheckBox
End Class

122
UID/Programme/frmProgDetails.vb
View File

@@ -58,7 +58,13 @@ Public Class frmProgDetails
txtProdPfadNEU.Text = daten.prog_prod_path_NEU
txtInstallProdPfadNEU.Text = daten.prog_installer_prod_path_NEU
txtProdPfadUNI.Text = daten.prog_prod_path_UNI
txtInstallProdPfadUNI.Text = daten.prog_installer_prod_path_UNI
txtProdPfadAMB.Text = daten.prog_prod_path_AMB
txtInstallProdPfadAMB.Text = daten.prog_installer_prod_path_AMB
End Sub
Private Sub btnVersionAkt_Click(sender As Object, e As EventArgs) Handles btnVersionAkt.Click
@@ -146,7 +152,13 @@ Public Class frmProgDetails
daten.prog_installer_prod_path_NKD = txtInstallProdPfadNKD.Text
daten.prog_prod_path_NEU = txtProdPfadNEU.Text
daten.prog_installer_prod_path_NEU = txtInstallProdPfadNEU.Text
daten.prog_prod_path_UNI = txtProdPfadUNI.Text
daten.prog_installer_prod_path_UNI = txtInstallProdPfadUNI.Text
daten.prog_prod_path_AMB = txtProdPfadAMB.Text
daten.prog_installer_prod_path_AMB = txtInstallProdPfadAMB.Text
If PROG.insertProgramm(daten) Then Me.Close()
@@ -167,14 +179,14 @@ Public Class frmProgDetails
Dim PROG_FUNC As New cProgramFunctions
Sub copyProgrammFiles(sender As Button, von As String, nach As String, cbx As Boolean, Optional standort As String = "")
Sub copyProgrammFiles(sender As Button, von As String, nach As String, cbx As Boolean, Optional standort As String = "", Optional LIST As List(Of VERAG_PROG_ALLGEMEIN.cProgrammeUpdate) = Nothing)
sender.BackColor = Color.LightGray
Application.DoEvents()
Me.Refresh()
If von = "" Then sender.BackColor = Color.White : Exit Sub
If nach = "" Then sender.BackColor = Color.White : Exit Sub
If checkSicherheitsfrage(von, nach) Then
setBG(sender, PROG_FUNC.copyProgram(von, nach, cbx))
setBG(sender, PROG_FUNC.copyProgram(von, nach, cbx, cbxIncrementalCopy.Checked))
End If
Application.DoEvents()
Me.Refresh()
@@ -187,6 +199,7 @@ Public Class frmProgDetails
Function checkSicherheitsfrage(von, nach) As Boolean
If sicherheitsfrageUeberspringen Then Return True
If vbYes = MsgBox("Möchten Sie folgende Aktion ausführen?:" & vbNewLine & vbNewLine & " Kopiere alle Files von: " & von & vbNewLine & "Nach: " & nach, vbYesNo, "Aktion ausführen?") Then
@@ -320,6 +333,8 @@ Public Class frmProgDetails
Button16.PerformClick()
Button18.PerformClick()
Button20.PerformClick()
Button30.PerformClick()
Button28.PerformClick()
End If
sicherheitsfrageUeberspringen = False
End Sub
@@ -336,6 +351,8 @@ Public Class frmProgDetails
Button22.PerformClick()
Button24.PerformClick()
Button26.PerformClick()
Button32.PerformClick()
Button34.PerformClick()
End If
sicherheitsfrageUeberspringen = False
End Sub
@@ -361,12 +378,12 @@ Public Class frmProgDetails
End Sub
Private Sub Button23_Click(sender As Object, e As EventArgs) Handles Button23.Click
PROG.setParam("prog_installer_prod_path_nkd", txtInstallProdPfadNKD.Text, codename)
PROG.setParam("prog_installer_prod_path_uni", txtInstallProdPfadUNI.Text, codename)
init()
End Sub
Private Sub Button25_Click(sender As Object, e As EventArgs) Handles Button25.Click
PROG.setParam("prog_installer_prod_path_neu", txtInstallProdPfadNEU.Text, codename)
PROG.setParam("prog_installer_prod_path_amb", txtInstallProdPfadAMB.Text, codename)
init()
End Sub
@@ -391,12 +408,101 @@ Public Class frmProgDetails
End Sub
Private Sub Button24_Click(sender As Object, e As EventArgs) Handles Button24.Click
copyProgrammFiles(sender, txtInstallSourcePfad.Text, txtInstallProdPfadNKD.Text, cbxZip.Checked)
copyProgrammFiles(sender, txtInstallSourcePfad.Text, txtInstallProdPfadUNI.Text, cbxZip.Checked)
End Sub
Private Sub Button26_Click(sender As Object, e As EventArgs) Handles Button26.Click
copyProgrammFiles(sender, txtInstallSourcePfad.Text, txtInstallProdPfadNEU.Text, cbxZip.Checked)
copyProgrammFiles(sender, txtInstallSourcePfad.Text, txtInstallProdPfadAMB.Text, cbxZip.Checked)
End Sub
Private Sub Button30_Click(sender As Object, e As EventArgs) Handles Button30.Click
copyProgrammFiles(sender, txtSourcePfad.Text, txtProdPfadUNI.Text, cbxZip.Checked, If(cbxStandorttxtErstellenUNI.Checked, "UNISPED", ""))
End Sub
Private Sub Button28_Click(sender As Object, e As EventArgs) Handles Button28.Click
copyProgrammFiles(sender, txtSourcePfad.Text, txtProdPfadAMB.Text, cbxZip.Checked, If(cbxStandorttxtErstellenAMB.Checked, "AMBAR", ""))
End Sub
Private Sub Button29_Click(sender As Object, e As EventArgs) Handles Button29.Click
PROG.setParam("prog_prod_path_uni", txtProdPfadUNI.Text, codename)
init()
End Sub
Private Sub Button27_Click(sender As Object, e As EventArgs) Handles Button27.Click
PROG.setParam("prog_prod_path_amb", txtProdPfadAMB.Text, codename)
init()
End Sub
Private Sub Button34_Click(sender As Object, e As EventArgs) Handles Button34.Click
copyProgrammFiles(sender, txtInstallSourcePfad.Text, txtInstallProdPfadNKD.Text, cbxZip.Checked)
End Sub
Private Sub Button32_Click(sender As Object, e As EventArgs) Handles Button32.Click
copyProgrammFiles(sender, txtInstallSourcePfad.Text, txtInstallProdPfadNEU.Text, cbxZip.Checked)
End Sub
Private Sub Button33_Click(sender As Object, e As EventArgs) Handles Button33.Click
PROG.setParam("prog_installer_prod_path_nkd", txtInstallProdPfadNKD.Text, codename)
init()
End Sub
Private Sub Button31_Click(sender As Object, e As EventArgs) Handles Button31.Click
PROG.setParam("prog_installer_prod_path_neu", txtInstallProdPfadNEU.Text, codename)
init()
End Sub
Dim LIST As New List(Of VERAG_PROG_ALLGEMEIN.cProgrammeUpdate)
Private Sub Button35_Click(sender As Object, e As EventArgs) Handles Button35.Click
If txtSourcePfad.Text = "" Then Exit Sub
If Not IO.Directory.Exists(txtSourcePfad.Text) Then Exit Sub
Dim LIST = New List(Of VERAG_PROG_ALLGEMEIN.cProgrammeUpdate)
Dim dirName = ""
VERAG_PROG_ALLGEMEIN.cProgrammeUpdate.RekursivGetFiles(New IO.DirectoryInfo(txtSourcePfad.Text), dirName, LIST, {})
For Each f In IO.Directory.GetFiles(txtSourcePfad.Text)
Dim FI As New IO.FileInfo(f)
If dirName = "" Then
dirName = FI.DirectoryName
MsgBox(dirName)
End If
Dim UD As New VERAG_PROG_ALLGEMEIN.cProgrammeUpdate
UD.pud_fileName = FI.Name
UD.pud_filePathFolder = FI.DirectoryName.Replace(dirName, "")
If UD.pud_filePathFolder = "" Then UD.pud_filePathFolder = Nothing
UD.pud_file_Size = FI.Length
UD.pud_file_Date = FI.LastWriteTime
UD.pud_file_Verion = "" 'FI.
LIST.Add(UD)
Next
Dim daten As cProgramm = PROG.getProgrammByCodeName(codename)
If daten Is Nothing Then Exit Sub
VERAG_PROG_ALLGEMEIN.cProgrammeUpdate.SAVE_LIST(daten.prog_id, txtVersion.Text.Replace(".", ""), codename, LIST)
End Sub
Public Function isNewFile(ByRef file As VERAG_PROG_ALLGEMEIN.cProgrammeUpdate, LIST_DEST As List(Of VERAG_PROG_ALLGEMEIN.cProgrammeUpdate)) As Boolean
For Each l In LIST_DEST
If l.pud_filePathFolder = file.pud_filePathFolder And l.pud_fileName = file.pud_fileName And l.pud_file_Size = file.pud_file_Size And l.pud_file_Date = file.pud_file_Date Then
Return False
End If
Next
Return True
End Function
Public Function isOldFile(ByRef file As VERAG_PROG_ALLGEMEIN.cProgrammeUpdate, LIST_SOURCE As List(Of VERAG_PROG_ALLGEMEIN.cProgrammeUpdate)) As Boolean
For Each l In LIST_SOURCE
If l.pud_filePathFolder = file.pud_filePathFolder And l.pud_fileName = file.pud_fileName And l.pud_file_Size = file.pud_file_Size And l.pud_file_Date = file.pud_file_Date Then
Return False
End If
Next
Return True
End Function
End Class

5
UID/cClasses.vb
View File

@@ -36,6 +36,11 @@ Public Class cProgramm
Property prog_installer_prod_path_NKD As String = ""
Property prog_prod_path_NEU As String = ""
Property prog_installer_prod_path_NEU As String = ""
Property prog_prod_path_UNI As String = ""
Property prog_installer_prod_path_UNI As String = ""
Property prog_prod_path_AMB As String = ""
Property prog_installer_prod_path_AMB As String = ""
End Class
Public Class cSeminar

8
UID/cProgramFunctions.vb
View File

@@ -129,8 +129,10 @@ Public Class cProgramFunctions
End Try
End Function
Public Function copyProgram(ByRef sourcePfad As String, ByVal destPfad As String, Optional ZIP As Boolean = False) As Boolean
If ZIP Then
Public Function copyProgram(ByRef sourcePfad As String, ByVal destPfad As String, Optional ZIP As Boolean = False, Optional incrementalCopy As Boolean = False, Optional list As List(Of VERAG_PROG_ALLGEMEIN.cProgrammeUpdate) = Nothing) As Boolean
If incrementalCopy Then
Return VERAG_PROG_ALLGEMEIN.cProgrammeUpdate.copyProgramLIST(sourcePfad, destPfad, {})
ElseIf ZIP Then
Return copyProgramZIP(sourcePfad, destPfad)
Else
Return copyProgramNOTZip(sourcePfad, destPfad)
@@ -176,6 +178,8 @@ Public Class cProgramFunctions
Return False
End Function
Private Function FileCopier(ByRef sourcePfad As String, ByVal destPfad As String) As Boolean
If Not destPfad.EndsWith("\") Then destPfad = destPfad & "\"
Try

14
UID/cSqlDb.vb
View File

@@ -819,6 +819,10 @@ Public Class cProgramme
If Not dr.Item("prog_installer_prod_path_NKD") Is DBNull.Value Then daten.prog_installer_prod_path_NKD = dr.Item("prog_installer_prod_path_NKD")
If Not dr.Item("prog_prod_path_NEU") Is DBNull.Value Then daten.prog_prod_path_NEU = dr.Item("prog_prod_path_NEU")
If Not dr.Item("prog_installer_prod_path_NEU") Is DBNull.Value Then daten.prog_installer_prod_path_NEU = dr.Item("prog_installer_prod_path_NEU")
If Not dr.Item("prog_prod_path_UNI") Is DBNull.Value Then daten.prog_prod_path_UNI = dr.Item("prog_prod_path_UNI")
If Not dr.Item("prog_installer_prod_path_UNI") Is DBNull.Value Then daten.prog_installer_prod_path_UNI = dr.Item("prog_installer_prod_path_UNI")
If Not dr.Item("prog_prod_path_AMB") Is DBNull.Value Then daten.prog_prod_path_AMB = dr.Item("prog_prod_path_AMB")
If Not dr.Item("prog_installer_prod_path_AMB") Is DBNull.Value Then daten.prog_installer_prod_path_AMB = dr.Item("prog_installer_prod_path_AMB")
Return daten
End If
@@ -834,8 +838,8 @@ Public Class cProgramme
Public Function insertProgramm(ByVal daten As cProgramm) As Boolean
Dim sql = "INSERT INTO tblProgramme " &
"(prog_codename, prog_name, prog_aktuelleVersion, prog_info, prog_source_path, prog_dev_path,prog_prod_path,prog_installer_source_path,prog_installer_dev_path,prog_installer_prod_path,prog_installer_prod_path_atilla,prog_prod_path_atilla,prog_prod_path_imex,prog_installer_prod_path_imex,prog_prod_path_SBG,prog_installer_prod_path_SBG,prog_prod_path_WAI,prog_installer_prod_path_WAI,prog_prod_path_NKD,prog_installer_prod_path_NKD,prog_prod_path_NEU,prog_installer_prod_path_NEU) VALUES " &
"(@prog_codename,@prog_name,@prog_aktuelleVersion,@prog_info,@prog_source_path,@prog_dev_path,@prog_prod_path,@prog_installer_source_path,@prog_installer_dev_path,@prog_installer_prod_path,@prog_installer_prod_path_atilla,@prog_prod_path_atilla,@prog_prod_path_imex,@prog_installer_prod_path_imex,@prog_prod_path_SBG,@prog_installer_prod_path_SBG,@prog_prod_path_WAI,@prog_installer_prod_path_WAI,@prog_prod_path_NKD,@prog_installer_prod_path_NKD,@prog_prod_path_NEU,@prog_installer_prod_path_NEU)"
"(prog_codename, prog_name, prog_aktuelleVersion, prog_info, prog_source_path, prog_dev_path,prog_prod_path,prog_installer_source_path,prog_installer_dev_path,prog_installer_prod_path,prog_installer_prod_path_atilla,prog_prod_path_atilla,prog_prod_path_imex,prog_installer_prod_path_imex,prog_prod_path_SBG,prog_installer_prod_path_SBG,prog_prod_path_WAI,prog_installer_prod_path_WAI,prog_prod_path_NKD,prog_installer_prod_path_NKD,prog_prod_path_NEU,prog_installer_prod_path_NEU,prog_installer_prod_path_UNI,prog_installer_prod_path_AMB) VALUES " &
"(@prog_codename,@prog_name,@prog_aktuelleVersion,@prog_info,@prog_source_path,@prog_dev_path,@prog_prod_path,@prog_installer_source_path,@prog_installer_dev_path,@prog_installer_prod_path,@prog_installer_prod_path_atilla,@prog_prod_path_atilla,@prog_prod_path_imex,@prog_installer_prod_path_imex,@prog_prod_path_SBG,@prog_installer_prod_path_SBG,@prog_prod_path_WAI,@prog_installer_prod_path_WAI,@prog_prod_path_NKD,@prog_installer_prod_path_NKD,@prog_prod_path_NEU,@prog_installer_prod_path_NEU,@prog_installer_prod_path_UNI,@prog_installer_prod_path_AMB)"
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
Using cmd As New SqlCommand(sql, conn)
@@ -862,7 +866,11 @@ Public Class cProgramme
cmd.Parameters.AddWithValue("@prog_prod_path_NEU", daten.prog_prod_path_NEU)
cmd.Parameters.AddWithValue("@prog_installer_prod_path_NEU", daten.prog_installer_prod_path_NEU)
cmd.Parameters.AddWithValue("@prog_prod_path_UNI", daten.prog_prod_path_UNI)
cmd.Parameters.AddWithValue("@prog_installer_prod_path_UNI", daten.prog_installer_prod_path_UNI)
cmd.Parameters.AddWithValue("@prog_prod_path_AMB", daten.prog_prod_path_AMB)
cmd.Parameters.AddWithValue("@prog_installer_prod_path_AMB", daten.prog_installer_prod_path_AMB)
Try
cmd.ExecuteNonQuery()

2
UID/frmActiveReprotViewer.vb
View File

@@ -74,7 +74,7 @@ Public Class frmActiveReprotViewer
p.Parameters("date").Value = semiCert.datum
p.Parameters("titel").Value = semiCert.titel
p.Parameters("inhalt").Value = semiCert.inhalt
'p.Parameters("referent").Value = semiCert.referent
' p.Parameters("referent").Value = semiCert.referent
If semiCert.unterzeichnender = "" Then
Dim u As String = InputBox("Bitte geben Sie den Unterzeichnenden an:")
p.Parameters("unterz").Value = If(u <> "", u, "Johann Luxbauer")

6
UID/frmSeminarDetails.vb
View File

@@ -30,6 +30,7 @@ Public Class frmSeminarDetails
cboReportVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Unterschr. Vorstand + Vortr.Name (Standard)", "rptSeminatZert.rpx"))
cboReportVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Unterschr. Vorstand", "rptSeminatZertVorst.rpx"))
cboReportVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Unterschr. Vorstand + Vortr.Allg / nur Inh. 1", "rptSeminatZertAllgUnter.rpx"))
cboReportVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Unterschr. XXX", "rptSeminatZertVorst.rpx"))
cboReportVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Interne Ausbildung CS", "rptIntAusb.rpx")) '3
cboReportVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Interne Ausbildung AG", "rptIntAusbAG.rpx")) '3
cboReportVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Interne Ausbildung ATILLA", "rptIntAusbATILLA.rpx")) '3
@@ -271,7 +272,7 @@ Public Class frmSeminarDetails
semiCert.teilnehmer = teilnehmer
If datBis.Text = datVon.Text Then
semiCert.datum = lblBez.Text
'semiCert.datum = lblBez.Text
semiCert.datum = "hat am " & datVon.Value.ToShortDateString & " am Seminar"
Else
semiCert.datum = "hat vom " & datVon.Value.ToShortDateString & " bis zum " & datBis.Value.ToShortDateString & " am Seminar"
@@ -281,10 +282,11 @@ Public Class frmSeminarDetails
semiCert.inhalt = rtbInhalt.Text
semiCert.inhalt2 = rtbInhalt2.Text
semiCert.referent = txtVortragender.Text
semiCert.unterzeichnender = lblBez.Text
If Not cboReportVorlage.SelectedItem Is Nothing Then frmActiveReprotViewer.report = CType(cboReportVorlage.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value
'frmActiveReprotViewer.semiCert = semiCert
If cbxIntAusbildung.Checked Then
semiCert.datum = lblBez.Text
' semiCert.datum = lblBez.Text
frmActiveReprotViewer.BefüllenSeminarZertifikatIntern(semiCert)
Else
frmActiveReprotViewer.BefüllenSeminarZertifikat(semiCert)

2
UID/rptSeminatZertVorst.rpx
View File

File diff suppressed because one or more lines are too long

73
UID/usrctlProcedures.Designer.vb generated
View File

@@ -100,6 +100,9 @@ Partial Class usrctlProcedures
Me.Label11 = New System.Windows.Forms.Label()
Me.Label12 = New System.Windows.Forms.Label()
Me.Label13 = New System.Windows.Forms.Label()
Me.Label14 = New System.Windows.Forms.Label()
Me.CheckBox4 = New System.Windows.Forms.CheckBox()
Me.Button27 = New System.Windows.Forms.Button()
Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -525,7 +528,7 @@ Partial Class usrctlProcedures
'
'Button19
'
Me.Button19.Location = New System.Drawing.Point(322, 88)
Me.Button19.Location = New System.Drawing.Point(219, 91)
Me.Button19.Name = "Button19"
Me.Button19.Size = New System.Drawing.Size(145, 49)
Me.Button19.TabIndex = 20
@@ -534,7 +537,7 @@ Partial Class usrctlProcedures
'
'Label5
'
Me.Label5.Location = New System.Drawing.Point(319, 140)
Me.Label5.Location = New System.Drawing.Point(216, 143)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(145, 13)
Me.Label5.TabIndex = 21
@@ -546,7 +549,7 @@ Partial Class usrctlProcedures
Me.cbxTESTSYSTEMATLAS.AutoSize = True
Me.cbxTESTSYSTEMATLAS.Checked = True
Me.cbxTESTSYSTEMATLAS.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxTESTSYSTEMATLAS.Location = New System.Drawing.Point(322, 62)
Me.cbxTESTSYSTEMATLAS.Location = New System.Drawing.Point(219, 65)
Me.cbxTESTSYSTEMATLAS.Name = "cbxTESTSYSTEMATLAS"
Me.cbxTESTSYSTEMATLAS.Size = New System.Drawing.Size(98, 17)
Me.cbxTESTSYSTEMATLAS.TabIndex = 22
@@ -580,7 +583,7 @@ Partial Class usrctlProcedures
Me.CheckBox2.AutoSize = True
Me.CheckBox2.Checked = True
Me.CheckBox2.CheckState = System.Windows.Forms.CheckState.Checked
Me.CheckBox2.Location = New System.Drawing.Point(570, 39)
Me.CheckBox2.Location = New System.Drawing.Point(389, 39)
Me.CheckBox2.Name = "CheckBox2"
Me.CheckBox2.Size = New System.Drawing.Size(98, 17)
Me.CheckBox2.TabIndex = 26
@@ -589,7 +592,7 @@ Partial Class usrctlProcedures
'
'Label6
'
Me.Label6.Location = New System.Drawing.Point(567, 140)
Me.Label6.Location = New System.Drawing.Point(386, 140)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(145, 13)
Me.Label6.TabIndex = 25
@@ -598,7 +601,7 @@ Partial Class usrctlProcedures
'
'Button20
'
Me.Button20.Location = New System.Drawing.Point(570, 88)
Me.Button20.Location = New System.Drawing.Point(389, 88)
Me.Button20.Name = "Button20"
Me.Button20.Size = New System.Drawing.Size(145, 49)
Me.Button20.TabIndex = 24
@@ -608,7 +611,7 @@ Partial Class usrctlProcedures
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(573, 68)
Me.Label7.Location = New System.Drawing.Point(392, 68)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(39, 13)
Me.Label7.TabIndex = 28
@@ -616,7 +619,7 @@ Partial Class usrctlProcedures
'
'TextBox3
'
Me.TextBox3.Location = New System.Drawing.Point(621, 65)
Me.TextBox3.Location = New System.Drawing.Point(440, 65)
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Size = New System.Drawing.Size(91, 20)
Me.TextBox3.TabIndex = 27
@@ -674,7 +677,7 @@ Partial Class usrctlProcedures
'
'Button21
'
Me.Button21.Location = New System.Drawing.Point(322, 170)
Me.Button21.Location = New System.Drawing.Point(219, 173)
Me.Button21.Name = "Button21"
Me.Button21.Size = New System.Drawing.Size(145, 49)
Me.Button21.TabIndex = 35
@@ -684,7 +687,7 @@ Partial Class usrctlProcedures
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Location = New System.Drawing.Point(328, 156)
Me.Label9.Location = New System.Drawing.Point(225, 159)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(42, 13)
Me.Label9.TabIndex = 37
@@ -692,7 +695,7 @@ Partial Class usrctlProcedures
'
'TextBox8
'
Me.TextBox8.Location = New System.Drawing.Point(376, 153)
Me.TextBox8.Location = New System.Drawing.Point(273, 156)
Me.TextBox8.Name = "TextBox8"
Me.TextBox8.Size = New System.Drawing.Size(91, 20)
Me.TextBox8.TabIndex = 36
@@ -718,7 +721,7 @@ Partial Class usrctlProcedures
'
'Button22
'
Me.Button22.Location = New System.Drawing.Point(467, 170)
Me.Button22.Location = New System.Drawing.Point(364, 173)
Me.Button22.Name = "Button22"
Me.Button22.Size = New System.Drawing.Size(154, 49)
Me.Button22.TabIndex = 40
@@ -727,7 +730,7 @@ Partial Class usrctlProcedures
'
'Button23
'
Me.Button23.Location = New System.Drawing.Point(771, 199)
Me.Button23.Location = New System.Drawing.Point(606, 161)
Me.Button23.Name = "Button23"
Me.Button23.Size = New System.Drawing.Size(75, 23)
Me.Button23.TabIndex = 41
@@ -735,7 +738,7 @@ Partial Class usrctlProcedures
'
'Button24
'
Me.Button24.Location = New System.Drawing.Point(748, 88)
Me.Button24.Location = New System.Drawing.Point(583, 50)
Me.Button24.Name = "Button24"
Me.Button24.Size = New System.Drawing.Size(145, 49)
Me.Button24.TabIndex = 42
@@ -747,7 +750,7 @@ Partial Class usrctlProcedures
Me.CheckBox3.AutoSize = True
Me.CheckBox3.Checked = True
Me.CheckBox3.CheckState = System.Windows.Forms.CheckState.Checked
Me.CheckBox3.Location = New System.Drawing.Point(748, 62)
Me.CheckBox3.Location = New System.Drawing.Point(583, 24)
Me.CheckBox3.Name = "CheckBox3"
Me.CheckBox3.Size = New System.Drawing.Size(98, 17)
Me.CheckBox3.TabIndex = 43
@@ -756,7 +759,7 @@ Partial Class usrctlProcedures
'
'Button25
'
Me.Button25.Location = New System.Drawing.Point(748, 140)
Me.Button25.Location = New System.Drawing.Point(583, 102)
Me.Button25.Name = "Button25"
Me.Button25.Size = New System.Drawing.Size(145, 49)
Me.Button25.TabIndex = 44
@@ -765,7 +768,7 @@ Partial Class usrctlProcedures
'
'Label10
'
Me.Label10.Location = New System.Drawing.Point(744, 192)
Me.Label10.Location = New System.Drawing.Point(579, 154)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(145, 13)
Me.Label10.TabIndex = 45
@@ -826,10 +829,43 @@ Partial Class usrctlProcedures
Me.Label13.TabIndex = 28
Me.Label13.Text = "Änderung bei vorh. Kd.:"
'
'Label14
'
Me.Label14.Location = New System.Drawing.Point(752, 102)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(145, 13)
Me.Label14.TabIndex = 53
Me.Label14.Text = "0/0"
Me.Label14.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'CheckBox4
'
Me.CheckBox4.AutoSize = True
Me.CheckBox4.Checked = True
Me.CheckBox4.CheckState = System.Windows.Forms.CheckState.Checked
Me.CheckBox4.Location = New System.Drawing.Point(756, 24)
Me.CheckBox4.Name = "CheckBox4"
Me.CheckBox4.Size = New System.Drawing.Size(98, 17)
Me.CheckBox4.TabIndex = 51
Me.CheckBox4.Text = "TESTSYSTEM"
Me.CheckBox4.UseVisualStyleBackColor = True
'
'Button27
'
Me.Button27.Location = New System.Drawing.Point(756, 50)
Me.Button27.Name = "Button27"
Me.Button27.Size = New System.Drawing.Size(145, 49)
Me.Button27.TabIndex = 50
Me.Button27.Text = "UNISPED MDB Importieren"
Me.Button27.UseVisualStyleBackColor = True
'
'usrctlProcedures
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.Label14)
Me.Controls.Add(Me.CheckBox4)
Me.Controls.Add(Me.Button27)
Me.Controls.Add(Me.TextBox12)
Me.Controls.Add(Me.TextBox11)
Me.Controls.Add(Me.TextBox10)
@@ -961,4 +997,7 @@ Partial Class usrctlProcedures
Friend WithEvents Label11 As Label
Friend WithEvents Label12 As Label
Friend WithEvents Label13 As Label
Friend WithEvents Label14 As Label
Friend WithEvents CheckBox4 As CheckBox
Friend WithEvents Button27 As Button
End Class

450
UID/usrctlProcedures.vb
View File

@@ -14,6 +14,7 @@ Imports System.Net
Imports System.Text
Imports System.Xml.Serialization
Imports System.Xml
Imports System.Data.OleDb
'Imports Microsoft.Office.Interop
@@ -345,7 +346,7 @@ Public Class usrctlProcedures
Dim font As XFont = New XFont("Verdana", 20, XFontStyle.Bold)
' Draw the text
gfx.DrawString("Hello, World!", font, XBrushes.Black, _
gfx.DrawString("Hello, World!", font, XBrushes.Black,
New XRect(0, 0, page.Width.Point, page.Height.Point), XStringFormats.Center)
' Save the document...
@@ -699,8 +700,8 @@ Public Class usrctlProcedures
WordDoc = WordApp.Documents.Open("C:\Users\DEVELOPER1\Desktop\test\Erstattungsschreiben DE.doc")
WordDoc.MailMerge.MainDocumentType = Word.WdMailMergeMainDocType.wdFormLetters
WordDoc.MailMerge.OpenDataSource(Name:="", _
Connection:="DSN=dbConn_DEVELOPER;DATABASE=VERAG;uid=sa;pwd=BmWr501956;", _
WordDoc.MailMerge.OpenDataSource(Name:="",
Connection:="DSN=dbConn_DEVELOPER;DATABASE=VERAG;uid=sa;pwd=BmWr501956;",
SQLStatement:="SELECT * FROM vwUstRueckerstattung ", SubType:=Microsoft.Office.Interop.Word.WdMergeSubType.wdMergeSubTypeWord2000)
'Provider=SQLOLEDB;Server=DEVELOPER\DEVSQL;Database=VERAG;uid=sa;Password=BmWr501956;
@@ -939,7 +940,7 @@ Public Class usrctlProcedures
' Copy the part of the original bitmap that we want
' into the bitmap.
Dim gr As Graphics = Graphics.FromImage(bm2)
gr.DrawImage(bm, 0, 0, New Rectangle(dx, dy, wid, hgt), _
gr.DrawImage(bm, 0, 0, New Rectangle(dx, dy, wid, hgt),
GraphicsUnit.Pixel)
Return bm2
End Function
@@ -1098,7 +1099,7 @@ Public Class usrctlProcedures
'' str(0) = (Convert.ToBase64String(System.IO.File.ReadAllBytes("C:\Users\DEVELOPER1\Desktop\sample.pdf")))
' str(1) = (Convert.ToBase64String(System.IO.File.ReadAllBytes("C:\Users\DEVELOPER1\Desktop\sample2.pdf")))
' Dim strt As New ArrayOfString()
' Dim xml_serializer As New XmlSerializer(GetType(List(Of Files)))
@@ -1181,7 +1182,7 @@ Public Class usrctlProcedures
'CHANGE HERE use the real path of the pdf physical path here.
'bline = System.IO.File.ReadAllBytes("C:\Users\DEVELOPER1\Desktop\sample.pdf")
str = (Convert.ToBase64String(System.IO.File.ReadAllBytes("C:\Users\DEVELOPER1\Desktop\sample.pdf")))
xml = "<?xml version=""1.0"" encoding=""utf-8""?> " &
" <soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" " &
" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" " &
@@ -1195,7 +1196,7 @@ Public Class usrctlProcedures
' string_writer.Close()
MsgBox(xml)
Dim data As String = Xml
Dim data As String = xml
Dim url As String = "http://localhost:64588/wsGetBrgData.asmx"
Dim responsestring As String = ""
@@ -1204,7 +1205,7 @@ Public Class usrctlProcedures
Dim proxyaddress As String
Dim myProxy As New WebProxy()
Dim encoding As New ASCIIEncoding
Dim buffer() As Byte = Encoding.GetBytes(Xml)
Dim buffer() As Byte = encoding.GetBytes(xml)
Dim response As String
myReq.AllowWriteStreamBuffering = False
@@ -1265,7 +1266,7 @@ Public Class usrctlProcedures
Dim cn As New SqlConnection()
cn.ConnectionString = My.Resources.connStringFMZOLL
cn.Open()
Using cmd As New SqlCommand(sql, cn)
Using cmd As New SqlCommand(sql, cn)
cmd.Parameters.AddWithValue("@kdnr", s.Trim)
Try
cmd.ExecuteNonQuery()
@@ -1337,7 +1338,7 @@ Public Class usrctlProcedures
'exec atlas.dbo.kundenstamm @ndl = 'SUB';
Private Function GetTimeInterval(ByVal nSeks As Long) As String
Private Function GetTimeInterval(ByVal nSeks As Long) As String
Dim h As Long, m As Long
Dim sInterv As String
@@ -1377,9 +1378,9 @@ Public Class usrctlProcedures
Public Sub SpeichernVermerk(NEWAVISOID As Integer, ByVal r As DataRow)
Dim hAuswahl As String
hAuswahl = "INSERT INTO Vermerke " &
"(AvisoID,VermerkArt,SendungID, Datum, Mitarbeiter, Hinweis_Vermerk, VermerkeCode,MitarbeiterId,Beschreibung) VALUES (@AvisoID,@VermerkArt, @SendungID, @Datum, @Mitarbeiter, @Hinweis_Vermerk, @VermerkeCode,@MitarbeiterId,@Beschreibung)"
Dim sql = hAuswahl
hAuswahl = "INSERT INTO Vermerke " &
"(AvisoID,VermerkArt,SendungID, Datum, Mitarbeiter, Hinweis_Vermerk, VermerkeCode,MitarbeiterId,Beschreibung) VALUES (@AvisoID,@VermerkArt, @SendungID, @Datum, @Mitarbeiter, @Hinweis_Vermerk, @VermerkeCode,@MitarbeiterId,@Beschreibung)"
Dim sql = hAuswahl
Dim conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionAVISO()
Using cmd As New SqlCommand(sql, conn)
@@ -1406,13 +1407,13 @@ Public Class usrctlProcedures
Public Function SpeichernAviso(ByVal r As DataRow) As Integer
Dim hAuswahl As String
Dim id As Integer = -1
'Neuanlage
hAuswahl = "INSERT INTO Aviso " &
"(Datum, LKW_Nr, Telefonisch, Änderungen, Info, Status, Auftraggeber, Frächter, letzterMitarbeiter, " &
"Vorbereitet,Vorgeschrieben, Ankunft, Freigabe, Dauer, AvisoEingang, Grenzstelle, LKW_fertig,letzterMitarbeiterId,Handling,Sendungen_Gesamtanzahl,Sammelakt,Frächter_KdNr,Auftraggeber_KdNr,AvisoTVHinweis,Buero,Imex,Abgeschlossen,FIRMA) VALUES (" &
"@Datum, @LKW_Nr, @Telefonisch, @Änderungen, @Info, @Status, @Auftraggeber, @Frächter, @letzterMitarbeiter, " &
"@Vorbereitet, @Vorgeschrieben, @Ankunft, @Freigabe, @Dauer, @AvisoEingang, @Grenzstelle, @LKW_fertig,@letzterMitarbeiterId,@Handling,@Sendungen_Gesamtanzahl,@Sammelakt,@Frächter_KdNr,@Auftraggeber_KdNr,@AvisoTVHinweis,@Buero,@Imex,@Abgeschlossen,@FIRMA); SELECT CAST(scope_identity() AS int);"
'Neuanlage
hAuswahl = "INSERT INTO Aviso " &
"(Datum, LKW_Nr, Telefonisch, Änderungen, Info, Status, Auftraggeber, Frächter, letzterMitarbeiter, " &
"Vorbereitet,Vorgeschrieben, Ankunft, Freigabe, Dauer, AvisoEingang, Grenzstelle, LKW_fertig,letzterMitarbeiterId,Handling,Sendungen_Gesamtanzahl,Sammelakt,Frächter_KdNr,Auftraggeber_KdNr,AvisoTVHinweis,Buero,Imex,Abgeschlossen,FIRMA) VALUES (" &
"@Datum, @LKW_Nr, @Telefonisch, @Änderungen, @Info, @Status, @Auftraggeber, @Frächter, @letzterMitarbeiter, " &
"@Vorbereitet, @Vorgeschrieben, @Ankunft, @Freigabe, @Dauer, @AvisoEingang, @Grenzstelle, @LKW_fertig,@letzterMitarbeiterId,@Handling,@Sendungen_Gesamtanzahl,@Sammelakt,@Frächter_KdNr,@Auftraggeber_KdNr,@AvisoTVHinweis,@Buero,@Imex,@Abgeschlossen,@FIRMA); SELECT CAST(scope_identity() AS int);"
Dim sql = hAuswahl
Dim conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionAVISO
Using cmd As New SqlCommand(sql, conn)
@@ -1542,10 +1543,10 @@ Public Class usrctlProcedures
End Try
End Function
Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click
Dim test = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTESTSYSTEMATLAS.Checked
@@ -1568,7 +1569,7 @@ Public Class usrctlProcedures
KD_AKTO.SAVE()
End If
If r("15 - Konto") IsNot DBNull.Value Then
Dim KD_AKTO As New VERAG_PROG_ALLGEMEIN.cKundenAufschubkonten(r("Kundennummer"), 15)
KD_AKTO.kdAkto_hauptzollamt = getHZA(r("15 - Konto"))
@@ -1651,14 +1652,14 @@ Public Class usrctlProcedures
Dim cnt = 1
'dim listAVISO = New List(Of cAviso)
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
Dim Excel1 As New Microsoft.Office.Interop.Excel.Application
' Dim txt As String
Try
' MsgBox("C:\Users\DEVELOPER1\Desktop\HUGOtest.xlsx")
Excel1.Workbooks.Open("C:\Users\DEVELOPER1\Desktop\HUGO Nicht importiert - Korrigierte KZ2.xlsx")
'Excel1.Visible = True ....wers braucht ?
' For i = 2 To 5
' MsgBox("A" & i & ":K" & i & "")
Dim cells = Excel1.Range("A2:K6")
@@ -1683,9 +1684,9 @@ Public Class usrctlProcedures
Finally
Excel1.Application.Quit()
End Try
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = test
End Sub
@@ -1779,7 +1780,7 @@ Public Class usrctlProcedures
Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(r("Kundennummer"))
If True Then
@@ -1916,7 +1917,7 @@ Public Class usrctlProcedures
Next
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = test
End Sub
Private Sub Button23_Click(sender As Object, e As EventArgs) Handles Button23.Click
MsgBox(Now.ToString("ddd"))
MsgBox(Now.ToString("ddd", New System.Globalization.CultureInfo("de-DE")).ToUpper)
@@ -2099,7 +2100,7 @@ Public Class usrctlProcedures
If KD.Besonderheiten <> getTrimedString(currentRow(22), 2000) Then TextBox12.Text &= kdnr & vbNewLine
End If
If cnt Mod 10 = 0 Then
If cnt Mod 10 = 0 Then
Application.DoEvents()
Label10.Text = (cnt + 1)
@@ -2108,8 +2109,8 @@ Public Class usrctlProcedures
Else
'MsgBox(currentRow(2))
End If
End If
End If
End If
'For Each currentField In currentRow
cnt += 1
@@ -2133,6 +2134,355 @@ Public Class usrctlProcedures
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = test
End Sub
Private Sub Button27_Click(sender As Object, e As EventArgs) Handles Button27.Click
Dim StartZeit As Date = DateTime.Now
Dim StopZeit As Date = DateTime.Now
Dim test = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = CheckBox4.Checked
Dim cnt = 0
'dim listAVISO = New List(Of cAviso)
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
Dim kdnr_tmp = ""
Try
Dim fd As New OpenFileDialog
If fd.ShowDialog = DialogResult.OK Then
If fd.FileName.ToUpper.EndsWith(".MDB") Then
'Dim Datenbank As OleDbConnection
'Dim DaHeadertest As OleDbDataAdapter
'Dim DsHeadertest As DataSet
'Datenbank = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & fd.FileName)
'DaHeadertest = New OleDbDataAdapter("show tables", Datenbank)
'DsHeadertest = New DataSet
'DaHeadertest.Fill(DsHeadertest)
'For Each dr As System.Data.DataRow In DsHeadertest.Tables("KundenKartei").Rows
' MessageBox.Show(dr(1))
'Next
'Exit Sub
Dim Datenbank As OleDbConnection
Dim DaHeadertest As OleDbDataAdapter
Dim DsHeadertest As DataSet
' MsgBox("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & fd.FileName)
' Datenbank = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & fd.FileName)
Datenbank = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & fd.FileName)
' cGlobal.ConnStr = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & pfadDatei
'DaHeadertest = New OleDbDataAdapter("show tables", Datenbank)
'DsHeadertest = New DataSet
'DaHeadertest.Fill(DsHeadertest)
'For Each dr As System.Data.DataRow In DsHeadertest.Tables("Kunden Kartei").Rows
' MessageBox.Show(dr(1))
'Next
Dim query = "SELECT * FROM KundenKartei"
Dim Table_ = "KundenKartei"
Dim ds As New DataSet
Dim cnn As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & fd.FileName)
cnn.Open()
Dim cmd As New OleDbCommand(query, cnn)
Dim da As New OleDbDataAdapter(cmd)
da.Fill(ds, Table_)
cnn.Close()
Dim t1 As DataTable = ds.Tables(Table_)
Dim row As DataRow
Dim Item(2) As String
For Each row In t1.Rows
Dim kdnr As Integer = 2000000
If IsNumeric(row("Debitorennr")) Then
kdnr += CInt(row("Debitorennr"))
Else
kdnr += CInt(row("Kundennummer"))
End If
Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(kdnr)
If Not KD.hasEntry Then
' MsgBox(kdnr)
Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(kdnr)
Dim KDE As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdnr)
AD.Auswahl = If(CBool(row("gelöscht")), "I", "A")
AD.Ordnungsbegriff = row("Kundencode").ToString.ToUpper
AD.Name_1 = getTrimedStringACCES(row("Name"), 40)
AD.Name_2 = isleernothing(getTrimedStringACCES(row("Gesellschaft"), 40))
If AD.Name_1 = "" Then AD.Name_1 = AD.Ordnungsbegriff
AD.Straße = isleernothing(getTrimedStringACCES(row("Straße"), 40))
AD.Ort = isleernothing(getTrimedStringACCES(row("Ort"), 40))
AD.PLZ = isleernothing(getTrimedStringACCES(row("PLZ"), 7))
AD.LandKz = isleernothing(getTrimedStringACCES(row("Land"), 3))
AD.Telefon = isleernothing(getTrimedStringACCES(row("Telefonnr"), 20))
AD.Mobiltelefon = isleernothing(getTrimedStringACCES(row("Mobil"), 20))
AD.Telefax = isleernothing(getTrimedStringACCES(row("Faxnr"), 20))
AD.E_Mail = isleernothing(getTrimedStringACCES(row("Email1"), 40).ToString.Replace("mailto:", "").Replace("#", ""))
AD.E_Mail2 = isleernothing(getTrimedStringACCES(row("Email2"), 40).ToString.Replace("mailto:", "").Replace("#", ""))
' AD. = row("Internet1")
AD.Ansprechpartner = isleernothing(getTrimedStringACCES(row("Ansprechpartner"), 40))
KD.Währungscode = "EUR" 'getTrimedStringACCES(row("Standard FakturenWährung"), 3)
KD.Zahlungsziel = getTrimedStringACCES(row("Zahlungsziel"), 3)
' Offerte ??
Dim Allg = ""
If getTrimedStringACCES(row("ÖVZ"), 9999) <> "" Then Allg &= "Offert ÖVZ: " & getTrimedStringACCESEUR(row("ÖVZ"), 99999) & vbNewLine
If getTrimedStringACCES(row("ÖVZ_Fiskal"), 9999) <> "" Then Allg &= "Offert ÖVZ_Fiskal: " & getTrimedStringACCESEUR(row("ÖVZ_Fiskal"), 99999) & vbNewLine
If getTrimedStringACCES(row("DVZ"), 9999) <> "" Then Allg &= "Offert DVZ: " & getTrimedStringACCESEUR(row("DVZ"), 99999) & vbNewLine
If getTrimedStringACCES(row("DVZ_Fiskal"), 9999) <> "" Then Allg &= "Offert DVZ_Fiskal: " & getTrimedStringACCESEUR(row("DVZ_Fiskal"), 99999) & vbNewLine
If getTrimedStringACCES(row("T1"), 9999) <> "" Then Allg &= "Offert T1: " & getTrimedStringACCESEUR(row("T1"), 99999) & vbNewLine
If getTrimedStringACCES(row("AE"), 9999) <> "" Then Allg &= "Offert AE: " & getTrimedStringACCESEUR(row("AE"), 99999) & vbNewLine
If getTrimedStringACCES(row("AE_ATR"), 9999) <> "" Then Allg &= "Offert AE_ATR: " & getTrimedStringACCESEUR(row("AE_ATR"), 99999) & vbNewLine
If getTrimedStringACCES(row("eZoll_Zuschlag"), 9999) <> "" Then Allg &= "Offert eZoll_Zuschlag: " & getTrimedStringACCESEUR(row("eZoll_Zuschlag"), 99999) & vbNewLine
If getTrimedStringACCES(row("Atlas_Zuschlag"), 9999) <> "" Then Allg &= "Offert Atlas_Zuschlag: " & getTrimedStringACCESEUR(row("Atlas_Zuschlag"), 99999) & vbNewLine
If getTrimedStringACCES(row("TNR_Zuschlag"), 9999) <> "" Then Allg &= "Offert TNR_Zuschlag: " & getTrimedStringACCESEUR(row("TNR_Zuschlag"), 99999) & vbNewLine
If getTrimedStringACCES(row("TNR_Zuschlag_Hinweis"), 9999) <> "" Then Allg &= "Offert TNR_Zuschlag_Hinweis: " & getTrimedStringACCESEUR(row("TNR_Zuschlag_Hinweis"), 99999) & vbNewLine
If getTrimedStringACCES(row("TNR_Zuschlag_Hinweis"), 9999) <> "" Then Allg &= "Offert TNR_Zuschlag_Hinweis: " & getTrimedStringACCESEUR(row("TNR_Zuschlag_Hinweis"), 99999) & vbNewLine
If getTrimedStringACCES(row("Porti"), 9999) <> "" Then Allg &= "Offert Porti: " & getTrimedStringACCESEUR(row("Porti"), 99999) & vbNewLine
If getTrimedStringACCES(row("SKR"), 9999) <> "" Then Allg &= "Offert SKR: " & getTrimedStringACCESEUR(row("SKR"), 99999) & vbNewLine
If getTrimedStringACCES(row("Vorlage"), 9999) <> "" Then Allg &= "Offert Vorlage: " & getTrimedStringACCESEUR(row("Vorlage"), 99999) & vbNewLine
If getTrimedStringACCES(row("Bargeldbeistellung"), 9999) <> "" Then Allg &= "Offert Bargeldbeistellung: " & getTrimedStringACCESEUR(row("Bargeldbeistellung"), 99999) & vbNewLine
If getTrimedStringACCES(row("Vorlage"), 9999) <> "" Then Allg &= "Offert Vorlage: " & getTrimedStringACCESEUR(row("Vorlage"), 99999) & vbNewLine
If getTrimedStringACCES(row("Abrechnungssätze_Anmerkungen"), 9999) <> "" Then Allg &= "Abrechnung: " & getTrimedStringACCES(row("Abrechnungssätze_Anmerkungen"), 99999) & vbNewLine
If getTrimedStringACCES(row("Abfertigungsort"), 9999) <> "" Then Allg &= "Abfertigungsort: " & getTrimedStringACCES(row("Abfertigungsort"), 99999) & vbNewLine
If getTrimedStringACCES(row("Handelsregisterauszug"), 9999) <> "" Then Allg &= "Handelsregisterauszug: " & getTrimedStringACCES(row("Handelsregisterauszug"), 99999) & vbNewLine
If getTrimedStringACCES(row("Passkopie"), 9999) <> "" Then Allg &= "Passkopie: " & getTrimedStringACCES(row("Passkopie"), 99999) & vbNewLine
If (IsNumeric(getTrimedStringACCES(row("Creditreform_Rating"), 3))) Then KD.Bonität = getTrimedStringACCES(row("Creditreform_Rating"), 3)
If (IsDate(getTrimedStringACCES(row("Creditreform_Abfrage_Datum"), 99999))) Then KD.Bonitätsdatum = getTrimedStringACCES(row("Creditreform_Abfrage_Datum"), 99999)
If getTrimedStringACCES(row("Creditreform_Zahlungsziel"), 9999) <> "" Then Allg &= "Creditreform_Zahlungsziel: " & getTrimedStringACCES(row("Creditreform_Zahlungsziel"), 99999) & vbNewLine
If getTrimedStringACCES(row("Creditreform_Anmerkung"), 9999) <> "" Then Allg &= "Creditreform_Anmerkung: " & getTrimedStringACCES(row("Creditreform_Anmerkung"), 99999) & vbNewLine
If IsNumeric(getTrimedStringACCES(row("Creditreform_Höchstkredit"), 9999)) Then KD.Höchstkredit = CDbl(getTrimedStringACCES(row("Creditreform_Höchstkredit"), 9999))
If getTrimedStringACCES(row("UmsatzsteuerID"), 9999).Replace(" ", "").Length > 4 Then
Dim ustTmp = getTrimedStringACCES(row("UmsatzsteuerID"), 9999).Replace(" ", "")
Dim UST_Land = ustTmp.Substring(0, 2)
Dim UST_NR = ustTmp.Substring(2)
AD.UstIdKz = UST_Land
AD.UstIdNr = UST_NR
End If
If AD.doesOrdnungsbegriffExist Then
AD.Ordnungsbegriff = getTrimedStringACCES(AD.Ordnungsbegriff, 43) & " (UNISPED)"
End If
KD.Zollnummer = isleernothing(getTrimedStringACCES(getTrimedStringACCES(row("ZollNr"), 99).Replace(" ", ""), 7))
KD.EORITIN = isleernothing(getTrimedStringACCES(getTrimedStringACCES(row("EORINr"), 99).Replace(" ", ""), 17))
If getTrimedStringACCES(row("Abgabenkonto"), 9999) <> "" Then Allg &= "Abgabenkonto: " & getTrimedStringACCES(row("Abgabenkonto"), 99999) & vbNewLine
If getTrimedStringACCES(row("Aufschubkonto_EUST"), 9999) <> "" Then Allg &= "Aufschub-EUST: " & getTrimedStringACCES(row("Aufschubkonto_EUST"), 99999) & vbNewLine
If getTrimedStringACCES(row("Aufschubkonto_ZOLL"), 9999) <> "" Then Allg &= "Aufschub-ZOLL: " & getTrimedStringACCES(row("Aufschubkonto_ZOLL"), 99999) & vbNewLine
If CBool(row("Aufschub_BIN")) Then Allg &= "Aufschub-BIN: JA" & vbNewLine
AD.Steuernummer = isleernothing(getTrimedStringACCES(row("Steuernr_AT"), 20))
If getTrimedStringACCES(row("Steuernr_DE"), 9999) <> "" Then Allg &= "Steuernummer-DE: " & getTrimedStringACCES(row("Steuernr_DE"), 99999) & vbNewLine
If getTrimedStringACCES(row("Vollmacht_ÖVZ"), 9999) <> "" Then Allg &= "Vollmacht_ÖVZ: " & getTrimedStringACCES(row("Vollmacht_ÖVZ"), 99999) & vbNewLine
If getTrimedStringACCES(row("Vollmacht_ÖVZ_Fiskal"), 9999) <> "" Then Allg &= "Vollmacht_ÖVZ_Fiskal: " & getTrimedStringACCES(row("Vollmacht_ÖVZ_Fiskal"), 99999) & vbNewLine
If getTrimedStringACCES(row("Erwerbssteuer"), 9999) <> "" Then Allg &= "Erwerbssteuer: " & getTrimedStringACCES(row("Erwerbssteuer"), 99999) & vbNewLine
If getTrimedStringACCES(row("Vollmacht_DVZ"), 9999) <> "" Then Allg &= "Vollmacht_DVZ: " & getTrimedStringACCES(row("Vollmacht_DVZ"), 99999) & vbNewLine
If getTrimedStringACCES(row("Vollmacht_DVZ_Fiskal"), 9999) <> "" Then Allg &= "Vollmacht_DVZ_Fiskal: " & getTrimedStringACCES(row("Vollmacht_DVZ_Fiskal"), 99999) & vbNewLine
If getTrimedStringACCES(row("Vollmacht_AE"), 9999) <> "" Then Allg &= "Vollmacht_AE: " & getTrimedStringACCES(row("Vollmacht_AE"), 99999) & vbNewLine
If getTrimedStringACCES(row("Vollmacht_AE_ATR"), 9999) <> "" Then Allg &= "Vollmacht_AE_ATR: " & getTrimedStringACCES(row("Vollmacht_AE_ATR"), 99999) & vbNewLine
If getTrimedStringACCES(row("Vollmachten_Anmerkungen"), 9999) <> "" Then Allg &= "Vollmachten_Anmerkungen: " & getTrimedStringACCES(row("Vollmachten_Anmerkungen"), 99999) & vbNewLine
If getTrimedStringACCES(row("Zoll_Anmerkungen"), 9999) <> "" Then Allg &= "Zoll_Anmerkungen: " & getTrimedStringACCES(row("Zoll_Anmerkungen"), 99999) & vbNewLine
If getTrimedStringACCES(row("Zoll_Anmerkungen_Fiskal"), 9999) <> "" Then Allg &= "Zoll_Anmerkungen_Fiskal: " & getTrimedStringACCES(row("Zoll_Anmerkungen_Fiskal"), 99999) & vbNewLine
If getTrimedStringACCES(row("Fiskal_Anmerkungen"), 9999) <> "" Then Allg &= "Fiskal_Anmerkungen: " & getTrimedStringACCES(row("Fiskal_Anmerkungen"), 99999) & vbNewLine
KD.Abfertigungsverbot = CBool(row("Arbeitsverbot"))
KD.Abfertigungsverbot_Grund = isleernothing((getTrimedStringACCES(row("Arbeitsverbot_Anmerkung"), 9999) & vbNewLine & getTrimedStringACCES(row("Anmerkungen_einblenden"), 9999)).Trim)
If CBool(row("Mahnsperre")) Then Allg &= "Mahnsperre: JA" & vbNewLine
If CBool(row("Rechnung_per_Email")) Then Allg &= "Rechnung_per_Email: JA" & vbNewLine
' Rechnung_per_Email
If getTrimedStringACCES(row("Fiskal_Email_Monatsauswertung_Versand"), 9999) <> "" Then Allg &= "Fiskal_Email_Monatsauswertung_Versand: " & getTrimedStringACCES(row("Fiskal_Email_Monatsauswertung_Versand"), 99999) & vbNewLine
If getTrimedStringACCES(row("Fiskal_Ansprechpartner"), 9999) <> "" Then Allg &= "Fiskal_Ansprechpartner: " & getTrimedStringACCES(row("Fiskal_Ansprechpartner"), 99999) & vbNewLine
If getTrimedStringACCES(row("eZoll_AdressID"), 9999) <> "" Then Allg &= "eZoll_AdressID: " & getTrimedStringACCES(row("eZoll_AdressID"), 99999) & vbNewLine
If getTrimedStringACCES(row("Geschäftszweig"), 9999) <> "" Then Allg &= "Geschäftszweig: " & getTrimedStringACCES(row("Geschäftszweig"), 99999) & vbNewLine
If CBool(row("Rechnung_per_Email")) Then Allg &= "Rechnung_per_Email: JA" & vbNewLine
' If getTrimedStringACCES(row("Rechnung_per_Email"), 9999) <> "" Then Allg &= "Rechnung_per_Email: " & getTrimedStringACCES(row("Rechnung_per_Email"), 99999) & vbNewLine
If getTrimedStringACCES(row("Email_Rechnungsversand"), 9999) <> "" Then Allg &= "Email_Rechnungsversand: " & getTrimedStringACCES(row("Email_Rechnungsversand"), 99999) & vbNewLine
If getTrimedStringACCES(row("Steuerberater"), 9999) <> "" Then Allg &= "Steuerberater: " & getTrimedStringACCES(row("Steuerberater"), 99999) & vbNewLine
If getTrimedStringACCES(row("Verbundenheit"), 9999) <> "" Then Allg &= "Verbundenheit: " & getTrimedStringACCES(row("Verbundenheit"), 99999) & vbNewLine
If CBool(row("Unternehmerbescheinigung")) Then Allg &= "Unternehmerbescheinigung: JA" & vbNewLine
If getTrimedStringACCES(row("Unternehmerbescheinigung_Anmerkung"), 9999) <> "" Then Allg &= "Unternehmerbescheinigung_Anmerkung: " & getTrimedStringACCES(row("Unternehmerbescheinigung_Anmerkung"), 99999) & vbNewLine
If getTrimedStringACCES(row("Zahlungsbedingungen"), 9999) <> "" Then Allg &= "Zahlungsbedingungen: " & getTrimedStringACCES(row("Zahlungsbedingungen"), 99999) & vbNewLine
If getTrimedStringACCES(row("Lieferbedingungen"), 9999) <> "" Then Allg &= "Lieferbedingungen: " & getTrimedStringACCES(row("Lieferbedingungen"), 99999) & vbNewLine
' If getTrimedStringACCES(row("KDE"), 9999) <> "" Then Allg &= "Anmerkungen_Warnhinweis: " & getTrimedStringACCES(row("Anmerkungen_Warnhinweis"), 99999) & vbNewLine
KDE.Anmerkungen_Warnhinweis = getTrimedStringACCES(row("Anmerkungen_Warnhinweis"), 9999)
If CBool(row("Post1")) Then Allg &= "Post1: JA" & vbNewLine
' AD.Eingegeben_am = CDate(row("erstellt"))
If IsDate(row("zuletzt_geändert")) Then AD.Geändert_am = CDate(row("zuletzt_geändert"))
' KD.Eingegeben_am = CDate(row("erstellt"))
If IsDate(row("zuletzt_geändert")) Then KD.Geändert_am = CDate(row("zuletzt_geändert"))
AD.Sachbearbeiter = If(getTrimedStringACCES(row("User_zuletzt_geändert"), 99999) <> "", getTrimedStringACCES(row("User_zuletzt_geändert"), 99999), getTrimedStringACCES(row("User"), 99999))
KD.Sachbearbeiter = If(getTrimedStringACCES(row("User_zuletzt_geändert"), 99999) <> "", getTrimedStringACCES(row("User_zuletzt_geändert"), 99999), getTrimedStringACCES(row("User"), 99999))
KD.KundenNrZentrale = KD.KundenNr
KD.FilialenNr = 5601
If KD.Sachbearbeiter = "" Then KD.Sachbearbeiter = "AUTO"
KD.Währungscode = "EUR"
KD.Eingegeben_am = Now.ToShortDateString
' AD.Ordnungsbegriff = getTrimedString(AD.Name_1 & "; " & AD.Ort, 50)
If AD.Sachbearbeiter = "" Then AD.Sachbearbeiter = "AUTO"
AD.Eingegeben_am = Now.ToShortDateString
AD.LandKz = isleernothing(cProgramFunctions.getISO1Land(AD.LandKz))
AD.Rechnungsdruck = True
If KD.EORITIN = "" Then KD.EORITIN = Nothing
KD.Vorlageprovision = 0.01
KD.Kreditaufwendungen = 0.02
KD.Bankspesen = 0
KD.SVS = True
KD.Bankspesen_Mindestbetrag = 0
KD.Sammelrechnung = 0
KD.Steuerschlüssel = 10
KD.Kreditlimit = 2600
KD.Überwachungskunde = 0
KD.Abfertigungsverbot = 0
KD.Rechtsanwalt = 0
KD.Euroeinführung = CDate("01.01.2002")
KD.UStV_Summe3470BetragEUR = 0
KD.UStV_SummeErstattungsbetragEUR = 0
KD.UStV_SummeVorschaubetragEUR = 0
KD.UStV_SummeVorschaubetragEUR_IDS = 0
KD.UStV_SummeVorschaubetragEUR_VERAG = 0
KD.UStV_SummeUmsatzsteuerbetragEUR = 0
KD.UStV_SummeVZBetragEUR = 0
KD.Fiskal_Aktiv = 0
If Allg <> "" Then Allg &= vbNewLine & "____________________________________________________________" & vbNewLine
KD.Besonderheiten = isleernothing((Allg & getTrimedStringACCES(row("Sonstiges"), 99999)).Trim)
Dim KDKont As New VERAG_PROG_ALLGEMEIN.cKundenKontakte()
KDKont.kkd_KundenNr = kdnr
KDKont.kkd_kkaId = 10
KDKont.kkd_kkaBez = "Fiskal"
KDKont.kkd_Tel = isleernothing(getTrimedStringACCES(row("Fiskal_Telefon"), 40))
KDKont.kkd_Email = isleernothing(getTrimedStringACCES(row("Fiskal_Email1"), 40) & ";" & getTrimedStringACCES(row("Fiskal_Email2"), 40) & ";" & getTrimedStringACCES(row("Fiskal_Email3"), 40))
' If (KDKont.kkd_Email.replace(";;", "") = "") Then KDKont.kkd_Email = ""
KDKont.kkd_Email = KDKont.kkd_Email.replace(";;", ";")
KDKont.kkd_Email = isleernothing(KDKont.kkd_Email)
KDKont.kkd_Fax = isleernothing(getTrimedStringACCES(row("Fiskal_Faxnr"), 40))
KDKont.kkd_Mobil = isleernothing(getTrimedStringACCES(row("Fiskal_Mobil"), 40))
KDKont.kkd_AnsprechpartnerVorname = isleernothing(getTrimedStringACCES(row("Fiskal_Ansprechpartner"), 40))
If AD.SAVE() AndAlso KD.SAVE() AndAlso KDE.SAVE() Then
VERAG_PROG_ALLGEMEIN.cKundenKontakte.DELETE_ALL_KONTAKTE(kdnr) 'alle Löschen!
KDKont.SAVE()
If getTrimedStringACCES(row("Email3"), 9999) <> "" Then insertKontakt(kdnr, getTrimedStringACCES(row("Email3"), 50).ToString.Replace("mailto:", "").Replace("#", ""), "Email3")
If getTrimedStringACCES(row("EmailABD1"), 9999) <> "" Then insertKontakt(kdnr, getTrimedStringACCES(row("EmailABD1"), 30), "ABD01")
If getTrimedStringACCES(row("EmailABD2"), 9999) <> "" Then insertKontakt(kdnr, getTrimedStringACCES(row("EmailABD2"), 30), "ABD02")
If getTrimedStringACCES(row("EmailABD3"), 9999) <> "" Then insertKontakt(kdnr, getTrimedStringACCES(row("EmailABD3"), 30), "ABD03")
TextBox10.Text &= AD.AdressenNr & " " & AD.Ordnungsbegriff & vbNewLine
Else
MsgBox("FEHLER: " & kdnr)
End If
' AD.XXXXXXXXX = getTrimedStringACCES(row("XXXXXXXXXXXXXXXXXX"), 99999)
End If
'Item(0) = row(0)
'Item(1) = row(1)
'Dim NextListItem As New ListViewItem(Item)
'ListView1.Items.Add(NextListItem)
cnt += 1
Label14.Text = cnt
Me.Refresh()
Next
End If
End If
Catch ex As Exception
MessageBox.Show(ex.Message & ex.StackTrace)
Finally
End Try
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = test
End Sub
Sub insertKontakt(kdnr, kkd_Email, kkd_AnsprechpartnerVorname)
Dim KDKont As New VERAG_PROG_ALLGEMEIN.cKundenKontakte()
KDKont.kkd_KundenNr = kdnr
KDKont.kkd_kkaId = 1
KDKont.kkd_kkaBez = "Allgemein"
KDKont.kkd_Email = kkd_Email
KDKont.kkd_AnsprechpartnerVorname = KDKont.kkd_AnsprechpartnerVorname
KDKont.SAVE()
End Sub
Function getTrimedString(s As String, l As Integer) As String
Try
If s Is Nothing Then Return ""
@@ -2146,6 +2496,42 @@ Public Class usrctlProcedures
End Try
Return ""
End Function
Function getTrimedStringACCES(s As Object, l As Integer) As String
Try
If s Is Nothing Then Return ""
If s Is DBNull.Value Then Return ""
If s.ToString.Length > l Then
Return s.Substring(0, l)
End If
Return s
Catch ex As Exception
MsgBox("getTrimedString: " & ex.Message & ex.StackTrace)
End Try
Return ""
End Function
Function getTrimedStringACCESEUR(s As Object, l As Integer) As String
Try
If s Is Nothing Then Return ""
If s Is DBNull.Value Then Return ""
If s.ToString.Length > l Then
Return s.Substring(0, l)
End If
If IsNumeric(s) Then
Return CDbl(s).ToString("C2")
End If
Return s
Catch ex As Exception
MsgBox("getTrimedString: " & ex.Message & ex.StackTrace)
End Try
Return ""
End Function
Private Sub Button25_Click(sender As Object, e As EventArgs) Handles Button25.Click
Dim StartZeit As Date = DateTime.Now
@@ -2364,6 +2750,8 @@ Public Class usrctlProcedures
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = test
End Sub
'Private Sub Button26_Click(sender As Object, e As EventArgs)
' For Each d In System.IO.Directory.GetDirectories("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\Nachrichtendaten_Ablage\2019")
' Dim fi As New FileInfo(d)