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

Vorkasse

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-12-04 08:50:30 +01:00
parent 9fd1c28b5a
commit c01d5354be
1 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
SDL/kunden/Vorauskasse/frmVorauskasse.vb
View File

@@ -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