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

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