SDL Jetzt erst recht!
This commit is contained in:
115
VERAG_PROG_ALLGEMEIN/Classes/Berechtigungen/cBerechtignunen.vb
Normal file
115
VERAG_PROG_ALLGEMEIN/Classes/Berechtigungen/cBerechtignunen.vb
Normal file
@@ -0,0 +1,115 @@
|
||||
Public Class cBerechtignunen
|
||||
|
||||
|
||||
|
||||
Shared BER_LIST As New cBerechtigungsObjekte_List 'NEW = Laden
|
||||
|
||||
' Sub initBER()
|
||||
' BER_LIST = New cBerechtigungsObjekte_List
|
||||
' End Sub
|
||||
|
||||
Public Shared Function CHECK_BERECHTIGUNG(Form_Berechtigung As System.Windows.Forms.Form) As Integer ' Klärt die Berechtigungs-Zugriffs-Stufe des Mitarbeiters für das Object
|
||||
Return CHECK_BERECHTIGUNG(Form_Berechtigung.Name, Form_Berechtigung.GetType.Module.Name.Replace(".exe", ""))
|
||||
End Function
|
||||
|
||||
|
||||
Public Shared Function CHECK_BERECHTIGUNG(Berechtigung_Bezeichnung As String, ME_Form As System.Windows.Forms.Form) As Integer ' Klärt die Berechtigungs-Zugriffs-Stufe des Mitarbeiters für das Object
|
||||
Return CHECK_BERECHTIGUNG(Berechtigung_Bezeichnung, ME_Form.GetType.Module.Name.Replace(".exe", ""))
|
||||
End Function
|
||||
|
||||
Public Shared Function CHECK_BERECHTIGUNG_bool(Berechtigung_Bezeichnung As String, ME_Form As System.Windows.Forms.Form) As Boolean ' Klärt die Berechtigungs-Zugriffs-Stufe des Mitarbeiters für das Object
|
||||
Try
|
||||
|
||||
If ME_Form Is Nothing Then Return False
|
||||
Dim prog = ME_Form.GetType.Module.Name.Replace(".exe", "") 'FEHLER
|
||||
Return (CHECK_BERECHTIGUNG(Berechtigung_Bezeichnung, prog) = 0)
|
||||
Catch ex As Exception
|
||||
MsgBox(Berechtigung_Bezeichnung & vbNewLine & vbNewLine & ex.Message & vbNewLine & ex.StackTrace)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Shared Function CHECK_BERECHTIGUNG_bool(Berechtigung_Bezeichnung As String, prog_Name As String) As Boolean ' Klärt die Berechtigungs-Zugriffs-Stufe des Mitarbeiters für das Object
|
||||
Try
|
||||
Return (CHECK_BERECHTIGUNG(Berechtigung_Bezeichnung, prog_Name) = 0)
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & vbNewLine & ex.StackTrace)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Shared Function CHECK_BERECHTIGUNG(Berechtigung_Bezeichnung As String, prog_Name As String) As Integer ' Klärt die Berechtigungs-Zugriffs-Stufe des Mitarbeiters für das Object
|
||||
Dim SQL As New SQL
|
||||
Dim prog_id = -1
|
||||
|
||||
Select Case prog_Name
|
||||
Case "AVISO"
|
||||
'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
|
||||
' prog_id = 13
|
||||
' Else
|
||||
prog_id = 5
|
||||
'End If
|
||||
Case "SDL"
|
||||
prog_id = 7
|
||||
Case Else
|
||||
' MsgBox("SELECT isnull([prog_id],0) FROM [tblProgramme] WHERe [prog_codename]='" & prog_Name & "'")
|
||||
prog_id = SQL.getValueTxtBySql("SELECT isnull([prog_id],0) FROM [tblProgramme] WHERe [prog_codename]='" & prog_Name & "'", "ADMIN")
|
||||
End Select
|
||||
|
||||
Return CHECK_BERECHTIGUNG(Berechtigung_Bezeichnung, prog_id)
|
||||
End Function
|
||||
|
||||
Public Shared Function CHECK_BERECHTIGUNG(ber_bez As String, prog_Id As Integer) As Integer ' Klärt die Berechtigungs-Zugriffs-Stufe des Mitarbeiters für das Object
|
||||
Try
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME = "" Then Return 0
|
||||
|
||||
Dim berechtigungsstufe As Integer = 99
|
||||
Dim benutzerBer As cBerechtigungenBenutzerGruppenZuordnung_List = VERAG_PROG_ALLGEMEIN.cAllgemein.BENUTZER_BERECHTIGUNGS_GRUPPEN
|
||||
If benutzerBer Is Nothing Then
|
||||
MsgBox("Ihrem Benutzerkonto wurden keine Berechtigungen zugeordnet!")
|
||||
Return 0
|
||||
End If
|
||||
|
||||
Dim found = False
|
||||
For Each l In BER_LIST.LIST
|
||||
If l.bero_bezeichnung.ToUpper = ber_bez.ToUpper And l.bero_progId = prog_Id Then
|
||||
found = True : Exit For
|
||||
End If
|
||||
Next
|
||||
If Not found Then 'Die Berechtigungszuorgnung ist nicht gegeben --> Zugriff verwehrt
|
||||
MsgBox("Die Berechtigung '" & ber_bez & "' existiert nicht.")
|
||||
Return 99
|
||||
End If
|
||||
|
||||
For Each l In BER_LIST.LIST
|
||||
If l.bero_bezeichnung.ToUpper = ber_bez.ToUpper And l.bero_progId = prog_Id Then
|
||||
For Each ll In l.BER_OBJ_ZUORD 'Liste der BerechtignungGruppen im Berechtigungsonjekt
|
||||
For Each b In benutzerBer.LIST
|
||||
If b.berbgz_progId = prog_Id Then 'BenutzerProg = Prog
|
||||
|
||||
If ll.beroz_berechtigungsstufe >= 100 Then Return ll.beroz_berechtigungsstufe 'Größer als 3 stellen --> immer priorität
|
||||
|
||||
If ll.beroz_art = "G" And ll.beroz_bergrId = b.berbgz_bergrId Then 'GruppenBerchtigung
|
||||
'gefunden!
|
||||
If ll.beroz_berechtigungsstufe < berechtigungsstufe Then berechtigungsstufe = ll.beroz_berechtigungsstufe
|
||||
ElseIf ll.beroz_art = "N" And ll.Bezeichnung = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG Then
|
||||
If ll.beroz_berechtigungsstufe < berechtigungsstufe Then berechtigungsstufe = ll.beroz_berechtigungsstufe
|
||||
ElseIf ll.beroz_art = "A" And ll.Bezeichnung = VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG Then
|
||||
If ll.beroz_berechtigungsstufe < berechtigungsstufe Then berechtigungsstufe = ll.beroz_berechtigungsstufe
|
||||
ElseIf ll.beroz_art = "B" And ll.beroz_bergrId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
|
||||
Return ll.beroz_berechtigungsstufe 'Definitiv dem Benutzer zugeordnete Berechtigung!!!!
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
Next
|
||||
End If
|
||||
Next
|
||||
|
||||
Return berechtigungsstufe
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
Return 99
|
||||
End Function
|
||||
End Class
|
||||
@@ -0,0 +1,107 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cBerechtigungenBenutzerGruppenZuordnung_List
|
||||
Public LIST As New List(Of cBerechtigungenBenutzerGruppenZuordnung)
|
||||
Dim SQL As New SQL
|
||||
'Dim listTodelete As New List(Of cOfferte)
|
||||
Dim mit_Id
|
||||
Sub New(mit_Id)
|
||||
LOAD_LIST(mit_Id)
|
||||
End Sub
|
||||
Public Sub CLEAR()
|
||||
LIST.Clear()
|
||||
End Sub
|
||||
Public Sub ADD(eb_EMail As String, Optional cc As Boolean = False, Optional bcc As Boolean = False)
|
||||
' Dim l As New cOfferte
|
||||
'l.eb_bcc = bcc
|
||||
'LIST.Add(l)
|
||||
End Sub
|
||||
|
||||
Public Sub LOAD_LIST(mit_Id)
|
||||
Try
|
||||
LIST.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
|
||||
Using cmd As New SqlCommand("SELECT *,(SELECT [bergr_bezeichnung] FROM tblBerechtigungenGruppen WHERE [bergr_id]=[berbgz_bergrId]) as Gruppenbezeichnung FROM tblBerechtigungenBenutzerGruppenZuordnung WHERE berbgz_mitId=@berbgz_mitId ", conn) 'SELECT * FROM tblBerechtigungenBenutzerGruppenZuordnung WHERE berbgz_mitId=@berbgz_mitId", conn)
|
||||
cmd.Parameters.AddWithValue("@berbgz_mitId", mit_Id)
|
||||
' cmd.Parameters.AddWithValue("@OffertenNr", OffertenNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cBerechtigungenBenutzerGruppenZuordnung
|
||||
For Each i In l.getParameterList()
|
||||
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
|
||||
If dr.Item(i.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(l, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(l, dr.Item(i.Text))
|
||||
End If
|
||||
Next
|
||||
' l.LOAD_ZUORD()
|
||||
LIST.Add(l)
|
||||
End While
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
Public Class cBerechtigungenBenutzerGruppenZuordnung
|
||||
Property berbgz_id As Integer
|
||||
Property berbgz_progId As Integer
|
||||
Property berbgz_mitId As Integer
|
||||
Property Gruppenbezeichnung As Object = Nothing
|
||||
|
||||
Property berbgz_bergrId As Integer
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("berbgz_id", berbgz_id, , True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("berbgz_progId", berbgz_progId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("berbgz_mitId", berbgz_mitId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gruppenbezeichnung", Gruppenbezeichnung, , , True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("berbgz_bergrId", berbgz_bergrId))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
Public Function INSERT() As String
|
||||
Try
|
||||
Dim list As List(Of SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not (i.isPrimaryParam Or i.isonlyForLoad) Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
' MsgBox(" INSERT INTO tblBerechtigungsObjekteZuordnung (" & str & ") VALUES(" & values & ") ")
|
||||
SQL.doSQLVarListID(berbgz_id, " INSERT INTO tblBerechtigungenBenutzerGruppenZuordnung (" & str & ") VALUES(" & values & ") ", "ADMIN", , list)
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function DELETE() As String
|
||||
Try
|
||||
' SQL.doSQL("DELETE FROM tblBerechtigungenBenutzerGruppenZuordnung WHERE [berbgz_bergrId]=" & Me.bergr_id, "ADMIN") 'Zuerst die Zuordnungen
|
||||
' SQL.doSQL("DELETE FROM tblBerechtigungsObjekteZuordnung WHERE [beroz_art]='G' AND [beroz_bergrId]=" & Me.bergr_id, "ADMIN") 'Zuerst die Zuordnungen
|
||||
SQL.doSQL("DELETE FROM tblBerechtigungenBenutzerGruppenZuordnung WHERE berbgz_id=" & Me.berbgz_id, "ADMIN")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,104 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
|
||||
|
||||
Public Class cBerechtigungenGruppen_List
|
||||
Property KundenNr As Object = Nothing
|
||||
Public LIST As New List(Of cBerechtigungenGruppen)
|
||||
Dim SQL As New SQL
|
||||
Dim bergr_progId
|
||||
|
||||
Sub New(bergr_progId)
|
||||
LOAD_LIST(bergr_progId)
|
||||
End Sub
|
||||
|
||||
Public Sub CLEAR()
|
||||
LIST.Clear()
|
||||
End Sub
|
||||
Public Sub ADD(eb_EMail As String, Optional cc As Boolean = False, Optional bcc As Boolean = False)
|
||||
' Dim l As New cOfferte
|
||||
'l.eb_bcc = bcc
|
||||
'LIST.Add(l)
|
||||
End Sub
|
||||
|
||||
Public Sub LOAD_LIST(bergr_progId)
|
||||
Try
|
||||
LIST.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblBerechtigungenGruppen WHERE bergr_progId=@bergr_progId ORDER BY bergr_bezeichnung", conn)
|
||||
cmd.Parameters.AddWithValue("@bergr_progId", bergr_progId)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cBerechtigungenGruppen
|
||||
For Each i In l.getParameterList()
|
||||
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
|
||||
If dr.Item(i.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(l, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(l, dr.Item(i.Text))
|
||||
End If
|
||||
Next
|
||||
' l.LOAD_ZUORD()
|
||||
LIST.Add(l)
|
||||
|
||||
End While
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
Public Class cBerechtigungenGruppen
|
||||
Property bergr_id As Integer
|
||||
Property bergr_progId As Integer
|
||||
Property bergr_bezeichnung As String
|
||||
|
||||
Dim SQL As New SQL
|
||||
' Property BER_BENGR_ZUORD As List(Of cBerechtigungenBenutzerGruppenZuordnung)
|
||||
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bergr_id", bergr_id, , True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bergr_progId", bergr_progId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bergr_bezeichnung", bergr_bezeichnung))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Public Function INSERT() As String
|
||||
Try
|
||||
Dim list As List(Of SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not (i.isPrimaryParam Or i.isonlyForLoad) Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
' MsgBox(" INSERT INTO tblBerechtigungsObjekteZuordnung (" & str & ") VALUES(" & values & ") ")
|
||||
SQL.doSQLVarListID(bergr_id, " INSERT INTO tblBerechtigungenGruppen (" & str & ") VALUES(" & values & ") ", "ADMIN", , list)
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function DELETE() As String
|
||||
Try
|
||||
SQL.doSQL("DELETE FROM tblBerechtigungenBenutzerGruppenZuordnung WHERE [berbgz_bergrId]=" & Me.bergr_id, "ADMIN") 'Zuerst die Zuordnungen
|
||||
SQL.doSQL("DELETE FROM tblBerechtigungsObjekteZuordnung WHERE [beroz_art]='G' AND [beroz_bergrId]=" & Me.bergr_id, "ADMIN") 'Zuerst die Zuordnungen
|
||||
SQL.doSQL("DELETE FROM tblBerechtigungenGruppen WHERE bergr_id=" & Me.bergr_id, "ADMIN")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
End Class
|
||||
@@ -0,0 +1,207 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
|
||||
|
||||
|
||||
Public Class cBerechtigungsObjekte_List
|
||||
Public LIST As New List(Of cBerechtigungsObjekte)
|
||||
Dim SQL As New SQL
|
||||
'Dim listTodelete As New List(Of cOfferte)
|
||||
|
||||
Sub New()
|
||||
LOAD_LIST()
|
||||
End Sub
|
||||
|
||||
Sub New(progID)
|
||||
LOAD_LIST(progID)
|
||||
End Sub
|
||||
|
||||
Public Sub CLEAR()
|
||||
LIST.Clear()
|
||||
End Sub
|
||||
Public Sub ADD(eb_EMail As String, Optional cc As Boolean = False, Optional bcc As Boolean = False)
|
||||
' Dim l As New cOfferte
|
||||
'l.eb_bcc = bcc
|
||||
'LIST.Add(l)
|
||||
End Sub
|
||||
|
||||
Public Sub LOAD_LIST()
|
||||
Try
|
||||
LIST.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblBerechtigungsObjekte", conn)
|
||||
' cmd.Parameters.AddWithValue("@OffertenNr", OffertenNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cBerechtigungsObjekte
|
||||
For Each i In l.getParameterList()
|
||||
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
|
||||
If dr.Item(i.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(l, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(l, dr.Item(i.Text))
|
||||
End If
|
||||
Next
|
||||
l.LOAD_ZUORD()
|
||||
LIST.Add(l)
|
||||
|
||||
End While
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
Public Sub LOAD_LIST(bero_progId)
|
||||
Try
|
||||
LIST.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblBerechtigungsObjekte WHERE bero_progId=@bero_progId", conn)
|
||||
cmd.Parameters.AddWithValue("@bero_progId", bero_progId)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cBerechtigungsObjekte
|
||||
For Each i In l.getParameterList()
|
||||
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
|
||||
If dr.Item(i.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(l, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(l, dr.Item(i.Text))
|
||||
End If
|
||||
Next
|
||||
l.LOAD_ZUORD()
|
||||
LIST.Add(l)
|
||||
|
||||
End While
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
|
||||
Public Class cBerechtigungsObjekte
|
||||
Property bero_id As Integer
|
||||
Property bero_progId As Integer
|
||||
Property bero_bezeichnung As String
|
||||
Property bero_art As String
|
||||
|
||||
Property BER_OBJ_ZUORD As New List(Of cBerechtigungsObjekteZuordnung)
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bero_id", bero_id, , True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bero_progId", bero_progId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bero_bezeichnung", bero_bezeichnung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bero_art", bero_art))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Public Sub LOAD() ' Wird eig nicht benötigt, da LIST
|
||||
Try
|
||||
BER_OBJ_ZUORD.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblBerechtigungsObjekte WHERE bero_id=@bero_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@bero_id", Me.bero_id)
|
||||
' cmd.Parameters.AddWithValue("@OffertenNr", OffertenNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
'Dim l As New cBerechtigungsObjekte
|
||||
For Each i In Me.getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(i.Scalarvariable)
|
||||
If dr.Item(i.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(i.Text))
|
||||
End If
|
||||
Next
|
||||
Me.LOAD_ZUORD()
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub LOAD_ZUORD()
|
||||
' MsgBox("a")
|
||||
Try
|
||||
BER_OBJ_ZUORD.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
|
||||
' Using cmd As New SqlCommand("SELECT * FROM tblBerechtigungsObjekteZuordnung WHERE beroz_beroId=@beroz_beroId ", conn)
|
||||
' MsgBox(Me.bero_id)
|
||||
Using cmd As New SqlCommand(" SELECT *, (CASE beroz_art " &
|
||||
" WHEN 'G' THEN (SELECT [bergr_bezeichnung] FROM [ADMIN].[dbo].[tblBerechtigungenGruppen] WHERE beroz_bergrId=bergr_id ) " &
|
||||
" WHEN 'B' THEN (SELECT [mit_username] FROM [ADMIN].[dbo].tblMitarbeiter WHERE beroz_bergrId=mit_id ) " &
|
||||
" WHEN 'A' THEN (SELECT [abt_kuerzel] FROM [ADMIN].[dbo].tblAbteilungen WHERE beroz_bergrId=abt_id ) " &
|
||||
" WHEN 'N' THEN (SELECT [nl_kuerzel] FROM [ADMIN].[dbo].tblNiederlassungen WHERE beroz_bergrId=nl_id ) " &
|
||||
" END) as Bezeichnung " &
|
||||
" FROM tblBerechtigungsObjekteZuordnung WHERE beroz_beroId=@beroz_beroId ORDER BY [beroz_art] desc, Bezeichnung", conn)
|
||||
|
||||
cmd.Parameters.AddWithValue("@beroz_beroId", Me.bero_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cBerechtigungsObjekteZuordnung
|
||||
For Each i In l.getParameterList()
|
||||
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
|
||||
If dr.Item(i.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(l, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(l, dr.Item(i.Text))
|
||||
End If
|
||||
Next
|
||||
BER_OBJ_ZUORD.Add(l)
|
||||
End While
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Public Function INSERT() As String
|
||||
Try
|
||||
Dim list As List(Of SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not (i.isPrimaryParam Or i.isonlyForLoad) Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
' MsgBox(" INSERT INTO tblBerechtigungsObjekteZuordnung (" & str & ") VALUES(" & values & ") ")
|
||||
SQL.doSQLVarListID(bero_id, " INSERT INTO tblBerechtigungsObjekte (" & str & ") VALUES(" & values & ") ", "ADMIN", , list)
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function DELETE() As String
|
||||
Try
|
||||
SQL.doSQL("DELETE FROM [tblBerechtigungsObjekteZuordnung] WHERE [beroz_beroId]=" & Me.bero_id, "ADMIN") 'Zuerst die Zuordnungen
|
||||
SQL.doSQL("DELETE FROM tblBerechtigungsObjekte WHERE bero_id=" & Me.bero_id, "ADMIN")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,87 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cBerechtigungsObjekteZuordnung
|
||||
|
||||
Property beroz_id As Integer = -1
|
||||
Property beroz_beroId As Integer
|
||||
Property beroz_bergrId As Integer
|
||||
Property Bezeichnung As Object = Nothing
|
||||
'Property BenutzerBezeichnung As Object = Nothing
|
||||
|
||||
Property beroz_art As String
|
||||
Property beroz_berechtigungsstufe As Integer = -1
|
||||
Dim SQL As New SQL
|
||||
|
||||
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("beroz_id", beroz_id, , True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("beroz_beroId", beroz_beroId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("beroz_bergrId", beroz_bergrId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("beroz_art", beroz_art))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("beroz_berechtigungsstufe", beroz_berechtigungsstufe))
|
||||
|
||||
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GruppenBezeichnung", GruppenBezeichnung, , , True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bezeichnung", Bezeichnung, , , True))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblBerechtigungsObjekteZuordnung WHERE beroz_id=@beroz_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@beroz_id", beroz_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Public Function INSERT() As String
|
||||
Try
|
||||
Dim list As List(Of SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not (i.isPrimaryParam Or i.isonlyForLoad) Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
' MsgBox(" INSERT INTO tblBerechtigungsObjekteZuordnung (" & str & ") VALUES(" & values & ") ")
|
||||
SQL.doSQLVarListID(beroz_id, " INSERT INTO tblBerechtigungsObjekteZuordnung (" & str & ") VALUES(" & values & ") ", "ADMIN", , list)
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function DELETE() As String
|
||||
Try
|
||||
SQL.doSQL("DELETE FROM tblBerechtigungsObjekteZuordnung WHERE beroz_id=" & Me.beroz_id, "ADMIN")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
End Class
|
||||
1022
VERAG_PROG_ALLGEMEIN/Classes/SQL.vb
Normal file
1022
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
|
||||
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
|
||||
209
VERAG_PROG_ALLGEMEIN/Classes/cAbgaben.vb
Normal file
209
VERAG_PROG_ALLGEMEIN/Classes/cAbgaben.vb
Normal file
@@ -0,0 +1,209 @@
|
||||
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
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM Zkteing WHERE [Index]=@Index ", conn)
|
||||
cmd.Parameters.AddWithValue("@Index", [Index])
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
hasEntry = True
|
||||
Next
|
||||
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Sub LOAD(Registriernummer, Belegart, Betrag)
|
||||
If Betrag Is Nothing Then Betrag = 0
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM Zkteing WHERE Registriernummer=@Registriernummer AND Belegart=@Belegart AND Betrag=@Betrag ", conn)
|
||||
cmd.Parameters.AddWithValue("@Registriernummer", Registriernummer)
|
||||
cmd.Parameters.AddWithValue("@Belegart", Belegart)
|
||||
cmd.Parameters.AddWithValue("@Betrag", CDbl(Betrag))
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
hasEntry = True
|
||||
Next
|
||||
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [Zkteing] SET " & str & " WHERE [Index]=@Index ")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO Zkteing (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [Zkteing] WITH(updlock,serializable) WHERE [Index]=" & Me.[Index]
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
Public Shared Function DELETE(id As Integer) As Boolean
|
||||
Dim SQL As New SQL
|
||||
Dim sqlstr = " DELETE FROM [Zkteing] WHERE [Index]=" & id
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
End Class
|
||||
287
VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb
Normal file
287
VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb
Normal file
@@ -0,0 +1,287 @@
|
||||
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
|
||||
|
||||
Public hasEntry = False
|
||||
Shared SQL As New SQL
|
||||
|
||||
Sub New(AdressenNr)
|
||||
Me.AdressenNr = AdressenNr
|
||||
If AdressenNr <= 0 Then
|
||||
INIT_NEWKD_DATA()
|
||||
Else
|
||||
LOAD()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Public Shared Function getHoechsteKdNr(NrKr_von As Integer, NrKr_bis As Integer) As Integer
|
||||
Try
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
|
||||
|
||||
Using cmd As New SqlCommand("select isnull(min([AdressenNr]) +1," & NrKr_von & ") as AdressenNr from [Adressen] a INNER JOIN Kunden ON Kundennr=adressennr where AdressenNr between '" & NrKr_von & "' AND '" & NrKr_bis & "' AND not exists ( select * from [Adressen] b where AdressenNr between '" & NrKr_von & "' AND '" & NrKr_bis & "' and a.[AdressenNr] +1 = b.[AdressenNr]) AND KundenNr NOT IN (([AdressenNr]) +1) ", conn)
|
||||
'Using cmd As New SqlCommand("SELECT isnull(max([AdressenNr])," & NrKr_von & ") as AdressenNr FROM Adressen WHERE AdressenNr BETWEEN '" & NrKr_von & "' AND '" & NrKr_bis & "' ", conn)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.HasRows Then
|
||||
dr.Read()
|
||||
If IsNumeric(dr.Item("AdressenNr")) Then Return (CInt(dr.Item("AdressenNr")))
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
|
||||
Catch ex As Exception
|
||||
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))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Sub INIT_NEWKD_DATA()
|
||||
If Me.Sachbearbeiter Is Nothing Then Me.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
Me.Eingegeben_am = Now.ToShortDateString
|
||||
Me.Auswahl = "A"
|
||||
Me.Rechnungsdruck = 0
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Function VALID(ByRef ERROR_TXT) As Boolean
|
||||
If If(Ordnungsbegriff, "") = "" Then ERROR_TXT = "Bitte geben Sie einen Ordnungsbegriff ein!" : Return False
|
||||
If If(Name_1, "") = "" Then ERROR_TXT = "Bitte geben Sie den Firmenwortlaut ein!" : Return False
|
||||
If If(LandKz, "") = "" Then ERROR_TXT = "Bitte geben Sie das Land an!" : Return False
|
||||
If If(Ort, "") = "" Then ERROR_TXT = "Bitte geben Sie den Ort an!" : Return False
|
||||
If If(PLZ, "") = "" Then ERROR_TXT = "Bitte geben Sie die PLZ an!" : Return False
|
||||
If If(Straße, "") = "" Then ERROR_TXT = "Bitte geben Sie die Straße an!" : Return False
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Public Function SAVE(Optional newFlag = False) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
If newFlag Then INIT_NEWKD_DATA()
|
||||
If AdressenNr <= 0 Then
|
||||
MsgBox("Fehler: KundenNr <= 0!")
|
||||
Return False
|
||||
End If
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM Adressen /*WITH(updlock,serializable)*/ 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, 2) '2.Versuch --> Oft Timeout wg.Fmzoll
|
||||
If id = -2 Then id = SQL.doSQLVarListID(AdressenNr, sqlstr, "FMZOLL", , list) '3.Versuch --> Oft Timeout wg.Fmzoll
|
||||
|
||||
' Dim id = SQL.doSQLVarListID(, sqlstr, "FMZOLL", , list)
|
||||
If id > 0 Then AdressenNr = id 'Sonst wird beim Speichern mit Fehler -1 in die AdressenNr übergeben
|
||||
Return id > 0
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Dim test = ""
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM Adressen WHERE AdressenNr=@AdressenNr ", conn)
|
||||
cmd.Parameters.AddWithValue("@AdressenNr", AdressenNr)
|
||||
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
' Me.GetType.GetProperty(l.Scalarvariable) = dr.Item(l.Text)
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
' MsgBox(l.Text)
|
||||
' MsgBox(propInfo.PropertyType.ToString)
|
||||
' propInfo.SetValue(GetType(Object), l.Text)
|
||||
|
||||
'propInfo.SetValue(Me, l.Text)
|
||||
|
||||
' Try
|
||||
test = l.Text
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
' Catch ex As Exception
|
||||
|
||||
' End Try
|
||||
|
||||
' Me.GetType.GetProperty(l.Scalarvariable).setSetValue(GetType(Object), l.Text)
|
||||
'If propInfo IsNot Nothing Then
|
||||
'propInfo.SetValue(l.Scalarvariable, l.Text)
|
||||
' End If
|
||||
Next
|
||||
Me.hasEntry = True
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
'Return Nothing
|
||||
Catch ex As Exception
|
||||
MsgBox(test & "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
' Return Nothing
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Function doesOrdnungsbegriffExist() As Boolean
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
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 [VERAG].[dbo].[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
|
||||
181
VERAG_PROG_ALLGEMEIN/Classes/cBonitaetsauskunft.vb
Normal file
181
VERAG_PROG_ALLGEMEIN/Classes/cBonitaetsauskunft.vb
Normal file
@@ -0,0 +1,181 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cBonitaetsauskunft
|
||||
|
||||
Property ba_id As Integer = -1
|
||||
Property ba_KundenNr As Integer
|
||||
Property ba_Datum As Date
|
||||
Property ba_MaId As Integer
|
||||
Property ba_Sachbearbeiter As String = ""
|
||||
Property ba_CRArt As String = ""
|
||||
Property ba_CRAnsprechpartnerHerrFrau As String = ""
|
||||
Property ba_CRAnsprechpartner As String = ""
|
||||
Property ba_Firma As String = ""
|
||||
Property ba_Adresse1 As String = ""
|
||||
Property ba_Adresse2 As String = ""
|
||||
Property ba_LetztesBearbeitungsDatum As Object = Nothing
|
||||
Property ba_BonitaetsIndex As Integer
|
||||
Property ba_GruendundsDatum As Object = Nothing
|
||||
Property ba_Umsatz As Object = Nothing
|
||||
Property ba_Mitarbeiter As Object = Nothing
|
||||
Property ba_Bankverbindung As Object = Nothing
|
||||
Property ba_Hoechstkredit As Object = Nothing
|
||||
Property ba_Zahlungsweise As Object = Nothing
|
||||
Property ba_GFName As Object = Nothing
|
||||
Property ba_Sonstiges As Object = Nothing
|
||||
|
||||
|
||||
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))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblBonitaetsauskunft WITH(updlock,serializable) WHERE ba_id=@ba_id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
ba_id = SQL.doSQLVarListID(ba_id, sqlstr, "FMZOLL", , list)
|
||||
Return ba_id > 0
|
||||
End Function
|
||||
|
||||
Public Shared Function LOADByKdNrDate(ba_KundenNr As Integer, ba_Datum As Date) As cBonitaetsauskunft
|
||||
Try
|
||||
Dim BONI As New cBonitaetsauskunft
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblBonitaetsauskunft WHERE ba_KundenNr=@ba_KundenNr AND cast(ba_Datum as date)=@ba_Datum ", conn)
|
||||
cmd.Parameters.AddWithValue("@ba_KundenNr", ba_KundenNr)
|
||||
cmd.Parameters.AddWithValue("@ba_Datum", ba_Datum.ToShortDateString)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In BONI.getParameterList()
|
||||
Dim propInfo As PropertyInfo = BONI.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(BONI, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(BONI, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
dr.Close()
|
||||
Return BONI
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return Nothing
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblBonitaetsauskunft WHERE ba_id=@ba_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@ba_id", ba_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblBonitaetsauskunft] SET " & str & " WHERE ba_id=@ba_id ")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO tblBonitaetsauskunft (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
122
VERAG_PROG_ALLGEMEIN/Classes/cClasses.vb
Normal file
122
VERAG_PROG_ALLGEMEIN/Classes/cClasses.vb
Normal file
@@ -0,0 +1,122 @@
|
||||
|
||||
|
||||
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
|
||||
|
||||
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)
|
||||
Me.TextSQLName = Text
|
||||
Me.ValueSQLVALUE = Value
|
||||
Me.primaryParam = primaryParam
|
||||
Me.onlyForLoad = onlyForLoad
|
||||
|
||||
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 Overrides Function ToString() As Object
|
||||
' Return mText
|
||||
' End Function
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
174
VERAG_PROG_ALLGEMEIN/Classes/cDHF_Anhaenge.vb
Normal file
174
VERAG_PROG_ALLGEMEIN/Classes/cDHF_Anhaenge.vb
Normal file
@@ -0,0 +1,174 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cDHF_Anhaenge
|
||||
|
||||
Property dhfanh_id As Integer
|
||||
Property LizenzNr As String
|
||||
Property Operatorid As Integer
|
||||
Property AnmID As Integer
|
||||
Property MsgTyp As String
|
||||
Property ErstelltAm As DateTime
|
||||
Property pfad As String
|
||||
Property LRN As String
|
||||
Property CRN As String
|
||||
Property docID As Integer
|
||||
|
||||
Public hasEntry As Boolean = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
Sub New(dhfanh_id)
|
||||
If dhfanh_id IsNot Nothing Then
|
||||
Me.dhfanh_id = dhfanh_id
|
||||
LOAD()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub New(AnmID, MsgTyp)
|
||||
LOAD(AnmID, MsgTyp)
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dhfanh_id", dhfanh_id, , True, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LizenzNr", LizenzNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Operatorid", Operatorid))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnmID", AnmID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("MsgTyp", MsgTyp))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ErstelltAm", ErstelltAm))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pfad", pfad))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LRN", LRN))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CRN", CRN))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("docID", docID))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE(Optional errHinweis = "") As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblDHF_Anhaenge WITH(updlock,serializable) WHERE dhfanh_id=@dhfanh_id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
dhfanh_id = SQL.doSQLVarListID(dhfanh_id, sqlstr, "FMZOLL", , list,, errHinweis)
|
||||
Return dhfanh_id > 0
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblDHF_Anhaenge WHERE dhfanh_id=@dhfanh_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@dhfanh_id", dhfanh_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
hasEntry = True
|
||||
Next
|
||||
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Sub LOAD(AnmID, MsgTyp)
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblDHF_Anhaenge WHERE AnmID=@AnmID AND MsgTyp=@MsgTyp ", conn)
|
||||
cmd.Parameters.AddWithValue("@AnmID", AnmID)
|
||||
cmd.Parameters.AddWithValue("@MsgTyp", MsgTyp)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
hasEntry = True
|
||||
Next
|
||||
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "" & i.Text & " = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE tblDHF_Anhaenge SET " & str & " WHERE dhfanh_id=@dhfanh_id ")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "" & i.Text & ","
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO tblDHF_Anhaenge (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM tblDHF_Anhaenge WITH(updlock,serializable) WHERE dhfanh_id=" & Me.dhfanh_id
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
Public Shared Function DELETE(id As Integer) As Boolean
|
||||
Dim SQL As New SQL
|
||||
Dim sqlstr = " DELETE FROM tblDHF_Anhaenge WHERE dhfanh_id=" & id
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
End Class
|
||||
143
VERAG_PROG_ALLGEMEIN/Classes/cEZB_Waehrungskurse.vb
Normal file
143
VERAG_PROG_ALLGEMEIN/Classes/cEZB_Waehrungskurse.vb
Normal file
@@ -0,0 +1,143 @@
|
||||
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 & "' ", "FMZOLL")
|
||||
End If
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezb_waehrungsschluessel", ezb_waehrungsschluessel))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezb_datum", ezb_datum))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezb_kurs", ezb_kurs))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblEZB_Waehrungskurse WITH(updlock,serializable) WHERE ezb_waehrungscode=@ezb_waehrungscode AND ezb_datum=@ezb_datum) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
' ezb_id = SQL.doSQLVarListID(ezb_id, sqlstr, "FMZOLL", , list)
|
||||
' Return ezb_id > 0
|
||||
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Sub LOAD_ByWaehrungscode(ezb_waehrungscode As String)
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblEZB_Waehrungskurse WHERE ezb_waehrungscode=@ezb_waehrungscode ORDER BY ezb_datum DeSC ", conn)
|
||||
cmd.Parameters.AddWithValue("@ezb_waehrungscode", ezb_waehrungscode)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblEZB_Waehrungskurse] SET " & str & " WHERE ezb_waehrungscode=@ezb_waehrungscode AND ezb_datum=@ezb_datum ")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO tblEZB_Waehrungskurse (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblEZB_Waehrungskurse] WITH(updlock,serializable) WHERE ezb_waehrungscode='" & ezb_waehrungscode & "' AND ezb_datum='" & ezb_datum & "' "
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
|
||||
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 l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Public Function SAVE_ByID() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblEZT_Importcodenummern WITH(updlock,serializable) WHERE ezt_id=@ezt_id) " &
|
||||
" BEGIN " & getUpdateCmd_ByID() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
ezt_id = SQL.doSQLVarListID(ezt_id, sqlstr, "FMZOLL", , list)
|
||||
Return ezt_id > 0
|
||||
End Function
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblEZT_Importcodenummern WITH(updlock,serializable) WHERE ezt_Codenummer=@ezt_Codenummer AND ezt_Start=@ezt_Start AND ezt_Ende=@ezt_Ende) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblEZT_Importcodenummern] SET " & str & " WHERE ezt_Codenummer=@ezt_Codenummer AND ezt_Start=@ezt_Start AND ezt_Ende=@ezt_Ende ")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO tblEZT_Importcodenummern (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
Public Function getUpdateCmd_ByID() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblEZT_Importcodenummern] SET " & str & " WHERE ezt_id=@ezt_id ")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
105
VERAG_PROG_ALLGEMEIN/Classes/cFirmen.vb
Normal file
105
VERAG_PROG_ALLGEMEIN/Classes/cFirmen.vb
Normal file
@@ -0,0 +1,105 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cFirmen
|
||||
Property Firma_ID As Integer
|
||||
Property Firma_Bez As String
|
||||
Property Firma_BackColor As Object = Nothing ' INT DEFAULT ((16777215)) NOT NULL,
|
||||
Property Firma_Logo As Object = Nothing ' VARBINARY (MAX) NULL,
|
||||
Property Firma_Firmenbuch As Object = Nothing ' NVARCHAR (22) NULL,
|
||||
Property Firma_UID As Object = Nothing ' NVARCHAR (16) NULL,
|
||||
Property Firma_EORI As Object = Nothing ' NVARCHAR (21) NULL,
|
||||
Property Firma_Bankverbindung1 As Object = Nothing ' NVARCHAR (50) NULL,
|
||||
Property Firma_BLZ1 As Object = Nothing ' NVARCHAR (33) NULL,
|
||||
Property Firma_KTO1 As Object = Nothing ' NVARCHAR (18) NULL,
|
||||
Property Firma_IBAN1 As Object = Nothing ' NVARCHAR (38) NULL,
|
||||
Property Firma_BIC1 As Object = Nothing ' NVARCHAR (16) NULL,
|
||||
Property Firma_Bankverbindung2 As Object = Nothing ' NVARCHAR (50) NULL,
|
||||
Property Firma_BLZ2 As Object = Nothing ' NVARCHAR (33) NULL,
|
||||
Property Firma_KTO2 As Object = Nothing ' NVARCHAR (18) NULL,
|
||||
Property Firma_IBAN2 As Object = Nothing ' NVARCHAR (38) NULL,
|
||||
Property Firma_BIC2 As Object = Nothing ' NVARCHAR (16) NULL,
|
||||
Property SSMA_TimeStamp As Object = Nothing ' ROWVERSION NOT NULL,
|
||||
Property Firma_Ort As Object = Nothing ' NVARCHAR (40) NULL,
|
||||
Property Firma_Straße As Object = Nothing ' NVARCHAR (40) NULL,
|
||||
Property Firma_Telefon As Object = Nothing ' NVARCHAR (40) NULL,
|
||||
Property Firma_Telefax As Object = Nothing ' NVARCHAR (40) NULL,
|
||||
Property Firma_E_Mail As Object = Nothing ' NVARCHAR (40) NULL, -----
|
||||
Property Firma_Webadresse As Object = Nothing ' NVARCHAR (40) NULL,
|
||||
|
||||
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
Sub New(Firma_ID)
|
||||
Me.Firma_ID = Firma_ID
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_ID", Firma_ID, , True, True))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Bez", Firma_Bez))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_BackColor", Firma_BackColor))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Logo", Firma_Logo))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Firmenbuch", Firma_Firmenbuch))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_UID", Firma_UID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_EORI", Firma_EORI))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Bankverbindung1", Firma_Bankverbindung1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_BLZ1", Firma_BLZ1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_KTO1", Firma_KTO1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_IBAN1", Firma_IBAN1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_BIC1", Firma_BIC1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Bankverbindung2", Firma_Bankverbindung2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_BLZ2", Firma_BLZ2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_KTO2", Firma_KTO2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_IBAN2", Firma_IBAN2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_BIC2", Firma_BIC2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SSMA_TimeStamp", SSMA_TimeStamp))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Ort", Firma_Ort))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Straße", Firma_Straße))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Telefon", Firma_Telefon))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Telefax", Firma_Telefax))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_E-Mail", Firma_E_Mail, "Firma_E_Mail"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Webadresse", Firma_Webadresse))
|
||||
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblFirma WHERE Firma_ID=@Firma_ID ", conn)
|
||||
cmd.Parameters.AddWithValue("@Firma_ID", Firma_ID)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
139
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 l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
hasEntry = True
|
||||
Next
|
||||
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblFremdSpeditionenZuordnung] SET " & str & " WHERE fremdz_Id=@fremdz_Id ")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO tblFremdSpeditionenZuordnung (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblFremdSpeditionenZuordnung] WITH(updlock,serializable) WHERE fremdz_Id=" & Me.fremdz_Id
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
Public Shared Function DELETE(id As Integer) As Boolean
|
||||
Dim SQL As New SQL
|
||||
Dim sqlstr = " DELETE FROM [tblFremdSpeditionenZuordnung] WHERE fremdz_Id=" & id
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
End Class
|
||||
|
||||
130
VERAG_PROG_ALLGEMEIN/Classes/cGestellungsgarantien.vb
Normal file
130
VERAG_PROG_ALLGEMEIN/Classes/cGestellungsgarantien.vb
Normal file
@@ -0,0 +1,130 @@
|
||||
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 Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN If EXISTS(Select * FROM tblGestellungsgarantien With(updlock, serializable) WHERE gg_Id=@gg_Id) " &
|
||||
" BEGIN " & getUpdateCmd() & " End " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " End " &
|
||||
" commit tran "
|
||||
|
||||
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("Select * FROM tblGestellungsgarantien WHERE gg_Id=@gg_Id ", conn)
|
||||
cmd.Parameters.AddWithValue("@gg_Id", gg_Id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblGestellungsgarantien] SET " & str & " WHERE gg_Id=@gg_Id ")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO tblGestellungsgarantien (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblGestellungsgarantien] WITH(updlock,serializable) WHERE gg_Id=" & Me.gg_Id
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
313
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 l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
hasEntry = True
|
||||
LOAD_POSITIONEN()
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
Public Sub LOADFromAvisoId(gstm_AvisoId)
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblGestellungsmitteilung WHERE gstm_AvisoId=@gstm_AvisoId ", conn)
|
||||
cmd.Parameters.AddWithValue("@gstm_AvisoId", gstm_AvisoId)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
hasEntry = True
|
||||
LOAD_POSITIONEN()
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblGestellungsmitteilung] SET " & str & " WHERE gstm_id=@gstm_id ")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO tblGestellungsmitteilung (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function DELETE(Optional delPos = True) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
If delPos Then DELETE_POSITIONEN()
|
||||
Dim sqlstr = " DELETE FROM [tblGestellungsmitteilung] WHERE gstm_id=" & Me.gstm_id
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
Public Function DELETE_AVISOID(gstm_AvisoId, Optional delPos = True) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
If delPos Then DELETE_POSITIONEN_AVISOID(gstm_AvisoId)
|
||||
Dim sqlstr = " DELETE FROM [tblGestellungsmitteilung] WHERE gstm_AvisoId=" & gstm_AvisoId
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
|
||||
Public Function DELETE_POSITIONEN() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblGestellungsmitteilung_Positionen] WHERE gstmp_GstmID=" & Me.gstm_id
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
Public Function DELETE_POSITIONEN_AVISOID([gstmp_AvisoID]) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblGestellungsmitteilung_Positionen] WHERE [gstmp_AvisoID]=" & [gstmp_AvisoID]
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
Public Sub LOAD_POSITIONEN()
|
||||
Try
|
||||
POSITIONEN.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("Select * FROM tblGestellungsmitteilung_Positionen WHERE gstmp_GstmID=@gstmp_GstmID order by gstmp_T1Nr", conn)
|
||||
cmd.Parameters.AddWithValue("@gstmp_GstmID", Me.gstm_id)
|
||||
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cGestellungsmitteilungPositionen(gstm_id, gstm_AvisoId)
|
||||
For Each i In l.getParameterList()
|
||||
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
|
||||
If dr.Item(i.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(l, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(l, dr.Item(i.Text))
|
||||
End If
|
||||
Next
|
||||
POSITIONEN.Add(l)
|
||||
End While
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
Public Class cGestellungsmitteilungPositionen
|
||||
|
||||
Property gstmp_id As Integer
|
||||
Property gstmp_GstmID As Integer
|
||||
Property gstmp_SendungID As Integer
|
||||
Property gstmp_T1Nr As Object = Nothing
|
||||
Property gstmp_AvisoID As Integer
|
||||
Property gstmp_Abfertigungsart_ID As Object = Nothing
|
||||
Property gstmp_Abfertigungsart As String = ""
|
||||
Property gstmp_Empfaenger As String = ""
|
||||
Property gstmp_Bemerkung As String = ""
|
||||
Property gstmp_FilialenNr As Object = Nothing
|
||||
Property gstmp_AbfertigungsNr As Object = Nothing
|
||||
Property gstmp_UnterNr As Object = Nothing
|
||||
Property gstmp_Colli As String = ""
|
||||
Property gstmp_Gewicht As String = ""
|
||||
Property gstmp_Warenbezeichnung As String = ""
|
||||
Property gstmp_Absender As String = ""
|
||||
Property gstmp_ATANr As String = ""
|
||||
|
||||
|
||||
'FROM [VERAG].[dbo].[tblGestellungsmitteilung_Positionen]
|
||||
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New(gstmp_GstmID, gstmp_AvisoID, Optional gstmp_SendungID = 0)
|
||||
Me.gstmp_GstmID = gstmp_GstmID
|
||||
Me.gstmp_AvisoID = gstmp_AvisoID
|
||||
Me.gstmp_SendungID = gstmp_SendungID
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstmp_id", gstmp_id,, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstmp_GstmID", gstmp_GstmID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstmp_SendungID", gstmp_SendungID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstmp_T1Nr", gstmp_T1Nr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstmp_AvisoID", gstmp_AvisoID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstmp_Abfertigungsart_ID", gstmp_Abfertigungsart_ID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstmp_Abfertigungsart", gstmp_Abfertigungsart))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstmp_Empfaenger", gstmp_Empfaenger))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstmp_Bemerkung", gstmp_Bemerkung))
|
||||
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstmp_FilialenNr", gstmp_FilialenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstmp_AbfertigungsNr", gstmp_AbfertigungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstmp_UnterNr", gstmp_UnterNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstmp_Colli", gstmp_Colli))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstmp_Gewicht", gstmp_Gewicht)) '!!!!
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstmp_Warenbezeichnung", gstmp_Warenbezeichnung))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstmp_Absender", gstmp_Absender))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gstmp_ATANr", gstmp_ATANr))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Public Function INSERT(gstmp_GstmID) As Boolean
|
||||
Me.gstmp_GstmID = gstmp_GstmID
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
'Me.Eingegeben_am = Now
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO tblGestellungsmitteilung_Positionen (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
End Class
|
||||
345
VERAG_PROG_ALLGEMEIN/Classes/cKunde.vb
Normal file
345
VERAG_PROG_ALLGEMEIN/Classes/cKunde.vb
Normal file
@@ -0,0 +1,345 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cKunde
|
||||
Property KundenNr As Object = Nothing
|
||||
Property KundenNrZentrale As Object = Nothing
|
||||
Property FilialenNr As Object = Nothing
|
||||
Property Einmalige_Abfertigung As Boolean = False
|
||||
Property Neutralisierung As Object = Nothing
|
||||
Property Avis As Object = Nothing
|
||||
Property Zollvollmacht As Boolean = False
|
||||
Property Zollvollmacht_vom As Object = Nothing
|
||||
Property Lastschrift As Boolean = False
|
||||
Property Lastschrift_von As Object = Nothing
|
||||
Property Lastschrift_bis As Object = Nothing
|
||||
Property Rabattstaffel As Boolean = False
|
||||
Property SVS As Boolean = False
|
||||
Property Vorlageprovision As Object = Nothing
|
||||
Property Kreditaufwendungen As Object = Nothing
|
||||
Property Bankspesen As Object = Nothing
|
||||
Property Bankspesen_Mindestbetrag As Object = Nothing
|
||||
Property Besonderheiten As Object = Nothing
|
||||
Property Sammelrechnung As Object = Nothing
|
||||
Property Steuerschlüssel As Object = Nothing
|
||||
Property Referenznummer As Object = Nothing
|
||||
Property Antragssumme As Object = Nothing
|
||||
Property Antrag_vom As Object = Nothing
|
||||
Property Versicherungssumme As Object = Nothing
|
||||
Property Entscheidung_vom As Object = Nothing
|
||||
Property Kreditlimit As Object = Nothing
|
||||
Property Kreditlimit_vom As Object = Nothing
|
||||
Property Info As Object = Nothing
|
||||
Property Überwachungskunde As Boolean = False
|
||||
Property Abfertigungsverbot As Boolean = False
|
||||
Property Abfertigungsverbot_seit As Object = Nothing
|
||||
Property Abfertigungsverbot_Grund As Object = Nothing
|
||||
Property Rechtsanwalt As Boolean = False
|
||||
Property Rechtsanwalt_seit As Object = Nothing
|
||||
Property Eingegeben_am As Object = Nothing
|
||||
Property Geändert_am As Object = Nothing
|
||||
Property Sachbearbeiter As Object = Nothing
|
||||
Property LfdSaldo As Object = Nothing
|
||||
Property Erste_Abfertigung As Object = Nothing
|
||||
Property Vorkasse As Boolean = False
|
||||
Property Zahlungsinformationen As Object = Nothing
|
||||
Property EORITIN As Object = Nothing
|
||||
Property EORITIN_NL As Object = Nothing
|
||||
Property Zollnummer As Object = Nothing
|
||||
Property ZulassungsNr_ZnV As Object = Nothing
|
||||
Property Aufschubkonto_EUSt As Object = Nothing
|
||||
Property Aufschubkonto_Zoll As Object = Nothing
|
||||
Property Währungscode As Object = Nothing
|
||||
Property Euroeinführung As Object = Nothing
|
||||
Property LetzteRechnungsNr As Object = Nothing
|
||||
Property LetztesRechnungsDatum As Object = Nothing
|
||||
Property Konzernkonto As Boolean = False
|
||||
Property FiBuSchnittstelle As Boolean = False
|
||||
Property Planzahl As Object = Nothing
|
||||
Property Gesprächsbericht As Object = Nothing
|
||||
Property Bonität As Object = Nothing
|
||||
Property Bonitätsdatum As Object = Nothing
|
||||
Property Zahlungsziel As Object = Nothing
|
||||
Property UStV_SummeUmsatzsteuerbetragEUR As Object = Nothing
|
||||
Property UStV_SummeErstattungsbetragEUR As Object = Nothing
|
||||
Property UStV_Summe3470BetragEUR As Object = Nothing
|
||||
Property UStV_SummeVZBetragEUR As Object = Nothing
|
||||
Property UStV_SummeVorschaubetragEUR As Object = Nothing
|
||||
Property UStV_SummeVorschaubetragEUR_VERAG As Object = Nothing
|
||||
Property UStV_SummeVorschaubetragEUR_IDS As Object = Nothing
|
||||
Property Fiskal As Boolean = False
|
||||
Property Ausfuhr As Boolean = False
|
||||
Property BankgarantieBetrag As Object = Nothing
|
||||
Property BankgarantieGültigBis As Object = Nothing
|
||||
Property KD_Korrespondenz As Object = Nothing
|
||||
Property Fiskal_Aktiv As Object = Nothing
|
||||
Property DokumenteLKWFreigabe As Object = Nothing
|
||||
Property EmailAnkunft As Boolean = False
|
||||
Property EmailFreigabe As Boolean = False
|
||||
|
||||
Property Höchstkredit As Object = Nothing
|
||||
Property DakosyExport As Object = Nothing
|
||||
Property FiBuSchnittstelleNr As Object = Nothing
|
||||
|
||||
|
||||
Public hasEntry As Boolean = False
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New(KundenNr)
|
||||
Me.KundenNr = KundenNr
|
||||
If KundenNr <= 0 Then
|
||||
INIT_NEWKD_DATA()
|
||||
Else
|
||||
LOAD()
|
||||
End If
|
||||
End Sub
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Mandant", Mandant))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KundenNr", KundenNr, , True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KundenNrZentrale", KundenNrZentrale))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNr", FilialenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Einmalige Abfertigung", Einmalige_Abfertigung, "Einmalige_Abfertigung"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Neutralisierung", Neutralisierung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Avis", Avis))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zollvollmacht", Zollvollmacht))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zollvollmacht vom", Zollvollmacht_vom, "Zollvollmacht_vom"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Lastschrift", Lastschrift))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Lastschrift von", Lastschrift_von, "Lastschrift_von"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Lastschrift bis", Lastschrift_bis, "Lastschrift_bis"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rabattstaffel", Rabattstaffel))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SVS", SVS))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vorlageprovision %", Vorlageprovision, "Vorlageprovision"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kreditaufwendungen %", Kreditaufwendungen, "Kreditaufwendungen"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bankspesen %", Bankspesen, "Bankspesen"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bankspesen Mindestbetrag", Bankspesen_Mindestbetrag, "Bankspesen_Mindestbetrag"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Besonderheiten", Besonderheiten))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sammelrechnung", Sammelrechnung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuerschlüssel", Steuerschlüssel))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Referenznummer", Referenznummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Antragssumme", Antragssumme))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Antrag vom", Antrag_vom, "Antrag_vom"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Versicherungssumme", Versicherungssumme))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Entscheidung vom", Entscheidung_vom, "Entscheidung_vom"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kreditlimit", Kreditlimit))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kreditlimit vom", Kreditlimit_vom, "Kreditlimit_vom"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Info", Info))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Überwachungskunde", Überwachungskunde))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abfertigungsverbot", Abfertigungsverbot))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abfertigungsverbot seit", Abfertigungsverbot_seit, "Abfertigungsverbot_seit"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abfertigungsverbot Grund", Abfertigungsverbot_Grund, "Abfertigungsverbot_Grund"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechtsanwalt", Rechtsanwalt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechtsanwalt seit", Rechtsanwalt_seit, "Rechtsanwalt_seit"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Eingegeben am", Eingegeben_am, "Eingegeben_am"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Geändert am", Geändert_am, "Geändert_am"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachbearbeiter", Sachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LfdSaldo", LfdSaldo))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Erste Abfertigung", Erste_Abfertigung, "Erste_Abfertigung"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vorkasse", Vorkasse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zahlungsinformationen", Zahlungsinformationen))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EORITIN", EORITIN))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EORITIN_NL", EORITIN_NL))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zollnummer", Zollnummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ZulassungsNr ZnV", ZulassungsNr_ZnV, "ZulassungsNr_ZnV"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Aufschubkonto EUSt", Aufschubkonto_EUSt, "Aufschubkonto_EUSt"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Aufschubkonto Zoll", Aufschubkonto_Zoll, "Aufschubkonto_Zoll"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Währungscode", Währungscode))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Euroeinführung", Euroeinführung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LetzteRechnungsNr", LetzteRechnungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LetztesRechnungsDatum", LetztesRechnungsDatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Konzernkonto", Konzernkonto))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FiBuSchnittstelle", FiBuSchnittstelle))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FiBuSchnittstelleNr", FiBuSchnittstelleNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Planzahl", Planzahl))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gesprächsbericht", Gesprächsbericht))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bonität", Bonität))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bonitätsdatum", Bonitätsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zahlungsziel", Zahlungsziel))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStV_SummeUmsatzsteuerbetragEUR", UStV_SummeUmsatzsteuerbetragEUR))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStV_SummeErstattungsbetragEUR", UStV_SummeErstattungsbetragEUR))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStV_Summe3470BetragEUR", UStV_Summe3470BetragEUR))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStV_SummeVZBetragEUR", UStV_SummeVZBetragEUR))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStV_SummeVorschaubetragEUR", UStV_SummeVorschaubetragEUR))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStV_SummeVorschaubetragEUR_VERAG", UStV_SummeVorschaubetragEUR_VERAG))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStV_SummeVorschaubetragEUR_IDS", UStV_SummeVorschaubetragEUR_IDS))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Fiskal", Fiskal))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Ausfuhr", Ausfuhr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BankgarantieBetrag", BankgarantieBetrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BankgarantieGültigBis", BankgarantieGültigBis))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KD_Korrespondenz", KD_Korrespondenz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Fiskal_Aktiv", Fiskal_Aktiv))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DokumenteLKWFreigabe", DokumenteLKWFreigabe))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmailAnkunft", EmailAnkunft))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmailFreigabe", EmailFreigabe))
|
||||
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Höchstkredit", Höchstkredit))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DakosyExport", DakosyExport))
|
||||
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Function VALID(ByRef ERROR_TXT) As Boolean
|
||||
' If If(FilialenNr Is Nothing, "", FilialenNr).ToString = "" Then ERROR_TXT = "Bitte geben Sie die zuständige Filiale an!" : Return False 'Es gibt alte Einträge ohne FilialenNr
|
||||
|
||||
Return True
|
||||
End Function
|
||||
|
||||
|
||||
Sub INIT_NEWKD_DATA()
|
||||
|
||||
' Me.KundenNrZentrale = Me.KundenNr
|
||||
|
||||
If Me.FilialenNr Is Nothing Then Me.FilialenNr = 4803
|
||||
If Me.Sachbearbeiter Is Nothing Then Me.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
|
||||
Me.Währungscode = "EUR"
|
||||
Me.Eingegeben_am = Now.ToShortDateString
|
||||
|
||||
Me.Vorlageprovision = 0.01
|
||||
Me.Kreditaufwendungen = 0.02
|
||||
Me.Bankspesen = 0
|
||||
Me.Bankspesen_Mindestbetrag = 0
|
||||
|
||||
Me.Zahlungsziel = 10
|
||||
Me.Sammelrechnung = 0
|
||||
Me.Steuerschlüssel = 10
|
||||
Me.Kreditlimit = 2600
|
||||
Me.Überwachungskunde = 0
|
||||
Me.Abfertigungsverbot = 0
|
||||
Me.Rechtsanwalt = 0
|
||||
Me.Euroeinführung = CDate("01.01.2002")
|
||||
Me.UStV_Summe3470BetragEUR = 0
|
||||
Me.UStV_SummeErstattungsbetragEUR = 0
|
||||
Me.UStV_SummeVorschaubetragEUR = 0
|
||||
Me.UStV_SummeVorschaubetragEUR_IDS = 0
|
||||
Me.UStV_SummeVorschaubetragEUR_VERAG = 0
|
||||
Me.UStV_SummeUmsatzsteuerbetragEUR = 0
|
||||
Me.UStV_SummeVZBetragEUR = 0
|
||||
Me.Fiskal_Aktiv = 0
|
||||
Me.SVS = 1
|
||||
|
||||
End Sub
|
||||
|
||||
Public Function SAVE(Optional newFlag = False) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
If newFlag Then INIT_NEWKD_DATA()
|
||||
If EORITIN IsNot Nothing Then EORITIN = EORITIN.ToString.Replace(" ", "") 'Falls NL-Nr. mit leer einegegeben wird
|
||||
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
If KundenNr <= 0 Then
|
||||
MsgBox("Fehler: KundenNr <= 0!")
|
||||
Return False
|
||||
End If
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM Kunden /*WITH(updlock,serializable)*/ 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, 2) '2.Versuch --> Oft Timeout wg.Fmzoll
|
||||
If id = -2 Then id = SQL.doSQLVarListID(KundenNr, sqlstr, "FMZOLL", , list) '3.Versuch --> Oft Timeout wg.Fmzoll
|
||||
|
||||
If id > 0 Then
|
||||
KundenNr = id 'Sonst wird beim Speichern mit Fehler -1 in die KundenNr übergeben
|
||||
If If(Me.KundenNrZentrale, 0) <= 0 Then SQL.doSQL("UPDATE Kunden SET KundenNrZentrale=KundenNr WHERE KundenNr=" & id, "FMZOLL")
|
||||
End If
|
||||
Return id > 0
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Dim test = ""
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM Kunden WHERE KundenNr=@KundenNr ", conn)
|
||||
cmd.Parameters.AddWithValue("@KundenNr", KundenNr)
|
||||
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
' Me.GetType.GetProperty(l.Scalarvariable) = dr.Item(l.Text)
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
' MsgBox(l.Text)
|
||||
' MsgBox(propInfo.PropertyType.ToString)
|
||||
' propInfo.SetValue(GetType(Object), l.Text)
|
||||
|
||||
'propInfo.SetValue(Me, l.Text)
|
||||
|
||||
' Try
|
||||
test = l.Text
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
' Catch ex As Exception
|
||||
|
||||
' End Try
|
||||
|
||||
' Me.GetType.GetProperty(l.Scalarvariable).setSetValue(GetType(Object), l.Text)
|
||||
'If propInfo IsNot Nothing Then
|
||||
'propInfo.SetValue(l.Scalarvariable, l.Text)
|
||||
' End If
|
||||
Next
|
||||
hasEntry = True
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
'Return Nothing
|
||||
Catch ex As Exception
|
||||
MsgBox(test & "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
' Return Nothing
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [Kunden] SET " & str & " WHERE KundenNr=@KundenNr ")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isonlyForLoad Then 'And (Not i.isPrimaryParam OrElse i.Value > 0) Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO Kunden (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
245
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 l In LIST
|
||||
If Not l.SAVEByKdNrArt() Then SAVE_LIST = False
|
||||
Next
|
||||
End Function
|
||||
|
||||
Public Shared Function DELETE_NOT_EXIST(KundenNr As Integer, LIST As List(Of cKundenAufschubkonten)) As Boolean
|
||||
Dim SQL As New SQL
|
||||
Dim ktoNr = ""
|
||||
For Each a In LIST
|
||||
ktoNr &= a.kdAkto_art & ","
|
||||
Next
|
||||
If ktoNr.EndsWith(",") Then ktoNr = ktoNr.Substring(0, ktoNr.Length - 1)
|
||||
|
||||
Dim sqlstr = " DELETE FROM [tblKundenAufschubkonten] WHERE kdAkto_KundenNr='" & KundenNr & "' "
|
||||
If ktoNr <> "" Then sqlstr &= " AND [kdAkto_art] NOT IN (" & ktoNr & ") "
|
||||
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
|
||||
Sub New()
|
||||
|
||||
End Sub
|
||||
|
||||
Sub New(kdAkto_id)
|
||||
Me.kdAkto_id = kdAkto_id
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
Sub New(kdAkto_KundenNr, kdAkto_art)
|
||||
Me.kdAkto_KundenNr = kdAkto_KundenNr
|
||||
Me.kdAkto_art = kdAkto_art
|
||||
LOADByKdNrArt(kdAkto_KundenNr, kdAkto_art)
|
||||
End Sub
|
||||
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdAkto_id", kdAkto_id, , True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdAkto_KundenNr", kdAkto_KundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdAkto_art", kdAkto_art))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdAkto_hauptzollamt", kdAkto_hauptzollamt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdAkto_kontonummer", kdAkto_kontonummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdAkto_bin", kdAkto_bin))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdAkto_eori", kdAkto_eori))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdAkto_eoriNL", kdAkto_eoriNL))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function LOAD_ListAufschubKTOByKdNr(kdAkto_KundenNr) As List(Of cKundenAufschubkonten)
|
||||
Try
|
||||
LOAD_ListAufschubKTOByKdNr = New List(Of cKundenAufschubkonten)
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblKundenAufschubkonten WHERE kdAkto_KundenNr=@kdAkto_KundenNr ", conn)
|
||||
cmd.Parameters.AddWithValue("@kdAkto_KundenNr", kdAkto_KundenNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim KTO As New cKundenAufschubkonten
|
||||
For Each l In KTO.getParameterList()
|
||||
Dim propInfo As PropertyInfo = KTO.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(KTO, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(KTO, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
LOAD_ListAufschubKTOByKdNr.Add(KTO)
|
||||
End While
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
LOAD_ListAufschubKTOByKdNr = Nothing
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblKundenAufschubkonten WITH(updlock,serializable) WHERE kdAkto_id=@kdAkto_id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
kdAkto_id = SQL.doSQLVarListID(kdAkto_id, sqlstr, "FMZOLL", , list)
|
||||
Return kdAkto_id > 0
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Public Function SAVEByKdNrArt() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblKundenAufschubkonten WITH(updlock,serializable) WHERE kdAkto_KundenNr=@kdAkto_KundenNr and kdAkto_art=@kdAkto_art) " &
|
||||
" BEGIN " & getUpdateCmd2() & " " &
|
||||
" (SELECT kdAkto_id FROM tblKundenAufschubkonten WITH(updlock,serializable) WHERE kdAkto_KundenNr=@kdAkto_KundenNr and kdAkto_art=@kdAkto_art)" &
|
||||
" END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
kdAkto_id = SQL.doSQLVarListID(kdAkto_id, sqlstr, "FMZOLL", , list, True)
|
||||
Return kdAkto_id > 0
|
||||
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblKundenAufschubkonten WHERE kdAkto_id=@kdAkto_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@kdAkto_id", kdAkto_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Sub LOADByKdNrArt(kdAkto_KundenNr, kdAkto_art)
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblKundenAufschubkonten WHERE kdAkto_KundenNr=@kdAkto_KundenNr AND kdAkto_art=@kdAkto_art ", conn)
|
||||
cmd.Parameters.AddWithValue("@kdAkto_KundenNr", kdAkto_KundenNr)
|
||||
cmd.Parameters.AddWithValue("@kdAkto_art", kdAkto_art)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblKundenAufschubkonten] SET " & str & " WHERE kdAkto_id=@kdAkto_id ")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
Public Function getUpdateCmd2() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblKundenAufschubkonten] SET " & str & " WHERE kdAkto_KundenNr=@kdAkto_KundenNr AND kdAkto_art=@kdAkto_art ")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam And Not i.isonlyForLoad Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO tblKundenAufschubkonten (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
End Class
|
||||
178
VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb
Normal file
178
VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb
Normal file
@@ -0,0 +1,178 @@
|
||||
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_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_VBDPDF 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
|
||||
|
||||
|
||||
|
||||
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_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_VBDPDF", EmailFreigabe_VBDPDF))
|
||||
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))
|
||||
|
||||
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 WITH(updlock,serializable) WHERE kde_KundenNr=@kde_KundenNr) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblKundenErweitert WHERE kde_KundenNr=@kde_KundenNr ", conn)
|
||||
cmd.Parameters.AddWithValue("@kde_KundenNr", kde_KundenNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblKundenErweitert] SET " & str & " WHERE kde_KundenNr=@kde_KundenNr ")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO tblKundenErweitert (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
End Class
|
||||
240
VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb
Normal file
240
VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb
Normal file
@@ -0,0 +1,240 @@
|
||||
|
||||
|
||||
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
|
||||
Using cmd As New SqlCommand("SELECT * FROM [tblKundenKontakt] WHERE kkd_KundenNr=@kkd_KundenNr " & If(firma <> "", " AND kkd_firma=@firma", ""), conn)
|
||||
cmd.Parameters.AddWithValue("@kkd_KundenNr", kkd_KundenNr)
|
||||
cmd.Parameters.AddWithValue("@firma", firma)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cKundenKontakte
|
||||
For Each i In l.getParameterList()
|
||||
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
|
||||
If dr.Item(i.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(l, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(l, dr.Item(i.Text))
|
||||
End If
|
||||
Next
|
||||
LIST.Add(l)
|
||||
|
||||
End While
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Public Function GET_KundenKontakte_VALUE(param As String) As String
|
||||
' For Each p In LIST
|
||||
' If p.bezeichnung = param Then
|
||||
' Return p.wert
|
||||
' End If
|
||||
' Next
|
||||
' Return ""
|
||||
'End Function
|
||||
|
||||
'Public Function GET_KundenKontakte_VALUE_BOOL(param As String) As String
|
||||
' For Each p In LIST
|
||||
' If p.bezeichnung = param Then
|
||||
' Return (p.wert = "1" Or p.wert = "true")
|
||||
' End If
|
||||
' Next
|
||||
' Return False
|
||||
'End Function
|
||||
|
||||
End Class
|
||||
|
||||
Public Class cKundenKontakte
|
||||
Property kkd_id As Integer
|
||||
|
||||
Property kkd_KundenNr As Integer
|
||||
Property kkd_kkaId As Object = Nothing
|
||||
Property kkd_kkaBez As Object = Nothing
|
||||
Property kkd_Tel As Object = Nothing
|
||||
Property kkd_Email As Object = Nothing
|
||||
Property kkd_Fax As Object = Nothing
|
||||
Property kkd_Homepage As Object = Nothing
|
||||
Property kkd_Mobil As Object = Nothing
|
||||
Property kkd_AnsprechpartnerAnrede As Object = Nothing
|
||||
Property kkd_AnsprechpartnerVorname As Object = Nothing
|
||||
Property kkd_AnsprechpartnerNachname As Object = Nothing
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
|
||||
Sub New()
|
||||
|
||||
End Sub
|
||||
|
||||
Sub New(kkd_id)
|
||||
Me.kkd_id = kkd_id
|
||||
LOAD(kkd_id)
|
||||
End Sub
|
||||
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_id", kkd_id,, True, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_KundenNr", kkd_KundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_kkaId", kkd_kkaId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_kkaBez", kkd_kkaBez))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Tel", kkd_Tel))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Email", kkd_Email))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Fax", kkd_Fax))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Homepage", kkd_Homepage))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Mobil", kkd_Mobil))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_AnsprechpartnerAnrede", kkd_AnsprechpartnerAnrede))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_AnsprechpartnerVorname", kkd_AnsprechpartnerVorname))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_AnsprechpartnerNachname", kkd_AnsprechpartnerNachname))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Public Sub LOAD(kkd_id)
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM [tblKundenKontakt] WHERE kkd_id=@kkd_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@kkd_id", kkd_id)
|
||||
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
'Return Nothing
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
' Return Nothing
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblKundenKontakt WITH(updlock,serializable) 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 Function getInsertCmd() As String
|
||||
Try
|
||||
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO tblKundenKontakt (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
Shared Function getMailAdress(KdNr As Integer, bez As String) As String
|
||||
If KdNr < 0 Then Return ""
|
||||
Dim KD_LIST = New cKundenKontakteList(KdNr)
|
||||
If KD_LIST IsNot Nothing Then
|
||||
For Each l In KD_LIST.LIST
|
||||
If l.kkd_kkaBez = bez Then Return l.kkd_Email
|
||||
Next
|
||||
End If
|
||||
Return ""
|
||||
End Function
|
||||
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
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
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
|
||||
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 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
|
||||
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 Shared Function DELETE(id) As Boolean
|
||||
Try
|
||||
Dim KDV As New cKundenVermerkItem(id)
|
||||
Return KDV.DELETE()
|
||||
Catch 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 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
|
||||
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 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 WITH(updlock,serializable) 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] WITH(updlock,serializable) WHERE kvm_id=" & Me.kvm_id
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblKundenVermerke WHERE kvm_id=@kvm_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@kvm_id", kvm_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
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 [tblKundenVermerke] SET " & str & " WHERE kvm_id=@kvm_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 tblKundenVermerke (" & 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 l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [Leistungen] SET " & str & " WHERE LeistungsNr=@LeistungsNr ")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO Leistungen (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
138
VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb
Normal file
138
VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb
Normal file
@@ -0,0 +1,138 @@
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
|
||||
Public Class cMitarbeiter
|
||||
Property mit_id As Integer
|
||||
Property mit_username As String = ""
|
||||
Property mit_pwd As String = ""
|
||||
Property mit_geschlecht As String = ""
|
||||
Property mit_affix As String = ""
|
||||
Property mit_vname As String = ""
|
||||
Property mit_nname As String = ""
|
||||
Property mit_gebdat As String = ""
|
||||
Property mit_strasse As String = ""
|
||||
Property mit_hausnr As String = ""
|
||||
Property mit_land As String = ""
|
||||
Property mit_plz As String = ""
|
||||
Property mit_ort As String = ""
|
||||
Property mit_niederlassung As String = ""
|
||||
Property mit_abteilung As String = ""
|
||||
Property mit_position As String = ""
|
||||
Property mit_durchwahl As String = ""
|
||||
Property mit_email As String = ""
|
||||
Property mit_mobiltel As String = ""
|
||||
Property mit_allowAnruf As Boolean
|
||||
Property mit_info As String = ""
|
||||
Property mit_einstiegsdatum As String = ""
|
||||
Property mit_gekuendigt As Boolean
|
||||
Property mit_kuendigungsdatum As String = ""
|
||||
Property mit_foto As String = ""
|
||||
Property mit_firma As String = "VERAG"
|
||||
Property mit_firmaFMZoll As Object = Nothing
|
||||
Property mit_FMZollPersID As Object = Nothing
|
||||
Property mit_standartFiliale As Integer = -1
|
||||
Property mit_standardPreisliste As Integer = -1
|
||||
Property mit_FMZollPersIDKasseIsnotSpedBuch As Boolean = False
|
||||
Property mit_FMZollPersIDSpedBuch As Object = Nothing
|
||||
Property mit_DpUserStandardDP As Object = Nothing
|
||||
Property mit_DpUserStandardFirma As Object = Nothing
|
||||
|
||||
Property mit_EZOLL_SB As Object = Nothing
|
||||
Property mit_ATLAS_SB As Object = Nothing
|
||||
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
|
||||
|
||||
|
||||
Sub New()
|
||||
|
||||
End Sub
|
||||
|
||||
Sub New(id)
|
||||
Me.mit_id = id
|
||||
LOAD(id)
|
||||
|
||||
End Sub
|
||||
' Dim SQL As New SQL
|
||||
|
||||
Public Function LOAD(ByVal id As Integer) As Boolean
|
||||
Dim sqlstr As String = "SELECT * FROM tblMitarbeiter WHERE mit_id = " & id & ""
|
||||
' adasdas()
|
||||
' Dim d As VERAG_PROG_ALLGEMEIN.cMitarbeiter = Nothing
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN
|
||||
Using cmd As New SqlCommand(sqlstr, conn)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.HasRows Then
|
||||
dr.Read()
|
||||
' d = New VERAG_PROG_ALLGEMEIN.cMitarbeiter()
|
||||
Try
|
||||
Me.mit_id = dr.Item("mit_id")
|
||||
Me.mit_username = dr.Item("mit_username")
|
||||
Me.mit_pwd = dr.Item("mit_pwd")
|
||||
Me.mit_affix = dr.Item("mit_affix")
|
||||
If Not dr.Item("mit_geschlecht") Is DBNull.Value Then Me.mit_geschlecht = dr.Item("mit_geschlecht")
|
||||
Me.mit_vname = dr.Item("mit_vname")
|
||||
Me.mit_nname = dr.Item("mit_nname")
|
||||
If Not dr.Item("mit_gebdat") Is DBNull.Value Then Me.mit_gebdat = dr.Item("mit_gebdat")
|
||||
Me.mit_strasse = dr.Item("mit_strasse")
|
||||
Me.mit_hausnr = dr.Item("mit_hausnr")
|
||||
Me.mit_land = dr.Item("mit_land")
|
||||
Me.mit_plz = dr.Item("mit_plz")
|
||||
Me.mit_ort = dr.Item("mit_ort")
|
||||
Me.mit_niederlassung = dr.Item("mit_niederlassung")
|
||||
Me.mit_abteilung = dr.Item("mit_abteilung")
|
||||
Me.mit_position = dr.Item("mit_position")
|
||||
Me.mit_durchwahl = dr.Item("mit_durchwahl")
|
||||
Me.mit_email = dr.Item("mit_email")
|
||||
Me.mit_mobiltel = dr.Item("mit_mobiltel")
|
||||
Me.mit_allowAnruf = dr.Item("mit_allowAnruf")
|
||||
If Not dr.Item("mit_FMZollPersID") Is DBNull.Value Then Me.mit_FMZollPersID = dr.Item("mit_FMZollPersID")
|
||||
If Not dr.Item("mit_FMZollPersIDKasseIsnotSpedBuch") Is DBNull.Value Then Me.mit_FMZollPersIDKasseIsnotSpedBuch = dr.Item("mit_FMZollPersIDKasseIsnotSpedBuch")
|
||||
If Not dr.Item("mit_FMZollPersIDSpedBuch") Is DBNull.Value Then Me.mit_FMZollPersIDSpedBuch = dr.Item("mit_FMZollPersIDSpedBuch")
|
||||
If Not dr.Item("mit_DpUserStandardDP") Is DBNull.Value Then Me.mit_DpUserStandardDP = dr.Item("mit_DpUserStandardDP")
|
||||
If Not dr.Item("mit_DpUserStandardFirma") Is DBNull.Value Then Me.mit_DpUserStandardFirma = dr.Item("mit_DpUserStandardFirma")
|
||||
|
||||
If Not dr.Item("mit_standartFiliale") Is DBNull.Value Then Me.mit_standartFiliale = dr.Item("mit_standartFiliale")
|
||||
If Not dr.Item("mit_standardPreisliste") Is DBNull.Value Then Me.mit_standardPreisliste = dr.Item("mit_standardPreisliste")
|
||||
|
||||
Me.mit_info = dr.Item("mit_info")
|
||||
If Not dr.Item("mit_einstiegsdatum") Is DBNull.Value Then Me.mit_einstiegsdatum = dr.Item("mit_einstiegsdatum")
|
||||
Me.mit_gekuendigt = dr.Item("mit_gekuendigt")
|
||||
If Not dr.Item("mit_kuendigungsdatum") Is DBNull.Value Then Me.mit_kuendigungsdatum = dr.Item("mit_kuendigungsdatum")
|
||||
If Not dr.Item("mit_foto") Is DBNull.Value Then Me.mit_foto = dr.Item("mit_foto")
|
||||
Me.mit_firma = dr.Item("mit_firma")
|
||||
If Not dr.Item("mit_firmaFMZoll") Is DBNull.Value Then Me.mit_firmaFMZoll = dr.Item("mit_firmaFMZoll")
|
||||
If Not dr.Item("mit_EZOLL_SB") Is DBNull.Value Then Me.mit_EZOLL_SB = dr.Item("mit_EZOLL_SB")
|
||||
If Not dr.Item("mit_ATLAS_SB") Is DBNull.Value Then Me.mit_ATLAS_SB = dr.Item("mit_ATLAS_SB")
|
||||
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")
|
||||
|
||||
|
||||
|
||||
|
||||
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
|
||||
|
||||
End Class
|
||||
151
VERAG_PROG_ALLGEMEIN/Classes/cNCTSGestellungsadressen.vb
Normal file
151
VERAG_PROG_ALLGEMEIN/Classes/cNCTSGestellungsadressen.vb
Normal file
@@ -0,0 +1,151 @@
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cNCTSGestellungsadressen
|
||||
Property nga_id As Integer
|
||||
Property nga_name As String = ""
|
||||
Property nga_strasse As Object = Nothing
|
||||
Property nga_land As Object = Nothing
|
||||
Property nga_plz As Object = Nothing
|
||||
Property nga_ort As Object = Nothing
|
||||
Property nga_EORI As Object = Nothing
|
||||
Property nga_EORI_NL As Object = Nothing
|
||||
Property nga_Ansprechpartner As Object = Nothing
|
||||
Property nga_bestZollst As Object = Nothing
|
||||
Property nga_SB As Object = Nothing
|
||||
Property nga_firma As Object = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Property nga_Aenderungsdatum As Date = Now
|
||||
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
nga_SB = If(nga_SB, VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME)
|
||||
'If sms_SachbearbeiterId <= 0 Then sms_SachbearbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
||||
|
||||
End Sub
|
||||
|
||||
Sub New(nga_id)
|
||||
Me.nga_id = nga_id
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_id", nga_id, , True, True))
|
||||
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_name", nga_name))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_strasse", nga_strasse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_land", nga_land))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_plz", nga_plz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_ort", nga_ort))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_EORI", nga_EORI))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_EORI_NL", nga_EORI_NL))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_Ansprechpartner", nga_Ansprechpartner))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_bestZollst", nga_bestZollst))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_SB", nga_SB))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_firma", nga_firma))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_Aenderungsdatum", nga_Aenderungsdatum))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblNCTSGestellungsadressen WITH(updlock,serializable) WHERE nga_id=@nga_id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
nga_id = SQL.doSQLVarListID(nga_id, sqlstr, "FMZOLL", , list)
|
||||
Return nga_id > 0
|
||||
End Function
|
||||
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblNCTSGestellungsadressen WHERE nga_id=@nga_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@nga_id", nga_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblNCTSGestellungsadressen] SET " & str & " WHERE nga_id=@nga_id ")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO tblNCTSGestellungsadressen (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblNCTSGestellungsadressen] WITH(updlock,serializable) WHERE nga_id=" & Me.nga_id
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
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
|
||||
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 l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [Offene_Posten_DVO] SET " & str & " WHERE OP_ID=@OP_ID ")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO Offene_Posten_DVO (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [Offene_Posten_DVO] WITH(updlock,serializable) WHERE OP_ID=" & Me.OP_ID
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
377
VERAG_PROG_ALLGEMEIN/Classes/cOfferte.vb
Normal file
377
VERAG_PROG_ALLGEMEIN/Classes/cOfferte.vb
Normal file
@@ -0,0 +1,377 @@
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cOfferteList
|
||||
Property KundenNr As Object = Nothing
|
||||
' Property OffertenNr As Object = Nothing
|
||||
Public LIST As New List(Of cOfferte)
|
||||
Dim SQL As New SQL
|
||||
'Dim listTodelete As New List(Of cOfferte)
|
||||
|
||||
Sub New(KundenNr, loadPos)
|
||||
Me.KundenNr = KundenNr
|
||||
' Me.OffertenNr = OffertenNr
|
||||
LOAD_LIST(Me.KundenNr, loadPos)
|
||||
End Sub
|
||||
Public Sub CLEAR()
|
||||
LIST.Clear()
|
||||
End Sub
|
||||
Public Sub ADD(eb_EMail As String, Optional cc As Boolean = False, Optional bcc As Boolean = False)
|
||||
' Dim l As New cOfferte
|
||||
'l.eb_bcc = bcc
|
||||
'LIST.Add(l)
|
||||
End Sub
|
||||
|
||||
Public Sub LOAD_LIST(KundenNr, loadPos)
|
||||
Try
|
||||
LIST.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM Offerten WHERE KundenNr=@KundenNr ", conn)
|
||||
cmd.Parameters.AddWithValue("@KundenNr", KundenNr)
|
||||
' cmd.Parameters.AddWithValue("@OffertenNr", OffertenNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cOfferte
|
||||
For Each i In l.getParameterList()
|
||||
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
|
||||
If dr.Item(i.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(l, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(l, dr.Item(i.Text))
|
||||
End If
|
||||
Next
|
||||
If loadPos Then l.LOAD_POSITIONEN()
|
||||
LIST.Add(l)
|
||||
|
||||
End While
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
'Function SAVE()
|
||||
' If SQL.doSQLVarList("DELETE FROM tblEmailBenachrichtigung WHERE eb_KundenNr=" & Me.eb_KundenNr & " and eb_ebartId=" & Me.eb_ebartId & " ", "FMZOLL") Then
|
||||
' For Each l In LIST
|
||||
' If Not l.INSERT() Then Return False
|
||||
' Next
|
||||
' Return True
|
||||
' Else
|
||||
' Return False
|
||||
' End If
|
||||
'End Function
|
||||
End Class
|
||||
|
||||
Public Class cOfferte
|
||||
Property KundenNr As Object = Nothing
|
||||
Property OffertenNr As Object = Nothing
|
||||
Property FilialenNr As Object = Nothing
|
||||
Property Pauschalpreis As Object = Nothing
|
||||
Property Standardofferte As Object = Nothing
|
||||
Property Besonderheiten As Object = Nothing
|
||||
Property Eingegeben_am As Object = Nothing
|
||||
Property Geändert_am As Object = Nothing
|
||||
Property Sachbearbeiter As Object = Nothing
|
||||
Property Gesperrt As Object = Nothing
|
||||
Property Gesperrt_Datum As Object = Nothing
|
||||
Property Gesperrt_Grund As Object = Nothing
|
||||
|
||||
Property POSITIONEN As New List(Of cOffertPosition) '= Nothing
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
Sub New(KundenNr, OffertenNr, loadPos)
|
||||
Me.KundenNr = KundenNr
|
||||
Me.OffertenNr = OffertenNr
|
||||
LOAD(KundenNr, OffertenNr, loadPos)
|
||||
End Sub
|
||||
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KundenNr", KundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("OffertenNr", OffertenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNr", FilialenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Pauschalpreis", Pauschalpreis))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Standardofferte", Standardofferte))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Besonderheiten", Besonderheiten))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Eingegeben am", Eingegeben_am, "Eingegeben_am"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Geändert am", Geändert_am, "Geändert_am"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachbearbeiter", Sachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gesperrt", Gesperrt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gesperrt_Datum", Gesperrt_Datum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gesperrt_Grund", Gesperrt_Grund))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Public Sub LOAD(KundenNr, OffertenNr, loadPos)
|
||||
Try
|
||||
POSITIONEN.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM Offerten WHERE KundenNr=@KundenNr AND OffertenNr=@OffertenNr ", conn)
|
||||
cmd.Parameters.AddWithValue("@KundenNr", KundenNr)
|
||||
cmd.Parameters.AddWithValue("@OffertenNr", OffertenNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
Dim l As New cOfferte
|
||||
For Each i In l.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 l.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
|
||||
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
|
||||
'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
|
||||
|
||||
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))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Public Function INSERT() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Me.Eingegeben_am = Now
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO Offertenpositionen (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
End Class
|
||||
84
VERAG_PROG_ALLGEMEIN/Classes/cPDFWriteValues.vb
Normal file
84
VERAG_PROG_ALLGEMEIN/Classes/cPDFWriteValues.vb
Normal file
@@ -0,0 +1,84 @@
|
||||
|
||||
Public Class cPDFWriteValues
|
||||
Private sText As String
|
||||
Private X As Double
|
||||
Private Y As Double
|
||||
Private width As Double
|
||||
Private height As Double
|
||||
Private mfont As String
|
||||
Private mSize As Integer
|
||||
Private maxlength As Integer = -1
|
||||
Private align As Integer = iTextSharp.text.Element.ALIGN_LEFT 'PdfContentByte.ALIGN_LEFT
|
||||
|
||||
|
||||
Public Sub New(ByVal sText As String, ByVal X As Double, ByVal Y As Double, ByVal width As Double, ByVal height As Double, ByVal mfont As String, ByVal mSize As Integer, Optional ByVal maxlength As Integer = -1, Optional ByVal align As Integer = iTextSharp.text.Element.ALIGN_LEFT)
|
||||
Me.sText = sText
|
||||
Me.X = X
|
||||
Me.Y = Y
|
||||
Me.width = width
|
||||
Me.height = height
|
||||
Me.mfont = mfont
|
||||
Me.mSize = mSize
|
||||
Me.maxlength = maxlength
|
||||
Me.align = align
|
||||
End Sub
|
||||
|
||||
Public ReadOnly Property Text() As Object
|
||||
Get
|
||||
Return sText
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public ReadOnly Property getX() As Object
|
||||
Get
|
||||
Return X
|
||||
End Get
|
||||
End Property
|
||||
Public ReadOnly Property getY() As Object
|
||||
Get
|
||||
Return Y
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public ReadOnly Property getWidth() As Object
|
||||
Get
|
||||
Return width
|
||||
End Get
|
||||
End Property
|
||||
Public ReadOnly Property getHeight() As Object
|
||||
Get
|
||||
Return height
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public ReadOnly Property font() As Object
|
||||
Get
|
||||
Return mfont
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public ReadOnly Property Size() As Object
|
||||
Get
|
||||
Return mSize
|
||||
End Get
|
||||
End Property
|
||||
Public ReadOnly Property getMaxlength() As Object
|
||||
Get
|
||||
Return maxlength
|
||||
End Get
|
||||
End Property
|
||||
Public ReadOnly Property getAlign() As Object
|
||||
Get
|
||||
Return align
|
||||
End Get
|
||||
End Property
|
||||
|
||||
' Public Overrides Function ToString() As Object
|
||||
' Return mText
|
||||
' End Function
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
105
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=@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
|
||||
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 l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
LOAD_POSITIONEN()
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
'Return Nothing
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
' Return Nothing
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
Public Sub LOAD_POSITIONEN()
|
||||
Try
|
||||
MEMBER.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM [tblQS_TeamsMA] WHERE qtma_QstmId=@qtma_QstmId ", conn)
|
||||
cmd.Parameters.AddWithValue("@qtma_QstmId", qstm_Id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cQSTeamMA
|
||||
For Each i In l.getParameterList()
|
||||
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
|
||||
If dr.Item(i.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(l, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(l, dr.Item(i.Text))
|
||||
End If
|
||||
Next
|
||||
MEMBER.Add(l)
|
||||
End While
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
Public Class cQSTeamMA
|
||||
|
||||
Property qtma_Id As Integer = -1
|
||||
Property qtma_QstmId As Integer
|
||||
Property qtma_MaId As Integer
|
||||
Property qtma_name As String = ""
|
||||
Property qtma_funktion As Object = Nothing
|
||||
|
||||
Dim SQL As New SQL
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
Sub New(qtma_Id)
|
||||
Me.qtma_Id = qtma_Id
|
||||
LOAD(qtma_Id)
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
Public Sub LOAD(qtma_Id)
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM [tblQS_TeamsMA] WHERE qtma_Id=@qtma_Id ", conn)
|
||||
cmd.Parameters.AddWithValue("@qtma_Id", qtma_Id)
|
||||
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
'Return Nothing
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
' Return Nothing
|
||||
End Sub
|
||||
|
||||
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("qtma_Id", qtma_Id, , True, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("qtma_QstmId", qtma_QstmId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("qtma_MaId", qtma_MaId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("qtma_name", qtma_name))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("qtma_funktion", qtma_funktion))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Public Function INSERT() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
|
||||
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblQS_TeamsMA] WITH(updlock,serializable) WHERE qtma_Id=" & Me.qtma_Id
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO tblQS_TeamsMA (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
End Class
|
||||
551
VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb
Normal file
551
VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb
Normal file
@@ -0,0 +1,551 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cRechnungsausgang
|
||||
|
||||
Property RK_ID As Integer
|
||||
Property FilialenNr As Integer
|
||||
Property AbfertigungsNr As Integer
|
||||
Property UnterNr As Integer = -1
|
||||
Property Abfertigungsdatum As Date
|
||||
Property RechnungsNr As Object = Nothing
|
||||
Property RechnungsDatum As Object = Nothing
|
||||
Property Sammelrechnung As Integer
|
||||
Property BelegartenNr As Integer = 70 'Nothing
|
||||
Property BelegartenKz As String = ""
|
||||
Property BelegartenBez As String = ""
|
||||
Property Vorzeichen As String = ""
|
||||
Property BelegNr As Object = Nothing
|
||||
Property AbsenderLandKz As Object = Nothing
|
||||
Property AbsenderKundenNr As Object = Nothing
|
||||
Property AbsenderName_1 As Object = Nothing '!!!!
|
||||
Property AbsenderName_2 As Object = Nothing '!!!!
|
||||
Property AbsenderStraße As Object = Nothing
|
||||
Property AbsenderOrt As Object = Nothing
|
||||
Property AbsenderOffertenNr As Object = Nothing
|
||||
Property EmpfängerLandKz As Object = Nothing
|
||||
Property EmpfängerKundenNr As Object = Nothing
|
||||
Property EmpfängerName_1 As Object = Nothing '!!!!
|
||||
Property EmpfängerName_2 As Object = Nothing '!!!!
|
||||
Property EmpfängerStraße As Object = Nothing
|
||||
Property EmpfängerOrt As Object = Nothing
|
||||
Property EmpfängerOffertenNr As Object = Nothing
|
||||
Property VermittlerLandKz As Object = Nothing
|
||||
Property VermittlerKundenNr As Object = Nothing
|
||||
Property VermittlerName_1 As Object = Nothing '!!!!
|
||||
Property VermittlerName_2 As Object = Nothing '!!!!
|
||||
Property VermittlerStraße As Object = Nothing
|
||||
Property VermittlerOrt As Object = Nothing
|
||||
Property VermittlerOffertenNr As Object = Nothing
|
||||
Property Rechnung_an As Integer
|
||||
Property KundenNrZentrale As Object = Nothing
|
||||
Property RechnungsLandKz As Object = Nothing
|
||||
Property RechnungsKundenNr As Integer
|
||||
Property RechnungsName_1 As Object = Nothing '!!!!
|
||||
Property RechnungsName_2 As Object = Nothing '!!!!
|
||||
Property RechnungsStraße As Object = Nothing
|
||||
Property RechnungsOrt As Object = Nothing
|
||||
Property RechnungsUstIdKz As Object = Nothing
|
||||
Property RechnungsUstIdNr As Object = Nothing
|
||||
Property RechnungsUstIdGeprüft As Object = Nothing 'Date = CDate("01.01.2000")
|
||||
Property Lastschrift As Boolean = False
|
||||
Property Kunden_SVS As Boolean = False
|
||||
Property Steuerschlüssel As Integer
|
||||
Property Steuersatz_Proz As Double
|
||||
Property LKW_Kennzeichen As Object = Nothing '!!!!
|
||||
Property WährungsNr As Object = Nothing
|
||||
Property Wert As Object = Nothing
|
||||
Property Umrechnungskurs As Object = Nothing
|
||||
Property Packstücke_und_Warenbezeichnung As Object = Nothing '!!!!
|
||||
Property Vermerk As Object = Nothing
|
||||
Property Anlage_1 As Object = Nothing '!!!!
|
||||
Property Anlage_2 As Object = Nothing '!!!!
|
||||
Property Anlage_3 As Object = Nothing '!!!!
|
||||
Property Anlage_4 As Object = Nothing '!!!!
|
||||
Property Anlage_5 As Object = Nothing '!!!!
|
||||
Property Anlage_6 As Object = Nothing '!!!!
|
||||
Property OffertenNr As Object = Nothing
|
||||
Property Vorlageprovision_Proz As Object = Nothing '!!!!%
|
||||
Property Kreditaufwendungen_Proz As Object = Nothing '!!!!%
|
||||
Property Besonderheiten As Object = Nothing
|
||||
Property Vorkasse As Boolean = False
|
||||
Property Text As Object = Nothing
|
||||
Property SteuerpflichtigerGesamtbetrag As Decimal = 0
|
||||
Property SteuerfreierGesamtbetrag As Decimal = 0
|
||||
Property Status As Object = 0
|
||||
Property DruckDatumZeit As Object = Nothing
|
||||
Property Abfertigungskosten As Object = Nothing
|
||||
Property Vorkosten As Object = Nothing
|
||||
Property Erlös As Object = Nothing
|
||||
Property Buchungsjahr As Object = Nothing
|
||||
Property Währungscode As Object = "EUR"
|
||||
Property Sachbearbeiter As Object = Nothing
|
||||
Property Trdin As Boolean = False
|
||||
Property KartenNr As Object = Nothing
|
||||
Property RefFilialenNr As Object = Nothing
|
||||
Property RefAbfertigungsNr As Object = Nothing
|
||||
Property RefUnterNr As Object = Nothing
|
||||
Property Notiz As Object = Nothing
|
||||
Property Zucker_MRN_Nr As Object = Nothing
|
||||
Property Zucker_MRN_Datum As Object = Nothing
|
||||
Property Zucker_Aufschub As Object = Nothing
|
||||
Property ReErfZeitstempel As Object = Nothing
|
||||
Property Nettozahlungsziel As Object = Nothing
|
||||
Property Firma_ID As Integer = 0
|
||||
Property SpeditionsbuchUnterNr As Object = Nothing
|
||||
Property ErfassungsNr As Object = Nothing
|
||||
'Property upsize_ts As Object = Nothing
|
||||
Property AvisiererKundenNr As Object = Nothing
|
||||
Property Avisierer As Object = Nothing
|
||||
Property EMailRechnungstext As Object = Nothing
|
||||
Property AvisoID As Object = Nothing
|
||||
Property KdAuftragsNr As Object = Nothing
|
||||
|
||||
' FROM [VERAG as object=nothing.[dbo as object=nothing.[Rechnungsausgang as object=nothing
|
||||
|
||||
Public POSITIONEN As New List(Of cRechnungsausgangPositionen)
|
||||
Shared SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
Sub New(RK_ID)
|
||||
Me.RK_ID = RK_ID
|
||||
LOAD() : LOAD_POSITIONEN()
|
||||
End Sub
|
||||
|
||||
|
||||
Public Function getMaxRGUnterNr() As Integer
|
||||
Return getMaxRGUnterNr(FilialenNr, AbfertigungsNr, SpeditionsbuchUnterNr)
|
||||
End Function
|
||||
|
||||
Public Shared Function getMaxRGUnterNr(FilialenNr As Integer, AbfertigungsNr As Integer, SpeditionsbuchUnterNr As Integer) As Integer
|
||||
' Dim Nr = SQL.getValueTxtBySql("Select isnull([UnterNr], -1) + 1 FROM [Rechnungsausgang] where [FilialenNr]='" & FilialenNr & "' And AbfertigungsNr='" & AbfertigungsNr & "' And SpeditionsbuchUnterNr='" & SpeditionsbuchUnterNr & "' ORDER BY [UnterNr] desc", "FMZOLL")
|
||||
Dim Nr = SQL.getValueTxtBySql("Select TOP 1 isnull([UnterNr], -1) + 1 FROM [Rechnungsausgang] where [FilialenNr]='" & FilialenNr & "' And AbfertigungsNr='" & AbfertigungsNr & "' ORDER BY [UnterNr] desc", "FMZOLL")
|
||||
Return If(IsNumeric(Nr), Nr, 0)
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RK_ID", RK_ID, , True, True))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNr", FilialenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", AbfertigungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UnterNr", UnterNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abfertigungsdatum", Abfertigungsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsNr", RechnungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsDatum", RechnungsDatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sammelrechnung", Sammelrechnung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BelegartenNr", BelegartenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BelegartenKz", BelegartenKz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BelegartenBez", BelegartenBez))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vorzeichen", Vorzeichen))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BelegNr", BelegNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbsenderLandKz", AbsenderLandKz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbsenderKundenNr", AbsenderKundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbsenderName 1", AbsenderName_1, "AbsenderName_1")) '!!!!
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbsenderName 2", AbsenderName_2, "AbsenderName_2")) '!!!!
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbsenderStraße", AbsenderStraße))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbsenderOrt", AbsenderOrt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbsenderOffertenNr", AbsenderOffertenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmpfängerLandKz", EmpfängerLandKz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmpfängerKundenNr", EmpfängerKundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmpfängerName 1", EmpfängerName_1, "EmpfängerName_1")) '!!!!
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmpfängerName 2", EmpfängerName_2, "EmpfängerName_2")) '!!!!
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmpfängerStraße", EmpfängerStraße))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmpfängerOrt", EmpfängerOrt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmpfängerOffertenNr", EmpfängerOffertenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VermittlerLandKz", VermittlerLandKz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VermittlerKundenNr", VermittlerKundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VermittlerName 1", VermittlerName_1, "VermittlerName_1")) '!!!!
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VermittlerName 2", VermittlerName_2, "VermittlerName_2")) '!!!!
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VermittlerStraße", VermittlerStraße))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VermittlerOrt", VermittlerOrt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VermittlerOffertenNr", VermittlerOffertenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechnung an", Rechnung_an, "Rechnung_an")) '!!!!
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KundenNrZentrale", KundenNrZentrale))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsLandKz", RechnungsLandKz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsKundenNr", RechnungsKundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsName 1", RechnungsName_1, "RechnungsName_1")) '!!!!
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsName 2", RechnungsName_2, "RechnungsName_2")) '!!!!
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsStraße", RechnungsStraße))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsOrt", RechnungsOrt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsUstIdKz", RechnungsUstIdKz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsUstIdNr", RechnungsUstIdNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsUstIdGeprüft", RechnungsUstIdGeprüft))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Lastschrift", Lastschrift))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kunden-SVS", Kunden_SVS, "Kunden_SVS")) '!!!!-
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuerschlüssel", Steuerschlüssel))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuersatz %", Steuersatz_Proz, "Steuersatz_Proz")) '!!!! %
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LKW Kennzeichen", LKW_Kennzeichen, "LKW_Kennzeichen")) '!!!!
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("WährungsNr", WährungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Wert", Wert))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Umrechnungskurs", Umrechnungskurs))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Packstücke und Warenbezeichnung", Packstücke_und_Warenbezeichnung, "Packstücke_und_Warenbezeichnung")) '!!!!
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vermerk", Vermerk))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Anlage 1", Anlage_1, "Anlage_1")) '!!!!
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Anlage 2", Anlage_2, "Anlage_2")) '!!!!
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Anlage 3", Anlage_3, "Anlage_3")) '!!!!
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Anlage 4", Anlage_4, "Anlage_4")) '!!!!
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Anlage 5", Anlage_5, "Anlage_5")) '!!!!
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Anlage 6", Anlage_6, "Anlage_6")) '!!!!
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("OffertenNr", OffertenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vorlageprovision %", Vorlageprovision_Proz, "Vorlageprovision_Proz")) '!!!!%
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kreditaufwendungen %", Kreditaufwendungen_Proz, "Kreditaufwendungen_Proz")) '!!!!%
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Besonderheiten", Besonderheiten))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vorkasse", Vorkasse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Text", Text))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SteuerpflichtigerGesamtbetrag", SteuerpflichtigerGesamtbetrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SteuerfreierGesamtbetrag", SteuerfreierGesamtbetrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Status", Status))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DruckDatumZeit", DruckDatumZeit))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abfertigungskosten", Abfertigungskosten))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vorkosten", Vorkosten))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Erlös", Erlös))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Buchungsjahr", Buchungsjahr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Währungscode", Währungscode))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachbearbeiter", Sachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Trdin", Trdin))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KartenNr", KartenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RefFilialenNr", RefFilialenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RefAbfertigungsNr", RefAbfertigungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RefUnterNr", RefUnterNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Notiz", Notiz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zucker_MRN_Nr", Zucker_MRN_Nr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zucker_MRN_Datum", Zucker_MRN_Datum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zucker_Aufschub", Zucker_Aufschub))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ReErfZeitstempel", ReErfZeitstempel))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Nettozahlungsziel", Nettozahlungsziel))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_ID", Firma_ID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SpeditionsbuchUnterNr", SpeditionsbuchUnterNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ErfassungsNr", ErfassungsNr))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AvisiererKundenNr", AvisiererKundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Avisierer", Avisierer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EMailRechnungstext", EMailRechnungstext))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AvisoID", AvisoID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KdAuftragsNr", KdAuftragsNr))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Shared Function LOADByFilialeAbfNrsssasdssssssssss(FilialeNr As Integer, AbfertigungsNr As Integer) As cVorauskasse
|
||||
Try
|
||||
Dim VK As New cVorauskasse
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM Rechnungsausgang WHERE vk_AbfertigungsNr=@vk_AbfertigungsNr AND vk_FilialeNr=@vk_FilialeNr ", conn)
|
||||
cmd.Parameters.AddWithValue("@vk_FilialeNr", FilialeNr)
|
||||
cmd.Parameters.AddWithValue("@vk_AbfertigungsNr", AbfertigungsNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In VK.getParameterList()
|
||||
Dim propInfo As PropertyInfo = VK.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(VK, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(VK, dr.Item(l.Text))
|
||||
End If
|
||||
Next
|
||||
dr.Close()
|
||||
Return VK
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
'VOREZEICHENCNENCNECNENCN!!!
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return Nothing
|
||||
End Function
|
||||
|
||||
|
||||
Public Function SAVE(Optional saveAll As Boolean = True) As Boolean
|
||||
doVorzeichen()
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM Rechnungsausgang WHERE RK_ID=@RK_ID) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
RK_ID = SQL.doSQLVarListID(RK_ID, sqlstr, "FMZOLL", , list)
|
||||
|
||||
|
||||
If RK_ID > 0 Then
|
||||
doVorzeichenPOS()
|
||||
If saveAll Then SAVE_POSITIONEN(RK_ID) ' positionen speicehrn
|
||||
doVorzeichenPOS()
|
||||
End If
|
||||
doVorzeichen()
|
||||
Return RK_ID > 0
|
||||
End Function
|
||||
|
||||
Public Sub doVorzeichen()
|
||||
Dim vz = If(Vorzeichen = "-", -1, 1)
|
||||
Me.SteuerfreierGesamtbetrag *= vz
|
||||
Me.SteuerpflichtigerGesamtbetrag *= vz
|
||||
Me.Abfertigungskosten *= vz
|
||||
End Sub
|
||||
Public Sub doVorzeichenPOS()
|
||||
Dim vz = If(Vorzeichen = "-", -1, 1)
|
||||
For Each p In POSITIONEN
|
||||
p.doVorzeichen(Vorzeichen)
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Public Function CHECK_Validation(ByRef errMsg) As Boolean
|
||||
If Rechnung_an = 0 OrElse CStr(Rechnung_an) = "" Then errMsg = "ERROR: Rechnungsempfänger auswählen!" : Return False
|
||||
' If Steuerschlüssel Then errMsg = "ERROR: Steuerschlüssel muss angegeben werden!" : Return False
|
||||
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Public Function SAVE_POSITIONEN(RK_ID) As Boolean
|
||||
If DELETE_POSITIONEN() Then ' zuerst Einträge löschen...
|
||||
For Each p In POSITIONEN
|
||||
If Not p.INSERT(RK_ID) Then Return False ' ... dann insert
|
||||
Next
|
||||
Else : Return False
|
||||
End If
|
||||
Return True
|
||||
End Function
|
||||
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM Rechnungsausgang WHERE RK_ID=@RK_ID ", conn)
|
||||
cmd.Parameters.AddWithValue("@RK_ID", RK_ID)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
doVorzeichen()
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [Rechnungsausgang] SET " & str & " WHERE RK_ID=@RK_ID ")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO Rechnungsausgang (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
Public Function SET_DruckdatumUhrzeit() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " UPDATE [Rechnungsausgang] SET DruckDatumZeit=GETDATE WHERE RK_ID=" & Me.RK_ID
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
Public Function isReverseChargeSumme() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " SELECT SUM(POS.SteuerfreierBetrag) AS ReverseChargeSumme "
|
||||
sqlstr &= " FROM Rechnungsausgang as RA INNER JOIN RechnungsausgangPositionen as POS ON RA.RK_ID = POS.RK_ID INNER JOIN Leistungen ON POS.LeistungsNr = Leistungen.LeistungsNr INNER JOIN [Länderverzeichnis für die Außenhandelsstatistik] AS LD ON RA.RechnungsUstIdKz = LD.LandKz"
|
||||
sqlstr &= " WHERE RA.rk_id='" & Me.RK_ID & "' AND LD.ReverseCharge = 1 AND Leistungen.ReverseCharge = 1"
|
||||
|
||||
Return If(SQL.getValueTxtBySql(sqlstr, "FMZOLL") Is DBNull.Value, False, True)
|
||||
End Function
|
||||
|
||||
Public Function setSPEDBUCH_FAKTURIERT(Optional wert As Boolean = True) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " UPDATE Speditionsbuch SET Fakturiert='" & If(wert, 1, 0) & "' WHERE FilialenNr = '" & Me.FilialenNr & "' AND AbfertigungsNr = '" & Me.[AbfertigungsNr] & "' AND UnterNr = '" & Me.[SpeditionsbuchUnterNr] & "'"
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [Rechnungsausgang] WHERE RK_ID=" & Me.RK_ID
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
Public Function DELETE_POSITIONEN() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [RechnungsausgangPositionen] WHERE RK_ID=" & Me.RK_ID
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
Public Sub LOAD_POSITIONEN()
|
||||
Try
|
||||
POSITIONEN.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("Select * FROM RechnungsausgangPositionen WHERE RK_ID=@RK_ID ", conn)
|
||||
cmd.Parameters.AddWithValue("@RK_ID", Me.RK_ID)
|
||||
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cRechnungsausgangPositionen
|
||||
For Each i In l.getParameterList()
|
||||
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
|
||||
If dr.Item(i.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(l, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(l, dr.Item(i.Text))
|
||||
End If
|
||||
Next
|
||||
POSITIONEN.Add(l)
|
||||
End While
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
doVorzeichenPOS()
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
Public Class cRechnungsausgangPositionen
|
||||
|
||||
Property RK_ID As Integer
|
||||
Property LeistungsNr As Integer
|
||||
Property Steuerpflichtig As Boolean
|
||||
Property LeistungsBez As String = Nothing
|
||||
Property IndexZkteing As Integer = 0
|
||||
Property BerechnungsartNr As Integer = 1
|
||||
Property Preis As Object = Nothing
|
||||
Property Anzahl As Object = Nothing
|
||||
Property SteuerpflichtigerBetrag As Decimal = 0
|
||||
Property SteuerfreierBetrag As Decimal = 0
|
||||
Property AufschubkontoNr As Object = Nothing
|
||||
Property Aufschubfälligkeit As Object = Nothing
|
||||
Property Prüfsumme_berechnen As Boolean '!!!!
|
||||
Property DateiNameAufschub As Object = Nothing
|
||||
Property Preisbindung As Boolean '!!!!
|
||||
Property Belegdaten As Object = Nothing
|
||||
Property Fremdwährung As Object = Nothing
|
||||
Property BGebLeistungsNr As Object = Nothing
|
||||
Property BGebProzent As Object = Nothing
|
||||
Property BGebBgl As Object = Nothing
|
||||
Property BGebMinBetrag As Object = Nothing
|
||||
Property RePosZeitstempel As Object = Nothing
|
||||
|
||||
'FROM [VERAG].[dbo].[RechnungsausgangPositionen]
|
||||
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RK_ID", RK_ID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LeistungsNr", LeistungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuerpflichtig", Steuerpflichtig))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LeistungsBez", LeistungsBez))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("IndexZkteing", IndexZkteing))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BerechnungsartNr", BerechnungsartNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Preis", Preis))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Anzahl", Anzahl))
|
||||
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SteuerpflichtigerBetrag", SteuerpflichtigerBetrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SteuerfreierBetrag", SteuerfreierBetrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AufschubkontoNr", AufschubkontoNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Aufschubfälligkeit", Aufschubfälligkeit))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Prüfsumme berechnen", Prüfsumme_berechnen, "Prüfsumme_berechnen")) '!!!!
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DateiNameAufschub", DateiNameAufschub))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Preisbindung", Preisbindung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Belegdaten", Belegdaten))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Fremdwährung", Fremdwährung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BGebLeistungsNr", BGebLeistungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BGebProzent", BGebProzent))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BGebBgl", BGebBgl))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BGebMinBetrag", BGebMinBetrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RePosZeitstempel", RePosZeitstempel))
|
||||
|
||||
'list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("upsize_ts", XXXXXXXXXXXXX))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Public Function INSERT(RK_ID) As Boolean
|
||||
Me.RK_ID = RK_ID
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
|
||||
Public Sub doVorzeichen(Vorzeichen)
|
||||
Dim vz = If(Vorzeichen = "-", -1, 1)
|
||||
Me.Preis *= vz
|
||||
Me.SteuerfreierBetrag *= vz
|
||||
Me.SteuerpflichtigerBetrag *= vz
|
||||
End Sub
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
'Me.Eingegeben_am = Now
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO RechnungsausgangPositionen (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
End Class
|
||||
146
VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb
Normal file
146
VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb
Normal file
@@ -0,0 +1,146 @@
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Public Class cRechnungsnummern
|
||||
Property SpeditionsbuchNr As String = "" 'FIRMA!
|
||||
Property Buchungsjahr As String = ""
|
||||
|
||||
|
||||
Property VonRechnungsNr As Integer = -1
|
||||
Property BisRechnungsNr As Integer = -1
|
||||
Property LfdRechnungsNr As Integer = 0
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Public Sub New(SpeditionsbuchNr As String, Buchungsjahr As String)
|
||||
Me.SpeditionsbuchNr = SpeditionsbuchNr
|
||||
Me.Buchungsjahr = Buchungsjahr
|
||||
|
||||
'Default-Werte:
|
||||
'-------------------------------------
|
||||
Select Case SpeditionsbuchNr
|
||||
Case 1
|
||||
VonRechnungsNr = Now.ToString("yy") & "100001"
|
||||
BisRechnungsNr = Now.ToString("yy") & "199999"
|
||||
Case 3
|
||||
VonRechnungsNr = Now.ToString("yy") & "300001"
|
||||
BisRechnungsNr = Now.ToString("yy") & "399999"
|
||||
Case 7
|
||||
VonRechnungsNr = Now.ToString("yy") & "700001"
|
||||
BisRechnungsNr = Now.ToString("yy") & "799999"
|
||||
Case 11
|
||||
VonRechnungsNr = Now.ToString("yy") & "900001"
|
||||
BisRechnungsNr = Now.ToString("yy") & "999999"
|
||||
Case 15
|
||||
VonRechnungsNr = Now.ToString("yy") & "200001"
|
||||
BisRechnungsNr = Now.ToString("yy") & "299999"
|
||||
Case 20
|
||||
VonRechnungsNr = Now.ToString("yy") & "400001"
|
||||
BisRechnungsNr = Now.ToString("yy") & "499999"
|
||||
End Select
|
||||
LfdRechnungsNr = VonRechnungsNr
|
||||
'-------------------------------------
|
||||
|
||||
|
||||
LOAD(SpeditionsbuchNr, Buchungsjahr)
|
||||
End Sub
|
||||
|
||||
|
||||
Public Function INCREASE_RGNR() As Integer
|
||||
If LfdRechnungsNr > 0 Then
|
||||
LfdRechnungsNr += 1
|
||||
Else
|
||||
LfdRechnungsNr = 1
|
||||
End If
|
||||
SAVE()
|
||||
Return LfdRechnungsNr
|
||||
End Function
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM [Rechnungsnummern] WITH(updlock,serializable) WHERE [SpeditionsbuchNr]=@SpeditionsbuchNr AND Buchungsjahr=@Buchungsjahr) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
'MsgBox(sqlstr)
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
Public Sub LOAD(SpeditionsbuchNr As String, Buchungsjahr As String)
|
||||
Try
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM Rechnungsnummern WHERE [SpeditionsbuchNr]=@SpeditionsbuchNr AND Buchungsjahr=@Buchungsjahr ", conn)
|
||||
cmd.Parameters.AddWithValue("@SpeditionsbuchNr", SpeditionsbuchNr)
|
||||
cmd.Parameters.AddWithValue("@Buchungsjahr", Buchungsjahr)
|
||||
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
Me.SpeditionsbuchNr = cSqlDb.checkNullStr(dr.Item("SpeditionsbuchNr"))
|
||||
Me.Buchungsjahr = cSqlDb.checkNullStr(dr.Item("Buchungsjahr"))
|
||||
Me.LfdRechnungsNr = cSqlDb.checkNullStr(dr.Item("LfdRechnungsNr"))
|
||||
Me.VonRechnungsNr = cSqlDb.checkNullInteger(dr.Item("VonRechnungsNr"))
|
||||
Me.BisRechnungsNr = cSqlDb.checkNullInteger(dr.Item("BisRechnungsNr"))
|
||||
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
'Return Nothing
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
' Return Nothing
|
||||
End Sub
|
||||
|
||||
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem2)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("SpeditionsbuchNr", SpeditionsbuchNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Buchungsjahr", Buchungsjahr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("LfdRechnungsNr", LfdRechnungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("VonRechnungsNr", VonRechnungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("BisRechnungsNr", BisRechnungsNr))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
str &= "[" & i.Text & "] = @" & i.Text.Replace("-", "").Replace(" ", "") & ","
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [Rechnungsnummern] SET " & str & " WHERE [SpeditionsbuchNr]=@SpeditionsbuchNr AND Buchungsjahr=@Buchungsjahr ")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Text.Replace("-", "").Replace(" ", "") & ","
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO [Rechnungsnummern] (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
159
VERAG_PROG_ALLGEMEIN/Classes/cSMS.vb
Normal file
159
VERAG_PROG_ALLGEMEIN/Classes/cSMS.vb
Normal file
@@ -0,0 +1,159 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cSMS
|
||||
Property sms_id As Integer
|
||||
Property sms_Datum As Date = Now
|
||||
Property sms_Firma As Object = Nothing
|
||||
Property sms_Account As Object = Nothing
|
||||
|
||||
Property sms_Fahrername As Object = Nothing
|
||||
Property sms_KundenNr As Object = Nothing
|
||||
Property sms_Kunde As Object = Nothing
|
||||
|
||||
|
||||
|
||||
Property sms_Vorwahl As Object = Nothing
|
||||
Property sms_Handynummer As Object = Nothing
|
||||
Property sms_Nachricht As Object = Nothing
|
||||
Property sms_BatchId As Object = Nothing
|
||||
Property sms_MessageIds As Object = Nothing
|
||||
Property sms_Sachbearbeiter As String = Nothing
|
||||
Property sms_SachbearbeiterId As Integer
|
||||
Property sms_AvisoId As Object = Nothing
|
||||
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
sms_Sachbearbeiter = If(sms_Sachbearbeiter, VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME)
|
||||
If sms_SachbearbeiterId <= 0 Then sms_SachbearbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
||||
|
||||
End Sub
|
||||
|
||||
Sub New(sms_id)
|
||||
Me.sms_id = sms_id
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_id", sms_id, , True, True))
|
||||
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Datum", sms_Datum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Firma", sms_Firma))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Account", sms_Account))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Fahrername", sms_Fahrername))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_KundenNr", sms_KundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Kunde", sms_Kunde))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Vorwahl", sms_Vorwahl))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Handynummer", sms_Handynummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Nachricht", sms_Nachricht))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_BatchId", sms_BatchId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_MessageIds", sms_MessageIds))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_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))
|
||||
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblSMS WITH(updlock,serializable) WHERE sms_id=@sms_id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
sms_id = SQL.doSQLVarListID(sms_id, sqlstr, "FMZOLL", , list)
|
||||
Return sms_id > 0
|
||||
End Function
|
||||
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblSMS WHERE sms_id=@sms_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@sms_id", sms_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblSMS] SET " & str & " WHERE sms_id=@sms_id ")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO tblSMS (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblSMS] WITH(updlock,serializable) WHERE sms_id=" & Me.sms_id
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
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 = 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
|
||||
481
VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb
Normal file
481
VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb
Normal file
@@ -0,0 +1,481 @@
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Public Class cSendungen
|
||||
Implements ICloneable
|
||||
Property tblSnd_SendungID As Integer = Nothing
|
||||
Property tblSnd_PosUnterNr As Integer = Nothing
|
||||
Property tblSnd_AvisoID As Integer = Nothing
|
||||
Property tblSnd_Abfertigungsart_ID As Integer = Nothing
|
||||
Property tblSnd_EmpfaengerKdNr As Integer = Nothing
|
||||
Property tblSnd_Empfaenger As String = Nothing
|
||||
Property tblSnd_Ansprechperson As String = Nothing
|
||||
Property tblSnd_Bonitaet As String = Nothing
|
||||
Property tblSnd_Anmerkung As String = Nothing
|
||||
Property tblSnd_AuftraggeberKdNr As Integer = Nothing
|
||||
Property tblSnd_Auftraggeber As String = Nothing
|
||||
Property tblSnd_SpeditionsbuchEingetragen As Boolean = False
|
||||
Property FilialenNr As Integer = Nothing
|
||||
Property AbfertigungsNr As Integer = Nothing
|
||||
Property UnterNr As Integer = Nothing
|
||||
Property tblSnd_Colli As String = Nothing
|
||||
Property tblSnd_Gewicht As String = Nothing
|
||||
Property tblSnd_Warenbezeichnung As String = Nothing
|
||||
Property tblSnd_SachbearbeiterId As Integer = Nothing
|
||||
Property tblSnd_AbsenderKdNr As Integer = Nothing
|
||||
Property tblSnd_Absender As String = Nothing
|
||||
Property tblSnd_AngabeZolltarif As Integer = Nothing
|
||||
Property tblSnd_inBearbeitung As Boolean = False
|
||||
Property tblSnd_Bearbeitung_MaId As Integer = Nothing
|
||||
Property tblSnd_aufschub As String = Nothing
|
||||
Property tblSnd_anzahlHandling As Object = Nothing
|
||||
' Property tblSnd_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 ABRECHNUNG As New List(Of cSendungAbrechnung)
|
||||
|
||||
'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 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
|
||||
|
||||
Public Sub New(tblSnd_AvisoID, currentHisId, Optional FilialenNr = Nothing, Optional AbfertigungsNr = Nothing, Optional UnterNr = Nothing, Optional tblSnd_anzahlHandling = Nothing)
|
||||
Me.tblSnd_SendungID = -1
|
||||
Me.tblSnd_AvisoID = tblSnd_AvisoID
|
||||
Me.tblSnd_PosUnterNr = currentHisId
|
||||
' row.Item("tblSnd_Empfaenger") = ""
|
||||
' row.Item("tblSnd_Ansprechperson") = ""
|
||||
'row.Item("tblSnd_Auftraggeber") = ""
|
||||
'row.Item("tblSnd_Absender") = ""
|
||||
Me.tblSnd_Anmerkung = ""
|
||||
Me.tblSnd_Gewicht = ""
|
||||
Me.tblSnd_Colli = ""
|
||||
|
||||
'row.Item("tblSnd_SpeditionsbuchEingetragen") = False
|
||||
Me.tblSnd_AngabeZolltarif = 2
|
||||
Me.tblSnd_inBearbeitung = False
|
||||
Me.tblSnd_aufschub = ""
|
||||
|
||||
If FilialenNr IsNot Nothing Then Me.FilialenNr = FilialenNr
|
||||
If AbfertigungsNr IsNot Nothing Then Me.AbfertigungsNr = AbfertigungsNr
|
||||
If UnterNr IsNot Nothing Then Me.UnterNr = UnterNr
|
||||
If tblSnd_anzahlHandling IsNot Nothing Then Me.tblSnd_anzahlHandling = tblSnd_anzahlHandling
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub New(tblSnd_SendungID)
|
||||
LOAD(tblSnd_SendungID)
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM [tblSendungen] WITH(updlock,serializable) WHERE tblSnd_SendungID=@tblSnd_SendungID) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
' MsgBox(sqlstr)
|
||||
Dim id = SQL.doSQLVarListID(tblSnd_SendungID, sqlstr, "AVISO", , list)
|
||||
If id > 0 Then
|
||||
tblSnd_SendungID = id : Return True
|
||||
End If
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblSendungen] WITH(updlock,serializable) WHERE tblSnd_SendungID=" & Me.tblSnd_SendungID
|
||||
Return SQL.doSQL(sqlstr, "AVISO")
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Sub LOAD(tblSnd_SendungID As Integer)
|
||||
Try
|
||||
Dim conn As SqlConnection = SQL.GetNewOpenConnectionAVISO()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblSendungen WHERE tblSnd_SendungID=@tblSnd_SendungID ", conn)
|
||||
cmd.Parameters.AddWithValue("@tblSnd_SendungID", tblSnd_SendungID)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
Me.tblSnd_SendungID = SQL.checkNullReturnValue(dr.Item("tblSnd_SendungID"), Nothing)
|
||||
Me.tblSnd_PosUnterNr = SQL.checkNullReturnValue(dr.Item("tblSnd_PosUnterNr"), Nothing)
|
||||
Me.tblSnd_AvisoID = SQL.checkNullReturnValue(dr.Item("tblSnd_AvisoID"), Nothing)
|
||||
Me.tblSnd_Abfertigungsart_ID = SQL.checkNullReturnValue(dr.Item("tblSnd_Abfertigungsart_ID"), Nothing)
|
||||
Me.tblSnd_EmpfaengerKdNr = SQL.checkNullReturnValue(dr.Item("tblSnd_EmpfaengerKdNr"), Nothing)
|
||||
Me.tblSnd_Empfaenger = SQL.checkNullReturnValue(dr.Item("tblSnd_Empfaenger"), Nothing)
|
||||
Me.tblSnd_Ansprechperson = SQL.checkNullReturnValue(dr.Item("tblSnd_Ansprechperson"), Nothing)
|
||||
Me.tblSnd_Bonitaet = SQL.checkNullReturnValue(dr.Item("tblSnd_Bonitaet"), Nothing)
|
||||
Me.tblSnd_Anmerkung = SQL.checkNullReturnValue(dr.Item("tblSnd_Anmerkung"), Nothing)
|
||||
Me.tblSnd_AuftraggeberKdNr = SQL.checkNullReturnValue(dr.Item("tblSnd_AuftraggeberKdNr"), Nothing)
|
||||
Me.tblSnd_Auftraggeber = SQL.checkNullReturnValue(dr.Item("tblSnd_Auftraggeber"), Nothing)
|
||||
Me.tblSnd_SpeditionsbuchEingetragen = SQL.checkNullReturnValue(dr.Item("tblSnd_SpeditionsbuchEingetragen"), Nothing)
|
||||
Me.FilialenNr = SQL.checkNullReturnValue(dr.Item("FilialenNr"), Nothing)
|
||||
Me.AbfertigungsNr = SQL.checkNullReturnValue(dr.Item("AbfertigungsNr"), Nothing)
|
||||
Me.UnterNr = SQL.checkNullReturnValue(dr.Item("UnterNr"), Nothing)
|
||||
Me.tblSnd_Colli = SQL.checkNullReturnValue(dr.Item("tblSnd_Colli"), Nothing)
|
||||
Me.tblSnd_Gewicht = SQL.checkNullReturnValue(dr.Item("tblSnd_Gewicht"), Nothing)
|
||||
Me.tblSnd_Warenbezeichnung = SQL.checkNullReturnValue(dr.Item("tblSnd_Warenbezeichnung"), Nothing)
|
||||
Me.tblSnd_SachbearbeiterId = SQL.checkNullReturnValue(dr.Item("tblSnd_SachbearbeiterId"), Nothing)
|
||||
Me.tblSnd_AbsenderKdNr = SQL.checkNullReturnValue(dr.Item("tblSnd_AbsenderKdNr"), Nothing)
|
||||
Me.tblSnd_Absender = SQL.checkNullReturnValue(dr.Item("tblSnd_Absender"), Nothing)
|
||||
Me.tblSnd_AngabeZolltarif = SQL.checkNullReturnValue(dr.Item("tblSnd_AngabeZolltarif"), Nothing)
|
||||
Me.tblSnd_inBearbeitung = SQL.checkNullReturnValue(dr.Item("tblSnd_inBearbeitung"), Nothing)
|
||||
Me.tblSnd_Bearbeitung_MaId = SQL.checkNullReturnValue(dr.Item("tblSnd_Bearbeitung_MaId"), Nothing)
|
||||
Me.tblSnd_aufschub = SQL.checkNullReturnValue(dr.Item("tblSnd_aufschub"), Nothing)
|
||||
Me.tblSnd_anzahlHandling = SQL.checkNullReturnValue(dr.Item("tblSnd_anzahlHandling"), Nothing)
|
||||
' Me.tblSnd_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)
|
||||
|
||||
|
||||
End If
|
||||
dr.Close()
|
||||
|
||||
' End Using
|
||||
conn.Close()
|
||||
End Using
|
||||
'Return Nothing
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
' 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 ", 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
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
' Return Nothing
|
||||
End Sub
|
||||
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_SendungID", tblSnd_SendungID, , True)) 'UPDATE INSERT ISPRIMARY!
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_PosUnterNr", tblSnd_PosUnterNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_AvisoID", tblSnd_AvisoID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Abfertigungsart_ID", tblSnd_Abfertigungsart_ID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_EmpfaengerKdNr", tblSnd_EmpfaengerKdNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Empfaenger", tblSnd_Empfaenger))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Ansprechperson", tblSnd_Ansprechperson))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Bonitaet", tblSnd_Bonitaet))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Anmerkung", tblSnd_Anmerkung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_AuftraggeberKdNr", tblSnd_AuftraggeberKdNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Auftraggeber", tblSnd_Auftraggeber))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_SpeditionsbuchEingetragen", tblSnd_SpeditionsbuchEingetragen))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNr", FilialenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", AbfertigungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UnterNr", UnterNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Colli", tblSnd_Colli))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Gewicht", tblSnd_Gewicht))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Warenbezeichnung", tblSnd_Warenbezeichnung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_SachbearbeiterId", tblSnd_SachbearbeiterId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_AbsenderKdNr", tblSnd_AbsenderKdNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Absender", tblSnd_Absender))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_AngabeZolltarif", tblSnd_AngabeZolltarif))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_inBearbeitung", tblSnd_inBearbeitung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Bearbeitung_MaId", tblSnd_Bearbeitung_MaId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_aufschub", tblSnd_aufschub))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_anzahlHandling", tblSnd_anzahlHandling))
|
||||
|
||||
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_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_QS_MA", tblSnd_QS_MA))
|
||||
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))
|
||||
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam 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
|
||||
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.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
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
Public Function SAVE_Abrechnung() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
' Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
SAVE_Abrechnung = False
|
||||
Dim sqlstr = " DELETE FROM tblSendAbrechnung WHERE sndabr_sendId=" & Me.tblSnd_SendungID
|
||||
If SQL.doSQL(sqlstr, "AVISO") Then
|
||||
SAVE_Abrechnung = True
|
||||
For Each a In ABRECHNUNG
|
||||
If Not a.INSERT() Then SAVE_Abrechnung = False
|
||||
Next
|
||||
End If
|
||||
|
||||
' Return b
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
Public 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
|
||||
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 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
|
||||
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
|
||||
185
VERAG_PROG_ALLGEMEIN/Classes/cSession.vb
Normal file
185
VERAG_PROG_ALLGEMEIN/Classes/cSession.vb
Normal file
@@ -0,0 +1,185 @@
|
||||
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_login As Object = Nothing = Now
|
||||
Property sess_logout As Object = Nothing
|
||||
Property sess_lastRm As Object = Nothing
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
|
||||
End Sub
|
||||
Sub New(sess_Id)
|
||||
Me.sess_Id = sess_Id
|
||||
LOAD()
|
||||
End Sub
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_Id", sess_Id, , True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_system", sess_system))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_progId", sess_progId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_progName", sess_progName))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_progVersion", sess_progVersion))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_firma", sess_firma))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_niederlassung", sess_niederlassung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_maName", sess_maName))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_maId", sess_maId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_login", sess_login))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_logout", sess_logout))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_lastRm", sess_lastRm))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblSessions WITH(updlock,serializable) WHERE sess_Id=@sess_Id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Dim id = SQL.doSQLVarListID(sess_Id, sqlstr, "ADMIN", , list)
|
||||
Me.sess_Id = id
|
||||
Return id > 0
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblSessions WHERE sess_Id=@sess_Id ", conn)
|
||||
cmd.Parameters.AddWithValue("@sess_Id", sess_Id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Function UPDATE_TIME() As String
|
||||
If sess_Id > 0 Then
|
||||
Try
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_Id", sess_Id, , True))
|
||||
sess_lastRm = Now
|
||||
'list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_lastRm", sess_lastRm))
|
||||
|
||||
Return SQL.doSQLVarList(" UPDATE [tblSessions] SET sess_lastRm=GETDATE() WHERE sess_Id=@sess_Id ", "ADMIN", , list)
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End If
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public 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
|
||||
Me.sess_lastRm = Now
|
||||
Me.sess_progId = Nothing
|
||||
Me.sess_progName = VERAG_PROG_ALLGEMEIN.cAllgemein.PROGNAME
|
||||
Me.sess_progVersion = VERAG_PROG_ALLGEMEIN.cAllgemein.PROGVERSION
|
||||
|
||||
Return SAVE()
|
||||
End Function
|
||||
|
||||
Public Function LOGOUT() As String
|
||||
Try
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_Id", sess_Id, , True))
|
||||
sess_lastRm = Now
|
||||
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_lastRm", sess_lastRm))
|
||||
sess_logout = Now
|
||||
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sess_logout", sess_logout))
|
||||
|
||||
Return SQL.doSQLVarList(" UPDATE [tblSessions] SET sess_lastRm=GETDATE(),sess_logout=GETDATE() WHERE sess_Id=@sess_Id ", "ADMIN", , list)
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblSessions] SET " & str & " WHERE sess_Id=@sess_Id ")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO tblSessions (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
End Class
|
||||
680
VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb
Normal file
680
VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb
Normal file
@@ -0,0 +1,680 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
|
||||
Public Class cSpeditionsbuchList
|
||||
Property FilialenNr As Integer = -1
|
||||
Property AbfertigungsNr As Integer = -1
|
||||
|
||||
Property min As Integer = -1
|
||||
Property max As Integer = -1
|
||||
|
||||
|
||||
' Property OffertenNr As Object = Nothing
|
||||
Public LIST As New List(Of cSpeditionsbuch)
|
||||
Dim SQL As New SQL
|
||||
'Dim listTodelete As New List(Of cOfferte)
|
||||
|
||||
Sub New(FilialenNr, AbfertigungsNr)
|
||||
Me.FilialenNr = FilialenNr
|
||||
Me.AbfertigungsNr = AbfertigungsNr
|
||||
|
||||
LOAD_LIST(Me.FilialenNr, Me.AbfertigungsNr)
|
||||
End Sub
|
||||
Public Sub CLEAR()
|
||||
LIST.Clear()
|
||||
End Sub
|
||||
|
||||
Public Sub LOAD_LIST()
|
||||
LOAD_LIST(FilialenNr, AbfertigungsNr)
|
||||
End Sub
|
||||
|
||||
Public Sub LOAD_LIST(FilialenNr, AbfertigungsNr)
|
||||
Try
|
||||
LIST.Clear()
|
||||
min = 999999
|
||||
max = -1
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM Speditionsbuch WHERE FilialenNr=@FilialenNr AND AbfertigungsNr=@AbfertigungsNr ", conn)
|
||||
cmd.Parameters.AddWithValue("@FilialenNr", FilialenNr)
|
||||
cmd.Parameters.AddWithValue("@AbfertigungsNr", AbfertigungsNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cSpeditionsbuch
|
||||
l.LOAD(dr.Item("FilialenNr"), dr.Item("AbfertigungsNr"), dr.Item("UnterNr"))
|
||||
LIST.Add(l)
|
||||
If l.UnterNr < min Then min = l.UnterNr
|
||||
If l.UnterNr > max Then max = l.UnterNr
|
||||
End While
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
'Function SAVE()
|
||||
' If SQL.doSQLVarList("DELETE FROM tblEmailBenachrichtigung WHERE eb_KundenNr=" & Me.eb_KundenNr & " and eb_ebartId=" & Me.eb_ebartId & " ", "FMZOLL") Then
|
||||
' For Each l In LIST
|
||||
' If Not l.INSERT() Then Return False
|
||||
' Next
|
||||
' Return True
|
||||
' Else
|
||||
' Return False
|
||||
' End If
|
||||
'End Function
|
||||
End Class
|
||||
|
||||
|
||||
Public Class cSpeditionsbuch
|
||||
Property FilialenNr As Integer = -1
|
||||
Property AbfertigungsNr As Integer = -1
|
||||
Property UnterNr As Integer = -1
|
||||
Property Abfertigungsdatum As Object = Nothing
|
||||
Property Bar As Boolean = False
|
||||
Property Fakturiert As Boolean = False
|
||||
Property BelegNr As String = ""
|
||||
Property ErfassungsNr As String = ""
|
||||
Property LKW_Kennzeichen As String = ""
|
||||
' Property AvisiererKundenNr As Object = Nothing
|
||||
' Property Avisierer As String = ""
|
||||
' Property AbsenderKundenNr As Object = Nothing
|
||||
'Property Absender As String = ""
|
||||
'Property AbsenderOffertenNr As Object = Nothing
|
||||
'Property EmpfängerKundenNr As Object = Nothing
|
||||
'Property Empfänger As String = ""
|
||||
'Property EmpfängerOffertenNr As Object = Nothing
|
||||
'Property VermittlerKundenNr As Object = Nothing
|
||||
'Property Vermittler As String = ""
|
||||
'Property VermittlerOffertenNr As Object = Nothing
|
||||
'Property FrachtführerKundenNr As Object = Nothing
|
||||
'Property Frachtführer As String = ""
|
||||
|
||||
Property AvisiererKundenNr As Object = Nothing
|
||||
<VBFixedString(50)> Public Avisierer As String = ""
|
||||
Property AbsenderKundenNr As Object = Nothing
|
||||
<VBFixedString(50)> Public Absender As String = ""
|
||||
Property AbsenderOffertenNr As Object = Nothing
|
||||
Property EmpfängerKundenNr As Object = Nothing
|
||||
<VBFixedString(50)> Public Empfänger As String = ""
|
||||
Property EmpfängerOffertenNr As Object = Nothing
|
||||
Property VermittlerKundenNr As Object = Nothing
|
||||
<VBFixedString(50)> Public Vermittler As String = ""
|
||||
Property VermittlerOffertenNr As Object = Nothing
|
||||
Property FrachtführerKundenNr As Object = Nothing
|
||||
<VBFixedString(50)> Public Frachtführer As String = ""
|
||||
|
||||
|
||||
Property AnzahlZA As Integer = 0
|
||||
Property AnzahlZAFremd As Integer = 0
|
||||
Property AnzahlZnV As Integer = 0
|
||||
Property AnzahlZnVFremd As Integer = 0
|
||||
Property AnzahlT1 As Integer = 0
|
||||
Property AnzahlT2 As Integer = 0
|
||||
Property AnzahlAE As Integer = 0
|
||||
Property AnzahlCarnetTIR As Integer = 0
|
||||
Property AnzahlBarvorlagen As Integer = 0
|
||||
Property AnzahlSonstiges As Integer = 0
|
||||
Property AnzahlGrenzgebühren As Integer = 0
|
||||
Property AvisUhrzeit As String = ""
|
||||
Property Vermerk As String = ""
|
||||
Property Bemerkungen As String = ""
|
||||
Property Währungsschlüssel As Object = Nothing 'int=-1
|
||||
Property Rechnungsbetrag As Object = Nothing 'dbl=0
|
||||
Property Umrechnungskurs As Object = CDbl(1) 'dbl=1
|
||||
Property Packstücke As String = ""
|
||||
Property Rohmasse As Object = Nothing 'int=0
|
||||
Property Zahlungsaufschub As String = ""
|
||||
Property Löschen As Object = Nothing
|
||||
Property Abfertigungsart As Object = Nothing
|
||||
Property Abfertigungsanzahl As Integer = 0
|
||||
Property Barzahlungsbetrag As Double = 0
|
||||
' Property Sachbearbeiter As String = ""
|
||||
<VBFixedString(15)> Public Sachbearbeiter As String = ""
|
||||
Property Personalnummer As Object = Nothing 'int=-1
|
||||
Property PersonalnummerQS As Object = Nothing 'int=-1
|
||||
Property AtlasBezNrEZA As String = ""
|
||||
Property AtlasBezNrNCTS As String = ""
|
||||
Property Versendungsland As String = ""
|
||||
Property SB_CMR As Boolean = False
|
||||
Property SB_CMRDatum As Object = Nothing
|
||||
Property veoerz_basbtg As Double = 0
|
||||
Property Zucker_MRN_Nr As Object = Nothing
|
||||
Property Zucker_MRN_Datum As Object = Nothing
|
||||
Property Zucker_Aufschub As Object = Nothing
|
||||
Property Zollsystem As String = Nothing
|
||||
Property Bestimmungszollstelle As String = ""
|
||||
Property Bürgschaft As String = ""
|
||||
Property Sicherheitsbetrag As Double = 0
|
||||
Property SgutKompl As Object = Nothing
|
||||
Property Bestimmungsland As String = ""
|
||||
Property EuFiskalEmpfänger As String = ""
|
||||
Property QKN As String = ""
|
||||
Property EndempfängerKundenNr As Object = Nothing
|
||||
' Property Endempfänger As String = ""
|
||||
<VBFixedString(50)> Public Endempfänger As String = ""
|
||||
|
||||
Property AvisoID As Object = Nothing
|
||||
Property SendungID As Object = Nothing
|
||||
Property Grenzstelle As Object = Nothing
|
||||
|
||||
|
||||
Property KdAuftragsNr As Object = Nothing
|
||||
Property KdAuftragsNrAvisierer As Object = Nothing
|
||||
Property KdAuftragsNrEmpfaenger As Object = Nothing
|
||||
Property KdAuftragsNrFrachtfuehrer As Object = Nothing
|
||||
Property SB_Zeitstempel As Object = Now
|
||||
|
||||
Property NCTS_Verzollungsadresse As Object = Nothing
|
||||
Property NCTS_VerzollungsadresseKdNr As Object = Nothing
|
||||
Property AuftraggeberBetragKassiert As Object = Nothing
|
||||
|
||||
Property Lieferantenrechnung As Object = Nothing
|
||||
Property DokumentId_Steuerbeleg As Object = Nothing
|
||||
Property DokumentId_Mitteilung As Object = Nothing
|
||||
Property DokumentId_VBD As Object = Nothing
|
||||
|
||||
Property UNTERPOS As New List(Of cSpeditionsbuchUnterPos)
|
||||
Property VORKOSTEN As New List(Of cVorkosten)
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Public Sub New()
|
||||
End Sub
|
||||
|
||||
Property hasEntry As Boolean = False
|
||||
|
||||
Public Sub New(FilialenNr As Integer, AbfertigungsNr As Integer, UnterNr As Integer)
|
||||
Me.FilialenNr = FilialenNr
|
||||
Me.AbfertigungsNr = AbfertigungsNr
|
||||
Me.UnterNr = UnterNr
|
||||
LOAD(FilialenNr, AbfertigungsNr, UnterNr)
|
||||
End Sub
|
||||
|
||||
Public Sub New(FilialenNr As Integer, AbfertigungsNr As Integer)
|
||||
Me.FilialenNr = FilialenNr
|
||||
Me.AbfertigungsNr = AbfertigungsNr
|
||||
Me.UnterNr = NewUNTER_NR()
|
||||
LOAD(FilialenNr, AbfertigungsNr, UnterNr)
|
||||
End Sub
|
||||
|
||||
|
||||
Function NewUNTER_NR() As Integer
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNr", FilialenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", AbfertigungsNr))
|
||||
UnterNr = SQL.getValueTxtBySqlVarList("SELECT isnull(MAX(UnterNr)+1,0) FROM Speditionsbuch WHERE [FilialenNr]=@FilialenNr AND AbfertigungsNr=@AbfertigungsNr", "FMZOLL", list)
|
||||
Return UnterNr
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
' MsgBox(getUpdateCmd())
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM [Speditionsbuch] WITH(updlock,serializable) WHERE [FilialenNr]=@FilialenNr AND AbfertigungsNr=@AbfertigungsNr AND UnterNr=@UnterNr) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
If SQL.doSQLVarList(sqlstr, "FMZOLL", , list) Then
|
||||
If SAVE_VORKOSTEN() Then
|
||||
Return True
|
||||
End If
|
||||
End If
|
||||
Return False
|
||||
End Function
|
||||
Public Sub LOAD()
|
||||
LOAD(FilialenNr, AbfertigungsNr, UnterNr)
|
||||
End Sub
|
||||
Public Sub LOAD(FilialenNr As Integer, AbfertigungsNr As Integer, UnterNr As Integer)
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM Speditionsbuch WHERE [FilialenNr]=@FilialenNr AND AbfertigungsNr=@AbfertigungsNr AND UnterNr=@UnterNr ", conn)
|
||||
cmd.Parameters.AddWithValue("@FilialenNr", FilialenNr)
|
||||
cmd.Parameters.AddWithValue("@AbfertigungsNr", AbfertigungsNr)
|
||||
cmd.Parameters.AddWithValue("@UnterNr", UnterNr)
|
||||
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
Me.FilialenNr = SQL.checkNullInteger(dr.Item("FilialenNr"))
|
||||
Me.AbfertigungsNr = SQL.checkNullInteger(dr.Item("AbfertigungsNr"))
|
||||
Me.UnterNr = SQL.checkNullInteger(dr.Item("UnterNr"))
|
||||
Me.Abfertigungsdatum = SQL.checkNullDateNothing(dr.Item("Abfertigungsdatum"))
|
||||
Me.Bar = SQL.checkNullBool(dr.Item("Bar"))
|
||||
Me.Fakturiert = SQL.checkNullBool(dr.Item("Fakturiert"))
|
||||
Me.BelegNr = SQL.checkNullStr(dr.Item("BelegNr"))
|
||||
Me.ErfassungsNr = SQL.checkNullStr(dr.Item("ErfassungsNr"))
|
||||
Me.LKW_Kennzeichen = SQL.checkNullStr(dr.Item("LKW Kennzeichen"))
|
||||
Me.AvisiererKundenNr = SQL.checkNullReturnValue(dr.Item("AvisiererKundenNr"), Nothing)
|
||||
Me.Avisierer = SQL.checkNullStr(dr.Item("Avisierer"))
|
||||
Me.AbsenderKundenNr = SQL.checkNullReturnValue(dr.Item("AbsenderKundenNr"), Nothing)
|
||||
Me.Absender = SQL.checkNullStr(dr.Item("Absender"))
|
||||
Me.AbsenderOffertenNr = SQL.checkNullInteger(dr.Item("AbsenderOffertenNr"))
|
||||
Me.EmpfängerKundenNr = SQL.checkNullReturnValue(dr.Item("EmpfängerKundenNr"), Nothing)
|
||||
Me.Empfänger = SQL.checkNullStr(dr.Item("Empfänger"))
|
||||
Me.EmpfängerOffertenNr = SQL.checkNullInteger(dr.Item("EmpfängerOffertenNr"))
|
||||
Me.VermittlerKundenNr = SQL.checkNullReturnValue(dr.Item("VermittlerKundenNr"), Nothing)
|
||||
Me.Vermittler = SQL.checkNullStr(dr.Item("Vermittler"))
|
||||
Me.VermittlerOffertenNr = SQL.checkNullInteger(dr.Item("VermittlerOffertenNr"))
|
||||
Me.FrachtführerKundenNr = SQL.checkNullReturnValue(dr.Item("FrachtführerKundenNr"), Nothing)
|
||||
Me.Frachtführer = SQL.checkNullStr(dr.Item("Frachtführer"))
|
||||
Me.AnzahlZA = SQL.checkNullIntegerZero(dr.Item("AnzahlZA"))
|
||||
Me.AnzahlZAFremd = SQL.checkNullIntegerZero(dr.Item("AnzahlZAFremd"))
|
||||
Me.AnzahlZnV = SQL.checkNullIntegerZero(dr.Item("AnzahlZnV"))
|
||||
Me.AnzahlZnVFremd = SQL.checkNullIntegerZero(dr.Item("AnzahlZnVFremd"))
|
||||
Me.AnzahlT1 = SQL.checkNullIntegerZero(dr.Item("AnzahlT1"))
|
||||
Me.AnzahlT2 = SQL.checkNullIntegerZero(dr.Item("AnzahlT2"))
|
||||
Me.AnzahlAE = SQL.checkNullStr(dr.Item("AnzahlAE"))
|
||||
Me.AnzahlCarnetTIR = SQL.checkNullIntegerZero(dr.Item("AnzahlCarnetTIR"))
|
||||
Me.AnzahlBarvorlagen = SQL.checkNullIntegerZero(dr.Item("AnzahlBarvorlagen"))
|
||||
Me.AnzahlSonstiges = SQL.checkNullIntegerZero(dr.Item("AnzahlSonstiges"))
|
||||
Me.AnzahlGrenzgebühren = SQL.checkNullIntegerZero(dr.Item("AnzahlGrenzgebühren"))
|
||||
Me.AvisUhrzeit = SQL.checkNullStr(dr.Item("AvisUhrzeit"))
|
||||
Me.Vermerk = SQL.checkNullStr(dr.Item("Vermerk"))
|
||||
Me.Bemerkungen = SQL.checkNullStr(dr.Item("Bemerkungen"))
|
||||
Me.Währungsschlüssel = SQL.checkNullReturnValue(dr.Item("Währungsschlüssel"), 900)
|
||||
Me.Rechnungsbetrag = SQL.checkNullReturnValue(dr.Item("Rechnungsbetrag"), Nothing)
|
||||
Me.Umrechnungskurs = SQL.checkNullReturnValue(dr.Item("Umrechnungskurs"), 1)
|
||||
Me.Packstücke = SQL.checkNullStr(dr.Item("Packstücke"))
|
||||
Me.Rohmasse = SQL.checkNullReturnValue(dr.Item("Rohmasse"), Nothing)
|
||||
Me.Zahlungsaufschub = SQL.checkNullStr(dr.Item("Zahlungsaufschub"))
|
||||
Me.Löschen = SQL.checkNullDateNothing(dr.Item("Löschen"))
|
||||
Me.Abfertigungsart = SQL.checkNullInteger(dr.Item("Abfertigungsart"))
|
||||
Me.Abfertigungsanzahl = SQL.checkNullIntegerZero(dr.Item("Abfertigungsanzahl"))
|
||||
Me.Barzahlungsbetrag = SQL.checkNulDbl(dr.Item("Barzahlungsbetrag"))
|
||||
Me.Sachbearbeiter = SQL.checkNullStr(dr.Item("Sachbearbeiter"))
|
||||
Me.Personalnummer = SQL.checkNullReturnValue(dr.Item("Personalnummer"), Nothing)
|
||||
Me.PersonalnummerQS = SQL.checkNullReturnValue(dr.Item("PersonalnummerQS"), Nothing)
|
||||
Me.AtlasBezNrEZA = SQL.checkNullStr(dr.Item("AtlasBezNrEZA"))
|
||||
Me.AtlasBezNrNCTS = SQL.checkNullStr(dr.Item("AtlasBezNrNCTS"))
|
||||
Me.Versendungsland = SQL.checkNullStr(dr.Item("Versendungsland"))
|
||||
Me.SB_CMR = SQL.checkNullBool(dr.Item("SB_CMR"))
|
||||
Me.SB_CMRDatum = SQL.checkNullDateNothing(dr.Item("SB_CMRDatum"))
|
||||
Me.veoerz_basbtg = SQL.checkNulDbl(dr.Item("veoerz_basbtg"))
|
||||
Me.Zucker_MRN_Nr = SQL.checkNullReturnValue(dr.Item("Zucker_MRN_Nr"), Nothing)
|
||||
Me.Zucker_MRN_Datum = SQL.checkNullDateNothing(dr.Item("Zucker_MRN_Datum"))
|
||||
Me.Zucker_Aufschub = SQL.checkNullReturnValue(dr.Item("Zucker_Aufschub"), Nothing)
|
||||
Me.Zollsystem = SQL.checkNullStr(dr.Item("Zollsystem"))
|
||||
Me.Bestimmungszollstelle = SQL.checkNullStr(dr.Item("Bestimmungszollstelle"))
|
||||
Me.Bürgschaft = SQL.checkNullStr(dr.Item("Bürgschaft"))
|
||||
Me.Sicherheitsbetrag = SQL.checkNulDbl(dr.Item("Sicherheitsbetrag"))
|
||||
Me.SgutKompl = SQL.checkNullStr(dr.Item("SgutKompl"))
|
||||
Me.Bestimmungsland = SQL.checkNullStr(dr.Item("Bestimmungsland"))
|
||||
Me.EuFiskalEmpfänger = SQL.checkNullStr(dr.Item("EuFiskalEmpfänger"))
|
||||
Me.QKN = SQL.checkNullStr(dr.Item("QKN"))
|
||||
Me.EndempfängerKundenNr = SQL.checkNullReturnValue(dr.Item("EndempfängerKundenNr"), Nothing)
|
||||
Me.Endempfänger = SQL.checkNullStr(dr.Item("Endempfänger"))
|
||||
Me.AvisoID = SQL.checkNullReturnValue(dr.Item("AvisoID"), Nothing)
|
||||
Me.SendungID = SQL.checkNullReturnValue(dr.Item("SendungID"), Nothing)
|
||||
Me.KdAuftragsNr = SQL.checkNullReturnValue(dr.Item("KdAuftragsNr"), Nothing)
|
||||
Me.KdAuftragsNrAvisierer = SQL.checkNullReturnValue(dr.Item("KdAuftragsNrAvisierer"), Nothing)
|
||||
Me.KdAuftragsNrEmpfaenger = SQL.checkNullReturnValue(dr.Item("KdAuftragsNrEmpfaenger"), Nothing)
|
||||
Me.KdAuftragsNrFrachtfuehrer = SQL.checkNullReturnValue(dr.Item("KdAuftragsNrFrachtfuehrer"), Nothing)
|
||||
|
||||
Me.NCTS_Verzollungsadresse = SQL.checkNullReturnValue(dr.Item("NCTS_Verzollungsadresse"), "")
|
||||
Me.NCTS_VerzollungsadresseKdNr = SQL.checkNullReturnValue(dr.Item("NCTS_VerzollungsadresseKdNr"), Nothing)
|
||||
Me.Grenzstelle = SQL.checkNullReturnValue(dr.Item("Grenzstelle"), Nothing)
|
||||
Me.AuftraggeberBetragKassiert = SQL.checkNullReturnValue(dr.Item("AuftraggeberBetragKassiert"), Nothing)
|
||||
Me.Lieferantenrechnung = SQL.checkNullReturnValue(dr.Item("Lieferantenrechnung"), Nothing)
|
||||
Me.DokumentId_Steuerbeleg = SQL.checkNullReturnValue(dr.Item("DokumentId_Steuerbeleg"), Nothing)
|
||||
Me.DokumentId_Mitteilung = SQL.checkNullReturnValue(dr.Item("DokumentId_Mitteilung"), Nothing)
|
||||
Me.DokumentId_VBD = SQL.checkNullReturnValue(dr.Item("DokumentId_VBD"), Nothing)
|
||||
|
||||
|
||||
LOAD_VORKOSTEN()
|
||||
|
||||
Me.SB_Zeitstempel = SQL.checkNullDateNothing(dr.Item("SB_Zeitstempel"))
|
||||
|
||||
hasEntry = True
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
'Return Nothing
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
' Return Nothing
|
||||
End Sub
|
||||
|
||||
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNr", FilialenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", AbfertigungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UnterNr", UnterNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abfertigungsdatum", Abfertigungsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bar", Bar))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Fakturiert", Fakturiert))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BelegNr", BelegNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ErfassungsNr", ErfassungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LKW Kennzeichen", LKW_Kennzeichen, "LKWKennzeichen"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AvisiererKundenNr", AvisiererKundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Avisierer", Avisierer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbsenderKundenNr", AbsenderKundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Absender", Absender))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbsenderOffertenNr", AbsenderOffertenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmpfängerKundenNr", EmpfängerKundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Empfänger", Empfänger))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmpfängerOffertenNr", EmpfängerOffertenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VermittlerKundenNr", VermittlerKundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vermittler", Vermittler))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VermittlerOffertenNr", VermittlerOffertenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FrachtführerKundenNr", FrachtführerKundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Frachtführer", Frachtführer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlZA", AnzahlZA))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlZAFremd", AnzahlZAFremd))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlZnV", AnzahlZnV))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlZnVFremd", AnzahlZnVFremd))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlT1", AnzahlT1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlT2", AnzahlT2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlAE", AnzahlAE))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlCarnetTIR", AnzahlCarnetTIR))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlBarvorlagen", AnzahlBarvorlagen))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlSonstiges", AnzahlSonstiges))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlGrenzgebühren", AnzahlGrenzgebühren))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AvisUhrzeit", AvisUhrzeit))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vermerk", Vermerk))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bemerkungen", Bemerkungen))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Währungsschlüssel", Währungsschlüssel))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechnungsbetrag", Rechnungsbetrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Umrechnungskurs", Umrechnungskurs))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Packstücke", Packstücke))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rohmasse", Rohmasse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zahlungsaufschub", Zahlungsaufschub))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Löschen", Löschen))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abfertigungsart", Abfertigungsart))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abfertigungsanzahl", Abfertigungsanzahl))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Barzahlungsbetrag", Barzahlungsbetrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachbearbeiter", Sachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Personalnummer", Personalnummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PersonalnummerQS", PersonalnummerQS))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AtlasBezNrEZA", AtlasBezNrEZA))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AtlasBezNrNCTS", AtlasBezNrNCTS))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Versendungsland", Versendungsland))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SB_CMR", SB_CMR))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SB_CMRDatum", SB_CMRDatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("veoerz_basbtg", veoerz_basbtg))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zucker_MRN_Nr", Zucker_MRN_Nr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zucker_MRN_Datum", Zucker_MRN_Datum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zucker_Aufschub", Zucker_Aufschub))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zollsystem", Zollsystem))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bestimmungszollstelle", Bestimmungszollstelle))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bürgschaft", Bürgschaft))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sicherheitsbetrag", Sicherheitsbetrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SgutKompl", SgutKompl))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bestimmungsland", Bestimmungsland))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EuFiskalEmpfänger", EuFiskalEmpfänger))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("QKN", QKN))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EndempfängerKundenNr", EndempfängerKundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Endempfänger", Endempfänger))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AvisoID", AvisoID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SendungID", SendungID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KdAuftragsNr", KdAuftragsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KdAuftragsNrAvisierer", KdAuftragsNrAvisierer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KdAuftragsNrEmpfaenger", KdAuftragsNrEmpfaenger))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KdAuftragsNrFrachtfuehrer", KdAuftragsNrFrachtfuehrer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SB_Zeitstempel", SB_Zeitstempel))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("NCTS_Verzollungsadresse", NCTS_Verzollungsadresse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("NCTS_VerzollungsadresseKdNr", NCTS_VerzollungsadresseKdNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Grenzstelle", Grenzstelle))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AuftraggeberBetragKassiert", AuftraggeberBetragKassiert))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Lieferantenrechnung", Lieferantenrechnung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DokumentId_Steuerbeleg", DokumentId_Steuerbeleg))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DokumentId_Mitteilung", DokumentId_Mitteilung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DokumentId_VBD", DokumentId_VBD))
|
||||
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
str &= "[" & i.Text & "] = @" & i.Text.Replace("-", "").Replace(" ", "") & ","
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [Speditionsbuch] SET " & str & " WHERE [FilialenNr]=@FilialenNr AND AbfertigungsNr=@AbfertigungsNr AND UnterNr=@UnterNr ")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Text.Replace("-", "").Replace(" ", "") & ","
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO [Speditionsbuch] (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
Public Sub LOAD_UNTERPOS()
|
||||
Try
|
||||
Dim conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
|
||||
'Using cmd2 As New SqlCommand("SELECT * FROM tblSpeditionsbuchUnterPos INNER JOIN [Abfertigungsarten] ON sbup_Abfertigungsart=Abfertigungsart WHERE sbup_Filiale=@sbup_Filiale AND sbup_AbfertigungsNr=@sbup_AbfertigungsNr AND sbup_UnterNr=@sbup_UnterNr ", conn)
|
||||
Using cmd2 As New SqlCommand("SELECT * FROM tblSpeditionsbuchUnterPos WHERE sbup_Filiale=@sbup_Filiale AND sbup_AbfertigungsNr=@sbup_AbfertigungsNr AND sbup_UnterNr=@sbup_UnterNr ", conn)
|
||||
cmd2.Parameters.AddWithValue("@sbup_Filiale", Me.FilialenNr)
|
||||
cmd2.Parameters.AddWithValue("@sbup_AbfertigungsNr", Me.AbfertigungsNr)
|
||||
cmd2.Parameters.AddWithValue("@sbup_UnterNr", Me.UnterNr)
|
||||
Dim dr2 = cmd2.ExecuteReader()
|
||||
Me.UNTERPOS.Clear()
|
||||
While dr2.Read
|
||||
Dim a As New cSpeditionsbuchUnterPos()
|
||||
|
||||
a.sbup_id = SQL.checkNullReturnValue(dr2.Item("sbup_id"), -1)
|
||||
a.sbup_Filiale = SQL.checkNullReturnValue(dr2.Item("sbup_Filiale"), -1)
|
||||
a.sbup_AbfertigungsNr = SQL.checkNullReturnValue(dr2.Item("sbup_AbfertigungsNr"), -1)
|
||||
a.sbup_UnterNr = SQL.checkNullReturnValue(dr2.Item("sbup_UnterNr"), -1)
|
||||
a.sbup_UnterPosArt = SQL.checkNullReturnValue(dr2.Item("sbup_UnterPosArt"), -1)
|
||||
a.sbup_Anzahl = SQL.checkNullReturnValue(dr2.Item("sbup_Anzahl"), -1)
|
||||
' a.Abfertigungsbezeichnung = SQL.checkNullReturnValue(dr2.Item("Abfertigungsbezeichnung"), "-")
|
||||
|
||||
Me.UNTERPOS.Add(a)
|
||||
End While
|
||||
dr2.Close()
|
||||
End Using
|
||||
|
||||
conn.Close()
|
||||
'End Using
|
||||
'Return Nothing
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
Public Sub LOAD_VORKOSTEN()
|
||||
Try
|
||||
Dim conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
|
||||
'Using cmd2 As New SqlCommand("SELECT * FROM tblSpeditionsbuchUnterPos INNER JOIN [Abfertigungsarten] ON sbup_Abfertigungsart=Abfertigungsart WHERE sbup_Filiale=@sbup_Filiale AND sbup_AbfertigungsNr=@sbup_AbfertigungsNr AND sbup_UnterNr=@sbup_UnterNr ", conn)
|
||||
Using cmd2 As New SqlCommand("SELECT * FROM Vorkosten WHERE FilialenNr=@FilialenNr AND AbfertigungsNr=@AbfertigungsNr AND UnterNr=@UnterNr ", conn)
|
||||
cmd2.Parameters.AddWithValue("@FilialenNr", Me.FilialenNr)
|
||||
cmd2.Parameters.AddWithValue("@AbfertigungsNr", Me.AbfertigungsNr)
|
||||
cmd2.Parameters.AddWithValue("@UnterNr", Me.UnterNr)
|
||||
Dim dr2 = cmd2.ExecuteReader()
|
||||
Me.VORKOSTEN.Clear()
|
||||
While dr2.Read
|
||||
Dim a As New cVorkosten()
|
||||
|
||||
a.FilialenNr = SQL.checkNullReturnValue(dr2.Item("FilialenNr"), -1)
|
||||
a.AbfertigungsNr = SQL.checkNullReturnValue(dr2.Item("AbfertigungsNr"), -1)
|
||||
a.UnterNr = SQL.checkNullReturnValue(dr2.Item("UnterNr"), -1)
|
||||
a.LeistungsNr = SQL.checkNullReturnValue(dr2.Item("LeistungsNr"), -1)
|
||||
a.LeistungsBez = SQL.checkNullReturnValue(dr2.Item("LeistungsBez"), -1)
|
||||
a.Preis = SQL.checkNullReturnValue(dr2.Item("Preis"), 0)
|
||||
' a.Abfertigungsbezeichnung = SQL.checkNullReturnValue(dr2.Item("Abfertigungsbezeichnung"), "-")
|
||||
|
||||
Me.VORKOSTEN.Add(a)
|
||||
End While
|
||||
dr2.Close()
|
||||
End Using
|
||||
|
||||
conn.Close()
|
||||
'End Using
|
||||
'Return Nothing
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
Public Function SAVE_UNTERPOS() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
' Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
SAVE_UNTERPOS = False
|
||||
Dim sqlstr = " DELETE FROM tblSpeditionsbuchUnterPos WHERE sbup_Filiale=" & Me.FilialenNr & " AND sbup_AbfertigungsNr=" & Me.AbfertigungsNr & " AND sbup_UnterNr=" & Me.UnterNr & " "
|
||||
If SQL.doSQL(sqlstr, "FMZOLL") Then
|
||||
SAVE_UNTERPOS = True
|
||||
For Each a In UNTERPOS
|
||||
If Not a.INSERT() Then SAVE_UNTERPOS = False
|
||||
Next
|
||||
End If
|
||||
|
||||
' Return b
|
||||
End Function
|
||||
Public Function SAVE_VORKOSTEN() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
' Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
SAVE_VORKOSTEN = False
|
||||
Dim sqlstr = " DELETE FROM Vorkosten WHERE FilialenNr=" & Me.FilialenNr & " AND AbfertigungsNr=" & Me.AbfertigungsNr & " AND UnterNr=" & Me.UnterNr & " "
|
||||
If SQL.doSQL(sqlstr, "FMZOLL") Then
|
||||
SAVE_VORKOSTEN = True
|
||||
For Each a In VORKOSTEN
|
||||
If Not a.INSERT() Then SAVE_VORKOSTEN = False
|
||||
Next
|
||||
End If
|
||||
|
||||
' Return b
|
||||
End Function
|
||||
End Class
|
||||
|
||||
|
||||
Public Class cSpeditionsbuchUnterPos
|
||||
Property sbup_id As Integer = Nothing
|
||||
Property sbup_Filiale As Integer = Nothing
|
||||
Property sbup_AbfertigungsNr As Integer = Nothing
|
||||
Property sbup_UnterNr As Integer = Nothing
|
||||
Property sbup_UnterPosArt As Integer = Nothing
|
||||
Property sbup_Anzahl As Integer = Nothing
|
||||
' Property Abfertigungsbezeichnung As String = "-"
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
Sub New(sbup_Filiale, sbup_AbfertigungsNr, sbup_UnterNr, sbup_UnterPosArt, sbup_Anzahl)
|
||||
Me.sbup_Filiale = sbup_Filiale
|
||||
Me.sbup_AbfertigungsNr = sbup_AbfertigungsNr
|
||||
Me.sbup_UnterNr = sbup_UnterNr
|
||||
Me.sbup_UnterPosArt = sbup_UnterPosArt
|
||||
Me.sbup_Anzahl = sbup_Anzahl
|
||||
End Sub
|
||||
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sbup_id", sbup_id, , True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sbup_Filiale", sbup_Filiale))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sbup_AbfertigungsNr", sbup_AbfertigungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sbup_UnterNr", sbup_UnterNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sbup_UnterPosArt", sbup_UnterPosArt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sbup_Anzahl", sbup_Anzahl))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Public Function INSERT() As Boolean
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Text.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
|
||||
Return SQL.doSQLVarList(" INSERT INTO [tblSpeditionsbuchUnterPos] (" & str & ") VALUES(" & values & ") ", "FMZOLL", , list)
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return False
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
Public Class cVorkosten
|
||||
|
||||
Property FilialenNr As Integer
|
||||
Property AbfertigungsNr As Integer
|
||||
Property UnterNr As Integer
|
||||
Property LeistungsNr As Integer
|
||||
Property LeistungsBez As Object = Nothing
|
||||
Property Preis As Double = 0
|
||||
|
||||
' Property Abfertigungsbezeichnung As String = "-"
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
Sub New(FilialenNr, AbfertigungsNr, UnterNr, LeistungsNr, LeistungsBez, Preis)
|
||||
Me.FilialenNr = FilialenNr
|
||||
Me.AbfertigungsNr = AbfertigungsNr
|
||||
Me.UnterNr = UnterNr
|
||||
Me.LeistungsNr = LeistungsNr
|
||||
Me.LeistungsBez = LeistungsBez
|
||||
Me.Preis = Preis
|
||||
End Sub
|
||||
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNr", FilialenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", AbfertigungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UnterNr", UnterNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LeistungsNr", LeistungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LeistungsBez", LeistungsBez))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Preis", Preis))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Public Function INSERT() As Boolean
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Text.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
|
||||
Return SQL.doSQLVarList(" INSERT INTO [Vorkosten] (" & str & ") VALUES(" & values & ") ", "FMZOLL", , list)
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return False
|
||||
End Function
|
||||
|
||||
End Class
|
||||
589
VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb
Normal file
589
VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb
Normal file
@@ -0,0 +1,589 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cTrdInvoice
|
||||
|
||||
Property Rechnungsdatum As Date
|
||||
Property Rechnungsnummer As Integer
|
||||
Property Speditionsbuch As Object = Nothing
|
||||
Property FilialenNr As Object = Nothing
|
||||
Property AbfertigungsNr As Object = Nothing
|
||||
Property UnterNr As Object = Nothing
|
||||
Property Abfertigungsdatum As Object = Nothing
|
||||
Property BelegartenNr As Object = Nothing
|
||||
Property KundenNrZentrale As Object = Nothing
|
||||
Property RechnungsKundenNr As Object = Nothing
|
||||
Property RechnungsLandKz As Object = Nothing
|
||||
Property RechnungsUstIdKz As Object = Nothing
|
||||
Property RechnungsUstIdNr As Object = Nothing
|
||||
Property Lastschrift As Object = Nothing
|
||||
Property Steuerschlüssel As Object = Nothing
|
||||
Property Steuersatz As Object = Nothing '[Steuersatz %]
|
||||
Property WährungLokal As Object = Nothing
|
||||
Property SteuerpflichtigerBetragLokal As Object = Nothing
|
||||
Property SteuerfreierBetragLokal As Object = Nothing
|
||||
Property SteuerbetragLokal As Object = Nothing
|
||||
Property RechnungsbetragLokal As Object = Nothing
|
||||
Property WährungFremd As Object = Nothing
|
||||
Property SteuerpflichtigerBetragFremd As Object = Nothing
|
||||
Property SteuerfreierBetragFremd As Object = Nothing
|
||||
Property SteuerbetragFremd As Object = Nothing
|
||||
Property RechnungsbetragFremd As Object = Nothing
|
||||
Property TrdinDateiname As Object = Nothing
|
||||
Property Abgleich_op_debitor As Object = Nothing
|
||||
Property Nettozahlungsziel As Object = Nothing
|
||||
Property Firma_ID As Object = Nothing
|
||||
Property UStVAn_ID As Object = Nothing
|
||||
|
||||
Property hasEntry As Boolean = False
|
||||
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
|
||||
End Sub
|
||||
|
||||
Sub New(Rechnungsdatum, Rechnungsnummer)
|
||||
Me.Rechnungsnummer = Rechnungsnummer
|
||||
Me.Rechnungsdatum = Rechnungsdatum
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechnungsdatum", Rechnungsdatum))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechnungsnummer", Rechnungsnummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Speditionsbuch", Speditionsbuch))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNr", FilialenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", AbfertigungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UnterNr", UnterNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abfertigungsdatum", Abfertigungsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BelegartenNr", BelegartenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KundenNrZentrale", KundenNrZentrale))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsKundenNr", RechnungsKundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsLandKz", RechnungsLandKz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsUstIdKz", RechnungsUstIdKz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsUstIdNr", RechnungsUstIdNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Lastschrift", Lastschrift))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuerschlüssel", Steuerschlüssel))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuersatz %", Steuersatz, "Steuersatz")) '[Steuersatz %]
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("WährungLokal", WährungLokal))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SteuerpflichtigerBetragLokal", SteuerpflichtigerBetragLokal))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SteuerfreierBetragLokal", SteuerfreierBetragLokal))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SteuerbetragLokal", SteuerbetragLokal))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsbetragLokal", RechnungsbetragLokal))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("WährungFremd", WährungFremd))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SteuerpflichtigerBetragFremd", SteuerpflichtigerBetragFremd))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SteuerfreierBetragFremd", SteuerfreierBetragFremd))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SteuerbetragFremd", SteuerbetragFremd))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsbetragFremd", RechnungsbetragFremd))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TrdinDateiname", TrdinDateiname))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abgleich_op_debitor", Abgleich_op_debitor))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Nettozahlungsziel", Nettozahlungsziel))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_ID", Firma_ID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_ID", UStVAn_ID))
|
||||
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblTrdinInvoice WITH(updlock,serializable) WHERE Rechnungsnummer=@Rechnungsnummer and Rechnungsdatum=@Rechnungsdatum) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblTrdinInvoice WHERE Rechnungsnummer=@Rechnungsnummer and Rechnungsdatum=@Rechnungsdatum ", conn)
|
||||
cmd.Parameters.AddWithValue("@Rechnungsnummer", Rechnungsnummer)
|
||||
cmd.Parameters.AddWithValue("@Rechnungsdatum", Rechnungsdatum)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
hasEntry = True
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
Next
|
||||
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblTrdinInvoice] SET " & str & " WHERE Rechnungsnummer=@Rechnungsnummer and Rechnungsdatum=@Rechnungsdatum ")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO tblTrdinInvoice (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblTrdinInvoice] WITH(updlock,serializable) WHERE Rechnungsnummer=" & Me.Rechnungsnummer & " and Rechnungsdatum='" & Me.Rechnungsdatum.ToShortDateString & "'"
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
Public Class cTrdProduct
|
||||
|
||||
Property Rechnungsdatum As Date
|
||||
Property Rechnungsnummer As Integer
|
||||
|
||||
Property Leistungsnummer As Integer
|
||||
Property Leistungsbezeichnung As String
|
||||
Property Steuerpflichtig As Boolean
|
||||
Property SteuerpflichtigerBetragLokal As Object = Nothing
|
||||
Property SteuerfreierBetragLokal As Object = Nothing
|
||||
Property SteuerpflichtigerBetragFremd As Object = Nothing
|
||||
Property SteuerfreierBetragFremd As Object = Nothing
|
||||
Property Belegdaten As Object = Nothing
|
||||
Property Sachkonto As Object = Nothing
|
||||
Property Buchungstext As Object = Nothing
|
||||
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechnungsdatum", Rechnungsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechnungsnummer", Rechnungsnummer))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Leistungsnummer", Leistungsnummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Leistungsbezeichnung", Leistungsbezeichnung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuerpflichtig", Steuerpflichtig))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SteuerpflichtigerBetragLokal", SteuerpflichtigerBetragLokal))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SteuerfreierBetragLokal", SteuerfreierBetragLokal))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SteuerpflichtigerBetragFremd", SteuerpflichtigerBetragFremd))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SteuerfreierBetragFremd", SteuerfreierBetragFremd))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Belegdaten", Belegdaten))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachkonto", Sachkonto))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Buchungstext", Buchungstext))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblTrdinProduct WITH(updlock,serializable) WHERE Rechnungsnummer=@Rechnungsnummer and Rechnungsdatum=@Rechnungsdatum and Leistungsnummer=@Leistungsnummer and Leistungsbezeichnung=@Leistungsbezeichnung and Steuerpflichtig=@Steuerpflichtig) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
|
||||
'Public Sub LOAD()
|
||||
' Try
|
||||
' Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
' Using cmd As New SqlCommand("SELECT * FROM tblTrdinProduct WHERE Rechnungsnummer=@Rechnungsnummer and Rechnungsdatum=@Rechnungsdatum ", conn)
|
||||
' cmd.Parameters.AddWithValue("@Rechnungsnummer", Rechnungsnummer)
|
||||
' cmd.Parameters.AddWithValue("@Rechnungsdatum", Rechnungsdatum)
|
||||
' Dim dr = cmd.ExecuteReader()
|
||||
' If dr.Read Then
|
||||
' For Each l In getParameterList()
|
||||
' Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
' If dr.Item(l.Text) Is DBNull.Value Then
|
||||
' propInfo.SetValue(Me, Nothing)
|
||||
' Else
|
||||
' propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
' End If
|
||||
|
||||
' Next
|
||||
|
||||
' End If
|
||||
' dr.Close()
|
||||
' End Using
|
||||
' End Using
|
||||
' Catch ex As Exception
|
||||
' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
' End Try
|
||||
'End Sub
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblTrdinProduct] SET " & str & " WHERE Rechnungsnummer=@Rechnungsnummer and Rechnungsdatum=@Rechnungsdatum and Leistungsnummer=@Leistungsnummer and Leistungsbezeichnung=@Leistungsbezeichnung and Steuerpflichtig=@Steuerpflichtig ")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO tblTrdinProduct (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
Class TrdInvoice_FUNCTIONS
|
||||
|
||||
Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Shared Function TrdinSchreiben(Optional Firma As Integer = -1) As Boolean 'Lädt die Daten aus der Tabelle Rechnungsausgang/RechnungsausgangPositionen in die Tabelle trdInvoice/trdProduct
|
||||
Try
|
||||
|
||||
Dim LOKALWÄHRUNG = "EUR"
|
||||
Dim lngSatzzähler As Integer
|
||||
Dim WährungsdifferenzSteuerpflichtigerBetrag As Double
|
||||
Dim WährungsdifferenzSteuerfreierBetrag As Integer
|
||||
|
||||
Dim dt As DataTable = SQL.loadDgvBySql(getSQLString_SELECTForTrdInvoice(Firma), "FMZOLL")
|
||||
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
||||
For Each ROW In dt.Rows
|
||||
Dim TRD_INVOICE As New VERAG_PROG_ALLGEMEIN.cTrdInvoice(ROW("RK_RechnungsDatum"), ROW("RK_RechnungsNr"))
|
||||
If TRD_INVOICE.hasEntry Then
|
||||
' MsgBox("RG-Nr. bereits vorhanden!")
|
||||
Else
|
||||
Dim RK_Währungscode = ROW("RK_Währungscode")
|
||||
If ROW("RK_Währungscode") Is DBNull.Value Then RK_Währungscode = LOKALWÄHRUNG
|
||||
|
||||
If RK_Währungscode = LOKALWÄHRUNG Then
|
||||
TRD_INVOICE.SteuerpflichtigerBetragLokal = ROW("RK_SteuerpflichtigerBetrag")
|
||||
TRD_INVOICE.SteuerfreierBetragLokal = ROW("RK_SteuerfreierBetrag")
|
||||
TRD_INVOICE.SteuerbetragLokal = ROW("RK_Steuerbetrag")
|
||||
TRD_INVOICE.RechnungsbetragLokal = ROW("RK_Rechnungsbetrag")
|
||||
|
||||
TRD_INVOICE.SteuerpflichtigerBetragFremd = 0
|
||||
TRD_INVOICE.SteuerfreierBetragFremd = 0
|
||||
TRD_INVOICE.SteuerbetragFremd = 0
|
||||
TRD_INVOICE.RechnungsbetragFremd = 0
|
||||
|
||||
TRD_INVOICE.WährungFremd = Nothing
|
||||
Else
|
||||
TRD_INVOICE.SteuerpflichtigerBetragFremd = ROW("RK_SteuerpflichtigerBetrag")
|
||||
TRD_INVOICE.SteuerfreierBetragFremd = ROW("RK_SteuerfreierBetrag")
|
||||
TRD_INVOICE.SteuerbetragFremd = ROW("RK_Steuerbetrag")
|
||||
TRD_INVOICE.RechnungsbetragFremd = ROW("RK_Rechnungsbetrag")
|
||||
|
||||
TRD_INVOICE.SteuerpflichtigerBetragLokal = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(ROW("[RK_SteuerpflichtigerBetrag]"), ROW("[RK_Währungscode]"), LOKALWÄHRUNG)
|
||||
TRD_INVOICE.SteuerfreierBetragLokal = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(ROW("[RK_SteuerfreierBetrag]"), ROW("[RK_Währungscode]"), LOKALWÄHRUNG)
|
||||
TRD_INVOICE.SteuerbetragLokal = CDbl(TRD_INVOICE.SteuerpflichtigerBetragLokal * ROW("[RK_SteuersatzProzent]") * 100) / 100
|
||||
TRD_INVOICE.RechnungsbetragLokal = TRD_INVOICE.SteuerpflichtigerBetragLokal + TRD_INVOICE.SteuerfreierBetragLokal + TRD_INVOICE.SteuerbetragLokal
|
||||
' Basis zur Feststellung von Rundungsdifferenzen schaffen.
|
||||
|
||||
TRD_INVOICE.SteuerpflichtigerBetragLokal = 0
|
||||
TRD_INVOICE.SteuerfreierBetragLokal = 0
|
||||
TRD_INVOICE.SteuerbetragLokal = 0
|
||||
TRD_INVOICE.RechnungsbetragLokal = 0
|
||||
|
||||
WährungsdifferenzSteuerpflichtigerBetrag = TRD_INVOICE.SteuerpflichtigerBetragLokal
|
||||
WährungsdifferenzSteuerfreierBetrag = TRD_INVOICE.SteuerfreierBetragLokal
|
||||
lngSatzzähler = ROW("RK_Satzzähler")
|
||||
|
||||
TRD_INVOICE.WährungFremd = RK_Währungscode
|
||||
End If
|
||||
|
||||
|
||||
TRD_INVOICE.FilialenNr = ROW("RK_FilialenNr")
|
||||
TRD_INVOICE.Speditionsbuch = SQL.DLookup("Speditionsbuch", "Filialen", "FilialenNr=" & ROW("RK_FilialenNr"), "FMZOLL", Nothing) ' ROW("Speditionsbuch")
|
||||
TRD_INVOICE.AbfertigungsNr = ROW("RK_AbfertigungsNr")
|
||||
TRD_INVOICE.UnterNr = ROW("RK_UnterNr")
|
||||
TRD_INVOICE.Abfertigungsdatum = ROW("RK_Abfertigungsdatum")
|
||||
TRD_INVOICE.BelegartenNr = ROW("RK_BelegartenNr")
|
||||
TRD_INVOICE.KundenNrZentrale = ROW("RK_KundenNrZentrale")
|
||||
TRD_INVOICE.RechnungsKundenNr = ROW("RK_RechnungsKundenNr")
|
||||
TRD_INVOICE.RechnungsLandKz = ROW("RK_RechnungsLandKz")
|
||||
TRD_INVOICE.RechnungsUstIdKz = ROW("RK_RechnungsUstIdKz")
|
||||
TRD_INVOICE.RechnungsUstIdNr = ROW("RK_RechnungsUstIdNr")
|
||||
TRD_INVOICE.Lastschrift = ROW("RK_Lastschrift")
|
||||
TRD_INVOICE.Steuerschlüssel = ROW("RK_Steuerschlüssel")
|
||||
TRD_INVOICE.Steuersatz = ROW("RK_SteuersatzProzent")
|
||||
TRD_INVOICE.WährungLokal = LOKALWÄHRUNG
|
||||
TRD_INVOICE.TrdinDateiname = Nothing
|
||||
TRD_INVOICE.Abgleich_op_debitor = 0
|
||||
TRD_INVOICE.Nettozahlungsziel = ROW("RK_Nettozahlungsziel")
|
||||
TRD_INVOICE.Firma_ID = ROW("RK_Firma_ID")
|
||||
TRD_INVOICE.UStVAn_ID = Nothing
|
||||
|
||||
If TRD_INVOICE.SAVE Then
|
||||
If TrdinSchreibenProduct(TRD_INVOICE.Rechnungsdatum, TRD_INVOICE.Rechnungsnummer, RK_Währungscode, ROW("RK_RechnungsLandKz"), ROW("RK_Buchungstext"), TRD_INVOICE.Firma_ID, lngSatzzähler, WährungsdifferenzSteuerpflichtigerBetrag, WährungsdifferenzSteuerfreierBetrag) Then
|
||||
'UPDATE rechnugnsausgang
|
||||
SQL.doSQL("UPDATE [Rechnungsausgang] SET [Trdin] = 1 WHERE convert(date,[RechnungsDatum] ,104) = '" & TRD_INVOICE.Rechnungsdatum.ToShortDateString & "' AND RechnungsNr = " & TRD_INVOICE.Rechnungsnummer & " ", "FMZOLL")
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
Return True
|
||||
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
|
||||
' Buchung im Rechnungskopfsatz eintragen.
|
||||
' Call SPAktionsabfrageOhneErgebnis("dbo.spTrdinSchreibenUpdateRK", AktuelleVerbindungszeichenfolge(0), rstRK![RK_RechnungsDatum], rstRK![RK_RechnungsNr], 1)
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.StackTrace & "" & ex.Message)
|
||||
Return False
|
||||
End Try
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Shared Function TrdinSchreibenProduct(RechnungsDatum, RK_RechnungsNr, RK_Währungscode, RK_RechnungsLandKz, RK_Buchungstext, RK_Firma_ID, ByRef lngSatzzähler, ByRef WährungsdifferenzSteuerpflichtigerBetrag, ByRef WährungsdifferenzSteuerfreierBetrag) As Boolean
|
||||
Try
|
||||
|
||||
Dim LOKALWÄHRUNG = "EUR"
|
||||
|
||||
Dim dt As DataTable = SQL.loadDgvBySql(getSQLString_SELECTForTrdProduct(RechnungsDatum, RK_RechnungsNr), "FMZOLL")
|
||||
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
||||
For Each ROW In dt.Rows
|
||||
Dim TRD_PRODUCT As New VERAG_PROG_ALLGEMEIN.cTrdProduct()
|
||||
|
||||
TRD_PRODUCT.Rechnungsdatum = RechnungsDatum
|
||||
TRD_PRODUCT.Rechnungsnummer = RK_RechnungsNr
|
||||
|
||||
|
||||
If RK_Währungscode = LOKALWÄHRUNG Then
|
||||
TRD_PRODUCT.SteuerpflichtigerBetragLokal = ROW("RP_SteuerpflichtigerBetrag")
|
||||
TRD_PRODUCT.SteuerfreierBetragLokal = ROW("RP_SteuerfreierBetrag")
|
||||
|
||||
TRD_PRODUCT.SteuerpflichtigerBetragFremd = 0
|
||||
TRD_PRODUCT.SteuerfreierBetragFremd = 0
|
||||
Else
|
||||
TRD_PRODUCT.SteuerpflichtigerBetragFremd = ROW("RP_SteuerpflichtigerBetrag")
|
||||
TRD_PRODUCT.SteuerfreierBetragFremd = ROW("RP_SteuerfreierBetrag")
|
||||
|
||||
|
||||
TRD_PRODUCT.SteuerpflichtigerBetragLokal = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(ROW("RP_SteuerpflichtigerBetrag"), RK_Währungscode, LOKALWÄHRUNG)
|
||||
TRD_PRODUCT.SteuerfreierBetragLokal = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(ROW("RP_SteuerfreierBetrag"), RK_Währungscode, LOKALWÄHRUNG)
|
||||
|
||||
|
||||
WährungsdifferenzSteuerpflichtigerBetrag -= TRD_PRODUCT.SteuerpflichtigerBetragLokal
|
||||
WährungsdifferenzSteuerfreierBetrag -= TRD_PRODUCT.SteuerfreierBetragLokal
|
||||
|
||||
lngSatzzähler = lngSatzzähler - ROW("RP_Satzzähler")
|
||||
If lngSatzzähler = 0 Then
|
||||
If WährungsdifferenzSteuerpflichtigerBetrag <> 0 Then
|
||||
TRD_PRODUCT.SteuerpflichtigerBetragLokal += WährungsdifferenzSteuerpflichtigerBetrag
|
||||
End If
|
||||
If WährungsdifferenzSteuerfreierBetrag <> 0 Then
|
||||
TRD_PRODUCT.SteuerfreierBetragLokal += WährungsdifferenzSteuerfreierBetrag
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
TRD_PRODUCT.Leistungsnummer = ROW("RP_LeistungsNr")
|
||||
TRD_PRODUCT.Leistungsbezeichnung = ROW("RP_LeistungsBez")
|
||||
TRD_PRODUCT.Steuerpflichtig = ROW("RP_Steuerpflichtig")
|
||||
TRD_PRODUCT.Belegdaten = ROW("RP_Belegdaten")
|
||||
TRD_PRODUCT.Sachkonto = getSachkonto(RK_Firma_ID, ROW("RP_LeistungsNr"), RK_RechnungsLandKz, ROW("RP_Steuerpflichtig"), ROW("AufschubkontoNr"))
|
||||
TRD_PRODUCT.Buchungstext = RK_Buchungstext
|
||||
TRD_PRODUCT.SAVE()
|
||||
Next
|
||||
|
||||
Return True
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.StackTrace & "" & ex.Message)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Shared Function getSachkonto(Firma_Id, RP_LeistungsNr, [RK_RechnungsLandKz], RP_Steuerpflichtig, RP_AufschubkontoNr)
|
||||
' Sachkonto ermitteln.
|
||||
Select Case Firma_Id
|
||||
Case 20 'IMEX --> Andere Sachkonten in TblLeistungen!
|
||||
If [RK_RechnungsLandKz] Is Nothing _
|
||||
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 Else
|
||||
If [RK_RechnungsLandKz] Is Nothing _
|
||||
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
|
||||
|
||||
End Function
|
||||
|
||||
Shared Function getSQLString_SELECTForTrdInvoice(Optional Firma As Integer = -1)
|
||||
getSQLString_SELECTForTrdInvoice = "SELECT Rechnungsausgang.RechnungsDatum AS RK_RechnungsDatum, Rechnungsausgang.RechnungsNr AS RK_RechnungsNr, min(Rechnungsausgang.Abfertigungsdatum) AS RK_Abfertigungsdatum, min(Rechnungsausgang.FilialenNr) AS RK_FilialenNr,
|
||||
min(Rechnungsausgang.AbfertigungsNr) AS RK_AbfertigungsNr, min(Rechnungsausgang.UnterNr) AS RK_UnterNr, min(Rechnungsausgang.BelegartenNr) AS RK_BelegartenNr,
|
||||
(min(cast([FilialenNr] as varchar(4))) + '/' + min(cast([AbfertigungsNr] as varchar(8))) + '/' + min(cast([UnterNr] as varchar(2)))) AS RK_Buchungstext,
|
||||
min(Rechnungsausgang.KundenNrZentrale) AS RK_KundenNrZentrale, min(Rechnungsausgang.RechnungsKundenNr) AS RK_RechnungsKundenNr, min(Rechnungsausgang.RechnungsLandKz) AS RK_RechnungsLandKz,
|
||||
min(Rechnungsausgang.RechnungsUstIdKz) AS RK_RechnungsUstIdKz, min(Rechnungsausgang.RechnungsUstIdNr) AS RK_RechnungsUstIdNr, min(Rechnungsausgang.Lastschrift+0) AS RK_Lastschrift,
|
||||
min(Rechnungsausgang.Steuerschlüssel) AS RK_Steuerschlüssel, min(Rechnungsausgang.[Steuersatz %]) AS RK_SteuersatzProzent, min(Rechnungsausgang.Währungscode) AS RK_Währungscode,
|
||||
min(Rechnungsausgang.Nettozahlungsziel) AS RK_Nettozahlungsziel, min(Rechnungsausgang.Firma_ID) AS RK_Firma_ID, Sum(RechnungsausgangPositionen.SteuerpflichtigerBetrag) AS RK_SteuerpflichtigerBetrag,
|
||||
Sum(RechnungsausgangPositionen.SteuerfreierBetrag) AS RK_SteuerfreierBetrag
|
||||
, (Sum(RechnungsausgangPositionen.SteuerpflichtigerBetrag)*min(Rechnungsausgang.[Steuersatz %])*100)/100 AS RK_Steuerbetrag,
|
||||
Sum(RechnungsausgangPositionen.SteuerpflichtigerBetrag)+Sum(RechnungsausgangPositionen.SteuerfreierBetrag)+((Sum(RechnungsausgangPositionen.SteuerpflichtigerBetrag)*min(Rechnungsausgang.[Steuersatz %])*100)/100) AS RK_Rechnungsbetrag,
|
||||
Count(1) AS RK_Satzzähler
|
||||
FROM Rechnungsausgang INNER JOIN RechnungsausgangPositionen ON Rechnungsausgang.RK_ID = RechnungsausgangPositionen.RK_ID
|
||||
WHERE (((Rechnungsausgang.RechnungsDatum) Is Not Null) AND ((Rechnungsausgang.RechnungsNr) Is Not Null) AND ((Rechnungsausgang.Trdin)=0)) " & If(Firma > 0, " and Firma_ID=" & Firma, "") & "
|
||||
GROUP BY Rechnungsausgang.RechnungsDatum, Rechnungsausgang.RechnungsNr
|
||||
ORDER BY Rechnungsausgang.RechnungsDatum, Rechnungsausgang.RechnungsNr, min(Rechnungsausgang.Abfertigungsdatum), min(Rechnungsausgang.FilialenNr), min(Rechnungsausgang.AbfertigungsNr), min(Rechnungsausgang.UnterNr);"
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function getSQLString_SELECTForTrdProduct(RechnungsDatum As Date, RechnungsNr As Integer)
|
||||
getSQLString_SELECTForTrdProduct = "SELECT Rechnungsausgang.RechnungsDatum AS RP_RechnungsDatum, Rechnungsausgang.RechnungsNr AS RP_RechnungsNr, RechnungsausgangPositionen.LeistungsNr AS RP_LeistungsNr, RechnungsausgangPositionen.LeistungsBez AS RP_LeistungsBez,
|
||||
RechnungsausgangPositionen.Steuerpflichtig AS RP_Steuerpflichtig, Sum(RechnungsausgangPositionen.SteuerpflichtigerBetrag) AS RP_SteuerpflichtigerBetrag, Sum(RechnungsausgangPositionen.SteuerfreierBetrag) AS RP_SteuerfreierBetrag,
|
||||
min(RechnungsausgangPositionen.Belegdaten) AS RP_Belegdaten, Count(1) AS RP_Satzzähler, min(AufschubkontoNr) as AufschubkontoNr
|
||||
FROM RechnungsausgangPositionen INNER JOIN Rechnungsausgang ON RechnungsausgangPositionen.RK_ID = Rechnungsausgang.RK_ID
|
||||
GROUP BY Rechnungsausgang.RechnungsDatum, Rechnungsausgang.RechnungsNr, RechnungsausgangPositionen.LeistungsNr, RechnungsausgangPositionen.LeistungsBez, RechnungsausgangPositionen.Steuerpflichtig
|
||||
HAVING (((Rechnungsausgang.RechnungsDatum)='" & RechnungsDatum.ToShortDateString & "') AND ((Rechnungsausgang.RechnungsNr)=" & RechnungsNr & "))
|
||||
ORDER BY Rechnungsausgang.RechnungsDatum, Rechnungsausgang.RechnungsNr, RechnungsausgangPositionen.LeistungsNr, RechnungsausgangPositionen.LeistungsBez, RechnungsausgangPositionen.Steuerpflichtig;"
|
||||
End Function
|
||||
End Class
|
||||
250
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 l In UID.getParameterList()
|
||||
Dim propInfo As PropertyInfo = UID.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(UID, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(UID, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
dr.Close()
|
||||
Return UID
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return Nothing
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblUIDAbfrage WHERE uid_id=@uid_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@uid_id", uid_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblUIDAbfrage] SET " & str & " WHERE uid_id=@uid_id ")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO tblUIDAbfrage (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Shared Function ABFRAGE(UstIdKz As String, UstIdNr As String, ByRef valid As Boolean) As cUIDAbfrage
|
||||
|
||||
Try
|
||||
Dim vat As New UIDPruefung.checkVatService
|
||||
|
||||
Dim countryCode As String = UstIdKz
|
||||
Dim vatNumber As String = UstIdNr
|
||||
Dim traderName As String
|
||||
Dim traderCompanyType As String
|
||||
Dim traderStreet As String
|
||||
Dim traderPostcode As String
|
||||
Dim traderCity As String
|
||||
Dim requesterCountryCode As String = "AT"
|
||||
Dim requesterVatNumber As String = "U62663022"
|
||||
'Dim valid As Boolean
|
||||
Dim traderAddress As String
|
||||
Dim traderNameMatch As Integer
|
||||
Dim traderNameMatchSpecified As Boolean
|
||||
Dim traderCompanyTypeMatch As Integer
|
||||
Dim traderCompanyTypeMatchSpecified As Boolean
|
||||
Dim traderStreetMatch As Integer
|
||||
Dim traderStreetMatchSpecified As Boolean
|
||||
Dim traderPostcodeMatch As Integer
|
||||
Dim traderPostcodeMatchSpecified As Boolean
|
||||
Dim traderCityMatch As Integer
|
||||
Dim traderCityMatchSpecified As Boolean
|
||||
Dim requestIdentifier As String
|
||||
|
||||
|
||||
|
||||
' Dim ass As New EU_UID_Pruefung.checkVatPortTypeClient()
|
||||
|
||||
' ass.checkVatPortTypeClient()
|
||||
|
||||
' Dim s = EU3t.checkVat("AT", "U53187000", valid, name, adress)
|
||||
'Dim s = vat.checkVat(ADRESSE.UstIdKz, ADRESSE.UstIdNr, valid, name, adress)
|
||||
Dim s As Date = vat.checkVatApprox(countryCode, vatNumber, traderName, traderCompanyType, traderStreet, traderPostcode, traderCity, requesterCountryCode, requesterVatNumber, valid, traderAddress, traderNameMatch, traderNameMatchSpecified, traderCompanyTypeMatch, traderCompanyTypeMatchSpecified, traderStreetMatch, traderStreetMatchSpecified, traderPostcodeMatch, traderPostcodeMatchSpecified, traderCityMatch, traderCityMatchSpecified, requestIdentifier)
|
||||
|
||||
|
||||
Dim UID As New cUIDAbfrage
|
||||
|
||||
' UID()
|
||||
' MsgBox(requestIdentifier)
|
||||
' MsgBox(traderName)
|
||||
' MsgBox(traderStreet)
|
||||
'' MsgBox(traderAddress)
|
||||
' ' MsgBox(adress)
|
||||
' MsgBox(name)
|
||||
|
||||
|
||||
Return UID
|
||||
Catch ex As Exception
|
||||
|
||||
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
|
||||
End Class
|
||||
315
VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb
Normal file
315
VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb
Normal file
@@ -0,0 +1,315 @@
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
Imports VERAG_PROG_ALLGEMEIN.UIDPruefung
|
||||
'Imports SDL.eu.europa.ec
|
||||
|
||||
Public Class cUIDPruefung
|
||||
|
||||
Property uid_id As Integer = -1
|
||||
Property uid_KundenNr As Integer
|
||||
Property uid_UstIdKz As String
|
||||
Property uid_UstIdNr As String
|
||||
Property uid_Datum As Date = Now
|
||||
Property uid_valid As Boolean
|
||||
Property uid_MaId As Object = Nothing
|
||||
Property uid_Sachbearbeiter As String
|
||||
Property uid_firma As Object = Nothing
|
||||
Property uid_strasse As Object = Nothing
|
||||
Property uid_plz As Object = Nothing
|
||||
Property uid_ort 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_strasse", uid_strasse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_plz", uid_plz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_ort", uid_ort))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblUIDPruefung WITH(updlock,serializable) WHERE uid_id=@uid_id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
uid_id = SQL.doSQLVarListID(uid_id, sqlstr, "FMZOLL", , list)
|
||||
Return uid_id > 0
|
||||
End Function
|
||||
|
||||
Public Shared Function LOADByKdNrDate(ba_KundenNr As Integer, ba_Datum As Date) As cUIDPruefung
|
||||
Try
|
||||
Dim UID As New cUIDPruefung
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblUIDPruefung WHERE ba_KundenNr=@ba_KundenNr AND cast(ba_Datum as date)=@ba_Datum ", conn)
|
||||
cmd.Parameters.AddWithValue("@ba_KundenNr", ba_KundenNr)
|
||||
cmd.Parameters.AddWithValue("@ba_Datum", ba_Datum.ToShortDateString)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In UID.getParameterList()
|
||||
Dim propInfo As PropertyInfo = UID.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(UID, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(UID, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
dr.Close()
|
||||
Return UID
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return Nothing
|
||||
End Function
|
||||
|
||||
|
||||
Public Shared Function doUIDPruefungALL(Optional datum As Object = Nothing, Optional SaveErgInAdressen As Boolean = True, Optional Sciherheitsabfrage As Boolean = True, Optional MaxEintraege As Integer = -1, Optional showErr As Boolean = True) As DataTable
|
||||
Dim dt As DataTable = Nothing
|
||||
If datum = Nothing Then datum = CDate("01." & Now.ToString("MM.yyyy")).AddMonths(-2)
|
||||
|
||||
Dim where = ""
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "IMEX" : where = " And FilialenNr IN (5501)"
|
||||
Case "ATILLA" : where = " And FilialenNr IN (4801)"
|
||||
Case Else : where = " And isnull(FilialenNr,'') Not IN (5501)"
|
||||
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],UstIdKz,UstIdnr " &
|
||||
" From [Adressen] inner Join kunden On KundenNr=AdressenNr " &
|
||||
" where UstIdGeprüft < '" & datum.ToShortDateString & "' and UstIdKz is not null and UstIdNr is not null " &
|
||||
" And Auswahl='A' " & where & " ORDER BY Ordnungsbegriff", "FMZOLL")
|
||||
|
||||
If dt IsNot Nothing Then
|
||||
If dt.Rows.Count = 0 Then Return Nothing
|
||||
If Sciherheitsabfrage Then
|
||||
If vbYes <> MsgBox("Es werden " & dt.Rows.Count & " Datensätze abgefragt, möchten Sie fortfahren?", vbYesNoCancel) Then
|
||||
Return Nothing
|
||||
End If
|
||||
End If
|
||||
Dim c As New DataColumn
|
||||
c.ColumnName = "Ergebnis"
|
||||
dt.Columns.Add(c)
|
||||
For Each r As DataRow In dt.Rows
|
||||
Dim UID_TMP = doUIDPruefung(r("KdNr"),, SaveErgInAdressen, showErr)
|
||||
If UID_TMP IsNot Nothing Then
|
||||
If UID_TMP.uid_valid Then
|
||||
r("Ergebnis") = "OK"
|
||||
Else
|
||||
r("Ergebnis") = "UNGÜLTIG"
|
||||
End If
|
||||
Else
|
||||
r("Ergebnis") = "ERROR"
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
Return dt
|
||||
End Function
|
||||
|
||||
|
||||
Public Shared Function doUIDPruefung(ba_KundenNr, Optional AskIfDouble = False, Optional SaveErgInAdressen = True, Optional showErr = True) As cUIDPruefung
|
||||
|
||||
Dim AD As New cAdressen(ba_KundenNr)
|
||||
If AD IsNot Nothing Then
|
||||
If AD.UstIdKz IsNot Nothing AndAlso AD.UstIdNr IsNot Nothing Then
|
||||
|
||||
Try
|
||||
If AskIfDouble Then
|
||||
If IsDate(AD.UstIdGeprüft) AndAlso CDate(AD.UstIdGeprüft).ToShortDateString = Now.ToShortDateString Then
|
||||
If vbYes <> MsgBox("Die UID-Nummer wurde heute bereits geprüft. Soll die Prüfung nochmal durchgeführt werden?", vbYesNoCancel) Then
|
||||
Return Nothing
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
Dim vat As New UIDPruefung.checkVatService
|
||||
|
||||
' Dim EU3t As New SDL.eu.europa.ec.checkVatService("checkVatPort", "http://ec.europa.eu/taxation_customs/vies/checkVatService.wsdl") '"urn:ec.europa.eu:taxud:vies:services:checkVat:types")
|
||||
' Dim EU4 As New EU_Uid_Pruefung.checkVatPortTyp
|
||||
' EU3.checkVatPortType()
|
||||
' "EU_Uid_Pruefung.checkVatPortType"
|
||||
' Dim valid As Boolean = False
|
||||
'Dim name As String = ""
|
||||
'Dim adress As String = ""
|
||||
|
||||
Dim countryCode As String = AD.UstIdKz
|
||||
Dim vatNumber As String = AD.UstIdNr
|
||||
Dim traderName As String
|
||||
Dim traderCompanyType As String
|
||||
Dim traderStreet As String
|
||||
Dim traderPostcode As String
|
||||
Dim traderCity As String
|
||||
|
||||
Dim requesterCountryCode As String = "AT"
|
||||
Dim requesterVatNumber As String = "U62663022"
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "IMEX"
|
||||
requesterCountryCode = "AT"
|
||||
requesterVatNumber = "U68490714"
|
||||
End Select
|
||||
Dim valid As Boolean = False
|
||||
Dim traderAddress As String
|
||||
Dim traderNameMatch As matchCode
|
||||
Dim traderNameMatchSpecified As Boolean
|
||||
Dim traderCompanyTypeMatch As matchCode
|
||||
Dim traderCompanyTypeMatchSpecified As Boolean
|
||||
Dim traderStreetMatch As matchCode
|
||||
Dim traderStreetMatchSpecified As Boolean
|
||||
Dim traderPostcodeMatch As matchCode
|
||||
Dim traderPostcodeMatchSpecified As Boolean
|
||||
Dim traderCityMatch As matchCode
|
||||
Dim traderCityMatchSpecified As Boolean
|
||||
Dim requestIdentifier As String
|
||||
|
||||
|
||||
|
||||
' Dim ass As New EU_UID_Pruefung.checkVatPortTypeClient()
|
||||
|
||||
' ass.checkVatPortTypeClient()
|
||||
|
||||
' Dim s = EU3t.checkVat("AT", "U53187000", valid, name, adress)
|
||||
'Dim s = vat.checkVat(ADRESSE.UstIdKz, ADRESSE.UstIdNr, valid, name, adress)
|
||||
Dim s = vat.checkVatApprox(countryCode, vatNumber, traderName, traderCompanyType, traderStreet, traderPostcode, traderCity, requesterCountryCode, requesterVatNumber, valid, traderAddress, traderNameMatch, traderNameMatchSpecified, traderCompanyTypeMatch, traderCompanyTypeMatchSpecified, traderStreetMatch, traderStreetMatchSpecified, traderPostcodeMatch, traderPostcodeMatchSpecified, traderCityMatch, traderCityMatchSpecified, requestIdentifier)
|
||||
|
||||
If s >= Now.ToShortDateString Then 'If s IsNot Nothing Then
|
||||
Dim UID_TMP As New cUIDPruefung
|
||||
UID_TMP.uid_Datum = Now
|
||||
UID_TMP.uid_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
If If(UID_TMP.uid_Sachbearbeiter, "") = "" Then UID_TMP.uid_Sachbearbeiter = "AUTO"
|
||||
UID_TMP.uid_MaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
||||
UID_TMP.uid_valid = valid
|
||||
UID_TMP.uid_KundenNr = ba_KundenNr
|
||||
|
||||
UID_TMP.uid_UstIdKz = AD.UstIdKz
|
||||
UID_TMP.uid_UstIdNr = AD.UstIdNr
|
||||
' UID.uid_firma =
|
||||
' UID.uid_strasse))
|
||||
'UID.uid_plz))
|
||||
'UID.uid_ort))
|
||||
|
||||
UID_TMP.SAVE()
|
||||
If valid Then
|
||||
If SaveErgInAdressen Then
|
||||
AD.UstIdGeprüft = Now.ToShortDateString
|
||||
AD.SAVE()
|
||||
End If
|
||||
End If
|
||||
Return UID_TMP
|
||||
End If
|
||||
Catch ex As Exception
|
||||
If showErr Then MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End If
|
||||
End If
|
||||
|
||||
Return Nothing
|
||||
End Function
|
||||
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblUIDPruefung WHERE uid_id=@uid_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@uid_id", uid_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblUIDPruefung] SET " & str & " WHERE uid_id=@uid_id ")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO tblUIDPruefung (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
144
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
|
||||
288
VERAG_PROG_ALLGEMEIN/Classes/cVorauskasse.vb
Normal file
288
VERAG_PROG_ALLGEMEIN/Classes/cVorauskasse.vb
Normal file
@@ -0,0 +1,288 @@
|
||||
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
|
||||
|
||||
|
||||
|
||||
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))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Shared Function LOADByFilialeAbfNr(FilialeNr As Integer, AbfertigungsNr As Integer, Optional vk_Rolle As String = "") As cVorauskasse
|
||||
Try
|
||||
Dim VK As New cVorauskasse
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblVorauskassen WHERE vk_AbfertigungsNr=@vk_AbfertigungsNr AND vk_FilialeNr=@vk_FilialeNr " & If(If(vk_Rolle, "") <> "", "AND vk_Rolle=@vk_Rolle ", ""), conn)
|
||||
cmd.Parameters.AddWithValue("@vk_FilialeNr", FilialeNr)
|
||||
cmd.Parameters.AddWithValue("@vk_AbfertigungsNr", AbfertigungsNr)
|
||||
cmd.Parameters.AddWithValue("@vk_Rolle", vk_Rolle)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In VK.getParameterList()
|
||||
Dim propInfo As PropertyInfo = VK.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(VK, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(VK, dr.Item(l.Text))
|
||||
End If
|
||||
Next
|
||||
dr.Close()
|
||||
Return VK
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return Nothing
|
||||
End Function
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblVorauskassen WITH(updlock,serializable) WHERE vk_id=@vk_id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
vk_id = SQL.doSQLVarListID(vk_id, sqlstr, "FMZOLL", , list)
|
||||
Return vk_id > 0
|
||||
End Function
|
||||
|
||||
|
||||
Public Function SET_GELDEINGANG(vk_GeldEingetroffen As Boolean, Optional vk_BH_Bemerkung As Object = Nothing) As Boolean
|
||||
Me.vk_GeldEingetroffen = vk_GeldEingetroffen
|
||||
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_STORNO() As Boolean
|
||||
Me.vk_storno = Not Me.vk_storno
|
||||
Return SAVE()
|
||||
End Function
|
||||
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblVorauskassen WHERE vk_id=@vk_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@vk_id", vk_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblVorauskassen] SET " & str & " WHERE vk_id=@vk_id ")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO tblVorauskassen (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblVorauskassen] WITH(updlock,serializable) WHERE vk_id=" & Me.vk_id
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
134
VERAG_PROG_ALLGEMEIN/Classes/cWarenbezeichnungBegriffe.vb
Normal file
134
VERAG_PROG_ALLGEMEIN/Classes/cWarenbezeichnungBegriffe.vb
Normal file
@@ -0,0 +1,134 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cWarenbezeichnungBegriffe
|
||||
Property wb_id As Integer
|
||||
Property wb_begriff As String
|
||||
Property wb_beispiele As String
|
||||
Property wb_datum As Date = Now
|
||||
Property wb_Sachbearbeiter As String
|
||||
Property wb_SachbearbeiterId As Integer
|
||||
|
||||
|
||||
Public hasEntry As Boolean = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
Sub New(wb_id)
|
||||
If wb_id IsNot Nothing Then
|
||||
Me.wb_id = wb_id
|
||||
LOAD()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wb_id", wb_id, , True, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wb_begriff", wb_begriff))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wb_beispiele", wb_beispiele))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wb_datum", wb_datum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wb_Sachbearbeiter", wb_Sachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wb_SachbearbeiterId", wb_SachbearbeiterId))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Me.wb_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
Me.wb_SachbearbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblWarenbezeichnungBegriffe WITH(updlock,serializable) WHERE wb_id=@wb_id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
wb_id = SQL.doSQLVarListID(wb_id, sqlstr, "FMZOLL", , list)
|
||||
Return wb_id > 0
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblWarenbezeichnungBegriffe WHERE wb_id=@wb_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@wb_id", wb_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
hasEntry = True
|
||||
Next
|
||||
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblWarenbezeichnungBegriffe] SET " & str & " WHERE wb_id=@wb_id ")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO tblWarenbezeichnungBegriffe (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblWarenbezeichnungBegriffe] WITH(updlock,serializable) WHERE wb_id=" & Me.wb_id
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
Public Shared Function DELETE(id As Integer) As Boolean
|
||||
Dim SQL As New SQL
|
||||
Dim sqlstr = " DELETE FROM [tblWarenbezeichnungBegriffe] WHERE wb_id=" & id
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
End Class
|
||||
181
VERAG_PROG_ALLGEMEIN/Classes/cZkteing.vb
Normal file
181
VERAG_PROG_ALLGEMEIN/Classes/cZkteing.vb
Normal file
@@ -0,0 +1,181 @@
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
|
||||
Public Class cZkteing
|
||||
|
||||
Property Index As Integer = -1
|
||||
Property Status As Object = Nothing
|
||||
Property ZollamtsNr As Object = Nothing
|
||||
Property Jahr As Object = Nothing
|
||||
Property KennNr As Object = Nothing
|
||||
Property Nummer As Object = Nothing
|
||||
Property Leitzahl As Object = Nothing
|
||||
Property Belegart As Object = Nothing
|
||||
Property LeistungsNr As Object = Nothing
|
||||
Property Betrag As Object = Nothing
|
||||
Property Eingabedatum As Date
|
||||
Property Abfertigungsdatum As Object = Nothing
|
||||
Property Übernahmedatum As Date
|
||||
Property Bemerkung As Object = Nothing
|
||||
Property Sachbearbeiter As String = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
Property Bezugsnummer As Object = Nothing
|
||||
Property Registriernummer As Object = Nothing
|
||||
Property Korrekturnummer As Object = Nothing
|
||||
Property AOFD As Object = Nothing
|
||||
Property AKTO As Object = Nothing
|
||||
Property Fälligkeitsdatum As Object = Nothing
|
||||
Property Dateiname As Object = Nothing
|
||||
Property Mandant As Object = Nothing
|
||||
Property Niederlassung As Object = Nothing
|
||||
|
||||
Property LeistungsBez As Object = Nothing
|
||||
|
||||
Public hasEntry As Boolean = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
Sub New(Index)
|
||||
Me.Index = Index
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
Shared Function UPDATE_Status(Status, Zkteing_Index) As Boolean
|
||||
Dim ZK As New VERAG_PROG_ALLGEMEIN.cZkteing(Zkteing_Index)
|
||||
If ZK IsNot Nothing AndAlso ZK.hasEntry Then
|
||||
ZK.Status = Status
|
||||
Return ZK.SAVE
|
||||
End If
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Index", Index, , True, True))
|
||||
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Status", Status))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ZollamtsNr", ZollamtsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Jahr", Jahr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KennNr", KennNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Nummer", Nummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Leitzahl", Leitzahl))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Belegart", Belegart))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LeistungsNr", LeistungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Betrag", Betrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Eingabedatum", Eingabedatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abfertigungsdatum", Abfertigungsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Übernahmedatum", Übernahmedatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bemerkung", Bemerkung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachbearbeiter", Sachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bezugsnummer", Bezugsnummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Registriernummer", Registriernummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Korrekturnummer", Korrekturnummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AOFD", AOFD))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AKTO", AKTO))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Fälligkeitsdatum", Fälligkeitsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Dateiname", Dateiname))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Mandant", Mandant))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Niederlassung", Niederlassung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LeistungsBez", LeistungsBez))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM Zkteing WITH(updlock,serializable) WHERE [Index]=@Index) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Index = SQL.doSQLVarListID(Index, sqlstr, "FMZOLL", , list)
|
||||
Return Index > 0
|
||||
End Function
|
||||
|
||||
|
||||
Public Sub LOAD()
|
||||
hasEntry = False
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM Zkteing WHERE [Index]=@Index ", conn)
|
||||
cmd.Parameters.AddWithValue("@Index", Index)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
hasEntry = True
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [Zkteing] SET " & str & " WHERE [Index]=@Index ")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO Zkteing (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [Zkteing] WITH(updlock,serializable) WHERE Index=" & Me.Index
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
123
VERAG_PROG_ALLGEMEIN/Classes/cZollTarifAtlas.vb
Normal file
123
VERAG_PROG_ALLGEMEIN/Classes/cZollTarifAtlas.vb
Normal file
@@ -0,0 +1,123 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cZollTarifAtlas_LIST
|
||||
|
||||
Property LIST As New List(Of cZollTarifAtlas)
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
LOAD_LIST()
|
||||
End Sub
|
||||
|
||||
Public Sub LOAD_LIST()
|
||||
Try
|
||||
LIST.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionATLAS()
|
||||
Using cmd As New SqlCommand("SELECT * FROM [ezttxt] WHERE [ezttxt_datend] >= getdate() ORDER BY [ezttxt_code] ", conn)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cZollTarifAtlas
|
||||
For Each i In l.getParameterList()
|
||||
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
|
||||
If dr.Item(i.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(l, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(l, dr.Item(i.Text))
|
||||
End If
|
||||
Next
|
||||
|
||||
LIST.Add(l)
|
||||
|
||||
End While
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Function getFullTxt(WCNR As cZollTarifAtlas) As String
|
||||
getFullTxt = WCNR.ezttxt_text
|
||||
Dim index = getIndexInList(WCNR.ezttxt_code)
|
||||
'Dim hirachie = WCNR.ezttxt_hirnr
|
||||
For hirachie = WCNR.ezttxt_hirnr To 0 Step -1 'so oft bis alle Hirachieebenen durchgelaufen sind
|
||||
For i = index To 0 Step -1
|
||||
If LIST(i).ezttxt_hirnr = (hirachie - 1) Then
|
||||
getFullTxt = WCNR.ezttxt_text & " " & getFullTxt
|
||||
index = i
|
||||
End If
|
||||
Next
|
||||
Next
|
||||
End Function
|
||||
|
||||
Function getFullTxtByCode(code As String) As String
|
||||
Dim WCNR As cZollTarifAtlas = getFromList(code)
|
||||
If WCNR Is Nothing Then Return ""
|
||||
getFullTxtByCode = WCNR.ezttxt_text
|
||||
Dim index = getIndexInList(WCNR.ezttxt_code)
|
||||
|
||||
If index < 0 Then Return ""
|
||||
If WCNR.ezttxt_hirnr > 0 Then
|
||||
For hirachie = CInt(WCNR.ezttxt_hirnr) To 0 Step -1 'so oft bis alle Hirachieebenen durchgelaufen sind
|
||||
For i = index To 0 Step -1
|
||||
If LIST(i).ezttxt_hirnr = (hirachie - 1) Then
|
||||
getFullTxtByCode = LIST(i).ezttxt_text & " " & getFullTxtByCode
|
||||
index = i
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
Next
|
||||
End If
|
||||
End Function
|
||||
|
||||
|
||||
Function getIndexInList(code) As Integer
|
||||
For Each i In LIST
|
||||
If i.ezttxt_code.trim = code.trim Then
|
||||
Return LIST.IndexOf(i)
|
||||
End If
|
||||
Next
|
||||
Return -1
|
||||
End Function
|
||||
|
||||
Function getFromList(code) As cZollTarifAtlas
|
||||
For Each i In LIST
|
||||
If i.ezttxt_code = code Then
|
||||
Return i
|
||||
End If
|
||||
Next
|
||||
Return Nothing
|
||||
End Function
|
||||
End Class
|
||||
Public Class cZollTarifAtlas
|
||||
|
||||
Property ezttxt_code As Object = Nothing
|
||||
Property ezttxt_hirnr As Object = Nothing
|
||||
Property ezttxt_cdesid As Object = Nothing
|
||||
Property ezttxt_datbeg As Object = Nothing
|
||||
Property ezttxt_datend As Object = Nothing
|
||||
Property ezttxt_txtart As Object = Nothing
|
||||
Property ezttxt_text As Object = Nothing
|
||||
Property ezttxt_edat As Object = Nothing
|
||||
Property ezttxt_adat As Object = Nothing
|
||||
Property ezttxt_sb As Object = Nothing
|
||||
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezttxt_code", ezttxt_code))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezttxt_hirnr", ezttxt_hirnr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezttxt_cdesid", ezttxt_cdesid))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezttxt_datbeg", ezttxt_datbeg))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezttxt_datend", ezttxt_datend))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezttxt_txtart", ezttxt_txtart))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezttxt_text", ezttxt_text))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezttxt_edat", ezttxt_edat))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezttxt_adat", ezttxt_adat))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezttxt_sb", ezttxt_sb))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
End Class
|
||||
Reference in New Issue
Block a user