142 lines
7.3 KiB
VB.net
142 lines
7.3 KiB
VB.net
Imports System.Data.SqlClient
|
|
Imports System.Reflection
|
|
|
|
Public Class cFirmen
|
|
Property Firma_ID As Integer
|
|
Property Firma_Bez As String
|
|
Property Firma_BackColor As Object = Nothing ' INT DEFAULT ((16777215)) NOT NULL,
|
|
Property Firma_Logo As Object = Nothing ' VARBINARY (MAX) NULL,
|
|
Property Firma_Firmenbuch As Object = Nothing ' NVARCHAR (22) NULL,
|
|
Property Firma_UID As Object = Nothing ' NVARCHAR (16) NULL,
|
|
Property Firma_EORI As Object = Nothing ' NVARCHAR (21) NULL,
|
|
Property Firma_Bankverbindung1 As Object = Nothing ' NVARCHAR (50) NULL,
|
|
Property Firma_BLZ1 As Object = Nothing ' NVARCHAR (33) NULL,
|
|
Property Firma_KTO1 As Object = Nothing ' NVARCHAR (18) NULL,
|
|
Property Firma_IBAN1 As Object = Nothing ' NVARCHAR (38) NULL,
|
|
Property Firma_BIC1 As Object = Nothing ' NVARCHAR (16) NULL,
|
|
Property Firma_Bankverbindung2 As Object = Nothing ' NVARCHAR (50) NULL,
|
|
Property Firma_BLZ2 As Object = Nothing ' NVARCHAR (33) NULL,
|
|
Property Firma_KTO2 As Object = Nothing ' NVARCHAR (18) NULL,
|
|
Property Firma_IBAN2 As Object = Nothing ' NVARCHAR (38) NULL,
|
|
Property Firma_BIC2 As Object = Nothing ' NVARCHAR (16) NULL,
|
|
Property SSMA_TimeStamp As Object = Nothing ' ROWVERSION NOT NULL,
|
|
Property Firma_Ort As Object = Nothing ' NVARCHAR (40) NULL,
|
|
Property Firma_Straße As Object = Nothing ' NVARCHAR (40) NULL,
|
|
Property Firma_Telefon As Object = Nothing ' NVARCHAR (40) NULL,
|
|
Property Firma_Telefax As Object = Nothing ' NVARCHAR (40) NULL,
|
|
Property Firma_E_Mail As Object = Nothing ' NVARCHAR (40) NULL, -----
|
|
Property Firma_E_Mail_Mahnungen As Object = Nothing
|
|
Property Firma_Webadresse As Object = Nothing ' NVARCHAR (40) NULL,
|
|
Property Firma_LandKz As Object = Nothing ' NVARCHAR (40) NULL,
|
|
Property Firma_Steuernummer As Object = Nothing
|
|
|
|
Property Firmengruppe As Object = Nothing
|
|
|
|
|
|
Dim SQL As New SQL
|
|
|
|
Sub New()
|
|
End Sub
|
|
|
|
Sub New(Firma_ID)
|
|
Me.Firma_ID = Firma_ID
|
|
LOAD()
|
|
End Sub
|
|
|
|
Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
|
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_ID", Firma_ID, , True, True))
|
|
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Bez", Firma_Bez))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_BackColor", Firma_BackColor))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Logo", Firma_Logo))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Firmenbuch", Firma_Firmenbuch))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_UID", Firma_UID))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_EORI", Firma_EORI))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Bankverbindung1", Firma_Bankverbindung1))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_BLZ1", Firma_BLZ1))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_KTO1", Firma_KTO1))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_IBAN1", Firma_IBAN1))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_BIC1", Firma_BIC1))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Bankverbindung2", Firma_Bankverbindung2))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_BLZ2", Firma_BLZ2))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_KTO2", Firma_KTO2))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_IBAN2", Firma_IBAN2))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_BIC2", Firma_BIC2))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SSMA_TimeStamp", SSMA_TimeStamp))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Ort", Firma_Ort))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Straße", Firma_Straße))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Telefon", Firma_Telefon))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Telefax", Firma_Telefax))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_E-Mail", Firma_E_Mail, "Firma_E_Mail"))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_E_Mail_Mahnungen", Firma_E_Mail_Mahnungen, "Firma_E_Mail_Mahnungen"))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Webadresse", Firma_Webadresse))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_LandKz", Firma_LandKz))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firmengruppe", Firmengruppe))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Steuernummer", Firma_Steuernummer))
|
|
|
|
|
|
Return list
|
|
End Function
|
|
|
|
|
|
|
|
Public Sub LOAD()
|
|
Try
|
|
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
|
Using cmd As New SqlCommand("SELECT * FROM tblFirma WHERE Firma_ID=@Firma_ID ", conn)
|
|
cmd.Parameters.AddWithValue("@Firma_ID", Firma_ID)
|
|
Dim dr = cmd.ExecuteReader()
|
|
If dr.Read Then
|
|
For Each li In getParameterList()
|
|
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
|
|
|
If dr.Item(li.Text) Is DBNull.Value Then
|
|
propInfo.SetValue(Me, Nothing)
|
|
Else
|
|
propInfo.SetValue(Me, dr.Item(li.Text))
|
|
End If
|
|
|
|
Next
|
|
|
|
End If
|
|
dr.Close()
|
|
End Using
|
|
End Using
|
|
Catch ex As Exception
|
|
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
|
End Try
|
|
End Sub
|
|
|
|
Public Shared Function LOAD_LIST() As List(Of cFirmen)
|
|
Dim FIRMEN As New List(Of cFirmen)
|
|
Try
|
|
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
|
Using cmd As New SqlCommand("SELECT * FROM tblFirma ", conn)
|
|
Dim dr = cmd.ExecuteReader()
|
|
While dr.Read
|
|
Dim FIMRA As New cFirmen
|
|
For Each li In FIMRA.getParameterList()
|
|
Dim propInfo As PropertyInfo = FIMRA.GetType.GetProperty(li.Scalarvariable)
|
|
|
|
If dr.Item(li.Text) Is DBNull.Value Then
|
|
propInfo.SetValue(FIMRA, Nothing)
|
|
Else
|
|
propInfo.SetValue(FIMRA, dr.Item(li.Text))
|
|
End If
|
|
|
|
Next
|
|
FIRMEN.Add(FIMRA)
|
|
End While
|
|
dr.Close()
|
|
End Using
|
|
End Using
|
|
Catch ex As Exception
|
|
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
|
End Try
|
|
Return FIRMEN
|
|
End Function
|
|
|
|
|
|
End Class
|