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

EXG Automatisierung Gestellungsprozess, NCTS Erstellung

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-01-26 21:53:50 +01:00
parent 444293a564
commit 946c8c165a
15 changed files with 2636 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
TELOTEK_Worker_lib/cTelokec.vb
View File

@@ -1159,7 +1159,7 @@ Public Class cTelotec_Anmeldung
Return SQL.doSQL(sqlstr, "FMZOLL")
End Function
Function DELETE_PositionsdatenMasseinheiten() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim sqlstr = " DELETE FROM [tblTelotec_PositionsdatenMasseinheiten] WHERE telposAbg_telanmId =" & Me.telanm_id & " "
Dim sqlstr = " DELETE FROM [tblTelotec_PositionsdatenMasseinheiten] WHERE telposMass_telanmId =" & Me.telanm_id & " "
Return SQL.doSQL(sqlstr, "FMZOLL")
End Function
@@ -1381,8 +1381,8 @@ Public Class cTelotec_Positionsdaten
End Function
Public Function INSERT_Masseinheiten(telpos_id, telanm_id) As Boolean
For Each p In MASSEINHEITEN
p.telposAbg_telanmId = telanm_id
p.telposAbg_telposId = telpos_id
p.telposMass_telanmId = telanm_id
p.telposMass_telposId = telpos_id
If Not p.INSERT() Then Return False
Next
Return True
@@ -1444,7 +1444,7 @@ Public Class cTelotec_Positionsdaten
Try
MASSEINHEITEN.Clear()
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM tblTelotec_PositionsdatenMasseinheiten WHERE telposabg_telposId=@telpos_id ", conn)
Using cmd As New SqlCommand("SELECT * FROM tblTelotec_PositionsdatenMasseinheiten WHERE telposMass_telposId=@telpos_id ", conn)
cmd.Parameters.AddWithValue("@telpos_id", Me.telpos_id)
Dim dr = cmd.ExecuteReader()
While dr.Read
@@ -1817,9 +1817,9 @@ End Class
Public Class cTelotec_PositionsdatenMasseinheiten
Property telposAbg_id As Integer
Property telposAbg_telposId As Integer
Property telposAbg_telanmId As Integer
Property telposMass_id As Integer
Property telposMass_telposId As Integer
Property telposMass_telanmId As Integer
Property Mandant_ID As Object = Nothing
Property Bereich_ID As Object = Nothing
Property Referenz_ID As Object = Nothing
@@ -1837,10 +1837,10 @@ Public Class cTelotec_PositionsdatenMasseinheiten
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("telposMass_id", telposMass_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("telposMass_telposId", telposMass_telposId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telposMass_telanmId", telposMass_telanmId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Mandant_ID", Mandant_ID))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bereich_ID", Bereich_ID))
@@ -1857,8 +1857,8 @@ Public Class cTelotec_PositionsdatenMasseinheiten
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
telposMass_id = SQL.doSQLVarListID(telposMass_id, getInsertCmd, "FMZOLL", , list)
Return telposMass_id > 0
End Function