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

Datenarchiv, Pose, StartOptions, EZOLL-Einarbeitung, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-03-02 08:37:12 +01:00
parent 087f39f981
commit 918386d7ea
6 changed files with 1236 additions and 1092 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
UID/usrCntlDatenarchiv.vb
View File

@@ -51,8 +51,8 @@ Public Class usrCntlDatenarchiv
Function getDatenarchivwhere() As String
Dim sqlstr = ""
If cboPartnersystem._value <> "" Then sqlstr &= " AND [Param_system] = '" & cboPartnersystem._value & "'"
Dim sqlstr = " and Param_testsystem = " & IIf(cbxTestsystem.Checked, "1 ", "0 ")
If cboPartnersystem._value <> "" Then sqlstr &= " And [Param_system] = '" & cboPartnersystem._value & "'"
Return sqlstr
End Function
@@ -74,7 +74,7 @@ Public Class usrCntlDatenarchiv
Private Sub cbxProduktivsystem_CheckedChanged(sender As Object, e As EventArgs) Handles cbxTestsystem.CheckedChanged
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
'VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
DatenarchivBind = New cEasyBinding(BIND_DB)