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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-07-08 08:12:43 +02:00
parent 697b78e3c9
commit 7f5057dc3e
121 changed files with 8039 additions and 19322 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
VERAG_PROG_ALLGEMEIN/Classes/cTranslate.vb
View File

@@ -14,7 +14,7 @@ Public Class cTranslate_LIST
Public Sub LOAD()
Try
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM tblTranslate WHERE trs_progId=@trs_progId ", conn)
Using cmd As New SqlCommand("SELECT * FROM tblTranslate WHERE trs_progId=@trs_progId and [trs_active]=1 ", conn)
cmd.Parameters.AddWithValue("@trs_progId", trs_progId)
Dim dr = cmd.ExecuteReader()
While dr.Read
@@ -91,7 +91,7 @@ Public Class cTranslate
Try
hasEntry = False
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM tblTranslate WHERE trs_id=@trs_id ", conn)
Using cmd As New SqlCommand("SELECT * FROM tblTranslate WHERE trs_id=@trs_id AND [trs_active]=1 ", conn)
cmd.Parameters.AddWithValue("@trs_id", trs_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then