neue version
This commit is contained in:
ja
@@ -0,0 +1,115 @@
|
||||
Public Class cBerechtignunen
|
||||
|
||||
|
||||
|
||||
Shared BER_LIST As New cBerechtigungsObjekte_List 'NEW = Laden
|
||||
|
||||
' Sub initBER()
|
||||
' BER_LIST = New cBerechtigungsObjekte_List
|
||||
' End Sub
|
||||
|
||||
Public Shared Function CHECK_BERECHTIGUNG(Form_Berechtigung As System.Windows.Forms.Form) As Integer ' Klärt die Berechtigungs-Zugriffs-Stufe des Mitarbeiters für das Object
|
||||
Return CHECK_BERECHTIGUNG(Form_Berechtigung.Name, Form_Berechtigung.GetType.Module.Name.Replace(".exe", ""))
|
||||
End Function
|
||||
|
||||
|
||||
Public Shared Function CHECK_BERECHTIGUNG(Berechtigung_Bezeichnung As String, ME_Form As System.Windows.Forms.Form) As Integer ' Klärt die Berechtigungs-Zugriffs-Stufe des Mitarbeiters für das Object
|
||||
Return CHECK_BERECHTIGUNG(Berechtigung_Bezeichnung, ME_Form.GetType.Module.Name.Replace(".exe", ""))
|
||||
End Function
|
||||
|
||||
Public Shared Function CHECK_BERECHTIGUNG_bool(Berechtigung_Bezeichnung As String, ME_Form As System.Windows.Forms.Form) As Boolean ' Klärt die Berechtigungs-Zugriffs-Stufe des Mitarbeiters für das Object
|
||||
Try
|
||||
|
||||
If ME_Form Is Nothing Then Return False
|
||||
Dim prog = ME_Form.GetType.Module.Name.Replace(".exe", "") 'FEHLER
|
||||
Return (CHECK_BERECHTIGUNG(Berechtigung_Bezeichnung, prog) = 0)
|
||||
Catch ex As Exception
|
||||
MsgBox("BERECHTIGUNGSERR: " & Berechtigung_Bezeichnung & vbNewLine & vbNewLine & ex.Message & vbNewLine & ex.StackTrace)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Shared Function CHECK_BERECHTIGUNG_bool(Berechtigung_Bezeichnung As String, prog_Name As String) As Boolean ' Klärt die Berechtigungs-Zugriffs-Stufe des Mitarbeiters für das Object
|
||||
Try
|
||||
Return (CHECK_BERECHTIGUNG(Berechtigung_Bezeichnung, prog_Name) = 0)
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & vbNewLine & ex.StackTrace)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Shared Function CHECK_BERECHTIGUNG(Berechtigung_Bezeichnung As String, prog_Name As String) As Integer ' Klärt die Berechtigungs-Zugriffs-Stufe des Mitarbeiters für das Object
|
||||
Dim SQL As New SQL
|
||||
Dim prog_id = -1
|
||||
|
||||
Select Case prog_Name
|
||||
Case "AVISO"
|
||||
'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
|
||||
' prog_id = 13
|
||||
' Else
|
||||
prog_id = 5
|
||||
'End If
|
||||
Case "SDL"
|
||||
prog_id = 7
|
||||
Case Else
|
||||
' MsgBox("SELECT isnull([prog_id],0) FROM [tblProgramme] WHERe [prog_codename]='" & prog_Name & "'")
|
||||
prog_id = SQL.getValueTxtBySql("SELECT isnull([prog_id],0) FROM [tblProgramme] WHERe [prog_codename]='" & prog_Name & "'", "ADMIN")
|
||||
End Select
|
||||
|
||||
Return CHECK_BERECHTIGUNG(Berechtigung_Bezeichnung, prog_id)
|
||||
End Function
|
||||
|
||||
Public Shared Function CHECK_BERECHTIGUNG(ber_bez As String, prog_Id As Integer) As Integer ' Klärt die Berechtigungs-Zugriffs-Stufe des Mitarbeiters für das Object
|
||||
Try
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME = "" Then Return 0
|
||||
|
||||
Dim berechtigungsstufe As Integer = 99
|
||||
Dim benutzerBer As cBerechtigungenBenutzerGruppenZuordnung_List = VERAG_PROG_ALLGEMEIN.cAllgemein.BENUTZER_BERECHTIGUNGS_GRUPPEN
|
||||
If benutzerBer Is Nothing Then
|
||||
MsgBox("Ihrem Benutzerkonto wurden keine Berechtigungen zugeordnet!")
|
||||
Return 0
|
||||
End If
|
||||
|
||||
Dim found = False
|
||||
For Each l In BER_LIST.LIST
|
||||
If l.bero_bezeichnung.ToUpper = ber_bez.ToUpper And l.bero_progId = prog_Id Then
|
||||
found = True : Exit For
|
||||
End If
|
||||
Next
|
||||
If Not found Then 'Die Berechtigungszuorgnung ist nicht gegeben --> Zugriff verwehrt
|
||||
MsgBox("Die Berechtigung '" & ber_bez & "' existiert nicht.")
|
||||
Return 99
|
||||
End If
|
||||
|
||||
For Each l In BER_LIST.LIST
|
||||
If l.bero_bezeichnung.ToUpper = ber_bez.ToUpper And l.bero_progId = prog_Id Then
|
||||
For Each ll In l.BER_OBJ_ZUORD 'Liste der BerechtignungGruppen im Berechtigungsonjekt
|
||||
For Each b In benutzerBer.LIST
|
||||
If b.berbgz_progId = prog_Id Then 'BenutzerProg = Prog
|
||||
|
||||
If ll.beroz_berechtigungsstufe >= 100 Then Return ll.beroz_berechtigungsstufe 'Größer als 3 stellen --> immer priorität
|
||||
|
||||
If ll.beroz_art = "G" And ll.beroz_bergrId = b.berbgz_bergrId Then 'GruppenBerchtigung
|
||||
'gefunden!
|
||||
If ll.beroz_berechtigungsstufe < berechtigungsstufe Then berechtigungsstufe = ll.beroz_berechtigungsstufe
|
||||
ElseIf ll.beroz_art = "N" And ll.Bezeichnung = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG Then
|
||||
If ll.beroz_berechtigungsstufe < berechtigungsstufe Then berechtigungsstufe = ll.beroz_berechtigungsstufe
|
||||
ElseIf ll.beroz_art = "A" And ll.Bezeichnung = VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG Then
|
||||
If ll.beroz_berechtigungsstufe < berechtigungsstufe Then berechtigungsstufe = ll.beroz_berechtigungsstufe
|
||||
ElseIf ll.beroz_art = "B" And ll.beroz_bergrId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
|
||||
Return ll.beroz_berechtigungsstufe 'Definitiv dem Benutzer zugeordnete Berechtigung!!!!
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
Next
|
||||
End If
|
||||
Next
|
||||
|
||||
Return berechtigungsstufe
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
Return 99
|
||||
End Function
|
||||
End Class
|
||||
@@ -0,0 +1,107 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cBerechtigungenBenutzerGruppenZuordnung_List
|
||||
Public LIST As New List(Of cBerechtigungenBenutzerGruppenZuordnung)
|
||||
Dim SQL As New SQL
|
||||
'Dim listTodelete As New List(Of cOfferte)
|
||||
Dim mit_Id
|
||||
Sub New(mit_Id)
|
||||
LOAD_LIST(mit_Id)
|
||||
End Sub
|
||||
Public Sub CLEAR()
|
||||
LIST.Clear()
|
||||
End Sub
|
||||
Public Sub ADD(eb_EMail As String, Optional cc As Boolean = False, Optional bcc As Boolean = False)
|
||||
' Dim l As New cOfferte
|
||||
'l.eb_bcc = bcc
|
||||
'LIST.Add(l)
|
||||
End Sub
|
||||
|
||||
Public Sub LOAD_LIST(mit_Id)
|
||||
Try
|
||||
LIST.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
|
||||
Using cmd As New SqlCommand("SELECT *,(SELECT [bergr_bezeichnung] FROM tblBerechtigungenGruppen WHERE [bergr_id]=[berbgz_bergrId]) as Gruppenbezeichnung FROM tblBerechtigungenBenutzerGruppenZuordnung WHERE berbgz_mitId=@berbgz_mitId ", conn) 'SELECT * FROM tblBerechtigungenBenutzerGruppenZuordnung WHERE berbgz_mitId=@berbgz_mitId", conn)
|
||||
cmd.Parameters.AddWithValue("@berbgz_mitId", mit_Id)
|
||||
' cmd.Parameters.AddWithValue("@OffertenNr", OffertenNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cBerechtigungenBenutzerGruppenZuordnung
|
||||
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
|
||||
' l.LOAD_ZUORD()
|
||||
LIST.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
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
Public Class cBerechtigungenBenutzerGruppenZuordnung
|
||||
Property berbgz_id As Integer
|
||||
Property berbgz_progId As Integer
|
||||
Property berbgz_mitId As Integer
|
||||
Property Gruppenbezeichnung As Object = Nothing
|
||||
|
||||
Property berbgz_bergrId As Integer
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
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("berbgz_id", berbgz_id, , True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("berbgz_progId", berbgz_progId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("berbgz_mitId", berbgz_mitId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gruppenbezeichnung", Gruppenbezeichnung, , , True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("berbgz_bergrId", berbgz_bergrId))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
Public Function INSERT() As String
|
||||
Try
|
||||
Dim list As List(Of SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not (i.isPrimaryParam Or i.isonlyForLoad) 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. ','
|
||||
' MsgBox(" INSERT INTO tblBerechtigungsObjekteZuordnung (" & str & ") VALUES(" & values & ") ")
|
||||
SQL.doSQLVarListID(berbgz_id, " INSERT INTO tblBerechtigungenBenutzerGruppenZuordnung (" & str & ") VALUES(" & values & ") ", "ADMIN", , list)
|
||||
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
|
||||
|
||||
|
||||
Public Function DELETE() As String
|
||||
Try
|
||||
' SQL.doSQL("DELETE FROM tblBerechtigungenBenutzerGruppenZuordnung WHERE [berbgz_bergrId]=" & Me.bergr_id, "ADMIN") 'Zuerst die Zuordnungen
|
||||
' SQL.doSQL("DELETE FROM tblBerechtigungsObjekteZuordnung WHERE [beroz_art]='G' AND [beroz_bergrId]=" & Me.bergr_id, "ADMIN") 'Zuerst die Zuordnungen
|
||||
SQL.doSQL("DELETE FROM tblBerechtigungenBenutzerGruppenZuordnung WHERE berbgz_id=" & Me.berbgz_id, "ADMIN")
|
||||
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
|
||||
@@ -0,0 +1,104 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
|
||||
|
||||
Public Class cBerechtigungenGruppen_List
|
||||
Property KundenNr As Object = Nothing
|
||||
Public LIST As New List(Of cBerechtigungenGruppen)
|
||||
Dim SQL As New SQL
|
||||
Dim bergr_progId
|
||||
|
||||
Sub New(bergr_progId)
|
||||
LOAD_LIST(bergr_progId)
|
||||
End Sub
|
||||
|
||||
Public Sub CLEAR()
|
||||
LIST.Clear()
|
||||
End Sub
|
||||
Public Sub ADD(eb_EMail As String, Optional cc As Boolean = False, Optional bcc As Boolean = False)
|
||||
' Dim l As New cOfferte
|
||||
'l.eb_bcc = bcc
|
||||
'LIST.Add(l)
|
||||
End Sub
|
||||
|
||||
Public Sub LOAD_LIST(bergr_progId)
|
||||
Try
|
||||
LIST.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblBerechtigungenGruppen WHERE bergr_progId=@bergr_progId ORDER BY bergr_bezeichnung", conn)
|
||||
cmd.Parameters.AddWithValue("@bergr_progId", bergr_progId)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cBerechtigungenGruppen
|
||||
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
|
||||
' l.LOAD_ZUORD()
|
||||
LIST.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
|
||||
|
||||
End Class
|
||||
|
||||
Public Class cBerechtigungenGruppen
|
||||
Property bergr_id As Integer
|
||||
Property bergr_progId As Integer
|
||||
Property bergr_bezeichnung As String
|
||||
|
||||
Dim SQL As New SQL
|
||||
' Property BER_BENGR_ZUORD As List(Of cBerechtigungenBenutzerGruppenZuordnung)
|
||||
|
||||
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("bergr_id", bergr_id, , True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bergr_progId", bergr_progId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bergr_bezeichnung", bergr_bezeichnung))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Public Function INSERT() As String
|
||||
Try
|
||||
Dim list As List(Of SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not (i.isPrimaryParam Or i.isonlyForLoad) 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. ','
|
||||
' MsgBox(" INSERT INTO tblBerechtigungsObjekteZuordnung (" & str & ") VALUES(" & values & ") ")
|
||||
SQL.doSQLVarListID(bergr_id, " INSERT INTO tblBerechtigungenGruppen (" & str & ") VALUES(" & values & ") ", "ADMIN", , list)
|
||||
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
|
||||
|
||||
|
||||
Public Function DELETE() As String
|
||||
Try
|
||||
SQL.doSQL("DELETE FROM tblBerechtigungenBenutzerGruppenZuordnung WHERE [berbgz_bergrId]=" & Me.bergr_id, "ADMIN") 'Zuerst die Zuordnungen
|
||||
SQL.doSQL("DELETE FROM tblBerechtigungsObjekteZuordnung WHERE [beroz_art]='G' AND [beroz_bergrId]=" & Me.bergr_id, "ADMIN") 'Zuerst die Zuordnungen
|
||||
SQL.doSQL("DELETE FROM tblBerechtigungenGruppen WHERE bergr_id=" & Me.bergr_id, "ADMIN")
|
||||
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
|
||||
@@ -0,0 +1,207 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
|
||||
|
||||
|
||||
Public Class cBerechtigungsObjekte_List
|
||||
Public LIST As New List(Of cBerechtigungsObjekte)
|
||||
Dim SQL As New SQL
|
||||
'Dim listTodelete As New List(Of cOfferte)
|
||||
|
||||
Sub New()
|
||||
LOAD_LIST()
|
||||
End Sub
|
||||
|
||||
Sub New(progID)
|
||||
LOAD_LIST(progID)
|
||||
End Sub
|
||||
|
||||
Public Sub CLEAR()
|
||||
LIST.Clear()
|
||||
End Sub
|
||||
Public Sub ADD(eb_EMail As String, Optional cc As Boolean = False, Optional bcc As Boolean = False)
|
||||
' Dim l As New cOfferte
|
||||
'l.eb_bcc = bcc
|
||||
'LIST.Add(l)
|
||||
End Sub
|
||||
|
||||
Public Sub LOAD_LIST()
|
||||
Try
|
||||
LIST.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblBerechtigungsObjekte", conn)
|
||||
' cmd.Parameters.AddWithValue("@OffertenNr", OffertenNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cBerechtigungsObjekte
|
||||
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
|
||||
l.LOAD_ZUORD()
|
||||
LIST.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 Sub LOAD_LIST(bero_progId)
|
||||
Try
|
||||
LIST.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblBerechtigungsObjekte WHERE bero_progId=@bero_progId", conn)
|
||||
cmd.Parameters.AddWithValue("@bero_progId", bero_progId)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cBerechtigungsObjekte
|
||||
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
|
||||
l.LOAD_ZUORD()
|
||||
LIST.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
|
||||
End Class
|
||||
|
||||
|
||||
Public Class cBerechtigungsObjekte
|
||||
Property bero_id As Integer
|
||||
Property bero_progId As Integer
|
||||
Property bero_bezeichnung As String
|
||||
Property bero_art As String
|
||||
|
||||
Property BER_OBJ_ZUORD As New List(Of cBerechtigungsObjekteZuordnung)
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
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("bero_id", bero_id, , True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bero_progId", bero_progId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bero_bezeichnung", bero_bezeichnung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bero_art", bero_art))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Public Sub LOAD() ' Wird eig nicht benötigt, da LIST
|
||||
Try
|
||||
BER_OBJ_ZUORD.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblBerechtigungsObjekte WHERE bero_id=@bero_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@bero_id", Me.bero_id)
|
||||
' cmd.Parameters.AddWithValue("@OffertenNr", OffertenNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
'Dim l As New cBerechtigungsObjekte
|
||||
For Each i In Me.getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(i.Scalarvariable)
|
||||
If dr.Item(i.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(i.Text))
|
||||
End If
|
||||
Next
|
||||
Me.LOAD_ZUORD()
|
||||
End If
|
||||
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 Sub LOAD_ZUORD()
|
||||
' MsgBox("a")
|
||||
Try
|
||||
BER_OBJ_ZUORD.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
|
||||
' Using cmd As New SqlCommand("SELECT * FROM tblBerechtigungsObjekteZuordnung WHERE beroz_beroId=@beroz_beroId ", conn)
|
||||
' MsgBox(Me.bero_id)
|
||||
Using cmd As New SqlCommand(" SELECT *, (CASE beroz_art " &
|
||||
" WHEN 'G' THEN (SELECT [bergr_bezeichnung] FROM [ADMIN].[dbo].[tblBerechtigungenGruppen] WHERE beroz_bergrId=bergr_id ) " &
|
||||
" WHEN 'B' THEN (SELECT [mit_username] FROM [ADMIN].[dbo].tblMitarbeiter WHERE beroz_bergrId=mit_id ) " &
|
||||
" WHEN 'A' THEN (SELECT [abt_kuerzel] FROM [ADMIN].[dbo].tblAbteilungen WHERE beroz_bergrId=abt_id ) " &
|
||||
" WHEN 'N' THEN (SELECT [nl_kuerzel] FROM [ADMIN].[dbo].tblNiederlassungen WHERE beroz_bergrId=nl_id ) " &
|
||||
" END) as Bezeichnung " &
|
||||
" FROM tblBerechtigungsObjekteZuordnung WHERE beroz_beroId=@beroz_beroId ORDER BY [beroz_art] desc, Bezeichnung", conn)
|
||||
|
||||
cmd.Parameters.AddWithValue("@beroz_beroId", Me.bero_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cBerechtigungsObjekteZuordnung
|
||||
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
|
||||
BER_OBJ_ZUORD.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 INSERT() As String
|
||||
Try
|
||||
Dim list As List(Of SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not (i.isPrimaryParam Or i.isonlyForLoad) 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. ','
|
||||
' MsgBox(" INSERT INTO tblBerechtigungsObjekteZuordnung (" & str & ") VALUES(" & values & ") ")
|
||||
SQL.doSQLVarListID(bero_id, " INSERT INTO tblBerechtigungsObjekte (" & str & ") VALUES(" & values & ") ", "ADMIN", , list)
|
||||
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
|
||||
|
||||
|
||||
Public Function DELETE() As String
|
||||
Try
|
||||
SQL.doSQL("DELETE FROM [tblBerechtigungsObjekteZuordnung] WHERE [beroz_beroId]=" & Me.bero_id, "ADMIN") 'Zuerst die Zuordnungen
|
||||
SQL.doSQL("DELETE FROM tblBerechtigungsObjekte WHERE bero_id=" & Me.bero_id, "ADMIN")
|
||||
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
|
||||
@@ -0,0 +1,87 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cBerechtigungsObjekteZuordnung
|
||||
|
||||
Property beroz_id As Integer = -1
|
||||
Property beroz_beroId As Integer
|
||||
Property beroz_bergrId As Integer
|
||||
Property Bezeichnung As Object = Nothing
|
||||
'Property BenutzerBezeichnung As Object = Nothing
|
||||
|
||||
Property beroz_art As String
|
||||
Property beroz_berechtigungsstufe As Integer = -1
|
||||
Dim SQL As New SQL
|
||||
|
||||
|
||||
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("beroz_id", beroz_id, , True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("beroz_beroId", beroz_beroId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("beroz_bergrId", beroz_bergrId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("beroz_art", beroz_art))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("beroz_berechtigungsstufe", beroz_berechtigungsstufe))
|
||||
|
||||
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GruppenBezeichnung", GruppenBezeichnung, , , True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bezeichnung", Bezeichnung, , , True))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblBerechtigungsObjekteZuordnung WHERE beroz_id=@beroz_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@beroz_id", beroz_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
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 INSERT() As String
|
||||
Try
|
||||
Dim list As List(Of SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not (i.isPrimaryParam Or i.isonlyForLoad) 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. ','
|
||||
' MsgBox(" INSERT INTO tblBerechtigungsObjekteZuordnung (" & str & ") VALUES(" & values & ") ")
|
||||
SQL.doSQLVarListID(beroz_id, " INSERT INTO tblBerechtigungsObjekteZuordnung (" & str & ") VALUES(" & values & ") ", "ADMIN", , list)
|
||||
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
|
||||
|
||||
|
||||
Public Function DELETE() As String
|
||||
Try
|
||||
SQL.doSQL("DELETE FROM tblBerechtigungsObjekteZuordnung WHERE beroz_id=" & Me.beroz_id, "ADMIN")
|
||||
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
|
||||
1213
SDL/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb
Normal file
1213
SDL/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb
Normal file
File diff suppressed because it is too large
Load Diff
206
SDL/VERAG_PROG_ALLGEMEIN/Classes/SendFileTo.vb
Normal file
206
SDL/VERAG_PROG_ALLGEMEIN/Classes/SendFileTo.vb
Normal file
@@ -0,0 +1,206 @@
|
||||
Imports System
|
||||
Imports System.Runtime.InteropServices
|
||||
Imports System.IO
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Windows.Forms
|
||||
|
||||
Namespace SendFileTo
|
||||
Public Class MAPI
|
||||
Public Function AddRecipientTo(ByVal email As String) As Boolean
|
||||
Return AddRecipient(email, howTo.MAPI_TO)
|
||||
End Function
|
||||
|
||||
Public Function AddRecipientCC(ByVal email As String) As Boolean
|
||||
Return AddRecipient(email, howTo.MAPI_TO)
|
||||
End Function
|
||||
|
||||
Public Function AddRecipientBCC(ByVal email As String) As Boolean
|
||||
Return AddRecipient(email, howTo.MAPI_TO)
|
||||
End Function
|
||||
|
||||
Public Sub AddAttachment(ByVal strAttachmentFileName As String)
|
||||
m_attachments.Add(strAttachmentFileName)
|
||||
End Sub
|
||||
|
||||
Public Function SendMailPopup(ByVal strSubject As String, ByVal strBody As String) As Integer
|
||||
Return SendMail(strSubject, strBody, MAPI_LOGON_UI Or MAPI_DIALOG)
|
||||
End Function
|
||||
|
||||
Public Function SendMailDirect(ByVal strSubject As String, ByVal strBody As String) As Integer
|
||||
Return SendMail(strSubject, strBody, MAPI_LOGON_UI)
|
||||
End Function
|
||||
|
||||
|
||||
<DllImport("MAPI32.DLL")>
|
||||
Private Shared Function MAPISendMail(ByVal sess As IntPtr, ByVal hwnd As IntPtr, ByVal message As MapiMessage, ByVal flg As Integer, ByVal rsv As Integer) As Integer
|
||||
End Function
|
||||
|
||||
Private Function SendMail(ByVal strSubject As String, ByVal strBody As String, ByVal how As Integer) As Integer
|
||||
Dim msg As MapiMessage = New MapiMessage()
|
||||
msg.subject = strSubject
|
||||
msg.noteText = strBody
|
||||
|
||||
msg.recips = GetRecipients(msg.recipCount)
|
||||
msg.files = GetAttachments(msg.fileCount)
|
||||
|
||||
m_lastError = MAPISendMail(New IntPtr(0), New IntPtr(0), msg, how, 0)
|
||||
If m_lastError > 1 Then
|
||||
MessageBox.Show("MAPISendMail failed! " + GetLastError(), "MAPISendMail")
|
||||
End If
|
||||
|
||||
Cleanup(msg)
|
||||
Return m_lastError
|
||||
End Function
|
||||
|
||||
Private Function AddRecipient(ByVal email As String, ByVal howTo As howTo) As Boolean
|
||||
Dim recipient As MapiRecipDesc = New MapiRecipDesc()
|
||||
|
||||
recipient.recipClass = CType(howTo, Integer)
|
||||
recipient.name = email
|
||||
m_recipients.Add(recipient)
|
||||
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Private Function GetRecipients(ByRef recipCount As Integer) As IntPtr
|
||||
recipCount = 0
|
||||
If m_recipients.Count = 0 Then
|
||||
Return 0
|
||||
End If
|
||||
|
||||
Dim size As Integer = Marshal.SizeOf(GetType(MapiRecipDesc))
|
||||
Dim intPtr As IntPtr = Marshal.AllocHGlobal(m_recipients.Count * size)
|
||||
|
||||
Dim ptr As Integer = CType(intPtr, Integer)
|
||||
Dim mapiDesc As MapiRecipDesc
|
||||
For Each mapiDesc In m_recipients
|
||||
Marshal.StructureToPtr(mapiDesc, CType(ptr, IntPtr), False)
|
||||
ptr += size
|
||||
Next
|
||||
|
||||
recipCount = m_recipients.Count
|
||||
Return intPtr
|
||||
End Function
|
||||
|
||||
Private Function GetAttachments(ByRef fileCount As Integer) As IntPtr
|
||||
fileCount = 0
|
||||
If m_attachments Is Nothing Then
|
||||
Return 0
|
||||
End If
|
||||
|
||||
If (m_attachments.Count <= 0) Or (m_attachments.Count > maxAttachments) Then
|
||||
Return 0
|
||||
End If
|
||||
|
||||
Dim size As Integer = Marshal.SizeOf(GetType(MapiFileDesc))
|
||||
Dim intPtr As IntPtr = Marshal.AllocHGlobal(m_attachments.Count * size)
|
||||
|
||||
Dim mapiFileDesc As MapiFileDesc = New MapiFileDesc()
|
||||
mapiFileDesc.position = -1
|
||||
Dim ptr As Integer = CType(intPtr, Integer)
|
||||
|
||||
Dim strAttachment As String
|
||||
For Each strAttachment In m_attachments
|
||||
mapiFileDesc.name = Path.GetFileName(strAttachment)
|
||||
mapiFileDesc.path = strAttachment
|
||||
Marshal.StructureToPtr(mapiFileDesc, CType(ptr, IntPtr), False)
|
||||
ptr += size
|
||||
Next
|
||||
|
||||
fileCount = m_attachments.Count
|
||||
Return intPtr
|
||||
End Function
|
||||
|
||||
Private Sub Cleanup(ByRef msg As MapiMessage)
|
||||
Dim size As Integer = Marshal.SizeOf(GetType(MapiRecipDesc))
|
||||
Dim ptr As Integer = 0
|
||||
|
||||
If msg.recips <> IntPtr.Zero Then
|
||||
ptr = CType(msg.recips, Integer)
|
||||
Dim i As Integer
|
||||
For i = 0 To msg.recipCount - 1 Step i + 1
|
||||
Marshal.DestroyStructure(CType(ptr, IntPtr), GetType(MapiRecipDesc))
|
||||
ptr += size
|
||||
Next
|
||||
Marshal.FreeHGlobal(msg.recips)
|
||||
End If
|
||||
|
||||
If msg.files <> IntPtr.Zero Then
|
||||
size = Marshal.SizeOf(GetType(MapiFileDesc))
|
||||
|
||||
ptr = CType(msg.files, Integer)
|
||||
Dim i As Integer
|
||||
For i = 0 To msg.fileCount - 1 Step i + 1
|
||||
Marshal.DestroyStructure(CType(ptr, IntPtr), GetType(MapiFileDesc))
|
||||
ptr += size
|
||||
Next
|
||||
Marshal.FreeHGlobal(msg.files)
|
||||
End If
|
||||
|
||||
m_recipients.Clear()
|
||||
m_attachments.Clear()
|
||||
m_lastError = 0
|
||||
End Sub
|
||||
|
||||
Public Function GetLastError() As String
|
||||
If m_lastError <= 26 Then
|
||||
Return errors(m_lastError)
|
||||
End If
|
||||
Return "MAPI error [" + m_lastError.ToString() + "]"
|
||||
End Function
|
||||
|
||||
ReadOnly errors() As String = New String() {"OK [0]", "User abort [1]", "General MAPI failure [2]", "MAPI login failure [3]", "Disk full [4]", "Insufficient memory [5]", "Access denied [6]", "-unknown- [7]", "Too many sessions [8]", "Too many files were specified [9]", "Too many recipients were specified [10]", "A specified attachment was not found [11]", "Attachment open failure [12]", "Attachment write failure [13]", "Unknown recipient [14]", "Bad recipient type [15]", "No messages [16]", "Invalid message [17]", "Text too large [18]", "Invalid session [19]", "Type not supported [20]", "A recipient was specified ambiguously [21]", "Message in use [22]", "Network failure [23]", "Invalid edit fields [24]", "Invalid recipients [25]", "Not supported [26]"}
|
||||
|
||||
Dim m_recipients As New List(Of MapiRecipDesc)
|
||||
Dim m_attachments As New List(Of String)
|
||||
Dim m_lastError As Integer = 0
|
||||
|
||||
Private Const MAPI_LOGON_UI As Integer = &H1
|
||||
Private Const MAPI_DIALOG As Integer = &H8
|
||||
Private Const maxAttachments As Integer = 20
|
||||
|
||||
Enum howTo
|
||||
MAPI_ORIG = 0
|
||||
MAPI_TO
|
||||
MAPI_CC
|
||||
MAPI_BCC
|
||||
End Enum
|
||||
|
||||
End Class
|
||||
|
||||
<StructLayout(LayoutKind.Sequential)> _
|
||||
Public Class MapiMessage
|
||||
Public reserved As Integer
|
||||
Public subject As String
|
||||
Public noteText As String
|
||||
Public messageType As String
|
||||
Public dateReceived As String
|
||||
Public conversationID As String
|
||||
Public flags As Integer
|
||||
Public originator As IntPtr
|
||||
Public recipCount As Integer
|
||||
Public recips As IntPtr
|
||||
Public fileCount As Integer
|
||||
Public files As IntPtr
|
||||
End Class
|
||||
|
||||
<StructLayout(LayoutKind.Sequential)> _
|
||||
Public Class MapiFileDesc
|
||||
Public reserved As Integer
|
||||
Public flags As Integer
|
||||
Public position As Integer
|
||||
Public path As String
|
||||
Public name As String
|
||||
Public type As IntPtr
|
||||
End Class
|
||||
|
||||
<StructLayout(LayoutKind.Sequential)> _
|
||||
Public Class MapiRecipDesc
|
||||
Public reserved As Integer
|
||||
Public recipClass As Integer
|
||||
Public name As String
|
||||
Public address As String
|
||||
Public eIDSize As Integer
|
||||
Public enTryID As IntPtr
|
||||
End Class
|
||||
End Namespace
|
||||
320
SDL/VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb
Normal file
320
SDL/VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb
Normal file
@@ -0,0 +1,320 @@
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cUSTVAntrag
|
||||
|
||||
Property UStVAn_ID As Integer
|
||||
Property UStVAn_KuNr As Object = Nothing ' INT Not NULL,
|
||||
Property UStVAn_Name As Object = Nothing ' NVARCHAR(80) NULL,
|
||||
Property UStVAn_Straße As Object = Nothing ' NVARCHAR(40) NULL,
|
||||
Property UStVAn_LandKz As Object = Nothing ' NVARCHAR(3) NULL,
|
||||
Property UStVAn_PLZ As Object = Nothing ' NVARCHAR(7) NULL,
|
||||
Property UStVAn_Ort As Object = Nothing ' NVARCHAR(40) NULL,
|
||||
Property UStVAn_Land As Object = Nothing ' NVARCHAR(22) NULL,
|
||||
Property UStVAn_Gewerbe As Object = Nothing ' NVARCHAR(50) NULL,
|
||||
Property UStVAn_Steuernummer As Object = Nothing ' NVARCHAR(20) NULL,
|
||||
Property UStVAn_ReDatVon As Object = Nothing ' DATETIME Not NULL,
|
||||
Property UStVAn_ReDatBis As Object = Nothing ' DATETIME Not NULL,
|
||||
Property UStVAn_Bankverbindung As Object = Nothing ' NVARCHAR(50) NULL,
|
||||
Property UStVAn_BLZ As Object = Nothing ' NVARCHAR(8) NULL,
|
||||
Property UStVAn_KTO As Object = Nothing ' NVARCHAR(12) NULL,
|
||||
Property UStVAn_Kontoinhaber As Object = Nothing ' NVARCHAR(50) NULL,
|
||||
Property UStVAn_BIC As Object = Nothing ' NVARCHAR(11) NULL,
|
||||
Property UStVAn_IBAN As Object = Nothing ' NVARCHAR(27) NULL,
|
||||
Property UStVAn_Anlagen As Object = Nothing ' SMALLINT NULL,
|
||||
Property UStVAn_Rechnungen As Object = Nothing ' SMALLINT NULL,
|
||||
Property UStVAn_Einfuhrdokumente As Object = Nothing ' SMALLINT NULL,
|
||||
Property UStVAn_Erklärung_9_a As Object = Nothing ' NVARCHAR(50) NULL,
|
||||
Property UStVAn_Erklärung_9_b_1 As Object = Nothing ' BIT Default ((0)) Not NULL,
|
||||
Property UStVAn_Erklärung_9_b_2 As Object = Nothing ' BIT Default ((0)) Not NULL,
|
||||
Property UStVAn_Erklärung_9_b_3 As Object = Nothing ' BIT Default ((0)) Not NULL,
|
||||
Property UStVAn_Ausstellungsort As Object = Nothing ' NVARCHAR(20) NULL,
|
||||
Property UStVAn_Ausstellungsdatum As Object = Nothing ' DATETIME NULL,
|
||||
Property UStVAn_Unterschrift As Object = Nothing ' NVARCHAR(20) NULL,
|
||||
Property UStVAn_LandNr As Object = Nothing ' SMALLINT Default ((38)) Not NULL,
|
||||
Property UStVAn_Beleganzahl As Object = Nothing ' SMALLINT NULL,
|
||||
Property UStVAn_BeleganzahlRetourniert As Object = Nothing ' SMALLINT NULL,
|
||||
Property UStVAn_Retournierungsgrund As Object = Nothing ' NVARCHAR(255) NULL,
|
||||
Property UStVAn_AntragEingereichtAm As Object = Nothing ' DATETIME NULL,
|
||||
Property UStVAn_BelegeWeitergeleitetAm As Object = Nothing ' DATETIME NULL,
|
||||
Property UStVAn_Vertreter As Object = Nothing ' INT NULL,
|
||||
Property UStVAn_BezugsNr As Object = Nothing ' NVARCHAR(35) NULL,
|
||||
Property UStVAn_3470 As Object = Nothing ' MONEY NULL,
|
||||
Property UStVAn_VZBetrag As Object = Nothing ' MONEY NULL,
|
||||
Property UStVAn_VZDatum As Object = Nothing ' DATETIME NULL,
|
||||
Property UStVAn_RZBetragVZ As Object = Nothing ' MONEY NULL,
|
||||
Property UStVAn_RZDatumVZ As Object = Nothing ' DATETIME NULL,
|
||||
Property FilialenNr As Object = Nothing ' SMALLINT NULL,
|
||||
Property AbfertigungsNr As Object = Nothing ' INT NULL,
|
||||
Property UStVAn_Währungscode As Object = Nothing ' NVARCHAR(3) NULL,
|
||||
Property UStVAn_USteuerbetrag As Object = Nothing ' MONEY Default ((0)) NULL,
|
||||
Property UStVAn_Erstattungsbetrag As Object = Nothing ' MONEY Default ((0)) NULL,
|
||||
Property UStVAn_USteuerbetragEUR As Object = Nothing ' MONEY Default ((0)) NULL,
|
||||
Property UStVAn_ErstattungsbetragEUR As Object = Nothing ' MONEY Default ((0)) NULL,
|
||||
Property UStVAn_Sachbearbeiter As Object = Nothing ' NVARCHAR(15) NULL,
|
||||
Property UStVAn_Zeitstempel As Object = Nothing ' DATETIME Default (getdate()) NULL,
|
||||
|
||||
Property POSITIONEN As New List(Of cUStVPositionen) '= Nothing
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
Sub New(UStVAn_ID)
|
||||
Me.UStVAn_ID = UStVAn_ID
|
||||
LOAD(UStVAn_ID)
|
||||
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("UStVAn_ID", UStVAn_ID,, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_KuNr", UStVAn_KuNr)) ' INT Not NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Name", UStVAn_Name)) ' NVARCHAR(80) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Straße", UStVAn_Straße)) ' NVARCHAR(40) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_LandKz", UStVAn_LandKz)) ' NVARCHAR(3) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_PLZ", UStVAn_PLZ)) ' NVARCHAR(7) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Ort", UStVAn_Ort)) ' NVARCHAR(40) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Land", UStVAn_Land)) ' NVARCHAR(22) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Gewerbe", UStVAn_Gewerbe)) ' NVARCHAR(50) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Steuernummer", UStVAn_Steuernummer)) ' NVARCHAR(20) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_ReDatVon", UStVAn_ReDatVon)) ' DATETIME Not NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_ReDatBis", UStVAn_ReDatBis)) ' DATETIME Not NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Bankverbindung", UStVAn_Bankverbindung)) ' NVARCHAR(50) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_BLZ", UStVAn_BLZ)) ' NVARCHAR(8) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_KTO", UStVAn_KTO)) ' NVARCHAR(12) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Kontoinhaber", UStVAn_Kontoinhaber)) ' NVARCHAR(50) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_BIC", UStVAn_BIC)) ' NVARCHAR(11) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_IBAN", UStVAn_IBAN)) ' NVARCHAR(27) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Anlagen", UStVAn_Anlagen)) ' SMALLINT NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Rechnungen", UStVAn_Rechnungen)) ' SMALLINT NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Einfuhrdokumente", UStVAn_Einfuhrdokumente)) ' SMALLINT NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Erklärung_9_a", UStVAn_Erklärung_9_a)) ' NVARCHAR(50) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Erklärung_9_b_1", UStVAn_Erklärung_9_b_1)) ' BIT Default ((0)) Not NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Erklärung_9_b_2", UStVAn_Erklärung_9_b_2)) ' BIT Default ((0)) Not NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Erklärung_9_b_3", UStVAn_Erklärung_9_b_3)) ' BIT Default ((0)) Not NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Ausstellungsort", UStVAn_Ausstellungsort)) ' NVARCHAR(20) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Ausstellungsdatum", UStVAn_Ausstellungsdatum)) ' DATETIME NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Unterschrift", UStVAn_Unterschrift)) ' NVARCHAR(20) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_LandNr", UStVAn_LandNr)) ' SMALLINT Default ((38)) Not NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Beleganzahl", UStVAn_Beleganzahl)) ' SMALLINT NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_BeleganzahlRetourniert", UStVAn_BeleganzahlRetourniert)) ' SMALLINT NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Retournierungsgrund", UStVAn_Retournierungsgrund)) ' NVARCHAR(255) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_AntragEingereichtAm", UStVAn_AntragEingereichtAm)) ' DATETIME NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_BelegeWeitergeleitetAm", UStVAn_BelegeWeitergeleitetAm)) ' DATETIME NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Vertreter", UStVAn_Vertreter)) ' INT NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_BezugsNr", UStVAn_BezugsNr)) ' NVARCHAR(35) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_3470", UStVAn_3470)) ' MONEY NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_VZBetrag", UStVAn_VZBetrag)) ' MONEY NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_VZDatum", UStVAn_VZDatum)) ' DATETIME NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_RZBetragVZ", UStVAn_RZBetragVZ)) ' MONEY NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_RZDatumVZ", UStVAn_RZDatumVZ)) ' DATETIME NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNr", FilialenNr)) ' SMALLINT NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", AbfertigungsNr)) ' INT NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Währungscode", UStVAn_Währungscode)) ' NVARCHAR(3) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_USteuerbetrag", UStVAn_USteuerbetrag)) ' MONEY Default ((0)) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Erstattungsbetrag", UStVAn_Erstattungsbetrag)) ' MONEY Default ((0)) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_USteuerbetragEUR", UStVAn_USteuerbetragEUR)) ' MONEY Default ((0)) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_ErstattungsbetragEUR", UStVAn_ErstattungsbetragEUR)) ' MONEY Default ((0)) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Sachbearbeiter", UStVAn_Sachbearbeiter)) ' NVARCHAR(15) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Zeitstempel", UStVAn_Zeitstempel)) ' DATETIME Default (getdate()) NULL,
|
||||
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Public Sub LOAD(UStVAn_ID, Optional loadPos = True)
|
||||
Try
|
||||
POSITIONEN.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblUStVAntrag WHERE UStVAn_ID=@UStVAn_ID ", conn)
|
||||
cmd.Parameters.AddWithValue("@UStVAn_ID", UStVAn_ID)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
'Dim l As New cOfferte
|
||||
For Each i In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(i.Scalarvariable)
|
||||
If dr.Item(i.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(i.Text))
|
||||
End If
|
||||
Next
|
||||
If loadPos Then LOAD_POSITIONEN()
|
||||
End If
|
||||
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 Sub LOAD_POSITIONEN()
|
||||
Try
|
||||
POSITIONEN.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblUStVPositionen WHERE UStVAn_ID=@UStVAn_ID ", conn)
|
||||
cmd.Parameters.AddWithValue("@UStVAn_ID", Me.UStVAn_ID)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cUStVPositionen
|
||||
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
|
||||
POSITIONEN.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 INSERT() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblUStVAntrag WITH(updlock,serializable) WHERE UStVAn_ID=@UStVAn_ID ) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
'Me.Eingegeben_am = Now
|
||||
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 tblUStVAntrag (" & 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
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblUStVAntrag] SET " & str & " WHERE UStVAn_ID=@UStVAn_ID ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
Public Function getMaxPosNr() As Integer
|
||||
Try
|
||||
Dim maxPosNr = -1
|
||||
|
||||
Return SQL.getValueTxtBySql("SELECT isnull(max([UStVPo_ID]),0)+1 FROM [tblUStVPositionen] where UStVAn_ID='" & UStVAn_ID & "'", "FMZOLL",,, "1")
|
||||
|
||||
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 -1
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
Public Class cUStVPositionen
|
||||
|
||||
Property UStVAn_ID As Integer
|
||||
Property UStVPo_ID As Integer
|
||||
Property UStVPo_ReDat As Object = Nothing ' DATETIME NULL,
|
||||
Property UStVPo_ReNr As Object = Nothing ' NVARCHAR(20) NULL,
|
||||
Property UStVPo_USteuerbetrag As Object = Nothing ' MONEY Not NULL,
|
||||
Property UStVPo_Leistungsbezeichnung As Object = Nothing ' NVARCHAR(255) NULL,
|
||||
Property UStVPo_Leistender As Object = Nothing ' NVARCHAR(65) NULL,
|
||||
Property UStVPo_Schnittstelle As Object = Nothing ' BIT Default ((0)) Not NULL,
|
||||
Property UStVPo_SchnittstellenNr As Object = Nothing ' SMALLINT Default ((0)) Not NULL,
|
||||
Property UStVPo_Umrechnungskurs As Object = Nothing ' FLOAT(53) NULL,
|
||||
Property UStVPo_USteuerbetragEUR As Object = Nothing ' MONEY NULL,
|
||||
Property UStVPo_Sachbearbeiter As Object = Nothing ' NVARCHAR(15) NULL,
|
||||
Property UStVPo_Zeitstempel As Object = Nothing ' DATETIME Default (getdate()) NULL,
|
||||
|
||||
Dim SQL As New 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("UStVAn_ID", UStVAn_ID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_ID", UStVPo_ID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_ReDat", UStVPo_ReDat))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_ReNr", UStVPo_ReNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_USteuerbetrag", UStVPo_USteuerbetrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_Leistungsbezeichnung", UStVPo_Leistungsbezeichnung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_Leistender", UStVPo_Leistender))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_Schnittstelle", UStVPo_Schnittstelle))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_SchnittstellenNr", UStVPo_SchnittstellenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_Umrechnungskurs", UStVPo_Umrechnungskurs))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_USteuerbetragEUR", UStVPo_USteuerbetragEUR))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_Sachbearbeiter", UStVPo_Sachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_Zeitstempel", UStVPo_Zeitstempel))
|
||||
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)
|
||||
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 tblUStVPositionen (" & 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
|
||||
110
SDL/VERAG_PROG_ALLGEMEIN/Classes/_BASE.vb
Normal file
110
SDL/VERAG_PROG_ALLGEMEIN/Classes/_BASE.vb
Normal file
@@ -0,0 +1,110 @@
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class _BASE
|
||||
Property _BASE_id As Integer
|
||||
Property _BASE_value As Object = Nothing
|
||||
|
||||
|
||||
Public hasEntry = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New(_BASE_id)
|
||||
Me._BASE_id = _BASE_id
|
||||
LOAD()
|
||||
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("_BASE_id", _BASE_id,, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("_BASE_value", _BASE_value))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblTABLE WHERE _BASE_id=@_BASE_id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
hasEntry = False
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblTABLE WHERE _BASE_id=@_BASE_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@_BASE_id", _BASE_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
hasEntry = True
|
||||
End If
|
||||
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 getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblTABLE] SET " & str & " WHERE _BASE_id=@_BASE_id ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 tblTABLE (" & 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
|
||||
7
SDL/VERAG_PROG_ALLGEMEIN/Classes/cAbfertigungsarten.vb
Normal file
7
SDL/VERAG_PROG_ALLGEMEIN/Classes/cAbfertigungsarten.vb
Normal file
@@ -0,0 +1,7 @@
|
||||
Public Class cAbfertigungsarten
|
||||
Shared SQLtmp As New SQL
|
||||
Public Shared Function getAbfertigungsartBezById(abfArt As Integer)
|
||||
Return SQLtmp.getValueTxtBySql("SELECT [Abfertigungsbezeichnung] FROM [Abfertigungsarten] WHERE [Abfertigungsart]=" & abfArt, "FMZOLL")
|
||||
End Function
|
||||
|
||||
End Class
|
||||
221
SDL/VERAG_PROG_ALLGEMEIN/Classes/cAbgaben.vb
Normal file
221
SDL/VERAG_PROG_ALLGEMEIN/Classes/cAbgaben.vb
Normal file
@@ -0,0 +1,221 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cAbgaben
|
||||
|
||||
Property [Index] As Integer = -1
|
||||
|
||||
Property Status As Object = Nothing
|
||||
Property ZollamtsNr As Object = Nothing
|
||||
Property Jahr As Object = Nothing
|
||||
Property KennNr As Object = Nothing
|
||||
Property Nummer As Object = Nothing
|
||||
Property Leitzahl As Object = Nothing
|
||||
Property Belegart As Object = Nothing
|
||||
Property LeistungsNr As Object = Nothing
|
||||
Property Betrag As Object = Nothing
|
||||
Property Eingabedatum As Object = Nothing
|
||||
Property Abfertigungsdatum As Object = Nothing
|
||||
Property Übernahmedatum As Object = Nothing
|
||||
Property Bemerkung As Object = Nothing
|
||||
Property Sachbearbeiter As Object = Nothing
|
||||
Property Bezugsnummer As Object = Nothing
|
||||
Property Registriernummer As Object = Nothing
|
||||
Property Korrekturnummer As Object = Nothing
|
||||
Property AOFD As Object = Nothing
|
||||
Property AKTO As Object = Nothing
|
||||
Property Fälligkeitsdatum As Object = Nothing
|
||||
Property Dateiname As Object = Nothing
|
||||
Property Mandant As Object = Nothing
|
||||
Property Niederlassung As Object = Nothing
|
||||
Property LeistungsBez As Object = Nothing
|
||||
|
||||
|
||||
Public hasEntry As Boolean = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
Sub New(Index)
|
||||
If Index IsNot Nothing Then
|
||||
Me.Index = Index
|
||||
LOAD()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub New(Registriernummer, Belegart, Betrag)
|
||||
LOAD(Registriernummer, Belegart, Betrag)
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public 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("Index", [Index], , True, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Status", [Status]))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ZollamtsNr", ZollamtsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Jahr", Jahr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KennNr", KennNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Nummer", Nummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Leitzahl", Leitzahl))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Belegart", Belegart))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LeistungsNr", LeistungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Betrag", Betrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Eingabedatum", Eingabedatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abfertigungsdatum", Abfertigungsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Übernahmedatum", Übernahmedatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bemerkung", Bemerkung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachbearbeiter", Sachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bezugsnummer", Bezugsnummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Registriernummer", Registriernummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Korrekturnummer", Korrekturnummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AOFD", AOFD))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AKTO", AKTO))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Fälligkeitsdatum", Fälligkeitsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Dateiname", Dateiname))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Mandant", Mandant))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Niederlassung", Niederlassung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LeistungsBez", LeistungsBez))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE(Optional errHinweis = "") As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM Zkteing WITH(updlock,serializable) WHERE [Index]=@Index) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
[Index] = SQL.doSQLVarListID([Index], sqlstr, "FMZOLL", , list,, errHinweis)
|
||||
Return [Index] > 0
|
||||
End Function
|
||||
|
||||
Shared Function EXISTS(LeistungsNr, Betrag, Registriernummer, AOFD, AKTO, Fälligkeitsdatum) As Boolean
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LeistungsNr", LeistungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Betrag", Betrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Registriernummer", Registriernummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AOFD", AOFD))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AKTO", AKTO))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Fälligkeitsdatum", Fälligkeitsdatum))
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim count = SQL.getValueTxtBySqlVarList("SELECT count(*) FROM Zkteing WHERE LeistungsNr=@LeistungsNr AND Betrag=@Betrag AND Registriernummer=@Registriernummer AND AOFD=@AOFD AND AKTO=@AKTO AND Fälligkeitsdatum=@Fälligkeitsdatum ", "FMZOLL", list, 0)
|
||||
Return (count > 0)
|
||||
End Function
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM Zkteing WHERE [Index]=@Index ", conn)
|
||||
cmd.Parameters.AddWithValue("@Index", [Index])
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
hasEntry = True
|
||||
Next
|
||||
|
||||
End If
|
||||
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 Sub LOAD(Registriernummer, Belegart, Betrag)
|
||||
If Betrag Is Nothing Then Betrag = 0
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM Zkteing WHERE Registriernummer=@Registriernummer AND Belegart=@Belegart AND Betrag=@Betrag ", conn)
|
||||
cmd.Parameters.AddWithValue("@Registriernummer", Registriernummer)
|
||||
cmd.Parameters.AddWithValue("@Belegart", Belegart)
|
||||
cmd.Parameters.AddWithValue("@Betrag", CDbl(Betrag))
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
hasEntry = True
|
||||
Next
|
||||
|
||||
End If
|
||||
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 getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [Zkteing] SET " & str & " WHERE [Index]=@Index ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 Zkteing (" & 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
|
||||
|
||||
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [Zkteing] WITH(updlock,serializable) WHERE [Index]=" & Me.[Index]
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
Public Shared Function DELETE(id As Integer) As Boolean
|
||||
Dim SQL As New SQL
|
||||
Dim sqlstr = " DELETE FROM [Zkteing] WHERE [Index]=" & id
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
End Class
|
||||
149
SDL/VERAG_PROG_ALLGEMEIN/Classes/cAbrechnung_NCTSBrg.vb
Normal file
149
SDL/VERAG_PROG_ALLGEMEIN/Classes/cAbrechnung_NCTSBrg.vb
Normal file
@@ -0,0 +1,149 @@
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cAbrechnung_NCTSBrg_LIST
|
||||
Public LIST As New List(Of cAbrechnung_NCTSBrg)
|
||||
|
||||
Sub New(abrg_Partner)
|
||||
LOAD_LIST(abrg_Partner)
|
||||
|
||||
End Sub
|
||||
|
||||
Sub LOAD_LIST(abrg_Partner)
|
||||
Try
|
||||
LIST.Clear()
|
||||
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("Select abrg_Id From [tblAbrechnung_NCTSBrg] Where [abrg_Partner] =@abrg_Partner order by abrg_GarantiewertBis", conn)
|
||||
cmd.Parameters.AddWithValue("@abrg_Partner", abrg_Partner)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim L As New cAbrechnung_NCTSBrg(dr.Item("abrg_Id"))
|
||||
LIST.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
|
||||
End Class
|
||||
Public Class cAbrechnung_NCTSBrg
|
||||
Property abrg_Id As Integer
|
||||
Property abrg_Partner As String
|
||||
Property abrg_artAbrechnung As String = "LKW"
|
||||
Property abrg_GarantiewertBis As Decimal = 0
|
||||
Property abrg_bertrag As Decimal = 0
|
||||
Property abrg_prozent As Object = Nothing
|
||||
|
||||
Public _ANZAHL As Integer = 0
|
||||
Public _BETRAG As Integer = 0
|
||||
|
||||
Public hasEntry = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New(abrg_Id)
|
||||
Me.abrg_Id = abrg_Id
|
||||
LOAD()
|
||||
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("abrg_Id", abrg_Id,, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("abrg_Partner", abrg_Partner))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("abrg_artAbrechnung", abrg_artAbrechnung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("abrg_GarantiewertBis", abrg_GarantiewertBis))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("abrg_bertrag", abrg_bertrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("abrg_prozent", abrg_prozent))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblAbrechnung_NCTSBrg WHERE abrg_Id=@abrg_Id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
hasEntry = False
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblAbrechnung_NCTSBrg WHERE abrg_Id=@abrg_Id ", conn)
|
||||
cmd.Parameters.AddWithValue("@abrg_Id", abrg_Id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
hasEntry = True
|
||||
End If
|
||||
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 getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblAbrechnung_NCTSBrg] SET " & str & " WHERE abrg_Id=@abrg_Id ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 tblAbrechnung_NCTSBrg (" & 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
|
||||
296
SDL/VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb
Normal file
296
SDL/VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb
Normal file
@@ -0,0 +1,296 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cAdressen
|
||||
Property Auswahl As Object = Nothing
|
||||
Property AdressenNr As Object = Nothing
|
||||
Property Ordnungsbegriff As Object = Nothing
|
||||
Property Name_1 As Object = Nothing
|
||||
Property Name_2 As Object = Nothing
|
||||
Property Postfach As Object = Nothing
|
||||
Property PLZPF As Object = Nothing
|
||||
Property Straße As Object = Nothing
|
||||
Property LandKz As Object = Nothing
|
||||
Property PLZ As Object = Nothing
|
||||
Property Ort As Object = Nothing
|
||||
Property Telefon As Object = Nothing
|
||||
Property Telefax As Object = Nothing
|
||||
Property Mobiltelefon As Object = Nothing
|
||||
Property E_Mail As Object = Nothing
|
||||
Property E_Mail2 As Object = Nothing
|
||||
Property Anrede As Object = Nothing
|
||||
Property Ansprechpartner As Object = Nothing
|
||||
Property UstIdKz As Object = Nothing
|
||||
Property UstIdNr As Object = Nothing
|
||||
Property UstIdGeprüft As Object = Nothing
|
||||
Property BLZ As Object = Nothing
|
||||
Property KTO As Object = Nothing
|
||||
Property Eingegeben_am As Object = Nothing
|
||||
Property Geändert_am As Object = Nothing
|
||||
Property Sachbearbeiter As Object = Nothing
|
||||
Property Rechnungsdruck As Object = Nothing
|
||||
Property Steuernummer As Object = Nothing
|
||||
Property IDSKundenNr As Object = Nothing
|
||||
Property WölflKundenNr As Object = Nothing
|
||||
Property MSEKundenNr As Object = Nothing
|
||||
Property MSEExportCSV As Object = Nothing
|
||||
Property TELEPASS_Kd_Nr As Object = Nothing
|
||||
Property ASFINAGExportCSV As Object = Nothing
|
||||
Property UStV_GVAnfDat As Object = Nothing
|
||||
Property UStV_GVAusDat As Object = Nothing
|
||||
Property ExportMautberichtCSV As Object = Nothing
|
||||
Property UTAKundenNr As Object = Nothing
|
||||
Property UTAExportCSV As Object = Nothing
|
||||
'Property SSMA_TimeStamp As Object = Nothing
|
||||
Property MWSTVorauszahlung As Object = Nothing
|
||||
Property PLOSEKundenNr As Object = Nothing
|
||||
|
||||
|
||||
Public hasEntry = False
|
||||
Shared SQL As New SQL
|
||||
|
||||
Sub New(AdressenNr)
|
||||
Me.AdressenNr = AdressenNr
|
||||
If AdressenNr <= 0 Then
|
||||
INIT_NEWKD_DATA()
|
||||
Else
|
||||
LOAD()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Function FullName() As String
|
||||
Return (If(Name_1, "") & " " & If(Name_2, "")).ToString.Replace(" ", " ")
|
||||
End Function
|
||||
|
||||
Public Shared Function getHoechsteKdNr(NrKr_von As Integer, NrKr_bis As Integer) As Integer
|
||||
Try
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL(False)
|
||||
|
||||
Using cmd As New SqlCommand("select isnull(min([AdressenNr]) +1," & NrKr_von & ") as AdressenNr from [Adressen] a INNER JOIN Kunden ON Kundennr=adressennr where AdressenNr between '" & NrKr_von & "' AND '" & NrKr_bis & "' AND not exists ( select * from [Adressen] b where AdressenNr between '" & NrKr_von & "' AND '" & NrKr_bis & "' and a.[AdressenNr] +1 = b.[AdressenNr]) AND KundenNr NOT IN (([AdressenNr]) +1) ", conn)
|
||||
'Using cmd As New SqlCommand("SELECT isnull(max([AdressenNr])," & NrKr_von & ") as AdressenNr FROM Adressen WHERE AdressenNr BETWEEN '" & NrKr_von & "' AND '" & NrKr_bis & "' ", conn)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.HasRows Then
|
||||
dr.Read()
|
||||
If IsNumeric(dr.Item("AdressenNr")) Then Return (CInt(dr.Item("AdressenNr")))
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
|
||||
End Try
|
||||
Return -1
|
||||
End Function
|
||||
|
||||
|
||||
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("Mandant", Mandant))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Auswahl", Auswahl))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AdressenNr", AdressenNr, , True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Ordnungsbegriff", Ordnungsbegriff))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Name 1", Name_1, "Name_1"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Name 2", Name_2, "Name_2"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Postfach", Postfach))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PLZPF", PLZPF))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Straße", Straße))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LandKz", LandKz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PLZ", PLZ))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Ort", Ort))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Telefon", Telefon))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Telefax", Telefax))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Mobiltelefon", Mobiltelefon))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("E-Mail", E_Mail, "E_Mail"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("E-Mail2", E_Mail2, "E_Mail2"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Anrede", Anrede))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Ansprechpartner", Ansprechpartner))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UstIdKz", UstIdKz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UstIdNr", UstIdNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UstIdGeprüft", UstIdGeprüft))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BLZ", BLZ))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KTO", KTO))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Eingegeben am", Eingegeben_am, "Eingegeben_am"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Geändert am", Geändert_am, "Geändert_am"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachbearbeiter", Sachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechnungsdruck", Rechnungsdruck))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuernummer", Steuernummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("IDSKundenNr", IDSKundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("WölflKundenNr", WölflKundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("MSEKundenNr", MSEKundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("MSEExportCSV", MSEExportCSV))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TELEPASS-Kd-Nr", TELEPASS_Kd_Nr, "TELEPASS_Kd_Nr"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ASFINAGExportCSV", ASFINAGExportCSV))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStV_GVAnfDat", UStV_GVAnfDat))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStV_GVAusDat", UStV_GVAusDat))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ExportMautberichtCSV", ExportMautberichtCSV))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UTAKundenNr", UTAKundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UTAExportCSV", UTAExportCSV))
|
||||
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SSMA_TimeStamp", SSMA_TimeStamp))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("MWSTVorauszahlung", MWSTVorauszahlung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PLOSEKundenNr", PLOSEKundenNr))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Sub INIT_NEWKD_DATA()
|
||||
If Me.Sachbearbeiter Is Nothing Then Me.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
Me.Eingegeben_am = Now.ToShortDateString
|
||||
Me.Auswahl = "A"
|
||||
Me.Rechnungsdruck = 0
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Function VALID(ByRef ERROR_TXT) As Boolean
|
||||
If If(Ordnungsbegriff, "") = "" Then ERROR_TXT = "Bitte geben Sie einen Ordnungsbegriff ein!" : Return False
|
||||
If If(Name_1, "") = "" Then ERROR_TXT = "Bitte geben Sie den Firmenwortlaut ein!" : Return False
|
||||
If If(LandKz, "") = "" Then ERROR_TXT = "Bitte geben Sie das Land an!" : Return False
|
||||
If If(Ort, "") = "" Then ERROR_TXT = "Bitte geben Sie den Ort an!" : Return False
|
||||
If If(PLZ, "") = "" Then ERROR_TXT = "Bitte geben Sie die PLZ an!" : Return False
|
||||
If If(Straße, "") = "" Then ERROR_TXT = "Bitte geben Sie die Straße an!" : Return False
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Public Function SAVE(Optional newFlag = False) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
If newFlag Then INIT_NEWKD_DATA()
|
||||
If AdressenNr <= 0 Then
|
||||
MsgBox("Fehler: KundenNr <= 0!")
|
||||
Return False
|
||||
End If
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM Adressen WHERE AdressenNr=@AdressenNr) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
'MsgBox(sqlstr)
|
||||
|
||||
Dim id = SQL.doSQLVarListID(AdressenNr, sqlstr, "FMZOLL", , list,,, False, 2)
|
||||
If id = -2 Then id = SQL.doSQLVarListID(AdressenNr, sqlstr, "FMZOLL", , list,,, False, 10) '2.Versuch --> Oft Timeout wg.Fmzoll
|
||||
If id = -2 Then id = SQL.doSQLVarListID(AdressenNr, sqlstr, "FMZOLL", , list) '3.Versuch --> Oft Timeout wg.Fmzoll
|
||||
|
||||
' Dim id = SQL.doSQLVarListID(, sqlstr, "FMZOLL", , list)
|
||||
If id > 0 Then AdressenNr = id 'Sonst wird beim Speichern mit Fehler -1 in die AdressenNr übergeben
|
||||
Return id > 0
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Dim test = ""
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL(False)
|
||||
Using cmd As New SqlCommand("SELECT * FROM Adressen WHERE AdressenNr=@AdressenNr ", conn)
|
||||
cmd.Parameters.AddWithValue("@AdressenNr", AdressenNr)
|
||||
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
' Me.GetType.GetProperty(l.Scalarvariable) = dr.Item(l.Text)
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
' MsgBox(l.Text)
|
||||
' MsgBox(propInfo.PropertyType.ToString)
|
||||
' propInfo.SetValue(GetType(Object), l.Text)
|
||||
|
||||
'propInfo.SetValue(Me, l.Text)
|
||||
|
||||
' Try
|
||||
test = l.Text
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
' Catch ex As Exception
|
||||
|
||||
' End Try
|
||||
|
||||
' Me.GetType.GetProperty(l.Scalarvariable).setSetValue(GetType(Object), l.Text)
|
||||
'If propInfo IsNot Nothing Then
|
||||
'propInfo.SetValue(l.Scalarvariable, l.Text)
|
||||
' End If
|
||||
Next
|
||||
Me.hasEntry = True
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
'Return Nothing
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
' MsgBox(test & "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
' Return Nothing
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Function doesOrdnungsbegriffExist() As Boolean
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL(False)
|
||||
Using cmd As New SqlCommand("SELECT count(*) FROM Adressen WHERE Ordnungsbegriff=@Ordnungsbegriff ", conn)
|
||||
cmd.Parameters.AddWithValue("@Ordnungsbegriff", Ordnungsbegriff)
|
||||
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
Return dr.Item(0) > 0
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
'Return Nothing
|
||||
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 False
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," 'Text.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [Adressen] SET " & str & " WHERE AdressenNr=@AdressenNr ")
|
||||
|
||||
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
|
||||
|
||||
Public Shared Function getNewAdressenNr752000() As Integer
|
||||
Return (New SQL).getValueTxtBySql("SELECT isnull(MAX (Adressennr),752000)+1 FROM [Adressen] where [AdressenNr]>752000 and [AdressenNr]<800000", "FMZOLL")
|
||||
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.isonlyForLoad Then 'And (Not i.isPrimaryParam OrElse i.Value > 0) Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," 'Text.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO Adressen (" & 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
|
||||
180
SDL/VERAG_PROG_ALLGEMEIN/Classes/cAvisoAnhaenge.vb
Normal file
180
SDL/VERAG_PROG_ALLGEMEIN/Classes/cAvisoAnhaenge.vb
Normal file
@@ -0,0 +1,180 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cAvisoAnhaenge
|
||||
Property anh_id As Integer
|
||||
Property anh_AvisoId As Integer
|
||||
Property anh_SendungsId As Object = Nothing
|
||||
Property anh_Name As String
|
||||
Property anh_docId As Integer
|
||||
Property anh_Art As Object = Nothing
|
||||
Property anh_Typ As String
|
||||
Property anh_Reihenfolge As Integer = 99
|
||||
Property anh_LaufzettelDruck As Boolean = False
|
||||
Property anh_GestellungslisteAnfuegen As Boolean = False
|
||||
|
||||
|
||||
Public hasEntry As Boolean = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
Sub New(anh_id)
|
||||
' If anh_id IsNot Nothing Then
|
||||
Me.anh_id = anh_id
|
||||
LOAD()
|
||||
' End If
|
||||
End Sub
|
||||
|
||||
Sub New(anh_AvisoId, anh_Name, anh_docId, anh_Art, anh_Typ, Optional anh_SendungsId = Nothing, Optional anh_Reihenfolge = 99)
|
||||
Me.anh_AvisoId = anh_AvisoId
|
||||
Me.anh_SendungsId = anh_SendungsId
|
||||
Me.anh_Name = anh_Name
|
||||
Me.anh_docId = anh_docId
|
||||
Me.anh_Art = anh_Art
|
||||
Me.anh_Typ = anh_Typ
|
||||
Me.anh_Reihenfolge = anh_Reihenfolge
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Public 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("anh_id", anh_id, , True, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_AvisoId", anh_AvisoId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_SendungsId", anh_SendungsId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_Name", anh_Name))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_docId", anh_docId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_Art", anh_Art))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_Typ", anh_Typ))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_Reihenfolge", anh_Reihenfolge))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_LaufzettelDruck", anh_LaufzettelDruck))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_GestellungslisteAnfuegen", anh_GestellungslisteAnfuegen))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
Shared Sub LOAD_LIST_ByAviso(ByRef ANH_LIST As List(Of cAvisoAnhaenge), anh_AvisoId As Integer)
|
||||
If ANH_LIST Is Nothing Then ANH_LIST = New List(Of cAvisoAnhaenge)
|
||||
ANH_LIST.Clear()
|
||||
Dim SQL As New SQL
|
||||
For Each r In SQL.loadDgvBySql("SELECT anh_id FROM tblAvisoAnhaenge WHERE anh_AvisoId=" & anh_AvisoId & " ORDER BY anh_Reihenfolge,anh_Name,anh_id", "AVISO").Rows
|
||||
ANH_LIST.Add(New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(r("anh_id")))
|
||||
Next
|
||||
' If allowchangeCurrIndex Then CURRENT_INDEX = IIf(ANH_LIST.Count > 0, 0, -1)
|
||||
End Sub
|
||||
|
||||
Shared Sub LOAD_LIST_BySendung(ByRef ANH_LIST As List(Of cAvisoAnhaenge), anh_SendungsId As Integer)
|
||||
If ANH_LIST Is Nothing Then ANH_LIST = New List(Of cAvisoAnhaenge)
|
||||
ANH_LIST.Clear()
|
||||
Dim SQL As New SQL
|
||||
For Each r In SQL.loadDgvBySql("SELECT anh_id FROM tblAvisoAnhaenge WHERE anh_SendungsId=" & anh_SendungsId & " ORDER BY anh_Reihenfolge,anh_Name,anh_id", "AVISO").Rows
|
||||
ANH_LIST.Add(New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(r("anh_id")))
|
||||
Next
|
||||
' If allowchangeCurrIndex Then CURRENT_INDEX = IIf(ANH_LIST.Count > 0, 0, -1)
|
||||
End Sub
|
||||
|
||||
Public Function SAVE(Optional errHinweis = "") As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblAvisoAnhaenge WITH(updlock,serializable) WHERE anh_id=@anh_id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
anh_id = SQL.doSQLVarListID(anh_id, sqlstr, "AVISO", , list,, errHinweis)
|
||||
Return anh_id > 0
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionAVISO()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblAvisoAnhaenge WHERE anh_id=@anh_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@anh_id", anh_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
hasEntry = True
|
||||
Next
|
||||
|
||||
End If
|
||||
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 getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblAvisoAnhaenge] SET " & str & " WHERE anh_id=@anh_id ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 tblAvisoAnhaenge (" & 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
|
||||
|
||||
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblAvisoAnhaenge] WITH(updlock,serializable) WHERE anh_id=" & Me.anh_id
|
||||
Return SQL.doSQL(sqlstr, "AVISO")
|
||||
End Function
|
||||
|
||||
Public Shared Function DELETE(id As Integer) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblAvisoAnhaenge] WITH(updlock,serializable) WHERE anh_id=" & id
|
||||
Return (New VERAG_PROG_ALLGEMEIN.SQL).doSQL(sqlstr, "AVISO")
|
||||
End Function
|
||||
|
||||
Public Shared Function toggleLaufzettelDruck(id As Integer) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " UPDATE [tblAvisoAnhaenge] SET [anh_LaufzettelDruck] = 1 - [anh_LaufzettelDruck] WHERE anh_id=" & id
|
||||
Return (New VERAG_PROG_ALLGEMEIN.SQL).doSQL(sqlstr, "AVISO")
|
||||
End Function
|
||||
|
||||
Public Shared Function toggleGestellungslisteAnfuegen(id As Integer) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " UPDATE [tblAvisoAnhaenge] SET [anh_GestellungslisteAnfuegen] = 1 - [anh_GestellungslisteAnfuegen] WHERE anh_id=" & id
|
||||
Return (New VERAG_PROG_ALLGEMEIN.SQL).doSQL(sqlstr, "AVISO")
|
||||
End Function
|
||||
|
||||
End Class
|
||||
225
SDL/VERAG_PROG_ALLGEMEIN/Classes/cAvisoBenachrichtigungen.vb
Normal file
225
SDL/VERAG_PROG_ALLGEMEIN/Classes/cAvisoBenachrichtigungen.vb
Normal file
@@ -0,0 +1,225 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cAvisoBenachrichtigungen
|
||||
|
||||
|
||||
Property ab_id As Integer = -1
|
||||
Property ab_AvisoID As Integer = -1
|
||||
Property ab_SendungID As Object = Nothing
|
||||
Property ab_Art As String
|
||||
Property ab_Datum As Date
|
||||
Property ab_Status As Integer
|
||||
Property ab_BenachrichtigungCode As Integer
|
||||
Property ab_Beschreibung As String
|
||||
Property ab_Prioritaet As Integer
|
||||
Property ab_Mitarbeiter As String
|
||||
Property ab_MitarbeiterId As Integer
|
||||
|
||||
Property ab_TO_Art As Object = Nothing
|
||||
Property ab_TO_Code As Object = Nothing
|
||||
Property ab_Bestaetigt_MaId As Object = Nothing
|
||||
Property ab_Bestaetigt_Datum As Object = Nothing
|
||||
|
||||
Property ab_Firma As Object = Nothing
|
||||
Property ab_Cluster As Object = Nothing
|
||||
Property ab_collAnhId As Object = Nothing
|
||||
Property ab_Vermerk As Object = Nothing
|
||||
|
||||
Shared SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
' ab_TO_Art
|
||||
'F..irma
|
||||
'N..iederlassung
|
||||
'A..bteilung
|
||||
'T..eam
|
||||
'B..enutzer
|
||||
|
||||
Sub New(ab_id)
|
||||
Me.ab_id = ab_id
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
Public Shared Function INSERT_BENACHRICHTIGUNG(ab_AvisoID As Integer, ab_SendungID As Object, ab_BenachrichtigungCode As Integer, Optional ab_TO_Art As Object = Nothing, Optional ab_TO_Code As Object = Nothing, Optional ab_Beschreibung As String = "", Optional ab_Prioritaet As Integer = 0, Optional ab_collAnhId As String = "", Optional ab_Vermerk As String = "") As Boolean
|
||||
Dim AB As New cAvisoBenachrichtigungen
|
||||
|
||||
AB.ab_AvisoID = ab_AvisoID
|
||||
If ab_SendungID IsNot Nothing AndAlso ab_SendungID > 0 Then
|
||||
AB.ab_SendungID = ab_SendungID
|
||||
AB.ab_Art = "S"
|
||||
Else
|
||||
AB.ab_SendungID = Nothing
|
||||
AB.ab_Art = "A"
|
||||
End If
|
||||
|
||||
AB.ab_TO_Art = ab_TO_Art
|
||||
AB.ab_TO_Code = ab_TO_Code
|
||||
|
||||
AB.ab_Datum = Now
|
||||
AB.ab_Status = 0
|
||||
AB.ab_BenachrichtigungCode = ab_BenachrichtigungCode
|
||||
If ab_Beschreibung = "" Then ab_Beschreibung = SQL.getValueTxtBySql("SELECT abc_Bezeichnung FROM tblAvisoBenachrichtigungenCodes WHERE abc_id=" & ab_BenachrichtigungCode, "AVISO")
|
||||
AB.ab_Beschreibung = ab_Beschreibung
|
||||
AB.ab_Prioritaet = ab_Prioritaet
|
||||
AB.ab_Mitarbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
|
||||
AB.ab_MitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
||||
|
||||
AB.ab_Firma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
AB.ab_Cluster = VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER
|
||||
AB.ab_Vermerk = ab_Vermerk
|
||||
AB.ab_collAnhId = ab_collAnhId
|
||||
Return AB.SAVE
|
||||
End Function
|
||||
|
||||
Public Shared Function BESTAETIGEN_BENACHRICHTIGUNG_ALL(ab_AvisoID, onlytype) As Boolean
|
||||
Dim sqlstr = " Update [tblAvisoBenachrichtigungen] SET ab_Status = 1,ab_Bestaetigt_MaId=-1,ab_Bestaetigt_Datum=getDate() WHERE ab_AvisoID=" & ab_AvisoID & If(onlytype, " and ab_art='A' ", "")
|
||||
Return SQL.doSQL(sqlstr, "AVISO")
|
||||
End Function
|
||||
|
||||
Public Shared Function BESTAETIGEN_BENACHRICHTIGUNG_SND([ab_SendungID], onlytype) As Boolean
|
||||
Dim sqlstr = " Update [tblAvisoBenachrichtigungen] SET ab_Status = 1,ab_Bestaetigt_MaId=-1,ab_Bestaetigt_Datum=getDate() WHERE [ab_SendungID]=" & [ab_SendungID]
|
||||
Return SQL.doSQL(sqlstr, "AVISO")
|
||||
End Function
|
||||
|
||||
Public Function BESTAETIGEN_BENACHRICHTIGUNG() As Boolean
|
||||
Me.ab_Status = 1
|
||||
Me.ab_Bestaetigt_MaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
||||
Me.ab_Bestaetigt_Datum = Now
|
||||
|
||||
Return Me.SAVE
|
||||
End Function
|
||||
|
||||
|
||||
Public Shared Function BESTAETIGEN_BENACHRICHTIGUNG(ab_id As Integer) As Boolean
|
||||
Dim AB As New cAvisoBenachrichtigungen(ab_id)
|
||||
|
||||
AB.ab_Status = 1
|
||||
AB.ab_Bestaetigt_MaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
||||
AB.ab_Bestaetigt_Datum = Now
|
||||
|
||||
Return AB.SAVE
|
||||
End Function
|
||||
|
||||
Public 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("ab_id", ab_id, , True, True))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_AvisoID", ab_AvisoID)) ' INT NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_SendungID", ab_SendungID)) ' INT NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_Art", ab_Art)) ' INT NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_Datum", ab_Datum)) ' INT NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_Status", ab_Status)) ' VARCHAR(200) Not NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_BenachrichtigungCode", ab_BenachrichtigungCode)) ' VARCHAR(40) Not NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_Beschreibung", ab_Beschreibung)) ' VARCHAR(40) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_Prioritaet", ab_Prioritaet)) 'VARCHAR(40) Not NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_Mitarbeiter", ab_Mitarbeiter)) 'VARCHAR(60) Not NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_MitarbeiterId", ab_MitarbeiterId))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_TO_Art", ab_TO_Art))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_TO_Code", ab_TO_Code))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_Bestaetigt_MaId", ab_Bestaetigt_MaId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_Bestaetigt_Datum", ab_Bestaetigt_Datum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_Firma", ab_Firma))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_Cluster", ab_Cluster))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_collAnhId", ab_collAnhId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_Vermerk", ab_Vermerk))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblAvisoBenachrichtigungen WITH(updlock,serializable) WHERE ab_id=@ab_id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
ab_id = SQL.doSQLVarListID(ab_id, sqlstr, "AVISO", , list)
|
||||
Return ab_id > 0
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionAVISO
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblAvisoBenachrichtigungen WHERE ab_id=@ab_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@ab_id", ab_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
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 getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblAvisoBenachrichtigungen] SET " & str & " WHERE ab_id=@ab_id ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 tblAvisoBenachrichtigungen (" & 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
|
||||
|
||||
|
||||
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblAvisoBenachrichtigungen] WITH(updlock,serializable) WHERE ab_id=" & Me.ab_id
|
||||
Return SQL.doSQL(sqlstr, "AVISO")
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
182
SDL/VERAG_PROG_ALLGEMEIN/Classes/cBonitaetsauskunft.vb
Normal file
182
SDL/VERAG_PROG_ALLGEMEIN/Classes/cBonitaetsauskunft.vb
Normal file
@@ -0,0 +1,182 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cBonitaetsauskunft
|
||||
|
||||
Property ba_id As Integer = -1
|
||||
Property ba_KundenNr As Integer
|
||||
Property ba_Datum As Date
|
||||
Property ba_MaId As Integer
|
||||
Property ba_Sachbearbeiter As String = ""
|
||||
Property ba_CRArt As String = ""
|
||||
Property ba_CRAnsprechpartnerHerrFrau As String = ""
|
||||
Property ba_CRAnsprechpartner As String = ""
|
||||
Property ba_Firma As String = ""
|
||||
Property ba_Adresse1 As String = ""
|
||||
Property ba_Adresse2 As String = ""
|
||||
Property ba_LetztesBearbeitungsDatum As Object = Nothing
|
||||
Property ba_BonitaetsIndex As Integer
|
||||
Property ba_GruendundsDatum As Object = Nothing
|
||||
Property ba_Umsatz As Object = Nothing
|
||||
Property ba_Mitarbeiter As Object = Nothing
|
||||
Property ba_Bankverbindung As Object = Nothing
|
||||
Property ba_Hoechstkredit As Object = Nothing
|
||||
Property ba_Zahlungsweise As Object = Nothing
|
||||
Property ba_GFName As Object = Nothing
|
||||
Property ba_Sonstiges As Object = Nothing
|
||||
Property ba_Risikostufe As Object = Nothing
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
Sub New(ba_id)
|
||||
Me.ba_id = ba_id
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
Public 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("ba_id", ba_id, , True, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_KundenNr", ba_KundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_Datum", ba_Datum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_MaId", ba_MaId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_Sachbearbeiter", ba_Sachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_CRArt", ba_CRArt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_CRAnsprechpartnerHerrFrau", ba_CRAnsprechpartnerHerrFrau))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_CRAnsprechpartner", ba_CRAnsprechpartner))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_Firma", ba_Firma))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_Adresse1", ba_Adresse1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_Adresse2", ba_Adresse2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_LetztesBearbeitungsDatum", ba_LetztesBearbeitungsDatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_BonitaetsIndex", ba_BonitaetsIndex))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_GruendundsDatum", ba_GruendundsDatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_Umsatz", ba_Umsatz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_Mitarbeiter", ba_Mitarbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_Bankverbindung", ba_Bankverbindung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_Hoechstkredit", ba_Hoechstkredit))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_Zahlungsweise", ba_Zahlungsweise))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_GFName", ba_GFName))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_Sonstiges", ba_Sonstiges))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_Risikostufe", ba_Risikostufe))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblBonitaetsauskunft WITH(updlock,serializable) WHERE ba_id=@ba_id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
ba_id = SQL.doSQLVarListID(ba_id, sqlstr, "FMZOLL", , list)
|
||||
Return ba_id > 0
|
||||
End Function
|
||||
|
||||
Public Shared Function LOADByKdNrDate(ba_KundenNr As Integer, ba_Datum As Date) As cBonitaetsauskunft
|
||||
Try
|
||||
Dim BONI As New cBonitaetsauskunft
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblBonitaetsauskunft WHERE ba_KundenNr=@ba_KundenNr AND cast(ba_Datum as date)=@ba_Datum ", conn)
|
||||
cmd.Parameters.AddWithValue("@ba_KundenNr", ba_KundenNr)
|
||||
cmd.Parameters.AddWithValue("@ba_Datum", ba_Datum.ToShortDateString)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In BONI.getParameterList()
|
||||
Dim propInfo As PropertyInfo = BONI.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(BONI, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(BONI, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
dr.Close()
|
||||
Return BONI
|
||||
End If
|
||||
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
|
||||
Return Nothing
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblBonitaetsauskunft WHERE ba_id=@ba_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@ba_id", ba_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
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 getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblBonitaetsauskunft] SET " & str & " WHERE ba_id=@ba_id ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 tblBonitaetsauskunft (" & 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
|
||||
127
SDL/VERAG_PROG_ALLGEMEIN/Classes/cClasses.vb
Normal file
127
SDL/VERAG_PROG_ALLGEMEIN/Classes/cClasses.vb
Normal file
@@ -0,0 +1,127 @@
|
||||
|
||||
|
||||
Public Class MyListItem
|
||||
Private mText As String
|
||||
Private mValue As String
|
||||
|
||||
Public Sub New(ByVal pText As String, ByVal pValue As String)
|
||||
mText = pText
|
||||
mValue = pValue
|
||||
End Sub
|
||||
|
||||
Public ReadOnly Property Text() As String
|
||||
Get
|
||||
Return mText
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public ReadOnly Property Value() As String
|
||||
Get
|
||||
Return mValue
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public Overrides Function ToString() As String
|
||||
Return mText
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
Public Class MyListItem2
|
||||
Private mText As Object
|
||||
Private mValue As Object
|
||||
|
||||
Public Sub New(ByVal pText As Object, ByVal pValue As Object)
|
||||
mText = pText
|
||||
mValue = pValue
|
||||
End Sub
|
||||
|
||||
Public ReadOnly Property Text() As Object
|
||||
Get
|
||||
Return mText
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public ReadOnly Property Value() As Object
|
||||
Get
|
||||
Return mValue
|
||||
End Get
|
||||
End Property
|
||||
|
||||
' Public Overrides Function ToString() As Object
|
||||
' Return mText
|
||||
' End Function
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
Public Class SQLVariable
|
||||
Private TextSQLName As String
|
||||
Private ValueSQLVALUE As Object
|
||||
Private Scalarvariablename As String
|
||||
Private primaryParam As Boolean
|
||||
Private onlyForLoad As Boolean
|
||||
Private onlyForSave As Boolean
|
||||
|
||||
Public Sub New(ByVal Text As String, ByVal Value As Object, Optional Scalarvariablename As String = "", Optional primaryParam As Boolean = False, Optional onlyForLoad As Boolean = False, Optional onlyForSave As Boolean = False)
|
||||
Me.TextSQLName = Text
|
||||
Me.ValueSQLVALUE = Value
|
||||
Me.primaryParam = primaryParam
|
||||
Me.onlyForLoad = onlyForLoad
|
||||
Me.onlyForSave = onlyForSave
|
||||
|
||||
If Scalarvariablename <> "" Then Me.Scalarvariablename = Scalarvariablename Else Me.Scalarvariablename = Text
|
||||
End Sub
|
||||
|
||||
Public ReadOnly Property Text() As String
|
||||
Get
|
||||
Return TextSQLName
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public ReadOnly Property Value() As Object
|
||||
Get
|
||||
Return ValueSQLVALUE
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public ReadOnly Property Scalarvariable() As Object
|
||||
Get
|
||||
Return Scalarvariablename
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public ReadOnly Property isPrimaryParam() As Boolean
|
||||
Get
|
||||
Return primaryParam
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public ReadOnly Property isonlyForLoad() As Boolean
|
||||
Get
|
||||
Return onlyForLoad
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public ReadOnly Property isonlyForSave() As Boolean
|
||||
Get
|
||||
Return onlyForSave
|
||||
End Get
|
||||
End Property
|
||||
|
||||
|
||||
' Public Overrides Function ToString() As Object
|
||||
' Return mText
|
||||
' End Function
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
155
SDL/VERAG_PROG_ALLGEMEIN/Classes/cCryptography.vb
Normal file
155
SDL/VERAG_PROG_ALLGEMEIN/Classes/cCryptography.vb
Normal file
@@ -0,0 +1,155 @@
|
||||
Imports System.IO
|
||||
Imports System.Security.Cryptography
|
||||
Imports System.Text
|
||||
|
||||
Public Class cCryptography
|
||||
|
||||
'Dim EncryptionKey As String = "$kldfKFSAK37236780!!*+++hHUDO723BNU!$hask+*jhds7!2929j$+jP*!hWrT$kldfKFSAK37236780!!*+++hHUDO723BNU!$hask+*jhds7!2929j$+jP*!hWrT"
|
||||
Shared EncryptionKey As String = "$kldfKFSAK37236780!!*+++hHUDO723BNU!$hask+*jhds7!2929j$+jP*!hWrT$kldfKFSAK37236780!!*+++hHUDO723BNU!$hask+*jhds7!2929j$+jP*!hWrT"
|
||||
|
||||
Public Shared Function Encrypt(clearText As String) As String
|
||||
Dim clearBytes As Byte() = Encoding.Unicode.GetBytes(clearText)
|
||||
Using encryptor As Aes = Aes.Create()
|
||||
Dim pdb As New Rfc2898DeriveBytes(EncryptionKey, New Byte() {&H49, &H76, &H61, &H6E, &H20, &H4D, &H65, &H64, &H76, &H65, &H64, &H65, &H76})
|
||||
encryptor.Key = pdb.GetBytes(32)
|
||||
encryptor.IV = pdb.GetBytes(16)
|
||||
Using ms As New MemoryStream()
|
||||
Using cs As New CryptoStream(ms, encryptor.CreateEncryptor(), CryptoStreamMode.Write)
|
||||
cs.Write(clearBytes, 0, clearBytes.Length)
|
||||
cs.Close()
|
||||
End Using
|
||||
clearText = Convert.ToBase64String(ms.ToArray())
|
||||
End Using
|
||||
End Using
|
||||
Return clearText
|
||||
End Function
|
||||
Public Shared Function Decrypt(cipherText As String) As String
|
||||
Dim cipherBytes As Byte() = Convert.FromBase64String(cipherText)
|
||||
Using encryptor As Aes = Aes.Create()
|
||||
Dim pdb As New Rfc2898DeriveBytes(EncryptionKey, New Byte() {&H49, &H76, &H61, &H6E, &H20, &H4D, &H65, &H64, &H76, &H65, &H64, &H65, &H76})
|
||||
encryptor.Key = pdb.GetBytes(32)
|
||||
encryptor.IV = pdb.GetBytes(16)
|
||||
Using ms As New MemoryStream()
|
||||
Using cs As New CryptoStream(ms, encryptor.CreateDecryptor(), CryptoStreamMode.Write)
|
||||
cs.Write(cipherBytes, 0, cipherBytes.Length)
|
||||
cs.Close()
|
||||
End Using
|
||||
cipherText = Encoding.Unicode.GetString(ms.ToArray())
|
||||
End Using
|
||||
End Using
|
||||
Return cipherText
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
Public Class cCryptography2
|
||||
Shared _key As String = "!#$a54?3"
|
||||
Public Shared Function Encrypt(ByVal strQueryString As String) As String
|
||||
Dim oES As New Encryption64()
|
||||
Return oES.Encrypt(strQueryString, _key)
|
||||
End Function
|
||||
|
||||
Public Shared Function Decrypt(ByVal strQueryString As String) As String
|
||||
Dim oES As New Encryption64()
|
||||
Return oES.Decrypt(strQueryString, _key)
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
Public Class Encryption64
|
||||
Private key() As Byte = {}
|
||||
Private IV() As Byte = {&H12, &H34, &H56, &H78, &H90, &HAB, &HCD, &HEF}
|
||||
|
||||
Public Function Decrypt(ByVal stringToDecrypt As String,
|
||||
ByVal sEncryptionKey As String) As String
|
||||
Dim inputByteArray(stringToDecrypt.Length) As Byte
|
||||
Try
|
||||
key = System.Text.Encoding.UTF8.GetBytes(Left(sEncryptionKey, 8))
|
||||
Dim des As New DESCryptoServiceProvider()
|
||||
inputByteArray = Convert.FromBase64String(stringToDecrypt)
|
||||
Dim ms As New MemoryStream()
|
||||
Dim cs As New CryptoStream(ms, des.CreateDecryptor(key, IV),
|
||||
CryptoStreamMode.Write)
|
||||
cs.Write(inputByteArray, 0, inputByteArray.Length)
|
||||
cs.FlushFinalBlock()
|
||||
Dim encoding As System.Text.Encoding = System.Text.Encoding.UTF8
|
||||
Return encoding.GetString(ms.ToArray())
|
||||
Catch e As Exception
|
||||
Return e.Message
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Function Encrypt(ByVal stringToEncrypt As String,
|
||||
ByVal SEncryptionKey As String) As String
|
||||
Try
|
||||
key = System.Text.Encoding.UTF8.GetBytes(Left(SEncryptionKey, 8))
|
||||
Dim des As New DESCryptoServiceProvider()
|
||||
Dim inputByteArray() As Byte = Encoding.UTF8.GetBytes(
|
||||
stringToEncrypt)
|
||||
Dim ms As New MemoryStream()
|
||||
Dim cs As New CryptoStream(ms, des.CreateEncryptor(key, IV),
|
||||
CryptoStreamMode.Write)
|
||||
cs.Write(inputByteArray, 0, inputByteArray.Length)
|
||||
cs.FlushFinalBlock()
|
||||
Return Convert.ToBase64String(ms.ToArray())
|
||||
Catch e As Exception
|
||||
Return e.Message
|
||||
End Try
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
Public Class cCryptography3
|
||||
Shared _key As String = "!#?"
|
||||
|
||||
|
||||
'Public Shared Function Encrypt(ByVal strQueryString As String) As String
|
||||
|
||||
' Using hasher As MD5 = MD5.Create() ' create hash object
|
||||
|
||||
' ' Convert to byte array and get hash
|
||||
' Dim dbytes As Byte() =
|
||||
' hasher.ComputeHash(Encoding.UTF8.GetBytes(strQueryString & _key))
|
||||
|
||||
' ' sb to create string from bytes
|
||||
' Dim sBuilder As New StringBuilder()
|
||||
|
||||
' ' convert byte data to hex string
|
||||
' For n As Integer = 0 To dbytes.Length - 1
|
||||
' sBuilder.Append(dbytes(n).ToString("X2"))
|
||||
' Next n
|
||||
|
||||
' Return sBuilder.ToString()
|
||||
' End Using
|
||||
|
||||
'End Function
|
||||
|
||||
Public Shared Function Encrypt(ByVal input As String) As String
|
||||
Dim stringBytes As Byte() = System.Text.Encoding.Unicode.GetBytes(input & _key)
|
||||
Dim sbBytes As StringBuilder = New StringBuilder(stringBytes.Length * 2)
|
||||
|
||||
For Each b As Byte In stringBytes
|
||||
sbBytes.AppendFormat("{0:X2}", b)
|
||||
Next
|
||||
|
||||
Return sbBytes.ToString()
|
||||
End Function
|
||||
|
||||
|
||||
Public Shared Function Decrypt(ByVal hexInput As String) As String
|
||||
Dim numberChars As Integer = hexInput.Length
|
||||
Dim bytes As Byte() = New Byte(numberChars / 2 - 1) {}
|
||||
|
||||
For i As Integer = 0 To numberChars - 1 Step 2
|
||||
bytes(i / 2) = Convert.ToByte(hexInput.Substring(i, 2), 16)
|
||||
Next
|
||||
|
||||
Return System.Text.Encoding.Unicode.GetString(bytes).Replace(_key, "")
|
||||
End Function
|
||||
End Class
|
||||
|
||||
175
SDL/VERAG_PROG_ALLGEMEIN/Classes/cDEBundeslaenderPLZ.vb
Normal file
175
SDL/VERAG_PROG_ALLGEMEIN/Classes/cDEBundeslaenderPLZ.vb
Normal file
@@ -0,0 +1,175 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cDEBundeslaenderPLZ
|
||||
|
||||
Property PLZ As Integer
|
||||
Property Bundesland As String = ""
|
||||
Property Kreis As String = ""
|
||||
Property Typ As String = ""
|
||||
Property Code As String = ""
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
Sub New(PLZ)
|
||||
Me.PLZ = PLZ
|
||||
LOADByPLZ(PLZ)
|
||||
End Sub
|
||||
|
||||
Public 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("PLZ", PLZ)) ' INT NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bundesland", Bundesland)) ' INT NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kreis", Kreis)) ' INT NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Typ", Typ)) ' INT NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Code", Code)) ' VARCHAR(200) Not NULL,
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Shared Function LOADByPLZ(PLZ As Integer) As cDEBundeslaenderPLZ
|
||||
Try
|
||||
Dim VK As New cDEBundeslaenderPLZ
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblDEBundeslaenderPLZ WHERE PLZ=@PLZ ", conn)
|
||||
cmd.Parameters.AddWithValue("@PLZ", PLZ)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In VK.getParameterList()
|
||||
Dim propInfo As PropertyInfo = VK.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(VK, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(VK, dr.Item(l.Text))
|
||||
End If
|
||||
Next
|
||||
dr.Close()
|
||||
Return VK
|
||||
End If
|
||||
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
|
||||
Return Nothing
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Shared Function LOADBundeslandCode_ByPLZ(PLZ As Integer) As String
|
||||
Try
|
||||
Dim VK As New cDEBundeslaenderPLZ
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT Code FROM tblDEBundeslaenderPLZ WHERE PLZ=@PLZ ", conn)
|
||||
cmd.Parameters.AddWithValue("@PLZ", PLZ)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
Return dr.Item("Code")
|
||||
End If
|
||||
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
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
'Public Function SAVE() As Boolean
|
||||
' Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
' Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblDEBundeslaenderPLZ WITH(updlock,serializable) WHERE post_id=@post_id) " &
|
||||
' " BEGIN " & getUpdateCmd() & " END " &
|
||||
' " Else " &
|
||||
' " BEGIN " & getInsertCmd() & " END " &
|
||||
' " commit tran "
|
||||
|
||||
' post_id = SQL.doSQLVarListID(post_id, sqlstr, "FMZOLL", , list)
|
||||
' Return post_id > 0
|
||||
'End Function
|
||||
|
||||
|
||||
|
||||
'Public Sub LOAD()
|
||||
' Try
|
||||
' Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
' Using cmd As New SqlCommand("SELECT * FROM tblDEBundeslaenderPLZ WHERE post_id=@post_id ", conn)
|
||||
' cmd.Parameters.AddWithValue("@post_id", post_id)
|
||||
' Dim dr = cmd.ExecuteReader()
|
||||
' If dr.Read Then
|
||||
' For Each l In getParameterList()
|
||||
' Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
' If dr.Item(l.Text) Is DBNull.Value Then
|
||||
' propInfo.SetValue(Me, Nothing)
|
||||
' Else
|
||||
' propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
' End If
|
||||
|
||||
' Next
|
||||
|
||||
' End If
|
||||
' 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 getUpdateCmd() As String
|
||||
' Try
|
||||
' Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
' Dim str As String = ""
|
||||
' For Each i In list
|
||||
' If Not i.isPrimaryParam Then
|
||||
' str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
' End If
|
||||
' Next
|
||||
' str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
' Return (" UPDATE [tblDEBundeslaenderPLZ] SET " & str & " WHERE post_id=@post_id ")
|
||||
|
||||
' 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
|
||||
|
||||
|
||||
'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 tblDEBundeslaenderPLZ (" & 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
|
||||
|
||||
|
||||
'Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
' Dim sqlstr = " DELETE FROM [tblDEBundeslaenderPLZ] WITH(updlock,serializable) WHERE post_id=" & Me.post_id
|
||||
' Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
'End Function
|
||||
|
||||
|
||||
End Class
|
||||
174
SDL/VERAG_PROG_ALLGEMEIN/Classes/cDHF_Anhaenge.vb
Normal file
174
SDL/VERAG_PROG_ALLGEMEIN/Classes/cDHF_Anhaenge.vb
Normal file
@@ -0,0 +1,174 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cDHF_Anhaenge
|
||||
|
||||
Property dhfanh_id As Integer
|
||||
Property LizenzNr As String
|
||||
Property Operatorid As Integer
|
||||
Property AnmID As Integer
|
||||
Property MsgTyp As String
|
||||
Property ErstelltAm As DateTime
|
||||
Property pfad As String
|
||||
Property LRN As String
|
||||
Property CRN As String
|
||||
Property docID As Integer
|
||||
|
||||
Public hasEntry As Boolean = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
Sub New(dhfanh_id)
|
||||
If dhfanh_id IsNot Nothing Then
|
||||
Me.dhfanh_id = dhfanh_id
|
||||
LOAD()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub New(AnmID, MsgTyp)
|
||||
LOAD(AnmID, MsgTyp)
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public 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("dhfanh_id", dhfanh_id, , True, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LizenzNr", LizenzNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Operatorid", Operatorid))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnmID", AnmID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("MsgTyp", MsgTyp))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ErstelltAm", ErstelltAm))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pfad", pfad))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LRN", LRN))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CRN", CRN))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("docID", docID))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE(Optional errHinweis = "") As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblDHF_Anhaenge WITH(updlock,serializable) WHERE dhfanh_id=@dhfanh_id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
dhfanh_id = SQL.doSQLVarListID(dhfanh_id, sqlstr, "FMZOLL", , list,, errHinweis)
|
||||
Return dhfanh_id > 0
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblDHF_Anhaenge WHERE dhfanh_id=@dhfanh_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@dhfanh_id", dhfanh_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
hasEntry = True
|
||||
Next
|
||||
|
||||
End If
|
||||
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 Sub LOAD(AnmID, MsgTyp)
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblDHF_Anhaenge WHERE AnmID=@AnmID AND MsgTyp=@MsgTyp ", conn)
|
||||
cmd.Parameters.AddWithValue("@AnmID", AnmID)
|
||||
cmd.Parameters.AddWithValue("@MsgTyp", MsgTyp)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
hasEntry = True
|
||||
Next
|
||||
|
||||
End If
|
||||
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 getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "" & i.Text & " = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE tblDHF_Anhaenge SET " & str & " WHERE dhfanh_id=@dhfanh_id ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 tblDHF_Anhaenge (" & 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
|
||||
|
||||
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM tblDHF_Anhaenge WITH(updlock,serializable) WHERE dhfanh_id=" & Me.dhfanh_id
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
Public Shared Function DELETE(id As Integer) As Boolean
|
||||
Dim SQL As New SQL
|
||||
Dim sqlstr = " DELETE FROM tblDHF_Anhaenge WHERE dhfanh_id=" & id
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
End Class
|
||||
168
SDL/VERAG_PROG_ALLGEMEIN/Classes/cERS.vb
Normal file
168
SDL/VERAG_PROG_ALLGEMEIN/Classes/cERS.vb
Normal file
@@ -0,0 +1,168 @@
|
||||
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cERS
|
||||
Property ers_id As Integer
|
||||
Property ers_progId As Integer
|
||||
Property ers_progName As Object = Nothing
|
||||
Property ers_progVersion As Object = Nothing
|
||||
Property ers_datetime As DateTime = Now
|
||||
Property ers_Testsystem As Boolean
|
||||
Property ers_Type As Object = Nothing
|
||||
Property ers_EMail As Object = Nothing
|
||||
Property ers_maId As Integer = -1
|
||||
Property ers_userName As Object = Nothing
|
||||
Property ers_Firma As Object = Nothing
|
||||
Property ers_errCode As Object = Nothing
|
||||
Property ers_errStack As Object = Nothing
|
||||
Property ers_errMessage As Object = Nothing
|
||||
Property ers_errMethodName As Object = Nothing
|
||||
Property ers_infotext As Object = Nothing
|
||||
|
||||
Public hasEntry = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
|
||||
End Sub
|
||||
Sub New(ers_id)
|
||||
Me.ers_id = ers_id
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
Shared Function saveErr(ers_Type, ers_errMessage, ers_errStack, ers_errCode, ers_errMethodName, Optional ers_EMail = Nothing, Optional ers_infotext = Nothing) As Boolean
|
||||
Try
|
||||
Dim ERS As New cERS
|
||||
ERS.ers_progId = VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID
|
||||
ERS.ers_userName = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
ERS.ers_maId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
||||
ERS.ers_Testsystem = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
|
||||
ERS.ers_progName = VERAG_PROG_ALLGEMEIN.cAllgemein.PROGNAME
|
||||
ERS.ers_progVersion = VERAG_PROG_ALLGEMEIN.cAllgemein.PROGVERSION
|
||||
|
||||
ERS.ers_Type = ers_Type
|
||||
ERS.ers_EMail = ers_EMail
|
||||
ERS.ers_Firma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
ERS.ers_errMessage = ers_errMessage
|
||||
ERS.ers_errStack = ers_errStack
|
||||
ERS.ers_errCode = ers_errCode
|
||||
ERS.ers_errMethodName = ers_errMethodName
|
||||
ERS.ers_infotext = ers_infotext
|
||||
|
||||
Return ERS.SAVE()
|
||||
|
||||
Catch ex As Exception
|
||||
'was soll hier noch helfen??
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
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("ers_id", ers_id,, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_progId", ers_progId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_progVersion", ers_progVersion))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_progName", ers_progName))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_datetime", ers_datetime))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_Testsystem", ers_Testsystem))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_Type", ers_Type))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_EMail", ers_EMail))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_maId", ers_maId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_userName", ers_userName))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_Firma", ers_Firma))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_errCode", ers_errCode))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_errStack", ers_errStack))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_errMessage", ers_errMessage))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_errMethodName", ers_errMethodName))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_infotext", ers_infotext))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblERS WHERE ers_id=@ers_id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Return SQL.doSQLVarList(sqlstr, "ADMIN", False, list)
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
hasEntry = False
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblERS WHERE ers_id=@ers_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@ers_id", ers_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
hasEntry = True
|
||||
End If
|
||||
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 getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblERS] SET " & str & " WHERE ers_id=@ers_id ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 tblERS (" & 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
|
||||
149
SDL/VERAG_PROG_ALLGEMEIN/Classes/cEZB_Waehrungskurse.vb
Normal file
149
SDL/VERAG_PROG_ALLGEMEIN/Classes/cEZB_Waehrungskurse.vb
Normal file
@@ -0,0 +1,149 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cEZB_Waehrungskurse
|
||||
|
||||
' Property ezb_id As Integer
|
||||
Property ezb_waehrungscode As String = ""
|
||||
Property ezb_waehrungsschluessel As Object = Nothing
|
||||
Property ezb_datum As Date
|
||||
Property ezb_kurs As Double
|
||||
|
||||
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
|
||||
End Sub
|
||||
|
||||
' Sub New(ezb_id As Integer)
|
||||
' Me.ezb_id = ezb_id
|
||||
' LOAD_ById(ezb_id)
|
||||
' End Sub
|
||||
|
||||
Sub New(ezb_waehrungscode As String)
|
||||
Me.ezb_waehrungscode = ezb_waehrungscode
|
||||
LOAD_ByWaehrungscode(ezb_waehrungscode)
|
||||
|
||||
End Sub
|
||||
Public 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("ezb_id", ezb_id, , True, True))
|
||||
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezb_waehrungscode", ezb_waehrungscode))
|
||||
If Me.ezb_waehrungsschluessel Is Nothing Then
|
||||
Me.ezb_waehrungsschluessel = SQL.getValueTxtBySql(" Select TOP 1 isnull([Währungsschlüssel] ,'') FROM [Währungstabelle] where [Währungscode]='" & Me.ezb_waehrungscode.Replace("TRY", "TRL") & "' ", "FMZOLL")
|
||||
End If
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezb_waehrungsschluessel", ezb_waehrungsschluessel))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezb_datum", ezb_datum))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezb_kurs", ezb_kurs))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblEZB_Waehrungskurse WITH(updlock,serializable) WHERE ezb_waehrungscode=@ezb_waehrungscode AND ezb_datum=@ezb_datum) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
' ezb_id = SQL.doSQLVarListID(ezb_id, sqlstr, "FMZOLL", , list)
|
||||
' Return ezb_id > 0
|
||||
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Sub LOAD_ByWaehrungscode(ezb_waehrungscode As String)
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblEZB_Waehrungskurse WHERE ezb_waehrungscode=@ezb_waehrungscode ORDER BY ezb_datum DeSC ", conn)
|
||||
cmd.Parameters.AddWithValue("@ezb_waehrungscode", ezb_waehrungscode)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
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 getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblEZB_Waehrungskurse] SET " & str & " WHERE ezb_waehrungscode=@ezb_waehrungscode AND ezb_datum=@ezb_datum ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 tblEZB_Waehrungskurse (" & 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
|
||||
|
||||
|
||||
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblEZB_Waehrungskurse] WITH(updlock,serializable) WHERE ezb_waehrungscode='" & ezb_waehrungscode & "' AND ezb_datum='" & ezb_datum & "' "
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function UPDATE_Waehrungstabelle(datum As Date) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " UPDATE [Währungstabelle] SET [Währungstabelle].Eurokurs=tblEZB_Waehrungskurse.ezb_kurs
|
||||
FROM [Währungstabelle] inner join tblEZB_Waehrungskurse on [Währungstabelle].Währungsschlüssel=tblEZB_Waehrungskurse.ezb_waehrungsschluessel where tblEZB_Waehrungskurse.ezb_datum='" & datum.ToShortDateString & "' "
|
||||
Return (New SQL).doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
End Class
|
||||
181
SDL/VERAG_PROG_ALLGEMEIN/Classes/cEZT_ImportCodenummern.vb
Normal file
181
SDL/VERAG_PROG_ALLGEMEIN/Classes/cEZT_ImportCodenummern.vb
Normal file
@@ -0,0 +1,181 @@
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cEZT_ImportCodenummern
|
||||
Property ezt_id As Integer
|
||||
Property ezt_Land As String = ""
|
||||
Property ezt_Codenummer As String = ""
|
||||
Property ezt_BesMasseinheit As String = ""
|
||||
Property ezt_BesMasseinheit2 As String = ""
|
||||
Property ezt_Start As Date
|
||||
Property ezt_Ende As Date
|
||||
Property ezt_Sprache As String = ""
|
||||
Property ezt_Text As String = ""
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Public Shared Function delWholeDB()
|
||||
Dim SQL As New SQL
|
||||
Return SQL.doSQL("DELETE FROM [tblEZT_Importcodenummern]", "FMZOLL")
|
||||
End Function
|
||||
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
Sub New(ezt_id)
|
||||
Me.ezt_id = ezt_id
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
Sub New(ezt_Land, ezt_Codenummer, ezt_BesMasseinheit, ezt_BesMasseinheit2, ezt_Start, ezt_Ende, ezt_Sprache, ezt_Text)
|
||||
Me.ezt_Land = ezt_Land
|
||||
Me.ezt_BesMasseinheit = ezt_BesMasseinheit
|
||||
Me.ezt_Codenummer = ezt_Codenummer
|
||||
Me.ezt_BesMasseinheit = ezt_BesMasseinheit
|
||||
Me.ezt_BesMasseinheit2 = ezt_BesMasseinheit2
|
||||
Me.ezt_Start = ezt_Start
|
||||
Me.ezt_Ende = ezt_Ende
|
||||
Me.ezt_Sprache = ezt_Sprache
|
||||
Me.ezt_Text = ezt_Text
|
||||
|
||||
End Sub
|
||||
|
||||
Public 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("ezt_id", ezt_id, , True, True))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezt_Land", ezt_Land))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezt_Codenummer", ezt_Codenummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezt_BesMasseinheit", ezt_BesMasseinheit))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezt_BesMasseinheit2", ezt_BesMasseinheit2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezt_Start", ezt_Start))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezt_Ende", ezt_Ende))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezt_Sprache", ezt_Sprache))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezt_Text", ezt_Text))
|
||||
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblEZT_Importcodenummern WHERE ezt_id=@ezt_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@ezt_id", ezt_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
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 SAVE_ByID() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblEZT_Importcodenummern WITH(updlock,serializable) WHERE ezt_id=@ezt_id) " &
|
||||
" BEGIN " & getUpdateCmd_ByID() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
ezt_id = SQL.doSQLVarListID(ezt_id, sqlstr, "FMZOLL", , list)
|
||||
Return ezt_id > 0
|
||||
End Function
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblEZT_Importcodenummern WITH(updlock,serializable) WHERE ezt_Codenummer=@ezt_Codenummer AND ezt_Start=@ezt_Start AND ezt_Ende=@ezt_Ende) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblEZT_Importcodenummern] SET " & str & " WHERE ezt_Codenummer=@ezt_Codenummer AND ezt_Start=@ezt_Start AND ezt_Ende=@ezt_Ende ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 tblEZT_Importcodenummern (" & 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
|
||||
|
||||
Public Function getUpdateCmd_ByID() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblEZT_Importcodenummern] SET " & str & " WHERE ezt_id=@ezt_id ")
|
||||
|
||||
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
|
||||
117
SDL/VERAG_PROG_ALLGEMEIN/Classes/cEasyBinding.vb
Normal file
117
SDL/VERAG_PROG_ALLGEMEIN/Classes/cEasyBinding.vb
Normal file
@@ -0,0 +1,117 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports Gemeinsames
|
||||
Imports System.ComponentModel
|
||||
Imports System.Windows.Forms
|
||||
|
||||
Public Class cEasyBinding
|
||||
Public WithEvents bindingDataAdapter As New SqlDataAdapter
|
||||
Public WithEvents bindingdataTable As New DataTable
|
||||
Public bindingdataSet As New DataSet
|
||||
Public WithEvents bindingSource As New BindingSource
|
||||
|
||||
Dim connection As SqlConnection
|
||||
Dim initialized = False
|
||||
|
||||
Public updateImmediately = False
|
||||
|
||||
Sub New(Optional conn As String = "SDL")
|
||||
Select Case conn
|
||||
Case "SDL" : connection = cSqlDb.GetNewOpenConnection(False)
|
||||
Case "FMZOLL" : connection = cSqlDb.GetNewOpenConnectionFMZOLL(False)
|
||||
Case "ADMIN" : connection = cSqlDb.GetNewOpenConnectionLogin()
|
||||
Case "AVISO" : connection = cSqlDb.GetNewOpenConnectionAVISO()
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Sub initBinding(sql, table, Optional List = Nothing)
|
||||
Try
|
||||
bindingSource.CancelEdit()
|
||||
bindingSource = New BindingSource
|
||||
bindingdataTable.Clear()
|
||||
bindingdataTable = New DataTable(table)
|
||||
bindingdataTable.TableName = table
|
||||
bindingdataSet.Clear()
|
||||
|
||||
Try
|
||||
|
||||
If List IsNot Nothing Then
|
||||
Dim cmd As New SqlCommand(sql, connection)
|
||||
|
||||
For Each i In List
|
||||
'MsgBox(i.Text.trim & " " & IIf(i.Value Is Nothing, DBNull.Value, i.Value))
|
||||
cmd.Parameters.AddWithValue("@" & i.Scalarvariable.trim, IIf(i.Value Is Nothing, DBNull.Value, i.Value))
|
||||
Next
|
||||
Me.bindingDataAdapter = New SqlDataAdapter(cmd)
|
||||
Else
|
||||
Me.bindingDataAdapter = New SqlDataAdapter(sql, connection)
|
||||
End If
|
||||
|
||||
|
||||
Catch ex As SqlException
|
||||
MessageBox.Show("Der Connection-String kann nicht verarbeitet werden. Wenden Sie sich an den Programmbetreuer.")
|
||||
End Try
|
||||
Me.bindingDataAdapter.FillSchema(bindingdataSet, SchemaType.Source, table)
|
||||
Me.bindingDataAdapter.Fill(bindingdataSet, table)
|
||||
Me.bindingdataTable = Me.bindingdataSet.Tables(table)
|
||||
Me.bindingSource.DataSource = Me.bindingdataTable
|
||||
|
||||
Me.bindingdataTable.Locale = System.Globalization.CultureInfo.InvariantCulture
|
||||
initialized = True
|
||||
Catch ex As Exception
|
||||
MsgBox("BindingERR01: " & ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Sub setARITHABORTOn()
|
||||
Try
|
||||
Using cmd As New SqlCommand("SET ARITHABORT ON", connection)
|
||||
cmd.ExecuteNonQuery()
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("BindingERR02: " & "Fehler in setARITHABORTOn: " & ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Public Function updateBinding(Optional tablename As String = "", Optional ContinueUpdateOnError As Boolean = False) As Boolean
|
||||
If Not initialized Then Return True
|
||||
Try
|
||||
bindingSource.EndEdit()
|
||||
Dim builder As New SqlCommandBuilder(bindingDataAdapter)
|
||||
bindingDataAdapter.Update(bindingdataSet, bindingdataTable.TableName)
|
||||
Me.bindingdataSet.AcceptChanges()
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
MsgBox("Es ist ein SQL-Fehler beim Updaten der Daten aufgetreten:" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & "Die Werte werden zurückgesetzt!", MsgBoxStyle.OkCancel, "Datenbank-Fehler")
|
||||
Me.bindingSource.ResumeBinding()
|
||||
End Try
|
||||
Return False
|
||||
End Function
|
||||
|
||||
|
||||
Sub binddata(o As Object, bindingParam As String, bindingSource As BindingSource, dataName As String, Optional bindingNullValue As String = "", Optional formatString As String = "")
|
||||
o.DataBindings.Clear()
|
||||
o.DataBindings.Add(New Binding(bindingParam, bindingSource, dataName, True, DataSourceUpdateMode.OnPropertyChanged, bindingNullValue, formatString))
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub bindingSource_DataError(sender As Object, e As BindingManagerDataErrorEventArgs) Handles bindingSource.DataError
|
||||
' If the data source raises an exception when a cell value is
|
||||
' commited, display an error message.
|
||||
If e.Exception IsNot Nothing Then ' AndAlso e. = DataGridViewDataErrorContexts.Commit Then
|
||||
MessageBox.Show("Daten-Fehler: " & vbNewLine & vbNewLine & e.Exception.Message)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
'Private Sub bindingdataTable_ColumnChanged(sender As Object, e As DataColumnChangeEventArgs) Handles bindingdataTable.ColumnChanged
|
||||
|
||||
' If updateImmediately Then updateBinding()
|
||||
|
||||
'End Sub
|
||||
|
||||
|
||||
End Class
|
||||
262
SDL/VERAG_PROG_ALLGEMEIN/Classes/cEmailBenachrichtigung.vb
Normal file
262
SDL/VERAG_PROG_ALLGEMEIN/Classes/cEmailBenachrichtigung.vb
Normal file
@@ -0,0 +1,262 @@
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cEmailBenachrichtigungList
|
||||
Property eb_KundenNr As Object = Nothing
|
||||
Property eb_ebartId As Object = Nothing
|
||||
Public LIST As New List(Of cEmailBenachrichtigung)
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Sub New(eb_KundenNr, eb_ebartId)
|
||||
Me.eb_KundenNr = eb_KundenNr
|
||||
Me.eb_ebartId = eb_ebartId
|
||||
LOAD(Me.eb_KundenNr, Me.eb_ebartId)
|
||||
End Sub
|
||||
Public Sub CLEAR()
|
||||
LIST.Clear()
|
||||
End Sub
|
||||
Public Sub ADD(eb_EMail As String, Optional cc As Boolean = False, Optional bcc As Boolean = False)
|
||||
Dim l As New cEmailBenachrichtigung
|
||||
l.eb_KundenNr = eb_KundenNr
|
||||
l.eb_ebartId = eb_ebartId
|
||||
l.eb_EMail = eb_EMail
|
||||
l.eb_cc = cc
|
||||
l.eb_bcc = bcc
|
||||
LIST.Add(l)
|
||||
End Sub
|
||||
Public Sub LOAD(eb_KundenNr, eb_ebartId)
|
||||
Try
|
||||
LIST.Clear()
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblEmailBenachrichtigung WHERE eb_KundenNr=@eb_KundenNr and eb_ebartId=@eb_ebartId ", conn)
|
||||
cmd.Parameters.AddWithValue("@eb_KundenNr", eb_KundenNr)
|
||||
cmd.Parameters.AddWithValue("@eb_ebartId", eb_ebartId)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cEmailBenachrichtigung
|
||||
l.eb_KundenNr = dr.Item("eb_KundenNr")
|
||||
l.eb_ebartId = dr.Item("eb_ebartId")
|
||||
l.eb_EMail = dr.Item("eb_EMail")
|
||||
l.eb_cc = dr.Item("eb_cc")
|
||||
l.eb_bcc = dr.Item("eb_bcc")
|
||||
LIST.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 SAVE()
|
||||
If SQL.doSQLVarList("DELETE FROM tblEmailBenachrichtigung WHERE eb_KundenNr=" & Me.eb_KundenNr & " and eb_ebartId=" & Me.eb_ebartId & " ", "FMZOLL") Then
|
||||
For Each l In LIST
|
||||
If Not l.INSERT() Then Return False
|
||||
Next
|
||||
Return True
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
End Function
|
||||
End Class
|
||||
Public Class cEmailBenachrichtigung
|
||||
Property eb_KundenNr As Object = Nothing
|
||||
Property eb_ebartId As Object = Nothing
|
||||
Property eb_EMail As Object = Nothing
|
||||
Property eb_cc As Boolean = False
|
||||
Property eb_bcc As Boolean = False
|
||||
|
||||
Dim SQL As New 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("eb_KundenNr", eb_KundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_ebartId", eb_ebartId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_EMail", eb_EMail))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_cc", eb_cc))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_bcc", eb_bcc))
|
||||
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)
|
||||
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 tblEmailBenachrichtigung (" & 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
|
||||
|
||||
|
||||
Shared Sub eMails_einlesen(Kdnr As String, art As Integer, ByRef Emails As String, ByRef Emails_CC As String, ByRef Emails_BCC As String, Emails_list_sent As VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList)
|
||||
'ART:
|
||||
'1=Ankunft
|
||||
'2=Freigabe
|
||||
'3=Ankunft Export
|
||||
'4=Freigabe Export
|
||||
Dim Firmen As New cFirmenDAL
|
||||
Dim Firma As New cFirma
|
||||
|
||||
Emails = ""
|
||||
Emails_CC = ""
|
||||
Emails_BCC = ""
|
||||
|
||||
If Kdnr Is Nothing OrElse Not IsNumeric(Kdnr) Then Exit Sub
|
||||
' Dim Avisierer As New cKunde(hAuftraggeber_kdnr)
|
||||
' Dim Fraechter As New cKunde(hFrächter_kdnr)
|
||||
Dim Kdnr_Mails As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList(Kdnr, art)
|
||||
' Dim Fraechter_Mails As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList(hFrächter_kdnr, art)
|
||||
' If hAuftraggeber_kdnr <> hFrächter_kdnr Then Fraechter_Mails = New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList(hFrächter_kdnr, art)
|
||||
|
||||
Dim Emails_list As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList
|
||||
Dim Emails_CC_list As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList
|
||||
Dim Emails_BCC_list As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList
|
||||
|
||||
'Dim Emails As String
|
||||
For Each i In Kdnr_Mails.LIST
|
||||
If i.eb_bcc Then
|
||||
If Not existing(Kdnr, i.eb_EMail, Emails_BCC_list.LIST, Emails_CC_list.LIST, Emails_list.LIST) And Not existing(Kdnr, i.eb_EMail, Emails_list_sent.LIST) Then Emails_BCC_list.LIST.Add(i) ' &= i.eb_EMail & ";"
|
||||
ElseIf i.eb_cc Then
|
||||
If Not existing(Kdnr, i.eb_EMail, Emails_BCC_list.LIST, Emails_CC_list.LIST, Emails_list.LIST) And Not existing(Kdnr, i.eb_EMail, Emails_list_sent.LIST) Then Emails_CC_list.LIST.Add(i) ' &= i.eb_EMail & ";"
|
||||
Else
|
||||
If Not existing(Kdnr, i.eb_EMail, Emails_BCC_list.LIST, Emails_CC_list.LIST, Emails_list.LIST) And Not existing(Kdnr, i.eb_EMail, Emails_list_sent.LIST) Then Emails_list.LIST.Add(i) ' &= i.eb_EMail & ";"
|
||||
End If
|
||||
Next
|
||||
'For Each i In Fraechter_Mails.LIST
|
||||
' If i.eb_bcc Then
|
||||
' If Not existing(hFrächter_kdnr, i.eb_EMail, Emails_BCC_list.LIST, Emails_CC_list.LIST, Emails_list.LIST) And Not existing(hFrächter_kdnr, i.eb_EMail, Emails_list_sent.LIST) Then Emails_BCC_list.LIST.Add(i) ' &= i.eb_EMail & ";"
|
||||
' ElseIf i.eb_cc Then
|
||||
' If Not existing(hFrächter_kdnr, i.eb_EMail, Emails_BCC_list.LIST, Emails_CC_list.LIST, Emails_list.LIST) And Not existing(hFrächter_kdnr, i.eb_EMail, Emails_list_sent.LIST) Then Emails_CC_list.LIST.Add(i) ' &= i.eb_EMail & ";"
|
||||
' Else
|
||||
' If Not existing(hFrächter_kdnr, i.eb_EMail, Emails_BCC_list.LIST, Emails_CC_list.LIST, Emails_list.LIST) And Not existing(hFrächter_kdnr, i.eb_EMail, Emails_list_sent.LIST) Then Emails_list.LIST.Add(i) ' &= i.eb_EMail & ";"
|
||||
' End If
|
||||
'Next
|
||||
|
||||
For Each i In Emails_list.LIST
|
||||
Emails &= i.eb_EMail & ";"
|
||||
Next
|
||||
For Each i In Emails_CC_list.LIST
|
||||
Emails_CC &= i.eb_EMail & ";"
|
||||
Next
|
||||
For Each i In Emails_BCC_list.LIST
|
||||
Emails_BCC &= i.eb_EMail & ";"
|
||||
Next
|
||||
|
||||
For Each i In Emails_list.LIST : Emails_list_sent.LIST.Add(i) : Next
|
||||
For Each i In Emails_CC_list.LIST : Emails_list_sent.LIST.Add(i) : Next
|
||||
For Each i In Emails_BCC_list.LIST : Emails_list_sent.LIST.Add(i) : Next
|
||||
|
||||
End Sub
|
||||
|
||||
Public Shared Function getAbsenderEmail() As String
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "IMEX" : Return "noreply@imex-group.at"
|
||||
Case "ATILLA" : Return "noreply@verag.ag"
|
||||
Case "UNISPED" : Return "No-Reply@unisped.at"
|
||||
Case "FRONTOFFICE" : Return "noreply@front-office.eu"
|
||||
Case "AMBAR" : Return "import@ambarlog.com"
|
||||
Case Else : Return "noreply@verag.ag"
|
||||
End Select
|
||||
End Function
|
||||
|
||||
Shared Sub eMails_einlesenOLD(hFrächter_kdnr As String, hAuftraggeber_kdnr As String, art As Integer, ByRef Emails As String, ByRef Emails_CC As String, ByRef Emails_BCC As String, Emails_list_sent As VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList)
|
||||
'ART:
|
||||
'1=Ankunft
|
||||
'2=Freigabe
|
||||
'3=Ankunft Export
|
||||
'4=Freigabe Export
|
||||
Dim Firmen As New cFirmenDAL
|
||||
Dim Firma As New cFirma
|
||||
|
||||
Emails = ""
|
||||
Emails_CC = ""
|
||||
Emails_BCC = ""
|
||||
|
||||
' Dim Avisierer As New cKunde(hAuftraggeber_kdnr)
|
||||
' Dim Fraechter As New cKunde(hFrächter_kdnr)
|
||||
Dim Avisierer_Mails As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList(hAuftraggeber_kdnr, art)
|
||||
Dim Fraechter_Mails As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList(hFrächter_kdnr, art)
|
||||
If hAuftraggeber_kdnr <> hFrächter_kdnr Then Fraechter_Mails = New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList(hFrächter_kdnr, art)
|
||||
|
||||
Dim Emails_list As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList
|
||||
Dim Emails_CC_list As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList
|
||||
Dim Emails_BCC_list As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList
|
||||
|
||||
'Dim Emails As String
|
||||
For Each i In Avisierer_Mails.LIST
|
||||
If i.eb_bcc Then
|
||||
If Not existing(hFrächter_kdnr, i.eb_EMail, Emails_BCC_list.LIST, Emails_CC_list.LIST, Emails_list.LIST) And Not existing(hFrächter_kdnr, i.eb_EMail, Emails_list_sent.LIST) Then Emails_BCC_list.LIST.Add(i) ' &= i.eb_EMail & ";"
|
||||
ElseIf i.eb_cc Then
|
||||
If Not existing(hFrächter_kdnr, i.eb_EMail, Emails_BCC_list.LIST, Emails_CC_list.LIST, Emails_list.LIST) And Not existing(hFrächter_kdnr, i.eb_EMail, Emails_list_sent.LIST) Then Emails_CC_list.LIST.Add(i) ' &= i.eb_EMail & ";"
|
||||
Else
|
||||
If Not existing(hFrächter_kdnr, i.eb_EMail, Emails_BCC_list.LIST, Emails_CC_list.LIST, Emails_list.LIST) And Not existing(hFrächter_kdnr, i.eb_EMail, Emails_list_sent.LIST) Then Emails_list.LIST.Add(i) ' &= i.eb_EMail & ";"
|
||||
End If
|
||||
Next
|
||||
For Each i In Fraechter_Mails.LIST
|
||||
If i.eb_bcc Then
|
||||
If Not existing(hFrächter_kdnr, i.eb_EMail, Emails_BCC_list.LIST, Emails_CC_list.LIST, Emails_list.LIST) And Not existing(hFrächter_kdnr, i.eb_EMail, Emails_list_sent.LIST) Then Emails_BCC_list.LIST.Add(i) ' &= i.eb_EMail & ";"
|
||||
ElseIf i.eb_cc Then
|
||||
If Not existing(hFrächter_kdnr, i.eb_EMail, Emails_BCC_list.LIST, Emails_CC_list.LIST, Emails_list.LIST) And Not existing(hFrächter_kdnr, i.eb_EMail, Emails_list_sent.LIST) Then Emails_CC_list.LIST.Add(i) ' &= i.eb_EMail & ";"
|
||||
Else
|
||||
If Not existing(hFrächter_kdnr, i.eb_EMail, Emails_BCC_list.LIST, Emails_CC_list.LIST, Emails_list.LIST) And Not existing(hFrächter_kdnr, i.eb_EMail, Emails_list_sent.LIST) Then Emails_list.LIST.Add(i) ' &= i.eb_EMail & ";"
|
||||
End If
|
||||
Next
|
||||
|
||||
For Each i In Emails_list.LIST
|
||||
Emails &= i.eb_EMail & ";"
|
||||
Next
|
||||
For Each i In Emails_CC_list.LIST
|
||||
Emails_CC &= i.eb_EMail & ";"
|
||||
Next
|
||||
For Each i In Emails_BCC_list.LIST
|
||||
Emails_BCC &= i.eb_EMail & ";"
|
||||
Next
|
||||
|
||||
For Each i In Emails_list.LIST : Emails_list_sent.LIST.Add(i) : Next
|
||||
|
||||
End Sub
|
||||
Shared Function existing(KundenNr As Integer, Email As String, Emails_list As List(Of VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung), Optional ListEmails_CC_list As List(Of VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung) = Nothing, Optional ListEmails_BCC_list As List(Of VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung) = Nothing) As Boolean
|
||||
If Emails_list IsNot Nothing Then
|
||||
For Each i In Emails_list
|
||||
If i.eb_EMail = Email And i.eb_KundenNr = KundenNr Then Return True
|
||||
Next
|
||||
End If
|
||||
If ListEmails_CC_list IsNot Nothing Then
|
||||
For Each i In ListEmails_CC_list
|
||||
If i.eb_EMail = Email And i.eb_KundenNr = KundenNr Then Return True
|
||||
Next
|
||||
End If
|
||||
If ListEmails_BCC_list IsNot Nothing Then
|
||||
For Each i In ListEmails_BCC_list
|
||||
If i.eb_EMail = Email And i.eb_KundenNr = KundenNr Then Return True
|
||||
Next
|
||||
End If
|
||||
Return False
|
||||
End Function
|
||||
|
||||
End Class
|
||||
107
SDL/VERAG_PROG_ALLGEMEIN/Classes/cFirmen.vb
Normal file
107
SDL/VERAG_PROG_ALLGEMEIN/Classes/cFirmen.vb
Normal file
@@ -0,0 +1,107 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cFirmen
|
||||
Property Firma_ID As Integer
|
||||
Property Firma_Bez As String
|
||||
Property Firma_BackColor As Object = Nothing ' INT DEFAULT ((16777215)) NOT NULL,
|
||||
Property Firma_Logo As Object = Nothing ' VARBINARY (MAX) NULL,
|
||||
Property Firma_Firmenbuch As Object = Nothing ' NVARCHAR (22) NULL,
|
||||
Property Firma_UID As Object = Nothing ' NVARCHAR (16) NULL,
|
||||
Property Firma_EORI As Object = Nothing ' NVARCHAR (21) NULL,
|
||||
Property Firma_Bankverbindung1 As Object = Nothing ' NVARCHAR (50) NULL,
|
||||
Property Firma_BLZ1 As Object = Nothing ' NVARCHAR (33) NULL,
|
||||
Property Firma_KTO1 As Object = Nothing ' NVARCHAR (18) NULL,
|
||||
Property Firma_IBAN1 As Object = Nothing ' NVARCHAR (38) NULL,
|
||||
Property Firma_BIC1 As Object = Nothing ' NVARCHAR (16) NULL,
|
||||
Property Firma_Bankverbindung2 As Object = Nothing ' NVARCHAR (50) NULL,
|
||||
Property Firma_BLZ2 As Object = Nothing ' NVARCHAR (33) NULL,
|
||||
Property Firma_KTO2 As Object = Nothing ' NVARCHAR (18) NULL,
|
||||
Property Firma_IBAN2 As Object = Nothing ' NVARCHAR (38) NULL,
|
||||
Property Firma_BIC2 As Object = Nothing ' NVARCHAR (16) NULL,
|
||||
Property SSMA_TimeStamp As Object = Nothing ' ROWVERSION NOT NULL,
|
||||
Property Firma_Ort As Object = Nothing ' NVARCHAR (40) NULL,
|
||||
Property Firma_Straße As Object = Nothing ' NVARCHAR (40) NULL,
|
||||
Property Firma_Telefon As Object = Nothing ' NVARCHAR (40) NULL,
|
||||
Property Firma_Telefax As Object = Nothing ' NVARCHAR (40) NULL,
|
||||
Property Firma_E_Mail As Object = Nothing ' NVARCHAR (40) NULL, -----
|
||||
Property Firma_Webadresse As Object = Nothing ' NVARCHAR (40) NULL,
|
||||
Property Firma_LandKz As Object = Nothing ' NVARCHAR (40) NULL,
|
||||
|
||||
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
Sub New(Firma_ID)
|
||||
Me.Firma_ID = Firma_ID
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
Public 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("Firma_ID", Firma_ID, , True, True))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Bez", Firma_Bez))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_BackColor", Firma_BackColor))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Logo", Firma_Logo))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Firmenbuch", Firma_Firmenbuch))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_UID", Firma_UID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_EORI", Firma_EORI))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Bankverbindung1", Firma_Bankverbindung1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_BLZ1", Firma_BLZ1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_KTO1", Firma_KTO1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_IBAN1", Firma_IBAN1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_BIC1", Firma_BIC1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Bankverbindung2", Firma_Bankverbindung2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_BLZ2", Firma_BLZ2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_KTO2", Firma_KTO2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_IBAN2", Firma_IBAN2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_BIC2", Firma_BIC2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SSMA_TimeStamp", SSMA_TimeStamp))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Ort", Firma_Ort))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Straße", Firma_Straße))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Telefon", Firma_Telefon))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Telefax", Firma_Telefax))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_E-Mail", Firma_E_Mail, "Firma_E_Mail"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Webadresse", Firma_Webadresse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_LandKz", Firma_LandKz))
|
||||
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblFirma WHERE Firma_ID=@Firma_ID ", conn)
|
||||
cmd.Parameters.AddWithValue("@Firma_ID", Firma_ID)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
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
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
139
SDL/VERAG_PROG_ALLGEMEIN/Classes/cFremdSpeditionenZuordnung.vb
Normal file
139
SDL/VERAG_PROG_ALLGEMEIN/Classes/cFremdSpeditionenZuordnung.vb
Normal file
@@ -0,0 +1,139 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cFremdSpeditionenZuordnung
|
||||
|
||||
|
||||
Property fremdz_Id As Integer
|
||||
Property fremdz_firma As Object = Nothing
|
||||
Property fremdz_KundenNr As Object = Nothing
|
||||
Property fremdz_plz As Object = Nothing
|
||||
Property fremdz_ort As Object = Nothing
|
||||
Property fremdz_verzolltBei As Object = Nothing
|
||||
Property fremdz_bemerkung As Object = Nothing
|
||||
Property fremdz_SpeditionKundenNr As Object = Nothing
|
||||
Property fremdz_Datum As Object = Nothing
|
||||
Property fremdz_Sachbearbeiter As Object = Nothing
|
||||
|
||||
|
||||
Public hasEntry As Boolean = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
Sub New(fremdz_Id)
|
||||
Me.fremdz_Id = fremdz_Id
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
Public 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("fremdz_Id", fremdz_Id, , True, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fremdz_firma", fremdz_firma))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fremdz_KundenNr", fremdz_KundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fremdz_plz", fremdz_plz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fremdz_ort", fremdz_ort))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fremdz_verzolltBei", fremdz_verzolltBei))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fremdz_bemerkung", fremdz_bemerkung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fremdz_SpeditionKundenNr", fremdz_SpeditionKundenNr))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblFremdSpeditionenZuordnung WITH(updlock,serializable) WHERE fremdz_Id=@fremdz_Id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
fremdz_Id = SQL.doSQLVarListID(fremdz_Id, sqlstr, "FMZOLL", , list)
|
||||
Return fremdz_Id > 0
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblFremdSpeditionenZuordnung WHERE fremdz_Id=@fremdz_Id ", conn)
|
||||
cmd.Parameters.AddWithValue("@fremdz_Id", fremdz_Id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
hasEntry = True
|
||||
Next
|
||||
|
||||
End If
|
||||
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 getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblFremdSpeditionenZuordnung] SET " & str & " WHERE fremdz_Id=@fremdz_Id ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 tblFremdSpeditionenZuordnung (" & 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
|
||||
|
||||
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblFremdSpeditionenZuordnung] WITH(updlock,serializable) WHERE fremdz_Id=" & Me.fremdz_Id
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
Public Shared Function DELETE(id As Integer) As Boolean
|
||||
Dim SQL As New SQL
|
||||
Dim sqlstr = " DELETE FROM [tblFremdSpeditionenZuordnung] WHERE fremdz_Id=" & id
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
End Class
|
||||
|
||||
131
SDL/VERAG_PROG_ALLGEMEIN/Classes/cGelangensbestaetigung.vb
Normal file
131
SDL/VERAG_PROG_ALLGEMEIN/Classes/cGelangensbestaetigung.vb
Normal file
@@ -0,0 +1,131 @@
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cGelangensbestaetigung
|
||||
|
||||
Property gb_nr As Integer
|
||||
Property gb_firma As Object = Nothing
|
||||
Property gb_KdNr As Object = Nothing
|
||||
Property gb_datetime As Date
|
||||
Property gb_sachbearbeiter As Object = Nothing
|
||||
Property gb_sachbearbeiterid As Integer
|
||||
|
||||
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New(gb_nr As Integer)
|
||||
Me.gb_nr = gb_nr
|
||||
Me.gb_sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
Me.gb_sachbearbeiterid = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
||||
Me.gb_datetime = Now
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
|
||||
Sub New(gb_firma As String, gb_KdNr As Object)
|
||||
Me.gb_nr = SQL.getValueTxtBySqlVarList("SELECT isnull(MAX([gb_nr])+1,( YEAR( GETDATE() ) % 100 ) * 1000000) FROM [tblGelangensbestaetigung] WHERE left(cast([gb_nr] as VARCHAR),2) = ( YEAR( GETDATE() ) % 100 )", "FMZOLL")
|
||||
Me.gb_firma = gb_firma
|
||||
Me.gb_KdNr = gb_KdNr
|
||||
Me.gb_sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
Me.gb_sachbearbeiterid = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
||||
Me.gb_datetime = Now
|
||||
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("gb_nr", gb_nr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gb_firma", gb_firma))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gb_KdNr", gb_KdNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gb_datetime", gb_datetime))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gb_sachbearbeiter", gb_sachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gb_sachbearbeiterid", gb_sachbearbeiterid))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblGelangensbestaetigung WITH(updlock,serializable) WHERE gb_nr=@gb_nr) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblGelangensbestaetigung WHERE gb_nr=@gb_nr ", conn)
|
||||
cmd.Parameters.AddWithValue("@gb_nr", gb_nr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
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 getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblGelangensbestaetigung] SET " & str & " WHERE gb_nr=@gb_nr ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 tblGelangensbestaetigung (" & 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
|
||||
|
||||
133
SDL/VERAG_PROG_ALLGEMEIN/Classes/cGestellungsgarantien.vb
Normal file
133
SDL/VERAG_PROG_ALLGEMEIN/Classes/cGestellungsgarantien.vb
Normal file
@@ -0,0 +1,133 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cGestellungsgarantien
|
||||
Property gg_Id As Integer
|
||||
Property gg_KundenNr As Integer
|
||||
Property gg_erhalten_Datum As Date
|
||||
Property gg_Zollamt As String
|
||||
Property gg_Info As Object = Nothing
|
||||
Property gg_datenarchivId As Object = Nothing
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
|
||||
End Sub
|
||||
Sub New(gg_Id)
|
||||
Me.gg_Id = gg_Id
|
||||
LOAD()
|
||||
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("gg_Id", gg_Id, , True, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gg_KundenNr", gg_KundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gg_erhalten_Datum", gg_erhalten_Datum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gg_Zollamt", gg_Zollamt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gg_Info", gg_Info))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gg_datenarchivId", gg_datenarchivId))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Public Shared Function LOAD_LIST(KundenNr As Integer) As DataTable
|
||||
Return (New SQL).loadDgvBySql("SELECT * FROM tblGestellungsgarantien WHERE gg_KundenNr=" & KundenNr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
Public Shared Function ENTRY_Exists(KundenNr As Integer, Zollamt As String) As Boolean
|
||||
Return (CInt((New SQL).getValueTxtBySql("SELECT count(*) FROM tblGestellungsgarantien WHERE gg_KundenNr=" & KundenNr & " AND gg_Zollamt='" & Zollamt & "'", "FMZOLL")) > 0)
|
||||
End Function
|
||||
Public Shared Function ENTRY_Exists(KundenNr As Integer, Zollamt As String, gg_erhalten_Datum As Date) As Boolean
|
||||
Return (CInt((New SQL).getValueTxtBySql("SELECT count(*) FROM tblGestellungsgarantien WHERE gg_KundenNr=" & KundenNr & " AND gg_Zollamt='" & Zollamt & "' AND gg_erhalten_Datum='" & gg_erhalten_Datum.ToShortDateString & "'", "FMZOLL")) > 0)
|
||||
End Function
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN If EXISTS(Select * FROM tblGestellungsgarantien With(updlock, serializable) WHERE gg_Id=@gg_Id) " &
|
||||
" BEGIN " & getUpdateCmd() & " End " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " End " &
|
||||
" commit tran "
|
||||
|
||||
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("Select * FROM tblGestellungsgarantien WHERE gg_Id=@gg_Id ", conn)
|
||||
cmd.Parameters.AddWithValue("@gg_Id", gg_Id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
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 getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblGestellungsgarantien] SET " & str & " WHERE gg_Id=@gg_Id ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 tblGestellungsgarantien (" & 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
|
||||
|
||||
|
||||
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblGestellungsgarantien] WITH(updlock,serializable) WHERE gg_Id=" & Me.gg_Id
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
313
SDL/VERAG_PROG_ALLGEMEIN/Classes/cGestellungsmitteilung.vb
Normal file
313
SDL/VERAG_PROG_ALLGEMEIN/Classes/cGestellungsmitteilung.vb
Normal file
@@ -0,0 +1,313 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cGestellungsmitteilung
|
||||
|
||||
|
||||
Property gstm_id As Integer
|
||||
Property gstm_AvisoId As Integer
|
||||
Property gstm_T1Gestellung_ATB As String = ""
|
||||
Property gstm_BezugsNrSumA As String = ""
|
||||
Property gstm_LKWKennzeichen As String = ""
|
||||
Property gstm_GesamtColli As String = ""
|
||||
Property gstm_GesamtGewicht As String = ""
|
||||
|
||||
|
||||
Public hasEntry As Boolean = False
|
||||
|
||||
Public POSITIONEN As New List(Of cGestellungsmitteilungPositionen)
|
||||
Shared SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
Sub New(gstm_id)
|
||||
Me.gstm_id = gstm_id
|
||||
LOAD() : LOAD_POSITIONEN()
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public 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("gstm_id", gstm_id, , True, True))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstm_AvisoId", gstm_AvisoId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstm_T1Gestellung_ATB", gstm_T1Gestellung_ATB))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstm_BezugsNrSumA", gstm_BezugsNrSumA))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstm_LKWKennzeichen", gstm_LKWKennzeichen))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstm_GesamtColli", gstm_GesamtColli))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstm_GesamtGewicht", gstm_GesamtGewicht))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
Public Function SAVE(Optional saveAll As Boolean = True) As Boolean
|
||||
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblGestellungsmitteilung WHERE gstm_id=@gstm_id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
gstm_id = SQL.doSQLVarListID(-1, sqlstr, "FMZOLL", , list)
|
||||
|
||||
If gstm_id > 0 Then
|
||||
If saveAll Then SAVE_POSITIONEN(gstm_id) ' positionen speicehrn
|
||||
End If
|
||||
Return gstm_id > 0
|
||||
End Function
|
||||
|
||||
|
||||
Public Function SAVE_POSITIONEN(gstm_id) As Boolean
|
||||
If DELETE_POSITIONEN() Then ' zuerst Einträge löschen...
|
||||
For Each p In POSITIONEN
|
||||
If Not p.INSERT(gstm_id) Then Return False ' ... dann insert
|
||||
Next
|
||||
Else : Return False
|
||||
End If
|
||||
Return True
|
||||
End Function
|
||||
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblGestellungsmitteilung WHERE gstm_id=@gstm_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@gstm_id", gstm_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
hasEntry = True
|
||||
LOAD_POSITIONEN()
|
||||
End If
|
||||
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 Sub LOADFromAvisoId(gstm_AvisoId)
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblGestellungsmitteilung WHERE gstm_AvisoId=@gstm_AvisoId ", conn)
|
||||
cmd.Parameters.AddWithValue("@gstm_AvisoId", gstm_AvisoId)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
hasEntry = True
|
||||
LOAD_POSITIONEN()
|
||||
End If
|
||||
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 getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblGestellungsmitteilung] SET " & str & " WHERE gstm_id=@gstm_id ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 tblGestellungsmitteilung (" & 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
|
||||
|
||||
|
||||
Public Function DELETE(Optional delPos = True) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
If delPos Then DELETE_POSITIONEN()
|
||||
Dim sqlstr = " DELETE FROM [tblGestellungsmitteilung] WHERE gstm_id=" & Me.gstm_id
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
Public Function DELETE_AVISOID(gstm_AvisoId, Optional delPos = True) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
If delPos Then DELETE_POSITIONEN_AVISOID(gstm_AvisoId)
|
||||
Dim sqlstr = " DELETE FROM [tblGestellungsmitteilung] WHERE gstm_AvisoId=" & gstm_AvisoId
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
|
||||
Public Function DELETE_POSITIONEN() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblGestellungsmitteilung_Positionen] WHERE gstmp_GstmID=" & Me.gstm_id
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
Public Function DELETE_POSITIONEN_AVISOID([gstmp_AvisoID]) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblGestellungsmitteilung_Positionen] WHERE [gstmp_AvisoID]=" & [gstmp_AvisoID]
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
Public Sub LOAD_POSITIONEN()
|
||||
Try
|
||||
POSITIONEN.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("Select * FROM tblGestellungsmitteilung_Positionen WHERE gstmp_GstmID=@gstmp_GstmID order by gstmp_T1Nr", conn)
|
||||
cmd.Parameters.AddWithValue("@gstmp_GstmID", Me.gstm_id)
|
||||
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cGestellungsmitteilungPositionen(gstm_id, gstm_AvisoId)
|
||||
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
|
||||
POSITIONEN.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
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
Public Class cGestellungsmitteilungPositionen
|
||||
|
||||
Property gstmp_id As Integer
|
||||
Property gstmp_GstmID As Integer
|
||||
Property gstmp_SendungID As Integer
|
||||
Property gstmp_T1Nr As Object = Nothing
|
||||
Property gstmp_AvisoID As Integer
|
||||
Property gstmp_Abfertigungsart_ID As Object = Nothing
|
||||
Property gstmp_Abfertigungsart As String = ""
|
||||
Property gstmp_Empfaenger As String = ""
|
||||
Property gstmp_Bemerkung As String = ""
|
||||
Property gstmp_FilialenNr As Object = Nothing
|
||||
Property gstmp_AbfertigungsNr As Object = Nothing
|
||||
Property gstmp_UnterNr As Object = Nothing
|
||||
Property gstmp_Colli As String = ""
|
||||
Property gstmp_Gewicht As String = ""
|
||||
Property gstmp_Warenbezeichnung As String = ""
|
||||
Property gstmp_Absender As String = ""
|
||||
Property gstmp_ATANr As String = ""
|
||||
|
||||
|
||||
'FROM [VERAG].[dbo].[tblGestellungsmitteilung_Positionen]
|
||||
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New(gstmp_GstmID, gstmp_AvisoID, Optional gstmp_SendungID = 0)
|
||||
Me.gstmp_GstmID = gstmp_GstmID
|
||||
Me.gstmp_AvisoID = gstmp_AvisoID
|
||||
Me.gstmp_SendungID = gstmp_SendungID
|
||||
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("gstmp_id", gstmp_id,, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstmp_GstmID", gstmp_GstmID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstmp_SendungID", gstmp_SendungID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstmp_T1Nr", gstmp_T1Nr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstmp_AvisoID", gstmp_AvisoID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstmp_Abfertigungsart_ID", gstmp_Abfertigungsart_ID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstmp_Abfertigungsart", gstmp_Abfertigungsart))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstmp_Empfaenger", gstmp_Empfaenger))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstmp_Bemerkung", gstmp_Bemerkung))
|
||||
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstmp_FilialenNr", gstmp_FilialenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstmp_AbfertigungsNr", gstmp_AbfertigungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstmp_UnterNr", gstmp_UnterNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstmp_Colli", gstmp_Colli))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstmp_Gewicht", gstmp_Gewicht)) '!!!!
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstmp_Warenbezeichnung", gstmp_Warenbezeichnung))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstmp_Absender", gstmp_Absender))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstmp_ATANr", gstmp_ATANr))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Public Function INSERT(gstmp_GstmID) As Boolean
|
||||
Me.gstmp_GstmID = gstmp_GstmID
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
'Me.Eingegeben_am = Now
|
||||
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 tblGestellungsmitteilung_Positionen (" & 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
|
||||
88
SDL/VERAG_PROG_ALLGEMEIN/Classes/cHandlingssaetzeIntern.vb
Normal file
88
SDL/VERAG_PROG_ALLGEMEIN/Classes/cHandlingssaetzeIntern.vb
Normal file
@@ -0,0 +1,88 @@
|
||||
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cHandlingssaetzeInternLIST
|
||||
Property hs_Bezeichnung As Object = Nothing
|
||||
' Property OffertenNr As Object = Nothing
|
||||
Public LIST As New List(Of cHandlingssaetzeIntern)
|
||||
Dim SQL As New SQL
|
||||
'Dim listTodelete As New List(Of cHandlingssaetzeIntern)
|
||||
|
||||
Sub New(hs_Bezeichnung)
|
||||
Me.hs_Bezeichnung = hs_Bezeichnung
|
||||
' Me.OffertenNr = OffertenNr
|
||||
LOAD_LIST(Me.hs_Bezeichnung)
|
||||
End Sub
|
||||
Public Sub CLEAR()
|
||||
LIST.Clear()
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub LOAD_LIST(hs_Bezeichnung)
|
||||
Try
|
||||
LIST.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblHandlingssaetzeIntern WHERE hs_Bezeichnung=@hs_Bezeichnung ", conn)
|
||||
cmd.Parameters.AddWithValue("@hs_Bezeichnung", hs_Bezeichnung)
|
||||
' cmd.Parameters.AddWithValue("@OffertenNr", OffertenNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cHandlingssaetzeIntern
|
||||
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
|
||||
|
||||
LIST.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 SAVE()
|
||||
' If SQL.doSQLVarList("DELETE FROM tblEmailBenachrichtigung WHERE eb_KundenNr=" & Me.eb_KundenNr & " and eb_ebartId=" & Me.eb_ebartId & " ", "FMZOLL") Then
|
||||
' For Each l In LIST
|
||||
' If Not l.INSERT() Then Return False
|
||||
' Next
|
||||
' Return True
|
||||
' Else
|
||||
' Return False
|
||||
' End If
|
||||
'End Function
|
||||
End Class
|
||||
|
||||
Public Class cHandlingssaetzeIntern
|
||||
|
||||
Property hs_Bezeichnung As Object = Nothing
|
||||
Property hs_RgVon As Object = Nothing
|
||||
Property hs_RgAn As Object = Nothing
|
||||
Property hs_Abfertigungsart As Object = Nothing
|
||||
Property hs_Preis As Object = Nothing
|
||||
|
||||
Dim SQL As New 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("hs_Bezeichnung", hs_Bezeichnung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("hs_RgVon", hs_RgVon))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("hs_RgAn", hs_RgAn))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("hs_Abfertigungsart", hs_Abfertigungsart))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("hs_Preis", hs_Preis))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
349
SDL/VERAG_PROG_ALLGEMEIN/Classes/cKunde.vb
Normal file
349
SDL/VERAG_PROG_ALLGEMEIN/Classes/cKunde.vb
Normal file
@@ -0,0 +1,349 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cKunde
|
||||
Property KundenNr As Object = Nothing
|
||||
Property KundenNrZentrale As Object = Nothing
|
||||
Property FilialenNr As Object = Nothing
|
||||
Property Einmalige_Abfertigung As Boolean = False
|
||||
Property Neutralisierung As Object = Nothing
|
||||
Property Avis As Object = Nothing
|
||||
Property Zollvollmacht As Boolean = False
|
||||
Property Zollvollmacht_vom As Object = Nothing
|
||||
Property Lastschrift As Boolean = False
|
||||
Property Lastschrift_von As Object = Nothing
|
||||
Property Lastschrift_bis As Object = Nothing
|
||||
Property Rabattstaffel As Boolean = False
|
||||
Property SVS As Boolean = False
|
||||
Property Vorlageprovision As Object = Nothing
|
||||
Property Kreditaufwendungen As Object = Nothing
|
||||
Property Bankspesen As Object = Nothing
|
||||
Property Bankspesen_Mindestbetrag As Object = Nothing
|
||||
Property Besonderheiten As Object = Nothing
|
||||
Property Sammelrechnung As Object = Nothing
|
||||
Property Steuerschlüssel As Object = Nothing
|
||||
Property Referenznummer As Object = Nothing
|
||||
Property Antragssumme As Object = Nothing
|
||||
Property Antrag_vom As Object = Nothing
|
||||
Property Versicherungssumme As Object = Nothing
|
||||
Property Entscheidung_vom As Object = Nothing
|
||||
Property Kreditlimit As Object = Nothing
|
||||
Property Kreditlimit_vom As Object = Nothing
|
||||
Property Info As Object = Nothing
|
||||
Property Überwachungskunde As Boolean = False
|
||||
Property Abfertigungsverbot As Boolean = False
|
||||
Property Abfertigungsverbot_seit As Object = Nothing
|
||||
Property Abfertigungsverbot_Grund As Object = Nothing
|
||||
Property Rechtsanwalt As Boolean = False
|
||||
Property Rechtsanwalt_seit As Object = Nothing
|
||||
Property Eingegeben_am As Object = Nothing
|
||||
Property Geändert_am As Object = Nothing
|
||||
Property Sachbearbeiter As Object = Nothing
|
||||
Property LfdSaldo As Object = Nothing
|
||||
Property Erste_Abfertigung As Object = Nothing
|
||||
Property Vorkasse As Boolean = False
|
||||
Property Zahlungsinformationen As Object = Nothing
|
||||
Property EORITIN As Object = Nothing
|
||||
Property EORITIN_NL As Object = Nothing
|
||||
Property Zollnummer As Object = Nothing
|
||||
Property ZulassungsNr_ZnV As Object = Nothing
|
||||
Property Aufschubkonto_EUSt As Object = Nothing
|
||||
Property Aufschubkonto_Zoll As Object = Nothing
|
||||
Property Währungscode As Object = Nothing
|
||||
Property Euroeinführung As Object = Nothing
|
||||
Property LetzteRechnungsNr As Object = Nothing
|
||||
Property LetztesRechnungsDatum As Object = Nothing
|
||||
Property Konzernkonto As Boolean = False
|
||||
Property FiBuSchnittstelle As Boolean = False
|
||||
Property Planzahl As Object = Nothing
|
||||
Property Gesprächsbericht As Object = Nothing
|
||||
Property Bonität As Object = Nothing
|
||||
Property Bonitätsdatum As Object = Nothing
|
||||
Property Zahlungsziel As Object = Nothing
|
||||
Property UStV_SummeUmsatzsteuerbetragEUR As Object = Nothing
|
||||
Property UStV_SummeErstattungsbetragEUR As Object = Nothing
|
||||
Property UStV_Summe3470BetragEUR As Object = Nothing
|
||||
Property UStV_SummeVZBetragEUR As Object = Nothing
|
||||
Property UStV_SummeVorschaubetragEUR As Object = Nothing
|
||||
Property UStV_SummeVorschaubetragEUR_VERAG As Object = Nothing
|
||||
Property UStV_SummeVorschaubetragEUR_IDS As Object = Nothing
|
||||
Property Fiskal As Boolean = False
|
||||
Property Ausfuhr As Boolean = False
|
||||
Property BankgarantieBetrag As Object = Nothing
|
||||
Property BankgarantieGültigBis As Object = Nothing
|
||||
Property KD_Korrespondenz As Object = Nothing
|
||||
Property Fiskal_Aktiv As Object = Nothing
|
||||
Property DokumenteLKWFreigabe As Object = Nothing
|
||||
Property EmailAnkunft As Boolean = False
|
||||
Property EmailFreigabe As Boolean = False
|
||||
|
||||
Property Höchstkredit As Object = Nothing
|
||||
Property DakosyExport As Object = Nothing
|
||||
Property FiBuSchnittstelleNr As Object = Nothing
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Public hasEntry As Boolean = False
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New(KundenNr)
|
||||
Me.KundenNr = KundenNr
|
||||
If KundenNr <= 0 Then
|
||||
INIT_NEWKD_DATA()
|
||||
Else
|
||||
LOAD()
|
||||
End If
|
||||
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("Mandant", Mandant))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KundenNr", KundenNr, , True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KundenNrZentrale", KundenNrZentrale))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNr", FilialenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Einmalige Abfertigung", Einmalige_Abfertigung, "Einmalige_Abfertigung"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Neutralisierung", Neutralisierung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Avis", Avis))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zollvollmacht", Zollvollmacht))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zollvollmacht vom", Zollvollmacht_vom, "Zollvollmacht_vom"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Lastschrift", Lastschrift))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Lastschrift von", Lastschrift_von, "Lastschrift_von"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Lastschrift bis", Lastschrift_bis, "Lastschrift_bis"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rabattstaffel", Rabattstaffel))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SVS", SVS))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vorlageprovision %", Vorlageprovision, "Vorlageprovision"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kreditaufwendungen %", Kreditaufwendungen, "Kreditaufwendungen"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bankspesen %", Bankspesen, "Bankspesen"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bankspesen Mindestbetrag", Bankspesen_Mindestbetrag, "Bankspesen_Mindestbetrag"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Besonderheiten", Besonderheiten))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sammelrechnung", Sammelrechnung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuerschlüssel", Steuerschlüssel))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Referenznummer", Referenznummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Antragssumme", Antragssumme))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Antrag vom", Antrag_vom, "Antrag_vom"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Versicherungssumme", Versicherungssumme))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Entscheidung vom", Entscheidung_vom, "Entscheidung_vom"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kreditlimit", Kreditlimit))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kreditlimit vom", Kreditlimit_vom, "Kreditlimit_vom"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Info", Info))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Überwachungskunde", Überwachungskunde))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abfertigungsverbot", Abfertigungsverbot))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abfertigungsverbot seit", Abfertigungsverbot_seit, "Abfertigungsverbot_seit"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abfertigungsverbot Grund", Abfertigungsverbot_Grund, "Abfertigungsverbot_Grund"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechtsanwalt", Rechtsanwalt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechtsanwalt seit", Rechtsanwalt_seit, "Rechtsanwalt_seit"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Eingegeben am", Eingegeben_am, "Eingegeben_am"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Geändert am", Geändert_am, "Geändert_am"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachbearbeiter", Sachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LfdSaldo", LfdSaldo))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Erste Abfertigung", Erste_Abfertigung, "Erste_Abfertigung"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vorkasse", Vorkasse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zahlungsinformationen", Zahlungsinformationen))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EORITIN", EORITIN))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EORITIN_NL", EORITIN_NL))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zollnummer", Zollnummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ZulassungsNr ZnV", ZulassungsNr_ZnV, "ZulassungsNr_ZnV"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Aufschubkonto EUSt", Aufschubkonto_EUSt, "Aufschubkonto_EUSt"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Aufschubkonto Zoll", Aufschubkonto_Zoll, "Aufschubkonto_Zoll"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Währungscode", Währungscode))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Euroeinführung", Euroeinführung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LetzteRechnungsNr", LetzteRechnungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LetztesRechnungsDatum", LetztesRechnungsDatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Konzernkonto", Konzernkonto))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FiBuSchnittstelle", FiBuSchnittstelle))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FiBuSchnittstelleNr", FiBuSchnittstelleNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Planzahl", Planzahl))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gesprächsbericht", Gesprächsbericht))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bonität", Bonität))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bonitätsdatum", Bonitätsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zahlungsziel", Zahlungsziel))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStV_SummeUmsatzsteuerbetragEUR", UStV_SummeUmsatzsteuerbetragEUR))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStV_SummeErstattungsbetragEUR", UStV_SummeErstattungsbetragEUR))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStV_Summe3470BetragEUR", UStV_Summe3470BetragEUR))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStV_SummeVZBetragEUR", UStV_SummeVZBetragEUR))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStV_SummeVorschaubetragEUR", UStV_SummeVorschaubetragEUR))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStV_SummeVorschaubetragEUR_VERAG", UStV_SummeVorschaubetragEUR_VERAG))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStV_SummeVorschaubetragEUR_IDS", UStV_SummeVorschaubetragEUR_IDS))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Fiskal", Fiskal))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Ausfuhr", Ausfuhr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BankgarantieBetrag", BankgarantieBetrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BankgarantieGültigBis", BankgarantieGültigBis))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KD_Korrespondenz", KD_Korrespondenz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Fiskal_Aktiv", Fiskal_Aktiv))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DokumenteLKWFreigabe", DokumenteLKWFreigabe))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmailAnkunft", EmailAnkunft))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmailFreigabe", EmailFreigabe))
|
||||
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Höchstkredit", Höchstkredit))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DakosyExport", DakosyExport))
|
||||
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Function VALID(ByRef ERROR_TXT) As Boolean
|
||||
' If If(FilialenNr Is Nothing, "", FilialenNr).ToString = "" Then ERROR_TXT = "Bitte geben Sie die zuständige Filiale an!" : Return False 'Es gibt alte Einträge ohne FilialenNr
|
||||
|
||||
Return True
|
||||
End Function
|
||||
|
||||
|
||||
Sub INIT_NEWKD_DATA()
|
||||
|
||||
' Me.KundenNrZentrale = Me.KundenNr
|
||||
|
||||
If Me.FilialenNr Is Nothing Then Me.FilialenNr = 4803
|
||||
If Me.Sachbearbeiter Is Nothing Then Me.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
|
||||
Me.Währungscode = "EUR"
|
||||
Me.Eingegeben_am = Now.ToShortDateString
|
||||
|
||||
Me.Vorlageprovision = 0.01
|
||||
Me.Kreditaufwendungen = 0.02
|
||||
Me.Bankspesen = 0
|
||||
Me.Bankspesen_Mindestbetrag = 0
|
||||
|
||||
Me.Zahlungsziel = 10
|
||||
Me.Sammelrechnung = 0
|
||||
Me.Steuerschlüssel = 10
|
||||
Me.Kreditlimit = 2600
|
||||
Me.Überwachungskunde = 0
|
||||
Me.Abfertigungsverbot = 0
|
||||
Me.Rechtsanwalt = 0
|
||||
Me.Euroeinführung = CDate("01.01.2002")
|
||||
Me.UStV_Summe3470BetragEUR = 0
|
||||
Me.UStV_SummeErstattungsbetragEUR = 0
|
||||
Me.UStV_SummeVorschaubetragEUR = 0
|
||||
Me.UStV_SummeVorschaubetragEUR_IDS = 0
|
||||
Me.UStV_SummeVorschaubetragEUR_VERAG = 0
|
||||
Me.UStV_SummeUmsatzsteuerbetragEUR = 0
|
||||
Me.UStV_SummeVZBetragEUR = 0
|
||||
Me.Fiskal_Aktiv = 0
|
||||
Me.SVS = 1
|
||||
|
||||
End Sub
|
||||
|
||||
Public Function SAVE(Optional newFlag = False) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
If newFlag Then INIT_NEWKD_DATA()
|
||||
If EORITIN IsNot Nothing Then EORITIN = EORITIN.ToString.Replace(" ", "") 'Falls NL-Nr. mit leer einegegeben wird
|
||||
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
If KundenNr <= 0 Then
|
||||
MsgBox("Fehler: KundenNr <= 0!")
|
||||
Return False
|
||||
End If
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM Kunden WHERE KundenNr=@KundenNr) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
' MsgBox(sqlstr)
|
||||
Dim id = SQL.doSQLVarListID(KundenNr, sqlstr, "FMZOLL", , list,,, False, 2)
|
||||
If id = -2 Then id = SQL.doSQLVarListID(KundenNr, sqlstr, "FMZOLL", , list,,, False, 10) '2.Versuch --> Oft Timeout wg.Fmzoll
|
||||
If id = -2 Then id = SQL.doSQLVarListID(KundenNr, sqlstr, "FMZOLL", , list) '3.Versuch --> Oft Timeout wg.Fmzoll
|
||||
|
||||
If id > 0 Then
|
||||
KundenNr = id 'Sonst wird beim Speichern mit Fehler -1 in die KundenNr übergeben
|
||||
If If(Me.KundenNrZentrale, 0) <= 0 Then SQL.doSQL("UPDATE Kunden SET KundenNrZentrale=KundenNr WHERE KundenNr=" & id, "FMZOLL")
|
||||
End If
|
||||
Return id > 0
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Dim test = ""
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM Kunden WHERE KundenNr=@KundenNr ", conn)
|
||||
cmd.Parameters.AddWithValue("@KundenNr", KundenNr)
|
||||
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
' Me.GetType.GetProperty(l.Scalarvariable) = dr.Item(l.Text)
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
' MsgBox(l.Text)
|
||||
' MsgBox(propInfo.PropertyType.ToString)
|
||||
' propInfo.SetValue(GetType(Object), l.Text)
|
||||
|
||||
'propInfo.SetValue(Me, l.Text)
|
||||
|
||||
' Try
|
||||
test = l.Text
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
' Catch ex As Exception
|
||||
|
||||
' End Try
|
||||
|
||||
' Me.GetType.GetProperty(l.Scalarvariable).setSetValue(GetType(Object), l.Text)
|
||||
'If propInfo IsNot Nothing Then
|
||||
'propInfo.SetValue(l.Scalarvariable, l.Text)
|
||||
' End If
|
||||
Next
|
||||
hasEntry = True
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
'Return Nothing
|
||||
Catch ex As Exception
|
||||
MsgBox(test & "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
' Return Nothing
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [Kunden] SET " & str & " WHERE KundenNr=@KundenNr ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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.isonlyForLoad Then 'And (Not i.isPrimaryParam OrElse i.Value > 0) 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 Kunden (" & 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
|
||||
245
SDL/VERAG_PROG_ALLGEMEIN/Classes/cKundenAufschubkonten.vb
Normal file
245
SDL/VERAG_PROG_ALLGEMEIN/Classes/cKundenAufschubkonten.vb
Normal file
@@ -0,0 +1,245 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cKundenAufschubkonten
|
||||
|
||||
Property kdAkto_id As Integer = -1
|
||||
Property kdAkto_KundenNr As Integer
|
||||
Property kdAkto_art As Integer
|
||||
Property kdAkto_hauptzollamt As Object = Nothing
|
||||
Property kdAkto_kontonummer As Object = Nothing
|
||||
Property kdAkto_bin As Object = Nothing
|
||||
Property kdAkto_eori As Object = Nothing
|
||||
Property kdAkto_eoriNL As Object = Nothing
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
|
||||
|
||||
Public Shared Function SAVE_LIST(KundenNr As Integer, LIST As List(Of cKundenAufschubkonten)) As Boolean
|
||||
SAVE_LIST = DELETE_NOT_EXIST(KundenNr, LIST)
|
||||
For Each l In LIST
|
||||
If Not l.SAVEByKdNrArt() Then SAVE_LIST = False
|
||||
Next
|
||||
End Function
|
||||
|
||||
Public Shared Function DELETE_NOT_EXIST(KundenNr As Integer, LIST As List(Of cKundenAufschubkonten)) As Boolean
|
||||
Dim SQL As New SQL
|
||||
Dim ktoNr = ""
|
||||
For Each a In LIST
|
||||
ktoNr &= a.kdAkto_art & ","
|
||||
Next
|
||||
If ktoNr.EndsWith(",") Then ktoNr = ktoNr.Substring(0, ktoNr.Length - 1)
|
||||
|
||||
Dim sqlstr = " DELETE FROM [tblKundenAufschubkonten] WHERE kdAkto_KundenNr='" & KundenNr & "' "
|
||||
If ktoNr <> "" Then sqlstr &= " AND [kdAkto_art] NOT IN (" & ktoNr & ") "
|
||||
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
|
||||
Sub New()
|
||||
|
||||
End Sub
|
||||
|
||||
Sub New(kdAkto_id)
|
||||
Me.kdAkto_id = kdAkto_id
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
Sub New(kdAkto_KundenNr, kdAkto_art)
|
||||
Me.kdAkto_KundenNr = kdAkto_KundenNr
|
||||
Me.kdAkto_art = kdAkto_art
|
||||
LOADByKdNrArt(kdAkto_KundenNr, kdAkto_art)
|
||||
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("kdAkto_id", kdAkto_id, , True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdAkto_KundenNr", kdAkto_KundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdAkto_art", kdAkto_art))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdAkto_hauptzollamt", kdAkto_hauptzollamt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdAkto_kontonummer", kdAkto_kontonummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdAkto_bin", kdAkto_bin))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdAkto_eori", kdAkto_eori))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdAkto_eoriNL", kdAkto_eoriNL))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function LOAD_ListAufschubKTOByKdNr(kdAkto_KundenNr) As List(Of cKundenAufschubkonten)
|
||||
Try
|
||||
LOAD_ListAufschubKTOByKdNr = New List(Of cKundenAufschubkonten)
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblKundenAufschubkonten WHERE kdAkto_KundenNr=@kdAkto_KundenNr ", conn)
|
||||
cmd.Parameters.AddWithValue("@kdAkto_KundenNr", kdAkto_KundenNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim KTO As New cKundenAufschubkonten
|
||||
For Each l In KTO.getParameterList()
|
||||
Dim propInfo As PropertyInfo = KTO.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(KTO, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(KTO, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
LOAD_ListAufschubKTOByKdNr.Add(KTO)
|
||||
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)
|
||||
LOAD_ListAufschubKTOByKdNr = Nothing
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblKundenAufschubkonten WITH(updlock,serializable) WHERE kdAkto_id=@kdAkto_id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
kdAkto_id = SQL.doSQLVarListID(kdAkto_id, sqlstr, "FMZOLL", , list)
|
||||
Return kdAkto_id > 0
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Public Function SAVEByKdNrArt() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblKundenAufschubkonten WITH(updlock,serializable) WHERE kdAkto_KundenNr=@kdAkto_KundenNr and kdAkto_art=@kdAkto_art) " &
|
||||
" BEGIN " & getUpdateCmd2() & " " &
|
||||
" (SELECT kdAkto_id FROM tblKundenAufschubkonten WITH(updlock,serializable) WHERE kdAkto_KundenNr=@kdAkto_KundenNr and kdAkto_art=@kdAkto_art)" &
|
||||
" END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
kdAkto_id = SQL.doSQLVarListID(kdAkto_id, sqlstr, "FMZOLL", , list, True)
|
||||
Return kdAkto_id > 0
|
||||
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblKundenAufschubkonten WHERE kdAkto_id=@kdAkto_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@kdAkto_id", kdAkto_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
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 Sub LOADByKdNrArt(kdAkto_KundenNr, kdAkto_art)
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblKundenAufschubkonten WHERE kdAkto_KundenNr=@kdAkto_KundenNr AND kdAkto_art=@kdAkto_art ", conn)
|
||||
cmd.Parameters.AddWithValue("@kdAkto_KundenNr", kdAkto_KundenNr)
|
||||
cmd.Parameters.AddWithValue("@kdAkto_art", kdAkto_art)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
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 getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblKundenAufschubkonten] SET " & str & " WHERE kdAkto_id=@kdAkto_id ")
|
||||
|
||||
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
|
||||
|
||||
Public Function getUpdateCmd2() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblKundenAufschubkonten] SET " & str & " WHERE kdAkto_KundenNr=@kdAkto_KundenNr AND kdAkto_art=@kdAkto_art ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 And Not i.isonlyForLoad 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 tblKundenAufschubkonten (" & 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
|
||||
135
SDL/VERAG_PROG_ALLGEMEIN/Classes/cKundenBesonderheiten.vb
Normal file
135
SDL/VERAG_PROG_ALLGEMEIN/Classes/cKundenBesonderheiten.vb
Normal file
@@ -0,0 +1,135 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cKundenBesonderheiten
|
||||
Property kdb_id As Integer
|
||||
Property kdb_KundenNr As Integer
|
||||
Property kdb_kategorie As String
|
||||
Property kdb_text As String
|
||||
Property kdb_mitId As Integer
|
||||
Property kdb_mitName As String
|
||||
Property kdb_EingetragenAm As Date
|
||||
Property kdb_AenderungAm As Date
|
||||
Property kdb_visible As Boolean = True
|
||||
Property kdb_hervorheben As Boolean = False
|
||||
Property kdb_history As Boolean = False
|
||||
|
||||
Public hasEntry = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
|
||||
End Sub
|
||||
Sub New(kdb_id)
|
||||
Me.kdb_id = kdb_id
|
||||
LOAD()
|
||||
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("kdb_id", kdb_id,, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_KundenNr", kdb_KundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_kategorie", kdb_kategorie))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_text", kdb_text))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_mitId", kdb_mitId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_mitName", kdb_mitName))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_EingetragenAm", kdb_EingetragenAm))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_AenderungAm", kdb_AenderungAm))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_visible", kdb_visible))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_hervorheben", kdb_hervorheben))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_history", kdb_history))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblKundenBesonderheiten WHERE kdb_id=@kdb_id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
hasEntry = False
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblKundenBesonderheiten WHERE kdb_id=@kdb_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@kdb_id", kdb_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
hasEntry = True
|
||||
End If
|
||||
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 Shared Function DELETE_ALL_KD(kdb_KundenNr As Integer) As Boolean
|
||||
Dim SQL As New SQL
|
||||
Dim sqlstr = " DELETE FROM tblKundenBesonderheiten WHERE kdb_KundenNr=" & kdb_KundenNr
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblKundenBesonderheiten] SET " & str & " WHERE kdb_id=@kdb_id ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 tblKundenBesonderheiten (" & 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
|
||||
132
SDL/VERAG_PROG_ALLGEMEIN/Classes/cKundenDatenblatt.vb
Normal file
132
SDL/VERAG_PROG_ALLGEMEIN/Classes/cKundenDatenblatt.vb
Normal file
@@ -0,0 +1,132 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cKundenDatenblatt
|
||||
Property kdb_KundenNr As Integer
|
||||
Property kdb_route As Object = Nothing
|
||||
Property kdb_buergschaftsgeber As Object = Nothing
|
||||
Property kdb_anzahlLKW As Object = Nothing
|
||||
Property kdb_anzahlMA As Object = Nothing
|
||||
Property kdb_bestimmungslandEU As Object = Nothing
|
||||
Property kdb_grosskunden As Object = Nothing
|
||||
Property kdb_gueter As Object = Nothing
|
||||
Property kdb_grenzen As Object = Nothing
|
||||
Property kdb_verhaltenAvisierung As Object = Nothing
|
||||
Property kdb_sonstiges As Object = Nothing
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New(kdb_KundenNr)
|
||||
Me.kdb_KundenNr = kdb_KundenNr
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
Public 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("kdb_KundenNr", kdb_KundenNr))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_route", kdb_route))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_buergschaftsgeber", kdb_buergschaftsgeber))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_anzahlLKW", kdb_anzahlLKW))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_anzahlMA", kdb_anzahlMA))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_bestimmungslandEU", kdb_bestimmungslandEU))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_grosskunden", kdb_grosskunden))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_gueter", kdb_gueter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_grenzen", kdb_grenzen))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_verhaltenAvisierung", kdb_verhaltenAvisierung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdb_sonstiges", kdb_sonstiges))
|
||||
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblKundenDatenblatt WHERE kdb_KundenNr=@kdb_KundenNr) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
kdb_KundenNr = SQL.doSQLVarListID(kdb_KundenNr, sqlstr, "FMZOLL", , list)
|
||||
Return kdb_KundenNr > 0
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblKundenDatenblatt WHERE kdb_KundenNr=@kdb_KundenNr ", conn)
|
||||
cmd.Parameters.AddWithValue("@kdb_KundenNr", kdb_KundenNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
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 getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblKundenDatenblatt] SET " & str & " WHERE kdb_KundenNr=@kdb_KundenNr ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 tblKundenDatenblatt (" & 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
|
||||
|
||||
|
||||
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblKundenDatenblatt] WHERE kdb_KundenNr=" & Me.kdb_KundenNr
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
220
SDL/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb
Normal file
220
SDL/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb
Normal file
@@ -0,0 +1,220 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cKundenErweitert
|
||||
Property kde_KundenNr As Integer
|
||||
Property kde_FirmenwortlautFiskal As Object = Nothing
|
||||
Property kde_VerwendetAuftragsNr As Boolean = False
|
||||
|
||||
Property kde_FixeAuftragsNr As Object = Nothing
|
||||
Property kde_qsTeamId As Object = Nothing
|
||||
Property kde_qsTeamMAId As Object = Nothing
|
||||
Property kde_qsTeamMAName As Object = Nothing
|
||||
Property kde_qsTeamName As Object = Nothing
|
||||
Property kde_TeamId As Object = Nothing
|
||||
Property kde_TeamMAId As Object = Nothing
|
||||
|
||||
'Property kde_Hoechstkredit As Object = Nothing
|
||||
Property kde_Versicherung_Deckungsstopp As Boolean = False
|
||||
Property kde_Versicherung_DeckungsstoppDatum As Object = Nothing
|
||||
|
||||
Property kde_Versicherung_Uebergeben As Boolean = False
|
||||
Property kde_Versicherung_UebergebenAm As Object = Nothing
|
||||
Property kde_Versicherung_AnerkennungVersicherungsfall As Boolean = False
|
||||
Property kde_Versicherung_AnerkennungVersicherungsfallAm As Object = Nothing
|
||||
Property kde_Versicherung_AnerkennungVersicherungsfallAb As Object = Nothing
|
||||
Property kde_txtVersicherungDeckungsquote As Object = Nothing
|
||||
Property kde_txtVersicherungNichtVersicherbar As Object = Nothing
|
||||
Property kde_Versicherung_GemeldeterBetrag As Object = Nothing
|
||||
Property kde_txtVersicherungEHNr As Object = Nothing
|
||||
|
||||
|
||||
Property kde_Leihgeld_Provision As Object = Nothing
|
||||
Property kde_Leihgeld_ProvisionPreisstaffel As Object = Nothing
|
||||
Property kde_Leihgeld_ProvisionAuftraggeber As Object = Nothing
|
||||
Property EmailFreigabeSendungsListe As Boolean = False
|
||||
Property EmailFreigabe_SteuerbescheidPDF As Boolean = False
|
||||
Property EmailFreigabe_SteuerbescheidPDF_Bedingung As Integer
|
||||
|
||||
Property EmailFreigabe_Art As String = "FG" ' STB/VBD/.. bei Freigabe ; BLG --> wenn Beleg da ist.
|
||||
Property EmailFreigabe_VBDPDF As Boolean = False
|
||||
Property EmailFreigabe_ABDPDF As Boolean = False
|
||||
Property Email_AVM As Boolean = False
|
||||
Property Depot_Kunde As Boolean = False
|
||||
Property FiBuSchnittstelleLG As Boolean = False
|
||||
|
||||
Property Zahlungsziel2 As Object = Nothing
|
||||
Property Zahlungsziel3 As Object = Nothing
|
||||
Property EmailAnkunft_Export As Boolean = False
|
||||
Property EmailFreigabe_Export As Boolean = False
|
||||
Property kde_BonitaetsStufe As Object = Nothing
|
||||
|
||||
Property kde_Inkasso_Uebergeben As Boolean = False
|
||||
Property kde_Inkasso_UebergebenAm As Object = Nothing
|
||||
Property kde_Inkasso_GemeldeterBetrag As Object = Nothing
|
||||
Property AutoFakturierung As Boolean = False
|
||||
Property Veranlagungskunde As Boolean = False
|
||||
Property Anmerkungen_Warnhinweis As Object = Nothing
|
||||
Property kde_VERAG_INTERFACE_ID As Object = Nothing
|
||||
Property kde_BesonderheitenNeu As Boolean = False
|
||||
|
||||
Property kde_InfoAuftragsNr As Object = Nothing
|
||||
Property kde_KundeFremdspedition As Boolean = False
|
||||
Property kde_verzolltBei As Object = Nothing
|
||||
Property kde_API_Tradeshift As Boolean = False
|
||||
Property kde_FakturierungSR_Details As Boolean = False
|
||||
Property kde_Fakturierung_Sprache As Object = Nothing
|
||||
Property kde_TOBB_KundenNr As Object = Nothing
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New(KundenNr)
|
||||
Me.kde_KundenNr = KundenNr
|
||||
LOAD()
|
||||
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("kde_KundenNr", kde_KundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_FirmenwortlautFiskal", kde_FirmenwortlautFiskal))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_VerwendetAuftragsNr", kde_VerwendetAuftragsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_FixeAuftragsNr", kde_FixeAuftragsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_qsTeamId", kde_qsTeamId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_qsTeamMAId", kde_qsTeamMAId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_qsTeamMAName", kde_qsTeamMAName))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_qsTeamName", kde_qsTeamName))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_TeamId", kde_TeamId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_TeamMAId", kde_TeamMAId))
|
||||
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Hoechstkredit", kde_Hoechstkredit))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Versicherung_Deckungsstopp", kde_Versicherung_Deckungsstopp))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Versicherung_DeckungsstoppDatum", kde_Versicherung_DeckungsstoppDatum))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Versicherung_Uebergeben", kde_Versicherung_Uebergeben))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Versicherung_UebergebenAm", kde_Versicherung_UebergebenAm))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Versicherung_AnerkennungVersicherungsfall", kde_Versicherung_AnerkennungVersicherungsfall))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Versicherung_AnerkennungVersicherungsfallAm", kde_Versicherung_AnerkennungVersicherungsfallAm))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Versicherung_AnerkennungVersicherungsfallAb", kde_Versicherung_AnerkennungVersicherungsfallAb))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_txtVersicherungDeckungsquote", kde_txtVersicherungDeckungsquote))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_txtVersicherungNichtVersicherbar", kde_txtVersicherungNichtVersicherbar))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Versicherung_GemeldeterBetrag", kde_Versicherung_GemeldeterBetrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_txtVersicherungEHNr", kde_txtVersicherungEHNr))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Leihgeld_Provision", kde_Leihgeld_Provision))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Leihgeld_ProvisionPreisstaffel", kde_Leihgeld_ProvisionPreisstaffel))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Leihgeld_ProvisionAuftraggeber", kde_Leihgeld_ProvisionAuftraggeber))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmailFreigabeSendungsListe", EmailFreigabeSendungsListe))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmailFreigabe_SteuerbescheidPDF", EmailFreigabe_SteuerbescheidPDF))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmailFreigabe_SteuerbescheidPDF_Bedingung", EmailFreigabe_SteuerbescheidPDF_Bedingung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmailFreigabe_Art", EmailFreigabe_Art))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmailFreigabe_VBDPDF", EmailFreigabe_VBDPDF))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmailFreigabe_ABDPDF", EmailFreigabe_ABDPDF))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Email_AVM", Email_AVM))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Depot_Kunde", Depot_Kunde))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FiBuSchnittstelleLG", FiBuSchnittstelleLG))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zahlungsziel2", Zahlungsziel2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zahlungsziel3", Zahlungsziel3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmailAnkunft_Export", EmailAnkunft_Export))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmailFreigabe_Export", EmailFreigabe_Export))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_BonitaetsStufe", kde_BonitaetsStufe))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Inkasso_Uebergeben", kde_Inkasso_Uebergeben))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Inkasso_UebergebenAm", kde_Inkasso_UebergebenAm))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Inkasso_GemeldeterBetrag", kde_Inkasso_GemeldeterBetrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AutoFakturierung", AutoFakturierung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Veranlagungskunde", Veranlagungskunde))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Anmerkungen_Warnhinweis", Anmerkungen_Warnhinweis))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_VERAG_INTERFACE_ID", kde_VERAG_INTERFACE_ID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_BesonderheitenNeu", kde_BesonderheitenNeu))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_InfoAuftragsNr", kde_InfoAuftragsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_KundeFremdspedition", kde_KundeFremdspedition))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_verzolltBei", kde_verzolltBei))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_API_Tradeshift", kde_API_Tradeshift))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_FakturierungSR_Details", kde_FakturierungSR_Details))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Fakturierung_Sprache", kde_Fakturierung_Sprache))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_TOBB_KundenNr", kde_TOBB_KundenNr))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblKundenErweitert WHERE kde_KundenNr=@kde_KundenNr) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblKundenErweitert WHERE kde_KundenNr=@kde_KundenNr ", conn)
|
||||
cmd.Parameters.AddWithValue("@kde_KundenNr", kde_KundenNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
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 getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblKundenErweitert] SET " & str & " WHERE kde_KundenNr=@kde_KundenNr ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 tblKundenErweitert (" & 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
|
||||
271
SDL/VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb
Normal file
271
SDL/VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb
Normal file
@@ -0,0 +1,271 @@
|
||||
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cKundenKontakteList
|
||||
Property kkd_KundenNr As Object = Nothing
|
||||
Property firma As Object = Nothing
|
||||
Public LIST As New List(Of cKundenKontakte)
|
||||
Dim SQL As New SQL
|
||||
'Dim listTodelete As New List(Of cOfferte)
|
||||
|
||||
Sub New(kkd_KundenNr)
|
||||
Me.kkd_KundenNr = kkd_KundenNr
|
||||
' Me.OffertenNr = OffertenNr
|
||||
LOAD_LIST(Me.kkd_KundenNr)
|
||||
End Sub
|
||||
|
||||
Sub New(kkd_KundenNr, firma)
|
||||
Me.kkd_KundenNr = kkd_KundenNr
|
||||
Me.firma = firma
|
||||
LOAD_LIST(Me.kkd_KundenNr, firma)
|
||||
End Sub
|
||||
|
||||
Public Sub CLEAR()
|
||||
LIST.Clear()
|
||||
End Sub
|
||||
Public Sub ADD(eb_EMail As String, Optional cc As Boolean = False, Optional bcc As Boolean = False)
|
||||
' Dim l As New cOfferte
|
||||
'l.eb_bcc = bcc
|
||||
'LIST.Add(l)
|
||||
End Sub
|
||||
|
||||
Public Sub LOAD_LIST(kkd_KundenNr, Optional firma = "")
|
||||
Try
|
||||
LIST.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL(False)
|
||||
Using cmd As New SqlCommand("SELECT * FROM [tblKundenKontakt] WHERE kkd_KundenNr=@kkd_KundenNr " & If(firma <> "", " AND kkd_firma=@firma", ""), conn)
|
||||
cmd.Parameters.AddWithValue("@kkd_KundenNr", kkd_KundenNr)
|
||||
cmd.Parameters.AddWithValue("@firma", firma)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cKundenKontakte
|
||||
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
|
||||
LIST.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 GET_KundenKontakte_VALUE(param As String) As String
|
||||
' For Each p In LIST
|
||||
' If p.bezeichnung = param Then
|
||||
' Return p.wert
|
||||
' End If
|
||||
' Next
|
||||
' Return ""
|
||||
'End Function
|
||||
|
||||
'Public Function GET_KundenKontakte_VALUE_BOOL(param As String) As String
|
||||
' For Each p In LIST
|
||||
' If p.bezeichnung = param Then
|
||||
' Return (p.wert = "1" Or p.wert = "true")
|
||||
' End If
|
||||
' Next
|
||||
' Return False
|
||||
'End Function
|
||||
|
||||
End Class
|
||||
|
||||
Public Class cKundenKontakte
|
||||
Property kkd_id As Integer
|
||||
|
||||
Property kkd_KundenNr As Integer
|
||||
Property kkd_kkaId As Object = Nothing
|
||||
Property kkd_kkaBez As Object = Nothing
|
||||
Property kkd_Tel As Object = Nothing
|
||||
Property kkd_Email As Object = Nothing
|
||||
Property kkd_Fax As Object = Nothing
|
||||
Property kkd_Homepage As Object = Nothing
|
||||
Property kkd_Mobil As Object = Nothing
|
||||
Property kkd_AnsprechpartnerAnrede As Object = Nothing
|
||||
Property kkd_AnsprechpartnerVorname As Object = Nothing
|
||||
Property kkd_AnsprechpartnerNachname As Object = Nothing
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
|
||||
Sub New()
|
||||
|
||||
End Sub
|
||||
|
||||
Sub New(kkd_id)
|
||||
Me.kkd_id = kkd_id
|
||||
LOAD(kkd_id)
|
||||
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("kkd_id", kkd_id,, True, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_KundenNr", kkd_KundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_kkaId", kkd_kkaId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_kkaBez", kkd_kkaBez))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Tel", kkd_Tel))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Email", kkd_Email))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Fax", kkd_Fax))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Homepage", kkd_Homepage))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Mobil", kkd_Mobil))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_AnsprechpartnerAnrede", kkd_AnsprechpartnerAnrede))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_AnsprechpartnerVorname", kkd_AnsprechpartnerVorname))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_AnsprechpartnerNachname", kkd_AnsprechpartnerNachname))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Public Sub LOAD(kkd_id)
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM [tblKundenKontakt] WHERE kkd_id=@kkd_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@kkd_id", kkd_id)
|
||||
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
'Return Nothing
|
||||
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 Nothing
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblKundenKontakt WHERE kkd_id=@kkd_id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
kkd_id = SQL.doSQLVarListID(kkd_id, sqlstr, "FMZOLL", , list)
|
||||
Return (kkd_id > 0)
|
||||
End Function
|
||||
|
||||
Public Function INSERT() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
kkd_id = SQL.doSQLVarListID(kkd_id, getInsertCmd, "FMZOLL", , list)
|
||||
Return (kkd_id > 0)
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblKundenKontakt] SET " & str & " WHERE kkd_id=@kkd_id ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblKundenKontakt] WITH(updlock,serializable) WHERE kkd_id=" & Me.kkd_id
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
Public Shared Function DELETE_ALL_KONTAKTE(kkd_KundenNr, Optional kkd_kkaId = -1) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim sqlstr = " DELETE FROM [tblKundenKontakt] WITH(updlock,serializable) WHERE kkd_KundenNr=" & kkd_KundenNr & If(kkd_kkaId > 0, " AND kkd_kkaId='" & kkd_kkaId & "'", "")
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
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 tblKundenKontakt (" & 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
|
||||
|
||||
Shared Function getMailAdress(KdNr As Integer, bez As String) As String
|
||||
If KdNr < 0 Then Return ""
|
||||
Dim KD_LIST = New cKundenKontakteList(KdNr)
|
||||
If KD_LIST IsNot Nothing Then
|
||||
For Each l In KD_LIST.LIST
|
||||
If l.kkd_kkaBez = bez Then Return l.kkd_Email
|
||||
Next
|
||||
End If
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
Shared Function getKdNrFromMailAdress(KMail As String, Optional serchInKd As Boolean = True) As Integer
|
||||
getKdNrFromMailAdress = -1
|
||||
If KMail = "" Then Return -1
|
||||
If Not KMail.Contains("@") Then Return -1
|
||||
|
||||
Dim whereFiliale = ""
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "VERAG" And VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "ATILLA" Then
|
||||
whereFiliale = " AND [FilialenNr]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE & "' "
|
||||
Else
|
||||
'SQLstr &= " AND isnull([FilialenNr],0)<>'5501' "
|
||||
whereFiliale = " AND isnull([FilialenNr],0) NOT IN ('5501','5601','5701','5801') "
|
||||
End If
|
||||
|
||||
Dim SQL As New SQL
|
||||
getKdNrFromMailAdress = SQL.getValueTxtBySql("SELECT TOP 1 [kkd_KundenNr] FROM [tblKundenKontakt] INNER JOIN Kunden ON KundenNr=kkd_KundenNr where kkd_Email LIKE ('%" & KMail & "%') AND kkd_kkaBez='OUTLOOK_AVISO_Eingang' " & whereFiliale, "FMZOLL",,, -1)
|
||||
|
||||
If serchInKd AndAlso getKdNrFromMailAdress < 0 Then
|
||||
getKdNrFromMailAdress = SQL.getValueTxtBySql("SELECT TOP 1 AdressenNr FROM Adressen INNER JOIN Kunden ON KundenNr=AdressenNr WHERE [E-Mail] LIKE ('%" & KMail & "%') " & whereFiliale, "FMZOLL",,, -1)
|
||||
|
||||
If getKdNrFromMailAdress < 0 Then
|
||||
Dim sp = KMail.Split("@")
|
||||
getKdNrFromMailAdress = SQL.getValueTxtBySql("SELECT TOP 1 AdressenNr FROM Adressen INNER JOIN Kunden ON KundenNr=AdressenNr WHERE [E-Mail] LIKE ('%" & sp(1) & "%') " & whereFiliale, "FMZOLL",,, -1)
|
||||
End If
|
||||
End If
|
||||
End Function
|
||||
End Class
|
||||
141
SDL/VERAG_PROG_ALLGEMEIN/Classes/cKundenSDL.vb
Normal file
141
SDL/VERAG_PROG_ALLGEMEIN/Classes/cKundenSDL.vb
Normal file
@@ -0,0 +1,141 @@
|
||||
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cKundenSDL
|
||||
Property KundenNr As Integer
|
||||
Property SDLNr As Integer
|
||||
Property Sperre As Integer
|
||||
Property Sperrdatum As Object = Nothing
|
||||
Property Vertretungsvollmacht As Object = Nothing
|
||||
Property Auszahlungsvollmacht As Object = Nothing
|
||||
Property Finanzamtbestätigung As Object = Nothing
|
||||
Property Vermerk As Object = Nothing
|
||||
Property Antragsdatum As Object = Nothing
|
||||
Property Erfassungsdatum As Object = Nothing
|
||||
Property Änderungsdatum As Object = Nothing
|
||||
Property Sachbearbeiter As Object = Nothing
|
||||
Property MautDE_FlottenPIN As Object = Nothing
|
||||
Property MautDE_MasterPIN As Object = Nothing
|
||||
Property MautDE_BenutzerNr As Object = Nothing
|
||||
Property MautAT_KartenNr As Object = Nothing
|
||||
|
||||
|
||||
Public hasEntry = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New(KundenNr, SDLNr)
|
||||
Me.KundenNr = KundenNr
|
||||
Me.SDLNr = SDLNr
|
||||
LOAD()
|
||||
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("KundenNr", KundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SDLNr", SDLNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sperre", Sperre))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sperrdatum", Sperrdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vertretungsvollmacht", Vertretungsvollmacht))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Auszahlungsvollmacht", Auszahlungsvollmacht))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Finanzamtbestätigung", Finanzamtbestätigung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vermerk", Vermerk))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Antragsdatum", Antragsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Erfassungsdatum", Erfassungsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Änderungsdatum", Änderungsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachbearbeiter", Sachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("MautDE_FlottenPIN", MautDE_FlottenPIN))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("MautDE_MasterPIN", MautDE_MasterPIN))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("MautDE_BenutzerNr", MautDE_BenutzerNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("MautAT_KartenNr", MautAT_KartenNr))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM KundenSDL WHERE KundenNr=@KundenNr and SDLNr=@SDLNr) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Return SQL.doSQLVarList(sqlstr, "SDL", , list)
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
hasEntry = False
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionSDL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM KundenSDL WHERE KundenNr=@KundenNr and SDLNr=@SDLNr ", conn)
|
||||
cmd.Parameters.AddWithValue("@KundenNr", KundenNr)
|
||||
cmd.Parameters.AddWithValue("@SDLNr", SDLNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
hasEntry = True
|
||||
End If
|
||||
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 getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [KundenSDL] SET " & str & " WHERE KundenNr=@KundenNr and SDLNr=@SDLNr ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 KundenSDL (" & 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
|
||||
280
SDL/VERAG_PROG_ALLGEMEIN/Classes/cKundenVermerk.vb
Normal file
280
SDL/VERAG_PROG_ALLGEMEIN/Classes/cKundenVermerk.vb
Normal file
@@ -0,0 +1,280 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cKundenVermerke
|
||||
Property LIST As New List(Of cKundenVermerkItem)
|
||||
Dim kvm_KundenNr As Integer
|
||||
|
||||
Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Sub New(kvm_KundenNr)
|
||||
LOAD_LIST(kvm_KundenNr)
|
||||
End Sub
|
||||
|
||||
Sub New(kvm_KundenNr, kvm_art)
|
||||
LOAD_LIST(kvm_KundenNr, kvm_art)
|
||||
End Sub
|
||||
|
||||
|
||||
Public Shared Function getDT(kvm_KundenNr As Integer, Optional kvm_art() As String = Nothing) As DataTable
|
||||
Try
|
||||
Dim art As String = ""
|
||||
If kvm_art IsNot Nothing Then
|
||||
For Each s In kvm_art
|
||||
art &= "'" & s & "',"
|
||||
Next
|
||||
If art.EndsWith(",") Then art = art.Substring(0, art.Length - 1)
|
||||
End If
|
||||
|
||||
Dim myTable = New DataTable()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL
|
||||
Using cmd As New SqlCommand("SELECT * FROM [tblKundenVermerke] WHERE [kvm_KundenNr] =@kvm_KundenNr " & If(art <> "", "AND kvm_art IN (" & art & ") ", "") & " ORDER BY [kvm_datum] desc ", conn)
|
||||
cmd.Parameters.AddWithValue("@kvm_KundenNr", kvm_KundenNr)
|
||||
Dim dr As SqlDataReader = cmd.ExecuteReader()
|
||||
myTable.Load(dr)
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Return myTable 'While Schleife wird hier verlassen
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
|
||||
End Try
|
||||
Return Nothing
|
||||
End Function
|
||||
|
||||
Public Sub LOAD_LIST(kvm_KundenNr As Integer, Optional kvm_art() As String = Nothing)
|
||||
Try
|
||||
Dim art As String = ""
|
||||
If kvm_art IsNot Nothing Then
|
||||
For Each s In kvm_art
|
||||
art &= "'" & art & "',"
|
||||
Next
|
||||
If art.EndsWith(",") Then art = art.Substring(0, art.Length - 1)
|
||||
End If
|
||||
LIST.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM [tblKundenVermerke] WHERE [kvm_KundenNr] =@kvm_KundenNr " & If(art <> "", "AND kvm_art IN (" & art & ") ", "") & " ORDER BY [kvm_datum] desc ", conn)
|
||||
cmd.Parameters.AddWithValue("@kvm_KundenNr", kvm_KundenNr)
|
||||
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cKundenVermerkItem()
|
||||
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
|
||||
|
||||
LIST.Add(l)
|
||||
|
||||
End While
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Shared Function INSERT(kvm_KundenNr, kvm_art, kvm_text) As Boolean
|
||||
Try
|
||||
Dim KDV As New cKundenVermerkItem
|
||||
KDV.kvm_art = kvm_art
|
||||
KDV.kvm_text = kvm_text
|
||||
KDV.kvm_KundenNr = kvm_KundenNr
|
||||
KDV.kvm_datum = Now
|
||||
KDV.kvm_sb = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
KDV.kvm_sbId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
||||
Return KDV.SAVE()
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Public Function ADD(kvm_art, kvm_text) As Boolean
|
||||
Try
|
||||
Dim KDV As New cKundenVermerkItem
|
||||
KDV.kvm_art = kvm_art
|
||||
KDV.kvm_text = kvm_text
|
||||
KDV.kvm_datum = Now
|
||||
KDV.kvm_KundenNr = Me.kvm_KundenNr
|
||||
KDV.kvm_sb = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
KDV.kvm_sbId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
||||
If KDV.SAVE() Then
|
||||
LIST.Add(KDV)
|
||||
Return True
|
||||
End If
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
Return False
|
||||
End Function
|
||||
|
||||
|
||||
Public Shared Function DELETE(id) As Boolean
|
||||
Try
|
||||
Dim KDV As New cKundenVermerkItem(id)
|
||||
Return KDV.DELETE()
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
Return False
|
||||
End Function
|
||||
Public Function REMOVE(kvm_id) As Boolean
|
||||
Try
|
||||
For Each i In LIST
|
||||
If i.kvm_id = kvm_id Then
|
||||
If i.DELETE() Then
|
||||
LIST.Remove(i)
|
||||
Return True
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
Return False
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
Public Class cKundenVermerkItem
|
||||
|
||||
|
||||
Property kvm_id As Integer
|
||||
Property kvm_KundenNr As Integer
|
||||
Property kvm_art As String = ""
|
||||
Property kvm_datum As Date = Now
|
||||
Property kvm_text As String = ""
|
||||
Property kvm_sbId As Integer
|
||||
Property kvm_sb As String = ""
|
||||
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
Sub New(kvm_id)
|
||||
Me.kvm_id = kvm_id
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
'Shared Sub ADD(kvm_art, kvm_text)
|
||||
' Me.kvm_datum = Now
|
||||
' Me.kvm_sbId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
||||
' Me.kvm_sb = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
|
||||
' LOAD()
|
||||
|
||||
' 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("kvm_id", kvm_id, , True, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kvm_KundenNr", kvm_KundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kvm_art", kvm_art))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kvm_datum", kvm_datum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kvm_text", kvm_text))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kvm_sbId", kvm_sbId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kvm_sb", kvm_sb))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblKundenVermerke WHERE kvm_id=@kvm_id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
kvm_id = SQL.doSQLVarListID(kvm_id, sqlstr, "FMZOLL", , list)
|
||||
Return kvm_id > 0
|
||||
End Function
|
||||
|
||||
|
||||
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblKundenVermerke] WHERE kvm_id=" & Me.kvm_id
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblKundenVermerke WHERE kvm_id=@kvm_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@kvm_id", kvm_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblKundenVermerke] SET " & str & " WHERE kvm_id=@kvm_id ")
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
Return ""
|
||||
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 tblKundenVermerke (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
End Class
|
||||
134
SDL/VERAG_PROG_ALLGEMEIN/Classes/cKundenVertraege.vb
Normal file
134
SDL/VERAG_PROG_ALLGEMEIN/Classes/cKundenVertraege.vb
Normal file
@@ -0,0 +1,134 @@
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cKundenVertraege
|
||||
Property kv_Id As Integer
|
||||
Property kv_KundenNr As Integer
|
||||
Property kv_erhalten_Datum As Date
|
||||
Property kv_vertragArtId As Integer
|
||||
Property kv_Info As Object = Nothing
|
||||
Property kv_datenarchivId As Object = Nothing
|
||||
Property kv_gueltig As Boolean = True
|
||||
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
|
||||
End Sub
|
||||
Sub New(kv_Id)
|
||||
Me.kv_Id = kv_Id
|
||||
LOAD()
|
||||
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("kv_Id", kv_Id, , True, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kv_KundenNr", kv_KundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kv_erhalten_Datum", kv_erhalten_Datum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kv_vertragArtId", kv_vertragArtId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kv_Info", kv_Info))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kv_datenarchivId", kv_datenarchivId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kv_gueltig", kv_gueltig))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Public Shared Function LOAD_LIST(KundenNr As Integer) As DataTable
|
||||
Return (New SQL).loadDgvBySql("SELECT [kv_Id],[kv_KundenNr],[kv_erhalten_Datum],[kv_vertragArtId],kva_Bezeichnung,[kv_Info],[kv_datenarchivId],[kv_gueltig] FROM tblKundenVertraege INNER JOIN tblKundenVertraegeArten ON kv_vertragArtId=kva_id WHERE kv_KundenNr=" & KundenNr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
Public Shared Function ENTRY_Exists(KundenNr As Integer, kv_vertragArtId As Integer) As Boolean
|
||||
Return (CInt((New SQL).getValueTxtBySql("SELECT count(*) FROM tblKundenVertraege WHERE kv_KundenNr=" & KundenNr & " AND kv_vertragArtId='" & kv_vertragArtId & "'", "FMZOLL")) > 0)
|
||||
End Function
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN If EXISTS(Select * FROM tblKundenVertraege With(updlock, serializable) WHERE kv_Id=@kv_Id) " &
|
||||
" BEGIN " & getUpdateCmd() & " End " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " End " &
|
||||
" commit tran "
|
||||
|
||||
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("Select * FROM tblKundenVertraege WHERE kv_Id=@kv_Id ", conn)
|
||||
cmd.Parameters.AddWithValue("@kv_Id", kv_Id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
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 getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblKundenVertraege] SET " & str & " WHERE kv_Id=@kv_Id ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 tblKundenVertraege (" & 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
|
||||
|
||||
|
||||
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblKundenVertraege] WITH(updlock,serializable) WHERE kv_Id=" & Me.kv_Id
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
172
SDL/VERAG_PROG_ALLGEMEIN/Classes/cLanguageText.vb
Normal file
172
SDL/VERAG_PROG_ALLGEMEIN/Classes/cLanguageText.vb
Normal file
@@ -0,0 +1,172 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cLanguageText_LIST
|
||||
Dim LIST As New List(Of cLanguageText)
|
||||
|
||||
Sub New(tlan_kategorie, tlan_ukategorie1, tlan_ukategorie2, tlan_ukategorie3)
|
||||
LOAD_LIST(tlan_kategorie, tlan_ukategorie1, tlan_ukategorie2, tlan_ukategorie3)
|
||||
End Sub
|
||||
Public Sub LOAD_LIST(tlan_kategorie, tlan_ukategorie1, tlan_ukategorie2, tlan_ukategorie3)
|
||||
Try
|
||||
List.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionWEB()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblLanguageText WHERE tlan_kategorie=@tlan_kategorie AND tlan_ukategorie1=@tlan_ukategorie1 AND tlan_ukategorie2=@tlan_ukategorie2 AND tlan_ukategorie3=@tlan_ukategorie3 ", conn)
|
||||
cmd.Parameters.AddWithValue("@tlan_kategorie", tlan_kategorie)
|
||||
cmd.Parameters.AddWithValue("@tlan_ukategorie1", tlan_ukategorie1)
|
||||
cmd.Parameters.AddWithValue("@tlan_ukategorie2", tlan_ukategorie2)
|
||||
cmd.Parameters.AddWithValue("@tlan_ukategorie3", tlan_ukategorie3)
|
||||
|
||||
' cmd.Parameters.AddWithValue("@OffertenNr", OffertenNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cLanguageText
|
||||
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
|
||||
LIST.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 getTxt(tlan_Id, tlan_language, defaultTXT) As String
|
||||
For Each l In LIST
|
||||
If l.tlan_Id = tlan_Id And l.tlan_language = tlan_language Then
|
||||
Return l.tlan_TEXT
|
||||
End If
|
||||
Next
|
||||
Return defaultTXT
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
Public Class cLanguageText
|
||||
Property tlan_Id As Integer
|
||||
Property tlan_kategorie As String = ""
|
||||
Property tlan_ukategorie1 As String = ""
|
||||
Property tlan_ukategorie2 As String = ""
|
||||
Property tlan_ukategorie3 As String = ""
|
||||
Property tlan_language As String = ""
|
||||
Property tlan_TEXT As String = ""
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
|
||||
End Sub
|
||||
Sub New(tlan_Id, tlan_language)
|
||||
Me.tlan_Id = tlan_Id
|
||||
Me.tlan_language = tlan_language
|
||||
LOAD()
|
||||
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("tlan_Id", tlan_Id))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tlan_kategorie", tlan_kategorie))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tlan_ukategorie1", tlan_ukategorie1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tlan_ukategorie2", tlan_ukategorie2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tlan_ukategorie3", tlan_ukategorie3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tlan_language", tlan_language))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tlan_TEXT", tlan_TEXT))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblLanguageText WHERE tlan_Id=@tlan_Id AND tlan_language=@tlan_language) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Return SQL.doSQLVarList(sqlstr, "WEB", , list)
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionWEB()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblLanguageText WHERE tlan_Id=@tlan_Id AND tlan_language=@tlan_language ", conn)
|
||||
cmd.Parameters.AddWithValue("@tlan_Id", tlan_Id)
|
||||
cmd.Parameters.AddWithValue("@tlan_language", tlan_language)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
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 getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblLanguageText] SET " & str & " WHERE tlan_Id=@tlan_Id AND tlan_language=@tlan_language ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 tblLanguageText (" & 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
|
||||
163
SDL/VERAG_PROG_ALLGEMEIN/Classes/cLeistungen.vb
Normal file
163
SDL/VERAG_PROG_ALLGEMEIN/Classes/cLeistungen.vb
Normal file
@@ -0,0 +1,163 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cLeistungen
|
||||
|
||||
Property LeistungsNr As Object = Nothing
|
||||
Property LeistungsBez As Object = Nothing
|
||||
Property BezeichnungAusListe As Object = Nothing
|
||||
Property BerechnungsartNr As Object = Nothing
|
||||
Property Steuerpflichtig As Object = Nothing
|
||||
Property SKR As Object = Nothing
|
||||
Property Vorlageprovision As Object = Nothing
|
||||
Property Kreditaufwendungen As Object = Nothing
|
||||
Property FixeTaxe As Object = Nothing
|
||||
Property Abfertigungskosten As Object = Nothing
|
||||
Property Preissperre As Object = Nothing
|
||||
Property Kostenstelle As Object = Nothing
|
||||
Property AufschubkontoNr As Object = Nothing
|
||||
Property Gl_account As Object = Nothing
|
||||
Property Analysis_type As Object = Nothing
|
||||
Property Analysis_code As Object = Nothing
|
||||
Property SachkontoInlandSteuerpflichtig As Object = Nothing
|
||||
Property SachkontoInlandSteuerfrei As Object = Nothing
|
||||
Property SachkontoEUSteuerpflichtig As Object = Nothing
|
||||
Property SachkontoEUSteuerfrei As Object = Nothing
|
||||
Property Sachkonto3Land As Object = Nothing
|
||||
Property BS415 As Object = Nothing
|
||||
Property BGebUStV As Object = Nothing
|
||||
|
||||
Property IMEX_Gl_account As Object = Nothing
|
||||
Property IMEX_SachkontoInlandSteuerpflichtig As Object = Nothing
|
||||
Property IMEX_SachkontoInlandSteuerfrei As Object = Nothing
|
||||
Property IMEX_SachkontoEUSteuerpflichtig As Object = Nothing
|
||||
Property IMEX_SachkontoEUSteuerfrei As Object = Nothing
|
||||
Property IMEX_Sachkonto3Land As Object = Nothing
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New(LeistungsNr)
|
||||
Me.LeistungsNr = LeistungsNr
|
||||
LOAD()
|
||||
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("LeistungsNr", LeistungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LeistungsBez", LeistungsBez))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BezeichnungAusListe", BezeichnungAusListe))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BerechnungsartNr", BerechnungsartNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuerpflichtig", Steuerpflichtig))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SKR", SKR))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vorlageprovision", Vorlageprovision))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kreditaufwendungen", Kreditaufwendungen))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FixeTaxe", FixeTaxe))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abfertigungskosten", Abfertigungskosten))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Preissperre", Preissperre))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kostenstelle", Kostenstelle))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AufschubkontoNr", AufschubkontoNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gl_account", Gl_account))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Analysis_type", Analysis_type))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Analysis_code", Analysis_code))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SachkontoInlandSteuerpflichtig", SachkontoInlandSteuerpflichtig))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SachkontoInlandSteuerfrei", SachkontoInlandSteuerfrei))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SachkontoEUSteuerpflichtig", SachkontoEUSteuerpflichtig))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SachkontoEUSteuerfrei", SachkontoEUSteuerfrei))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachkonto3Land", Sachkonto3Land))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BS415", BS415))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BGebUStV", BGebUStV))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("IMEX_Gl_account", IMEX_Gl_account))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("IMEX_SachkontoInlandSteuerpflichtig", IMEX_SachkontoInlandSteuerpflichtig))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("IMEX_SachkontoInlandSteuerfrei", IMEX_SachkontoInlandSteuerfrei))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("IMEX_SachkontoEUSteuerpflichtig", IMEX_SachkontoEUSteuerpflichtig))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("IMEX_SachkontoEUSteuerfrei", IMEX_SachkontoEUSteuerfrei))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("IMEX_Sachkonto3Land", IMEX_Sachkonto3Land))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM Leistungen WITH(updlock,serializable) WHERE LeistungsNr=@LeistungsNr) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM Leistungen WHERE LeistungsNr=@LeistungsNr ", conn)
|
||||
cmd.Parameters.AddWithValue("@LeistungsNr", LeistungsNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
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 getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [Leistungen] SET " & str & " WHERE LeistungsNr=@LeistungsNr ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 Leistungen (" & 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
|
||||
127
SDL/VERAG_PROG_ALLGEMEIN/Classes/cLeistungenBUKonten.vb
Normal file
127
SDL/VERAG_PROG_ALLGEMEIN/Classes/cLeistungenBUKonten.vb
Normal file
@@ -0,0 +1,127 @@
|
||||
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cLeistungenBUKonten
|
||||
|
||||
|
||||
Property LeistungsNr As Integer
|
||||
Property Firma_ID As Integer
|
||||
Property Gl_account As Object = Nothing
|
||||
|
||||
Property SachkontoInlandSteuerpflichtig As Object = Nothing
|
||||
Property SachkontoInlandSteuerfrei As Object = Nothing
|
||||
Property SachkontoEUSteuerpflichtig As Object = Nothing
|
||||
Property SachkontoEUSteuerfrei As Object = Nothing
|
||||
Property Sachkonto3Land As Object = Nothing
|
||||
|
||||
Public hasEntry = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New(LeistungsNr, Firma_ID)
|
||||
Me.LeistungsNr = LeistungsNr
|
||||
Me.Firma_ID = Firma_ID
|
||||
LOAD()
|
||||
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("LeistungsNr", LeistungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_ID", Firma_ID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gl_account", Gl_account))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SachkontoInlandSteuerpflichtig", SachkontoInlandSteuerpflichtig))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SachkontoInlandSteuerfrei", SachkontoInlandSteuerfrei))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SachkontoEUSteuerpflichtig", SachkontoEUSteuerpflichtig))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SachkontoEUSteuerfrei", SachkontoEUSteuerfrei))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachkonto3Land", Sachkonto3Land))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM LeistungenBUKonten WHERE LeistungsNr=@LeistungsNr and Firma_ID=@Firma_ID) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
hasEntry = False
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM LeistungenBUKonten WHERE LeistungsNr=@LeistungsNr and Firma_ID=@Firma_ID ", conn)
|
||||
cmd.Parameters.AddWithValue("@LeistungsNr", LeistungsNr)
|
||||
cmd.Parameters.AddWithValue("@Firma_ID", Firma_ID)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
hasEntry = True
|
||||
End If
|
||||
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 getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [LeistungenBUKonten] SET " & str & " WHERE LeistungsNr=@LeistungsNr and Firma_ID=@Firma_ID ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 LeistungenBUKonten (" & 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
|
||||
482
SDL/VERAG_PROG_ALLGEMEIN/Classes/cMessangerListender.vb
Normal file
482
SDL/VERAG_PROG_ALLGEMEIN/Classes/cMessangerListender.vb
Normal file
@@ -0,0 +1,482 @@
|
||||
|
||||
|
||||
Imports System.Net, System.Net.Sockets
|
||||
Imports System.Text
|
||||
Imports System.Threading
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
|
||||
Public Class cMessangerListender
|
||||
Dim serverSocket As Socket = Nothing
|
||||
Dim clientSocket As Socket
|
||||
Dim byteData(1023) As Byte
|
||||
|
||||
Public Shared boolInitAufschub As Boolean = False
|
||||
Public Shared boolFSSAtlas As Boolean = False
|
||||
Public Shared boolDatenserver As Boolean = False
|
||||
|
||||
Dim splitPanelDefaultHeight As Integer = 0
|
||||
|
||||
Public Sub START()
|
||||
DIENST_InitSocket() 'initialisieren
|
||||
End Sub
|
||||
|
||||
Sub DIENST_InitSocket()
|
||||
Try
|
||||
|
||||
If serverSocket IsNot Nothing AndAlso serverSocket.IsBound Then
|
||||
Else
|
||||
If serverSocket IsNot Nothing Then Exit Sub 'Falls es schon läuft
|
||||
serverSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
|
||||
Dim IpEndPoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 8800)
|
||||
serverSocket.Bind(IpEndPoint)
|
||||
serverSocket.Listen(5)
|
||||
serverSocket.BeginAccept(New AsyncCallback(AddressOf OnAccept), Nothing)
|
||||
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
'LEIDER KEINE ANDRES LÖSUNG
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub OnAccept(ByVal ar As IAsyncResult)
|
||||
clientSocket = serverSocket.EndAccept(ar)
|
||||
serverSocket.BeginAccept(New AsyncCallback(AddressOf OnAccept), Nothing)
|
||||
AddClient(clientSocket)
|
||||
End Sub
|
||||
|
||||
Delegate Sub _AddClient(ByVal client As Socket)
|
||||
Private Sub AddClient(ByVal client As Socket) ' Neunen Client hinzufügen
|
||||
'If InvokeRequired Then
|
||||
' Invoke(New _AddClient(AddressOf AddClient), client)
|
||||
' Exit Sub
|
||||
'End If
|
||||
' writeToFrmLog(client, "", "Verbindungsaufbau.. ")
|
||||
Send("ConSuccess", client) ' Der Client bekommt die Nachricht, dass die Verbindung steht...
|
||||
'... jetzt kann der Client senden, der Server horcht...
|
||||
clientSocket.BeginReceive(byteData, 0, byteData.Length, SocketFlags.None,
|
||||
New AsyncCallback(AddressOf OnRecieve), clientSocket)
|
||||
End Sub
|
||||
|
||||
Private Sub Send(ByVal msg As String, ByVal client As Socket) 'An den Client senden
|
||||
Dim sendBytes As Byte() = Encoding.BigEndianUnicode.GetBytes(msg)
|
||||
client.BeginSend(sendBytes, 0, sendBytes.Length, SocketFlags.None, New AsyncCallback(AddressOf OnSend), client)
|
||||
End Sub
|
||||
Private Sub OnSend(ByVal ar As IAsyncResult)
|
||||
Dim client As Socket = ar.AsyncState
|
||||
client.EndSend(ar)
|
||||
End Sub
|
||||
|
||||
Private Sub OnRecieve(ByVal ar As IAsyncResult) ' Wenn ein Task-Befehl vom Client empfangen wurde
|
||||
Dim client As Socket = ar.AsyncState
|
||||
Try
|
||||
client.EndReceive(ar)
|
||||
Dim bytesRec As Byte() = byteData
|
||||
Dim message As String = Encoding.BigEndianUnicode.GetString(bytesRec) '.Replace(Convert.ToChar(0), "")
|
||||
Dim s As String = Read(message, client)
|
||||
If s <> "" Then Send(s, client) ' Die Aufgabe wird abgearbeitet, der Client bekommt bei Fehler eine Antwort...
|
||||
Catch ex As Exception
|
||||
client.Shutdown(SocketShutdown.Both)
|
||||
client.Close()
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub ListView1_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
Delegate Function _Read(ByVal msg As String, client As Socket, messageFile() As Byte, fileName As String)
|
||||
Private Function Read(ByVal msg As String, client As Socket, Optional messageFile() As Byte = Nothing, Optional fileName As String = "") As String
|
||||
'If InvokeRequired Then
|
||||
' Invoke(New _Read(AddressOf Read), msg, client, messageFile, fileName)
|
||||
' Return ""
|
||||
'End If
|
||||
msg = msg.Replace(Convert.ToChar(0), "")
|
||||
' MsgBox("MESSSSS:::::::::::: " & msg)
|
||||
Select Case msg
|
||||
Case "test" 'nur ein Test, des Ergbnis ist immer Positiv
|
||||
' writeToFrmLog(client, "test", "test ")
|
||||
' Return "Task successful"
|
||||
Send("Task successful", client) 'Client-Mittelung
|
||||
Case "NEW_MESSAGE" 'der Task initAufschubkonten wird aufgerufen
|
||||
' MsgBox("NEW_MESSAGE!!!!!")
|
||||
' If Not boolInitAufschub Then Me.writeToFrmLog(client, "initAufschubkonten", "Abgebrochen - Task nicht aktiv " & msg) : Return "Task inactive"
|
||||
|
||||
' die eigentliche Funktion wird in einem Tread aufgrufen
|
||||
Dim thread As New Thread(AddressOf NEW_MESSAGE)
|
||||
thread.IsBackground = True
|
||||
'thread.Start(client)
|
||||
thread.Start()
|
||||
|
||||
'Ein zweiter Thread kontrolliert, ob die Funktion nach einer gewissen Zeit noch läuft und beendet diese ggf.
|
||||
'Dim st As New Thread(AddressOf stopThread)
|
||||
'st.IsBackground = True
|
||||
'Dim param_obj(3) As Object
|
||||
''Übergabeparameter des 2. Threads
|
||||
'param_obj(0) = thread
|
||||
'param_obj(1) = client
|
||||
'param_obj(2) = 60
|
||||
'st.Start(param_obj)
|
||||
|
||||
'Send("Task successful", client) 'Client-Mittelung
|
||||
|
||||
Return ""
|
||||
|
||||
|
||||
End Select
|
||||
|
||||
Return "Task not found"
|
||||
' Me.writeToFrmLog(client, "", "ERROR: Undefinierter Task: " & msg)
|
||||
|
||||
End Function
|
||||
|
||||
Sub NEW_MESSAGE()
|
||||
VERAG_PROG_ALLGEMEIN.cMessenger.NEW_MESSGE = True
|
||||
' MsgBox("jojo")
|
||||
'For Each openForm In Application.OpenForms()
|
||||
' If TypeOf (openForm) Is frmMessenger Then
|
||||
' 'MsgBox("Sendungsfenster bereits geöffnet!")
|
||||
' 'CType(openForm, frmSendungsdetailsNEU).BringToFront()
|
||||
' 'Return Nothing
|
||||
' CType(openForm, frmMessenger).REFRESH_CHAT()
|
||||
' CType(openForm, frmMessenger).btnTEST.Visible = True
|
||||
' Exit For
|
||||
' End If
|
||||
'Next
|
||||
End Sub
|
||||
|
||||
Sub stopThread(param_obj As Object) 'Stoppt einen Hauptthread nach einer gewissen Anzahl von Sekunden; Übergabeparameter: Object { Tread, clientSocket, SekundenToTimeout }
|
||||
Thread.Sleep(param_obj(2) * 1000) ' Hier wird soviele Senkunden gewartet, wie in den Übergabeparametern definiert wurde.
|
||||
If param_obj(0).IsAlive Then
|
||||
param_obj(0).Abort() ' Wenn der Hauptthread noch immer läuft, wird er jetzt beendet.
|
||||
Else
|
||||
Exit Sub
|
||||
End If
|
||||
Send("Task timeout", param_obj(1)) 'Client-Mittelung
|
||||
'Me.writeToFrmLog(param_obj(1), "ERROR: Task wurde aufgrund eines Timeouts abgebrochen.") 'Log-Mittelung
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
''Threadsichere Funktion zum schreiben in die TextBox:
|
||||
'Delegate Sub writeToFrmLogCallback(ByVal client As Socket, ByVal nameTask As String, ByVal text As String)
|
||||
'Public Sub writeToFrmLog(ByVal client As Socket, ByVal nameTask As String, ByVal text As String)
|
||||
|
||||
' ' InvokeRequired required compares the thread ID of the
|
||||
' ' calling thread to the thread ID of the creating thread.
|
||||
' ' If these threads are different, it returns true.
|
||||
' If Me.txtLog.InvokeRequired Then
|
||||
' Dim d As New writeToFrmLogCallback(AddressOf writeToFrmLog)
|
||||
' Me.Invoke(d, New Object() {client, nameTask, text})
|
||||
' Else
|
||||
' Dim remoteIpEndPoint As IPEndPoint = client.RemoteEndPoint
|
||||
' Me.txtLog.Text &= Now.ToString("dd.MM.yyyy HH:mm ") & nameTask & " (" & remoteIpEndPoint.Address.ToString & "): " & text & vbNewLine
|
||||
' If Me.txtLog.Lines.Count > 35 Then
|
||||
' Dim arr As String() = Me.txtLog.Lines
|
||||
' Me.txtLog.Text = ""
|
||||
' For i = arr.Count - 35 To arr.Count - 1
|
||||
' Me.txtLog.Text &= arr(i) & vbNewLine
|
||||
' Next i
|
||||
' End If
|
||||
' End If
|
||||
' Me.txtLog.SelectionLength = 0
|
||||
'End Sub
|
||||
|
||||
'Public Sub writeToFrmLog(ByVal nameTask As String, ByVal text As String)
|
||||
' Me.txtLog.Text &= Now.ToString("dd.MM.yyyy HH:mm ") & nameTask & ": " & text & vbNewLine
|
||||
' If Me.txtLog.Lines.Count > 35 Then
|
||||
' Dim arr As String() = Me.txtLog.Lines
|
||||
' Me.txtLog.Text = ""
|
||||
' For i = arr.Count - 35 To arr.Count - 1
|
||||
' Me.txtLog.Text &= arr(i) & vbNewLine
|
||||
' Next i
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
|
||||
|
||||
'Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 'geht nicht
|
||||
' clientSocket.Close()
|
||||
|
||||
' If clientSocket.Connected Then
|
||||
' clientSocket.Shutdown(SocketShutdown.Both)
|
||||
' clientSocket.Close()
|
||||
' End If
|
||||
' clientSocket.Disconnect(True)
|
||||
|
||||
' txtInitAufschubStatus.Text = "angehalten"
|
||||
' txtInitAufschubStatus.ForeColor = Color.DarkRed
|
||||
'End Sub
|
||||
|
||||
Public Sub STOP_MSG_LISTENDER()
|
||||
clientSocket.Shutdown(SocketShutdown.Both)
|
||||
clientSocket.Close()
|
||||
serverSocket.Shutdown(SocketShutdown.Both)
|
||||
serverSocket.Close()
|
||||
serverSocket = Nothing
|
||||
DIENST_InitSocket()
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Private Result As Object = Nothing 'Store the worked result of abc()
|
||||
Private Sub Worker(ByVal state As Object)
|
||||
Dim are As AutoResetEvent = DirectCast(state, AutoResetEvent)
|
||||
' do anything you want here:
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Dim result As Integer = 0
|
||||
'result = abc(input_val);
|
||||
|
||||
SyncLock Me.Result
|
||||
Me.Result = result
|
||||
End SyncLock
|
||||
are.[Set]()
|
||||
End Sub
|
||||
'Private Sub method()
|
||||
|
||||
' Const TimeOut As Int32 = 5000
|
||||
' Dim [handles] As WaitHandle() = New WaitHandle() {New AutoResetEvent(False)}
|
||||
|
||||
' ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf Worker), [handles](0))
|
||||
' Dim finished As Boolean = WaitHandle.WaitAll([handles], TimeOut, True)
|
||||
' 'ThreadPool.RegisterWaitForSingleObject ()
|
||||
|
||||
' If finished Then
|
||||
' ' step 2
|
||||
' MessageBox.Show("Worker function finished sucessfully, go to Step2")
|
||||
' Else
|
||||
' ' step 3
|
||||
' MessageBox.Show([String].Format("Worker function time out({0})!, go to Step3", TimeOut))
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
Public Class cServerClient
|
||||
Dim clientSocket As Socket
|
||||
Dim byteData(1023) As Byte
|
||||
Dim doThis As String
|
||||
Dim params() As String
|
||||
Public status As String = "begin"
|
||||
' Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
' begin()
|
||||
' End Sub
|
||||
|
||||
Public Event FunctionFinished(ByVal sender As Object, ByVal e As FunctionFinishedArgs)
|
||||
|
||||
|
||||
Public Sub begin(ip, doThis_tmp, Optional params() = Nothing)
|
||||
Try
|
||||
|
||||
doThis = doThis_tmp
|
||||
params = params
|
||||
Dim timeOut As Integer = 60
|
||||
Select Case doThis
|
||||
Case "test" : timeOut = 5 ' nach 5 Sekunden wird abgebrochen
|
||||
Case "NEW_MESSAGE" : timeOut = 5 ' nach 120 Sekunden wird abgebrochen
|
||||
'Case "initAufschubkonten" : timeOut = 60 ' nach 60 Sekunden wird abgebrochen
|
||||
End Select
|
||||
|
||||
'Ein Thread kontrolliert, ob die Funktion nach einer gewissen Zeit noch läuft und beendet diese ggf.
|
||||
'Dim st As New Thread(AddressOf stopThread)
|
||||
'st.IsBackground = True
|
||||
'Dim param_obj(1) As Object
|
||||
''Übergabeparameter des 2. Threads
|
||||
'param_obj(0) = timeOut
|
||||
'st.Start(param_obj)
|
||||
|
||||
|
||||
clientSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
|
||||
Dim ipAddress As IPAddress = IPAddress.Parse(ip)
|
||||
|
||||
' Dim ipAddress As IPAddress = ipAddress.Parse("192.168.0.90")
|
||||
Dim ipEndPoint As IPEndPoint = New IPEndPoint(ipAddress, 8800)
|
||||
clientSocket.BeginConnect(ipEndPoint, New AsyncCallback(AddressOf OnConnect), Nothing)
|
||||
status = "beginConnect"
|
||||
' endconnect(clientSocket)
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub waitTillFinished()
|
||||
While Not (status = "TaskError" Or status = "TaskSuccess")
|
||||
'wait
|
||||
End While
|
||||
'Return True
|
||||
End Sub
|
||||
|
||||
Private Sub OnConnect(ByVal ar As IAsyncResult)
|
||||
Try
|
||||
clientSocket.EndConnect(ar)
|
||||
clientSocket.BeginReceive(byteData, 0, byteData.Length, SocketFlags.None,
|
||||
New AsyncCallback(AddressOf OnRecieve), clientSocket)
|
||||
Catch ex As Exception
|
||||
' MsgBox("Verbindung zum Server konnte nicht aufgebaut werden!")
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub OnSend(ByVal ar As IAsyncResult)
|
||||
Dim client As Socket = ar.AsyncState
|
||||
client.EndSend(ar)
|
||||
End Sub
|
||||
Private Sub Send(ByVal msg As String, ByVal client As Socket)
|
||||
Dim sendBytes As Byte() = Encoding.BigEndianUnicode.GetBytes(msg)
|
||||
client.BeginSend(sendBytes, 0, sendBytes.Length, SocketFlags.None, New AsyncCallback(AddressOf OnSend), client)
|
||||
End Sub
|
||||
Public Function ByteArrayToTextString(ByRef Barr() As Byte) As String
|
||||
Dim enc As System.Text.Encoding = Encoding.BigEndianUnicode
|
||||
Return enc.GetString(Barr)
|
||||
End Function
|
||||
|
||||
Private Sub OnRecieve(ByVal ar As IAsyncResult)
|
||||
Try
|
||||
Dim client As Socket = ar.AsyncState
|
||||
client.EndReceive(ar)
|
||||
Dim bytesRec As Byte() = byteData
|
||||
Dim message As String = Encoding.BigEndianUnicode.GetString(bytesRec)
|
||||
' MsgBox("FROM SERVER: " & message)
|
||||
Dim b(1023) As Byte
|
||||
|
||||
' MsgBox("SERVER RECIEVE: " & Encoding.BigEndianUnicode.GetString(b))
|
||||
|
||||
byteData = b
|
||||
Read(message)
|
||||
clientSocket.BeginReceive(byteData, 0, byteData.Length, SocketFlags.None,
|
||||
New AsyncCallback(AddressOf OnRecieve), clientSocket)
|
||||
|
||||
Catch ex As Exception
|
||||
' MsgBox("Verbindung zum Server wurde unterbrochen!")
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Delegate Sub _Read(ByVal msg As String)
|
||||
Private Sub Read(ByVal msg As String)
|
||||
'If frmMain.InvokeRequired Then
|
||||
' frmMain.Invoke(New _Read(AddressOf Read), msg)
|
||||
' Exit Sub
|
||||
'End If
|
||||
|
||||
'frmMain.icoVERAGMonitoring.Visible = False
|
||||
|
||||
'if richtige nsachricht
|
||||
' Dim asciis As Byte() = Encoding.BigEndianUnicode.GetBytes(msg)
|
||||
' Dim a As Char = msg(msg.Length - 1)
|
||||
' msg = msg.Replace(a, "")
|
||||
' MsgBox(msg.Length)
|
||||
|
||||
' MsgBox(msg(msg.Length - 1))
|
||||
' MsgBox(msg(msg.Length - 1))
|
||||
' MsgBox(Asc(msg(msg.Length - 1)))
|
||||
' MsgBox(Asc(msg(msg.Length - 2)))
|
||||
msg = msg.Replace(Convert.ToChar(0), "")
|
||||
Try
|
||||
|
||||
' MsgBox("-" & msg & "-" & vbNewLine & "ConSuccess" & "-")
|
||||
If msg = "ConSuccess" Then
|
||||
status = "ConSuccess"
|
||||
Select Case doThis
|
||||
Case "test"
|
||||
Send("test", clientSocket)
|
||||
status = "sendTask"
|
||||
Case "NEW_MESSAGE"
|
||||
Send("NEW_MESSAGE", clientSocket)
|
||||
status = "sendTask"
|
||||
End Select
|
||||
|
||||
' MsgBox("!!!!!ConSuccess --> initAufschubkonten")
|
||||
' Send("FSSAtlasStart", clientSocket)
|
||||
'Send("test", clientSocket)
|
||||
'Send("initAufschubkonten", clientSocket)
|
||||
|
||||
'ElseIf msg = "Task successful" Then
|
||||
' status = "TaskSuccess"
|
||||
' clientSocket.Disconnect(False)
|
||||
' clientSocket.Shutdown(SocketShutdown.Both)
|
||||
' clientSocket.Close()
|
||||
' 'endconnect(clientSocket)'geht ned
|
||||
' ' MsgBox("Task erfolgreich!", vbSystemModal, doThis)
|
||||
' RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs(FunctionFinishedArgs.EventResult.OK, "Task erfolgreich!"))
|
||||
'ElseIf msg = "Task not found" Then
|
||||
' MsgBox("SERVERERROR: Der Dienst wurde nicht gefunden!", vbSystemModal, "NEW_MESSAGE")
|
||||
' status = "TaskError"
|
||||
' RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs(FunctionFinishedArgs.EventResult.ERR, "SERVERERROR: Der Dienst wurde nicht gefunden!"))
|
||||
'ElseIf msg = "Task inactive" Then
|
||||
' MsgBox("SERVERERROR: Der Dienste ist nicht aktiv!", vbSystemModal, "NEW_MESSAGE")
|
||||
' status = "TaskError"
|
||||
' RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs(FunctionFinishedArgs.EventResult.ERR, "SERVERERROR: Der Dienste ist nicht aktiv!"))
|
||||
'ElseIf msg = "Task timeout" Then
|
||||
' MsgBox("SERVERERROR: Der Dienst wurde wegen einer Zeitüberschreitung abgebrochen!", vbSystemModal, "NEW_MESSAGE")
|
||||
' status = "TaskError"
|
||||
' RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs(FunctionFinishedArgs.EventResult.ERR, "SERVERERROR: Der Dienst wurde wegen einer Zeitüberschreitung abgebrochen!"))
|
||||
'ElseIf msg = "Task error" Then
|
||||
' MsgBox("SERVERERROR: Server-Fehler!", vbSystemModal, "NEW_MESSAGE")
|
||||
' status = "TaskError"
|
||||
' RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs(FunctionFinishedArgs.EventResult.ERR, "SERVERERROR: Server-Fehler!"))
|
||||
'Else
|
||||
' MsgBox("SERVER_NACHRICHT NICHT VERSTANDEN: " & msg, vbSystemModal)
|
||||
' status = "TaskError"
|
||||
' RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs(FunctionFinishedArgs.EventResult.ERR, "SERVER_NACHRICHT NICHT VERSTANDEN: " & msg))
|
||||
|
||||
' clientSocket.Shutdown(SocketShutdown.Both)
|
||||
' clientSocket.Close()
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Verbindungs-Fehler beim Senden", vbSystemModal)
|
||||
status = "TaskError"
|
||||
RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs(FunctionFinishedArgs.EventResult.ERR, "Verbindungs-Fehler beim Senden"))
|
||||
clientSocket.Close()
|
||||
End Try
|
||||
' byteData = Encoding.BigEndianUnicode.GetBytes("")
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Sub stopThread(param_obj As Object) 'Stoppt einen Hauptthread nach einer gewissen Anzahl von Sekunden; Übergabeparameter: Object { Tread, clientSocket, SekundenToTimeout }
|
||||
Thread.Sleep(param_obj(0) * 1000) ' Hier wird soviele Senkunden gewartet, wie in den Übergabeparametern definiert wurde.
|
||||
If status = "TaskError" Or status = "TaskSuccess" Then Exit Sub
|
||||
status = "TaskError"
|
||||
Try
|
||||
clientSocket.Disconnect(False)
|
||||
clientSocket.Shutdown(SocketShutdown.Both)
|
||||
clientSocket.Close()
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
|
||||
RaiseEvent FunctionFinished(Me, New FunctionFinishedArgs(FunctionFinishedArgs.EventResult.ERR, "Task wurde aufgrund eines Timeouts vom Client abgebrochen."))
|
||||
MsgBox("ERROR: Task wurde aufgrund eines Timeouts vom Client abgebrochen.") 'Log-Mittelung
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
Public Class FunctionFinishedArgs
|
||||
Inherits EventArgs
|
||||
'das was man später unter e sehen kann
|
||||
Public Result As EventResult
|
||||
'hier - als Beispiel - einfach eine Enum
|
||||
Public Enum EventResult
|
||||
OK
|
||||
ERR
|
||||
End Enum
|
||||
Public Message As String
|
||||
'Zum übergeben der Parameter
|
||||
Public Sub New(ByVal r As EventResult, m As String)
|
||||
Result = r
|
||||
Message = m
|
||||
End Sub
|
||||
End Class
|
||||
832
SDL/VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb
Normal file
832
SDL/VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb
Normal file
@@ -0,0 +1,832 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cMessenger
|
||||
|
||||
Public Shared NEW_MESSGE As Boolean = False
|
||||
Public Shared UNREAD_MESAGES As Integer = 0
|
||||
|
||||
Shared SQL As New SQL
|
||||
|
||||
Public Shared Function GEN_NEW_CHAT(chat_name As String, MaIds As List(Of Integer), Optional ByRef CHAT As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat = Nothing) As Boolean
|
||||
CHAT = New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat
|
||||
CHAT.chat_erstelltAm = Now
|
||||
CHAT.chat_erstelltMaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
||||
CHAT.chat_name = chat_name
|
||||
|
||||
For Each maId In MaIds
|
||||
Dim MB As New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMembers(CHAT.chat_id, maId)
|
||||
MB.chatMb_maId = maId
|
||||
CHAT.CHAT_MEMBERS.Add(MB)
|
||||
Next
|
||||
Return CHAT.SAVE(True)
|
||||
|
||||
End Function
|
||||
|
||||
Public Shared Function CHECK_EXISTS(MaId As Integer, Optional ByRef toChatID As Integer = -1) As Boolean
|
||||
Dim sqlStr = "Select TOP 1 chat_id FROM [tblMessenger_Chat] inner join tblMessenger_ChatMembers On chatMb_chatId=chat_id where chat_name='' AND [chat_aktiv]=1
|
||||
And (SELECT COUNT(*) FROM tblMessenger_ChatMembers WHERE chatMb_chatId=chat_id And chatMb_maId='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "' ) >0
|
||||
And (SELECT COUNT(*) FROM tblMessenger_ChatMembers WHERE chatMb_chatId=chat_id And chatMb_maId='" & MaId & "' ) >0
|
||||
order by chat_id DESC"
|
||||
|
||||
toChatID = SQL.getValueTxtBySql(sqlStr, "ADMIN",,, -1)
|
||||
Return (toChatID > 0)
|
||||
End Function
|
||||
|
||||
|
||||
Public Shared Function GET_NewMSG_COUNT(Optional maId = -1) As Integer
|
||||
If maId < 0 Then maId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
||||
Return SQL.getValueTxtBySql("SELECT isnull(COUNT(*),0) FROM tblMessenger_ChatMessages INNER JOIN tblMessenger_ChatMessageStatus ON chatMgSt_chatMsgId=chatMg_id WHERE chatMgSt_MaId=" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & " AND chatMgSt_gelesen=0", "ADMIN",,, 0)
|
||||
End Function
|
||||
|
||||
Public Shared Function GET_CHAT_LIST() As List(Of cMessenger_Chat)
|
||||
Dim LIST As New List(Of cMessenger_Chat)
|
||||
Dim dt = SQL.loadDgvBySql("SELECT [chat_id] FROM [tblMessenger_Chat] WHERE (SELECT COUNT(*) FROM tblMessenger_ChatMembers WHERE chatMB_chatId=chat_id AND chatMB_maId=" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & ")>0", "ADMIN")
|
||||
|
||||
For Each r In dt.Rows
|
||||
Dim CHAT As New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat(r("chat_id"))
|
||||
LIST.Add(CHAT)
|
||||
Next
|
||||
Return LIST
|
||||
|
||||
End Function
|
||||
|
||||
Public Class cMessenger_Chat
|
||||
|
||||
Property chat_id As Integer = -1
|
||||
Property chat_name As String
|
||||
Property chat_erstelltAm As Date = Now
|
||||
Property chat_erstelltMaId As Integer
|
||||
Property chat_aktiv As Boolean = True
|
||||
|
||||
Public CHAT_MEMBERS As New List(Of cMessenger_ChatMembers)
|
||||
Public CHAT_MESSAGES As New List(Of cMessenger_ChatMessages)
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
Me.chat_erstelltMaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
||||
Me.chat_erstelltAm = Now
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
|
||||
Sub New(chat_id As Integer, Optional topMax As String = "", Optional dateTmp As Object = Nothing)
|
||||
Me.chat_id = chat_id
|
||||
Me.chat_erstelltMaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
||||
Me.chat_erstelltAm = Now
|
||||
LOAD(topMax, dateTmp)
|
||||
End Sub
|
||||
|
||||
Public 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("chat_id", chat_id,, True))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chat_name", chat_name))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chat_erstelltAm", chat_erstelltAm))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chat_erstelltMaId", chat_erstelltMaId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chat_aktiv", chat_aktiv))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE(saveAll As Boolean) As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblMessenger_Chat WHERE chat_id=@chat_id) " &
|
||||
" BEGIN " & getUpdateCmd() & " End " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " End " &
|
||||
" commit tran "
|
||||
|
||||
chat_id = SQL.doSQLVarListID(chat_id, sqlstr, "ADMIN", , list)
|
||||
|
||||
If saveAll Then
|
||||
SAVE_MEMBERS()
|
||||
End If
|
||||
|
||||
Return chat_id > 0
|
||||
End Function
|
||||
|
||||
Public Sub LOAD(Optional topMax As String = "", Optional dateTmp As Object = Nothing)
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
|
||||
Using cmd As New SqlCommand("Select * FROM tblMessenger_Chat WHERE chat_id=@chat_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@chat_id", chat_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
Me.LOAD_MEMBERS()
|
||||
If dateTmp Is Nothing Then
|
||||
Me.LOAD_MESSAGES(topMax)
|
||||
Else
|
||||
Me.LOAD_MESSAGES_DATE(dateTmp)
|
||||
End If
|
||||
|
||||
End If
|
||||
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 SAVE_MEMBERS() As Boolean
|
||||
Try
|
||||
DELETE_MEMBERS()
|
||||
For Each MB In Me.CHAT_MEMBERS
|
||||
MB.chatMb_chatId = Me.chat_id
|
||||
MB.SAVE()
|
||||
Next
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Function READ_ALL_MESSAGES() As Boolean
|
||||
Dim sqlstr = "UPDATE tblMessenger_ChatMessageStatus SET chatMgSt_gelesen=1 FROM [tblMessenger_Chat] INNER JOIN tblMessenger_ChatMessages ON [chat_id]=chatMg_chatId INNER JOIN tblMessenger_ChatMessageStatus ON chatMgSt_chatMsgId=chatMg_id WHERE chat_id=" & Me.chat_id & " AND chatMgSt_MaId=" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & " AND chatMgSt_gelesen=0 "
|
||||
Return SQL.doSQL(sqlstr, "ADMIN")
|
||||
End Function
|
||||
|
||||
Public Function DELETE_MEMBERS() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblMessenger_ChatMembers] WHERE chatMb_chatId=" & Me.chat_id
|
||||
Return SQL.doSQL(sqlstr, "ADMIN")
|
||||
End Function
|
||||
Public Sub LOAD_MEMBERS()
|
||||
Try
|
||||
Me.CHAT_MEMBERS.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblMessenger_ChatMembers WHERE chatMb_chatId=@chat_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@chat_id", chat_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim MB As New cMessenger_ChatMembers(Me.chat_id, dr.Item("chatMb_maId"))
|
||||
Me.CHAT_MEMBERS.Add(MB)
|
||||
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 Sub LOAD_MESSAGES(Optional top As Integer = 100)
|
||||
Try
|
||||
Me.CHAT_MESSAGES.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
|
||||
Using cmd As New SqlCommand("SELECT * FROM(SELECT TOP " & top & " * FROM [tblMessenger_ChatMessages] WHERE chatMg_chatId=@chat_id order by chatMg_datetime desc) as T order by chatMg_datetime asc", conn)
|
||||
cmd.Parameters.AddWithValue("@chat_id", chat_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim MSG As New cMessenger_ChatMessages(dr.Item("chatMg_id")) 'Me.chat_id, dr.Item("chatMb_maId")) 'yxc
|
||||
Me.CHAT_MESSAGES.Add(MSG)
|
||||
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 Sub LOAD_MESSAGES_DATE(dateTmp As Date)
|
||||
Try
|
||||
Me.CHAT_MESSAGES.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
|
||||
Using cmd As New SqlCommand("SELECT * FROM [tblMessenger_ChatMessages] WHERE chatMg_chatId=@chat_id AND CAST(chatMg_datetime as date)>=@dateTmp order by chatMg_datetime asc", conn)
|
||||
cmd.Parameters.AddWithValue("@chat_id", chat_id)
|
||||
cmd.Parameters.AddWithValue("@dateTmp", dateTmp)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim MSG As New cMessenger_ChatMessages(dr.Item("chatMg_id")) 'Me.chat_id, dr.Item("chatMb_maId")) 'yxc
|
||||
Me.CHAT_MESSAGES.Add(MSG)
|
||||
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 getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblMessenger_Chat] SET " & str & " WHERE chat_id=@chat_id ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 tblMessenger_Chat (" & 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
|
||||
|
||||
|
||||
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblMessenger_Chat] WHERE chat_id=" & Me.chat_id
|
||||
Return SQL.doSQL(sqlstr, "ADMIN")
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
Public Class cMessenger_ChatMembers
|
||||
|
||||
Property chatMb_chatId As Integer = -1
|
||||
Property chatMb_maId As Integer = -1
|
||||
Property chatMb_beitritt As Date = Now
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
|
||||
|
||||
Sub New(chatMb_chatId, chatMb_maId)
|
||||
Me.chatMb_chatId = chatMb_chatId
|
||||
Me.chatMb_maId = chatMb_maId
|
||||
Me.chatMb_beitritt = Now
|
||||
End Sub
|
||||
|
||||
Public 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("chatMb_chatId", chatMb_chatId))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMb_maId", chatMb_maId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMb_beitritt", chatMb_beitritt))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM [tblMessenger_ChatMembers] WHERE chatMb_chatId=@chatMb_chatId AND chatMb_maId=@chatMb_maId) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Return SQL.doSQLVarList(sqlstr, "ADMIN", , list)
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
|
||||
Using cmd As New SqlCommand("SELECT * FROM [tblMessenger_ChatMembers] WHERE chatMb_chatId=@chatMb_chatId AND chatMb_maId=@chatMb_maId ", conn)
|
||||
cmd.Parameters.AddWithValue("@chatMb_chatId", chatMb_chatId)
|
||||
cmd.Parameters.AddWithValue("@chatMb_maId", chatMb_maId)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
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 getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblMessenger_ChatMembers] SET " & str & " WHERE chatMb_chatId=@chatMb_chatId AND chatMb_maId=@chatMb_maId ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 [tblMessenger_ChatMembers] (" & 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
|
||||
|
||||
|
||||
Public Function DELETE([chatMb_maId]) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblMessenger_ChatMembers] WHERE [chatMb_chatId]=" & Me.[chatMb_chatId] & " AND [chatMb_maId] ='" & [chatMb_maId] & "'"
|
||||
Return SQL.doSQL(sqlstr, "ADMIN")
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
Public Class cMessenger_ChatStatus
|
||||
|
||||
Property chatMgSt_chatMsgId As Integer
|
||||
Property chatMgSt_MaId As Integer
|
||||
Property chatMgSt_gelesen As Boolean = False
|
||||
Property chatMgSt_datetime As Date = Now
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
|
||||
Sub New(chatMgSt_chatMsgId, chatMgSt_MaId, chatMgSt_gelesen)
|
||||
Me.chatMgSt_chatMsgId = chatMgSt_chatMsgId
|
||||
Me.chatMgSt_MaId = chatMgSt_MaId
|
||||
Me.chatMgSt_gelesen = chatMgSt_gelesen
|
||||
Me.chatMgSt_datetime = Now
|
||||
End Sub
|
||||
|
||||
Public 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("chatMgSt_chatMsgId", chatMgSt_chatMsgId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMgSt_MaId", chatMgSt_MaId))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMgSt_gelesen", chatMgSt_gelesen))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMgSt_datetime", chatMgSt_datetime))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblMessenger_ChatMessages WHERE chatMgSt_chatMsgId=@chatMgSt_chatMsgId AND chatMgSt_MaId=@chatMgSt_MaId) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Return SQL.doSQLVarList(sqlstr, "ADMIN", , list)
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblMessenger_ChatMessages WHERE chatMgSt_chatMsgId=@chatMgSt_chatMsgId AND chatMgSt_MaId=@chatMgSt_MaId ", conn)
|
||||
cmd.Parameters.AddWithValue("@chatMgSt_chatMsgId", chatMgSt_chatMsgId)
|
||||
cmd.Parameters.AddWithValue("@chatMgSt_MaId", chatMgSt_MaId)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
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 getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE tblMessenger_ChatMessages SET " & str & " WHERE chatMgSt_chatMsgId=@chatMgSt_chatMsgId AND chatMgSt_MaId=@chatMgSt_MaId ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 tblMessenger_ChatMessages (" & 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
|
||||
|
||||
|
||||
Public Function DELETE([chatMgSt_MaId]) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM tblMessenger_ChatMessages WHERE [chatMgSt_chatMsgId]=" & Me.chatMgSt_chatMsgId & " AND [chatMgSt_MaId] ='" & chatMgSt_MaId & "'"
|
||||
Return SQL.doSQL(sqlstr, "ADMIN")
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
Public Class cMessenger_ChatMessages
|
||||
|
||||
Property chatMg_id As Integer ' INT Not NULL PRIMARY KEY IDENTITY,
|
||||
|
||||
Property chatMg_chatId As Integer ' INT Not NULL,
|
||||
Property chatMg_maId As Integer ' INT Not NULL,
|
||||
Property chatMg_datetime As Date = Now
|
||||
Property chatMg_maName As String = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.Fullname
|
||||
Property chatMg_maFirma As String = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Property chatMg_type As String = "TEXT"
|
||||
Property chatMg_text As String = ""
|
||||
Property chatMg_anhang_docId As Integer ' int NULL,
|
||||
Property chatMg_referenz_AvisoId As Integer ' int NULL,
|
||||
Property chatMg_referenz_SendungsId As Integer ' int NULL,
|
||||
Property chatMg_referenz_KundenNr As Integer ' int NULL
|
||||
|
||||
Public CHAT_MESSAGES_STATUS_LIST As New List(Of cMessenger_ChatMessageStatus)
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
|
||||
Sub New(chatMg_id)
|
||||
Me.chatMg_id = chatMg_id
|
||||
LOAD()
|
||||
End Sub
|
||||
Sub New(chatMg_chatId, chatMg_maId)
|
||||
Me.chatMg_chatId = chatMg_chatId
|
||||
Me.chatMg_maId = chatMg_maId
|
||||
End Sub
|
||||
|
||||
Public 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("chatMg_id", chatMg_id,, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMg_maId", chatMg_maId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMg_chatId", chatMg_chatId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMg_datetime", chatMg_datetime))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMg_maName", chatMg_maName))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMg_maFirma", chatMg_maFirma))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMg_type", chatMg_type))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMg_text", chatMg_text))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMg_anhang_docId", chatMg_anhang_docId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMg_referenz_AvisoId", chatMg_referenz_AvisoId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMg_referenz_SendungsId", chatMg_referenz_SendungsId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMg_referenz_KundenNr", chatMg_referenz_KundenNr))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE(saveStat As Boolean, Optional CHAT_MEMBERS As List(Of cMessenger_ChatMembers) = Nothing) As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblMessenger_ChatMessages WHERE chatMg_id=@chatMg_id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
Dim tmp_id = SQL.doSQLVarListID(Me.chatMg_id, sqlstr, "ADMIN", , list)
|
||||
If tmp_id > 0 Then
|
||||
Me.chatMg_id = tmp_id
|
||||
If saveStat Then SAVE_STATUS_FIRST(CHAT_MEMBERS)
|
||||
UPDATE_LASTMSG() ' Versucht einen TSTMP der letzten Nachricht einzutragen
|
||||
Return True
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
|
||||
|
||||
''Return SQL.doSQLVarList(sqlstr, "ADMIN", , list)
|
||||
End Function
|
||||
|
||||
|
||||
Public Function UPDATE_LASTMSG() As Boolean
|
||||
Dim sqlstr = " UPDATE tblMessenger_Chat SET chat_lastMsg=getDate() WHERE [chat_id]=" & Me.chatMg_chatId & " "
|
||||
Return SQL.doSQL(sqlstr, "ADMIN")
|
||||
End Function
|
||||
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblMessenger_ChatMessages WHERE chatMg_id=@chatMg_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@chatMg_id", chatMg_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
LOAD_STATUS()
|
||||
End If
|
||||
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 getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE tblMessenger_ChatMessages SET " & str & " WHERE chatMg_id=@chatMg_id ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 tblMessenger_ChatMessages (" & 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
|
||||
|
||||
|
||||
Public Function DELETE([chatMgSt_MaId]) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM tblMessenger_ChatMessages WHERE [chatMg_id]=" & Me.chatMg_id & " "
|
||||
Return SQL.doSQL(sqlstr, "ADMIN")
|
||||
End Function
|
||||
|
||||
Public Sub SAVE_STATUS_FIRST(CHAT_MEMBERS As List(Of cMessenger_ChatMembers))
|
||||
Try
|
||||
If CHAT_MEMBERS IsNot Nothing Then
|
||||
For Each MB In CHAT_MEMBERS
|
||||
Dim gelesen = False
|
||||
If MB.chatMb_maId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
|
||||
gelesen = True
|
||||
End If
|
||||
Dim STAT As New cMessenger_ChatMessageStatus(Me.chatMg_id, MB.chatMb_maId, gelesen)
|
||||
|
||||
STAT.SAVE()
|
||||
Next
|
||||
End If
|
||||
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 DELETE_STATUS() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
' Dim sqlstr = " DELETE FROM [tblMessenger_ChatMessageStatus] WHERE chatMb_chatId=" & Me.chatMg_chatId
|
||||
' Return SQL.doSQL(sqlstr, "ADMIN")
|
||||
'End Function
|
||||
|
||||
Public Sub LOAD_STATUS()
|
||||
Try
|
||||
Me.CHAT_MESSAGES_STATUS_LIST.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblMessenger_ChatMessageStatus WHERE chatMgSt_chatMsgId=@chatMg_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@chatMg_id", Me.chatMg_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim MB As New cMessenger_ChatMessageStatus(Me.chatMg_id, dr.Item("chatMgSt_MaId"))
|
||||
Me.CHAT_MESSAGES_STATUS_LIST.Add(MB)
|
||||
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
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
|
||||
Public Class cMessenger_ChatMessageStatus
|
||||
|
||||
Property chatMgSt_chatMsgId As Integer
|
||||
Property chatMgSt_MaId As Integer
|
||||
Property chatMgSt_datetime As Date = Now
|
||||
Property chatMgSt_gelesen As Boolean = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
|
||||
Sub New(chatMgSt_chatMsgId, chatMgSt_MaId)
|
||||
Me.chatMgSt_chatMsgId = chatMgSt_chatMsgId
|
||||
Me.chatMgSt_MaId = chatMgSt_MaId
|
||||
LOAD()
|
||||
End Sub
|
||||
Sub New(chatMgSt_chatMsgId, chatMgSt_MaId, chatMgSt_gelesen)
|
||||
Me.chatMgSt_chatMsgId = chatMgSt_chatMsgId
|
||||
Me.chatMgSt_MaId = chatMgSt_MaId
|
||||
Me.chatMgSt_gelesen = chatMgSt_gelesen
|
||||
End Sub
|
||||
|
||||
Public 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("chatMgSt_chatMsgId", chatMgSt_chatMsgId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMgSt_MaId", chatMgSt_MaId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMgSt_datetime", chatMgSt_datetime))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chatMgSt_gelesen", chatMgSt_gelesen))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblMessenger_ChatMessageStatus WHERE chatMgSt_chatMsgId=@chatMgSt_chatMsgId AND chatMgSt_MaId=@chatMgSt_MaId) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Return SQL.doSQLVarList(sqlstr, "ADMIN", , list)
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblMessenger_ChatMessageStatus WHERE chatMgSt_chatMsgId=@chatMgSt_chatMsgId AND chatMgSt_MaId=@chatMgSt_MaId ", conn)
|
||||
cmd.Parameters.AddWithValue("@chatMgSt_chatMsgId", chatMgSt_chatMsgId)
|
||||
cmd.Parameters.AddWithValue("@chatMgSt_MaId", chatMgSt_MaId)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
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 getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE tblMessenger_ChatMessageStatus SET " & str & " WHERE chatMgSt_chatMsgId=@chatMgSt_chatMsgId AND chatMgSt_MaId=@chatMgSt_MaId ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 tblMessenger_ChatMessageStatus (" & 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
|
||||
|
||||
|
||||
Public Function DELETE([chatMgSt_MaId]) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM tblMessenger_ChatMessageStatus WHERE [chatMgSt_chatMsgId]=" & Me.chatMgSt_chatMsgId & " AND [chatMgSt_MaId]=" & Me.chatMgSt_MaId & " "
|
||||
Return SQL.doSQL(sqlstr, "ADMIN")
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
End Class
|
||||
403
SDL/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb
Normal file
403
SDL/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb
Normal file
@@ -0,0 +1,403 @@
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
|
||||
Public Class cMitarbeiter
|
||||
Property mit_id As Integer
|
||||
Property mit_username As String = ""
|
||||
Property mit_pwd As String = ""
|
||||
Property mit_geschlecht As String = ""
|
||||
Property mit_affix As String = ""
|
||||
Property mit_vname As String = ""
|
||||
Property mit_nname As String = ""
|
||||
Property mit_gebdat As String = ""
|
||||
Property mit_strasse As String = ""
|
||||
Property mit_hausnr As String = ""
|
||||
Property mit_land As String = ""
|
||||
Property mit_plz As String = ""
|
||||
Property mit_ort As String = ""
|
||||
Property mit_niederlassung As String = ""
|
||||
Property mit_abteilung As String = ""
|
||||
Property mit_position As String = ""
|
||||
Property mit_durchwahl As String = ""
|
||||
Property mit_email As String = ""
|
||||
Property mit_mobiltel As String = ""
|
||||
Property mit_allowAnruf As Boolean
|
||||
Property mit_info As String = ""
|
||||
Property mit_einstiegsdatum As String = ""
|
||||
Property mit_gekuendigt As Boolean
|
||||
Property mit_kuendigungsdatum As String = ""
|
||||
Property mit_foto As String = ""
|
||||
Property mit_firma As String = "VERAG"
|
||||
Property mit_firmaFMZoll As Object = Nothing
|
||||
Property mit_FMZollPersID As Object = Nothing
|
||||
Property mit_standartFiliale As Integer = -1
|
||||
Property mit_standardPreisliste As Integer = -1
|
||||
Property mit_FMZollPersIDKasseIsnotSpedBuch As Boolean = False
|
||||
Property mit_FMZollPersIDSpedBuch As Object = Nothing
|
||||
Property mit_DpUserStandardDP As Object = Nothing
|
||||
Property mit_DpUserStandardFirma As Object = Nothing
|
||||
Property mit_DpUserStandardFirma2 As Object = Nothing
|
||||
|
||||
Property mit_EZOLL_SB As Object = Nothing
|
||||
Property mit_ATLAS_SB As Object = Nothing
|
||||
Property mit_pseudoUser As Boolean = False
|
||||
|
||||
Property mit_FirmenDatenAnzeige As Object = Nothing
|
||||
|
||||
Property mit_DAKOSY_SB As Object = Nothing
|
||||
Property mit_DAKOSY_SBFull As Object = Nothing
|
||||
Property mit_TESTonly As Object = Nothing
|
||||
Property mit_PasswortChanged As Object = Nothing
|
||||
Property mit_TELOTEC_SB As Object = Nothing
|
||||
|
||||
|
||||
Property mit_AliasAD_Domain As Object = Nothing
|
||||
Property mit_AliasAD_Username As Object = Nothing
|
||||
Property mit_AliasAD_Domain2 As Object = Nothing
|
||||
Property mit_AliasAD_Username2 As Object = Nothing
|
||||
|
||||
Property mit_teamId As Object = Nothing
|
||||
Property mit_ChatBenutzer As Boolean = True
|
||||
Property mit_FirmaHaupt As Object = Nothing
|
||||
Property mit_ChatEasteregg As Boolean = False
|
||||
|
||||
|
||||
|
||||
Property mit_MAVerzeichnis_SettingsTstmp As Object = Nothing
|
||||
Property mit_MAVerzeichnis_allowGebDat As Boolean = False
|
||||
Property mit_MAVerzeichnis_allowWohnadresse As Boolean = False
|
||||
Property mit_MAVerzeichnis_allowGebDatOhneJahr As Boolean = False
|
||||
Property mit_MAVerzeichnis_allowHandynummer As Boolean = False
|
||||
Property mit_MAVerzeichnis_allowFoto As Boolean = False
|
||||
|
||||
|
||||
Property mit_MAVerzeichnis_Motto As Object = Nothing
|
||||
Property mit_MAVerzeichnis_Spitzname As Object = Nothing
|
||||
|
||||
Property mit_foto_DocId As Object = Nothing
|
||||
Property mit_sprache As String = "DE"
|
||||
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
|
||||
End Sub
|
||||
|
||||
Sub New(id)
|
||||
Me.mit_id = id
|
||||
LOAD(id)
|
||||
|
||||
End Sub
|
||||
' Dim SQL As New SQL
|
||||
|
||||
Public Function Fullname() As String
|
||||
Return (If(mit_vname, "") & " " & If(mit_nname, "")).Trim
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getFirma() As String
|
||||
If mit_firma Is Nothing Then Return ""
|
||||
Select Case mit_firma
|
||||
Case "ALLE", "BEIDE", "ALL"
|
||||
Return If(mit_FirmaHaupt, "")
|
||||
End Select
|
||||
Return mit_firma
|
||||
End Function
|
||||
|
||||
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("mit_id", mit_id,, True, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_username", mit_username))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_pwd", mit_pwd))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_geschlecht", mit_geschlecht))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_affix", mit_affix))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_vname", mit_vname))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_nname", mit_nname))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_gebdat", mit_gebdat))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_strasse", mit_strasse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_hausnr", mit_hausnr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_land", mit_land))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_plz", mit_plz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_ort", mit_ort))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_niederlassung", mit_niederlassung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_abteilung", mit_abteilung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_position", mit_position))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_durchwahl", mit_durchwahl))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_email", mit_email))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_mobiltel", mit_mobiltel))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_allowAnruf", mit_allowAnruf))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_info", mit_info))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_einstiegsdatum", mit_einstiegsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_gekuendigt", mit_gekuendigt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_kuendigungsdatum", mit_kuendigungsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_foto", mit_foto))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_firma", mit_firma))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_firmaFMZoll", mit_firmaFMZoll))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_FMZollPersID", mit_FMZollPersID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_standartFiliale", mit_standartFiliale))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_standardPreisliste", mit_standardPreisliste))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_FMZollPersIDKasseIsnotSpedBuch", mit_FMZollPersIDKasseIsnotSpedBuch))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_FMZollPersIDSpedBuch", mit_FMZollPersIDSpedBuch))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_DpUserStandardDP", mit_DpUserStandardDP))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_DpUserStandardFirma", mit_DpUserStandardFirma))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_DpUserStandardFirma2", mit_DpUserStandardFirma2))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_EZOLL_SB", mit_EZOLL_SB))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_ATLAS_SB", mit_ATLAS_SB))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_pseudoUser", mit_pseudoUser))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_FirmenDatenAnzeige", mit_FirmenDatenAnzeige))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_DAKOSY_SB", mit_DAKOSY_SB))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_DAKOSY_SBFull", mit_DAKOSY_SBFull))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_TESTonly", mit_TESTonly))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_PasswortChanged", mit_PasswortChanged))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_TELOTEC_SB", mit_TELOTEC_SB))
|
||||
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_AliasAD_Domain", mit_AliasAD_Domain))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_AliasAD_Username", mit_AliasAD_Username))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_AliasAD_Domain2", mit_AliasAD_Domain2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_AliasAD_Username2", mit_AliasAD_Username2))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_teamId", mit_teamId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_ChatBenutzer", mit_ChatBenutzer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_FirmaHaupt", mit_FirmaHaupt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_ChatEasteregg", mit_ChatEasteregg))
|
||||
|
||||
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_MAVerzeichnis_SettingsTstmp", mit_MAVerzeichnis_SettingsTstmp))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_MAVerzeichnis_allowGebDat", mit_MAVerzeichnis_allowGebDat))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_MAVerzeichnis_allowWohnadresse", mit_MAVerzeichnis_allowWohnadresse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_MAVerzeichnis_allowGebDatOhneJahr", mit_MAVerzeichnis_allowGebDatOhneJahr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_MAVerzeichnis_allowHandynummer", mit_MAVerzeichnis_allowHandynummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_MAVerzeichnis_allowFoto", mit_MAVerzeichnis_allowFoto))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_MAVerzeichnis_Motto", mit_MAVerzeichnis_Motto))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_MAVerzeichnis_Spitzname", mit_MAVerzeichnis_Spitzname))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_foto_DocId", mit_foto_DocId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_sprache", mit_sprache))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblMitarbeiter WHERE mit_id=@mit_id) " &
|
||||
" BEGIN " & getUpdateCmd() & " End " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " End " &
|
||||
" commit tran "
|
||||
|
||||
Dim id = SQL.doSQLVarListID(mit_id, sqlstr, "ADMIN", , list)
|
||||
If id > 0 Then
|
||||
mit_id = id
|
||||
Return mit_id
|
||||
Else
|
||||
Return -1
|
||||
End If
|
||||
|
||||
End Function
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblMitarbeiter] SET " & str & " WHERE mit_id=@mit_id ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 tblMitarbeiter (" & 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
|
||||
|
||||
|
||||
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblMitarbeiter] WHERE mit_id=" & Me.mit_id
|
||||
Return SQL.doSQL(sqlstr, "ADMIN")
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
'Public Sub LOAD(Optional topMax As String = "")
|
||||
' Try
|
||||
' Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
|
||||
' Using cmd As New SqlCommand("Select * FROM tblMitarbeiter WHERE mit_id=@mit_id ", conn)
|
||||
' cmd.Parameters.AddWithValue("@mit_id", mit_id)
|
||||
' Dim dr = cmd.ExecuteReader()
|
||||
' If dr.Read Then
|
||||
' For Each l In getParameterList()
|
||||
' Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
' If dr.Item(l.Text) Is DBNull.Value Then
|
||||
' propInfo.SetValue(Me, Nothing)
|
||||
' Else
|
||||
' propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
' End If
|
||||
|
||||
' Next
|
||||
' Me.LOAD_MEMBERS()
|
||||
' Me.LOAD_MESSAGES(topMax)
|
||||
' End If
|
||||
' 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 LOAD(ByVal id As Integer) As Boolean
|
||||
Dim sqlstr As String = "SELECT * FROM tblMitarbeiter WHERE mit_id = " & id & ""
|
||||
' adasdas()
|
||||
' Dim d As VERAG_PROG_ALLGEMEIN.cMitarbeiter = Nothing
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN
|
||||
Using cmd As New SqlCommand(sqlstr, conn)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.HasRows Then
|
||||
dr.Read()
|
||||
' d = New VERAG_PROG_ALLGEMEIN.cMitarbeiter()
|
||||
Try
|
||||
Me.mit_id = dr.Item("mit_id")
|
||||
Me.mit_username = dr.Item("mit_username")
|
||||
Me.mit_pwd = dr.Item("mit_pwd")
|
||||
Me.mit_affix = dr.Item("mit_affix")
|
||||
If Not dr.Item("mit_geschlecht") Is DBNull.Value Then Me.mit_geschlecht = dr.Item("mit_geschlecht")
|
||||
Me.mit_vname = dr.Item("mit_vname")
|
||||
Me.mit_nname = dr.Item("mit_nname")
|
||||
If Not dr.Item("mit_gebdat") Is DBNull.Value Then Me.mit_gebdat = dr.Item("mit_gebdat")
|
||||
Me.mit_strasse = dr.Item("mit_strasse")
|
||||
Me.mit_hausnr = dr.Item("mit_hausnr")
|
||||
Me.mit_land = dr.Item("mit_land")
|
||||
Me.mit_plz = dr.Item("mit_plz")
|
||||
Me.mit_ort = dr.Item("mit_ort")
|
||||
Me.mit_niederlassung = dr.Item("mit_niederlassung")
|
||||
Me.mit_abteilung = dr.Item("mit_abteilung")
|
||||
Me.mit_position = dr.Item("mit_position")
|
||||
Me.mit_durchwahl = dr.Item("mit_durchwahl")
|
||||
Me.mit_email = dr.Item("mit_email")
|
||||
Me.mit_mobiltel = dr.Item("mit_mobiltel")
|
||||
Me.mit_allowAnruf = dr.Item("mit_allowAnruf")
|
||||
If Not dr.Item("mit_FMZollPersID") Is DBNull.Value Then Me.mit_FMZollPersID = dr.Item("mit_FMZollPersID")
|
||||
If Not dr.Item("mit_FMZollPersIDKasseIsnotSpedBuch") Is DBNull.Value Then Me.mit_FMZollPersIDKasseIsnotSpedBuch = dr.Item("mit_FMZollPersIDKasseIsnotSpedBuch")
|
||||
If Not dr.Item("mit_FMZollPersIDSpedBuch") Is DBNull.Value Then Me.mit_FMZollPersIDSpedBuch = dr.Item("mit_FMZollPersIDSpedBuch")
|
||||
If Not dr.Item("mit_DpUserStandardDP") Is DBNull.Value Then Me.mit_DpUserStandardDP = dr.Item("mit_DpUserStandardDP")
|
||||
If Not dr.Item("mit_DpUserStandardFirma") Is DBNull.Value Then Me.mit_DpUserStandardFirma = dr.Item("mit_DpUserStandardFirma")
|
||||
If Not dr.Item("mit_DpUserStandardFirma2") Is DBNull.Value Then Me.mit_DpUserStandardFirma2 = dr.Item("mit_DpUserStandardFirma2")
|
||||
|
||||
|
||||
If Not dr.Item("mit_standartFiliale") Is DBNull.Value Then Me.mit_standartFiliale = dr.Item("mit_standartFiliale")
|
||||
If Not dr.Item("mit_standardPreisliste") Is DBNull.Value Then Me.mit_standardPreisliste = dr.Item("mit_standardPreisliste")
|
||||
|
||||
Me.mit_info = dr.Item("mit_info")
|
||||
If Not dr.Item("mit_einstiegsdatum") Is DBNull.Value Then Me.mit_einstiegsdatum = dr.Item("mit_einstiegsdatum")
|
||||
Me.mit_gekuendigt = dr.Item("mit_gekuendigt")
|
||||
If Not dr.Item("mit_kuendigungsdatum") Is DBNull.Value Then Me.mit_kuendigungsdatum = dr.Item("mit_kuendigungsdatum")
|
||||
If Not dr.Item("mit_foto") Is DBNull.Value Then Me.mit_foto = dr.Item("mit_foto")
|
||||
Me.mit_firma = dr.Item("mit_firma")
|
||||
If Not dr.Item("mit_firmaFMZoll") Is DBNull.Value Then Me.mit_firmaFMZoll = dr.Item("mit_firmaFMZoll")
|
||||
If Not dr.Item("mit_EZOLL_SB") Is DBNull.Value Then Me.mit_EZOLL_SB = dr.Item("mit_EZOLL_SB")
|
||||
If Not dr.Item("mit_ATLAS_SB") Is DBNull.Value Then Me.mit_ATLAS_SB = dr.Item("mit_ATLAS_SB")
|
||||
Me.mit_pseudoUser = dr.Item("mit_pseudoUser")
|
||||
If Not dr.Item("mit_DAKOSY_SB") Is DBNull.Value Then Me.mit_DAKOSY_SB = dr.Item("mit_DAKOSY_SB")
|
||||
If Not dr.Item("mit_DAKOSY_SBFull") Is DBNull.Value Then Me.mit_DAKOSY_SBFull = dr.Item("mit_DAKOSY_SBFull")
|
||||
If Not dr.Item("mit_TESTonly") Is DBNull.Value Then Me.mit_TESTonly = dr.Item("mit_TESTonly")
|
||||
If Not dr.Item("mit_PasswortChanged") Is DBNull.Value Then Me.mit_PasswortChanged = dr.Item("mit_PasswortChanged")
|
||||
|
||||
If Not dr.Item("mit_FirmenDatenAnzeige") Is DBNull.Value Then Me.mit_FirmenDatenAnzeige = dr.Item("mit_FirmenDatenAnzeige")
|
||||
If Not dr.Item("mit_TELOTEC_SB") Is DBNull.Value Then Me.mit_TELOTEC_SB = dr.Item("mit_TELOTEC_SB")
|
||||
If Not dr.Item("mit_AliasAD_Domain") Is DBNull.Value Then Me.mit_AliasAD_Domain = dr.Item("mit_AliasAD_Domain")
|
||||
If Not dr.Item("mit_AliasAD_Username") Is DBNull.Value Then Me.mit_AliasAD_Username = dr.Item("mit_AliasAD_Username")
|
||||
If Not dr.Item("mit_AliasAD_Domain2") Is DBNull.Value Then Me.mit_AliasAD_Domain2 = dr.Item("mit_AliasAD_Domain2")
|
||||
If Not dr.Item("mit_AliasAD_Username2") Is DBNull.Value Then Me.mit_AliasAD_Username2 = dr.Item("mit_AliasAD_Username2")
|
||||
If Not dr.Item("mit_teamId") Is DBNull.Value Then Me.mit_teamId = dr.Item("mit_teamId")
|
||||
|
||||
|
||||
Me.mit_ChatBenutzer = dr.Item("mit_ChatBenutzer")
|
||||
Me.mit_ChatEasteregg = dr.Item("mit_ChatEasteregg")
|
||||
|
||||
|
||||
If Not dr.Item("mit_FirmaHaupt") Is DBNull.Value Then Me.mit_FirmaHaupt = dr.Item("mit_FirmaHaupt")
|
||||
|
||||
|
||||
If Not dr.Item("mit_MAVerzeichnis_SettingsTstmp") Is DBNull.Value Then Me.mit_MAVerzeichnis_SettingsTstmp = dr.Item("mit_MAVerzeichnis_SettingsTstmp")
|
||||
Me.mit_MAVerzeichnis_allowGebDat = dr.Item("mit_MAVerzeichnis_allowGebDat")
|
||||
Me.mit_MAVerzeichnis_allowGebDatOhneJahr = dr.Item("mit_MAVerzeichnis_allowGebDatOhneJahr")
|
||||
Me.mit_MAVerzeichnis_allowWohnadresse = dr.Item("mit_MAVerzeichnis_allowWohnadresse")
|
||||
Me.mit_MAVerzeichnis_allowHandynummer = dr.Item("mit_MAVerzeichnis_allowHandynummer")
|
||||
Me.mit_MAVerzeichnis_allowFoto = dr.Item("mit_MAVerzeichnis_allowFoto")
|
||||
|
||||
If Not dr.Item("mit_foto_DocId") Is DBNull.Value Then Me.mit_foto_DocId = dr.Item("mit_foto_DocId")
|
||||
If Not dr.Item("mit_MAVerzeichnis_Spitzname") Is DBNull.Value Then Me.mit_MAVerzeichnis_Spitzname = dr.Item("mit_MAVerzeichnis_Spitzname")
|
||||
If Not dr.Item("mit_MAVerzeichnis_Motto") Is DBNull.Value Then Me.mit_MAVerzeichnis_Motto = dr.Item("mit_MAVerzeichnis_Motto")
|
||||
If Not dr.Item("mit_sprache") Is DBNull.Value Then Me.mit_sprache = dr.Item("mit_sprache")
|
||||
|
||||
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Einlesen der Mitarbeiter-Details " & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Exclamation)
|
||||
End Try
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Lesen der Mitarbeiter-Details:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler")
|
||||
Return Nothing
|
||||
End Try
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Public Shared Sub UPDATE_EASTEREGG(egg As Boolean, Optional mit_id As Integer = -1)
|
||||
Try
|
||||
If cAllgemein.MITARBEITER IsNot Nothing Then
|
||||
If mit_id <= 0 Then
|
||||
mit_id = cAllgemein.MITARBEITER.mit_id
|
||||
End If
|
||||
End If
|
||||
Dim sql As New SQL
|
||||
If mit_id > 0 Then sql.doSQL("UPDATE tblMitarbeiter SET mit_ChatEasteregg='" & If(egg, 1, 0) & "' WHERE mit_id=" & mit_id, "ADMIN")
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End Sub
|
||||
End Class
|
||||
151
SDL/VERAG_PROG_ALLGEMEIN/Classes/cNCTSGestellungsadressen.vb
Normal file
151
SDL/VERAG_PROG_ALLGEMEIN/Classes/cNCTSGestellungsadressen.vb
Normal file
@@ -0,0 +1,151 @@
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cNCTSGestellungsadressen
|
||||
Property nga_id As Integer
|
||||
Property nga_name As String = ""
|
||||
Property nga_strasse As Object = Nothing
|
||||
Property nga_land As Object = Nothing
|
||||
Property nga_plz As Object = Nothing
|
||||
Property nga_ort As Object = Nothing
|
||||
Property nga_EORI As Object = Nothing
|
||||
Property nga_EORI_NL As Object = Nothing
|
||||
Property nga_Ansprechpartner As Object = Nothing
|
||||
Property nga_bestZollst As Object = Nothing
|
||||
Property nga_SB As Object = Nothing
|
||||
Property nga_firma As Object = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Property nga_Aenderungsdatum As Date = Now
|
||||
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
nga_SB = If(nga_SB, VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME)
|
||||
'If sms_SachbearbeiterId <= 0 Then sms_SachbearbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
||||
|
||||
End Sub
|
||||
|
||||
Sub New(nga_id)
|
||||
Me.nga_id = nga_id
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
Public 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("nga_id", nga_id, , True, True))
|
||||
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_name", nga_name))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_strasse", nga_strasse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_land", nga_land))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_plz", nga_plz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_ort", nga_ort))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_EORI", nga_EORI))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_EORI_NL", nga_EORI_NL))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_Ansprechpartner", nga_Ansprechpartner))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_bestZollst", nga_bestZollst))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_SB", nga_SB))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_firma", nga_firma))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_Aenderungsdatum", nga_Aenderungsdatum))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblNCTSGestellungsadressen WITH(updlock,serializable) WHERE nga_id=@nga_id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
nga_id = SQL.doSQLVarListID(nga_id, sqlstr, "FMZOLL", , list)
|
||||
Return nga_id > 0
|
||||
End Function
|
||||
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblNCTSGestellungsadressen WHERE nga_id=@nga_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@nga_id", nga_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
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 getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblNCTSGestellungsadressen] SET " & str & " WHERE nga_id=@nga_id ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 tblNCTSGestellungsadressen (" & 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
|
||||
|
||||
|
||||
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblNCTSGestellungsadressen] WITH(updlock,serializable) WHERE nga_id=" & Me.nga_id
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
1493
SDL/VERAG_PROG_ALLGEMEIN/Classes/cNCTS_TR.vb
Normal file
1493
SDL/VERAG_PROG_ALLGEMEIN/Classes/cNCTS_TR.vb
Normal file
File diff suppressed because it is too large
Load Diff
156
SDL/VERAG_PROG_ALLGEMEIN/Classes/cOffenePostenDVO.vb
Normal file
156
SDL/VERAG_PROG_ALLGEMEIN/Classes/cOffenePostenDVO.vb
Normal file
@@ -0,0 +1,156 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cOffenePostenDVO
|
||||
|
||||
Property OP_ID As Integer
|
||||
Property Konto As Integer
|
||||
Property KundenNr As Integer
|
||||
Property Rechnung As Object = Nothing
|
||||
Property Datum As Object = Nothing
|
||||
Property Buchungsbetrag As Object = Nothing
|
||||
Property Steuercode As Object = Nothing
|
||||
Property Ländercode As Object = Nothing
|
||||
Property Steuerbetrag As Object = Nothing
|
||||
Property Buchungstext As Object = Nothing
|
||||
Property Faell_Tage1 As Object = Nothing
|
||||
Property Faell_Prozent1 As Object = Nothing
|
||||
Property Faell_Tage2 As Object = Nothing
|
||||
Property Faell_Prozent2 As Object = Nothing
|
||||
Property Faell_Tage3 As Object = Nothing
|
||||
Property Faell_Prozent3 As Object = Nothing
|
||||
Property Mahnstufe As Object = Nothing
|
||||
Property Rechnung_Gutschrift As Object = Nothing
|
||||
Property Storno As Object = Nothing
|
||||
Property Jahr As Object = Nothing
|
||||
|
||||
|
||||
Shared SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
Sub New(OP_ID)
|
||||
Me.OP_ID = OP_ID
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
Public 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("OP_ID", OP_ID, , True, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Konto", Konto))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KundenNr", KundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechnung", Rechnung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Datum", Datum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Buchungsbetrag", Buchungsbetrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuercode", Steuercode))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Ländercode", Ländercode))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuerbetrag", Steuerbetrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Buchungstext", Buchungstext))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Faell_Tage1", Faell_Tage1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Faell_Prozent1", Faell_Prozent1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Faell_Tage2", Faell_Tage2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Faell_Prozent2", Faell_Prozent2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Faell_Tage3", Faell_Tage3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Faell_Prozent3", Faell_Prozent3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Mahnstufe", Mahnstufe))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechnung_Gutschrift", Rechnung_Gutschrift))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Storno", Storno))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Jahr", Jahr))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM Offene_Posten_DVO WITH(updlock,serializable) WHERE OP_ID=@OP_ID) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
OP_ID = SQL.doSQLVarListID(OP_ID, sqlstr, "FMZOLL", , list)
|
||||
Return OP_ID > 0
|
||||
End Function
|
||||
|
||||
Public Shared Function LOADByKdNr(KundenNr As Integer) As DataTable
|
||||
Return SQL.loadDgvBySql("SELECT * FROM Offene_Posten_DVO WHERE KundenNr=@KundenNr ", "FMZOLL")
|
||||
End Function
|
||||
|
||||
Public Shared Function DELETE_ALL_ENTRYS() As Boolean
|
||||
Return SQL.doSQL("DELETE FROM Offene_Posten_DVO ", "FMZOLL")
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM Offene_Posten_DVO WHERE OP_ID=@OP_ID ", conn)
|
||||
cmd.Parameters.AddWithValue("@OP_ID", OP_ID)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
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 getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [Offene_Posten_DVO] SET " & str & " WHERE OP_ID=@OP_ID ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 Offene_Posten_DVO (" & 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
|
||||
170
SDL/VERAG_PROG_ALLGEMEIN/Classes/cOffene_Posten_DVO.vb
Normal file
170
SDL/VERAG_PROG_ALLGEMEIN/Classes/cOffene_Posten_DVO.vb
Normal file
@@ -0,0 +1,170 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cOffene_Posten_DVO
|
||||
|
||||
|
||||
Property OP_ID As Integer = -1
|
||||
Property Konto As Object = Nothing
|
||||
Property KontoBez As Object = Nothing
|
||||
Property KundenNr As Object = Nothing
|
||||
Property Rechnung As Object = Nothing
|
||||
Property Datum As Object = Nothing
|
||||
Property Buchungsbetrag_SOLL As Object = Nothing
|
||||
Property Buchungsbetrag_HABEN As Object = Nothing
|
||||
Property Saldo As Object = Nothing
|
||||
Property Steuercode As Object = Nothing
|
||||
Property Ländercode As Object = Nothing
|
||||
Property Steuerbetrag As Object = Nothing
|
||||
Property Buchungstext As Object = Nothing
|
||||
Property Faell_Tage1 As Object = Nothing
|
||||
Property Faell_Prozent1 As Object = Nothing
|
||||
Property Faell_Tage2 As Object = Nothing
|
||||
Property Faell_Prozent2 As Object = Nothing
|
||||
Property Faell_Tage3 As Object = Nothing
|
||||
Property Faell_Prozent3 As Object = Nothing
|
||||
Property Mahnstufe As Object = Nothing
|
||||
Property Rechnung_Gutschrift As Object = Nothing
|
||||
Property Storno As Object = Nothing
|
||||
Property Jahr As Object = Nothing
|
||||
Property Faelligkeit As Object = Nothing
|
||||
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
Sub New(OP_ID)
|
||||
Me.OP_ID = OP_ID
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
|
||||
Public 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("OP_ID", OP_ID, , True, True))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Konto", Konto))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KontoBez", KontoBez))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KundenNr", KundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechnung", Rechnung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Datum", Datum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Buchungsbetrag_SOLL", Buchungsbetrag_SOLL))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Buchungsbetrag_HABEN", Buchungsbetrag_HABEN))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Saldo", Saldo))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuercode", Steuercode))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Ländercode", (Ländercode))) '.ToString("N2")))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuerbetrag", Steuerbetrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Buchungstext", Buchungstext))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Faell_Tage1", Faell_Tage1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Faell_Prozent1", Faell_Prozent1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Faell_Tage2", Faell_Tage2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Faell_Prozent2", Faell_Prozent2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Faell_Tage3", Faell_Tage3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Faell_Prozent3", Faell_Prozent3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Mahnstufe", Mahnstufe))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechnung_Gutschrift", Rechnung_Gutschrift))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Storno", Storno))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Jahr", Jahr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Faelligkeit", Faelligkeit))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Public Shared Function DELETE_ALL() As Boolean
|
||||
Dim SQL As New SQL
|
||||
Return SQL.doSQL("DELETE FROM Offene_Posten_DVO", "FMZOLL")
|
||||
End Function
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM Offene_Posten_DVO WITH(updlock,serializable) WHERE OP_ID=@OP_ID) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
OP_ID = SQL.doSQLVarListID(OP_ID, sqlstr, "FMZOLL", , list)
|
||||
Return OP_ID > 0
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM Offene_Posten_DVO WHERE OP_ID=@OP_ID ", conn)
|
||||
cmd.Parameters.AddWithValue("@OP_ID", OP_ID)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
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 getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [Offene_Posten_DVO] SET " & str & " WHERE OP_ID=@OP_ID ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 Offene_Posten_DVO (" & 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
|
||||
|
||||
|
||||
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [Offene_Posten_DVO] WITH(updlock,serializable) WHERE OP_ID=" & Me.OP_ID
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
383
SDL/VERAG_PROG_ALLGEMEIN/Classes/cOfferte.vb
Normal file
383
SDL/VERAG_PROG_ALLGEMEIN/Classes/cOfferte.vb
Normal file
@@ -0,0 +1,383 @@
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cOfferteList
|
||||
Property KundenNr As Object = Nothing
|
||||
' Property OffertenNr As Object = Nothing
|
||||
Public LIST As New List(Of cOfferte)
|
||||
Dim SQL As New SQL
|
||||
'Dim listTodelete As New List(Of cOfferte)
|
||||
|
||||
Sub New(KundenNr, loadPos)
|
||||
Me.KundenNr = KundenNr
|
||||
' Me.OffertenNr = OffertenNr
|
||||
LOAD_LIST(Me.KundenNr, loadPos)
|
||||
End Sub
|
||||
Public Sub CLEAR()
|
||||
LIST.Clear()
|
||||
End Sub
|
||||
Public Sub ADD(eb_EMail As String, Optional cc As Boolean = False, Optional bcc As Boolean = False)
|
||||
' Dim l As New cOfferte
|
||||
'l.eb_bcc = bcc
|
||||
'LIST.Add(l)
|
||||
End Sub
|
||||
|
||||
Public Sub LOAD_LIST(KundenNr, loadPos)
|
||||
Try
|
||||
LIST.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM Offerten WHERE KundenNr=@KundenNr ", conn)
|
||||
cmd.Parameters.AddWithValue("@KundenNr", KundenNr)
|
||||
' cmd.Parameters.AddWithValue("@OffertenNr", OffertenNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cOfferte
|
||||
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
|
||||
If loadPos Then l.LOAD_POSITIONEN()
|
||||
LIST.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 SAVE()
|
||||
' If SQL.doSQLVarList("DELETE FROM tblEmailBenachrichtigung WHERE eb_KundenNr=" & Me.eb_KundenNr & " and eb_ebartId=" & Me.eb_ebartId & " ", "FMZOLL") Then
|
||||
' For Each l In LIST
|
||||
' If Not l.INSERT() Then Return False
|
||||
' Next
|
||||
' Return True
|
||||
' Else
|
||||
' Return False
|
||||
' End If
|
||||
'End Function
|
||||
End Class
|
||||
|
||||
Public Class cOfferte
|
||||
Property KundenNr As Object = Nothing
|
||||
Property OffertenNr As Object = Nothing
|
||||
Property FilialenNr As Object = Nothing
|
||||
Property Pauschalpreis As Object = Nothing
|
||||
Property Standardofferte As Object = Nothing
|
||||
Property Besonderheiten As Object = Nothing
|
||||
Property Eingegeben_am As Object = Nothing
|
||||
Property Geändert_am As Object = Nothing
|
||||
Property Sachbearbeiter As Object = Nothing
|
||||
Property Gesperrt As Object = Nothing
|
||||
Property Gesperrt_Datum As Object = Nothing
|
||||
Property Gesperrt_Grund As Object = Nothing
|
||||
|
||||
Property POSITIONEN As New List(Of cOffertPosition) '= Nothing
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
Sub New(KundenNr, OffertenNr, loadPos)
|
||||
Me.KundenNr = KundenNr
|
||||
Me.OffertenNr = OffertenNr
|
||||
LOAD(KundenNr, OffertenNr, loadPos)
|
||||
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("KundenNr", KundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("OffertenNr", OffertenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNr", FilialenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Pauschalpreis", Pauschalpreis))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Standardofferte", Standardofferte))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Besonderheiten", Besonderheiten))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Eingegeben am", Eingegeben_am, "Eingegeben_am"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Geändert am", Geändert_am, "Geändert_am"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachbearbeiter", Sachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gesperrt", Gesperrt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gesperrt_Datum", Gesperrt_Datum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gesperrt_Grund", Gesperrt_Grund))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Public Sub LOAD(KundenNr, OffertenNr, loadPos)
|
||||
Try
|
||||
POSITIONEN.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM Offerten WHERE KundenNr=@KundenNr AND OffertenNr=@OffertenNr ", conn)
|
||||
cmd.Parameters.AddWithValue("@KundenNr", KundenNr)
|
||||
cmd.Parameters.AddWithValue("@OffertenNr", OffertenNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
'Dim l As New cOfferte
|
||||
For Each i In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(i.Scalarvariable)
|
||||
If dr.Item(i.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(i.Text))
|
||||
End If
|
||||
Next
|
||||
If loadPos Then LOAD_POSITIONEN()
|
||||
End If
|
||||
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 Sub LOAD_POSITIONEN()
|
||||
Try
|
||||
POSITIONEN.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM Offertenpositionen WHERE KundenNr=@KundenNr and OffertenNr=@OffertenNr ", conn)
|
||||
cmd.Parameters.AddWithValue("@KundenNr", Me.KundenNr)
|
||||
cmd.Parameters.AddWithValue("@OffertenNr", Me.OffertenNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cOffertPosition
|
||||
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
|
||||
POSITIONEN.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 INSERT() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM Offerten WITH(updlock,serializable) WHERE KundenNr=@KundenNr and OffertenNr=@OffertenNr ) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Me.Eingegeben_am = Now
|
||||
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 Offerten (" & 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
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [Offerten] SET " & str & " WHERE KundenNr=@KundenNr and OffertenNr=@OffertenNr ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
Function RESET_STANDARTOFFERTEN(Sachbearbeiter) As Boolean
|
||||
'Zuserst alle OffertenPos von dem Offert löschen
|
||||
If SQL.doSQL("DELETE FROM [Offertenpositionen] WHERE KundenNr=" & Me.KundenNr & " and OffertenNr=" & Me.OffertenNr, "FMZOLL") Then
|
||||
'jetzt die Standartofferten einfügen
|
||||
For Each r In SQL.loadDgvBySql("SELECT * FROM [Standardofferten] WHERE [OffertenNr]=" & Me.OffertenNr, "FMZOLL").Rows
|
||||
Dim P As New cOffertPosition()
|
||||
Dim Leistung As New cLeistungen(r("LeistungsNr"))
|
||||
|
||||
|
||||
P.KundenNr = Me.KundenNr
|
||||
P.OffertenNr = Me.OffertenNr
|
||||
|
||||
P.LeistungsNr = r("LeistungsNr")
|
||||
P.LeistungsBez = r("LeistungsBez")
|
||||
P.BerechnungsartNr = Leistung.BerechnungsartNr
|
||||
P.Preis = r("Preis")
|
||||
P.Anzahl = r("Anzahl")
|
||||
P.BGebLeistungsNr = r("BGebLeistungsNr")
|
||||
P.BGebProzent = r("BGebProzent")
|
||||
P.BGebMinBetrag = r("BGebMinBetrag")
|
||||
P.Eingegeben_am = Now
|
||||
'P.Geändert_am = XXXXXXXXX
|
||||
If r("BerechnungsartPosInkludiert") IsNot DBNull.Value Then P.BerechnungsartPosInkludiert = r("BerechnungsartPosInkludiert")
|
||||
If r("BerechnungsartNr") IsNot DBNull.Value Then P.BerechnungsartNr = r("BerechnungsartNr") 'Falls hier, dann übernommen, sonst von Leistung
|
||||
P.Sachbearbeiter = Sachbearbeiter
|
||||
'P.Preisänderung = XXXXXXXXX
|
||||
'P.PreisänderungProzent = XXXXXXXXX
|
||||
'P.PreisAlt = XXXXXXXXX
|
||||
If Not P.INSERT() Then
|
||||
Return False
|
||||
End If
|
||||
Next
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
Return True
|
||||
End Function
|
||||
Public Function RESET_STANDARTOFFERTEN_FIRMA(Sachbearbeiter, Firma) As Boolean
|
||||
If Firma = "" Or Firma = "VERAG" Then
|
||||
Return RESET_STANDARTOFFERTEN(Sachbearbeiter)
|
||||
Else
|
||||
|
||||
'Zuserst alle OffertenPos von dem Offert löschen
|
||||
If SQL.doSQL("DELETE FROM [Offertenpositionen] WHERE KundenNr=" & Me.KundenNr & " and OffertenNr=" & Me.OffertenNr, "FMZOLL") Then
|
||||
'jetzt die Standartofferten einfügen
|
||||
For Each r In SQL.loadDgvBySql("SELECT * FROM [StandardoffertenFirma] WHERE Firma='" & Firma & "' AND [OffertenNr]=" & Me.OffertenNr, "FMZOLL").Rows
|
||||
Dim P As New cOffertPosition()
|
||||
Dim Leistung As New cLeistungen(r("LeistungsNr"))
|
||||
|
||||
|
||||
P.KundenNr = Me.KundenNr
|
||||
P.OffertenNr = Me.OffertenNr
|
||||
|
||||
P.LeistungsNr = r("LeistungsNr")
|
||||
P.LeistungsBez = r("LeistungsBez")
|
||||
P.BerechnungsartNr = Leistung.BerechnungsartNr
|
||||
P.Preis = r("Preis")
|
||||
P.Anzahl = r("Anzahl")
|
||||
P.BGebLeistungsNr = r("BGebLeistungsNr")
|
||||
P.BGebProzent = r("BGebProzent")
|
||||
P.BGebMinBetrag = r("BGebMinBetrag")
|
||||
P.Eingegeben_am = Now
|
||||
'P.Geändert_am = XXXXXXXXX
|
||||
P.Sachbearbeiter = Sachbearbeiter
|
||||
If r("BerechnungsartPosInkludiert") IsNot DBNull.Value Then P.BerechnungsartPosInkludiert = r("BerechnungsartPosInkludiert")
|
||||
If r("BerechnungsartNr") IsNot DBNull.Value Then P.BerechnungsartNr = r("BerechnungsartNr") 'Falls hier, dann übernommen, sonst von Leistung
|
||||
'P.Preisänderung = XXXXXXXXX
|
||||
'P.PreisänderungProzent = XXXXXXXXX
|
||||
'P.PreisAlt = XXXXXXXXX
|
||||
If Not P.INSERT() Then
|
||||
Return False
|
||||
End If
|
||||
Next
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
Return True
|
||||
End If
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
Public Class cOffertPosition
|
||||
Property KundenNr As Object = Nothing
|
||||
Property OffertenNr As Object = Nothing
|
||||
Property LeistungsNr As Object = Nothing
|
||||
Property LeistungsBez As Object = Nothing
|
||||
Property BerechnungsartNr As Object = Nothing
|
||||
Property Preis As Object = Nothing
|
||||
Property Anzahl As Object = Nothing
|
||||
Property BGebLeistungsNr As Object = Nothing
|
||||
Property BGebProzent As Object = Nothing
|
||||
Property BGebMinBetrag As Object = Nothing
|
||||
Property Eingegeben_am As Object = Nothing
|
||||
Property Geändert_am As Object = Nothing
|
||||
Property Sachbearbeiter As Object = Nothing
|
||||
Property Preisänderung As Object = Nothing
|
||||
Property PreisänderungProzent As Object = Nothing
|
||||
Property PreisAlt As Object = Nothing
|
||||
Property BerechnungsartPosInkludiert As Object = Nothing
|
||||
|
||||
Dim SQL As New 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("KundenNr", KundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("OffertenNr", OffertenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LeistungsNr", LeistungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LeistungsBez", LeistungsBez))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BerechnungsartNr", BerechnungsartNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Preis", Preis))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Anzahl", Anzahl))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BGebLeistungsNr", BGebLeistungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BGebProzent", BGebProzent))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BGebMinBetrag", BGebMinBetrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Eingegeben am", Eingegeben_am, "Eingegeben_am"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Geändert am", Geändert_am, "Geändert_am"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachbearbeiter", Sachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Preisänderung", Preisänderung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PreisänderungProzent", PreisänderungProzent))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PreisAlt", PreisAlt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BerechnungsartPosInkludiert", BerechnungsartPosInkludiert))
|
||||
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)
|
||||
End Function
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Me.Eingegeben_am = Now
|
||||
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 Offertenpositionen (" & 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
|
||||
84
SDL/VERAG_PROG_ALLGEMEIN/Classes/cPDFWriteValues.vb
Normal file
84
SDL/VERAG_PROG_ALLGEMEIN/Classes/cPDFWriteValues.vb
Normal file
@@ -0,0 +1,84 @@
|
||||
|
||||
Public Class cPDFWriteValues
|
||||
Private sText As String
|
||||
Private X As Double
|
||||
Private Y As Double
|
||||
Private width As Double
|
||||
Private height As Double
|
||||
Private mfont As String
|
||||
Private mSize As Integer
|
||||
Private maxlength As Integer = -1
|
||||
Private align As Integer = iTextSharp.text.Element.ALIGN_LEFT 'PdfContentByte.ALIGN_LEFT
|
||||
|
||||
|
||||
Public Sub New(ByVal sText As String, ByVal X As Double, ByVal Y As Double, ByVal width As Double, ByVal height As Double, ByVal mfont As String, ByVal mSize As Integer, Optional ByVal maxlength As Integer = -1, Optional ByVal align As Integer = iTextSharp.text.Element.ALIGN_LEFT)
|
||||
Me.sText = sText
|
||||
Me.X = X
|
||||
Me.Y = Y
|
||||
Me.width = width
|
||||
Me.height = height
|
||||
Me.mfont = mfont
|
||||
Me.mSize = mSize
|
||||
Me.maxlength = maxlength
|
||||
Me.align = align
|
||||
End Sub
|
||||
|
||||
Public ReadOnly Property Text() As Object
|
||||
Get
|
||||
Return sText
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public ReadOnly Property getX() As Object
|
||||
Get
|
||||
Return X
|
||||
End Get
|
||||
End Property
|
||||
Public ReadOnly Property getY() As Object
|
||||
Get
|
||||
Return Y
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public ReadOnly Property getWidth() As Object
|
||||
Get
|
||||
Return width
|
||||
End Get
|
||||
End Property
|
||||
Public ReadOnly Property getHeight() As Object
|
||||
Get
|
||||
Return height
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public ReadOnly Property font() As Object
|
||||
Get
|
||||
Return mfont
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public ReadOnly Property Size() As Object
|
||||
Get
|
||||
Return mSize
|
||||
End Get
|
||||
End Property
|
||||
Public ReadOnly Property getMaxlength() As Object
|
||||
Get
|
||||
Return maxlength
|
||||
End Get
|
||||
End Property
|
||||
Public ReadOnly Property getAlign() As Object
|
||||
Get
|
||||
Return align
|
||||
End Get
|
||||
End Property
|
||||
|
||||
' Public Overrides Function ToString() As Object
|
||||
' Return mText
|
||||
' End Function
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
105
SDL/VERAG_PROG_ALLGEMEIN/Classes/cParameter.vb
Normal file
105
SDL/VERAG_PROG_ALLGEMEIN/Classes/cParameter.vb
Normal file
@@ -0,0 +1,105 @@
|
||||
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cParameterList
|
||||
Property ProgId As Object = Nothing
|
||||
Property firma As Object = Nothing
|
||||
' Property OffertenNr As Object = Nothing
|
||||
Public LIST As New List(Of cParameter)
|
||||
Dim SQL As New SQL
|
||||
'Dim listTodelete As New List(Of cOfferte)
|
||||
|
||||
Sub New(ProgId)
|
||||
Me.ProgId = ProgId
|
||||
' Me.OffertenNr = OffertenNr
|
||||
LOAD_LIST(Me.ProgId)
|
||||
End Sub
|
||||
Sub New(ProgId, firma)
|
||||
Me.ProgId = ProgId
|
||||
Me.firma = firma
|
||||
' Me.OffertenNr = OffertenNr
|
||||
LOAD_LIST(Me.ProgId, Me.firma)
|
||||
End Sub
|
||||
|
||||
Public Sub CLEAR()
|
||||
LIST.Clear()
|
||||
End Sub
|
||||
Public Sub ADD(eb_EMail As String, Optional cc As Boolean = False, Optional bcc As Boolean = False)
|
||||
' Dim l As New cOfferte
|
||||
'l.eb_bcc = bcc
|
||||
'LIST.Add(l)
|
||||
End Sub
|
||||
|
||||
Public Sub LOAD_LIST(KundenNr, Optional firma = Nothing)
|
||||
Try
|
||||
LIST.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN
|
||||
Using cmd As New SqlCommand("SELECT * FROM [tblParameter] WHERE progId IN (0,@ProgId) " & If(firma IsNot Nothing, " AND firma=@firma", ""), conn)
|
||||
cmd.Parameters.AddWithValue("@ProgId", ProgId)
|
||||
cmd.Parameters.AddWithValue("@firma", firma)
|
||||
' cmd.Parameters.AddWithValue("@OffertenNr", OffertenNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cParameter
|
||||
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
|
||||
LIST.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 GET_PARAMETER_VALUE(param As String) As String
|
||||
For Each p In LIST
|
||||
If p.bezeichnung = param Then
|
||||
Return p.wert
|
||||
End If
|
||||
Next
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
Public Function GET_PARAMETER_VALUE_BOOL(param As String) As Boolean
|
||||
For Each p In LIST
|
||||
If p.bezeichnung = param Then
|
||||
Return (p.wert = "1" Or p.wert = "true")
|
||||
End If
|
||||
Next
|
||||
Return False
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
Public Class cParameter
|
||||
Property Id As Integer
|
||||
Property bezeichnung As String
|
||||
Property wert As String
|
||||
Property firma As Object = Nothing
|
||||
Property beschreibung As Object = Nothing
|
||||
Property progId As Object = Nothing
|
||||
|
||||
|
||||
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("Id", Id,, True, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bezeichnung", bezeichnung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wert", wert))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("firma", firma))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("beschreibung", beschreibung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("progId", progId))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
End Class
|
||||
203
SDL/VERAG_PROG_ALLGEMEIN/Classes/cPostversand.vb
Normal file
203
SDL/VERAG_PROG_ALLGEMEIN/Classes/cPostversand.vb
Normal file
@@ -0,0 +1,203 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
|
||||
Public Class cPostversand
|
||||
|
||||
|
||||
Property post_id As Integer = -1
|
||||
Property post_AvisoId As Object = Nothing ' INT NULL,
|
||||
Property post_SendungsId As Object = Nothing ' INT NULL,
|
||||
Property post_FilialenNr As Object = Nothing ' INT NULL,
|
||||
Property post_AbfertigungsNr As Object = Nothing ' INT NULL,
|
||||
Property post_art As Object = Nothing ' VARCHAR(200) Not NULL,
|
||||
Property post_Empfaenger_Name1 As Object = Nothing ' VARCHAR(40) Not NULL,
|
||||
Property post_Empfaenger_Name2 As Object = Nothing ' VARCHAR(40) NULL,
|
||||
Property post_Empfaenger_Adresse1 As Object = Nothing ' VARCHAR(40) Not NULL,
|
||||
Property post_Empfaenger_Adresse2 As Object = Nothing ' VARCHAR(60) Not NULL,
|
||||
Property post_Empfaenger_Adresse3 As Object = Nothing ' VARCHAR(40) NULL,
|
||||
Property post_ReferenzPaketdienst As Object = Nothing ' VARCHAR(200) NULL,
|
||||
Property post_ContainerLKWNr As Object = Nothing ' VARCHAR(200) Not NULL,
|
||||
Property post_Datum As Object = Nothing ' DATETIME Default (getdate()) Not NULL,
|
||||
Property post_Sachbearbeiter As Object = Nothing ' VARCHAR(200) Not NULL,
|
||||
Property post_SachbearbeiterId As Object = Nothing ' INT Not NULL,
|
||||
Property post_FirmaInAuftragKdnr As Object = Nothing ' INT NULL,
|
||||
Property post_FirmaInAuftrag As Object = Nothing ' VARCHAR(200) NULL,
|
||||
Property post_Rolle As Object = Nothing ' VARCHAR(200) NULL,
|
||||
'Property post_LKW As Object = Nothing ' VARCHAR(200) NULL,
|
||||
Property post_Empfaenger_KdNr As Object = Nothing ' VARCHAR(200) NULL,
|
||||
' Property post_Rolle As Object = Nothing ' VARCHAR(200) NULL,
|
||||
|
||||
|
||||
|
||||
Property post_KdAuftrNrAvisierer As Object = Nothing
|
||||
Property post_RgEmpfaenger_KdNr As Object = Nothing
|
||||
Property post_RgEmpfaenger_Name As Object = Nothing
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
Sub New(post_id)
|
||||
Me.post_id = post_id
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
Public 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("post_id", post_id, , True, True))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_AvisoId", post_AvisoId)) ' INT NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_SendungsId", post_SendungsId)) ' INT NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_FilialenNr", post_FilialenNr)) ' INT NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_AbfertigungsNr", post_AbfertigungsNr)) ' INT NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_art", post_art)) ' VARCHAR(200) Not NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_Empfaenger_Name1", post_Empfaenger_Name1)) ' VARCHAR(40) Not NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_Empfaenger_Name2", post_Empfaenger_Name2)) ' VARCHAR(40) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_Empfaenger_Adresse1", post_Empfaenger_Adresse1)) 'VARCHAR(40) Not NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_Empfaenger_Adresse2", post_Empfaenger_Adresse2)) 'VARCHAR(60) Not NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_Empfaenger_Adresse3", post_Empfaenger_Adresse3)) ' VARCHAR(40) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_ReferenzPaketdienst", post_ReferenzPaketdienst)) ' VARCHAR(200) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_ContainerLKWNr", post_ContainerLKWNr)) '# VARCHAR(200) Not NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_Datum", post_Datum)) ' DATETIME Default (getdate()) Not NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_Sachbearbeiter", post_Sachbearbeiter)) ' VARCHAR(200) Not NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_SachbearbeiterId", post_SachbearbeiterId)) ' INT Not NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_FirmaInAuftragKdnr", post_FirmaInAuftragKdnr)) ' INT NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_FirmaInAuftrag", post_FirmaInAuftrag)) ' VARCHAR(200) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_Rolle", post_Rolle)) ' VARCHAR(200) NULL,
|
||||
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_LKW", post_LKW)) ' VARCHAR(200) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_Empfaenger_KdNr", post_Empfaenger_KdNr)) ' VARCHAR(200) NULL,
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_KdAuftrNrAvisierer", post_KdAuftrNrAvisierer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_RgEmpfaenger_KdNr", post_RgEmpfaenger_KdNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("post_RgEmpfaenger_Name", post_RgEmpfaenger_Name))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Shared Function LOADByFilialeAbfNr(FilialeNr As Integer, AbfertigungsNr As Integer, Optional post_Rolle As String = "") As cPostversand
|
||||
Try
|
||||
Dim VK As New cPostversand
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblPostversand WHERE post_AbfertigungsNr=@post_AbfertigungsNr AND post_FilialenNr=@post_FilialenNr " & If(If(post_Rolle, "") <> "", "AND post_Rolle=@post_Rolle ", ""), conn)
|
||||
cmd.Parameters.AddWithValue("@post_FilialenNr", FilialeNr)
|
||||
cmd.Parameters.AddWithValue("@post_AbfertigungsNr", AbfertigungsNr)
|
||||
cmd.Parameters.AddWithValue("@post_Rolle", post_Rolle)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In VK.getParameterList()
|
||||
Dim propInfo As PropertyInfo = VK.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(VK, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(VK, dr.Item(l.Text))
|
||||
End If
|
||||
Next
|
||||
dr.Close()
|
||||
Return VK
|
||||
End If
|
||||
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
|
||||
Return Nothing
|
||||
End Function
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblPostversand WITH(updlock,serializable) WHERE post_id=@post_id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
post_id = SQL.doSQLVarListID(post_id, sqlstr, "FMZOLL", , list)
|
||||
Return post_id > 0
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblPostversand WHERE post_id=@post_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@post_id", post_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
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 getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblPostversand] SET " & str & " WHERE post_id=@post_id ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 tblPostversand (" & 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
|
||||
|
||||
|
||||
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblPostversand] WITH(updlock,serializable) WHERE post_id=" & Me.post_id
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
254
SDL/VERAG_PROG_ALLGEMEIN/Classes/cProgrammeUpdate.vb
Normal file
254
SDL/VERAG_PROG_ALLGEMEIN/Classes/cProgrammeUpdate.vb
Normal file
@@ -0,0 +1,254 @@
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cProgrammeUpdate
|
||||
Property pud_progId As Object = Nothing
|
||||
Property pud_codename As String
|
||||
Property pud_version As String
|
||||
Property pud_fileName As String
|
||||
Property pud_filePathFolder As Object = Nothing
|
||||
Property pud_datum As Date = Now
|
||||
|
||||
Property pud_file_Verion As String
|
||||
Property pud_file_Date As Date
|
||||
Property pud_file_Size As Integer
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
|
||||
Shared Function getParameterList(UD As cProgrammeUpdate) As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pud_progId", UD.pud_progId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pud_codename", UD.pud_codename))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pud_version", UD.pud_version))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pud_fileName", UD.pud_fileName))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pud_filePathFolder", UD.pud_filePathFolder))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pud_datum", UD.pud_datum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pud_file_Verion", UD.pud_file_Verion))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pud_file_Date", UD.pud_file_Date))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pud_file_Size", UD.pud_file_Size))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList(Me)
|
||||
Return SQL.doSQLVarList(getInsertCmd, "ADMIN", , list)
|
||||
End Function
|
||||
|
||||
Public Shared Function LOAD_AKT_LIST(pud_progId) As List(Of cProgrammeUpdate)
|
||||
Dim LIST As New List(Of cProgrammeUpdate)
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblProgrammeUpdate WHERE pud_progId=@pud_progId AND pud_version=(SELECT TOP (1) pud_version FROM tblProgrammeUpdate WHERE pud_progId=@pud_progId order by pud_version DESC) ", conn)
|
||||
cmd.Parameters.AddWithValue("@pud_progId", pud_progId)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim UD As New cProgrammeUpdate
|
||||
For Each l In cProgrammeUpdate.getParameterList(UD)
|
||||
Dim propInfo As PropertyInfo = UD.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(UD, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(UD, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
LIST.Add(UD)
|
||||
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
|
||||
Return LIST
|
||||
End Function
|
||||
|
||||
Public Shared Function SAVE_LIST(pud_progId As Integer, pud_version As String, pud_codename As String, LIST As List(Of cProgrammeUpdate)) As Boolean
|
||||
Dim SQL As New SQL
|
||||
SQL.doSQL("DELETE FROM tblProgrammeUpdate WHERE pud_version='" & pud_version & "'", "ADMIN")
|
||||
SAVE_LIST = True
|
||||
For Each UD In LIST
|
||||
UD.pud_progId = pud_progId
|
||||
UD.pud_version = pud_version
|
||||
UD.pud_codename = pud_codename
|
||||
If Not UD.SAVE() Then SAVE_LIST = False
|
||||
Next
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList(Me)
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblProgrammeUpdate] SET " & str & " WHERE gb_nr=@gb_nr ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList(Me)
|
||||
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 tblProgrammeUpdate (" & 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
|
||||
|
||||
|
||||
Public Shared Function isNewFile(ByRef file As VERAG_PROG_ALLGEMEIN.cProgrammeUpdate, LIST_DEST As List(Of VERAG_PROG_ALLGEMEIN.cProgrammeUpdate)) As Boolean
|
||||
For Each l In LIST_DEST
|
||||
If l.pud_filePathFolder = file.pud_filePathFolder And l.pud_fileName = file.pud_fileName And l.pud_file_Size = file.pud_file_Size And l.pud_file_Date = file.pud_file_Date Then
|
||||
Return False
|
||||
End If
|
||||
Next
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Public Shared Function isOldFile(ByRef file As VERAG_PROG_ALLGEMEIN.cProgrammeUpdate, LIST_SOURCE As List(Of VERAG_PROG_ALLGEMEIN.cProgrammeUpdate)) As Boolean
|
||||
For Each l In LIST_SOURCE
|
||||
If l.pud_filePathFolder = file.pud_filePathFolder And l.pud_fileName = file.pud_fileName And l.pud_file_Size = file.pud_file_Size And l.pud_file_Date = file.pud_file_Date Then
|
||||
Return False
|
||||
End If
|
||||
Next
|
||||
Return True
|
||||
End Function
|
||||
|
||||
|
||||
Public Shared Function copyProgramLIST(ByRef sourcePfad As String, ByVal destPfad As String, ignoreFilesBeginWith As String()) As Boolean
|
||||
Try
|
||||
|
||||
If destPfad.Trim = "" Then Return False
|
||||
If sourcePfad.Trim = "" Then Return False
|
||||
|
||||
If Not My.Computer.FileSystem.DirectoryExists(sourcePfad) Then
|
||||
MsgBox("ERROR_COPY_01: Quell-Ordner existiert nicht.", MsgBoxStyle.Critical, "ERROR") : Return False
|
||||
End If
|
||||
' MsgBox(destPfad)
|
||||
If Not My.Computer.FileSystem.DirectoryExists(destPfad) Then
|
||||
MsgBox("ERROR_COPY_02: Ziel-Ordner existiert nicht.", MsgBoxStyle.Critical, "ERROR") : Return False
|
||||
End If
|
||||
|
||||
Dim LIST_SOURCE As New List(Of VERAG_PROG_ALLGEMEIN.cProgrammeUpdate)
|
||||
Dim dirNameReplace_SOURCE = ""
|
||||
Dim DI_SOURCE As New IO.DirectoryInfo(sourcePfad)
|
||||
RekursivGetFiles(DI_SOURCE, dirNameReplace_SOURCE, LIST_SOURCE, {})
|
||||
|
||||
Dim LIST_DEST As New List(Of VERAG_PROG_ALLGEMEIN.cProgrammeUpdate)
|
||||
Dim dirNameReplace_DEST = ""
|
||||
Dim DI_DEST As New IO.DirectoryInfo(destPfad)
|
||||
RekursivGetFiles(DI_DEST, dirNameReplace_DEST, LIST_DEST, ignoreFilesBeginWith)
|
||||
|
||||
If LIST_SOURCE.Count = 0 Then
|
||||
MsgBox("ERROR_COPY_01: Quell-Daten existiert nicht.", MsgBoxStyle.Critical, "ERROR") : Return False
|
||||
End If
|
||||
'If LIST_DEST.Count = 0 Then
|
||||
' MsgBox("ERROR_COPY_02: Ziel-Daten existiert nicht.", MsgBoxStyle.Critical, "ERROR") : Return False
|
||||
'End If
|
||||
|
||||
'ORDNER erstellen:
|
||||
For Each f In LIST_SOURCE
|
||||
If If(f.pud_filePathFolder, "") <> "" Then
|
||||
If Not IO.Directory.Exists(dirNameReplace_DEST & "\" & f.pud_filePathFolder) Then '.Replace("\\", "\")
|
||||
IO.Directory.CreateDirectory(dirNameReplace_DEST & "\" & f.pud_filePathFolder) '.Replace("\\", "\")
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
'Löschen der unbenötigten Files:
|
||||
For Each f In LIST_DEST
|
||||
If isOldFile(f, LIST_SOURCE) Then
|
||||
IO.File.Delete(dirNameReplace_DEST & "\" & If(f.pud_filePathFolder, "") & "\" & f.pud_fileName) '.Replace("\\", "\")
|
||||
End If
|
||||
Next
|
||||
|
||||
If dirNameReplace_DEST = "" Then dirNameReplace_DEST = destPfad
|
||||
'Kopieren/Überschreiben der neuen Files:
|
||||
For Each f In LIST_SOURCE
|
||||
If isNewFile(f, LIST_DEST) Then
|
||||
Dim s_path = dirNameReplace_SOURCE & "\" & If(f.pud_filePathFolder, "") & "\" & f.pud_fileName '.Replace("\\", "\")
|
||||
Dim d_path = dirNameReplace_DEST & "\" & If(f.pud_filePathFolder, "") & "\" & f.pud_fileName '.Replace("\\", "\")
|
||||
d_path = d_path '.replace("\\", "\")
|
||||
IO.File.Copy(s_path, d_path)
|
||||
End If
|
||||
Next
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
Return False
|
||||
End Try
|
||||
' If isNewFile(destPfad) Then Return FileCopier(sourcePfad, destPfad)
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Public Shared Function fileStartsWith(fileName As String, ignoreFilesBeginWith As String())
|
||||
For Each s In ignoreFilesBeginWith
|
||||
If fileName.StartsWith(s) Then Return True
|
||||
Next
|
||||
Return False
|
||||
End Function
|
||||
Public Shared Sub RekursivGetFiles(ByVal oDir As IO.DirectoryInfo, ByRef dirNameReplace As String, ByRef LIST As List(Of VERAG_PROG_ALLGEMEIN.cProgrammeUpdate), ignoreFilesBeginWith As String())
|
||||
Dim oSubDir As IO.DirectoryInfo
|
||||
Dim FI As IO.FileInfo
|
||||
|
||||
' zunächst alle Dateien des Ordners aufspüren
|
||||
For Each FI In oDir.GetFiles()
|
||||
If Not fileStartsWith(FI.Name, ignoreFilesBeginWith) Then 'DATEIEN beginnen mit betimmten Namen, z.B. UPDATER
|
||||
|
||||
|
||||
' Dim FI As New IO.FileInfo(oFile)
|
||||
If dirNameReplace = "" Then
|
||||
dirNameReplace = FI.DirectoryName
|
||||
End If
|
||||
|
||||
Dim UD As New VERAG_PROG_ALLGEMEIN.cProgrammeUpdate
|
||||
UD.pud_fileName = FI.Name
|
||||
UD.pud_filePathFolder = FI.DirectoryName.Replace(dirNameReplace, "")
|
||||
If UD.pud_filePathFolder = "" Then UD.pud_filePathFolder = Nothing
|
||||
UD.pud_file_Size = FI.Length
|
||||
UD.pud_file_Date = FI.LastWriteTime
|
||||
UD.pud_file_Verion = "" 'FI.
|
||||
LIST.Add(UD)
|
||||
|
||||
End If
|
||||
'With oFile
|
||||
' ListBox1.Items.Add(.DirectoryName & "\" & .Name & vbTab &
|
||||
' .Length & vbTab & .LastWriteTime)
|
||||
'End With
|
||||
Next
|
||||
|
||||
' Jetzt alle Unterverzeichnis durchlaufen
|
||||
' und die Prozedur rekursiv selbst aufrufen
|
||||
For Each oSubDir In oDir.GetDirectories()
|
||||
RekursivGetFiles(oSubDir, dirNameReplace, LIST, {})
|
||||
Next
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
247
SDL/VERAG_PROG_ALLGEMEIN/Classes/cQSTeam.vb
Normal file
247
SDL/VERAG_PROG_ALLGEMEIN/Classes/cQSTeam.vb
Normal file
@@ -0,0 +1,247 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
|
||||
Public Class cQSTeams
|
||||
Property LIST As New List(Of cQSTeam)
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
LOAD_LIST()
|
||||
End Sub
|
||||
|
||||
Public Sub LOAD_LIST()
|
||||
Try
|
||||
LIST.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT qstm_Id FROM [tblQS_Teams] ", conn)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cQSTeam(dr.Item("qstm_Id"))
|
||||
LIST.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 getTeamById(id)
|
||||
For Each T In LIST
|
||||
If T.qstm_Id = id Then
|
||||
Return T
|
||||
End If
|
||||
Next
|
||||
Return Nothing
|
||||
End Function
|
||||
|
||||
Public Shared Function genNewTeam(teamName) As Boolean
|
||||
If teamName = "" Then Return False
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("INSERT INTO [tblQS_Teams] ([qstm_bezeichnung]) VALUES('" & teamName & "') ", conn)
|
||||
cmd.ExecuteNonQuery()
|
||||
Return True
|
||||
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
|
||||
Return False
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
Public Class cQSTeam
|
||||
|
||||
Property qstm_Id As Integer = -1
|
||||
Property qstm_bezeichnung As String
|
||||
|
||||
Property MEMBER As New List(Of cQSTeamMA)
|
||||
|
||||
|
||||
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("qstm_Id", qstm_Id, , True, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("qstm_bezeichnung", qstm_bezeichnung))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Sub New(qstm_Id)
|
||||
Me.qstm_Id = qstm_Id
|
||||
LOAD(qstm_Id)
|
||||
End Sub
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Sub LOAD(qstm_Id)
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM [tblQS_Teams] WHERE qstm_Id=@qstm_Id ", conn)
|
||||
cmd.Parameters.AddWithValue("@qstm_Id", qstm_Id)
|
||||
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
LOAD_POSITIONEN()
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
'Return Nothing
|
||||
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 Nothing
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
Public Sub LOAD_POSITIONEN()
|
||||
Try
|
||||
MEMBER.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM [tblQS_TeamsMA] WHERE qtma_QstmId=@qtma_QstmId ", conn)
|
||||
cmd.Parameters.AddWithValue("@qtma_QstmId", qstm_Id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cQSTeamMA
|
||||
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
|
||||
MEMBER.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
|
||||
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
Public Class cQSTeamMA
|
||||
|
||||
Property qtma_Id As Integer = -1
|
||||
Property qtma_QstmId As Integer
|
||||
Property qtma_MaId As Integer
|
||||
Property qtma_name As String = ""
|
||||
Property qtma_funktion As Object = Nothing
|
||||
|
||||
Dim SQL As New SQL
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
Sub New(qtma_Id)
|
||||
Me.qtma_Id = qtma_Id
|
||||
LOAD(qtma_Id)
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
Public Sub LOAD(qtma_Id)
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM [tblQS_TeamsMA] WHERE qtma_Id=@qtma_Id ", conn)
|
||||
cmd.Parameters.AddWithValue("@qtma_Id", qtma_Id)
|
||||
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
'Return Nothing
|
||||
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 Nothing
|
||||
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("qtma_Id", qtma_Id, , True, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("qtma_QstmId", qtma_QstmId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("qtma_MaId", qtma_MaId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("qtma_name", qtma_name))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("qtma_funktion", qtma_funktion))
|
||||
|
||||
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)
|
||||
End Function
|
||||
|
||||
|
||||
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblQS_TeamsMA] WITH(updlock,serializable) WHERE qtma_Id=" & Me.qtma_Id
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
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 tblQS_TeamsMA (" & 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
|
||||
33
SDL/VERAG_PROG_ALLGEMEIN/Classes/cRKSV_DE.vb
Normal file
33
SDL/VERAG_PROG_ALLGEMEIN/Classes/cRKSV_DE.vb
Normal file
@@ -0,0 +1,33 @@
|
||||
Imports System.Threading
|
||||
|
||||
Public Class cRKSV_DE
|
||||
Sub SignRKSV_DE()
|
||||
|
||||
Dim SC As New cServerClient_RKSV_DE
|
||||
|
||||
|
||||
Try
|
||||
Dim sendString = "RKSV_DE"
|
||||
|
||||
SC.begin("192.168.0.90", sendString, {"VERAG_DE"}) '192.168.0.90 = Developer
|
||||
|
||||
SC.waitTillFinished()
|
||||
Thread.Sleep(100)
|
||||
|
||||
If SC.status = "TaskSuccess" Then
|
||||
MsgBox("OK") '& vbNewLine & SC.ev.Message)
|
||||
Else
|
||||
MsgBox("FEHLER!")
|
||||
'MsgBox(SC.ev.Message)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
637
SDL/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb
Normal file
637
SDL/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb
Normal file
@@ -0,0 +1,637 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cRechnungsausgang
|
||||
|
||||
Property RK_ID As Integer
|
||||
Property FilialenNr As Integer
|
||||
Property AbfertigungsNr As Integer
|
||||
Property UnterNr As Integer = -1
|
||||
Property Abfertigungsdatum As Date
|
||||
Property RechnungsNr As Object = Nothing
|
||||
Property RechnungsDatum As Object = Nothing
|
||||
Property Sammelrechnung As Integer
|
||||
Property BelegartenNr As Integer = 70 'Nothing
|
||||
Property BelegartenKz As String = ""
|
||||
Property BelegartenBez As String = ""
|
||||
Property Vorzeichen As String = ""
|
||||
Property BelegNr As Object = Nothing
|
||||
Property AbsenderLandKz As Object = Nothing
|
||||
Property AbsenderKundenNr As Object = Nothing
|
||||
Property AbsenderName_1 As Object = Nothing '!!!!
|
||||
Property AbsenderName_2 As Object = Nothing '!!!!
|
||||
Property AbsenderStraße As Object = Nothing
|
||||
Property AbsenderOrt As Object = Nothing
|
||||
Property AbsenderOffertenNr As Object = Nothing
|
||||
Property EmpfängerLandKz As Object = Nothing
|
||||
Property EmpfängerKundenNr As Object = Nothing
|
||||
Property EmpfängerName_1 As Object = Nothing '!!!!
|
||||
Property EmpfängerName_2 As Object = Nothing '!!!!
|
||||
Property EmpfängerStraße As Object = Nothing
|
||||
Property EmpfängerOrt As Object = Nothing
|
||||
Property EmpfängerOffertenNr As Object = Nothing
|
||||
Property VermittlerLandKz As Object = Nothing
|
||||
Property VermittlerKundenNr As Object = Nothing
|
||||
Property VermittlerName_1 As Object = Nothing '!!!!
|
||||
Property VermittlerName_2 As Object = Nothing '!!!!
|
||||
Property VermittlerStraße As Object = Nothing
|
||||
Property VermittlerOrt As Object = Nothing
|
||||
Property VermittlerOffertenNr As Object = Nothing
|
||||
Property Rechnung_an As Integer
|
||||
Property KundenNrZentrale As Object = Nothing
|
||||
Property RechnungsLandKz As Object = Nothing
|
||||
Property RechnungsKundenNr As Integer
|
||||
Property RechnungsName_1 As Object = Nothing '!!!!
|
||||
Property RechnungsName_2 As Object = Nothing '!!!!
|
||||
Property RechnungsStraße As Object = Nothing
|
||||
Property RechnungsOrt As Object = Nothing
|
||||
Property RechnungsUstIdKz As Object = Nothing
|
||||
Property RechnungsUstIdNr As Object = Nothing
|
||||
Property RechnungsUstIdGeprüft As Object = Nothing 'Date = CDate("01.01.2000")
|
||||
Property Lastschrift As Boolean = False
|
||||
Property Kunden_SVS As Boolean = False
|
||||
Property Steuerschlüssel As Integer
|
||||
Property Steuersatz_Proz As Double
|
||||
Property LKW_Kennzeichen As Object = Nothing '!!!!
|
||||
Property WährungsNr As Object = Nothing
|
||||
Property Wert As Object = Nothing
|
||||
Property Umrechnungskurs As Object = Nothing
|
||||
Property Packstücke_und_Warenbezeichnung As Object = Nothing '!!!!
|
||||
Property Vermerk As Object = Nothing
|
||||
Property Anlage_1 As Object = Nothing '!!!!
|
||||
Property Anlage_2 As Object = Nothing '!!!!
|
||||
Property Anlage_3 As Object = Nothing '!!!!
|
||||
Property Anlage_4 As Object = Nothing '!!!!
|
||||
Property Anlage_5 As Object = Nothing '!!!!
|
||||
Property Anlage_6 As Object = Nothing '!!!!
|
||||
Property OffertenNr As Object = Nothing
|
||||
Property Vorlageprovision_Proz As Object = Nothing '!!!!%
|
||||
Property Kreditaufwendungen_Proz As Object = Nothing '!!!!%
|
||||
Property Besonderheiten As Object = Nothing
|
||||
Property Vorkasse As Boolean = False
|
||||
Property Text As Object = Nothing
|
||||
Property SteuerpflichtigerGesamtbetrag As Decimal = 0
|
||||
Property SteuerfreierGesamtbetrag As Decimal = 0
|
||||
Property Status As Object = 0
|
||||
Property DruckDatumZeit As Object = Nothing
|
||||
Property Abfertigungskosten As Object = Nothing
|
||||
Property Vorkosten As Object = Nothing
|
||||
Property Erlös As Object = Nothing
|
||||
Property Buchungsjahr As Object = Nothing
|
||||
Property Währungscode As Object = "EUR"
|
||||
Property Sachbearbeiter As Object = Nothing
|
||||
Property Trdin As Boolean = False
|
||||
Property KartenNr As Object = Nothing
|
||||
Property RefFilialenNr As Object = Nothing
|
||||
Property RefAbfertigungsNr As Object = Nothing
|
||||
Property RefUnterNr As Object = Nothing
|
||||
Property Notiz As Object = Nothing
|
||||
Property Zucker_MRN_Nr As Object = Nothing
|
||||
Property Zucker_MRN_Datum As Object = Nothing
|
||||
Property Zucker_Aufschub As Object = Nothing
|
||||
Property ReErfZeitstempel As Object = Nothing
|
||||
Property Nettozahlungsziel As Object = Nothing
|
||||
Property Firma_ID As Integer = 0
|
||||
Property SpeditionsbuchUnterNr As Object = Nothing
|
||||
Property ErfassungsNr As Object = Nothing
|
||||
'Property upsize_ts As Object = Nothing
|
||||
Property AvisiererKundenNr As Object = Nothing
|
||||
Property Avisierer As Object = Nothing
|
||||
Property EMailRechnungstext As Object = Nothing
|
||||
Property AvisoID As Object = Nothing
|
||||
Property KdAuftragsNr As Object = Nothing
|
||||
Property Handling As Object = Nothing
|
||||
Property VorschauID As Object = Nothing
|
||||
Property Grenze As Object = Nothing
|
||||
Property RechnungSprache As Object = Nothing
|
||||
|
||||
|
||||
' FROM [VERAG as object=nothing.[dbo as object=nothing.[Rechnungsausgang as object=nothing
|
||||
|
||||
Public POSITIONEN As New List(Of cRechnungsausgangPositionen)
|
||||
Shared SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
Sub New(RK_ID)
|
||||
Me.RK_ID = RK_ID
|
||||
LOAD() : LOAD_POSITIONEN()
|
||||
End Sub
|
||||
|
||||
Sub New(FilialenNr, AbfertigungsNr)
|
||||
Me.FilialenNr = FilialenNr
|
||||
Me.AbfertigungsNr = AbfertigungsNr
|
||||
LOAD(FilialenNr, AbfertigungsNr)
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Function getMaxRGUnterNr() As Integer
|
||||
Return getMaxRGUnterNr(FilialenNr, AbfertigungsNr, SpeditionsbuchUnterNr)
|
||||
End Function
|
||||
|
||||
Public Shared Function getMaxRGUnterNr(FilialenNr As Integer, AbfertigungsNr As Integer, SpeditionsbuchUnterNr As Integer) As Integer
|
||||
' Dim Nr = SQL.getValueTxtBySql("Select isnull([UnterNr], -1) + 1 FROM [Rechnungsausgang] where [FilialenNr]='" & FilialenNr & "' And AbfertigungsNr='" & AbfertigungsNr & "' And SpeditionsbuchUnterNr='" & SpeditionsbuchUnterNr & "' ORDER BY [UnterNr] desc", "FMZOLL")
|
||||
Dim Nr = SQL.getValueTxtBySql("Select TOP 1 isnull([UnterNr], -1) + 1 FROM [Rechnungsausgang] where [FilialenNr]='" & FilialenNr & "' And AbfertigungsNr='" & AbfertigungsNr & "' ORDER BY [UnterNr] desc", "FMZOLL")
|
||||
Return If(IsNumeric(Nr), Nr, 0)
|
||||
End Function
|
||||
|
||||
|
||||
Public 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("RK_ID", RK_ID, , True, True))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNr", FilialenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", AbfertigungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UnterNr", UnterNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abfertigungsdatum", Abfertigungsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsNr", RechnungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsDatum", RechnungsDatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sammelrechnung", Sammelrechnung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BelegartenNr", BelegartenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BelegartenKz", BelegartenKz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BelegartenBez", BelegartenBez))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vorzeichen", Vorzeichen))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BelegNr", BelegNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbsenderLandKz", AbsenderLandKz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbsenderKundenNr", AbsenderKundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbsenderName 1", AbsenderName_1, "AbsenderName_1")) '!!!!
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbsenderName 2", AbsenderName_2, "AbsenderName_2")) '!!!!
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbsenderStraße", AbsenderStraße))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbsenderOrt", AbsenderOrt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbsenderOffertenNr", AbsenderOffertenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmpfängerLandKz", EmpfängerLandKz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmpfängerKundenNr", EmpfängerKundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmpfängerName 1", EmpfängerName_1, "EmpfängerName_1")) '!!!!
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmpfängerName 2", EmpfängerName_2, "EmpfängerName_2")) '!!!!
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmpfängerStraße", EmpfängerStraße))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmpfängerOrt", EmpfängerOrt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmpfängerOffertenNr", EmpfängerOffertenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VermittlerLandKz", VermittlerLandKz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VermittlerKundenNr", VermittlerKundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VermittlerName 1", VermittlerName_1, "VermittlerName_1")) '!!!!
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VermittlerName 2", VermittlerName_2, "VermittlerName_2")) '!!!!
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VermittlerStraße", VermittlerStraße))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VermittlerOrt", VermittlerOrt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VermittlerOffertenNr", VermittlerOffertenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechnung an", Rechnung_an, "Rechnung_an")) '!!!!
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KundenNrZentrale", KundenNrZentrale))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsLandKz", RechnungsLandKz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsKundenNr", RechnungsKundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsName 1", RechnungsName_1, "RechnungsName_1")) '!!!!
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsName 2", RechnungsName_2, "RechnungsName_2")) '!!!!
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsStraße", RechnungsStraße))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsOrt", RechnungsOrt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsUstIdKz", RechnungsUstIdKz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsUstIdNr", RechnungsUstIdNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsUstIdGeprüft", RechnungsUstIdGeprüft))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Lastschrift", Lastschrift))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kunden-SVS", Kunden_SVS, "Kunden_SVS")) '!!!!-
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuerschlüssel", Steuerschlüssel))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuersatz %", Steuersatz_Proz, "Steuersatz_Proz")) '!!!! %
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LKW Kennzeichen", LKW_Kennzeichen, "LKW_Kennzeichen")) '!!!!
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("WährungsNr", WährungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Wert", Wert))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Umrechnungskurs", Umrechnungskurs))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Packstücke und Warenbezeichnung", Packstücke_und_Warenbezeichnung, "Packstücke_und_Warenbezeichnung")) '!!!!
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vermerk", Vermerk))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Anlage 1", Anlage_1, "Anlage_1")) '!!!!
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Anlage 2", Anlage_2, "Anlage_2")) '!!!!
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Anlage 3", Anlage_3, "Anlage_3")) '!!!!
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Anlage 4", Anlage_4, "Anlage_4")) '!!!!
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Anlage 5", Anlage_5, "Anlage_5")) '!!!!
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Anlage 6", Anlage_6, "Anlage_6")) '!!!!
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("OffertenNr", OffertenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vorlageprovision %", Vorlageprovision_Proz, "Vorlageprovision_Proz")) '!!!!%
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kreditaufwendungen %", Kreditaufwendungen_Proz, "Kreditaufwendungen_Proz")) '!!!!%
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Besonderheiten", Besonderheiten))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vorkasse", Vorkasse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Text", Text))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SteuerpflichtigerGesamtbetrag", SteuerpflichtigerGesamtbetrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SteuerfreierGesamtbetrag", SteuerfreierGesamtbetrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Status", Status))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DruckDatumZeit", DruckDatumZeit))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abfertigungskosten", Abfertigungskosten))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vorkosten", Vorkosten))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Erlös", Erlös))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Buchungsjahr", Buchungsjahr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Währungscode", Währungscode))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachbearbeiter", Sachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Trdin", Trdin))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KartenNr", KartenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RefFilialenNr", RefFilialenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RefAbfertigungsNr", RefAbfertigungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RefUnterNr", RefUnterNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Notiz", Notiz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zucker_MRN_Nr", Zucker_MRN_Nr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zucker_MRN_Datum", Zucker_MRN_Datum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zucker_Aufschub", Zucker_Aufschub))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ReErfZeitstempel", ReErfZeitstempel))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Nettozahlungsziel", Nettozahlungsziel))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_ID", Firma_ID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SpeditionsbuchUnterNr", SpeditionsbuchUnterNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ErfassungsNr", ErfassungsNr))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AvisiererKundenNr", AvisiererKundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Avisierer", Avisierer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EMailRechnungstext", EMailRechnungstext))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AvisoID", AvisoID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KdAuftragsNr", KdAuftragsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Handling", Handling))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VorschauID", VorschauID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Grenze", Grenze))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungSprache", RechnungSprache))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Sub LOAD(FilialeNr As Integer, AbfertigungsNr As Integer, Optional loadPos As Boolean = True)
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM Rechnungsausgang WHERE FilialeNr=@FilialeNr AND AbfertigungsNr=@AbfertigungsNr ", conn)
|
||||
cmd.Parameters.AddWithValue("@FilialeNr", FilialeNr)
|
||||
cmd.Parameters.AddWithValue("@AbfertigungsNr", AbfertigungsNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
If loadPos Then LOAD_POSITIONEN()
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
doVorzeichen()
|
||||
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 Shared Function LOADByFilialeAbfNrsssasdssssssssss(FilialeNr As Integer, AbfertigungsNr As Integer) As cVorauskasse
|
||||
Try
|
||||
Dim VK As New cVorauskasse
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM Rechnungsausgang WHERE vk_AbfertigungsNr=@vk_AbfertigungsNr AND vk_FilialeNr=@vk_FilialeNr ", conn)
|
||||
cmd.Parameters.AddWithValue("@vk_FilialeNr", FilialeNr)
|
||||
cmd.Parameters.AddWithValue("@vk_AbfertigungsNr", AbfertigungsNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In VK.getParameterList()
|
||||
Dim propInfo As PropertyInfo = VK.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(VK, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(VK, dr.Item(l.Text))
|
||||
End If
|
||||
Next
|
||||
dr.Close()
|
||||
Return VK
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
'VOREZEICHENCNENCNECNENCN!!!
|
||||
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
|
||||
Return Nothing
|
||||
End Function
|
||||
|
||||
|
||||
Public Function SAVE(Optional saveAll As Boolean = True) As Boolean
|
||||
doVorzeichen()
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM Rechnungsausgang WHERE RK_ID=@RK_ID) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
RK_ID = SQL.doSQLVarListID(RK_ID, sqlstr, "FMZOLL", , list)
|
||||
|
||||
|
||||
If RK_ID > 0 Then
|
||||
doVorzeichenPOS()
|
||||
If saveAll Then SAVE_POSITIONEN(RK_ID) ' positionen speicehrn
|
||||
doVorzeichenPOS()
|
||||
End If
|
||||
doVorzeichen()
|
||||
Return RK_ID > 0
|
||||
End Function
|
||||
|
||||
Public Function SAVE_DruckDatumZeit() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim sqlstr = " UPDATE Rechnungsausgang SET DruckDatumZeit=@DruckDatumZeit WHERE RK_ID=@RK_ID "
|
||||
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
|
||||
Public Sub doVorzeichen()
|
||||
Dim vz = If(Vorzeichen = "-", -1, 1)
|
||||
Me.SteuerfreierGesamtbetrag *= vz
|
||||
Me.SteuerpflichtigerGesamtbetrag *= vz
|
||||
Me.Abfertigungskosten *= vz
|
||||
End Sub
|
||||
Public Sub doVorzeichenPOS()
|
||||
Dim vz = If(Vorzeichen = "-", -1, 1)
|
||||
For Each p In POSITIONEN
|
||||
p.doVorzeichen(Vorzeichen)
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Public Function CHECK_Validation(ByRef errMsg As String) As Boolean
|
||||
If Firma_ID <= 0 Then errMsg = "ERROR: Firma auswählen!" : Return False
|
||||
If Rechnung_an = 0 OrElse CStr(Rechnung_an) = "" Then errMsg = "ERROR: Rechnungsempfänger auswählen!" : Return False
|
||||
If SpeditionsbuchUnterNr Is Nothing Then errMsg = "ERROR: Speditionsbuch-UnterNr auswählen!" : Return False
|
||||
' If Steuerschlüssel Then errMsg = "ERROR: Steuerschlüssel muss angegeben werden!" : Return False
|
||||
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Public Function SAVE_POSITIONEN(RK_ID) As Boolean
|
||||
If DELETE_POSITIONEN() Then ' zuerst Einträge löschen...
|
||||
ORDER_POSITIONEN() ' ... dann ordnen ...
|
||||
For Each p In POSITIONEN
|
||||
If Not p.INSERT(RK_ID) Then Return False ' ... dann insert
|
||||
Next
|
||||
Else : Return False
|
||||
End If
|
||||
Return True
|
||||
End Function
|
||||
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM Rechnungsausgang WHERE RK_ID=@RK_ID ", conn)
|
||||
cmd.Parameters.AddWithValue("@RK_ID", RK_ID)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
doVorzeichen()
|
||||
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 getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [Rechnungsausgang] SET " & str & " WHERE RK_ID=@RK_ID ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 Rechnungsausgang (" & 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
|
||||
|
||||
Public Function SET_DruckdatumUhrzeit() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " UPDATE [Rechnungsausgang] SET DruckDatumZeit=GETDATE WHERE RK_ID=" & Me.RK_ID
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
Public Function isReverseChargeSumme() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
'Wenn selbes Land --> Kein Reversecharge
|
||||
Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(Firma_ID)
|
||||
' MsgBox(RechnungsLandKz & " - " & FIRMA.Firma_LandKz)
|
||||
If RechnungsLandKz = FIRMA.Firma_LandKz Then
|
||||
Return False
|
||||
End If
|
||||
|
||||
|
||||
Dim sqlstr = " SELECT SUM(POS.SteuerfreierBetrag) AS ReverseChargeSumme "
|
||||
sqlstr &= " FROM Rechnungsausgang as RA INNER JOIN RechnungsausgangPositionen as POS ON RA.RK_ID = POS.RK_ID INNER JOIN Leistungen ON POS.LeistungsNr = Leistungen.LeistungsNr INNER JOIN [Länderverzeichnis für die Außenhandelsstatistik] AS LD ON RA.RechnungsUstIdKz = LD.LandKz"
|
||||
sqlstr &= " WHERE RA.rk_id='" & Me.RK_ID & "' AND LD.ReverseCharge = 1 AND Leistungen.ReverseCharge = 1"
|
||||
|
||||
If Not CBool(SQL.DLookup("isnull([MitgliedslandEU],0)", "Währungstabelle", "LandKz='" & If(RechnungsLandKz, "") & "'", "FMZOLL", 0)) Then
|
||||
Return False
|
||||
End If
|
||||
|
||||
Return If(SQL.getValueTxtBySql(sqlstr, "FMZOLL",,, 0) = 0, False, True)
|
||||
End Function
|
||||
|
||||
Public Function setSPEDBUCH_FAKTURIERT(Optional wert As Boolean = True) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " UPDATE Speditionsbuch SET Fakturiert='" & If(wert, 1, 0) & "' WHERE FilialenNr = '" & Me.FilialenNr & "' AND AbfertigungsNr = '" & Me.[AbfertigungsNr] & "' AND UnterNr = '" & Me.[SpeditionsbuchUnterNr] & "'"
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [Rechnungsausgang] WHERE RK_ID=" & Me.RK_ID
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
Public Function DELETE_POSITIONEN() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [RechnungsausgangPositionen] WHERE RK_ID=" & Me.RK_ID
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
Public Sub LOAD_POSITIONEN()
|
||||
Try
|
||||
POSITIONEN.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("Select * FROM RechnungsausgangPositionen WHERE RK_ID=@RK_ID ", conn)
|
||||
cmd.Parameters.AddWithValue("@RK_ID", Me.RK_ID)
|
||||
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cRechnungsausgangPositionen
|
||||
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
|
||||
POSITIONEN.Add(l)
|
||||
End While
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
doVorzeichenPOS()
|
||||
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 Sub ORDER_POSITIONEN()
|
||||
Try
|
||||
' Dim POSITIONEN_Tmp As New List(Of cRechnungsausgangPositionen)
|
||||
Try
|
||||
POSITIONEN = POSITIONEN.OrderByDescending(Function(x) x.Preis).ToList()
|
||||
Catch ex As Exception
|
||||
'Preis null??
|
||||
End Try
|
||||
POSITIONEN = POSITIONEN.OrderBy(Function(x) x.LeistungsNr).ToList()
|
||||
|
||||
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
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
Public Class cRechnungsausgangPositionen
|
||||
|
||||
Property RK_ID As Integer
|
||||
Property LeistungsNr As Integer
|
||||
Property Steuerpflichtig As Boolean
|
||||
Property LeistungsBez As String = Nothing
|
||||
Property IndexZkteing As Integer = 0
|
||||
Property BerechnungsartNr As Integer = 1
|
||||
Property Preis As Object = Nothing
|
||||
Property Anzahl As Object = Nothing
|
||||
Property SteuerpflichtigerBetrag As Decimal = 0
|
||||
Property SteuerfreierBetrag As Decimal = 0
|
||||
Property AufschubkontoNr As Object = Nothing
|
||||
Property Aufschubfälligkeit As Object = Nothing
|
||||
Property Prüfsumme_berechnen As Boolean '!!!!
|
||||
Property DateiNameAufschub As Object = Nothing
|
||||
Property Preisbindung As Boolean '!!!!
|
||||
Property Belegdaten As Object = Nothing
|
||||
Property Fremdwährung As Object = Nothing
|
||||
Property BGebLeistungsNr As Object = Nothing
|
||||
Property BGebProzent As Object = Nothing
|
||||
Property BGebBgl As Object = Nothing
|
||||
Property BGebMinBetrag As Object = Nothing
|
||||
Property RePosZeitstempel As Object = Nothing
|
||||
|
||||
'FROM [VERAG].[dbo].[RechnungsausgangPositionen]
|
||||
|
||||
|
||||
Dim SQL As New 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("RK_ID", RK_ID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LeistungsNr", LeistungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuerpflichtig", Steuerpflichtig))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LeistungsBez", LeistungsBez))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("IndexZkteing", IndexZkteing))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BerechnungsartNr", BerechnungsartNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Preis", Preis))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Anzahl", Anzahl))
|
||||
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SteuerpflichtigerBetrag", SteuerpflichtigerBetrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SteuerfreierBetrag", SteuerfreierBetrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AufschubkontoNr", AufschubkontoNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Aufschubfälligkeit", Aufschubfälligkeit))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Prüfsumme berechnen", Prüfsumme_berechnen, "Prüfsumme_berechnen")) '!!!!
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DateiNameAufschub", DateiNameAufschub))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Preisbindung", Preisbindung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Belegdaten", Belegdaten))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Fremdwährung", Fremdwährung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BGebLeistungsNr", BGebLeistungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BGebProzent", BGebProzent))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BGebBgl", BGebBgl))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BGebMinBetrag", BGebMinBetrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RePosZeitstempel", RePosZeitstempel))
|
||||
|
||||
'list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("upsize_ts", XXXXXXXXXXXXX))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Public Function INSERT(RK_ID) As Boolean
|
||||
Me.RK_ID = RK_ID
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
|
||||
Public Sub doVorzeichen(Vorzeichen)
|
||||
Dim vz = If(Vorzeichen = "-", -1, 1)
|
||||
Me.Preis *= vz
|
||||
Me.SteuerfreierBetrag *= vz
|
||||
Me.SteuerpflichtigerBetrag *= vz
|
||||
End Sub
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
'Me.Eingegeben_am = Now
|
||||
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 RechnungsausgangPositionen (" & 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
|
||||
170
SDL/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb
Normal file
170
SDL/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb
Normal file
@@ -0,0 +1,170 @@
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Public Class cRechnungsnummern
|
||||
Property SpeditionsbuchNr As String = "" 'FIRMA!
|
||||
Property Buchungsjahr As String = ""
|
||||
|
||||
|
||||
Property VonRechnungsNr As Integer = -1
|
||||
Property BisRechnungsNr As Integer = -1
|
||||
Property LfdRechnungsNr As Integer = 0
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Public Sub New(SpeditionsbuchNr As String, Buchungsjahr As String)
|
||||
Me.SpeditionsbuchNr = SpeditionsbuchNr
|
||||
Me.Buchungsjahr = Buchungsjahr
|
||||
|
||||
'Default-Werte:
|
||||
'-------------------------------------
|
||||
Select Case SpeditionsbuchNr
|
||||
Case 1
|
||||
VonRechnungsNr = Now.ToString("yy") & "100001"
|
||||
BisRechnungsNr = Now.ToString("yy") & "199999"
|
||||
Case 3
|
||||
VonRechnungsNr = Now.ToString("yy") & "300001"
|
||||
BisRechnungsNr = Now.ToString("yy") & "399999"
|
||||
Case 7
|
||||
VonRechnungsNr = Now.ToString("yy") & "700001"
|
||||
BisRechnungsNr = Now.ToString("yy") & "799999"
|
||||
Case 11
|
||||
VonRechnungsNr = Now.ToString("yy") & "900001"
|
||||
BisRechnungsNr = Now.ToString("yy") & "999999"
|
||||
Case 15
|
||||
VonRechnungsNr = Now.ToString("yy") & "200001"
|
||||
BisRechnungsNr = Now.ToString("yy") & "299999"
|
||||
Case 20
|
||||
VonRechnungsNr = Now.ToString("yy") & "400001"
|
||||
BisRechnungsNr = Now.ToString("yy") & "499999"
|
||||
Case 17 'FrontOffice
|
||||
VonRechnungsNr = Now.ToString("yy") & "500001"
|
||||
BisRechnungsNr = Now.ToString("yy") & "599999"
|
||||
|
||||
Case 21 ' UNISPED AT
|
||||
VonRechnungsNr = Now.ToString("yy") & "7000000"
|
||||
BisRechnungsNr = Now.ToString("yy") & "7999999"
|
||||
Case 22 ' UNISPED DE
|
||||
VonRechnungsNr = Now.ToString("yy") & "9000000"
|
||||
BisRechnungsNr = Now.ToString("yy") & "9999999"
|
||||
Case 23 ' UNISPED Zollservice
|
||||
VonRechnungsNr = Now.ToString("yy") & "5000000"
|
||||
BisRechnungsNr = Now.ToString("yy") & "5999999"
|
||||
End Select
|
||||
LfdRechnungsNr = VonRechnungsNr
|
||||
'-------------------------------------
|
||||
|
||||
|
||||
LOAD(SpeditionsbuchNr, Buchungsjahr)
|
||||
End Sub
|
||||
|
||||
|
||||
Public Function INCREASE_RGNR() As Integer
|
||||
If LfdRechnungsNr > 0 Then
|
||||
LfdRechnungsNr += 1
|
||||
Else
|
||||
LfdRechnungsNr = 1
|
||||
End If
|
||||
SAVE()
|
||||
Return LfdRechnungsNr
|
||||
End Function
|
||||
|
||||
|
||||
Public Function CHECK_RGNR() As Integer ' Prüfung, ob RgNr schon vergeben wurde --> dann +1, bis freie Nr.
|
||||
Dim increased = False
|
||||
While SQL.DLookup("count(*)", "Rechnungsausgang", " RechnungsNr='" & LfdRechnungsNr & "' and Firma_ID='" & SpeditionsbuchNr & "' ", "FMZOLL", 0) > 0
|
||||
LfdRechnungsNr += 1
|
||||
increased = True
|
||||
End While
|
||||
If increased Then SAVE()
|
||||
Return LfdRechnungsNr
|
||||
End Function
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM [Rechnungsnummern] WITH(updlock,serializable) WHERE [SpeditionsbuchNr]=@SpeditionsbuchNr AND Buchungsjahr=@Buchungsjahr) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
'MsgBox(sqlstr)
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
Public Sub LOAD(SpeditionsbuchNr As String, Buchungsjahr As String)
|
||||
Try
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM Rechnungsnummern WHERE [SpeditionsbuchNr]=@SpeditionsbuchNr AND Buchungsjahr=@Buchungsjahr ", conn)
|
||||
cmd.Parameters.AddWithValue("@SpeditionsbuchNr", SpeditionsbuchNr)
|
||||
cmd.Parameters.AddWithValue("@Buchungsjahr", Buchungsjahr)
|
||||
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
Me.SpeditionsbuchNr = cSqlDb.checkNullStr(dr.Item("SpeditionsbuchNr"))
|
||||
Me.Buchungsjahr = cSqlDb.checkNullStr(dr.Item("Buchungsjahr"))
|
||||
Me.LfdRechnungsNr = cSqlDb.checkNullStr(dr.Item("LfdRechnungsNr"))
|
||||
Me.VonRechnungsNr = cSqlDb.checkNullInteger(dr.Item("VonRechnungsNr"))
|
||||
Me.BisRechnungsNr = cSqlDb.checkNullInteger(dr.Item("BisRechnungsNr"))
|
||||
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
'Return Nothing
|
||||
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 Nothing
|
||||
End Sub
|
||||
|
||||
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem2)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("SpeditionsbuchNr", SpeditionsbuchNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Buchungsjahr", Buchungsjahr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("LfdRechnungsNr", LfdRechnungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("VonRechnungsNr", VonRechnungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("BisRechnungsNr", BisRechnungsNr))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
str &= "[" & i.Text & "] = @" & i.Text.Replace("-", "").Replace(" ", "") & ","
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [Rechnungsnummern] SET " & str & " WHERE [SpeditionsbuchNr]=@SpeditionsbuchNr AND Buchungsjahr=@Buchungsjahr ")
|
||||
|
||||
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
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Text.Replace("-", "").Replace(" ", "") & ","
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO [Rechnungsnummern] (" & 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
|
||||
249
SDL/VERAG_PROG_ALLGEMEIN/Classes/cSDL.vb
Normal file
249
SDL/VERAG_PROG_ALLGEMEIN/Classes/cSDL.vb
Normal file
@@ -0,0 +1,249 @@
|
||||
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cSDL
|
||||
Property KundenNr As Integer
|
||||
Property KfzKennzeichen As String = ""
|
||||
Property SDLNr As Integer
|
||||
Property History As Integer
|
||||
Property RefKundenNr As Object = Nothing
|
||||
Property MSE_Kd_Nr As Object = Nothing
|
||||
Property TELEPASS_Kd_Nr As Object = Nothing
|
||||
Property CLIENT_Nr As Object = Nothing
|
||||
Property BestellNr As Object = Nothing
|
||||
Property Bestelldatum As Object = Nothing
|
||||
Property Lieferdatum As Object = Nothing
|
||||
Property Ausstellungsdatum As Object = Nothing
|
||||
Property Umstellungsdatum As Object = Nothing
|
||||
Property KartenNr As Object = Nothing
|
||||
Property PAN_Nr As Object = Nothing
|
||||
Property VIACARD As Object = Nothing
|
||||
Property MOTORWAY_CARD_Nr As Object = Nothing
|
||||
Property CARD_Nr As Object = Nothing
|
||||
Property KartenSchlüsselNr As Object = Nothing
|
||||
Property FREJUS_CARD_Nr As Object = Nothing
|
||||
Property ECO As Object = Nothing
|
||||
Property GültigBis As Object = Nothing
|
||||
Property OBUID As Object = Nothing
|
||||
Property SERIE_Nr As Object = Nothing
|
||||
Property TELEPASS_Nr As Object = Nothing
|
||||
Property Vermerk As Object = Nothing
|
||||
Property Partner As Object = Nothing
|
||||
Property BenutzerNr As Object = Nothing
|
||||
Property PIN As Object = Nothing
|
||||
Property FlottenPIN As Object = Nothing
|
||||
Property MasterPIN As Object = Nothing
|
||||
Property VertragsNr As Object = Nothing
|
||||
Property Vertragsabschlussdatum As Object = Nothing
|
||||
Property Kategorie As Object = Nothing
|
||||
Property Schadstoffklasse As Object = Nothing
|
||||
Property Status As Object = Nothing
|
||||
Property Ersatzkarte As Object = Nothing
|
||||
Property Gesperrt As Object = Nothing
|
||||
Property Defekt As Object = Nothing
|
||||
Property Verloren As Object = Nothing
|
||||
Property Gestohlen As Object = Nothing
|
||||
Property Erfassungsdatum As Object = Nothing
|
||||
Property Änderungsdatum As Object = Nothing
|
||||
Property Sachbearbeiter As Object = Nothing
|
||||
Property Retourniert As Object = Nothing
|
||||
Property RetourniertAm As Object = Nothing
|
||||
|
||||
Property GesperrtAm As Object = Nothing
|
||||
Property DefektAm As Object = Nothing
|
||||
Property VerlorenAm As Object = Nothing
|
||||
Property GestohlenAm As Object = Nothing
|
||||
Property ErsatzkarteAm As Object = Nothing
|
||||
Property TelepassErsatzkarte As Object = Nothing
|
||||
Property TelepassErsatzkarteAm As Object = Nothing
|
||||
Property Archiviert As Boolean = False
|
||||
Property LKWAbgemeldet As Boolean = False
|
||||
Property LKWAbgemeldetAM As Object = Nothing
|
||||
|
||||
Property Fahrer As Object = Nothing
|
||||
Property Kaution As Object = Nothing
|
||||
Property BelegNr As Object = Nothing
|
||||
|
||||
|
||||
Public hasentry
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
|
||||
End Sub
|
||||
|
||||
Sub New(KundenNr, KfzKennzeichen, SDLNr, History)
|
||||
Me.KundenNr = KundenNr
|
||||
Me.KfzKennzeichen = KfzKennzeichen
|
||||
Me.SDLNr = SDLNr
|
||||
Me.History = History
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
|
||||
Sub New(KundenNr, KfzKennzeichen, SDLNr)
|
||||
Me.KundenNr = KundenNr
|
||||
Me.KfzKennzeichen = KfzKennzeichen
|
||||
Me.SDLNr = SDLNr
|
||||
Me.History = SQL.getValueTxtBySql("SELECT TOP 1 History FROM SDL WHERE KundenNr='" & KundenNr & "' AND KfzKennzeichen='" & KfzKennzeichen & "' AND SDLNr='" & SDLNr & "' ORDER BY History DESC", "SDL")
|
||||
LOAD()
|
||||
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("KundenNr", KundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KfzKennzeichen", KfzKennzeichen))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SDLNr", SDLNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("History", History))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RefKundenNr", RefKundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("MSE-Kd-Nr", MSE_Kd_Nr, "MSE_Kd_Nr"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TELEPASS-Kd-Nr", TELEPASS_Kd_Nr, "TELEPASS_Kd_Nr"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CLIENT-Nr", CLIENT_Nr, "CLIENT_Nr"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BestellNr", BestellNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bestelldatum", Bestelldatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Lieferdatum", Lieferdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Ausstellungsdatum", Ausstellungsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Umstellungsdatum", Umstellungsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KartenNr", KartenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PAN-Nr", PAN_Nr, "PAN_Nr"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VIACARD", VIACARD))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("MOTORWAY-CARD-Nr", MOTORWAY_CARD_Nr, "MOTORWAY_CARD_Nr"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CARD-Nr", CARD_Nr, "CARD_Nr"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KartenSchlüsselNr", KartenSchlüsselNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FREJUS-CARD-Nr", FREJUS_CARD_Nr, "FREJUS_CARD_Nr"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ECO", ECO))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GültigBis", GültigBis))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("OBUID", OBUID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SERIE-Nr", SERIE_Nr, "SERIE_Nr"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TELEPASS-Nr", TELEPASS_Nr, "TELEPASS_Nr"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vermerk", Vermerk))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Partner", Partner))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BenutzerNr", BenutzerNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PIN", PIN))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FlottenPIN", FlottenPIN))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("MasterPIN", MasterPIN))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VertragsNr", VertragsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vertragsabschlussdatum", Vertragsabschlussdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kategorie", Kategorie))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Schadstoffklasse", Schadstoffklasse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Status", Status))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Ersatzkarte", Ersatzkarte))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gesperrt", Gesperrt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Defekt", Defekt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Verloren", Verloren))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gestohlen", Gestohlen))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Erfassungsdatum", Erfassungsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Änderungsdatum", Änderungsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachbearbeiter", Sachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Retourniert", Retourniert))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RetourniertAm", RetourniertAm))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GesperrtAm", GesperrtAm))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DefektAm", DefektAm))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VerlorenAm", VerlorenAm))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GestohlenAm", GestohlenAm))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ErsatzkarteAm", ErsatzkarteAm))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TelepassErsatzkarte", TelepassErsatzkarte))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TelepassErsatzkarteAm", TelepassErsatzkarteAm))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Archiviert", Archiviert))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LKWAbgemeldet", LKWAbgemeldet))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LKWAbgemeldetAM", LKWAbgemeldetAM))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Fahrer", Fahrer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kaution", Kaution))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BelegNr", BelegNr))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM SDL WITH(updlock,serializable) WHERE KundenNr=@KundenNr AND KfzKennzeichen=@KfzKennzeichen AND SDLNr=@SDLNr AND History=@History) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Return SQL.doSQLVarList(sqlstr, "SDL", , list)
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
hasentry = False
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
|
||||
Using cmd As New SqlCommand("SELECT * FROM SDL WHERE KundenNr=@KundenNr AND KfzKennzeichen=@KfzKennzeichen AND SDLNr=@SDLNr AND History=@History ", conn)
|
||||
cmd.Parameters.AddWithValue("@KundenNr", KundenNr)
|
||||
cmd.Parameters.AddWithValue("@KfzKennzeichen", KfzKennzeichen)
|
||||
cmd.Parameters.AddWithValue("@SDLNr", SDLNr)
|
||||
cmd.Parameters.AddWithValue("@History", History)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
hasentry = True
|
||||
End If
|
||||
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 getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [SDL] SET " & str & " WHERE KundenNr=@KundenNr AND KfzKennzeichen=@KfzKennzeichen AND SDLNr=@SDLNr AND History=@History ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 SDL (" & 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
|
||||
138
SDL/VERAG_PROG_ALLGEMEIN/Classes/cSDL_LKW.vb
Normal file
138
SDL/VERAG_PROG_ALLGEMEIN/Classes/cSDL_LKW.vb
Normal file
@@ -0,0 +1,138 @@
|
||||
|
||||
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
Public Class cSDL_LKW
|
||||
Property KundenNr As Integer
|
||||
Property KfzKennzeichen As String
|
||||
Property Nationalität As Object = Nothing
|
||||
Property Verkauft As Object = Nothing
|
||||
Property Abgemeldet As Object = Nothing
|
||||
Property Vermerk As Object = Nothing
|
||||
Property Erfassungsdatum As Object = Nothing
|
||||
Property Änderungsdatum As Object = Nothing
|
||||
Property Sachbearbeiter As Object = Nothing
|
||||
Property KZAenderung As Object = Nothing
|
||||
Property ts As Object = Nothing
|
||||
Property Baujahr As Object = Nothing
|
||||
Property KzMiete As Object = Nothing
|
||||
Property KzLeasing As Object = Nothing
|
||||
Property KzFinanzierungBank As Object = Nothing
|
||||
|
||||
Public hasEntry = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New(KundenNr, KfzKennzeichen)
|
||||
Me.KundenNr = KundenNr
|
||||
Me.KfzKennzeichen = KfzKennzeichen
|
||||
LOAD()
|
||||
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("KundenNr", KundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KfzKennzeichen", KfzKennzeichen))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Nationalität", Nationalität))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Verkauft", Verkauft))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abgemeldet", Abgemeldet))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vermerk", Vermerk))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Erfassungsdatum", Erfassungsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Änderungsdatum", Änderungsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachbearbeiter", Sachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KZAenderung", KZAenderung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Baujahr", Baujahr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KzMiete", KzMiete))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KzLeasing", KzLeasing))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KzFinanzierungBank", KzFinanzierungBank))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM LKW WHERE KundenNr=@KundenNr and KfzKennzeichen=@KfzKennzeichen) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Return SQL.doSQLVarList(sqlstr, "SDL", , list)
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
hasEntry = False
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionSDL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM LKW WHERE KundenNr=@KundenNr and KfzKennzeichen=@KfzKennzeichen ", conn)
|
||||
cmd.Parameters.AddWithValue("@KundenNr", KundenNr)
|
||||
cmd.Parameters.AddWithValue("@KfzKennzeichen", KfzKennzeichen)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
hasEntry = True
|
||||
End If
|
||||
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 getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [LKW] SET " & str & " WHERE KundenNr=@KundenNr and KfzKennzeichen=@KfzKennzeichen ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 LKW (" & 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
|
||||
242
SDL/VERAG_PROG_ALLGEMEIN/Classes/cSMS.vb
Normal file
242
SDL/VERAG_PROG_ALLGEMEIN/Classes/cSMS.vb
Normal file
@@ -0,0 +1,242 @@
|
||||
Imports com.esendex.sdk.messaging
|
||||
Imports com.esendex.sdk.sent
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cSMS
|
||||
Property sms_id As Integer
|
||||
Property sms_Datum As Date = Now
|
||||
Property sms_Firma As Object = Nothing
|
||||
Property sms_Account As Object = Nothing
|
||||
|
||||
Property sms_Fahrername As Object = Nothing
|
||||
Property sms_KundenNr As Object = Nothing
|
||||
Property sms_Kunde As Object = Nothing
|
||||
|
||||
|
||||
|
||||
Property sms_Vorwahl As Object = Nothing
|
||||
Property sms_Handynummer As Object = Nothing
|
||||
Property sms_Nachricht As Object = Nothing
|
||||
Property sms_BatchId As Object = Nothing
|
||||
Property sms_MessageIds As Object = Nothing
|
||||
Property sms_Uris As Object = Nothing
|
||||
Property sms_Sachbearbeiter As String = Nothing
|
||||
Property sms_SachbearbeiterId As Integer
|
||||
Property sms_AvisoId As Object = Nothing
|
||||
|
||||
Property sms_Status As Integer = -1
|
||||
Property sms_Queued As Object = Nothing
|
||||
Property sms_Sent As Object = Nothing
|
||||
Property sms_Delivered As Object = Nothing
|
||||
Property sms_Failure As Object = Nothing
|
||||
|
||||
|
||||
Dim ESENDEX_USER As String = "al@verag.ag"
|
||||
Dim ESENDEX_PWD As String = "Developer#2"
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
sms_Sachbearbeiter = If(sms_Sachbearbeiter, VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME)
|
||||
If sms_SachbearbeiterId <= 0 Then sms_SachbearbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
||||
|
||||
End Sub
|
||||
|
||||
Sub New(sms_id)
|
||||
Me.sms_id = sms_id
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
Public 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("sms_id", sms_id, , True, True))
|
||||
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Datum", sms_Datum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Firma", sms_Firma))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Account", sms_Account))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Fahrername", sms_Fahrername))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_KundenNr", sms_KundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Kunde", sms_Kunde))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Vorwahl", sms_Vorwahl))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Handynummer", sms_Handynummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Nachricht", sms_Nachricht))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_BatchId", sms_BatchId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_MessageIds", sms_MessageIds))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Uris", sms_Uris))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Sachbearbeiter", sms_Sachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_SachbearbeiterId", sms_SachbearbeiterId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_AvisoId", sms_AvisoId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Status", sms_Status))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Queued", sms_Queued))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Sent", sms_Sent))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Delivered", sms_Delivered))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Failure", sms_Failure))
|
||||
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblSMS WITH(updlock,serializable) WHERE sms_id=@sms_id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
sms_id = SQL.doSQLVarListID(sms_id, sqlstr, "FMZOLL", , list)
|
||||
Return sms_id > 0
|
||||
End Function
|
||||
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblSMS WHERE sms_id=@sms_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@sms_id", sms_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
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 getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblSMS] SET " & str & " WHERE sms_id=@sms_id ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 tblSMS (" & 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
|
||||
|
||||
|
||||
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblSMS] WITH(updlock,serializable) WHERE sms_id=" & Me.sms_id
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
Function sendSMS() As Boolean
|
||||
Try
|
||||
|
||||
Dim messagingService As New MessagingService(ESENDEX_USER, ESENDEX_PWD)
|
||||
'SENDEN DER SMS
|
||||
Dim result = messagingService.SendMessage(New SmsMessage(Me.sms_Handynummer, Me.sms_Nachricht, Me.sms_Account))
|
||||
|
||||
Dim Uris As String = ""
|
||||
Dim msgIDs As String = ""
|
||||
Try
|
||||
Me.sms_BatchId = result.BatchId
|
||||
|
||||
If result.MessageIds IsNot Nothing Then
|
||||
For Each m In result.MessageIds
|
||||
Uris &= m.Uri & ";;"
|
||||
msgIDs &= m.Id.ToString & ";;"
|
||||
Next
|
||||
End If
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
While Uris.EndsWith(";;")
|
||||
Uris = Uris.Substring(0, Uris.Length - 2)
|
||||
End While
|
||||
While msgIDs.EndsWith(";;")
|
||||
msgIDs = msgIDs.Substring(0, msgIDs.Length - 2)
|
||||
End While
|
||||
|
||||
Me.sms_MessageIds = msgIDs
|
||||
Me.sms_Uris = Uris
|
||||
|
||||
If Not Me.SAVE() Then
|
||||
MsgBox("Fehler: SMS Daten wurden nicht gespeichert!")
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler beim Senden der SMS!" & vbNewLine & ex.Message & ex.StackTrace)
|
||||
Return False
|
||||
End Try
|
||||
|
||||
End Function
|
||||
Function checkSMSStatus() As String
|
||||
Try
|
||||
If Me.sms_Status >= 3 Then Return Me.sms_Status ' Bereits finaler Status, keine Abfrage nötig
|
||||
If If(Me.sms_MessageIds, "") = "" Then MsgBox("Keine MessageId gefunden!") : Return False ' Keine MsgId
|
||||
|
||||
Dim sendService As New SentService(ESENDEX_USER, ESENDEX_PWD)
|
||||
|
||||
'Send a message and retrieve the message ID
|
||||
Dim MSG = sendService.GetMessage(New Guid(Me.sms_MessageIds.ToString))
|
||||
Dim messageStatus = MSG.Status
|
||||
MsgBox(MSG.Status)
|
||||
'Status in DB Ubdaten
|
||||
Me.sms_Status = messageStatus
|
||||
Me.sms_Sent = MSG.SentAt
|
||||
Me.sms_Delivered = MSG.DeliveredAt
|
||||
If MSG.FailureReason IsNot Nothing Then Me.sms_Failure = MSG.FailureReason.Description
|
||||
Me.SAVE()
|
||||
|
||||
Return messageStatus
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler beim Prüfen des SMS Status!" & vbNewLine & ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
263
SDL/VERAG_PROG_ALLGEMEIN/Classes/cSendMailAttach.vb
Normal file
263
SDL/VERAG_PROG_ALLGEMEIN/Classes/cSendMailAttach.vb
Normal file
@@ -0,0 +1,263 @@
|
||||
'Imports System.Runtime.InteropServices
|
||||
'Imports System.Windows.Forms
|
||||
'Imports System.IO
|
||||
|
||||
|
||||
'Namespace SendFileTo
|
||||
' Public Class cSendMailAttach
|
||||
' Public Function AddRecipientTo(ByVal email As String) As Boolean
|
||||
' Return AddRecipient(email, howTo.MAPI_TO)
|
||||
' End Function
|
||||
|
||||
' Public Function AddRecipientCC(ByVal email As String) As Boolean
|
||||
' Return AddRecipient(email, howTo.MAPI_TO)
|
||||
' End Function
|
||||
|
||||
' Public Function AddRecipientBCC(ByVal email As String) As Boolean
|
||||
' Return AddRecipient(email, howTo.MAPI_TO)
|
||||
' End Function
|
||||
|
||||
' Public Sub AddAttachment(ByVal strAttachmentFileName As String)
|
||||
' m_attachments.Add(strAttachmentFileName)
|
||||
' End Sub
|
||||
|
||||
' Public Function SendMailPopup(ByVal strSubject As String,
|
||||
' ByVal strBody As String) As Integer
|
||||
' Return SendMail(strSubject, strBody, MAPI_LOGON_UI Or MAPI_DIALOG)
|
||||
' End Function
|
||||
|
||||
' Public Function SendMailDirect(ByVal strSubject As String,
|
||||
' ByVal strBody As String) As Integer
|
||||
' Return SendMail(strSubject, strBody, MAPI_LOGON_UI)
|
||||
' End Function
|
||||
|
||||
|
||||
' <DllImport("MAPI32.DLL")>
|
||||
' Private Shared Function MAPISendMail(ByVal sess As IntPtr,
|
||||
' ByVal hwnd As IntPtr, ByVal message As MapiMessage,
|
||||
' ByVal flg As Integer, ByVal rsv As Integer) As Integer
|
||||
' End Function
|
||||
|
||||
' Private Function SendMail(ByVal strSubject As String,
|
||||
' ByVal strBody As String, ByVal how As Integer) As Integer
|
||||
' Dim msg As MapiMessage = New MapiMessage()
|
||||
' msg.subject = strSubject
|
||||
' msg.noteText = strBody
|
||||
|
||||
' msg.recips = GetRecipients(msg.recipCount)
|
||||
' msg.files = GetAttachments(msg.fileCount)
|
||||
|
||||
' m_lastError = MAPISendMail(New IntPtr(0), New IntPtr(0), msg, how,
|
||||
' 0)
|
||||
' If m_lastError > 1 Then
|
||||
' MessageBox.Show("MAPISendMail failed! " + GetLastError(),
|
||||
' "MAPISendMail")
|
||||
' End If
|
||||
|
||||
' Cleanup(msg)
|
||||
' Return m_lastError
|
||||
' End Function
|
||||
|
||||
' Private Function AddRecipient(ByVal email As String,
|
||||
' ByVal howTo As howTo) As Boolean
|
||||
' Dim recipient As MapiRecipDesc = New MapiRecipDesc()
|
||||
|
||||
' recipient.recipClass = CType(howTo, Integer)
|
||||
' recipient.name = email
|
||||
' m_recipients.Add(recipient)
|
||||
|
||||
' Return True
|
||||
' End Function
|
||||
|
||||
' Private Function GetRecipients(ByRef recipCount As Integer) As IntPtr
|
||||
' recipCount = 0
|
||||
' If m_recipients.Count = 0 Then
|
||||
' Return 0
|
||||
' End If
|
||||
|
||||
' Dim size As Integer = Marshal.SizeOf(GetType(MapiRecipDesc))
|
||||
' Dim intPtr As IntPtr = Marshal.AllocHGlobal(
|
||||
' m_recipients.Count * size)
|
||||
|
||||
' Dim ptr As Integer = CType(intPtr, Integer)
|
||||
' Dim mapiDesc As MapiRecipDesc
|
||||
' For Each mapiDesc In m_recipients
|
||||
' Marshal.StructureToPtr(mapiDesc, CType(ptr, IntPtr), False)
|
||||
' ptr += size
|
||||
' Next
|
||||
|
||||
' recipCount = m_recipients.Count
|
||||
' Return intPtr
|
||||
' End Function
|
||||
|
||||
' Private Function GetAttachments(ByRef fileCount As Integer) As IntPtr
|
||||
' fileCount = 0
|
||||
' If m_attachments Is Nothing Then
|
||||
' Return 0
|
||||
' End If
|
||||
|
||||
' If (m_attachments.Count <= 0) Or (m_attachments.Count >
|
||||
' maxAttachments) Then
|
||||
' Return 0
|
||||
' End If
|
||||
|
||||
' Dim size As Integer = Marshal.SizeOf(GetType(MapiFileDesc))
|
||||
' Dim intPtr As IntPtr = Marshal.AllocHGlobal(
|
||||
' m_attachments.Count * size)
|
||||
|
||||
' Dim mapiFileDesc As MapiFileDesc = New MapiFileDesc()
|
||||
' mapiFileDesc.position = -1
|
||||
' Dim ptr As Integer = CType(intPtr, Integer)
|
||||
|
||||
' Dim strAttachment As String
|
||||
' For Each strAttachment In m_attachments
|
||||
' mapiFileDesc.name = Path.GetFileName(strAttachment)
|
||||
' mapiFileDesc.path = strAttachment
|
||||
' Marshal.StructureToPtr(mapiFileDesc, CType(ptr, IntPtr), False)
|
||||
' ptr += size
|
||||
' Next
|
||||
|
||||
' fileCount = m_attachments.Count
|
||||
' Return intPtr
|
||||
' End Function
|
||||
|
||||
' Private Sub Cleanup(ByRef msg As MapiMessage)
|
||||
' Dim size As Integer = Marshal.SizeOf(GetType(MapiRecipDesc))
|
||||
' Dim ptr As Integer = 0
|
||||
|
||||
' If msg.recips <> IntPtr.Zero Then
|
||||
' ptr = CType(msg.recips, Integer)
|
||||
' Dim i As Integer
|
||||
' For i = 0 To msg.recipCount - 1 Step i + 1
|
||||
' Marshal.DestroyStructure(CType(ptr, IntPtr),
|
||||
' GetType(MapiRecipDesc))
|
||||
' ptr += size
|
||||
' Next
|
||||
' Marshal.FreeHGlobal(msg.recips)
|
||||
' End If
|
||||
|
||||
' If msg.files <> IntPtr.Zero Then
|
||||
' size = Marshal.SizeOf(GetType(MapiFileDesc))
|
||||
|
||||
' ptr = CType(msg.files, Integer)
|
||||
' Dim i As Integer
|
||||
' For i = 0 To msg.fileCount - 1 Step i + 1
|
||||
' Marshal.DestroyStructure(CType(ptr, IntPtr),
|
||||
' GetType(MapiFileDesc))
|
||||
' ptr += size
|
||||
' Next
|
||||
' Marshal.FreeHGlobal(msg.files)
|
||||
' End If
|
||||
|
||||
' m_recipients.Clear()
|
||||
' m_attachments.Clear()
|
||||
' m_lastError = 0
|
||||
' End Sub
|
||||
|
||||
' Public Function GetLastError() As String
|
||||
' If m_lastError <= 26 Then
|
||||
' Return errors(m_lastError)
|
||||
' End If
|
||||
' Return "MAPI error [" + m_lastError.ToString() + "]"
|
||||
' End Function
|
||||
|
||||
' ReadOnly errors() As String = New String() {"OK [0]", "User abort [1]",
|
||||
' "General MAPI failure [2]", "MAPI login failure [3]",
|
||||
' "Disk full [4]", "Insufficient memory [5]", "Access denied [6]",
|
||||
' "-unknown- [7]", "Too many sessions [8]",
|
||||
' "Too many files were specified [9]",
|
||||
' "Too many recipients were specified [10]",
|
||||
' "A specified attachment was not found [11]",
|
||||
' "Attachment open failure [12]", "Attachment write failure [13]",
|
||||
' "Unknown recipient [14]", "Bad recipient type [15]",
|
||||
' "No messages [16]", "Invalid message [17]", "Text too large [18]",
|
||||
' "Invalid session [19]", "Type not supported [20]",
|
||||
' "A recipient was specified ambiguously [21]",
|
||||
' "Message in use [22]", "Network failure [23]",
|
||||
' "Invalid edit fields [24]", "Invalid recipients [25]",
|
||||
' "Not supported [26]"}
|
||||
|
||||
' Dim m_recipients As New List(Of MapiRecipDesc)
|
||||
' Dim m_attachments As New List(Of String)
|
||||
' Dim m_lastError As Integer = 0
|
||||
|
||||
' Private Const MAPI_LOGON_UI As Integer = &H1
|
||||
' Private Const MAPI_DIALOG As Integer = &H8
|
||||
' Private Const maxAttachments As Integer = 20
|
||||
|
||||
' Enum howTo
|
||||
' MAPI_ORIG = 0
|
||||
' MAPI_TO
|
||||
' MAPI_CC
|
||||
' MAPI_BCC
|
||||
' End Enum
|
||||
|
||||
' End Class
|
||||
|
||||
' <StructLayout(LayoutKind.Sequential)>
|
||||
' Public Class MapiMessage
|
||||
' Public reserved As Integer
|
||||
' Public subject As String
|
||||
' Public noteText As String
|
||||
' Public messageType As String
|
||||
' Public dateReceived As String
|
||||
' Public conversationID As String
|
||||
' Public flags As Integer
|
||||
' Public originator As IntPtr
|
||||
' Public recipCount As Integer
|
||||
' Public recips As IntPtr
|
||||
' Public fileCount As Integer
|
||||
' Public files As IntPtr
|
||||
' End Class
|
||||
|
||||
' <StructLayout(LayoutKind.Sequential)>
|
||||
' Public Class MapiFileDesc
|
||||
' Public reserved As Integer
|
||||
' Public flags As Integer
|
||||
' Public position As Integer
|
||||
' Public path As String
|
||||
' Public name As String
|
||||
' Public type As IntPtr
|
||||
' End Class
|
||||
|
||||
' <StructLayout(LayoutKind.Sequential)>
|
||||
' Public Class MapiRecipDesc
|
||||
' Public reserved As Integer
|
||||
' Public recipClass As Integer
|
||||
' Public name As String
|
||||
' Public address As String
|
||||
' Public eIDSize As Integer
|
||||
' Public enTryID As IntPtr
|
||||
' End Class
|
||||
'End Namespace
|
||||
|
||||
|
||||
Imports System
|
||||
Imports System.IO
|
||||
Imports System.Net.Mail
|
||||
Imports System.Reflection
|
||||
Imports System.Runtime.CompilerServices
|
||||
|
||||
Namespace Fsolutions.Fbase.Common.Mail
|
||||
Module MailUtility
|
||||
<Extension()>
|
||||
Sub Save(ByVal message As MailMessage, ByVal filename As String, ByVal Optional addUnsentHeader As Boolean = True)
|
||||
Using filestream = File.Open(filename, FileMode.Create)
|
||||
|
||||
If addUnsentHeader Then
|
||||
Dim binaryWriter = New BinaryWriter(filestream)
|
||||
binaryWriter.Write(System.Text.Encoding.UTF8.GetBytes("X-Unsent: 1" & Environment.NewLine))
|
||||
End If
|
||||
|
||||
Dim assembly = GetType(SmtpClient).Assembly
|
||||
Dim mailWriterType = assembly.[GetType]("System.Net.Mail.MailWriter")
|
||||
Dim mailWriterContructor = mailWriterType.GetConstructor(BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, {GetType(Stream)}, Nothing)
|
||||
Dim mailWriter = mailWriterContructor.Invoke(New Object() {filestream})
|
||||
Dim sendMethod = GetType(MailMessage).GetMethod("Send", BindingFlags.Instance Or BindingFlags.NonPublic)
|
||||
sendMethod.Invoke(message, BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, New Object() {mailWriter, True, True}, Nothing)
|
||||
Dim closeMethod = mailWriter.[GetType]().GetMethod("Close", BindingFlags.Instance Or BindingFlags.NonPublic)
|
||||
closeMethod.Invoke(mailWriter, BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, New Object() {}, Nothing)
|
||||
End Using
|
||||
End Sub
|
||||
End Module
|
||||
End Namespace
|
||||
129
SDL/VERAG_PROG_ALLGEMEIN/Classes/cSendVorkosten.vb
Normal file
129
SDL/VERAG_PROG_ALLGEMEIN/Classes/cSendVorkosten.vb
Normal file
@@ -0,0 +1,129 @@
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cSendVorkosten
|
||||
Property sndvk_id As Integer
|
||||
Property sndvk_sendId As Object = Nothing
|
||||
Property sndvk_LeistungsNr As Object = Nothing
|
||||
Property sndvk_LeistungsBez As Object = Nothing
|
||||
Property sndvk_Preis As Object = Nothing
|
||||
Property sndvk_Firma As Object = Nothing
|
||||
|
||||
|
||||
Public hasEntry = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
|
||||
End Sub
|
||||
Sub New(sndvk_id)
|
||||
Me.sndvk_id = sndvk_id
|
||||
LOAD()
|
||||
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("sndvk_id", sndvk_id,, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndvk_sendId", sndvk_sendId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndvk_LeistungsNr", sndvk_LeistungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndvk_LeistungsBez", sndvk_LeistungsBez))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndvk_Preis", sndvk_Preis))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndvk_Firma", sndvk_Firma))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblSendVorkosten WHERE sndvk_id=@sndvk_id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Return SQL.doSQLVarList(sqlstr, "AVISO", , list)
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
hasEntry = False
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionAVISO()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblSendVorkosten WHERE sndvk_id=@sndvk_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@sndvk_id", sndvk_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
hasEntry = True
|
||||
End If
|
||||
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 getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblSendVorkosten] SET " & str & " WHERE sndvk_id=@sndvk_id ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 tblSendVorkosten (" & 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
|
||||
|
||||
Public Function INSERT() As Boolean
|
||||
Try
|
||||
Return SQL.doSQLVarList(getInsertCmd, "AVISO", , getParameterList)
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & " 'cSENDUNGEN'", System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
Return False
|
||||
End Function
|
||||
End Class
|
||||
871
SDL/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb
Normal file
871
SDL/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb
Normal file
@@ -0,0 +1,871 @@
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Public Class cSendungen
|
||||
Implements ICloneable
|
||||
Property tblSnd_SendungID As Integer = Nothing
|
||||
Property tblSnd_PosUnterNr As Integer = Nothing
|
||||
Property tblSnd_AvisoID As Integer = Nothing
|
||||
Property tblSnd_Abfertigungsart_ID As Integer = Nothing
|
||||
Property tblSnd_EmpfaengerKdNr As Integer = Nothing
|
||||
Property tblSnd_Empfaenger As String = Nothing
|
||||
Property tblSnd_Ansprechperson As String = Nothing
|
||||
Property tblSnd_Bonitaet As String = Nothing
|
||||
Property tblSnd_Anmerkung As String = Nothing
|
||||
Property tblSnd_AuftraggeberKdNr As Integer = Nothing
|
||||
Property tblSnd_Auftraggeber As String = Nothing
|
||||
Property tblSnd_SpeditionsbuchEingetragen As Boolean = False
|
||||
Property FilialenNr As Integer = Nothing
|
||||
Property AbfertigungsNr As Integer = Nothing
|
||||
Property UnterNr As Integer = Nothing
|
||||
Property tblSnd_Colli As String = Nothing
|
||||
Property tblSnd_Gewicht As String = Nothing
|
||||
Property tblSnd_Warenbezeichnung As String = Nothing
|
||||
Property tblSnd_SachbearbeiterId As Integer = Nothing
|
||||
Property tblSnd_AbsenderKdNr As Integer = Nothing
|
||||
Property tblSnd_Absender As String = Nothing
|
||||
Property tblSnd_AngabeZolltarif As Integer = Nothing
|
||||
Property tblSnd_inBearbeitung As Boolean = False
|
||||
Property tblSnd_Bearbeitung_MaId As Integer = Nothing
|
||||
Property tblSnd_aufschub As String = Nothing
|
||||
Property tblSnd_anzahlHandling As Object = Nothing
|
||||
Property tblSnd_anzahlPOS As Object = Nothing
|
||||
' Property tblSnd_bar As Object = Nothing
|
||||
' Property tblSnd_barBeleg As Object = Nothing
|
||||
' Property tblSnd_betrag As Object = Nothing
|
||||
Property tblSnd_Fremdspedition As Boolean = False
|
||||
Property tblSnd_FremdspeditionText As String = ""
|
||||
Property tblSnd_QS_MA As Object = Nothing
|
||||
Property tblSnd_KdAuftragsNr As Object = ""
|
||||
Property tblSnd_NCTSVerzollungsadresse As Object = ""
|
||||
Property tblSnd_NCTSVerzollungsadresseKdNr As Object = ""
|
||||
|
||||
Property NCTS_Verzollungsadresse_Strasse As Object = ""
|
||||
Property NCTS_Verzollungsadresse_PLZ As Object = ""
|
||||
Property NCTS_Verzollungsadresse_Ort As Object = ""
|
||||
Property NCTS_Verzollungsadresse_Land As Object = ""
|
||||
Property NCTS_Verzollungsadresse_EORI As Object = ""
|
||||
Property NCTS_Verzollungsadresse_EORI_NL As Object = ""
|
||||
Property NCTS_ngaId As Object = Nothing
|
||||
|
||||
|
||||
Property NCTS_Verzollungsadresse_Ansprechpartner As Object = ""
|
||||
Property NCTS_Bestimmungszollstelle As Object = ""
|
||||
|
||||
Property tblSnd_Endempfaenger As Object = ""
|
||||
Property tblSnd_EndempfaengerKdNr As Object = ""
|
||||
Property tblSnd_EUFiskalEmpfaenger As Object = ""
|
||||
Property tblSnd_EUFiskalEmpfaengerKdNr As Object = ""
|
||||
Property tblSnd_BARzuKassieren As Object = Nothing
|
||||
|
||||
Property tblSnd_KdAuftragsNrAvisierer As Object = Nothing
|
||||
Property tblSnd_KdAuftragsNrEmpfaenger As Object = Nothing
|
||||
Property tblSnd_KdAuftragsNrFrachtfuehrer As Object = Nothing
|
||||
Property tblSnd_AnmerkungDispoliste As Object = Nothing
|
||||
Property tblSnd_ATANr As Object = ""
|
||||
Property tblSnd_ATCMRN_Fremd As Object = ""
|
||||
Property tblSnd_Warenwert As Object = Nothing
|
||||
Property tblSnd_WarenwertWaehrung As Object = Nothing
|
||||
|
||||
|
||||
Property tblSnd_Status As Integer = 0
|
||||
Property tblSnd_Vorbereitet As Object = Nothing
|
||||
Property tblSnd_Vorgeschrieben As Object = Nothing
|
||||
|
||||
Property LetzterMitarbeiter As Object = Nothing
|
||||
Property LetzterMitarbeiterId As Object = Nothing
|
||||
Property tblSnd_VG_MA As Object = Nothing
|
||||
Property tblSnd_NCTSaufDISPO As Boolean = True
|
||||
|
||||
Property tblSnd_AvisiererKdNr As Object = Nothing
|
||||
Property tblSnd_Avisierer As Object = Nothing
|
||||
Property tblSnd_FrachtfuehrerKdNr As Object = Nothing
|
||||
Property tblSnd_Frachtfuehrer As Object = Nothing
|
||||
Property tblSnd_DakosyRef As Object = Nothing
|
||||
Property tblSnd_TeamId As Object = Nothing
|
||||
Property tblSnd_Fakturiert As Object = Nothing
|
||||
Property VORSYSTEM As Object = Nothing
|
||||
Property VORSYSTEM_Id As Object = Nothing
|
||||
Property tblSnd_FilialeAbklaerung As Object = Nothing
|
||||
|
||||
Property tblSnd_AbklaerungTR As Object = Nothing
|
||||
Property tblSnd_AbklaerungTR_MA As Object = Nothing
|
||||
|
||||
Property tblSnd_ATB_Nr As Object = Nothing
|
||||
Property tblSnd_ATB_T1 As Object = Nothing
|
||||
|
||||
Property tblSnd_Vorpapier As Object = Nothing
|
||||
Property tblSnd_Vorpapier_Pos As Object = Nothing
|
||||
Property tblSnd_Vorpapier2 As Object = Nothing
|
||||
Property tblSnd_Vorpapier2_Pos As Object = Nothing
|
||||
Property tblSnd_Vorpapier3 As Object = Nothing
|
||||
Property tblSnd_Vorpapier3_Pos As Object = Nothing
|
||||
Property tblSnd_Frachtkosten As Object = Nothing
|
||||
|
||||
|
||||
Public saveSachbearbeiter As Boolean = False
|
||||
|
||||
Property ABRECHNUNG As New List(Of cSendungAbrechnung)
|
||||
Property HANDLING As New List(Of cSendHandling)
|
||||
Property VORKOSTEN As New List(Of cSendVorkosten)
|
||||
|
||||
'Dim cDatenbank As New cDatenbank
|
||||
|
||||
Public Function Clone() As Object Implements ICloneable.Clone
|
||||
Return DirectCast(MemberwiseClone(), cSendungen)
|
||||
End Function
|
||||
|
||||
|
||||
Public Function CLEAR_ABRECHNUNG_NotLeistungen() As Boolean
|
||||
|
||||
ABRECHNUNG.RemoveAll(Function(x) x.sndabr_abrArt = "ZOLL")
|
||||
ABRECHNUNG.RemoveAll(Function(x) x.sndabr_abrArt = "EUST")
|
||||
ABRECHNUNG.RemoveAll(Function(x) x.sndabr_abrArt = "CLEARING")
|
||||
ABRECHNUNG.RemoveAll(Function(x) x.sndabr_abrArt = "ABFKOST")
|
||||
|
||||
Return True
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Shared Function VP_Enum(ByVal SENDUNG_LIST As List(Of cSendungen)) As List(Of String)
|
||||
Dim list = New List(Of String)
|
||||
'If SENDUNG_LIST IsNot Nothing Then
|
||||
' For Each s In SENDUNG_LIST
|
||||
' If If(s.tblSnd_Vorpapier, "") <> "" Then
|
||||
' Dim found = False
|
||||
' For Each l In list
|
||||
' If l = s.tblSnd_Vorpapier Then found = True
|
||||
' Next
|
||||
' If found = False Then list.Add(s.tblSnd_Vorpapier)
|
||||
' End If
|
||||
' Next
|
||||
'End If
|
||||
|
||||
If SENDUNG_LIST IsNot Nothing Then
|
||||
For Each s In SENDUNG_LIST
|
||||
If If(s.tblSnd_Vorpapier, "") <> "" Then
|
||||
Dim found = False
|
||||
For Each l In list
|
||||
If l = s.tblSnd_Vorpapier Then found = True
|
||||
Next
|
||||
If found = False Then list.Add(s.tblSnd_Vorpapier)
|
||||
End If
|
||||
If If(s.tblSnd_Vorpapier2, "") <> "" Then
|
||||
Dim found = False
|
||||
For Each l In list
|
||||
If l = s.tblSnd_Vorpapier2 Then found = True
|
||||
Next
|
||||
If found = False Then list.Add(s.tblSnd_Vorpapier2)
|
||||
End If
|
||||
If If(s.tblSnd_Vorpapier3, "") <> "" Then
|
||||
Dim found = False
|
||||
For Each l In list
|
||||
If l = s.tblSnd_Vorpapier3 Then found = True
|
||||
Next
|
||||
If found = False Then list.Add(s.tblSnd_Vorpapier3)
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Shared Sub LOAD_LIST(ByRef SENDUNG_LIST As List(Of cSendungen), ByRef CURRENT_INDEX As Integer, AvisoId As Integer, Optional allowchangeCurrIndex As Boolean = True)
|
||||
If SENDUNG_LIST Is Nothing Then SENDUNG_LIST = New List(Of cSendungen)
|
||||
SENDUNG_LIST.Clear()
|
||||
Dim SQL As New SQL
|
||||
For Each r In SQL.loadDgvBySql("SELECT tblSnd_SendungID FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoId & " ORDER BY tblSnd_PosUnterNr,tblSnd_SendungID", "AVISO").Rows
|
||||
SENDUNG_LIST.Add(New VERAG_PROG_ALLGEMEIN.cSendungen(r("tblSnd_SendungID")))
|
||||
Next
|
||||
If allowchangeCurrIndex Then CURRENT_INDEX = IIf(SENDUNG_LIST.Count > 0, 0, -1)
|
||||
End Sub
|
||||
Shared Sub LOAD_LIST_VP(ByRef SENDUNG_LIST As List(Of cSendungen), ByRef CURRENT_INDEX As Integer, AvisoId As Integer, Vorpapier As String, Optional allowchangeCurrIndex As Boolean = True)
|
||||
If SENDUNG_LIST Is Nothing Then SENDUNG_LIST = New List(Of cSendungen)
|
||||
SENDUNG_LIST.Clear()
|
||||
Dim SQL As New SQL
|
||||
For Each r In SQL.loadDgvBySql("SELECT tblSnd_SendungID FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoId & " AND (tblSnd_Vorpapier='" & Vorpapier & "' OR tblSnd_Vorpapier2='" & Vorpapier & "' OR tblSnd_Vorpapier3='" & Vorpapier & "' ) ORDER BY tblSnd_PosUnterNr,tblSnd_SendungID", "AVISO").Rows
|
||||
SENDUNG_LIST.Add(New VERAG_PROG_ALLGEMEIN.cSendungen(r("tblSnd_SendungID")))
|
||||
Next
|
||||
If allowchangeCurrIndex Then CURRENT_INDEX = IIf(SENDUNG_LIST.Count > 0, 0, -1)
|
||||
End Sub
|
||||
|
||||
Shared Sub LOAD_LIST_VP_EMPTY(ByRef SENDUNG_LIST As List(Of cSendungen), ByRef CURRENT_INDEX As Integer, AvisoId As Integer, Optional allowchangeCurrIndex As Boolean = True)
|
||||
If SENDUNG_LIST Is Nothing Then SENDUNG_LIST = New List(Of cSendungen)
|
||||
SENDUNG_LIST.Clear()
|
||||
Dim SQL As New SQL
|
||||
For Each r In SQL.loadDgvBySql("SELECT tblSnd_SendungID FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoId & " AND (isnull(tblSnd_Vorpapier,'')='' AND isnull(tblSnd_Vorpapier2,'')='' AND isnull(tblSnd_Vorpapier3,'')='' ) ORDER BY tblSnd_PosUnterNr,tblSnd_SendungID", "AVISO").Rows
|
||||
SENDUNG_LIST.Add(New VERAG_PROG_ALLGEMEIN.cSendungen(r("tblSnd_SendungID")))
|
||||
Next
|
||||
If allowchangeCurrIndex Then CURRENT_INDEX = IIf(SENDUNG_LIST.Count > 0, 0, -1)
|
||||
End Sub
|
||||
|
||||
Public Sub New(tblSnd_AvisoID, currentHisId, Optional FilialenNr = Nothing, Optional AbfertigungsNr = Nothing, Optional UnterNr = Nothing, Optional tblSnd_anzahlHandling = Nothing)
|
||||
Me.tblSnd_SendungID = -1
|
||||
Me.tblSnd_AvisoID = tblSnd_AvisoID
|
||||
Me.tblSnd_PosUnterNr = currentHisId
|
||||
' row.Item("tblSnd_Empfaenger") = ""
|
||||
' row.Item("tblSnd_Ansprechperson") = ""
|
||||
'row.Item("tblSnd_Auftraggeber") = ""
|
||||
'row.Item("tblSnd_Absender") = ""
|
||||
Me.tblSnd_Anmerkung = ""
|
||||
Me.tblSnd_Gewicht = ""
|
||||
Me.tblSnd_Colli = ""
|
||||
|
||||
'row.Item("tblSnd_SpeditionsbuchEingetragen") = False
|
||||
Me.tblSnd_AngabeZolltarif = 2
|
||||
Me.tblSnd_inBearbeitung = False
|
||||
Me.tblSnd_aufschub = ""
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then
|
||||
Me.tblSnd_QS_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
||||
End If
|
||||
|
||||
Me.LetzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
|
||||
Me.LetzterMitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
||||
|
||||
If FilialenNr IsNot Nothing Then Me.FilialenNr = FilialenNr
|
||||
If AbfertigungsNr IsNot Nothing Then Me.AbfertigungsNr = AbfertigungsNr
|
||||
If UnterNr IsNot Nothing Then Me.UnterNr = UnterNr
|
||||
If tblSnd_anzahlHandling IsNot Nothing Then Me.tblSnd_anzahlHandling = tblSnd_anzahlHandling
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub New(tblSnd_SendungID)
|
||||
LOAD(tblSnd_SendungID)
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
'WITH(updlock,serializable)
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM [tblSendungen] WHERE tblSnd_SendungID=@tblSnd_SendungID) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
' MsgBox(sqlstr)
|
||||
Dim id = SQL.doSQLVarListID(tblSnd_SendungID, sqlstr, "AVISO", , list)
|
||||
If id > 0 Then
|
||||
tblSnd_SendungID = id : Return True
|
||||
End If
|
||||
Return False
|
||||
End Function
|
||||
|
||||
'WITH(updlock,serializable)
|
||||
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblSendungen] WHERE tblSnd_SendungID=" & Me.tblSnd_SendungID
|
||||
Return SQL.doSQL(sqlstr, "AVISO")
|
||||
End Function
|
||||
|
||||
Public Shared Function LOADByFilialenNrAbfertigungsNr(FilialenNr As Integer, AbfertigungsNr As Integer) As cSendungen
|
||||
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim tblSnd_SendungID = sql.getValueTxtBySql("SELECT TOP 1 tblSnd_SendungID FROM tblSendungen WHERE FilialenNr='" & FilialenNr & "' AND AbfertigungsNr='" & AbfertigungsNr & "'", "AVISO")
|
||||
If tblSnd_SendungID <> "" Then
|
||||
Return New cSendungen(tblSnd_SendungID)
|
||||
Else
|
||||
Return Nothing
|
||||
End If
|
||||
End Function
|
||||
|
||||
Public Sub LOAD(tblSnd_SendungID As Integer)
|
||||
Try
|
||||
Dim conn As SqlConnection = SQL.GetNewOpenConnectionAVISO()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblSendungen WHERE tblSnd_SendungID=@tblSnd_SendungID ", conn)
|
||||
cmd.Parameters.AddWithValue("@tblSnd_SendungID", tblSnd_SendungID)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
Me.tblSnd_SendungID = SQL.checkNullReturnValue(dr.Item("tblSnd_SendungID"), Nothing)
|
||||
Me.tblSnd_PosUnterNr = SQL.checkNullReturnValue(dr.Item("tblSnd_PosUnterNr"), Nothing)
|
||||
Me.tblSnd_AvisoID = SQL.checkNullReturnValue(dr.Item("tblSnd_AvisoID"), Nothing)
|
||||
Me.tblSnd_Abfertigungsart_ID = SQL.checkNullReturnValue(dr.Item("tblSnd_Abfertigungsart_ID"), Nothing)
|
||||
Me.tblSnd_EmpfaengerKdNr = SQL.checkNullReturnValue(dr.Item("tblSnd_EmpfaengerKdNr"), Nothing)
|
||||
Me.tblSnd_Empfaenger = SQL.checkNullReturnValue(dr.Item("tblSnd_Empfaenger"), Nothing)
|
||||
Me.tblSnd_Ansprechperson = SQL.checkNullReturnValue(dr.Item("tblSnd_Ansprechperson"), Nothing)
|
||||
Me.tblSnd_Bonitaet = SQL.checkNullReturnValue(dr.Item("tblSnd_Bonitaet"), Nothing)
|
||||
Me.tblSnd_Anmerkung = SQL.checkNullReturnValue(dr.Item("tblSnd_Anmerkung"), Nothing)
|
||||
Me.tblSnd_AuftraggeberKdNr = SQL.checkNullReturnValue(dr.Item("tblSnd_AuftraggeberKdNr"), Nothing)
|
||||
Me.tblSnd_Auftraggeber = SQL.checkNullReturnValue(dr.Item("tblSnd_Auftraggeber"), Nothing)
|
||||
Me.tblSnd_SpeditionsbuchEingetragen = SQL.checkNullReturnValue(dr.Item("tblSnd_SpeditionsbuchEingetragen"), Nothing)
|
||||
Me.FilialenNr = SQL.checkNullReturnValue(dr.Item("FilialenNr"), Nothing)
|
||||
Me.AbfertigungsNr = SQL.checkNullReturnValue(dr.Item("AbfertigungsNr"), Nothing)
|
||||
Me.UnterNr = SQL.checkNullReturnValue(dr.Item("UnterNr"), Nothing)
|
||||
Me.tblSnd_Colli = SQL.checkNullReturnValue(dr.Item("tblSnd_Colli"), Nothing)
|
||||
Me.tblSnd_Gewicht = SQL.checkNullReturnValue(dr.Item("tblSnd_Gewicht"), Nothing)
|
||||
Me.tblSnd_Warenbezeichnung = SQL.checkNullReturnValue(dr.Item("tblSnd_Warenbezeichnung"), Nothing)
|
||||
Me.tblSnd_SachbearbeiterId = SQL.checkNullReturnValue(dr.Item("tblSnd_SachbearbeiterId"), Nothing)
|
||||
Me.tblSnd_AbsenderKdNr = SQL.checkNullReturnValue(dr.Item("tblSnd_AbsenderKdNr"), Nothing)
|
||||
Me.tblSnd_Absender = SQL.checkNullReturnValue(dr.Item("tblSnd_Absender"), Nothing)
|
||||
Me.tblSnd_AngabeZolltarif = SQL.checkNullReturnValue(dr.Item("tblSnd_AngabeZolltarif"), Nothing)
|
||||
Me.tblSnd_inBearbeitung = SQL.checkNullReturnValue(dr.Item("tblSnd_inBearbeitung"), Nothing)
|
||||
Me.tblSnd_Bearbeitung_MaId = SQL.checkNullReturnValue(dr.Item("tblSnd_Bearbeitung_MaId"), Nothing)
|
||||
Me.tblSnd_aufschub = SQL.checkNullReturnValue(dr.Item("tblSnd_aufschub"), Nothing)
|
||||
Me.tblSnd_anzahlHandling = SQL.checkNullReturnValue(dr.Item("tblSnd_anzahlHandling"), Nothing)
|
||||
Me.tblSnd_anzahlPOS = SQL.checkNullReturnValue(dr.Item("tblSnd_anzahlPOS"), Nothing)
|
||||
' Me.tblSnd_bar = SQL.checkNullReturnValue(dr.Item("tblSnd_bar"), Nothing)
|
||||
' Me.tblSnd_barBeleg = SQL.checkNullReturnValue(dr.Item("tblSnd_barBeleg"), Nothing)
|
||||
' Me.tblSnd_betrag = SQL.checkNullReturnValue(dr.Item("tblSnd_betrag"), Nothing)
|
||||
Me.tblSnd_Fremdspedition = SQL.checkNullReturnValue(dr.Item("tblSnd_Fremdspedition"), False)
|
||||
Me.tblSnd_FremdspeditionText = SQL.checkNullReturnValue(dr.Item("tblSnd_FremdspeditionText"), "")
|
||||
Me.tblSnd_QS_MA = SQL.checkNullReturnValue(dr.Item("tblSnd_QS_MA"), Nothing)
|
||||
Me.tblSnd_KdAuftragsNr = SQL.checkNullReturnValue(dr.Item("tblSnd_KdAuftragsNr"), "")
|
||||
Me.tblSnd_NCTSVerzollungsadresse = SQL.checkNullReturnValue(dr.Item("tblSnd_NCTSVerzollungsadresse"), "")
|
||||
Me.tblSnd_NCTSVerzollungsadresseKdNr = SQL.checkNullReturnValue(dr.Item("tblSnd_NCTSVerzollungsadresseKdNr"), Nothing)
|
||||
|
||||
|
||||
Me.NCTS_Verzollungsadresse_Strasse = SQL.checkNullReturnValue(dr.Item("NCTS_Verzollungsadresse_Strasse"), Nothing)
|
||||
Me.NCTS_Verzollungsadresse_PLZ = SQL.checkNullReturnValue(dr.Item("NCTS_Verzollungsadresse_PLZ"), Nothing)
|
||||
Me.NCTS_Verzollungsadresse_Ort = SQL.checkNullReturnValue(dr.Item("NCTS_Verzollungsadresse_Ort"), Nothing)
|
||||
Me.NCTS_Verzollungsadresse_Land = SQL.checkNullReturnValue(dr.Item("NCTS_Verzollungsadresse_Land"), Nothing)
|
||||
Me.NCTS_Verzollungsadresse_EORI = SQL.checkNullReturnValue(dr.Item("NCTS_Verzollungsadresse_EORI"), Nothing)
|
||||
Me.NCTS_Verzollungsadresse_EORI_NL = SQL.checkNullReturnValue(dr.Item("NCTS_Verzollungsadresse_EORI_NL"), Nothing)
|
||||
Me.NCTS_ngaId = SQL.checkNullReturnValue(dr.Item("NCTS_ngaId"), Nothing)
|
||||
|
||||
Me.NCTS_Bestimmungszollstelle = SQL.checkNullReturnValue(dr.Item("NCTS_Bestimmungszollstelle"), Nothing)
|
||||
|
||||
Me.tblSnd_Endempfaenger = SQL.checkNullReturnValue(dr.Item("tblSnd_Endempfaenger"), Nothing)
|
||||
Me.tblSnd_EndempfaengerKdNr = SQL.checkNullReturnValue(dr.Item("tblSnd_EndempfaengerKdNr"), Nothing)
|
||||
Me.tblSnd_EUFiskalEmpfaenger = SQL.checkNullReturnValue(dr.Item("tblSnd_EUFiskalEmpfaenger"), Nothing)
|
||||
Me.tblSnd_EUFiskalEmpfaengerKdNr = SQL.checkNullReturnValue(dr.Item("tblSnd_EUFiskalEmpfaengerKdNr"), Nothing)
|
||||
Me.tblSnd_BARzuKassieren = SQL.checkNullReturnValue(dr.Item("tblSnd_BARzuKassieren"), Nothing)
|
||||
|
||||
|
||||
Me.tblSnd_KdAuftragsNrAvisierer = SQL.checkNullReturnValue(dr.Item("tblSnd_KdAuftragsNrAvisierer"), Nothing)
|
||||
Me.tblSnd_KdAuftragsNrEmpfaenger = SQL.checkNullReturnValue(dr.Item("tblSnd_KdAuftragsNrEmpfaenger"), Nothing)
|
||||
Me.tblSnd_KdAuftragsNrFrachtfuehrer = SQL.checkNullReturnValue(dr.Item("tblSnd_KdAuftragsNrFrachtfuehrer"), Nothing)
|
||||
Me.tblSnd_AnmerkungDispoliste = SQL.checkNullReturnValue(dr.Item("tblSnd_AnmerkungDispoliste"), Nothing)
|
||||
Me.tblSnd_ATANr = SQL.checkNullReturnValue(dr.Item("tblSnd_ATANr"), Nothing)
|
||||
Me.tblSnd_ATCMRN_Fremd = SQL.checkNullReturnValue(dr.Item("tblSnd_ATCMRN_Fremd"), Nothing)
|
||||
Me.tblSnd_Warenwert = SQL.checkNullReturnValue(dr.Item("tblSnd_Warenwert"), Nothing)
|
||||
Me.tblSnd_WarenwertWaehrung = SQL.checkNullReturnValue(dr.Item("tblSnd_WarenwertWaehrung"), Nothing)
|
||||
|
||||
Me.tblSnd_Status = SQL.checkNullReturnValue(dr.Item("tblSnd_Status"), Nothing)
|
||||
Me.tblSnd_Vorbereitet = SQL.checkNullReturnValue(dr.Item("tblSnd_Vorbereitet"), Nothing)
|
||||
Me.tblSnd_Vorgeschrieben = SQL.checkNullReturnValue(dr.Item("tblSnd_Vorgeschrieben"), Nothing)
|
||||
|
||||
Me.LetzterMitarbeiter = SQL.checkNullReturnValue(dr.Item("LetzterMitarbeiter"), Nothing)
|
||||
Me.LetzterMitarbeiterId = SQL.checkNullReturnValue(dr.Item("LetzterMitarbeiterId"), Nothing)
|
||||
Me.tblSnd_VG_MA = SQL.checkNullReturnValue(dr.Item("tblSnd_VG_MA"), Nothing)
|
||||
Me.tblSnd_NCTSaufDISPO = SQL.checkNullReturnValue(dr.Item("tblSnd_NCTSaufDISPO"), Nothing)
|
||||
|
||||
Me.tblSnd_AvisiererKdNr = SQL.checkNullReturnValue(dr.Item("tblSnd_AvisiererKdNr"), Nothing)
|
||||
Me.tblSnd_Avisierer = SQL.checkNullReturnValue(dr.Item("tblSnd_Avisierer"), Nothing)
|
||||
Me.tblSnd_FrachtfuehrerKdNr = SQL.checkNullReturnValue(dr.Item("tblSnd_FrachtfuehrerKdNr"), Nothing)
|
||||
Me.tblSnd_Frachtfuehrer = SQL.checkNullReturnValue(dr.Item("tblSnd_Frachtfuehrer"), Nothing)
|
||||
Me.tblSnd_DakosyRef = SQL.checkNullReturnValue(dr.Item("tblSnd_DakosyRef"), Nothing)
|
||||
Me.tblSnd_TeamId = SQL.checkNullReturnValue(dr.Item("tblSnd_TeamId"), Nothing)
|
||||
Me.tblSnd_Fakturiert = SQL.checkNullReturnValue(dr.Item("tblSnd_Fakturiert"), Nothing)
|
||||
Me.tblSnd_FilialeAbklaerung = SQL.checkNullReturnValue(dr.Item("tblSnd_FilialeAbklaerung"), Nothing)
|
||||
Me.VORSYSTEM = SQL.checkNullReturnValue(dr.Item("VORSYSTEM"), Nothing)
|
||||
Me.VORSYSTEM_Id = SQL.checkNullReturnValue(dr.Item("VORSYSTEM_Id"), Nothing)
|
||||
Me.tblSnd_AbklaerungTR = SQL.checkNullReturnValue(dr.Item("tblSnd_AbklaerungTR"), Nothing)
|
||||
Me.tblSnd_AbklaerungTR_MA = SQL.checkNullReturnValue(dr.Item("tblSnd_AbklaerungTR_MA"), Nothing)
|
||||
Me.tblSnd_ATB_Nr = SQL.checkNullReturnValue(dr.Item("tblSnd_ATB_Nr"), Nothing)
|
||||
Me.tblSnd_ATB_T1 = SQL.checkNullReturnValue(dr.Item("tblSnd_ATB_T1"), Nothing)
|
||||
Me.tblSnd_Vorpapier = SQL.checkNullReturnValue(dr.Item("tblSnd_Vorpapier"), Nothing)
|
||||
Me.tblSnd_Vorpapier_Pos = SQL.checkNullReturnValue(dr.Item("tblSnd_Vorpapier_Pos"), Nothing)
|
||||
Me.tblSnd_Vorpapier2 = SQL.checkNullReturnValue(dr.Item("tblSnd_Vorpapier2"), Nothing)
|
||||
Me.tblSnd_Vorpapier2_Pos = SQL.checkNullReturnValue(dr.Item("tblSnd_Vorpapier2_Pos"), Nothing)
|
||||
Me.tblSnd_Vorpapier3 = SQL.checkNullReturnValue(dr.Item("tblSnd_Vorpapier3"), Nothing)
|
||||
Me.tblSnd_Vorpapier3_Pos = SQL.checkNullReturnValue(dr.Item("tblSnd_Vorpapier3_Pos"), Nothing)
|
||||
Me.tblSnd_Frachtkosten = SQL.checkNullReturnValue(dr.Item("tblSnd_Frachtkosten"), Nothing)
|
||||
|
||||
End If
|
||||
|
||||
dr.Close()
|
||||
|
||||
' End Using
|
||||
conn.Close()
|
||||
End Using
|
||||
'Return Nothing
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & " 'cSENDUNGEN'", System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
' Return Nothing
|
||||
End Sub
|
||||
|
||||
Public Sub LOAD_ABRECHNUNG()
|
||||
Try
|
||||
Me.ABRECHNUNG.Clear()
|
||||
Dim conn As SqlConnection = SQL.GetNewOpenConnectionAVISO()
|
||||
Using cmd2 As New SqlCommand("SELECT * FROM tblSendAbrechnung WHERE sndabr_sendId=@sndabr_sendId and sndabr_sendId>0", conn)
|
||||
cmd2.Parameters.AddWithValue("@sndabr_sendId", Me.tblSnd_SendungID)
|
||||
Dim dr2 = cmd2.ExecuteReader()
|
||||
|
||||
While dr2.Read
|
||||
Dim a As New cSendungAbrechnung(Me.tblSnd_SendungID)
|
||||
|
||||
a.sndabr_id = SQL.checkNullReturnValue(dr2.Item("sndabr_id"), Nothing)
|
||||
'a.sndabr_sendId = SQL.checkNullReturnValue(dr2.Item("sndabr_sendId"), Nothing)
|
||||
a.sndabr_beteiligter = SQL.checkNullReturnValue(dr2.Item("sndabr_beteiligter"), Nothing)
|
||||
a.sndabr_abrArt = SQL.checkNullReturnValue(dr2.Item("sndabr_abrArt"), Nothing)
|
||||
a.sndabr_wert = SQL.checkNullReturnValue(dr2.Item("sndabr_wert"), Nothing)
|
||||
a.sndabr_bezeichnung = SQL.checkNullReturnValue(dr2.Item("sndabr_bezeichnung"), Nothing)
|
||||
a.sndabr_anzahl = SQL.checkNullReturnValue(dr2.Item("sndabr_anzahl"), Nothing)
|
||||
a.sndabr_einzelPreis = SQL.checkNullReturnValue(dr2.Item("sndabr_einzelPreis"), Nothing)
|
||||
a.sndabr_preis = SQL.checkNullReturnValue(dr2.Item("sndabr_preis"), Nothing)
|
||||
|
||||
Me.ABRECHNUNG.Add(a)
|
||||
End While
|
||||
dr2.Close()
|
||||
End Using
|
||||
|
||||
conn.Close()
|
||||
'End Using
|
||||
'Return Nothing
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & " 'cSENDUNGEN'", System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
' Return Nothing
|
||||
End Sub
|
||||
|
||||
Public Sub LOAD_HANDLING()
|
||||
Try
|
||||
Me.HANDLING.Clear()
|
||||
Dim conn As SqlConnection = SQL.GetNewOpenConnectionAVISO()
|
||||
Using cmd2 As New SqlCommand("SELECT * FROM tblSendhandling WHERE sndhdg_sendId=@sndhdg_sendId ", conn)
|
||||
cmd2.Parameters.AddWithValue("@sndhdg_sendId", Me.tblSnd_SendungID)
|
||||
Dim dr2 = cmd2.ExecuteReader()
|
||||
|
||||
While dr2.Read
|
||||
Dim a As New cSendHandling(Me.tblSnd_SendungID)
|
||||
|
||||
a.sndhdg_id = SQL.checkNullReturnValue(dr2.Item("sndhdg_id"), Nothing)
|
||||
'a.sndhdg_sendId = SQL.checkNullReturnValue(dr2.Item("sndhdg_sendId"), Nothing)
|
||||
a.sndhdg_abrArt = SQL.checkNullReturnValue(dr2.Item("sndhdg_abrArt"), Nothing)
|
||||
a.sndhdg_nr = SQL.checkNullReturnValue(dr2.Item("sndhdg_nr"), Nothing)
|
||||
|
||||
a.sndhdg_colli = SQL.checkNullReturnValue(dr2.Item("sndhdg_colli"), 0)
|
||||
a.sndhdg_gewicht = SQL.checkNullReturnValue(dr2.Item("sndhdg_gewicht"), 0)
|
||||
Me.HANDLING.Add(a)
|
||||
End While
|
||||
dr2.Close()
|
||||
End Using
|
||||
|
||||
conn.Close()
|
||||
'End Using
|
||||
'Return Nothing
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & " 'cSENDUNGEN'", System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
' Return Nothing
|
||||
End Sub
|
||||
|
||||
Public Sub LOAD_VORKOSTEN()
|
||||
Try
|
||||
Me.VORKOSTEN.Clear()
|
||||
Dim conn As SqlConnection = SQL.GetNewOpenConnectionAVISO()
|
||||
Using cmd2 As New SqlCommand("SELECT * FROM tblSendVorkosten WHERE sndvk_sendId=@sndvk_sendId ", conn)
|
||||
cmd2.Parameters.AddWithValue("@sndvk_sendId", Me.tblSnd_SendungID)
|
||||
Dim dr2 = cmd2.ExecuteReader()
|
||||
|
||||
While dr2.Read
|
||||
Dim a As New cSendVorkosten()
|
||||
|
||||
a.sndvk_LeistungsNr = SQL.checkNullReturnValue(dr2.Item("sndvk_LeistungsNr"), Nothing)
|
||||
a.sndvk_sendId = SQL.checkNullReturnValue(dr2.Item("sndvk_sendId"), Nothing)
|
||||
a.sndvk_LeistungsBez = SQL.checkNullReturnValue(dr2.Item("sndvk_LeistungsBez"), Nothing)
|
||||
a.sndvk_Firma = SQL.checkNullReturnValue(dr2.Item("sndvk_Firma"), Nothing)
|
||||
|
||||
a.sndvk_Preis = SQL.checkNullReturnValue(dr2.Item("sndvk_Preis"), 0)
|
||||
|
||||
Me.VORKOSTEN.Add(a)
|
||||
End While
|
||||
dr2.Close()
|
||||
End Using
|
||||
|
||||
conn.Close()
|
||||
'End Using
|
||||
'Return Nothing
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & " 'cSENDUNGEN'", System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
' Return Nothing
|
||||
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("tblSnd_SendungID", tblSnd_SendungID, , True)) 'UPDATE INSERT ISPRIMARY!
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_PosUnterNr", tblSnd_PosUnterNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_AvisoID", tblSnd_AvisoID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Abfertigungsart_ID", tblSnd_Abfertigungsart_ID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_EmpfaengerKdNr", tblSnd_EmpfaengerKdNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Empfaenger", tblSnd_Empfaenger))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Ansprechperson", tblSnd_Ansprechperson))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Bonitaet", tblSnd_Bonitaet))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Anmerkung", tblSnd_Anmerkung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_AuftraggeberKdNr", tblSnd_AuftraggeberKdNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Auftraggeber", tblSnd_Auftraggeber))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_SpeditionsbuchEingetragen", tblSnd_SpeditionsbuchEingetragen))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNr", FilialenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", AbfertigungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UnterNr", UnterNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Colli", tblSnd_Colli))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Gewicht", tblSnd_Gewicht))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Warenbezeichnung", tblSnd_Warenbezeichnung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_SachbearbeiterId", tblSnd_SachbearbeiterId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_AbsenderKdNr", tblSnd_AbsenderKdNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Absender", tblSnd_Absender))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_AngabeZolltarif", tblSnd_AngabeZolltarif))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_inBearbeitung", tblSnd_inBearbeitung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Bearbeitung_MaId", tblSnd_Bearbeitung_MaId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_aufschub", tblSnd_aufschub))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_anzahlHandling", tblSnd_anzahlHandling))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_anzahlPOS", tblSnd_anzahlPOS))
|
||||
|
||||
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_bar", tblSnd_bar))
|
||||
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_barBeleg", tblSnd_barBeleg))
|
||||
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_betrag", tblSnd_betrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Fremdspedition", tblSnd_Fremdspedition))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_FremdspeditionText", tblSnd_FremdspeditionText))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_KdAuftragsNr", tblSnd_KdAuftragsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_NCTSVerzollungsadresse", tblSnd_NCTSVerzollungsadresse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_NCTSVerzollungsadresseKdNr", tblSnd_NCTSVerzollungsadresseKdNr))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("NCTS_Verzollungsadresse_Strasse", NCTS_Verzollungsadresse_Strasse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("NCTS_Verzollungsadresse_PLZ", NCTS_Verzollungsadresse_PLZ))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("NCTS_Verzollungsadresse_Ort", NCTS_Verzollungsadresse_Ort))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("NCTS_Verzollungsadresse_Land", NCTS_Verzollungsadresse_Land))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("NCTS_Verzollungsadresse_EORI", NCTS_Verzollungsadresse_EORI))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("NCTS_Verzollungsadresse_EORI_NL", NCTS_Verzollungsadresse_EORI_NL))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("NCTS_ngaId", NCTS_ngaId))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("NCTS_Verzollungsadresse_Ansprechpartner", NCTS_Verzollungsadresse_Ansprechpartner))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("NCTS_Bestimmungszollstelle", NCTS_Bestimmungszollstelle))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Endempfaenger", tblSnd_Endempfaenger))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_EndempfaengerKdNr", tblSnd_EndempfaengerKdNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_EUFiskalEmpfaenger", tblSnd_EUFiskalEmpfaenger))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_EUFiskalEmpfaengerKdNr", tblSnd_EUFiskalEmpfaengerKdNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_BARzuKassieren", tblSnd_BARzuKassieren))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_KdAuftragsNrAvisierer", tblSnd_KdAuftragsNrAvisierer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_KdAuftragsNrEmpfaenger", tblSnd_KdAuftragsNrEmpfaenger))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_KdAuftragsNrFrachtfuehrer", tblSnd_KdAuftragsNrFrachtfuehrer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_AnmerkungDispoliste", tblSnd_AnmerkungDispoliste))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_ATANr", tblSnd_ATANr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_ATCMRN_Fremd", tblSnd_ATCMRN_Fremd))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Warenwert", tblSnd_Warenwert))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_WarenwertWaehrung", tblSnd_WarenwertWaehrung))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_QS_MA", tblSnd_QS_MA,,, Not saveSachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Status", tblSnd_Status,,, Not saveSachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Vorbereitet", tblSnd_Vorbereitet,,, Not saveSachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Vorgeschrieben", tblSnd_Vorgeschrieben,,, Not saveSachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_VG_MA", tblSnd_VG_MA,,, Not saveSachbearbeiter))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LetzterMitarbeiter", LetzterMitarbeiter,,, Not saveSachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LetzterMitarbeiterId", LetzterMitarbeiterId,,, Not saveSachbearbeiter))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_NCTSaufDISPO", tblSnd_NCTSaufDISPO))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_AvisiererKdNr", tblSnd_AvisiererKdNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Avisierer", tblSnd_Avisierer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_FrachtfuehrerKdNr", tblSnd_FrachtfuehrerKdNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Frachtfuehrer", tblSnd_Frachtfuehrer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_DakosyRef", tblSnd_DakosyRef))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_TeamId", tblSnd_TeamId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Fakturiert", tblSnd_Fakturiert))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_FilialeAbklaerung", tblSnd_FilialeAbklaerung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VORSYSTEM", VORSYSTEM))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VORSYSTEM_Id", VORSYSTEM_Id))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_AbklaerungTR", tblSnd_AbklaerungTR))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_AbklaerungTR_MA", tblSnd_AbklaerungTR_MA))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_ATB_Nr", tblSnd_ATB_Nr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_ATB_T1", tblSnd_ATB_T1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Vorpapier", tblSnd_Vorpapier))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Vorpapier_Pos", tblSnd_Vorpapier_Pos))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Vorpapier2", tblSnd_Vorpapier2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Vorpapier2_Pos", tblSnd_Vorpapier2_Pos))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Vorpapier3", tblSnd_Vorpapier3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Vorpapier3_Pos", tblSnd_Vorpapier3_Pos))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Frachtkosten", tblSnd_Frachtkosten))
|
||||
|
||||
|
||||
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam And Not i.isonlyForLoad Then
|
||||
str &= "[" & i.Text & "] = @" & i.Text.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblSendungen] SET " & str & " WHERE tblSnd_SendungID=@tblSnd_SendungID ")
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & " 'cSENDUNGEN'", System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
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 And Not i.isonlyForLoad Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Text.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO tblSendungen (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & " 'cSENDUNGEN'", System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
'MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
Public Function SAVE_Abrechnung() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
' Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
SAVE_Abrechnung = False
|
||||
Dim sqlstr = " DELETE FROM tblSendAbrechnung WHERE sndabr_sendId=" & Me.tblSnd_SendungID
|
||||
If SQL.doSQL(sqlstr, "AVISO") Then
|
||||
SAVE_Abrechnung = True
|
||||
For Each a In ABRECHNUNG
|
||||
If Not a.INSERT() Then SAVE_Abrechnung = False
|
||||
Next
|
||||
End If
|
||||
|
||||
' Return b
|
||||
End Function
|
||||
|
||||
|
||||
Public Function SAVE_HANDLING() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
' Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
SAVE_HANDLING = False
|
||||
Dim sqlstr = " DELETE FROM tblSendHandling WHERE sndhdg_sendId=" & Me.tblSnd_SendungID
|
||||
' MsgBox(sqlstr)
|
||||
If SQL.doSQL(sqlstr, "AVISO") Then
|
||||
SAVE_HANDLING = True
|
||||
For Each a In HANDLING
|
||||
If Not a.INSERT() Then SAVE_HANDLING = False
|
||||
Next
|
||||
End If
|
||||
|
||||
' Return b
|
||||
End Function
|
||||
|
||||
|
||||
Public Function SAVE_VORKOSTEN() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
' Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
SAVE_VORKOSTEN = False
|
||||
Dim sqlstr = " DELETE FROM tblSendVorkosten WHERE sndvk_sendId=" & Me.tblSnd_SendungID
|
||||
' MsgBox(sqlstr)
|
||||
If SQL.doSQL(sqlstr, "AVISO") Then
|
||||
SAVE_VORKOSTEN = True
|
||||
For Each a In VORKOSTEN
|
||||
a.sndvk_sendId = Me.tblSnd_SendungID
|
||||
If Not a.INSERT() Then SAVE_VORKOSTEN = False
|
||||
Next
|
||||
End If
|
||||
|
||||
' Return b
|
||||
End Function
|
||||
|
||||
|
||||
Public Shared Function SET_SpedbuchEntry(tblSnd_SendungID As Integer, tblSnd_SpeditionsbuchEingetragen As Boolean) As String
|
||||
Try
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Return SQL.doSQL(" UPDATE [tblSendungen] SET tblSnd_SpeditionsbuchEingetragen=" & If(tblSnd_SpeditionsbuchEingetragen, 1, 0) & " WHERE tblSnd_SendungID=" & tblSnd_SendungID & " ", "AVISO")
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & " 'cSENDUNGEN'", System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
Public Function getNCTSAdress(Optional htmlOptimized As Boolean = False, Optional ansprechpartner As Boolean = True, Optional Bestimmungszollstelle As Boolean = True) As String
|
||||
Dim adresse = ""
|
||||
adresse &= If(Me.tblSnd_NCTSVerzollungsadresse, "") & vbNewLine
|
||||
adresse &= If(Me.NCTS_Verzollungsadresse_Strasse, "") & vbNewLine
|
||||
adresse &= If(Me.NCTS_Verzollungsadresse_Land, "") & " " & If(Me.NCTS_Verzollungsadresse_PLZ, "") & " " & If(Me.NCTS_Verzollungsadresse_Ort, "") & vbNewLine
|
||||
|
||||
If ansprechpartner Then adresse &= If(Me.NCTS_Verzollungsadresse_Ansprechpartner, "") & vbNewLine
|
||||
|
||||
If Bestimmungszollstelle And If(Me.NCTS_Bestimmungszollstelle, "") <> "" Then
|
||||
adresse &= SQL.getValueTxtBySql("SELECT basncd_dstnr +' - ' + [basncd_name] FROM basncd WHERE basncd_dstnr='" & Me.NCTS_Bestimmungszollstelle & "' ", "ATLAS")
|
||||
End If
|
||||
|
||||
If htmlOptimized Then adresse = adresse.Trim.Replace(vbNewLine, "<br/>")
|
||||
Return adresse.Trim
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getEmpfaengerAdress(Optional htmlOptimized As Boolean = False, Optional ansprechpartner As Boolean = False) As String
|
||||
If tblSnd_EmpfaengerKdNr > 0 Then
|
||||
Dim AD As New cAdressen(tblSnd_EmpfaengerKdNr)
|
||||
Dim adresse = ""
|
||||
adresse &= If(AD.Name_1, "") & If(AD.Name_2, "") & vbNewLine
|
||||
If If(AD.Straße, "") <> "" Then adresse &= If(AD.Straße, "") & vbNewLine
|
||||
adresse &= If(AD.LandKz, "") & " " & If(AD.PLZ, "").ToString.ToUpper.Replace("OHNE", "") & " " & If(AD.Ort, "")
|
||||
|
||||
If htmlOptimized Then adresse = adresse.Trim.Replace(vbNewLine, "<br/>")
|
||||
Return adresse.Trim
|
||||
Else
|
||||
Return tblSnd_Empfaenger
|
||||
End If
|
||||
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
Public Class cSendungAbrechnung
|
||||
Property sndabr_id As Integer = Nothing
|
||||
Property sndabr_sendId As Integer = Nothing
|
||||
Property sndabr_beteiligter As String = Nothing
|
||||
Property sndabr_abrArt As String = Nothing
|
||||
Property sndabr_wert As String = Nothing
|
||||
Property sndabr_bezeichnung As String = Nothing
|
||||
Property sndabr_anzahl As Integer = Nothing
|
||||
Property sndabr_einzelPreis As Object = Nothing
|
||||
Property sndabr_preis As Object = Nothing
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New(sndabr_sendId)
|
||||
Me.sndabr_sendId = sndabr_sendId
|
||||
End Sub
|
||||
|
||||
Sub New(sndabr_sendId, sndabr_beteiligter, sndabr_abrArt, sndabr_wert)
|
||||
Me.sndabr_sendId = sndabr_sendId
|
||||
Me.sndabr_beteiligter = sndabr_beteiligter
|
||||
Me.sndabr_abrArt = sndabr_abrArt
|
||||
Me.sndabr_wert = sndabr_wert
|
||||
End Sub
|
||||
|
||||
Sub New(sndabr_sendId, sndabr_beteiligter, sndabr_abrArt, sndabr_wert, sndabr_bezeichnung, sndabr_anzahl, sndabr_einzelPreis, sndabr_preis)
|
||||
Me.sndabr_sendId = sndabr_sendId
|
||||
Me.sndabr_beteiligter = sndabr_beteiligter
|
||||
Me.sndabr_abrArt = sndabr_abrArt
|
||||
Me.sndabr_wert = sndabr_wert
|
||||
Me.sndabr_bezeichnung = sndabr_bezeichnung
|
||||
Me.sndabr_anzahl = sndabr_anzahl
|
||||
Me.sndabr_einzelPreis = sndabr_einzelPreis
|
||||
Me.sndabr_preis = sndabr_preis
|
||||
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("sndabr_id", sndabr_id, , True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndabr_sendId", sndabr_sendId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndabr_beteiligter", sndabr_beteiligter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndabr_abrArt", sndabr_abrArt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndabr_wert", sndabr_wert))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndabr_bezeichnung", sndabr_bezeichnung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndabr_anzahl", sndabr_anzahl))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndabr_einzelPreis", sndabr_einzelPreis))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndabr_preis", sndabr_preis))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Public Function INSERT() As Boolean
|
||||
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.Text.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return SQL.doSQLVarList(" INSERT INTO [tblSendAbrechnung] (" & str & ") VALUES(" & values & ") ", "AVISO", , list)
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & " 'cSENDUNGEN'", System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return False
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
Public Class cSendHandling
|
||||
Property sndhdg_id As Integer = Nothing
|
||||
Property sndhdg_sendId As Integer = Nothing
|
||||
Property sndhdg_abrArt As String = Nothing
|
||||
Property sndhdg_nr As String = Nothing
|
||||
Property sndhdg_colli As Double = 0
|
||||
Property sndhdg_gewicht As Double = 0
|
||||
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New(sndhdg_sendId)
|
||||
Me.sndhdg_sendId = sndhdg_sendId
|
||||
End Sub
|
||||
|
||||
Sub New(sndhdg_sendId, sndabr_beteiligter, sndabr_abrArt, sndabr_wert, sndhdg_colli, sndhdg_gewicht)
|
||||
Me.sndhdg_sendId = sndhdg_sendId
|
||||
Me.sndhdg_abrArt = sndhdg_abrArt
|
||||
Me.sndhdg_nr = sndhdg_nr
|
||||
Me.sndhdg_colli = sndhdg_colli
|
||||
Me.sndhdg_gewicht = sndhdg_gewicht
|
||||
End Sub
|
||||
|
||||
Sub New(sndhdg_sendId, sndhdg_abrArt, sndhdg_nr, sndhdg_colli, sndhdg_gewicht)
|
||||
Me.sndhdg_sendId = sndhdg_sendId
|
||||
Me.sndhdg_abrArt = sndhdg_abrArt
|
||||
Me.sndhdg_nr = sndhdg_nr
|
||||
Me.sndhdg_colli = sndhdg_colli
|
||||
Me.sndhdg_gewicht = sndhdg_gewicht
|
||||
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("sndhdg_id", sndhdg_id, , True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndhdg_sendId", sndhdg_sendId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndhdg_abrArt", sndhdg_abrArt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndhdg_nr", sndhdg_nr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndhdg_colli", sndhdg_colli))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndhdg_gewicht", sndhdg_gewicht))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Public Function INSERT() As Boolean
|
||||
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.Text.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return SQL.doSQLVarList(" INSERT INTO [tblSendHandling] (" & str & ") VALUES(" & values & ") ", "AVISO", , list)
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & " 'cSENDUNGEN'", System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return False
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
204
SDL/VERAG_PROG_ALLGEMEIN/Classes/cSession.vb
Normal file
204
SDL/VERAG_PROG_ALLGEMEIN/Classes/cSession.vb
Normal file
@@ -0,0 +1,204 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cSession
|
||||
|
||||
Property sess_Id As Integer
|
||||
Property sess_system As String = ""
|
||||
Property sess_progId As Object = Nothing
|
||||
Property sess_progName As String = ""
|
||||
Property sess_progVersion As String = ""
|
||||
|
||||
Property sess_maName As String = ""
|
||||
Property sess_maId As Integer
|
||||
|
||||
Property sess_firma As String = ""
|
||||
Property sess_niederlassung As String = ""
|
||||
Property sess_ipAddress As String = ""
|
||||
Property sess_PCName As String = ""
|
||||
Property sess_PCUserName As String = ""
|
||||
|
||||
|
||||
Property sess_login As Object = Nothing = Now
|
||||
Property sess_logout As Object = Nothing
|
||||
Property sess_lastRm As Object = Nothing
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
|
||||
End Sub
|
||||
Sub New(sess_Id)
|
||||
Me.sess_Id = sess_Id
|
||||
LOAD()
|
||||
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("sess_Id", sess_Id, , True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_system", sess_system))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_progId", sess_progId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_progName", sess_progName))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_progVersion", sess_progVersion))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_firma", sess_firma))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_niederlassung", sess_niederlassung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_ipAddress", sess_ipAddress))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_PCName", sess_PCName))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_PCUserName", sess_PCUserName))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_maName", sess_maName))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_maId", sess_maId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_login", sess_login))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_logout", sess_logout))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_lastRm", sess_lastRm))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblSessions WITH(updlock,serializable) WHERE sess_Id=@sess_Id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Dim id = SQL.doSQLVarListID(sess_Id, sqlstr, "ADMIN", , list)
|
||||
Me.sess_Id = id
|
||||
Return id > 0
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblSessions WHERE sess_Id=@sess_Id ", conn)
|
||||
cmd.Parameters.AddWithValue("@sess_Id", sess_Id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
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 UPDATE_TIME() As String
|
||||
If sess_Id > 0 Then
|
||||
Try
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_Id", sess_Id, , True))
|
||||
sess_lastRm = Now
|
||||
'list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_lastRm", sess_lastRm))
|
||||
|
||||
Return SQL.doSQLVarList(" UPDATE [tblSessions] SET sess_lastRm=GETDATE() WHERE sess_Id=@sess_Id ", "ADMIN", , list)
|
||||
|
||||
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 If
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Shared Function GET_IP_FROM_MAID(sess_maId) As String
|
||||
Dim SQL As New SQL
|
||||
Return SQL.getValueTxtBySql(" SELECT TOP 1 isnull(sess_ipaddress,'') as sess_ipaddress FROM [tblSessions] where sess_lastRm > DATEADD(SECOND,-70, GETDATE()) AND sess_maId=" & sess_maId, "ADMIN")
|
||||
End Function
|
||||
|
||||
Public Function LOGIN() As String
|
||||
Me.sess_system = (If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "T", "E"))
|
||||
Me.sess_login = Now
|
||||
Me.sess_maId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_id
|
||||
Me.sess_maName = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
Me.sess_firma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Me.sess_niederlassung = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
|
||||
Try
|
||||
Me.sess_ipAddress = System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName()).AddressList(0).ToString()
|
||||
Me.sess_PCName = System.Environment.MachineName
|
||||
Me.sess_PCUserName = My.User.Name.ToString
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
Me.sess_lastRm = Now
|
||||
Me.sess_progId = Nothing
|
||||
Me.sess_progName = VERAG_PROG_ALLGEMEIN.cAllgemein.PROGNAME
|
||||
Me.sess_progVersion = VERAG_PROG_ALLGEMEIN.cAllgemein.PROGVERSION
|
||||
|
||||
Return SAVE()
|
||||
End Function
|
||||
|
||||
Public Function LOGOUT() As String
|
||||
Try
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_Id", sess_Id, , True))
|
||||
sess_lastRm = Now
|
||||
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_lastRm", sess_lastRm))
|
||||
sess_logout = Now
|
||||
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_logout", sess_logout))
|
||||
|
||||
Return SQL.doSQLVarList(" UPDATE [tblSessions] SET sess_lastRm=GETDATE(),sess_logout=GETDATE() WHERE sess_Id=@sess_Id ", "ADMIN", , list)
|
||||
|
||||
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
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblSessions] SET " & str & " WHERE sess_Id=@sess_Id ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 tblSessions (" & 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
|
||||
876
SDL/VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb
Normal file
876
SDL/VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb
Normal file
@@ -0,0 +1,876 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
|
||||
Public Class cSpeditionsbuchList
|
||||
Property FilialenNr As Integer = -1
|
||||
Property AbfertigungsNr As Integer = -1
|
||||
|
||||
Property min As Integer = -1
|
||||
Property max As Integer = -1
|
||||
|
||||
|
||||
' Property OffertenNr As Object = Nothing
|
||||
Public LIST As New List(Of cSpeditionsbuch)
|
||||
Dim SQL As New SQL
|
||||
'Dim listTodelete As New List(Of cOfferte)
|
||||
|
||||
Sub New(FilialenNr, AbfertigungsNr)
|
||||
Me.FilialenNr = FilialenNr
|
||||
Me.AbfertigungsNr = AbfertigungsNr
|
||||
|
||||
LOAD_LIST(Me.FilialenNr, Me.AbfertigungsNr)
|
||||
End Sub
|
||||
Public Sub CLEAR()
|
||||
LIST.Clear()
|
||||
End Sub
|
||||
|
||||
Public Sub LOAD_LIST()
|
||||
LOAD_LIST(FilialenNr, AbfertigungsNr)
|
||||
End Sub
|
||||
|
||||
Public Sub LOAD_LIST(FilialenNr, AbfertigungsNr)
|
||||
Try
|
||||
LIST.Clear()
|
||||
min = 999999
|
||||
max = -1
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM Speditionsbuch WHERE FilialenNr=@FilialenNr AND AbfertigungsNr=@AbfertigungsNr ", conn)
|
||||
cmd.Parameters.AddWithValue("@FilialenNr", FilialenNr)
|
||||
cmd.Parameters.AddWithValue("@AbfertigungsNr", AbfertigungsNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cSpeditionsbuch
|
||||
l.LOAD(dr.Item("FilialenNr"), dr.Item("AbfertigungsNr"), dr.Item("UnterNr"))
|
||||
LIST.Add(l)
|
||||
If l.UnterNr < min Then min = l.UnterNr
|
||||
If l.UnterNr > max Then max = l.UnterNr
|
||||
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 SAVE()
|
||||
' If SQL.doSQLVarList("DELETE FROM tblEmailBenachrichtigung WHERE eb_KundenNr=" & Me.eb_KundenNr & " and eb_ebartId=" & Me.eb_ebartId & " ", "FMZOLL") Then
|
||||
' For Each l In LIST
|
||||
' If Not l.INSERT() Then Return False
|
||||
' Next
|
||||
' Return True
|
||||
' Else
|
||||
' Return False
|
||||
' End If
|
||||
'End Function
|
||||
End Class
|
||||
|
||||
|
||||
Public Class cSpeditionsbuch
|
||||
Property FilialenNr As Integer = -1
|
||||
Property AbfertigungsNr As Integer = -1
|
||||
Property UnterNr As Integer = -1
|
||||
Property Abfertigungsdatum As Object = CDate(Now.ToShortDateString)
|
||||
Property Bar As Boolean = False
|
||||
Property Fakturiert As Boolean = False
|
||||
Property BelegNr As String = ""
|
||||
Property ErfassungsNr As String = ""
|
||||
Property LKW_Kennzeichen As String = ""
|
||||
' Property AvisiererKundenNr As Object = Nothing
|
||||
' Property Avisierer As String = ""
|
||||
' Property AbsenderKundenNr As Object = Nothing
|
||||
'Property Absender As String = ""
|
||||
'Property AbsenderOffertenNr As Object = Nothing
|
||||
'Property EmpfängerKundenNr As Object = Nothing
|
||||
'Property Empfänger As String = ""
|
||||
'Property EmpfängerOffertenNr As Object = Nothing
|
||||
'Property VermittlerKundenNr As Object = Nothing
|
||||
'Property Vermittler As String = ""
|
||||
'Property VermittlerOffertenNr As Object = Nothing
|
||||
'Property FrachtführerKundenNr As Object = Nothing
|
||||
'Property Frachtführer As String = ""
|
||||
|
||||
Property AvisiererKundenNr As Object = Nothing
|
||||
<VBFixedString(50)> Public Avisierer As String = ""
|
||||
Property AbsenderKundenNr As Object = Nothing
|
||||
<VBFixedString(50)> Public Absender As String = ""
|
||||
Property AbsenderOffertenNr As Object = Nothing
|
||||
Property EmpfängerKundenNr As Object = Nothing
|
||||
<VBFixedString(50)> Public Empfänger As String = ""
|
||||
Property EmpfängerOffertenNr As Object = Nothing
|
||||
Property VermittlerKundenNr As Object = Nothing
|
||||
<VBFixedString(50)> Public Vermittler As String = ""
|
||||
Property VermittlerOffertenNr As Object = Nothing
|
||||
Property FrachtführerKundenNr As Object = Nothing
|
||||
<VBFixedString(50)> Public Frachtführer As String = ""
|
||||
|
||||
|
||||
Property AnzahlZA As Integer = 0
|
||||
Property AnzahlZAFremd As Integer = 0
|
||||
Property AnzahlZnV As Integer = 0
|
||||
Property AnzahlZnVFremd As Integer = 0
|
||||
Property AnzahlT1 As Integer = 0
|
||||
Property AnzahlT2 As Integer = 0
|
||||
Property AnzahlAE As Integer = 0
|
||||
Property AnzahlCarnetTIR As Integer = 0
|
||||
Property AnzahlBarvorlagen As Integer = 0
|
||||
Property AnzahlSonstiges As Integer = 0
|
||||
Property AnzahlGrenzgebühren As Integer = 0
|
||||
Property AvisUhrzeit As String = ""
|
||||
Property Vermerk As String = ""
|
||||
Property Bemerkungen As String = ""
|
||||
Property Währungsschlüssel As Object = Nothing 'int=-1
|
||||
Property Rechnungsbetrag As Object = Nothing 'dbl=0
|
||||
Property Umrechnungskurs As Object = CDbl(1) 'dbl=1
|
||||
Property Packstücke As String = ""
|
||||
Property Rohmasse As Object = Nothing 'int=0
|
||||
Property Zahlungsaufschub As String = ""
|
||||
Property Löschen As Object = Nothing
|
||||
Property Abfertigungsart As Object = Nothing
|
||||
Property Abfertigungsanzahl As Integer = 0
|
||||
Property AbfertigungsanzahlPos As Object = Nothing
|
||||
Property Barzahlungsbetrag As Double = 0
|
||||
' Property Sachbearbeiter As String = ""
|
||||
<VBFixedString(15)> Public Sachbearbeiter As String = ""
|
||||
Property Personalnummer As Object = Nothing 'int=-1
|
||||
Property PersonalnummerQS As Object = Nothing 'int=-1
|
||||
Property AtlasBezNrEZA As String = ""
|
||||
Property AtlasBezNrNCTS As String = ""
|
||||
Property Versendungsland As String = ""
|
||||
Property SB_CMR As Boolean = False
|
||||
Property SB_CMRDatum As Object = Nothing
|
||||
Property SB_CMRNr As Object = Nothing
|
||||
Property veoerz_basbtg As Double = 0
|
||||
Property Zucker_MRN_Nr As Object = Nothing
|
||||
Property Zucker_MRN_Datum As Object = Nothing
|
||||
Property Zucker_Aufschub As Object = Nothing
|
||||
Property Zollsystem As String = Nothing
|
||||
Property Bestimmungszollstelle As String = ""
|
||||
Property Bürgschaft As String = ""
|
||||
Property Sicherheitsbetrag As Double = 0
|
||||
Property SgutKompl As Object = Nothing
|
||||
Property Bestimmungsland As String = ""
|
||||
Property EuFiskalEmpfänger As String = ""
|
||||
Property QKN As String = ""
|
||||
Property EndempfängerKundenNr As Object = Nothing
|
||||
' Property Endempfänger As String = ""
|
||||
<VBFixedString(50)> Public Endempfänger As String = ""
|
||||
|
||||
Property AvisoID As Object = Nothing
|
||||
Property SendungID As Object = Nothing
|
||||
Property Grenzstelle As Object = Nothing
|
||||
|
||||
|
||||
Property KdAuftragsNr As Object = Nothing
|
||||
Property KdAuftragsNrAvisierer As Object = Nothing
|
||||
Property KdAuftragsNrEmpfaenger As Object = Nothing
|
||||
Property KdAuftragsNrFrachtfuehrer As Object = Nothing
|
||||
Property SB_Zeitstempel As Object = Now
|
||||
|
||||
Property NCTS_Verzollungsadresse As Object = Nothing
|
||||
Property NCTS_VerzollungsadresseKdNr As Object = Nothing
|
||||
Property AuftraggeberBetragKassiert As Object = Nothing
|
||||
|
||||
Property Lieferantenrechnung As Object = Nothing
|
||||
Property DokumentId_Steuerbeleg As Object = Nothing
|
||||
Property DokumentId_Mitteilung As Object = Nothing
|
||||
Property DokumentId_VBD As Object = Nothing
|
||||
Property DokumentId_ABD As Object = Nothing
|
||||
Property DokumentId_AVM As Object = Nothing
|
||||
Property FilialenNrHandling As Object = Nothing
|
||||
Property HandlingZuKassieren As Double = 0
|
||||
|
||||
Property FilialenNrAbklaerung As Object = Nothing
|
||||
Property PersonalnummerAbklTR As Object = Nothing
|
||||
Property UK_EIDR_ausstehend As Boolean = False
|
||||
|
||||
|
||||
Property UNTERPOS As New List(Of cSpeditionsbuchUnterPos)
|
||||
Property VORKOSTEN As New List(Of cVorkosten)
|
||||
Property ENDEMPFAENGER As New List(Of cEndEmpfaener)
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Public Sub New()
|
||||
End Sub
|
||||
|
||||
Property hasEntry As Boolean = False
|
||||
|
||||
Public Sub New(FilialenNr As Integer, AbfertigungsNr As Integer, UnterNr As Integer)
|
||||
Me.FilialenNr = FilialenNr
|
||||
Me.AbfertigungsNr = AbfertigungsNr
|
||||
Me.UnterNr = UnterNr
|
||||
LOAD(FilialenNr, AbfertigungsNr, UnterNr)
|
||||
End Sub
|
||||
|
||||
Public Sub New(FilialenNr As Integer, AbfertigungsNr As Integer)
|
||||
Me.FilialenNr = FilialenNr
|
||||
Me.AbfertigungsNr = AbfertigungsNr
|
||||
Me.UnterNr = NewUNTER_NR()
|
||||
LOAD(FilialenNr, AbfertigungsNr, UnterNr)
|
||||
End Sub
|
||||
|
||||
|
||||
Function NewUNTER_NR() As Integer
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNr", FilialenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", AbfertigungsNr))
|
||||
UnterNr = SQL.getValueTxtBySqlVarList("SELECT isnull(MAX(UnterNr)+1,0) FROM Speditionsbuch WHERE [FilialenNr]=@FilialenNr AND AbfertigungsNr=@AbfertigungsNr", "FMZOLL", list)
|
||||
Return UnterNr
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Shared Function existsSpedBuch(FilialenNr As Integer, AbfertigungsNr As Integer) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
If FilialenNr <= 0 Then Return False
|
||||
If AbfertigungsNr <= 0 Then Return False
|
||||
Dim SQL As New SQL
|
||||
Return (CInt(SQL.getValueTxtBySql(" SELECT COUNT(*) FROM [Speditionsbuch] WHERE [FilialenNr]='" & FilialenNr & "' AND AbfertigungsNr='" & AbfertigungsNr & "' ", "FMZOLL")) > 0)
|
||||
End Function
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
' MsgBox(getUpdateCmd())
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM [Speditionsbuch] WITH(updlock,serializable) WHERE [FilialenNr]=@FilialenNr AND AbfertigungsNr=@AbfertigungsNr AND UnterNr=@UnterNr) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
If SQL.doSQLVarList(sqlstr, "FMZOLL", , list) Then
|
||||
If SAVE_VORKOSTEN() And SAVE_ENDEMPFAENGER() Then
|
||||
Return True
|
||||
End If
|
||||
End If
|
||||
Return False
|
||||
End Function
|
||||
Public Sub LOAD()
|
||||
LOAD(FilialenNr, AbfertigungsNr, UnterNr)
|
||||
End Sub
|
||||
Public Sub LOAD(FilialenNr As Integer, AbfertigungsNr As Integer, UnterNr As Integer)
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM Speditionsbuch WHERE [FilialenNr]=@FilialenNr AND AbfertigungsNr=@AbfertigungsNr AND UnterNr=@UnterNr ", conn)
|
||||
cmd.Parameters.AddWithValue("@FilialenNr", FilialenNr)
|
||||
cmd.Parameters.AddWithValue("@AbfertigungsNr", AbfertigungsNr)
|
||||
cmd.Parameters.AddWithValue("@UnterNr", UnterNr)
|
||||
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
Me.FilialenNr = SQL.checkNullInteger(dr.Item("FilialenNr"))
|
||||
Me.AbfertigungsNr = SQL.checkNullInteger(dr.Item("AbfertigungsNr"))
|
||||
Me.UnterNr = SQL.checkNullInteger(dr.Item("UnterNr"))
|
||||
Me.Abfertigungsdatum = SQL.checkNullDateNothing(dr.Item("Abfertigungsdatum"))
|
||||
Me.Bar = SQL.checkNullBool(dr.Item("Bar"))
|
||||
Me.Fakturiert = SQL.checkNullBool(dr.Item("Fakturiert"))
|
||||
Me.BelegNr = SQL.checkNullStr(dr.Item("BelegNr"))
|
||||
Me.ErfassungsNr = SQL.checkNullStr(dr.Item("ErfassungsNr"))
|
||||
Me.LKW_Kennzeichen = SQL.checkNullStr(dr.Item("LKW Kennzeichen"))
|
||||
Me.AvisiererKundenNr = SQL.checkNullReturnValue(dr.Item("AvisiererKundenNr"), Nothing)
|
||||
Me.Avisierer = SQL.checkNullStr(dr.Item("Avisierer"))
|
||||
Me.AbsenderKundenNr = SQL.checkNullReturnValue(dr.Item("AbsenderKundenNr"), Nothing)
|
||||
Me.Absender = SQL.checkNullStr(dr.Item("Absender"))
|
||||
Me.AbsenderOffertenNr = SQL.checkNullInteger(dr.Item("AbsenderOffertenNr"))
|
||||
Me.EmpfängerKundenNr = SQL.checkNullReturnValue(dr.Item("EmpfängerKundenNr"), Nothing)
|
||||
Me.Empfänger = SQL.checkNullStr(dr.Item("Empfänger"))
|
||||
Me.EmpfängerOffertenNr = SQL.checkNullInteger(dr.Item("EmpfängerOffertenNr"))
|
||||
Me.VermittlerKundenNr = SQL.checkNullReturnValue(dr.Item("VermittlerKundenNr"), Nothing)
|
||||
Me.Vermittler = SQL.checkNullStr(dr.Item("Vermittler"))
|
||||
Me.VermittlerOffertenNr = SQL.checkNullInteger(dr.Item("VermittlerOffertenNr"))
|
||||
Me.FrachtführerKundenNr = SQL.checkNullReturnValue(dr.Item("FrachtführerKundenNr"), Nothing)
|
||||
Me.Frachtführer = SQL.checkNullStr(dr.Item("Frachtführer"))
|
||||
Me.AnzahlZA = SQL.checkNullIntegerZero(dr.Item("AnzahlZA"))
|
||||
Me.AnzahlZAFremd = SQL.checkNullIntegerZero(dr.Item("AnzahlZAFremd"))
|
||||
Me.AnzahlZnV = SQL.checkNullIntegerZero(dr.Item("AnzahlZnV"))
|
||||
Me.AnzahlZnVFremd = SQL.checkNullIntegerZero(dr.Item("AnzahlZnVFremd"))
|
||||
Me.AnzahlT1 = SQL.checkNullIntegerZero(dr.Item("AnzahlT1"))
|
||||
Me.AnzahlT2 = SQL.checkNullIntegerZero(dr.Item("AnzahlT2"))
|
||||
Me.AnzahlAE = SQL.checkNullStr(dr.Item("AnzahlAE"))
|
||||
Me.AnzahlCarnetTIR = SQL.checkNullIntegerZero(dr.Item("AnzahlCarnetTIR"))
|
||||
Me.AnzahlBarvorlagen = SQL.checkNullIntegerZero(dr.Item("AnzahlBarvorlagen"))
|
||||
Me.AnzahlSonstiges = SQL.checkNullIntegerZero(dr.Item("AnzahlSonstiges"))
|
||||
Me.AnzahlGrenzgebühren = SQL.checkNullIntegerZero(dr.Item("AnzahlGrenzgebühren"))
|
||||
Me.AvisUhrzeit = SQL.checkNullStr(dr.Item("AvisUhrzeit"))
|
||||
Me.Vermerk = SQL.checkNullStr(dr.Item("Vermerk"))
|
||||
Me.Bemerkungen = SQL.checkNullStr(dr.Item("Bemerkungen"))
|
||||
Me.Währungsschlüssel = SQL.checkNullReturnValue(dr.Item("Währungsschlüssel"), 900)
|
||||
Me.Rechnungsbetrag = SQL.checkNullReturnValue(dr.Item("Rechnungsbetrag"), Nothing)
|
||||
Me.Umrechnungskurs = SQL.checkNullReturnValue(dr.Item("Umrechnungskurs"), 1)
|
||||
Me.Packstücke = SQL.checkNullStr(dr.Item("Packstücke"))
|
||||
Me.Rohmasse = SQL.checkNullReturnValue(dr.Item("Rohmasse"), Nothing)
|
||||
Me.Zahlungsaufschub = SQL.checkNullStr(dr.Item("Zahlungsaufschub"))
|
||||
Me.Löschen = SQL.checkNullDateNothing(dr.Item("Löschen"))
|
||||
Me.Abfertigungsart = SQL.checkNullInteger(dr.Item("Abfertigungsart"))
|
||||
Me.Abfertigungsanzahl = SQL.checkNullIntegerZero(dr.Item("Abfertigungsanzahl"))
|
||||
Me.AbfertigungsanzahlPos = SQL.checkNullInteger(dr.Item("AbfertigungsanzahlPos"))
|
||||
Me.Barzahlungsbetrag = SQL.checkNulDbl(dr.Item("Barzahlungsbetrag"))
|
||||
Me.Sachbearbeiter = SQL.checkNullStr(dr.Item("Sachbearbeiter"))
|
||||
Me.Personalnummer = SQL.checkNullReturnValue(dr.Item("Personalnummer"), Nothing)
|
||||
Me.PersonalnummerQS = SQL.checkNullReturnValue(dr.Item("PersonalnummerQS"), Nothing)
|
||||
Me.AtlasBezNrEZA = SQL.checkNullStr(dr.Item("AtlasBezNrEZA"))
|
||||
Me.AtlasBezNrNCTS = SQL.checkNullStr(dr.Item("AtlasBezNrNCTS"))
|
||||
Me.Versendungsland = SQL.checkNullStr(dr.Item("Versendungsland"))
|
||||
Me.SB_CMR = SQL.checkNullBool(dr.Item("SB_CMR"))
|
||||
Me.SB_CMRDatum = SQL.checkNullDateNothing(dr.Item("SB_CMRDatum"))
|
||||
Me.veoerz_basbtg = SQL.checkNulDbl(dr.Item("veoerz_basbtg"))
|
||||
Me.Zucker_MRN_Nr = SQL.checkNullReturnValue(dr.Item("Zucker_MRN_Nr"), Nothing)
|
||||
Me.Zucker_MRN_Datum = SQL.checkNullDateNothing(dr.Item("Zucker_MRN_Datum"))
|
||||
Me.Zucker_Aufschub = SQL.checkNullReturnValue(dr.Item("Zucker_Aufschub"), Nothing)
|
||||
Me.Zollsystem = SQL.checkNullStr(dr.Item("Zollsystem"))
|
||||
Me.Bestimmungszollstelle = SQL.checkNullStr(dr.Item("Bestimmungszollstelle"))
|
||||
Me.Bürgschaft = SQL.checkNullStr(dr.Item("Bürgschaft"))
|
||||
Me.Sicherheitsbetrag = SQL.checkNulDbl(dr.Item("Sicherheitsbetrag"))
|
||||
Me.SgutKompl = SQL.checkNullStr(dr.Item("SgutKompl"))
|
||||
Me.Bestimmungsland = SQL.checkNullStr(dr.Item("Bestimmungsland"))
|
||||
Me.EuFiskalEmpfänger = SQL.checkNullStr(dr.Item("EuFiskalEmpfänger"))
|
||||
Me.QKN = SQL.checkNullStr(dr.Item("QKN"))
|
||||
Me.EndempfängerKundenNr = SQL.checkNullReturnValue(dr.Item("EndempfängerKundenNr"), Nothing)
|
||||
Me.Endempfänger = SQL.checkNullStr(dr.Item("Endempfänger"))
|
||||
Me.AvisoID = SQL.checkNullReturnValue(dr.Item("AvisoID"), Nothing)
|
||||
Me.SendungID = SQL.checkNullReturnValue(dr.Item("SendungID"), Nothing)
|
||||
Me.KdAuftragsNr = SQL.checkNullReturnValue(dr.Item("KdAuftragsNr"), Nothing)
|
||||
Me.KdAuftragsNrAvisierer = SQL.checkNullReturnValue(dr.Item("KdAuftragsNrAvisierer"), Nothing)
|
||||
Me.KdAuftragsNrEmpfaenger = SQL.checkNullReturnValue(dr.Item("KdAuftragsNrEmpfaenger"), Nothing)
|
||||
Me.KdAuftragsNrFrachtfuehrer = SQL.checkNullReturnValue(dr.Item("KdAuftragsNrFrachtfuehrer"), Nothing)
|
||||
|
||||
Me.NCTS_Verzollungsadresse = SQL.checkNullReturnValue(dr.Item("NCTS_Verzollungsadresse"), "")
|
||||
Me.NCTS_VerzollungsadresseKdNr = SQL.checkNullReturnValue(dr.Item("NCTS_VerzollungsadresseKdNr"), Nothing)
|
||||
Me.Grenzstelle = SQL.checkNullReturnValue(dr.Item("Grenzstelle"), Nothing)
|
||||
Me.AuftraggeberBetragKassiert = SQL.checkNullReturnValue(dr.Item("AuftraggeberBetragKassiert"), Nothing)
|
||||
Me.Lieferantenrechnung = SQL.checkNullReturnValue(dr.Item("Lieferantenrechnung"), Nothing)
|
||||
Me.DokumentId_Steuerbeleg = SQL.checkNullReturnValue(dr.Item("DokumentId_Steuerbeleg"), Nothing)
|
||||
Me.DokumentId_Mitteilung = SQL.checkNullReturnValue(dr.Item("DokumentId_Mitteilung"), Nothing)
|
||||
Me.DokumentId_VBD = SQL.checkNullReturnValue(dr.Item("DokumentId_VBD"), Nothing)
|
||||
Me.DokumentId_ABD = SQL.checkNullReturnValue(dr.Item("DokumentId_ABD"), Nothing)
|
||||
Me.DokumentId_AVM = SQL.checkNullReturnValue(dr.Item("DokumentId_avm"), Nothing)
|
||||
Me.FilialenNrHandling = SQL.checkNullReturnValue(dr.Item("FilialenNrHandling"), Nothing)
|
||||
Me.FilialenNrAbklaerung = SQL.checkNullReturnValue(dr.Item("FilialenNrAbklaerung"), Nothing)
|
||||
Me.HandlingZuKassieren = SQL.checkNulDbl(dr.Item("HandlingZuKassieren"))
|
||||
Me.PersonalnummerAbklTR = SQL.checkNullReturnValue(dr.Item("PersonalnummerAbklTR"), Nothing)
|
||||
Me.UK_EIDR_ausstehend = SQL.checkNullBool(dr.Item("UK_EIDR_ausstehend"))
|
||||
|
||||
Me.SB_CMRNr = SQL.checkNullReturnValue(dr.Item("SB_CMRNr"), Nothing)
|
||||
|
||||
LOAD_VORKOSTEN()
|
||||
LOAD_ENDEMPFAENGER()
|
||||
|
||||
Me.SB_Zeitstempel = SQL.checkNullDateNothing(dr.Item("SB_Zeitstempel"))
|
||||
|
||||
hasEntry = True
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
'Return Nothing
|
||||
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 Nothing
|
||||
End Sub
|
||||
|
||||
Shared Function LOADByBezugsNr(bezugsNr As String, loadALL As Boolean, Optional checkValidStatus As Boolean = False) As cSpeditionsbuch 'PROBLEM!
|
||||
Try
|
||||
Dim SPEDBUCH As New cSpeditionsbuch
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT TOP 1 * FROM Speditionsbuch WHERE ([AtlasBezNrEZA]=@bezugsNr OR [AtlasBezNrNCTS]=@bezugsNr )", conn)
|
||||
cmd.Parameters.AddWithValue("@bezugsNr", bezugsNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In SPEDBUCH.getParameterList()
|
||||
Dim propInfo As PropertyInfo = SPEDBUCH.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(SPEDBUCH, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(SPEDBUCH, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
If loadALL Then
|
||||
SPEDBUCH.LOAD_VORKOSTEN()
|
||||
SPEDBUCH.LOAD_ENDEMPFAENGER()
|
||||
End If
|
||||
|
||||
dr.Close()
|
||||
SPEDBUCH.hasEntry = True
|
||||
Return SPEDBUCH
|
||||
End If
|
||||
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
|
||||
Return Nothing
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
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("FilialenNr", FilialenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", AbfertigungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UnterNr", UnterNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abfertigungsdatum", Abfertigungsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bar", Bar))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Fakturiert", Fakturiert))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BelegNr", BelegNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ErfassungsNr", ErfassungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LKW Kennzeichen", LKW_Kennzeichen, "LKWKennzeichen"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AvisiererKundenNr", AvisiererKundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Avisierer", Avisierer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbsenderKundenNr", AbsenderKundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Absender", Absender))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbsenderOffertenNr", AbsenderOffertenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmpfängerKundenNr", EmpfängerKundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Empfänger", Empfänger))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmpfängerOffertenNr", EmpfängerOffertenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VermittlerKundenNr", VermittlerKundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vermittler", Vermittler))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VermittlerOffertenNr", VermittlerOffertenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FrachtführerKundenNr", FrachtführerKundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Frachtführer", Frachtführer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlZA", AnzahlZA))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlZAFremd", AnzahlZAFremd))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlZnV", AnzahlZnV))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlZnVFremd", AnzahlZnVFremd))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlT1", AnzahlT1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlT2", AnzahlT2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlAE", AnzahlAE))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlCarnetTIR", AnzahlCarnetTIR))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlBarvorlagen", AnzahlBarvorlagen))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlSonstiges", AnzahlSonstiges))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlGrenzgebühren", AnzahlGrenzgebühren))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AvisUhrzeit", AvisUhrzeit))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vermerk", Vermerk))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bemerkungen", Bemerkungen))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Währungsschlüssel", Währungsschlüssel))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechnungsbetrag", Rechnungsbetrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Umrechnungskurs", Umrechnungskurs))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Packstücke", Packstücke))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rohmasse", Rohmasse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zahlungsaufschub", Zahlungsaufschub))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Löschen", Löschen))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abfertigungsart", Abfertigungsart))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abfertigungsanzahl", Abfertigungsanzahl))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsanzahlPos", AbfertigungsanzahlPos))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Barzahlungsbetrag", Barzahlungsbetrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachbearbeiter", Sachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Personalnummer", Personalnummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PersonalnummerQS", PersonalnummerQS))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AtlasBezNrEZA", AtlasBezNrEZA))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AtlasBezNrNCTS", AtlasBezNrNCTS))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Versendungsland", Versendungsland))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SB_CMR", SB_CMR))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SB_CMRDatum", SB_CMRDatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("veoerz_basbtg", veoerz_basbtg))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zucker_MRN_Nr", Zucker_MRN_Nr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zucker_MRN_Datum", Zucker_MRN_Datum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zucker_Aufschub", Zucker_Aufschub))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zollsystem", Zollsystem))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bestimmungszollstelle", Bestimmungszollstelle))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bürgschaft", Bürgschaft))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sicherheitsbetrag", Sicherheitsbetrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SgutKompl", SgutKompl))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bestimmungsland", Bestimmungsland))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EuFiskalEmpfänger", EuFiskalEmpfänger))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("QKN", QKN))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EndempfängerKundenNr", EndempfängerKundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Endempfänger", Endempfänger))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AvisoID", AvisoID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SendungID", SendungID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KdAuftragsNr", KdAuftragsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KdAuftragsNrAvisierer", KdAuftragsNrAvisierer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KdAuftragsNrEmpfaenger", KdAuftragsNrEmpfaenger))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KdAuftragsNrFrachtfuehrer", KdAuftragsNrFrachtfuehrer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SB_Zeitstempel", SB_Zeitstempel))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("NCTS_Verzollungsadresse", NCTS_Verzollungsadresse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("NCTS_VerzollungsadresseKdNr", NCTS_VerzollungsadresseKdNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Grenzstelle", Grenzstelle))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AuftraggeberBetragKassiert", AuftraggeberBetragKassiert))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Lieferantenrechnung", Lieferantenrechnung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DokumentId_Steuerbeleg", DokumentId_Steuerbeleg))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DokumentId_Mitteilung", DokumentId_Mitteilung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DokumentId_VBD", DokumentId_VBD))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DokumentId_ABD", DokumentId_ABD))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DokumentId_AVM", DokumentId_AVM))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNrHandling", FilialenNrHandling))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNrAbklaerung", FilialenNrAbklaerung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("HandlingZuKassieren", HandlingZuKassieren))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PersonalnummerAbklTR", PersonalnummerAbklTR))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UK_EIDR_ausstehend", UK_EIDR_ausstehend))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SB_CMRNr", SB_CMRNr))
|
||||
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
str &= "[" & i.Text & "] = @" & i.Text.Replace("-", "").Replace(" ", "") & ","
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [Speditionsbuch] SET " & str & " WHERE [FilialenNr]=@FilialenNr AND AbfertigungsNr=@AbfertigungsNr AND UnterNr=@UnterNr ")
|
||||
|
||||
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
|
||||
|
||||
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
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Text.Replace("-", "").Replace(" ", "") & ","
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO [Speditionsbuch] (" & 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
|
||||
|
||||
Public Sub LOAD_UNTERPOS()
|
||||
Try
|
||||
Dim conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
|
||||
'Using cmd2 As New SqlCommand("SELECT * FROM tblSpeditionsbuchUnterPos INNER JOIN [Abfertigungsarten] ON sbup_Abfertigungsart=Abfertigungsart WHERE sbup_Filiale=@sbup_Filiale AND sbup_AbfertigungsNr=@sbup_AbfertigungsNr AND sbup_UnterNr=@sbup_UnterNr ", conn)
|
||||
Using cmd2 As New SqlCommand("SELECT * FROM tblSpeditionsbuchUnterPos WHERE sbup_Filiale=@sbup_Filiale AND sbup_AbfertigungsNr=@sbup_AbfertigungsNr AND sbup_UnterNr=@sbup_UnterNr ", conn)
|
||||
cmd2.Parameters.AddWithValue("@sbup_Filiale", Me.FilialenNr)
|
||||
cmd2.Parameters.AddWithValue("@sbup_AbfertigungsNr", Me.AbfertigungsNr)
|
||||
cmd2.Parameters.AddWithValue("@sbup_UnterNr", Me.UnterNr)
|
||||
Dim dr2 = cmd2.ExecuteReader()
|
||||
Me.UNTERPOS.Clear()
|
||||
While dr2.Read
|
||||
Dim a As New cSpeditionsbuchUnterPos()
|
||||
|
||||
a.sbup_id = SQL.checkNullReturnValue(dr2.Item("sbup_id"), -1)
|
||||
a.sbup_Filiale = SQL.checkNullReturnValue(dr2.Item("sbup_Filiale"), -1)
|
||||
a.sbup_AbfertigungsNr = SQL.checkNullReturnValue(dr2.Item("sbup_AbfertigungsNr"), -1)
|
||||
a.sbup_UnterNr = SQL.checkNullReturnValue(dr2.Item("sbup_UnterNr"), -1)
|
||||
a.sbup_UnterPosArt = SQL.checkNullReturnValue(dr2.Item("sbup_UnterPosArt"), -1)
|
||||
a.sbup_Anzahl = SQL.checkNullReturnValue(dr2.Item("sbup_Anzahl"), -1)
|
||||
' a.Abfertigungsbezeichnung = SQL.checkNullReturnValue(dr2.Item("Abfertigungsbezeichnung"), "-")
|
||||
|
||||
Me.UNTERPOS.Add(a)
|
||||
End While
|
||||
dr2.Close()
|
||||
End Using
|
||||
|
||||
conn.Close()
|
||||
'End Using
|
||||
'Return Nothing
|
||||
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 Sub LOAD_VORKOSTEN()
|
||||
Try
|
||||
Dim conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
|
||||
'Using cmd2 As New SqlCommand("SELECT * FROM tblSpeditionsbuchUnterPos INNER JOIN [Abfertigungsarten] ON sbup_Abfertigungsart=Abfertigungsart WHERE sbup_Filiale=@sbup_Filiale AND sbup_AbfertigungsNr=@sbup_AbfertigungsNr AND sbup_UnterNr=@sbup_UnterNr ", conn)
|
||||
Using cmd2 As New SqlCommand("SELECT * FROM Vorkosten WHERE FilialenNr=@FilialenNr AND AbfertigungsNr=@AbfertigungsNr AND UnterNr=@UnterNr ", conn)
|
||||
cmd2.Parameters.AddWithValue("@FilialenNr", Me.FilialenNr)
|
||||
cmd2.Parameters.AddWithValue("@AbfertigungsNr", Me.AbfertigungsNr)
|
||||
cmd2.Parameters.AddWithValue("@UnterNr", Me.UnterNr)
|
||||
Dim dr2 = cmd2.ExecuteReader()
|
||||
Me.VORKOSTEN.Clear()
|
||||
While dr2.Read
|
||||
Dim a As New cVorkosten()
|
||||
|
||||
a.FilialenNr = SQL.checkNullReturnValue(dr2.Item("FilialenNr"), -1)
|
||||
a.AbfertigungsNr = SQL.checkNullReturnValue(dr2.Item("AbfertigungsNr"), -1)
|
||||
a.UnterNr = SQL.checkNullReturnValue(dr2.Item("UnterNr"), -1)
|
||||
a.LeistungsNr = SQL.checkNullReturnValue(dr2.Item("LeistungsNr"), -1)
|
||||
a.LeistungsBez = SQL.checkNullReturnValue(dr2.Item("LeistungsBez"), -1)
|
||||
a.Preis = SQL.checkNullReturnValue(dr2.Item("Preis"), 0)
|
||||
' a.Abfertigungsbezeichnung = SQL.checkNullReturnValue(dr2.Item("Abfertigungsbezeichnung"), "-")
|
||||
|
||||
Me.VORKOSTEN.Add(a)
|
||||
End While
|
||||
dr2.Close()
|
||||
End Using
|
||||
|
||||
conn.Close()
|
||||
'End Using
|
||||
'Return Nothing
|
||||
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 Sub LOAD_ENDEMPFAENGER()
|
||||
Try
|
||||
Dim conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
|
||||
'Using cmd2 As New SqlCommand("SELECT * FROM tblSpeditionsbuchUnterPos INNER JOIN [Abfertigungsarten] ON sbup_Abfertigungsart=Abfertigungsart WHERE sbup_Filiale=@sbup_Filiale AND sbup_AbfertigungsNr=@sbup_AbfertigungsNr AND sbup_UnterNr=@sbup_UnterNr ", conn)
|
||||
Using cmd2 As New SqlCommand("SELECT * FROM tblSpeditionsbuchEndEmpfaenger WHERE FilialenNr=@FilialenNr AND AbfertigungsNr=@AbfertigungsNr AND UnterNr=@UnterNr ", conn)
|
||||
cmd2.Parameters.AddWithValue("@FilialenNr", Me.FilialenNr)
|
||||
cmd2.Parameters.AddWithValue("@AbfertigungsNr", Me.AbfertigungsNr)
|
||||
cmd2.Parameters.AddWithValue("@UnterNr", Me.UnterNr)
|
||||
Dim dr2 = cmd2.ExecuteReader()
|
||||
Me.ENDEMPFAENGER.Clear()
|
||||
While dr2.Read
|
||||
Dim a As New cEndEmpfaener()
|
||||
|
||||
a.FilialenNr = SQL.checkNullReturnValue(dr2.Item("FilialenNr"), -1)
|
||||
a.AbfertigungsNr = SQL.checkNullReturnValue(dr2.Item("AbfertigungsNr"), -1)
|
||||
a.UnterNr = SQL.checkNullReturnValue(dr2.Item("UnterNr"), -1)
|
||||
a.EndEmpfaengerKdNr = SQL.checkNullReturnValue(dr2.Item("EndEmpfaengerKdNr"), -1)
|
||||
a.EndEmpfaenger = SQL.checkNullReturnValue(dr2.Item("EndEmpfaenger"), "")
|
||||
a.UstIdKz = SQL.checkNullReturnValue(dr2.Item("UstIdKz"), Nothing)
|
||||
a.UstIdNr = SQL.checkNullReturnValue(dr2.Item("UstIdNr"), Nothing)
|
||||
a.Rechnungsbetrag = SQL.checkNullReturnValue(dr2.Item("Rechnungsbetrag"), Nothing)
|
||||
a.RechnungsNr = SQL.checkNullReturnValue(dr2.Item("RechnungsNr"), Nothing)
|
||||
' a.Abfertigungsbezeichnung = SQL.checkNullReturnValue(dr2.Item("Abfertigungsbezeichnung"), "-")
|
||||
|
||||
Me.ENDEMPFAENGER.Add(a)
|
||||
End While
|
||||
dr2.Close()
|
||||
End Using
|
||||
|
||||
conn.Close()
|
||||
'End Using
|
||||
'Return Nothing
|
||||
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 SAVE_UNTERPOS() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
' Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
SAVE_UNTERPOS = False
|
||||
Dim sqlstr = " DELETE FROM tblSpeditionsbuchUnterPos WHERE sbup_Filiale=" & Me.FilialenNr & " AND sbup_AbfertigungsNr=" & Me.AbfertigungsNr & " AND sbup_UnterNr=" & Me.UnterNr & " "
|
||||
If SQL.doSQL(sqlstr, "FMZOLL") Then
|
||||
SAVE_UNTERPOS = True
|
||||
For Each a In UNTERPOS
|
||||
If Not a.INSERT() Then SAVE_UNTERPOS = False
|
||||
Next
|
||||
End If
|
||||
|
||||
' Return b
|
||||
End Function
|
||||
Public Function SAVE_VORKOSTEN() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
' Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
SAVE_VORKOSTEN = False
|
||||
Dim sqlstr = " DELETE FROM Vorkosten WHERE FilialenNr=" & Me.FilialenNr & " AND AbfertigungsNr=" & Me.AbfertigungsNr & " AND UnterNr=" & Me.UnterNr & " "
|
||||
If SQL.doSQL(sqlstr, "FMZOLL") Then
|
||||
SAVE_VORKOSTEN = True
|
||||
For Each a In VORKOSTEN
|
||||
If Not a.INSERT() Then SAVE_VORKOSTEN = False
|
||||
Next
|
||||
End If
|
||||
|
||||
' Return b
|
||||
End Function
|
||||
Public Function SAVE_ENDEMPFAENGER() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
' Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
SAVE_ENDEMPFAENGER = False
|
||||
Dim sqlstr = " DELETE FROM tblSpeditionsbuchEndEmpfaenger WHERE FilialenNr=" & Me.FilialenNr & " AND AbfertigungsNr=" & Me.AbfertigungsNr & " AND UnterNr=" & Me.UnterNr & " "
|
||||
If SQL.doSQL(sqlstr, "FMZOLL") Then
|
||||
SAVE_ENDEMPFAENGER = True
|
||||
For Each a In ENDEMPFAENGER
|
||||
If Not a.INSERT() Then SAVE_ENDEMPFAENGER = False
|
||||
Next
|
||||
End If
|
||||
|
||||
' Return b
|
||||
End Function
|
||||
End Class
|
||||
|
||||
|
||||
Public Class cSpeditionsbuchUnterPos
|
||||
Property sbup_id As Integer = Nothing
|
||||
Property sbup_Filiale As Integer = Nothing
|
||||
Property sbup_AbfertigungsNr As Integer = Nothing
|
||||
Property sbup_UnterNr As Integer = Nothing
|
||||
Property sbup_UnterPosArt As Integer = Nothing
|
||||
Property sbup_Anzahl As Integer = Nothing
|
||||
' Property Abfertigungsbezeichnung As String = "-"
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
Sub New(sbup_Filiale, sbup_AbfertigungsNr, sbup_UnterNr, sbup_UnterPosArt, sbup_Anzahl)
|
||||
Me.sbup_Filiale = sbup_Filiale
|
||||
Me.sbup_AbfertigungsNr = sbup_AbfertigungsNr
|
||||
Me.sbup_UnterNr = sbup_UnterNr
|
||||
Me.sbup_UnterPosArt = sbup_UnterPosArt
|
||||
Me.sbup_Anzahl = sbup_Anzahl
|
||||
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("sbup_id", sbup_id, , True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sbup_Filiale", sbup_Filiale))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sbup_AbfertigungsNr", sbup_AbfertigungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sbup_UnterNr", sbup_UnterNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sbup_UnterPosArt", sbup_UnterPosArt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sbup_Anzahl", sbup_Anzahl))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Public Function INSERT() As Boolean
|
||||
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.Text.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
|
||||
Return SQL.doSQLVarList(" INSERT INTO [tblSpeditionsbuchUnterPos] (" & str & ") VALUES(" & values & ") ", "FMZOLL", , list)
|
||||
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 False
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
Public Class cVorkosten
|
||||
|
||||
Property FilialenNr As Integer
|
||||
Property AbfertigungsNr As Integer
|
||||
Property UnterNr As Integer
|
||||
Property LeistungsNr As Integer
|
||||
Property LeistungsBez As Object = Nothing
|
||||
Property Preis As Double = 0
|
||||
|
||||
' Property Abfertigungsbezeichnung As String = "-"
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
Sub New(FilialenNr, AbfertigungsNr, UnterNr, LeistungsNr, LeistungsBez, Preis)
|
||||
Me.FilialenNr = FilialenNr
|
||||
Me.AbfertigungsNr = AbfertigungsNr
|
||||
Me.UnterNr = UnterNr
|
||||
Me.LeistungsNr = LeistungsNr
|
||||
Me.LeistungsBez = LeistungsBez
|
||||
Me.Preis = Preis
|
||||
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("FilialenNr", FilialenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", AbfertigungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UnterNr", UnterNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LeistungsNr", LeistungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LeistungsBez", LeistungsBez))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Preis", Preis))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Public Function INSERT() As Boolean
|
||||
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.Text.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
|
||||
Return SQL.doSQLVarList(" INSERT INTO [Vorkosten] (" & str & ") VALUES(" & values & ") ", "FMZOLL", , list)
|
||||
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 False
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
Public Class cEndEmpfaener
|
||||
|
||||
Property FilialenNr As Integer
|
||||
Property AbfertigungsNr As Integer
|
||||
Property UnterNr As Integer
|
||||
Property EndEmpfaengerKdNr As Integer
|
||||
Property EndEmpfaenger As Object = Nothing
|
||||
Property UstIdKz As Object = Nothing
|
||||
Property UstIdNr As Object = Nothing
|
||||
Property Rechnungsbetrag As Object = Nothing
|
||||
Property RechnungsNr As Object = Nothing
|
||||
|
||||
' Property Abfertigungsbezeichnung As String = "-"
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
Sub New(FilialenNr, AbfertigungsNr, UnterNr, EndEmpfaengerKdNr, EndEmpfaenger, UstIdKz, UstIdNr, Rechnungsbetrag, RechnungsNr)
|
||||
Me.FilialenNr = FilialenNr
|
||||
Me.AbfertigungsNr = AbfertigungsNr
|
||||
Me.UnterNr = UnterNr
|
||||
Me.EndEmpfaengerKdNr = EndEmpfaengerKdNr
|
||||
Me.EndEmpfaenger = EndEmpfaenger
|
||||
Me.UstIdKz = UstIdKz
|
||||
Me.UstIdNr = UstIdNr
|
||||
Me.Rechnungsbetrag = Rechnungsbetrag
|
||||
Me.RechnungsNr = RechnungsNr
|
||||
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("FilialenNr", FilialenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", AbfertigungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UnterNr", UnterNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EndEmpfaengerKdNr", EndEmpfaengerKdNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EndEmpfaenger", EndEmpfaenger))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UstIdKz", UstIdKz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UstIdNr", UstIdNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechnungsbetrag", Rechnungsbetrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsNr", RechnungsNr))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Public Function INSERT() As Boolean
|
||||
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.Text.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
|
||||
Return SQL.doSQLVarList(" INSERT INTO [tblSpeditionsbuchEndEmpfaenger] (" & str & ") VALUES(" & values & ") ", "FMZOLL", , list)
|
||||
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 False
|
||||
End Function
|
||||
|
||||
End Class
|
||||
178
SDL/VERAG_PROG_ALLGEMEIN/Classes/cTextkonserve.vb
Normal file
178
SDL/VERAG_PROG_ALLGEMEIN/Classes/cTextkonserve.vb
Normal file
@@ -0,0 +1,178 @@
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cTextkonserve
|
||||
Property txt_Id As Integer
|
||||
Property txt_kategorie As String
|
||||
Property txt_bezeichnung As String
|
||||
Property txt_sprache As String
|
||||
Property txt_text As String
|
||||
Property txt_betreff As String
|
||||
Property txt_FIRMA As String
|
||||
Property txt_firmaSig As Integer = 1
|
||||
|
||||
|
||||
Public hasEntry As Boolean = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
Sub New(txt_Id)
|
||||
' If txt_Id IsNot Nothing Then
|
||||
Me.txt_Id = txt_Id
|
||||
LOAD()
|
||||
' End If
|
||||
End Sub
|
||||
|
||||
Sub New(txt_kategorie, txt_bezeichnung, txt_sprache, txt_FIRMA)
|
||||
' If txt_Id IsNot Nothing Then
|
||||
Me.txt_kategorie = txt_kategorie
|
||||
Me.txt_bezeichnung = txt_bezeichnung
|
||||
Me.txt_sprache = txt_sprache
|
||||
Me.txt_FIRMA = txt_FIRMA
|
||||
LOAD(txt_kategorie, txt_bezeichnung, txt_sprache, txt_FIRMA)
|
||||
' End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public 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("txt_Id", txt_Id, , True, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_kategorie", txt_kategorie))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_bezeichnung", txt_bezeichnung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_sprache", txt_sprache))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_text", txt_text))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_betreff", txt_betreff))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_FIRMA", txt_FIRMA))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_firmaSig", txt_firmaSig))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
Public Function SAVE(Optional errHinweis = "") As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblTextkonserve WITH(updlock,serializable) WHERE txt_Id=@txt_Id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
txt_Id = SQL.doSQLVarListID(txt_Id, sqlstr, "FMZOLL", , list,, errHinweis)
|
||||
Return txt_Id > 0
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblTextkonserve WHERE txt_Id=@txt_Id ", conn)
|
||||
cmd.Parameters.AddWithValue("@txt_Id", txt_Id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
hasEntry = True
|
||||
Next
|
||||
|
||||
End If
|
||||
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 Sub LOAD(txt_kategorie, txt_bezeichnung, txt_sprache, txt_FIRMA)
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL
|
||||
Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblTextkonserve WHERE txt_kategorie=@txt_kategorie AND txt_bezeichnung=@txt_bezeichnung AND txt_sprache=@txt_sprache AND txt_FIRMA=@txt_FIRMA ", conn)
|
||||
cmd.Parameters.AddWithValue("@txt_kategorie", txt_kategorie)
|
||||
cmd.Parameters.AddWithValue("@txt_bezeichnung", txt_bezeichnung)
|
||||
cmd.Parameters.AddWithValue("@txt_sprache", txt_sprache)
|
||||
cmd.Parameters.AddWithValue("@txt_FIRMA", txt_FIRMA)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
hasEntry = True
|
||||
Next
|
||||
|
||||
End If
|
||||
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 getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblTextkonserve] SET " & str & " WHERE txt_Id=@txt_Id ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 tblTextkonserve (" & 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
|
||||
|
||||
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblTextkonserve] WITH(updlock,serializable) WHERE txt_Id=" & Me.txt_Id
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
Public Shared Function DELETE(id As Integer) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblTextkonserve] WITH(updlock,serializable) WHERE txt_Id=" & id
|
||||
Return (New VERAG_PROG_ALLGEMEIN.SQL).doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
End Class
|
||||
166
SDL/VERAG_PROG_ALLGEMEIN/Classes/cTranslate.vb
Normal file
166
SDL/VERAG_PROG_ALLGEMEIN/Classes/cTranslate.vb
Normal file
@@ -0,0 +1,166 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cTranslate_LIST
|
||||
|
||||
Public list As New List(Of cTranslate)
|
||||
Dim trs_progId
|
||||
|
||||
Sub New(trs_progId)
|
||||
Me.trs_progId = trs_progId
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblTranslate WHERE trs_progId=@trs_progId ", conn)
|
||||
cmd.Parameters.AddWithValue("@trs_progId", trs_progId)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim T As New cTranslate
|
||||
T.trs_id = dr("trs_id")
|
||||
T.trs_progName = dr("trs_progName")
|
||||
T.trs_object = dr("trs_object")
|
||||
T.trs_control = dr("trs_control")
|
||||
T.trs_subControl = dr("trs_subControl")
|
||||
T.trs_sprache = dr("trs_sprache")
|
||||
T.trs_text = dr("trs_text")
|
||||
list.Add(T)
|
||||
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
|
||||
|
||||
|
||||
End Class
|
||||
Public Class cTranslate
|
||||
Property trs_id As Integer
|
||||
Property trs_progId As String
|
||||
Property trs_progName As String
|
||||
Property trs_object As String
|
||||
Property trs_control As String
|
||||
Property trs_subControl As Object = Nothing
|
||||
Property trs_sprache As String
|
||||
Property trs_text As String
|
||||
|
||||
|
||||
Public hasEntry = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
Sub New()
|
||||
|
||||
End Sub
|
||||
Sub New(trs_id)
|
||||
Me.trs_id = trs_id
|
||||
LOAD()
|
||||
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("trs_id", trs_id,, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trs_progId", trs_progId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trs_progName", trs_progName))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trs_object", trs_object))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trs_control", trs_control))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trs_subControl", trs_subControl))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trs_sprache", trs_sprache))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trs_text", trs_text))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblTranslate WHERE trs_id=@trs_id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
hasEntry = False
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblTranslate WHERE trs_id=@trs_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@trs_id", trs_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
hasEntry = True
|
||||
End If
|
||||
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 getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblTranslate] SET " & str & " WHERE trs_id=@trs_id ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 tblTranslate (" & 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
|
||||
617
SDL/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb
Normal file
617
SDL/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb
Normal file
@@ -0,0 +1,617 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cTrdInvoice
|
||||
|
||||
Property Rechnungsdatum As Date
|
||||
Property Rechnungsnummer As Integer
|
||||
Property Speditionsbuch As Object = Nothing
|
||||
Property FilialenNr As Object = Nothing
|
||||
Property AbfertigungsNr As Object = Nothing
|
||||
Property UnterNr As Object = Nothing
|
||||
Property Abfertigungsdatum As Object = Nothing
|
||||
Property BelegartenNr As Object = Nothing
|
||||
Property KundenNrZentrale As Object = Nothing
|
||||
Property RechnungsKundenNr As Object = Nothing
|
||||
Property RechnungsLandKz As Object = Nothing
|
||||
Property RechnungsUstIdKz As Object = Nothing
|
||||
Property RechnungsUstIdNr As Object = Nothing
|
||||
Property Lastschrift As Object = Nothing
|
||||
Property Steuerschlüssel As Object = Nothing
|
||||
Property Steuersatz As Object = Nothing '[Steuersatz %]
|
||||
Property WährungLokal As Object = Nothing
|
||||
Property SteuerpflichtigerBetragLokal As Object = Nothing
|
||||
Property SteuerfreierBetragLokal As Object = Nothing
|
||||
Property SteuerbetragLokal As Object = Nothing
|
||||
Property RechnungsbetragLokal As Object = Nothing
|
||||
Property WährungFremd As Object = Nothing
|
||||
Property SteuerpflichtigerBetragFremd As Object = Nothing
|
||||
Property SteuerfreierBetragFremd As Object = Nothing
|
||||
Property SteuerbetragFremd As Object = Nothing
|
||||
Property RechnungsbetragFremd As Object = Nothing
|
||||
Property TrdinDateiname As Object = Nothing
|
||||
Property Abgleich_op_debitor As Object = Nothing
|
||||
Property Nettozahlungsziel As Object = Nothing
|
||||
Property Firma_ID As Object = Nothing
|
||||
Property UStVAn_ID As Object = Nothing
|
||||
|
||||
Property hasEntry As Boolean = False
|
||||
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
|
||||
End Sub
|
||||
|
||||
Sub New(Rechnungsdatum, Rechnungsnummer)
|
||||
Me.Rechnungsnummer = Rechnungsnummer
|
||||
Me.Rechnungsdatum = Rechnungsdatum
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
Public 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("Rechnungsdatum", Rechnungsdatum))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechnungsnummer", Rechnungsnummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Speditionsbuch", Speditionsbuch))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNr", FilialenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", AbfertigungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UnterNr", UnterNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abfertigungsdatum", Abfertigungsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BelegartenNr", BelegartenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KundenNrZentrale", KundenNrZentrale))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsKundenNr", RechnungsKundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsLandKz", RechnungsLandKz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsUstIdKz", RechnungsUstIdKz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsUstIdNr", RechnungsUstIdNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Lastschrift", Lastschrift))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuerschlüssel", Steuerschlüssel))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuersatz %", Steuersatz, "Steuersatz")) '[Steuersatz %]
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("WährungLokal", WährungLokal))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SteuerpflichtigerBetragLokal", SteuerpflichtigerBetragLokal))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SteuerfreierBetragLokal", SteuerfreierBetragLokal))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SteuerbetragLokal", SteuerbetragLokal))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsbetragLokal", RechnungsbetragLokal))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("WährungFremd", WährungFremd))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SteuerpflichtigerBetragFremd", SteuerpflichtigerBetragFremd))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SteuerfreierBetragFremd", SteuerfreierBetragFremd))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SteuerbetragFremd", SteuerbetragFremd))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsbetragFremd", RechnungsbetragFremd))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TrdinDateiname", TrdinDateiname))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abgleich_op_debitor", Abgleich_op_debitor))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Nettozahlungsziel", Nettozahlungsziel))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_ID", Firma_ID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_ID", UStVAn_ID))
|
||||
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblTrdinInvoice WITH(updlock,serializable) WHERE Rechnungsnummer=@Rechnungsnummer and Rechnungsdatum=@Rechnungsdatum) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblTrdinInvoice WHERE Rechnungsnummer=@Rechnungsnummer and Rechnungsdatum=@Rechnungsdatum ", conn)
|
||||
cmd.Parameters.AddWithValue("@Rechnungsnummer", Rechnungsnummer)
|
||||
cmd.Parameters.AddWithValue("@Rechnungsdatum", Rechnungsdatum)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
hasEntry = True
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
Next
|
||||
|
||||
End If
|
||||
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 getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblTrdinInvoice] SET " & str & " WHERE Rechnungsnummer=@Rechnungsnummer and Rechnungsdatum=@Rechnungsdatum ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 tblTrdinInvoice (" & 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
|
||||
|
||||
|
||||
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblTrdinInvoice] WITH(updlock,serializable) WHERE Rechnungsnummer=" & Me.Rechnungsnummer & " and Rechnungsdatum='" & Me.Rechnungsdatum.ToShortDateString & "'"
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
Public Class cTrdProduct
|
||||
|
||||
Property Rechnungsdatum As Date
|
||||
Property Rechnungsnummer As Integer
|
||||
|
||||
Property Leistungsnummer As Integer
|
||||
Property Leistungsbezeichnung As String
|
||||
Property Steuerpflichtig As Boolean
|
||||
Property SteuerpflichtigerBetragLokal As Object = Nothing
|
||||
Property SteuerfreierBetragLokal As Object = Nothing
|
||||
Property SteuerpflichtigerBetragFremd As Object = Nothing
|
||||
Property SteuerfreierBetragFremd As Object = Nothing
|
||||
Property Belegdaten As Object = Nothing
|
||||
Property Sachkonto As Object = Nothing
|
||||
Property Buchungstext As Object = Nothing
|
||||
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Public 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("Rechnungsdatum", Rechnungsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechnungsnummer", Rechnungsnummer))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Leistungsnummer", Leistungsnummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Leistungsbezeichnung", Leistungsbezeichnung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuerpflichtig", Steuerpflichtig))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SteuerpflichtigerBetragLokal", SteuerpflichtigerBetragLokal))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SteuerfreierBetragLokal", SteuerfreierBetragLokal))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SteuerpflichtigerBetragFremd", SteuerpflichtigerBetragFremd))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SteuerfreierBetragFremd", SteuerfreierBetragFremd))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Belegdaten", Belegdaten))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachkonto", Sachkonto))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Buchungstext", Buchungstext))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblTrdinProduct WITH(updlock,serializable) WHERE Rechnungsnummer=@Rechnungsnummer and Rechnungsdatum=@Rechnungsdatum and Leistungsnummer=@Leistungsnummer and Leistungsbezeichnung=@Leistungsbezeichnung and Steuerpflichtig=@Steuerpflichtig) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
|
||||
'Public Sub LOAD()
|
||||
' Try
|
||||
' Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
' Using cmd As New SqlCommand("SELECT * FROM tblTrdinProduct WHERE Rechnungsnummer=@Rechnungsnummer and Rechnungsdatum=@Rechnungsdatum ", conn)
|
||||
' cmd.Parameters.AddWithValue("@Rechnungsnummer", Rechnungsnummer)
|
||||
' cmd.Parameters.AddWithValue("@Rechnungsdatum", Rechnungsdatum)
|
||||
' Dim dr = cmd.ExecuteReader()
|
||||
' If dr.Read Then
|
||||
' For Each l In getParameterList()
|
||||
' Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
' If dr.Item(l.Text) Is DBNull.Value Then
|
||||
' propInfo.SetValue(Me, Nothing)
|
||||
' Else
|
||||
' propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
' End If
|
||||
|
||||
' Next
|
||||
|
||||
' End If
|
||||
' 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 getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblTrdinProduct] SET " & str & " WHERE Rechnungsnummer=@Rechnungsnummer and Rechnungsdatum=@Rechnungsdatum and Leistungsnummer=@Leistungsnummer and Leistungsbezeichnung=@Leistungsbezeichnung and Steuerpflichtig=@Steuerpflichtig ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 tblTrdinProduct (" & 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
|
||||
|
||||
|
||||
|
||||
Class TrdInvoice_FUNCTIONS
|
||||
|
||||
Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Shared Function TrdinSchreiben(Optional Firma As Integer = -1) As Boolean 'Lädt die Daten aus der Tabelle Rechnungsausgang/RechnungsausgangPositionen in die Tabelle trdInvoice/trdProduct
|
||||
Try
|
||||
|
||||
Dim LOKALWÄHRUNG = "EUR"
|
||||
Dim lngSatzzähler As Integer
|
||||
Dim WährungsdifferenzSteuerpflichtigerBetrag As Double
|
||||
Dim WährungsdifferenzSteuerfreierBetrag As Integer
|
||||
|
||||
Dim dt As DataTable = SQL.loadDgvBySql(getSQLString_SELECTForTrdInvoice(Firma), "FMZOLL")
|
||||
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
||||
For Each ROW In dt.Rows
|
||||
Dim TRD_INVOICE As New VERAG_PROG_ALLGEMEIN.cTrdInvoice(ROW("RK_RechnungsDatum"), ROW("RK_RechnungsNr"))
|
||||
If TRD_INVOICE.hasEntry Then
|
||||
' MsgBox("RG-Nr. bereits vorhanden!")
|
||||
Else
|
||||
Dim RK_Währungscode = ROW("RK_Währungscode")
|
||||
If ROW("RK_Währungscode") Is DBNull.Value Then RK_Währungscode = LOKALWÄHRUNG
|
||||
|
||||
If RK_Währungscode = LOKALWÄHRUNG Then
|
||||
TRD_INVOICE.SteuerpflichtigerBetragLokal = ROW("RK_SteuerpflichtigerBetrag")
|
||||
TRD_INVOICE.SteuerfreierBetragLokal = ROW("RK_SteuerfreierBetrag")
|
||||
TRD_INVOICE.SteuerbetragLokal = ROW("RK_Steuerbetrag")
|
||||
TRD_INVOICE.RechnungsbetragLokal = ROW("RK_Rechnungsbetrag")
|
||||
|
||||
TRD_INVOICE.SteuerpflichtigerBetragFremd = 0
|
||||
TRD_INVOICE.SteuerfreierBetragFremd = 0
|
||||
TRD_INVOICE.SteuerbetragFremd = 0
|
||||
TRD_INVOICE.RechnungsbetragFremd = 0
|
||||
|
||||
TRD_INVOICE.WährungFremd = Nothing
|
||||
Else
|
||||
TRD_INVOICE.SteuerpflichtigerBetragFremd = ROW("RK_SteuerpflichtigerBetrag")
|
||||
TRD_INVOICE.SteuerfreierBetragFremd = ROW("RK_SteuerfreierBetrag")
|
||||
TRD_INVOICE.SteuerbetragFremd = ROW("RK_Steuerbetrag")
|
||||
TRD_INVOICE.RechnungsbetragFremd = ROW("RK_Rechnungsbetrag")
|
||||
|
||||
TRD_INVOICE.SteuerpflichtigerBetragLokal = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(ROW("[RK_SteuerpflichtigerBetrag]"), ROW("[RK_Währungscode]"), LOKALWÄHRUNG)
|
||||
TRD_INVOICE.SteuerfreierBetragLokal = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(ROW("[RK_SteuerfreierBetrag]"), ROW("[RK_Währungscode]"), LOKALWÄHRUNG)
|
||||
TRD_INVOICE.SteuerbetragLokal = CDbl(TRD_INVOICE.SteuerpflichtigerBetragLokal * ROW("[RK_SteuersatzProzent]") * 100) / 100
|
||||
TRD_INVOICE.RechnungsbetragLokal = TRD_INVOICE.SteuerpflichtigerBetragLokal + TRD_INVOICE.SteuerfreierBetragLokal + TRD_INVOICE.SteuerbetragLokal
|
||||
' Basis zur Feststellung von Rundungsdifferenzen schaffen.
|
||||
|
||||
TRD_INVOICE.SteuerpflichtigerBetragLokal = 0
|
||||
TRD_INVOICE.SteuerfreierBetragLokal = 0
|
||||
TRD_INVOICE.SteuerbetragLokal = 0
|
||||
TRD_INVOICE.RechnungsbetragLokal = 0
|
||||
|
||||
WährungsdifferenzSteuerpflichtigerBetrag = TRD_INVOICE.SteuerpflichtigerBetragLokal
|
||||
WährungsdifferenzSteuerfreierBetrag = TRD_INVOICE.SteuerfreierBetragLokal
|
||||
lngSatzzähler = ROW("RK_Satzzähler")
|
||||
|
||||
TRD_INVOICE.WährungFremd = RK_Währungscode
|
||||
End If
|
||||
|
||||
|
||||
TRD_INVOICE.FilialenNr = ROW("RK_FilialenNr")
|
||||
TRD_INVOICE.Speditionsbuch = SQL.DLookup("Speditionsbuch", "Filialen", "FilialenNr=" & ROW("RK_FilialenNr"), "FMZOLL", Nothing) ' ROW("Speditionsbuch")
|
||||
TRD_INVOICE.AbfertigungsNr = ROW("RK_AbfertigungsNr")
|
||||
TRD_INVOICE.UnterNr = ROW("RK_UnterNr")
|
||||
TRD_INVOICE.Abfertigungsdatum = ROW("RK_Abfertigungsdatum")
|
||||
TRD_INVOICE.BelegartenNr = ROW("RK_BelegartenNr")
|
||||
TRD_INVOICE.KundenNrZentrale = ROW("RK_KundenNrZentrale")
|
||||
TRD_INVOICE.RechnungsKundenNr = ROW("RK_RechnungsKundenNr")
|
||||
TRD_INVOICE.RechnungsLandKz = ROW("RK_RechnungsLandKz")
|
||||
TRD_INVOICE.RechnungsUstIdKz = ROW("RK_RechnungsUstIdKz")
|
||||
TRD_INVOICE.RechnungsUstIdNr = ROW("RK_RechnungsUstIdNr")
|
||||
TRD_INVOICE.Lastschrift = ROW("RK_Lastschrift")
|
||||
TRD_INVOICE.Steuerschlüssel = ROW("RK_Steuerschlüssel")
|
||||
TRD_INVOICE.Steuersatz = ROW("RK_SteuersatzProzent")
|
||||
TRD_INVOICE.WährungLokal = LOKALWÄHRUNG
|
||||
TRD_INVOICE.TrdinDateiname = Nothing
|
||||
TRD_INVOICE.Abgleich_op_debitor = 0
|
||||
TRD_INVOICE.Nettozahlungsziel = ROW("RK_Nettozahlungsziel")
|
||||
TRD_INVOICE.Firma_ID = ROW("RK_Firma_ID")
|
||||
TRD_INVOICE.UStVAn_ID = Nothing
|
||||
|
||||
If TRD_INVOICE.SAVE Then
|
||||
If TrdinSchreibenProduct(TRD_INVOICE.Rechnungsdatum, TRD_INVOICE.Rechnungsnummer, RK_Währungscode, ROW("RK_RechnungsLandKz"), ROW("RK_Buchungstext"), TRD_INVOICE.Firma_ID, lngSatzzähler, WährungsdifferenzSteuerpflichtigerBetrag, WährungsdifferenzSteuerfreierBetrag) Then
|
||||
'UPDATE rechnugnsausgang
|
||||
SQL.doSQL("UPDATE [Rechnungsausgang] SET [Trdin] = 1 WHERE convert(date,[RechnungsDatum] ,104) = '" & TRD_INVOICE.Rechnungsdatum.ToShortDateString & "' AND RechnungsNr = " & TRD_INVOICE.Rechnungsnummer & " ", "FMZOLL")
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
Return True
|
||||
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
|
||||
' Buchung im Rechnungskopfsatz eintragen.
|
||||
' Call SPAktionsabfrageOhneErgebnis("dbo.spTrdinSchreibenUpdateRK", AktuelleVerbindungszeichenfolge(0), rstRK![RK_RechnungsDatum], rstRK![RK_RechnungsNr], 1)
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.StackTrace & "" & ex.Message)
|
||||
Return False
|
||||
End Try
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Shared Function TrdinSchreibenProduct(RechnungsDatum, RK_RechnungsNr, RK_Währungscode, RK_RechnungsLandKz, RK_Buchungstext, RK_Firma_ID, ByRef lngSatzzähler, ByRef WährungsdifferenzSteuerpflichtigerBetrag, ByRef WährungsdifferenzSteuerfreierBetrag) As Boolean
|
||||
Try
|
||||
|
||||
Dim LOKALWÄHRUNG = "EUR"
|
||||
|
||||
Dim dt As DataTable = SQL.loadDgvBySql(getSQLString_SELECTForTrdProduct(RechnungsDatum, RK_RechnungsNr), "FMZOLL")
|
||||
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
||||
For Each ROW In dt.Rows
|
||||
Dim TRD_PRODUCT As New VERAG_PROG_ALLGEMEIN.cTrdProduct()
|
||||
|
||||
TRD_PRODUCT.Rechnungsdatum = RechnungsDatum
|
||||
TRD_PRODUCT.Rechnungsnummer = RK_RechnungsNr
|
||||
|
||||
|
||||
If RK_Währungscode = LOKALWÄHRUNG Then
|
||||
TRD_PRODUCT.SteuerpflichtigerBetragLokal = ROW("RP_SteuerpflichtigerBetrag")
|
||||
TRD_PRODUCT.SteuerfreierBetragLokal = ROW("RP_SteuerfreierBetrag")
|
||||
|
||||
TRD_PRODUCT.SteuerpflichtigerBetragFremd = 0
|
||||
TRD_PRODUCT.SteuerfreierBetragFremd = 0
|
||||
Else
|
||||
TRD_PRODUCT.SteuerpflichtigerBetragFremd = ROW("RP_SteuerpflichtigerBetrag")
|
||||
TRD_PRODUCT.SteuerfreierBetragFremd = ROW("RP_SteuerfreierBetrag")
|
||||
|
||||
|
||||
TRD_PRODUCT.SteuerpflichtigerBetragLokal = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(ROW("RP_SteuerpflichtigerBetrag"), RK_Währungscode, LOKALWÄHRUNG)
|
||||
TRD_PRODUCT.SteuerfreierBetragLokal = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(ROW("RP_SteuerfreierBetrag"), RK_Währungscode, LOKALWÄHRUNG)
|
||||
|
||||
|
||||
WährungsdifferenzSteuerpflichtigerBetrag -= TRD_PRODUCT.SteuerpflichtigerBetragLokal
|
||||
WährungsdifferenzSteuerfreierBetrag -= TRD_PRODUCT.SteuerfreierBetragLokal
|
||||
|
||||
lngSatzzähler = lngSatzzähler - ROW("RP_Satzzähler")
|
||||
If lngSatzzähler = 0 Then
|
||||
If WährungsdifferenzSteuerpflichtigerBetrag <> 0 Then
|
||||
TRD_PRODUCT.SteuerpflichtigerBetragLokal += WährungsdifferenzSteuerpflichtigerBetrag
|
||||
End If
|
||||
If WährungsdifferenzSteuerfreierBetrag <> 0 Then
|
||||
TRD_PRODUCT.SteuerfreierBetragLokal += WährungsdifferenzSteuerfreierBetrag
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
TRD_PRODUCT.Leistungsnummer = ROW("RP_LeistungsNr")
|
||||
TRD_PRODUCT.Leistungsbezeichnung = ROW("RP_LeistungsBez")
|
||||
TRD_PRODUCT.Steuerpflichtig = ROW("RP_Steuerpflichtig")
|
||||
TRD_PRODUCT.Belegdaten = ROW("RP_Belegdaten")
|
||||
TRD_PRODUCT.Sachkonto = getSachkonto(RK_Firma_ID, ROW("RP_LeistungsNr"), RK_RechnungsLandKz, ROW("RP_Steuerpflichtig"), ROW("AufschubkontoNr"))
|
||||
TRD_PRODUCT.Buchungstext = RK_Buchungstext
|
||||
|
||||
|
||||
|
||||
TRD_PRODUCT.SAVE()
|
||||
Next
|
||||
|
||||
Return True
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.StackTrace & "" & ex.Message)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Shared Function getSachkonto(Firma_Id, RP_LeistungsNr, [RK_RechnungsLandKz], RP_Steuerpflichtig, RP_AufschubkontoNr)
|
||||
' Sachkonto ermitteln.
|
||||
Dim FIRMA = New VERAG_PROG_ALLGEMEIN.cFirmen(Firma_Id)
|
||||
|
||||
Select Case Firma_Id
|
||||
Case 20 'IMEX --> Andere Sachkonten in Tbl Leistungen!
|
||||
If [RK_RechnungsLandKz] Is Nothing OrElse [RK_RechnungsLandKz] Is DBNull.Value OrElse [RK_RechnungsLandKz].trim = "" _
|
||||
OrElse [RK_RechnungsLandKz] = "A" _
|
||||
OrElse [RK_RechnungsLandKz] = "AT" Then
|
||||
If CBool([RP_Steuerpflichtig]) Then
|
||||
getSachkonto = If(SQL.DLookup("[IMEX_SachkontoInlandSteuerpflichtig]", "Leistungen", "[LeistungsNr]=" & [RP_LeistungsNr], "FMZOLL"), "")
|
||||
|
||||
Else
|
||||
getSachkonto = If(SQL.DLookup("[IMEX_SachkontoInlandSteuerfrei]", "Leistungen", "[LeistungsNr]=" & [RP_LeistungsNr], "FMZOLL"), "")
|
||||
End If
|
||||
Else
|
||||
If SQL.DLookup("[MitgliedslandEU]", "[Währungstabelle]", "[LandKz]='" & [RK_RechnungsLandKz] & "'", "FMZOLL", False) Then
|
||||
If [RP_Steuerpflichtig] Then
|
||||
getSachkonto = If(SQL.DLookup("[IMEX_SachkontoEUSteuerpflichtig]", "Leistungen", "[LeistungsNr]=" & [RP_LeistungsNr], "FMZOLL"), "")
|
||||
Else
|
||||
getSachkonto = If(SQL.DLookup("[IMEX_SachkontoEUSteuerfrei]", "Leistungen", "[LeistungsNr]=" & [RP_LeistungsNr], "FMZOLL"), "")
|
||||
End If
|
||||
Else
|
||||
getSachkonto = If(SQL.DLookup("[IMEX_Sachkonto3Land]", "Leistungen", "[LeistungsNr]=" & [RP_LeistungsNr], "FMZOLL"), "")
|
||||
End If
|
||||
End If
|
||||
If getSachkonto = "" Then getSachkonto = "9999" 'DEFAULT!
|
||||
|
||||
Case 21, 22, 23, 24 '--> cLeistungenBUKonten!
|
||||
Dim BU_KTO As New VERAG_PROG_ALLGEMEIN.cLeistungenBUKonten(RP_LeistungsNr, Firma_Id)
|
||||
If [RK_RechnungsLandKz] Is Nothing OrElse [RK_RechnungsLandKz] Is DBNull.Value OrElse [RK_RechnungsLandKz].trim = "" OrElse
|
||||
[RK_RechnungsLandKz] = FIRMA.Firma_LandKz.ToString.Replace("AT", "A").Replace("DE", "D") Then
|
||||
|
||||
If CBool([RP_Steuerpflichtig]) Then
|
||||
getSachkonto = BU_KTO.SachkontoInlandSteuerpflichtig
|
||||
|
||||
Else
|
||||
getSachkonto = BU_KTO.SachkontoInlandSteuerfrei
|
||||
End If
|
||||
Else
|
||||
If SQL.DLookup("[MitgliedslandEU]", "[Währungstabelle]", "[LandKz]='" & [RK_RechnungsLandKz] & "'", "FMZOLL", False) Then
|
||||
If [RP_Steuerpflichtig] Then
|
||||
getSachkonto = BU_KTO.SachkontoEUSteuerpflichtig
|
||||
Else
|
||||
getSachkonto = BU_KTO.SachkontoEUSteuerfrei
|
||||
End If
|
||||
Else
|
||||
getSachkonto = BU_KTO.Sachkonto3Land
|
||||
End If
|
||||
End If
|
||||
If getSachkonto = "" Then getSachkonto = "9999" 'DEFAULT!
|
||||
|
||||
Case Else
|
||||
If [RK_RechnungsLandKz] Is Nothing OrElse [RK_RechnungsLandKz] Is DBNull.Value OrElse [RK_RechnungsLandKz].trim = "" _
|
||||
OrElse [RK_RechnungsLandKz] = "A" _
|
||||
OrElse [RK_RechnungsLandKz] = "AT" Then
|
||||
If CBool([RP_Steuerpflichtig]) Then
|
||||
getSachkonto = If(SQL.DLookup("[SachkontoInlandSteuerpflichtig]", "Leistungen", "[LeistungsNr]=" & [RP_LeistungsNr], "FMZOLL"), "")
|
||||
|
||||
Else
|
||||
getSachkonto = If(SQL.DLookup("[SachkontoInlandSteuerfrei]", "Leistungen", "[LeistungsNr]=" & [RP_LeistungsNr], "FMZOLL"), "")
|
||||
End If
|
||||
Else
|
||||
If SQL.DLookup("[MitgliedslandEU]", "[Währungstabelle]", "[LandKz]='" & [RK_RechnungsLandKz] & "'", "FMZOLL", False) Then
|
||||
If [RP_Steuerpflichtig] Then
|
||||
getSachkonto = If(SQL.DLookup("[SachkontoEUSteuerpflichtig]", "Leistungen", "[LeistungsNr]=" & [RP_LeistungsNr], "FMZOLL"), "")
|
||||
Else
|
||||
getSachkonto = If(SQL.DLookup("[SachkontoEUSteuerfrei]", "Leistungen", "[LeistungsNr]=" & [RP_LeistungsNr], "FMZOLL"), "")
|
||||
End If
|
||||
Else
|
||||
getSachkonto = If(SQL.DLookup("[Sachkonto3Land]", "Leistungen", "[LeistungsNr]=" & [RP_LeistungsNr], "FMZOLL"), "")
|
||||
End If
|
||||
End If
|
||||
If getSachkonto = "" Then getSachkonto = "4000" 'DEFAULT!
|
||||
End Select
|
||||
Try
|
||||
|
||||
If Firma_Id = 20 Then
|
||||
If getSachkonto = "3553" Then 'IMEX EUST
|
||||
If RP_AufschubkontoNr Is DBNull.Value Then RP_AufschubkontoNr = ""
|
||||
If RP_AufschubkontoNr.ToString.Contains("2719") Then
|
||||
getSachkonto = "3550" '--> KTO M-2719
|
||||
Else
|
||||
getSachkonto = "3553" '--> KTO M-2718
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
getSachkonto = CInt(getSachkonto)
|
||||
End Function
|
||||
|
||||
Shared Function getSQLString_SELECTForTrdInvoice(Optional Firma As Integer = -1)
|
||||
getSQLString_SELECTForTrdInvoice = "SELECT Rechnungsausgang.RechnungsDatum AS RK_RechnungsDatum, Rechnungsausgang.RechnungsNr AS RK_RechnungsNr, min(Rechnungsausgang.Abfertigungsdatum) AS RK_Abfertigungsdatum, min(Rechnungsausgang.FilialenNr) AS RK_FilialenNr,
|
||||
min(Rechnungsausgang.AbfertigungsNr) AS RK_AbfertigungsNr, min(Rechnungsausgang.UnterNr) AS RK_UnterNr, min(Rechnungsausgang.BelegartenNr) AS RK_BelegartenNr,
|
||||
(min(cast([FilialenNr] as varchar(4))) + '/' + min(cast([AbfertigungsNr] as varchar(8))) + '/' + min(cast([UnterNr] as varchar(2)))) AS RK_Buchungstext,
|
||||
min(Rechnungsausgang.KundenNrZentrale) AS RK_KundenNrZentrale, min(Rechnungsausgang.RechnungsKundenNr) AS RK_RechnungsKundenNr, min(Rechnungsausgang.RechnungsLandKz) AS RK_RechnungsLandKz,
|
||||
min(Rechnungsausgang.RechnungsUstIdKz) AS RK_RechnungsUstIdKz, min(Rechnungsausgang.RechnungsUstIdNr) AS RK_RechnungsUstIdNr, min(Rechnungsausgang.Lastschrift+0) AS RK_Lastschrift,
|
||||
min(Rechnungsausgang.Steuerschlüssel) AS RK_Steuerschlüssel, min(Rechnungsausgang.[Steuersatz %]) AS RK_SteuersatzProzent, min(Rechnungsausgang.Währungscode) AS RK_Währungscode,
|
||||
min(Rechnungsausgang.Nettozahlungsziel) AS RK_Nettozahlungsziel, min(Rechnungsausgang.Firma_ID) AS RK_Firma_ID, Sum(RechnungsausgangPositionen.SteuerpflichtigerBetrag) AS RK_SteuerpflichtigerBetrag,
|
||||
Sum(RechnungsausgangPositionen.SteuerfreierBetrag) AS RK_SteuerfreierBetrag
|
||||
, (Sum(RechnungsausgangPositionen.SteuerpflichtigerBetrag)*min(Rechnungsausgang.[Steuersatz %])*100)/100 AS RK_Steuerbetrag,
|
||||
Sum(RechnungsausgangPositionen.SteuerpflichtigerBetrag)+Sum(RechnungsausgangPositionen.SteuerfreierBetrag)+((Sum(RechnungsausgangPositionen.SteuerpflichtigerBetrag)*min(Rechnungsausgang.[Steuersatz %])*100)/100) AS RK_Rechnungsbetrag,
|
||||
Count(1) AS RK_Satzzähler
|
||||
FROM Rechnungsausgang INNER JOIN RechnungsausgangPositionen ON Rechnungsausgang.RK_ID = RechnungsausgangPositionen.RK_ID
|
||||
WHERE (((Rechnungsausgang.RechnungsDatum) Is Not Null) AND ((Rechnungsausgang.RechnungsNr) Is Not Null) AND ((Rechnungsausgang.Trdin)=0)) " & If(Firma > 0, " and Firma_ID=" & Firma, "") & "
|
||||
GROUP BY Rechnungsausgang.RechnungsDatum, Rechnungsausgang.RechnungsNr
|
||||
ORDER BY Rechnungsausgang.RechnungsDatum, Rechnungsausgang.RechnungsNr, min(Rechnungsausgang.Abfertigungsdatum), min(Rechnungsausgang.FilialenNr), min(Rechnungsausgang.AbfertigungsNr), min(Rechnungsausgang.UnterNr);"
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function getSQLString_SELECTForTrdProduct(RechnungsDatum As Date, RechnungsNr As Integer)
|
||||
getSQLString_SELECTForTrdProduct = "SELECT Rechnungsausgang.RechnungsDatum AS RP_RechnungsDatum, Rechnungsausgang.RechnungsNr AS RP_RechnungsNr, RechnungsausgangPositionen.LeistungsNr AS RP_LeistungsNr, RechnungsausgangPositionen.LeistungsBez AS RP_LeistungsBez,
|
||||
RechnungsausgangPositionen.Steuerpflichtig AS RP_Steuerpflichtig, Sum(RechnungsausgangPositionen.SteuerpflichtigerBetrag) AS RP_SteuerpflichtigerBetrag, Sum(RechnungsausgangPositionen.SteuerfreierBetrag) AS RP_SteuerfreierBetrag,
|
||||
min(RechnungsausgangPositionen.Belegdaten) AS RP_Belegdaten, Count(1) AS RP_Satzzähler, min(AufschubkontoNr) as AufschubkontoNr
|
||||
FROM RechnungsausgangPositionen INNER JOIN Rechnungsausgang ON RechnungsausgangPositionen.RK_ID = Rechnungsausgang.RK_ID
|
||||
GROUP BY Rechnungsausgang.RechnungsDatum, Rechnungsausgang.RechnungsNr, RechnungsausgangPositionen.LeistungsNr, RechnungsausgangPositionen.LeistungsBez, RechnungsausgangPositionen.Steuerpflichtig
|
||||
HAVING (((Rechnungsausgang.RechnungsDatum)='" & RechnungsDatum.ToShortDateString & "') AND ((Rechnungsausgang.RechnungsNr)=" & RechnungsNr & "))
|
||||
ORDER BY Rechnungsausgang.RechnungsDatum, Rechnungsausgang.RechnungsNr, RechnungsausgangPositionen.LeistungsNr, RechnungsausgangPositionen.LeistungsBez, RechnungsausgangPositionen.Steuerpflichtig;"
|
||||
End Function
|
||||
End Class
|
||||
250
SDL/VERAG_PROG_ALLGEMEIN/Classes/cUIDAbfrage.vb
Normal file
250
SDL/VERAG_PROG_ALLGEMEIN/Classes/cUIDAbfrage.vb
Normal file
@@ -0,0 +1,250 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cUIDAbfrage
|
||||
|
||||
|
||||
Property uid_id As Integer
|
||||
Property uid_KundenNr As Integer
|
||||
Property uid_Datum As Object = Nothing
|
||||
Property uid_MaId As Integer
|
||||
Property uid_Sachbearbeiter As Object = Nothing
|
||||
Property uid_requesterCountryCode As Object = Nothing
|
||||
Property uid_requesterVatNumber As Object = Nothing
|
||||
Property uid_countryCode As Object = Nothing
|
||||
Property uid_vatNumber As Object = Nothing
|
||||
Property uid_requestDate As Object = Nothing
|
||||
Property uid_valid As Boolean
|
||||
Property uid_traderName As Object = Nothing
|
||||
Property uid_traderCompanyType As Object = Nothing
|
||||
Property uid_traderAddress As Object = Nothing
|
||||
Property uid_traderStreet As Object = Nothing
|
||||
Property uid_traderPostcode As Object = Nothing
|
||||
Property uid_traderCity As Object = Nothing
|
||||
Property uid_traderNameMatch As Object = Nothing
|
||||
Property uid_traderCompanyTypeMatch As Object = Nothing
|
||||
Property uid_traderStreetMatch As Object = Nothing
|
||||
Property uid_traderPostcodeMatch As Object = Nothing
|
||||
Property uid_traderCityMatch As Object = Nothing
|
||||
Property uid_requestIdentifier As Object = Nothing
|
||||
|
||||
|
||||
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
Sub New(uid_id)
|
||||
Me.uid_id = uid_id
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
Public 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("uid_id", uid_id, , True, True))
|
||||
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_KundenNr", uid_KundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_Datum", uid_Datum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_MaId", uid_MaId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_Sachbearbeiter", uid_Sachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_requesterCountryCode", uid_requesterCountryCode))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_requesterVatNumber", uid_requesterVatNumber))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_countryCode", uid_countryCode))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_vatNumber", uid_vatNumber))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_requestDate", uid_requestDate))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_valid", uid_valid))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_traderName", uid_traderName))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_traderCompanyType", uid_traderCompanyType))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_traderAddress", uid_traderAddress))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_traderStreet", uid_traderStreet))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_traderPostcode", uid_traderPostcode))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_traderCity", uid_traderCity))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_traderNameMatch", uid_traderNameMatch))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_traderCompanyTypeMatch", uid_traderCompanyTypeMatch))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_traderStreetMatch", uid_traderStreetMatch))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_traderPostcodeMatch", uid_traderPostcodeMatch))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_traderCityMatch", uid_traderCityMatch))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_requestIdentifier", uid_requestIdentifier))
|
||||
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblUIDAbfrage WITH(updlock,serializable) WHERE uid_id=@uid_id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
uid_id = SQL.doSQLVarListID(uid_id, sqlstr, "FMZOLL", , list)
|
||||
Return uid_id > 0
|
||||
End Function
|
||||
|
||||
Public Shared Function LOADByKdNrDate(uid_KundenNr As Integer, uid_Datum As Date) As cUIDAbfrage
|
||||
Try
|
||||
Dim UID As New cUIDAbfrage
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblUIDAbfrage WHERE uid_KundenNr=@uid_KundenNr AND cast(uid_Datum as date)=@uid_Datum ", conn)
|
||||
cmd.Parameters.AddWithValue("@uid_KundenNr", uid_KundenNr)
|
||||
cmd.Parameters.AddWithValue("@uid_Datum", uid_Datum.ToShortDateString)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In UID.getParameterList()
|
||||
Dim propInfo As PropertyInfo = UID.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(UID, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(UID, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
dr.Close()
|
||||
Return UID
|
||||
End If
|
||||
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
|
||||
Return Nothing
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblUIDAbfrage WHERE uid_id=@uid_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@uid_id", uid_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
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 getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblUIDAbfrage] SET " & str & " WHERE uid_id=@uid_id ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 tblUIDAbfrage (" & 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
|
||||
|
||||
|
||||
|
||||
Public Shared Function ABFRAGE(UstIdKz As String, UstIdNr As String, ByRef valid As Boolean) As cUIDAbfrage
|
||||
|
||||
Try
|
||||
Dim vat As New UIDPruefung.checkVatService
|
||||
|
||||
Dim countryCode As String = UstIdKz
|
||||
Dim vatNumber As String = UstIdNr
|
||||
Dim traderName As String
|
||||
Dim traderCompanyType As String
|
||||
Dim traderStreet As String
|
||||
Dim traderPostcode As String
|
||||
Dim traderCity As String
|
||||
Dim requesterCountryCode As String = "AT"
|
||||
Dim requesterVatNumber As String = "U62663022"
|
||||
'Dim valid As Boolean
|
||||
Dim traderAddress As String
|
||||
Dim traderNameMatch As Integer
|
||||
Dim traderNameMatchSpecified As Boolean
|
||||
Dim traderCompanyTypeMatch As Integer
|
||||
Dim traderCompanyTypeMatchSpecified As Boolean
|
||||
Dim traderStreetMatch As Integer
|
||||
Dim traderStreetMatchSpecified As Boolean
|
||||
Dim traderPostcodeMatch As Integer
|
||||
Dim traderPostcodeMatchSpecified As Boolean
|
||||
Dim traderCityMatch As Integer
|
||||
Dim traderCityMatchSpecified As Boolean
|
||||
Dim requestIdentifier As String
|
||||
|
||||
|
||||
|
||||
' Dim ass As New EU_UID_Pruefung.checkVatPortTypeClient()
|
||||
|
||||
' ass.checkVatPortTypeClient()
|
||||
|
||||
' Dim s = EU3t.checkVat("AT", "U53187000", valid, name, adress)
|
||||
'Dim s = vat.checkVat(ADRESSE.UstIdKz, ADRESSE.UstIdNr, valid, name, adress)
|
||||
Dim s As Date = vat.checkVatApprox(countryCode, vatNumber, traderName, traderCompanyType, traderStreet, traderPostcode, traderCity, requesterCountryCode, requesterVatNumber, valid, traderAddress, traderNameMatch, traderNameMatchSpecified, traderCompanyTypeMatch, traderCompanyTypeMatchSpecified, traderStreetMatch, traderStreetMatchSpecified, traderPostcodeMatch, traderPostcodeMatchSpecified, traderCityMatch, traderCityMatchSpecified, requestIdentifier)
|
||||
|
||||
|
||||
Dim UID As New cUIDAbfrage
|
||||
|
||||
' UID()
|
||||
' MsgBox(requestIdentifier)
|
||||
' MsgBox(traderName)
|
||||
' MsgBox(traderStreet)
|
||||
'' MsgBox(traderAddress)
|
||||
' ' MsgBox(adress)
|
||||
' MsgBox(name)
|
||||
|
||||
|
||||
Return UID
|
||||
Catch ex As Exception
|
||||
|
||||
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
|
||||
End Class
|
||||
341
SDL/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb
Normal file
341
SDL/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb
Normal file
@@ -0,0 +1,341 @@
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
Imports VERAG_PROG_ALLGEMEIN.UIDPruefung
|
||||
'Imports SDL.eu.europa.ec
|
||||
|
||||
Public Class cUIDPruefung
|
||||
|
||||
Property uid_id As Integer = -1
|
||||
Property uid_KundenNr As Integer
|
||||
Property uid_UstIdKz As String
|
||||
Property uid_UstIdNr As String
|
||||
Property uid_Datum As Date = Now
|
||||
Property uid_valid As Boolean
|
||||
Property uid_MaId As Object = Nothing
|
||||
Property uid_Sachbearbeiter As String
|
||||
Property uid_firma As Object = Nothing
|
||||
|
||||
|
||||
Property uid_stufe As Integer = 1
|
||||
Property Firma As String = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Property uid_abfrageUid As Object = Nothing
|
||||
Property uid_sessionId As Object = Nothing
|
||||
|
||||
|
||||
|
||||
Property uid_adr1 As Object = Nothing
|
||||
Property uid_adr2 As Object = Nothing
|
||||
Property uid_adr3 As Object = Nothing
|
||||
Property uid_adr4 As Object = Nothing
|
||||
Property uid_adr5 As Object = Nothing
|
||||
Property uid_adr6 As Object = Nothing
|
||||
|
||||
|
||||
Shared SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
Sub New(uid_id)
|
||||
Me.uid_id = uid_id
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
Public 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("uid_id", uid_id, , True, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_KundenNr", uid_KundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_UstIdKz", uid_UstIdKz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_UstIdNr", uid_UstIdNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_Datum", uid_Datum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_valid", uid_valid))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_MaId", uid_MaId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_Sachbearbeiter", uid_Sachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_firma", uid_firma))
|
||||
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_stufe", uid_stufe))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma", Firma))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_abfrageUid", uid_abfrageUid))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_sessionId", uid_sessionId))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_adr1", uid_adr1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_adr2", uid_adr2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_adr3", uid_adr3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_adr4", uid_adr4))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_adr5", uid_adr5))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_adr6", uid_adr6))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblUIDPruefung WITH(updlock,serializable) WHERE uid_id=@uid_id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
uid_id = SQL.doSQLVarListID(uid_id, sqlstr, "FMZOLL", , list)
|
||||
Return uid_id > 0
|
||||
End Function
|
||||
|
||||
Public Shared Function LOADByKdNrDate(ba_KundenNr As Integer, ba_Datum As Date) As cUIDPruefung
|
||||
Try
|
||||
Dim UID As New cUIDPruefung
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblUIDPruefung WHERE ba_KundenNr=@ba_KundenNr AND cast(ba_Datum as date)=@ba_Datum ", conn)
|
||||
cmd.Parameters.AddWithValue("@ba_KundenNr", ba_KundenNr)
|
||||
cmd.Parameters.AddWithValue("@ba_Datum", ba_Datum.ToShortDateString)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In UID.getParameterList()
|
||||
Dim propInfo As PropertyInfo = UID.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(UID, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(UID, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
dr.Close()
|
||||
Return UID
|
||||
End If
|
||||
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
|
||||
Return Nothing
|
||||
End Function
|
||||
|
||||
|
||||
Public Shared Function doUIDPruefungALL(Optional datum As Object = Nothing, Optional SaveErgInAdressen As Boolean = True, Optional Sciherheitsabfrage As Boolean = True, Optional MaxEintraege As Integer = -1, Optional showErr As Boolean = True) As DataTable
|
||||
Dim dt As DataTable = Nothing
|
||||
If datum = Nothing Then datum = CDate("01." & Now.ToString("MM.yyyy")).AddMonths(-1)
|
||||
|
||||
Dim where = ""
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "AMBAR" : where = " And Filialen.FilialenNr IN (5701)"
|
||||
Case "IMEX" : where = " And Filialen.FilialenNr IN (5501)"
|
||||
Case "ATILLA" : where = " And Filialen.FilialenNr IN (4801)"
|
||||
Case "UNISPED" : where = " AND Filialen.firma='UNISPED' "
|
||||
Case Else : where = " AND Filialen.firma='VERAG' " '" And isnull(FilialenNr,'') Not IN (5501,5701)"
|
||||
End Select
|
||||
Dim Top = ""
|
||||
If MaxEintraege > 0 Then
|
||||
Top = " TOP " & MaxEintraege
|
||||
End If
|
||||
|
||||
dt = SQL.loadDgvBySql("SELECT " & Top & " [AdressenNr] as KdNr,[Ordnungsbegriff] as Firma,UstIdGeprüft as [letzte Prüfung],Adressen.UstIdKz,Adressen.UstIdnr " &
|
||||
" From [Adressen] inner Join kunden On KundenNr=AdressenNr inner join Filialen on Filialen.FilialenNr=Kunden.FilialenNr " &
|
||||
" where (UstIdGeprüft <= '" & datum.ToShortDateString & "' OR (Adressen.UstIdKz is not null and Adressen.UstIdNr is not null)) " &
|
||||
" And Auswahl='A' " & where & " ORDER BY Ordnungsbegriff", "FMZOLL")
|
||||
|
||||
If dt IsNot Nothing Then
|
||||
If dt.Rows.Count = 0 Then Return Nothing
|
||||
If Sciherheitsabfrage Then
|
||||
If vbYes <> MsgBox("Es werden " & dt.Rows.Count & " Datensätze abgefragt, möchten Sie fortfahren?", vbYesNoCancel) Then
|
||||
Return Nothing
|
||||
End If
|
||||
End If
|
||||
Dim c As New DataColumn
|
||||
c.ColumnName = "Ergebnis"
|
||||
dt.Columns.Add(c)
|
||||
For Each r As DataRow In dt.Rows
|
||||
Dim UID_TMP = doUIDPruefung(r("KdNr"),, SaveErgInAdressen, showErr)
|
||||
If UID_TMP IsNot Nothing Then
|
||||
If UID_TMP.uid_valid Then
|
||||
r("Ergebnis") = "OK"
|
||||
Else
|
||||
r("Ergebnis") = "UNGÜLTIG"
|
||||
End If
|
||||
Else
|
||||
r("Ergebnis") = "ERROR"
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
Return dt
|
||||
End Function
|
||||
|
||||
|
||||
Public Shared Function doUIDPruefung(ba_KundenNr, Optional AskIfDouble = False, Optional SaveErgInAdressen = True, Optional showErr = True) As cUIDPruefung
|
||||
|
||||
Dim AD As New cAdressen(ba_KundenNr)
|
||||
If AD IsNot Nothing Then
|
||||
If AD.UstIdKz IsNot Nothing AndAlso AD.UstIdNr IsNot Nothing Then
|
||||
|
||||
Try
|
||||
If AskIfDouble Then
|
||||
If IsDate(AD.UstIdGeprüft) AndAlso CDate(AD.UstIdGeprüft).ToShortDateString = Now.ToShortDateString Then
|
||||
If vbYes <> MsgBox("Die UID-Nummer wurde heute bereits geprüft. Soll die Prüfung nochmal durchgeführt werden?", vbYesNoCancel) Then
|
||||
Return Nothing
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
Dim vat As New UIDPruefung.checkVatService
|
||||
|
||||
' Dim EU3t As New SDL.eu.europa.ec.checkVatService("checkVatPort", "http://ec.europa.eu/taxation_customs/vies/checkVatService.wsdl") '"urn:ec.europa.eu:taxud:vies:services:checkVat:types")
|
||||
' Dim EU4 As New EU_Uid_Pruefung.checkVatPortTyp
|
||||
' EU3.checkVatPortType()
|
||||
' "EU_Uid_Pruefung.checkVatPortType"
|
||||
' Dim valid As Boolean = False
|
||||
'Dim name As String = ""
|
||||
'Dim adress As String = ""
|
||||
|
||||
Dim countryCode As String = AD.UstIdKz
|
||||
Dim vatNumber As String = AD.UstIdNr
|
||||
Dim traderName As String
|
||||
Dim traderCompanyType As String
|
||||
Dim traderStreet As String
|
||||
Dim traderPostcode As String
|
||||
Dim traderCity As String
|
||||
|
||||
Dim requesterCountryCode As String = "AT"
|
||||
Dim requesterVatNumber As String = "U62663022"
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "IMEX"
|
||||
requesterCountryCode = "AT"
|
||||
requesterVatNumber = "U68490714"
|
||||
End Select
|
||||
Dim valid As Boolean = False
|
||||
Dim traderAddress As String
|
||||
Dim traderNameMatch As matchCode
|
||||
Dim traderNameMatchSpecified As Boolean
|
||||
Dim traderCompanyTypeMatch As matchCode
|
||||
Dim traderCompanyTypeMatchSpecified As Boolean
|
||||
Dim traderStreetMatch As matchCode
|
||||
Dim traderStreetMatchSpecified As Boolean
|
||||
Dim traderPostcodeMatch As matchCode
|
||||
Dim traderPostcodeMatchSpecified As Boolean
|
||||
Dim traderCityMatch As matchCode
|
||||
Dim traderCityMatchSpecified As Boolean
|
||||
Dim requestIdentifier As String
|
||||
|
||||
|
||||
|
||||
' Dim ass As New EU_UID_Pruefung.checkVatPortTypeClient()
|
||||
|
||||
' ass.checkVatPortTypeClient()
|
||||
|
||||
' Dim s = EU3t.checkVat("AT", "U53187000", valid, name, adress)
|
||||
'Dim s = vat.checkVat(ADRESSE.UstIdKz, ADRESSE.UstIdNr, valid, name, adress)
|
||||
Dim s = vat.checkVatApprox(countryCode, vatNumber, traderName, traderCompanyType, traderStreet, traderPostcode, traderCity, requesterCountryCode, requesterVatNumber, valid, traderAddress, traderNameMatch, traderNameMatchSpecified, traderCompanyTypeMatch, traderCompanyTypeMatchSpecified, traderStreetMatch, traderStreetMatchSpecified, traderPostcodeMatch, traderPostcodeMatchSpecified, traderCityMatch, traderCityMatchSpecified, requestIdentifier)
|
||||
|
||||
If s >= Now.ToShortDateString Then 'If s IsNot Nothing Then
|
||||
Dim UID_TMP As New cUIDPruefung
|
||||
UID_TMP.uid_Datum = Now
|
||||
UID_TMP.uid_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
If If(UID_TMP.uid_Sachbearbeiter, "") = "" Then UID_TMP.uid_Sachbearbeiter = "AUTO"
|
||||
UID_TMP.uid_MaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
||||
UID_TMP.uid_valid = valid
|
||||
UID_TMP.uid_KundenNr = ba_KundenNr
|
||||
|
||||
UID_TMP.uid_UstIdKz = AD.UstIdKz
|
||||
UID_TMP.uid_UstIdNr = AD.UstIdNr
|
||||
UID_TMP.uid_stufe = 1
|
||||
UID_TMP.Firma = If(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, "VERAG")
|
||||
|
||||
UID_TMP.uid_abfrageUid = requesterCountryCode & requesterVatNumber
|
||||
' UID.uid_firma =
|
||||
' UID.uid_strasse))
|
||||
'UID.uid_plz))
|
||||
'UID.uid_ort))
|
||||
|
||||
UID_TMP.SAVE()
|
||||
If valid Then
|
||||
If SaveErgInAdressen Then
|
||||
AD.UstIdGeprüft = Now.ToShortDateString
|
||||
AD.SAVE()
|
||||
End If
|
||||
End If
|
||||
Return UID_TMP
|
||||
End If
|
||||
Catch ex As Exception
|
||||
If showErr Then MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End If
|
||||
End If
|
||||
|
||||
Return Nothing
|
||||
End Function
|
||||
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblUIDPruefung WHERE uid_id=@uid_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@uid_id", uid_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
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 getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblUIDPruefung] SET " & str & " WHERE uid_id=@uid_id ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 tblUIDPruefung (" & 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
|
||||
144
SDL/VERAG_PROG_ALLGEMEIN/Classes/cVoraskasse.vb
Normal file
144
SDL/VERAG_PROG_ALLGEMEIN/Classes/cVoraskasse.vb
Normal file
@@ -0,0 +1,144 @@
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cVoraskasse
|
||||
|
||||
Property vk_id As Integer
|
||||
Property vk_FilialeNr As Object = Nothing
|
||||
Property vk_AbfertigungsNr As Object = Nothing
|
||||
Property vk_Datum As Object = Nothing
|
||||
Property vk_LKW As Object = Nothing
|
||||
Property vk_KdNr As Object = Nothing
|
||||
Property vk_Firma As Object = Nothing
|
||||
Property vk_Betrag As Object = Nothing
|
||||
Property vk_QS_SachbearbeiterId As Object = Nothing
|
||||
Property vk_QS_Sachbearbeiter As Object = Nothing
|
||||
Property vk_QS_Bemerkung As Object = Nothing
|
||||
Property vk_GeldEingetroffen As Boolean = False
|
||||
Property vk_BH_SachbearbeiterId As Object = Nothing
|
||||
Property vk_BH_Sachbearbeiter As Object = Nothing
|
||||
Property vk_BH_Bemerkung As Object = Nothing
|
||||
Property vk_BH_DatumGeldeingang As Object = Nothing
|
||||
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
|
||||
End Sub
|
||||
Sub New(vk_id)
|
||||
Me.vk_id = vk_id
|
||||
LOAD()
|
||||
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("vk_id", vk_id, , True))
|
||||
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_FilialeNr", vk_FilialeNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_AbfertigungsNr", vk_AbfertigungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Datum", vk_Datum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_LKW", vk_LKW))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_KdNr", vk_KdNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Firma", vk_Firma))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Betrag", vk_Betrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_QS_SachbearbeiterId", vk_QS_SachbearbeiterId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_QS_Sachbearbeiter", vk_QS_Sachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_QS_Bemerkung", vk_QS_Bemerkung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_GeldEingetroffen", vk_GeldEingetroffen))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_BH_SachbearbeiterId", vk_BH_SachbearbeiterId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_BH_Sachbearbeiter", vk_BH_Sachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_BH_Bemerkung", vk_BH_Bemerkung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_BH_DatumGeldeingang", vk_BH_DatumGeldeingang))
|
||||
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblVorauskasse WITH(updlock,serializable) WHERE vk_id=@vk_id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Dim id = SQL.doSQLVarListID(vk_id, sqlstr, "ADMIN", , list)
|
||||
Me.vk_id = id
|
||||
Return id > 0
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblVorauskasse WHERE vk_id=@vk_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@vk_id", vk_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
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 getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblVorauskasse] SET " & str & " WHERE vk_id=@vk_id ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 tblVorauskasse (" & 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
|
||||
303
SDL/VERAG_PROG_ALLGEMEIN/Classes/cVorauskasse.vb
Normal file
303
SDL/VERAG_PROG_ALLGEMEIN/Classes/cVorauskasse.vb
Normal file
@@ -0,0 +1,303 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
|
||||
Public Class cVorauskasse
|
||||
|
||||
|
||||
Property vk_id As Integer = -1
|
||||
Property vk_FilialeNr As Object = Nothing
|
||||
Property vk_AbfertigungsNr As Object = Nothing
|
||||
Property vk_Datum As Object = Nothing
|
||||
Property vk_LKW As Object = Nothing
|
||||
Property vk_KdNr As Object = Nothing
|
||||
Property vk_Firma As Object = Nothing
|
||||
Property vk_Betrag As Decimal = 0.0
|
||||
Property vk_QS_SachbearbeiterId As Integer
|
||||
Property vk_QS_Sachbearbeiter As Object = Nothing
|
||||
Property vk_QS_Bemerkung As Object = Nothing
|
||||
Property vk_GeldEingetroffen As Boolean = False
|
||||
Property vk_BH_SachbearbeiterId As Object = Nothing
|
||||
Property vk_BH_Sachbearbeiter As Object = Nothing
|
||||
Property vk_BH_Bemerkung As Object = Nothing
|
||||
Property vk_BH_DatumGeldeingang As Object = Nothing
|
||||
Property vk_storno As Boolean = False
|
||||
Property vk_stornoDatum As Object = Nothing
|
||||
|
||||
|
||||
Property vk_Rolle As Object = Nothing
|
||||
Property vk_Anrede As Object = Nothing
|
||||
Property vk_Firmenwortlauf As Object = Nothing
|
||||
Property vk_Aresse1 As Object = Nothing
|
||||
Property vk_Adresse2 As Object = Nothing
|
||||
Property vk_UID As Object = Nothing
|
||||
Property vk_EORI As Object = Nothing
|
||||
Property vk_Tel As Object = Nothing
|
||||
Property vk_Fax As Object = Nothing
|
||||
Property vk_Email As Object = Nothing
|
||||
Property vk_RgNr As Object = Nothing
|
||||
Property vk_Absender As Object = Nothing
|
||||
Property vk_ATREUR1 As Object = Nothing
|
||||
Property vk_Fraechter As Object = Nothing
|
||||
Property vk_Anzahl As Object = Nothing
|
||||
Property vk_Warenbezeichnung As Object = Nothing
|
||||
Property vk_Colli As Object = Nothing
|
||||
Property vk_FaStNr As Object = Nothing
|
||||
|
||||
Property vk_Berechnung_Rechnungsbetrag As Object = Nothing
|
||||
Property vk_Berechnung_FrachtkostAusland As Object = Nothing
|
||||
Property vk_Berechnung_ZollProz As Object = Nothing
|
||||
Property vk_Berechnung_FrachtkostInland As Object = Nothing
|
||||
Property vk_Berechnung_AbgabenSonst_Bez As Object = Nothing
|
||||
Property vk_Berechnung_AbgabenSonst_Betrag As Object = Nothing
|
||||
Property vk_Berechnung_EUSTProz As Object = Nothing
|
||||
Property vk_Berechnung_KostenSonst_Bez As Object = Nothing
|
||||
Property vk_Berechnung_KostenSonst_Betrag As Object = Nothing
|
||||
Property vk_Berechnung_Verzollung As Object = Nothing
|
||||
Property vk_Berechnung_jeWeitere As Object = Nothing
|
||||
Property vk_Berechnung_ATLAS As Object = Nothing
|
||||
Property vk_Berechnung_Clearing As Object = Nothing
|
||||
Property vk_Berechnung_korrRg As Object = Nothing
|
||||
Property vk_Berechnung_Übersetzung As Object = Nothing
|
||||
Property vk_Berechnung_Aviso As Object = Nothing
|
||||
Property vk_Berechnung_SVS As Object = Nothing
|
||||
Property vk_Berechnung_SonstigeKosten As Object = Nothing
|
||||
Property vk_Berechnung_SonstigeKostenText As Object = Nothing
|
||||
Property vk_Berechnung_PP As Object = Nothing
|
||||
Property vk_Freigegeben As Boolean = False
|
||||
Property vk_SendungId As Object = Nothing
|
||||
Property vk_AvisoId As Object = Nothing
|
||||
Property vk_VermerkId As Object = Nothing
|
||||
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
Sub New(vk_id)
|
||||
Me.vk_id = vk_id
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
Public 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("vk_id", vk_id, , True, True))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_FilialeNr", vk_FilialeNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_AbfertigungsNr", vk_AbfertigungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Datum", vk_Datum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_LKW", vk_LKW))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_KdNr", vk_KdNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Firma", vk_Firma))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Betrag", (vk_Betrag))) '.ToString("N2")))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_QS_SachbearbeiterId", vk_QS_SachbearbeiterId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_QS_Sachbearbeiter", vk_QS_Sachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_QS_Bemerkung", vk_QS_Bemerkung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_GeldEingetroffen", vk_GeldEingetroffen))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_BH_SachbearbeiterId", vk_BH_SachbearbeiterId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_BH_Sachbearbeiter", vk_BH_Sachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_BH_Bemerkung", vk_BH_Bemerkung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_BH_DatumGeldeingang", vk_BH_DatumGeldeingang))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_storno", vk_storno))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_stornoDatum", vk_stornoDatum))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Rolle", vk_Rolle))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Anrede", vk_Anrede))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Firmenwortlauf", vk_Firmenwortlauf))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Aresse1", vk_Aresse1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Adresse2", vk_Adresse2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_UID", vk_UID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_EORI", vk_EORI))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Tel", vk_Tel))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Fax", vk_Fax))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Email", vk_Email))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_RgNr", vk_RgNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Absender", vk_Absender))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_ATREUR1", vk_ATREUR1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Fraechter", vk_Fraechter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Anzahl", vk_Anzahl))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Warenbezeichnung", vk_Warenbezeichnung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Colli", vk_Colli))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_FaStNr", vk_FaStNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Berechnung_Rechnungsbetrag", vk_Berechnung_Rechnungsbetrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Berechnung_FrachtkostAusland", vk_Berechnung_FrachtkostAusland))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Berechnung_ZollProz", vk_Berechnung_ZollProz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Berechnung_FrachtkostInland", vk_Berechnung_FrachtkostInland))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Berechnung_AbgabenSonst_Bez", vk_Berechnung_AbgabenSonst_Bez))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Berechnung_AbgabenSonst_Betrag", vk_Berechnung_AbgabenSonst_Betrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Berechnung_EUSTProz", vk_Berechnung_EUSTProz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Berechnung_KostenSonst_Bez", vk_Berechnung_KostenSonst_Bez))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Berechnung_KostenSonst_Betrag", vk_Berechnung_KostenSonst_Betrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Berechnung_Verzollung", vk_Berechnung_Verzollung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Berechnung_jeWeitere", vk_Berechnung_jeWeitere))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Berechnung_ATLAS", vk_Berechnung_ATLAS))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Berechnung_Clearing", vk_Berechnung_Clearing))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Berechnung_korrRg", vk_Berechnung_korrRg))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Berechnung_Übersetzung", vk_Berechnung_Übersetzung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Berechnung_Aviso", vk_Berechnung_Aviso))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Berechnung_SVS", vk_Berechnung_SVS))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Berechnung_SonstigeKosten", vk_Berechnung_SonstigeKosten))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Berechnung_PP", vk_Berechnung_PP))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Freigegeben", vk_Freigegeben))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_SendungId", vk_SendungId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_AvisoId", vk_AvisoId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_VermerkId", vk_VermerkId))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Shared Function LOADByFilialeAbfNr(FilialeNr As Integer, AbfertigungsNr As Integer, Optional vk_Rolle As String = "") As cVorauskasse
|
||||
Try
|
||||
Dim VK As New cVorauskasse
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblVorauskassen WHERE vk_AbfertigungsNr=@vk_AbfertigungsNr AND vk_FilialeNr=@vk_FilialeNr " & If(If(vk_Rolle, "") <> "", "AND vk_Rolle=@vk_Rolle ", ""), conn)
|
||||
cmd.Parameters.AddWithValue("@vk_FilialeNr", FilialeNr)
|
||||
cmd.Parameters.AddWithValue("@vk_AbfertigungsNr", AbfertigungsNr)
|
||||
cmd.Parameters.AddWithValue("@vk_Rolle", vk_Rolle)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In VK.getParameterList()
|
||||
Dim propInfo As PropertyInfo = VK.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(VK, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(VK, dr.Item(l.Text))
|
||||
End If
|
||||
Next
|
||||
dr.Close()
|
||||
Return VK
|
||||
End If
|
||||
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
|
||||
Return Nothing
|
||||
End Function
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblVorauskassen WITH(updlock,serializable) WHERE vk_id=@vk_id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
vk_id = SQL.doSQLVarListID(vk_id, sqlstr, "FMZOLL", , list)
|
||||
Return vk_id > 0
|
||||
End Function
|
||||
|
||||
|
||||
Public Function SET_GELDEINGANG(vk_GeldEingetroffen As Boolean, Optional vk_BH_Bemerkung As Object = Nothing) As Boolean
|
||||
Me.vk_GeldEingetroffen = vk_GeldEingetroffen
|
||||
Me.vk_Freigegeben = vk_GeldEingetroffen
|
||||
|
||||
If Me.vk_GeldEingetroffen Then
|
||||
Me.vk_BH_DatumGeldeingang = Now
|
||||
Me.vk_BH_SachbearbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_id
|
||||
Me.vk_BH_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
Else
|
||||
Me.vk_BH_DatumGeldeingang = Nothing
|
||||
Me.vk_BH_SachbearbeiterId = Nothing
|
||||
Me.vk_BH_Sachbearbeiter = Nothing
|
||||
End If
|
||||
Me.vk_BH_Bemerkung = vk_BH_Bemerkung
|
||||
|
||||
Return SAVE()
|
||||
End Function
|
||||
|
||||
Public Function SET_FREIGEGEBEN(vk_Freigegeben As Boolean, Optional vk_BH_Bemerkung As Object = Nothing) As Boolean
|
||||
Me.vk_Freigegeben = vk_Freigegeben
|
||||
Me.vk_BH_Bemerkung = vk_BH_Bemerkung
|
||||
Return SAVE()
|
||||
End Function
|
||||
|
||||
Public Function SET_STORNO() As Boolean
|
||||
Me.vk_storno = Not Me.vk_storno
|
||||
Return SAVE()
|
||||
End Function
|
||||
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblVorauskassen WHERE vk_id=@vk_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@vk_id", vk_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
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 getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblVorauskassen] SET " & str & " WHERE vk_id=@vk_id ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 tblVorauskassen (" & 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
|
||||
|
||||
|
||||
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblVorauskassen] WITH(updlock,serializable) WHERE vk_id=" & Me.vk_id
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
134
SDL/VERAG_PROG_ALLGEMEIN/Classes/cWarenbezeichnungBegriffe.vb
Normal file
134
SDL/VERAG_PROG_ALLGEMEIN/Classes/cWarenbezeichnungBegriffe.vb
Normal file
@@ -0,0 +1,134 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cWarenbezeichnungBegriffe
|
||||
Property wb_id As Integer
|
||||
Property wb_begriff As String
|
||||
Property wb_beispiele As String
|
||||
Property wb_datum As Date = Now
|
||||
Property wb_Sachbearbeiter As String
|
||||
Property wb_SachbearbeiterId As Integer
|
||||
|
||||
|
||||
Public hasEntry As Boolean = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
Sub New(wb_id)
|
||||
If wb_id IsNot Nothing Then
|
||||
Me.wb_id = wb_id
|
||||
LOAD()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public 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("wb_id", wb_id, , True, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wb_begriff", wb_begriff))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wb_beispiele", wb_beispiele))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wb_datum", wb_datum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wb_Sachbearbeiter", wb_Sachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wb_SachbearbeiterId", wb_SachbearbeiterId))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Me.wb_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
Me.wb_SachbearbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblWarenbezeichnungBegriffe WITH(updlock,serializable) WHERE wb_id=@wb_id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
wb_id = SQL.doSQLVarListID(wb_id, sqlstr, "FMZOLL", , list)
|
||||
Return wb_id > 0
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblWarenbezeichnungBegriffe WHERE wb_id=@wb_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@wb_id", wb_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
hasEntry = True
|
||||
Next
|
||||
|
||||
End If
|
||||
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 getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblWarenbezeichnungBegriffe] SET " & str & " WHERE wb_id=@wb_id ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 tblWarenbezeichnungBegriffe (" & 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
|
||||
|
||||
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblWarenbezeichnungBegriffe] WITH(updlock,serializable) WHERE wb_id=" & Me.wb_id
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
Public Shared Function DELETE(id As Integer) As Boolean
|
||||
Dim SQL As New SQL
|
||||
Dim sqlstr = " DELETE FROM [tblWarenbezeichnungBegriffe] WHERE wb_id=" & id
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
End Class
|
||||
181
SDL/VERAG_PROG_ALLGEMEIN/Classes/cZkteing.vb
Normal file
181
SDL/VERAG_PROG_ALLGEMEIN/Classes/cZkteing.vb
Normal file
@@ -0,0 +1,181 @@
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
|
||||
Public Class cZkteing
|
||||
|
||||
Property Index As Integer = -1
|
||||
Property Status As Object = Nothing
|
||||
Property ZollamtsNr As Object = Nothing
|
||||
Property Jahr As Object = Nothing
|
||||
Property KennNr As Object = Nothing
|
||||
Property Nummer As Object = Nothing
|
||||
Property Leitzahl As Object = Nothing
|
||||
Property Belegart As Object = Nothing
|
||||
Property LeistungsNr As Object = Nothing
|
||||
Property Betrag As Object = Nothing
|
||||
Property Eingabedatum As Date
|
||||
Property Abfertigungsdatum As Object = Nothing
|
||||
Property Übernahmedatum As Date
|
||||
Property Bemerkung As Object = Nothing
|
||||
Property Sachbearbeiter As String = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
Property Bezugsnummer As Object = Nothing
|
||||
Property Registriernummer As Object = Nothing
|
||||
Property Korrekturnummer As Object = Nothing
|
||||
Property AOFD As Object = Nothing
|
||||
Property AKTO As Object = Nothing
|
||||
Property Fälligkeitsdatum As Object = Nothing
|
||||
Property Dateiname As Object = Nothing
|
||||
Property Mandant As Object = Nothing
|
||||
Property Niederlassung As Object = Nothing
|
||||
|
||||
Property LeistungsBez As Object = Nothing
|
||||
|
||||
Public hasEntry As Boolean = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
Sub New(Index)
|
||||
Me.Index = Index
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
Shared Function UPDATE_Status(Status, Zkteing_Index) As Boolean
|
||||
Dim ZK As New VERAG_PROG_ALLGEMEIN.cZkteing(Zkteing_Index)
|
||||
If ZK IsNot Nothing AndAlso ZK.hasEntry Then
|
||||
ZK.Status = Status
|
||||
Return ZK.SAVE
|
||||
End If
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Public 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("Index", Index, , True, True))
|
||||
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Status", Status))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ZollamtsNr", ZollamtsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Jahr", Jahr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KennNr", KennNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Nummer", Nummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Leitzahl", Leitzahl))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Belegart", Belegart))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LeistungsNr", LeistungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Betrag", Betrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Eingabedatum", Eingabedatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abfertigungsdatum", Abfertigungsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Übernahmedatum", Übernahmedatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bemerkung", Bemerkung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachbearbeiter", Sachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bezugsnummer", Bezugsnummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Registriernummer", Registriernummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Korrekturnummer", Korrekturnummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AOFD", AOFD))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AKTO", AKTO))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Fälligkeitsdatum", Fälligkeitsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Dateiname", Dateiname))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Mandant", Mandant))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Niederlassung", Niederlassung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LeistungsBez", LeistungsBez))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM Zkteing WITH(updlock,serializable) WHERE [Index]=@Index) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Index = SQL.doSQLVarListID(Index, sqlstr, "FMZOLL", , list)
|
||||
Return Index > 0
|
||||
End Function
|
||||
|
||||
|
||||
Public Sub LOAD()
|
||||
hasEntry = False
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM Zkteing WHERE [Index]=@Index ", conn)
|
||||
cmd.Parameters.AddWithValue("@Index", Index)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
hasEntry = True
|
||||
End If
|
||||
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 getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [Zkteing] SET " & str & " WHERE [Index]=@Index ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 Zkteing (" & 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
|
||||
|
||||
|
||||
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [Zkteing] WITH(updlock,serializable) WHERE Index=" & Me.Index
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
173
SDL/VERAG_PROG_ALLGEMEIN/Classes/cZollArtikel.vb
Normal file
173
SDL/VERAG_PROG_ALLGEMEIN/Classes/cZollArtikel.vb
Normal file
@@ -0,0 +1,173 @@
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cZollArtikel
|
||||
|
||||
Property zollArt_id As Integer
|
||||
Property KundenNr As Integer
|
||||
Property zollArt_Teilsatzschluessel As Object = Nothing
|
||||
Property zollArt_Verarbeitungskennzeichen As Object = Nothing
|
||||
Property zollArt_Artikelnummer As Object = Nothing
|
||||
Property zollArt_Dynamische_Ergaenzung_1 As Object = Nothing
|
||||
Property zollArt_Dynamische_Ergaenzung_2 As Object = Nothing
|
||||
Property zollArt_Kundennummer As Object = Nothing
|
||||
Property zollArt_Warencodenummer As Object = Nothing
|
||||
Property zollArt_Zusatzcode_1 As Object = Nothing
|
||||
Property zollArt_Zusatzcode_2 As Object = Nothing
|
||||
Property zollArt_Kennzeichen_Gueltig As Object = Nothing
|
||||
Property zollArt_Kurzbezeichnung As Object = Nothing
|
||||
Property zollArt_Warenbeschreibung As Object = Nothing
|
||||
Property zollArt_Statistische_Maßeinheit As Object = Nothing
|
||||
Property zollArt_Statistische_Maßeinheit_Qualifikator As Object = Nothing
|
||||
Property zollArt_Besondere_Maßeinheit As Object = Nothing
|
||||
Property zollArt_Besondere_Maßeinheit_Qualifikator As Object = Nothing
|
||||
Property zollArt_Gewicht As Object = Nothing
|
||||
Property zollArt_Menge As Object = Nothing
|
||||
Property Erfassungsdatum As Object = Nothing
|
||||
Property Aenderungsdatum As Object = Nothing
|
||||
Property Sachbearbeiter As Object = Nothing
|
||||
Property zollArt_Status As Object = Nothing
|
||||
|
||||
|
||||
Public hasEntry As Boolean = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
Sub New(zollArt_id)
|
||||
If zollArt_id IsNot Nothing Then
|
||||
Me.zollArt_id = zollArt_id
|
||||
LOAD()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Public 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("zollArt_id", zollArt_id, , True, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KundenNr", KundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Teilsatzschluessel", zollArt_Teilsatzschluessel))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Verarbeitungskennzeichen", zollArt_Verarbeitungskennzeichen))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Artikelnummer", zollArt_Artikelnummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Dynamische_Ergaenzung_1", zollArt_Dynamische_Ergaenzung_1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Dynamische_Ergaenzung_2", zollArt_Dynamische_Ergaenzung_2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Kundennummer", zollArt_Kundennummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Warencodenummer", zollArt_Warencodenummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Zusatzcode_1", zollArt_Zusatzcode_1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Zusatzcode_2", zollArt_Zusatzcode_2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Kennzeichen_Gueltig", zollArt_Kennzeichen_Gueltig))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Kurzbezeichnung", zollArt_Kurzbezeichnung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Warenbeschreibung", zollArt_Warenbeschreibung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Statistische_Maßeinheit", zollArt_Statistische_Maßeinheit))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Statistische_Maßeinheit_Qualifikator", zollArt_Statistische_Maßeinheit_Qualifikator))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Besondere_Maßeinheit", zollArt_Besondere_Maßeinheit))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Besondere_Maßeinheit_Qualifikator", zollArt_Besondere_Maßeinheit_Qualifikator))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Gewicht", zollArt_Gewicht))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Menge", zollArt_Menge))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Erfassungsdatum", Erfassungsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Aenderungsdatum", Aenderungsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachbearbeiter", Sachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Status", zollArt_Status))
|
||||
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE(Optional errHinweis = "") As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblZollArtikel WHERE zollArt_id=@zollArt_id) " &
|
||||
" BEGIN " & getUpdateCmd() & " End " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " End " &
|
||||
" commit tran "
|
||||
|
||||
zollArt_id = SQL.doSQLVarListID(zollArt_id, sqlstr, "FMZOLL", , list,, errHinweis)
|
||||
Return zollArt_id > 0
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("Select * FROM tblZollArtikel WHERE zollArt_id=@zollArt_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@zollArt_id", zollArt_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
hasEntry = True
|
||||
Next
|
||||
|
||||
End If
|
||||
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 getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "" & i.Text & " = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE tblZollArtikel SET " & str & " WHERE zollArt_id=@zollArt_id ")
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 tblZollArtikel (" & 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
|
||||
|
||||
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM tblZollArtikel WITH(updlock,serializable) WHERE zollArt_id=" & Me.zollArt_id
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
Public Shared Function DELETE(id As Integer) As Boolean
|
||||
Dim SQL As New SQL
|
||||
Dim sqlstr = " DELETE FROM tblZollArtikel WHERE zollArt_id=" & id
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
End Class
|
||||
123
SDL/VERAG_PROG_ALLGEMEIN/Classes/cZollTarifAtlas.vb
Normal file
123
SDL/VERAG_PROG_ALLGEMEIN/Classes/cZollTarifAtlas.vb
Normal file
@@ -0,0 +1,123 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cZollTarifAtlas_LIST
|
||||
|
||||
Property LIST As New List(Of cZollTarifAtlas)
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
LOAD_LIST()
|
||||
End Sub
|
||||
|
||||
Public Sub LOAD_LIST()
|
||||
Try
|
||||
LIST.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionATLAS()
|
||||
Using cmd As New SqlCommand("SELECT * FROM [ezttxt] WHERE [ezttxt_datend] >= getdate() ORDER BY [ezttxt_code] ", conn)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cZollTarifAtlas
|
||||
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
|
||||
|
||||
LIST.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 getFullTxt(WCNR As cZollTarifAtlas) As String
|
||||
getFullTxt = WCNR.ezttxt_text
|
||||
Dim index = getIndexInList(WCNR.ezttxt_code)
|
||||
'Dim hirachie = WCNR.ezttxt_hirnr
|
||||
For hirachie = WCNR.ezttxt_hirnr To 0 Step -1 'so oft bis alle Hirachieebenen durchgelaufen sind
|
||||
For i = index To 0 Step -1
|
||||
If LIST(i).ezttxt_hirnr = (hirachie - 1) Then
|
||||
getFullTxt = WCNR.ezttxt_text & " " & getFullTxt
|
||||
index = i
|
||||
End If
|
||||
Next
|
||||
Next
|
||||
End Function
|
||||
|
||||
Function getFullTxtByCode(code As String) As String
|
||||
Dim WCNR As cZollTarifAtlas = getFromList(code)
|
||||
If WCNR Is Nothing Then Return ""
|
||||
getFullTxtByCode = WCNR.ezttxt_text
|
||||
Dim index = getIndexInList(WCNR.ezttxt_code)
|
||||
|
||||
If index < 0 Then Return ""
|
||||
If WCNR.ezttxt_hirnr > 0 Then
|
||||
For hirachie = CInt(WCNR.ezttxt_hirnr) To 0 Step -1 'so oft bis alle Hirachieebenen durchgelaufen sind
|
||||
For i = index To 0 Step -1
|
||||
If LIST(i).ezttxt_hirnr = (hirachie - 1) Then
|
||||
getFullTxtByCode = LIST(i).ezttxt_text & " " & getFullTxtByCode
|
||||
index = i
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
Next
|
||||
End If
|
||||
End Function
|
||||
|
||||
|
||||
Function getIndexInList(code) As Integer
|
||||
For Each i In LIST
|
||||
If i.ezttxt_code.trim = code.trim Then
|
||||
Return LIST.IndexOf(i)
|
||||
End If
|
||||
Next
|
||||
Return -1
|
||||
End Function
|
||||
|
||||
Function getFromList(code) As cZollTarifAtlas
|
||||
For Each i In LIST
|
||||
If i.ezttxt_code = code Then
|
||||
Return i
|
||||
End If
|
||||
Next
|
||||
Return Nothing
|
||||
End Function
|
||||
End Class
|
||||
Public Class cZollTarifAtlas
|
||||
|
||||
Property ezttxt_code As Object = Nothing
|
||||
Property ezttxt_hirnr As Object = Nothing
|
||||
Property ezttxt_cdesid As Object = Nothing
|
||||
Property ezttxt_datbeg As Object = Nothing
|
||||
Property ezttxt_datend As Object = Nothing
|
||||
Property ezttxt_txtart As Object = Nothing
|
||||
Property ezttxt_text As Object = Nothing
|
||||
Property ezttxt_edat As Object = Nothing
|
||||
Property ezttxt_adat As Object = Nothing
|
||||
Property ezttxt_sb As Object = Nothing
|
||||
|
||||
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("ezttxt_code", ezttxt_code))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezttxt_hirnr", ezttxt_hirnr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezttxt_cdesid", ezttxt_cdesid))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezttxt_datbeg", ezttxt_datbeg))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezttxt_datend", ezttxt_datend))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezttxt_txtart", ezttxt_txtart))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezttxt_text", ezttxt_text))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezttxt_edat", ezttxt_edat))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezttxt_adat", ezttxt_adat))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezttxt_sb", ezttxt_sb))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
End Class
|
||||
Reference in New Issue
Block a user