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
2020-09-23 07:24:25 +02:00
parent 89d8e0a3a8
commit ce31c2c398
84 changed files with 4953 additions and 554 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
VERAG_PROG_ALLGEMEIN/Classes/cTextkonserve.vb
View File

@@ -9,6 +9,8 @@ Public Class cTextkonserve
Property txt_sprache As String
Property txt_text As String
Property txt_betreff As String
Property txt_FIRMA As String
Property txt_firmaSig As Integer = 1
Public hasEntry As Boolean = False
@@ -25,12 +27,13 @@ Public Class cTextkonserve
' End If
End Sub
Sub New(txt_kategorie, txt_bezeichnung, txt_sprache)
Sub New(txt_kategorie, txt_bezeichnung, txt_sprache, txt_FIRMA)
' If txt_Id IsNot Nothing Then
Me.txt_kategorie = txt_kategorie
Me.txt_bezeichnung = txt_bezeichnung
Me.txt_sprache = txt_sprache
LOAD(txt_kategorie, txt_bezeichnung, txt_sprache)
Me.txt_FIRMA = txt_FIRMA
LOAD(txt_kategorie, txt_bezeichnung, txt_sprache, txt_FIRMA)
' End If
End Sub
@@ -44,6 +47,8 @@ Public Class cTextkonserve
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_sprache", txt_sprache))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_text", txt_text))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_betreff", txt_betreff))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_FIRMA", txt_FIRMA))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_firmaSig", txt_firmaSig))
Return list
End Function
@@ -90,13 +95,14 @@ Public Class cTextkonserve
End Sub
Public Sub LOAD(txt_kategorie, txt_bezeichnung, txt_sprache)
Public Sub LOAD(txt_kategorie, txt_bezeichnung, txt_sprache, txt_FIRMA)
Try
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL
Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblTextkonserve WHERE txt_kategorie=@txt_kategorie AND txt_bezeichnung=@txt_bezeichnung AND txt_sprache=@txt_sprache ", conn)
Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblTextkonserve WHERE txt_kategorie=@txt_kategorie AND txt_bezeichnung=@txt_bezeichnung AND txt_sprache=@txt_sprache AND txt_FIRMA=@txt_FIRMA ", conn)
cmd.Parameters.AddWithValue("@txt_kategorie", txt_kategorie)
cmd.Parameters.AddWithValue("@txt_bezeichnung", txt_bezeichnung)
cmd.Parameters.AddWithValue("@txt_sprache", txt_sprache)
cmd.Parameters.AddWithValue("@txt_FIRMA", txt_FIRMA)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()