From c01d5354be0129bfa192bd94f874fa640b540b8d Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Wed, 4 Dec 2024 08:50:30 +0100 Subject: [PATCH] Vorkasse --- SDL/kunden/Vorauskasse/frmVorauskasse.vb | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/SDL/kunden/Vorauskasse/frmVorauskasse.vb b/SDL/kunden/Vorauskasse/frmVorauskasse.vb index b716ed79..e56b409a 100644 --- a/SDL/kunden/Vorauskasse/frmVorauskasse.vb +++ b/SDL/kunden/Vorauskasse/frmVorauskasse.vb @@ -447,9 +447,9 @@ Public Class frmVorauskasse sendungsId = MyDatagridview1.SelectedRows(0).Cells("vk_SendungId").Value End If - cVorauskasseOptions.insertVermerk(MyDatagridview1.SelectedRows(0).Cells("vk_FilialeNr").Value, MyDatagridview1.SelectedRows(0).Cells("vk_AbfertigungsNr").Value, 14,,, VermerkIDNew, sendungsId,, MyDatagridview1.SelectedRows(0).Cells("vk_id").Value, MyDatagridview1.SelectedRows(0).Cells("vk_QS_SachbearbeiterId").Value) + cVorauskasseOptions.insertVermerk(MyDatagridview1.SelectedRows(0).Cells("vk_FilialeNr").Value, MyDatagridview1.SelectedRows(0).Cells("vk_AbfertigungsNr").Value, 14,,, VermerkIDNew, sendungsId,, MyDatagridview1.SelectedRows(0).Cells("vk_id").Value, MyDatagridview1.SelectedRows(0).Cells("vk_QS_SachbearbeiterId").Value, txtBemerkung.Text) - If VK.vk_VermerkId IsNot Nothing AndAlso VermerkIDNew > 0 Then + If VK.vk_VermerkId IsNot Nothing AndAlso VermerkIDNew > 0 Then Dim cVermerkeDAL As New VERAG_PROG_ALLGEMEIN.cVermerkeDAL cVermerkeDAL.SpeichernVermerkIDAufgehoben(VK.vk_VermerkId, VermerkIDNew) End If @@ -647,7 +647,7 @@ End Class Public Class cVorauskasseOptions - Shared Sub insertVermerk(FilialenNr, AbfertigungsNr, VermerkCodeId, Optional DatumTmp = Nothing, Optional Freigegeben = False, Optional ByRef VermerkId = -1, Optional tblSnd_SendungID = -1, Optional vk_Betrag = Nothing, Optional VorauskasseId = Nothing, Optional vk_QS_SachbearbeiterId = Nothing) + Shared Sub insertVermerk(FilialenNr, AbfertigungsNr, VermerkCodeId, Optional DatumTmp = Nothing, Optional Freigegeben = False, Optional ByRef VermerkId = -1, Optional tblSnd_SendungID = -1, Optional vk_Betrag = Nothing, Optional VorauskasseId = Nothing, Optional vk_QS_SachbearbeiterId = Nothing, Optional HinweisZusatz = "") Try If vk_Betrag Is Nothing Then vk_Betrag = 0 @@ -688,11 +688,12 @@ Public Class cVorauskasseOptions myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Dim betragTXT = If(CDbl(vk_Betrag) > 0, " (" & CDbl(vk_Betrag).ToString("C2") & ")", "") Dim betragTXT2 = If(CDbl(vk_Betrag) > 0, ": " & CDbl(vk_Betrag).ToString("C2") & "", "") + Dim HinweisZusatzTXT = If(HinweisZusatz <> "", ", [Vermerk: " & HinweisZusatz.ToString.Trim & "]", "") Select Case VermerkCodeId - Case 13 : myVermerk.Hinweis_Vermerk = "Vorauskasse angefordert" & betragTXT - Case 14 : myVermerk.Hinweis_Vermerk = "Vorauskasse erhalten" : insertBenachrichtigung(myVermerk.Hinweis_Vermerk & betragTXT2, myVermerk.AvisoID, myVermerk.SendungID, vk_QS_SachbearbeiterId) + Case 13 : myVermerk.Hinweis_Vermerk = "Vorauskasse angefordert" & betragTXT & HinweisZusatzTXT + Case 14 : myVermerk.Hinweis_Vermerk = "Vorauskasse erhalten" & HinweisZusatzTXT : insertBenachrichtigung(myVermerk.Hinweis_Vermerk & betragTXT2 & HinweisZusatzTXT, myVermerk.AvisoID, myVermerk.SendungID, vk_QS_SachbearbeiterId) If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" And (VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ORDU" Or Array.IndexOf(New String() {"VRR", "BH", "GF"}, VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG) > -1) Then myVermerk.Mitarbeiter = "VERRECHNUNG (AUTO)" - Case 59 : myVermerk.Hinweis_Vermerk = "Vorauskasse freigegeben" : insertBenachrichtigung(myVermerk.Hinweis_Vermerk & betragTXT2, myVermerk.AvisoID, myVermerk.SendungID, vk_QS_SachbearbeiterId) + Case 59 : myVermerk.Hinweis_Vermerk = "Vorauskasse freigegeben" & HinweisZusatzTXT : insertBenachrichtigung(myVermerk.Hinweis_Vermerk & betragTXT2 & HinweisZusatzTXT, myVermerk.AvisoID, myVermerk.SendungID, vk_QS_SachbearbeiterId) If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" And (VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ORDU" Or Array.IndexOf(New String() {"VRR", "BH", "GF"}, VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG) > -1) Then myVermerk.Mitarbeiter = "VERRECHNUNG (AUTO)" Case Else : Exit Sub End Select