Revert "commit"
This commit is contained in:
117
VERAG_PROG_ALLGEMEIN/Classes/Berechtigungen/cBerechtignunen.vb
Normal file
117
VERAG_PROG_ALLGEMEIN/Classes/Berechtigungen/cBerechtignunen.vb
Normal file
@@ -0,0 +1,117 @@
|
||||
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 lber In BER_LIST.LIST
|
||||
If lber.bero_bezeichnung.ToUpper = ber_bez.ToUpper And lber.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 lber In BER_LIST.LIST
|
||||
If lber.bero_bezeichnung.ToUpper = ber_bez.ToUpper And lber.bero_progId = prog_Id Then
|
||||
For Each ll In lber.BER_OBJ_ZUORD 'Liste der BerechtignungGruppen im Berechtigungsonjekt
|
||||
For Each bb In benutzerBer.LIST
|
||||
If bb.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 = bb.berbgz_bergrId Then 'GruppenBerchtigung
|
||||
'gefunden!
|
||||
If ll.beroz_berechtigungsstufe < berechtigungsstufe Then berechtigungsstufe = ll.beroz_berechtigungsstufe
|
||||
ElseIf ll.beroz_art = "F" And ll.Bezeichnung = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then
|
||||
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,208 @@
|
||||
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, searchparam)
|
||||
LOAD_LIST(progID, searchparam)
|
||||
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, searchparam)
|
||||
Try
|
||||
LIST.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblBerechtigungsObjekte WHERE bero_progId=@bero_progId" & searchparam, 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 'F' 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 li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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
|
||||
184
VERAG_PROG_ALLGEMEIN/Classes/Essensbestellung.vb
Normal file
184
VERAG_PROG_ALLGEMEIN/Classes/Essensbestellung.vb
Normal file
@@ -0,0 +1,184 @@
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cEssensbestellung
|
||||
'Property _BASE_id As Integer
|
||||
Property eb_kw As Object = Nothing
|
||||
Property eb_mitid As Object = Nothing
|
||||
Property eb_montag As Object = Nothing
|
||||
Property eb_dienstag As Object = Nothing
|
||||
Property eb_mittwoch As Object = Nothing
|
||||
Property eb_donnerstag As Object = Nothing
|
||||
Property eb_freitag As Object = Nothing
|
||||
Property eb_preis As Object = Nothing
|
||||
Property eb_gebaeude As Object = Nothing
|
||||
Property eb_abteilung As Object = Nothing
|
||||
Property eb_datum As Date = Nothing
|
||||
Property eb_mitname As Object = Nothing
|
||||
Property eb_abgerechnet_am As Object = Nothing
|
||||
Property eb_storniert_am As Object = Nothing
|
||||
Property eb_storniert As Boolean
|
||||
Property eb_abgerechnet As Boolean
|
||||
Property eb_anmerkung As Object = Nothing
|
||||
Property eb_gesendet_am As Object = Nothing
|
||||
Property eb_gesendet As Boolean
|
||||
Property eb_firma As Object = Nothing
|
||||
Property eb_MenuID As Object = Nothing
|
||||
Property eb_archiviert As Boolean
|
||||
|
||||
|
||||
Public hasEntry = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New(eb_kw, eb_mitid, eb_gebaeude, eb_abteilung, eb_mitname, eb_anmerkung)
|
||||
Me.eb_kw = eb_kw
|
||||
Me.eb_mitid = eb_mitid
|
||||
Me.eb_gebaeude = eb_gebaeude
|
||||
Me.eb_abteilung = eb_abteilung
|
||||
Me.eb_mitname = eb_mitname
|
||||
Me.eb_anmerkung = eb_anmerkung
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
Sub New(eb_kw, eb_mitid, eb_gebaeude, eb_abteilung, eb_mitname, eb_anmerkung, eb_MenuID)
|
||||
Me.eb_kw = eb_kw
|
||||
Me.eb_mitid = eb_mitid
|
||||
Me.eb_gebaeude = eb_gebaeude
|
||||
Me.eb_abteilung = eb_abteilung
|
||||
Me.eb_mitname = eb_mitname
|
||||
Me.eb_anmerkung = eb_anmerkung
|
||||
Me.eb_MenuID = eb_MenuID
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
Sub New()
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Sub New(eb_kw, eb_mitid)
|
||||
Me.eb_kw = eb_kw
|
||||
Me.eb_mitid = eb_mitid
|
||||
'Me.eb_MenuID = eb_MenuID
|
||||
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("eb_kw", eb_kw))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_mitid", eb_mitid))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_montag", eb_montag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_dienstag", eb_dienstag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_mittwoch", eb_mittwoch))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_donnerstag", eb_donnerstag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_freitag", eb_freitag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_gebaeude", eb_gebaeude))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_abteilung", eb_abteilung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_preis", eb_preis))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_datum", eb_datum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_mitname", eb_mitname))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_storniert", eb_storniert))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_storniert_am", eb_storniert_am))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_abgerechnet", eb_abgerechnet))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_abgerechnet_am", eb_abgerechnet_am))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_anmerkung", eb_anmerkung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_gesendet", eb_gesendet))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_gesendet_am", eb_gesendet_am))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_firma", eb_firma))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_archiviert", eb_archiviert))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_MenuID", eb_MenuID))
|
||||
|
||||
|
||||
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 tblEssensbestellungen WHERE eb_kw=@eb_kw AND eb_mitid=@eb_mitid) " &
|
||||
" 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 tblEssensbestellungen WHERE eb_kw=@eb_kw AND eb_mitid=@eb_mitid ", conn)
|
||||
cmd.Parameters.AddWithValue("@eb_kw", eb_kw)
|
||||
cmd.Parameters.AddWithValue("@eb_mitid", eb_mitid)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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 [tblEssensbestellungen] SET " & str & " WHERE eb_kw=@eb_kw AND eb_mitid=@eb_mitid ")
|
||||
|
||||
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 tblEssensbestellungen (" & 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
|
||||
|
||||
1423
VERAG_PROG_ALLGEMEIN/Classes/SQL.vb
Normal file
1423
VERAG_PROG_ALLGEMEIN/Classes/SQL.vb
Normal file
File diff suppressed because it is too large
Load Diff
206
VERAG_PROG_ALLGEMEIN/Classes/SendFileTo.vb
Normal file
206
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
|
||||
395
VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb
Normal file
395
VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb
Normal file
@@ -0,0 +1,395 @@
|
||||
|
||||
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 UStVAn_Status As Object = Nothing
|
||||
Property UStVAn_StatusText As Object = Nothing
|
||||
Property UStVAn_AntragArt As Object = Nothing
|
||||
|
||||
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,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Status", UStVAn_Status)) ' DATETIME Default (getdate()) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_StatusText", UStVAn_StatusText)) ' DATETIME Default (getdate()) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_AntragArt", UStVAn_AntragArt)) ' 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(UStVAn_ID, UStVPo_ID)
|
||||
Me.UStVAn_ID = UStVAn_ID
|
||||
Me.UStVPo_ID = UStVPo_ID
|
||||
|
||||
LOAD(UStVAn_ID, UStVPo_ID)
|
||||
End Sub
|
||||
Sub New()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub LOAD(UStVAn_ID, UStVPo_ID)
|
||||
Try
|
||||
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM [tblUStVPositionen] WHERE UStVAn_ID=@UStVAn_ID AND UStVPo_ID=@UStVPo_ID ", conn)
|
||||
cmd.Parameters.AddWithValue("@UStVAn_ID", UStVAn_ID)
|
||||
cmd.Parameters.AddWithValue("@UStVPo_ID", UStVPo_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
|
||||
|
||||
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() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblUStVPositionen WHERE UStVAn_ID=@UStVAn_ID AND UStVPo_ID=@UStVPo_ID) " &
|
||||
" 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 [tblUStVPositionen] SET " & str & " WHERE UStVAn_ID=@UStVAn_ID AND UStVPo_ID=@UStVPo_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
|
||||
|
||||
|
||||
|
||||
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
|
||||
122
VERAG_PROG_ALLGEMEIN/Classes/USTV/cUStVLeistender.vb
Normal file
122
VERAG_PROG_ALLGEMEIN/Classes/USTV/cUStVLeistender.vb
Normal file
@@ -0,0 +1,122 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
|
||||
Public Class cUStVLeistender
|
||||
Property UStV_Leistender As String
|
||||
Property UstV_Leistender_PLZ As Object = Nothing
|
||||
Property UstV_Leistender_Strasse As Object = Nothing
|
||||
Property UstV_Leistender_Stadt As Object = Nothing
|
||||
Property UstV_Leistender_StrasseNr As Object = Nothing
|
||||
Property UstV_Leistender_Land As Object = Nothing
|
||||
Property UstV_Leistender_UstNr As Object = Nothing
|
||||
Property UstV_Leistender_Adresse As Boolean
|
||||
|
||||
|
||||
Public hasEntry = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New(UStV_Leistender)
|
||||
Me.UStV_Leistender = UStV_Leistender
|
||||
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("UStV_Leistender", UStV_Leistender,, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UstV_Leistender_PLZ", UstV_Leistender_PLZ))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UstV_Leistender_Strasse", UstV_Leistender_Strasse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UstV_Leistender_Stadt", UstV_Leistender_Stadt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UstV_Leistender_StrasseNr", UstV_Leistender_StrasseNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UstV_Leistender_Land", UstV_Leistender_Land))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UstV_Leistender_UstNr", UstV_Leistender_UstNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UstV_Leistender_Adresse", UstV_Leistender_Adresse))
|
||||
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 tblUStVLeistender WHERE UStV_Leistender=@UStV_Leistender) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " & " commit tran "
|
||||
'" 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 tblUStVLeistender WHERE UStV_Leistender=@UStV_Leistender ", conn)
|
||||
cmd.Parameters.AddWithValue("@UStV_Leistender", UStV_Leistender)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
hasEntry = True
|
||||
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 [tblUStVLeistender] SET " & str & " WHERE UStV_Leistender=@UStV_Leistender ")
|
||||
|
||||
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 tblUStVLeistender (" & 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
|
||||
|
||||
111
VERAG_PROG_ALLGEMEIN/Classes/_BASE.vb
Normal file
111
VERAG_PROG_ALLGEMEIN/Classes/_BASE.vb
Normal file
@@ -0,0 +1,111 @@
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class _BASE
|
||||
Property _BASE_id As Integer
|
||||
Property _BASE_value As Object = Nothing
|
||||
Property _BASE_value2 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 li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
hasEntry = True
|
||||
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 [tblTABLE] SET " & str & " WHERE _BASE_id=@_BASE_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 tblTABLE (" & 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
|
||||
290
VERAG_PROG_ALLGEMEIN/Classes/cAPI.vb
Normal file
290
VERAG_PROG_ALLGEMEIN/Classes/cAPI.vb
Normal file
@@ -0,0 +1,290 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
Public Enum cAPI_Status
|
||||
[NEW] = 0 ' Neu, noch nicht verarbeitet
|
||||
OK = 1 ' Erfolg! :)
|
||||
ERR = 90 ' Fehlversuch :(
|
||||
ERR_FINAL = 99 'Hier sollte kein Verarbeitungs-Versuch mehr gestartet werden
|
||||
End Enum
|
||||
Public Enum cAPI_ART
|
||||
UNDEFINED = -1
|
||||
AVISO_OUT_STATUSMAIL = 1
|
||||
AVISO_OUT_BELEGMAIL = 2
|
||||
AVISO_OUT_GESTELLUNGMAIL = 3
|
||||
|
||||
'Public Const AVISO_MAIL_OUT_AVM = 5
|
||||
'Public Const AVISO_MAIL_OUT_ABD = 6
|
||||
'Public Const AVISO_MAIL_OUT_ZNV = 7
|
||||
'Public Const AVISO_MAIL_OUT_AVM = 8
|
||||
'Public Const AVISO_MAIL_OUT_AVM = 9
|
||||
|
||||
'Public Const AVISO_IN_NCTS = 10
|
||||
'Public Const AVISO_IN_EZA = 11
|
||||
|
||||
VERAG_OUT_NCTS = 10
|
||||
VERAG_OUT_EZA = 11
|
||||
|
||||
End Enum
|
||||
|
||||
Public Class cAPI_Type
|
||||
Public Const UNDEFINED = Nothing
|
||||
Public Const MAIL = "MAIL"
|
||||
Public Const FTP = "FTP"
|
||||
Public Const REST = "REST"
|
||||
End Class
|
||||
Public Class cAPI_INOUT
|
||||
Public Const UNDEFINED = Nothing
|
||||
Public Const [IN] = "IN"
|
||||
Public Const OUT = "OUT"
|
||||
End Class
|
||||
|
||||
Public Class cAPI
|
||||
Property api_id As Integer
|
||||
Property api_apiArt As cAPI_ART = -1
|
||||
Property api_apiUArt As Object = Nothing
|
||||
Property api_apiInfo As Object = Nothing
|
||||
Property api_apiZollStatus As Object = Nothing
|
||||
|
||||
|
||||
Property api_apiVersion As String = "1.0.0.0"
|
||||
Property api_InOut As String = cAPI_INOUT.UNDEFINED
|
||||
Property api_datetime As DateTime = Now
|
||||
Property api_status As cAPI_Status = cAPI_Status.[NEW]
|
||||
Property api_fehlversuch As Integer = 0
|
||||
Property api_progId As Integer = VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID
|
||||
Property api_progName As String = VERAG_PROG_ALLGEMEIN.cAllgemein.PROGNAME
|
||||
Property api_progVersion As String = VERAG_PROG_ALLGEMEIN.cAllgemein.PROGVERSION
|
||||
Property api_Testsystem As Boolean = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
|
||||
Property api_Type As String = cAPI_Type.UNDEFINED
|
||||
Property api_EMailFrom As Object = Nothing
|
||||
Property api_EMail As Object = Nothing
|
||||
Property api_EMailCC As Object = Nothing
|
||||
Property api_EMailBCC As Object = Nothing
|
||||
Property api_EMailSubject As Object = Nothing
|
||||
Property api_EMailText As Object = Nothing
|
||||
Property api_EMailAttCnt As Object = Nothing
|
||||
|
||||
Property api_filepathSource As Object = Nothing
|
||||
Property api_filepathDestination As Object = Nothing
|
||||
|
||||
Property api_Firma As String = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Property api_MaId As String = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
||||
Property api_Username As String = If(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, "AUTO")
|
||||
Property api_Partnersystem As Object = Nothing
|
||||
Property api_Vorsystem As Object = Nothing
|
||||
|
||||
Property api_KundenNr As Object = Nothing
|
||||
Property api_AvisoId As Object = Nothing
|
||||
Property api_SendungsId As Object = Nothing
|
||||
Property api_FilialenNr As Object = Nothing
|
||||
Property api_AbfertigungsNr As Object = Nothing
|
||||
Property api_BezugsNr As Object = Nothing
|
||||
Property api_Zollbelegnummer As Object = Nothing
|
||||
Property api_finTstmp As Object = Nothing
|
||||
Property api_errTstmp As Object = Nothing
|
||||
Property api_errStack As Object = Nothing
|
||||
Property api_errMessage As Object = Nothing
|
||||
Property api_errMethodName As Object = Nothing
|
||||
|
||||
|
||||
|
||||
Public hasEntry = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
api_progId = VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID
|
||||
api_progName = VERAG_PROG_ALLGEMEIN.cAllgemein.PROGNAME
|
||||
api_progVersion = VERAG_PROG_ALLGEMEIN.cAllgemein.PROGVERSION
|
||||
api_Testsystem = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
|
||||
api_Firma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
api_MaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
||||
api_Username = If(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, "AUTO")
|
||||
End Sub
|
||||
|
||||
Sub New(api_id)
|
||||
Me.api_id = api_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("api_id", api_id,, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("api_apiArt", api_apiArt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("api_apiUArt", api_apiUArt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("api_apiInfo", api_apiInfo))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("api_apiZollStatus", api_apiZollStatus))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("api_apiVersion", api_apiVersion))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("api_InOut", api_InOut))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("api_datetime", api_datetime))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("api_status", api_status))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("api_fehlversuch", api_fehlversuch))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("api_progId", api_progId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("api_progName", api_progName))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("api_progVersion", api_progVersion))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("api_Testsystem", api_Testsystem))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("api_Type", api_Type)) 'MAIL; FTP; REST
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("api_EMailFrom", api_EMailFrom))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("api_EMail", api_EMail))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("api_EMailCC", api_EMailCC))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("api_EMailBCC", api_EMailBCC))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("api_EMailSubject", api_EMailSubject))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("api_EMailText", api_EMailText))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("api_EMailAttCnt", api_EMailAttCnt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("api_filepathSource", api_filepathSource))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("api_filepathDestination", api_filepathDestination))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("api_Firma", api_Firma))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("api_MaId", api_MaId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("api_Partnersystem", api_Partnersystem))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("api_Vorsystem", api_Vorsystem))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("api_KundenNr", api_KundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("api_AvisoId", api_AvisoId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("api_SendungsId", api_SendungsId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("api_FilialenNr", api_FilialenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("api_AbfertigungsNr", api_AbfertigungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("api_BezugsNr", api_BezugsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("api_Zollbelegnummer", api_Zollbelegnummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("api_finTstmp", api_finTstmp))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("api_errTstmp", api_errTstmp))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("api_errStack", api_errStack))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("api_errMessage", api_errMessage))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("api_errMethodName", api_errMethodName))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Public Shared Function INSERT_API(api_InOut As String, api_Type As String, api_apiArt As cAPI_ART, Optional api_apiUArt As Object = Nothing,
|
||||
Optional api_Partnersystem As Object = Nothing, Optional api_Vorsystem As Object = Nothing, Optional api_KundenNr As Object = Nothing,
|
||||
Optional api_AvisoId As Object = Nothing, Optional api_SendungsId As Object = Nothing, Optional api_FilialenNr As Object = Nothing,
|
||||
Optional api_AbfertigungsNr As Object = Nothing, Optional api_BezugsNr As Object = Nothing, Optional api_Zollbelegnummer As Object = Nothing) As cAPI
|
||||
|
||||
Dim API As New cAPI()
|
||||
API.api_apiArt = api_apiArt
|
||||
API.api_apiUArt = api_apiUArt
|
||||
API.api_InOut = api_InOut
|
||||
API.api_status = cAPI_Status.[NEW]
|
||||
API.api_Type = api_Type
|
||||
|
||||
API.api_Partnersystem = api_Partnersystem
|
||||
API.api_Vorsystem = api_Vorsystem
|
||||
API.api_KundenNr = api_KundenNr
|
||||
|
||||
API.api_AvisoId = api_AvisoId
|
||||
API.api_SendungsId = api_SendungsId
|
||||
API.api_FilialenNr = api_FilialenNr
|
||||
API.api_AbfertigungsNr = api_AbfertigungsNr
|
||||
API.api_BezugsNr = api_BezugsNr
|
||||
API.api_Zollbelegnummer = api_Zollbelegnummer
|
||||
|
||||
API.SAVE()
|
||||
|
||||
Return API
|
||||
End Function
|
||||
|
||||
|
||||
Public Sub UPDTAE_ERR(Optional api_errStack = Nothing, Optional api_errMessage = Nothing, Optional api_errMethodName = Nothing)
|
||||
Me.api_status = cAPI_Status.ERR
|
||||
Me.api_errTstmp = Now
|
||||
Me.api_errStack = If(api_errStack, Me.api_errStack)
|
||||
Me.api_errMessage = If(api_errMessage, Me.api_errMessage)
|
||||
Me.api_errMethodName = If(api_errMethodName, Me.api_errMethodName)
|
||||
Me.api_fehlversuch += 1
|
||||
Me.SAVE()
|
||||
End Sub
|
||||
Public Sub UPDTAE_OK(Optional api_status = 1, Optional api_filepathDestination = Nothing)
|
||||
Me.api_status = cAPI_Status.OK
|
||||
Me.api_finTstmp = Now
|
||||
Me.api_filepathDestination = If(api_filepathDestination, Me.api_filepathDestination)
|
||||
Me.api_EMail = If(api_EMail, Me.api_EMail)
|
||||
Me.api_EMailCC = If(api_EMailCC, Me.api_EMailCC)
|
||||
Me.api_EMailBCC = If(api_EMailBCC, Me.api_EMailBCC)
|
||||
Me.api_EMailSubject = If(api_EMailSubject, Me.api_EMailSubject)
|
||||
Me.api_EMailText = If(api_EMailText, Me.api_EMailText)
|
||||
Me.api_EMailAttCnt = If(api_EMailAttCnt, Me.api_EMailAttCnt)
|
||||
Me.SAVE()
|
||||
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 tblAPI WHERE api_id=@api_id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
api_id = SQL.doSQLVarListID(api_id, sqlstr, "ADMIN", , list)
|
||||
hasEntry = api_id > 0
|
||||
Return api_id > 0
|
||||
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
hasEntry = False
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblAPI WHERE api_id=@api_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@api_id", api_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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 [tblAPI] SET " & str & " WHERE api_id=@api_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 tblAPI (" & 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
VERAG_PROG_ALLGEMEIN/Classes/cAbfertigungsarten.vb
Normal file
7
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
VERAG_PROG_ALLGEMEIN/Classes/cAbgaben.vb
Normal file
221
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 li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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 li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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
VERAG_PROG_ALLGEMEIN/Classes/cAbrechnung_NCTSBrg.vb
Normal file
149
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 li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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
|
||||
416
VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb
Normal file
416
VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb
Normal file
@@ -0,0 +1,416 @@
|
||||
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
|
||||
|
||||
Sub New(UIDNr As String, woellKdNr As Integer)
|
||||
LOADUIDNr(UIDNr, woellKdNr)
|
||||
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 INNER JOIN Kunden k2 ON k2.Kundennr=b.adressennr 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
|
||||
|
||||
|
||||
Dim kundenNameUID = ""
|
||||
Function VALID(ByRef ERROR_TXT As String, KD As cKunde, Optional ByVal UIDMehfachverwendung As Boolean = False) 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
|
||||
If Not hasEntry Then
|
||||
'Prüfung Neuanlage: Nur Hinweismeldung! -> speichern soll trotzdem möglich sein!
|
||||
If checkUID(KD, kundenNameUID, UIDMehfachverwendung) Then ERROR_TXT = "Die UID Nummer existiert bereits " & kundenNameUID & "!" & vbNewLine & "Bitte prüfen, damit es zu keiner doppelten Erfassung des Kunden kommt." : Return False
|
||||
Else
|
||||
Try
|
||||
Dim kunde = DirectCast(KD, cKunde)
|
||||
Dim addresseTemp = New cAdressen(kunde.KundenNr)
|
||||
If Not (addresseTemp.UstIdKz = UstIdKz And addresseTemp.UstIdNr = UstIdNr) Then
|
||||
'Nur Hinweismeldung! -> speichern soll trotzdem möglich sein!
|
||||
If checkUID(KD, kundenNameUID, UIDMehfachverwendung) Then ERROR_TXT = "Die UID Nummer existiert bereits " & kundenNameUID & "!" & vbNewLine & "Bitte prüfen, damit es zu keiner doppelten Erfassung des Kunden kommt." : Return False
|
||||
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 If
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Function checkUID(KD As cKunde, ByRef kundenNameUID As String, UIDMehfachverwendung As Boolean) As Boolean
|
||||
If If(UstIdKz, String.Empty) <> String.Empty And If(UstIdNr, String.Empty) <> String.Empty And Not UIDMehfachverwendung Then
|
||||
kundenNameUID = SQL.getValueTxtBySql("SELECT TOP(1) '(' + Cast([AdressenNr] AS NVARCHAR) +' - '+ Cast([Name 1] AS NVARCHAR) + ')' FROM [Adressen] INNER JOIN Kunden ON KundenNr=AdressenNr WHERE [UstIdKz]='" & UstIdKz & "' AND [UstIdNr]='" & UstIdNr & "' and kunden.FilialenNr='" & KD.FilialenNr & "'", "FMZOLL")
|
||||
If kundenNameUID IsNot "" Then
|
||||
Return True
|
||||
End If
|
||||
End If
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Function getUIDMehrfachverwendung() As Boolean
|
||||
|
||||
If If(UstIdKz, String.Empty) <> String.Empty And If(UstIdNr, String.Empty) <> String.Empty Then
|
||||
Dim count As Integer = SQL.getValueTxtBySql("SELECT count(*) FROM [Adressen] INNER JOIN Kunden ON KundenNr=AdressenNr WHERE [UstIdKz]='" & UstIdKz & "' AND [UstIdNr]='" & UstIdNr & "'", "FMZOLL")
|
||||
If count > 0 Then
|
||||
Return True
|
||||
End If
|
||||
End If
|
||||
Return False
|
||||
|
||||
End Function
|
||||
|
||||
Function getDTUIDMehrfachverwendung(adressenNr) As DataTable
|
||||
Dim dt_UID As New DataTable
|
||||
If If(UstIdKz, String.Empty) <> String.Empty And If(UstIdNr, String.Empty) <> String.Empty Then
|
||||
|
||||
dt_UID = SQL.loadDgvBySql_Param("SELECT KundenNr FROM [Adressen] INNER JOIN Kunden ON KundenNr=AdressenNr WHERE [UstIdKz]='" & UstIdKz & "' AND [UstIdNr]='" & UstIdNr & "' and not KundenNr='" & adressenNr & "'", "FMZOLL")
|
||||
End If
|
||||
|
||||
Return dt_UID
|
||||
|
||||
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 Function UpdateSpecialField(field, value) As Boolean
|
||||
If field = "" Then Return False
|
||||
|
||||
Dim itemFound = False
|
||||
For Each s In getParameterList()
|
||||
If s.Scalarvariable = field AndAlso value IsNot Nothing Then
|
||||
itemFound = True
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
|
||||
If Not itemFound Then Return False
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM Adressen WHERE AdressenNr= " & AdressenNr & ") " &
|
||||
" BEGIN UPDATE [Adressen] SET " & field & " = '" & value & "' WHERE AdressenNr=" & AdressenNr & " End " &
|
||||
" commit tran "
|
||||
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
|
||||
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 li In getParameterList()
|
||||
' Me.GetType.GetProperty(l.Scalarvariable) = dr.Item(l.Text)
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
' MsgBox(l.Text)
|
||||
' MsgBox(propInfo.PropertyType.ToString)
|
||||
' propInfo.SetValue(GetType(Object), l.Text)
|
||||
|
||||
'propInfo.SetValue(Me, l.Text)
|
||||
|
||||
' Try
|
||||
test = li.Text
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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 Sub LOADUIDNr(UIDNr As String, woelflKdNr As Integer)
|
||||
|
||||
Dim test = ""
|
||||
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL(False)
|
||||
Using cmd As New SqlCommand("Select TOP(1) * FROM Adressen WHERE (UstIdKz + UstIdNr='" & UIDNr & "' or Steuernummer ='" & UIDNr & "') AND WölflKundenNr = " & woelflKdNr, conn)
|
||||
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In getParameterList()
|
||||
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
|
||||
' Try
|
||||
test = li.Text
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
Me.hasEntry = True
|
||||
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 getAdressFromatted()
|
||||
getAdressFromatted = Name_1 & " " & If(Name_2, "") & vbNewLine
|
||||
If If(Straße, "") <> "" Then getAdressFromatted &= Straße & vbNewLine
|
||||
getAdressFromatted &= If(LandKz, "") & " " & If(PLZ, "") & " " & If(Ort, "") & vbNewLine
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
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
|
||||
103
VERAG_PROG_ALLGEMEIN/Classes/cAsfinagMaut.vb
Normal file
103
VERAG_PROG_ALLGEMEIN/Classes/cAsfinagMaut.vb
Normal file
@@ -0,0 +1,103 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cAsfinagMaut
|
||||
|
||||
Property cardnumber As Object = Nothing
|
||||
Property licenceplate As Object = Nothing
|
||||
Property turnoverdate As Object = Nothing
|
||||
Property contractPartner As Object = Nothing
|
||||
Property netAmount As Object = Nothing
|
||||
Property VATamount As Object = Nothing
|
||||
Property totalAmount As Object = Nothing
|
||||
Property additionalData As Object = Nothing
|
||||
Property receiptnumber As Object = Nothing
|
||||
Property receiptCreated As Boolean = False
|
||||
|
||||
|
||||
Public hasEntry = 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("cardnumber", cardnumber))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("licenceplate", licenceplate))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("turnoverdate", turnoverdate))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("contractPartner", contractPartner))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("netAmount", netAmount))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VATamount", VATamount))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("totalAmount", totalAmount))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("additionalData", additionalData))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("receiptnumber", receiptnumber))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("receiptCreated", receiptCreated))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN " &
|
||||
" 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 tblAsfinagMaut WHERE cardnumber=@cardnumber ", conn)
|
||||
cmd.Parameters.AddWithValue("@cardnumber", cardnumber)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
hasEntry = True
|
||||
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 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 tblAsfinagMaut (" & 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
|
||||
222
VERAG_PROG_ALLGEMEIN/Classes/cAufschubKonten.vb
Normal file
222
VERAG_PROG_ALLGEMEIN/Classes/cAufschubKonten.vb
Normal file
@@ -0,0 +1,222 @@
|
||||
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cAufschubKonten
|
||||
Property brgakto_id As Integer
|
||||
Property brgakto_bez As String
|
||||
Property brgakto_betrag As Decimal
|
||||
Property brgakto_ktonr As String
|
||||
Property brgakto_warn1 As Decimal
|
||||
Property brgakto_warn2 As Decimal
|
||||
Property brgakto_gs_standort As Object = Nothing
|
||||
Property brgakto_gs_zollsatz As Integer
|
||||
Property brgakto_gs_ustEnabled As Boolean = False
|
||||
Property brgakto_gs_ust As Object = Nothing
|
||||
Property brgakto_gs_aktSaldo As Decimal
|
||||
Property brgakto_gs_ATR As Boolean = False
|
||||
|
||||
Public hasEntry = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New(brgakto_id)
|
||||
Me.brgakto_id = brgakto_id
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
Sub New(brgakto_gs_standort As String)
|
||||
Me.brgakto_gs_standort = brgakto_gs_standort
|
||||
LOADStandort()
|
||||
brgakto_betrag = getReferenzbetrag(Today)
|
||||
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("brgakto_id", brgakto_id,, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("brgakto_bez", brgakto_bez))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("brgakto_betrag", brgakto_betrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("brgakto_ktonr", brgakto_ktonr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("brgakto_warn1", brgakto_warn1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("brgakto_warn2", brgakto_warn2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("brgakto_gs_standort", brgakto_gs_standort))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("brgakto_gs_zollsatz", brgakto_gs_zollsatz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("brgakto_gs_ustEnabled", brgakto_gs_ustEnabled))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("brgakto_gs_ust", brgakto_gs_ust))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("brgakto_gs_ATR", brgakto_gs_ATR))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("brgakto_gs_aktSaldo", brgakto_gs_aktSaldo))
|
||||
|
||||
|
||||
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 tblBrgAufschubKonten WHERE brgakto_id=@brgakto_id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Return SQL.doSQLVarList(sqlstr, "ADMIN", , list)
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
hasEntry = False
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblBrgAufschubKonten WHERE brgakto_id=@brgakto_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@brgakto_id", brgakto_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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 Sub LOADStandort()
|
||||
|
||||
|
||||
Try
|
||||
hasEntry = False
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
|
||||
|
||||
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblBrgAufschubKonten WHERE brgakto_gs_standort=@brgakto_gs_standort ", conn)
|
||||
cmd.Parameters.AddWithValue("@brgakto_gs_standort", brgakto_gs_standort)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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 [tblBrgAufschubKonten] SET " & str & " WHERE brgakto_id=@brgakto_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 tblBrgAufschubKonten (" & 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 updateSaldo()
|
||||
Return SQL.doSQL("Update [tblBrgAufschubKonten] Set brgakto_gs_aktSaldo = CAST(REPLACE('" & brgakto_gs_aktSaldo & "' ,',','.')AS decimal(18,2)) WHERE brgakto_gs_standort = '" & brgakto_gs_standort & "'", "ADMIN")
|
||||
End Function
|
||||
|
||||
Public Function CalcSaldo(Optional dtDate As DataTable = Nothing) As String
|
||||
|
||||
Dim SaldoString As String =
|
||||
"select
|
||||
|
||||
(select SUM(
|
||||
case
|
||||
when gs_art = 'Open' then (gs_sicherheitsbetrag * -1)
|
||||
when gs_art = 'Close' then gs_sicherheitsbetrag
|
||||
end)
|
||||
|
||||
as SicherheitsSaldoGS from [tblGesamtsicherheit] Where gs_standort = '" & brgakto_gs_standort & "')+
|
||||
|
||||
(select SUM(
|
||||
case
|
||||
when gsp_art = 'Open' then (gsp_sicherheitsbetrag * -1)
|
||||
when gsp_art = 'Close' then gsp_sicherheitsbetrag
|
||||
end)
|
||||
as SicherheitsSaldoPositionen from [tblGesamtsicherheitsPositionen] Where gsp_gsid IN (select gs_gsId from [tblGesamtsicherheit] where gs_standort = '" & brgakto_gs_standort & "' And ISNULL(gs_ReferenzAenderung,0) = 0 ))"
|
||||
|
||||
Dim dt As New DataTable
|
||||
Dim mrn As Double = 0
|
||||
dt = SQL.loadDgvBySql(SaldoString, "AVISO", 100, True)
|
||||
If dt.Rows(0).Item(0).ToString.Length > 0 Then
|
||||
mrn = dt.Rows(0).Item(0)
|
||||
End If
|
||||
|
||||
brgakto_gs_aktSaldo = getReferenzbetrag(Today) + mrn
|
||||
updateSaldo()
|
||||
|
||||
|
||||
Return brgakto_gs_aktSaldo
|
||||
End Function
|
||||
|
||||
Public Function getReferenzbetrag(nowDate As Date) As Double
|
||||
|
||||
Try
|
||||
|
||||
Return SQL.getValueTxtBySql("select TOP (1) brgarefb_refbetrag from [tblBrgAufschubReferenzberaege] where [brgarefb_gsid]='" & brgakto_id & "' and brgarefb_gs_aktiv = 1 And [brgarefb_gueltig_ab] <= '" & nowDate & "' order by [brgarefb_gueltig_ab] desc", "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
|
||||
|
||||
End Function
|
||||
|
||||
End Class
|
||||
194
VERAG_PROG_ALLGEMEIN/Classes/cAvisoAnhaenge.vb
Normal file
194
VERAG_PROG_ALLGEMEIN/Classes/cAvisoAnhaenge.vb
Normal file
@@ -0,0 +1,194 @@
|
||||
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
|
||||
Property anh_markiert As Boolean = False
|
||||
Property anh_size As Double
|
||||
Property anh_cmrId As Integer
|
||||
|
||||
|
||||
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, Optional anh_size = 0, Optional anh_cmrId = -1)
|
||||
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
|
||||
Me.anh_size = anh_size
|
||||
Me.anh_cmrId = anh_cmrId
|
||||
|
||||
If anh_Art.ToString.Equals("Auftrag") Then
|
||||
anh_markiert = True
|
||||
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("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))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_markiert", anh_markiert))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_size", anh_size))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_cmrId", anh_cmrId))
|
||||
|
||||
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 li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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
|
||||
156
VERAG_PROG_ALLGEMEIN/Classes/cAvisoAnhangsarten.vb
Normal file
156
VERAG_PROG_ALLGEMEIN/Classes/cAvisoAnhangsarten.vb
Normal file
@@ -0,0 +1,156 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
|
||||
|
||||
Public Class cAvisoAnhangsarten_LIST
|
||||
Public LIST As New List(Of cAvisoAnhangsarten)
|
||||
Dim SQL As New SQL
|
||||
|
||||
|
||||
Sub New(aktiv As Boolean, firma As String, filiale As String)
|
||||
LOAD_LIST(aktiv, firma, filiale)
|
||||
End Sub
|
||||
|
||||
Public Sub LOAD_LIST(aktiv As Boolean, Firma As String, Filiale As String)
|
||||
Try
|
||||
|
||||
LIST.Clear()
|
||||
|
||||
For Each r In SQL.loadDgvBySql("Select aa_id FROM [tblAvisoAnhangsArten] WHERE aa_aktiv=" & IIf(aktiv, "1", "0") & " And ((aa_firma Is null And aa_filiale Is null) " & IIf(Firma <> "", " Or aa_firma = '" & Firma & "'", "") & IIf(Filiale <> "", " OR aa_filiale = '" & Filiale & "'", "") & ")", "AVISO").Rows
|
||||
LIST.Add(New VERAG_PROG_ALLGEMEIN.cAvisoAnhangsarten(r("aa_id")))
|
||||
Next
|
||||
|
||||
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 cAvisoAnhangsarten
|
||||
Property aa_id As Integer
|
||||
Property aa_name As Object = Nothing
|
||||
Property aa_sort As Object = Nothing
|
||||
Property aa_isBrexti As Object = Nothing
|
||||
Property aa_aktiv As Object = Nothing
|
||||
Property aa_bezeichnung As Object = Nothing
|
||||
Property aa_firma As Object = Nothing
|
||||
Property aa_filiale As Object = Nothing
|
||||
|
||||
Public hasEntry = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
|
||||
Sub New()
|
||||
|
||||
End Sub
|
||||
|
||||
Sub New(aa_id)
|
||||
Me.aa_id = aa_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("aa_id", aa_id,, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aa_name", aa_name))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aa_sort", aa_sort))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aa_isBrexti", aa_isBrexti))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aa_aktiv", aa_aktiv))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aa_bezeichnung", aa_bezeichnung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aa_firma", aa_firma))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aa_filiale", aa_filiale))
|
||||
|
||||
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 [tblAvisoAnhangsArten] WHERE aa_id=@aa_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.GetNewOpenConnectionAVISO()
|
||||
Using cmd As New SqlCommand("SELECT * FROM [tblAvisoAnhangsArten] WHERE aa_id=@aa_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@aa_id", aa_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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 [tblAvisoAnhangsArten] SET " & str & " WHERE aa_id=@aa_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 [tblAvisoAnhangsArten] (" & 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
|
||||
|
||||
255
VERAG_PROG_ALLGEMEIN/Classes/cAvisoBenachrichtigungen.vb
Normal file
255
VERAG_PROG_ALLGEMEIN/Classes/cAvisoBenachrichtigungen.vb
Normal file
@@ -0,0 +1,255 @@
|
||||
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
|
||||
Property ab_ReminderVermerkID As Object = Nothing
|
||||
Property ab_ReminderVermerkCode As Object = Nothing
|
||||
Property ab_VermerkID 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 = "", Optional [ab_ReminderVermerkID] As Object = Nothing, Optional [ab_ReminderVermerkCode] As Object = Nothing, Optional FirmaTmp As Object = Nothing, Optional ab_VermerkID As Object = Nothing) 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 = If(VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, "AUTO")
|
||||
AB.ab_MitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
||||
AB.ab_ReminderVermerkID = ab_ReminderVermerkID
|
||||
AB.ab_ReminderVermerkCode = ab_ReminderVermerkCode
|
||||
AB.ab_VermerkID = ab_VermerkID
|
||||
|
||||
|
||||
AB.ab_Firma = If(FirmaTmp, 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='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "',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='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "',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))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_ReminderVermerkCode", ab_ReminderVermerkCode))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_ReminderVermerkID", ab_ReminderVermerkID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_VermerkID", ab_VermerkID))
|
||||
|
||||
|
||||
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 li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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
|
||||
|
||||
Public Class cAvisoBenachrichtigungenCodes
|
||||
|
||||
Public Shared Neukunde_bitte_Abklärung As Integer = 1
|
||||
Public Shared Neukunde_abgeklärt As Integer = 2
|
||||
Public Shared An_Abklärung As Integer = 3
|
||||
Public Shared Abklärung_OK As Integer = 4
|
||||
Public Shared Vermerke_Reminder As Integer = 5
|
||||
Public Shared Vorauskasse_OK As Integer = 6
|
||||
Public Shared ZOLL_Dokumentenbeschau As Integer = 7
|
||||
Public Shared ZOLL_Rueckweisung As Integer = 8
|
||||
Public Shared ZOLL_Mitteilung As Integer = 9
|
||||
Public Shared AAE_Benachrichtigung As Integer = 10
|
||||
|
||||
End Class
|
||||
128
VERAG_PROG_ALLGEMEIN/Classes/cAvisoStatusMails.vb
Normal file
128
VERAG_PROG_ALLGEMEIN/Classes/cAvisoStatusMails.vb
Normal file
@@ -0,0 +1,128 @@
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cAvisoStatusMails
|
||||
Property asm_AvisoId As Integer
|
||||
Property asm_KdNr As Integer
|
||||
Property asm_StatuscodeSent As Integer
|
||||
Property asm_datetime As Date = Now
|
||||
|
||||
|
||||
|
||||
Public hasEntry = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
|
||||
Sub New(asm_AvisoId, asm_KdNr, asm_StatuscodeSent)
|
||||
Me.asm_AvisoId = asm_AvisoId
|
||||
Me.asm_KdNr = asm_KdNr
|
||||
Me.asm_StatuscodeSent = asm_StatuscodeSent
|
||||
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("asm_AvisoId", asm_AvisoId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("asm_KdNr", asm_KdNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("asm_StatuscodeSent", asm_StatuscodeSent))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("asm_datetime", asm_datetime))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Shared Function INSERT_INTO(asm_AvisoId, asm_KdNr, asm_StatuscodeSent) As Boolean
|
||||
Dim AST As New cAvisoStatusMails(asm_AvisoId, asm_KdNr, asm_StatuscodeSent)
|
||||
AST.asm_AvisoId = asm_AvisoId
|
||||
AST.asm_KdNr = asm_KdNr
|
||||
AST.asm_StatuscodeSent = asm_StatuscodeSent
|
||||
|
||||
Return AST.SAVE()
|
||||
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 tblAvisoStatusMails WHERE asm_AvisoId=@asm_AvisoId and asm_KdNr=@asm_KdNr and asm_StatuscodeSent=@asm_StatuscodeSent) " &
|
||||
" 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 tblAvisoStatusMails WHERE asm_AvisoId=@asm_AvisoId and asm_KdNr=@asm_KdNr and asm_StatuscodeSent=@asm_StatuscodeSent ", conn)
|
||||
cmd.Parameters.AddWithValue("@asm_AvisoId", asm_AvisoId)
|
||||
cmd.Parameters.AddWithValue("@asm_KdNr", asm_KdNr)
|
||||
cmd.Parameters.AddWithValue("@asm_StatuscodeSent", asm_StatuscodeSent)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
hasEntry = True
|
||||
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 [tblAvisoStatusMails] SET " & str & " WHERE asm_AvisoId=@asm_AvisoId and asm_KdNr=@asm_KdNr and asm_StatuscodeSent=@asm_StatuscodeSent ")
|
||||
|
||||
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 tblAvisoStatusMails (" & 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
|
||||
190
VERAG_PROG_ALLGEMEIN/Classes/cBesuchsbericht.vb
Normal file
190
VERAG_PROG_ALLGEMEIN/Classes/cBesuchsbericht.vb
Normal file
@@ -0,0 +1,190 @@
|
||||
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cBesuchsbericht
|
||||
Property bb_Id As Object = Nothing
|
||||
Property bb_DatumErfassung As Date = Now
|
||||
Property bb_DatumBesuch As Object = Nothing
|
||||
Property bb_Sachbearbeiter As Object = Nothing
|
||||
Property bb_SachbearbeiterId As Integer
|
||||
Property bb_Teilnehmer As Object = Nothing
|
||||
Property bb_Kontaktart As Object = Nothing
|
||||
Property bb_Firma As Object = Nothing
|
||||
Property bb_Kunde As Object = Nothing
|
||||
Property bb_KundenNr As Object = Nothing
|
||||
Property bb_Geschaeftsfuehrer As Object = Nothing
|
||||
Property bb_Umsatz As Object = Nothing
|
||||
Property bb_Anpsprechpartner As Object = Nothing
|
||||
Property bb_Telefon As Object = Nothing
|
||||
Property bb_Mail As Object = Nothing
|
||||
Property bb_FuhrparkEigentum As Object = Nothing
|
||||
Property bb_FuhrparkLeasing As Object = Nothing
|
||||
Property bb_LKW_Plane As Boolean = False
|
||||
Property bb_LKW_Kuehltranporte As Boolean = False
|
||||
Property bb_LKW_Sondertransporte As Boolean = False
|
||||
Property bb_LKW_Sprinter As Boolean = False
|
||||
Property bb_LKW_SiloTank As Boolean = False
|
||||
Property bb_Auftraggeber As Object = Nothing
|
||||
Property bb_Route As Object = Nothing
|
||||
Property bb_DerzeitigerLieferant As Object = Nothing
|
||||
Property bb_Zufrieden As Object = Nothing
|
||||
Property bb_ZufriedenNEIN As Object = Nothing
|
||||
Property bb_Garantie As Object = Nothing
|
||||
Property bb_Interesse_Zollabfertigung As Boolean = False
|
||||
Property bb_Interesse_Brexit As Boolean = False
|
||||
Property bb_Interesse_Parkplatz As Boolean = False
|
||||
Property bb_Interesse_LagerUmschlag As Boolean = False
|
||||
Property bb_Interesse_Rola As Boolean = False
|
||||
Property bb_Interesse_YesMoney As Boolean = False
|
||||
Property bb_Interesse_Ferry As Boolean = False
|
||||
Property bb_Vermerk As Object = Nothing
|
||||
|
||||
Public hasEntry = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
bb_Garantie = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
|
||||
End Sub
|
||||
Sub New(bb_Id)
|
||||
Me.bb_Id = bb_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("bb_Id", bb_Id,, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_Firma", bb_Firma)) 'Object = Nothing
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_DatumErfassung", bb_DatumErfassung)) 'Object = Nothing
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_DatumBesuch", bb_DatumBesuch)) 'Object = Nothing
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_Sachbearbeiter", bb_Sachbearbeiter)) 'Object = Nothing
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_SachbearbeiterId", bb_SachbearbeiterId)) 'Integer
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_Teilnehmer", bb_Teilnehmer)) 'Object = Nothing
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_Kontaktart", bb_Kontaktart)) 'Object = Nothing
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_Kunde", bb_Kunde)) 'Object = Nothing
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_KundenNr", bb_KundenNr)) 'Object = Nothing
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_Geschaeftsfuehrer", bb_Geschaeftsfuehrer)) 'Object = Nothing
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_Umsatz", bb_Umsatz)) 'Object = Nothing
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_Anpsprechpartner", bb_Anpsprechpartner)) 'Object = Nothing
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_Telefon", bb_Telefon)) 'Object = Nothing
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_Mail", bb_Mail)) 'Object = Nothing
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_FuhrparkEigentum", bb_FuhrparkEigentum)) 'Object = Nothing
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_FuhrparkLeasing", bb_FuhrparkLeasing)) 'Object = Nothing
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_LKW_Plane", bb_LKW_Plane)) 'Boolean = False
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_LKW_Kuehltranporte", bb_LKW_Kuehltranporte)) 'Boolean = False
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_LKW_Sondertransporte", bb_LKW_Sondertransporte)) 'Boolean = False
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_LKW_Sprinter", bb_LKW_Sprinter)) 'Boolean = False
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_LKW_SiloTank", bb_LKW_SiloTank)) 'Boolean = False
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_Auftraggeber", bb_Auftraggeber)) 'Object = Nothing
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_Route", bb_Route)) 'Object = Nothing
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_DerzeitigerLieferant", bb_DerzeitigerLieferant)) 'Object = Nothing
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_Zufrieden", bb_Zufrieden)) 'Object = Nothing
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_ZufriedenNEIN", bb_ZufriedenNEIN)) 'Object = Nothing
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_Garantie", bb_Garantie)) 'Object = Nothing
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_Interesse_Zollabfertigung", bb_Interesse_Zollabfertigung)) 'Boolean = False
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_Interesse_Brexit", bb_Interesse_Brexit)) 'Boolean = False
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_Interesse_Parkplatz", bb_Interesse_Parkplatz)) 'Boolean = False
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_Interesse_LagerUmschlag", bb_Interesse_LagerUmschlag)) 'Boolean = False
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_Interesse_Rola", bb_Interesse_Rola)) 'Boolean = False
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_Interesse_YesMoney", bb_Interesse_YesMoney)) 'Boolean = False
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_Interesse_Ferry", bb_Interesse_Ferry)) 'Boolean = False
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_Vermerk", bb_Vermerk)) 'Object = Nothing
|
||||
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 tblBesuchsberichte WHERE bb_Id=@bb_Id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
bb_Id = SQL.doSQLVarListID(bb_Id, sqlstr, "FMZOLL", , list)
|
||||
Return (bb_Id > 0)
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Public Shared Function DELETE(bb_Id As Integer) As Boolean
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Return SQL.doSQL("DELETE FROM tblBesuchsberichte WHERE bb_Id=" & bb_Id)
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
hasEntry = False
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblBesuchsberichte WHERE bb_Id=@bb_Id ", conn)
|
||||
cmd.Parameters.AddWithValue("@bb_Id", bb_Id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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 [tblBesuchsberichte] SET " & str & " WHERE bb_Id=@bb_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 tblBesuchsberichte (" & 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
|
||||
|
||||
241
VERAG_PROG_ALLGEMEIN/Classes/cBonitaetsauskunft.vb
Normal file
241
VERAG_PROG_ALLGEMEIN/Classes/cBonitaetsauskunft.vb
Normal file
@@ -0,0 +1,241 @@
|
||||
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 Object = Nothing
|
||||
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
|
||||
Property ba_CreditSaveRisikoklasse As Object = Nothing
|
||||
Property ba_CreditSaveBonitaetsScore As Object = Nothing
|
||||
Property ba_CreditSaveBonitaetsIndex As Object = Nothing
|
||||
Property ba_Pruefungstool As Object = Nothing
|
||||
Property ba_datenarchivId As Object = Nothing
|
||||
Property ba_Geschaeftszweck As Object = Nothing
|
||||
Property ba_GSName As Object = Nothing
|
||||
Property ba_UID As String = ""
|
||||
Property ba_forcedRequest As Boolean = False
|
||||
Property ba_CScounterBeforeRequest As Integer = 0
|
||||
Property ba_CScounterAfterRequest As Integer = 0
|
||||
Property ba_CSmax As Integer = 0
|
||||
Property ba_CScountry As String = ""
|
||||
|
||||
|
||||
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))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_CreditSaveRisikoklasse", ba_CreditSaveRisikoklasse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_Pruefungstool", ba_Pruefungstool))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_CreditSaveBonitaetsScore", ba_CreditSaveBonitaetsScore))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_CreditSaveBonitaetsIndex", ba_CreditSaveBonitaetsIndex))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_datenarchivId", ba_datenarchivId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_Geschaeftszweck", ba_Geschaeftszweck))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_GSName", ba_GSName))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_UID", ba_UID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_forcedRequest", ba_forcedRequest))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_CScounterBeforeRequest", ba_CScounterBeforeRequest))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_CScounterAfterRequest", ba_CScounterAfterRequest))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_CSmax", ba_CSmax))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_CScountry", ba_CScountry))
|
||||
|
||||
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 li In BONI.getParameterList()
|
||||
Dim propInfo As PropertyInfo = BONI.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(BONI, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(BONI, dr.Item(li.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 Shared Function LOADByKdNrWithingDate(ba_KundenNr As Integer) As cBonitaetsauskunft
|
||||
Try
|
||||
Dim BONI As New cBonitaetsauskunft
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT Top(1) * FROM tblBonitaetsauskunft WHERE ba_KundenNr=@ba_KundenNr order by ba_Datum desc ", conn)
|
||||
cmd.Parameters.AddWithValue("@ba_KundenNr", ba_KundenNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In BONI.getParameterList()
|
||||
Dim propInfo As PropertyInfo = BONI.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(BONI, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(BONI, dr.Item(li.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 li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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
|
||||
24
VERAG_PROG_ALLGEMEIN/Classes/cChilkat_Helper.vb
Normal file
24
VERAG_PROG_ALLGEMEIN/Classes/cChilkat_Helper.vb
Normal file
@@ -0,0 +1,24 @@
|
||||
Public Class cChilkat_Helper
|
||||
Public Shared Sub UnlockCilkat()
|
||||
Dim glob As Chilkat.[Global] = New Chilkat.[Global]()
|
||||
'Dim success As Boolean = glob.UnlockBundle("VERAGS.CB1122022_JJ6kgS2zoR0g")
|
||||
Dim success As Boolean = glob.UnlockBundle("LUXBAU.CB1112026_zH49BXhFm802")
|
||||
|
||||
If success <> True Then
|
||||
Debug.WriteLine(glob.LastErrorText)
|
||||
Return
|
||||
End If
|
||||
|
||||
Dim status As Integer = glob.UnlockStatus
|
||||
|
||||
If status = 2 Then
|
||||
Debug.WriteLine("Unlocked using purchased unlock code.")
|
||||
Else
|
||||
Debug.WriteLine("Unlocked in trial mode.")
|
||||
End If
|
||||
|
||||
Debug.WriteLine(glob.LastErrorText)
|
||||
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
127
VERAG_PROG_ALLGEMEIN/Classes/cClasses.vb
Normal file
127
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
VERAG_PROG_ALLGEMEIN/Classes/cCryptography.vb
Normal file
155
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
VERAG_PROG_ALLGEMEIN/Classes/cDEBundeslaenderPLZ.vb
Normal file
175
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 li In VK.getParameterList()
|
||||
Dim propInfo As PropertyInfo = VK.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(VK, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(VK, dr.Item(li.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
|
||||
175
VERAG_PROG_ALLGEMEIN/Classes/cDHF_Anhaenge.vb
Normal file
175
VERAG_PROG_ALLGEMEIN/Classes/cDHF_Anhaenge.vb
Normal file
@@ -0,0 +1,175 @@
|
||||
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, LizenzNr)
|
||||
LOAD(AnmID, MsgTyp, LizenzNr)
|
||||
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 li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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, LizenzNr)
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblDHF_Anhaenge WHERE AnmID=@AnmID AND MsgTyp=@MsgTyp AND LizenzNr=@LizenzNr ", conn)
|
||||
cmd.Parameters.AddWithValue("@AnmID", AnmID)
|
||||
cmd.Parameters.AddWithValue("@MsgTyp", MsgTyp)
|
||||
cmd.Parameters.AddWithValue("@LizenzNr", LizenzNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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
VERAG_PROG_ALLGEMEIN/Classes/cERS.vb
Normal file
168
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 li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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
|
||||
159
VERAG_PROG_ALLGEMEIN/Classes/cEZB_Waehrungskurse.vb
Normal file
159
VERAG_PROG_ALLGEMEIN/Classes/cEZB_Waehrungskurse.vb
Normal file
@@ -0,0 +1,159 @@
|
||||
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 li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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
|
||||
|
||||
Shared Function GET_KURS(ezb_waehrungscode As String, datum As Date) As Double
|
||||
Dim sqlstr = " SELECT TOP 1 [ezb_kurs] FROM [tblEZB_Waehrungskurse] where ezb_waehrungscode='" & ezb_waehrungscode & "' and ezb_datum<='" & datum.ToShortTimeString & "' order by ezb_datum desc"
|
||||
Return (New SQL).getValueTxtBySql(sqlstr, "FMZOLL",,, 0)
|
||||
End Function
|
||||
|
||||
Shared Function EXCHANGE(betrag As Double, waehrungscode As String, datum As Date) As Double
|
||||
Dim sqlstr = " SELECT TOP 1 [ezb_kurs] FROM [tblEZB_Waehrungskurse] where ezb_waehrungscode='" & waehrungscode & "' and ezb_datum<='" & datum.ToShortTimeString & "' order by ezb_datum desc"
|
||||
Return (New SQL).getValueTxtBySql(sqlstr, "FMZOLL",,, 0) * betrag
|
||||
End Function
|
||||
|
||||
End Class
|
||||
181
VERAG_PROG_ALLGEMEIN/Classes/cEZT_ImportCodenummern.vb
Normal file
181
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 li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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
|
||||
119
VERAG_PROG_ALLGEMEIN/Classes/cEasyBinding.vb
Normal file
119
VERAG_PROG_ALLGEMEIN/Classes/cEasyBinding.vb
Normal file
@@ -0,0 +1,119 @@
|
||||
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
|
||||
319
VERAG_PROG_ALLGEMEIN/Classes/cEmailBenachrichtigung.vb
Normal file
319
VERAG_PROG_ALLGEMEIN/Classes/cEmailBenachrichtigung.vb
Normal file
@@ -0,0 +1,319 @@
|
||||
|
||||
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 li In LIST
|
||||
If Not li.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, ByRef 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
|
||||
|
||||
'In diesen Strings werden die Mailadressen übergeben:
|
||||
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 existingNEW(Kdnr, i.eb_bcc, "BCC", Emails_list_sent.LIST) Then Emails_BCC_list.LIST.Add(i) ' &= i.eb_EMail & ";"
|
||||
ElseIf i.eb_cc Then
|
||||
If Not existingNEW(Kdnr, i.eb_cc, "CC", Emails_list_sent.LIST) Then Emails_CC_list.LIST.Add(i) ' &= i.eb_EMail & ";"
|
||||
Else
|
||||
If Not existingNEW(Kdnr, i.eb_EMail, "", Emails_list_sent.LIST) Then Emails_list.LIST.Add(i) ' &= i.eb_EMail & ";"
|
||||
End If
|
||||
|
||||
'DAS WAR VORHER:::::::::::
|
||||
'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 existingWOKdNr(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 existingWOKdNr(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 existingWOKdNr(i.eb_EMail, Emails_list_sent.LIST) Then Emails_list.LIST.Add(i) ' &= i.eb_EMail & ";"
|
||||
'End If
|
||||
':::::::::::::::::::::::
|
||||
|
||||
'''Es muss mit KdNr geprüft werden, sonst wird zB OPUS/SOMEDAY nciht gesendet (gleiche Mail, andere KdNr)
|
||||
'''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 existingWOKdNr(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 existingWOKdNr(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 existingWOKdNr(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 "AMBAR" : Return "import@ambarlog.de"
|
||||
Case Else : Return "noreply@verag.ag"
|
||||
End Select
|
||||
End Function
|
||||
|
||||
Public Shared Function getBCCEmail() 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 "" '"noreply@verag.ag"
|
||||
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, ByRef 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 existingNEW(KundenNr As Integer, Email As String, art As String, Emails_list As List(Of VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung)) As Boolean
|
||||
If Emails_list IsNot Nothing Then
|
||||
For Each i In Emails_list
|
||||
Select Case art
|
||||
Case "BCC" : If i.eb_bcc = Email And i.eb_KundenNr = KundenNr Then Return True
|
||||
Case "CC" : If i.eb_cc = Email And i.eb_KundenNr = KundenNr Then Return True
|
||||
Case Else : If i.eb_EMail = Email And i.eb_KundenNr = KundenNr Then Return True
|
||||
End Select
|
||||
|
||||
Next
|
||||
End If
|
||||
|
||||
Return False
|
||||
End Function
|
||||
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
|
||||
Shared Function existingWOKdNr(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 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 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 Then Return True
|
||||
Next
|
||||
End If
|
||||
Return False
|
||||
End Function
|
||||
|
||||
End Class
|
||||
319
VERAG_PROG_ALLGEMEIN/Classes/cFeiertage.vb
Normal file
319
VERAG_PROG_ALLGEMEIN/Classes/cFeiertage.vb
Normal file
@@ -0,0 +1,319 @@
|
||||
Imports System.Runtime.InteropServices.ComTypes
|
||||
|
||||
Public Class cFeiertage
|
||||
Private _Year As Integer
|
||||
Private _Ostern As Date
|
||||
|
||||
''' <summary>
|
||||
''' Initialisiert die Feiertags-Klasse für das aktuelle Jahr
|
||||
''' </summary>
|
||||
'Public Sub New()
|
||||
' _Year = Now.Year
|
||||
'End Sub
|
||||
|
||||
''' <summary>
|
||||
''' Initialisiert die Feiertags-Klasse für das angegebene Jahr
|
||||
''' </summary>
|
||||
Public Sub New(ByVal Year As Integer)
|
||||
_Year = Year
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' Gibt das Datum für den Ostersonntag zurück.
|
||||
''' </summary>
|
||||
Public ReadOnly Property Ostersonntag_OLD() As Date
|
||||
Get
|
||||
If _Ostern.Ticks = 0 Then
|
||||
' Datum des ersten Vollmondes nach Frühlingsanfang
|
||||
Dim a As Integer = _Year Mod 19
|
||||
Dim b As Integer = _Year Mod 4
|
||||
Dim c As Integer = _Year Mod 7
|
||||
Dim M As Integer = Val(((8 * Val(_Year / 100) + 13) / 25) - 2)
|
||||
Dim s As Integer = Val(_Year / 100) - Val(_Year / 400) - 2
|
||||
|
||||
M = (15 + s - M) Mod 30
|
||||
|
||||
Dim N As Integer = (6 + s) Mod 7
|
||||
Dim d As Integer = (M + 19 * a) Mod 30
|
||||
If d = 29 Then
|
||||
d = 28
|
||||
ElseIf d = 28 Then
|
||||
If (_Year Mod 19) > 10 Then d = 27
|
||||
End If
|
||||
|
||||
Dim e As Integer = (2 * b + 4 * c + 6 * d + N) Mod 7
|
||||
|
||||
' Ostersonntag
|
||||
_Ostern = New DateTime(_Year, 3, 21).AddDays(d + e + 1)
|
||||
End If
|
||||
Return _Ostern
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public Function GetFirstyDayYInxMonth(ByVal day As DayOfWeek, ByVal month As Integer, ByVal year As Integer, Optional irgnoreDay As Boolean = False) As DateTime
|
||||
|
||||
' Create a start date for the 1st day of the month
|
||||
Dim startDate As DateTime = New DateTime(year, month, 1)
|
||||
|
||||
If Not irgnoreDay Then
|
||||
|
||||
While startDate.DayOfWeek <> day
|
||||
startDate = startDate.AddDays(1)
|
||||
End While
|
||||
End If
|
||||
|
||||
Return startDate
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Public Function GetLastyDayYInxMonth(ByVal day As DayOfWeek, ByVal month As Integer, ByVal year As Integer, Optional irgnoreDay As Boolean = False) As DateTime
|
||||
|
||||
' Create a start date for the last weekday of the month
|
||||
Dim startDate As DateTime
|
||||
|
||||
If (month < 12) Then
|
||||
startDate = New DateTime(year, month + 1, 1)
|
||||
Else
|
||||
startDate = New DateTime(year + 1, 1, 1)
|
||||
End If
|
||||
|
||||
If irgnoreDay Then
|
||||
startDate = startDate.AddDays(-1)
|
||||
Else
|
||||
While (startDate.DayOfWeek <> day)
|
||||
startDate = startDate.AddDays(-1)
|
||||
End While
|
||||
End If
|
||||
|
||||
|
||||
Return startDate
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Public Function Ostersonntag() As Date
|
||||
Dim _month As Integer
|
||||
Dim _day As Integer
|
||||
Dim _moon As Integer
|
||||
Dim _epact As Integer
|
||||
Dim _sunday As Integer
|
||||
Dim _gold As Integer
|
||||
Dim _century As Integer
|
||||
Dim _corx As Integer
|
||||
Dim _corz As Integer
|
||||
' The Golden Number of the year in the 19 year Metonic Cycle:
|
||||
_gold = (_Year Mod 19) + 1
|
||||
' Calculate the Century:
|
||||
_century = (_Year \ 100) + 1
|
||||
' Number of years in which leap year was dropped in order
|
||||
' to keep in step with the sun:
|
||||
_corx = (3 * _century) \ 4 - 12
|
||||
' Special correction to syncronize Easter with moon's orbit:
|
||||
_corz = (8 * _century + 5) \ 25 - 5
|
||||
' Find Sunday:
|
||||
_sunday = (5 * _Year) \ 4 - _corx - 10
|
||||
' ^ evtl. long To prevent overflow at year 6554
|
||||
' Set Epact - specifies occurrence of full moon:
|
||||
_epact = (11 * _gold + 20 + _corz - _corx) Mod 30
|
||||
If _epact < 0 Then
|
||||
_epact += 30
|
||||
End If
|
||||
If (((_epact = 25) AndAlso (_gold > 11)) OrElse (_epact = 24)) Then
|
||||
_epact += 1
|
||||
End If
|
||||
' Find Full Moon:
|
||||
_moon = 44 - _epact
|
||||
If _moon < 21 Then
|
||||
_moon += 30
|
||||
End If
|
||||
' Advance to Sunday:
|
||||
_moon += 7 - ((_sunday + _moon) Mod 7)
|
||||
If (_moon > 31) Then
|
||||
_month = 4
|
||||
_day = _moon - 31
|
||||
Else
|
||||
_month = 3
|
||||
_day = _moon
|
||||
End If
|
||||
Return New DateTime(_Year, _month, _day)
|
||||
End Function
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' Gibt das Datum für den Ostermontag zurück.
|
||||
''' </summary>
|
||||
Public ReadOnly Property Ostermontag() As Date
|
||||
Get
|
||||
Return Ostersonntag.AddDays(1)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
''' <summary>
|
||||
''' Gibt das Datum für den BussUndBettag zurück.
|
||||
''' </summary>
|
||||
Public ReadOnly Property BussUndBettag() As Date
|
||||
Get
|
||||
Dim i As Long
|
||||
Dim VierterAdvent As Date
|
||||
For i = 24 To 1 Step -1
|
||||
If CDate(i & ".12." & _Year).ToString("ddd") = "So" Then
|
||||
VierterAdvent = CDate(i & ".12." & _Year).ToShortDateString
|
||||
Exit For
|
||||
End If
|
||||
Next i
|
||||
Dim ErsterAdvent As Date = VierterAdvent.AddDays(-21) ' DateAdd("d", -21, VierterAdvent)
|
||||
Return ErsterAdvent.AddDays(-11) ' DateAdd("d", -11, ErsterAdvent) 'BussUndBettag
|
||||
End Get
|
||||
|
||||
End Property
|
||||
''' <summary>
|
||||
''' Gibt das Datum für den Karfreitag zurück.
|
||||
''' </summary>
|
||||
Public ReadOnly Property Karfreitag() As Date
|
||||
Get
|
||||
Return Ostersonntag.AddDays(-2)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
''' <summary>
|
||||
''' Gibt das Datum für den Pfingstsonntag zurück.
|
||||
''' </summary>
|
||||
Public ReadOnly Property Pfingstsonntag() As Date
|
||||
Get
|
||||
Return Ostersonntag.AddDays(49)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
''' <summary>
|
||||
''' Gibt das Datum für den Pfingsmontag zurück.
|
||||
''' </summary>
|
||||
Public ReadOnly Property Pfingstmontag() As Date
|
||||
Get
|
||||
Return Ostersonntag.AddDays(50)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
''' <summary>
|
||||
''' Gibt das Datum für Christi-Himmelfahrt zurück.
|
||||
''' </summary>
|
||||
Public ReadOnly Property Himmelfahrt() As Date
|
||||
Get
|
||||
Return Ostersonntag.AddDays(39)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
''' <summary>
|
||||
''' Gibt das Datum für Fronleichnam zurück.
|
||||
''' </summary>
|
||||
Public ReadOnly Property Fronleichnam() As Date
|
||||
Get
|
||||
Return Ostersonntag.AddDays(60)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
''' <summary>
|
||||
''' Gibt das Datum für Aschermittwoch zurück.
|
||||
''' </summary>
|
||||
Public ReadOnly Property Aschermittwoch() As Date
|
||||
Get
|
||||
Return Ostersonntag.AddDays(-46)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
|
||||
Public Function isWeekend(datum As Date) As Boolean
|
||||
Select Case datum.DayOfWeek
|
||||
Case 0, 6 : Return True
|
||||
Case Else : Return False
|
||||
End Select
|
||||
End Function
|
||||
Public Function isFeiertag(datum As Date, land As String) As Boolean
|
||||
|
||||
If datum = CDate("01.01." & _Year) Then Return True
|
||||
If datum = CDate("25.12." & _Year) Then Return True
|
||||
If datum = CDate("26.12." & _Year) Then Return True
|
||||
|
||||
If datum = Ostermontag Then Return True
|
||||
|
||||
|
||||
|
||||
Select Case land
|
||||
Case "AT"
|
||||
If datum = CDate("26.10." & _Year) Then Return True
|
||||
If datum = CDate("08.12." & _Year) Then Return True
|
||||
If datum = CDate("01.05." & _Year) Then Return True 'Staatsfeiertag
|
||||
|
||||
|
||||
If datum = CDate("06.01." & _Year) Then Return True
|
||||
If datum = CDate("15.08." & _Year) Then Return True
|
||||
If datum = CDate("01.11." & _Year) Then Return True
|
||||
If datum = Ostersonntag() Then Return True
|
||||
If datum = Himmelfahrt Then Return True
|
||||
If datum = Pfingstmontag Then Return True
|
||||
If datum = Pfingstsonntag Then Return True
|
||||
If datum = Fronleichnam Then Return True
|
||||
|
||||
Case "DE" 'BAYERN
|
||||
If datum = CDate("03.10." & _Year) Then Return True ' Tag der Deutschen Einheit
|
||||
' If datum = BussUndBettag Then Return True ' Buß- und Bettag '!!!!ABEWEICHEND --> kein Feiertag in BAYERN
|
||||
' If datum = CDate("08.08." & _Year) Then Return True ' Augsburger Friedensfest
|
||||
If datum = CDate("01.05." & _Year) Then Return True ' Maifeiertag
|
||||
If datum = Karfreitag Then Return True
|
||||
|
||||
|
||||
If datum = CDate("06.01." & _Year) Then Return True
|
||||
If datum = CDate("15.08." & _Year) Then Return True
|
||||
If datum = CDate("01.11." & _Year) Then Return True
|
||||
If datum = Ostersonntag() Then Return True
|
||||
If datum = Himmelfahrt Then Return True
|
||||
If datum = Pfingstmontag Then Return True
|
||||
If datum = Pfingstsonntag Then Return True
|
||||
If datum = Fronleichnam Then Return True
|
||||
|
||||
Case "GB"
|
||||
If datum = Karfreitag Then Return True
|
||||
If datum = GetFirstyDayYInxMonth(DayOfWeek.Monday, 5, _Year) Then Return True 'Early May Bank Holiday Erster Montag im Mai
|
||||
If datum = GetLastyDayYInxMonth(DayOfWeek.Monday, 5, _Year) Then Return True 'Spring Bank Holiday Letzter Montag im Mai
|
||||
If datum = GetLastyDayYInxMonth(DayOfWeek.Monday, 8, _Year) Then Return True 'Summer Bank Holiday Letzter Montag im August
|
||||
|
||||
Return False
|
||||
Case Else
|
||||
Return False
|
||||
End Select
|
||||
Return False
|
||||
End Function
|
||||
|
||||
'Public Function isFeiertag(datum As Date, land As String) As Boolean
|
||||
' If datum = CDate("01.01." & _Year) Then Return True
|
||||
' If datum = CDate("06.01." & _Year) Then Return True
|
||||
' If datum = CDate("15.08." & _Year) Then Return True
|
||||
' If datum = CDate("01.11." & _Year) Then Return True
|
||||
' If datum = CDate("25.12." & _Year) Then Return True
|
||||
' If datum = CDate("26.12." & _Year) Then Return True
|
||||
|
||||
|
||||
' If datum = Ostermontag Then MsgBox("Ostermontag") : Return True
|
||||
' If datum = Ostersonntag() Then MsgBox("Ostersonntag") : Return True
|
||||
' If datum = Himmelfahrt Then MsgBox("Himmelfahrt") : Return True
|
||||
' If datum = Pfingstmontag Then MsgBox("Pfingstmontag") : Return True
|
||||
' If datum = Pfingstsonntag Then MsgBox("Pfingstsonntag") : Return True
|
||||
' If datum = Fronleichnam Then MsgBox("Fronleichnam") : Return True
|
||||
|
||||
' Select Case land
|
||||
' Case "AT"
|
||||
' If datum = CDate("26.10." & _Year) Then Return True
|
||||
' If datum = CDate("08.12." & _Year) Then Return True
|
||||
' If datum = CDate("01.05." & _Year) Then Return True 'Staatsfeiertag
|
||||
' Case "DE" 'BAYERN
|
||||
' If datum = CDate("03.10." & _Year) Then Return True ' Tag der Deutschen Einheit
|
||||
' If datum = BussUndBettag Then MsgBox("BussUndBettag") : Return True ' Buß- und Bettag '!!!!ABEWEICHEND
|
||||
' If datum = CDate("08.08." & _Year) Then Return True ' Augsburger Friedensfest
|
||||
' If datum = CDate("01.05." & _Year) Then Return True ' Maifeiertag
|
||||
' If datum = Karfreitag Then MsgBox("Karfreitag") : Return True
|
||||
' End Select
|
||||
' Return False
|
||||
'End Function
|
||||
|
||||
End Class
|
||||
186
VERAG_PROG_ALLGEMEIN/Classes/cFilialen.vb
Normal file
186
VERAG_PROG_ALLGEMEIN/Classes/cFilialen.vb
Normal file
@@ -0,0 +1,186 @@
|
||||
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cFilialen
|
||||
Property FilialenNr As Integer
|
||||
|
||||
Property Stammfiliale As Object = Nothing
|
||||
Property Grenzstelle As Object = Nothing
|
||||
Property Speditionsbuch 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 E_Mail As Object = Nothing
|
||||
Property UstIdKz As Object = Nothing
|
||||
Property UstIdNr As Object = Nothing
|
||||
Property KorrespondentenNr As Object = Nothing
|
||||
Property Absender As Object = Nothing
|
||||
Property Fil_Status As Object = Nothing
|
||||
Property PP440 As Object = Nothing
|
||||
Property Firma As Object = Nothing
|
||||
Property Cluster As Object = Nothing
|
||||
Property PP441 As Object = Nothing
|
||||
|
||||
Public hasEntry = False
|
||||
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
|
||||
End Sub
|
||||
Sub New(FilialenNr)
|
||||
Me.FilialenNr = FilialenNr
|
||||
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("FilialenNr", FilialenNr,, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Stammfiliale", Stammfiliale))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Grenzstelle", Grenzstelle))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Speditionsbuch", Speditionsbuch))
|
||||
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("E-Mail", E_Mail, "E_Mail"))
|
||||
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("KorrespondentenNr", KorrespondentenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Absender", Absender))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Fil_Status", Fil_Status))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PP440", PP440))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma", Firma))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Cluster", Cluster))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PP441", PP441))
|
||||
|
||||
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 Filialen WHERE FilialenNr=@FilialenNr) " &
|
||||
" 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 Filialen WHERE FilialenNr=@FilialenNr ", conn)
|
||||
cmd.Parameters.AddWithValue("@FilialenNr", FilialenNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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 Filialen SET " & str & " WHERE FilialenNr=@FilialenNr ")
|
||||
|
||||
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 Filialen (" & 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 LOAD_LIST() As List(Of cFilialen)
|
||||
Dim FILIALEN As New List(Of cFilialen)
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM Filialen ", conn)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim FILIALE As New cFilialen
|
||||
For Each li In FILIALE.getParameterList()
|
||||
Dim propInfo As PropertyInfo = FILIALE.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(FILIALE, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(FILIALE, dr.Item(li.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
FILIALEN.Add(FILIALE)
|
||||
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 FILIALEN
|
||||
End Function
|
||||
End Class
|
||||
139
VERAG_PROG_ALLGEMEIN/Classes/cFirmen.vb
Normal file
139
VERAG_PROG_ALLGEMEIN/Classes/cFirmen.vb
Normal file
@@ -0,0 +1,139 @@
|
||||
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_E_Mail_Mahnungen As Object = Nothing
|
||||
Property Firma_Webadresse As Object = Nothing ' NVARCHAR (40) NULL,
|
||||
Property Firma_LandKz As Object = Nothing ' NVARCHAR (40) NULL,
|
||||
|
||||
Property Firmengruppe As Object = Nothing
|
||||
|
||||
|
||||
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_E_Mail_Mahnungen", Firma_E_Mail_Mahnungen, "Firma_E_Mail_Mahnungen"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Webadresse", Firma_Webadresse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_LandKz", Firma_LandKz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firmengruppe", Firmengruppe))
|
||||
|
||||
|
||||
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 li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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 Shared Function LOAD_LIST() As List(Of cFirmen)
|
||||
Dim FIRMEN As New List(Of cFirmen)
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblFirma ", conn)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim FIMRA As New cFirmen
|
||||
For Each li In FIMRA.getParameterList()
|
||||
Dim propInfo As PropertyInfo = FIMRA.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(FIMRA, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(FIMRA, dr.Item(li.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
FIRMEN.Add(FIMRA)
|
||||
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 FIRMEN
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
184
VERAG_PROG_ALLGEMEIN/Classes/cFiskalkunden.vb
Normal file
184
VERAG_PROG_ALLGEMEIN/Classes/cFiskalkunden.vb
Normal file
@@ -0,0 +1,184 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
|
||||
Public Class cFiskalkunden
|
||||
Property FK_Id As Integer
|
||||
Property FK_Kdnr As Object = Nothing
|
||||
Property FK_Datum As Object = Nothing
|
||||
Property FK_Art As Object = Nothing
|
||||
Property FK_locked As Object = Nothing
|
||||
Property FK_Bonitaet As Object = Nothing
|
||||
Property FK_Vollmacht As Object = Nothing
|
||||
Property FK_Untervollmacht As Object = Nothing
|
||||
Property FK_UID As Object = Nothing
|
||||
Property FK_EORI As Object = Nothing
|
||||
Property FK_Website_URL As Object = Nothing
|
||||
Property FK_WebsiteSt_URL As Object = Nothing
|
||||
Property FK_VollmachtOriginal As Boolean
|
||||
Property FK_MaId As Object = Nothing
|
||||
Property FK_Abschlussdatum As Object = Nothing
|
||||
Property FK_Anmerkung As Object = Nothing
|
||||
Property FK_Lieferanten As Object = Nothing
|
||||
Property FK_Empfaenger As Object = Nothing
|
||||
Property FK_Zwischenhaendler As Object = Nothing
|
||||
Property FK_Waren As Object = Nothing
|
||||
Property FK_Gruendungsdatum As Object = Nothing
|
||||
Property FK_AnzahlMitarbeiter As Object = Nothing
|
||||
Property FK_Geschaeftszweck As Object = Nothing
|
||||
Property FK_KreditMax As Object = Nothing
|
||||
Property FK_Geschaeftsfuehrer As Object = Nothing
|
||||
Property FK_Steuerberater As Object = Nothing
|
||||
Property FK_Umsatz As Object = Nothing
|
||||
|
||||
Public hasEntry = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New(FK_Id)
|
||||
Me.FK_Id = FK_Id
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
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("FK_Id", FK_Id,, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Kdnr", FK_Kdnr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Datum", FK_Datum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Art", FK_Art))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_locked", FK_locked))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Bonitaet", FK_Bonitaet))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Vollmacht", FK_Vollmacht))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Untervollmacht", FK_Untervollmacht))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_UID", FK_UID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_EORI", FK_EORI))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Website_URL", FK_Website_URL))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_WebsiteSt_URL", FK_WebsiteSt_URL))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_VollmachtOriginal", FK_VollmachtOriginal))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Anmerkung", FK_Anmerkung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Abschlussdatum", FK_Abschlussdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_MaId", FK_MaId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Lieferanten", FK_Lieferanten))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Empfaenger", FK_Empfaenger))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Zwischenhaendler", FK_Zwischenhaendler))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Waren", FK_Waren))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Gruendungsdatum", FK_Gruendungsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_AnzahlMitarbeiter", FK_AnzahlMitarbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Geschaeftszweck", FK_Geschaeftszweck))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_KreditMax", FK_KreditMax))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Geschaeftsfuehrer", FK_Geschaeftsfuehrer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Steuerberater", FK_Steuerberater))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Umsatz", FK_Umsatz))
|
||||
|
||||
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 [tblFiskalkunden] WHERE FK_Id=@FK_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 tblFiskalkunden WHERE FK_Id=@FK_Id ", conn)
|
||||
cmd.Parameters.AddWithValue("@FK_Id", FK_Id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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 [tblFiskalkunden] SET " & str & " WHERE FK_Id=@FK_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 [tblFiskalkunden] (" & 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 deleteEntry(ByVal FK_Id As Integer) As Boolean
|
||||
|
||||
Dim sql = "DELETE FROM tblFiskalkunden WHERE FK_Id=@FK_Id"
|
||||
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand(sql, conn)
|
||||
cmd.Parameters.AddWithValue("@FK_Id", FK_Id)
|
||||
Try
|
||||
cmd.ExecuteNonQuery()
|
||||
Return True
|
||||
Catch ex As SqlException
|
||||
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen")
|
||||
End Try
|
||||
End Using
|
||||
End Using
|
||||
Return False
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
157
VERAG_PROG_ALLGEMEIN/Classes/cFiskalkundenAnhaenge.vb
Normal file
157
VERAG_PROG_ALLGEMEIN/Classes/cFiskalkundenAnhaenge.vb
Normal file
@@ -0,0 +1,157 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cFiskalkundenAnhaenge
|
||||
|
||||
Property fka_id As Integer
|
||||
Property fka_KdNr As Integer
|
||||
Property fka_fkId As Integer
|
||||
Property fka_Name As String
|
||||
Property fka_docId As Integer
|
||||
Property fka_Art As Object = Nothing
|
||||
Property fka_Datum As Object = Nothing
|
||||
|
||||
Public hasEntry As Boolean = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
Sub New(fka_id As Integer)
|
||||
Me.fka_id = fka_id
|
||||
LOAD()
|
||||
|
||||
End Sub
|
||||
|
||||
Sub New(fka_Name, fka_docId, fka_Art)
|
||||
|
||||
Me.fka_Name = fka_Name
|
||||
Me.fka_docId = fka_docId
|
||||
Me.fka_Art = fka_Art
|
||||
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("fka_id", fka_id, , True, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fka_KdNr", fka_KdNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fka_Name", fka_Name))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fka_docId", fka_docId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fka_Art", fka_Art))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fka_Datum", fka_Datum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fka_fkId", fka_fkId))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function LOAD_LIST_ByKdNr(fka_KdNr As Integer, fka_fkId As Integer, fka_Art As String) As List(Of cFiskalkundenAnhaenge)
|
||||
Dim ANH_LIST = New List(Of cFiskalkundenAnhaenge)
|
||||
ANH_LIST.Clear()
|
||||
Dim SQL As New SQL
|
||||
Dim dgv = SQL.loadDgvBySql("SELECT fka_id FROM [tblFiskalkundenAnhaenge] WHERE fka_KdNr=" & fka_KdNr & " And fka_fkId = " & fka_fkId & " And fka_Art = '" & fka_Art & "'" & " ORDER BY fka_Datum desc", "AVISO")
|
||||
If dgv IsNot Nothing Then
|
||||
For Each r In dgv.Rows
|
||||
|
||||
ANH_LIST.Add(New VERAG_PROG_ALLGEMEIN.cFiskalkundenAnhaenge(r("fka_id")))
|
||||
Next
|
||||
End If
|
||||
|
||||
Return ANH_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 [tblFiskalkundenAnhaenge] With(updlock, serializable) WHERE fka_id=@fka_id) " &
|
||||
" BEGIN " & getUpdateCmd() & " End " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " End " &
|
||||
" commit tran "
|
||||
|
||||
fka_id = SQL.doSQLVarListID(fka_id, sqlstr, "AVISO", , list,, errHinweis)
|
||||
Return fka_id > 0
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionAVISO()
|
||||
Using cmd As New SqlCommand("Select * FROM [tblFiskalkundenAnhaenge] WHERE fka_id=@fka_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@fka_id", fka_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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 [tblFiskalkundenAnhaenge] SET " & str & " WHERE fka_id=@fka_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 [tblFiskalkundenAnhaenge] (" & 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 [tblFiskalkundenAnhaenge] WHERE fka_id=" & fka_id
|
||||
Return SQL.doSQL(sqlstr, "AVISO")
|
||||
End Function
|
||||
|
||||
Public Function DELETEALL(fka_KdNr As Integer, fka_fkId As Integer) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblFiskalkundenAnhaenge] WHERE fka_KdNr=" & fka_KdNr & " and fka_fkId=" & fka_fkId
|
||||
Return SQL.doSQL(sqlstr, "AVISO")
|
||||
End Function
|
||||
|
||||
End Class
|
||||
139
VERAG_PROG_ALLGEMEIN/Classes/cFremdSpeditionenZuordnung.vb
Normal file
139
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 li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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
|
||||
|
||||
119
VERAG_PROG_ALLGEMEIN/Classes/cFremdwaehrungskurse.vb
Normal file
119
VERAG_PROG_ALLGEMEIN/Classes/cFremdwaehrungskurse.vb
Normal file
@@ -0,0 +1,119 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cFremdwaehrungskurse
|
||||
|
||||
|
||||
Property fw_id As String
|
||||
Property fw_iso2 As String
|
||||
Property fw_iso3 As String
|
||||
Property fw_land As String
|
||||
Property fw_startdatum As Date
|
||||
Property fw_enddatum As Date
|
||||
Property fw_kurswert As Double
|
||||
|
||||
|
||||
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("fw_id", fw_id))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fw_iso2", fw_iso2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fw_iso3", fw_iso3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fw_land", fw_land))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fw_startdatum", fw_startdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fw_enddatum", fw_enddatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fw_kurswert", fw_kurswert))
|
||||
|
||||
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 tblZOLL_Wechselkurse WITH(updlock,serializable) WHERE fw_iso2=@fw_iso2 AND fw_startdatum=@fw_startdatum AND fw_enddatum=@fw_enddatum AND fw_kurswert=@fw_kurswert) " &
|
||||
" 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 [tblZOLL_Wechselkurse] SET " & str & " WHERE fw_iso2=@fw_iso2 AND fw_startdatum=@fw_startdatum AND fw_enddatum=@fw_enddatum AND fw_kurswert=@fw_kurswert")
|
||||
|
||||
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 tblZOLL_Wechselkurse (" & 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
|
||||
|
||||
'Shared Function GET_KURS(ezb_waehrungscode As String, datum As Date) As Double
|
||||
' Dim sqlstr = " SELECT TOP 1 [ezb_kurs] FROM [tblEZB_Waehrungskurse] where ezb_waehrungscode='" & ezb_waehrungscode & "' and ezb_datum<='" & datum.ToShortTimeString & "' order by ezb_datum desc"
|
||||
' Return (New SQL).getValueTxtBySql(sqlstr, "FMZOLL",,, 0)
|
||||
'End Function
|
||||
|
||||
'Shared Function EXCHANGE(betrag As Double, waehrungscode As String, datum As Date) As Double
|
||||
' Dim sqlstr = " SELECT TOP 1 [ezb_kurs] FROM [tblEZB_Waehrungskurse] where ezb_waehrungscode='" & waehrungscode & "' and ezb_datum<='" & datum.ToShortTimeString & "' order by ezb_datum desc"
|
||||
' Return (New SQL).getValueTxtBySql(sqlstr, "FMZOLL",,, 0) * betrag
|
||||
'End Function
|
||||
|
||||
|
||||
End Class
|
||||
649
VERAG_PROG_ALLGEMEIN/Classes/cGVMS.vb
Normal file
649
VERAG_PROG_ALLGEMEIN/Classes/cGVMS.vb
Normal file
@@ -0,0 +1,649 @@
|
||||
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cGVMS
|
||||
Property gvms_id As Integer
|
||||
Property gvms_datetime As DateTime = Now
|
||||
Property gvms_firma As String
|
||||
Property gvms_notification_id As Object = Nothing
|
||||
Property gvms_notification_boxid As Object = Nothing
|
||||
Property gvms_status As Object = Nothing
|
||||
Property gvms_GMR As Object = Nothing
|
||||
Property gvms_gmr_creationDate As Object = Nothing
|
||||
Property gvms_gmr_statusVersion As Object = Nothing
|
||||
|
||||
Property gvms_routeId As Integer = -1
|
||||
Property gvms_direction As String
|
||||
Property gvms_vehicleRegNum As String
|
||||
Property gvms_trailorRegNum As Object = Nothing
|
||||
Property gvms_isUnaccompanied As Object = Nothing
|
||||
Property gvms_empty As Object = Nothing
|
||||
Property gvms_emptyisOwn As Object = Nothing
|
||||
|
||||
Property gvms_SS As Object = Nothing
|
||||
Property gvms_locateDateTimeOfDeparture As Object = Nothing
|
||||
|
||||
|
||||
Public GVMS_POSITIONEN As New List(Of cGVMS_POS)
|
||||
|
||||
|
||||
Public hasEntry As Boolean = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
Sub New(gvms_id)
|
||||
Me.gvms_id = gvms_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("gvms_id", gvms_id,, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gvms_datetime", gvms_datetime))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gvms_firma", gvms_firma))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gvms_notification_id", gvms_notification_id))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gvms_notification_boxid", gvms_notification_boxid))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gvms_status", gvms_status))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gvms_GMR", gvms_GMR))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gvms_gmr_creationDate", gvms_gmr_creationDate))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gvms_gmr_statusVersion", gvms_gmr_statusVersion))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gvms_routeId", gvms_routeId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gvms_direction", gvms_direction))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gvms_vehicleRegNum", gvms_vehicleRegNum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gvms_trailorRegNum", gvms_trailorRegNum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gvms_isUnaccompanied", gvms_isUnaccompanied))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gvms_empty", gvms_empty))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gvms_emptyisOwn", gvms_emptyisOwn))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gvms_SS", gvms_SS))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gvms_locateDateTimeOfDeparture", gvms_locateDateTimeOfDeparture))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE(Optional saveAll = True) As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblGVMS WHERE gvms_id=@gvms_id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Me.gvms_id = SQL.doSQLVarListID(gvms_id, sqlstr, "FMZOLL", , list)
|
||||
If gvms_id > 0 And saveAll Then
|
||||
SAVE_POSITIONEN()
|
||||
End If
|
||||
Return (gvms_id > 0)
|
||||
End Function
|
||||
|
||||
|
||||
Public Function SAVE_POSITIONEN() As Boolean
|
||||
'Zuserst alle OffertenPos von dem Offert löschen
|
||||
If DELETE_Warenpositionen() Then 'And DELETE_WarenpositionUnterlagen() Then
|
||||
'jetzt die Standartofferten einfügen
|
||||
For Each p In GVMS_POSITIONEN
|
||||
p.gvmsPos_gvmsId = gvms_id
|
||||
p.INSERT()
|
||||
Next
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Function DELETE_Warenpositionen() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblGVMS_Pos] WHERE gvmsPos_gvmsId=" & Me.gvms_id & " "
|
||||
' MsgBox(sqlstr)
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
hasEntry = False
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblGVMS WHERE gvms_id=@gvms_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@gvms_id", gvms_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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 LOAD_ByNotification(gvms_notification_boxid, gvms_notification_id) As cGVMS
|
||||
|
||||
Try
|
||||
Dim GVMS As New cGVMS
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblGVMS WHERE gvms_notification_boxid=@gvms_notification_boxid AND gvms_notification_id=@gvms_notification_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@gvms_notification_id", gvms_notification_id)
|
||||
cmd.Parameters.AddWithValue("@gvms_notification_boxid", gvms_notification_boxid)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In GVMS.getParameterList()
|
||||
Dim propInfo As PropertyInfo = GVMS.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(GVMS, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(GVMS, dr.Item(li.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
GVMS.hasEntry = True
|
||||
dr.Close()
|
||||
Return GVMS
|
||||
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 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 [tblGVMS] SET " & str & " WHERE gvms_id=@gvms_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 tblGVMS (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
Public Class cGVMS_POS
|
||||
Property gvmsPos_id As Integer
|
||||
Property gvmsPos_gvmsId As Integer
|
||||
Property gvms_art As String
|
||||
Property gvms_RefNum As String
|
||||
Property gvms_SS As Object = Nothing
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Sub New()
|
||||
' Me.nctsWpUl_nctsWPId = nctsWpUl_nctsWPId
|
||||
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("gvmsPos_id", gvmsPos_id, , True, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gvmsPos_gvmsId", gvmsPos_gvmsId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gvms_art", gvms_art))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gvms_RefNum", gvms_RefNum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gvms_SS", gvms_SS))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
Public Function INSERT() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
gvmsPos_id = SQL.doSQLVarListID(gvmsPos_id, getInsertCmd(), "FMZOLL", , list)
|
||||
Return gvmsPos_id > 0
|
||||
End Function
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO tblGVMS_Pos (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
Public Class cGVMS_POS_DecArt
|
||||
Public Shared EIDR As String = "EIDR"
|
||||
Public Shared EXPORT As String = "EXPORT"
|
||||
Public Shared IMPORT As String = "IMPORT"
|
||||
Public Shared TAD As String = "TAD"
|
||||
Public Shared TSAD As String = "TSAD"
|
||||
Public Shared ATA As String = "ATA"
|
||||
Public Shared TIR As String = "TIR"
|
||||
Public Shared ORAL As String = "ORAL"
|
||||
Public Shared INDIRECT As String = "INDIRECT"
|
||||
End Class
|
||||
Public Class cGVMS_Carriers
|
||||
Property carrierId As Integer
|
||||
Property carrierName As Object = Nothing
|
||||
Property countryCode As Object = Nothing
|
||||
|
||||
Public hasEntry = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
Sub New(carrierId)
|
||||
Me.carrierId = carrierId
|
||||
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("carrierId", carrierId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("carrierName", carrierName))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("countryCode", countryCode))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function DELETE_ALL() As Boolean
|
||||
Dim SQL As New SQL
|
||||
Return SQL.doSQL(" DELETE FROM tblGVMS_Carriers", "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 tblGVMS_Carriers WHERE carrierId=@carrierId) " &
|
||||
" 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 tblGVMS_Carriers WHERE carrierId=@carrierId ", conn)
|
||||
cmd.Parameters.AddWithValue("@carrierId", carrierId)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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 [tblGVMS_Carriers] SET " & str & " WHERE carrierId=@carrierId ")
|
||||
|
||||
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 tblGVMS_Carriers (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
|
||||
Public Class cGVMS_Routes
|
||||
Property routeId As Integer
|
||||
Property routeDirection As String
|
||||
Property routeEffectiveFrom As Object = Nothing
|
||||
Property departurePortId As Object = Nothing
|
||||
Property arrivalPortId As Object = Nothing
|
||||
Property carrierId As Object = Nothing
|
||||
Property routeEffectiveTo As Object = Nothing
|
||||
|
||||
|
||||
Public hasEntry = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
Sub New()
|
||||
End Sub
|
||||
Sub New(routeId)
|
||||
Me.routeId = routeId
|
||||
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("routeId", routeId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("routeDirection", routeDirection))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("routeEffectiveFrom", routeEffectiveFrom))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("departurePortId", departurePortId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("arrivalPortId", arrivalPortId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("carrierId", carrierId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("routeEffectiveTo", routeEffectiveTo))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Shared Function DELETE_ALL() As Boolean
|
||||
Dim SQL As New SQL
|
||||
Return SQL.doSQL(" DELETE FROM tblGVMS_Routes", "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 tblGVMS_Routes WHERE routeId=@routeId) " &
|
||||
" 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 tblGVMS_Routes WHERE routeId=@routeId ", conn)
|
||||
cmd.Parameters.AddWithValue("@routeId", routeId)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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 [tblGVMS_Routes] SET " & str & " WHERE routeId=@routeId ")
|
||||
|
||||
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 tblGVMS_Routes (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
|
||||
Public Class cGVMS_Ports
|
||||
Property portId As Integer
|
||||
Property portDescription As String
|
||||
Property portRegion As Object = Nothing
|
||||
Property portEffectiveFrom As Object = Nothing
|
||||
Property chiefPortCode As Object = Nothing
|
||||
Property cdsPortCode As Object = Nothing
|
||||
Property officeOfTransitCustomsOfficeCode As Object = Nothing
|
||||
Property portEffectiveTo As Object = Nothing
|
||||
Property portCountryCode As Object = Nothing
|
||||
Property isOperatingArrivedExportsProcess As Boolean
|
||||
|
||||
|
||||
Public hasEntry = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
Sub New(portId)
|
||||
Me.portId = portId
|
||||
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("portId", portId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("portDescription", portDescription))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("portRegion", portRegion))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("portEffectiveFrom", portEffectiveFrom))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chiefPortCode", chiefPortCode))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("cdsPortCode", cdsPortCode))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("officeOfTransitCustomsOfficeCode", officeOfTransitCustomsOfficeCode))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("portEffectiveTo", portEffectiveTo))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("portCountryCode", portCountryCode))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("isOperatingArrivedExportsProcess", isOperatingArrivedExportsProcess))
|
||||
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Shared Function DELETE_ALL() As Boolean
|
||||
Dim SQL As New SQL
|
||||
Return SQL.doSQL(" DELETE FROM tblGVMS_Ports", "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 tblGVMS_Ports WHERE portId=@portId) " &
|
||||
" 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 tblGVMS_Ports WHERE portId=@portId ", conn)
|
||||
cmd.Parameters.AddWithValue("@portId", portId)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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 [tblGVMS_Ports] SET " & str & " WHERE portId=@portId ")
|
||||
|
||||
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 tblGVMS_Ports (" & 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
|
||||
131
VERAG_PROG_ALLGEMEIN/Classes/cGelangensbestaetigung.vb
Normal file
131
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 li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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
|
||||
|
||||
150
VERAG_PROG_ALLGEMEIN/Classes/cGesamtsicherheitsPositionen.vb
Normal file
150
VERAG_PROG_ALLGEMEIN/Classes/cGesamtsicherheitsPositionen.vb
Normal file
@@ -0,0 +1,150 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cGesamtsicherheitsPositionen
|
||||
|
||||
Property gsp_gspPosId As Integer
|
||||
Property gsp_gsId As Object = Nothing
|
||||
Property gsp_gsNr As Object = Nothing
|
||||
Property gsp_warenwert As Object = Nothing
|
||||
Property gsp_sicherheitsbetrag As Object = Nothing
|
||||
Property gsp_freitext As Object = Nothing
|
||||
Property gsp_art As Object = Nothing
|
||||
Property gsp_avisoId As Object = Nothing
|
||||
Property gsp_ust As Object = Nothing
|
||||
Property gsp_filialenNr As Object = Nothing
|
||||
Property gsp_abfertigungsNr As Object = Nothing
|
||||
Property gsp_ATCNr As String
|
||||
Property gsp_erstellungsdatum As DateTime
|
||||
Property gsp_isPosRundungsdiff As Boolean
|
||||
|
||||
Property gsp_datum As Object = Nothing
|
||||
|
||||
Public hasEntry = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New(gsp_gsId, gsp_gspPosId)
|
||||
Me.gsp_gsId = gsp_gsId
|
||||
Me.gsp_gspPosId = gsp_gspPosId
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
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("gsp_gspPosId", gsp_gspPosId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gsp_gsId", gsp_gsId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gsp_gsNr", gsp_gsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gsp_warenwert", gsp_warenwert))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gsp_sicherheitsbetrag", gsp_sicherheitsbetrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gsp_freitext", gsp_freitext))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gsp_art", gsp_art))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gsp_avisoId", gsp_avisoId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gsp_ust", gsp_ust))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gsp_filialenNr", gsp_filialenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gsp_abfertigungsNr", gsp_abfertigungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gsp_ATCNr", gsp_ATCNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gsp_erstellungsdatum", gsp_erstellungsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gsp_datum", gsp_datum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gsp_isPosRundungsdiff", gsp_isPosRundungsdiff))
|
||||
|
||||
|
||||
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 tblGesamtsicherheitsPositionen WHERE gsp_gspPosId=@gsp_gspPosId AND gsp_gsId=@gsp_gsId ) " &
|
||||
" 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 tblGesamtsicherheitsPositionen WHERE gsp_gspPosId=@gsp_gspPosId AND gsp_gsId=@gsp_gsId ", conn)
|
||||
cmd.Parameters.AddWithValue("@gsp_gspPosId", gsp_gspPosId)
|
||||
cmd.Parameters.AddWithValue("@gsp_gsId", gsp_gsId)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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 [tblGesamtsicherheitsPositionen] SET " & str & " WHERE gsp_gspPosId=@gsp_gspPosId AND gsp_gsId=@gsp_gsId")
|
||||
|
||||
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 [tblGesamtsicherheitsPositionen] (" & 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()
|
||||
SQL.doSQL("delete from [tblGesamtsicherheitsPositionen] where gsp_gsId = '" & gsp_gsId & "' AND gsp_gspPosId = '" & gsp_gspPosId & "' ", "AVISO")
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
146
VERAG_PROG_ALLGEMEIN/Classes/cGestellungsgarantien.vb
Normal file
146
VERAG_PROG_ALLGEMEIN/Classes/cGestellungsgarantien.vb
Normal file
@@ -0,0 +1,146 @@
|
||||
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 Function SAVEOBJECT() 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 "
|
||||
|
||||
gg_Id = SQL.doSQLVarListID(gg_Id, sqlstr, "FMZOLL", , list)
|
||||
Return gg_Id
|
||||
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 li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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
VERAG_PROG_ALLGEMEIN/Classes/cGestellungsmitteilung.vb
Normal file
313
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 li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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 li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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
|
||||
167
VERAG_PROG_ALLGEMEIN/Classes/cGrenzstelle.vb
Normal file
167
VERAG_PROG_ALLGEMEIN/Classes/cGrenzstelle.vb
Normal file
@@ -0,0 +1,167 @@
|
||||
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cGrenzstelle
|
||||
Property grz_Grenzstelle As String
|
||||
|
||||
Property grz_BezeichnungCBO As String
|
||||
Property grz_Bezeichnung As String
|
||||
Property grz_Firma As String
|
||||
Property grz_Cluster As Object = Nothing
|
||||
Property grz_Reihenfolge As Integer
|
||||
Property grz_Warenort As Boolean
|
||||
Property grz_Zollamt As Boolean
|
||||
Property grz_Aktiv As Boolean
|
||||
Property grz_ZollamtDST As Object = Nothing
|
||||
Property grz_ZollamtBezeichnung As Object = Nothing
|
||||
|
||||
|
||||
|
||||
Public hasEntry As Boolean = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
|
||||
End Sub
|
||||
Sub New(grz_Grenzstelle As String)
|
||||
Me.grz_Grenzstelle = grz_Grenzstelle
|
||||
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("grz_Grenzstelle", grz_Grenzstelle,, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("grz_BezeichnungCBO", grz_BezeichnungCBO))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("grz_Bezeichnung", grz_Bezeichnung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("grz_Firma", grz_Firma))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("grz_Cluster", grz_Cluster))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("grz_Reihenfolge", grz_Reihenfolge))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("grz_Warenort", grz_Warenort))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("grz_Zollamt", grz_Zollamt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("grz_Aktiv", grz_Aktiv))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("grz_ZollamtDST", grz_ZollamtDST))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("grz_ZollamtBezeichnung", grz_ZollamtBezeichnung))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
'Public Shared Function LOADByBezeichnung(grz_Bezeichnung) As cGrenzstelle
|
||||
' Try
|
||||
' Dim GRZ As New cGrenzstelle
|
||||
|
||||
' Using conn As SqlConnection = SQL.GetNewOpenConnectionAVISO()
|
||||
' MsgBox("SELECT * FROM tblGrenzstelle WHERE grz_Bezeichnung=@grz_Bezeichnung " & grz_Bezeichnung)
|
||||
' Using cmd As New SqlCommand("SELECT * FROM tblGrenzstelle WHERE grz_Bezeichnung=@grz_Bezeichnung ", conn)
|
||||
' cmd.Parameters.AddWithValue("@grz_Bezeichnung", grz_Bezeichnung)
|
||||
' Dim dr = cmd.ExecuteReader()
|
||||
' If dr.Read Then
|
||||
' For Each li In GRZ.getParameterList()
|
||||
' Dim propInfo As PropertyInfo = GRZ.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
' If dr.Item(li.Text) Is DBNull.Value Then
|
||||
' propInfo.SetValue(GRZ, Nothing)
|
||||
' Else
|
||||
' propInfo.SetValue(GRZ, dr.Item(li.Text))
|
||||
' End If
|
||||
|
||||
' Next
|
||||
' GRZ.hasEntry = True
|
||||
' End If
|
||||
' dr.Close()
|
||||
' End Using
|
||||
' Return GRZ
|
||||
' 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 tblGrenzstelle WHERE grz_Grenzstelle=@grz_Grenzstelle) " &
|
||||
" 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 tblGrenzstelle WHERE grz_Grenzstelle=@grz_Grenzstelle ", conn)
|
||||
cmd.Parameters.AddWithValue("@grz_Grenzstelle", grz_Grenzstelle)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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 [tblGrenzstelle] SET " & str & " WHERE grz_Grenzstelle=@grz_Grenzstelle ")
|
||||
|
||||
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 tblGrenzstelle (" & 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
VERAG_PROG_ALLGEMEIN/Classes/cHandlingssaetzeIntern.vb
Normal file
88
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
|
||||
408
VERAG_PROG_ALLGEMEIN/Classes/cKunde.vb
Normal file
408
VERAG_PROG_ALLGEMEIN/Classes/cKunde.vb
Normal file
@@ -0,0 +1,408 @@
|
||||
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()
|
||||
|
||||
End Sub
|
||||
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 Not hasEntry Then
|
||||
'Prüfung Neuanlage:
|
||||
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
|
||||
If checkEORI() Then ERROR_TXT = "Die EORI Nummer existiert bereits!" & vbNewLine & "Bitte prüfen, damit es zu keiner doppelten Erfassung des Kunden kommt." : Return False
|
||||
End If
|
||||
Return True
|
||||
End Function
|
||||
Function checkEORI() As Boolean
|
||||
If If(EORITIN, String.Empty) <> String.Empty Then
|
||||
If SQL.getValueTxtBySql("SELECT COUNT(*) FROM Kunden WHERE EORITIN='" & EORITIN & "' AND kunden.FilialenNr='" & FilialenNr & "' ", "FMZOLL") > 0 Then
|
||||
Return True
|
||||
End If
|
||||
End If
|
||||
Return False
|
||||
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 = 0 '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 li In getParameterList()
|
||||
' Me.GetType.GetProperty(l.Scalarvariable) = dr.Item(l.Text)
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
' MsgBox(l.Text)
|
||||
' MsgBox(propInfo.PropertyType.ToString)
|
||||
' propInfo.SetValue(GetType(Object), l.Text)
|
||||
|
||||
'propInfo.SetValue(Me, l.Text)
|
||||
|
||||
' Try
|
||||
test = li.Text
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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 Shared Function LOAD_ByEORI(EORI) As cKunde
|
||||
Dim test = ""
|
||||
Dim KUNDE As New cKunde()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM Kunden INNER JOIN Filialen on Filialen.FilialenNr=Kunden.FilialenNr WHERE EORITIN=@EORITIN and ( '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA.Replace("ATILLA", "VERAG") & "' IN (Filialen.Firma,Filialen.Cluster)) ", conn)
|
||||
cmd.Parameters.AddWithValue("@EORITIN", EORI)
|
||||
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In KUNDE.getParameterList()
|
||||
' Me.GetType.GetProperty(l.Scalarvariable) = dr.Item(l.Text)
|
||||
Dim propInfo As PropertyInfo = KUNDE.GetType.GetProperty(li.Scalarvariable)
|
||||
' MsgBox(l.Text)
|
||||
' MsgBox(propInfo.PropertyType.ToString)
|
||||
' propInfo.SetValue(GetType(Object), l.Text)
|
||||
|
||||
'propInfo.SetValue(Me, l.Text)
|
||||
|
||||
' Try
|
||||
test = li.Text
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(KUNDE, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(KUNDE, dr.Item(li.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
|
||||
KUNDE.hasEntry = True
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Return KUNDE
|
||||
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 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
VERAG_PROG_ALLGEMEIN/Classes/cKundenAufschubkonten.vb
Normal file
245
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 li In LIST
|
||||
If Not li.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 aa In LIST
|
||||
ktoNr &= aa.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 li In KTO.getParameterList()
|
||||
Dim propInfo As PropertyInfo = KTO.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(KTO, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(KTO, dr.Item(li.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 li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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 li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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
|
||||
171
VERAG_PROG_ALLGEMEIN/Classes/cKundenBesonderheiten.vb
Normal file
171
VERAG_PROG_ALLGEMEIN/Classes/cKundenBesonderheiten.vb
Normal file
@@ -0,0 +1,171 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cKundenBesonderheiten_LIST
|
||||
Sub New(KundenNr, Optional hervorheben = Nothing, Optional kdb_kategorie_in = Nothing)
|
||||
LOAD(KundenNr, hervorheben, kdb_kategorie_in)
|
||||
End Sub
|
||||
Public LIST As New List(Of cKundenBesonderheiten)
|
||||
Public Sub LOAD(KundenNr, Optional hervorheben = Nothing, Optional kdb_kategorie_in = Nothing)
|
||||
LIST.Clear()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblKundenBesonderheiten WHERE kdb_KundenNr=@kdb_KundenNr " & If(hervorheben IsNot Nothing, " AND [kdb_hervorheben]=@kdb_hervorheben ", "") & If(kdb_kategorie_in IsNot Nothing, " AND [kdb_kategorie] IN (" & kdb_kategorie_in & ") ", ""), conn)
|
||||
cmd.Parameters.AddWithValue("@kdb_KundenNr", KundenNr)
|
||||
If hervorheben IsNot Nothing Then cmd.Parameters.AddWithValue("@kdb_hervorheben", CBool(hervorheben))
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim BH As New cKundenBesonderheiten
|
||||
For Each li In BH.getParameterList()
|
||||
Dim propInfo As PropertyInfo = BH.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(BH, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(BH, dr.Item(li.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
LIST.Add(BH)
|
||||
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 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 li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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
VERAG_PROG_ALLGEMEIN/Classes/cKundenDatenblatt.vb
Normal file
132
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 li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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
|
||||
269
VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb
Normal file
269
VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb
Normal file
@@ -0,0 +1,269 @@
|
||||
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_Export_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_CreditSaveBonitaetsklasse As Object = Nothing
|
||||
Property kde_CreditSaveBonitaetsIndex As Object = Nothing
|
||||
Property kde_CreditSaveBonitaetsScore As Object = Nothing
|
||||
|
||||
Property kde_CreditSaveId As String = ""
|
||||
Property kde_CreditSaveNo As String = ""
|
||||
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 = True
|
||||
Property kde_InfoAuftragsNr As Object = Nothing
|
||||
Property kde_KundeFremdspedition As Boolean = False
|
||||
Property kde_verzolltBei As Object = Nothing
|
||||
Property kde_KundeFremdspeditionExport As Boolean = False
|
||||
Property kde_verzolltBeiExport 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
|
||||
Property kde_UIDMehrfachverwendung As Boolean = False
|
||||
Property kde_Abrechnung_SendungsdatenAusSTB As Boolean = False
|
||||
Property kde_EORIgeprueftAm As Object = Nothing
|
||||
Property kde_AdressZusatz As Object = Nothing
|
||||
Property kde_abweichendesZZVL As Object = Nothing
|
||||
Property kde_HRNr As Object = Nothing
|
||||
Property kde_Kapital As Object = Nothing
|
||||
Property kde_KapitalWaehrung As Object = Nothing
|
||||
Property kde_GruendungsDatum As Object = Nothing
|
||||
Property kde_WechselBetrag As Object = Nothing
|
||||
Property kde_WechselGueltigBis As Object = Nothing
|
||||
Property kde_WechselErhaltenAm As Object = Nothing
|
||||
Property kde_BankgarantielErhaltenAm As Object = Nothing
|
||||
Property kde_WechselBlanko As Boolean = False
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
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_Export_Art", EmailFreigabe_Export_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_KundeFremdspeditionExport", kde_KundeFremdspeditionExport))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_verzolltBeiExport", kde_verzolltBeiExport))
|
||||
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))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_CreditSaveBonitaetsklasse", kde_CreditSaveBonitaetsklasse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_CreditSaveBonitaetsIndex", kde_CreditSaveBonitaetsIndex))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_CreditSaveBonitaetsScore", kde_CreditSaveBonitaetsScore))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_CreditSaveId", kde_CreditSaveId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Abrechnung_SendungsdatenAusSTB", kde_Abrechnung_SendungsdatenAusSTB))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_CreditSaveNo", kde_CreditSaveNo))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_UIDMehrfachverwendung", kde_UIDMehrfachverwendung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_EORIgeprueftAm", kde_EORIgeprueftAm))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_AdressZusatz", kde_AdressZusatz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_abweichendesZZVL", kde_abweichendesZZVL))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_HRNr", kde_HRNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Kapital", kde_Kapital))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_KapitalWaehrung", kde_KapitalWaehrung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_GruendungsDatum", kde_GruendungsDatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_WechselBetrag", kde_WechselBetrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_WechselGueltigBis", kde_WechselGueltigBis))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_WechselErhaltenAm", kde_WechselErhaltenAm))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_BankgarantielErhaltenAm", kde_BankgarantielErhaltenAm))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_WechselBlanko", kde_WechselBlanko))
|
||||
|
||||
|
||||
|
||||
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 li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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
|
||||
317
VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb
Normal file
317
VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb
Normal file
@@ -0,0 +1,317 @@
|
||||
|
||||
|
||||
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_EmailCC As Object = Nothing
|
||||
Property kkd_EmailBCC 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
|
||||
Property kkd_Ort As Object = Nothing
|
||||
Property kkd_PLZ As Object = Nothing
|
||||
Property kkd_Adresse As Object = Nothing
|
||||
Property kkd_GebDatum As Object = Nothing
|
||||
Property kkd_Land As Object = Nothing
|
||||
Property kkd_Passgueltigbis As Object = Nothing
|
||||
Property kkd_Firmenname As Object = Nothing
|
||||
Property kkd_Geburtsort As Object = Nothing
|
||||
Property kkd_Geburtsland 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_EmailCC", kkd_EmailCC))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_EmailBCC", kkd_EmailBCC))
|
||||
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))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Adresse", kkd_Adresse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Ort", kkd_Ort))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_PLZ", kkd_PLZ))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_GebDatum", kkd_GebDatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Land", kkd_Land))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Passgueltigbis", kkd_Passgueltigbis))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Firmenname", kkd_Firmenname))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Geburtsort", kkd_Geburtsort))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Geburtsland", kkd_Geburtsland))
|
||||
|
||||
|
||||
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 li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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 li In KD_LIST.LIST
|
||||
If li.kkd_kkaBez = bez Then Return li.kkd_Email
|
||||
Next
|
||||
End If
|
||||
Return ""
|
||||
End Function
|
||||
Shared Function getMailAdressCC(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 li In KD_LIST.LIST
|
||||
If li.kkd_kkaBez = bez Then Return li.kkd_EmailCC
|
||||
Next
|
||||
End If
|
||||
Return ""
|
||||
End Function
|
||||
Shared Function getMailAdressBCC(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 li In KD_LIST.LIST
|
||||
If li.kkd_kkaBez = bez Then Return li.kkd_EmailBCC
|
||||
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
VERAG_PROG_ALLGEMEIN/Classes/cKundenSDL.vb
Normal file
141
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 li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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
VERAG_PROG_ALLGEMEIN/Classes/cKundenVermerk.vb
Normal file
280
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 li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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
|
||||
147
VERAG_PROG_ALLGEMEIN/Classes/cKundenVertraege.vb
Normal file
147
VERAG_PROG_ALLGEMEIN/Classes/cKundenVertraege.vb
Normal file
@@ -0,0 +1,147 @@
|
||||
|
||||
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 Function SAVEOBJECT() 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 "
|
||||
|
||||
kv_Id = SQL.doSQLVarListID(kv_Id, sqlstr, "FMZOLL", , list)
|
||||
Return kv_Id
|
||||
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 li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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
|
||||
155
VERAG_PROG_ALLGEMEIN/Classes/cKundenVollmachten.vb
Normal file
155
VERAG_PROG_ALLGEMEIN/Classes/cKundenVollmachten.vb
Normal file
@@ -0,0 +1,155 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cKundenVollmachten
|
||||
|
||||
Property kdvm_Id As Integer
|
||||
Property kdvm_KundenNr As Object = Nothing
|
||||
Property kdvm_kdvmaId As Object = Nothing
|
||||
Property kdvm_erhalten As Boolean = False
|
||||
Property kdvm_erhalten_Datum As Object = Nothing
|
||||
Property kdvm_Info As String
|
||||
Property kdvm_datenarchivId As Object = Nothing
|
||||
Property kdvm_archiviert As Boolean = False
|
||||
Property kdvm_gueltig_bis As Object = Nothing
|
||||
Property kdvm_gueltig_ab As Object = Nothing
|
||||
Property kdvm_vermerk As Object = Nothing
|
||||
Property kdvm_geloescht As Boolean = False
|
||||
Property kdvm_emailId As Object = Nothing
|
||||
|
||||
Public hasEntry = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New(kdvm_Id)
|
||||
Me.kdvm_Id = kdvm_Id
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
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("kdvm_Id", kdvm_Id,, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdvm_KundenNr", kdvm_KundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdvm_kdvmaId", kdvm_kdvmaId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdvm_erhalten", kdvm_erhalten))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdvm_erhalten_Datum", kdvm_erhalten_Datum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdvm_Info", kdvm_Info))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdvm_datenarchivId", kdvm_datenarchivId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdvm_archiviert", kdvm_archiviert))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdvm_gueltig_bis", kdvm_gueltig_bis))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdvm_gueltig_ab", kdvm_gueltig_ab))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdvm_vermerk", kdvm_vermerk))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdvm_geloescht", kdvm_geloescht))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdvm_emailId", kdvm_emailId))
|
||||
|
||||
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 tblKundenVollmachten WHERE kdvm_Id=@kdvm_Id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
Public Function SAVEVM() As Integer
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblKundenVollmachten WHERE kdvm_Id=@kdvm_Id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
kdvm_Id = SQL.doSQLVarListID(kdvm_Id, sqlstr, "FMZOLL", , list)
|
||||
Return kdvm_Id
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
hasEntry = False
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblKundenVollmachten WHERE kdvm_Id=@kdvm_Id ", conn)
|
||||
cmd.Parameters.AddWithValue("@kdvm_Id", kdvm_Id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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 [tblKundenVollmachten] SET " & str & " WHERE kdvm_Id=@kdvm_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 tblKundenVollmachten (" & 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
|
||||
|
||||
|
||||
172
VERAG_PROG_ALLGEMEIN/Classes/cLanguageText.vb
Normal file
172
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 li In LIST
|
||||
If li.tlan_Id = tlan_Id And li.tlan_language = tlan_language Then
|
||||
Return li.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 li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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
VERAG_PROG_ALLGEMEIN/Classes/cLeistungen.vb
Normal file
163
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 li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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
VERAG_PROG_ALLGEMEIN/Classes/cLeistungenBUKonten.vb
Normal file
127
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 li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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
VERAG_PROG_ALLGEMEIN/Classes/cMessangerListender.vb
Normal file
482
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
|
||||
1120
VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb
Normal file
1120
VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb
Normal file
File diff suppressed because it is too large
Load Diff
452
VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb
Normal file
452
VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb
Normal file
@@ -0,0 +1,452 @@
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
|
||||
Public Class cMitarbeiter
|
||||
Property mit_id As Integer
|
||||
Property mit_username As String = ""
|
||||
Property mit_abweichenderAnzeigename 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_telefonnr As String = ""
|
||||
Property mit_email As String = ""
|
||||
Property mit_emailprivat 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_EZOLL_SB_UNISPED 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_ChatEasteregg2 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_fotoHover1_DocId As Object = Nothing
|
||||
Property mit_fotoHover2_DocId As Object = Nothing
|
||||
Property mit_sprache As String = "DE"
|
||||
Property mit_fakturierungsgruppe As String = ""
|
||||
Property mit_CSuser As Object = Nothing
|
||||
Property mit_CSpwd As Object = Nothing
|
||||
Property mit_PersonalNr As Object = Nothing
|
||||
Property mit_timasId As Object = Nothing
|
||||
Property mit_ATGRNAccessCode_AT51FP7 As Object = Nothing
|
||||
Property mit_ATGRNAccessCode_AT52VA6 As Object = Nothing
|
||||
Property mit_Sprachkentnisse As Object = Nothing
|
||||
Property mit_homeoffice As Boolean = False
|
||||
Property mit_timasNichtStempeln As Boolean = False
|
||||
Property mit_ausstempelnBeiBeenden As Boolean = False
|
||||
|
||||
|
||||
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_abweichenderAnzeigename", mit_abweichenderAnzeigename))
|
||||
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_telefonnr", mit_telefonnr))
|
||||
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_EZOLL_SB_UNISPED", mit_EZOLL_SB_UNISPED))
|
||||
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_ChatEasteregg2", mit_ChatEasteregg2))
|
||||
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_fotoHover1_DocId", mit_fotoHover1_DocId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_fotoHover2_DocId", mit_fotoHover2_DocId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_sprache", mit_sprache))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_fakturierungsgruppe", mit_fakturierungsgruppe))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_CSuser", mit_CSuser))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_CSpwd", mit_CSpwd))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_PersonalNr", mit_PersonalNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_timasId", mit_timasId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_ATGRNAccessCode_AT51FP7", mit_ATGRNAccessCode_AT51FP7))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_ATGRNAccessCode_AT52VA6", mit_ATGRNAccessCode_AT52VA6))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_Sprachkentnisse", mit_Sprachkentnisse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_homeoffice", mit_homeoffice))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_timasNichtStempeln", mit_timasNichtStempeln))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_emailprivat", mit_emailprivat))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_ausstempelnBeiBeenden", mit_ausstempelnBeiBeenden))
|
||||
|
||||
|
||||
|
||||
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, Optional isTimas As Boolean = False) As Boolean
|
||||
Dim sqlstr As String = "SELECT * FROM tblMitarbeiter WHERE " & IIf(isTimas, "mit_timasId = " & id & "", "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_abweichenderAnzeigename = dr.Item("mit_abweichenderAnzeigename")
|
||||
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")
|
||||
If Not dr.Item("mit_telefonnr") Is DBNull.Value Then Me.mit_telefonnr = dr.Item("mit_telefonnr")
|
||||
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_EZOLL_SB_UNISPED") Is DBNull.Value Then Me.mit_EZOLL_SB_UNISPED = dr.Item("mit_EZOLL_SB_UNISPED")
|
||||
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")
|
||||
Me.mit_ChatEasteregg2 = dr.Item("mit_ChatEasteregg2")
|
||||
|
||||
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_fotoHover1_DocId") Is DBNull.Value Then Me.mit_fotoHover1_DocId = dr.Item("mit_fotoHover1_DocId")
|
||||
If Not dr.Item("mit_fotoHover2_DocId") Is DBNull.Value Then Me.mit_fotoHover2_DocId = dr.Item("mit_fotoHover2_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")
|
||||
If Not dr.Item("mit_fakturierungsgruppe") Is DBNull.Value Then Me.mit_fakturierungsgruppe = dr.Item("mit_fakturierungsgruppe")
|
||||
If Not dr.Item("mit_CSuser") Is DBNull.Value Then Me.mit_CSuser = dr.Item("mit_CSuser")
|
||||
If Not dr.Item("mit_CSpwd") Is DBNull.Value Then Me.mit_CSpwd = dr.Item("mit_CSpwd")
|
||||
If dr.Item("mit_PersonalNr") IsNot DBNull.Value Then Me.mit_PersonalNr = dr.Item("mit_PersonalNr")
|
||||
If dr.Item("mit_timasId") IsNot DBNull.Value Then Me.mit_timasId = dr.Item("mit_timasId")
|
||||
If Not dr.Item("mit_ATGRNAccessCode_AT51FP7") Is DBNull.Value Then Me.mit_ATGRNAccessCode_AT51FP7 = dr.Item("mit_ATGRNAccessCode_AT51FP7")
|
||||
If Not dr.Item("mit_ATGRNAccessCode_AT52VA6") Is DBNull.Value Then Me.mit_ATGRNAccessCode_AT52VA6 = dr.Item("mit_ATGRNAccessCode_AT52VA6")
|
||||
If Not dr.Item("mit_Sprachkentnisse") Is DBNull.Value Then Me.mit_Sprachkentnisse = dr.Item("mit_Sprachkentnisse")
|
||||
Me.mit_homeoffice = dr.Item("mit_homeoffice")
|
||||
Me.mit_timasNichtStempeln = dr.Item("mit_timasNichtStempeln")
|
||||
If Not dr.Item("mit_emailprivat") Is DBNull.Value Then Me.mit_emailprivat = dr.Item("mit_emailprivat")
|
||||
Me.mit_ausstempelnBeiBeenden = dr.Item("mit_ausstempelnBeiBeenden")
|
||||
|
||||
|
||||
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
|
||||
|
||||
|
||||
Public Shared Function getAccessCodeFrom_GRN(GRN)
|
||||
Select Case If(GRN, "")
|
||||
Case "05AT510000G000FP7" : Return If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_ATGRNAccessCode_AT51FP7, "")
|
||||
Case "16AT520000G000VA6" : Return If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_ATGRNAccessCode_AT52VA6, "")
|
||||
End Select
|
||||
Return ""
|
||||
End Function
|
||||
End Class
|
||||
155
VERAG_PROG_ALLGEMEIN/Classes/cNCTSGestellungsadressen.vb
Normal file
155
VERAG_PROG_ALLGEMEIN/Classes/cNCTSGestellungsadressen.vb
Normal file
@@ -0,0 +1,155 @@
|
||||
|
||||
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_ATANr As Object = Nothing
|
||||
Property nga_firma As Object = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Property nga_Aenderungsdatum As Date = Now
|
||||
Property nga_gestellungsMail As Object = Nothing
|
||||
|
||||
|
||||
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_ATANr", nga_ATANr))
|
||||
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))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_gestellungsMail", nga_gestellungsMail))
|
||||
|
||||
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 li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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
|
||||
126
VERAG_PROG_ALLGEMEIN/Classes/cNCTSRouten.vb
Normal file
126
VERAG_PROG_ALLGEMEIN/Classes/cNCTSRouten.vb
Normal file
@@ -0,0 +1,126 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
|
||||
Public Class cNCTSRouten
|
||||
Property nctsr_id As Integer
|
||||
Property nctsr_von As Object = Nothing
|
||||
Property nctsr_von_region As Object = Nothing
|
||||
Property nctsr_nach As Object = Nothing
|
||||
Property nctsr_dauer_in_tagen As Integer
|
||||
Property nctsr_route As Object = Nothing
|
||||
Property nctsr_transportmittel As Object = Nothing
|
||||
|
||||
Public hasEntry = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New(nctsr_id)
|
||||
Me.nctsr_id = nctsr_id
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
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("nctsr_id", nctsr_id,, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsr_von", nctsr_von))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsr_von_region", nctsr_von_region))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsr_nach", nctsr_nach))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsr_dauer_in_tagen", nctsr_dauer_in_tagen))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsr_route", nctsr_route))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsr_transportmittel", nctsr_transportmittel))
|
||||
|
||||
|
||||
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 tblNTCSRouten WHERE nctsr_id=@nctsr_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 tblNTCSRouten WHERE nctsr_id=@nctsr_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@nctsr_id", nctsr_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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 [tblNTCSRouten] SET " & str & " WHERE nctsr_id=@nctsr_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 tblNTCSRouten (" & 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
|
||||
|
||||
|
||||
1497
VERAG_PROG_ALLGEMEIN/Classes/cNCTS_TR.vb
Normal file
1497
VERAG_PROG_ALLGEMEIN/Classes/cNCTS_TR.vb
Normal file
File diff suppressed because it is too large
Load Diff
139
VERAG_PROG_ALLGEMEIN/Classes/cNCTS_TR_Nachrichten.vb
Normal file
139
VERAG_PROG_ALLGEMEIN/Classes/cNCTS_TR_Nachrichten.vb
Normal file
@@ -0,0 +1,139 @@
|
||||
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cNCTS_TR_Nachrichten
|
||||
Property nctsNr_id As Integer
|
||||
Property nctsNr_nctsId As Integer
|
||||
Property nctsNr_typ As String
|
||||
Property nctsNr_GUID As Object = Nothing
|
||||
Property nctsNr_MRN As Object = Nothing
|
||||
Property nctsNr_LRN As Object = Nothing
|
||||
Property nctsNr_path As String
|
||||
Property nctsNr_tstmp As Date = Now
|
||||
|
||||
Public hasEntry = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
Sub New()
|
||||
|
||||
End Sub
|
||||
Sub New(nctsNr_id)
|
||||
Me.nctsNr_id = nctsNr_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("nctsNr_id", nctsNr_id,, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsNr_nctsId", nctsNr_nctsId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsNr_typ", nctsNr_typ))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsNr_GUID", nctsNr_GUID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsNr_MRN", nctsNr_MRN))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsNr_LRN", nctsNr_LRN))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsNr_path", nctsNr_path))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsNr_tstmp", nctsNr_tstmp))
|
||||
|
||||
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 tblNCTS_TR_Nachrichten WHERE nctsNr_id=@nctsNr_id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Dim ncts_IdTMP = nctsNr_id
|
||||
ncts_IdTMP = SQL.doSQLVarListID(ncts_IdTMP, sqlstr, "FMZOLL", , list, , errHinweis)
|
||||
If nctsNr_id <= 0 Then nctsNr_id = ncts_IdTMP
|
||||
Return nctsNr_id > 0
|
||||
|
||||
' 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 tblNCTS_TR_Nachrichten WHERE nctsNr_id=@nctsNr_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@nctsNr_id", nctsNr_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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 updatePath(nr_id As Integer, path As String) As String
|
||||
Try
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
SQL.doSQL(" UPDATE [tblNCTS_TR_Nachrichten] SET nctsNr_path='" & path & "' WHERE nctsNr_id='" & nr_id & "' ", "FMZOLL")
|
||||
|
||||
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 [tblNCTS_TR_Nachrichten] SET " & str & " WHERE nctsNr_id=@nctsNr_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 tblNCTS_TR_Nachrichten (" & 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
|
||||
156
VERAG_PROG_ALLGEMEIN/Classes/cOffenePostenDVO.vb
Normal file
156
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
|
||||
175
VERAG_PROG_ALLGEMEIN/Classes/cOffene_Posten.vb
Normal file
175
VERAG_PROG_ALLGEMEIN/Classes/cOffene_Posten.vb
Normal file
@@ -0,0 +1,175 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cOffene_Posten
|
||||
|
||||
|
||||
|
||||
Property OP_ID As Object = Nothing
|
||||
Property Kontonummer As Object = Nothing
|
||||
Property Kontoname As Object = Nothing
|
||||
Property Belegnummer As Object = Nothing
|
||||
Property Belegdatum As Object = Nothing
|
||||
Property Fälligkeitsdatum As Object = Nothing
|
||||
Property Skontodatum As Object = Nothing
|
||||
Property Skontoprozent As Object = Nothing
|
||||
Property Bruttobetrag As Object = Nothing
|
||||
Property Waehrung As Object = Nothing
|
||||
Property Steuersatz As Object = Nothing
|
||||
Property Gesamtausstand As Object = Nothing
|
||||
Property Steuersatz2 As Object = Nothing
|
||||
Property Ausstand2 As Object = Nothing
|
||||
Property Buchungstext As Object = Nothing
|
||||
Property Bemerkung As Object = Nothing
|
||||
Property Mahnstufe As Object = Nothing
|
||||
Property Mahndatum As Object = Nothing
|
||||
Property Gegenkonto As Object = Nothing
|
||||
Property Status As Object = Nothing
|
||||
Property KumSaldoEUR As Object = Nothing
|
||||
|
||||
Property Firma_ID 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))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("OP_ID", OP_ID))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kontonummer", Kontonummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kontoname", Kontoname))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Belegnummer", Belegnummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Belegdatum", Belegdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Fälligkeitsdatum", Fälligkeitsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Skontodatum", Skontodatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Skontoprozent", Skontoprozent))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bruttobetrag", Bruttobetrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Waehrung", Waehrung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuersatz", (Steuersatz))) '.ToString("N2")))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gesamtausstand", Gesamtausstand))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuersatz2", Steuersatz2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Ausstand2", Ausstand2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Buchungstext", Buchungstext))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bemerkung", Bemerkung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Mahnstufe", Mahnstufe))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Mahndatum", Mahndatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gegenkonto", Gegenkonto))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Status", Status))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KumSaldoEUR", KumSaldoEUR))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_ID", Firma_ID))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Public Shared Function DELETE_ALL() As Boolean
|
||||
Dim SQL As New SQL
|
||||
Return SQL.doSQL("DELETE FROM [Offene Posten]", "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] 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 Function INSERT() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
|
||||
OP_ID = SQL.doSQLVarListID(OP_ID, getInsertCmd(), "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] WHERE OP_ID=@OP_ID ", conn)
|
||||
cmd.Parameters.AddWithValue("@OP_ID", OP_ID)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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] 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] (" & 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] WITH(updlock,serializable) WHERE OP_ID=" & Me.OP_ID
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
170
VERAG_PROG_ALLGEMEIN/Classes/cOffene_Posten_DVO.vb
Normal file
170
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 li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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
|
||||
737
VERAG_PROG_ALLGEMEIN/Classes/cOfferte.vb
Normal file
737
VERAG_PROG_ALLGEMEIN/Classes/cOfferte.vb
Normal file
@@ -0,0 +1,737 @@
|
||||
|
||||
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 SSMA_TimeStamp As Object = Nothing
|
||||
Property Art 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))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Art", Art))
|
||||
|
||||
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
|
||||
Property SSMA_TimeStamp 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
|
||||
|
||||
Public Class cOfferteArchiv
|
||||
|
||||
Property OfID As Integer
|
||||
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 SSMA_TimeStamp As Object = Nothing
|
||||
Property Art 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("OfID", OfID, , True))
|
||||
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))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SSMA_TimeStamp", SSMA_TimeStamp))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Art", Art))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
Public Function UPDATE() As Boolean
|
||||
|
||||
Dim sqlstr = " BEGIN " & getUpdateCmd() & " End "
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
OfID = SQL.doSQLVarListID(OfID, sqlstr, "FMZOLL", , list)
|
||||
Return OfID
|
||||
End Function
|
||||
|
||||
Public Function SAVERETURNID() As Integer
|
||||
|
||||
Dim sqlstr = " BEGIN " & getInsertCmd() & " End "
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
OfID = SQL.doSQLVarListID(OfID, sqlstr, "FMZOLL", , list)
|
||||
Return OfID
|
||||
End Function
|
||||
|
||||
|
||||
Public Sub LOAD(KundenNr, OffertenNr, loadPos)
|
||||
Try
|
||||
POSITIONEN.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("Select * FROM tblOffertenArchiv 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 OffertenpositionenArchiv WHERE KundenNr=@KundenNr and OffertenNr=@OffertenNr ", conn)
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblOffertenpositionenArchiv WHERE OfID=@OfID ", conn)
|
||||
cmd.Parameters.AddWithValue("@OfId", Me.OfID)
|
||||
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 OffertenArchiv 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 tblOffertenArchiv (" & 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 [OffertenArchiv] SET " & str & " WHERE IfID=@OfID ")
|
||||
|
||||
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 [OffertenpositionenArchiv] 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 cOffertPositionArchiv
|
||||
|
||||
Property OfID As Integer
|
||||
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
|
||||
Property SSMA_TimeStamp 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("OfID", OfID))
|
||||
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))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SSMA_TimeStamp", SSMA_TimeStamp))
|
||||
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 tblOffertenpositionenArchiv (" & 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
|
||||
166
VERAG_PROG_ALLGEMEIN/Classes/cOriginalATR.vb
Normal file
166
VERAG_PROG_ALLGEMEIN/Classes/cOriginalATR.vb
Normal file
@@ -0,0 +1,166 @@
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cOrigianlATR
|
||||
Property atr_id As Integer
|
||||
|
||||
Property atr_documentNr As Object = Nothing
|
||||
Property atr_erfassungsdatum As Date
|
||||
Property atr_Sachbearbeiter As String
|
||||
Property atr_mitId As Integer
|
||||
Property atr_absender As Object = Nothing
|
||||
Property atr_empfaenger As Object = Nothing
|
||||
Property atr_empfaengerkdnr As Integer = -1
|
||||
Property atr_absenderkdnr As Integer = -1
|
||||
Property atr_austellungsdatum As Object = Nothing
|
||||
Property atr_AvisoId As Integer = -1
|
||||
Property atr_SendungsId As Integer = -1
|
||||
Property atr_LKW As Object = Nothing
|
||||
Property atr_dsId As Object = Nothing
|
||||
Property atr_DHL_ReferenzNr As Object = Nothing
|
||||
Property atr_location As Object = Nothing
|
||||
Property atr_info As Object = Nothing
|
||||
Property atr_erhalenDatum As Object = Nothing
|
||||
Property atr_erhalten_Art As Object = Nothing
|
||||
Property atr_FilialenNr As Integer = -1
|
||||
Property atr_AbfertigungsNr As Integer = -1
|
||||
Property atr_anhID As Integer = -1
|
||||
|
||||
|
||||
Public hasEntry = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
|
||||
End Sub
|
||||
Sub New(atr_id)
|
||||
Me.atr_id = atr_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("atr_id", atr_id,, True))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_documentNr", atr_documentNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_erfassungsdatum", atr_erfassungsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_Sachbearbeiter", atr_Sachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_mitId", atr_mitId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_absender", atr_absender))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_empfaenger", atr_empfaenger))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_austellungsdatum", atr_austellungsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_AvisoId", atr_AvisoId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_SendungsId", atr_SendungsId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_LKW", atr_LKW))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_dsId", atr_dsId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_DHL_ReferenzNr", atr_DHL_ReferenzNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_location", atr_location))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_info", atr_info))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_erhalenDatum", atr_erhalenDatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_erhalten_Art", atr_erhalten_Art))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_FilialenNr", atr_FilialenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_AbfertigungsNr", atr_AbfertigungsNr))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_absenderkdnr", atr_absenderkdnr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_empfaengerkdnr", atr_empfaengerkdnr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_anhID", atr_anhID))
|
||||
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Me.atr_mitId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
||||
Me.atr_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblOriginalATR WHERE atr_id=@atr_id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
|
||||
End Function
|
||||
Public Function DELETE() As Boolean
|
||||
|
||||
Dim sqlstr = " DELETE tblOriginalATR WHERE atr_id='" & atr_id & "'"
|
||||
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
hasEntry = False
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblOriginalATR WHERE atr_id=@atr_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@atr_id", atr_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
hasEntry = True
|
||||
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 [tblOriginalATR] SET " & str & " WHERE atr_id=@atr_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 tblOriginalATR (" & 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
|
||||
91
VERAG_PROG_ALLGEMEIN/Classes/cPDFWriteValues.vb
Normal file
91
VERAG_PROG_ALLGEMEIN/Classes/cPDFWriteValues.vb
Normal file
@@ -0,0 +1,91 @@
|
||||
|
||||
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 page 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, Optional ByVal page As Integer = 1)
|
||||
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
|
||||
Me.page = page
|
||||
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 ReadOnly Property getPage() As Object
|
||||
Get
|
||||
Return page
|
||||
End Get
|
||||
End Property
|
||||
|
||||
' Public Overrides Function ToString() As Object
|
||||
' Return mText
|
||||
' End Function
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
105
VERAG_PROG_ALLGEMEIN/Classes/cParameter.vb
Normal file
105
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
|
||||
142
VERAG_PROG_ALLGEMEIN/Classes/cParkzeiten.vb
Normal file
142
VERAG_PROG_ALLGEMEIN/Classes/cParkzeiten.vb
Normal file
@@ -0,0 +1,142 @@
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
Imports Org.BouncyCastle.Utilities
|
||||
|
||||
Public Class cParkzeiten
|
||||
Property ParkzeitID As Integer
|
||||
Property Laufende_Nr As Object = Nothing
|
||||
Property Von As DateTime
|
||||
Property Bis As DateTime
|
||||
Property Dauer As String
|
||||
Property Dauer_Minuten As Integer
|
||||
Property Kennzeichen As String
|
||||
Property TarifArt As String
|
||||
Property KartenNr As String
|
||||
Property Bereich As String
|
||||
Property KundenNr As Object = Nothing
|
||||
|
||||
|
||||
Public hasEntry = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
|
||||
End Sub
|
||||
Sub New(ParkzeitID)
|
||||
Me.ParkzeitID = ParkzeitID
|
||||
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("ParkzeitID", ParkzeitID,, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Laufende_Nr", Laufende_Nr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Von", Von))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bis", Bis))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Dauer", Dauer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Dauer_Minuten", Dauer_Minuten))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kennzeichen", Kennzeichen))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TarifArt", TarifArt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KartenNr", KartenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bereich", Bereich))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KundenNr", 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 Parkzeiten WHERE ParkzeitID=@ParkzeitID) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Return SQL.doSQLVarList(sqlstr, "PARKZEIT", , list)
|
||||
End Function
|
||||
|
||||
Public Function INSERT_EXISTS() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF NOT EXISTS(SELECT * FROM Parkzeiten WHERE cast(Kennzeichen as varchar)=@Kennzeichen and Von=@Von and Bis=@Bis) " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Return SQL.doSQLVarList(sqlstr, "PARKZEIT", , list)
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
hasEntry = False
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionPARKZEIT()
|
||||
Using cmd As New SqlCommand("SELECT * FROM Parkzeiten WHERE ParkzeitID=@ParkzeitID ", conn)
|
||||
cmd.Parameters.AddWithValue("@ParkzeitID", ParkzeitID)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
hasEntry = True
|
||||
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 [Parkzeiten] SET " & str & " WHERE ParkzeitID=@ParkzeitID ")
|
||||
|
||||
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 Parkzeiten (" & 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
|
||||
203
VERAG_PROG_ALLGEMEIN/Classes/cPostversand.vb
Normal file
203
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 li In VK.getParameterList()
|
||||
Dim propInfo As PropertyInfo = VK.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(VK, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(VK, dr.Item(li.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 li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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
VERAG_PROG_ALLGEMEIN/Classes/cProgrammeUpdate.vb
Normal file
254
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 li In cProgrammeUpdate.getParameterList(UD)
|
||||
Dim propInfo As PropertyInfo = UD.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(UD, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(UD, dr.Item(li.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 li In LIST_DEST
|
||||
If li.pud_filePathFolder = file.pud_filePathFolder And li.pud_fileName = file.pud_fileName And li.pud_file_Size = file.pud_file_Size And li.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 li In LIST_SOURCE
|
||||
If li.pud_filePathFolder = file.pud_filePathFolder And li.pud_fileName = file.pud_fileName And li.pud_file_Size = file.pud_file_Size And li.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 System.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 System.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 System.IO.Directory.Exists(dirNameReplace_DEST & "\" & f.pud_filePathFolder) Then '.Replace("\\", "\")
|
||||
System.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
|
||||
System.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("\\", "\")
|
||||
System.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 System.IO.DirectoryInfo, ByRef dirNameReplace As String, ByRef LIST As List(Of VERAG_PROG_ALLGEMEIN.cProgrammeUpdate), ignoreFilesBeginWith As String())
|
||||
Dim oSubDir As System.IO.DirectoryInfo
|
||||
Dim FI As System.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
VERAG_PROG_ALLGEMEIN/Classes/cQSTeam.vb
Normal file
247
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 li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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 li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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
|
||||
271
VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb
Normal file
271
VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb
Normal file
@@ -0,0 +1,271 @@
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.IO
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cRMC
|
||||
Property rmc_id As Integer
|
||||
Property rmc_kdNr As Object = Nothing
|
||||
Property rmc_kdName As Object = Nothing
|
||||
Property rmc_UID As Object = Nothing
|
||||
Property rmc_landKZ As Object = Nothing
|
||||
Property rmc_landBezeichnung As Object = Nothing
|
||||
Property rmc_reDatum As Object = Nothing
|
||||
Property rmc_reNr As Object = Nothing
|
||||
Property rmc_betragNetto As Object = Nothing
|
||||
Property rmc_betragBrutto As Object = Nothing
|
||||
Property rmc_betragMWST As Object = Nothing
|
||||
Property rmc_waehrung As Object = Nothing
|
||||
Property rmc_euroBrutto As Object = Nothing
|
||||
Property rmc_file As Object = Nothing
|
||||
Property rmc_fileNr As Object = Nothing
|
||||
Property rmc_importDatum As DateTime = Now
|
||||
Property rmc_version As Object = Nothing
|
||||
Property rmc_pdfFileName As Object = Nothing
|
||||
Property rmc_daId As Object = Nothing
|
||||
Property rmc_archiviertDatum As Object
|
||||
Property rmc_archiv As Boolean = False
|
||||
Property rmc_fibuNr As Boolean = False
|
||||
Property rmc_sammelReNr As Object = Nothing
|
||||
|
||||
Public hasEntry = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
|
||||
End Sub
|
||||
|
||||
Sub New(rmc_kdNr, rmc_reNr)
|
||||
Me.rmc_kdNr = rmc_kdNr
|
||||
Me.rmc_reNr = rmc_reNr
|
||||
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("rmc_id", rmc_id))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_kdNr", rmc_kdNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_kdName", rmc_kdName))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_UID", rmc_UID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_landKZ", rmc_landKZ))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_landBezeichnung", rmc_landBezeichnung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_reDatum", rmc_reDatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_reNr", rmc_reNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_betragNetto", rmc_betragNetto))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_betragBrutto", rmc_betragBrutto))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_waehrung", rmc_waehrung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_euroBrutto", rmc_euroBrutto))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_file", rmc_file))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_fileNr", rmc_fileNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_importDatum", rmc_importDatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_version", rmc_version))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_pdfFileName", rmc_pdfFileName))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_daId", rmc_daId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_archiv", rmc_archiv))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_archiviertDatum", rmc_archiviertDatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_fibuNr", rmc_fibuNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_sammelReNr", rmc_sammelReNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_betragMWST", rmc_betragMWST))
|
||||
|
||||
|
||||
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 tblRMCImport WHERE rmc_kdNr=@rmc_kdNr AND rmc_reNr = @rmc_reNr and rmc_archiv is null ) " &
|
||||
" 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 tblRMCImport WHERE rmc_kdNr=@rmc_kdNr AND rmc_reNr = @rmc_reNr", conn)
|
||||
cmd.Parameters.AddWithValue("@rmc_kdNr", rmc_kdNr)
|
||||
cmd.Parameters.AddWithValue("@rmc_reNr", rmc_reNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
hasEntry = True
|
||||
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 tblRMCImport SET " & str & " WHERE rmc_kdNr=@rmc_kdNr AND rmc_reNr = @rmc_reNr ")
|
||||
|
||||
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 tblRMCImport (" & 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
|
||||
|
||||
|
||||
Public Shared Function GET_Antraege_RMC(ByRef dt As DataTable, von As Date, bis As Date, KundenNr As Integer, LandKZ As String, Optional Archiv As Object = Nothing) As Boolean
|
||||
Try
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
|
||||
Using cmd As New SqlCommand(" SELECT rmc_reDatum,rmc_kdNr,[rmc_reNr],sum([rmc_betragNetto])[rmc_betragNetto],sum([rmc_betragMWST])[rmc_betragMWST] ,sum([rmc_betragBrutto] )[rmc_betragBrutto], [rmc_waehrung], sum([rmc_euroBrutto])[rmc_euroBrutto] FROM [tblRMCImport]
|
||||
INNER JOIN Adressen as adr on rmc_kdNr=adr.[WölflKundenNr]
|
||||
where cast(rmc_reDatum as date) between @von and @bis and AdressenNr=@AdressenNr
|
||||
AND rmc_landKZ ='" & LandKZ & "'" & If(Archiv, " And rmc_archiv =@Archiv ", "") & "
|
||||
group by rmc_reDatum,rmc_kdNr,[rmc_reNr],[rmc_waehrung]
|
||||
having sum([rmc_betragMWST])>0
|
||||
order by rmc_reDatum", conn)
|
||||
|
||||
cmd.Parameters.AddWithValue("@von", von)
|
||||
cmd.Parameters.AddWithValue("@bis", bis)
|
||||
cmd.Parameters.AddWithValue("@AdressenNr", KundenNr)
|
||||
If Archiv IsNot Nothing Then cmd.Parameters.AddWithValue("@Archiv", If(Archiv, 1, 0))
|
||||
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
dt.Load(dr)
|
||||
'While dr.Read
|
||||
' dt.Load(dr)
|
||||
'End While
|
||||
dr.Close()
|
||||
|
||||
End Using
|
||||
End Using
|
||||
Return True
|
||||
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 UPDATE_ARCHIV(reDat As Date, reNr As Integer, rmc_kdNr As Integer) As Boolean
|
||||
Try
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("reDat", reDat))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("reNr", reNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_kdNr", rmc_kdNr))
|
||||
|
||||
|
||||
Return SQL.doSQLVarList("
|
||||
|
||||
UPDATE [tblRMCImport] set rmc_archiv=1, [rmc_archiviertDatum]=GETDATE()
|
||||
WHERE cast(rmc_reDatum as date) = @reDat and rmc_reNr = @reNr and rmc_kdNr=@rmc_kdNr
|
||||
", "FMZOLL",, list)
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public VERARBEITUNG_PFAD
|
||||
Public ARCHIV_PFAD
|
||||
Public ERROR_PFAD
|
||||
Public ZIEL_PFAD
|
||||
Public FTP_PFAD
|
||||
Public PDFRECHNUNGEN
|
||||
Public API_STRING As String
|
||||
Public API As New DataTable
|
||||
|
||||
Dim Dateiname = ""
|
||||
|
||||
Public Function initImportPfade(programName As String) As Boolean
|
||||
|
||||
|
||||
ERROR_PFAD = cRMC.Paramter.GET_PARAM_ByName("ERROR_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
|
||||
ARCHIV_PFAD = cRMC.Paramter.GET_PARAM_ByName("ARCHIV_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
|
||||
VERARBEITUNG_PFAD = cRMC.Paramter.GET_PARAM_ByName("VERARBEITUNG_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
|
||||
ZIEL_PFAD = cRMC.Paramter.GET_PARAM_ByName("ZIEL_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
|
||||
PDFRECHNUNGEN = cRMC.Paramter.GET_PARAM_ByName("PDFRECHNUNGEN", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
|
||||
If Not System.IO.Directory.Exists(VERARBEITUNG_PFAD) Then System.IO.Directory.CreateDirectory(VERARBEITUNG_PFAD)
|
||||
|
||||
Return Paramter.getFTPConenction(API_STRING, API, programName)
|
||||
|
||||
End Function
|
||||
|
||||
Public Class Paramter
|
||||
|
||||
Shared apiSettingsloaded As Boolean = False
|
||||
Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Shared Function GET_PARAM_ByName(tcParam_name, TESTSYSTEM) As String
|
||||
Return SQL.getValueTxtBySql("SELECT TOP 1 [Param_value] FROM [tblPartnersystem_Paramter] WHERE Param_system='RMC' AND [Param_name]='" & tcParam_name & "'", , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSYSTEM))
|
||||
End Function
|
||||
|
||||
Shared Function getFTPConenction(ByRef API_String As String, ByRef API As DataTable, ByRef program As String) As Boolean
|
||||
|
||||
API = SQL.loadDgvBySql("SELECT top(1) * FROM tblAPIEinstellungen WHERE api_program='" & program & "' and api_productive ='" & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "0", "1") & "'", "ADMIN")
|
||||
If API.Rows.Count = 0 Then
|
||||
MsgBox("keine gültigen API-Einstellungen für " & program & " gefunden!")
|
||||
Else
|
||||
apiSettingsloaded = True
|
||||
API_String = API.Rows(0).Item("api_url")
|
||||
End If
|
||||
|
||||
Return apiSettingsloaded
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
End Class
|
||||
1013
VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb
Normal file
1013
VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb
Normal file
File diff suppressed because it is too large
Load Diff
261
VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb
Normal file
261
VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb
Normal file
@@ -0,0 +1,261 @@
|
||||
|
||||
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
|
||||
' Property upsize_ts As String
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Public Sub New(SpeditionsbuchNr As String, Buchungsjahr As String)
|
||||
Me.SpeditionsbuchNr = SpeditionsbuchNr
|
||||
Me.Buchungsjahr = Buchungsjahr
|
||||
|
||||
Dim BJ_short = Right(Buchungsjahr, 2)
|
||||
Select Case SpeditionsbuchNr
|
||||
Case 1, 3, 4, 7, 11, 15, 19
|
||||
If Now < CDate("01.02.204") Then BJ_short = Now.ToString("yy") ' Bisher wurde das aktuelle Jahr als Angabe für die RgNr verwendet, zukünftig soll es das BJ sein
|
||||
End Select
|
||||
|
||||
'Default-Werte:
|
||||
'-------------------------------------
|
||||
|
||||
Select Case SpeditionsbuchNr
|
||||
Case 1
|
||||
VonRechnungsNr = BJ_short & "100001"
|
||||
BisRechnungsNr = BJ_short & "199999"
|
||||
Case 3
|
||||
VonRechnungsNr = BJ_short & "300001"
|
||||
BisRechnungsNr = BJ_short & "399999"
|
||||
Case 4 'VERAG AG (DE)
|
||||
VonRechnungsNr = BJ_short & "800001"
|
||||
BisRechnungsNr = BJ_short & "899999"
|
||||
|
||||
Case 7
|
||||
VonRechnungsNr = BJ_short & "700001"
|
||||
BisRechnungsNr = BJ_short & "799999"
|
||||
Case 11
|
||||
VonRechnungsNr = BJ_short & "900001"
|
||||
BisRechnungsNr = BJ_short & "999999"
|
||||
Case 15, 19 'VERAG 360
|
||||
VonRechnungsNr = BJ_short & "200001"
|
||||
BisRechnungsNr = BJ_short & "299999"
|
||||
Case 20
|
||||
VonRechnungsNr = BJ_short & "400001"
|
||||
BisRechnungsNr = BJ_short & "499999"
|
||||
Case 17 'FrontOffice
|
||||
VonRechnungsNr = BJ_short & "500001"
|
||||
BisRechnungsNr = BJ_short & "599999"
|
||||
|
||||
Case 21 ' UNISPED AT
|
||||
VonRechnungsNr = "7000000"
|
||||
BisRechnungsNr = "7999999"
|
||||
Case 22 ' UNISPED DE
|
||||
VonRechnungsNr = "9000000"
|
||||
BisRechnungsNr = "9999999"
|
||||
Case 23 ' UNISPED Zollservice
|
||||
VonRechnungsNr = "5000000"
|
||||
BisRechnungsNr = "5999999"
|
||||
Case 24 ' AMBAR
|
||||
VonRechnungsNr = "0000001"
|
||||
BisRechnungsNr = "9999999"
|
||||
Case 26 ' VERAG-UNISPED
|
||||
VonRechnungsNr = BJ_short & "0000001"
|
||||
BisRechnungsNr = BJ_short & "9999999"
|
||||
End Select
|
||||
LfdRechnungsNr = VonRechnungsNr
|
||||
'-------------------------------------
|
||||
|
||||
LOADANDUPDATE(SpeditionsbuchNr, Buchungsjahr, LfdRechnungsNr, VonRechnungsNr, BisRechnungsNr)
|
||||
'LOAD(SpeditionsbuchNr, Buchungsjahr)
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Public Function INCREASE_RGNR() As Integer
|
||||
If LfdRechnungsNr > 0 Then
|
||||
LfdRechnungsNr += 1
|
||||
Else
|
||||
LfdRechnungsNr = 1
|
||||
End If
|
||||
SAVE()
|
||||
|
||||
'ROWVERSION
|
||||
Return LfdRechnungsNr
|
||||
End Function
|
||||
|
||||
Public Function DECREASE_RGNR() As Integer
|
||||
If LfdRechnungsNr > 0 Then
|
||||
LfdRechnungsNr -= 1
|
||||
End If
|
||||
SAVE()
|
||||
Return LfdRechnungsNr
|
||||
End Function
|
||||
|
||||
|
||||
Public Function CHECK_RGNR(Optional sleep = False) As Integer ' Prüfung, ob RgNr schon vergeben wurde --> dann +1, bis freie Nr.
|
||||
Dim increased = False
|
||||
If sleep Then System.Threading.Thread.Sleep(200) ' nur, um abzuwarten falls parallel eine Nr vergeben wird
|
||||
While SQL.DLookup("count(*)", "Rechnungsausgang", " RechnungsNr='" & LfdRechnungsNr & "' and Firma_ID='" & SpeditionsbuchNr & "' and Buchungsjahr='" & Buchungsjahr & "' ", "FMZOLL", 0) > 0
|
||||
LfdRechnungsNr += 1
|
||||
increased = True
|
||||
System.Threading.Thread.Sleep(50) ' nur, um abzuwarten falls parallel eine Nr vergeben wird
|
||||
End While
|
||||
If increased Then SAVE()
|
||||
Return LfdRechnungsNr
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Shared Function CHECK_RGNR_NEW(aktuelleRechnungsnummer, SpeditionsbuchNr, Buchungsjahr) As Integer ' Prüfung, ob RgNr schon vergeben wurde --> dann +1, bis freie Nr.
|
||||
CHECK_RGNR_NEW = aktuelleRechnungsnummer
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
' If sleep Then System.Threading.Thread.Sleep(200) ' nur, um abzuwarten falls parallel eine Nr vergeben wird
|
||||
While SQL.DLookup("count(*)", "Rechnungsausgang", " RechnungsNr='" & aktuelleRechnungsnummer & "' and Firma_ID='" & SpeditionsbuchNr & "' and Buchungsjahr='" & Buchungsjahr & "' ", "FMZOLL", 0) > 0
|
||||
'Wenn eine Doppelvergabe festgestellt wurde --> LfdRgNr aus DB neu ziehen:...
|
||||
Dim RG_NR As New VERAG_PROG_ALLGEMEIN.cRechnungsnummern(SpeditionsbuchNr, Buchungsjahr)
|
||||
aktuelleRechnungsnummer = RG_NR.LfdRechnungsNr ' --> Die in der DB gespeicherte RgNr wird verwendet
|
||||
CHECK_RGNR_NEW = RG_NR.LfdRechnungsNr ' --> Die in der DB gespeicherte RgNr wird verwendet
|
||||
'RG_NR.INCREASE_RGNR() ' ..... und gelcih wieder hcoh zählen
|
||||
|
||||
System.Threading.Thread.Sleep(50) ' nur, um abzuwarten falls parallel eine Nr vergeben wird
|
||||
End While
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Public Shared Function DECREASE_RGNR_NEW(SpeditionsbuchNr, Buchungsjahr) As Boolean
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Return SQL.doSQL("UPDATE [Rechnungsnummern] SET LfdRechnungsNr=LfdRechnungsNr-1 WHERE SpeditionsbuchNr='" & SpeditionsbuchNr & "' and Buchungsjahr='" & Buchungsjahr & "' ", "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.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)
|
||||
' Dim returnBool = SQL.doSQL(sqlstr, "FMZOLL", , list)
|
||||
' Me.upsize_ts = SQL.DLookup("upsize_ts", "Rechnungsnummern", "SpeditionsbuchNr ='" & Me.SpeditionsbuchNr & "' AND Buchungsjahr='" & Me.Buchungsjahr & "'")
|
||||
' Return returnBool
|
||||
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 WITH(updlock,serializable) 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"))
|
||||
' Me.upsize_ts = dr.Item("upsize_ts")
|
||||
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 LOADANDUPDATE(ByVal SpeditionsbuchNr As String, ByVal Buchungsjahr As String, ByRef LfdRechnungsNr As Integer, ByVal VonRechnungsNr As String, ByVal BisRechnungsNr As String)
|
||||
Try
|
||||
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand(
|
||||
"BEGIN TRAN IF EXISTS (SELECT * FROM Rechnungsnummern WITH(updlock,serializable) WHERE [SpeditionsbuchNr]=@SpeditionsbuchNr AND Buchungsjahr=@Buchungsjahr)
|
||||
BEGIN
|
||||
SELECT [LfdRechnungsNr] FROM dbo.Rechnungsnummern WHERE [SpeditionsbuchNr]=@Speditionsbuchnr AND Buchungsjahr=@Buchungsjahr
|
||||
UPDATE dbo.Rechnungsnummern SET LfdRechnungsNr= (SELECT [LfdRechnungsNr] as newNr FROM dbo.Rechnungsnummern WHERE [SpeditionsbuchNr]=@Speditionsbuchnr AND Buchungsjahr=@Buchungsjahr) + 1 WHERE [SpeditionsbuchNr]=@Speditionsbuchnr AND Buchungsjahr=@Buchungsjahr
|
||||
END;
|
||||
else
|
||||
BEGIN
|
||||
INSERT INTO [Rechnungsnummern](SpeditionsbuchNr,[Buchungsjahr],[VonRechnungsNr],[BisRechnungsNr],[LfdRechnungsNr])
|
||||
OUTPUT @LfdRechnungsNr AS [LfdRechnungsNr]
|
||||
VALUES (@SpeditionsbuchNr, @Buchungsjahr,@VonRechnungsNr,@BisRechnungsNr,@LfdRechnungsNr)
|
||||
END
|
||||
COMMIT TRAN", conn)
|
||||
cmd.Parameters.AddWithValue("@SpeditionsbuchNr", SpeditionsbuchNr)
|
||||
cmd.Parameters.AddWithValue("@Buchungsjahr", Buchungsjahr)
|
||||
cmd.Parameters.AddWithValue("@LfdRechnungsNr", LfdRechnungsNr)
|
||||
cmd.Parameters.AddWithValue("@VonRechnungsNr", VonRechnungsNr)
|
||||
cmd.Parameters.AddWithValue("@BisRechnungsNr", BisRechnungsNr)
|
||||
|
||||
Dim dr = cmd.ExecuteScalar()
|
||||
'Dim dr = cmd.ExecuteReader()
|
||||
LfdRechnungsNr = dr
|
||||
|
||||
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 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
|
||||
323
VERAG_PROG_ALLGEMEIN/Classes/cSDL.vb
Normal file
323
VERAG_PROG_ALLGEMEIN/Classes/cSDL.vb
Normal file
@@ -0,0 +1,323 @@
|
||||
|
||||
|
||||
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
|
||||
Property Nationalitaet As Object = Nothing
|
||||
Property CO2Kategorie 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
|
||||
Dim histroyTemp = SQL.getValueTxtBySql("SELECT TOP 1 History FROM SDL WHERE KundenNr='" & KundenNr & "' AND KfzKennzeichen='" & KfzKennzeichen & "' AND SDLNr='" & SDLNr & "' ORDER BY History DESC", "SDL")
|
||||
Me.History = IIf(histroyTemp <> "", histroyTemp, 0)
|
||||
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))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Nationalitaet", Nationalitaet))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CO2Kategorie", CO2Kategorie))
|
||||
|
||||
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 li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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
|
||||
|
||||
Public Shared Function GET_LIST_WEB(KundenNr As Integer, Optional SDLNr As Integer = -1) As List(Of cSDL)
|
||||
Dim LIST As New List(Of cSDL)
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionSDL()
|
||||
|
||||
Dim sqlWHERE = ""
|
||||
If SDLNr > 0 Then sqlWHERE &= " AND SDLNr =@SDLNr "
|
||||
|
||||
Using cmd As New SqlCommand("SELECT * FROM SDL WHERE KundenNr=@KundenNr " & sqlWHERE & " ORDER BY SDLNr,KfzKennzeichen ", conn)
|
||||
cmd.Parameters.AddWithValue("@KundenNr", KundenNr)
|
||||
cmd.Parameters.AddWithValue("@SDLNr", SDLNr)
|
||||
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim SDL As New cSDL()
|
||||
For Each li In SDL.getParameterList()
|
||||
Dim propInfo As PropertyInfo = SDL.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(SDL, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(SDL, dr.Item(li.Text))
|
||||
End If
|
||||
Next
|
||||
|
||||
LIST.Add(SDL)
|
||||
' If loadPos Then LOAD_POSITIONEN()
|
||||
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 GET_LIST_WEB_LKW(KundenNr As Integer, Optional KfzKennzeichen As String = "") As List(Of cSDL)
|
||||
Dim LIST As New List(Of cSDL)
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionSDL()
|
||||
|
||||
Dim sqlWHERE = ""
|
||||
If KfzKennzeichen <> "" Then sqlWHERE &= " AND KfzKennzeichen =@KfzKennzeichen "
|
||||
|
||||
Using cmd As New SqlCommand("SELECT * FROM SDL WHERE KundenNr=@KundenNr " & sqlWHERE & " ORDER BY SDLNr ", conn)
|
||||
cmd.Parameters.AddWithValue("@KundenNr", KundenNr)
|
||||
cmd.Parameters.AddWithValue("@KfzKennzeichen", KfzKennzeichen)
|
||||
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim SDL As New cSDL()
|
||||
For Each li In SDL.getParameterList()
|
||||
Dim propInfo As PropertyInfo = SDL.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(SDL, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(SDL, dr.Item(li.Text))
|
||||
End If
|
||||
Next
|
||||
|
||||
LIST.Add(SDL)
|
||||
' If loadPos Then LOAD_POSITIONEN()
|
||||
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
|
||||
End Class
|
||||
176
VERAG_PROG_ALLGEMEIN/Classes/cSDL_LKW.vb
Normal file
176
VERAG_PROG_ALLGEMEIN/Classes/cSDL_LKW.vb
Normal file
@@ -0,0 +1,176 @@
|
||||
|
||||
|
||||
|
||||
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()
|
||||
|
||||
End Sub
|
||||
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 li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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
|
||||
|
||||
|
||||
Public Shared Function GET_LIST_WEB(KundenNr As Integer) As List(Of cSDL_LKW)
|
||||
Dim LIST As New List(Of cSDL_LKW)
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionSDL()
|
||||
|
||||
Using cmd As New SqlCommand("SELECT * FROM LKW WHERE KundenNr=@KundenNr ORDER BY KfzKennzeichen ", conn)
|
||||
cmd.Parameters.AddWithValue("@KundenNr", KundenNr)
|
||||
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim SDL_LKW As New cSDL_LKW()
|
||||
For Each li In SDL_LKW.getParameterList()
|
||||
Dim propInfo As PropertyInfo = SDL_LKW.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(SDL_LKW, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(SDL_LKW, dr.Item(li.Text))
|
||||
End If
|
||||
Next
|
||||
|
||||
LIST.Add(SDL_LKW)
|
||||
' If loadPos Then LOAD_POSITIONEN()
|
||||
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
|
||||
|
||||
|
||||
End Class
|
||||
905
VERAG_PROG_ALLGEMEIN/Classes/cSMS.vb
Normal file
905
VERAG_PROG_ALLGEMEIN/Classes/cSMS.vb
Normal file
@@ -0,0 +1,905 @@
|
||||
Imports com.esendex.sdk.messaging
|
||||
Imports com.esendex.sdk.sent
|
||||
Imports com.esendex.sdk.core
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cSMS
|
||||
Dim API_USER_AUTHORIZATION = "040b08e268d340179d922f867816b8a6"
|
||||
|
||||
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_templateID 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
|
||||
|
||||
Property sms_art as string= "SMS"
|
||||
Property whatsApp_status As Object = Nothing
|
||||
Property whatsApp_gatewayId As Object = Nothing
|
||||
Property whatsApp_error As Object = Nothing
|
||||
Property whatsApp_errorCode 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_templateID", sms_templateID))
|
||||
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))
|
||||
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_art", sms_art))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("whatsApp_status", whatsApp_status))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("whatsApp_gatewayId", whatsApp_gatewayId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("whatsApp_error", whatsApp_error))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("whatsApp_errorCode", whatsApp_errorCode))
|
||||
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 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
|
||||
|
||||
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 msg In result.MessageIds
|
||||
Uris &= msg.Uri & ";;"
|
||||
msgIDs &= msg.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 sendWhatsApp(Originator As String) As Boolean
|
||||
' Return sendWhatsAppMessage(Originator)
|
||||
' 'If sendWhatsAppTemplate(Originator) Then
|
||||
' ' Return sendWhatsAppMessage(Originator)
|
||||
' 'End If
|
||||
' 'Return False
|
||||
'End Function
|
||||
Function sendWhatsAppMessage(Originator As String) As Boolean
|
||||
Try
|
||||
VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat()
|
||||
Dim API_STRING = "https://connect.esendex.com"
|
||||
|
||||
Dim rest As New Chilkat.Rest
|
||||
Dim success As Boolean
|
||||
|
||||
Dim bTls As Boolean = True
|
||||
Dim port As Integer = 443
|
||||
Dim bAutoReconnect As Boolean = True
|
||||
success = rest.Connect(API_STRING, port, bTls, bAutoReconnect)
|
||||
If (success <> True) Then
|
||||
Debug.WriteLine("ConnectFailReason: " & rest.ConnectFailReason)
|
||||
Debug.WriteLine(rest.LastErrorText)
|
||||
|
||||
Return False
|
||||
End If
|
||||
|
||||
rest.AddHeader("Content-Type", "application/json")
|
||||
rest.AddHeader("Authorization", API_USER_AUTHORIZATION)
|
||||
'rest.AddHeader("Accept", "application/vnd.hmrc.1.0+json")
|
||||
|
||||
'Dim sbRequestBody As New Chilkat.StringBuilder
|
||||
'json.EmitSb(sbRequestBody)
|
||||
Me.sms_art = "WHATSAPP"
|
||||
|
||||
|
||||
Dim absenderFirma As String = Me.sms_Firma
|
||||
Dim HandyNr As String = Me.sms_Handynummer
|
||||
If HandyNr.ToString.StartsWith("00") Then HandyNr = "+" & HandyNr.Substring(2)
|
||||
|
||||
If Originator = "" Then Originator = absenderFirma
|
||||
If Originator.Length > 11 Then Originator = Originator.Substring(0, 11)
|
||||
|
||||
Dim json As New Chilkat.JsonObject
|
||||
|
||||
'---------------------------------------------
|
||||
Me.sms_Account = "EX0341154" 'WHATSAPP Account
|
||||
|
||||
'Dim successJsonLoad As Boolean = json.Load("
|
||||
' {
|
||||
' ""accountReference"": """ & Me.sms_Account & """,
|
||||
' ""channels"": [
|
||||
' ""WHATSAPP""
|
||||
' ],
|
||||
' ""metadata"":{
|
||||
' ""key"": ""value""
|
||||
' },
|
||||
' ""recipient"": {
|
||||
' ""address"": {
|
||||
' ""msisdn"": """ & HandyNr & """
|
||||
' }
|
||||
' },
|
||||
' ""content"": {
|
||||
' ""body"": {
|
||||
' ""text"": {
|
||||
' ""value"": """ & Me.sms_Nachricht & """
|
||||
' }
|
||||
' }
|
||||
' },
|
||||
' ""channelSettings"": {
|
||||
' ""sms"": {
|
||||
' ""originator"": """ & Originator & """,
|
||||
' ""characterSet"": ""GSM""
|
||||
' }
|
||||
' },
|
||||
' ""expiry"": ""30""
|
||||
' }")
|
||||
|
||||
Dim successJsonLoad As Boolean = json.Load("
|
||||
{
|
||||
""accountReference"": """ & Me.sms_Account & """,
|
||||
""channels"": [
|
||||
""WHATSAPP""
|
||||
],
|
||||
""metadata"":{
|
||||
""key"": ""value""
|
||||
},
|
||||
""recipient"": {
|
||||
""address"": {
|
||||
""msisdn"": """ & HandyNr & """
|
||||
}
|
||||
},
|
||||
""content"": {
|
||||
""body"": {
|
||||
""text"": {
|
||||
""value"": """ & Me.sms_Nachricht & """
|
||||
}
|
||||
}
|
||||
}
|
||||
}")
|
||||
|
||||
If (successJsonLoad <> True) Then
|
||||
MsgBox(json.LastErrorText)
|
||||
Return False
|
||||
End If
|
||||
|
||||
|
||||
Dim sbRequestBody As New Chilkat.StringBuilder
|
||||
json.EmitSb(sbRequestBody)
|
||||
|
||||
'MsgBox(sbRequestBody.ToString)
|
||||
Dim sbResponseBody As New Chilkat.StringBuilder
|
||||
success = rest.FullRequestSb("POST", "/richcontent/v3/send", sbRequestBody, sbResponseBody)
|
||||
If (success <> True) Then
|
||||
Debug.WriteLine(rest.LastErrorText)
|
||||
Return False
|
||||
End If
|
||||
Dim respStatusCode As Integer = rest.ResponseStatusCode
|
||||
|
||||
Me.whatsApp_status = respStatusCode ' 202 = OK - Gesendet
|
||||
|
||||
If (respStatusCode <> 202) Then
|
||||
|
||||
MsgBox(sbResponseBody.GetAsString())
|
||||
|
||||
Return False
|
||||
End If
|
||||
|
||||
|
||||
Dim jsonResp = New Chilkat.JsonObject()
|
||||
jsonResp.LoadSb(sbResponseBody)
|
||||
|
||||
Dim gatewayId = jsonResp.StringOf("gatewayId")
|
||||
Dim Resp_error = jsonResp.StringOf("error")
|
||||
Dim Resp_errorCode = jsonResp.StringOf("errorCode")
|
||||
|
||||
Me.whatsApp_gatewayId = gatewayId
|
||||
MsgBox(gatewayId)
|
||||
If Resp_error <> "" Then Me.whatsApp_error = Resp_error
|
||||
If Resp_errorCode <> "" Then Me.whatsApp_errorCode = Resp_errorCode
|
||||
|
||||
' MsgBox(gatewayId)
|
||||
|
||||
If Not Me.SAVE() Then
|
||||
MsgBox("Fehler: SMS Daten wurden nicht gespeichert!")
|
||||
End If
|
||||
|
||||
|
||||
Return True
|
||||
'productTitle = json.StringOf("product.title");
|
||||
'productBody_html = json.StringOf("product.body_html");
|
||||
'productVendor = json.StringOf("product.vendor");
|
||||
'productProduct_type = json.StringOf("product.product_type");
|
||||
'productCreated_at = json.StringOf("product.created_at");
|
||||
'productHandle = json.StringOf("product.handle");
|
||||
'productUpdated_at = json.StringOf("product.updated_at");
|
||||
'productPublished_at = json.IsNullOf("product.published_at");
|
||||
'productTemplate_suffix = json.IsNullOf("product.template_suffix");
|
||||
'productPublished_scope = json.StringOf("product.published_scope");
|
||||
'productTags = json.StringOf("product.tags");
|
||||
'productImage = json.IsNullOf("product.image");
|
||||
'i = 0;
|
||||
'count_i = json.SizeOfArray("product.variants");
|
||||
'while (i < count_i) {
|
||||
' json.I = i;
|
||||
' id = json.IntOf("product.variants[i].id");
|
||||
' product_id = json.IntOf("product.variants[i].product_id");
|
||||
' title = json.StringOf("product.variants[i].title");
|
||||
' price = json.StringOf("product.variants[i].price");
|
||||
' sku = json.StringOf("product.variants[i].sku");
|
||||
' position = json.IntOf("product.variants[i].position");
|
||||
' grams = json.IntOf("product.variants[i].grams");
|
||||
' inventory_policy = json.StringOf("product.variants[i].inventory_policy");
|
||||
' compare_at_price = json.IsNullOf("product.variants[i].compare_at_price");
|
||||
' fulfillment_service = json.StringOf("product.variants[i].fulfillment_service");
|
||||
' inventory_management = json.IsNullOf("product.variants[i].inventory_management");
|
||||
' option1 = json.StringOf("product.variants[i].option1");
|
||||
' option2 = json.IsNullOf("product.variants[i].option2");
|
||||
' option3 = json.IsNullOf("product.variants[i].option3");
|
||||
' created_at = json.StringOf("product.variants[i].created_at");
|
||||
' updated_at = json.StringOf("product.variants[i].updated_at");
|
||||
' taxable = json.BoolOf("product.variants[i].taxable");
|
||||
' barcode = json.IsNullOf("product.variants[i].barcode");
|
||||
' image_id = json.IsNullOf("product.variants[i].image_id");
|
||||
' inventory_quantity = json.IntOf("product.variants[i].inventory_quantity");
|
||||
' weight = json.IntOf("product.variants[i].weight");
|
||||
' weight_unit = json.StringOf("product.variants[i].weight_unit");
|
||||
' old_inventory_quantity = json.IntOf("product.variants[i].old_inventory_quantity");
|
||||
' requires_shipping = json.BoolOf("product.variants[i].requires_shipping");
|
||||
' i = i + 1;
|
||||
'}
|
||||
Return True
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler beim Senden der WhatsApp-SMS!" & vbNewLine & ex.Message & ex.StackTrace)
|
||||
Return False
|
||||
End Try
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Function sendWhatsAppTemplate(Originator As String, template_ParamMFGAdditional As String) As Boolean
|
||||
Try
|
||||
VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat()
|
||||
Dim API_STRING = "https://connect.esendex.com"
|
||||
|
||||
Dim rest As New Chilkat.Rest
|
||||
Dim success As Boolean
|
||||
|
||||
Dim bTls As Boolean = True
|
||||
Dim port As Integer = 443
|
||||
Dim bAutoReconnect As Boolean = True
|
||||
success = rest.Connect(API_STRING, port, bTls, bAutoReconnect)
|
||||
If (success <> True) Then
|
||||
Debug.WriteLine("ConnectFailReason: " & rest.ConnectFailReason)
|
||||
Debug.WriteLine(rest.LastErrorText)
|
||||
|
||||
Return False
|
||||
End If
|
||||
|
||||
rest.AddHeader("Content-Type", "application/json")
|
||||
rest.AddHeader("Authorization", API_USER_AUTHORIZATION)
|
||||
'rest.AddHeader("Accept", "application/vnd.hmrc.1.0+json")
|
||||
|
||||
'Dim sbRequestBody As New Chilkat.StringBuilder
|
||||
'json.EmitSb(sbRequestBody)
|
||||
Me.sms_art = "WHATSAPP"
|
||||
|
||||
|
||||
Dim mfg = ""
|
||||
Dim location = ""
|
||||
|
||||
Select Case Originator
|
||||
Case "FRONTOFFICE"
|
||||
mfg = "VERAG - UNISPED - IMEX"
|
||||
location = Originator
|
||||
Case Else
|
||||
location = Originator
|
||||
End Select
|
||||
If template_ParamMFGAdditional <> "" Then
|
||||
mfg = template_ParamMFGAdditional & " " & mfg
|
||||
End If
|
||||
|
||||
Dim absenderFirma As String = Me.sms_Firma
|
||||
Dim HandyNr As String = Me.sms_Handynummer.replace(" ", "")
|
||||
If HandyNr.ToString.StartsWith("00") Then HandyNr = "+" & HandyNr.Substring(2)
|
||||
|
||||
If Originator = "" Then Originator = absenderFirma
|
||||
If Originator.Length > 11 Then Originator = Originator.Substring(0, 11)
|
||||
|
||||
Dim json As New Chilkat.JsonObject
|
||||
|
||||
'---------------------------------------------
|
||||
Me.sms_Account = "EX0341154" 'WHATSAPP Account
|
||||
' Dim TemplateId = "e5c1ce77-31a0-4663-9576-be340f73ac1c"
|
||||
|
||||
|
||||
Dim successJsonLoad As Boolean = json.Load("
|
||||
{
|
||||
""accountReference"": """ & Me.sms_Account & """,
|
||||
""channels"": [
|
||||
""WHATSAPP""
|
||||
],
|
||||
""metadata"":{
|
||||
""key"": ""value""
|
||||
},
|
||||
""recipient"": {
|
||||
""variables"": {
|
||||
""mfg"": """ & mfg & """,
|
||||
""location"": """ & location & """
|
||||
},
|
||||
""address"": {
|
||||
""msisdn"": """ & HandyNr & """
|
||||
}
|
||||
},
|
||||
""content"": {
|
||||
""templateId"": """ & Me.sms_templateID & """
|
||||
}
|
||||
}")
|
||||
|
||||
|
||||
If (successJsonLoad <> True) Then
|
||||
' MsgBox(json.LastErrorText)
|
||||
Return False
|
||||
End If
|
||||
|
||||
|
||||
Dim sbRequestBody As New Chilkat.StringBuilder
|
||||
json.EmitSb(sbRequestBody)
|
||||
|
||||
'MsgBox(sbRequestBody.ToString)
|
||||
Dim sbResponseBody As New Chilkat.StringBuilder
|
||||
success = rest.FullRequestSb("POST", "/richcontent/v3/send", sbRequestBody, sbResponseBody)
|
||||
If (success <> True) Then
|
||||
Debug.WriteLine(rest.LastErrorText)
|
||||
Return False
|
||||
End If
|
||||
Dim respStatusCode As Integer = rest.ResponseStatusCode
|
||||
|
||||
Me.whatsApp_status = respStatusCode ' 202 = OK - Gesendet
|
||||
|
||||
If (respStatusCode <> 202) Then
|
||||
|
||||
MsgBox(sbResponseBody.GetAsString())
|
||||
|
||||
Return False
|
||||
End If
|
||||
|
||||
|
||||
Dim jsonResp = New Chilkat.JsonObject()
|
||||
jsonResp.LoadSb(sbResponseBody)
|
||||
|
||||
Dim gatewayId = jsonResp.StringOf("gatewayId")
|
||||
Dim Resp_error = jsonResp.StringOf("error")
|
||||
Dim Resp_errorCode = jsonResp.StringOf("errorCode")
|
||||
|
||||
Me.whatsApp_gatewayId = gatewayId
|
||||
' MsgBox(gatewayId)
|
||||
If Resp_error <> "" Then Me.whatsApp_error = Resp_error
|
||||
If Resp_errorCode <> "" Then Me.whatsApp_errorCode = Resp_errorCode
|
||||
|
||||
' MsgBox(gatewayId)
|
||||
|
||||
If Not Me.SAVE() Then
|
||||
MsgBox("Fehler: WHATSAPP Daten wurden nicht gespeichert!")
|
||||
End If
|
||||
|
||||
|
||||
Return True
|
||||
'productTitle = json.StringOf("product.title");
|
||||
'productBody_html = json.StringOf("product.body_html");
|
||||
'productVendor = json.StringOf("product.vendor");
|
||||
'productProduct_type = json.StringOf("product.product_type");
|
||||
'productCreated_at = json.StringOf("product.created_at");
|
||||
'productHandle = json.StringOf("product.handle");
|
||||
'productUpdated_at = json.StringOf("product.updated_at");
|
||||
'productPublished_at = json.IsNullOf("product.published_at");
|
||||
'productTemplate_suffix = json.IsNullOf("product.template_suffix");
|
||||
'productPublished_scope = json.StringOf("product.published_scope");
|
||||
'productTags = json.StringOf("product.tags");
|
||||
'productImage = json.IsNullOf("product.image");
|
||||
'i = 0;
|
||||
'count_i = json.SizeOfArray("product.variants");
|
||||
'while (i < count_i) {
|
||||
' json.I = i;
|
||||
' id = json.IntOf("product.variants[i].id");
|
||||
' product_id = json.IntOf("product.variants[i].product_id");
|
||||
' title = json.StringOf("product.variants[i].title");
|
||||
' price = json.StringOf("product.variants[i].price");
|
||||
' sku = json.StringOf("product.variants[i].sku");
|
||||
' position = json.IntOf("product.variants[i].position");
|
||||
' grams = json.IntOf("product.variants[i].grams");
|
||||
' inventory_policy = json.StringOf("product.variants[i].inventory_policy");
|
||||
' compare_at_price = json.IsNullOf("product.variants[i].compare_at_price");
|
||||
' fulfillment_service = json.StringOf("product.variants[i].fulfillment_service");
|
||||
' inventory_management = json.IsNullOf("product.variants[i].inventory_management");
|
||||
' option1 = json.StringOf("product.variants[i].option1");
|
||||
' option2 = json.IsNullOf("product.variants[i].option2");
|
||||
' option3 = json.IsNullOf("product.variants[i].option3");
|
||||
' created_at = json.StringOf("product.variants[i].created_at");
|
||||
' updated_at = json.StringOf("product.variants[i].updated_at");
|
||||
' taxable = json.BoolOf("product.variants[i].taxable");
|
||||
' barcode = json.IsNullOf("product.variants[i].barcode");
|
||||
' image_id = json.IsNullOf("product.variants[i].image_id");
|
||||
' inventory_quantity = json.IntOf("product.variants[i].inventory_quantity");
|
||||
' weight = json.IntOf("product.variants[i].weight");
|
||||
' weight_unit = json.StringOf("product.variants[i].weight_unit");
|
||||
' old_inventory_quantity = json.IntOf("product.variants[i].old_inventory_quantity");
|
||||
' requires_shipping = json.BoolOf("product.variants[i].requires_shipping");
|
||||
' i = i + 1;
|
||||
'}
|
||||
Return True
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler beim Senden der WhatsApp-SMS!" & vbNewLine & ex.Message & ex.StackTrace)
|
||||
Return False
|
||||
End Try
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Function checkSMSStatus(Optional silent = False, Optional insertVermerkAviso = True) As String
|
||||
Try
|
||||
|
||||
Select Case Me.sms_Status
|
||||
Case MessageStatus.Submitted, MessageStatus.Sent, MessageStatus.Scheduled, MessageStatus.Connecting, -1
|
||||
'Weiter...
|
||||
Case Else
|
||||
' Bereits finaler Status, keine Abfrage nötig
|
||||
Return Me.sms_Status
|
||||
End Select
|
||||
|
||||
If If(Me.sms_MessageIds, "") = "" Then
|
||||
If Not silent Then MsgBox("Keine MessageId gefunden!")
|
||||
Return False ' Keine MsgId
|
||||
End If
|
||||
|
||||
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 msgStatus = MSG.Status
|
||||
' MsgBox(MSG.Status)
|
||||
'Status in DB Ubdaten
|
||||
Me.sms_Status = msgStatus
|
||||
Me.sms_Sent = MSG.SentAt
|
||||
Me.sms_Delivered = MSG.DeliveredAt
|
||||
|
||||
'If IsDate(MSG.DeliveredAt) Then
|
||||
' Me.sms_Status = 2 ': MsgBox("SENT")
|
||||
'Else
|
||||
' 'MsgBox("NOT SENT")
|
||||
'End If
|
||||
|
||||
If MSG.FailureReason IsNot Nothing Then Me.sms_Failure = MSG.FailureReason.Description
|
||||
Me.SAVE()
|
||||
|
||||
If True Then
|
||||
Try
|
||||
|
||||
|
||||
If Me.sms_AvisoId IsNot Nothing AndAlso IsNumeric(Me.sms_AvisoId) Then
|
||||
Select Case MSG.Status
|
||||
Case MessageStatus.Expired, MessageStatus.Failed, MessageStatus.FailedAuthorisation, MessageStatus.Cancelled, MessageStatus.Rejected
|
||||
'Keine Übermittlung.
|
||||
Dim MaId As Integer = SQL.DLookup("LetzterMitarbeiterId", "Aviso", "AvisoId='" & Me.sms_AvisoId & "' ", "AVISO", -1)
|
||||
If MaId > 0 Then
|
||||
VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(Me.sms_AvisoId, Nothing, 3, "B", MaId, "*SMS Fehler*", 0, "", "Fehler bei der SMS Übermittlung: " & If(Me.sms_Failure, ""))
|
||||
End If
|
||||
End Select
|
||||
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name)
|
||||
|
||||
End Try
|
||||
End If
|
||||
Return msgStatus
|
||||
Catch ex As Exception
|
||||
If Not silent Then MsgBox("Fehler beim Prüfen des SMS Status!" & vbNewLine & ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Function checkWhatsAppStatus(Optional silent = False, Optional insertVermerkAviso = True) As String
|
||||
Try
|
||||
VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat()
|
||||
|
||||
|
||||
Select Case Me.sms_Status
|
||||
Case MessageStatus.Submitted, MessageStatus.Sent, MessageStatus.Scheduled, MessageStatus.Connecting, -1
|
||||
'Weiter...
|
||||
Case Else
|
||||
' Bereits finaler Status, keine Abfrage nötig
|
||||
Return Me.sms_Status
|
||||
End Select
|
||||
|
||||
|
||||
If If(Me.whatsApp_gatewayId, "") = "" Then
|
||||
If Not silent Then MsgBox("Keine MessageId gefunden!")
|
||||
Return Me.sms_Status ' Keine MsgId
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Dim API_STRING = "https://connect.esendex.com"
|
||||
|
||||
Dim rest As New Chilkat.Rest
|
||||
Dim success As Boolean
|
||||
|
||||
Dim bTls As Boolean = True
|
||||
Dim port As Integer = 443
|
||||
Dim bAutoReconnect As Boolean = True
|
||||
success = rest.Connect(API_STRING, port, bTls, bAutoReconnect)
|
||||
If (success <> True) Then
|
||||
If Not silent Then MsgBox("ConnectFailReason: " & rest.ConnectFailReason & vbNewLine & rest.LastErrorText)
|
||||
|
||||
Return Me.sms_Status
|
||||
End If
|
||||
|
||||
rest.AddHeader("Content-Type", "application/json")
|
||||
rest.AddHeader("Authorization", API_USER_AUTHORIZATION)
|
||||
|
||||
|
||||
Dim sbRequestBody As New Chilkat.StringBuilder
|
||||
|
||||
' MsgBox(sbRequestBody.ToString)
|
||||
Dim sbResponseBody As New Chilkat.StringBuilder
|
||||
success = rest.FullRequestSb("GET", "/richcontent/v3/accounts/" & Me.sms_Account & "/messages/" & Me.whatsApp_gatewayId, sbRequestBody, sbResponseBody)
|
||||
If (success <> True) Then
|
||||
If Not silent Then MsgBox(rest.LastErrorText)
|
||||
Return Me.sms_Status
|
||||
End If
|
||||
|
||||
Dim respStatusCode As Integer = rest.ResponseStatusCode
|
||||
|
||||
Me.whatsApp_status = respStatusCode ' 200 Abfrage hat funktioniert
|
||||
' MsgBox(respStatusCode)
|
||||
If (respStatusCode <> 200) Then
|
||||
|
||||
'Fehler --> --> FALLBACK SMS!!!
|
||||
If DateDiff(DateInterval.Minute, Me.sms_Datum, Now) > 10 Then
|
||||
Me.FALLBACK_SMS()
|
||||
End If
|
||||
|
||||
|
||||
' MsgBox(sbResponseBody.GetAsString())
|
||||
If Not silent Then MsgBox("Error: " & respStatusCode)
|
||||
|
||||
Return Me.sms_Status
|
||||
|
||||
End If
|
||||
|
||||
|
||||
Dim jsonResp = New Chilkat.JsonObject()
|
||||
jsonResp.LoadSb(sbResponseBody)
|
||||
' MsgBox(sbResponseBody.ToString)
|
||||
Dim allowVermerk = True
|
||||
|
||||
Dim lastUpdatedUtc = jsonResp.StringOf("lastUpdatedUtc")
|
||||
Dim StatusResp = jsonResp.StringOf("status")
|
||||
|
||||
Select Case StatusResp
|
||||
Case "Submitted"
|
||||
Me.sms_Status = MessageStatus.Submitted
|
||||
|
||||
If DateDiff(DateInterval.Minute, Me.sms_Datum, Now) > 10 Then
|
||||
'--> FALLBACK SMS!!!
|
||||
allowVermerk = False
|
||||
Me.FALLBACK_SMS()
|
||||
End If
|
||||
Case "Delivered"
|
||||
Me.sms_Status = MessageStatus.Delivered
|
||||
Me.sms_Delivered = lastUpdatedUtc
|
||||
Case "Failed"
|
||||
Me.sms_Status = MessageStatus.Failed
|
||||
Dim reason = jsonResp.StringOf("reason")
|
||||
Me.sms_Failure = reason
|
||||
|
||||
'--> FALLBACK SMS!!!
|
||||
allowVermerk = False
|
||||
FALLBACK_SMS()
|
||||
End Select
|
||||
|
||||
Me.SAVE()
|
||||
|
||||
If allowVermerk Then
|
||||
Try
|
||||
|
||||
|
||||
If Me.sms_AvisoId IsNot Nothing AndAlso IsNumeric(Me.sms_AvisoId) Then
|
||||
Select Case StatusResp
|
||||
Case "Failed"
|
||||
'Keine Übermittlung.
|
||||
Dim MaId As Integer = SQL.DLookup("LetzterMitarbeiterId", "Aviso", "AvisoId='" & Me.sms_AvisoId & "' ", "AVISO", -1)
|
||||
If MaId > 0 Then
|
||||
Dim absenderFirma = ""
|
||||
VERAG_PROG_ALLGEMEIN.cSMS.GET_AccountInfo(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, Me.sms_Account, absenderFirma)
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(Me.sms_AvisoId, Nothing, 3, "B", MaId, "*WhatsApp Fehler*", 0, "", "Fehler bei der WhatsApp Übermittlung: " & If(Me.sms_Failure, ""),,, absenderFirma)
|
||||
End If
|
||||
End Select
|
||||
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name)
|
||||
|
||||
End Try
|
||||
End If
|
||||
Return Me.sms_Status
|
||||
Catch ex As Exception
|
||||
If Not silent Then MsgBox("Fehler beim Prüfen des SMS Status!" & vbNewLine & ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Shared Function SEND_StatusSMS(AVISOId As Integer) As Boolean
|
||||
Dim AVISO = cAviso.getAvisoById(AVISOId, "")
|
||||
Return SEND_StatusSMS(AVISO)
|
||||
End Function
|
||||
|
||||
|
||||
Sub FALLBACK_SMS()
|
||||
'--> FALLBACK SMS!!!
|
||||
Me.sms_art = "SMS"
|
||||
Me.sms_Account = GET_AccountByAbsFirma(Me.sms_Firma) ' Ändern, da WhatsApp Account nciht in TR freigeschaltet ist.
|
||||
Me.sms_Status = -1
|
||||
Me.sendSMS()
|
||||
Me.SAVE()
|
||||
End Sub
|
||||
|
||||
Shared Function SEND_StatusSMS(AVISO As cAviso) As Boolean
|
||||
If If(AVISO.FahrerHandy, "") <> "" AndAlso IsNumeric(AVISO.FahrerHandy.trim) Then
|
||||
|
||||
Dim absenderAccount = ""
|
||||
Dim absenderFirma = ""
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cSMS.GET_AccountInfo(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, absenderAccount, absenderFirma)
|
||||
|
||||
|
||||
' If vbYes = MsgBox("Soll die Nachricht gesendet werden?" & vbNewLine & "Handy-Nummer: " & nr, MsgBoxStyle.YesNo) Then
|
||||
Dim SMS = New VERAG_PROG_ALLGEMEIN.cSMS
|
||||
|
||||
|
||||
SMS.sms_Vorwahl = ""
|
||||
SMS.sms_Handynummer = "00436644178557" 'AVISO.FahrerHandy.trim 'txtHandyNummer.Text.Replace(" ", "").Replace("-", "").Replace("/", "")
|
||||
SMS.sms_Nachricht = "Statusmeldung: " & vbNewLine &
|
||||
"https://login.verag.ag/status.aspx?AvisoId=" & VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(AVISO.AvisoID)
|
||||
|
||||
|
||||
SMS.sms_Account = absenderAccount
|
||||
SMS.sms_Firma = absenderFirma
|
||||
SMS.sms_KundenNr = If(AVISO.Frächter_KdNr > 0, AVISO.Frächter_KdNr, Nothing)
|
||||
SMS.sms_Kunde = If(AVISO.Frächter <> "", AVISO.Frächter, Nothing)
|
||||
SMS.sms_Fahrername = Nothing 'If(AVISO.fahrern <> "", FahrerName, Nothing)
|
||||
SMS.sms_AvisoId = AVISO.AvisoID
|
||||
|
||||
If SMS.sendSMS Then
|
||||
Return True
|
||||
End If
|
||||
End If
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Shared Sub GET_AccountInfo(Firma, ByRef absenderAccount, ByRef absenderFirma)
|
||||
|
||||
Select Case Firma'cboFirma._value
|
||||
Case "VERAG" ', "BEIDE"
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung
|
||||
Case "ZOLL", "QS" : absenderAccount = "EX0252513" : absenderFirma = "VERAG Spedition"
|
||||
Case "MDM" : absenderAccount = "EX0252747" : absenderFirma = "VERAG 360"
|
||||
Case Else : absenderAccount = "EX0252513" : absenderFirma = "VERAG Spedition"
|
||||
'Case Else : MsgBox("Fehler bei der Datenprüfung: Abteilung.") : Exit Sub
|
||||
End Select
|
||||
Case "ATILLA" : absenderAccount = "EX0252746" : absenderFirma = "ATILLA Spedition"
|
||||
Case "IMEX" : absenderAccount = "EX0272082" : absenderFirma = "IMEX Spedition"
|
||||
Case "UNISPED" : absenderAccount = "EX0300174" : absenderFirma = "UNISPED Spedition"
|
||||
Case "FRONTOFFICE" : absenderAccount = "EX0300173" : absenderFirma = "FRONT-OFFICE SUBEN"
|
||||
Case "AMBAR" : absenderAccount = "EX0315223" : absenderFirma = "AMBAR"
|
||||
Case Else : MsgBox("Fehler bei der Datenprüfung: Firmendaten.") : Exit Sub
|
||||
End Select
|
||||
|
||||
End Sub
|
||||
|
||||
Shared Function GET_AccountByAbsFirma(absenderFirma)
|
||||
|
||||
Select Case absenderFirma'cboFirma._value
|
||||
Case "VERAG Spedition" : Return "EX0252513"
|
||||
Case "VERAG 360" : Return "EX0252747"
|
||||
Case "ATILLA Spedition" : Return "EX0252746"
|
||||
Case "IMEX Spedition" : Return "EX0272082"
|
||||
Case "UNISPED Spedition" : Return "EX0300174"
|
||||
Case "FRONT-OFFICE SUBEN" : Return "EX0300173"
|
||||
Case "AMBAR" : Return "EX0315223"
|
||||
|
||||
Case Else : Return "EX0300173"
|
||||
End Select
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
263
VERAG_PROG_ALLGEMEIN/Classes/cSendMailAttach.vb
Normal file
263
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 As 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
VERAG_PROG_ALLGEMEIN/Classes/cSendVorkosten.vb
Normal file
129
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 li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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
|
||||
976
VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb
Normal file
976
VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb
Normal file
@@ -0,0 +1,976 @@
|
||||
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_Zollsystem_Land As Object = 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_anzahlHandlingPos 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
|
||||
Property tblSnd_FrachtkostenNichtEU As Object = Nothing
|
||||
Property tblSnd_FrachtkostenGesamt As Object = Nothing
|
||||
|
||||
|
||||
Property tblSnd_AbfertigungTR As Object = Nothing
|
||||
Property tblSnd_AbfertigungTR_MA As Object = Nothing
|
||||
|
||||
|
||||
Property tblSnd_AbfertigungTRAnzahl As Object = Nothing
|
||||
Property tblSnd_AbfertigungTRAnzahlPos As Object = Nothing
|
||||
|
||||
Property tblSnd_Firma As Object = Nothing
|
||||
Property tblSnd_Cluster As Object = Nothing
|
||||
Property tblSnd_ATBFakturieren 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 li In list
|
||||
If li = 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 li In list
|
||||
If li = 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 li In list
|
||||
If li = 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 & "' ) AND tblSnd_Abfertigungsart_ID not in(44) 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,'')='' ) AND tblSnd_Abfertigungsart_ID not in(44) 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, Optional tblSnd_anzahlHandlingPos = 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
|
||||
If tblSnd_anzahlHandlingPos IsNot Nothing Then Me.tblSnd_anzahlHandlingPos = tblSnd_anzahlHandlingPos
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub New(tblSnd_SendungID)
|
||||
LOAD(tblSnd_SendungID)
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Function SAVE(Optional saveStatus = True) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList(saveStatus)
|
||||
'WITH(updlock,serializable)
|
||||
|
||||
tblSnd_Firma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(FilialenNr,, "")
|
||||
tblSnd_Cluster = VERAG_PROG_ALLGEMEIN.cAllgemein.getClusterFromFiliale(FilialenNr,, "")
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM [tblSendungen] WHERE tblSnd_SendungID=@tblSnd_SendungID) " &
|
||||
" BEGIN " & getUpdateCmd(saveStatus) & " 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 Function SET_VGMA() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " UPDATE [tblSendungen] SET tblSnd_VG_MA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "', LetzterMitarbeiterId='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "', LetzterMitarbeiter='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "' 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 Function getKdAtrNr(art As String) As String
|
||||
Try
|
||||
|
||||
' If SND Is Nothing Then Return ""
|
||||
Dim KdNR = -1
|
||||
Dim KdAtrNr = Nothing
|
||||
Select Case art
|
||||
Case "EMPFAENGER" : KdAtrNr = Me.tblSnd_KdAuftragsNrEmpfaenger : KdNR = Me.tblSnd_EmpfaengerKdNr
|
||||
Case "AUFTRAGGEBER" : KdAtrNr = Me.tblSnd_KdAuftragsNr : KdNR = Me.tblSnd_AuftraggeberKdNr
|
||||
Case "FRAECHTER" : KdAtrNr = Me.tblSnd_KdAuftragsNrFrachtfuehrer : KdNR = Me.tblSnd_FrachtfuehrerKdNr
|
||||
Case "AVISIERER" : KdAtrNr = Me.tblSnd_KdAuftragsNrAvisierer : KdNR = Me.tblSnd_AvisiererKdNr
|
||||
End Select
|
||||
|
||||
If If(KdAtrNr, "").Trim <> String.Empty Then
|
||||
Return KdAtrNr
|
||||
Else
|
||||
If Me.tblSnd_EmpfaengerKdNr = KdNR And If(Me.tblSnd_KdAuftragsNrEmpfaenger, "").Trim <> String.Empty Then Return Me.tblSnd_KdAuftragsNrEmpfaenger
|
||||
If Me.tblSnd_AuftraggeberKdNr = KdNR And If(Me.tblSnd_KdAuftragsNr, "").Trim <> String.Empty Then Return Me.tblSnd_KdAuftragsNr
|
||||
If Me.tblSnd_FrachtfuehrerKdNr = KdNR And If(Me.tblSnd_KdAuftragsNrFrachtfuehrer, "").Trim <> String.Empty Then Return Me.tblSnd_KdAuftragsNrFrachtfuehrer
|
||||
If Me.tblSnd_AvisiererKdNr = KdNR And If(Me.tblSnd_KdAuftragsNrAvisierer, "").Trim <> String.Empty Then Return Me.tblSnd_KdAuftragsNrAvisierer
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & " 'cSENDUNGEN ATRNR '", System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
|
||||
End Try
|
||||
Return ""
|
||||
|
||||
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_Zollsystem_Land = SQL.checkNullReturnValue(dr.Item("tblSnd_Zollsystem_Land"), 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_anzahlHandlingPos = SQL.checkNullReturnValue(dr.Item("tblSnd_anzahlHandlingPos"), 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)
|
||||
Me.tblSnd_FrachtkostenNichtEU = SQL.checkNullReturnValue(dr.Item("tblSnd_FrachtkostenNichtEU"), Nothing)
|
||||
Me.tblSnd_FrachtkostenGesamt = SQL.checkNullReturnValue(dr.Item("tblSnd_FrachtkostenGesamt"), Nothing)
|
||||
Me.tblSnd_AbfertigungTR = SQL.checkNullReturnValue(dr.Item("tblSnd_AbfertigungTR"), Nothing)
|
||||
Me.tblSnd_AbfertigungTR_MA = SQL.checkNullReturnValue(dr.Item("tblSnd_AbfertigungTR_MA"), Nothing)
|
||||
Me.tblSnd_AbfertigungTRAnzahl = SQL.checkNullIntegerZero(dr.Item("tblSnd_AbfertigungTRAnzahl"))
|
||||
Me.tblSnd_AbfertigungTRAnzahlPos = SQL.checkNullIntegerZero(dr.Item("tblSnd_AbfertigungTRAnzahlPos"))
|
||||
Me.tblSnd_Firma = SQL.checkNullReturnValue(dr.Item("tblSnd_Firma"), Nothing)
|
||||
Me.tblSnd_Cluster = SQL.checkNullReturnValue(dr.Item("tblSnd_Cluster"), Nothing)
|
||||
Me.tblSnd_ATBFakturieren = SQL.checkNullReturnValue(dr.Item("tblSnd_ATBFakturieren"), 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(Optional saveStatus = True) 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_Zollsystem_Land", tblSnd_Zollsystem_Land))
|
||||
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_anzahlHandlingPos", tblSnd_anzahlHandlingPos))
|
||||
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("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_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))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_FrachtkostenNichtEU", tblSnd_FrachtkostenNichtEU))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_FrachtkostenGesamt", tblSnd_FrachtkostenGesamt))
|
||||
|
||||
'If saveStatus Then --> in getUpdateCmd
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Status", tblSnd_Status,,, Not saveSachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_QS_MA", tblSnd_QS_MA,,, 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("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_AbfertigungTR", tblSnd_AbfertigungTR))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_AbfertigungTR_MA", tblSnd_AbfertigungTR_MA))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_AbfertigungTRAnzahl", tblSnd_AbfertigungTRAnzahl))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_AbfertigungTRAnzahlPos", tblSnd_AbfertigungTRAnzahlPos))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Firma", tblSnd_Firma))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Cluster", tblSnd_Cluster))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_ATBFakturieren", tblSnd_ATBFakturieren))
|
||||
|
||||
'End If
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getUpdateCmd(Optional saveStatus = True) 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
|
||||
Dim jump = False
|
||||
|
||||
If Not saveStatus Then
|
||||
If i.Text = "tblSnd_Status" Then jump = True
|
||||
If i.Text = "tblSnd_QS_MA" Then jump = True
|
||||
If i.Text = "tblSnd_Vorbereitet" Then jump = True
|
||||
If i.Text = "tblSnd_Vorgeschrieben" Then jump = True
|
||||
If i.Text = "tblSnd_VG_MA" Then jump = True
|
||||
If i.Text = "tblSnd_AbklaerungTR" Then jump = True
|
||||
If i.Text = "tblSnd_AbklaerungTR_MA" Then jump = True
|
||||
If i.Text = "tblSnd_AbfertigungTR" Then jump = True
|
||||
If i.Text = "tblSnd_AbfertigungTR_MA" Then jump = True
|
||||
If i.Text = "tblSnd_AbfertigungTRAnzahl" Then jump = True
|
||||
If i.Text = "tblSnd_AbfertigungTRAnzahlPos" Then jump = True
|
||||
End If
|
||||
|
||||
|
||||
If Not jump 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 aa In ABRECHNUNG
|
||||
If Not aa.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 aa In HANDLING
|
||||
If Not aa.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 aa In VORKOSTEN
|
||||
aa.sndvk_sendId = Me.tblSnd_SendungID
|
||||
If Not aa.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")
|
||||
adresse &= SQL.getValueTxtBySql("SELECT Code +' - ' + [Description] FROM tbl_DY_ZollDE_C0141_Zollstellen WHERE Code='" & Me.NCTS_Bestimmungszollstelle & "' AND ((StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE())) order by left(Code,2), Description ", "FMZOLL")
|
||||
End If
|
||||
|
||||
If htmlOptimized Then adresse = adresse.Trim.Replace(vbNewLine, "<br/>")
|
||||
Return adresse.Trim
|
||||
End Function
|
||||
|
||||
Public Function getNCTSATANr(Optional htmlOptimized As Boolean = False) As String
|
||||
Dim ataNr = ""
|
||||
ataNr &= If(Me.tblSnd_ATANr, "") & vbNewLine
|
||||
|
||||
If htmlOptimized Then ataNr = ataNr.Trim.Replace(vbNewLine, "<br/>")
|
||||
Return ataNr.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
|
||||
254
VERAG_PROG_ALLGEMEIN/Classes/cSession.vb
Normal file
254
VERAG_PROG_ALLGEMEIN/Classes/cSession.vb
Normal file
@@ -0,0 +1,254 @@
|
||||
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
|
||||
Property sess_lastActivity As Object = Nothing
|
||||
Property sess_status 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))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_lastActivity", sess_lastActivity))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_status", sess_status))
|
||||
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 li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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))
|
||||
|
||||
sess_lastActivity = Now.AddSeconds(-1 * VERAG_PROG_ALLGEMEIN.cUserActivity.GetLastInputTime_Seconds) ' Letzte UserAktivität
|
||||
'If DateDiff(DateInterval.Minute, sess_lastActivity, Now) > 10 Then
|
||||
' sess_status =
|
||||
'End If
|
||||
|
||||
Return SQL.doSQLVarList(" UPDATE [tblSessions] SET sess_lastRm=GETDATE(),sess_lastActivity='" & sess_lastActivity & "' 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 IS_ONLINE(sess_maId, Optional andIsRealUser = False) As Boolean
|
||||
Try
|
||||
Dim SQL As New SQL
|
||||
Dim where = ""
|
||||
If andIsRealUser Then where = " AND mit_pseudoUser=0 "
|
||||
Dim sess_IdOnline = SQL.getValueTxtBySql("SELECT TOP 1 sess_Id FROM tblSessions where sess_lastRm > dateadd(MINUTE,-2, getdate()) AND sess_maId='" & sess_maId & "' ORDER BY sess_lastActivity DESC,sess_lastRm DESC", "ADMIN",,, -1)
|
||||
If sess_IdOnline > 0 Then
|
||||
Return True
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
Return False
|
||||
|
||||
End Function
|
||||
Public Shared Function IS_ONLINE_Status(sess_maId, Optional andIsRealUser = False) As String
|
||||
Try
|
||||
Dim SQL As New SQL
|
||||
Dim where = ""
|
||||
If andIsRealUser Then where = " AND mit_pseudoUser=0 "
|
||||
Dim sess_IdOnline = SQL.getValueTxtBySql("SELECT TOP 1 sess_lastRm FROM tblSessions where sess_maId='" & sess_maId & "' and sess_lastActivity > dateadd(MINUTE,-120, getdate()) and sess_lastRm > dateadd(MINUTE,-2, getdate()) AND sess_logout is null ORDER BY sess_lastActivity DESC,sess_lastRm DESC", "ADMIN",,, Nothing)
|
||||
If sess_IdOnline IsNot Nothing AndAlso IsDate(sess_IdOnline) AndAlso sess_IdOnline > CDate("01.01.2000") Then
|
||||
If DateDiff(DateInterval.Minute, CDate(sess_IdOnline), Now) > 10 Then
|
||||
Return "AFK"
|
||||
Else
|
||||
Return "ONLINE"
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
Return "OFFLINE"
|
||||
|
||||
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_lastActivity = 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
|
||||
sess_lastActivity = 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(),sess_lastActivity=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
|
||||
'Class cSESSION_STATUS
|
||||
' Shared ONLINE As String =
|
||||
'End Class
|
||||
1153
VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb
Normal file
1153
VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb
Normal file
File diff suppressed because it is too large
Load Diff
285
VERAG_PROG_ALLGEMEIN/Classes/cTextkonserve.vb
Normal file
285
VERAG_PROG_ALLGEMEIN/Classes/cTextkonserve.vb
Normal file
@@ -0,0 +1,285 @@
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cTextkonserve_LIST
|
||||
|
||||
Public LIST As New List(Of cTextkonserve)
|
||||
Public SPRACHENLIST As New List(Of String)
|
||||
Dim SQL As New SQL
|
||||
|
||||
|
||||
Sub New(txt_kategorie As String, txt_sprache As String, txt_FIRMA As String)
|
||||
|
||||
LOAD_LIST(txt_kategorie, txt_sprache, txt_FIRMA)
|
||||
|
||||
End Sub
|
||||
|
||||
Sub New(txt_Type As Integer, txt_sprache As String, txt_FIRMA As String)
|
||||
|
||||
LOAD_LIST_TYPE(txt_Type, txt_sprache, txt_FIRMA)
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Sub New(txt_Type As Integer, txt_sprache As String, FIRMAID As Integer)
|
||||
|
||||
Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(FIRMAID)
|
||||
LOAD_LIST_TYPE(txt_Type, txt_sprache, FIRMA.Firmengruppe)
|
||||
|
||||
End Sub
|
||||
|
||||
Sub New(txt_FIRMA As String)
|
||||
|
||||
LOAD_SPRACHENLIST(txt_FIRMA)
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub LOAD_LIST(txt_kategorie As String, txt_sprache As String, txt_FIRMA As String)
|
||||
Try
|
||||
|
||||
LIST.Clear()
|
||||
Dim sqlSprache As String = ""
|
||||
If txt_sprache <> "" Then sqlSprache = " And txt_sprache = '" & txt_sprache & "'"
|
||||
|
||||
|
||||
For Each r In SQL.loadDgvBySql("Select txt_Id FROM [tblTextkonserve] WHERE txt_kategorie='" & txt_kategorie & "' AND txt_FIRMA = '" & txt_FIRMA & "' and txt_dynMailvorlage = 1" & sqlSprache & " ORDER BY txt_kategorie asc", "FMZOLL").Rows
|
||||
LIST.Add(New VERAG_PROG_ALLGEMEIN.cTextkonserve(r("txt_Id")))
|
||||
Next
|
||||
|
||||
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_TYPE(txt_type As Integer, txt_sprache As String, txt_FIRMA As String)
|
||||
Try
|
||||
|
||||
LIST.Clear()
|
||||
Dim sqlSprache As String = ""
|
||||
If txt_sprache <> "" Then sqlSprache = " And txt_sprache = '" & txt_sprache & "'"
|
||||
|
||||
|
||||
For Each r In SQL.loadDgvBySql("Select txt_Id FROM [tblTextkonserve] WHERE txt_typ='" & txt_type & "' AND txt_FIRMA = '" & txt_FIRMA & "' and txt_dynMailvorlage = 1" & sqlSprache & " ORDER BY txt_kategorie asc", "FMZOLL").Rows
|
||||
LIST.Add(New VERAG_PROG_ALLGEMEIN.cTextkonserve(r("txt_Id")))
|
||||
Next
|
||||
|
||||
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_SPRACHENLIST(txt_FIRMA As String)
|
||||
Try
|
||||
|
||||
SPRACHENLIST.Clear()
|
||||
For Each r In SQL.loadDgvBySql("Select distinct(txt_sprache) FROM [tblTextkonserve] WHERE txt_FIRMA = '" & txt_FIRMA & "' and txt_dynMailvorlage = 1 order by txt_sprache", "FMZOLL").Rows
|
||||
SPRACHENLIST.Add(r("txt_sprache"))
|
||||
Next
|
||||
|
||||
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 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
|
||||
Property txt_dynMailvorlage As Boolean
|
||||
Property txt_letzteAenderungUser As String
|
||||
Property txt_letzteAenderung As DateTime
|
||||
Property txt_sendungsvermerk As Boolean
|
||||
Property txt_sendungsvermerkId As Integer
|
||||
Property txt_sendungsvermerkText As String
|
||||
Property txt_fixerEmpfaengerEmail As String
|
||||
Property txt_typ As Object
|
||||
|
||||
|
||||
|
||||
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))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_dynMailvorlage", txt_dynMailvorlage))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_letzteAenderungUser", txt_letzteAenderungUser))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_letzteAenderung", txt_letzteAenderung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_sendungsvermerk", txt_sendungsvermerk))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_sendungsvermerkId", txt_sendungsvermerkId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_sendungsvermerkText", txt_sendungsvermerkText))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_fixerEmpfaengerEmail", txt_fixerEmpfaengerEmail))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_typ", txt_typ))
|
||||
|
||||
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 li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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 li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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
|
||||
171
VERAG_PROG_ALLGEMEIN/Classes/cTranslate.vb
Normal file
171
VERAG_PROG_ALLGEMEIN/Classes/cTranslate.vb
Normal file
@@ -0,0 +1,171 @@
|
||||
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 and [trs_active]=1 ", 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")
|
||||
T.trs_FirmaID = dr("trs_FirmaID")
|
||||
T.trs_Option = dr("trs_Option")
|
||||
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
|
||||
Property trs_Option As Object = Nothing
|
||||
Property trs_FirmaID As Object = Nothing
|
||||
|
||||
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))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trs_Option", trs_Option))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trs_FirmaID", trs_FirmaID))
|
||||
|
||||
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 AND [trs_active]=1 ", conn)
|
||||
cmd.Parameters.AddWithValue("@trs_id", trs_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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
|
||||
213
VERAG_PROG_ALLGEMEIN/Classes/cTranslateAuto.vb
Normal file
213
VERAG_PROG_ALLGEMEIN/Classes/cTranslateAuto.vb
Normal file
@@ -0,0 +1,213 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Drawing
|
||||
Imports System.Net.NetworkInformation
|
||||
Imports System.Reflection
|
||||
Imports System.Windows.Forms
|
||||
|
||||
Public Class cTranslateAuto_LIST
|
||||
|
||||
Public list As New List(Of cTranslateAuto)
|
||||
Dim trs_progId
|
||||
|
||||
Sub New()
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblTranslateAuto WHERE [trs_active]=1 ", conn)
|
||||
'cmd.Parameters.AddWithValue("@trs_progId", trs_progId)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim T As New cTranslateAuto
|
||||
T.trs_id = dr("trs_id")
|
||||
T.trs_textDE = dr("trs_textDE")
|
||||
T.trs_sprache = dr("trs_sprache")
|
||||
T.trs_text = dr("trs_text")
|
||||
T.trs_active = dr("trs_active")
|
||||
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
|
||||
|
||||
|
||||
Shared Sub DoToAllControls(ByVal m_Control As Control, LAN As String, Optional LAN_SRC As String = "DE")
|
||||
For Each ctrl As Control In m_Control.Controls
|
||||
If ctrl.Controls.Count > 0 Then
|
||||
DoToAllControls(ctrl, LAN, LAN_SRC)
|
||||
End If
|
||||
'If ctrl.GetType().Equals(GetType(ToolStrip)) Then
|
||||
' For Each item As ToolStripItem In DirectCast(ctrl, ToolStrip).Items
|
||||
' MsgBox(item.Name)
|
||||
' Next
|
||||
'End If
|
||||
'MsgBox(ctrl.Name)
|
||||
|
||||
If (TypeOf ctrl Is System.Windows.Forms.Label) Then
|
||||
DirectCast(ctrl, System.Windows.Forms.Label).Text = VERAG_PROG_ALLGEMEIN.cTranslateAuto._Transle(ctrl.Text, LAN, LAN_SRC)
|
||||
End If
|
||||
If (TypeOf ctrl Is System.Windows.Forms.Button) Or (TypeOf ctrl Is VERAG_PROG_ALLGEMEIN.FlatButton) Then
|
||||
DirectCast(ctrl, System.Windows.Forms.Button).Text = VERAG_PROG_ALLGEMEIN.cTranslateAuto._Transle(ctrl.Text, LAN, LAN_SRC)
|
||||
End If
|
||||
If (TypeOf ctrl Is System.Windows.Forms.TabPage) Then
|
||||
DirectCast(ctrl, System.Windows.Forms.TabPage).Text = VERAG_PROG_ALLGEMEIN.cTranslateAuto._Transle(ctrl.Text, LAN, LAN_SRC)
|
||||
End If
|
||||
If (TypeOf ctrl Is System.Windows.Forms.RadioButton) Or (TypeOf ctrl Is VERAG_PROG_ALLGEMEIN.MyRadioButton) Then
|
||||
DirectCast(ctrl, System.Windows.Forms.RadioButton).Text = VERAG_PROG_ALLGEMEIN.cTranslateAuto._Transle(ctrl.Text, LAN, LAN_SRC)
|
||||
End If
|
||||
If (TypeOf ctrl Is System.Windows.Forms.GroupBox) Then
|
||||
DirectCast(ctrl, System.Windows.Forms.GroupBox).Text = VERAG_PROG_ALLGEMEIN.cTranslateAuto._Transle(ctrl.Text, LAN, LAN_SRC)
|
||||
End If
|
||||
If (TypeOf ctrl Is System.Windows.Forms.ComboBox) Or (TypeOf ctrl Is VERAG_PROG_ALLGEMEIN.MyComboBox) Then
|
||||
'DirectCast(obj, System.Windows.Forms.Label).Text = TXT.trs_text
|
||||
End If
|
||||
|
||||
Next
|
||||
End Sub
|
||||
End Class
|
||||
Public Class cTranslateAuto
|
||||
Property trs_id As Integer
|
||||
Property trs_sprache As String
|
||||
Property trs_textDE As String
|
||||
Property trs_text As String
|
||||
Property trs_active As Boolean = True
|
||||
|
||||
|
||||
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_textDE", trs_textDE))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trs_sprache", trs_sprache))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trs_text", trs_text))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trs_active", trs_active))
|
||||
|
||||
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 tblTranslateAuto 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 tblTranslateAuto WHERE trs_id=@trs_id AND [trs_active]=1 ", conn)
|
||||
cmd.Parameters.AddWithValue("@trs_id", trs_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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 [tblTranslateAuto] 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 tblTranslateAuto (" & 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 _Transle(Text, LAN, Optional SRC_LAN = "") As String
|
||||
Dim TRS_RSLT = VERAG_PROG_ALLGEMEIN.cAllgemein.TRANSLATE_AUTO.list.Find(Function(x) (x.trs_textDE = Text Or x.trs_text = Text) And x.trs_sprache = LAN)
|
||||
If TRS_RSLT IsNot Nothing Then
|
||||
Return TRS_RSLT.trs_text
|
||||
Else
|
||||
Dim TextResult = ""
|
||||
If cDeeplAPI.deepl_Translate(Text, TextResult, LAN, SRC_LAN) Then
|
||||
Dim TRS As New cTranslateAuto
|
||||
TRS.trs_text = TextResult
|
||||
TRS.trs_sprache = LAN
|
||||
TRS.trs_textDE = Text
|
||||
TRS.SAVE()
|
||||
'MsgBox(Text & " --- " & TextResult)
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TRANSLATE_AUTO.list.Add(TRS)
|
||||
Return TextResult
|
||||
End If
|
||||
End If
|
||||
Return Text
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
632
VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb
Normal file
632
VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb
Normal file
@@ -0,0 +1,632 @@
|
||||
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
|
||||
|
||||
Sub New(Rechnungsdatum, Rechnungsnummer, Buchungsjahr)
|
||||
Me.Rechnungsnummer = Buchungsjahr.ToString.Substring(2, 2) & 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 li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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, Optional Buchungsjahr 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, Buchungsjahr), "FMZOLL", 9800)
|
||||
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
||||
For Each ROW In dt.Rows
|
||||
Dim TRD_INVOICE As VERAG_PROG_ALLGEMEIN.cTrdInvoice
|
||||
If Buchungsjahr > 2000 Then
|
||||
TRD_INVOICE = New VERAG_PROG_ALLGEMEIN.cTrdInvoice(ROW("RK_RechnungsDatum"), ROW("RK_RechnungsNr"), Buchungsjahr) 'nur UNISPED!!!!
|
||||
Else
|
||||
TRD_INVOICE = New VERAG_PROG_ALLGEMEIN.cTrdInvoice(ROW("RK_RechnungsDatum"), ROW("RK_RechnungsNr"))
|
||||
End If
|
||||
|
||||
|
||||
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, ROW("RK_RechnungsNr"), TRD_INVOICE.Rechnungsnummer, RK_Währungscode, ROW("RK_RechnungsLandKz"), ROW("RK_Buchungstext"), TRD_INVOICE.Firma_ID, lngSatzzähler, WährungsdifferenzSteuerpflichtigerBetrag, WährungsdifferenzSteuerfreierBetrag, Buchungsjahr) Then
|
||||
'UPDATE rechnugnsausgang
|
||||
Dim firmaTmpsql = If(Firma > 0, " AND Firma_ID= '" & Firma & "' ", "")
|
||||
Dim buchungsjahrTmpsql = If(Buchungsjahr > 0, " AND Buchungsjahr= '" & Buchungsjahr & "' ", "")
|
||||
SQL.doSQL("UPDATE [Rechnungsausgang] SET [Trdin] = 1 WHERE convert(date,[RechnungsDatum] ,104) = '" & TRD_INVOICE.Rechnungsdatum.ToShortDateString & "' AND RechnungsNr = " & ROW("RK_RechnungsNr") & firmaTmpsql & buchungsjahrTmpsql, "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, TRD_RechnungsNr, RK_Währungscode, RK_RechnungsLandKz, RK_Buchungstext, RK_Firma_ID, ByRef lngSatzzähler, ByRef WährungsdifferenzSteuerpflichtigerBetrag, ByRef WährungsdifferenzSteuerfreierBetrag, Buchungsjahr) As Boolean
|
||||
Try
|
||||
|
||||
Dim LOKALWÄHRUNG = "EUR"
|
||||
|
||||
Dim dt As DataTable = SQL.loadDgvBySql(getSQLString_SELECTForTrdProduct(RechnungsDatum, RK_RechnungsNr, RK_Firma_ID, Buchungsjahr), "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 = TRD_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, Optional Buchungsjahr 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, "") & If(Buchungsjahr > 0, " and Buchungsjahr=" & Buchungsjahr, "") & "
|
||||
GROUP BY Rechnungsausgang.RechnungsDatum, Rechnungsausgang.RechnungsNr
|
||||
ORDER BY Rechnungsausgang.RechnungsDatum, Rechnungsausgang.RechnungsNr, min(Rechnungsausgang.Abfertigungsdatum), min(Rechnungsausgang.FilialenNr), min(Rechnungsausgang.AbfertigungsNr), min(Rechnungsausgang.UnterNr);"
|
||||
'" & If(Firma = 4, " and Rechnungsausgang.RechnungsNr='23800029'", "") & "
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function getSQLString_SELECTForTrdProduct(RechnungsDatum As Date, RechnungsNr As Integer, Optional Firma As Integer = -1, Optional Buchungsjahr As Integer = -1)
|
||||
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 " & If(Firma > 0, " ,Rechnungsausgang.Firma_ID ", "") & If(Buchungsjahr > 0, " ,Rechnungsausgang.Buchungsjahr ", "") & "
|
||||
HAVING (((Rechnungsausgang.RechnungsDatum)='" & RechnungsDatum.ToShortDateString & "') AND ((Rechnungsausgang.RechnungsNr)=" & RechnungsNr & ")) " & If(Firma > 0, " and Rechnungsausgang.Firma_ID=" & Firma, "") & If(Buchungsjahr > 0, " and Rechnungsausgang.Buchungsjahr=" & Buchungsjahr, "") & "
|
||||
ORDER BY Rechnungsausgang.RechnungsDatum, Rechnungsausgang.RechnungsNr, RechnungsausgangPositionen.LeistungsNr, RechnungsausgangPositionen.LeistungsBez, RechnungsausgangPositionen.Steuerpflichtig;"
|
||||
End Function
|
||||
End Class
|
||||
250
VERAG_PROG_ALLGEMEIN/Classes/cUIDAbfrage.vb
Normal file
250
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 li In UID.getParameterList()
|
||||
Dim propInfo As PropertyInfo = UID.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(UID, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(UID, dr.Item(li.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 li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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
|
||||
457
VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb
Normal file
457
VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb
Normal file
@@ -0,0 +1,457 @@
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
Imports System.Threading
|
||||
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 li In UID.getParameterList()
|
||||
Dim propInfo As PropertyInfo = UID.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(UID, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(UID, dr.Item(li.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 LOADByKdNrNewestDate(uid_KundenNr As Integer) As cUIDPruefung
|
||||
Try
|
||||
Dim UID As New cUIDPruefung
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT Top 1 * FROM tblUIDPruefung WHERE [uid_KundenNr]=@uid_KundenNr AND [uid_valid]=1 ORDER BY [uid_Datum] DESC", conn)
|
||||
cmd.Parameters.AddWithValue("@uid_KundenNr", uid_KundenNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In UID.getParameterList()
|
||||
Dim propInfo As PropertyInfo = UID.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(UID, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(UID, dr.Item(li.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("15." & 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 UstIdGeprüft is null) and (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)
|
||||
|
||||
Dim d As New DataColumn
|
||||
d.ColumnName = "Error-Code"
|
||||
dt.Columns.Add(d)
|
||||
|
||||
Dim e As New DataColumn
|
||||
e.ColumnName = "Error-Text"
|
||||
dt.Columns.Add(e)
|
||||
|
||||
|
||||
'------------------------------------------------
|
||||
'ENTWEDER ÜBER EU-KOMISSION ODER FINANZONLINE::::
|
||||
Dim ART = "FINANZONLINE"
|
||||
'------------------------------------------------
|
||||
Select Case ART
|
||||
Case "EUROPE"
|
||||
|
||||
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
|
||||
|
||||
|
||||
Case "FINANZONLINE"
|
||||
Dim FO As New VERAG_PROG_ALLGEMEIN.cFinanzOnlineWebService
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"
|
||||
FO.initValues()
|
||||
Dim counter = 0
|
||||
If FO.Call_Web_Service_MethodUID_Login_NEU2020() = 0 Then
|
||||
|
||||
For Each r As DataRow In dt.Rows
|
||||
|
||||
If IsDBNull(r("Ergebnis")) Then
|
||||
|
||||
counter += 1
|
||||
Dim errorCode = -99
|
||||
Dim errormsg = ""
|
||||
Dim UID_TMP = FO.Call_Web_Service_MethodUID_Abfrage_NEU2020(r("KdNr"),, SaveErgInAdressen, showErr,, errorCode, errorMsg)
|
||||
If UID_TMP IsNot Nothing Then
|
||||
If UID_TMP.uid_valid Then
|
||||
r("Ergebnis") = "OK"
|
||||
|
||||
For Each row As DataRow In dt.Select("UstIdnr = '" & r("UstIdnr") & "' AND UstIdKz ='" & r("UstIdKz") & "'")
|
||||
row("Ergebnis") = r("Ergebnis")
|
||||
Next
|
||||
' Bei ungültig soll er einzeln durchgehen! Besprochen mit A.Stockenhuber
|
||||
Else
|
||||
r("Ergebnis") = "UNGÜLTIG"
|
||||
' For Each row As DataRow In dt.Select("UstIdnr = '" & r("UstIdnr") & "' AND UstIdKz ='" & r("UstIdKz") & "'")
|
||||
' row("Ergebnis") = r("Ergebnis")
|
||||
' Next
|
||||
End If
|
||||
Else
|
||||
r("Ergebnis") = "ERROR"
|
||||
r("Error-Code") = errorCode.ToString()
|
||||
r("Error-Text") = FO.GetCodeText(errorCode) & errormsg
|
||||
|
||||
' Bei ERROR soll er ebenfalls einzeln durchgehen! Besprochen mit A.Stockenhuber
|
||||
'For Each row As DataRow In dt.Select("UstIdnr = '" & r("UstIdnr") & "' AND UstIdKz ='" & r("UstIdKz") & "'")
|
||||
' row("Ergebnis") = r("Ergebnis")
|
||||
' row("Error-Code") = r("Error-Code")
|
||||
' row("Error-Text") = r("Error-Text")
|
||||
'Next
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
If counter Mod 100 = 0 Then
|
||||
FO.Call_Web_Service_MethodUID_Logout_NEU2020()
|
||||
Thread.Sleep(2000)
|
||||
FO.Call_Web_Service_MethodUID_Login_NEU2020()
|
||||
End If
|
||||
|
||||
|
||||
Next
|
||||
|
||||
FO.Call_Web_Service_MethodUID_Logout_NEU2020()
|
||||
|
||||
End If
|
||||
|
||||
End Select
|
||||
'------------------------------------------------
|
||||
|
||||
|
||||
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.UpdateSpecialField("UstIdGeprüft", Now.ToShortDateString)
|
||||
|
||||
'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 li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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
|
||||
156
VERAG_PROG_ALLGEMEIN/Classes/cUeberstunden.vb
Normal file
156
VERAG_PROG_ALLGEMEIN/Classes/cUeberstunden.vb
Normal file
@@ -0,0 +1,156 @@
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cUeberstunden
|
||||
|
||||
Property uest_id As Integer
|
||||
Property uest_maId As Object = Nothing
|
||||
Property uest_timasId As Object = Nothing
|
||||
Property uest_100 As Object = Nothing
|
||||
Property uest_50 As Object = Nothing
|
||||
Property uest_25 As Object = Nothing
|
||||
Property uest_0 As Object = Nothing
|
||||
Property uest_date As Date = Nothing
|
||||
Property uest_created As Object = Nothing
|
||||
Property uest_lastChanged As Object = Nothing
|
||||
Property uest_deleted As Boolean
|
||||
Property uest_systemuser As Object = Nothing
|
||||
Property uest_maxUE As Object = Nothing
|
||||
Property uest_ignoreLimit As Boolean
|
||||
Property uest_overwriteValue As Boolean
|
||||
Property uest_paidout_sum As Object = Nothing
|
||||
Property uest_isParttime As Boolean
|
||||
Property uest_ignorePayoutDate As Boolean
|
||||
|
||||
Public hasEntry = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
|
||||
|
||||
Sub New(uest_maId, uest_date)
|
||||
Me.uest_maId = uest_maId
|
||||
Me.uest_date = uest_date
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
Sub New(uest_maId, uest_date, uest_created)
|
||||
Me.uest_maId = uest_maId
|
||||
Me.uest_date = uest_date
|
||||
Me.uest_created = uest_created
|
||||
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("uest_id", uest_id,, True, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uest_maId", uest_maId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uest_timasId", uest_timasId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uest_100", uest_100))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uest_50", uest_50))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uest_25", uest_25))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uest_0", uest_0))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uest_date", uest_date))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uest_created", uest_created))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uest_lastChanged", uest_lastChanged))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uest_deleted", uest_deleted))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uest_systemuser", uest_systemuser))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uest_ignoreLimit", uest_ignoreLimit))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uest_maxUE", uest_maxUE))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uest_overwriteValue", uest_overwriteValue))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uest_paidout_sum", uest_paidout_sum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uest_isParttime", uest_isParttime))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uest_ignorePayoutDate", uest_ignorePayoutDate))
|
||||
|
||||
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 tblUeberstunden WHERE uest_maId=@uest_maId AND uest_date=@uest_date AND uest_deleted = 0) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Return SQL.doSQLVarList(sqlstr, "ADMIN", , list)
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
hasEntry = False
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
|
||||
Using cmd As New SqlCommand("SELECT TOP(1) * FROM tblUeberstunden WHERE uest_maId=@uest_maId AND uest_date=@uest_date AND uest_deleted = 0 order by uest_created desc", conn)
|
||||
cmd.Parameters.AddWithValue("@uest_maId", uest_maId)
|
||||
cmd.Parameters.AddWithValue("@uest_date", uest_date)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
hasEntry = True
|
||||
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 [tblUeberstunden] SET " & str & " WHERE uest_maId=@uest_maId AND uest_date=@uest_date AND uest_deleted = 0 ")
|
||||
|
||||
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 tblUeberstunden (" & 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
|
||||
|
||||
25
VERAG_PROG_ALLGEMEIN/Classes/cUserActivity.vb
Normal file
25
VERAG_PROG_ALLGEMEIN/Classes/cUserActivity.vb
Normal file
@@ -0,0 +1,25 @@
|
||||
Imports System.Runtime.InteropServices
|
||||
Public Class cUserActivity
|
||||
Declare Function GetLastInputInfo Lib "user32" (ByRef plii As LASTINPUTINFO) As Boolean
|
||||
'Private WithEvents T As New Timer With {.Interval = 1000, .Enabled = True}
|
||||
|
||||
Structure LASTINPUTINFO
|
||||
Public cbSize As Integer
|
||||
Public dwTime As Integer
|
||||
End Structure
|
||||
|
||||
Shared Function GetLastInputTime_Seconds() As Integer
|
||||
Static LastInput As New LASTINPUTINFO()
|
||||
LastInput.cbSize = Marshal.SizeOf(LastInput)
|
||||
LastInput.dwTime = 0
|
||||
GetLastInputInfo(LastInput)
|
||||
Return (Environment.TickCount - LastInput.dwTime) / 1000
|
||||
End Function
|
||||
Shared Function GetLastInputTime_Minutes() As Integer
|
||||
Return GetLastInputTime_Seconds() / 60
|
||||
End Function
|
||||
|
||||
'Private Sub T_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles T.Tick
|
||||
' Me.Text = "Letzte Aktivität vor " & GetLastInputTime() & " Sek."
|
||||
'End Sub
|
||||
End Class
|
||||
144
VERAG_PROG_ALLGEMEIN/Classes/cVoraskasse.vb
Normal file
144
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
|
||||
304
VERAG_PROG_ALLGEMEIN/Classes/cVorauskasse.vb
Normal file
304
VERAG_PROG_ALLGEMEIN/Classes/cVorauskasse.vb
Normal file
@@ -0,0 +1,304 @@
|
||||
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 = "", Optional vk_KdNr 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 ", "") & If(If(vk_KdNr, "") <> "", "AND vk_KdNr=@vk_KdNr ", ""), conn)
|
||||
cmd.Parameters.AddWithValue("@vk_FilialeNr", FilialeNr)
|
||||
cmd.Parameters.AddWithValue("@vk_AbfertigungsNr", AbfertigungsNr)
|
||||
cmd.Parameters.AddWithValue("@vk_Rolle", vk_Rolle)
|
||||
cmd.Parameters.AddWithValue("@vk_KdNr", vk_KdNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In VK.getParameterList()
|
||||
Dim propInfo As PropertyInfo = VK.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(VK, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(VK, dr.Item(li.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 li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.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
|
||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user