edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

new

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-09-07 08:46:12 +02:00
parent f2f992547d
commit 619a8c26bf
126 changed files with 7156 additions and 2215 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
VERAG_PROG_ALLGEMEIN/Classes/Berechtigungen/cBerechtignunen.vb
View File

@@ -71,8 +71,8 @@
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
For Each lber In BER_LIST.LIST
If lber.bero_bezeichnung.ToUpper = ber_bez.ToUpper And lber.bero_progId = prog_Id Then
found = True : Exit For
End If
Next
@@ -81,15 +81,15 @@
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
For Each lber In BER_LIST.LIST
If lber.bero_bezeichnung.ToUpper = ber_bez.ToUpper And lber.bero_progId = prog_Id Then
For Each ll In lber.BER_OBJ_ZUORD 'Liste der BerechtignungGruppen im Berechtigungsonjekt
For Each bb In benutzerBer.LIST
If bb.berbgz_progId = prog_Id Then 'BenutzerProg = Prog
If ll.beroz_berechtigungsstufe >= 100 Then Return ll.beroz_berechtigungsstufe 'Größer als 3 stellen --> immer priorität
If ll.beroz_art = "G" And ll.beroz_bergrId = b.berbgz_bergrId Then 'GruppenBerchtigung
If ll.beroz_art = "G" And ll.beroz_bergrId = bb.berbgz_bergrId Then 'GruppenBerchtigung
'gefunden!
If ll.beroz_berechtigungsstufe < berechtigungsstufe Then berechtigungsstufe = ll.beroz_berechtigungsstufe
ElseIf ll.beroz_art = "N" And ll.Bezeichnung = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG Then

8
VERAG_PROG_ALLGEMEIN/Classes/Berechtigungen/cBerechtigungsObjekteZuordnung.vb
View File

@@ -34,13 +34,13 @@ Public Class cBerechtigungsObjekteZuordnung
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)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next
End If

3
VERAG_PROG_ALLGEMEIN/Classes/SQL.vb
View File

@@ -525,7 +525,7 @@ Public Class SQL
End Function
Public Function getValueTxtBySql(ByVal sql As String, Optional conn_art As String = "SDL", Optional List As List(Of MyListItem2) = Nothing, Optional conn As SqlConnection = Nothing, Optional defaultReturn As Object = "") As String
Public Function getValueTxtBySql(ByVal sql As String, Optional conn_art As String = "SDL", Optional List As List(Of MyListItem2) = Nothing, Optional conn As SqlConnection = Nothing, Optional defaultReturn As Object = "", Optional timeout As Integer = 0) As String
Try
If conn Is Nothing Then
@@ -547,6 +547,7 @@ Public Class SQL
End If
Using cmd As New SqlCommand(sql, conn)
If timeout > 0 Then cmd.CommandTimeout = timeout
If List IsNot Nothing Then
For Each i In List
'MsgBox(i.Text.trim & " " & IIf(i.Value Is Nothing, DBNull.Value, i.Value))

9
VERAG_PROG_ALLGEMEIN/Classes/_BASE.vb
View File

@@ -5,6 +5,7 @@ Imports System.Reflection
Public Class _BASE
Property _BASE_id As Integer
Property _BASE_value As Object = Nothing
Property _BASE_value2 As Object = Nothing
Public hasEntry = False
@@ -45,13 +46,13 @@ Public Class _BASE
cmd.Parameters.AddWithValue("@_BASE_id", _BASE_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

16
VERAG_PROG_ALLGEMEIN/Classes/cAbgaben.vb
View File

@@ -116,13 +116,13 @@ Public Class cAbgaben
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)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
hasEntry = True
Next
@@ -146,13 +146,13 @@ Public Class cAbgaben
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)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
hasEntry = True
Next

8
VERAG_PROG_ALLGEMEIN/Classes/cAbrechnung_NCTSBrg.vb
View File

