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

ADMIN UsrParam, DHF Import

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-08-20 21:32:46 +02:00
parent c0984d7145
commit 01a8f1f7ad
13 changed files with 455 additions and 328 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
UID/Programme/frmProgDetails.vb
View File

@@ -35,10 +35,15 @@ Public Class frmProgDetails
Dim daten As cProgramm = Nothing
' daten = New cProgramm
daten = PROG.getProgrammByCodeName(codename)
txtSourcePfad.Text = daten.prog_source_path
txtSourcePfad.Text = getSourcePath()
txtDevPfad.Text = daten.prog_dev_path
txtProdPfad.Text = daten.prog_prod_path
txtInstallSourcePfad.Text = daten.prog_installer_source_path
txtInstallSourcePfad.Text = getSourceInstallPath() ' daten.prog_installer_source_path
txtInstallDevPfad.Text = daten.prog_installer_dev_path
txtInstallProdPfad.Text = daten.prog_installer_prod_path
txtVersion.Text = daten.prog_aktuelleVersion
@@ -70,6 +75,14 @@ Public Class frmProgDetails
End Sub
Function getSourcePath() As String
'PROG_initPath_AVISO
Return VERAG_PROG_ALLGEMEIN.cMitarbeiter.GetUserParam("PROG_initPath_" & codename.Replace("AVISO_NEW", "AVISO"),, "")
End Function
Function getSourceInstallPath() As String
'PROG_initInstallPath_AVISO
Return VERAG_PROG_ALLGEMEIN.cMitarbeiter.GetUserParam("PROG_initInstallPath_" & codename.Replace("AVISO_NEW", "AVISO"),, "")
End Function
Private Sub btnVersionAkt_Click(sender As Object, e As EventArgs) Handles btnVersionAkt.Click
PROG.setProgrammVersion(codename, txtVersion.Text)
init()
@@ -135,10 +148,10 @@ Public Class frmProgDetails
daten.prog_name = txtProgramName.Text
daten.prog_aktuelleVersion = txtVersion.Text
daten.prog_info = txtInfo.Text
daten.prog_source_path = txtSourcePfad.Text
' daten.prog_source_path = txtSourcePfad.Text
daten.prog_dev_path = txtDevPfad.Text
daten.prog_prod_path = txtProdPfad.Text
daten.prog_installer_source_path = txtInstallSourcePfad.Text
' daten.prog_installer_source_path = txtInstallSourcePfad.Text
daten.prog_installer_dev_path = txtInstallDevPfad.Text
daten.prog_installer_prod_path = txtInstallProdPfad.Text