DYWorker--> Teleotec RgNr, AccessCode in MA
This commit is contained in:
@@ -365,6 +365,7 @@ Public Class cTelotec_Anmeldung
|
||||
SAVE_Positionsdaten()
|
||||
SAVE_Sicherheit()
|
||||
SAVE_Abgaben()
|
||||
|
||||
End If
|
||||
|
||||
Return telanm_id > 0
|
||||
@@ -1145,6 +1146,10 @@ Public Class cTelotec_Anmeldung
|
||||
Dim sqlstr = " DELETE FROM [tblTelotec_PositionsdatenAbgaben] WHERE telposAbg_telanmId =" & Me.telanm_id & " "
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
Function DELETE_PositionsdatenDokumente() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblTelotec_PositionsdatenDokumente] 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 & " "
|
||||
@@ -1195,15 +1200,17 @@ Public Class cTelotec_Anmeldung
|
||||
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() And DELETE_PositionsdatenAbgaben() Then 'And DELETE_PositionsdatenUnterlagen() And DELETE_PositionsdatenVerbrauchssteuer() Then
|
||||
If DELETE_Positionsdaten() And DELETE_Packstücke() And DELETE_PositionsdatenAbgaben() And DELETE_PositionsdatenDokumente() 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_Dokumente(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
|
||||
@@ -1252,6 +1259,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)
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
@@ -1343,6 +1351,14 @@ Public Class cTelotec_Positionsdaten
|
||||
Next
|
||||
Return True
|
||||
End Function
|
||||
Public Function INSERT_Dokumente(telpos_id, telanm_id) As Boolean
|
||||
For Each p In DOC_CERTS
|
||||
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
|
||||
@@ -1370,6 +1386,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_Dokumente()
|
||||
Try
|
||||
DOC_CERTS.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblTelotec_PositionsdatenDokumente 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_PositionsdatenDokumente
|
||||
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
|
||||
DOC_CERTS.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
|
||||
@@ -1717,3 +1759,89 @@ Public Class cTelotec_PositionsdatenAbgaben
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
Public Class cTelotec_PositionsdatenDokumente
|
||||
|
||||
|
||||
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 DocCerts_ID As Object = Nothing
|
||||
Property DocCerts_DocCd As Object = Nothing
|
||||
Property DocCerts_DTy As Object = Nothing
|
||||
Property DocCerts_DRef As Object = Nothing
|
||||
Property DocCerts_IssD As Object = Nothing
|
||||
Property DocCerts_IssCtry As Object = Nothing
|
||||
Property DocCerts_DTIN As Object = Nothing
|
||||
Property DocCerts_UidVid As Object = Nothing
|
||||
Property DocCerts_ValD 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("DocCerts_ID", DocCerts_ID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocCerts_DocCd", DocCerts_DocCd))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocCerts_DTy", DocCerts_DTy))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocCerts_DRef", DocCerts_DRef))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocCerts_IssD", DocCerts_IssD))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocCerts_IssCtry", DocCerts_IssD))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocCerts_DTIN", DocCerts_IssD))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocCerts_UidVid", DocCerts_IssD))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocCerts_ValD", DocCerts_IssD))
|
||||
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_PositionsdatenDokumente (" & 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
|
||||
|
||||
|
||||
Reference in New Issue
Block a user