@@ -84,13 +84,13 @@ Public Class cAbrechnung_NCTSBrg
cmd.Parameters.AddWithValue("@abrg_Id", abrg_Id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

10
VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb
View File

@@ -187,9 +187,9 @@ Public Class cAdressen
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
For Each li In getParameterList()
' Me.GetType.GetProperty(l.Scalarvariable) = dr.Item(l.Text)
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
' MsgBox(l.Text)
' MsgBox(propInfo.PropertyType.ToString)
' propInfo.SetValue(GetType(Object), l.Text)
@@ -197,11 +197,11 @@ Public Class cAdressen
'propInfo.SetValue(Me, l.Text)
' Try
test = l.Text
If dr.Item(l.Text) Is DBNull.Value Then
test = li.Text
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
' Catch ex As Exception

120
VERAG_PROG_ALLGEMEIN/Classes/cAufschubKonten.vb Normal file
View File

@@ -0,0 +1,120 @@

Imports System.Data.SqlClient
Imports System.Reflection
Public Class cAufschubKonten
Property brgakto_id As Integer
Property brgakto_bez As String
Property brgakto_betrag As Decimal
Property brgakto_ktonr As String
Property brgakto_warn1 As Decimal
Property brgakto_warn2 As Decimal
Public hasEntry = False
Dim SQL As New SQL
Sub New(brgakto_id)
Me.brgakto_id = brgakto_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("brgakto_id", brgakto_id,, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("brgakto_bez", brgakto_bez))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("brgakto_betrag", brgakto_betrag))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("brgakto_ktonr", brgakto_ktonr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("brgakto_warn1", brgakto_warn1))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("brgakto_warn2", brgakto_warn2))
Return list
End Function
Public Function SAVE() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblBrgAufschubKonten WHERE brgakto_id=@brgakto_id) " &
" BEGIN " & getUpdateCmd() & " END " &
" Else " &
" BEGIN " & getInsertCmd() & " END " &
" commit tran "
Return SQL.doSQLVarList(sqlstr, "ADMIN", , list)
End Function
Public Sub LOAD()
Try
hasEntry = False
Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
Using cmd As New SqlCommand("SELECT * FROM tblBrgAufschubKonten WHERE brgakto_id=@brgakto_id ", conn)
cmd.Parameters.AddWithValue("@brgakto_id", brgakto_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next
hasEntry = True
End If
dr.Close()
End Using
End Using
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
End Sub
Public Function getUpdateCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
Return (" UPDATE [tblBrgAufschubKonten] SET " & str & " WHERE brgakto_id=@brgakto_id ")
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return ""
End Function
Public Function getInsertCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
Dim values As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "],"
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO tblBrgAufschubKonten (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return ""
End Function
End Class

8
VERAG_PROG_ALLGEMEIN/Classes/cAvisoAnhaenge.vb
View File

@@ -97,13 +97,13 @@ Public Class cAvisoAnhaenge
cmd.Parameters.AddWithValue("@anh_id", anh_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
hasEntry = True
Next

8
VERAG_PROG_ALLGEMEIN/Classes/cAvisoBenachrichtigungen.vb
View File

@@ -154,13 +154,13 @@ Public Class cAvisoBenachrichtigungen
cmd.Parameters.AddWithValue("@ab_id", ab_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

16
VERAG_PROG_ALLGEMEIN/Classes/cBonitaetsauskunft.vb
View File

@@ -88,13 +88,13 @@ Public Class cBonitaetsauskunft
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)
For Each li In BONI.getParameterList()
Dim propInfo As PropertyInfo = BONI.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(BONI, Nothing)
Else
propInfo.SetValue(BONI, dr.Item(l.Text))
propInfo.SetValue(BONI, dr.Item(li.Text))
End If
Next
@@ -117,13 +117,13 @@ Public Class cBonitaetsauskunft
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)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

8
VERAG_PROG_ALLGEMEIN/Classes/cDEBundeslaenderPLZ.vb
View File

@@ -40,13 +40,13 @@ Public Class cDEBundeslaenderPLZ
cmd.Parameters.AddWithValue("@PLZ", PLZ)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In VK.getParameterList()
Dim propInfo As PropertyInfo = VK.GetType.GetProperty(l.Scalarvariable)
For Each li In VK.getParameterList()
Dim propInfo As PropertyInfo = VK.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(VK, Nothing)
Else
propInfo.SetValue(VK, dr.Item(l.Text))
propInfo.SetValue(VK, dr.Item(li.Text))
End If
Next
dr.Close()

16
VERAG_PROG_ALLGEMEIN/Classes/cDHF_Anhaenge.vb
View File

@@ -71,13 +71,13 @@ Public Class cDHF_Anhaenge
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)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
hasEntry = True
Next
@@ -99,13 +99,13 @@ Public Class cDHF_Anhaenge
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)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
hasEntry = True
Next

8
VERAG_PROG_ALLGEMEIN/Classes/cERS.vb
View File

@@ -103,13 +103,13 @@ Public Class cERS
cmd.Parameters.AddWithValue("@ers_id", ers_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

8
VERAG_PROG_ALLGEMEIN/Classes/cEZB_Waehrungskurse.vb
View File

@@ -72,13 +72,13 @@ Public Class cEZB_Waehrungskurse
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)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

8
VERAG_PROG_ALLGEMEIN/Classes/cEZT_ImportCodenummern.vb
View File

@@ -68,13 +68,13 @@ Public Class cEZT_ImportCodenummern
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)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

4
VERAG_PROG_ALLGEMEIN/Classes/cEmailBenachrichtigung.vb
View File

@@ -56,8 +56,8 @@ Public Class cEmailBenachrichtigungList
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
For Each li In LIST
If Not li.INSERT() Then Return False
Next
Return True
Else

8
VERAG_PROG_ALLGEMEIN/Classes/cFirmen.vb
View File

@@ -82,13 +82,13 @@ Public Class cFirmen
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)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

8
VERAG_PROG_ALLGEMEIN/Classes/cFremdSpeditionenZuordnung.vb
View File

@@ -64,13 +64,13 @@ Public Class cFremdSpeditionenZuordnung
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)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
hasEntry = True
Next

8
VERAG_PROG_ALLGEMEIN/Classes/cGelangensbestaetigung.vb
View File

@@ -65,13 +65,13 @@ Public Class cGelangensbestaetigung
cmd.Parameters.AddWithValue("@gb_nr", gb_nr)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

8
VERAG_PROG_ALLGEMEIN/Classes/cGestellungsgarantien.vb
View File

@@ -61,13 +61,13 @@ Public Class cGestellungsgarantien
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)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

16
VERAG_PROG_ALLGEMEIN/Classes/cGestellungsmitteilung.vb
View File

@@ -80,13 +80,13 @@ Public Class cGestellungsmitteilung
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)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next
@@ -107,13 +107,13 @@ Public Class cGestellungsmitteilung
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)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

12
VERAG_PROG_ALLGEMEIN/Classes/cKunde.vb
View File

@@ -213,7 +213,7 @@ Public Class cKunde
Me.Zahlungsziel = 10
Me.Sammelrechnung = 0
Me.Steuerschlüssel = 10
Me.Kreditlimit = 2600
Me.Kreditlimit = 0 '2600
Me.Überwachungskunde = 0
Me.Abfertigungsverbot = 0
Me.Rechtsanwalt = 0
@@ -265,9 +265,9 @@ Public Class cKunde
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
For Each li In getParameterList()
' Me.GetType.GetProperty(l.Scalarvariable) = dr.Item(l.Text)
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
' MsgBox(l.Text)
' MsgBox(propInfo.PropertyType.ToString)
' propInfo.SetValue(GetType(Object), l.Text)
@@ -275,11 +275,11 @@ Public Class cKunde
'propInfo.SetValue(Me, l.Text)
' Try
test = l.Text
If dr.Item(l.Text) Is DBNull.Value Then
test = li.Text
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
' Catch ex As Exception

