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

Feature_SDL_Klassen angepasst.

Browse Source
This commit is contained in:
d.breimaier
2022-10-19 08:07:37 +02:00
parent d801077830
commit ca38d26017
2 changed files with 16 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
VERAG_PROG_ALLGEMEIN/Classes/cGesamtssicherheitsPositionen.vb → VERAG_PROG_ALLGEMEIN/Classes/cGesamtsicherheitsPositionen.vb
View File

@@ -1,7 +1,7 @@
Imports System.Data.SqlClient Imports System.Data.SqlClient
Imports System.Reflection Imports System.Reflection
Public Class cGesamtssicherheitsPositionen Public Class cGesamtsicherheitsPositionen
Property gsp_gspPosId As Integer Property gsp_gspPosId As Integer
Property gsp_gsId As Object = Nothing Property gsp_gsId As Object = Nothing
@@ -26,6 +26,11 @@ Public Class cGesamtssicherheitsPositionen
Me.gsp_gspPosId = gsp_gspPosId Me.gsp_gspPosId = gsp_gspPosId
LOAD() LOAD()
End Sub End Sub
Sub New()
End Sub
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gsp_gspPosId", gsp_gspPosId,, True)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gsp_gspPosId", gsp_gspPosId,, True))
@@ -124,10 +129,10 @@ Public Class cGesamtssicherheitsPositionen
values = values.Substring(0, values.Length - 1) 'wg. ',' values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO [tblGesamtsicherheitsPositionen] (" & str & ") VALUES(" & values & ") ") Return (" INSERT INTO [tblGesamtsicherheitsPositionen] (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try End Try
Return "" Return ""
End Function End Function

6
VERAG_PROG_ALLGEMEIN/cSicherheiten.vb
View File

@@ -21,6 +21,9 @@ Public Class cSicherheiten
Property gs_LKWID As String Property gs_LKWID As String
Property gs_atr As String = "" Property gs_atr As String = ""
Property gs_warenort As String Property gs_warenort As String
Property gs_warenwertFix As Object
Property gs_sicherheitsbetragFix As Object
Property gs_zollsatz As Object
Public hasEntry = False Public hasEntry = False
@@ -54,6 +57,9 @@ Public Class cSicherheiten
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gs_LKWID", gs_LKWID)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gs_LKWID", gs_LKWID))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gs_atr", gs_atr)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gs_atr", gs_atr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gs_warenort", gs_warenort)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gs_warenort", gs_warenort))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gs_warenwertFix", gs_warenwertFix))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gs_sicherheitsbetragFix", gs_sicherheitsbetragFix))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gs_zollsatz", gs_zollsatz))
Return list Return list
End Function End Function