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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-03-19 22:52:06 +01:00
parent 9b001e5803
commit d9204781cf
139 changed files with 19394 additions and 3352 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
View File

@@ -1053,7 +1053,11 @@ Public Class cAviso
Return dt
End Function
Public Function getSENDUNG_LIST() As List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, AvisoID) 'LÄDT alle SENDUNGSDATEN
Return SENDUNG_LIST
End Function
Sub UPDATE_FahrerHandy(FahrerHandy As String)
If AvisoID <= 0 Then Exit Sub
@@ -1942,7 +1946,7 @@ Public Class cVermerkeDAL
daten.VermerkCodeId = VarToInt(dr.Item("VermerkeCode"))
daten.SendungID = VarToInt(dr.Item("SendungID"))
daten.VermerkArt = VarToStr(dr.Item("VermerkArt"))
daten.VorauskasseId = VarToStr(dr.Item("VorauskasseId"))
daten.VorauskasseId = VarToInt(dr.Item("VorauskasseId"))
daten.SMSId = VarToInt(dr.Item("SMSId"))
daten.SMSStatus = VarToInt(dr.Item("SMSstatus"))
End If
@@ -2416,6 +2420,8 @@ Public Class cOption
Property eMail_Ankunft_Text As String
Property eMail_Freigabe_Betreff As String
Property eMail_Freigabe_Text As String
Property eMail_Status_Text As String
Property eMail_Status_Betreff As String
End Class
Public Class cOptionenDAL
@@ -2440,6 +2446,8 @@ Public Class cOptionenDAL
daten.eMail_Ankunft_Text = VarToStr(dr.Item("eMail_Ankunft_Text"))
daten.eMail_Freigabe_Betreff = VarToStr(dr.Item("eMail_Freigabe_Betreff"))
daten.eMail_Freigabe_Text = VarToStr(dr.Item("eMail_Freigabe_Text"))
daten.eMail_Status_Betreff = VarToStr(dr.Item("eMail_Status_Betreff"))
daten.eMail_Status_Text = VarToStr(dr.Item("eMail_Status_Text"))
End If
dr.Close()
End Using
@@ -2531,6 +2539,8 @@ Public Class cStandort
Property eMail_Zollbeleg_Betreff As String
Property eMail_Zollbeleg_Text As String
Property eMail_Status_Betreff As String
Property eMail_Status_Text As String
End Class
Public Class cStandorteDAL
@@ -2564,6 +2574,8 @@ Public Class cStandorteDAL
daten.eMail_Freigabe_Text = VarToStr(dr.Item("eMail_Freigabe_Text"))
daten.eMail_Zollbeleg_Betreff = VarToStr(dr.Item("eMail_Zollbeleg_Betreff"))
daten.eMail_Zollbeleg_Text = VarToStr(dr.Item("eMail_Zollbeleg_Text"))
daten.eMail_Status_Betreff = VarToStr(dr.Item("eMail_Status_Betreff"))
daten.eMail_Status_Text = VarToStr(dr.Item("eMail_Status_Text"))
End If
dr.Close()
End Using
@@ -2638,12 +2650,12 @@ Public Class cStandorteDAL
If d.StandortID = 0 Then
'Neuanlage
hAuswahl = "INSERT INTO Standorte " &
"(Standort, Standort_Text, Info, eMail_Ankunft_Betreff, eMail_Ankunft_Text, eMail_Freigabe_Betreff, eMail_Freigabe_Text,eMail_Zollbeleg_Betreff,eMail_Zollbeleg_Text) VALUES (" &
"@Standort, @Standort_Text, @Info, @eMail_Ankunft_Betreff, @eMail_Ankunft_Text, @eMail_Freigabe_Betreff, @eMail_Freigabe_Text,@eMail_Zollbeleg_Betreff,@eMail_Zollbeleg_Text)"
"(Standort, Standort_Text, Info, eMail_Ankunft_Betreff, eMail_Ankunft_Text, eMail_Freigabe_Betreff, eMail_Freigabe_Text,eMail_Zollbeleg_Betreff,eMail_Zollbeleg_Text,eMail_Status_Betreff,eMail_Status_Text) VALUES (" &
"@Standort, @Standort_Text, @Info, @eMail_Ankunft_Betreff, @eMail_Ankunft_Text, @eMail_Freigabe_Betreff, @eMail_Freigabe_Text,@eMail_Zollbeleg_Betreff,@eMail_Zollbeleg_Text,@eMail_Status_Betreff,@eMail_Status_Text)"
Else
'Änderung
hAuswahl = String.Format(
"UPDATE Standorte SET Standort = @Standort, Standort_Text=@Standort_Text, Info=@Info, eMail_Ankunft_Betreff=@eMail_Ankunft_Betreff, eMail_Ankunft_Text=@eMail_Ankunft_Text, eMail_Freigabe_Betreff=@eMail_Freigabe_Betreff, eMail_Freigabe_Text=@eMail_Freigabe_Text , eMail_Zollbeleg_Betreff=@eMail_Zollbeleg_Betreff , eMail_Zollbeleg_Text=@eMail_Zollbeleg_Text " &
"UPDATE Standorte SET Standort = @Standort, Standort_Text=@Standort_Text, Info=@Info, eMail_Ankunft_Betreff=@eMail_Ankunft_Betreff, eMail_Ankunft_Text=@eMail_Ankunft_Text, eMail_Freigabe_Betreff=@eMail_Freigabe_Betreff, eMail_Freigabe_Text=@eMail_Freigabe_Text , eMail_Zollbeleg_Betreff=@eMail_Zollbeleg_Betreff , eMail_Zollbeleg_Text=@eMail_Zollbeleg_Text,eMail_Status_Betreff=@eMail_Status_Betreff,eMail_Status_Text=@eMail_Status_Text " &
"WHERE StandortID = @StandortID")
End If
Dim sql = hAuswahl
@@ -2658,6 +2670,8 @@ Public Class cStandorteDAL
cmd.Parameters.AddWithValue("@eMail_Freigabe_Text", d.eMail_Freigabe_Text)
cmd.Parameters.AddWithValue("@eMail_Zollbeleg_Betreff", d.eMail_Zollbeleg_Betreff)
cmd.Parameters.AddWithValue("@eMail_Zollbeleg_Text", d.eMail_Zollbeleg_Text)
cmd.Parameters.AddWithValue("@eMail_Status_Betreff", d.eMail_Status_Betreff)
cmd.Parameters.AddWithValue("@eMail_Status_Text", d.eMail_Status_Text)
cmd.Parameters.AddWithValue("@StandortID", d.StandortID)
Try
cmd.ExecuteNonQuery()