32
VERAG_PROG_ALLGEMEIN/Classes/cKundenAufschubkonten.vb
View File

@@ -18,16 +18,16 @@ Public Class cKundenAufschubkonten
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
For Each li In LIST
If Not li.SAVEByKdNrArt() Then SAVE_LIST = False
Next
End Function
Public Shared Function DELETE_NOT_EXIST(KundenNr As Integer, LIST As List(Of cKundenAufschubkonten)) As Boolean
Dim SQL As New SQL
Dim ktoNr = ""
For Each a In LIST
ktoNr &= a.kdAkto_art & ","
For Each aa In LIST
ktoNr &= aa.kdAkto_art & ","
Next
If ktoNr.EndsWith(",") Then ktoNr = ktoNr.Substring(0, ktoNr.Length - 1)
@@ -76,13 +76,13 @@ Public Class cKundenAufschubkonten
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)
For Each li In KTO.getParameterList()
Dim propInfo As PropertyInfo = KTO.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(KTO, Nothing)
Else
propInfo.SetValue(KTO, dr.Item(l.Text))
propInfo.SetValue(KTO, dr.Item(li.Text))
End If
Next
@@ -135,13 +135,13 @@ Public Class cKundenAufschubkonten
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)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next
@@ -163,13 +163,13 @@ Public Class cKundenAufschubkonten
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)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

8
VERAG_PROG_ALLGEMEIN/Classes/cKundenBesonderheiten.vb
View File

@@ -64,13 +64,13 @@ Public Class cKundenBesonderheiten
cmd.Parameters.AddWithValue("@kdb_id", kdb_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

8
VERAG_PROG_ALLGEMEIN/Classes/cKundenDatenblatt.vb
View File

@@ -60,13 +60,13 @@ Public Class cKundenDatenblatt
cmd.Parameters.AddWithValue("@kdb_KundenNr", kdb_KundenNr)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

8
VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb
View File

@@ -155,13 +155,13 @@ Public Class cKundenErweitert
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)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

37
VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb
View File

@@ -88,6 +88,8 @@ Public Class cKundenKontakte
Property kkd_kkaBez As Object = Nothing
Property kkd_Tel As Object = Nothing
Property kkd_Email As Object = Nothing
Property kkd_EmailCC As Object = Nothing
Property kkd_EmailBCC As Object = Nothing
Property kkd_Fax As Object = Nothing
Property kkd_Homepage As Object = Nothing
Property kkd_Mobil As Object = Nothing
@@ -115,6 +117,8 @@ Public Class cKundenKontakte
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_kkaBez", kkd_kkaBez))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Tel", kkd_Tel))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Email", kkd_Email))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_EmailCC", kkd_EmailCC))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_EmailBCC", kkd_EmailBCC))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Fax", kkd_Fax))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Homepage", kkd_Homepage))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Mobil", kkd_Mobil))
@@ -137,13 +141,13 @@ Public Class cKundenKontakte
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next
@@ -236,13 +240,32 @@ Public Class cKundenKontakte
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
For Each li In KD_LIST.LIST
If li.kkd_kkaBez = bez Then Return li.kkd_Email
Next
End If
Return ""
End Function
Shared Function getMailAdressCC(KdNr As Integer, bez As String) As String
If KdNr < 0 Then Return ""
Dim KD_LIST = New cKundenKontakteList(KdNr)
If KD_LIST IsNot Nothing Then
For Each li In KD_LIST.LIST
If li.kkd_kkaBez = bez Then Return li.kkd_EmailCC
Next
End If
Return ""
End Function
Shared Function getMailAdressBCC(KdNr As Integer, bez As String) As String
If KdNr < 0 Then Return ""
Dim KD_LIST = New cKundenKontakteList(KdNr)
If KD_LIST IsNot Nothing Then
For Each li In KD_LIST.LIST
If li.kkd_kkaBez = bez Then Return li.kkd_EmailBCC
Next
End If
Return ""
End Function
Shared Function getKdNrFromMailAdress(KMail As String, Optional serchInKd As Boolean = True) As Integer
getKdNrFromMailAdress = -1
If KMail = "" Then Return -1

8
VERAG_PROG_ALLGEMEIN/Classes/cKundenSDL.vb
View File

@@ -76,13 +76,13 @@ Public Class cKundenSDL
cmd.Parameters.AddWithValue("@SDLNr", SDLNr)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

8
VERAG_PROG_ALLGEMEIN/Classes/cKundenVermerk.vb
View File

@@ -215,13 +215,13 @@ Public Class cKundenVermerkItem
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)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

8
VERAG_PROG_ALLGEMEIN/Classes/cKundenVertraege.vb
View File

@@ -62,13 +62,13 @@ Public Class cKundenVertraege
cmd.Parameters.AddWithValue("@kv_Id", kv_Id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

14
VERAG_PROG_ALLGEMEIN/Classes/cLanguageText.vb
View File

@@ -41,9 +41,9 @@ Public Class cLanguageText_LIST
End Sub
Public Function getTxt(tlan_Id, tlan_language, defaultTXT) As String
For Each l In LIST
If l.tlan_Id = tlan_Id And l.tlan_language = tlan_language Then
Return l.tlan_TEXT
For Each li In LIST
If li.tlan_Id = tlan_Id And li.tlan_language = tlan_language Then
Return li.tlan_TEXT
End If
Next
Return defaultTXT
@@ -107,13 +107,13 @@ Public Class cLanguageText
cmd.Parameters.AddWithValue("@tlan_language", tlan_language)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

8
VERAG_PROG_ALLGEMEIN/Classes/cLeistungen.vb
View File

@@ -96,13 +96,13 @@ Public Class cLeistungen
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)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

