98 lines
3.8 KiB
VB.net
98 lines
3.8 KiB
VB.net
Public Class cBuchhaltungRechnung
|
|
Property bhrg_id As Integer
|
|
Property bhrg_atrId As Integer
|
|
|
|
Property bhrg_code As String
|
|
Property bhrg_vermerk As String
|
|
Property bhrg_pfl As String
|
|
Property bhrg_frei As String
|
|
Property bhrg_option As String
|
|
Property bhrg_leistungIdDispo As Object = Nothing
|
|
|
|
|
|
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
|
|
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
|
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bhrg_id", bhrg_id, , True, True)) 'UPDATE INSERT ISPRIMARY!
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bhrg_atrId", bhrg_atrId))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bhrg_code", bhrg_code))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bhrg_vermerk", bhrg_vermerk))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bhrg_pfl", bhrg_pfl))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bhrg_frei", bhrg_frei))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bhrg_option", bhrg_option))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bhrg_leistungIdDispo", bhrg_leistungIdDispo))
|
|
|
|
Return list
|
|
End Function
|
|
|
|
Public Function SAVE() As Boolean
|
|
bhrg_id = SQL.doSQLVarListID(bhrg_id, getInsertCmd, "DISPO", , getParameterList)
|
|
Return bhrg_id > 0
|
|
End Function
|
|
|
|
Public Function getInsertCmd() As String
|
|
Try
|
|
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
|
Dim str As String = ""
|
|
Dim values As String = ""
|
|
For Each i In list
|
|
If Not i.isPrimaryParam Then
|
|
str &= "[" & i.Text & "],"
|
|
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
|
End If
|
|
Next
|
|
str = str.Substring(0, str.Length - 1) 'wg. ','
|
|
values = values.Substring(0, values.Length - 1) 'wg. ','
|
|
Return (" INSERT INTO tblBhRechnungen (" & str & ") VALUES(" & values & ") ")
|
|
Catch ex As Exception
|
|
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
|
End Try
|
|
Return ""
|
|
End Function
|
|
|
|
End Class
|
|
Public Class cUnternKennz
|
|
Property bhut_id As String
|
|
Property bhut_unternKennz As String
|
|
Property bhut_bis As String
|
|
Property bhut_kosten As String
|
|
End Class
|
|
|
|
|
|
|
|
Public Class cBuchParams
|
|
Property spedBuchNr As String = "-1"
|
|
Property mon As String
|
|
Property posNr As String
|
|
Property auftrDatum As String
|
|
Property absender As String
|
|
Property abs_ladedat_datum As String
|
|
Property abs_ladedat_von As String
|
|
Property abs_ladedat_bis As String
|
|
Property abs_anspr As String
|
|
Property empfaenger As String
|
|
Property empf_ladedat_datum As String
|
|
Property empf_ladedat_von As String
|
|
Property empf_ladedat_bis As String
|
|
Property empf_anspr As String
|
|
Property auftraggeber As String
|
|
Property auftr_anspr As String
|
|
Property unterKennz1 As String
|
|
Property unterKennz_bis1 As String
|
|
Property unterKennz_kosten1 As String
|
|
Property unterKennz2 As String
|
|
Property unterKennz_bis2 As String
|
|
Property unterKennz_kosten2 As String
|
|
Property unterKennz3 As String
|
|
Property unterKennz_bis3 As String
|
|
Property unterKennz_kosten3 As String
|
|
Property unterKennz4 As String
|
|
Property unterKennz_bis4 As String
|
|
Property unterKennz_kosten4 As String
|
|
Property vermerke As String
|
|
Property cLadungen As List(Of cDispoLadungen)
|
|
Property bhRg As List(Of cBuchhaltungRechnung)
|
|
Property bhRg2 As List(Of cBuchhaltungRechnung)
|
|
End Class
|