SDL Jetzt erst recht!
This commit is contained in:
221
SDL/Classes/ATLAS_Zabis/cATLAS_zbPos.vb
Normal file
221
SDL/Classes/ATLAS_Zabis/cATLAS_zbPos.vb
Normal file
@@ -0,0 +1,221 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cATLAS_zbPos_List
|
||||
Public LIST As New List(Of cATLAS_zbPos)
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New(basman_nr, basman_nl, zbant_beznr, connArt)
|
||||
LOAD_LIST(basman_nr, basman_nl, zbant_beznr, connArt)
|
||||
'Wenn keine Enträge gefunden, dann mit History nochmal suchen
|
||||
If LIST.Count = 0 Then
|
||||
LOAD_LIST(basman_nr, basman_nl, zbant_beznr, True)
|
||||
End If
|
||||
End Sub
|
||||
Public Sub CLEAR()
|
||||
LIST.Clear()
|
||||
End Sub
|
||||
|
||||
Public Sub LOAD_LIST(basman_nr, basman_nl, zbant_beznr, connArt, Optional History = False)
|
||||
Try
|
||||
LIST.Clear()
|
||||
Dim conn As SqlConnection
|
||||
Select Case connArt
|
||||
Case "ATLAS" : conn = cSqlDb.GetNewOpenConnectionATLAS
|
||||
Case "ATLAS_SBG" : conn = cSqlDb.GetNewOpenConnectionATLAS_SBG
|
||||
End Select
|
||||
Dim sqlstr = "SELECT * FROM [zbpos] WHERE basman_nr=@basman_nr AND basman_nl=@basman_nl AND zbant_beznr=@zbant_beznr "
|
||||
If History Then sqlstr &= "UNION SELECT * FROM zbhpos WHERE basman_nr=@basman_nr AND basman_nl=@basman_nl AND zbant_beznr=@zbant_beznr"
|
||||
Using cmd As New SqlCommand(sqlstr, conn)
|
||||
cmd.Parameters.AddWithValue("@basman_nr", basman_nr)
|
||||
cmd.Parameters.AddWithValue("@basman_nl", basman_nl)
|
||||
cmd.Parameters.AddWithValue("@zbant_beznr", zbant_beznr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cATLAS_zbPos
|
||||
For Each i In l.getParameterList()
|
||||
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
|
||||
If dr.Item(i.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(l, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(l, dr.Item(i.Text))
|
||||
End If
|
||||
Next
|
||||
LIST.Add(l)
|
||||
|
||||
End While
|
||||
dr.Close()
|
||||
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
Public Class cATLAS_zbPos
|
||||
Property basman_nr As Object = Nothing
|
||||
Property basman_nl As Object = Nothing
|
||||
Property zbant_beznr As Object = Nothing
|
||||
Property zbant_regnr As Object = Nothing
|
||||
Property zbant_korant As Object = Nothing
|
||||
Property zbant_antart As Object = Nothing
|
||||
Property zbpos_posnr As Object = Nothing
|
||||
Property zbpos_wanr As Object = Nothing
|
||||
Property zbpos_wazus1 As Object = Nothing
|
||||
Property zbpos_wazus2 As Object = Nothing
|
||||
Property zbpos_verf As Object = Nothing
|
||||
Property zbpos_zuverf As Object = Nothing
|
||||
Property zbpos_wabes As Object = Nothing
|
||||
Property zbpos_txhiab As Object = Nothing
|
||||
Property zbpos_txzus As Object = Nothing
|
||||
Property zbpos_vrbort As Object = Nothing
|
||||
Property zbpos_abgort As Object = Nothing
|
||||
Property zbpos_uland As Object = Nothing
|
||||
Property zbpos_eigm As Object = Nothing
|
||||
Property zbpos_rohm As Object = Nothing
|
||||
Property zbpos_stkanz As Object = Nothing
|
||||
Property zbpos_stkart As Object = Nothing
|
||||
Property zbpos_stkzei As Object = Nothing
|
||||
Property zbpos_prnw As Object = Nothing
|
||||
Property zbpos_prverm As Object = Nothing
|
||||
Property zbpos_prnwnr As Object = Nothing
|
||||
Property zbpos_beabeg As Object = Nothing
|
||||
Property zbpos_qunorm As Object = Nothing
|
||||
Property zbpos_besver As Object = Nothing
|
||||
Property zbpos_beding As Object = Nothing
|
||||
Property zbpos_zollw As Object = Nothing
|
||||
Property zbpos_eust As Object = Nothing
|
||||
Property zbpos_rpreis As Object = Nothing
|
||||
Property zbpos_rabatt As Object = Nothing
|
||||
Property zbpos_skonto As Object = Nothing
|
||||
Property zbpos_waenet As Object = Nothing
|
||||
Property zbpos_knet As Object = Nothing
|
||||
Property zbpos_kznet As Object = Nothing
|
||||
Property zbpos_netto As Object = Nothing
|
||||
Property zbpos_mzahl As Object = Nothing
|
||||
Property zbpos_waemz As Object = Nothing
|
||||
Property zbpos_kmzahl As Object = Nothing
|
||||
Property zbpos_kzzahl As Object = Nothing
|
||||
Property zbpos_wmahst As Object = Nothing
|
||||
Property zbpos_meast As Object = Nothing
|
||||
Property zbpos_mgestk As Object = Nothing
|
||||
Property zbpos_ahwert As Object = Nothing
|
||||
Property zbpos_wmzoll As Object = Nothing
|
||||
Property zbpos_mezoll As Object = Nothing
|
||||
Property zbpos_wmazol As Object = Nothing
|
||||
Property zbpos_meazol As Object = Nothing
|
||||
Property zbpos_stat As Object = Nothing
|
||||
Property zbpos_edat As Object = Nothing
|
||||
Property zbpos_adat As Object = Nothing
|
||||
Property zbpos_sb As Object = Nothing
|
||||
Property zbpos_zosatz As Object = Nothing
|
||||
Property zbpos_eusatz As Object = Nothing
|
||||
Property zbpos_vesatz As Object = Nothing
|
||||
Property zbpos_prnw3 As Object = Nothing
|
||||
Property zbpos_qmeast As Object = Nothing
|
||||
Property zbpos_qmezol As Object = Nothing
|
||||
Property zbpos_qmeazo As Object = Nothing
|
||||
Property zbpos_artnr As Object = Nothing
|
||||
Property zbpos_frsatz As Object = Nothing
|
||||
Property zbpos_eucode As Object = Nothing
|
||||
Property zbpos_artprs As Object = Nothing
|
||||
Property zbpos_kostst As Object = Nothing
|
||||
Property zbpos_menge As Object = Nothing
|
||||
Property zbpos_meinh As Object = Nothing
|
||||
Property zbpos_qmeinh As Object = Nothing
|
||||
Property zbpos_kzber As Object = Nothing
|
||||
Property zbpos_zolabg As Object = Nothing
|
||||
Property zbpos_euabg As Object = Nothing
|
||||
Property zbpos_kzabw As Object = Nothing
|
||||
Property zbpos_kontnr As Object = Nothing
|
||||
Property zbpos_kontnr2 As Object = Nothing
|
||||
|
||||
|
||||
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("basman_nr", basman_nr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("basman_nl", basman_nl))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbant_beznr", zbant_beznr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbant_regnr", zbant_regnr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbant_korant", zbant_korant))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbant_antart", zbant_antart))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_posnr", zbpos_posnr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_wanr", zbpos_wanr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_wazus1", zbpos_wazus1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_wazus2", zbpos_wazus2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_verf", zbpos_verf))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_zuverf", zbpos_zuverf))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_wabes", zbpos_wabes))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_txhiab", zbpos_txhiab))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_txzus", zbpos_txzus))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_vrbort", zbpos_vrbort))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_abgort", zbpos_abgort))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_uland", zbpos_uland))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_eigm", zbpos_eigm))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_rohm", zbpos_rohm))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_stkanz", zbpos_stkanz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_stkart", zbpos_stkart))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_stkzei", zbpos_stkzei))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_prnw", zbpos_prnw))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_prverm", zbpos_prverm))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_prnwnr", zbpos_prnwnr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_beabeg", zbpos_beabeg))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_qunorm", zbpos_qunorm))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_besver", zbpos_besver))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_beding", zbpos_beding))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_zollw", zbpos_zollw))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_eust", zbpos_eust))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_rpreis", zbpos_rpreis))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_rabatt", zbpos_rabatt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_skonto", zbpos_skonto))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_waenet", zbpos_waenet))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_knet", zbpos_knet))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_kznet", zbpos_kznet))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_netto", zbpos_netto))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_mzahl", zbpos_mzahl))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_waemz", zbpos_waemz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_kmzahl", zbpos_kmzahl))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_kzzahl", zbpos_kzzahl))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_wmahst", zbpos_wmahst))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_meast", zbpos_meast))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_mgestk", zbpos_mgestk))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_ahwert", zbpos_ahwert))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_wmzoll", zbpos_wmzoll))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_mezoll", zbpos_mezoll))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_wmazol", zbpos_wmazol))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_meazol", zbpos_meazol))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_stat", zbpos_stat))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_edat", zbpos_edat))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_adat", zbpos_adat))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_sb", zbpos_sb))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_zosatz", zbpos_zosatz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_eusatz", zbpos_eusatz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_vesatz", zbpos_vesatz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_prnw3", zbpos_prnw3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_qmeast", zbpos_qmeast))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_qmezol", zbpos_qmezol))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_qmeazo", zbpos_qmeazo))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_artnr", zbpos_artnr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_frsatz", zbpos_frsatz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_eucode", zbpos_eucode))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_artprs", zbpos_artprs))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_kostst", zbpos_kostst))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_menge", zbpos_menge))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_meinh", zbpos_meinh))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_qmeinh", zbpos_qmeinh))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_kzber", zbpos_kzber))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_zolabg", zbpos_zolabg))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_euabg", zbpos_euabg))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_kzabw", zbpos_kzabw))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_kontnr", zbpos_kontnr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_kontnr2", zbpos_kontnr2))
|
||||
Return list
|
||||
End Function
|
||||
End Class
|
||||
630
SDL/Classes/cCMR.vb
Normal file
630
SDL/Classes/cCMR.vb
Normal file
@@ -0,0 +1,630 @@
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cCMR
|
||||
Property CMR_ID As Integer = -1
|
||||
Property CMR_Suchbegriff As Object = Nothing
|
||||
Property CMR_Absender_1 As Object = Nothing
|
||||
Property CMR_Absender_2 As Object = Nothing
|
||||
Property CMR_Absender_3 As Object = Nothing
|
||||
Property CMR_Absender_4 As Object = Nothing
|
||||
Property CMR_Absender_5 As Object = Nothing
|
||||
Property CMR_Empfänger_1 As Object = Nothing
|
||||
Property CMR_Empfänger_2 As Object = Nothing
|
||||
Property CMR_Empfänger_3 As Object = Nothing
|
||||
Property CMR_Empfänger_4 As Object = Nothing
|
||||
Property CMR_Empfänger_5 As Object = Nothing
|
||||
Property CMR_Auslieferung_Ort As Object = Nothing
|
||||
Property CMR_Auslieferung_Land As Object = Nothing
|
||||
Property CMR_Auslieferung As Object = Nothing
|
||||
Property CMR_Übernahme_Ort As Object = Nothing
|
||||
Property CMR_Übernahme_Land As Object = Nothing
|
||||
Property CMR_Übernahme_Datum As Object = Nothing
|
||||
Property CMR_Dokumente_1 As Object = Nothing
|
||||
Property CMR_Dokumente_2 As Object = Nothing
|
||||
Property CMR_Dokumente_3 As Object = Nothing
|
||||
|
||||
Property CMR_zeichen_1 As Object = Nothing
|
||||
Property CMR_zeichen_2 As Object = Nothing
|
||||
Property CMR_zeichen_3 As Object = Nothing
|
||||
Property CMR_zeichen_4 As Object = Nothing
|
||||
Property CMR_zeichen_5 As Object = Nothing
|
||||
Property CMR_zeichen_6 As Object = Nothing
|
||||
Property CMR_zeichen_7 As Object = Nothing
|
||||
Property CMR_zeichen_8 As Object = Nothing
|
||||
Property CMR_zeichen_9 As Object = Nothing
|
||||
Property CMR_anzahl_1 As Object = Nothing
|
||||
Property CMR_anzahl_2 As Object = Nothing
|
||||
Property CMR_anzahl_3 As Object = Nothing
|
||||
Property CMR_anzahl_4 As Object = Nothing
|
||||
Property CMR_anzahl_5 As Object = Nothing
|
||||
Property CMR_anzahl_6 As Object = Nothing
|
||||
Property CMR_anzahl_7 As Object = Nothing
|
||||
Property CMR_anzahl_8 As Object = Nothing
|
||||
Property CMR_anzahl_9 As Object = Nothing
|
||||
Property CMR_pkArt_1 As Object = Nothing
|
||||
Property CMR_pkArt_2 As Object = Nothing
|
||||
Property CMR_pkArt_3 As Object = Nothing
|
||||
Property CMR_pkArt_4 As Object = Nothing
|
||||
Property CMR_pkArt_5 As Object = Nothing
|
||||
Property CMR_pkArt_6 As Object = Nothing
|
||||
Property CMR_pkArt_7 As Object = Nothing
|
||||
Property CMR_pkArt_8 As Object = Nothing
|
||||
Property CMR_pkArt_9 As Object = Nothing
|
||||
Property CMR_TblLangKurz As Object = "K"
|
||||
|
||||
Property CMR_Ware_1 As Object = Nothing
|
||||
Property CMR_Statistiknr_1 As Object = Nothing
|
||||
Property CMR_Bruttogewicht_1 As Object = Nothing
|
||||
Property CMR_Umfang_1 As Object = Nothing
|
||||
Property CMR_Ware_2 As Object = Nothing
|
||||
Property CMR_Statistiknr_2 As Object = Nothing
|
||||
Property CMR_Bruttogewicht_2 As Object = Nothing
|
||||
Property CMR_Umfang_2 As Object = Nothing
|
||||
Property CMR_Ware_3 As Object = Nothing
|
||||
Property CMR_Statistiknr_3 As Object = Nothing
|
||||
Property CMR_Bruttogewicht_3 As Object = Nothing
|
||||
Property CMR_Umfang_3 As Object = Nothing
|
||||
Property CMR_Ware_4 As Object = Nothing
|
||||
Property CMR_Statistiknr_4 As Object = Nothing
|
||||
Property CMR_Bruttogewicht_4 As Object = Nothing
|
||||
Property CMR_Umfang_4 As Object = Nothing
|
||||
Property CMR_Ware_5 As Object = Nothing
|
||||
Property CMR_Statistiknr_5 As Object = Nothing
|
||||
Property CMR_Bruttogewicht_5 As Object = Nothing
|
||||
Property CMR_Umfang_5 As Object = Nothing
|
||||
Property CMR_Ware_6 As Object = Nothing
|
||||
Property CMR_Statistiknr_6 As Object = Nothing
|
||||
Property CMR_Bruttogewicht_6 As Object = Nothing
|
||||
Property CMR_Umfang_6 As Object = Nothing
|
||||
Property CMR_Ware_7 As Object = Nothing
|
||||
Property CMR_Statistiknr_7 As Object = Nothing
|
||||
Property CMR_Bruttogewicht_7 As Object = Nothing
|
||||
Property CMR_Umfang_7 As Object = Nothing
|
||||
Property CMR_Ware_8 As Object = Nothing
|
||||
Property CMR_Statistiknr_8 As Object = Nothing
|
||||
Property CMR_Bruttogewicht_8 As Object = Nothing
|
||||
Property CMR_Umfang_8 As Object = Nothing
|
||||
Property CMR_Klasse As Object = Nothing
|
||||
Property CMR_Ziffer As Object = Nothing
|
||||
Property CMR_Buchstabe As Object = Nothing
|
||||
Property CMR_ADR As Object = Nothing
|
||||
Property CMR_Ware_9 As Object = Nothing
|
||||
Property CMR_Statistiknr_9 As Object = Nothing
|
||||
Property CMR_Bruttogewicht_9 As Object = Nothing
|
||||
Property CMR_Umfang_9 As Object = Nothing
|
||||
Property CMR_Anweisungen_1 As Object = Nothing
|
||||
Property CMR_Anweisungen_2 As Object = Nothing
|
||||
Property CMR_Anweisungen_3 As Object = Nothing
|
||||
Property CMR_Anweisungen_4 As Object = Nothing
|
||||
Property CMR_Anweisungen_5 As Object = Nothing
|
||||
Property CMR_Anweisungen_6 As Object = Nothing
|
||||
Property CMR_Anweisungen_7 As Object = Nothing
|
||||
Property CMR_Rückerstattung As Object = Nothing
|
||||
Property CMR_Frachtzahlungsanweisung_Frei As Object = Nothing
|
||||
Property CMR_Frachtzahlungsanweisung_Unfrei As Object = Nothing
|
||||
Property CMR_Frachtführer_1 As Object = Nothing
|
||||
Property CMR_Frachtführer_2 As Object = Nothing
|
||||
Property CMR_Frachtführer_3 As Object = Nothing
|
||||
Property CMR_Frachtführer_4 As Object = Nothing
|
||||
Property CMR_Frachtführer_5 As Object = Nothing
|
||||
Property CMR_Nachf_Frachtführer_1 As Object = Nothing
|
||||
Property CMR_Nachf_Frachtführer_2 As Object = Nothing
|
||||
Property CMR_Nachf_Frachtführer_3 As Object = Nothing
|
||||
Property CMR_Nachf_Frachtführer_4 As Object = Nothing
|
||||
Property CMR_Nachf_Frachtführer_5 As Object = Nothing
|
||||
Property CMR_Bemerkungen_1 As Object = Nothing
|
||||
Property CMR_Bemerkungen_2 As Object = Nothing
|
||||
Property CMR_Bemerkungen_3 As Object = Nothing
|
||||
Property CMR_Bemerkungen_4 As Object = Nothing
|
||||
Property CMR_Bemerkungen_5 As Object = Nothing
|
||||
Property CMR_Vereinbarungen_1 As Object = Nothing
|
||||
Property CMR_Vereinbarungen_2 As Object = Nothing
|
||||
Property CMR_Ausgefertigt_in As Object = Nothing
|
||||
Property CMR_Ausgefertigt_am As Object = Nothing
|
||||
Property CMR_Ausgefertigt As Object = Nothing
|
||||
Property CMR_Stempel_Absender_1 As Object = Nothing
|
||||
Property CMR_Stempel_Absender_2 As Object = Nothing
|
||||
Property CMR_Stempel_Frachtführer_1 As Object = Nothing
|
||||
Property CMR_Stempel_Frachtführer_2 As Object = Nothing
|
||||
Property CMR_Empfangsbestätigung_Datum As Object = Nothing
|
||||
Property CMR_Stempel_Empfänger_1 As Object = Nothing
|
||||
Property CMR_Stempel_Empfänger_2 As Object = Nothing
|
||||
Property CMR_Tarifentfernung_von_1 As Object = Nothing
|
||||
Property CMR_Tarifentfernung_bis_1 As Object = Nothing
|
||||
Property CMR_Tarifentfernung_km_1 As Object = Nothing
|
||||
Property CMR_Tarifentfernung_von_2 As Object = Nothing
|
||||
Property CMR_Tarifentfernung_bis_2 As Object = Nothing
|
||||
Property CMR_Tarifentfernung_km_2 As Object = Nothing
|
||||
Property CMR_Tarifentfernung_von_3 As Object = Nothing
|
||||
Property CMR_Tarifentfernung_bis_3 As Object = Nothing
|
||||
Property CMR_Tarifentfernung_km_3 As Object = Nothing
|
||||
Property CMR_Tarifentfernung_von_4 As Object = Nothing
|
||||
Property CMR_Tarifentfernung_bis_4 As Object = Nothing
|
||||
Property CMR_Tarifentfernung_km_4 As Object = Nothing
|
||||
Property CMR_Tarifentfernung_von_5 As Object = Nothing
|
||||
Property CMR_Tarifentfernung_bis_5 As Object = Nothing
|
||||
Property CMR_Tarifentfernung_km_5 As Object = Nothing
|
||||
Property CMR_Kennzeichen_Kfz As Object = Nothing
|
||||
Property CMR_Nutzlast_Kfz As Object = Nothing
|
||||
Property CMR_Kennzeichen_Anhänger As Object = Nothing
|
||||
Property CMR_Nutzlast_Anhänger As Object = Nothing
|
||||
Property CMR_Erstellt_Datum As Object = Nothing
|
||||
Property CMR_Erstellt_Sachbearbeiter As Object = Nothing
|
||||
Property CMR_Geändert_Datum As Object = Nothing
|
||||
Property CMR_Geändert_Sachbearbeiter As Object = Nothing
|
||||
Property CMR_Gedruckt_Datum As Object = Nothing
|
||||
Property CMR_Gedruckt_Sachbearbeiter As Object = Nothing
|
||||
Property CMR_Firma As Object = Nothing
|
||||
Property EPBes_ID As Object = Nothing
|
||||
|
||||
|
||||
Property CMRPos As New List(Of cCMRPos)
|
||||
|
||||
Public _kurz As Boolean = True
|
||||
Dim SQL As New SQL
|
||||
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
Sub New(CMR_ID As Integer)
|
||||
Me.CMR_ID = CMR_ID
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
Function getMaxId() As Integer
|
||||
CMR_ID = SQL.getValueTxtBySql("SELECT ISNULL(MAX(CMR_ID),0)+1 FROM CMR", "FMZOLL")
|
||||
Return CMR_ID
|
||||
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("CMR_ID", CMR_ID, , True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Suchbegriff", CMR_Suchbegriff))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Absender_1", CMR_Absender_1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Absender_2", CMR_Absender_2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Absender_3", CMR_Absender_3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Absender_4", CMR_Absender_4))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Absender_5", CMR_Absender_5))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Empfänger_1", CMR_Empfänger_1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Empfänger_2", CMR_Empfänger_2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Empfänger_3", CMR_Empfänger_3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Empfänger_4", CMR_Empfänger_4))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Empfänger_5", CMR_Empfänger_5))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Auslieferung_Ort", CMR_Auslieferung_Ort))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Auslieferung_Land", CMR_Auslieferung_Land))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Auslieferung", CMR_Auslieferung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Übernahme_Ort", CMR_Übernahme_Ort))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Übernahme_Land", CMR_Übernahme_Land))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Übernahme_Datum", CMR_Übernahme_Datum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Dokumente_1", CMR_Dokumente_1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Dokumente_2", CMR_Dokumente_2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Dokumente_3", CMR_Dokumente_3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Ware_1", CMR_Ware_1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Statistiknr_1", CMR_Statistiknr_1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Bruttogewicht_1", CMR_Bruttogewicht_1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Umfang_1", CMR_Umfang_1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Ware_2", CMR_Ware_2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Statistiknr_2", CMR_Statistiknr_2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Bruttogewicht_2", CMR_Bruttogewicht_2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Umfang_2", CMR_Umfang_2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Ware_3", CMR_Ware_3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Statistiknr_3", CMR_Statistiknr_3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Bruttogewicht_3", CMR_Bruttogewicht_3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Umfang_3", CMR_Umfang_3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Ware_4", CMR_Ware_4))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Statistiknr_4", CMR_Statistiknr_4))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Bruttogewicht_4", CMR_Bruttogewicht_4))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Umfang_4", CMR_Umfang_4))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Ware_5", CMR_Ware_5))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Statistiknr_5", CMR_Statistiknr_5))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Bruttogewicht_5", CMR_Bruttogewicht_5))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Umfang_5", CMR_Umfang_5))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Ware_6", CMR_Ware_6))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Statistiknr_6", CMR_Statistiknr_6))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Bruttogewicht_6", CMR_Bruttogewicht_6))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Umfang_6", CMR_Umfang_6))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Ware_7", CMR_Ware_7))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Statistiknr_7", CMR_Statistiknr_7))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Bruttogewicht_7", CMR_Bruttogewicht_7))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Umfang_7", CMR_Umfang_7))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Ware_8", CMR_Ware_8))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Statistiknr_8", CMR_Statistiknr_8))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Bruttogewicht_8", CMR_Bruttogewicht_8))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Umfang_8", CMR_Umfang_8))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Klasse", CMR_Klasse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Ziffer", CMR_Ziffer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Buchstabe", CMR_Buchstabe))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_ADR", CMR_ADR))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Ware_9", CMR_Ware_9))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Statistiknr_9", CMR_Statistiknr_9))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Bruttogewicht_9", CMR_Bruttogewicht_9))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Umfang_9", CMR_Umfang_9))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Anweisungen_1", CMR_Anweisungen_1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Anweisungen_2", CMR_Anweisungen_2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Anweisungen_3", CMR_Anweisungen_3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Anweisungen_4", CMR_Anweisungen_4))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Anweisungen_5", CMR_Anweisungen_5))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Anweisungen_6", CMR_Anweisungen_6))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Anweisungen_7", CMR_Anweisungen_7))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Rückerstattung", CMR_Rückerstattung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Frachtzahlungsanweisung_Frei", CMR_Frachtzahlungsanweisung_Frei))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Frachtzahlungsanweisung_Unfrei", CMR_Frachtzahlungsanweisung_Unfrei))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Frachtführer_1", CMR_Frachtführer_1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Frachtführer_2", CMR_Frachtführer_2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Frachtführer_3", CMR_Frachtführer_3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Frachtführer_4", CMR_Frachtführer_4))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Frachtführer_5", CMR_Frachtführer_5))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Nachf_Frachtführer_1", CMR_Nachf_Frachtführer_1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Nachf_Frachtführer_2", CMR_Nachf_Frachtführer_2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Nachf_Frachtführer_3", CMR_Nachf_Frachtführer_3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Nachf_Frachtführer_4", CMR_Nachf_Frachtführer_4))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Nachf_Frachtführer_5", CMR_Nachf_Frachtführer_5))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Bemerkungen_1", CMR_Bemerkungen_1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Bemerkungen_2", CMR_Bemerkungen_2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Bemerkungen_3", CMR_Bemerkungen_3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Bemerkungen_4", CMR_Bemerkungen_4))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Bemerkungen_5", CMR_Bemerkungen_5))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Vereinbarungen_1", CMR_Vereinbarungen_1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Vereinbarungen_2", CMR_Vereinbarungen_2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Ausgefertigt_in", CMR_Ausgefertigt_in))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Ausgefertigt_am", CMR_Ausgefertigt_am))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Ausgefertigt", CMR_Ausgefertigt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Stempel_Absender_1", CMR_Stempel_Absender_1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Stempel_Absender_2", CMR_Stempel_Absender_2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Stempel_Frachtführer_1", CMR_Stempel_Frachtführer_1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Stempel_Frachtführer_2", CMR_Stempel_Frachtführer_2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Empfangsbestätigung_Datum", CMR_Empfangsbestätigung_Datum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Stempel_Empfänger_1", CMR_Stempel_Empfänger_1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Stempel_Empfänger_2", CMR_Stempel_Empfänger_2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Tarifentfernung_von_1", CMR_Tarifentfernung_von_1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Tarifentfernung_bis_1", CMR_Tarifentfernung_bis_1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Tarifentfernung_km_1", CMR_Tarifentfernung_km_1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Tarifentfernung_von_2", CMR_Tarifentfernung_von_2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Tarifentfernung_bis_2", CMR_Tarifentfernung_bis_2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Tarifentfernung_km_2", CMR_Tarifentfernung_km_2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Tarifentfernung_von_3", CMR_Tarifentfernung_von_3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Tarifentfernung_bis_3", CMR_Tarifentfernung_bis_3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Tarifentfernung_km_3", CMR_Tarifentfernung_km_3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Tarifentfernung_von_4", CMR_Tarifentfernung_von_4))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Tarifentfernung_bis_4", CMR_Tarifentfernung_bis_4))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Tarifentfernung_km_4", CMR_Tarifentfernung_km_4))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Tarifentfernung_von_5", CMR_Tarifentfernung_von_5))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Tarifentfernung_bis_5", CMR_Tarifentfernung_bis_5))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Tarifentfernung_km_5", CMR_Tarifentfernung_km_5))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Kennzeichen_Kfz", CMR_Kennzeichen_Kfz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Nutzlast_Kfz", CMR_Nutzlast_Kfz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Kennzeichen_Anhänger", CMR_Kennzeichen_Anhänger))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Nutzlast_Anhänger", CMR_Nutzlast_Anhänger))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Erstellt_Datum", CMR_Erstellt_Datum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Erstellt_Sachbearbeiter", CMR_Erstellt_Sachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Geändert_Datum", CMR_Geändert_Datum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Geändert_Sachbearbeiter", CMR_Geändert_Sachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Gedruckt_Datum", CMR_Gedruckt_Datum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Gedruckt_Sachbearbeiter", CMR_Gedruckt_Sachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Firma", CMR_Firma))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EPBes_ID", EPBes_ID))
|
||||
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_zeichen_1", CMR_zeichen_1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_zeichen_2", CMR_zeichen_2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_zeichen_3", CMR_zeichen_3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_zeichen_4", CMR_zeichen_4))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_zeichen_5", CMR_zeichen_5))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_zeichen_6", CMR_zeichen_6))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_zeichen_7", CMR_zeichen_7))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_zeichen_8", CMR_zeichen_8))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_zeichen_9", CMR_zeichen_9))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_anzahl_1", CMR_anzahl_1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_anzahl_2", CMR_anzahl_2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_anzahl_3", CMR_anzahl_3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_anzahl_4", CMR_anzahl_4))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_anzahl_5", CMR_anzahl_5))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_anzahl_6", CMR_anzahl_6))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_anzahl_7", CMR_anzahl_7))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_anzahl_8", CMR_anzahl_8))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_anzahl_9", CMR_anzahl_9))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_pkArt_1", CMR_pkArt_1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_pkArt_2", CMR_pkArt_2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_pkArt_3", CMR_pkArt_3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_pkArt_4", CMR_pkArt_4))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_pkArt_5", CMR_pkArt_5))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_pkArt_6", CMR_pkArt_6))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_pkArt_7", CMR_pkArt_7))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_pkArt_8", CMR_pkArt_8))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_pkArt_9", CMR_pkArt_9))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_TblLangKurz", CMR_TblLangKurz))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM CMR WHERE CMR_ID=@CMR_ID ", conn)
|
||||
cmd.Parameters.AddWithValue("@CMR_ID", Me.CMR_ID)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each i In Me.getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(i.Scalarvariable)
|
||||
If dr.Item(i.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(i.Text))
|
||||
End If
|
||||
Next
|
||||
loadValuesInList()
|
||||
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
|
||||
|
||||
|
||||
Sub loadValuesInList()
|
||||
CMRPos.Clear()
|
||||
|
||||
Dim POS As New cCMRPos()
|
||||
POS.Bezeichnung = CMR_Ware_1
|
||||
POS.StatistikNr = CMR_Statistiknr_1
|
||||
POS.Bruttogewicht = CMR_Bruttogewicht_1
|
||||
POS.Umfang = CMR_Umfang_1
|
||||
POS.Zeichen = CMR_zeichen_1
|
||||
POS.Art = CMR_pkArt_1
|
||||
POS.Anzahl = CMR_anzahl_1
|
||||
CMRPos.Add(POS)
|
||||
|
||||
POS = New cCMRPos()
|
||||
POS.Bezeichnung = CMR_Ware_2
|
||||
POS.StatistikNr = CMR_Statistiknr_2
|
||||
POS.Bruttogewicht = CMR_Bruttogewicht_2
|
||||
POS.Umfang = CMR_Umfang_2
|
||||
POS.Zeichen = CMR_zeichen_2
|
||||
POS.Art = CMR_pkArt_2
|
||||
POS.Anzahl = CMR_anzahl_2
|
||||
CMRPos.Add(POS)
|
||||
|
||||
POS = New cCMRPos()
|
||||
POS.Bezeichnung = CMR_Ware_3
|
||||
POS.StatistikNr = CMR_Statistiknr_3
|
||||
POS.Bruttogewicht = CMR_Bruttogewicht_3
|
||||
POS.Umfang = CMR_Umfang_3
|
||||
POS.Zeichen = CMR_zeichen_3
|
||||
POS.Art = CMR_pkArt_3
|
||||
POS.Anzahl = CMR_anzahl_3
|
||||
CMRPos.Add(POS)
|
||||
|
||||
POS = New cCMRPos()
|
||||
POS.Bezeichnung = CMR_Ware_4
|
||||
POS.StatistikNr = CMR_Statistiknr_4
|
||||
POS.Bruttogewicht = CMR_Bruttogewicht_4
|
||||
POS.Umfang = CMR_Umfang_4
|
||||
POS.Zeichen = CMR_zeichen_4
|
||||
POS.Art = CMR_pkArt_4
|
||||
POS.Anzahl = CMR_anzahl_4
|
||||
CMRPos.Add(POS)
|
||||
|
||||
POS = New cCMRPos()
|
||||
POS.Bezeichnung = CMR_Ware_5
|
||||
POS.StatistikNr = CMR_Statistiknr_5
|
||||
POS.Bruttogewicht = CMR_Bruttogewicht_5
|
||||
POS.Umfang = CMR_Umfang_5
|
||||
POS.Zeichen = CMR_zeichen_5
|
||||
POS.Art = CMR_pkArt_5
|
||||
POS.Anzahl = CMR_anzahl_5
|
||||
CMRPos.Add(POS)
|
||||
|
||||
POS = New cCMRPos()
|
||||
POS.Bezeichnung = CMR_Ware_6
|
||||
POS.StatistikNr = CMR_Statistiknr_6
|
||||
POS.Bruttogewicht = CMR_Bruttogewicht_6
|
||||
POS.Umfang = CMR_Umfang_6
|
||||
POS.Zeichen = CMR_zeichen_6
|
||||
POS.Art = CMR_pkArt_6
|
||||
POS.Anzahl = CMR_anzahl_6
|
||||
CMRPos.Add(POS)
|
||||
|
||||
POS = New cCMRPos()
|
||||
POS.Bezeichnung = CMR_Ware_7
|
||||
POS.StatistikNr = CMR_Statistiknr_7
|
||||
POS.Bruttogewicht = CMR_Bruttogewicht_7
|
||||
POS.Umfang = CMR_Umfang_7
|
||||
POS.Zeichen = CMR_zeichen_7
|
||||
POS.Art = CMR_pkArt_7
|
||||
POS.Anzahl = CMR_anzahl_7
|
||||
CMRPos.Add(POS)
|
||||
|
||||
POS = New cCMRPos()
|
||||
POS.Bezeichnung = CMR_Ware_8
|
||||
POS.StatistikNr = CMR_Statistiknr_8
|
||||
POS.Bruttogewicht = CMR_Bruttogewicht_8
|
||||
POS.Umfang = CMR_Umfang_8
|
||||
POS.Zeichen = CMR_zeichen_8
|
||||
POS.Art = CMR_pkArt_8
|
||||
POS.Anzahl = CMR_anzahl_8
|
||||
CMRPos.Add(POS)
|
||||
|
||||
POS = New cCMRPos()
|
||||
POS.Bezeichnung = CMR_Ware_9
|
||||
POS.StatistikNr = CMR_Statistiknr_9
|
||||
POS.Bruttogewicht = CMR_Bruttogewicht_9
|
||||
POS.Umfang = CMR_Umfang_9
|
||||
POS.Zeichen = CMR_zeichen_9
|
||||
POS.Art = CMR_pkArt_9
|
||||
POS.Anzahl = CMR_anzahl_9
|
||||
CMRPos.Add(POS)
|
||||
|
||||
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
|
||||
|
||||
Function ilN(o As Object) As Object
|
||||
If Not o Is Nothing Then
|
||||
If o.ToString <> "" Then
|
||||
Return o
|
||||
End If
|
||||
End If
|
||||
Return Nothing
|
||||
End Function
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
|
||||
If CMRPos.Count > 0 Then
|
||||
CMR_Ware_1 = ilN(CMRPos(0).Bezeichnung)
|
||||
CMR_Statistiknr_1 = ilN(CMRPos(0).StatistikNr)
|
||||
CMR_Bruttogewicht_1 = ilN(CMRPos(0).Bruttogewicht)
|
||||
CMR_Umfang_1 = ilN(CMRPos(0).Umfang)
|
||||
CMR_zeichen_1 = ilN(CMRPos(0).Zeichen)
|
||||
CMR_pkArt_1 = ilN(CMRPos(0).Art)
|
||||
CMR_anzahl_1 = ilN(CMRPos(0).Anzahl)
|
||||
End If
|
||||
If CMRPos.Count > 1 Then
|
||||
CMR_Ware_2 = ilN(CMRPos(1).Bezeichnung)
|
||||
CMR_Statistiknr_2 = ilN(CMRPos(1).StatistikNr)
|
||||
CMR_Bruttogewicht_2 = ilN(CMRPos(1).Bruttogewicht)
|
||||
CMR_Umfang_2 = ilN(CMRPos(1).Umfang)
|
||||
CMR_zeichen_2 = ilN(CMRPos(1).Zeichen)
|
||||
CMR_pkArt_2 = ilN(CMRPos(1).Art)
|
||||
CMR_anzahl_2 = ilN(CMRPos(1).Anzahl)
|
||||
End If
|
||||
If CMRPos.Count > 2 Then
|
||||
CMR_Ware_3 = ilN(CMRPos(2).Bezeichnung)
|
||||
CMR_Statistiknr_3 = ilN(CMRPos(2).StatistikNr)
|
||||
CMR_Bruttogewicht_3 = ilN(CMRPos(2).Bruttogewicht)
|
||||
CMR_Umfang_3 = ilN(CMRPos(2).Umfang)
|
||||
CMR_zeichen_3 = ilN(CMRPos(2).Zeichen)
|
||||
CMR_pkArt_3 = ilN(CMRPos(2).Art)
|
||||
CMR_anzahl_3 = ilN(CMRPos(2).Anzahl)
|
||||
End If
|
||||
If CMRPos.Count > 3 Then
|
||||
CMR_Ware_4 = ilN(CMRPos(3).Bezeichnung)
|
||||
CMR_Statistiknr_4 = ilN(CMRPos(3).StatistikNr)
|
||||
CMR_Bruttogewicht_4 = ilN(CMRPos(3).Bruttogewicht)
|
||||
CMR_Umfang_4 = ilN(CMRPos(3).Umfang)
|
||||
CMR_zeichen_4 = ilN(CMRPos(3).Zeichen)
|
||||
CMR_pkArt_4 = ilN(CMRPos(3).Art)
|
||||
CMR_anzahl_4 = ilN(CMRPos(3).Anzahl)
|
||||
End If
|
||||
If CMRPos.Count > 4 Then
|
||||
CMR_Ware_5 = ilN(CMRPos(4).Bezeichnung)
|
||||
CMR_Statistiknr_5 = ilN(CMRPos(4).StatistikNr)
|
||||
CMR_Bruttogewicht_5 = ilN(CMRPos(4).Bruttogewicht)
|
||||
CMR_Umfang_5 = ilN(CMRPos(4).Umfang)
|
||||
CMR_zeichen_5 = ilN(CMRPos(4).Zeichen)
|
||||
CMR_pkArt_5 = ilN(CMRPos(4).Art)
|
||||
CMR_anzahl_5 = ilN(CMRPos(4).Anzahl)
|
||||
End If
|
||||
If CMRPos.Count > 5 Then
|
||||
CMR_Ware_6 = ilN(CMRPos(5).Bezeichnung)
|
||||
CMR_Statistiknr_6 = ilN(CMRPos(5).StatistikNr)
|
||||
CMR_Bruttogewicht_6 = ilN(CMRPos(5).Bruttogewicht)
|
||||
CMR_Umfang_6 = ilN(CMRPos(5).Umfang)
|
||||
CMR_zeichen_6 = ilN(CMRPos(5).Zeichen)
|
||||
CMR_pkArt_6 = ilN(CMRPos(5).Art)
|
||||
CMR_anzahl_6 = ilN(CMRPos(5).Anzahl)
|
||||
End If
|
||||
If CMRPos.Count > 6 Then
|
||||
CMR_Ware_7 = ilN(CMRPos(6).Bezeichnung)
|
||||
CMR_Statistiknr_7 = ilN(CMRPos(6).StatistikNr)
|
||||
CMR_Bruttogewicht_7 = ilN(CMRPos(6).Bruttogewicht)
|
||||
CMR_Umfang_7 = ilN(CMRPos(6).Umfang)
|
||||
CMR_zeichen_7 = ilN(CMRPos(6).Zeichen)
|
||||
CMR_pkArt_7 = ilN(CMRPos(6).Art)
|
||||
CMR_anzahl_7 = ilN(CMRPos(6).Anzahl)
|
||||
End If
|
||||
If CMRPos.Count > 7 Then
|
||||
CMR_Ware_8 = ilN(CMRPos(7).Bezeichnung)
|
||||
CMR_Statistiknr_8 = ilN(CMRPos(7).StatistikNr)
|
||||
CMR_Bruttogewicht_8 = ilN(CMRPos(7).Bruttogewicht)
|
||||
CMR_Umfang_8 = ilN(CMRPos(7).Umfang)
|
||||
CMR_zeichen_8 = ilN(CMRPos(7).Zeichen)
|
||||
CMR_pkArt_8 = ilN(CMRPos(7).Art)
|
||||
CMR_anzahl_8 = ilN(CMRPos(7).Anzahl)
|
||||
End If
|
||||
If CMRPos.Count > 8 Then
|
||||
CMR_Ware_9 = ilN(CMRPos(8).Bezeichnung)
|
||||
CMR_Statistiknr_9 = ilN(CMRPos(8).StatistikNr)
|
||||
CMR_Bruttogewicht_9 = ilN(CMRPos(8).Bruttogewicht)
|
||||
CMR_Umfang_9 = ilN(CMRPos(8).Umfang)
|
||||
CMR_zeichen_9 = ilN(CMRPos(8).Zeichen)
|
||||
CMR_pkArt_9 = ilN(CMRPos(8).Art)
|
||||
CMR_anzahl_9 = ilN(CMRPos(8).Anzahl)
|
||||
End If
|
||||
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM CMR WITH(updlock,serializable) WHERE CMR_ID=@CMR_ID) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Me.CMR_ID = SQL.doSQLVarListID(Me.CMR_ID, sqlstr, "FMZOLL", True, list)
|
||||
Return CBool(Me.CMR_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 CMR (" & 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 [CMR] WITH(updlock,serializable) WHERE CMR_ID=" & Me.CMR_ID
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
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 [CMR] SET " & str & " WHERE CMR_ID=@CMR_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 cCMRPos
|
||||
Property Zeichen As String = ""
|
||||
Property Anzahl As String = ""
|
||||
Property Art As String = ""
|
||||
Property Bezeichnung As String = ""
|
||||
Property StatistikNr As String = ""
|
||||
Property Bruttogewicht As String = ""
|
||||
Property Umfang As String = ""
|
||||
End Class
|
||||
619
SDL/Classes/cEABeleg.vb
Normal file
619
SDL/Classes/cEABeleg.vb
Normal file
@@ -0,0 +1,619 @@
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Public Class EABelegPositionen
|
||||
Dim SQL As New SQL
|
||||
Property Mandant As String = "XXXX"
|
||||
Property Niederlassung As String = "XXX"
|
||||
Property Benutzer As Integer = -1
|
||||
Property BelegDat As DateTime = Now
|
||||
Property BelegNr As Integer = -1
|
||||
Property PreislistenPos As Integer = -1
|
||||
Property LeistungsNr As Integer = -1
|
||||
Property LeistungsBez As String = ""
|
||||
Property Leistungsbeschreibung As String = ""
|
||||
Property Abfertigungsart As Object = Nothing 'int
|
||||
Property PreislistenNr As Object = Nothing 'int
|
||||
Property PreistabellenNr As Object = Nothing 'int
|
||||
Property Preis As Double = 0
|
||||
Property TW1 As String = Nothing
|
||||
Property TW2 As String = Nothing
|
||||
Property Anzahl As Integer = 1
|
||||
Property Anzahlmultiplikator As Integer = 0
|
||||
Property Betrag As Double = 0
|
||||
Property Preisbindung As Integer = 0
|
||||
Property EABPo_Zeitstempel As DateTime = Now
|
||||
|
||||
Property FilialenNr As Integer = -1
|
||||
Property AbfertigungsNr As Integer = -1
|
||||
|
||||
Public Function SAVE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblEABelegposition WITH(updlock,serializable) WHERE [Mandant]=@Mandant AND Niederlassung=@Niederlassung AND Benutzer=@Benutzer AND BelegNr=@BelegNr AND CAST(BelegDat as date)=@BelegDat AND PreislistenPos=@PreislistenPos AND LeistungsNr=@LeistungsNr AND FilialenNr=@FilialenNr AND AbfertigungsNr=@AbfertigungsNr) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
'MsgBox(sqlstr)
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
|
||||
Public Sub LOAD(Mandant As String, Niederlassung As String, Benutzer As Integer, BelegNr As Integer, BelegDat As Date, PreislistenPos As Integer, LeistungsNr As Integer) ' As EABeleg
|
||||
Try
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM [tblEABelegposition] WHERE [Mandant]=@Mandant AND Niederlassung=@Niederlassung AND Benutzer=@Benutzer AND BelegNr=@BelegNr AND CAST(BelegDat as date)=@BelegDat AND PreislistenPos=@PreislistenPos AND LeistungsNr=@LeistungsNr AND FilialenNr=@FilialenNr AND AbfertigungsNr=@AbfertigungsNr", conn)
|
||||
cmd.Parameters.AddWithValue("@Mandant", Mandant)
|
||||
cmd.Parameters.AddWithValue("@Niederlassung", Niederlassung)
|
||||
cmd.Parameters.AddWithValue("@Benutzer", Benutzer)
|
||||
cmd.Parameters.AddWithValue("@BelegNr", BelegNr)
|
||||
cmd.Parameters.AddWithValue("@BelegDat", BelegDat)
|
||||
cmd.Parameters.AddWithValue("@PreislistenPos", PreislistenPos)
|
||||
cmd.Parameters.AddWithValue("@LeistungsNr", LeistungsNr)
|
||||
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
Me.Mandant = cSqlDb.checkNullStr(dr.Item("Mandant"))
|
||||
Me.Niederlassung = cSqlDb.checkNullStr(dr.Item("Niederlassung"))
|
||||
Me.Benutzer = cSqlDb.checkNullStr(dr.Item("Benutzer"))
|
||||
Me.BelegDat = cSqlDb.checkNullDate(dr.Item("BelegDat"))
|
||||
Me.BelegNr = cSqlDb.checkNullInteger(dr.Item("BelegNr"))
|
||||
|
||||
Me.PreislistenPos = cSqlDb.checkNullInteger(dr.Item("PreislistenPos"))
|
||||
Me.LeistungsNr = cSqlDb.checkNullInteger(dr.Item("LeistungsNr"))
|
||||
Me.LeistungsBez = cSqlDb.checkNullStr(dr.Item("LeistungsBez"))
|
||||
Me.Leistungsbeschreibung = cSqlDb.checkNullStr(dr.Item("Leistungsbeschreibung"))
|
||||
Me.Abfertigungsart = cSqlDb.checkNullInteger(dr.Item("Abfertigungsart"))
|
||||
Me.PreislistenNr = cSqlDb.checkNullInteger(dr.Item("PreislistenNr"))
|
||||
Me.PreistabellenNr = cSqlDb.checkNullInteger(dr.Item("PreistabellenNr"))
|
||||
Me.Preis = cSqlDb.checkNulDbl(dr.Item("Preis"))
|
||||
Me.TW1 = cSqlDb.checkNullStr(dr.Item("TW1"))
|
||||
Me.TW2 = cSqlDb.checkNullStr(dr.Item("TW2"))
|
||||
Me.Anzahl = cSqlDb.checkNullInteger(dr.Item("Anzahl"))
|
||||
Me.Anzahlmultiplikator = cSqlDb.checkNullStr(dr.Item("Anzahlmultiplikator"))
|
||||
Me.Betrag = cSqlDb.checkNulDbl(dr.Item("Betrag"))
|
||||
' MsgBox(cSqlDb.checkNulDbl(dr.Item("Betrag"))
|
||||
|
||||
Me.Preisbindung = cSqlDb.checkNullBool(dr.Item("Preisbindung"))
|
||||
Me.EABPo_Zeitstempel = cSqlDb.checkNullStr(dr.Item("EABPo_Zeitstempel"))
|
||||
|
||||
Me.FilialenNr = cSqlDb.checkNullInteger(dr.Item("FilialenNr"))
|
||||
Me.AbfertigungsNr = cSqlDb.checkNullInteger(dr.Item("AbfertigungsNr"))
|
||||
|
||||
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
'Return Nothing
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
' Return Nothing
|
||||
End Sub
|
||||
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem2)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Mandant", Mandant))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Niederlassung", Niederlassung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Benutzer", Benutzer))
|
||||
' list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("BelegDat", BelegDat.ToString("yyyy-MM-dd HH:mm:ss.fff"))) '.ToShortDateString))'("dd.MM.yyyy HH:mm")))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("BelegDat", BelegDat.ToShortDateString)) '.ToShortDateString))'("dd.MM.yyyy HH:mm")))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("BelegNr", BelegNr))
|
||||
|
||||
|
||||
' MsgBox(Mandant)
|
||||
' MsgBox(Niederlassung)
|
||||
' MsgBox(Benutzer)
|
||||
'MsgBox(BelegDat)
|
||||
' MsgBox(BelegNr)
|
||||
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("PreislistenPos", PreislistenPos))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("LeistungsNr", LeistungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("LeistungsBez", LeistungsBez))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Leistungsbeschreibung", Leistungsbeschreibung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Abfertigungsart", Abfertigungsart))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("PreislistenNr", PreislistenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("PreistabellenNr", PreistabellenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Preis", Preis))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("TW1", TW1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("TW2", TW2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Anzahl", Anzahl))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Anzahlmultiplikator", Anzahlmultiplikator))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Betrag", Betrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Preisbindung", Preisbindung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("FilialenNr", FilialenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("AbfertigungsNr", AbfertigungsNr))
|
||||
|
||||
|
||||
' list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("EABPo_Zeitstempel", EABPo_Zeitstempel))
|
||||
'For Each p As System.Reflection.PropertyInfo In Me.GetType().GetProperties()
|
||||
'If p.CanRead Then
|
||||
'Dim name = p.Name
|
||||
' list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2(name, p.GetValue(Me, Nothing)))
|
||||
' End If
|
||||
' Next
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
str &= "[" & i.Text & "] = @" & i.Text.Replace("-", "").Replace(" ", "") & ","
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE tblEABelegposition SET " & str & " WHERE [Mandant]=@Mandant AND Niederlassung=@Niederlassung AND Benutzer=@Benutzer AND BelegNr=@BelegNr AND CAST(BelegDat as date)=@BelegDat AND PreislistenPos=@PreislistenPos AND LeistungsNr=@LeistungsNr AND FilialenNr=@FilialenNr AND AbfertigungsNr=@AbfertigungsNr")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Text.Replace("-", "").Replace(" ", "") & ","
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO tblEABelegposition (" & 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 UPDATE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
str &= "[" & i.Text & "] = @" & i.Text.Replace("-", "").Replace(" ", "") & ","
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Dim sqlstr = (" UPDATE tblEABelegposition SET " & str & " WHERE [Mandant]=@Mandant AND Niederlassung=@Niederlassung AND Benutzer=@Benutzer AND BelegNr=@BelegNr AND CAST(BelegDat as date)=@BelegDat AND PreislistenPos=@PreislistenPos AND LeistungsNr=@LeistungsNr AND FilialenNr=@FilialenNr AND AbfertigungsNr=@AbfertigungsNr")
|
||||
|
||||
Using cmd As New SqlCommand(sqlstr, cSqlDb.GetNewOpenConnectionFMZOLL())
|
||||
For Each i In list
|
||||
cmd.Parameters.AddWithValue("@" & i.Text.Replace("-", "").Replace(" ", "") & "", IIf(i.Value Is Nothing, DBNull.Value, i.Value))
|
||||
Next
|
||||
cmd.ExecuteNonQuery()
|
||||
End Using
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Public Function INSERT() 'obj As Object, tablename As String, Optional conn_art As String = "SDL") As Boolean
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Text.Replace("-", "").Replace(" ", "") & ","
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Dim sqlstr = (" INSERT INTO tblEABelegposition (" & str & ") VALUES(" & values & ") ")
|
||||
MsgBox(sqlstr)
|
||||
Using cmd As New SqlCommand(sqlstr, cSqlDb.GetNewOpenConnectionFMZOLL())
|
||||
For Each i In list
|
||||
cmd.Parameters.AddWithValue("@" & i.Text.Replace("-", "").Replace(" ", "") & "", IIf(i.Value Is Nothing, DBNull.Value, i.Value))
|
||||
Next
|
||||
cmd.ExecuteNonQuery()
|
||||
End Using
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return False
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
Public Class EABeleg
|
||||
Dim SQL As New SQL
|
||||
|
||||
Property Mandant As String = "XXXX"
|
||||
Property Niederlassung As String = "XXX"
|
||||
Property Benutzer As Integer = -1
|
||||
Property BelegDat As DateTime = Now
|
||||
Property BelegNr As Integer = -1
|
||||
Property Belegart As Integer = 1
|
||||
Property FilialenNr As Integer = -1
|
||||
Property AbfertigungsNr As Integer = -1
|
||||
Property Ordnungsbegriff As String = ""
|
||||
Property KundenNr As Integer = -1
|
||||
Property Name1 As String = ""
|
||||
Property Name2 As String = ""
|
||||
Property Straße As String = ""
|
||||
Property LandKz As String = ""
|
||||
Property PLZ As String = ""
|
||||
Property Ort As String = ""
|
||||
Property UstIdKz As String = ""
|
||||
Property UstIdNr As String = ""
|
||||
Property Frachtführer As String = ""
|
||||
Property FrachtführerKundenNr As Integer = -1
|
||||
Property LKW_Kennzeichen As String = ""
|
||||
Property Fahrer As String = ""
|
||||
Property Passnummer As String = ""
|
||||
Property PreislistenNr As String = ""
|
||||
Property Steuerschlüssel As String = ""
|
||||
Property DruckDatumUhrzeit As Object = Nothing
|
||||
Property storniert As Boolean = False
|
||||
Property Stornogrund As String = ""
|
||||
Property gebucht As Boolean = False
|
||||
Property gebuchtStorno As Boolean = False
|
||||
Property SgutKompl As Object = Nothing
|
||||
Property rksv_id As Integer = Nothing
|
||||
Property rksv_BelegId As Integer = Nothing
|
||||
Property rksv_jws As String = Nothing
|
||||
Property rksv_qr As String = Nothing
|
||||
Property rksv_umsatz As Double = Nothing
|
||||
Property rksv_aktiv As Boolean = False
|
||||
Property Beleg_TYP As String = Nothing
|
||||
Property Auftraggeber_KdAuftragsnummer As Object = Nothing
|
||||
Property Auftraggeber_Provision As Object = Nothing
|
||||
|
||||
Property LKW_Id As Object = Nothing
|
||||
Property LKW_Beleg As Object = Nothing
|
||||
Property Benutzer_LG As Object = Nothing
|
||||
|
||||
|
||||
Property POS As New List(Of EABelegPositionen)
|
||||
|
||||
Public Sub New(Mandant As String, Niederlassung As String, Benutzer As Integer)
|
||||
Me.Mandant = Mandant
|
||||
Me.Niederlassung = Niederlassung
|
||||
Me.Benutzer = Benutzer
|
||||
End Sub
|
||||
|
||||
Public Sub New(op As String, Mandant As String, Niederlassung As String, Benutzer As Integer, BelegNr As Integer, BelegDat As Date)
|
||||
Select Case op
|
||||
Case "LOAD" : LOAD(Mandant, Niederlassung, Benutzer, BelegNr, BelegDat)
|
||||
Case "INSERT"
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Public Sub LOAD(Mandant As String, Niederlassung As String, Benutzer As Integer, BelegNr As Integer, BelegDat As Date, Optional loadPosAswell As Boolean = True) ' As EABeleg
|
||||
Try
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM [tblEABelegnummer] WHERE [Mandant]=@Mandant AND Niederlassung=@Niederlassung AND Benutzer=@Benutzer AND BelegNr=@BelegNr AND CAST(BelegDat as date)=@BelegDat", conn)
|
||||
cmd.Parameters.AddWithValue("@Mandant", Mandant)
|
||||
cmd.Parameters.AddWithValue("@Niederlassung", Niederlassung)
|
||||
cmd.Parameters.AddWithValue("@Benutzer", Benutzer)
|
||||
cmd.Parameters.AddWithValue("@BelegNr", BelegNr)
|
||||
cmd.Parameters.AddWithValue("@BelegDat", BelegDat.ToShortDateString)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
|
||||
Me.Mandant = cSqlDb.checkNullStr(dr.Item("Mandant"))
|
||||
Me.Niederlassung = cSqlDb.checkNullStr(dr.Item("Niederlassung"))
|
||||
Me.Benutzer = cSqlDb.checkNullInteger(dr.Item("Benutzer"))
|
||||
Me.BelegDat = cSqlDb.checkNullDate(dr.Item("BelegDat"))
|
||||
Me.BelegNr = cSqlDb.checkNullInteger(dr.Item("BelegNr"))
|
||||
Me.Belegart = cSqlDb.checkNullInteger(dr.Item("Belegart"))
|
||||
Me.FilialenNr = cSqlDb.checkNullInteger(dr.Item("FilialenNr"))
|
||||
Me.AbfertigungsNr = cSqlDb.checkNullInteger(dr.Item("AbfertigungsNr"))
|
||||
Me.Ordnungsbegriff = cSqlDb.checkNullStr(dr.Item("Ordnungsbegriff"))
|
||||
Me.KundenNr = cSqlDb.checkNullInteger(dr.Item("KundenNr"))
|
||||
Me.Name1 = cSqlDb.checkNullStr(dr.Item("Name1"))
|
||||
Me.Name2 = cSqlDb.checkNullStr(dr.Item("Name2"))
|
||||
Me.Straße = cSqlDb.checkNullStr(dr.Item("Straße"))
|
||||
Me.LandKz = cSqlDb.checkNullStr(dr.Item("LandKz"))
|
||||
Me.PLZ = cSqlDb.checkNullStr(dr.Item("PLZ"))
|
||||
Me.Ort = cSqlDb.checkNullStr(dr.Item("Ort"))
|
||||
Me.UstIdKz = cSqlDb.checkNullStr(dr.Item("UstIdKz"))
|
||||
Me.UstIdNr = cSqlDb.checkNullStr(dr.Item("UstIdNr"))
|
||||
Me.Frachtführer = cSqlDb.checkNullStr(dr.Item("Frachtführer"))
|
||||
Me.FrachtführerKundenNr = cSqlDb.checkNullInteger(dr.Item("FrachtführerKundenNr"))
|
||||
Me.LKW_Kennzeichen = cSqlDb.checkNullStr(dr.Item("LKW Kennzeichen"))
|
||||
Me.Fahrer = cSqlDb.checkNullStr(dr.Item("Fahrer"))
|
||||
Me.Passnummer = cSqlDb.checkNullStr(dr.Item("Passnummer"))
|
||||
Me.PreislistenNr = cSqlDb.checkNullInteger(dr.Item("PreislistenNr"))
|
||||
Me.Steuerschlüssel = cSqlDb.checkNullInteger(dr.Item("Steuerschlüssel"))
|
||||
Me.DruckDatumUhrzeit = cSqlDb.checkNullDateNothing(dr.Item("DruckDatumUhrzeit"))
|
||||
Me.storniert = cSqlDb.checkNullStr(dr.Item("storniert"))
|
||||
Me.Stornogrund = cSqlDb.checkNullStr(dr.Item("Stornogrund"))
|
||||
Me.gebucht = cSqlDb.checkNullBool(dr.Item("gebucht"))
|
||||
Me.gebuchtStorno = cSqlDb.checkNullBool(dr.Item("gebuchtStorno"))
|
||||
Me.SgutKompl = cSqlDb.checkNullReturnValue(dr.Item("SgutKompl"), Nothing)
|
||||
Me.rksv_BelegId = cSqlDb.checkNullReturnValue(dr.Item("rksv_BelegId"), Nothing)
|
||||
Me.rksv_id = cSqlDb.checkNullReturnValue(dr.Item("rksv_id"), Nothing)
|
||||
|
||||
Me.rksv_jws = cSqlDb.checkNullReturnValue(dr.Item("rksv_jws"), Nothing)
|
||||
Me.rksv_qr = cSqlDb.checkNullReturnValue(dr.Item("rksv_qr"), Nothing)
|
||||
Me.rksv_umsatz = cSqlDb.checkNullReturnValue(dr.Item("rksv_umsatz"), Nothing)
|
||||
Me.rksv_aktiv = cSqlDb.checkNullReturnValue(dr.Item("rksv_aktiv"), False)
|
||||
Me.Beleg_TYP = cSqlDb.checkNullReturnValue(dr.Item("Beleg_TYP"), Nothing)
|
||||
|
||||
Me.Auftraggeber_KdAuftragsnummer = cSqlDb.checkNullReturnValue(dr.Item("Auftraggeber_KdAuftragsnummer"), Nothing)
|
||||
Me.Auftraggeber_Provision = cSqlDb.checkNullReturnValue(dr.Item("Auftraggeber_Provision"), Nothing)
|
||||
Me.LKW_Id = cSqlDb.checkNullReturnValue(dr.Item("LKW_Id"), Nothing)
|
||||
Me.LKW_Beleg = cSqlDb.checkNullReturnValue(dr.Item("LKW_Beleg"), Nothing)
|
||||
Me.Benutzer_LG = cSqlDb.checkNullReturnValue(dr.Item("Benutzer_LG"), Nothing)
|
||||
|
||||
If loadPosAswell Then POS = LOAD_POS_List(Mandant, Niederlassung, Benutzer, BelegNr, BelegDat)
|
||||
' MsgBox(POS.Count)
|
||||
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
'Return Nothing
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
' Return Nothing
|
||||
|
||||
End Sub
|
||||
|
||||
Public Function LOAD_POS_List(Mandant As String, Niederlassung As String, Benutzer As Integer, BelegNr As Integer, BelegDat As Date) As List(Of EABelegPositionen)
|
||||
Dim ll As New List(Of EABelegPositionen)
|
||||
Try
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM [tblEABelegposition] WHERE [Mandant]=@Mandant AND Niederlassung=@Niederlassung AND Benutzer=@Benutzer AND BelegNr=@BelegNr AND CAST(BelegDat as date)=@BelegDat ", conn)
|
||||
cmd.Parameters.AddWithValue("@Mandant", Mandant)
|
||||
cmd.Parameters.AddWithValue("@Niederlassung", Niederlassung)
|
||||
cmd.Parameters.AddWithValue("@Benutzer", Benutzer)
|
||||
cmd.Parameters.AddWithValue("@BelegNr", BelegNr)
|
||||
cmd.Parameters.AddWithValue("@BelegDat", BelegDat.ToShortDateString)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New EABelegPositionen
|
||||
l.Mandant = cSqlDb.checkNullStr(dr.Item("Mandant"))
|
||||
l.Niederlassung = cSqlDb.checkNullStr(dr.Item("Niederlassung"))
|
||||
l.Benutzer = cSqlDb.checkNullStr(dr.Item("Benutzer"))
|
||||
l.BelegDat = cSqlDb.checkNullDate(dr.Item("BelegDat"))
|
||||
l.BelegNr = cSqlDb.checkNullStr(dr.Item("BelegNr"))
|
||||
|
||||
l.PreislistenPos = cSqlDb.checkNullInteger(dr.Item("PreislistenPos"))
|
||||
l.LeistungsNr = cSqlDb.checkNullInteger(dr.Item("LeistungsNr"))
|
||||
l.LeistungsBez = cSqlDb.checkNullStr(dr.Item("LeistungsBez"))
|
||||
l.Leistungsbeschreibung = cSqlDb.checkNullStr(dr.Item("Leistungsbeschreibung"))
|
||||
l.Abfertigungsart = cSqlDb.checkNullInteger(dr.Item("Abfertigungsart"))
|
||||
l.PreislistenNr = cSqlDb.checkNullInteger(dr.Item("PreislistenNr"))
|
||||
l.PreistabellenNr = cSqlDb.checkNullInteger(dr.Item("PreistabellenNr"))
|
||||
l.Preis = cSqlDb.checkNulDbl(dr.Item("Preis"))
|
||||
l.TW1 = cSqlDb.checkNullStr(dr.Item("TW1"))
|
||||
l.TW2 = cSqlDb.checkNullStr(dr.Item("TW2"))
|
||||
l.Anzahl = cSqlDb.checkNullInteger(dr.Item("Anzahl"))
|
||||
l.Anzahlmultiplikator = cSqlDb.checkNullStr(dr.Item("Anzahlmultiplikator"))
|
||||
l.Betrag = cSqlDb.checkNulDbl(dr.Item("Betrag"))
|
||||
l.Preisbindung = cSqlDb.checkNullBool(dr.Item("Preisbindung"))
|
||||
l.EABPo_Zeitstempel = cSqlDb.checkNullStr(dr.Item("EABPo_Zeitstempel"))
|
||||
l.AbfertigungsNr = cSqlDb.checkNullInteger(dr.Item("AbfertigungsNr"))
|
||||
l.FilialenNr = cSqlDb.checkNullInteger(dr.Item("FilialenNr"))
|
||||
ll.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
|
||||
Return ll
|
||||
End Function
|
||||
|
||||
Public Function SAVE(Optional savePOSaswell As Boolean = True) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim list = getParameterList()
|
||||
If Me.BelegNr < 0 Then
|
||||
Me.BelegNr = SQL.getValueTxtBySql("SELECT isNull(MAX(BelegNr)+1,1) as BelegNr FROM tblEABelegnummer WHERE [Mandant]=@Mandant AND Niederlassung=@Niederlassung AND Benutzer=@Benutzer ", "FMZOLL", list)
|
||||
For Each p In Me.POS : p.BelegNr = BelegNr : Next ' Alle POS durchlaufen, BelgNr ersetzen
|
||||
list = getParameterList() 'BelegNr neu laden
|
||||
End If
|
||||
|
||||
SQL.doSQL(" BEGIN TRAN IF EXISTS(SELECT * FROM tblEABelegnummer WITH(updlock,serializable) WHERE [Mandant]=@Mandant AND Niederlassung=@Niederlassung AND Benutzer=@Benutzer AND BelegNr=@BelegNr AND CAST(BelegDat as date)=@BelegDat ) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" ELSE " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" COMMIT TRAN", "FMZOLL", , list)
|
||||
' MsgBox(POS.Count)
|
||||
If savePOSaswell Then SAVE_POS_List()
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Public Function SAVE_POS_List() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
If POS.Count = 0 Then Return True
|
||||
Dim b As Boolean = True
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
|
||||
|
||||
SQL.doSQL(" DELETE FROM tblEABelegposition WHERE [Mandant]=@Mandant AND Niederlassung=@Niederlassung AND Benutzer=@Benutzer AND BelegNr=@BelegNr AND CAST(BelegDat as date)=@BelegDat ", "FMZOLL", , list)
|
||||
|
||||
For Each p In POS
|
||||
If p.SAVE() = False Then b = False
|
||||
Next
|
||||
Return b
|
||||
End Function
|
||||
|
||||
Public Function DEL_POS_List() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
If POS.Count = 0 Then Return True
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
|
||||
Return SQL.doSQL(" DELETE FROM tblEABelegposition WHERE [Mandant]=@Mandant AND Niederlassung=@Niederlassung AND Benutzer=@Benutzer AND BelegNr=@BelegNr AND CAST(BelegDat as date)=@BelegDat ", "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
DEL_POS_List()
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
|
||||
Return SQL.doSQL(" DELETE FROM tblEABelegnummer WHERE [Mandant]=@Mandant AND Niederlassung=@Niederlassung AND Benutzer=@Benutzer AND BelegNr=@BelegNr AND CAST(BelegDat as date)=@BelegDat ", "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String 'obj As Object, tablename As String, Optional conn_art As String = "SDL") As Boolean
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
Dim name = i.Text
|
||||
If name = "LKWKennzeichen" Then name = "LKW Kennzeichen"
|
||||
str &= "[" & name & "],"
|
||||
values &= "@" & i.Text.Replace("-", "").Replace(" ", "") & ","
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO tblEABelegnummer (" & 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
|
||||
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem2)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Mandant", Mandant))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Niederlassung", Niederlassung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Benutzer", Benutzer))
|
||||
' list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("BelegDat", BelegDat.ToString("yyyy-MM-dd HH:mm:ss.fff"))) '.ToString("dd.MM.yyyy HH:mm")))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("BelegDat", BelegDat.ToShortDateString)) '.ToString("dd.MM.yyyy HH:mm")))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("BelegNr", BelegNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Belegart", Belegart))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("FilialenNr", FilialenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("AbfertigungsNr", AbfertigungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Ordnungsbegriff", Ordnungsbegriff))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("KundenNr", KundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Name1", Name1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Name2", Name2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Straße", Straße))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("LandKz", LandKz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("PLZ", PLZ))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Ort", Ort))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("UstIdKz", UstIdKz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("UstIdNr", UstIdNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Frachtführer", Frachtführer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("FrachtführerKundenNr", FrachtführerKundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("LKWKennzeichen", LKW_Kennzeichen))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Fahrer", Fahrer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Passnummer", Passnummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("PreislistenNr", PreislistenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Steuerschlüssel", Steuerschlüssel))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("DruckDatumUhrzeit", IIf(DruckDatumUhrzeit Is Nothing, DBNull.Value, CDate(DruckDatumUhrzeit))))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("storniert", storniert))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Stornogrund", Stornogrund))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("gebucht", gebucht))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("gebuchtStorno", gebuchtStorno))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("SgutKompl", SgutKompl))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_id", rksv_id))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_BelegId", rksv_BelegId))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_jws", rksv_jws))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_qr", rksv_qr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_umsatz", rksv_umsatz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_aktiv", rksv_aktiv))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Beleg_TYP", Beleg_TYP))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Auftraggeber_KdAuftragsnummer", Auftraggeber_KdAuftragsnummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Auftraggeber_Provision", Auftraggeber_Provision))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("LKW_Id", LKW_Id))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("LKW_Beleg", LKW_Beleg))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Benutzer_LG", Benutzer_LG))
|
||||
|
||||
'For Each p As System.Reflection.PropertyInfo In Me.GetType().GetProperties()
|
||||
'If p.CanRead Then
|
||||
'Dim name = p.Name
|
||||
' If name = "LKW_Kennzeichen" Then name = "LKW Kennzeichen"
|
||||
' list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2(name, p.GetValue(Me, Nothing)))
|
||||
' End If
|
||||
' Next
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Public Function getUpdateCmd() As String 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
Dim name = i.Text
|
||||
If name = "LKWKennzeichen" Then name = "LKW Kennzeichen"
|
||||
str &= "[" & name & "] = @" & i.Text.Replace("-", "").Replace(" ", "") & ","
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE tblEABelegnummer SET " & str & " WHERE [Mandant]=@Mandant AND Niederlassung=@Niederlassung AND Benutzer=@Benutzer AND BelegNr=@BelegNr AND CAST(BelegDat as date)=@BelegDat ")
|
||||
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 INSERT() 'obj As Object, tablename As String, Optional conn_art As String = "SDL") As Boolean
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
Dim name = i.Text
|
||||
If name = "LKWKennzeichen" Then name = "LKW Kennzeichen"
|
||||
str &= "[" & name & "],"
|
||||
values &= "@" & i.Text.Replace("-", "").Replace(" ", "") & ","
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Dim sqlstr = (" INSERT INTO tblEABelegnummer (" & str & ") VALUES(" & values & ") ")
|
||||
|
||||
Using cmd As New SqlCommand(sqlstr, cSqlDb.GetNewOpenConnectionFMZOLL())
|
||||
For Each i In list
|
||||
cmd.Parameters.AddWithValue("@" & i.Text.Replace("-", "").Replace(" ", "") & "", IIf(i.Value Is Nothing, DBNull.Value, i.Value))
|
||||
Next
|
||||
cmd.ExecuteNonQuery()
|
||||
End Using
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Public Function UPDATE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
Dim name = i.Text
|
||||
If name = "LKWKennzeichen" Then name = "LKW Kennzeichen"
|
||||
str &= "[" & name & "] = @" & i.Text.Replace("-", "").Replace(" ", "") & ","
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Dim sqlstr = (" UPDATE tblEABelegnummer SET " & str & " WHERE [Mandant]=@Mandant AND Niederlassung=@Niederlassung AND Benutzer=@Benutzer AND BelegNr=@BelegNr AND CAST(BelegDat as date)=@BelegDat ")
|
||||
|
||||
Using cmd As New SqlCommand(sqlstr, cSqlDb.GetNewOpenConnectionFMZOLL())
|
||||
For Each i In list
|
||||
cmd.Parameters.AddWithValue("@" & i.Text.Replace("-", "").Replace(" ", "") & "", IIf(i.Value Is Nothing, DBNull.Value, i.Value))
|
||||
Next
|
||||
cmd.ExecuteNonQuery()
|
||||
End Using
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return False
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
138
SDL/Classes/cEP0735_Versand.vb
Normal file
138
SDL/Classes/cEP0735_Versand.vb
Normal file
@@ -0,0 +1,138 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cEP0735_Versand
|
||||
Property ID As Integer
|
||||
Property TicketNr As Object = Nothing
|
||||
Property ANMELDUNG1 As Object = Nothing
|
||||
Property ANMELDUNG2 As Object = Nothing
|
||||
Property VersenderAusführerNr As Object = Nothing
|
||||
Property VersenderAusführer As Object = Nothing
|
||||
Property Vordrucke1 As Object = Nothing
|
||||
Property Vordrucke2 As Object = Nothing
|
||||
Property Positionen As Object = Nothing
|
||||
Property PackstückeInsgesamt As Object = Nothing
|
||||
Property EmpfängerNr As Object = Nothing
|
||||
Property Empfänger As Object = Nothing
|
||||
Property Handelsland As Object = Nothing
|
||||
Property AnmelderVertreterNr As Object = Nothing
|
||||
Property Anmelder As Object = Nothing
|
||||
Property Vertreter As Object = Nothing
|
||||
Property VersendungsAusfuhrland As Object = Nothing
|
||||
Property VersendungsAusfuhrlandCode As Object = Nothing
|
||||
Property Ursprungsland As Object = Nothing
|
||||
Property BestimmungslandCodeA As Object = Nothing
|
||||
Property BestimmungslandCodeB As Object = Nothing
|
||||
Property KennzeichenAbgang As Object = Nothing
|
||||
Property StaatszugehörigkeitAbgang As Object = Nothing
|
||||
Property Container As Object = Nothing
|
||||
Property LieferbedingungCode As Object = Nothing
|
||||
Property Lieferbedingung As Object = Nothing
|
||||
Property KennzeichenGrenze As Object = Nothing
|
||||
Property StaatszugehörigkeitGrenze As Object = Nothing
|
||||
Property Ladeort As Object = Nothing
|
||||
Property Währung As Object = Nothing
|
||||
Property Rechnungsbetrag As Object = Nothing
|
||||
Property Umrechnungskurs As Object = Nothing
|
||||
Property Geschäftsart As Object = Nothing
|
||||
Property VerkehrszweigGrenze As Object = Nothing
|
||||
Property InländischerVerkehrszweig As Object = Nothing
|
||||
Property Entladeort As Object = Nothing
|
||||
Property Eingangszollstelle As Object = Nothing
|
||||
Property Warenort As Object = Nothing
|
||||
Property Packstücke As Object = Nothing
|
||||
Property Warenbezeichnung As Object = Nothing
|
||||
Property PositionsNr As Object = Nothing
|
||||
Property Warennummer1 As Object = Nothing
|
||||
Property Warennummer2 As Object = Nothing
|
||||
Property Warennummer3 As Object = Nothing
|
||||
Property Warennummer4 As Object = Nothing
|
||||
Property Warennummer5 As Object = Nothing
|
||||
Property UrsprungslandCode As Object = Nothing
|
||||
Property Rohmasse As Object = Nothing
|
||||
Property Präferenz As Object = Nothing
|
||||
Property Verfahren As Object = Nothing
|
||||
Property Eigenmasse As Object = Nothing
|
||||
Property Kontingent As Object = Nothing
|
||||
Property SumAnmeldungVorpapier As Object = Nothing
|
||||
Property BesondereMasseinheit As Object = Nothing
|
||||
Property Vorsteuerabzug As Object = Nothing
|
||||
Property BesondereVermerke As Object = Nothing
|
||||
Property BesondereVermerkeZeile1 As Object = Nothing
|
||||
Property BesondereVermerkeBetrag1 As Object = Nothing
|
||||
Property BesondereVermerkeHinweis1 As Object = Nothing
|
||||
Property BesondereVermerkeZeile2 As Object = Nothing
|
||||
Property BesondereVermerkeBetrag2 As Object = Nothing
|
||||
Property BesondereVermerkeHinweis2 As Object = Nothing
|
||||
Property BesondereVermerkeZeile3 As Object = Nothing
|
||||
Property BesondereVermerkeBetrag3 As Object = Nothing
|
||||
Property BesondereVermerkeHinweis3 As Object = Nothing
|
||||
Property StatistischerWert As Object = Nothing
|
||||
Property Summe As Object = Nothing
|
||||
Property Zahlungsaufschub As Object = Nothing
|
||||
Property Lagerbezeichnung As Object = Nothing
|
||||
Property AngabenFürVerbuchungszwecke As Object = Nothing
|
||||
Property Ort As Object = Nothing
|
||||
Property Datum As Object = Nothing
|
||||
Property Unterschrift As Object = Nothing
|
||||
Property ErstelltDatum As Object = Nothing
|
||||
Property ErstelltSachbearbeiter As Object = Nothing
|
||||
Property GeändertDatum As Object = Nothing
|
||||
Property GeändertSachbearbeiter As Object = Nothing
|
||||
Property GedrucktDatum As Object = Nothing
|
||||
Property GedrucktSachbearbeiter As Object = Nothing
|
||||
Property FilialenNr As Object = Nothing
|
||||
Property AbfertigungsNr As Object = Nothing
|
||||
Property UnterNr As Object = Nothing
|
||||
Property Formular As Object = Nothing
|
||||
Property Zulassungsinhaber As Object = Nothing
|
||||
Property Bewilligungsnummer As Object = Nothing
|
||||
Property Ordnungsnummer As Object = Nothing
|
||||
Property Rechnungspositionsbetrag As Object = Nothing
|
||||
Property ANMELDUNG3 As Object = Nothing
|
||||
Property Ladelisten As Object = Nothing
|
||||
Property Bestimmungsland As Object = Nothing
|
||||
Property Hauptverpflichteter As Object = Nothing
|
||||
Property HauptverpflichteterVertretenDurch As Object = Nothing
|
||||
Property HauptverpflichteterOrtDatum As Object = Nothing
|
||||
Property Durchgangszollstelle1 As Object = Nothing
|
||||
Property Durchgangszollstelle2 As Object = Nothing
|
||||
Property Durchgangszollstelle3 As Object = Nothing
|
||||
Property Durchgangszollstelle4 As Object = Nothing
|
||||
Property Durchgangszollstelle5 As Object = Nothing
|
||||
Property Durchgangszollstelle6 As Object = Nothing
|
||||
Property Sicherheit1 As Object = Nothing
|
||||
Property Sicherheit2 As Object = Nothing
|
||||
Property SicherheitCode As Object = Nothing
|
||||
Property Bestimmungsstelle As Object = Nothing
|
||||
Property HauptverpflichteterNr As Object = Nothing
|
||||
Property Skontobetrag As Object = Nothing
|
||||
Property Artikelpreis As Object = Nothing
|
||||
|
||||
Property POS As New List(Of cEP0735_Versand_Pos)
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
Public Class cEP0735_Versand_Pos
|
||||
Property Packstücke As Object = Nothing
|
||||
Property Warenbezeichnung As Object = Nothing
|
||||
Property PositionsNr As Object = Nothing
|
||||
Property Warennummer1 As Object = Nothing
|
||||
Property Warennummer2 As Object = Nothing
|
||||
Property Warennummer3 As Object = Nothing
|
||||
Property Warennummer4 As Object = Nothing
|
||||
Property Warennummer5 As Object = Nothing
|
||||
Property UrsprungslandCode As Object = Nothing
|
||||
Property Rohmasse As Object = Nothing
|
||||
Property Präferenz As Object = Nothing
|
||||
Property Verfahren As Object = Nothing
|
||||
Property Eigenmasse As Object = Nothing
|
||||
Property Kontingent As Object = Nothing
|
||||
Property SumAnmeldungVorpapier As Object = Nothing
|
||||
Property BesondereMasseinheit As Object = Nothing
|
||||
Property Vorsteuerabzug As Object = Nothing
|
||||
Property BesondereVermerke As Object = Nothing
|
||||
|
||||
|
||||
End Class
|
||||
621
SDL/Classes/cEPBes.vb
Normal file
621
SDL/Classes/cEPBes.vb
Normal file
@@ -0,0 +1,621 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cEPBes
|
||||
Property ID As Integer
|
||||
Property ANMELDUNG1 As Object = Nothing
|
||||
Property ANMELDUNG2 As Object = Nothing
|
||||
Property VersenderAusführerNr As Object = Nothing
|
||||
Property VersenderAusführer As Object = Nothing
|
||||
Property Vordrucke1 As Object = Nothing
|
||||
Property Vordrucke2 As Object = Nothing
|
||||
Property Positionen As Object = Nothing
|
||||
Property EmpfängerNr As Object = Nothing
|
||||
Property Empfänger As Object = Nothing
|
||||
Property Handelsland As Object = Nothing
|
||||
Property AnmelderVertreterNr As Object = Nothing
|
||||
Property Anmelder As Object = Nothing
|
||||
Property Vertreter As Object = Nothing
|
||||
Property VersendungsAusfuhrland As Object = Nothing
|
||||
Property VersendungsAusfuhrlandCode As Object = Nothing
|
||||
Property Ursprungsland As Object = Nothing
|
||||
Property BestimmungslandCodeA As Object = Nothing
|
||||
Property BestimmungslandCodeB As Object = Nothing
|
||||
Property KennzeichenAnkunft As Object = Nothing
|
||||
Property StaatszugehörigkeitAnkunft As Object = Nothing
|
||||
Property Container As Object = Nothing
|
||||
Property LieferbedingungCode As Object = Nothing
|
||||
Property Lieferbedingung As Object = Nothing
|
||||
Property KennzeichenGrenze As Object = Nothing
|
||||
Property StaatszugehörigkeitGrenze As Object = Nothing
|
||||
Property Währung As Object = Nothing
|
||||
Property Rechnungsbetrag As Object = Nothing
|
||||
Property Umrechnungskurs As Object = Nothing
|
||||
Property Geschäftsart As Object = Nothing
|
||||
Property VerkehrszweigGrenze As Object = Nothing
|
||||
Property InländischerVerkehrszweig As Object = Nothing
|
||||
Property Entladeort As Object = Nothing
|
||||
Property Eingangszollstelle As Object = Nothing
|
||||
Property Warenort As Object = Nothing
|
||||
Property Packstücke As Object = Nothing
|
||||
Property Warenbezeichnung As Object = Nothing
|
||||
Property PositionsNr As Object = Nothing
|
||||
Property Warennummer1 As Object = Nothing
|
||||
Property Warennummer2 As Object = Nothing
|
||||
Property Warennummer3 As Object = Nothing
|
||||
Property Warennummer4 As Object = Nothing
|
||||
Property Warennummer5 As Object = Nothing
|
||||
Property UrsprungslandCode As Object = Nothing
|
||||
Property Rohmasse As Object = Nothing
|
||||
Property Präferenz As Object = Nothing
|
||||
Property Verfahren As Object = Nothing
|
||||
Property Eigenmasse As Object = Nothing
|
||||
Property Kontingent As Object = Nothing
|
||||
Property SumAnmeldungVorpapier As Object = Nothing
|
||||
Property BesondereMasseinheit As Object = Nothing
|
||||
Property Vorsteuerabzug As Object = Nothing
|
||||
Property BesondereVermerke As Object = Nothing
|
||||
Property BesondereVermerkeZeile1 As Object = Nothing
|
||||
Property BesondereVermerkeBetrag1 As Object = Nothing
|
||||
Property BesondereVermerkeHinweis1 As Object = Nothing
|
||||
Property BesondereVermerkeZeile2 As Object = Nothing
|
||||
Property BesondereVermerkeBetrag2 As Object = Nothing
|
||||
Property BesondereVermerkeHinweis2 As Object = Nothing
|
||||
Property BesondereVermerkeZeile3 As Object = Nothing
|
||||
Property BesondereVermerkeBetrag3 As Object = Nothing
|
||||
Property BesondereVermerkeHinweis3 As Object = Nothing
|
||||
Property StatistischerWert As Object = Nothing
|
||||
Property Summe As Object = Nothing
|
||||
Property Zahlungsaufschub As Object = Nothing
|
||||
Property Lagerbezeichnung As Object = Nothing
|
||||
Property AngabenFürVerbuchungszwecke As Object = Nothing
|
||||
Property Ort As Object = Nothing
|
||||
Property Datum As Object = Nothing
|
||||
Property Unterschrift As Object = Nothing
|
||||
Property ErstelltDatum As Object = Nothing
|
||||
Property ErstelltSachbearbeiter As Object = Nothing
|
||||
Property GeändertDatum As Object = Nothing
|
||||
Property GeändertSachbearbeiter As Object = Nothing
|
||||
Property GedrucktDatum As Object = Nothing
|
||||
Property GedrucktSachbearbeiter As Object = Nothing
|
||||
Property FilialenNr As Object = Nothing
|
||||
Property AbfertigungsNr As Object = Nothing
|
||||
Property UnterNr As Object = Nothing
|
||||
Property Formular As Object = Nothing
|
||||
Property Zulassungsinhaber As Object = Nothing
|
||||
Property Bewilligungsnummer As Object = Nothing
|
||||
Property Ordnungsnummer As Object = Nothing
|
||||
Property Rechnungspositionsbetrag As Object = Nothing
|
||||
Property ANMELDUNG3 As Object = Nothing
|
||||
Property Ladelisten As Object = Nothing
|
||||
Property Bestimmungsland As Object = Nothing
|
||||
Property Hauptverpflichteter As Object = Nothing
|
||||
Property HauptverpflichteterVertretenDurch As Object = Nothing
|
||||
Property HauptverpflichteterOrtDatum As Object = Nothing
|
||||
Property Durchgangszollstelle1 As Object = Nothing
|
||||
Property Durchgangszollstelle2 As Object = Nothing
|
||||
Property Durchgangszollstelle3 As Object = Nothing
|
||||
Property Durchgangszollstelle4 As Object = Nothing
|
||||
Property Durchgangszollstelle5 As Object = Nothing
|
||||
Property Durchgangszollstelle6 As Object = Nothing
|
||||
Property Sicherheit As Object = Nothing
|
||||
Property SicherheitCode As Object = Nothing
|
||||
Property Bestimmungsstelle As Object = Nothing
|
||||
Property HauptverpflichteterNr As Object = Nothing
|
||||
Property Skontobetrag As Object = Nothing
|
||||
Property Artikelpreis As Object = Nothing
|
||||
Property Bemessungsgrundlage As Object = Nothing
|
||||
|
||||
|
||||
Property POS As New List(Of cEPBesPos)
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
Sub New(ID As Integer)
|
||||
Me.ID = ID
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
|
||||
Function getMaxId() As Integer
|
||||
ID = SQL.getValueTxtBySql("SELECT ISNULL(MAX(ID),0)+1 FROM EPBes", "FMZOLL")
|
||||
Return ID
|
||||
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("ID", ID)) ', , True)) ' nicht Primary, weil ID nicht Auto vergeben wird
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ANMELDUNG1", ANMELDUNG1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ANMELDUNG2", ANMELDUNG2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VersenderAusführerNr", VersenderAusführerNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VersenderAusführer", VersenderAusführer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vordrucke1", Vordrucke1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vordrucke2", Vordrucke2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Positionen", Positionen))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmpfängerNr", EmpfängerNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Empfänger", Empfänger))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Handelsland", Handelsland))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnmelderVertreterNr", AnmelderVertreterNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Anmelder", Anmelder))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vertreter", Vertreter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VersendungsAusfuhrland", VersendungsAusfuhrland))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VersendungsAusfuhrlandCode", VersendungsAusfuhrlandCode))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Ursprungsland", Ursprungsland))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BestimmungslandCodeA", BestimmungslandCodeA))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BestimmungslandCodeB", BestimmungslandCodeB))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KennzeichenAnkunft", KennzeichenAnkunft))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("StaatszugehörigkeitAnkunft", StaatszugehörigkeitAnkunft))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Container", Container))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LieferbedingungCode", LieferbedingungCode))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Lieferbedingung", Lieferbedingung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KennzeichenGrenze", KennzeichenGrenze))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("StaatszugehörigkeitGrenze", StaatszugehörigkeitGrenze))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Währung", Währung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechnungsbetrag", Rechnungsbetrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Umrechnungskurs", Umrechnungskurs))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Geschäftsart", Geschäftsart))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VerkehrszweigGrenze", VerkehrszweigGrenze))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("InländischerVerkehrszweig", InländischerVerkehrszweig))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Entladeort", Entladeort))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Eingangszollstelle", Eingangszollstelle))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Warenort", Warenort))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Packstücke", Packstücke))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Warenbezeichnung", Warenbezeichnung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PositionsNr", PositionsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Warennummer1", Warennummer1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Warennummer2", Warennummer2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Warennummer3", Warennummer3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Warennummer4", Warennummer4))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Warennummer5", Warennummer5))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UrsprungslandCode", UrsprungslandCode))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rohmasse", Rohmasse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Präferenz", Präferenz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Verfahren", Verfahren))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Eigenmasse", Eigenmasse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kontingent", Kontingent))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SumAnmeldungVorpapier", SumAnmeldungVorpapier))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BesondereMasseinheit", BesondereMasseinheit))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vorsteuerabzug", Vorsteuerabzug))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BesondereVermerke", BesondereVermerke))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BesondereVermerkeZeile1", BesondereVermerkeZeile1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BesondereVermerkeBetrag1", BesondereVermerkeBetrag1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BesondereVermerkeHinweis1", BesondereVermerkeHinweis1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BesondereVermerkeZeile2", BesondereVermerkeZeile2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BesondereVermerkeBetrag2", BesondereVermerkeBetrag2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BesondereVermerkeHinweis2", BesondereVermerkeHinweis2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BesondereVermerkeZeile3", BesondereVermerkeZeile3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BesondereVermerkeBetrag3", BesondereVermerkeBetrag3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BesondereVermerkeHinweis3", BesondereVermerkeHinweis3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("StatistischerWert", StatistischerWert))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Summe", Summe))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zahlungsaufschub", Zahlungsaufschub))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Lagerbezeichnung", Lagerbezeichnung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AngabenFürVerbuchungszwecke", AngabenFürVerbuchungszwecke))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Ort", Ort))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Datum", Datum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Unterschrift", Unterschrift))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ErstelltDatum", ErstelltDatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ErstelltSachbearbeiter", ErstelltSachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GeändertDatum", GeändertDatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GeändertSachbearbeiter", GeändertSachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GedrucktDatum", GedrucktDatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GedrucktSachbearbeiter", GedrucktSachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNr", FilialenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", AbfertigungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UnterNr", UnterNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Formular", Formular))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zulassungsinhaber", Zulassungsinhaber))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bewilligungsnummer", Bewilligungsnummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Ordnungsnummer", Ordnungsnummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechnungspositionsbetrag", Rechnungspositionsbetrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ANMELDUNG3", ANMELDUNG3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Ladelisten", Ladelisten))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bestimmungsland", Bestimmungsland))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Hauptverpflichteter", Hauptverpflichteter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("HauptverpflichteterVertretenDurch", HauptverpflichteterVertretenDurch))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("HauptverpflichteterOrtDatum", HauptverpflichteterOrtDatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Durchgangszollstelle1", Durchgangszollstelle1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Durchgangszollstelle2", Durchgangszollstelle2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Durchgangszollstelle3", Durchgangszollstelle3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Durchgangszollstelle4", Durchgangszollstelle4))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Durchgangszollstelle5", Durchgangszollstelle5))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Durchgangszollstelle6", Durchgangszollstelle6))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sicherheit", Sicherheit))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SicherheitCode", SicherheitCode))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bestimmungsstelle", Bestimmungsstelle))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("HauptverpflichteterNr", HauptverpflichteterNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Skontobetrag", Skontobetrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Artikelpreis", Artikelpreis))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bemessungsgrundlage", Bemessungsgrundlage))
|
||||
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
POS.Clear()
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM EPBes WHERE ID=@ID ", conn)
|
||||
cmd.Parameters.AddWithValue("@ID", Me.ID)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each i In Me.getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(i.Scalarvariable)
|
||||
If dr.Item(i.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(i.Text))
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
dr.Close()
|
||||
LOAD_LIST()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Sub LOAD_LIST()
|
||||
Try
|
||||
POS.Clear()
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM EPBesPOS WHERE EPBes_ID=@ID ", conn)
|
||||
cmd.Parameters.AddWithValue("@ID", ID)
|
||||
' cmd.Parameters.AddWithValue("@OffertenNr", OffertenNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cEPBesPos
|
||||
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
|
||||
POS.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 EPBes WITH(updlock,serializable) WHERE ID=@ID) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
If SQL.doSQLVarList(sqlstr, "FMZOLL", , list) Then
|
||||
|
||||
DELETE_POS()
|
||||
For Each p In POS
|
||||
p.SAVE(ID)
|
||||
Next
|
||||
Return True
|
||||
End If
|
||||
|
||||
|
||||
Return False
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [EPBes] WITH(updlock,serializable) WHERE ID=" & Me.ID
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Public Function DELETE_POS() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [EPBesPOS] WITH(updlock,serializable) WHERE EPBes_ID=" & Me.ID
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO EPBes (" & 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 [EPBes] SET " & str & " WHERE ID=@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 cEPBesPos
|
||||
|
||||
|
||||
Property EPBes_ID As Integer
|
||||
|
||||
Property Packstücke As Object = Nothing
|
||||
Property Warenbezeichnung As Object = Nothing
|
||||
Property PositionsNr As Object = Nothing
|
||||
Property Warennummer1 As Object = Nothing
|
||||
Property Warennummer2 As Object = Nothing
|
||||
Property Warennummer3 As Object = Nothing
|
||||
Property Warennummer4 As Object = Nothing
|
||||
Property Warennummer5 As Object = Nothing
|
||||
Property UrsprungslandCode As Object = Nothing
|
||||
Property Rohmasse As Object = Nothing
|
||||
Property Präferenz As Object = Nothing
|
||||
Property Verfahren As Object = Nothing
|
||||
Property Eigenmasse As Object = Nothing
|
||||
Property Kontingent As Object = Nothing
|
||||
Property SumAnmeldungVorpapier As Object = Nothing
|
||||
Property BesondereMasseinheit As Object = Nothing
|
||||
Property Vorsteuerabzug As Object = Nothing
|
||||
Property Bemessungsgrundlage As Object = Nothing
|
||||
Property BesondereVermerke As Object = Nothing
|
||||
|
||||
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EPBes_ID", EPBes_ID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Packstücke", Packstücke))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Warenbezeichnung", Warenbezeichnung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PositionsNr", PositionsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Warennummer1", Warennummer1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Warennummer2", Warennummer2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Warennummer3", Warennummer3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Warennummer4", Warennummer4))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Warennummer5", Warennummer5))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UrsprungslandCode", UrsprungslandCode))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rohmasse", Rohmasse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Präferenz", Präferenz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Verfahren", Verfahren))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Eigenmasse", Eigenmasse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kontingent", Kontingent))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SumAnmeldungVorpapier", SumAnmeldungVorpapier))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BesondereMasseinheit", BesondereMasseinheit))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vorsteuerabzug", Vorsteuerabzug))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BesondereVermerke", BesondereVermerke))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE(id) As Boolean
|
||||
Me.EPBes_ID = id
|
||||
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 EPBesPOS (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
Class cBerechnungsbogen
|
||||
|
||||
Property ID As Object = Nothing
|
||||
Property ErstelltDatum As Object = Nothing
|
||||
Property ErstelltSachbearbeiter As Object = Nothing
|
||||
Property GeändertDatum As Object = Nothing
|
||||
Property GeändertSachbearbeiter As Object = Nothing
|
||||
Property GedrucktDatum As Object = Nothing
|
||||
Property GedrucktSachbearbeiter As Object = Nothing
|
||||
Property Index As Object = Nothing
|
||||
Property AbsenderKundenNr As Object = Nothing
|
||||
Property AbsenderAdresse As Object = Nothing
|
||||
Property AbsenderOffertenNr As Object = Nothing
|
||||
Property EmpfängerKundenNr As Object = Nothing
|
||||
Property EmpfängerAdresse As Object = Nothing
|
||||
Property EmpfängerOffertenNr As Object = Nothing
|
||||
Property VermittlerKundenNr As Object = Nothing
|
||||
Property VermittlerAdresse As Object = Nothing
|
||||
Property VermittlerOffertenNr As Object = Nothing
|
||||
Property Bemerkungen As Object = Nothing
|
||||
Property Vermerk As Object = Nothing
|
||||
Property Sperre As Object = Nothing
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
Sub New(ID As Integer)
|
||||
Me.ID = 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("ID", ID)) ', , True)) ' nicht Primary, weil ID nicht Auto vergeben wird
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ErstelltDatum", ErstelltDatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ErstelltSachbearbeiter", ErstelltSachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GeändertDatum", GeändertDatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GeändertSachbearbeiter", GeändertSachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GedrucktDatum", GedrucktDatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GedrucktSachbearbeiter", GedrucktSachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Index", Index))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbsenderKundenNr", AbsenderKundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbsenderAdresse", AbsenderAdresse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbsenderOffertenNr", AbsenderOffertenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmpfängerKundenNr", EmpfängerKundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmpfängerAdresse", EmpfängerAdresse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmpfängerOffertenNr", EmpfängerOffertenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VermittlerKundenNr", VermittlerKundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VermittlerAdresse", VermittlerAdresse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VermittlerOffertenNr", VermittlerOffertenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bemerkungen", Bemerkungen))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vermerk", Vermerk))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sperre", Sperre))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM Berechnungsbogen WHERE ID=@ID ", conn)
|
||||
cmd.Parameters.AddWithValue("@ID", Me.ID)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each i In Me.getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(i.Scalarvariable)
|
||||
If dr.Item(i.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(i.Text))
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Public Function INSERT() As 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 Berechnungsbogen WITH(updlock,serializable) WHERE ID=@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 DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [Berechnungsbogen] WITH(updlock,serializable) WHERE ID=" & Me.ID
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
|
||||
End Function
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO Berechnungsbogen (" & 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 [Berechnungsbogen] SET " & str & " WHERE ID=@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
|
||||
114
SDL/Classes/cEmailBenachrichtigung.vb
Normal file
114
SDL/Classes/cEmailBenachrichtigung.vb
Normal file
@@ -0,0 +1,114 @@
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cEmailBenachrichtigungList
|
||||
Property eb_KundenNr As Object = Nothing
|
||||
Property eb_ebartId As Object = Nothing
|
||||
Public LIST As New List(Of cEmailBenachrichtigung)
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Sub New(eb_KundenNr, eb_ebartId)
|
||||
Me.eb_KundenNr = eb_KundenNr
|
||||
Me.eb_ebartId = eb_ebartId
|
||||
LOAD(Me.eb_KundenNr, Me.eb_ebartId)
|
||||
End Sub
|
||||
Public Sub CLEAR()
|
||||
LIST.Clear()
|
||||
End Sub
|
||||
Public Sub ADD(eb_EMail As String, Optional cc As Boolean = False, Optional bcc As Boolean = False)
|
||||
Dim l As New cEmailBenachrichtigung
|
||||
l.eb_KundenNr = eb_KundenNr
|
||||
l.eb_ebartId = eb_ebartId
|
||||
l.eb_EMail = eb_EMail
|
||||
l.eb_cc = cc
|
||||
l.eb_bcc = bcc
|
||||
LIST.Add(l)
|
||||
End Sub
|
||||
Public Sub LOAD(eb_KundenNr, eb_ebartId)
|
||||
Try
|
||||
LIST.Clear()
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblEmailBenachrichtigung WHERE eb_KundenNr=@eb_KundenNr and eb_ebartId=@eb_ebartId ", conn)
|
||||
cmd.Parameters.AddWithValue("@eb_KundenNr", eb_KundenNr)
|
||||
cmd.Parameters.AddWithValue("@eb_ebartId", eb_ebartId)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cEmailBenachrichtigung
|
||||
l.eb_KundenNr = dr.Item("eb_KundenNr")
|
||||
l.eb_ebartId = dr.Item("eb_ebartId")
|
||||
l.eb_EMail = dr.Item("eb_EMail")
|
||||
l.eb_cc = dr.Item("eb_cc")
|
||||
l.eb_bcc = dr.Item("eb_bcc")
|
||||
LIST.Add(l)
|
||||
End While
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
Function SAVE()
|
||||
If SQL.doSQLVarList("DELETE FROM tblEmailBenachrichtigung WHERE eb_KundenNr=" & Me.eb_KundenNr & " and eb_ebartId=" & Me.eb_ebartId & " ", "FMZOLL") Then
|
||||
For Each l In LIST
|
||||
If Not l.INSERT() Then Return False
|
||||
Next
|
||||
Return True
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
End Function
|
||||
End Class
|
||||
Public Class cEmailBenachrichtigung
|
||||
Property eb_KundenNr As Object = Nothing
|
||||
Property eb_ebartId As Object = Nothing
|
||||
Property eb_EMail As Object = Nothing
|
||||
Property eb_cc As Boolean = False
|
||||
Property eb_bcc As Boolean = False
|
||||
|
||||
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("eb_KundenNr", eb_KundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_ebartId", eb_ebartId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_EMail", eb_EMail))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_cc", eb_cc))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_bcc", eb_bcc))
|
||||
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 tblEmailBenachrichtigung (" & 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
|
||||
85
SDL/Classes/cFinanzOnlineWebService.vb
Normal file
85
SDL/Classes/cFinanzOnlineWebService.vb
Normal file
@@ -0,0 +1,85 @@
|
||||
Imports SDL.at.gv.bmf.finanzonlineLogin
|
||||
|
||||
|
||||
' Aufruf des Webservice von FinanzOnline zur prüfung der UID-Nummer
|
||||
' Aufgrund von verzögerten Bestätigungen wurd diese Funktion deaktiviert!!!
|
||||
|
||||
Public Class cFinanzOnlineWebService
|
||||
' Private tid As String = My.Resources.tid
|
||||
' Private benid As String = My.Resources.benid
|
||||
' Private pin As String = My.Resources.pin
|
||||
|
||||
Shared tid As String = "1000103u3032"
|
||||
Shared benid As String = "webserv99"
|
||||
Shared pin As String = "webserv99"
|
||||
|
||||
|
||||
Shared SESSION_ID As String = ""
|
||||
|
||||
Shared Function Call_Web_Service_MethodUID_Login() As Integer
|
||||
Dim CallWebService As New SDL.at.gv.bmf.finanzonlineLogin.sessionService
|
||||
Try
|
||||
Dim rc = ""
|
||||
Dim msg = ""
|
||||
SESSION_ID = CallWebService.login(tid, benid, pin, "ATU53187000", rc, msg)
|
||||
MsgBox("msg " & msg)
|
||||
MsgBox(SESSION_ID)
|
||||
Return rc
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
Return -99
|
||||
End Function
|
||||
|
||||
Shared Function Call_Web_Service_MethodUID_Abfrage(ByRef session As String, ByVal txtFirma As String, ByVal txtUid As String) As String
|
||||
Dim CallWebService As New SDL.at.gv.bmf.finanzonline.uidAbfrageService
|
||||
Try
|
||||
' Return CallWebService.uidAbfrage(session, tid, benid, My.Resources.UID_Nr, txtUid.Text, uidAbfrageRequestStufe.Item2, "", "", "", "", "", "", "")
|
||||
'Dim s() As Object = CallWebService.uidAbfrage(session, tid, benid, My.Resources.UID_Nr, txtUid.Text, uidAbfrageRequestStufe.Item2, "", "", "", "", "", "", "")
|
||||
|
||||
Dim msg As String
|
||||
Dim name As String
|
||||
Dim adrz1 As String
|
||||
Dim adrz2 As String
|
||||
Dim adrz3 As String
|
||||
Dim adrz4 As String
|
||||
Dim adrz5 As String
|
||||
Dim adrz6 As String
|
||||
|
||||
|
||||
Dim returnInt As Integer = CallWebService.uidAbfrage(session, tid, benid, My.Resources.UID_Nr, txtUid, at.gv.bmf.finanzonline.uidAbfrageServiceRequestStufe.Item2, msg, name, adrz1, adrz2, adrz3, adrz4, adrz5, adrz6)
|
||||
|
||||
If returnInt = 0 Then
|
||||
Dim firma As String = name & vbNewLine & adrz1
|
||||
If adrz2 <> "" Then firma = firma & vbNewLine & adrz2
|
||||
If adrz3 <> "" Then firma = firma & vbNewLine & adrz3
|
||||
If adrz4 <> "" Then firma = firma & vbNewLine & adrz4
|
||||
If adrz5 <> "" Then firma = firma & vbNewLine & adrz5
|
||||
If adrz6 <> "" Then firma = firma & vbNewLine & adrz6
|
||||
|
||||
' frmUIDCheck.firmaUIDFinanzOnline = firma
|
||||
' frmUIDCheck.firmaUIDProgramm = txtFirma
|
||||
' frmUIDCheck.uidnr = txtUid
|
||||
' frmUIDCheck.Show()
|
||||
Else
|
||||
MsgBox(returnInt)
|
||||
End If
|
||||
Return returnInt
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
Return "-1"
|
||||
End Function
|
||||
Shared Function Call_Web_Service_MethodUID_Logout(ByRef sessionid As String) As String
|
||||
Dim CallWebService As New SDL.at.gv.bmf.finanzonlineLogin.sessionService
|
||||
Try
|
||||
Dim msg = ""
|
||||
Dim sGetValue As String = CallWebService.logout(tid, benid, sessionid, msg)
|
||||
Return sGetValue
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
End Class
|
||||
115
SDL/Classes/cFiskal_Daten.vb
Normal file
115
SDL/Classes/cFiskal_Daten.vb
Normal file
@@ -0,0 +1,115 @@
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cFiskal_Daten
|
||||
Property fisk_KundenNr As Integer
|
||||
Property fisk_schreibenFA As Boolean = False
|
||||
Property fisk_schreibenSB As Boolean = False
|
||||
Property fisk_schreibenCMR As Boolean = False
|
||||
Property fisk_schreibenFA_Adr As Object = Nothing
|
||||
Property fisk_schreibenSB_Adr As Object = Nothing
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New(KundenNr)
|
||||
Me.fisk_KundenNr = KundenNr
|
||||
LOAD()
|
||||
End Sub
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fisk_KundenNr", fisk_KundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fisk_schreibenFA", fisk_schreibenFA))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fisk_schreibenSB", fisk_schreibenSB))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fisk_schreibenCMR", fisk_schreibenCMR))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fisk_schreibenFA_Adr", fisk_schreibenFA_Adr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fisk_schreibenSB_Adr", fisk_schreibenSB_Adr))
|
||||
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 tblFiskal_Daten WITH(updlock,serializable) WHERE fisk_KundenNr=@fisk_KundenNr) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblFiskal_Daten WHERE fisk_KundenNr=@fisk_KundenNr ", conn)
|
||||
cmd.Parameters.AddWithValue("@fisk_KundenNr", fisk_KundenNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblFiskal_Daten] SET " & str & " WHERE fisk_KundenNr=@fisk_KundenNr ")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO tblFiskal_Daten (" & 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
|
||||
234
SDL/Classes/cFormularVorlagen.vb
Normal file
234
SDL/Classes/cFormularVorlagen.vb
Normal file
@@ -0,0 +1,234 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cFormularVorlagen
|
||||
Property tblform_id As Integer
|
||||
Property tblform_KundenNr As Object = Nothing
|
||||
Property tblform_art As Object = Nothing
|
||||
Property tblform_begriff As Object = Nothing
|
||||
Property tblform_Sachbearbeiter As Object = Nothing
|
||||
Property tblform_letzeAenderung As Object = Nothing
|
||||
|
||||
Property VALUES As New List(Of cFormularVorlagenValues)
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Sub New()
|
||||
|
||||
End Sub
|
||||
Sub New(tblform_id)
|
||||
Me.tblform_id = tblform_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("tblform_id", tblform_id, , True, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblform_KundenNr", tblform_KundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblform_art", tblform_art))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblform_begriff", tblform_begriff))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblform_letzeAenderung", tblform_letzeAenderung))
|
||||
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 tblFormulareVorlagen WITH(updlock,serializable) WHERE tblform_id=@tblform_id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Dim id = SQL.doSQLVarListID(tblform_id, sqlstr, "FMZOLL", , list)
|
||||
Me.tblform_id = id
|
||||
Return id > 0
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblFormulareVorlagen WHERE tblform_id=@tblform_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@tblform_id", tblform_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
LOAD_VALUES()
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Shared Function LOADByBemerkung(tblform_art, tblform_begriff) As cFormularVorlagen
|
||||
Try
|
||||
Dim FORM As New cFormularVorlagen
|
||||
Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblFormulareVorlagen WHERE tblform_art=@tblform_art and tblform_begriff=@tblform_begriff ", conn)
|
||||
cmd.Parameters.AddWithValue("@tblform_art", tblform_art)
|
||||
cmd.Parameters.AddWithValue("@tblform_begriff", tblform_begriff)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In FORM.getParameterList()
|
||||
Dim propInfo As PropertyInfo = FORM.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(FORM, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(FORM, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
FORM.LOAD_VALUES()
|
||||
dr.Close()
|
||||
Return FORM
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return Nothing
|
||||
End Function
|
||||
|
||||
|
||||
Public Sub LOAD_VALUES()
|
||||
Try
|
||||
VALUES.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblFormulareVorlagenValues WHERE tblfv_tblformId=@tblform_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@tblform_id", tblform_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim v As New cFormularVorlagenValues
|
||||
v.tblfv_tblformId = tblform_id
|
||||
v.tblfv_name = If(dr.Item("tblfv_name") Is DBNull.Value, Nothing, dr.Item("tblfv_name"))
|
||||
v.tblfv_wert = If(dr.Item("tblfv_wert") Is DBNull.Value, Nothing, dr.Item("tblfv_wert"))
|
||||
VALUES.Add(v)
|
||||
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 SAVE_VALUES() As Boolean
|
||||
If SQL.doSQL("DELETE FROM tblFormulareVorlagenValues WHERE tblfv_tblformId='" & tblform_id & "'", "FMZOLL") Then
|
||||
For Each v In VALUES
|
||||
If Not v.INSERT() Then
|
||||
Return False
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Public Function DELETE() As Boolean
|
||||
Return SQL.doSQL("DELETE FROM tblFormulareVorlagenValues WHERE tblfv_tblformId='" & tblform_id & "'; " &
|
||||
"DELETE FROM tblFormulareVorlagen WHERE tblform_id='" & tblform_id & "'; ", "FMZOLL")
|
||||
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 [tblFormulareVorlagen] SET " & str & " WHERE tblform_id=@tblform_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 tblFormulareVorlagen (" & 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 cFormularVorlagenValues
|
||||
Property tblfv_tblformId As Integer
|
||||
Property tblfv_name As Object = Nothing
|
||||
Property tblfv_wert As Object = Nothing
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
|
||||
End Sub
|
||||
Sub New(tblfv_tblformId, tblfv_name, tblfv_wert)
|
||||
Me.tblfv_tblformId = tblfv_tblformId
|
||||
Me.tblfv_name = tblfv_name
|
||||
Me.tblfv_wert = tblfv_wert
|
||||
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("tblfv_tblformId", tblfv_tblformId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblfv_name", tblfv_name))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblfv_wert", tblfv_wert))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
Public Function INSERT() As Boolean
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return SQL.doSQLVarList(" INSERT INTO tblFormulareVorlagenValues (" & str & ") VALUES(" & values & ") ", "FMZOLL", , list)
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return False
|
||||
End Function
|
||||
|
||||
End Class
|
||||
912
SDL/Classes/cGenWord.vb
Normal file
912
SDL/Classes/cGenWord.vb
Normal file
@@ -0,0 +1,912 @@
|
||||
Imports Microsoft.Office.Interop
|
||||
|
||||
Public Class cGenWord
|
||||
Dim SQL As New SQL
|
||||
Dim kundenSQL As New kundenSQL
|
||||
|
||||
Function openWord(pfadWord As String, visibleWord As Boolean, ByRef oWord As Microsoft.Office.Interop.Word.Application) As Microsoft.Office.Interop.Word.Document
|
||||
If Not My.Computer.FileSystem.DirectoryExists(Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\Datentmp\") Then
|
||||
My.Computer.FileSystem.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\Datentmp\")
|
||||
End If
|
||||
' Dim tmpPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\tmp\tmpWord_" & Now.ToString("yyyyMMdd_HHmmss") & ".doc"
|
||||
Dim tmpPath As String = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("tmpWord", ".docx", True, False)
|
||||
|
||||
|
||||
Dim odoc As Microsoft.Office.Interop.Word.Document
|
||||
Try
|
||||
oWord.Visible = visibleWord 'Word sehen zum Test?
|
||||
' MsgBox(pfadWord)
|
||||
odoc = oWord.Documents.Open(pfadWord)
|
||||
odoc.SaveAs(tmpPath)
|
||||
odoc.Activate()
|
||||
|
||||
' odoc.Save()
|
||||
|
||||
Return odoc
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.ToString & ex.StackTrace)
|
||||
End Try
|
||||
Return Nothing
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getWordRetourniert_SI(kdNr As Integer, datum As Date, autodruck As Boolean, Optional PrinterName As String = "", Optional AuftragsNr As Integer = 0) As Microsoft.Office.Interop.Word.Document
|
||||
Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
|
||||
Try
|
||||
Dim pfadWord = ""
|
||||
Dim oWord As New Microsoft.Office.Interop.Word.Application
|
||||
odoc = openWord(pfadWord, (Not autodruck), oWord)
|
||||
|
||||
Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM SDL WHERE KundenNr=" & kdNr & " AND SDLNr=210 AND Retourniert=1 AND RetourniertAm between '" & datum.ToShortDateString & " 00:00:00' and '" & datum.ToShortDateString & " 23:59:59'")
|
||||
Dim KUNDE = kundenSQL.getKundeFMZOLLByKdNr(kdNr)
|
||||
If KUNDE Is Nothing Then MsgBox("Kunde nicht gefunden!") : Return odoc
|
||||
' Dim PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
|
||||
|
||||
Dim oTable As Word.Table
|
||||
odoc.FormFields("Anzahl").Range.Text = dt.Rows.Count
|
||||
odoc.FormFields("KdName").Range.Text = KUNDE.Name_1 & " " & KUNDE.Name_2
|
||||
odoc.FormFields("KdStrasse").Range.Text = KUNDE.Straße
|
||||
odoc.FormFields("KdOrt").Range.Text = KUNDE.LandKz & " " & KUNDE.PLZ & " " & KUNDE.Ort
|
||||
' odoc.FormFields("KdNrVERAG").Range.Text = KUNDE.KundenNr
|
||||
' odoc.FormFields("KdNrMST").Range.Text = PartnerKdNrFromFMZOLL.MSEKundenNr
|
||||
odoc.FormFields("Sachbearbeiter").Range.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
|
||||
odoc.FormFields("AuftragsNr").Range.Text = AuftragsNr.ToString("000000.##")
|
||||
|
||||
If odoc.Range.Bookmarks.Exists("TabelleKarten2") Then
|
||||
If odoc.Bookmarks("TabelleKarten2").Range.Tables.Count > 0 Then
|
||||
oTable = odoc.Bookmarks("TabelleKarten2").Range.Tables(1)
|
||||
Dim i = 1
|
||||
For Each r As DataRow In dt.Rows
|
||||
oTable.Rows(i + 1).Cells(1).Range.Text = cSqlDb.checkNullStr(r("KfzKennzeichen"))
|
||||
oTable.Rows(i + 1).Cells(2).Range.Text = cSqlDb.checkNullStr(r("SERIE-Nr"))
|
||||
oTable.Rows(i + 1).Cells(3).Range.Text = cSqlDb.checkNullStr(r("KartenNr"))
|
||||
oTable.Rows(i + 1).Cells(4).Range.Text = ""
|
||||
If i < dt.Rows.Count Then oTable.Rows.Add()
|
||||
i += 1
|
||||
Next
|
||||
End If
|
||||
Else
|
||||
MessageBox.Show("Textmarke nicht vorhanden!")
|
||||
End If
|
||||
odoc.Save()
|
||||
odoc.Activate()
|
||||
|
||||
If autodruck Then
|
||||
Dim t As New Threading.Thread(Sub()
|
||||
print(odoc, PrinterName)
|
||||
End Sub)
|
||||
t.IsBackground = True
|
||||
t.Start()
|
||||
End If
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.ToString)
|
||||
End Try
|
||||
|
||||
Return odoc
|
||||
End Function
|
||||
|
||||
|
||||
Public Function genUebernahmebestaetigung(dt As DataTable, kdNr As Integer, sachbearbeiter As String, autodruck As Boolean, Optional PrinterName As String = "", Optional AuftragsNr As Integer = 0, Optional ByRef pfadWord As String = "", Optional visible As Boolean = True) As Microsoft.Office.Interop.Word.Document
|
||||
Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
|
||||
Try
|
||||
pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Uebernahmebestätigung\ÜBERNAHMEBESTÄTIGUNG.dotx"
|
||||
Dim oWord As New Microsoft.Office.Interop.Word.Application
|
||||
odoc = openWord(pfadWord, (Not autodruck And visible), oWord)
|
||||
|
||||
' Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM SDL WHERE KundenNr=" & kdNr & " AND SDLNr=210 AND Retourniert=1 AND RetourniertAm between '" & datum.ToShortDateString & " 00:00:00' and '" & datum.ToShortDateString & " 23:59:59'")
|
||||
Dim KUNDE = kundenSQL.getKundeFMZOLLByKdNr(kdNr)
|
||||
If KUNDE Is Nothing Then MsgBox("Kunde nicht gefunden!") : Return odoc
|
||||
' Dim PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
|
||||
|
||||
Dim oTable As Word.Table
|
||||
|
||||
odoc.FormFields("Adresse1").Range.Text = KUNDE.Name_1 & " " & KUNDE.Name_2
|
||||
odoc.FormFields("Adresse2").Range.Text = KUNDE.Straße
|
||||
odoc.FormFields("Adresse3").Range.Text = KUNDE.LandKz & " " & KUNDE.PLZ & " " & KUNDE.Ort
|
||||
' odoc.FormFields("KdNrVERAG").Range.Text = KUNDE.KundenNr
|
||||
' odoc.FormFields("KdNrMST").Range.Text = PartnerKdNrFromFMZOLL.MSEKundenNr
|
||||
odoc.FormFields("Sachbearbeiter").Range.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
|
||||
odoc.FormFields("Datum").Range.Text = Now.ToShortDateString
|
||||
odoc.FormFields("KundenNr").Range.Text = KUNDE.AdressenNr
|
||||
odoc.FormFields("AuftragsNr").Range.Text = AuftragsNr.ToString("000000.##")
|
||||
|
||||
If odoc.Range.Bookmarks.Exists("TabelleKarten") Then
|
||||
If odoc.Bookmarks("TabelleKarten").Range.Tables.Count > 0 Then
|
||||
oTable = odoc.Bookmarks("TabelleKarten").Range.Tables(1)
|
||||
Dim i = 1
|
||||
Dim kfzTmp = ""
|
||||
For Each r As DataRow In dt.Rows
|
||||
If r("KfzKennzeichen").ToString <> "" And r("KartenNr").ToString <> "" Then
|
||||
If cSqlDb.checkNullStr(r("KfzKennzeichen")) <> kfzTmp Then
|
||||
kfzTmp = cSqlDb.checkNullStr(r("KfzKennzeichen"))
|
||||
oTable.Rows(i + 1).Cells(1).Range.Text = kfzTmp
|
||||
Else
|
||||
oTable.Rows(i + 1).Cells(1).Range.Text = ""
|
||||
End If
|
||||
oTable.Rows(i + 1).Cells(2).Range.Text = cSqlDb.checkNullStr(r("KarteBoxBezeichnung"))
|
||||
oTable.Rows(i + 1).Cells(3).Range.Text = cSqlDb.checkNullStr(r("KartenNr"))
|
||||
' oTable.Rows(i + 1).Cells(4).Range.Text = cSqlDb.checkNullStr(r("PIN"))
|
||||
If i < dt.Rows.Count Then oTable.Rows.Add()
|
||||
i += 1
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Else
|
||||
MessageBox.Show("Textmarke nicht vorhanden!")
|
||||
End If
|
||||
|
||||
odoc.Save() : odoc.Activate()
|
||||
|
||||
|
||||
If autodruck Then
|
||||
Dim t As New Threading.Thread(Sub()
|
||||
print(odoc, PrinterName)
|
||||
End Sub)
|
||||
t.IsBackground = True
|
||||
t.Start()
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.ToString)
|
||||
End Try
|
||||
Return odoc
|
||||
End Function
|
||||
|
||||
|
||||
Sub print(odoc As Microsoft.Office.Interop.Word.Document, PrinterName As String)
|
||||
odoc.Application.WordBasic.FilePrintSetup(Printer:=PrinterName, DoNotSetAsSysDefault:=1)
|
||||
odoc.Application.PrintOut() ': odoc.Close()
|
||||
odoc.Application.Quit()
|
||||
End Sub
|
||||
|
||||
Public Function genAbholbereit(dt As DataTable, kdNr As Integer, sachbearbeiter As String, language As String, autodruck As Boolean, Optional PrinterName As String = "", Optional AuftragsNr As Integer = 0, Optional ByRef pfadWord As String = "", Optional visible As Boolean = True) As Microsoft.Office.Interop.Word.Document
|
||||
Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
|
||||
Try
|
||||
pfadWord = ""
|
||||
Select Case language
|
||||
Case "DE" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\Abholbereit_DE.dotx"
|
||||
Case "YU" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\Abholbereit_YU.dotx"
|
||||
Case "RO" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\Abholbereit_RO.dotx"
|
||||
Case "TR" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\Abholbereit_TR.dotx"
|
||||
Case Else : MsgBox("Keine Sprache ausgewählt!") : Return odoc
|
||||
End Select
|
||||
|
||||
Dim oWord As New Microsoft.Office.Interop.Word.Application
|
||||
odoc = openWord(pfadWord, (Not autodruck And visible), oWord)
|
||||
|
||||
|
||||
' Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM SDL WHERE KundenNr=" & kdNr & " AND SDLNr=210 AND Retourniert=1 AND RetourniertAm between '" & datum.ToShortDateString & " 00:00:00' and '" & datum.ToShortDateString & " 23:59:59'")
|
||||
Dim KUNDE = kundenSQL.getKundeFMZOLLByKdNr(kdNr)
|
||||
If KUNDE Is Nothing Then MsgBox("Kunde nicht gefunden!") : Return odoc
|
||||
' Dim PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
|
||||
|
||||
Dim oTable As Word.Table
|
||||
|
||||
odoc.FormFields("Adresse1").Range.Text = KUNDE.Name_1 & " " & If(KUNDE.Name_2, "")
|
||||
odoc.FormFields("Adresse2").Range.Text = KUNDE.Straße
|
||||
odoc.FormFields("Adresse3").Range.Text = KUNDE.LandKz & " " & KUNDE.PLZ & " " & KUNDE.Ort
|
||||
If KUNDE.Telefax <> "" Then
|
||||
odoc.FormFields("Adresse5").Range.Text = "FAX: " & KUNDE.Telefax
|
||||
ElseIf KUNDE.E_Mail <> "" Then
|
||||
odoc.FormFields("Adresse5").Range.Text = "E-Mail: " & KUNDE.E_Mail
|
||||
End If
|
||||
|
||||
|
||||
' odoc.FormFields("KdNrVERAG").Range.Text = KUNDE.KundenNr
|
||||
' odoc.FormFields("KdNrMST").Range.Text = PartnerKdNrFromFMZOLL.MSEKundenNr
|
||||
odoc.FormFields("Sachbearbeiter").Range.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
|
||||
odoc.FormFields("Datum").Range.Text = Now.ToShortDateString
|
||||
odoc.FormFields("KundenNr").Range.Text = KUNDE.AdressenNr
|
||||
odoc.FormFields("AuftragsNr").Range.Text = AuftragsNr.ToString("000000.##")
|
||||
|
||||
If odoc.Range.Bookmarks.Exists("TabelleKarten") Then
|
||||
If odoc.Bookmarks("TabelleKarten").Range.Tables.Count > 0 Then
|
||||
oTable = odoc.Bookmarks("TabelleKarten").Range.Tables(1)
|
||||
Dim i = 1
|
||||
Dim kfzTmp = ""
|
||||
' MsgBox(dt.Rows.Count)
|
||||
For Each r As DataRow In dt.Rows
|
||||
If r("KfzKennzeichen").ToString <> "" Or r("KartenNr").ToString <> "" Then
|
||||
If cSqlDb.checkNullStr(r("KfzKennzeichen")) <> kfzTmp Then
|
||||
kfzTmp = cSqlDb.checkNullStr(r("KfzKennzeichen"))
|
||||
oTable.Rows(i + 1).Cells(1).Range.Text = kfzTmp
|
||||
Else
|
||||
oTable.Rows(i + 1).Cells(1).Range.Text = ""
|
||||
End If
|
||||
oTable.Rows(i + 1).Cells(2).Range.Text = cSqlDb.checkNullStr(r("KarteBoxBezeichnung"))
|
||||
oTable.Rows(i + 1).Cells(3).Range.Text = cSqlDb.checkNullStr(r("KartenNr"))
|
||||
oTable.Rows(i + 1).Cells(4).Range.Text = cSqlDb.checkNullStr(r("PIN"))
|
||||
If i < dt.Rows.Count Then oTable.Rows.Add()
|
||||
' MsgBox(cSqlDb.checkNullStr(r("KarteBoxBezeichnung")))
|
||||
i += 1
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Else
|
||||
MessageBox.Show("Textmarke nicht vorhanden!")
|
||||
End If
|
||||
|
||||
|
||||
odoc.Save() : odoc.Activate()
|
||||
|
||||
If autodruck Then
|
||||
Dim t As New Threading.Thread(Sub()
|
||||
print(odoc, PrinterName)
|
||||
End Sub)
|
||||
t.IsBackground = True
|
||||
t.Start()
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.ToString)
|
||||
End Try
|
||||
Return odoc
|
||||
End Function
|
||||
|
||||
Public Function genAbholbereitHUGO(dt As DataTable, kdNr As Integer, sachbearbeiter As String, language As String, autodruck As Boolean, Optional PrinterName As String = "", Optional AuftragsNr As Integer = 0, Optional ByRef pfadWord As String = "", Optional visible As Boolean = True) As Microsoft.Office.Interop.Word.Document
|
||||
Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
|
||||
Try
|
||||
pfadWord = ""
|
||||
Select Case language
|
||||
Case "DE" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\Abholbereit_HUGO_DE.dotx"
|
||||
Case "YU" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\Abholbereit_HUGO_YU.dotx"
|
||||
Case "RO" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\Abholbereit_HUGO_RO.dotx"
|
||||
'Case "TR" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\Abholbereit_TR.dotx"
|
||||
Case Else : MsgBox("Keine Sprache ausgewählt!") : Return odoc
|
||||
End Select
|
||||
|
||||
Dim oWord As New Microsoft.Office.Interop.Word.Application
|
||||
odoc = openWord(pfadWord, (Not autodruck And visible), oWord)
|
||||
|
||||
' Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM SDL WHERE KundenNr=" & kdNr & " AND SDLNr=210 AND Retourniert=1 AND RetourniertAm between '" & datum.ToShortDateString & " 00:00:00' and '" & datum.ToShortDateString & " 23:59:59'")
|
||||
Dim KUNDE = kundenSQL.getKundeFMZOLLByKdNr(kdNr)
|
||||
If KUNDE Is Nothing Then MsgBox("Kunde nicht gefunden!") : Return odoc
|
||||
' Dim PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
|
||||
|
||||
Dim oTable As Word.Table
|
||||
|
||||
odoc.FormFields("Adresse1").Range.Text = KUNDE.Name_1 & " " & KUNDE.Name_2
|
||||
odoc.FormFields("Adresse2").Range.Text = KUNDE.Straße
|
||||
odoc.FormFields("Adresse3").Range.Text = KUNDE.LandKz & " " & KUNDE.PLZ & " " & KUNDE.Ort
|
||||
If KUNDE.Telefax <> "" Then
|
||||
odoc.FormFields("Adresse5").Range.Text = "FAX: " & KUNDE.Telefax
|
||||
ElseIf KUNDE.E_Mail <> "" Then
|
||||
odoc.FormFields("Adresse5").Range.Text = "E-Mail: " & KUNDE.E_Mail
|
||||
End If
|
||||
|
||||
|
||||
' odoc.FormFields("KdNrVERAG").Range.Text = KUNDE.KundenNr
|
||||
' odoc.FormFields("KdNrMST").Range.Text = PartnerKdNrFromFMZOLL.MSEKundenNr
|
||||
odoc.FormFields("Sachbearbeiter").Range.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
|
||||
odoc.FormFields("Datum").Range.Text = Now.ToShortDateString
|
||||
odoc.FormFields("KundenNr").Range.Text = KUNDE.AdressenNr
|
||||
odoc.FormFields("AuftragsNr").Range.Text = AuftragsNr.ToString("000000.##")
|
||||
|
||||
If odoc.Range.Bookmarks.Exists("TabelleKarten") Then
|
||||
If odoc.Bookmarks("TabelleKarten").Range.Tables.Count > 0 Then
|
||||
oTable = odoc.Bookmarks("TabelleKarten").Range.Tables(1)
|
||||
Dim i = 1
|
||||
For Each r As DataRow In dt.Rows
|
||||
If r("KfzKennzeichen").ToString <> "" Then
|
||||
oTable.Rows(i + 1).Cells(1).Range.Text = cSqlDb.checkNullStr(r("KfzKennzeichen"))
|
||||
If i < dt.Rows.Count Then oTable.Rows.Add()
|
||||
i += 1
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Else
|
||||
MessageBox.Show("Textmarke nicht vorhanden!")
|
||||
End If
|
||||
|
||||
|
||||
odoc.Save() : odoc.Activate()
|
||||
|
||||
If autodruck Then
|
||||
Dim t As New Threading.Thread(Sub()
|
||||
print(odoc, PrinterName)
|
||||
End Sub)
|
||||
t.IsBackground = True
|
||||
t.Start()
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.ToString)
|
||||
End Try
|
||||
Return odoc
|
||||
End Function
|
||||
|
||||
|
||||
Public Function genAbholbereitCZ(dt As DataTable, kdNr As Integer, sachbearbeiter As String, language As String, GueltigBis As String, autodruck As Boolean, Optional PrinterName As String = "", Optional AuftragsNr As Integer = 0, Optional ByRef pfadWord As String = "", Optional visible As Boolean = True) As Microsoft.Office.Interop.Word.Document
|
||||
Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
|
||||
Try
|
||||
pfadWord = ""
|
||||
Select Case language
|
||||
Case "DE" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\CZ\Abholbereit_CZ_DE.dotx"
|
||||
Case "YU" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\CZ\Abholbereit_CZ_YU.dotx"
|
||||
Case "RO" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\CZ\Abholbereit_CZ_RO.dotx"
|
||||
Case "TR" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\CZ\Abholbereit_CZ_TR.dotx"
|
||||
Case Else : MsgBox("Keine Sprache ausgewählt!") : Return odoc
|
||||
End Select
|
||||
Dim oWord As New Microsoft.Office.Interop.Word.Application
|
||||
odoc = openWord(pfadWord, (Not autodruck And visible), oWord)
|
||||
|
||||
' Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM SDL WHERE KundenNr=" & kdNr & " AND SDLNr=210 AND Retourniert=1 AND RetourniertAm between '" & datum.ToShortDateString & " 00:00:00' and '" & datum.ToShortDateString & " 23:59:59'")
|
||||
Dim KUNDE = kundenSQL.getKundeFMZOLLByKdNr(kdNr)
|
||||
If KUNDE Is Nothing Then MsgBox("Kunde nicht gefunden!") : Return odoc
|
||||
' Dim PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
|
||||
|
||||
Dim oTable As Word.Table
|
||||
|
||||
odoc.FormFields("Adresse1").Range.Text = KUNDE.Name_1 & " " & KUNDE.Name_2
|
||||
odoc.FormFields("Adresse2").Range.Text = KUNDE.Straße
|
||||
odoc.FormFields("Adresse3").Range.Text = KUNDE.LandKz & " " & KUNDE.PLZ & " " & KUNDE.Ort
|
||||
If KUNDE.Telefax <> "" Then
|
||||
odoc.FormFields("Adresse5").Range.Text = "FAX: " & KUNDE.Telefax
|
||||
ElseIf KUNDE.E_Mail <> "" Then
|
||||
odoc.FormFields("Adresse5").Range.Text = "E-Mail: " & KUNDE.E_Mail
|
||||
End If
|
||||
|
||||
' odoc.FormFields("GueltigBis").Range.Text = GueltigBis
|
||||
|
||||
' odoc.FormFields("KdNrVERAG").Range.Text = KUNDE.KundenNr
|
||||
' odoc.FormFields("KdNrMST").Range.Text = PartnerKdNrFromFMZOLL.MSEKundenNr
|
||||
odoc.FormFields("Sachbearbeiter").Range.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
|
||||
odoc.FormFields("Datum").Range.Text = Now.ToShortDateString
|
||||
odoc.FormFields("KundenNr").Range.Text = KUNDE.AdressenNr
|
||||
odoc.FormFields("AuftragsNr").Range.Text = AuftragsNr.ToString("000000.##")
|
||||
|
||||
If odoc.Range.Bookmarks.Exists("TabelleKarten") Then
|
||||
If odoc.Bookmarks("TabelleKarten").Range.Tables.Count > 0 Then
|
||||
oTable = odoc.Bookmarks("TabelleKarten").Range.Tables(1)
|
||||
Dim i = 1
|
||||
For Each r As DataRow In dt.Rows
|
||||
If r("KfzKennzeichen").ToString <> "" Then
|
||||
oTable.Rows(i + 1).Cells(1).Range.Text = cSqlDb.checkNullStr(r("KfzKennzeichen"))
|
||||
oTable.Rows(i + 1).Cells(2).Range.Text = cSqlDb.checkNullStr(r("KartenNr"))
|
||||
If i < dt.Rows.Count Then oTable.Rows.Add()
|
||||
i += 1
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Else
|
||||
MessageBox.Show("Textmarke nicht vorhanden!")
|
||||
End If
|
||||
|
||||
|
||||
odoc.Save() : odoc.Activate()
|
||||
|
||||
If autodruck Then
|
||||
Dim t As New Threading.Thread(Sub()
|
||||
print(odoc, PrinterName)
|
||||
End Sub)
|
||||
t.IsBackground = True
|
||||
t.Start()
|
||||
End If
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.ToString)
|
||||
End Try
|
||||
Return odoc
|
||||
End Function
|
||||
|
||||
|
||||
Public Function genAbholbereitIDS(dt As DataTable, kdNr As Integer, sachbearbeiter As String, language As String, GueltigBis As String, autodruck As Boolean, verlaengerung As Boolean, Optional PrinterName As String = "", Optional AuftragsNr As Integer = 0, Optional ByRef pfadWord As String = "", Optional visible As Boolean = True) As Microsoft.Office.Interop.Word.Document
|
||||
Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
|
||||
Try
|
||||
pfadWord = ""
|
||||
If verlaengerung Then
|
||||
Select Case language
|
||||
Case "DE" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\IDS\Abholbereit_IDS_DE.dotx"
|
||||
Case "YU" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\IDS\Abholbereit_IDS_YU.dotx"
|
||||
Case "RO" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\IDS\Abholbereit_IDS_RO.dotx"
|
||||
' Case "TR" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\CZ\Abholbereit_IDS_YU.dotx.dotx"
|
||||
Case Else : MsgBox("Keine Sprache ausgewählt!") : Return odoc
|
||||
End Select
|
||||
Else
|
||||
Select Case language
|
||||
Case "DE" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\Abholbereit_DE.dotx"
|
||||
Case "YU" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\Abholbereit_YU.dotx"
|
||||
Case "RO" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\Abholbereit_RO.dotx"
|
||||
' Case "TR" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\CZ\Abholbereit_IDS_YU.dotx.dotx"
|
||||
Case Else : MsgBox("Keine Sprache ausgewählt!") : Return odoc
|
||||
End Select
|
||||
End If
|
||||
|
||||
Dim oWord As New Microsoft.Office.Interop.Word.Application
|
||||
odoc = openWord(pfadWord, (Not autodruck And visible), oWord)
|
||||
|
||||
' Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM SDL WHERE KundenNr=" & kdNr & " AND SDLNr=210 AND Retourniert=1 AND RetourniertAm between '" & datum.ToShortDateString & " 00:00:00' and '" & datum.ToShortDateString & " 23:59:59'")
|
||||
Dim KUNDE = kundenSQL.getKundeFMZOLLByKdNr(kdNr)
|
||||
If KUNDE Is Nothing Then MsgBox("Kunde nicht gefunden!") : Return odoc
|
||||
' Dim PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
|
||||
|
||||
Dim oTable As Word.Table
|
||||
|
||||
odoc.FormFields("Adresse1").Range.Text = KUNDE.Name_1 & " " & KUNDE.Name_2
|
||||
odoc.FormFields("Adresse2").Range.Text = KUNDE.Straße
|
||||
odoc.FormFields("Adresse3").Range.Text = KUNDE.LandKz & " " & KUNDE.PLZ & " " & KUNDE.Ort
|
||||
If KUNDE.Telefax <> "" Then
|
||||
odoc.FormFields("Adresse5").Range.Text = "FAX: " & KUNDE.Telefax
|
||||
ElseIf KUNDE.E_Mail <> "" Then
|
||||
odoc.FormFields("Adresse5").Range.Text = "E-Mail: " & KUNDE.E_Mail
|
||||
End If
|
||||
|
||||
|
||||
' odoc.FormFields("KdNrVERAG").Range.Text = KUNDE.KundenNr
|
||||
' odoc.FormFields("KdNrMST").Range.Text = PartnerKdNrFromFMZOLL.MSEKundenNr
|
||||
odoc.FormFields("Sachbearbeiter").Range.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
|
||||
odoc.FormFields("Datum").Range.Text = Now.ToShortDateString
|
||||
odoc.FormFields("KundenNr").Range.Text = KUNDE.AdressenNr
|
||||
odoc.FormFields("AuftragsNr").Range.Text = AuftragsNr.ToString("000000.##")
|
||||
|
||||
If verlaengerung Then
|
||||
odoc.FormFields("GueltigBis").Range.Text = GueltigBis
|
||||
End If
|
||||
|
||||
|
||||
If odoc.Range.Bookmarks.Exists("TabelleKarten") Then
|
||||
If odoc.Bookmarks("TabelleKarten").Range.Tables.Count > 0 Then
|
||||
oTable = odoc.Bookmarks("TabelleKarten").Range.Tables(1)
|
||||
Dim i = 1
|
||||
For Each r As DataRow In dt.Rows
|
||||
If r("KfzKennzeichen").ToString <> "" Then
|
||||
If verlaengerung Then
|
||||
oTable.Rows(i + 1).Cells(1).Range.Text = cSqlDb.checkNullStr(r("KfzKennzeichen"))
|
||||
oTable.Rows(i + 1).Cells(2).Range.Text = cSqlDb.checkNullStr(r("PIN"))
|
||||
Else
|
||||
oTable.Rows(i + 1).Cells(1).Range.Text = cSqlDb.checkNullStr(r("KfzKennzeichen"))
|
||||
oTable.Rows(i + 1).Cells(2).Range.Text = cSqlDb.checkNullStr(r("KarteBoxBezeichnung"))
|
||||
oTable.Rows(i + 1).Cells(3).Range.Text = cSqlDb.checkNullStr(r("KartenNr"))
|
||||
oTable.Rows(i + 1).Cells(4).Range.Text = cSqlDb.checkNullStr(r("PIN"))
|
||||
End If
|
||||
|
||||
' oTable.Rows(i + 1).Cells(3).Range.Text = cSqlDb.checkNullStr(r(2))
|
||||
If i < dt.Rows.Count Then oTable.Rows.Add()
|
||||
i += 1
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Else
|
||||
MessageBox.Show("Textmarke nicht vorhanden!")
|
||||
End If
|
||||
|
||||
|
||||
odoc.Save() : odoc.Activate()
|
||||
|
||||
If autodruck Then
|
||||
Dim t As New Threading.Thread(Sub()
|
||||
print(odoc, PrinterName)
|
||||
End Sub)
|
||||
t.IsBackground = True
|
||||
t.Start()
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.ToString)
|
||||
End Try
|
||||
Return odoc
|
||||
End Function
|
||||
|
||||
Public Function genAbholbereitMSE(dt As DataTable, kdNr As Integer, sachbearbeiter As String, language As String, GueltigBis As String, autodruck As Boolean, verlaengerung As Boolean, Optional PrinterName As String = "", Optional AuftragsNr As Integer = 0, Optional ByRef pfadWord As String = "", Optional visible As Boolean = True) As Microsoft.Office.Interop.Word.Document
|
||||
Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
|
||||
Try
|
||||
pfadWord = ""
|
||||
If verlaengerung Then
|
||||
Select Case language
|
||||
Case "DE" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\MSE\Abholbereit_MSE_DE.dotx"
|
||||
Case "YU" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\MSE\Abholbereit_MSE_YU.dotx"
|
||||
Case "RO" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\MSE\Abholbereit_MSE_RO.dotx"
|
||||
' Case "TR" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\CZ\Abholbereit_IDS_YU.dotx.dotx"
|
||||
Case Else : MsgBox("Keine Sprache ausgewählt!") : Return odoc
|
||||
End Select
|
||||
Else
|
||||
Select Case language
|
||||
Case "DE" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\Abholbereit_DE.dotx"
|
||||
Case "YU" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\Abholbereit_YU.dotx"
|
||||
Case "RO" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\Abholbereit_RO.dotx"
|
||||
' Case "TR" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\CZ\Abholbereit_IDS_YU.dotx.dotx"
|
||||
Case Else : MsgBox("Keine Sprache ausgewählt!") : Return odoc
|
||||
End Select
|
||||
End If
|
||||
|
||||
Dim oWord As New Microsoft.Office.Interop.Word.Application
|
||||
odoc = openWord(pfadWord, (Not autodruck And visible), oWord)
|
||||
|
||||
|
||||
' Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM SDL WHERE KundenNr=" & kdNr & " AND SDLNr=210 AND Retourniert=1 AND RetourniertAm between '" & datum.ToShortDateString & " 00:00:00' and '" & datum.ToShortDateString & " 23:59:59'")
|
||||
Dim KUNDE = kundenSQL.getKundeFMZOLLByKdNr(kdNr)
|
||||
If KUNDE Is Nothing Then MsgBox("Kunde nicht gefunden!") : Return odoc
|
||||
' Dim PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
|
||||
|
||||
Dim oTable As Word.Table
|
||||
|
||||
odoc.FormFields("Adresse1").Range.Text = KUNDE.Name_1 & " " & KUNDE.Name_2
|
||||
odoc.FormFields("Adresse2").Range.Text = KUNDE.Straße
|
||||
odoc.FormFields("Adresse3").Range.Text = KUNDE.LandKz & " " & KUNDE.PLZ & " " & KUNDE.Ort
|
||||
If KUNDE.Telefax <> "" Then
|
||||
odoc.FormFields("Adresse5").Range.Text = "FAX: " & KUNDE.Telefax
|
||||
ElseIf KUNDE.E_Mail <> "" Then
|
||||
odoc.FormFields("Adresse5").Range.Text = "E-Mail: " & KUNDE.E_Mail
|
||||
End If
|
||||
|
||||
If verlaengerung Then
|
||||
odoc.FormFields("GueltigBis").Range.Text = GueltigBis
|
||||
End If
|
||||
' odoc.FormFields("KdNrVERAG").Range.Text = KUNDE.KundenNr
|
||||
' odoc.FormFields("KdNrMST").Range.Text = PartnerKdNrFromFMZOLL.MSEKundenNr
|
||||
odoc.FormFields("Sachbearbeiter").Range.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
|
||||
odoc.FormFields("Datum").Range.Text = Now.ToShortDateString
|
||||
odoc.FormFields("KundenNr").Range.Text = KUNDE.AdressenNr
|
||||
odoc.FormFields("AuftragsNr").Range.Text = AuftragsNr.ToString("000000.##")
|
||||
|
||||
If odoc.Range.Bookmarks.Exists("TabelleKarten") Then
|
||||
If odoc.Bookmarks("TabelleKarten").Range.Tables.Count > 0 Then
|
||||
oTable = odoc.Bookmarks("TabelleKarten").Range.Tables(1)
|
||||
Dim i = 1
|
||||
For Each r As DataRow In dt.Rows
|
||||
If r("KfzKennzeichen").ToString <> "" Then
|
||||
If verlaengerung Then
|
||||
oTable.Rows(i + 1).Cells(1).Range.Text = cSqlDb.checkNullStr(r("KfzKennzeichen"))
|
||||
Else
|
||||
oTable.Rows(i + 1).Cells(1).Range.Text = cSqlDb.checkNullStr(r("KfzKennzeichen"))
|
||||
oTable.Rows(i + 1).Cells(2).Range.Text = cSqlDb.checkNullStr(r("KarteBoxBezeichnung"))
|
||||
oTable.Rows(i + 1).Cells(3).Range.Text = cSqlDb.checkNullStr(r("KartenNr"))
|
||||
oTable.Rows(i + 1).Cells(4).Range.Text = cSqlDb.checkNullStr(r("PIN"))
|
||||
End If
|
||||
|
||||
' oTable.Rows(i + 1).Cells(3).Range.Text = cSqlDb.checkNullStr(r(2))
|
||||
If i < dt.Rows.Count Then oTable.Rows.Add()
|
||||
i += 1
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Else
|
||||
MessageBox.Show("Textmarke nicht vorhanden!")
|
||||
End If
|
||||
|
||||
|
||||
odoc.Save() : odoc.Activate()
|
||||
|
||||
If autodruck Then
|
||||
Dim t As New Threading.Thread(Sub()
|
||||
print(odoc, PrinterName)
|
||||
End Sub)
|
||||
t.IsBackground = True
|
||||
t.Start()
|
||||
End If
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.ToString)
|
||||
End Try
|
||||
Return odoc
|
||||
End Function
|
||||
|
||||
Public Function genAbholbereitUTA(dt As DataTable, kdNr As Integer, sachbearbeiter As String, language As String, GueltigBis As String, autodruck As Boolean, verlaengerung As Boolean, Optional PrinterName As String = "", Optional AuftragsNr As Integer = 0, Optional ByRef pfadWord As String = "", Optional visible As Boolean = True) As Microsoft.Office.Interop.Word.Document
|
||||
Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
|
||||
Try
|
||||
pfadWord = ""
|
||||
If verlaengerung Then
|
||||
Select Case language
|
||||
Case "DE" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\UTA\Abholbereit_UTA_DE.dotx"
|
||||
Case "YU" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\UTA\Abholbereit_UTA_YU.dotx"
|
||||
Case "RO" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\UTA\Abholbereit_UTA_RO.dotx"
|
||||
Case "TR" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\UTA\Abholbereit_UTA_TR.dotx"
|
||||
Case Else : MsgBox("Keine Sprache ausgewählt!") : Return odoc
|
||||
End Select
|
||||
Else
|
||||
Select Case language
|
||||
Case "DE" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\Abholbereit_DE.dotx"
|
||||
Case "YU" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\Abholbereit_YU.dotx"
|
||||
Case "RO" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\Abholbereit_RO.dotx"
|
||||
Case "TR" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\Abholbereit_TR.dotx"
|
||||
' Case "TR" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\CZ\Abholbereit_IDS_YU.dotx.dotx"
|
||||
Case Else : MsgBox("Keine Sprache ausgewählt!") : Return odoc
|
||||
End Select
|
||||
End If
|
||||
|
||||
Dim oWord As New Microsoft.Office.Interop.Word.Application
|
||||
odoc = openWord(pfadWord, (Not autodruck And visible), oWord)
|
||||
|
||||
|
||||
' Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM SDL WHERE KundenNr=" & kdNr & " AND SDLNr=210 AND Retourniert=1 AND RetourniertAm between '" & datum.ToShortDateString & " 00:00:00' and '" & datum.ToShortDateString & " 23:59:59'")
|
||||
Dim KUNDE = kundenSQL.getKundeFMZOLLByKdNr(kdNr)
|
||||
If KUNDE Is Nothing Then MsgBox("Kunde nicht gefunden!") : Return odoc
|
||||
' Dim PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
|
||||
|
||||
Dim oTable As Word.Table
|
||||
|
||||
odoc.FormFields("Adresse1").Range.Text = KUNDE.Name_1 & " " & KUNDE.Name_2
|
||||
odoc.FormFields("Adresse2").Range.Text = KUNDE.Straße
|
||||
odoc.FormFields("Adresse3").Range.Text = KUNDE.LandKz & " " & KUNDE.PLZ & " " & KUNDE.Ort
|
||||
If KUNDE.Telefax <> "" Then
|
||||
odoc.FormFields("Adresse5").Range.Text = "FAX: " & KUNDE.Telefax
|
||||
ElseIf KUNDE.E_Mail <> "" Then
|
||||
odoc.FormFields("Adresse5").Range.Text = "E-Mail: " & KUNDE.E_Mail
|
||||
End If
|
||||
|
||||
If verlaengerung Then odoc.FormFields("GueltigBis").Range.Text = GueltigBis
|
||||
|
||||
' odoc.FormFields("KdNrVERAG").Range.Text = KUNDE.KundenNr
|
||||
' odoc.FormFields("KdNrMST").Range.Text = PartnerKdNrFromFMZOLL.MSEKundenNr
|
||||
odoc.FormFields("Sachbearbeiter").Range.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
|
||||
odoc.FormFields("Datum").Range.Text = Now.ToShortDateString
|
||||
odoc.FormFields("KundenNr").Range.Text = KUNDE.AdressenNr
|
||||
odoc.FormFields("AuftragsNr").Range.Text = AuftragsNr.ToString("000000.##")
|
||||
|
||||
If odoc.Range.Bookmarks.Exists("TabelleKarten") Then
|
||||
If odoc.Bookmarks("TabelleKarten").Range.Tables.Count > 0 Then
|
||||
oTable = odoc.Bookmarks("TabelleKarten").Range.Tables(1)
|
||||
Dim i = 1
|
||||
For Each r As DataRow In dt.Rows
|
||||
If r("KfzKennzeichen").ToString <> "" Then
|
||||
If verlaengerung Then
|
||||
oTable.Rows(i + 1).Cells(1).Range.Text = cSqlDb.checkNullStr(r("KfzKennzeichen"))
|
||||
Else
|
||||
oTable.Rows(i + 1).Cells(1).Range.Text = cSqlDb.checkNullStr(r("KfzKennzeichen"))
|
||||
oTable.Rows(i + 1).Cells(2).Range.Text = cSqlDb.checkNullStr(r("KarteBoxBezeichnung"))
|
||||
oTable.Rows(i + 1).Cells(3).Range.Text = cSqlDb.checkNullStr(r("KartenNr"))
|
||||
oTable.Rows(i + 1).Cells(4).Range.Text = cSqlDb.checkNullStr(r("PIN"))
|
||||
End If
|
||||
|
||||
' oTable.Rows(i + 1).Cells(3).Range.Text = cSqlDb.checkNullStr(r(2))
|
||||
If i < dt.Rows.Count Then oTable.Rows.Add()
|
||||
i += 1
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Else
|
||||
MessageBox.Show("Textmarke nicht vorhanden!")
|
||||
End If
|
||||
|
||||
|
||||
odoc.Save() : odoc.Activate()
|
||||
|
||||
If autodruck Then
|
||||
Dim t As New Threading.Thread(Sub()
|
||||
print(odoc, PrinterName)
|
||||
End Sub)
|
||||
t.IsBackground = True
|
||||
t.Start()
|
||||
End If
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.ToString)
|
||||
End Try
|
||||
Return odoc
|
||||
End Function
|
||||
|
||||
Public Function genAbholbereitPL(dt As DataTable, kdNr As Integer, sachbearbeiter As String, language As String, GueltigBis As String, autodruck As Boolean, Optional PrinterName As String = "", Optional AuftragsNr As Integer = 0, Optional ByRef pfadWord As String = "", Optional visible As Boolean = True) As Microsoft.Office.Interop.Word.Document
|
||||
Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
|
||||
Try
|
||||
pfadWord = ""
|
||||
Select Case language
|
||||
Case "DE" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\PL\Abholbereit_PL_DE.dotx"
|
||||
Case "YU" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\PL\Abholbereit_PL_YU.dotx"
|
||||
' Case "RO" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\PL\Abholbereit_PL_RO.dotx"
|
||||
Case "TR" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\PL\Abholbereit_PL_TR.dotx"
|
||||
Case Else : MsgBox("Keine Sprache ausgewählt!") : Return odoc
|
||||
End Select
|
||||
|
||||
Dim oWord As New Microsoft.Office.Interop.Word.Application
|
||||
odoc = openWord(pfadWord, (Not autodruck And visible), oWord)
|
||||
|
||||
' Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM SDL WHERE KundenNr=" & kdNr & " AND SDLNr=210 AND Retourniert=1 AND RetourniertAm between '" & datum.ToShortDateString & " 00:00:00' and '" & datum.ToShortDateString & " 23:59:59'")
|
||||
Dim KUNDE = kundenSQL.getKundeFMZOLLByKdNr(kdNr)
|
||||
If KUNDE Is Nothing Then MsgBox("Kunde nicht gefunden!") : Return odoc
|
||||
' Dim PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
|
||||
|
||||
Dim oTable As Word.Table
|
||||
|
||||
odoc.FormFields("Adresse1").Range.Text = KUNDE.Name_1 & " " & KUNDE.Name_2
|
||||
odoc.FormFields("Adresse2").Range.Text = KUNDE.Straße
|
||||
odoc.FormFields("Adresse3").Range.Text = KUNDE.LandKz & " " & KUNDE.PLZ & " " & KUNDE.Ort
|
||||
If KUNDE.Telefax <> "" Then
|
||||
odoc.FormFields("Adresse5").Range.Text = "FAX: " & KUNDE.Telefax
|
||||
ElseIf KUNDE.E_Mail <> "" Then
|
||||
odoc.FormFields("Adresse5").Range.Text = "E-Mail: " & KUNDE.E_Mail
|
||||
End If
|
||||
|
||||
' odoc.FormFields("GueltigBis").Range.Text = GueltigBis
|
||||
|
||||
' odoc.FormFields("KdNrVERAG").Range.Text = KUNDE.KundenNr
|
||||
' odoc.FormFields("KdNrMST").Range.Text = PartnerKdNrFromFMZOLL.MSEKundenNr
|
||||
odoc.FormFields("Sachbearbeiter").Range.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
|
||||
odoc.FormFields("Datum").Range.Text = Now.ToShortDateString
|
||||
odoc.FormFields("KundenNr").Range.Text = KUNDE.AdressenNr
|
||||
odoc.FormFields("AuftragsNr").Range.Text = AuftragsNr.ToString("000000.##")
|
||||
|
||||
|
||||
Dim MSEKdNr = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr).MSEKundenNr
|
||||
|
||||
If odoc.Range.Bookmarks.Exists("TabelleKarten") Then
|
||||
If odoc.Bookmarks("TabelleKarten").Range.Tables.Count > 0 Then
|
||||
oTable = odoc.Bookmarks("TabelleKarten").Range.Tables(1)
|
||||
Dim i = 1
|
||||
For Each r As DataRow In dt.Rows
|
||||
If r("KfzKennzeichen").ToString <> "" Then
|
||||
|
||||
oTable.Rows(i + 1).Cells(1).Range.Text = cSqlDb.checkNullStr(r("KfzKennzeichen"))
|
||||
oTable.Rows(i + 1).Cells(2).Range.Text = cSqlDb.checkNullStr(r("KartenNr"))
|
||||
' oTable.Rows(i + 1).Cells(2).Range.Text = MSEKdNr
|
||||
|
||||
' oTable.Rows(i + 1).Cells(3).Range.Text = cSqlDb.checkNullStr(r(2))
|
||||
If i < dt.Rows.Count Then oTable.Rows.Add()
|
||||
i += 1
|
||||
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Else
|
||||
MessageBox.Show("Textmarke nicht vorhanden!")
|
||||
End If
|
||||
|
||||
|
||||
odoc.Save() : odoc.Activate()
|
||||
|
||||
If autodruck Then
|
||||
Dim t As New Threading.Thread(Sub()
|
||||
print(odoc, PrinterName)
|
||||
End Sub)
|
||||
t.IsBackground = True
|
||||
t.Start()
|
||||
End If
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.ToString)
|
||||
End Try
|
||||
Return odoc
|
||||
End Function
|
||||
|
||||
Public Function genAbholbereitCZPL(dt As DataTable, kdNr As Integer, sachbearbeiter As String, language As String, GueltigBis As String, autodruck As Boolean, Optional PrinterName As String = "", Optional AuftragsNr As Integer = 0, Optional ByRef pfadWord As String = "", Optional visible As Boolean = True) As Microsoft.Office.Interop.Word.Document
|
||||
Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
|
||||
Try
|
||||
pfadWord = ""
|
||||
Select Case language
|
||||
' Case "DE" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\CZ\Abholbereit_IDS_YU.dotx.dotx"
|
||||
Case "YU" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\CZ\Abholbereit_CZ+PL_YU.dotx"
|
||||
' Case "RO" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\PL\Abholbereit_PL_RO.dotx"
|
||||
Case "TR" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\CZ\Abholbereit_CZ+PL_TR.dotx"
|
||||
Case Else : MsgBox("Keine Sprache ausgewählt!") : Return odoc
|
||||
End Select
|
||||
|
||||
Dim oWord As New Microsoft.Office.Interop.Word.Application
|
||||
odoc = openWord(pfadWord, (Not autodruck And visible), oWord)
|
||||
|
||||
' Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM SDL WHERE KundenNr=" & kdNr & " AND SDLNr=210 AND Retourniert=1 AND RetourniertAm between '" & datum.ToShortDateString & " 00:00:00' and '" & datum.ToShortDateString & " 23:59:59'")
|
||||
Dim KUNDE = kundenSQL.getKundeFMZOLLByKdNr(kdNr)
|
||||
If KUNDE Is Nothing Then MsgBox("Kunde nicht gefunden!") : Return odoc
|
||||
' Dim PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
|
||||
|
||||
Dim oTable As Word.Table
|
||||
|
||||
odoc.FormFields("Adresse1").Range.Text = KUNDE.Name_1 & " " & KUNDE.Name_2
|
||||
odoc.FormFields("Adresse2").Range.Text = KUNDE.Straße
|
||||
odoc.FormFields("Adresse3").Range.Text = KUNDE.LandKz & " " & KUNDE.PLZ & " " & KUNDE.Ort
|
||||
If KUNDE.Telefax <> "" Then
|
||||
odoc.FormFields("Adresse5").Range.Text = "FAX: " & KUNDE.Telefax
|
||||
ElseIf KUNDE.E_Mail <> "" Then
|
||||
odoc.FormFields("Adresse5").Range.Text = "E-Mail: " & KUNDE.E_Mail
|
||||
End If
|
||||
|
||||
' odoc.FormFields("GueltigBis").Range.Text = GueltigBis
|
||||
|
||||
' odoc.FormFields("KdNrVERAG").Range.Text = KUNDE.KundenNr
|
||||
' odoc.FormFields("KdNrMST").Range.Text = PartnerKdNrFromFMZOLL.MSEKundenNr
|
||||
odoc.FormFields("Sachbearbeiter").Range.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
|
||||
odoc.FormFields("Datum").Range.Text = Now.ToShortDateString
|
||||
odoc.FormFields("KundenNr").Range.Text = KUNDE.AdressenNr
|
||||
odoc.FormFields("AuftragsNr").Range.Text = AuftragsNr.ToString("000000.##")
|
||||
|
||||
|
||||
Dim MSEKdNr = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr).MSEKundenNr
|
||||
|
||||
If odoc.Range.Bookmarks.Exists("TabelleKarten") Then
|
||||
If odoc.Bookmarks("TabelleKarten").Range.Tables.Count > 0 Then
|
||||
oTable = odoc.Bookmarks("TabelleKarten").Range.Tables(1)
|
||||
Dim i = 1
|
||||
For Each r As DataRow In dt.Rows
|
||||
If r("KfzKennzeichen").ToString <> "" Then
|
||||
|
||||
oTable.Rows(i + 1).Cells(1).Range.Text = cSqlDb.checkNullStr(r("KfzKennzeichen"))
|
||||
oTable.Rows(i + 1).Cells(2).Range.Text = cSqlDb.checkNullStr(r("KartenNr"))
|
||||
' oTable.Rows(i + 1).Cells(2).Range.Text = MSEKdNr
|
||||
|
||||
' oTable.Rows(i + 1).Cells(3).Range.Text = cSqlDb.checkNullStr(r(2))
|
||||
If i < dt.Rows.Count Then oTable.Rows.Add()
|
||||
i += 1
|
||||
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Else
|
||||
MessageBox.Show("Textmarke nicht vorhanden!")
|
||||
End If
|
||||
|
||||
|
||||
odoc.Save() : odoc.Activate()
|
||||
|
||||
If autodruck Then
|
||||
Dim t As New Threading.Thread(Sub()
|
||||
print(odoc, PrinterName)
|
||||
End Sub)
|
||||
t.IsBackground = True
|
||||
t.Start()
|
||||
End If
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.ToString)
|
||||
End Try
|
||||
Return odoc
|
||||
End Function
|
||||
|
||||
Public Function genBestellung_MAN(dt As DataTable, kdNr As Integer, sachbearbeiter As String, language As String, autodruck As Boolean, Optional PrinterName As String = "", Optional ByRef pfadWord As String = "", Optional visible As Boolean = True) As Microsoft.Office.Interop.Word.Document
|
||||
Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
|
||||
Try
|
||||
|
||||
pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Bestellfomulare\Bestellung_MAN_Abgasplakette.dotx "
|
||||
|
||||
|
||||
Dim oWord As New Microsoft.Office.Interop.Word.Application
|
||||
odoc = openWord(pfadWord, (Not autodruck And visible), oWord)
|
||||
|
||||
' Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM SDL WHERE KundenNr=" & kdNr & " AND SDLNr=210 AND Retourniert=1 AND RetourniertAm between '" & datum.ToShortDateString & " 00:00:00' and '" & datum.ToShortDateString & " 23:59:59'")
|
||||
Dim KUNDE = kundenSQL.getKundeFMZOLLByKdNr(kdNr)
|
||||
If KUNDE Is Nothing Then MsgBox("Kunde nicht gefunden!") : Return odoc
|
||||
' Dim PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
|
||||
|
||||
Dim oTable As Word.Table
|
||||
|
||||
odoc.FormFields("Kunde").Range.Text = KUNDE.Ordnungsbegriff
|
||||
|
||||
odoc.FormFields("Sachbearbeiter").Range.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
|
||||
odoc.FormFields("Datum").Range.Text = Now.ToShortDateString
|
||||
odoc.FormFields("KundenNr").Range.Text = KUNDE.AdressenNr
|
||||
odoc.FormFields("KundenNr2").Range.Text = KUNDE.AdressenNr
|
||||
|
||||
|
||||
If odoc.Range.Bookmarks.Exists("TabelleKarten") Then
|
||||
If odoc.Bookmarks("TabelleKarten").Range.Tables.Count > 0 Then
|
||||
oTable = odoc.Bookmarks("TabelleKarten").Range.Tables(1)
|
||||
Dim i = 1
|
||||
For Each r As DataRow In dt.Rows
|
||||
If r("KfzKennzeichen").ToString <> "" Then
|
||||
|
||||
oTable.Rows(i + 1).Cells(1).Range.Text = i
|
||||
oTable.Rows(i + 1).Cells(2).Range.Text = cSqlDb.checkNullStr(r("KfzKennzeichen"))
|
||||
|
||||
If i < dt.Rows.Count Then oTable.Rows.Add()
|
||||
i += 1
|
||||
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Else
|
||||
MessageBox.Show("Textmarke nicht vorhanden!")
|
||||
End If
|
||||
|
||||
|
||||
odoc.Save() : odoc.Activate()
|
||||
|
||||
If autodruck Then
|
||||
Dim t As New Threading.Thread(Sub()
|
||||
print(odoc, PrinterName)
|
||||
End Sub)
|
||||
t.IsBackground = True
|
||||
t.Start()
|
||||
End If
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.ToString)
|
||||
End Try
|
||||
Return odoc
|
||||
End Function
|
||||
|
||||
End Class
|
||||
130
SDL/Classes/cGeschaeftsjahr.vb
Normal file
130
SDL/Classes/cGeschaeftsjahr.vb
Normal file
@@ -0,0 +1,130 @@
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Public Class cGeschaeftsjahr
|
||||
Property Mandant As String = ""
|
||||
Property Niederlassung As String = ""
|
||||
Property Benutzer As Integer = -1
|
||||
Property Geschäftsjahr As Integer = -1
|
||||
Property LfdBelegNr As Integer = 0
|
||||
Property LfdJournalNr As Integer = 0
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Public Sub New(Mandant As String, Niederlassung As String, Benutzer As Integer, Geschäftsjahr As Integer)
|
||||
Me.Mandant = Mandant
|
||||
Me.Niederlassung = Niederlassung
|
||||
Me.Benutzer = Benutzer
|
||||
Me.Geschäftsjahr = Geschäftsjahr
|
||||
LOAD(Mandant, Niederlassung, Benutzer, Geschäftsjahr)
|
||||
End Sub
|
||||
|
||||
|
||||
Public Function INCREASE_BELEG() As Integer
|
||||
If LfdBelegNr > 0 Then
|
||||
LfdBelegNr += 1
|
||||
Else
|
||||
LfdBelegNr = 1
|
||||
End If
|
||||
SAVE()
|
||||
Return LfdBelegNr
|
||||
End Function
|
||||
Public Function INCREASE_JOURNAL() As Integer
|
||||
If LfdJournalNr > 0 Then
|
||||
LfdJournalNr += 1
|
||||
Else
|
||||
LfdJournalNr = 1
|
||||
End If
|
||||
SAVE()
|
||||
Return LfdJournalNr
|
||||
End Function
|
||||
|
||||
Public Function SAVE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM [tblGeschäftsjahr] WITH(updlock,serializable) WHERE [Mandant]=@Mandant AND Niederlassung=@Niederlassung AND Benutzer=@Benutzer AND Geschäftsjahr=@Geschäftsjahr) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
'MsgBox(sqlstr)
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
Public Sub LOAD(Mandant As String, Niederlassung As String, Benutzer As Integer, Geschäftsjahr As Integer)
|
||||
Try
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblGeschäftsjahr WHERE [Mandant]=@Mandant AND Niederlassung=@Niederlassung AND Benutzer=@Benutzer AND Geschäftsjahr=@Geschäftsjahr ", conn)
|
||||
cmd.Parameters.AddWithValue("@Mandant", Mandant)
|
||||
cmd.Parameters.AddWithValue("@Niederlassung", Niederlassung)
|
||||
cmd.Parameters.AddWithValue("@Benutzer", Benutzer)
|
||||
cmd.Parameters.AddWithValue("@Geschäftsjahr", Geschäftsjahr)
|
||||
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
Me.Mandant = cSqlDb.checkNullStr(dr.Item("Mandant"))
|
||||
Me.Niederlassung = cSqlDb.checkNullStr(dr.Item("Niederlassung"))
|
||||
Me.Benutzer = cSqlDb.checkNullStr(dr.Item("Benutzer"))
|
||||
Me.Geschäftsjahr = cSqlDb.checkNullInteger(dr.Item("Geschäftsjahr"))
|
||||
Me.LfdBelegNr = cSqlDb.checkNullInteger(dr.Item("LfdBelegNr"))
|
||||
Me.LfdJournalNr = cSqlDb.checkNullInteger(dr.Item("LfdJournalNr"))
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
'Return Nothing
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
' Return Nothing
|
||||
End Sub
|
||||
|
||||
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem2)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Mandant", Mandant))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Niederlassung", Niederlassung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Benutzer", Benutzer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Geschäftsjahr", Geschäftsjahr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("LfdBelegNr", LfdBelegNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("LfdJournalNr", LfdJournalNr))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
str &= "[" & i.Text & "] = @" & i.Text.Replace("-", "").Replace(" ", "") & ","
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblGeschäftsjahr] SET " & str & " WHERE [Mandant]=@Mandant AND Niederlassung=@Niederlassung AND Benutzer=@Benutzer AND Geschäftsjahr=@Geschäftsjahr ")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Text.Replace("-", "").Replace(" ", "") & ","
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO [tblGeschäftsjahr] (" & 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
|
||||
188
SDL/Classes/cKassenbuch.vb
Normal file
188
SDL/Classes/cKassenbuch.vb
Normal file
@@ -0,0 +1,188 @@
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Public Class cKassenbuch
|
||||
Property Mandant As String = "VERA"
|
||||
Property Niederlassung As String = "SUB"
|
||||
Property Benutzer As Integer = -1
|
||||
Property Geschäftsjahr As Integer = IIf(Now.Month = 1, Now.Year - 1, Now.Year)
|
||||
Property JournalNr As Integer = -1
|
||||
Property Buchungsdatum As Object = Nothing
|
||||
Property BelegDat As Object = Nothing
|
||||
Property BelegNr As Integer = -1
|
||||
Property Belegart As Integer = 1
|
||||
Property Buchungstext As String = ""
|
||||
Property Betrag As Double = 0.0
|
||||
Property Währung As Integer = 900
|
||||
Property Kurs As Integer = 1
|
||||
Property Eingabeart As Integer = 0
|
||||
Property Konto As Integer = -1
|
||||
Property Soll As Double = 0.0
|
||||
Property Haben As Double = 0.0
|
||||
Property Steuer As Integer = 0
|
||||
Property Steuerbetrag As Double = 0.0
|
||||
Property Referenz As String = ""
|
||||
Property Belegverbuchung As Boolean = False
|
||||
Property gebucht As Boolean = False
|
||||
Property rksv_id As Object = Nothing
|
||||
Property rksv_BelegId As Object = Nothing
|
||||
Property rksv_aktiv As Boolean = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Public Sub New(Mandant As String, Niederlassung As String, Benutzer As Integer, Geschäftsjahr As Integer, JournalNr As Integer)
|
||||
Me.Mandant = Mandant
|
||||
Me.Niederlassung = Niederlassung
|
||||
Me.Benutzer = Benutzer
|
||||
Me.Geschäftsjahr = Geschäftsjahr
|
||||
Me.JournalNr = JournalNr
|
||||
End Sub
|
||||
|
||||
Public Sub New(op As String, Mandant As String, Niederlassung As String, Benutzer As Integer, Geschäftsjahr As Integer, JournalNr As Integer)
|
||||
Select Case op
|
||||
Case "LOAD" : LOAD(Mandant, Niederlassung, Benutzer, Geschäftsjahr, JournalNr)
|
||||
Case "INSERT"
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Public Function SAVE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM [tblKassenbuch] WITH(updlock,serializable) WHERE [Mandant]=@Mandant AND Niederlassung=@Niederlassung AND Benutzer=@Benutzer AND Geschäftsjahr=@Geschäftsjahr AND JournalNr=@JournalNr ) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
'MsgBox(sqlstr)
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
Public Function INSERT() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
|
||||
' MsgBox(getInsertCmd())
|
||||
Return SQL.doSQL(getInsertCmd(), "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
Public Sub LOAD(Mandant As String, Niederlassung As String, Benutzer As Integer, Geschäftsjahr As Integer, JournalNr As Integer)
|
||||
Try
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblKassenbuch WHERE [Mandant]=@Mandant AND Niederlassung=@Niederlassung AND Benutzer=@Benutzer AND Geschäftsjahr=@Geschäftsjahr AND JournalNr=@JournalNr ", conn)
|
||||
cmd.Parameters.AddWithValue("@Mandant", Mandant)
|
||||
cmd.Parameters.AddWithValue("@Niederlassung", Niederlassung)
|
||||
cmd.Parameters.AddWithValue("@Benutzer", Benutzer)
|
||||
cmd.Parameters.AddWithValue("@Geschäftsjahr", Geschäftsjahr)
|
||||
cmd.Parameters.AddWithValue("@JournalNr", JournalNr)
|
||||
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
Me.Mandant = cSqlDb.checkNullStr(dr.Item("Mandant"))
|
||||
Me.Niederlassung = cSqlDb.checkNullStr(dr.Item("Niederlassung"))
|
||||
Me.Benutzer = cSqlDb.checkNullStr(dr.Item("Benutzer"))
|
||||
Me.Geschäftsjahr = cSqlDb.checkNullInteger(dr.Item("Geschäftsjahr"))
|
||||
Me.JournalNr = cSqlDb.checkNullInteger(dr.Item("JournalNr"))
|
||||
|
||||
Me.Buchungsdatum = cSqlDb.checkNullDate(dr.Item("Buchungsdatum"))
|
||||
Me.BelegDat = cSqlDb.checkNullDate(dr.Item("BelegDat"))
|
||||
Me.BelegNr = cSqlDb.checkNullInteger(dr.Item("BelegNr"))
|
||||
Me.Belegart = cSqlDb.checkNullInteger(dr.Item("Belegart"))
|
||||
Me.Buchungstext = cSqlDb.checkNullStr(dr.Item("Buchungstext"))
|
||||
Me.Betrag = cSqlDb.checkNulDbl(dr.Item("Betrag"))
|
||||
Me.Währung = cSqlDb.checkNullInteger(dr.Item("Währung"))
|
||||
Me.Kurs = cSqlDb.checkNullInteger(dr.Item("Kurs"))
|
||||
Me.Eingabeart = cSqlDb.checkNullInteger(dr.Item("Eingabeart"))
|
||||
Me.Konto = cSqlDb.checkNullInteger(dr.Item("Konto"))
|
||||
Me.Soll = cSqlDb.checkNulDbl(dr.Item("Soll"))
|
||||
Me.Haben = cSqlDb.checkNulDbl(dr.Item("Haben"))
|
||||
Me.Steuer = cSqlDb.checkNullInteger(dr.Item("Steuer"))
|
||||
Me.Steuerbetrag = cSqlDb.checkNulDbl(dr.Item("Steuerbetrag"))
|
||||
Me.Referenz = cSqlDb.checkNullStr(dr.Item("Referenz"))
|
||||
Me.Belegverbuchung = cSqlDb.checkNullBool(dr.Item("Belegverbuchung"))
|
||||
Me.gebucht = cSqlDb.checkNullBool(dr.Item("gebucht"))
|
||||
Me.rksv_id = cSqlDb.checkNullReturnValue(dr.Item("rksv_id"), Nothing)
|
||||
Me.rksv_BelegId = cSqlDb.checkNullReturnValue(dr.Item("rksv_BelegId"), Nothing)
|
||||
Me.rksv_aktiv = cSqlDb.checkNullReturnValue(dr.Item("rksv_aktiv"), False)
|
||||
|
||||
|
||||
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
'Return Nothing
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
' Return Nothing
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem2)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Mandant", Mandant))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Niederlassung", Niederlassung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Benutzer", Benutzer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Geschäftsjahr", Geschäftsjahr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("JournalNr", JournalNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Buchungsdatum", Buchungsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("BelegDat", BelegDat))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("BelegNr", BelegNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Belegart", Belegart))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Buchungstext", Buchungstext))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Betrag", Betrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Währung", Währung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Kurs", Kurs))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Eingabeart", Eingabeart))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Konto", Konto))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Soll", Soll))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Haben", Haben))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Steuer", Steuer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Steuerbetrag", Steuerbetrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Referenz", Referenz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Belegverbuchung", Belegverbuchung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("gebucht", gebucht))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_id", rksv_id))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_BelegId", rksv_BelegId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_aktiv", rksv_aktiv))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
str &= "[" & i.Text & "] = @" & i.Text.Replace("-", "").Replace(" ", "") & ","
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblKassenbuch] SET " & str & " WHERE [Mandant]=@Mandant AND Niederlassung=@Niederlassung AND Benutzer=@Benutzer AND Geschäftsjahr=@Geschäftsjahr AND JournalNr=@JournalNr ")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Text.Replace("-", "").Replace(" ", "") & ","
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO [tblKassenbuch] (" & 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
|
||||
1502
SDL/Classes/cRKSV.vb
Normal file
1502
SDL/Classes/cRKSV.vb
Normal file
File diff suppressed because it is too large
Load Diff
282
SDL/Classes/cRKSV_Kasse.vb
Normal file
282
SDL/Classes/cRKSV_Kasse.vb
Normal file
@@ -0,0 +1,282 @@
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Public Class cRKSV_Kasse
|
||||
|
||||
Property rksv_id As Integer = -1
|
||||
Property rksv_bez As String = ""
|
||||
Property rksv_CompanyGUID As String = ""
|
||||
|
||||
Property rksv_firma As String = ""
|
||||
Property rksv_startdatum As Object = Nothing
|
||||
Property rksv_aktiv As Boolean = True
|
||||
Property rksv_BelegIdZaehler As Integer = 0
|
||||
Property rksv_Umsatzzaehler As Double = 0.0
|
||||
Property rksv_lastJWS As String = ""
|
||||
Property rksv_lastQR As String = ""
|
||||
Property rksv_lastBeleg As String = ""
|
||||
Property rksv_ITG_id As Object = Nothing
|
||||
Property rksv_AesKey As Object = Nothing
|
||||
Property rksv_KassaGuid As Object = Nothing
|
||||
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Public Sub New()
|
||||
|
||||
End Sub
|
||||
Public Sub New(rksv_id)
|
||||
LOAD(rksv_id)
|
||||
End Sub
|
||||
|
||||
Public Function INCREASE_BELEG_UMSATZ(umsatz) As Integer
|
||||
Try
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand(" UPDATE [tblRKSV_Kassen] SET rksv_BelegIdZaehler=isnull(rksv_BelegIdZaehler,0)+1, rksv_Umsatzzaehler=isnull(rksv_Umsatzzaehler,0)+@umsatz, rksv_lastBeleg=getDate() WHERE rksv_id=@rksv_id; SELECT TOP 1 rksv_BelegIdZaehler,rksv_Umsatzzaehler,rksv_lastJWS,rksv_lastBeleg FROM tblRKSV_Kassen WHERE rksv_id=@rksv_id", conn)
|
||||
|
||||
cmd.Parameters.AddWithValue("@rksv_id", rksv_id)
|
||||
cmd.Parameters.AddWithValue("@umsatz", umsatz)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
Me.rksv_BelegIdZaehler = cSqlDb.checkNullReturnValue(dr.Item("rksv_BelegIdZaehler"), Nothing)
|
||||
Me.rksv_Umsatzzaehler = cSqlDb.checkNullReturnValue(dr.Item("rksv_Umsatzzaehler"), Nothing)
|
||||
Me.rksv_lastBeleg = cSqlDb.checkNullReturnValue(dr.Item("rksv_lastBeleg"), Nothing)
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Return Me.rksv_BelegIdZaehler
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
' Return Nothing
|
||||
If False Then
|
||||
|
||||
If rksv_BelegIdZaehler > 0 Then
|
||||
rksv_BelegIdZaehler += 1
|
||||
Else
|
||||
rksv_BelegIdZaehler = 1
|
||||
End If
|
||||
|
||||
If rksv_Umsatzzaehler > 0 Then
|
||||
rksv_Umsatzzaehler += umsatz
|
||||
Else
|
||||
rksv_Umsatzzaehler = umsatz
|
||||
End If
|
||||
' rksv_lastJWS = JWS
|
||||
SAVE()
|
||||
End If
|
||||
Return -1
|
||||
End Function
|
||||
Public Function DECREASE_BELEG_UMSATZ(rksv_BelegIdZaehler_old, umsatz) As Integer
|
||||
Try
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand(" UPDATE [tblRKSV_Kassen] SET rksv_BelegIdZaehler=@rksv_BelegIdZaehler, rksv_Umsatzzaehler=isnull(rksv_Umsatzzaehler,0)+@umsatz, rksv_lastBeleg=getDate() WHERE rksv_id=@rksv_id; SELECT TOP 1 rksv_BelegIdZaehler,rksv_Umsatzzaehler,rksv_lastJWS,rksv_lastBeleg FROM tblRKSV_Kassen WHERE rksv_id=@rksv_id", conn)
|
||||
|
||||
cmd.Parameters.AddWithValue("@rksv_id", rksv_id)
|
||||
cmd.Parameters.AddWithValue("@rksv_BelegIdZaehler", rksv_BelegIdZaehler_old)
|
||||
cmd.Parameters.AddWithValue("@umsatz", umsatz)
|
||||
cmd.CommandTimeout = 180
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
Me.rksv_BelegIdZaehler = cSqlDb.checkNullReturnValue(dr.Item("rksv_BelegIdZaehler"), Nothing)
|
||||
Me.rksv_Umsatzzaehler = cSqlDb.checkNullReturnValue(dr.Item("rksv_Umsatzzaehler"), Nothing)
|
||||
Me.rksv_lastBeleg = cSqlDb.checkNullReturnValue(dr.Item("rksv_lastBeleg"), Nothing)
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Return Me.rksv_BelegIdZaehler
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
' Return Nothing
|
||||
If False Then
|
||||
|
||||
If rksv_BelegIdZaehler > 0 Then
|
||||
rksv_BelegIdZaehler += 1
|
||||
Else
|
||||
rksv_BelegIdZaehler = 1
|
||||
End If
|
||||
|
||||
If rksv_Umsatzzaehler > 0 Then
|
||||
rksv_Umsatzzaehler += umsatz
|
||||
Else
|
||||
rksv_Umsatzzaehler = umsatz
|
||||
End If
|
||||
' rksv_lastJWS = JWS
|
||||
SAVE()
|
||||
End If
|
||||
Return -1
|
||||
End Function
|
||||
Public Function INCREASE_ONLY_BELEG_UMSATZ(umsatz) As Integer
|
||||
Try
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand(" UPDATE [tblRKSV_Kassen] SET rksv_Umsatzzaehler=isnull(rksv_Umsatzzaehler,0)+@umsatz, rksv_lastBeleg=getDate() WHERE rksv_id=@rksv_id; SELECT TOP 1 rksv_BelegIdZaehler,rksv_Umsatzzaehler,rksv_lastJWS,rksv_lastBeleg FROM tblRKSV_Kassen WHERE rksv_id=@rksv_id", conn)
|
||||
|
||||
cmd.Parameters.AddWithValue("@rksv_id", rksv_id)
|
||||
cmd.Parameters.AddWithValue("@umsatz", umsatz)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
Me.rksv_BelegIdZaehler = cSqlDb.checkNullReturnValue(dr.Item("rksv_BelegIdZaehler"), Nothing)
|
||||
Me.rksv_Umsatzzaehler = cSqlDb.checkNullReturnValue(dr.Item("rksv_Umsatzzaehler"), Nothing)
|
||||
Me.rksv_lastBeleg = cSqlDb.checkNullReturnValue(dr.Item("rksv_lastBeleg"), Nothing)
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Return Me.rksv_BelegIdZaehler
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
' Return Nothing
|
||||
If False Then
|
||||
|
||||
If rksv_BelegIdZaehler > 0 Then
|
||||
rksv_BelegIdZaehler += 1
|
||||
Else
|
||||
rksv_BelegIdZaehler = 1
|
||||
End If
|
||||
|
||||
If rksv_Umsatzzaehler > 0 Then
|
||||
rksv_Umsatzzaehler += umsatz
|
||||
Else
|
||||
rksv_Umsatzzaehler = umsatz
|
||||
End If
|
||||
' rksv_lastJWS = JWS
|
||||
SAVE()
|
||||
End If
|
||||
Return -1
|
||||
End Function
|
||||
|
||||
Public Function SET_LAST_QR_JWS(JWS, qr) As Boolean
|
||||
Try
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand(" UPDATE [tblRKSV_Kassen] SET rksv_lastJWS=@jws,rksv_lastQR=@qr WHERE rksv_id=@rksv_id; SELECT TOP 1 rksv_lastJWS,rksv_lastQR FROM tblRKSV_Kassen WHERE rksv_id=@rksv_id", conn)
|
||||
|
||||
cmd.Parameters.AddWithValue("@rksv_id", rksv_id)
|
||||
cmd.Parameters.AddWithValue("@JWS", JWS)
|
||||
cmd.Parameters.AddWithValue("@qr", qr)
|
||||
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
Me.rksv_lastJWS = cSqlDb.checkNullReturnValue(dr.Item("rksv_lastJWS"), Nothing)
|
||||
Me.rksv_lastQR = cSqlDb.checkNullReturnValue(dr.Item("rksv_lastQR"), Nothing)
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return False
|
||||
End Function
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM [tblRKSV_Kassen] WITH(updlock,serializable) WHERE rksv_id=@rksv_id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
'MsgBox(sqlstr)
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
Public Sub LOAD(rksv_id As Integer)
|
||||
Try
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblRKSV_Kassen WHERE rksv_id=@rksv_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@rksv_id", rksv_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
|
||||
Me.rksv_id = cSqlDb.checkNullReturnValue(dr.Item("rksv_id"), Nothing)
|
||||
Me.rksv_bez = cSqlDb.checkNullReturnValue(dr.Item("rksv_bez"), Nothing)
|
||||
Me.rksv_CompanyGUID = cSqlDb.checkNullReturnValue(dr.Item("rksv_CompanyGUID"), Nothing)
|
||||
|
||||
Me.rksv_firma = cSqlDb.checkNullReturnValue(dr.Item("rksv_firma"), Nothing)
|
||||
Me.rksv_startdatum = cSqlDb.checkNullReturnValue(dr.Item("rksv_startdatum"), Nothing)
|
||||
Me.rksv_aktiv = cSqlDb.checkNullReturnValue(dr.Item("rksv_aktiv"), Nothing)
|
||||
Me.rksv_BelegIdZaehler = cSqlDb.checkNullReturnValue(dr.Item("rksv_BelegIdZaehler"), Nothing)
|
||||
Me.rksv_Umsatzzaehler = cSqlDb.checkNullReturnValue(dr.Item("rksv_Umsatzzaehler"), Nothing)
|
||||
Me.rksv_lastJWS = cSqlDb.checkNullReturnValue(dr.Item("rksv_lastJWS"), Nothing)
|
||||
Me.rksv_lastQR = cSqlDb.checkNullReturnValue(dr.Item("rksv_lastQR"), Nothing)
|
||||
Me.rksv_lastBeleg = cSqlDb.checkNullReturnValue(dr.Item("rksv_lastBeleg"), Nothing)
|
||||
Me.rksv_ITG_id = cSqlDb.checkNullReturnValue(dr.Item("rksv_ITG_id"), Nothing)
|
||||
Me.rksv_AesKey = cSqlDb.checkNullReturnValue(dr.Item("rksv_AesKey"), Nothing)
|
||||
Me.rksv_KassaGuid = cSqlDb.checkNullReturnValue(dr.Item("rksv_KassaGuid"), Nothing)
|
||||
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
'Return Nothing
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
' Return Nothing
|
||||
End Sub
|
||||
|
||||
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem2)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_id", rksv_id))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_bez", rksv_bez))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_CompanyGUID", rksv_CompanyGUID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_firma", rksv_firma))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_startdatum", rksv_startdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_aktiv", rksv_aktiv))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_BelegIdZaehler", rksv_BelegIdZaehler))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_Umsatzzaehler", rksv_Umsatzzaehler))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_lastJWS", rksv_lastJWS))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_lastQR", rksv_lastQR))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_lastBeleg", rksv_lastBeleg))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_ITG_id", rksv_ITG_id))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_AesKey", rksv_AesKey))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_KassaGuid", rksv_KassaGuid))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
str &= "[" & i.Text & "] = @" & i.Text.Replace("-", "").Replace(" ", "") & ","
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblRKSV_Kassen] SET " & str & " WHERE rksv_id=@rksv_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.MyListItem2) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Text.Replace("-", "").Replace(" ", "") & ","
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO [tblRKSV_Kassen] (" & 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
|
||||
302
SDL/Classes/cSDL.vb
Normal file
302
SDL/Classes/cSDL.vb
Normal file
@@ -0,0 +1,302 @@
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
|
||||
|
||||
|
||||
Public Class cSDLLeistung
|
||||
Property KundenNr As Integer
|
||||
Property KfzKennzeichen As String = ""
|
||||
Property SDLNr As Integer
|
||||
Property History As Integer
|
||||
|
||||
|
||||
Public LIST As New List(Of cSDL)
|
||||
Dim SQL As New SQL
|
||||
'Dim listTodelete As New List(Of cOfferte)
|
||||
|
||||
Sub New(KundenNr, KfzKennzeichen, SDLNr)
|
||||
Me.KundenNr = KundenNr
|
||||
Me.KfzKennzeichen = KfzKennzeichen
|
||||
Me.SDLNr = SDLNr
|
||||
|
||||
LOAD_LIST()
|
||||
End Sub
|
||||
Public Sub CLEAR()
|
||||
LIST.Clear()
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub LOAD_LIST()
|
||||
Try
|
||||
LIST.Clear()
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
|
||||
Using cmd As New SqlCommand("SELECT * FROM SDL WHERE KundenNr=@KundenNr AND KfzKennzeichen=@KfzKennzeichen AND SDLNr=@SDLNr AND AND History=@History ", conn)
|
||||
cmd.Parameters.AddWithValue("@KundenNr", KundenNr)
|
||||
cmd.Parameters.AddWithValue("@KfzKennzeichen", KfzKennzeichen)
|
||||
cmd.Parameters.AddWithValue("@SDLNr", SDLNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cSDL(dr.Item("KundenNr"), dr.Item("KfzKennzeichen"), dr.Item("SDLNr"), dr.Item("History"))
|
||||
LIST.Add(l)
|
||||
End While
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Function SAVE() As Boolean
|
||||
SAVE = True
|
||||
For Each l In LIST
|
||||
If Not l.SAVE() Then SAVE = False
|
||||
Next
|
||||
End Function
|
||||
'Function SAVE()
|
||||
' If SQL.doSQLVarList("DELETE FROM tblEmailBenachrichtigung WHERE eb_KundenNr=" & Me.eb_KundenNr & " and eb_ebartId=" & Me.eb_ebartId & " ", "SDL") Then
|
||||
' For Each l In LIST
|
||||
' If Not l.INSERT() Then Return False
|
||||
' Next
|
||||
' Return True
|
||||
' Else
|
||||
' Return False
|
||||
' End If
|
||||
'End Function
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
Public Class cSDL
|
||||
Property KundenNr As Integer
|
||||
Property KfzKennzeichen As String = ""
|
||||
Property SDLNr As Integer
|
||||
Property History As Integer
|
||||
Property RefKundenNr As Object = Nothing
|
||||
Property MSE_Kd_Nr As Object = Nothing
|
||||
Property TELEPASS_Kd_Nr As Object = Nothing
|
||||
Property CLIENT_Nr As Object = Nothing
|
||||
Property BestellNr As Object = Nothing
|
||||
Property Bestelldatum As Object = Nothing
|
||||
Property Lieferdatum As Object = Nothing
|
||||
Property Ausstellungsdatum As Object = Nothing
|
||||
Property Umstellungsdatum As Object = Nothing
|
||||
Property KartenNr As Object = Nothing
|
||||
Property PAN_Nr As Object = Nothing
|
||||
Property VIACARD As Object = Nothing
|
||||
Property MOTORWAY_CARD_Nr As Object = Nothing
|
||||
Property CARD_Nr As Object = Nothing
|
||||
Property KartenSchlüsselNr As Object = Nothing
|
||||
Property FREJUS_CARD_Nr As Object = Nothing
|
||||
Property ECO As Object = Nothing
|
||||
Property GültigBis As Object = Nothing
|
||||
Property OBUID As Object = Nothing
|
||||
Property SERIE_Nr As Object = Nothing
|
||||
Property TELEPASS_Nr As Object = Nothing
|
||||
Property Vermerk As Object = Nothing
|
||||
Property Partner As Object = Nothing
|
||||
Property BenutzerNr As Object = Nothing
|
||||
Property PIN As Object = Nothing
|
||||
Property FlottenPIN As Object = Nothing
|
||||
Property MasterPIN As Object = Nothing
|
||||
Property VertragsNr As Object = Nothing
|
||||
Property Vertragsabschlussdatum As Object = Nothing
|
||||
Property Kategorie As Object = Nothing
|
||||
Property Schadstoffklasse As Object = Nothing
|
||||
Property Status As Object = Nothing
|
||||
Property Ersatzkarte As Object = Nothing
|
||||
Property Gesperrt As Object = Nothing
|
||||
Property Defekt As Object = Nothing
|
||||
Property Verloren As Object = Nothing
|
||||
Property Gestohlen As Object = Nothing
|
||||
Property Erfassungsdatum As Object = Nothing
|
||||
Property Änderungsdatum As Object = Nothing
|
||||
Property Sachbearbeiter As Object = Nothing
|
||||
Property Retourniert As Object = Nothing
|
||||
Property RetourniertAm As Object = Nothing
|
||||
|
||||
Property GesperrtAm As Object = Nothing
|
||||
Property DefektAm As Object = Nothing
|
||||
Property VerlorenAm As Object = Nothing
|
||||
Property GestohlenAm As Object = Nothing
|
||||
Property ErsatzkarteAm As Object = Nothing
|
||||
Property TelepassErsatzkarte As Object = Nothing
|
||||
Property TelepassErsatzkarteAm As Object = Nothing
|
||||
Property Archiviert As Boolean = False
|
||||
Property LKWAbgemeldet As Boolean = False
|
||||
Property LKWAbgemeldetAM As Object = Nothing
|
||||
|
||||
Property Fahrer As Object = Nothing
|
||||
Property Kaution As Object = Nothing
|
||||
Property BelegNr As Object = Nothing
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
|
||||
End Sub
|
||||
|
||||
Sub New(KundenNr, KfzKennzeichen, SDLNr, History)
|
||||
Me.KundenNr = KundenNr
|
||||
Me.KfzKennzeichen = KfzKennzeichen
|
||||
Me.SDLNr = SDLNr
|
||||
Me.History = History
|
||||
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("KundenNr", KundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KfzKennzeichen", KfzKennzeichen))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SDLNr", SDLNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("History", History))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RefKundenNr", RefKundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("MSE-Kd-Nr", MSE_Kd_Nr, "MSE_Kd_Nr"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TELEPASS-Kd-Nr", TELEPASS_Kd_Nr, "TELEPASS_Kd_Nr"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CLIENT-Nr", CLIENT_Nr, "CLIENT_Nr"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BestellNr", BestellNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bestelldatum", Bestelldatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Lieferdatum", Lieferdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Ausstellungsdatum", Ausstellungsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Umstellungsdatum", Umstellungsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KartenNr", KartenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PAN-Nr", PAN_Nr, "PAN_Nr"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VIACARD", VIACARD))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("MOTORWAY-CARD-Nr", MOTORWAY_CARD_Nr, "MOTORWAY_CARD_Nr"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CARD-Nr", CARD_Nr, "CARD_Nr"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KartenSchlüsselNr", KartenSchlüsselNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FREJUS-CARD-Nr", FREJUS_CARD_Nr, "FREJUS_CARD_Nr"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ECO", ECO))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GültigBis", GültigBis))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("OBUID", OBUID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SERIE-Nr", SERIE_Nr, "SERIE_Nr"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TELEPASS-Nr", TELEPASS_Nr, "TELEPASS_Nr"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vermerk", Vermerk))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Partner", Partner))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BenutzerNr", BenutzerNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PIN", PIN))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FlottenPIN", FlottenPIN))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("MasterPIN", MasterPIN))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VertragsNr", VertragsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vertragsabschlussdatum", Vertragsabschlussdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kategorie", Kategorie))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Schadstoffklasse", Schadstoffklasse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Status", Status))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Ersatzkarte", Ersatzkarte))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gesperrt", Gesperrt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Defekt", Defekt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Verloren", Verloren))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gestohlen", Gestohlen))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Erfassungsdatum", Erfassungsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Änderungsdatum", Änderungsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachbearbeiter", Sachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Retourniert", Retourniert))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RetourniertAm", RetourniertAm))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GesperrtAm", GesperrtAm))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DefektAm", DefektAm))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VerlorenAm", VerlorenAm))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GestohlenAm", GestohlenAm))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ErsatzkarteAm", ErsatzkarteAm))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TelepassErsatzkarte", TelepassErsatzkarte))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TelepassErsatzkarteAm", TelepassErsatzkarteAm))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Archiviert", Archiviert))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LKWAbgemeldet", LKWAbgemeldet))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LKWAbgemeldetAM", LKWAbgemeldetAM))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Fahrer", Fahrer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kaution", Kaution))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BelegNr", BelegNr))
|
||||
|
||||
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 SDL WITH(updlock,serializable) WHERE KundenNr=@KundenNr AND KfzKennzeichen=@KfzKennzeichen AND SDLNr=@SDLNr AND History=@History) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Return SQL.doSQLVarList(sqlstr, "SDL", , list)
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
|
||||
Using cmd As New SqlCommand("SELECT * FROM SDL WHERE KundenNr=@KundenNr AND KfzKennzeichen=@KfzKennzeichen AND SDLNr=@SDLNr AND History=@History ", conn)
|
||||
cmd.Parameters.AddWithValue("@KundenNr", KundenNr)
|
||||
cmd.Parameters.AddWithValue("@KfzKennzeichen", KfzKennzeichen)
|
||||
cmd.Parameters.AddWithValue("@SDLNr", SDLNr)
|
||||
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)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [SDL] SET " & str & " WHERE KundenNr=@KundenNr AND KfzKennzeichen=@KfzKennzeichen AND SDLNr=@SDLNr AND History=@History ")
|
||||
|
||||
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 SDL (" & 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
|
||||
377
SDL/Classes/cSDLAbholung.vb
Normal file
377
SDL/Classes/cSDLAbholung.vb
Normal file
@@ -0,0 +1,377 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cSDLAbholung
|
||||
|
||||
Property sdlAb_Id As Integer
|
||||
|
||||
Property sdlAb_Erfasst As Object = Now
|
||||
Property sdlAb_ErfassungSachbearbeiter As Object = Nothing
|
||||
Property sdlAb_ErfassungSachbearbeiterId As Object = Nothing
|
||||
Property sdlAb_ErfassungVermerk As Object = Nothing
|
||||
|
||||
Property sdlAb_AbholungLKWKz As Object = Nothing
|
||||
Property sdlAb_AbholungFahrername As Object = Nothing
|
||||
Property sdlAb_AbholungKdNr As Object = Nothing
|
||||
Property sdlAb_AbholungFirma As Object = Nothing
|
||||
Property sdlAb_AbholungFahrerSMS As Object = Nothing
|
||||
Property sdlAb_Abholung As Object = Nothing
|
||||
Property sdlAb_AbholungSachbearbeiter As Object = Nothing
|
||||
Property sdlAb_AbholungSachbearbeiterId As Object = Nothing
|
||||
Property sdlAb_Abgeholt As Boolean = False
|
||||
Property sdlAb_Storniert As Boolean = False
|
||||
Property sdlAb_AbholungVermerk As Object = Nothing
|
||||
|
||||
Property sdlAb_FahrerAbholAuftrag As Object = Nothing
|
||||
Property sdlAb_AbholungFremdDL As Boolean = False
|
||||
|
||||
|
||||
Property POS As New List(Of cSDLAbholungPositionen)
|
||||
Dim SQL As New SQL
|
||||
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
Sub New(sdlAb_Id)
|
||||
Me.sdlAb_Id = sdlAb_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("sdlAb_Id", sdlAb_Id, , True))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAb_Erfasst", sdlAb_Erfasst))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAb_ErfassungSachbearbeiter", sdlAb_ErfassungSachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAb_ErfassungSachbearbeiterId", sdlAb_ErfassungSachbearbeiterId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAb_ErfassungVermerk", sdlAb_ErfassungVermerk))
|
||||
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAb_AbholungLKWKz", sdlAb_AbholungLKWKz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAb_AbholungFahrername", sdlAb_AbholungFahrername))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAb_AbholungKdNr", sdlAb_AbholungKdNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAb_AbholungFirma", sdlAb_AbholungFirma))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAb_AbholungFahrerSMS", sdlAb_AbholungFahrerSMS))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAb_Abholung", sdlAb_Abholung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAb_AbholungSachbearbeiter", sdlAb_AbholungSachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAb_AbholungSachbearbeiterId", sdlAb_AbholungSachbearbeiterId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAb_Abgeholt", sdlAb_Abgeholt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAb_Storniert", sdlAb_Storniert))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAb_AbholungVermerk", sdlAb_AbholungVermerk))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAb_FahrerAbholAuftrag", sdlAb_FahrerAbholAuftrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAb_AbholungFremdDL", sdlAb_AbholungFremdDL))
|
||||
|
||||
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 tblSDLAbholung WITH(updlock,serializable) WHERE sdlAb_Id=@sdlAb_Id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
Dim id = SQL.doSQLVarListID(sdlAb_Id, sqlstr, "SDL", , list)
|
||||
|
||||
If id > 0 Then
|
||||
Me.sdlAb_Id = id
|
||||
Return SAVE_POS()
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
End Function
|
||||
|
||||
|
||||
Public Function DELETE() As Boolean
|
||||
If DELETE_POS() Then
|
||||
Return SQL.doSQL(" DELETE FROM tblSDLAbholung WHERE sdlAb_Id=" & sdlAb_Id & " ", "SDL")
|
||||
End If
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Public Function DELETE_POS() As Boolean
|
||||
Return SQL.doSQL(" DELETE FROM tblSDLAbholungPositionen WHERE sdlAbp_sdlAb_Id=" & sdlAb_Id & " ", "SDL")
|
||||
End Function
|
||||
|
||||
Public Function SAVE_POS() As Boolean
|
||||
SAVE_POS = True
|
||||
If Not DELETE_POS() Then Return False
|
||||
For Each p In POS
|
||||
p.sdlAbp_sdlAb_Id = Me.sdlAb_Id
|
||||
If Not p.SAVE() Then SAVE_POS = False
|
||||
Next
|
||||
End Function
|
||||
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblSDLAbholung WHERE sdlAb_Id=@sdlAb_Id ", conn)
|
||||
cmd.Parameters.AddWithValue("@sdlAb_Id", sdlAb_Id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
LOAD_POS()
|
||||
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_POS()
|
||||
Try
|
||||
POS.Clear()
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblSDLAbholungPositionen WHERE sdlAbp_sdlAb_Id=@sdlAb_Id ORDER BY sdlAbp_KfzKennzeichen,sdlAbp_SDLNr", conn)
|
||||
cmd.Parameters.AddWithValue("@sdlAb_Id", sdlAb_Id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim P As New cSDLAbholungPositionen
|
||||
For Each l In P.getParameterList()
|
||||
Dim propInfo As PropertyInfo = P.GetType.GetProperty(l.Scalarvariable)
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(P, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(P, dr.Item(l.Text))
|
||||
End If
|
||||
Next
|
||||
POS.Add(P)
|
||||
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 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 [tblSDLAbholung] SET " & str & " WHERE sdlAb_Id=@sdlAb_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 tblSDLAbholung (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SET_ABHOLUNG(sdlAb_Abgeholt As Boolean, Optional sdlAb_AbholungVermerk As Object = Nothing, Optional sdlAb_FahrerAbholAuftrag As Object = Nothing) As Boolean
|
||||
Me.sdlAb_Abgeholt = sdlAb_Abgeholt
|
||||
If Me.sdlAb_Abgeholt Then
|
||||
Me.sdlAb_Abholung = Now
|
||||
Me.sdlAb_AbholungSachbearbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_id
|
||||
Me.sdlAb_AbholungSachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
Else
|
||||
Me.sdlAb_Abholung = Nothing
|
||||
Me.sdlAb_AbholungSachbearbeiterId = Nothing
|
||||
Me.sdlAb_AbholungSachbearbeiter = Nothing
|
||||
End If
|
||||
Me.sdlAb_AbholungVermerk = sdlAb_AbholungVermerk
|
||||
|
||||
If sdlAb_FahrerAbholAuftrag IsNot Nothing Then Me.sdlAb_FahrerAbholAuftrag = sdlAb_FahrerAbholAuftrag
|
||||
Return SAVE()
|
||||
End Function
|
||||
|
||||
|
||||
Public Function SET_FAHRERABHOLUNG(sdlAb_FahrerAbholAuftrag As Boolean, Optional sdlAb_AbholungVermerk As Object = Nothing) As Boolean
|
||||
Me.sdlAb_FahrerAbholAuftrag = sdlAb_FahrerAbholAuftrag
|
||||
Me.sdlAb_AbholungVermerk = sdlAb_AbholungVermerk
|
||||
|
||||
Return SAVE()
|
||||
End Function
|
||||
|
||||
Public Function SET_BEMERKUNG(sdlAb_AbholungVermerk As Object) As Boolean
|
||||
|
||||
Me.sdlAb_AbholungVermerk = sdlAb_AbholungVermerk
|
||||
|
||||
Return SAVE()
|
||||
End Function
|
||||
Public Function SET_STORNO() As Boolean
|
||||
Me.sdlAb_Storniert = Not Me.sdlAb_Storniert
|
||||
Return SAVE()
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
Public Class cSDLAbholungPositionen
|
||||
|
||||
Property sdlAbp_Id As Integer
|
||||
Property sdlAbp_sdlAb_Id As Object = Nothing
|
||||
Property sdlAbp_KundenNr As Object = Nothing
|
||||
Property sdlAbp_KfzKennzeichen As Object = Nothing
|
||||
Property sdlAbp_SDLNr As Object = Nothing
|
||||
Property sdlAbp_History As Object = Nothing
|
||||
Property sdlAbp_KarteBoxBezeichnung As Object = Nothing
|
||||
Property sdlAbp_KartenNr As Object = Nothing
|
||||
Property sdlAbp_PIN As Object = Nothing
|
||||
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
Sub New(sdlAbp_Id)
|
||||
Me.sdlAbp_Id = sdlAbp_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("sdlAbp_Id", sdlAbp_Id, , True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAbp_sdlAb_Id", sdlAbp_sdlAb_Id))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAbp_KundenNr", sdlAbp_KundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAbp_KfzKennzeichen", sdlAbp_KfzKennzeichen))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAbp_SDLNr", sdlAbp_SDLNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAbp_History", sdlAbp_History))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAbp_KarteBoxBezeichnung", sdlAbp_KarteBoxBezeichnung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAbp_KartenNr", sdlAbp_KartenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAbp_PIN", sdlAbp_PIN))
|
||||
|
||||
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 tblSDLAbholungPositionen WITH(updlock,serializable) WHERE sdlAbp_Id=@sdlAbp_Id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
Dim id = SQL.doSQLVarListID(sdlAbp_Id, sqlstr, "SDL", , list)
|
||||
Me.sdlAbp_Id = id
|
||||
Return (id > 0)
|
||||
End Function
|
||||
|
||||
|
||||
Public Function DELETE() As Boolean
|
||||
Return SQL.doSQL(" DELETE FROM tblSDLAbholungPositionen WHERE sdlAbp_Id=" & sdlAbp_Id & " ", "SDL")
|
||||
End Function
|
||||
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblSDLAbholungPositionen WHERE sdlAbp_Id=@sdlAbp_Id ", conn)
|
||||
cmd.Parameters.AddWithValue("@sdlAbp_Id", sdlAbp_Id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblSDLAbholungPositionen] SET " & str & " WHERE sdlAbp_Id=@sdlAbp_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 tblSDLAbholungPositionen (" & 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
|
||||
136
SDL/Classes/cVERAG_Card.vb
Normal file
136
SDL/Classes/cVERAG_Card.vb
Normal file
@@ -0,0 +1,136 @@
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cVERAG_Card
|
||||
|
||||
Property KartenNr As Integer
|
||||
Property KundenNr As Object = Nothing
|
||||
Property KfzKennzeichen As Object = Nothing
|
||||
Property Fahrer As Object = Nothing
|
||||
Property Datum As Object = Nothing
|
||||
Property Kaution As Object = Nothing
|
||||
Property BelegNr As Object = Nothing
|
||||
Property Ersatzkarte As Object = Nothing
|
||||
Property Gesperrt As Object = Nothing
|
||||
Property Defekt As Object = Nothing
|
||||
Property Verloren As Object = Nothing
|
||||
Property Gestohlen As Object = Nothing
|
||||
Property Vermerk As Object = Nothing
|
||||
Property Erfassungsdatum As Object = Nothing
|
||||
Property Änderungsdatum As Object = Nothing
|
||||
Property Sachbearbeiter As Object = Nothing
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New(KartenNr)
|
||||
Me.KartenNr = KartenNr
|
||||
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("KartenNr", KartenNr, , True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KundenNr", KundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KfzKennzeichen", KfzKennzeichen))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Fahrer", Fahrer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Datum", Datum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kaution", Kaution))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BelegNr", BelegNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Ersatzkarte", Ersatzkarte))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gesperrt", Gesperrt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Defekt", Defekt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Verloren", Verloren))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gestohlen", Gestohlen))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vermerk", Vermerk))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Erfassungsdatum", Erfassungsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Änderungsdatum", Änderungsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachbearbeiter", Sachbearbeiter))
|
||||
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 Kartenpool WITH(updlock,serializable) WHERE KartenNr=@KartenNr) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Return SQL.doSQLVarList(sqlstr, "SDL", , list)
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
|
||||
Using cmd As New SqlCommand("SELECT * FROM Kartenpool WHERE KartenNr=@KartenNr ", conn)
|
||||
cmd.Parameters.AddWithValue("@KartenNr", KartenNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [Kartenpool] SET " & str & " WHERE KartenNr=@KartenNr ")
|
||||
|
||||
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 Kartenpool (" & 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
|
||||
Reference in New Issue
Block a user