8
VERAG_PROG_ALLGEMEIN/Classes/cLeistungenBUKonten.vb
View File

@@ -62,13 +62,13 @@ Public Class cLeistungenBUKonten
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)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

40
VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb
View File

@@ -115,13 +115,13 @@ Public Class cMessenger
cmd.Parameters.AddWithValue("@chat_id", chat_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next
@@ -319,13 +319,13 @@ Public Class cMessenger
cmd.Parameters.AddWithValue("@chatMb_maId", chatMb_maId)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next
@@ -438,13 +438,13 @@ Public Class cMessenger
cmd.Parameters.AddWithValue("@chatMgSt_MaId", chatMgSt_MaId)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next
@@ -595,13 +595,13 @@ Public Class cMessenger
cmd.Parameters.AddWithValue("@chatMg_id", chatMg_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next
@@ -760,13 +760,13 @@ Public Class cMessenger
cmd.Parameters.AddWithValue("@chatMgSt_MaId", chatMgSt_MaId)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

8
VERAG_PROG_ALLGEMEIN/Classes/cNCTSGestellungsadressen.vb
View File

@@ -79,13 +79,13 @@ Public Class cNCTSGestellungsadressen
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)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

48
VERAG_PROG_ALLGEMEIN/Classes/cNCTS_TR.vb
View File

@@ -406,13 +406,13 @@ Public Class cNCTS_TR
cmd.Parameters.AddWithValue("@ncts_Id", ncts_Id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next
@@ -445,13 +445,13 @@ Public Class cNCTS_TR
cmd.Parameters.AddWithValue("@ncts_dyaAnmID", ncts_dyaAnmID)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In NCTS.getParameterList()
Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(l.Scalarvariable)
For Each li In NCTS.getParameterList()
Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(NCTS, Nothing)
Else
propInfo.SetValue(NCTS, dr.Item(l.Text))
propInfo.SetValue(NCTS, dr.Item(li.Text))
End If
Next
@@ -505,13 +505,13 @@ Public Class cNCTS_TR
cmd.Parameters.AddWithValue("@ncts_dyaAnmID", ncts_dyaAnmID)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next
@@ -557,13 +557,13 @@ Public Class cNCTS_TR
cmd.Parameters.AddWithValue("@MRN", MRN)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In NCTS.getParameterList()
Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(l.Scalarvariable)
For Each li In NCTS.getParameterList()
Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(NCTS, Nothing)
Else
propInfo.SetValue(NCTS, dr.Item(l.Text))
propInfo.SetValue(NCTS, dr.Item(li.Text))
End If
Next
@@ -597,13 +597,13 @@ Public Class cNCTS_TR
cmd.Parameters.AddWithValue("@bezugsNr", bezugsNr)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In NCTS.getParameterList()
Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(l.Scalarvariable)
For Each li In NCTS.getParameterList()
Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(NCTS, Nothing)
Else
propInfo.SetValue(NCTS, dr.Item(l.Text))
propInfo.SetValue(NCTS, dr.Item(li.Text))
End If
Next
@@ -637,13 +637,13 @@ Public Class cNCTS_TR
cmd.Parameters.AddWithValue("@GUID", GUID)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In NCTS.getParameterList()
Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(l.Scalarvariable)
For Each li In NCTS.getParameterList()
Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(NCTS, Nothing)
Else
propInfo.SetValue(NCTS, dr.Item(l.Text))
propInfo.SetValue(NCTS, dr.Item(li.Text))
End If
Next

8
VERAG_PROG_ALLGEMEIN/Classes/cOffene_Posten_DVO.vb
View File

@@ -99,13 +99,13 @@ Public Class cOffene_Posten_DVO
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)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

16
VERAG_PROG_ALLGEMEIN/Classes/cPostversand.vb
View File

@@ -88,13 +88,13 @@ Public Class cPostversand
cmd.Parameters.AddWithValue("@post_Rolle", post_Rolle)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In VK.getParameterList()
Dim propInfo As PropertyInfo = VK.GetType.GetProperty(l.Scalarvariable)
For Each li In VK.getParameterList()
Dim propInfo As PropertyInfo = VK.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(VK, Nothing)
Else
propInfo.SetValue(VK, dr.Item(l.Text))
propInfo.SetValue(VK, dr.Item(li.Text))
End If
Next
dr.Close()
@@ -132,13 +132,13 @@ Public Class cPostversand
cmd.Parameters.AddWithValue("@post_id", post_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

16
VERAG_PROG_ALLGEMEIN/Classes/cProgrammeUpdate.vb
View File

@@ -47,13 +47,13 @@ Public Class cProgrammeUpdate
Dim dr = cmd.ExecuteReader()
While dr.Read
Dim UD As New cProgrammeUpdate
For Each l In cProgrammeUpdate.getParameterList(UD)
Dim propInfo As PropertyInfo = UD.GetType.GetProperty(l.Scalarvariable)
For Each li In cProgrammeUpdate.getParameterList(UD)
Dim propInfo As PropertyInfo = UD.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(UD, Nothing)
Else
propInfo.SetValue(UD, dr.Item(l.Text))
propInfo.SetValue(UD, dr.Item(li.Text))
End If
Next
@@ -123,8 +123,8 @@ Public Class cProgrammeUpdate
Public Shared Function isNewFile(ByRef file As VERAG_PROG_ALLGEMEIN.cProgrammeUpdate, LIST_DEST As List(Of VERAG_PROG_ALLGEMEIN.cProgrammeUpdate)) As Boolean
For Each l In LIST_DEST
If l.pud_filePathFolder = file.pud_filePathFolder And l.pud_fileName = file.pud_fileName And l.pud_file_Size = file.pud_file_Size And l.pud_file_Date = file.pud_file_Date Then
For Each li In LIST_DEST
If li.pud_filePathFolder = file.pud_filePathFolder And li.pud_fileName = file.pud_fileName And li.pud_file_Size = file.pud_file_Size And li.pud_file_Date = file.pud_file_Date Then
Return False
End If
Next
@@ -132,8 +132,8 @@ Public Class cProgrammeUpdate
End Function
Public Shared Function isOldFile(ByRef file As VERAG_PROG_ALLGEMEIN.cProgrammeUpdate, LIST_SOURCE As List(Of VERAG_PROG_ALLGEMEIN.cProgrammeUpdate)) As Boolean
For Each l In LIST_SOURCE
If l.pud_filePathFolder = file.pud_filePathFolder And l.pud_fileName = file.pud_fileName And l.pud_file_Size = file.pud_file_Size And l.pud_file_Date = file.pud_file_Date Then
For Each li In LIST_SOURCE
If li.pud_filePathFolder = file.pud_filePathFolder And li.pud_fileName = file.pud_fileName And li.pud_file_Size = file.pud_file_Size And li.pud_file_Date = file.pud_file_Date Then
Return False
End If
Next

16
VERAG_PROG_ALLGEMEIN/Classes/cQSTeam.vb
View File

@@ -93,13 +93,13 @@ Public Class cQSTeam
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next
@@ -179,13 +179,13 @@ Public Class cQSTeamMA
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

153
VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb
View File

@@ -1,6 +1,11 @@
Imports System.Data.SqlClient
Imports System.Reflection
Public Class cRechnungsausgangLIST
End Class
Public Class cRechnungsausgang
Property RK_ID As Integer
@@ -138,6 +143,90 @@ Public Class cRechnungsausgang
End Function
Public Shared Function GET_LIST_WEB(KundenNr As Integer, von As Date, bis As Date, Optional RechnungsNr As Integer = -1, Optional Absender As String = "", Optional Empfänger As String = "", Optional LKW_Kennzeichen As String = "", Optional KdAuftragsNr As String = "") As List(Of cRechnungsausgang)
Dim LIST As New List(Of cRechnungsausgang)
Try
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Dim sqlWHERE = ""
If RechnungsNr > 0 Then sqlWHERE &= " AND RechnungsNr LIKE @RechnungsNr"
If Absender <> "" Then sqlWHERE &= " AND Absender LIKE @Absender"
If Empfänger <> "" Then sqlWHERE &= " AND Empfänger LIKE @Empfänger"
If LKW_Kennzeichen <> "" Then sqlWHERE &= " AND [LKW Kennzeichen] LIKE @LKW_Kennzeichen"
If KdAuftragsNr <> "" Then sqlWHERE &= " AND KdAuftragsNr LIKE @KdAuftragsNr"
Using cmd As New SqlCommand("SELECT * FROM [Rechnungsausgang] WHERE RechnungsKundenNr=@RechnungsKundenNr and RechnungsDatum BETWEEN @RechnungsDatumVON and @RechnungsDatumBIS ORDER BY RechnungsNr ", conn)
cmd.Parameters.AddWithValue("@RechnungsKundenNr", KundenNr)
cmd.Parameters.AddWithValue("@RechnungsDatumVON", von)
cmd.Parameters.AddWithValue("@RechnungsDatumBIS", bis)
cmd.Parameters.AddWithValue("@Absender", Absender & "%")
cmd.Parameters.AddWithValue("@Empfänger", Empfänger & "%")
cmd.Parameters.AddWithValue("@LKW_Kennzeichen", "%" & LKW_Kennzeichen & "%")
cmd.Parameters.AddWithValue("@KdAuftragsNr", "%" & KdAuftragsNr & "%")
Dim dr = cmd.ExecuteReader()
While dr.Read
Dim RG As New cRechnungsausgang
For Each li In RG.getParameterList()
Dim propInfo As PropertyInfo = RG.GetType.GetProperty(li.Scalarvariable)
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(RG, Nothing)
Else
propInfo.SetValue(RG, dr.Item(li.Text))
End If
Next
RG.doVorzeichen()
LIST.Add(RG)
' If loadPos Then LOAD_POSITIONEN()
End While
dr.Close()
End Using
End Using
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return LIST
End Function
Public Shared Function GET_LIST_WEB_SR(RK_ID As Integer) As List(Of cRechnungsausgang)
Dim LIST As New List(Of cRechnungsausgang)
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()
While dr.Read
Dim RG As New cRechnungsausgang
For Each li In RG.getParameterList()
Dim propInfo As PropertyInfo = RG.GetType.GetProperty(li.Scalarvariable)
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(RG, Nothing)
Else
propInfo.SetValue(RG, dr.Item(li.Text))
End If
Next
RG.doVorzeichen()
LIST.Add(RG)
' If loadPos Then LOAD_POSITIONEN()
End While
dr.Close()
End Using
End Using
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return LIST
End Function
Public 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))
@@ -257,13 +346,13 @@ Public Class cRechnungsausgang
cmd.Parameters.AddWithValue("@AbfertigungsNr", AbfertigungsNr)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next
@@ -287,13 +376,13 @@ Public Class cRechnungsausgang
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)
For Each li In VK.getParameterList()
Dim propInfo As PropertyInfo = VK.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(VK, Nothing)
Else
propInfo.SetValue(VK, dr.Item(l.Text))
propInfo.SetValue(VK, dr.Item(li.Text))
End If
Next
dr.Close()
@@ -355,10 +444,30 @@ Public Class cRechnungsausgang
If Firma_ID <= 0 Then errMsg = "ERROR: Firma auswählen!" : Return False
If Rechnung_an = 0 OrElse CStr(Rechnung_an) = "" Then errMsg = "ERROR: Rechnungsempfänger auswählen!" : Return False
If SpeditionsbuchUnterNr Is Nothing Then errMsg = "ERROR: Speditionsbuch-UnterNr auswählen!" : Return False
If RechnungsKundenNr <= 0 Then errMsg = "ERROR: Kunden-Nummer fehlt!" : Return False
' If Steuerschlüssel Then errMsg = "ERROR: Steuerschlüssel muss angegeben werden!" : Return False
Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(Firma_ID)
If FIRMA.Firma_ID = 26 Then
If RechnungsLandKz <> "GB" And RechnungsLandKz <> "UK" Then
errMsg = "ERROR: Es darf nur nach GB abgerechnet werden!" : Return False
End If
If Währungscode <> "GBP" Then
errMsg = "ERROR: Es darf nur mit Währung 'GBP' abgerechnet werden!" : Return False
End If
End If
If RechnungsLandKz = FIRMA.Firma_LandKz Then
If Steuersatz_Proz = 0 Then
If vbYes <> MsgBox("Es wurde kein Steuerschlüssel angegeben." & vbNewLine & vbNewLine & "Sind siw wicher, dass Sie ohne Steuerschlüssel fortfahren möchten.", vbYesNoCancel) Then
errMsg = "ERROR: Steuerschlüssel angegeben!"
Return False
End If
End If
End If
Return True
End Function
End Function
Public Function SAVE_POSITIONEN(RK_ID) As Boolean
If DELETE_POSITIONEN() Then ' zuerst Einträge löschen...
@@ -379,13 +488,13 @@ Public Class cRechnungsausgang
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)
For Each i In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(i.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(i.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(i.Text))
End If
Next
@@ -446,26 +555,8 @@ Public Class cRechnungsausgang
Return SQL.doSQL(sqlstr, "FMZOLL")
End Function
Public Function isReverseChargeSumme() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
'Wenn selbes Land --> Kein Reversecharge
Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(Firma_ID)
' MsgBox(RechnungsLandKz & " - " & FIRMA.Firma_LandKz)
If RechnungsLandKz = FIRMA.Firma_LandKz Then
Return False
End If
Dim sqlstr = " SELECT SUM(POS.SteuerfreierBetrag) AS ReverseChargeSumme "
sqlstr &= " FROM Rechnungsausgang as RA INNER JOIN RechnungsausgangPositionen as POS ON RA.RK_ID = POS.RK_ID INNER JOIN Leistungen ON POS.LeistungsNr = Leistungen.LeistungsNr INNER JOIN [Länderverzeichnis für die Außenhandelsstatistik] AS LD ON RA.RechnungsUstIdKz = LD.LandKz"
sqlstr &= " WHERE RA.rk_id='" & Me.RK_ID & "' AND LD.ReverseCharge = 1 AND Leistungen.ReverseCharge = 1"
If Not CBool(SQL.DLookup("isnull([MitgliedslandEU],0)", "Währungstabelle", "LandKz='" & If(RechnungsLandKz, "") & "'", "FMZOLL", 0)) Then
Return False
End If
Return If(SQL.getValueTxtBySql(sqlstr, "FMZOLL",,, 0) = 0, False, True)
End Function
Public Function setSPEDBUCH_FAKTURIERT(Optional wert As Boolean = True) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim sqlstr = " UPDATE Speditionsbuch SET Fakturiert='" & If(wert, 1, 0) & "' WHERE FilialenNr = '" & Me.FilialenNr & "' AND AbfertigungsNr = '" & Me.[AbfertigungsNr] & "' AND UnterNr = '" & Me.[SpeditionsbuchUnterNr] & "'"
Return SQL.doSQL(sqlstr, "FMZOLL")

8
VERAG_PROG_ALLGEMEIN/Classes/cSDL.vb
View File

@@ -182,13 +182,13 @@ Public Class cSDL
cmd.Parameters.AddWithValue("@History", History)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

8
VERAG_PROG_ALLGEMEIN/Classes/cSDL_LKW.vb
View File

@@ -73,13 +73,13 @@ Public Class cSDL_LKW
cmd.Parameters.AddWithValue("@KfzKennzeichen", KfzKennzeichen)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

92
VERAG_PROG_ALLGEMEIN/Classes/cSMS.vb
View File

@@ -105,13 +105,13 @@ Public Class cSMS
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)
For Each i In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(i.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(i.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(i.Text))
End If
Next
@@ -185,9 +185,9 @@ Public Class cSMS
Me.sms_BatchId = result.BatchId
If result.MessageIds IsNot Nothing Then
For Each m In result.MessageIds
Uris &= m.Uri & ";;"
msgIDs &= m.Id.ToString & ";;"
For Each msg In result.MessageIds
Uris &= msg.Uri & ";;"
msgIDs &= msg.Id.ToString & ";;"
Next
End If
Catch ex As Exception
@@ -213,30 +213,100 @@ Public Class cSMS
End Try
End Function
Function checkSMSStatus() As String
Function checkSMSStatus(Optional silent = False) As String
Try
If Me.sms_Status >= 3 Then Return Me.sms_Status ' Bereits finaler Status, keine Abfrage nötig
If If(Me.sms_MessageIds, "") = "" Then MsgBox("Keine MessageId gefunden!") : Return False ' Keine MsgId
If If(Me.sms_MessageIds, "") = "" Then
If Not silent Then MsgBox("Keine MessageId gefunden!")
Return False ' Keine MsgId
End If
Dim sendService As New SentService(ESENDEX_USER, ESENDEX_PWD)
'Send a message and retrieve the message ID
Dim MSG = sendService.GetMessage(New Guid(Me.sms_MessageIds.ToString))
Dim messageStatus = MSG.Status
MsgBox(MSG.Status)
' MsgBox(MSG.Status)
'Status in DB Ubdaten
Me.sms_Status = messageStatus
Me.sms_Sent = MSG.SentAt
Me.sms_Delivered = MSG.DeliveredAt
If IsDate(MSG.DeliveredAt) Then
Me.sms_Status = 3 ': MsgBox("SENT")
Else
'MsgBox("NOT SENT")
End If
If MSG.FailureReason IsNot Nothing Then Me.sms_Failure = MSG.FailureReason.Description
Me.SAVE()
Return messageStatus
Catch ex As Exception
MsgBox("Fehler beim Prüfen des SMS Status!" & vbNewLine & ex.Message & ex.StackTrace)
If Not silent Then MsgBox("Fehler beim Prüfen des SMS Status!" & vbNewLine & ex.Message & ex.StackTrace)
End Try
Return ""
End Function
Shared Function SEND_StatusSMS(AVISOId As Integer) As Boolean
Dim AVISO = cAviso.getAvisoById(AVISOId, "")
Return SEND_StatusSMS(AVISO)
End Function
Shared Function SEND_StatusSMS(AVISO As cAviso) As Boolean
If If(AVISO.FahrerHandy, "") <> "" AndAlso IsNumeric(AVISO.FahrerHandy.trim) Then
Dim absenderAccount = ""
Dim absenderFirma = ""
VERAG_PROG_ALLGEMEIN.cSMS.GET_AccountInfo(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, absenderAccount, absenderFirma)
' If vbYes = MsgBox("Soll die Nachricht gesendet werden?" & vbNewLine & "Handy-Nummer: " & nr, MsgBoxStyle.YesNo) Then
Dim SMS = New VERAG_PROG_ALLGEMEIN.cSMS
SMS.sms_Vorwahl = ""
SMS.sms_Handynummer = "00436644178557" 'AVISO.FahrerHandy.trim 'txtHandyNummer.Text.Replace(" ", "").Replace("-", "").Replace("/", "")
SMS.sms_Nachricht = "Statusmeldung: " & vbNewLine &
"https://login.verag.ag/status.aspx?AvisoId=" & VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(AVISO.AvisoID)
SMS.sms_Account = absenderAccount
SMS.sms_Firma = absenderFirma
SMS.sms_KundenNr = If(AVISO.Frächter_KdNr > 0, AVISO.Frächter_KdNr, Nothing)
SMS.sms_Kunde = If(AVISO.Frächter <> "", AVISO.Frächter, Nothing)
SMS.sms_Fahrername = Nothing 'If(AVISO.fahrern <> "", FahrerName, Nothing)
SMS.sms_AvisoId = AVISO.AvisoID
If SMS.sendSMS Then
Return True
End If
End If
Return False
End Function
Shared Sub GET_AccountInfo(Firma, ByRef absenderAccount, ByRef absenderFirma)
Select Case Firma'cboFirma._value
Case "VERAG" ', "BEIDE"
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung
Case "ZOLL", "QS" : absenderAccount = "EX0252513" : absenderFirma = "VERAG Spedition"
Case "MDM" : absenderAccount = "EX0252747" : absenderFirma = "VERAG 360"
Case Else : absenderAccount = "EX0252513" : absenderFirma = "VERAG Spedition"
'Case Else : MsgBox("Fehler bei der Datenprüfung: Abteilung.") : Exit Sub
End Select
Case "ATILLA" : absenderAccount = "EX0252746" : absenderFirma = "ATILLA Spedition"
Case "IMEX" : absenderAccount = "EX0272082" : absenderFirma = "IMEX Spedition"
Case "UNISPED" : absenderAccount = "EX0300174" : absenderFirma = "UNISPED Spedition"
Case "FRONTOFFICE" : absenderAccount = "EX0300173" : absenderFirma = "FRONT-OFFICE SUBEN"
Case "AMBAR" : absenderAccount = "EX0315223" : absenderFirma = "AMBAR"
Case Else : MsgBox("Fehler bei der Datenprüfung: Firmendaten.") : Exit Sub
End Select
End Sub
End Class

8
VERAG_PROG_ALLGEMEIN/Classes/cSendVorkosten.vb
View File

@@ -56,13 +56,13 @@ Public Class cSendVorkosten
cmd.Parameters.AddWithValue("@sndvk_id", sndvk_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

26
VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb
View File

@@ -147,22 +147,22 @@ Public Class cSendungen
For Each s In SENDUNG_LIST
If If(s.tblSnd_Vorpapier, "") <> "" Then
Dim found = False
For Each l In list
If l = s.tblSnd_Vorpapier Then found = True
For Each li In list
If li = s.tblSnd_Vorpapier Then found = True
Next
If found = False Then list.Add(s.tblSnd_Vorpapier)
End If
If If(s.tblSnd_Vorpapier2, "") <> "" Then
Dim found = False
For Each l In list
If l = s.tblSnd_Vorpapier2 Then found = True
For Each li In list
If li = s.tblSnd_Vorpapier2 Then found = True
Next
If found = False Then list.Add(s.tblSnd_Vorpapier2)
End If
If If(s.tblSnd_Vorpapier3, "") <> "" Then
Dim found = False
For Each l In list
If l = s.tblSnd_Vorpapier3 Then found = True
For Each li In list
If li = s.tblSnd_Vorpapier3 Then found = True
Next
If found = False Then list.Add(s.tblSnd_Vorpapier3)
End If
@@ -642,8 +642,8 @@ Public Class cSendungen
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
For Each aa In ABRECHNUNG
If Not aa.INSERT() Then SAVE_Abrechnung = False
Next
End If
@@ -658,8 +658,8 @@ Public Class cSendungen
' MsgBox(sqlstr)
If SQL.doSQL(sqlstr, "AVISO") Then
SAVE_HANDLING = True
For Each a In HANDLING
If Not a.INSERT() Then SAVE_HANDLING = False
For Each aa In HANDLING
If Not aa.INSERT() Then SAVE_HANDLING = False
Next
End If
@@ -674,9 +674,9 @@ Public Class cSendungen
' MsgBox(sqlstr)
If SQL.doSQL(sqlstr, "AVISO") Then
SAVE_VORKOSTEN = True
For Each a In VORKOSTEN
a.sndvk_sendId = Me.tblSnd_SendungID
If Not a.INSERT() Then SAVE_VORKOSTEN = False
For Each aa In VORKOSTEN
aa.sndvk_sendId = Me.tblSnd_SendungID
If Not aa.INSERT() Then SAVE_VORKOSTEN = False
Next
End If

8
VERAG_PROG_ALLGEMEIN/Classes/cSession.vb
View File

@@ -75,13 +75,13 @@ Public Class cSession
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)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

20
VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb
View File

@@ -379,13 +379,13 @@ Public Class cSpeditionsbuch
cmd.Parameters.AddWithValue("@bezugsNr", bezugsNr)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In SPEDBUCH.getParameterList()
Dim propInfo As PropertyInfo = SPEDBUCH.GetType.GetProperty(l.Scalarvariable)
For Each li In SPEDBUCH.getParameterList()
Dim propInfo As PropertyInfo = SPEDBUCH.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(SPEDBUCH, Nothing)
Else
propInfo.SetValue(SPEDBUCH, dr.Item(l.Text))
propInfo.SetValue(SPEDBUCH, dr.Item(li.Text))
End If
Next
@@ -655,8 +655,8 @@ Public Class cSpeditionsbuch
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
For Each aa In UNTERPOS
If Not aa.INSERT() Then SAVE_UNTERPOS = False
Next
End If
@@ -668,8 +668,8 @@ Public Class cSpeditionsbuch
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
For Each aa In VORKOSTEN
If Not aa.INSERT() Then SAVE_VORKOSTEN = False
Next
End If
@@ -681,8 +681,8 @@ Public Class cSpeditionsbuch
Dim sqlstr = " DELETE FROM tblSpeditionsbuchEndEmpfaenger WHERE FilialenNr=" & Me.FilialenNr & " AND AbfertigungsNr=" & Me.AbfertigungsNr & " AND UnterNr=" & Me.UnterNr & " "
If SQL.doSQL(sqlstr, "FMZOLL") Then
SAVE_ENDEMPFAENGER = True
For Each a In ENDEMPFAENGER
If Not a.INSERT() Then SAVE_ENDEMPFAENGER = False
For Each aa In ENDEMPFAENGER
If Not aa.INSERT() Then SAVE_ENDEMPFAENGER = False
Next
End If

16
VERAG_PROG_ALLGEMEIN/Classes/cTextkonserve.vb
View File

@@ -74,13 +74,13 @@ Public Class cTextkonserve
cmd.Parameters.AddWithValue("@txt_Id", txt_Id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
hasEntry = True
Next
@@ -105,13 +105,13 @@ Public Class cTextkonserve
cmd.Parameters.AddWithValue("@txt_FIRMA", txt_FIRMA)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
hasEntry = True
Next

8
VERAG_PROG_ALLGEMEIN/Classes/cTranslate.vb
View File

@@ -95,13 +95,13 @@ Public Class cTranslate
cmd.Parameters.AddWithValue("@trs_id", trs_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

8
VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb
View File

@@ -115,13 +115,13 @@ Public Class cTrdInvoice
Dim dr = cmd.ExecuteReader()
If dr.Read Then
hasEntry = True
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

16
VERAG_PROG_ALLGEMEIN/Classes/cUIDAbfrage.vb
View File

@@ -97,13 +97,13 @@ Public Class cUIDAbfrage
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)
For Each li In UID.getParameterList()
Dim propInfo As PropertyInfo = UID.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(UID, Nothing)
Else
propInfo.SetValue(UID, dr.Item(l.Text))
propInfo.SetValue(UID, dr.Item(li.Text))
End If
Next
@@ -126,13 +126,13 @@ Public Class cUIDAbfrage
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)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

16
VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb
View File

@@ -93,13 +93,13 @@ Public Class cUIDPruefung
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)
For Each li In UID.getParameterList()
Dim propInfo As PropertyInfo = UID.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(UID, Nothing)
Else
propInfo.SetValue(UID, dr.Item(l.Text))
propInfo.SetValue(UID, dr.Item(li.Text))
End If
Next
@@ -276,13 +276,13 @@ Public Class cUIDPruefung
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)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

