TC API

2024-12-10 10:57:25 +01:00
parent ef72c9b82d
commit 190ba87aac
4 changed files with 163 additions and 28 deletions
--- a/TELOTEK_Worker_lib/cTC_Functions.vb
+++ b/TELOTEK_Worker_lib/cTC_Functions.vb
@@ -24,7 +24,7 @@ Public Class cTC_Functions


            Dim destFilenameTMP = UPLOAD_PFAD + "." & If(IO.File.Exists(UPLOAD_PFAD & "." & fi.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & fi.Name
-            MsgBox(destFilenameTMP)
+            '  MsgBox(destFilenameTMP)
            'Datei hochladen
            IO.File.Copy(file, destFilenameTMP)
            '   If IO.File.Exists(destFilenameTMP) Then IO.File.Delete(F) 'Datei nach erfolgreichem Herunterladen vom Server löschen
--- a/TELOTEK_Worker_lib/cTelokec.vb
+++ b/TELOTEK_Worker_lib/cTelokec.vb
@@ -186,7 +186,7 @@ Public Class cTelotec_Anmeldung
            Case "ATILLA"
                Me.[Mandant_ID] = "Atilla"
            Case Else
-                Me.[Mandant_ID] = "VER"
+                Me.[Mandant_ID] = "VERCUS"
        End Select

        Me.[Bereich_ID] = 0
@@ -1158,6 +1158,10 @@ Public Class cTelotec_Anmeldung
        Dim sqlstr = " DELETE FROM [tblTelotec_PositionsdatenDokumente] WHERE telposAbg_telanmId =" & Me.telanm_id & " "
        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 & " "
+        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 & " "
@@ -1211,7 +1215,7 @@ Public Class cTelotec_Anmeldung

    Public Function SAVE_Positionsdaten() As Boolean
        'Zuserst alle OffertenPos von dem Offert löschen
-        If DELETE_Positionsdaten() And DELETE_Packstücke() And DELETE_PositionsdatenAbgaben() And DELETE_PositionsdatenDokumente() Then 'And DELETE_PositionsdatenUnterlagen() And DELETE_PositionsdatenVerbrauchssteuer() Then
+        If DELETE_Positionsdaten() And DELETE_Packstücke() And DELETE_PositionsdatenAbgaben() And DELETE_PositionsdatenDokumente() And DELETE_PositionsdatenMasseinheiten() Then 'And DELETE_PositionsdatenUnterlagen() And DELETE_PositionsdatenVerbrauchssteuer() Then
            'jetzt die Standartofferten  einfügen
            For Each p In POSITIONSDATEN
                p.telpos_telanmId = telanm_id
@@ -1225,6 +1229,7 @@ Public Class cTelotec_Anmeldung
                    p.INSERT_Packstücke(p.telpos_id, Me.telanm_id)
                    p.INSERT_Abgaben(p.telpos_id, Me.telanm_id)
                    p.INSERT_Dokumente(p.telpos_id, Me.telanm_id)
+                    p.INSERT_Masseinheiten(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
@@ -1274,6 +1279,7 @@ Public Class cTelotec_Positionsdaten
    Property PACKSTUECKE As New List(Of cTelotec_Packstuecke)
    Property ABGABEN As New List(Of cTelotec_PositionsdatenAbgaben)
    Property DOC_CERTS As New List(Of cTelotec_PositionsdatenDokumente)
+    Property MASSEINHEITEN As New List(Of cTelotec_PositionsdatenMasseinheiten)

    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL

@@ -1373,6 +1379,14 @@ Public Class cTelotec_Positionsdaten
        Next
        Return True
    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
+            If Not p.INSERT() Then Return False
+        Next
+        Return True
+    End Function

    Public Sub LOAD_Abgaben()
        Try
@@ -1426,6 +1440,32 @@ Public Class cTelotec_Positionsdaten
            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
        End Try
    End Sub
+    Public Sub LOAD_Masseinheiten()
+        Try
+            MASSEINHEITEN.Clear()
+            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
+                Using cmd As New SqlCommand("SELECT * FROM tblTelotec_PositionsdatenMasseinheiten 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_PositionsdatenMasseinheiten
+                        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
+                        MASSEINHEITEN.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
@@ -1774,6 +1814,80 @@ End Class



+Public Class cTelotec_PositionsdatenMasseinheiten
+
+
+    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 SupplUnt_ID As Object = Nothing
+    Property SupplUnt_Unit As Object = Nothing
+    Property SupplUnt_SUQuant 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("SupplUnt_ID", SupplUnt_ID))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SupplUnt_Unit", SupplUnt_Unit))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SupplUnt_SUQuant", SupplUnt_SUQuant))
+        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_Positionsdaten_Masseinheiten  (" & 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_PositionsdatenDokumente