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

Änderungen AMBAR

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-04-04 08:17:02 +02:00
parent 3c0da09315
commit e386fa6655
39 changed files with 1937 additions and 1490 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
UID/cSqlDb.vb
View File

@@ -49,6 +49,7 @@ Public Class cEntry
Property kd_info As String = ""
Property kd_tarifInfo As String = ""
Property kd_rolle As String = ""
Property kd_AVISOfirma As String = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Property kdoez As cOeffnungszeiten
Property kd_FMZOLL_KdNr As Object = Nothing
@@ -97,6 +98,7 @@ Public Class cEntry
Me.kd_isRefNr = dr.Item("kd_isRefNr")
If Not dr.Item("kd_refNr") Is DBNull.Value Then Me.kd_refNr = dr.Item("kd_refNr")
Me.kd_info = dr.Item("kd_info")
Me.kd_AVISOfirma = dr.Item("kd_AVISOfirma")
If Not dr.Item("kd_tarifInfo") Is Nothing And Not dr.Item("kd_tarifInfo") Is DBNull.Value Then Me.kd_tarifInfo = dr.Item("kd_tarifInfo") Else Me.kd_tarifInfo = ""
If Not dr.Item("kd_rolle") = vbNullString Then Me.kd_rolle = dr.Item("kd_rolle") Else Me.kd_rolle = 0
If dr.Item("kd_FMZOLL_KdNr") IsNot DBNull.Value Then Me.kd_FMZOLL_KdNr = dr.Item("kd_FMZOLL_KdNr") Else Me.kd_FMZOLL_KdNr = Nothing
@@ -1059,6 +1061,7 @@ Public Class cOptionenDAL
daten.kd_isRefNr = dr.Item("kd_isRefNr")
If Not dr.Item("kd_refNr") Is DBNull.Value Then daten.kd_refNr = dr.Item("kd_refNr")
daten.kd_info = dr.Item("kd_info")
daten.kd_AVISOfirma = dr.Item("kd_AVISOfirma")
If Not dr.Item("kd_tarifInfo") Is Nothing And Not dr.Item("kd_tarifInfo") Is DBNull.Value Then daten.kd_tarifInfo = dr.Item("kd_tarifInfo") Else daten.kd_tarifInfo = ""
If Not dr.Item("kd_rolle") = vbNullString Then daten.kd_rolle = dr.Item("kd_rolle") Else daten.kd_rolle = 0
If dr.Item("kd_FMZOLL_KdNr") IsNot DBNull.Value Then daten.kd_FMZOLL_KdNr = dr.Item("kd_FMZOLL_KdNr") Else daten.kd_FMZOLL_KdNr = Nothing
@@ -1371,8 +1374,8 @@ Public Class cOptionenDAL
Public Function insertKunden(ByVal d As cEntry) As Integer
Dim oez_id As Integer = insertOeffnungszeiten(d.kdoez)
Dim sql = "INSERT INTO tblKunden " &
"(kd_firma, kd_str, kd_strnr, kd_plz, kd_ort, kd_land,kd_anspr1_vn,kd_anspr1_nn,kd_anspr2_vn,kd_anspr2_nn,kd_tel,kd_fax,kd_email,kd_homepage,kd_TIMOCOM,kd_oez_id,kd_neutralisierung,kd_aviso,kd_isRefNr,kd_refNr,kd_info,kd_tarifInfo,kd_rolle,kd_FMZOLL_KdNr) VALUES " &
"(@kd_firma,@kd_str,@kd_strnr,@kd_plz,@kd_ort,@kd_land,@kd_anspr1_vn,@kd_anspr1_nn,@kd_anspr2_vn,@kd_anspr2_nn,@kd_tel,@kd_fax,@kd_email,@kd_homepage,@kd_TIMOCOM,@kd_oez_id,@kd_neutralisierung,@kd_aviso,@kd_isRefNr,@kd_refNr,@kd_info,@kd_tarifInfo,@kd_rolle,@kd_FMZOLL_KdNr)"
"(kd_firma, kd_str, kd_strnr, kd_plz, kd_ort, kd_land,kd_anspr1_vn,kd_anspr1_nn,kd_anspr2_vn,kd_anspr2_nn,kd_tel,kd_fax,kd_email,kd_homepage,kd_TIMOCOM,kd_oez_id,kd_neutralisierung,kd_aviso,kd_isRefNr,kd_refNr,kd_info,kd_tarifInfo,kd_rolle,kd_FMZOLL_KdNr,kd_AVISOfirma) VALUES " &
"(@kd_firma,@kd_str,@kd_strnr,@kd_plz,@kd_ort,@kd_land,@kd_anspr1_vn,@kd_anspr1_nn,@kd_anspr2_vn,@kd_anspr2_nn,@kd_tel,@kd_fax,@kd_email,@kd_homepage,@kd_TIMOCOM,@kd_oez_id,@kd_neutralisierung,@kd_aviso,@kd_isRefNr,@kd_refNr,@kd_info,@kd_tarifInfo,@kd_rolle,@kd_FMZOLL_KdNr,@kd_AVISOfirma)"
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
Using cmd As New SqlCommand(sql, conn)
@@ -1398,6 +1401,7 @@ Public Class cOptionenDAL
cmd.Parameters.AddWithValue("@kd_isRefNr", d.kd_isRefNr)
cmd.Parameters.AddWithValue("@kd_refNr", d.kd_refNr)
cmd.Parameters.AddWithValue("@kd_info", d.kd_info)
cmd.Parameters.AddWithValue("@kd_AVISOfirma", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
cmd.Parameters.AddWithValue("@kd_tarifInfo", d.kd_tarifInfo)
cmd.Parameters.AddWithValue("@kd_rolle", d.kd_rolle)
cmd.Parameters.AddWithValue("@kd_FMZOLL_KdNr", If(d.kd_FMZOLL_KdNr, DBNull.Value))
@@ -1473,7 +1477,7 @@ Public Class cOptionenDAL
Dim hAuswahl As String = ""
'Änderung
Dim sql = "UPDATE tblKunden " &
"SET kd_firma=@kd_firma, kd_str=@kd_str, kd_strnr=@kd_strnr, kd_plz=@kd_plz, kd_ort=@kd_ort, kd_land=@kd_land, kd_anspr1_vn=@kd_anspr1_vn, kd_anspr1_nn=@kd_anspr1_nn, kd_anspr2_vn=@kd_anspr2_vn, kd_anspr2_nn=@kd_anspr2_nn, kd_tel=@kd_tel, kd_fax=@kd_fax, kd_email=@kd_email, kd_homepage=@kd_homepage, kd_TIMOCOM=@kd_TIMOCOM, kd_neutralisierung=@kd_neutralisierung, kd_aviso=@kd_aviso, kd_isRefNr=@kd_isRefNr,kd_refNr=@kd_refNr,kd_info=@kd_info, kd_tarifInfo=@kd_tarifInfo ,kd_rolle=@kd_rolle, kd_FMZOLL_KdNr=@kd_FMZOLL_KdNr " &
"SET kd_firma=@kd_firma, kd_str=@kd_str, kd_strnr=@kd_strnr, kd_plz=@kd_plz, kd_ort=@kd_ort, kd_land=@kd_land, kd_anspr1_vn=@kd_anspr1_vn, kd_anspr1_nn=@kd_anspr1_nn, kd_anspr2_vn=@kd_anspr2_vn, kd_anspr2_nn=@kd_anspr2_nn, kd_tel=@kd_tel, kd_fax=@kd_fax, kd_email=@kd_email, kd_homepage=@kd_homepage, kd_TIMOCOM=@kd_TIMOCOM, kd_neutralisierung=@kd_neutralisierung, kd_aviso=@kd_aviso, kd_isRefNr=@kd_isRefNr,kd_refNr=@kd_refNr,kd_info=@kd_info, kd_tarifInfo=@kd_tarifInfo ,kd_rolle=@kd_rolle, kd_FMZOLL_KdNr=@kd_FMZOLL_KdNr, kd_AVISOfirma=@kd_AVISOfirma " &
" WHERE kd_id=@kd_id"
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
Using cmd As New SqlCommand(sql, conn)
@@ -1498,6 +1502,7 @@ Public Class cOptionenDAL
cmd.Parameters.AddWithValue("@kd_isRefNr", d.kd_isRefNr)
cmd.Parameters.AddWithValue("@kd_refNr", d.kd_refNr)
cmd.Parameters.AddWithValue("@kd_info", d.kd_info)
cmd.Parameters.AddWithValue("@kd_AVISOfirma", d.kd_AVISOfirma)
cmd.Parameters.AddWithValue("@kd_tarifInfo", d.kd_tarifInfo)
cmd.Parameters.AddWithValue("@kd_rolle", d.kd_rolle)
cmd.Parameters.AddWithValue("@kd_id", d.kd_id)
@@ -1943,7 +1948,7 @@ Public Class cFrachtkostenSQL
Public Function getAllFirmen() As List(Of cFrachtkostenFirmen)
'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen
Dim sql As String = "SELECT kd_firma, kd_id FROM tblKunden "
Dim sql As String = "SELECT kd_firma, kd_id FROM tblKunden WHERE kd_AVISOfirma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' "
Dim daten As New List(Of cFrachtkostenFirmen)
Try
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()