neu
This commit is contained in:
@@ -30,7 +30,13 @@ Public Class SQL
|
||||
'Properties.Settings.Default.
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
|
||||
Return My.MySettings.Default.FMZOLLConnectionString
|
||||
Try
|
||||
Return My.MySettings.Default.FMZOLLConnectionString
|
||||
Catch ex As Exception
|
||||
Return "Data Source=DEVELOPER\DEVSQL;Initial Catalog=VERAG;Integrated Security=false;User ID=sa;Password=BmWr501956;"
|
||||
End Try
|
||||
|
||||
|
||||
Else
|
||||
Try
|
||||
Return My.MySettings.Default.FMZOLL_PRODConnectionString
|
||||
@@ -474,8 +480,8 @@ Public Class SQL
|
||||
Return defaultReturn
|
||||
End Function
|
||||
|
||||
Public Function getValueTxtBySqlVarList(ByVal sql As String, Optional conn_art As String = "SDL", Optional List As List(Of SQLVariable) = Nothing) As String
|
||||
Dim s As String = ""
|
||||
Public Function getValueTxtBySqlVarList(ByVal sql As String, Optional conn_art As String = "SDL", Optional List As List(Of SQLVariable) = Nothing, Optional defaultReturn As Object = "") As String
|
||||
Dim s As String = defaultReturn
|
||||
Try
|
||||
'MsgBox("1")
|
||||
Dim conn As New SqlConnection
|
||||
@@ -515,7 +521,7 @@ Public Class SQL
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
'MsgBox("3")
|
||||
Return ""
|
||||
Return defaultReturn
|
||||
|
||||
End Function
|
||||
Public Function doSQL(ByVal sql As String, Optional conn_art As String = "SDL", Optional showErr As Boolean = True, Optional list As List(Of MyListItem2) = Nothing, Optional conn As SqlConnection = Nothing) As Boolean
|
||||
|
||||
309
VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb
Normal file
309
VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb
Normal file
@@ -0,0 +1,309 @@
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cUSTVAntrag
|
||||
|
||||
Property UStVAn_ID As Integer
|
||||
Property UStVAn_KuNr As Object = Nothing ' INT Not NULL,
|
||||
Property UStVAn_Name As Object = Nothing ' NVARCHAR(80) NULL,
|
||||
Property UStVAn_Straße As Object = Nothing ' NVARCHAR(40) NULL,
|
||||
Property UStVAn_LandKz As Object = Nothing ' NVARCHAR(3) NULL,
|
||||
Property UStVAn_PLZ As Object = Nothing ' NVARCHAR(7) NULL,
|
||||
Property UStVAn_Ort As Object = Nothing ' NVARCHAR(40) NULL,
|
||||
Property UStVAn_Land As Object = Nothing ' NVARCHAR(22) NULL,
|
||||
Property UStVAn_Gewerbe As Object = Nothing ' NVARCHAR(50) NULL,
|
||||
Property UStVAn_Steuernummer As Object = Nothing ' NVARCHAR(20) NULL,
|
||||
Property UStVAn_ReDatVon As Object = Nothing ' DATETIME Not NULL,
|
||||
Property UStVAn_ReDatBis As Object = Nothing ' DATETIME Not NULL,
|
||||
Property UStVAn_Bankverbindung As Object = Nothing ' NVARCHAR(50) NULL,
|
||||
Property UStVAn_BLZ As Object = Nothing ' NVARCHAR(8) NULL,
|
||||
Property UStVAn_KTO As Object = Nothing ' NVARCHAR(12) NULL,
|
||||
Property UStVAn_Kontoinhaber As Object = Nothing ' NVARCHAR(50) NULL,
|
||||
Property UStVAn_BIC As Object = Nothing ' NVARCHAR(11) NULL,
|
||||
Property UStVAn_IBAN As Object = Nothing ' NVARCHAR(27) NULL,
|
||||
Property UStVAn_Anlagen As Object = Nothing ' SMALLINT NULL,
|
||||
Property UStVAn_Rechnungen As Object = Nothing ' SMALLINT NULL,
|
||||
Property UStVAn_Einfuhrdokumente As Object = Nothing ' SMALLINT NULL,
|
||||
Property UStVAn_Erklärung_9_a As Object = Nothing ' NVARCHAR(50) NULL,
|
||||
Property UStVAn_Erklärung_9_b_1 As Object = Nothing ' BIT Default ((0)) Not NULL,
|
||||
Property UStVAn_Erklärung_9_b_2 As Object = Nothing ' BIT Default ((0)) Not NULL,
|
||||
Property UStVAn_Erklärung_9_b_3 As Object = Nothing ' BIT Default ((0)) Not NULL,
|
||||
Property UStVAn_Ausstellungsort As Object = Nothing ' NVARCHAR(20) NULL,
|
||||
Property UStVAn_Ausstellungsdatum As Object = Nothing ' DATETIME NULL,
|
||||
Property UStVAn_Unterschrift As Object = Nothing ' NVARCHAR(20) NULL,
|
||||
Property UStVAn_LandNr As Object = Nothing ' SMALLINT Default ((38)) Not NULL,
|
||||
Property UStVAn_Beleganzahl As Object = Nothing ' SMALLINT NULL,
|
||||
Property UStVAn_BeleganzahlRetourniert As Object = Nothing ' SMALLINT NULL,
|
||||
Property UStVAn_Retournierungsgrund As Object = Nothing ' NVARCHAR(255) NULL,
|
||||
Property UStVAn_AntragEingereichtAm As Object = Nothing ' DATETIME NULL,
|
||||
Property UStVAn_BelegeWeitergeleitetAm As Object = Nothing ' DATETIME NULL,
|
||||
Property UStVAn_Vertreter As Object = Nothing ' INT NULL,
|
||||
Property UStVAn_BezugsNr As Object = Nothing ' NVARCHAR(35) NULL,
|
||||
Property UStVAn_3470 As Object = Nothing ' MONEY NULL,
|
||||
Property UStVAn_VZBetrag As Object = Nothing ' MONEY NULL,
|
||||
Property UStVAn_VZDatum As Object = Nothing ' DATETIME NULL,
|
||||
Property UStVAn_RZBetragVZ As Object = Nothing ' MONEY NULL,
|
||||
Property UStVAn_RZDatumVZ As Object = Nothing ' DATETIME NULL,
|
||||
Property FilialenNr As Object = Nothing ' SMALLINT NULL,
|
||||
Property AbfertigungsNr As Object = Nothing ' INT NULL,
|
||||
Property UStVAn_Währungscode As Object = Nothing ' NVARCHAR(3) NULL,
|
||||
Property UStVAn_USteuerbetrag As Object = Nothing ' MONEY Default ((0)) NULL,
|
||||
Property UStVAn_Erstattungsbetrag As Object = Nothing ' MONEY Default ((0)) NULL,
|
||||
Property UStVAn_USteuerbetragEUR As Object = Nothing ' MONEY Default ((0)) NULL,
|
||||
Property UStVAn_ErstattungsbetragEUR As Object = Nothing ' MONEY Default ((0)) NULL,
|
||||
Property UStVAn_Sachbearbeiter As Object = Nothing ' NVARCHAR(15) NULL,
|
||||
Property UStVAn_Zeitstempel As Object = Nothing ' DATETIME Default (getdate()) NULL,
|
||||
|
||||
Property POSITIONEN As New List(Of cUStVPositionen) '= Nothing
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
Sub New(UStVAn_ID)
|
||||
Me.UStVAn_ID = UStVAn_ID
|
||||
LOAD(UStVAn_ID)
|
||||
End Sub
|
||||
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_ID", UStVAn_ID,, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_KuNr", UStVAn_KuNr)) ' INT Not NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Name", UStVAn_Name)) ' NVARCHAR(80) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Straße", UStVAn_Straße)) ' NVARCHAR(40) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_LandKz", UStVAn_LandKz)) ' NVARCHAR(3) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_PLZ", UStVAn_PLZ)) ' NVARCHAR(7) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Ort", UStVAn_Ort)) ' NVARCHAR(40) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Land", UStVAn_Land)) ' NVARCHAR(22) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Gewerbe", UStVAn_Gewerbe)) ' NVARCHAR(50) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Steuernummer", UStVAn_Steuernummer)) ' NVARCHAR(20) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_ReDatVon", UStVAn_ReDatVon)) ' DATETIME Not NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_ReDatBis", UStVAn_ReDatBis)) ' DATETIME Not NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Bankverbindung", UStVAn_Bankverbindung)) ' NVARCHAR(50) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_BLZ", UStVAn_BLZ)) ' NVARCHAR(8) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_KTO", UStVAn_KTO)) ' NVARCHAR(12) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Kontoinhaber", UStVAn_Kontoinhaber)) ' NVARCHAR(50) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_BIC", UStVAn_BIC)) ' NVARCHAR(11) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_IBAN", UStVAn_IBAN)) ' NVARCHAR(27) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Anlagen", UStVAn_Anlagen)) ' SMALLINT NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Rechnungen", UStVAn_Rechnungen)) ' SMALLINT NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Einfuhrdokumente", UStVAn_Einfuhrdokumente)) ' SMALLINT NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Erklärung_9_a", UStVAn_Erklärung_9_a)) ' NVARCHAR(50) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Erklärung_9_b_1", UStVAn_Erklärung_9_b_1)) ' BIT Default ((0)) Not NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Erklärung_9_b_2", UStVAn_Erklärung_9_b_2)) ' BIT Default ((0)) Not NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Erklärung_9_b_3", UStVAn_Erklärung_9_b_3)) ' BIT Default ((0)) Not NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Ausstellungsort", UStVAn_Ausstellungsort)) ' NVARCHAR(20) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Ausstellungsdatum", UStVAn_Ausstellungsdatum)) ' DATETIME NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Unterschrift", UStVAn_Unterschrift)) ' NVARCHAR(20) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_LandNr", UStVAn_LandNr)) ' SMALLINT Default ((38)) Not NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Beleganzahl", UStVAn_Beleganzahl)) ' SMALLINT NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_BeleganzahlRetourniert", UStVAn_BeleganzahlRetourniert)) ' SMALLINT NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Retournierungsgrund", UStVAn_Retournierungsgrund)) ' NVARCHAR(255) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_AntragEingereichtAm", UStVAn_AntragEingereichtAm)) ' DATETIME NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_BelegeWeitergeleitetAm", UStVAn_BelegeWeitergeleitetAm)) ' DATETIME NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Vertreter", UStVAn_Vertreter)) ' INT NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_BezugsNr", UStVAn_BezugsNr)) ' NVARCHAR(35) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_3470", UStVAn_3470)) ' MONEY NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_VZBetrag", UStVAn_VZBetrag)) ' MONEY NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_VZDatum", UStVAn_VZDatum)) ' DATETIME NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_RZBetragVZ", UStVAn_RZBetragVZ)) ' MONEY NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_RZDatumVZ", UStVAn_RZDatumVZ)) ' DATETIME NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNr", FilialenNr)) ' SMALLINT NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", AbfertigungsNr)) ' INT NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Währungscode", UStVAn_Währungscode)) ' NVARCHAR(3) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_USteuerbetrag", UStVAn_USteuerbetrag)) ' MONEY Default ((0)) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Erstattungsbetrag", UStVAn_Erstattungsbetrag)) ' MONEY Default ((0)) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_USteuerbetragEUR", UStVAn_USteuerbetragEUR)) ' MONEY Default ((0)) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_ErstattungsbetragEUR", UStVAn_ErstattungsbetragEUR)) ' MONEY Default ((0)) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Sachbearbeiter", UStVAn_Sachbearbeiter)) ' NVARCHAR(15) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Zeitstempel", UStVAn_Zeitstempel)) ' DATETIME Default (getdate()) NULL,
|
||||
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Public Sub LOAD(UStVAn_ID, Optional loadPos = True)
|
||||
Try
|
||||
POSITIONEN.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblUStVAntrag WHERE UStVAn_ID=@UStVAn_ID ", conn)
|
||||
cmd.Parameters.AddWithValue("@UStVAn_ID", UStVAn_ID)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
'Dim l As New cOfferte
|
||||
For Each i In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(i.Scalarvariable)
|
||||
If dr.Item(i.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(i.Text))
|
||||
End If
|
||||
Next
|
||||
If loadPos Then LOAD_POSITIONEN()
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub LOAD_POSITIONEN()
|
||||
Try
|
||||
POSITIONEN.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblUStVPositionen WHERE UStVAn_ID=@UStVAn_ID ", conn)
|
||||
cmd.Parameters.AddWithValue("@UStVAn_ID", Me.UStVAn_ID)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cUStVPositionen
|
||||
For Each i In l.getParameterList()
|
||||
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
|
||||
If dr.Item(i.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(l, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(l, dr.Item(i.Text))
|
||||
End If
|
||||
Next
|
||||
POSITIONEN.Add(l)
|
||||
End While
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Function INSERT() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblUStVAntrag WITH(updlock,serializable) WHERE UStVAn_ID=@UStVAn_ID ) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
'Me.Eingegeben_am = Now
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO tblUStVAntrag (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblUStVAntrag] SET " & str & " WHERE UStVAn_ID=@UStVAn_ID ")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
Public Class cUStVPositionen
|
||||
|
||||
Property UStVAn_ID As Integer
|
||||
Property UStVPo_ID As Integer
|
||||
Property UStVPo_ReDat As Object = Nothing ' DATETIME NULL,
|
||||
Property UStVPo_ReNr As Object = Nothing ' NVARCHAR(20) NULL,
|
||||
Property UStVPo_USteuerbetrag As Object = Nothing ' MONEY Not NULL,
|
||||
Property UStVPo_Leistungsbezeichnung As Object = Nothing ' NVARCHAR(255) NULL,
|
||||
Property UStVPo_Leistender As Object = Nothing ' NVARCHAR(65) NULL,
|
||||
Property UStVPo_Schnittstelle As Object = Nothing ' BIT Default ((0)) Not NULL,
|
||||
Property UStVPo_SchnittstellenNr As Object = Nothing ' SMALLINT Default ((0)) Not NULL,
|
||||
Property UStVPo_Umrechnungskurs As Object = Nothing ' FLOAT(53) NULL,
|
||||
Property UStVPo_USteuerbetragEUR As Object = Nothing ' MONEY NULL,
|
||||
Property UStVPo_Sachbearbeiter As Object = Nothing ' NVARCHAR(15) NULL,
|
||||
Property UStVPo_Zeitstempel As Object = Nothing ' DATETIME Default (getdate()) NULL,
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_ID", UStVAn_ID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_ID", UStVPo_ID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_ReDat", UStVPo_ReDat))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_ReNr", UStVPo_ReNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_USteuerbetrag", UStVPo_USteuerbetrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_Leistungsbezeichnung", UStVPo_Leistungsbezeichnung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_Leistender", UStVPo_Leistender))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_Schnittstelle", UStVPo_Schnittstelle))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_SchnittstellenNr", UStVPo_SchnittstellenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_Umrechnungskurs", UStVPo_Umrechnungskurs))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_USteuerbetragEUR", UStVPo_USteuerbetragEUR))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_Sachbearbeiter", UStVPo_Sachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVPo_Zeitstempel", UStVPo_Zeitstempel))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Public Function INSERT() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO tblUStVPositionen (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
End Class
|
||||
@@ -74,6 +74,11 @@ Public Class cAvisoBenachrichtigungen
|
||||
Return AB.SAVE
|
||||
End Function
|
||||
|
||||
Public Shared Function BESTAETIGEN_BENACHRICHTIGUNG_ALL(ab_AvisoID) As Boolean
|
||||
Dim sqlstr = " Update [tblAvisoBenachrichtigungen] SET ab_Status = 1,ab_Bestaetigt_MaId=-1,ab_Bestaetigt_Datum=getDate() WHERE ab_AvisoID=" & ab_AvisoID
|
||||
Return SQL.doSQL(sqlstr, "AVISO")
|
||||
End Function
|
||||
|
||||
Public Function BESTAETIGEN_BENACHRICHTIGUNG() As Boolean
|
||||
Me.ab_Status = 1
|
||||
Me.ab_Bestaetigt_MaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
||||
|
||||
@@ -69,12 +69,14 @@ Public Class SQLVariable
|
||||
Private Scalarvariablename As String
|
||||
Private primaryParam As Boolean
|
||||
Private onlyForLoad As Boolean
|
||||
Private onlyForSave As Boolean
|
||||
|
||||
Public Sub New(ByVal Text As String, ByVal Value As Object, Optional Scalarvariablename As String = "", Optional primaryParam As Boolean = False, Optional onlyForLoad As Boolean = False)
|
||||
Public Sub New(ByVal Text As String, ByVal Value As Object, Optional Scalarvariablename As String = "", Optional primaryParam As Boolean = False, Optional onlyForLoad As Boolean = False, Optional onlyForSave As Boolean = False)
|
||||
Me.TextSQLName = Text
|
||||
Me.ValueSQLVALUE = Value
|
||||
Me.primaryParam = primaryParam
|
||||
Me.onlyForLoad = onlyForLoad
|
||||
Me.onlyForSave = onlyForSave
|
||||
|
||||
If Scalarvariablename <> "" Then Me.Scalarvariablename = Scalarvariablename Else Me.Scalarvariablename = Text
|
||||
End Sub
|
||||
@@ -109,6 +111,12 @@ Public Class SQLVariable
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public ReadOnly Property isonlyForSave() As Boolean
|
||||
Get
|
||||
Return onlyForSave
|
||||
End Get
|
||||
End Property
|
||||
|
||||
|
||||
' Public Overrides Function ToString() As Object
|
||||
' Return mText
|
||||
|
||||
117
VERAG_PROG_ALLGEMEIN/Classes/cEasyBinding.vb
Normal file
117
VERAG_PROG_ALLGEMEIN/Classes/cEasyBinding.vb
Normal file
@@ -0,0 +1,117 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports Gemeinsames
|
||||
Imports System.ComponentModel
|
||||
Imports System.Windows.Forms
|
||||
|
||||
Public Class cEasyBinding
|
||||
Public WithEvents bindingDataAdapter As New SqlDataAdapter
|
||||
Public WithEvents bindingdataTable As New DataTable
|
||||
Public bindingdataSet As New DataSet
|
||||
Public WithEvents bindingSource As New BindingSource
|
||||
|
||||
Dim connection As SqlConnection
|
||||
Dim initialized = False
|
||||
|
||||
Public updateImmediately = False
|
||||
|
||||
Sub New(Optional conn As String = "SDL")
|
||||
Select Case conn
|
||||
Case "SDL" : connection = cSqlDb.GetNewOpenConnection(False)
|
||||
Case "FMZOLL" : connection = cSqlDb.GetNewOpenConnectionFMZOLL(False)
|
||||
Case "ADMIN" : connection = cSqlDb.GetNewOpenConnectionLogin()
|
||||
Case "AVISO" : connection = cSqlDb.GetNewOpenConnectionAVISO()
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Sub initBinding(sql, table, Optional List = Nothing)
|
||||
Try
|
||||
bindingSource.CancelEdit()
|
||||
bindingSource = New BindingSource
|
||||
bindingdataTable.Clear()
|
||||
bindingdataTable = New DataTable(table)
|
||||
bindingdataTable.TableName = table
|
||||
bindingdataSet.Clear()
|
||||
|
||||
Try
|
||||
|
||||
If List IsNot Nothing Then
|
||||
Dim cmd As New SqlCommand(sql, connection)
|
||||
|
||||
For Each i In List
|
||||
'MsgBox(i.Text.trim & " " & IIf(i.Value Is Nothing, DBNull.Value, i.Value))
|
||||
cmd.Parameters.AddWithValue("@" & i.Scalarvariable.trim, IIf(i.Value Is Nothing, DBNull.Value, i.Value))
|
||||
Next
|
||||
Me.bindingDataAdapter = New SqlDataAdapter(cmd)
|
||||
Else
|
||||
Me.bindingDataAdapter = New SqlDataAdapter(sql, connection)
|
||||
End If
|
||||
|
||||
|
||||
Catch ex As SqlException
|
||||
MessageBox.Show("Der Connection-String kann nicht verarbeitet werden. Wenden Sie sich an den Programmbetreuer.")
|
||||
End Try
|
||||
Me.bindingDataAdapter.FillSchema(bindingdataSet, SchemaType.Source, table)
|
||||
Me.bindingDataAdapter.Fill(bindingdataSet, table)
|
||||
Me.bindingdataTable = Me.bindingdataSet.Tables(table)
|
||||
Me.bindingSource.DataSource = Me.bindingdataTable
|
||||
|
||||
Me.bindingdataTable.Locale = System.Globalization.CultureInfo.InvariantCulture
|
||||
initialized = True
|
||||
Catch ex As Exception
|
||||
MsgBox("BindingERR01: " & ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Sub setARITHABORTOn()
|
||||
Try
|
||||
Using cmd As New SqlCommand("SET ARITHABORT ON", connection)
|
||||
cmd.ExecuteNonQuery()
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("BindingERR02: " & "Fehler in setARITHABORTOn: " & ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Public Function updateBinding(Optional tablename As String = "", Optional ContinueUpdateOnError As Boolean = False) As Boolean
|
||||
If Not initialized Then Return True
|
||||
Try
|
||||
bindingSource.EndEdit()
|
||||
Dim builder As New SqlCommandBuilder(bindingDataAdapter)
|
||||
bindingDataAdapter.Update(bindingdataSet, bindingdataTable.TableName)
|
||||
Me.bindingdataSet.AcceptChanges()
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
MsgBox("Es ist ein SQL-Fehler beim Updaten der Daten aufgetreten:" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & "Die Werte werden zurückgesetzt!", MsgBoxStyle.OkCancel, "Datenbank-Fehler")
|
||||
Me.bindingSource.ResumeBinding()
|
||||
End Try
|
||||
Return False
|
||||
End Function
|
||||
|
||||
|
||||
Sub binddata(o As Object, bindingParam As String, bindingSource As BindingSource, dataName As String, Optional bindingNullValue As String = "", Optional formatString As String = "")
|
||||
o.DataBindings.Clear()
|
||||
o.DataBindings.Add(New Binding(bindingParam, bindingSource, dataName, True, DataSourceUpdateMode.OnPropertyChanged, bindingNullValue, formatString))
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub bindingSource_DataError(sender As Object, e As BindingManagerDataErrorEventArgs) Handles bindingSource.DataError
|
||||
' If the data source raises an exception when a cell value is
|
||||
' commited, display an error message.
|
||||
If e.Exception IsNot Nothing Then ' AndAlso e. = DataGridViewDataErrorContexts.Commit Then
|
||||
MessageBox.Show("Daten-Fehler: " & vbNewLine & vbNewLine & e.Exception.Message)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
'Private Sub bindingdataTable_ColumnChanged(sender As Object, e As DataColumnChangeEventArgs) Handles bindingdataTable.ColumnChanged
|
||||
|
||||
' If updateImmediately Then updateBinding()
|
||||
|
||||
'End Sub
|
||||
|
||||
|
||||
End Class
|
||||
@@ -544,14 +544,23 @@ Public Class cMessenger
|
||||
If tmp_id > 0 Then
|
||||
Me.chatMg_id = tmp_id
|
||||
If saveStat Then SAVE_STATUS_FIRST(CHAT_MEMBERS)
|
||||
UPDATE_LASTMSG() ' Versucht einen TSTMP der letzten Nachricht einzutragen
|
||||
Return True
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
|
||||
|
||||
''Return SQL.doSQLVarList(sqlstr, "ADMIN", , list)
|
||||
End Function
|
||||
|
||||
|
||||
Public Function UPDATE_LASTMSG() As Boolean
|
||||
Dim sqlstr = " UPDATE tblMessenger_Chat SET chat_lastMsg=getDate() WHERE [chat_id]=" & Me.chatMg_chatId & " "
|
||||
Return SQL.doSQL(sqlstr, "ADMIN")
|
||||
End Function
|
||||
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
|
||||
|
||||
@@ -40,6 +40,8 @@ Public Class cMitarbeiter
|
||||
|
||||
Property mit_EZOLL_SB As Object = Nothing
|
||||
Property mit_ATLAS_SB As Object = Nothing
|
||||
Property mit_pseudoUser As Boolean = False
|
||||
|
||||
Property mit_FirmenDatenAnzeige As Object = Nothing
|
||||
|
||||
Property mit_DAKOSY_SB As Object = Nothing
|
||||
@@ -51,12 +53,32 @@ Public Class cMitarbeiter
|
||||
|
||||
Property mit_AliasAD_Domain As Object = Nothing
|
||||
Property mit_AliasAD_Username As Object = Nothing
|
||||
Property mit_AliasAD_Domain2 As Object = Nothing
|
||||
Property mit_AliasAD_Username2 As Object = Nothing
|
||||
|
||||
Property mit_teamId As Object = Nothing
|
||||
Property mit_ChatBenutzer As Boolean = True
|
||||
Property mit_FirmaHaupt As Object = Nothing
|
||||
Property mit_ChatEasteregg As Boolean = False
|
||||
|
||||
|
||||
|
||||
Property mit_MAVerzeichnis_SettingsTstmp As Object = Nothing
|
||||
Property mit_MAVerzeichnis_allowGebDat As Boolean = False
|
||||
Property mit_MAVerzeichnis_allowWohnadresse As Boolean = False
|
||||
Property mit_MAVerzeichnis_allowGebDatOhneJahr As Boolean = False
|
||||
Property mit_MAVerzeichnis_allowHandynummer As Boolean = False
|
||||
Property mit_MAVerzeichnis_allowFoto As Boolean = False
|
||||
|
||||
|
||||
Property mit_MAVerzeichnis_Motto As Object = Nothing
|
||||
Property mit_MAVerzeichnis_Spitzname As Object = Nothing
|
||||
|
||||
Property mit_foto_DocId As Object = Nothing
|
||||
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
|
||||
End Sub
|
||||
@@ -73,6 +95,191 @@ Public Class cMitarbeiter
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getFirma() As String
|
||||
If mit_firma Is Nothing Then Return ""
|
||||
Select Case mit_firma
|
||||
Case "ALLE", "BEIDE", "ALL"
|
||||
Return If(mit_FirmaHaupt, "")
|
||||
End Select
|
||||
Return mit_firma
|
||||
End Function
|
||||
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_id", mit_id,, True, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_username", mit_username))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_pwd", mit_pwd))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_geschlecht", mit_geschlecht))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_affix", mit_affix))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_vname", mit_vname))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_nname", mit_nname))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_gebdat", mit_gebdat))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_strasse", mit_strasse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_hausnr", mit_hausnr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_land", mit_land))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_plz", mit_plz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_ort", mit_ort))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_niederlassung", mit_niederlassung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_abteilung", mit_abteilung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_position", mit_position))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_durchwahl", mit_durchwahl))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_email", mit_email))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_mobiltel", mit_mobiltel))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_allowAnruf", mit_allowAnruf))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_info", mit_info))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_einstiegsdatum", mit_einstiegsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_gekuendigt", mit_gekuendigt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_kuendigungsdatum", mit_kuendigungsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_foto", mit_foto))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_firma", mit_firma))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_firmaFMZoll", mit_firmaFMZoll))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_FMZollPersID", mit_FMZollPersID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_standartFiliale", mit_standartFiliale))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_standardPreisliste", mit_standardPreisliste))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_FMZollPersIDKasseIsnotSpedBuch", mit_FMZollPersIDKasseIsnotSpedBuch))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_FMZollPersIDSpedBuch", mit_FMZollPersIDSpedBuch))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_DpUserStandardDP", mit_DpUserStandardDP))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_DpUserStandardFirma", mit_DpUserStandardFirma))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_DpUserStandardFirma2", mit_DpUserStandardFirma2))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_EZOLL_SB", mit_EZOLL_SB))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_ATLAS_SB", mit_ATLAS_SB))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_pseudoUser", mit_pseudoUser))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_FirmenDatenAnzeige", mit_FirmenDatenAnzeige))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_DAKOSY_SB", mit_DAKOSY_SB))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_DAKOSY_SBFull", mit_DAKOSY_SBFull))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_TESTonly", mit_TESTonly))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_PasswortChanged", mit_PasswortChanged))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_TELOTEC_SB", mit_TELOTEC_SB))
|
||||
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_AliasAD_Domain", mit_AliasAD_Domain))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_AliasAD_Username", mit_AliasAD_Username))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_AliasAD_Domain2", mit_AliasAD_Domain2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_AliasAD_Username2", mit_AliasAD_Username2))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_teamId", mit_teamId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_ChatBenutzer", mit_ChatBenutzer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_FirmaHaupt", mit_FirmaHaupt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_ChatEasteregg", mit_ChatEasteregg))
|
||||
|
||||
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_MAVerzeichnis_SettingsTstmp", mit_MAVerzeichnis_SettingsTstmp))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_MAVerzeichnis_allowGebDat", mit_MAVerzeichnis_allowGebDat))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_MAVerzeichnis_allowWohnadresse", mit_MAVerzeichnis_allowWohnadresse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_MAVerzeichnis_allowGebDatOhneJahr", mit_MAVerzeichnis_allowGebDatOhneJahr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_MAVerzeichnis_allowHandynummer", mit_MAVerzeichnis_allowHandynummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_MAVerzeichnis_allowFoto", mit_MAVerzeichnis_allowFoto))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_MAVerzeichnis_Motto", mit_MAVerzeichnis_Motto))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_MAVerzeichnis_Spitzname", mit_MAVerzeichnis_Spitzname))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_foto_DocId", mit_foto_DocId))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblMitarbeiter WHERE mit_id=@mit_id) " &
|
||||
" BEGIN " & getUpdateCmd() & " End " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " End " &
|
||||
" commit tran "
|
||||
|
||||
Dim id = SQL.doSQLVarListID(mit_id, sqlstr, "ADMIN", , list)
|
||||
If id > 0 Then
|
||||
mit_id = id
|
||||
Return mit_id
|
||||
Else
|
||||
Return -1
|
||||
End If
|
||||
|
||||
End Function
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblMitarbeiter] SET " & str & " WHERE mit_id=@mit_id ")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO tblMitarbeiter (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblMitarbeiter] WHERE mit_id=" & Me.mit_id
|
||||
Return SQL.doSQL(sqlstr, "ADMIN")
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
'Public Sub LOAD(Optional topMax As String = "")
|
||||
' Try
|
||||
' Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
|
||||
' Using cmd As New SqlCommand("Select * FROM tblMitarbeiter WHERE mit_id=@mit_id ", conn)
|
||||
' cmd.Parameters.AddWithValue("@mit_id", mit_id)
|
||||
' Dim dr = cmd.ExecuteReader()
|
||||
' If dr.Read Then
|
||||
' For Each l In getParameterList()
|
||||
' Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
' If dr.Item(l.Text) Is DBNull.Value Then
|
||||
' propInfo.SetValue(Me, Nothing)
|
||||
' Else
|
||||
' propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
' End If
|
||||
|
||||
' Next
|
||||
' Me.LOAD_MEMBERS()
|
||||
' Me.LOAD_MESSAGES(topMax)
|
||||
' End If
|
||||
' dr.Close()
|
||||
' End Using
|
||||
' End Using
|
||||
' Catch ex As Exception
|
||||
' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
' End Try
|
||||
'End Sub
|
||||
|
||||
|
||||
Public Function LOAD(ByVal id As Integer) As Boolean
|
||||
Dim sqlstr As String = "SELECT * FROM tblMitarbeiter WHERE mit_id = " & id & ""
|
||||
' adasdas()
|
||||
@@ -125,6 +332,7 @@ Public Class cMitarbeiter
|
||||
If Not dr.Item("mit_firmaFMZoll") Is DBNull.Value Then Me.mit_firmaFMZoll = dr.Item("mit_firmaFMZoll")
|
||||
If Not dr.Item("mit_EZOLL_SB") Is DBNull.Value Then Me.mit_EZOLL_SB = dr.Item("mit_EZOLL_SB")
|
||||
If Not dr.Item("mit_ATLAS_SB") Is DBNull.Value Then Me.mit_ATLAS_SB = dr.Item("mit_ATLAS_SB")
|
||||
Me.mit_pseudoUser = dr.Item("mit_pseudoUser")
|
||||
If Not dr.Item("mit_DAKOSY_SB") Is DBNull.Value Then Me.mit_DAKOSY_SB = dr.Item("mit_DAKOSY_SB")
|
||||
If Not dr.Item("mit_DAKOSY_SBFull") Is DBNull.Value Then Me.mit_DAKOSY_SBFull = dr.Item("mit_DAKOSY_SBFull")
|
||||
If Not dr.Item("mit_TESTonly") Is DBNull.Value Then Me.mit_TESTonly = dr.Item("mit_TESTonly")
|
||||
@@ -134,6 +342,8 @@ Public Class cMitarbeiter
|
||||
If Not dr.Item("mit_TELOTEC_SB") Is DBNull.Value Then Me.mit_TELOTEC_SB = dr.Item("mit_TELOTEC_SB")
|
||||
If Not dr.Item("mit_AliasAD_Domain") Is DBNull.Value Then Me.mit_AliasAD_Domain = dr.Item("mit_AliasAD_Domain")
|
||||
If Not dr.Item("mit_AliasAD_Username") Is DBNull.Value Then Me.mit_AliasAD_Username = dr.Item("mit_AliasAD_Username")
|
||||
If Not dr.Item("mit_AliasAD_Domain2") Is DBNull.Value Then Me.mit_AliasAD_Domain2 = dr.Item("mit_AliasAD_Domain2")
|
||||
If Not dr.Item("mit_AliasAD_Username2") Is DBNull.Value Then Me.mit_AliasAD_Username2 = dr.Item("mit_AliasAD_Username2")
|
||||
If Not dr.Item("mit_teamId") Is DBNull.Value Then Me.mit_teamId = dr.Item("mit_teamId")
|
||||
|
||||
|
||||
@@ -144,6 +354,20 @@ Public Class cMitarbeiter
|
||||
If Not dr.Item("mit_FirmaHaupt") Is DBNull.Value Then Me.mit_FirmaHaupt = dr.Item("mit_FirmaHaupt")
|
||||
|
||||
|
||||
If Not dr.Item("mit_MAVerzeichnis_SettingsTstmp") Is DBNull.Value Then Me.mit_MAVerzeichnis_SettingsTstmp = dr.Item("mit_MAVerzeichnis_SettingsTstmp")
|
||||
Me.mit_MAVerzeichnis_allowGebDat = dr.Item("mit_MAVerzeichnis_allowGebDat")
|
||||
Me.mit_MAVerzeichnis_allowGebDatOhneJahr = dr.Item("mit_MAVerzeichnis_allowGebDatOhneJahr")
|
||||
Me.mit_MAVerzeichnis_allowWohnadresse = dr.Item("mit_MAVerzeichnis_allowWohnadresse")
|
||||
Me.mit_MAVerzeichnis_allowHandynummer = dr.Item("mit_MAVerzeichnis_allowHandynummer")
|
||||
Me.mit_MAVerzeichnis_allowFoto = dr.Item("mit_MAVerzeichnis_allowFoto")
|
||||
|
||||
If Not dr.Item("mit_foto_DocId") Is DBNull.Value Then Me.mit_foto_DocId = dr.Item("mit_foto_DocId")
|
||||
If Not dr.Item("mit_MAVerzeichnis_Spitzname") Is DBNull.Value Then Me.mit_MAVerzeichnis_Spitzname = dr.Item("mit_MAVerzeichnis_Spitzname")
|
||||
If Not dr.Item("mit_MAVerzeichnis_Motto") Is DBNull.Value Then Me.mit_MAVerzeichnis_Motto = dr.Item("mit_MAVerzeichnis_Motto")
|
||||
|
||||
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Einlesen der Mitarbeiter-Details " & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Exclamation)
|
||||
End Try
|
||||
|
||||
@@ -150,6 +150,7 @@ Public Class cProgrammeUpdate
|
||||
If Not My.Computer.FileSystem.DirectoryExists(sourcePfad) Then
|
||||
MsgBox("ERROR_COPY_01: Quell-Ordner existiert nicht.", MsgBoxStyle.Critical, "ERROR") : Return False
|
||||
End If
|
||||
' MsgBox(destPfad)
|
||||
If Not My.Computer.FileSystem.DirectoryExists(destPfad) Then
|
||||
MsgBox("ERROR_COPY_02: Ziel-Ordner existiert nicht.", MsgBoxStyle.Critical, "ERROR") : Return False
|
||||
End If
|
||||
@@ -167,15 +168,15 @@ Public Class cProgrammeUpdate
|
||||
If LIST_SOURCE.Count = 0 Then
|
||||
MsgBox("ERROR_COPY_01: Quell-Daten existiert nicht.", MsgBoxStyle.Critical, "ERROR") : Return False
|
||||
End If
|
||||
If LIST_DEST.Count = 0 Then
|
||||
MsgBox("ERROR_COPY_02: Ziel-Daten existiert nicht.", MsgBoxStyle.Critical, "ERROR") : Return False
|
||||
End If
|
||||
'If LIST_DEST.Count = 0 Then
|
||||
' MsgBox("ERROR_COPY_02: Ziel-Daten existiert nicht.", MsgBoxStyle.Critical, "ERROR") : Return False
|
||||
'End If
|
||||
|
||||
'ORDNER erstellen:
|
||||
For Each f In LIST_SOURCE
|
||||
If If(f.pud_filePathFolder, "") <> "" Then
|
||||
If Not IO.Directory.Exists(dirNameReplace_DEST & "\" & f.pud_filePathFolder.Replace("\\", "\")) Then
|
||||
IO.Directory.CreateDirectory(dirNameReplace_DEST & "\" & f.pud_filePathFolder.Replace("\\", "\"))
|
||||
If Not IO.Directory.Exists(dirNameReplace_DEST & "\" & f.pud_filePathFolder) Then '.Replace("\\", "\")
|
||||
IO.Directory.CreateDirectory(dirNameReplace_DEST & "\" & f.pud_filePathFolder) '.Replace("\\", "\")
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
@@ -183,15 +184,17 @@ Public Class cProgrammeUpdate
|
||||
'Löschen der unbenötigten Files:
|
||||
For Each f In LIST_DEST
|
||||
If isOldFile(f, LIST_SOURCE) Then
|
||||
IO.File.Delete(dirNameReplace_DEST & "\" & If(f.pud_filePathFolder, "") & "\" & f.pud_fileName.Replace("\\", "\"))
|
||||
IO.File.Delete(dirNameReplace_DEST & "\" & If(f.pud_filePathFolder, "") & "\" & f.pud_fileName) '.Replace("\\", "\")
|
||||
End If
|
||||
Next
|
||||
|
||||
If dirNameReplace_DEST = "" Then dirNameReplace_DEST = destPfad
|
||||
'Kopieren/Überschreiben der neuen Files:
|
||||
For Each f In LIST_SOURCE
|
||||
If isNewFile(f, LIST_DEST) Then
|
||||
Dim s_path = dirNameReplace_SOURCE & "\" & If(f.pud_filePathFolder, "") & "\" & f.pud_fileName.Replace("\\", "\")
|
||||
Dim d_path = dirNameReplace_DEST & "\" & If(f.pud_filePathFolder, "") & "\" & f.pud_fileName.Replace("\\", "\")
|
||||
Dim s_path = dirNameReplace_SOURCE & "\" & If(f.pud_filePathFolder, "") & "\" & f.pud_fileName '.Replace("\\", "\")
|
||||
Dim d_path = dirNameReplace_DEST & "\" & If(f.pud_filePathFolder, "") & "\" & f.pud_fileName '.Replace("\\", "\")
|
||||
d_path = d_path '.replace("\\", "\")
|
||||
IO.File.Copy(s_path, d_path)
|
||||
End If
|
||||
Next
|
||||
|
||||
@@ -443,7 +443,7 @@ Public Class cRechnungsausgang
|
||||
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)
|
||||
Return If(SQL.getValueTxtBySql(sqlstr, "FMZOLL",,, Nothing) Is Nothing, 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
|
||||
|
||||
@@ -37,7 +37,7 @@ Public Class cRechnungsnummern
|
||||
Case 20
|
||||
VonRechnungsNr = Now.ToString("yy") & "400001"
|
||||
BisRechnungsNr = Now.ToString("yy") & "499999"
|
||||
Case 23 'FrontOffice
|
||||
Case 17 'FrontOffice
|
||||
VonRechnungsNr = Now.ToString("yy") & "500001"
|
||||
BisRechnungsNr = Now.ToString("yy") & "599999"
|
||||
|
||||
|
||||
@@ -82,7 +82,8 @@ Public Class cSendungen
|
||||
Property tblSnd_DakosyRef As Object = Nothing
|
||||
Property tblSnd_TeamId As Object = Nothing
|
||||
Property tblSnd_Fakturiert As Object = Nothing
|
||||
|
||||
Property VORSYSTEM As Object = Nothing
|
||||
Property VORSYSTEM_Id As Object = Nothing
|
||||
|
||||
Public saveSachbearbeiter As Boolean = False
|
||||
|
||||
@@ -266,6 +267,8 @@ Public Class cSendungen
|
||||
Me.tblSnd_DakosyRef = SQL.checkNullReturnValue(dr.Item("tblSnd_DakosyRef"), Nothing)
|
||||
Me.tblSnd_TeamId = SQL.checkNullReturnValue(dr.Item("tblSnd_TeamId"), Nothing)
|
||||
Me.tblSnd_Fakturiert = SQL.checkNullReturnValue(dr.Item("tblSnd_Fakturiert"), Nothing)
|
||||
Me.VORSYSTEM = SQL.checkNullReturnValue(dr.Item("VORSYSTEM"), Nothing)
|
||||
Me.VORSYSTEM_Id = SQL.checkNullReturnValue(dr.Item("VORSYSTEM_Id"), Nothing)
|
||||
|
||||
End If
|
||||
|
||||
@@ -430,6 +433,8 @@ Public Class cSendungen
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_DakosyRef", tblSnd_DakosyRef))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_TeamId", tblSnd_TeamId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Fakturiert", tblSnd_Fakturiert))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VORSYSTEM", VORSYSTEM))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VORSYSTEM_Id", VORSYSTEM_Id))
|
||||
|
||||
|
||||
Return list
|
||||
|
||||
Reference in New Issue
Block a user