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

TIMOCOM, Anpassung Auftrag Kopieren

Browse Source
This commit is contained in:
ms
2019-12-05 11:49:37 +01:00
parent 8cbc8c3728
commit 64db243fb3
17 changed files with 563 additions and 479 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
UID/cSqlDb.vb
View File

@@ -40,6 +40,7 @@ Public Class cEntry
Property kd_fax As String = ""
Property kd_email As String = ""
Property kd_homepage As String = ""
Property kd_TIMOCOM As String = ""
Property kd_oez_id As String = ""
Property kd_neutralisierung As String = "1"
Property kd_aviso As String = "2"
@@ -89,6 +90,7 @@ Public Class cEntry
Me.kd_fax = dr.Item("kd_fax")
Me.kd_email = dr.Item("kd_email")
Me.kd_homepage = dr.Item("kd_homepage")
Me.kd_TIMOCOM = cMeineFunktionen.VarToStr(dr.Item("kd_TIMOCOM"))
Me.kd_oez_id = dr.Item("kd_oez_id")
Me.kd_neutralisierung = dr.Item("kd_neutralisierung")
Me.kd_aviso = dr.Item("kd_aviso")
@@ -1050,6 +1052,7 @@ Public Class cOptionenDAL
daten.kd_fax = dr.Item("kd_fax")
daten.kd_email = dr.Item("kd_email")
daten.kd_homepage = dr.Item("kd_homepage")
daten.kd_TIMOCOM = cMeineFunktionen.VarToStr(dr.Item("kd_TIMOCOM"))
daten.kd_oez_id = dr.Item("kd_oez_id")
daten.kd_neutralisierung = dr.Item("kd_neutralisierung")
daten.kd_aviso = dr.Item("kd_aviso")
@@ -1368,8 +1371,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_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_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) 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)"
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
Using cmd As New SqlCommand(sql, conn)
@@ -1388,6 +1391,7 @@ Public Class cOptionenDAL
cmd.Parameters.AddWithValue("@kd_fax", d.kd_fax)
cmd.Parameters.AddWithValue("@kd_email", d.kd_email)
cmd.Parameters.AddWithValue("@kd_homepage", d.kd_homepage)
cmd.Parameters.AddWithValue("@kd_TIMOCOM", d.kd_TIMOCOM)
cmd.Parameters.AddWithValue("@kd_oez_id", oez_id)
cmd.Parameters.AddWithValue("@kd_neutralisierung", d.kd_neutralisierung)
cmd.Parameters.AddWithValue("@kd_aviso", d.kd_aviso)
@@ -1469,7 +1473,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_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 " &
" WHERE kd_id=@kd_id"
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
Using cmd As New SqlCommand(sql, conn)
@@ -1487,6 +1491,7 @@ Public Class cOptionenDAL
cmd.Parameters.AddWithValue("@kd_fax", d.kd_fax)
cmd.Parameters.AddWithValue("@kd_email", d.kd_email)
cmd.Parameters.AddWithValue("@kd_homepage", d.kd_homepage)
cmd.Parameters.AddWithValue("@kd_TIMOCOM", d.kd_TIMOCOM)
cmd.Parameters.AddWithValue("@kd_neutralisierung", d.kd_neutralisierung)
cmd.Parameters.AddWithValue("@kd_aviso", d.kd_aviso)