edv/ADMIN
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-05-31 22:26:21 +02:00
parent a40477b387
commit 6e3e35ac70
37 changed files with 2287 additions and 437 deletions
Download Patch File Download Diff File Expand all files Collapse all files

350
TELOTEK_Worker_lib/cTelokec.vb
View File

@@ -55,7 +55,7 @@ Public Class cTelotec_Anmeldung
Property Hea_PayMet As Object = Nothing ' INT NULL,
Property Hea_AExpRef As Object = Nothing ' BIT NULL,
Property Hea_Fin As Object = Nothing ' VARCHAR(2) NULL,
Property Hea_Simp As Object = Nothing ' BIT Not NULL,
Property Hea_Simp As Boolean = False ' BIT Not NULL,
Property Hea_IssD As Object = Nothing ' Date NULL,
Property Hea_AuthID As Object = Nothing ' VARCHAR(17) NULL,
Property Hea_TransDat As Object = Nothing ' BIT NULL,
@@ -90,7 +90,7 @@ Public Class cTelotec_Anmeldung
Property Transp_CrossTy As Object = Nothing ' INT NULL,
Property Transp_CrossIdnt As Object = Nothing ' VARCHAR(27) NULL,
Property Transp_CrossIdntNat As Object = Nothing ' VARCHAR(2) NULL,
Property Transp_ContInd As Object = Nothing ' BIT NULL,
Property Transp_ContInd As Boolean = False ' BIT NULL,
Property ValData_TermDelCd As Object = Nothing ' VARCHAR(3) NULL,
Property ValData_TermDelPlc As Object = Nothing ' VARCHAR(35) NULL,
Property ValData_TermDelSit As Object = Nothing ' VARCHAR(1) NULL,
@@ -146,6 +146,8 @@ Public Class cTelotec_Anmeldung
Property POSITIONSDATEN As New List(Of cTelotec_Positionsdaten)
Property SICHERHEIT As New List(Of cTelotec_Sicherheit)
Property ABGABEN As New List(Of cTelotec_Abgaben)
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
'Sub New()
@@ -170,6 +172,36 @@ Public Class cTelotec_Anmeldung
LOAD()
End Sub
Sub initData()
me.telanm_Status = "00"
Me.telanm_Status_KEWILL_Equivalent = "00"
Me.telanm_Erstellung = Now
Me.telanm_Erstellung_SB = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
Me.telanm_LetzteBearbeitung=now
Me.telanm_LetzteBearbeitung_SB = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
Me.[Mandant_ID] = "IMEX"
Me.[Bereich_ID] = 0
Me.[Referenz_ID] = 0 '"TC_IMP_" & Now.ToShortDateString("ddMMyyyy_HHmmssfff ")
Me.[ComIndicator] = 1
Me.[dec_ProzessArt] = "TA"
Me.[dec_CreateDate] = Now
Me.[Refs_LRN] = Me.telanm_BezugsNr
Me.[Hea_DecTy] = "IMA" '??
Me.[Hea_TotItem] = 0
Me.[Hea_Simp] = 0
Me.[Hea_DecDT] = CDate(Now.ToShortDateString)
Me.[Hea_DecPlc] = "Suben"
End Sub
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telanm_id", telanm_id, , True, True))
@@ -331,8 +363,10 @@ Public Class cTelotec_Anmeldung
telanm_id = SQL.doSQLVarListID(telanm_id, sqlstr, "FMZOLL", , list)
If telanm_id > 0 And saveAll Then
SAVE_Positionsdaten()
SAVE_SICHERHEIT
SAVE_Sicherheit()
SAVE_Abgaben()
End If
Return telanm_id > 0
End Function
@@ -379,6 +413,7 @@ Public Class cTelotec_Anmeldung
If loadALL Then
POSITIONSDATEN.Clear()
SICHERHEIT.Clear()
ABGABEN.Clear()
End If
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM tblTelotec_Anmeldung WHERE telanm_id=@telanm_id ", conn)
@@ -398,6 +433,7 @@ Public Class cTelotec_Anmeldung
If loadALL Then
LOAD_Positionsdaten()
LOAD_Sicherheit()
LOAD_Abgaben()
End If
End If
dr.Close()
@@ -414,6 +450,7 @@ Public Class cTelotec_Anmeldung
Dim TC As New cTelotec_Anmeldung
TC.POSITIONSDATEN.Clear()
TC.SICHERHEIT.Clear()
TC.ABGABEN.Clear()
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM tblTelotec_Anmeldung WHERE telanm_BezugsNr=@BezugsNr AND [telnam_aktuellsteNachricht]=1 ", conn)
@@ -433,6 +470,7 @@ Public Class cTelotec_Anmeldung
If loadALL Then
TC.LOAD_Positionsdaten()
TC.LOAD_Sicherheit()
TC.LOAD_Abgaben()
End If
Return TC
End If
@@ -494,6 +532,7 @@ Public Class cTelotec_Anmeldung
If loadALL Then
NCTS.POSITIONSDATEN.Clear()
NCTS.SICHERHEIT.Clear()
NCTS.ABGABEN.Clear()
End If
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblTelotec_Anmeldung WHERE telanm_id=@telanm_id ", conn)
@@ -513,6 +552,7 @@ Public Class cTelotec_Anmeldung
If loadALL Then
NCTS.LOAD_Positionsdaten()
NCTS.LOAD_Sicherheit()
NCTS.LOAD_Abgaben()
End If
dr.Close()
Return NCTS
@@ -535,6 +575,7 @@ Public Class cTelotec_Anmeldung
If loadALL Then
NCTS.POSITIONSDATEN.Clear()
NCTS.SICHERHEIT.Clear()
NCTS.ABGABEN.Clear()
End If
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblTelotec_Anmeldung WHERE telanm_BezugsNr=@bezugsNr " & If(MsgType <> "", " AND MsgType=@MsgType ", ""), conn)
@@ -555,6 +596,7 @@ Public Class cTelotec_Anmeldung
If loadALL Then
NCTS.LOAD_Positionsdaten()
NCTS.LOAD_Sicherheit()
NCTS.LOAD_Abgaben()
End If
dr.Close()
Return NCTS
@@ -591,29 +633,22 @@ Public Class cTelotec_Anmeldung
Return False
End Function
'Public Sub UPDATE_DATA()
' Try
' Select Case telanm_ART
' Case "T1", "T2"
' 'SQL, die daten aus den jeweiligen tabellen ausliest und hier aktualisiert
' Dim Dakosy_NCTSOut As New DAKOSY_Worker.cDakosyNCTSOut
' Dakosy_NCTSOut.LOADByAnmID(telanm_id, False)
' If Dakosy_NCTSOut IsNot Nothing Then
' Me.telanm_BezugsNr = Dakosy_NCTSOut.ncts_ObjectName
' Me.telanm_Status = Dakosy_NCTSOut.ncts_Status
' Me.telanm_Status_KEWILL_Equivalent = Dakosy_NCTSOut.ncts_Status_KEWILL_Equivalent
' Me.telanm_Erstellung = Dakosy_NCTSOut.ncts_Erstellung
' Me.telanm_Erstellung_SB = Dakosy_NCTSOut.ncts_Erstellung_SB
' Me.telanm_LetzteBearbeitung = Dakosy_NCTSOut.ncts_LetzteBearbeitung
' Me.telanm_LetzteBearbeitung_SB = Dakosy_NCTSOut.ncts_LetzteBearbeitung_SB
' End If
' End Select
Public Sub UPDATE_DATA()
Try
'Me.dy_BezugsNr = Dakosy_NCTSOut.ncts_ObjectName
'Me.dy_Status = Dakosy_NCTSOut.ncts_Status
'Me.dy_Status_KEWILL_Equivalent = Dakosy_NCTSOut.ncts_Status_KEWILL_Equivalent
'Me.dy_Erstellung = Dakosy_NCTSOut.ncts_Erstellung
'Me.dy_Erstellung_SB = Dakosy_NCTSOut.ncts_Erstellung_SB
'Me.dy_LetzteBearbeitung = Dakosy_NCTSOut.ncts_LetzteBearbeitung
'Me.dy_LetzteBearbeitung_SB = Dakosy_NCTSOut.ncts_LetzteBearbeitung_SB
' Catch ex As Exception
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' End Try
'End Sub
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
@@ -678,7 +713,7 @@ Public Class cTelotec_Anmeldung
notFound = False
Select Case art
Case "EZA" : TELOTECDatenbereitstellung_EZA(SPEDITIONSBUCH, DY, notFound, PosAnzahl)
Case "EZA", "EUA" : TELOTECDatenbereitstellung_EZA(SPEDITIONSBUCH, DY, notFound, PosAnzahl)
Case "NCTS" : TELOTECDatenbereitstellung_NCTS(SPEDITIONSBUCH, DY, notFound, PosAnzahl)
End Select
@@ -703,7 +738,7 @@ Public Class cTelotec_Anmeldung
If SPEDITIONSBUCH.Abfertigungsdatum Is Nothing Then SPEDITIONSBUCH.Abfertigungsdatum = Now 'CDate(DY.eza_Trans_DatumZeit).ToShortDateString
SPEDITIONSBUCH.Abfertigungsart = "1" 'FISKAL !!!!!!!!!!!!
SPEDITIONSBUCH.Abfertigungsart = "1" 'FISKAL !!!!!????
SPEDITIONSBUCH.Versendungsland = DY.Locs_Disp
SPEDITIONSBUCH.Bestimmungsland = DY.Locs_Dest
@@ -991,6 +1026,7 @@ Public Class cTelotec_Anmeldung
End If
Next
l.LOAD_Packstücke()
l.LOAD_Abgaben()
POSITIONSDATEN.Add(l)
End While
dr.Close()
@@ -1030,11 +1066,46 @@ Public Class cTelotec_Anmeldung
End Try
End Sub
Public Sub LOAD_Abgaben()
Try
ABGABEN.Clear()
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM tblTelotec_Abgaben WHERE telAbg_telanmId=@telanm_id ", conn)
cmd.Parameters.AddWithValue("@telanm_id", Me.telanm_id)
Dim dr = cmd.ExecuteReader()
While dr.Read
Dim l As New cTelotec_Abgaben
For Each i In l.getParameterList()
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
If dr.Item(i.Text) Is DBNull.Value Then
propInfo.SetValue(l, Nothing)
Else
propInfo.SetValue(l, dr.Item(i.Text))
End If
Next
ABGABEN.Add(l)
End While
dr.Close()
End Using
End Using
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
End Sub
Function DELETE_Packstücke() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim sqlstr = " DELETE FROM [tblTelotec_Packstuecke] WHERE telpospk_telanmId =" & Me.telanm_id & " "
Return SQL.doSQL(sqlstr, "FMZOLL")
End Function
Function DELETE_PositionsdatenAbgaben() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim sqlstr = " DELETE FROM [tblTelotec_PositionsdatenAbgaben] WHERE telposAbg_telanmId =" & Me.telanm_id & " "
Return SQL.doSQL(sqlstr, "FMZOLL")
End Function
Function DELETE_Positionsdaten() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim sqlstr = " DELETE FROM [tblTelotec_Positionsdaten] WHERE telpos_telanmId =" & Me.telanm_id & " "
Return SQL.doSQL(sqlstr, "FMZOLL")
@@ -1044,6 +1115,10 @@ Public Class cTelotec_Anmeldung
Dim sqlstr = " DELETE FROM [tblTelotec_Sicherheit] WHERE telgrt_telanmId =" & Me.telanm_id & " "
Return SQL.doSQL(sqlstr, "FMZOLL")
End Function
Function DELETE_Abgaben() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim sqlstr = " DELETE FROM [tblTelotec_Abgaben] WHERE telAbg_telanmId =" & Me.telanm_id & " "
Return SQL.doSQL(sqlstr, "FMZOLL")
End Function
Public Function SAVE_Sicherheit() As Boolean
'Zuserst alle OffertenPos von dem Offert löschen
@@ -1062,15 +1137,33 @@ Public Class cTelotec_Anmeldung
Return True
End Function
Public Function SAVE_Abgaben() As Boolean
'Zuserst alle OffertenPos von dem Offert löschen
If DELETE_Abgaben() Then 'And DELETE_SicherheitUnterlagen() And DELETE_SicherheitVerbrauchssteuer() Then
'jetzt die Standartofferten einfügen
For Each p In ABGABEN
p.telAbg_telanmId = telanm_id
If p.INSERT() Then
Else
Return False
End If
Next
Else
Return False
End If
Return True
End Function
Public Function SAVE_Positionsdaten() As Boolean
'Zuserst alle OffertenPos von dem Offert löschen
If DELETE_Positionsdaten() And DELETE_Packstücke() Then 'And DELETE_PositionsdatenUnterlagen() And DELETE_PositionsdatenVerbrauchssteuer() Then
If DELETE_Positionsdaten() And DELETE_Packstücke() And DELETE_PositionsdatenAbgaben() Then 'And DELETE_PositionsdatenUnterlagen() And DELETE_PositionsdatenVerbrauchssteuer() Then
'jetzt die Standartofferten einfügen
For Each p In POSITIONSDATEN
p.telpos_telanmId = telanm_id
If p.INSERT() Then
p.INSERT_Packstücke(p.telpos_id, Me.telanm_id)
p.INSERT_Abgaben(p.telpos_id, Me.telanm_id)
'p.INSERT_PositionsdatenUnterlagen(p.ezaWP_Id, Me.eza_Id)
'p.INSERT_PositionsdatenVerbrauchssteuer(p.ezaWP_Id, Me.eza_Id)
Else
@@ -1118,6 +1211,7 @@ Public Class cTelotec_Positionsdaten
Property Telo_ArtikelMEH As Object = Nothing
Property PACKSTUECKE As New List(Of cTelotec_Packstuecke)
Property ABGABEN As New List(Of cTelotec_PositionsdatenAbgaben)
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
@@ -1201,6 +1295,41 @@ Public Class cTelotec_Positionsdaten
End Try
End Sub
Public Function INSERT_Abgaben(telpos_id, telanm_id) As Boolean
For Each p In ABGABEN
p.telposAbg_telanmId = telanm_id
p.telposAbg_telposId = telpos_id
If Not p.INSERT() Then Return False
Next
Return True
End Function
Public Sub LOAD_Abgaben()
Try
ABGABEN.Clear()
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM tblTelotec_PositionsdatenAbgaben WHERE telposabg_telposId=@telpos_id ", conn)
cmd.Parameters.AddWithValue("@telpos_id", Me.telpos_id)
Dim dr = cmd.ExecuteReader()
While dr.Read
Dim l As New cTelotec_PositionsdatenAbgaben
For Each i In l.getParameterList()
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
If dr.Item(i.Text) Is DBNull.Value Then
propInfo.SetValue(l, Nothing)
Else
propInfo.SetValue(l, dr.Item(i.Text))
End If
Next
ABGABEN.Add(l)
End While
dr.Close()
End Using
End Using
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
End Sub
Public Function getInsertCmd() As String
Try
@@ -1324,8 +1453,6 @@ Public Class cTelotec_Sicherheit
Property PACKSTUECKE As List(Of cTelotec_Packstuecke)
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Sub New()
@@ -1385,3 +1512,168 @@ Public Class cTelotec_Sicherheit
End Class
Public Class cTelotec_Abgaben
Property telAbg_id As Integer
Property telAbg_telanmId As Integer
Property Mandant_ID As Object = Nothing
Property Bereich_ID As Object = Nothing
Property Referenz_ID As Object = Nothing
Property ComIndicator As Boolean
Property TotDuties_ID As Integer
Property Ty As Object = Nothing
Property Amnt As Object = Nothing
Property TyInd As Object = Nothing
Property Erstelldatum As Object = Nothing
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Sub New()
End Sub
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telAbg_id", telAbg_id, , True, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telAbg_telanmId", telAbg_telanmId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Mandant_ID", Mandant_ID))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bereich_ID", Bereich_ID))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Referenz_ID", Referenz_ID))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ComIndicator", ComIndicator))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TotDuties_ID", TotDuties_ID))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Ty", Ty))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Amnt", Amnt))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TyInd", TyInd))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Erstelldatum", Erstelldatum))
Return list
End Function
Public Function INSERT() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
'Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list)
telAbg_id = SQL.doSQLVarListID(telAbg_id, getInsertCmd, "FMZOLL", , list)
Return telAbg_id > 0
End Function
Public Function getInsertCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
Dim values As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "],"
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO tblTelotec_Abgaben (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception
MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return ""
End Function
End Class
Public Class cTelotec_PositionsdatenAbgaben
Property telposAbg_id As Integer
Property telposAbg_telposId As Integer
Property telposAbg_telanmId As Integer
Property Mandant_ID As Object = Nothing
Property Bereich_ID As Object = Nothing
Property Referenz_ID As Object = Nothing
Property ComIndicator As Boolean
Property Pos_ID As Integer
Property DutyCalc_ID As Object = Nothing
Property Ty As Object = Nothing
Property BaseD As Object = Nothing
Property Curr As Object = Nothing
Property Unit As Object = Nothing
Property Base As Object = Nothing
Property Rate As Object = Nothing
Property RateUsed As Object = Nothing
Property Amnt As Object = Nothing
Property MeaID As Object = Nothing
Property TyInd As Object = Nothing
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Sub New()
End Sub
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telposAbg_id", telposAbg_id, , True, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telposAbg_telposId", telposAbg_telposId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telposAbg_telanmId", telposAbg_telanmId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Mandant_ID", Mandant_ID))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bereich_ID", Bereich_ID))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Referenz_ID", Referenz_ID))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ComIndicator", ComIndicator))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Pos_ID", Pos_ID))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DutyCalc_ID", DutyCalc_ID))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Ty", Ty))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BaseD", BaseD))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Curr", Curr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Unit", Unit))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Base", Base))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rate", Rate))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RateUsed", RateUsed))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Amnt", Amnt))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("MeaID", MeaID))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TyInd", TyInd))
Return list
End Function
Public Function INSERT() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
'Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list)
telposAbg_id = SQL.doSQLVarListID(telposAbg_id, getInsertCmd, "FMZOLL", , list)
Return telposAbg_id > 0
End Function
Public Function getInsertCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
Dim values As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "],"
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO tblTelotec_PositionsdatenAbgaben (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception
MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return ""
End Function
End Class