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
2021-06-24 23:05:48 +02:00
parent e625acc609
commit f2f992547d
134 changed files with 72921 additions and 2011 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
View File

@@ -950,6 +950,10 @@ Public Class cAviso
Return AVISODAL.LesenAviso(hID, hSQL)
End Function
Shared Function getFirmaByAvisoId(AvisoId) As String
Dim SQL As New SQL
Return SQL.getValueTxtBySql("SELECT TOP 1 Firma FROM AVISO WHERE AvisoId=" & AvisoId, "AVISO")
End Function
Shared Function getAVISO_List(Optional Standort = "SUB") As DataTable 'Optional FIRMA = "VERAG") As DataTable
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
@@ -1820,6 +1824,8 @@ Public Class cVermerk
Property VermerkCodeId As Integer
Property VorauskasseId As Object = Nothing
Property Beschreibung As String = ""
Property SMSId As Integer
Property SMSStatus As Integer
End Class
@@ -1851,6 +1857,8 @@ Public Class cVermerkeDAL
daten.SendungID = VarToInt(dr.Item("SendungID"))
daten.VermerkArt = VarToStr(dr.Item("VermerkArt"))
daten.VorauskasseId = VarToStr(dr.Item("VorauskasseId"))
daten.SMSId = VarToInt(dr.Item("SMSId"))
daten.SMSStatus = VarToInt(dr.Item("SMSstatus"))
End If
dr.Close()
End Using
@@ -2000,11 +2008,11 @@ Public Class cVermerkeDAL
If d.VermerkID = 0 Then
'Neuanlage
hAuswahl = "INSERT INTO Vermerke " &
"(AvisoID,VermerkArt,SendungID, Datum, Mitarbeiter, Hinweis_Vermerk, VermerkeCode,MitarbeiterId,Beschreibung,VorauskasseId) VALUES (@AvisoID,@VermerkArt, @SendungID, @Datum, @Mitarbeiter, @Hinweis_Vermerk, @VermerkeCode,@MitarbeiterId,@Beschreibung,@VorauskasseId)"
"(AvisoID,VermerkArt,SendungID, Datum, Mitarbeiter, Hinweis_Vermerk, VermerkeCode,MitarbeiterId,Beschreibung,VorauskasseId,SMSId,SMSStatus) VALUES (@AvisoID,@VermerkArt, @SendungID, @Datum, @Mitarbeiter, @Hinweis_Vermerk, @VermerkeCode,@MitarbeiterId,@Beschreibung,@VorauskasseId,@SMSId,@SMSStatus)"
Else
'Änderung
hAuswahl = String.Format(
"UPDATE Vermerke SET AvisoID = @AvisoID, VermerkArt=@VermerkArt,SendungID=@SendungID,Datum = @Datum, Mitarbeiter = @Mitarbeiter, Hinweis_Vermerk = @Hinweis_Vermerk, VermerkeCode = @VermerkeCode, MitarbeiterId=@MitarbeiterId, Beschreibung=@Beschreibung,VorauskasseId=@VorauskasseId WHERE VermerkID = @VermerkID")
"UPDATE Vermerke SET AvisoID = @AvisoID, VermerkArt=@VermerkArt,SendungID=@SendungID,Datum = @Datum, Mitarbeiter = @Mitarbeiter, Hinweis_Vermerk = @Hinweis_Vermerk, VermerkeCode = @VermerkeCode, MitarbeiterId=@MitarbeiterId, Beschreibung=@Beschreibung,VorauskasseId=@VorauskasseId WHERE VermerkID = @VermerkID,SMSId=@SMSId,SMSStatus=@SMSStatus")
End If
Dim sql = hAuswahl
Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection()
@@ -2020,6 +2028,8 @@ Public Class cVermerkeDAL
cmd.Parameters.AddWithValue("@VermerkArt", d.VermerkArt)
cmd.Parameters.AddWithValue("@SendungID", If(d.SendungID > 0, d.SendungID, DBNull.Value))
cmd.Parameters.AddWithValue("@VorauskasseId", If(d.VorauskasseId IsNot Nothing, d.VorauskasseId, DBNull.Value))
cmd.Parameters.AddWithValue("@SMSId", d.SMSId)
cmd.Parameters.AddWithValue("@SMSStatus", d.SMSStatus)
Try
cmd.ExecuteNonQuery()