Revert "commit"
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
|
||||
637
SDL/Classes/cCMR.vb
Normal file
637
SDL/Classes/cCMR.vb
Normal file
@@ -0,0 +1,637 @@
|
||||
|
||||
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 CMR_isVorlage 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(isVorlage As Boolean)
|
||||
CMR_isVorlage = isVorlage
|
||||
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))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_isVorlage", CMR_isVorlage))
|
||||
|
||||
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
|
||||
622
SDL/Classes/cEABeleg.vb
Normal file
622
SDL/Classes/cEABeleg.vb
Normal file
@@ -0,0 +1,622 @@
|
||||
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_BelegIdStorno As Object = 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_BelegIdStorno = cSqlDb.checkNullReturnValue(dr.Item("rksv_BelegIdStorno"), 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_BelegIdStorno", rksv_BelegIdStorno))
|
||||
|
||||
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
|
||||
|
||||
164
SDL/Classes/cEORIPruefung.vb
Normal file
164
SDL/Classes/cEORIPruefung.vb
Normal file
@@ -0,0 +1,164 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
Public Class cEORIPruefung
|
||||
|
||||
Property eori_id As Integer
|
||||
Property eori_KdNr As Object = Nothing
|
||||
Property eori_valid As Object = Nothing
|
||||
Property eori_datum As Object = Nothing
|
||||
Property eori_maid As Object = Nothing
|
||||
Property eori_sendungsid As Object = Nothing
|
||||
Property eori_firma As Object = Nothing
|
||||
Property eori_sachbearbeiter As Object = Nothing
|
||||
Property eori_sessionID As Object = Nothing
|
||||
Property eori_AvisoID As Object = Nothing
|
||||
Property eori_Nr As Object = Nothing
|
||||
|
||||
Public hasEntry = False
|
||||
|
||||
Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Sub New(eori_id)
|
||||
Me.eori_id = eori_id
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
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("eori_id", eori_id,, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eori_KdNr", eori_KdNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eori_valid", eori_valid))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eori_datum", eori_datum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eori_maid", eori_maid))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eori_sendungsid", eori_sendungsid))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eori_firma", eori_firma))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eori_sachbearbeiter", eori_sachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eori_sessionID", eori_sessionID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eori_AvisoID", eori_AvisoID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eori_Nr", eori_Nr))
|
||||
|
||||
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 tblEORIPruefung WHERE eori_id=@eori_id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
hasEntry = False
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblEORIPruefung WHERE eori_id=@eori_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@eori_id", eori_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
hasEntry = True
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Shared Function LOADByKdNrDate(eori_KdNr As Integer) As cEORIPruefung
|
||||
Try
|
||||
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Dim EORI As New cEORIPruefung
|
||||
Using cmd As New SqlCommand("SELECT Top 1 * FROM tblEORIPruefung WHERE [eori_KdNr]=@eori_KdNr AND eori_valid = 1 ORDER BY [eori_datum] DESC", conn)
|
||||
cmd.Parameters.AddWithValue("@eori_KdNr", eori_KdNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In EORI.getParameterList()
|
||||
Dim propInfo As PropertyInfo = EORI.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(EORI, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(EORI, dr.Item(li.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
dr.Close()
|
||||
Return EORI
|
||||
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 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 [tblEORIPruefung] SET " & str & " WHERE eori_id=@eori_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 tblEORIPruefung (" & 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
|
||||
347
SDL/Classes/cEORIWebService.vb
Normal file
347
SDL/Classes/cEORIWebService.vb
Normal file
@@ -0,0 +1,347 @@
|
||||
|
||||
|
||||
|
||||
' Aufruf des Webservice von FinanzOnline zur prüfung der UID-Nummer
|
||||
' Aufgrund von verzögerten Bestätigungen wurd diese Funktion deaktiviert!!!
|
||||
|
||||
Imports System.IO
|
||||
Imports System.Net
|
||||
Imports System.Text
|
||||
Imports System.Xml
|
||||
Imports System.Xml.Serialization
|
||||
Imports VERAG_PROG_ALLGEMEIN.TESTJSON
|
||||
|
||||
Public Class cEORIWebService
|
||||
|
||||
|
||||
|
||||
|
||||
'Public Shared SESSION_ID As String = ""
|
||||
|
||||
|
||||
'Shared Function Call_Web_Service_MethodUID_Abfrage(ByRef session As String, ByVal txtFirma As String, ByVal txtEORI As String) As String
|
||||
' 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 EORIvalidation As New eu.europa.ec1.validation
|
||||
|
||||
|
||||
' 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 eu.europa.ec1.eoriValidationResult = EORIvalidation.validateEORI({txtEORI})
|
||||
|
||||
|
||||
' If returnInt.result.Count > 0 Then
|
||||
' MsgBox(returnInt.result)
|
||||
|
||||
' '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 ""
|
||||
' Catch ex As Exception
|
||||
' MsgBox(ex.Message & ex.StackTrace)
|
||||
' End Try
|
||||
' Return "-1"
|
||||
'End Function
|
||||
|
||||
|
||||
'Shared Function genUID_Formular(ByVal txtUid As String, Optional AvisoId As Integer = -1, Optional SendungsId As Integer = -1, Optional ByRef UID_ERG As Integer = -1) As String 'SESSION_ID wir nur zurückgegeben
|
||||
' Try
|
||||
|
||||
' Dim msgErgebnis = ""
|
||||
' Dim tmp_SESSION_ID = ""
|
||||
' Dim Firma = ""
|
||||
|
||||
' UID_ERG = 0 'Call_Web_Service_MethodUID_Abfrage_NEU2020(txtUid, Firma, tmp_SESSION_ID, msgErgebnis)
|
||||
|
||||
' If UID_ERG = 0 Or UID_ERG = 1 Then
|
||||
' Select Case UID_ERG
|
||||
' Case 0 : msgErgebnis = "UID-Nr. GÜLTIG - OK"
|
||||
' Case 1 : msgErgebnis = "UID-Nr. UNGÜLTIG"
|
||||
' End Select
|
||||
|
||||
' Dim PdfTmp = "" 'SDL.FormularManagerNEU.UID_PRUEFUNG(msgErgebnis, Firma, tmp_SESSION_ID, uid, txtUid, tid, AvisoId, SendungsId)
|
||||
' If PdfTmp <> "" Then
|
||||
|
||||
' Dim fileName = "UID_Prüfung_" & txtUid & ".pdf"
|
||||
' Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "UID_PRUEFUNG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, txtUid, Now.ToString("ddMMyy_HHmmss.ffff"), fileName, -1, False) 'Now.ToString("ddMMyy_HHmmss.ffff")
|
||||
' If Not DS.uploadDataToDATENSERVER(PdfTmp) Then MsgBox("Fehler beim Speichern: Datenserver!") : Return False
|
||||
' If DS.da_id <= 0 Then MsgBox("Keine DocId!") : Return False
|
||||
' Dim da_id = DS.da_id
|
||||
' Dim destPath = DS.GET_TOP1_PATH
|
||||
|
||||
' If AvisoId > 0 And SendungsId > 0 Then
|
||||
' Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(AvisoId, fileName, DS.da_id, "UID", "PDF", SendungsId)
|
||||
' If Not ANH.SAVE Then MsgBox("Fehler beim Anhang speichern!") : Return False
|
||||
' Dim anhId = ANH.anh_id
|
||||
' End If
|
||||
' Return destPath
|
||||
|
||||
|
||||
' End If
|
||||
' Else
|
||||
' MsgBox(msgErgebnis)
|
||||
' End If
|
||||
|
||||
' Catch ex As Exception
|
||||
' MsgBox(ex.Message & ex.StackTrace)
|
||||
' End Try
|
||||
|
||||
' Return ""
|
||||
|
||||
'End Function
|
||||
|
||||
Shared _url = "http://ec.europa.eu/taxation_customs/dds2/eos/validation/services/validation"
|
||||
|
||||
|
||||
|
||||
|
||||
Shared Function genEORI_Formular(ByVal KdNr As Integer, ByVal txtEORI As String, Optional AvisoId As Integer = -1, Optional SendungsId As Integer = -1, Optional ByRef EORI_ERGInt As Integer = -1) As String 'SESSION_ID wir nur zurückgegeben
|
||||
Try
|
||||
|
||||
Dim msgErgebnis = ""
|
||||
Dim tmp_SESSION_ID = ""
|
||||
Dim Firma = ""
|
||||
|
||||
|
||||
Dim EORI_ERG = ValidateEoriNumber(txtEORI)
|
||||
|
||||
|
||||
If EORI_ERG.Result.Count > 0 Then
|
||||
|
||||
If EORI_ERG.Result(0).Status = 0 Or EORI_ERG.Result(0).Status = 1 Then
|
||||
|
||||
Firma = EORI_ERG.Result(0).Name & " "
|
||||
Firma &= EORI_ERG.Result(0).Street & " "
|
||||
Firma &= EORI_ERG.Result(0).Country & " " & EORI_ERG.Result(0).PostalCode & " " & EORI_ERG.Result(0).City
|
||||
Firma = Firma
|
||||
|
||||
EORI_ERGInt = EORI_ERG.Result(0).Status
|
||||
Select Case EORI_ERG.Result(0).Status
|
||||
Case 0 : msgErgebnis = "EORI-Nr. GÜLTIG - OK"
|
||||
Case 1 : msgErgebnis = "EORI-Nr. UNGÜLTIG"
|
||||
End Select
|
||||
|
||||
setEORIEntry(KdNr, SendungsId, AvisoId, EORI_ERG, tmp_SESSION_ID, EORI_ERG.Result(0).Eori)
|
||||
|
||||
|
||||
Dim PdfTmp = SDL.FormularManagerNEU.EORI_PRUEFUNG(msgErgebnis, Firma, tmp_SESSION_ID, txtEORI, AvisoId, SendungsId)
|
||||
If PdfTmp <> "" Then
|
||||
|
||||
Dim fileName = "EORI_Prüfung_" & txtEORI & ".pdf"
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "EORI_PRUEFUNG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, txtEORI, Now.ToString("ddMMyy_HHmmss.ffff"), fileName, -1, False) 'Now.ToString("ddMMyy_HHmmss.ffff")
|
||||
If Not DS.uploadDataToDATENSERVER(PdfTmp) Then MsgBox("Fehler beim Speichern: Datenserver!") : Return False
|
||||
If DS.da_id <= 0 Then MsgBox("Keine DocId!") : Return False
|
||||
Dim da_id = DS.da_id
|
||||
Dim destPath = DS.GET_TOP1_PATH
|
||||
|
||||
If AvisoId > 0 And SendungsId > 0 Then
|
||||
Dim fi As New FileInfo(PdfTmp)
|
||||
Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(AvisoId, fileName, DS.da_id, "EORI", "PDF", SendungsId, , fi.Length)
|
||||
If Not ANH.SAVE Then MsgBox("Fehler beim Anhang speichern!") : Return False
|
||||
Dim anhId = ANH.anh_id
|
||||
End If
|
||||
Return destPath
|
||||
|
||||
|
||||
End If
|
||||
Else
|
||||
MsgBox(EORI_ERG.Result(0).StatusDescr)
|
||||
End If
|
||||
Else
|
||||
MsgBox("Fehler bei der Prüfung der EORI-Nummer. WebService evtl. nicht verfügbar.")
|
||||
End If
|
||||
Return ""
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
|
||||
Return ""
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function genEORI_FormularWithoutSaving(ByVal kdnr As Integer, ByVal txtEORI As String, Optional AvisoId As Integer = -1, Optional SendungsId As Integer = -1, Optional ByRef EORI_ERGInt As Integer = -1) As String 'SESSION_ID wir nur zurückgegeben
|
||||
Try
|
||||
|
||||
Dim msgErgebnis = ""
|
||||
Dim tmp_SESSION_ID = ""
|
||||
Dim Firma = ""
|
||||
|
||||
Dim EORI_ERG = ValidateEoriNumber(txtEORI)
|
||||
|
||||
|
||||
If EORI_ERG.Result.Count > 0 Then
|
||||
|
||||
If EORI_ERG.Result(0).Status = 0 Or EORI_ERG.Result(0).Status = 1 Then
|
||||
|
||||
Firma = EORI_ERG.Result(0).Name & " " & vbNewLine
|
||||
Firma &= EORI_ERG.Result(0).Street & " " & vbNewLine
|
||||
Firma &= EORI_ERG.Result(0).Country & " " & EORI_ERG.Result(0).PostalCode & " " & EORI_ERG.Result(0).City
|
||||
'Firma = Firma.Trim
|
||||
|
||||
EORI_ERGInt = EORI_ERG.Result(0).Status
|
||||
Select Case EORI_ERG.Result(0).Status
|
||||
Case 0 : msgErgebnis = "EORI-Nr. GÜLTIG - OK"
|
||||
Case 1 : msgErgebnis = "EORI-Nr. UNGÜLTIG"
|
||||
End Select
|
||||
|
||||
setEORIEntry(kdnr, SendungsId, AvisoId, EORI_ERG, tmp_SESSION_ID, txtEORI)
|
||||
|
||||
|
||||
Dim PdfTmp = SDL.FormularManagerNEU.EORI_PRUEFUNG(msgErgebnis, Firma, tmp_SESSION_ID, txtEORI, AvisoId, SendungsId)
|
||||
|
||||
Return PdfTmp
|
||||
|
||||
End If
|
||||
Else
|
||||
MsgBox("Fehler bei der Prüfung der EORI-Nummer. WebService evtl. nicht verfügbar.")
|
||||
End If
|
||||
Return ""
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
|
||||
Return ""
|
||||
|
||||
End Function
|
||||
|
||||
Shared Sub setEORIEntry(kdnr As Integer, SendungsID As Integer, avisoID As Integer, EORI_ERG As EoriResponseModel, tmp_SESSION_ID As String, txtEORI As String)
|
||||
Dim EORIPruefung = New cEORIPruefung()
|
||||
Dim kdErw = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdnr)
|
||||
|
||||
Select Case EORI_ERG.Result(0).Status
|
||||
Case 0 : EORIPruefung.eori_valid = 1
|
||||
Case 1 : EORIPruefung.eori_valid = 0
|
||||
End Select
|
||||
|
||||
kdErw.kde_EORIgeprueftAm = Now()
|
||||
kdErw.SAVE()
|
||||
|
||||
EORIPruefung.eori_datum = Now()
|
||||
EORIPruefung.eori_KdNr = kdnr
|
||||
EORIPruefung.eori_maid = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
||||
EORIPruefung.eori_sendungsid = SendungsID
|
||||
EORIPruefung.eori_firma = (EORI_ERG.Result(0).Name & EORI_ERG.Result(0).Street & EORI_ERG.Result(0).Country & EORI_ERG.Result(0).PostalCode & EORI_ERG.Result(0).City).Trim
|
||||
EORIPruefung.eori_sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
EORIPruefung.eori_sessionID = tmp_SESSION_ID
|
||||
EORIPruefung.eori_AvisoID = avisoID
|
||||
EORIPruefung.SAVE()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Shared Function ValidateEoriNumber(ByVal number As String) As EoriResponseModel
|
||||
If number Is Nothing Then
|
||||
Return Nothing
|
||||
End If
|
||||
|
||||
Dim soapEnvelopeXml As XmlDocument = CreateSoapEnvelope(number)
|
||||
Dim webRequest As HttpWebRequest = CreateWebRequest(_url)
|
||||
InsertSoapEnvelopeIntoWebRequest(soapEnvelopeXml, webRequest)
|
||||
Dim asyncResult As IAsyncResult = webRequest.BeginGetResponse(Nothing, Nothing)
|
||||
asyncResult.AsyncWaitHandle.WaitOne()
|
||||
Dim response As String
|
||||
|
||||
Using webResponse As WebResponse = webRequest.EndGetResponse(asyncResult)
|
||||
|
||||
Using rd As StreamReader = New StreamReader(webResponse.GetResponseStream())
|
||||
response = rd.ReadToEnd()
|
||||
End Using
|
||||
End Using
|
||||
|
||||
Dim startPos As Integer = response.IndexOf("<return>")
|
||||
Dim lastPos As Integer = response.LastIndexOf("</return>") - startPos + 9
|
||||
Dim responseFormatted As String = response.Substring(startPos, lastPos)
|
||||
Dim serializer As XmlSerializer = New XmlSerializer(GetType(EoriResponseModel))
|
||||
Dim result As EoriResponseModel
|
||||
|
||||
Using reader As TextReader = New StringReader(responseFormatted)
|
||||
result = CType(serializer.Deserialize(reader), EoriResponseModel)
|
||||
End Using
|
||||
|
||||
Return result
|
||||
End Function
|
||||
|
||||
Private Shared Function CreateWebRequest(ByVal url As String) As HttpWebRequest
|
||||
Dim webRequest As HttpWebRequest = CType(webRequest.Create(url), HttpWebRequest)
|
||||
webRequest.ContentType = "text/xml;charset=""utf-8"""
|
||||
webRequest.Accept = "text/xml"
|
||||
webRequest.Method = "POST"
|
||||
Return webRequest
|
||||
End Function
|
||||
|
||||
Private Shared Function CreateSoapEnvelope(ByVal number As String) As XmlDocument
|
||||
Dim soapEnvelopeDocument As XmlDocument = New XmlDocument()
|
||||
Dim xmlBuilder As StringBuilder = New StringBuilder()
|
||||
xmlBuilder.AppendFormat("<soap:Envelope xmlns:soap={0} >", "'http://schemas.xmlsoap.org/soap/envelope/'")
|
||||
xmlBuilder.Append("<soap:Body>")
|
||||
xmlBuilder.AppendFormat("<ev:validateEORI xmlns:ev={0} >", "'http://eori.ws.eos.dds.s/'")
|
||||
xmlBuilder.AppendFormat("<ev:eori>{0}</ev:eori>", number)
|
||||
xmlBuilder.Append("</ev:validateEORI>")
|
||||
xmlBuilder.Append("</soap:Body> ")
|
||||
xmlBuilder.Append("</soap:Envelope> ")
|
||||
soapEnvelopeDocument.LoadXml(xmlBuilder.ToString())
|
||||
Return soapEnvelopeDocument
|
||||
End Function
|
||||
|
||||
Private Shared Sub InsertSoapEnvelopeIntoWebRequest(ByVal soapEnvelopeXml As XmlDocument, ByVal webRequest As HttpWebRequest)
|
||||
Using stream As Stream = webRequest.GetRequestStream()
|
||||
soapEnvelopeXml.Save(stream)
|
||||
End Using
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
|
||||
<XmlRoot(ElementName:="return")>
|
||||
Public Class EoriResponseModel
|
||||
<XmlElement(ElementName:="requestDate")>
|
||||
Public Property RequestDate As String
|
||||
<XmlElement(ElementName:="result")>
|
||||
Public Property Result As List(Of Result)
|
||||
End Class
|
||||
|
||||
<XmlRoot(ElementName:="result")>
|
||||
Public Class Result
|
||||
<XmlElement(ElementName:="eori")>
|
||||
Public Property Eori As String
|
||||
<XmlElement(ElementName:="status")>
|
||||
Public Property Status As String
|
||||
<XmlElement(ElementName:="statusDescr")>
|
||||
Public Property StatusDescr As String
|
||||
<XmlElement(ElementName:="name")>
|
||||
Public Property Name As String
|
||||
<XmlElement(ElementName:="street")>
|
||||
Public Property Street As String
|
||||
<XmlElement(ElementName:="postalCode")>
|
||||
Public Property PostalCode As String
|
||||
<XmlElement(ElementName:="city")>
|
||||
Public Property City As String
|
||||
<XmlElement(ElementName:="country")>
|
||||
Public Property Country As String
|
||||
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 order by PositionsNr ", 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
|
||||
398
SDL/Classes/cFinanzOnlineWebService.vb
Normal file
398
SDL/Classes/cFinanzOnlineWebService.vb
Normal file
@@ -0,0 +1,398 @@
|
||||
Imports System.IO
|
||||
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
|
||||
|
||||
' 'VERAG:
|
||||
'Shared tid As String = "1000103u3032"
|
||||
'Shared benid As String = "webserv99"
|
||||
'Shared pin As String = "webserv99"
|
||||
'Shared uid As String = "ATU53187000"
|
||||
|
||||
' 'VERAG CS:
|
||||
'Shared tid As String = "19379933"
|
||||
'Shared benid As String = "WEBserv99"
|
||||
'Shared pin As String = "WEBserv99"
|
||||
'Shared uid As String = "XXXX"
|
||||
|
||||
|
||||
''FRONT-Office:
|
||||
'Shared tid As String = "67493371k039"
|
||||
'Shared benid As String = "WEBserv99"
|
||||
'Shared pin As String = "WEBserv99"
|
||||
'Shared uid As String = "ATU74813856"
|
||||
|
||||
|
||||
'IMEX:
|
||||
Shared tid As String = "19435107n654"
|
||||
Shared benid As String = "WEBserv99"
|
||||
Shared pin As String = "WEBserv99"
|
||||
Shared uid As String = "ATU68490714"
|
||||
|
||||
|
||||
Public Shared SESSION_ID As String = ""
|
||||
|
||||
Shared Sub initValues()
|
||||
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "IMEX"
|
||||
tid = "19435107n654"
|
||||
benid = "WEBserv99"
|
||||
pin = "WEBserv99"
|
||||
uid = "ATU68490714"
|
||||
Case "FRONTOFFICE"
|
||||
tid = "67493371k039"
|
||||
benid = "WEBserv99"
|
||||
pin = "WEBserv99"
|
||||
uid = "ATU74813856"
|
||||
Case "UNISPED"
|
||||
tid = "18778752z632"
|
||||
benid = "Webmaster1"
|
||||
pin = "Webmaster1"
|
||||
uid = "ATU67001200"
|
||||
Case Else 'VERAG:
|
||||
tid = "13390891m005"
|
||||
benid = "WEBserv99"
|
||||
pin = "WEBserv99"
|
||||
uid = "ATU53187000"
|
||||
'tid = "1000103u3032"
|
||||
'benid = "webserv99"
|
||||
'pin = "webserv99"
|
||||
'uid = "ATU53187000"
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
|
||||
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, uid, rc, msg)
|
||||
|
||||
Return rc
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
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 & ex.StackTrace)
|
||||
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
|
||||
|
||||
|
||||
|
||||
Shared Function Call_Web_Service_MethodUID_Login_NEU2020() As Integer
|
||||
Dim CallWebService As New VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.session.sessionService
|
||||
Try
|
||||
Dim rc As Integer = -1
|
||||
Dim msg = ""
|
||||
SESSION_ID = CallWebService.login(tid, benid, pin, uid, rc, msg)
|
||||
|
||||
Return rc
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
Return -99
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function genUID_Formular(ByVal txtUid As String, Optional AvisoId As Integer = -1, Optional SendungsId As Integer = -1, Optional ByRef UID_ERG As Integer = -1) As String 'SESSION_ID wir nur zurückgegeben
|
||||
Try
|
||||
|
||||
Dim msgErgebnis = ""
|
||||
Dim tmp_SESSION_ID = ""
|
||||
Dim Firma = ""
|
||||
|
||||
UID_ERG = Call_Web_Service_MethodUID_Abfrage_NEU2020(txtUid, Firma, tmp_SESSION_ID, msgErgebnis)
|
||||
|
||||
If UID_ERG = 0 Or UID_ERG = 1 Then
|
||||
Select Case UID_ERG
|
||||
Case 0 : msgErgebnis = "UID-Nr. GÜLTIG - OK"
|
||||
Case 1 : msgErgebnis = "UID-Nr. UNGÜLTIG"
|
||||
End Select
|
||||
|
||||
Dim PdfTmp = SDL.FormularManagerNEU.UID_PRUEFUNG(msgErgebnis, Firma, tmp_SESSION_ID, uid, txtUid, tid, AvisoId, SendungsId)
|
||||
If PdfTmp <> "" Then
|
||||
|
||||
Dim fileName = "UID_Prüfung_" & txtUid & ".pdf"
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "UID_PRUEFUNG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, txtUid, Now.ToString("ddMMyy_HHmmss.ffff"), fileName, -1, False) 'Now.ToString("ddMMyy_HHmmss.ffff")
|
||||
If Not DS.uploadDataToDATENSERVER(PdfTmp) Then MsgBox("Fehler beim Speichern: Datenserver!") : Return False
|
||||
If DS.da_id <= 0 Then MsgBox("Keine DocId!") : Return False
|
||||
Dim da_id = DS.da_id
|
||||
Dim destPath = DS.GET_TOP1_PATH
|
||||
|
||||
If AvisoId > 0 And SendungsId > 0 Then
|
||||
Dim fi As New FileInfo(PdfTmp)
|
||||
Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(AvisoId, fileName, DS.da_id, "UID", "PDF", SendungsId, , fi.Length)
|
||||
If Not ANH.SAVE Then MsgBox("Fehler beim Anhang speichern!") : Return False
|
||||
Dim anhId = ANH.anh_id
|
||||
End If
|
||||
Return destPath
|
||||
|
||||
|
||||
End If
|
||||
Else
|
||||
MsgBox(msgErgebnis)
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
|
||||
Return ""
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function genUID_FormularWithoutSaving(ByVal txtUid As String, Optional AvisoId As Integer = -1, Optional SendungsId As Integer = -1, Optional ByRef UID_ERG As Integer = -1) As String 'SESSION_ID wir nur zurückgegeben
|
||||
Try
|
||||
|
||||
Dim msgErgebnis = ""
|
||||
Dim tmp_SESSION_ID = ""
|
||||
Dim Firma = ""
|
||||
|
||||
UID_ERG = Call_Web_Service_MethodUID_Abfrage_NEU2020(txtUid, Firma, tmp_SESSION_ID, msgErgebnis)
|
||||
|
||||
If UID_ERG = 0 Or UID_ERG = 1 Then
|
||||
Select Case UID_ERG
|
||||
Case 0 : msgErgebnis = "UID-Nr. GÜLTIG - OK"
|
||||
Case 1 : msgErgebnis = "UID-Nr. UNGÜLTIG"
|
||||
End Select
|
||||
|
||||
Dim PdfTmp = SDL.FormularManagerNEU.UID_PRUEFUNG(msgErgebnis, Firma, tmp_SESSION_ID, uid, txtUid, tid, AvisoId, SendungsId)
|
||||
Return PdfTmp
|
||||
Else
|
||||
MsgBox(msgErgebnis)
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
|
||||
Return ""
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Shared Function Call_Web_Service_MethodUID_Abfrage_NEU2020(ByVal txtUid As String, Optional ByRef Firma As String = "", Optional ByRef tmp_SESSION_ID As String = "", Optional ByRef msgErgebnis As String = "", Optional SaveErgInAdressenKdNr As Integer = -1) As String 'SESSION_ID wir nur zurückgegeben
|
||||
initValues()
|
||||
|
||||
If Call_Web_Service_MethodUID_Login_NEU2020() <> 0 Then
|
||||
MsgBox("FEHLER FO LOGIN")
|
||||
Return -1
|
||||
End If
|
||||
tmp_SESSION_ID = SESSION_ID
|
||||
Dim CallWebService As New VERAG_PROG_ALLGEMEIN.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(tid, benid, SESSION_ID, uid, txtUid, VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.uidAbfrageServiceRequestStufe.Item2, msg, name, adrz1, adrz2, adrz3, adrz4, adrz5, adrz6)
|
||||
|
||||
If returnInt = 0 Or returnInt = 1 Then
|
||||
|
||||
Dim UID_TMP As New VERAG_PROG_ALLGEMEIN.cUIDPruefung
|
||||
|
||||
UID_TMP.uid_Datum = Now
|
||||
UID_TMP.uid_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
'If If(UID_TMP.uid_Sachbearbeiter, "") = "" Then UID_TMP.uid_Sachbearbeiter = "AUTO"
|
||||
UID_TMP.uid_MaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
||||
UID_TMP.uid_valid = (returnInt = 0)
|
||||
If SaveErgInAdressenKdNr > 0 Then UID_TMP.uid_KundenNr = SaveErgInAdressenKdNr
|
||||
|
||||
|
||||
UID_TMP.uid_UstIdKz = GetUIDLand(txtUid)
|
||||
UID_TMP.uid_UstIdNr = GetUidNr(txtUid)
|
||||
|
||||
UID_TMP.Firma = name
|
||||
UID_TMP.uid_abfrageUid = uid
|
||||
UID_TMP.uid_sessionId = tmp_SESSION_ID
|
||||
|
||||
UID_TMP.uid_adr1 = adrz1
|
||||
UID_TMP.uid_adr2 = adrz2
|
||||
UID_TMP.uid_adr3 = adrz3
|
||||
UID_TMP.uid_adr4 = adrz4
|
||||
UID_TMP.uid_adr5 = adrz5
|
||||
UID_TMP.uid_adr6 = adrz6
|
||||
|
||||
UID_TMP.uid_stufe = 2
|
||||
|
||||
UID_TMP.SAVE()
|
||||
If UID_TMP.uid_valid Then
|
||||
If SaveErgInAdressenKdNr > 0 Then
|
||||
Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(SaveErgInAdressenKdNr)
|
||||
AD.UstIdGeprüft = Now.ToShortDateString
|
||||
AD.SAVE()
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If returnInt = 0 Then
|
||||
Firma = 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(GetCodeText(returnInt))
|
||||
End If
|
||||
msgErgebnis = msg
|
||||
Call_Web_Service_MethodUID_Logout_NEU2020()
|
||||
Return returnInt
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
|
||||
Call_Web_Service_MethodUID_Logout_NEU2020()
|
||||
End Try
|
||||
Return "-1"
|
||||
End Function
|
||||
|
||||
Shared Function GetUIDLand(uid As String)
|
||||
If uid.Length > 2 Then
|
||||
Return uid.Substring(0, 2)
|
||||
End If
|
||||
'Dim uidLand = ""
|
||||
'For Each s In uid
|
||||
' If IsNumeric(s) Then Return uidLand
|
||||
' uidLand &= s
|
||||
'Next
|
||||
'Return uidLand
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function GetUidNr(uid As String)
|
||||
If uid.Length > 2 Then
|
||||
Return uid.Substring(2, uid.Length-2)
|
||||
End If
|
||||
'Dim uidLand = ""
|
||||
'For Each s In uid
|
||||
' If IsNumeric(s) Then uidLand &= s
|
||||
'Next
|
||||
'Return uidLand
|
||||
|
||||
End Function
|
||||
Shared Function GetCodeText(rc As Integer)
|
||||
Select Case rc
|
||||
Case 0 : Return "Die UID des Erwerbers ist gültig."
|
||||
Case -1 : Return "Die Session ID ist ungültig oder abgelaufen."
|
||||
Case -2 : Return "Der Aufruf des Webservices ist derzeit wegen Wartungsarbeiten nicht möglich."
|
||||
Case -3 : Return "Es ist ein technischer Fehler aufgetreten."
|
||||
Case -4 : Return "Dieser Teilnehmer ist für diese Funktion nicht berechtigt."
|
||||
Case 1 : Return "Die UID des Erwerbers ist nicht gültig."
|
||||
Case 4 : Return "Die UID-Nummer des Erwerbers ist falsch."
|
||||
Case 5 : Return "Die UID-Nummer des Antragstellers ist ungültig."
|
||||
Case 10 : Return "Der angegebene Mitgliedstaat verbietet diese Abfrage."
|
||||
Case 101 : Return "UID beginnt nicht mit ATU."
|
||||
Case 103 : Return "Die angefragte UID-Nummer kann im FinanzOnline nur in Stufe 1 bestätigt werden,
|
||||
da diese UID-Nummer zu einer Unternehmensgruppe (Umsatzsteuergruppe) gehört.
|
||||
Aus technischen Gründen werden aus Tschechien keine Firmendaten angezeigt. Für
|
||||
eine gültige Stufe 2 Abfrage ist es daher erforderlich, dass Sie unter
|
||||
http://adisreg.mfcr.cz die Daten der CZ-Umsatzsteuergruppe aufrufen und
|
||||
kontrollieren, ob das angefragte Unternehmen auch tatsächlich zu dieser Gruppe
|
||||
gehört.Bitte bewahren Sie den Ausdruck dieser Anfrage in Ihren Unterlagen als
|
||||
Beleg gemäß § 132 BAO auf. Für jede Anfrage Stufe 2 ist sowohl das
|
||||
Bestätigungsverfahren in Stufe 1 im FinanzOnline als auch das Gruppenregister im
|
||||
anderen Mitgliedsstaat laut o.a. Link zu konsultieren. Im Falle von Fragen wenden
|
||||
Sie sich bitte an Ihr zuständiges Finanzamt."
|
||||
Case 104 : Return "Die angefragte UID-Nummer kann im FinanzOnline nur in Stufe 1 bestätigt werden,
|
||||
da diese UID-Nummer zu einer Unternehmensgruppe (Umsatzsteuergruppe) gehört.
|
||||
Aus technischen Gründen werden aus der Slowakei keine Firmendaten angezeigt.
|
||||
Für eine gültige Stufe 2 Abfrage ist es daher erforderlich, dass Sie unter
|
||||
http://www.drsr.sk die Daten der SK-Umsatzsteuergruppe aufrufen und kontrollieren,
|
||||
ob das angefragte Unternehmen auch tatsächlich zu dieser Gruppe gehört. Bitte
|
||||
bewahren Sie den Ausdruck dieser Anfrage in Ihren Unterlagen als Beleg gemäß §Bundesministerium für Finanzen Seite 3 von 3
|
||||
Stand: 27.10.2016 BAO auf. Für jede Anfrage Stufe 2 ist sowohl das Bestätigungsverfahren In Stufe
|
||||
1 im FinanzOnline als auch das Gruppenregister im anderen Mitgliedsstaat laut o.a.
|
||||
Link zu konsultieren. Im Falle von Fragen wenden Sie sich bitte an Ihr zuständiges
|
||||
Finanzamt."
|
||||
Case 105 : Return "Die UID-Nummer ist über FinanzOnline einzeln abzufragen."
|
||||
Case 1511 : Return "Der angegebene Mitgliedstaat ist derzeit nicht erreichbar"
|
||||
Case Else : Return "Unbekannter Fehler: " & rc
|
||||
End Select
|
||||
End Function
|
||||
Shared Function Call_Web_Service_MethodUID_Logout_NEU2020() As String
|
||||
Dim CallWebService As New VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.session.sessionService
|
||||
Try
|
||||
Dim msg = ""
|
||||
Dim sGetValue As String = CallWebService.logout(tid, benid, SESSION_ID, msg)
|
||||
Return sGetValue
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
End Class
|
||||
120
SDL/Classes/cFiskal_Daten.vb
Normal file
120
SDL/Classes/cFiskal_Daten.vb
Normal file
@@ -0,0 +1,120 @@
|
||||
|
||||
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
|
||||
Property fisk_schreibenSB_Mail As Object = Nothing
|
||||
Property fisk_schreibenFA_Mail 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))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fisk_schreibenSB_Mail", fisk_schreibenSB_Mail))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fisk_schreibenFA_Mail", fisk_schreibenFA_Mail))
|
||||
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
|
||||
998
SDL/Classes/cGenWord.vb
Normal file
998
SDL/Classes/cGenWord.vb
Normal file
@@ -0,0 +1,998 @@
|
||||
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
|
||||
|
||||
|
||||
|
||||
Public Function genUebernahmebestaetigungKuvert(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, Optional sprache As String = "") As Microsoft.Office.Interop.Word.Document
|
||||
Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
|
||||
Try
|
||||
Select Case sprache
|
||||
Case "RO"
|
||||
pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Uebernahmebestätigung\ÜBERNAHMEBESTÄTIGUNG_Kuvert_RO.dotx"
|
||||
Case Else
|
||||
pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Uebernahmebestätigung\ÜBERNAHMEBESTÄTIGUNG_Kuvert.dotx"
|
||||
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
|
||||
' 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.##")
|
||||
|
||||
Dim pinVisible = False
|
||||
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
|
||||
|
||||
Select Case r("SDLNr").ToString
|
||||
Case "100", "212", "213", "214" : pinVisible = True
|
||||
End Select
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Else
|
||||
MessageBox.Show("Textmarke nicht vorhanden!")
|
||||
End If
|
||||
|
||||
Try
|
||||
If Not pinVisible Then
|
||||
odoc.FormFields("PIN").Range.Text = ""
|
||||
odoc.FormFields("InfoPIN").Range.Text = ""
|
||||
End If
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
|
||||
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
|
||||
234
SDL/Classes/cGeschaeftsjahr.vb
Normal file
234
SDL/Classes/cGeschaeftsjahr.vb
Normal file
@@ -0,0 +1,234 @@
|
||||
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
|
||||
|
||||
'-------Falls Nr schon existiert (geleichzeitige Buchung)
|
||||
Dim cnt_ = 0
|
||||
While EXISTS_BelegNr(LfdBelegNr)
|
||||
If cnt_ > 10 Then Exit While
|
||||
LfdBelegNr += 1
|
||||
cnt_ += 1
|
||||
End While
|
||||
'-------
|
||||
|
||||
|
||||
SAVE()
|
||||
Return LfdBelegNr
|
||||
Else
|
||||
LfdBelegNr = 1
|
||||
SAVE()
|
||||
Return LfdBelegNr
|
||||
End If
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
'Public Function INCREASE_BELEG() As Integer
|
||||
' If LfdBelegNr > 0 Then
|
||||
' LfdBelegNr += 1
|
||||
' Else
|
||||
' LfdBelegNr = 1
|
||||
' End If
|
||||
|
||||
' 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 INCREASE_JOURNAL() As Integer
|
||||
If LfdJournalNr > 0 Then
|
||||
LfdJournalNr += 1
|
||||
|
||||
'-------Falls Nr schon existiert (geleichzeitige Buchung)
|
||||
Dim cnt_ = 0
|
||||
While EXISTS_JournalNr(LfdJournalNr)
|
||||
If cnt_ > 10 Then Exit While
|
||||
LfdJournalNr += 1
|
||||
cnt_ += 1
|
||||
End While
|
||||
'-------
|
||||
|
||||
|
||||
SAVE()
|
||||
Return LfdJournalNr
|
||||
Else
|
||||
LfdJournalNr = 1
|
||||
SAVE()
|
||||
Return LfdJournalNr
|
||||
End If
|
||||
|
||||
|
||||
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
|
||||
|
||||
Public Function EXISTS_BelegNr(LfdBelegNr As Integer) As Boolean
|
||||
Try
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT count(*) as COUNT FROM tblGeschäftsjahr WHERE [Mandant]=@Mandant AND Niederlassung=@Niederlassung AND Benutzer=@Benutzer AND Geschäftsjahr=@Geschäftsjahr AND LfdBelegNr=@LfdBelegNr ", 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("@LfdBelegNr", LfdBelegNr)
|
||||
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
If cSqlDb.checkNullInteger(dr.Item("COUNT")) > 0 Then Return True
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
|
||||
Return False
|
||||
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 Function EXISTS_JournalNr(LfdJournalNr As Integer) As Boolean
|
||||
Try
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT count(*) as COUNT FROM tblGeschäftsjahr WHERE [Mandant]=@Mandant AND Niederlassung=@Niederlassung AND Benutzer=@Benutzer AND Geschäftsjahr=@Geschäftsjahr AND LfdJournalNr=@LfdJournalNr ", 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("@LfdJournalNr", LfdJournalNr)
|
||||
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
If cSqlDb.checkNullInteger(dr.Item("COUNT")) > 0 Then Return True
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
|
||||
Return False
|
||||
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
|
||||
|
||||
|
||||
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
|
||||
191
SDL/Classes/cKassenbuch.vb
Normal file
191
SDL/Classes/cKassenbuch.vb
Normal file
@@ -0,0 +1,191 @@
|
||||
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 = cRKSV.getGJ(Now) ' 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 Finanzwege As String = ""
|
||||
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.Finanzwege = cSqlDb.checkNullStr(dr.Item("Finanzwege"))
|
||||
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("Finanzwege", Finanzwege))
|
||||
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
|
||||
3278
SDL/Classes/cRKSV.vb
Normal file
3278
SDL/Classes/cRKSV.vb
Normal file
File diff suppressed because it is too large
Load Diff
307
SDL/Classes/cRKSV_Kasse.vb
Normal file
307
SDL/Classes/cRKSV_Kasse.vb
Normal file
@@ -0,0 +1,307 @@
|
||||
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 rksvDE_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
|
||||
Property rksv_ipAdresse As Object = Nothing
|
||||
Property rksv_DE_TSE_Serial As Object = Nothing
|
||||
Property rksv_DE_user As Object = Nothing
|
||||
Property rksv_DE_pwd As Object = Nothing
|
||||
Property rksv_DE_apiToken As Object = Nothing
|
||||
Property rksv_DE_license As Object = Nothing
|
||||
Property rksv_StornoIncreaseBelegCnt 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.rksvDE_aktiv = cSqlDb.checkNullReturnValue(dr.Item("rksvDE_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)
|
||||
Me.rksv_ipAdresse = cSqlDb.checkNullReturnValue(dr.Item("rksv_ipAdresse"), Nothing)
|
||||
Me.rksv_DE_TSE_Serial = cSqlDb.checkNullReturnValue(dr.Item("rksv_DE_TSE_Serial"), Nothing)
|
||||
Me.rksv_DE_user = cSqlDb.checkNullReturnValue(dr.Item("rksv_DE_user"), Nothing)
|
||||
Me.rksv_DE_pwd = cSqlDb.checkNullReturnValue(dr.Item("rksv_DE_pwd"), Nothing)
|
||||
Me.rksv_DE_apiToken = cSqlDb.checkNullReturnValue(dr.Item("rksv_DE_apiToken"), Nothing)
|
||||
Me.rksv_DE_license = cSqlDb.checkNullReturnValue(dr.Item("rksv_DE_license"), Nothing)
|
||||
Me.rksv_StornoIncreaseBelegCnt = cSqlDb.checkNullBool(dr.Item("rksv_StornoIncreaseBelegCnt"))
|
||||
|
||||
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("rksvDE_aktiv", rksvDE_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))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_ipAdresse", rksv_ipAdresse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_DE_TSE_Serial", rksv_DE_TSE_Serial))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_DE_user", rksv_DE_user))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_DE_pwd", rksv_DE_pwd))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_DE_apiToken", rksv_DE_apiToken))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_DE_license", rksv_DE_license))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_StornoIncreaseBelegCnt", rksv_StornoIncreaseBelegCnt))
|
||||
|
||||
|
||||
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
|
||||
171
SDL/Classes/cRKSV_POS.vb
Normal file
171
SDL/Classes/cRKSV_POS.vb
Normal file
@@ -0,0 +1,171 @@
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
|
||||
Public Class cRKSV_POS
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Property pos_Id As Integer
|
||||
Property pos_bezeichnung As String
|
||||
Property pos_aktiv As Object = Nothing
|
||||
Property pos_kasse As Object = Nothing
|
||||
Property pos_kassennr As Object = Nothing
|
||||
Property pos_com As Object = Nothing
|
||||
Property pos_baudrate As Object = Nothing
|
||||
Property pos_comspeed As Object = Nothing
|
||||
Property pos_comstop As Object = Nothing
|
||||
Property pos_ip As Object = Nothing
|
||||
Property pos_port As Object = Nothing
|
||||
Property pos_typ As Object = Nothing
|
||||
Property pos_lizenz As Object = Nothing
|
||||
Property pos_kassendruck As Object = Nothing
|
||||
Property pos_demoausdruck As Object = Nothing
|
||||
Property pos_demodummyausdruck As Object = Nothing
|
||||
Property pos_pin As Object = Nothing
|
||||
Property pos_händerbeleg_drucken As Object = Nothing
|
||||
Property pos_storno As Object = Nothing
|
||||
Property pos_wartezeit As Object = Nothing
|
||||
Property pos_FIBU As Object = Nothing
|
||||
Property pos_XML As Object = Nothing
|
||||
Property pos_Protokollpfad As Object = Nothing
|
||||
|
||||
Public hasEntry = False
|
||||
|
||||
|
||||
Public Sub New(pos_Id, pos_kasse)
|
||||
Me.pos_Id = pos_Id
|
||||
Me.pos_kasse = pos_kasse
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
Public Sub New(pos_bezeichnung As String, pos_kasse As Integer, pos_aktiv As Boolean)
|
||||
Me.pos_bezeichnung = pos_bezeichnung
|
||||
Me.pos_kasse = pos_kasse
|
||||
Me.pos_aktiv = pos_aktiv
|
||||
SAVE()
|
||||
End Sub
|
||||
|
||||
Public Sub New(pos_bezeichnung As String)
|
||||
Me.pos_bezeichnung = pos_bezeichnung
|
||||
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("pos_Id", pos_Id,, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_bezeichnung", pos_bezeichnung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_aktiv", pos_aktiv))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_kasse", pos_kasse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_kassennr", pos_kassennr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_com", pos_com))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_baudrate", pos_baudrate))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_comspeed", pos_comspeed))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_comstop", pos_comstop))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_ip", pos_ip))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_port", pos_port))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_typ", pos_typ))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_lizenz", pos_lizenz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_kassendruck", pos_kassendruck))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_demoausdruck", pos_demoausdruck))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_demodummyausdruck", pos_demodummyausdruck))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_pin", pos_pin))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_händerbeleg_drucken", pos_händerbeleg_drucken))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_storno", pos_storno))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_wartezeit", pos_wartezeit))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_FIBU", pos_FIBU))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_XML", pos_XML))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_Protokollpfad", pos_Protokollpfad))
|
||||
|
||||
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 tblRKSV_POS WHERE pos_Id=@pos_Id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
hasEntry = False
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblRKSV_POS WHERE pos_Id=@pos_Id ", conn)
|
||||
cmd.Parameters.AddWithValue("@pos_Id", pos_Id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
hasEntry = True
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblRKSV_POS] SET " & str & " WHERE pos_Id=@pos_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 tblRKSV_POS (" & 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 Sub delete()
|
||||
SQL.doSQL("delete from [tblRKSV_POS] where pos_Id = '" & pos_Id & "' ", "FMZOLL")
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
69
SDL/Classes/cSDL.vb
Normal file
69
SDL/Classes/cSDL.vb
Normal file
@@ -0,0 +1,69 @@
|
||||
|
||||
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 VERAG_PROG_ALLGEMEIN.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 VERAG_PROG_ALLGEMEIN.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
|
||||
|
||||
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