16
VERAG_PROG_ALLGEMEIN/Classes/cVorauskasse.vb
View File

@@ -159,13 +159,13 @@ Public Class cVorauskasse
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)
For Each li In VK.getParameterList()
Dim propInfo As PropertyInfo = VK.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(VK, Nothing)
Else
propInfo.SetValue(VK, dr.Item(l.Text))
propInfo.SetValue(VK, dr.Item(li.Text))
End If
Next
dr.Close()
@@ -232,13 +232,13 @@ Public Class cVorauskasse
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)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

8
VERAG_PROG_ALLGEMEIN/Classes/cWarenbezeichnungBegriffe.vb
View File

@@ -60,13 +60,13 @@ Public Class cWarenbezeichnungBegriffe
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)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
hasEntry = True
Next

8
VERAG_PROG_ALLGEMEIN/Classes/cZkteing.vb
View File

@@ -109,13 +109,13 @@ Public Class cZkteing
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)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next

8
VERAG_PROG_ALLGEMEIN/Classes/cZollArtikel.vb
View File

@@ -98,13 +98,13 @@ Public Class cZollArtikel
cmd.Parameters.AddWithValue("@zollArt_id", zollArt_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
propInfo.SetValue(Me, dr.Item(li.Text))
End If
hasEntry = True
Next