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

Smmelrechnung Splitting Abf.Art, Benachrichtigung Vorauskasse, Session Online

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-01-21 23:07:52 +01:00
parent e57dc24cbb
commit 209bb3de50
12 changed files with 248 additions and 154 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1,4 +1,6 @@
Public Class frmVorauskasse

Public Class frmVorauskasse
@@ -304,7 +306,7 @@
.Columns("vk_Datum").HeaderText = "Datum"
.Columns("vk_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns("vk_LKW").Width = 120
.Columns("vk_LKW").Width = 120
.Columns("vk_LKW").HeaderText = "LKW Kennz."
@@ -322,13 +324,13 @@
.Columns("vk_GeldEingetroffen").HeaderText = "€-Eing."
.Columns("vk_GeldEingetroffen").Width = 45
.Columns("vk_BH_Bemerkung").HeaderText = "BH Vermerk"
.Columns("vk_BH_Bemerkung").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("vk_BH_DatumGeldeingang").HeaderText = "Geldeingang"
.Columns("vk_BH_DatumGeldeingang").Width = 80
.Columns("vk_QS_Sachbearbeiter").MinimumWidth = 100
.Columns("vk_QS_Sachbearbeiter").HeaderText = "QS Sachb."
.Columns("vk_BH_Sachbearbeiter").MinimumWidth = 100
@@ -340,7 +342,7 @@
.Columns("vk_storno").HeaderText = "Storno"
.Columns("vk_storno").Width = 45
' lblErgebnis.Text = "Ergebnise: " & .RowCount
' lblErgebnis.Text = "Ergebnise: " & .RowCount
End With
End Sub
@@ -487,7 +489,7 @@
If MyDatagridview1.SelectedRows.Count > 0 Then
Dim VK As New VERAG_PROG_ALLGEMEIN.cVorauskasse(MyDatagridview1.SelectedRows(0).Cells("vk_id").Value)
If vbYes <> MsgBox("Möchten Sie die Vorauskasse wirklich löschen?", vbYesNoCancel) Then Exit Sub
VK.delete()
VK.DELETE()
MyDatagridview1.RELOAD()
setDGVOptions()
End If
@@ -613,8 +615,8 @@ Public Class cVorauskasseOptions
myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
Select Case VermerkCodeId
Case 13 : myVermerk.Hinweis_Vermerk = "Vorauskasse angefordert" & If(CDbl(vk_Betrag) > 0, " (" & CDbl(vk_Betrag).ToString("C2") & ")", "")
Case 14 : myVermerk.Hinweis_Vermerk = "Vorauskasse erhalten"
Case 59 : myVermerk.Hinweis_Vermerk = "Vorauskasse freigegeben"
Case 14 : myVermerk.Hinweis_Vermerk = "Vorauskasse erhalten" : insertBenachrichtigung(myVermerk.Hinweis_Vermerk, myVermerk.AvisoID, myVermerk.SendungID)
Case 59 : myVermerk.Hinweis_Vermerk = "Vorauskasse freigegeben" : insertBenachrichtigung(myVermerk.Hinweis_Vermerk, myVermerk.AvisoID, myVermerk.SendungID)
Case Else : Exit Sub
End Select
If VermerkCodeId IsNot Nothing Then myVermerk.VermerkCodeId = VermerkCodeId
@@ -631,7 +633,7 @@ Public Class cVorauskasseOptions
Dim veragSQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim dt As DataTable = veragSQL.loadDgvBySql("SELECT TOP 1 [tblSnd_SendungID] FROM [tblSendungen] where AbfertigungsNr='" & AbfertigungsNr & "' and FilialenNr='" & FilialenNr & "'", "AVISO")
If dt.Rows.Count = 0 Then Exit Sub
If dt.Rows.Count = 0 Then Exit Sub
If Not IsNumeric(dt.Rows(0)("tblSnd_SendungID")) Then Exit Sub
veragSQL.doSQL("DELETE TOP (1) FROM [Vermerke] where SendungID='" & dt.Rows(0)("tblSnd_SendungID") & "' AND VermerkeCode='" & VermerkCodeId & "' ", "AVISO")
@@ -652,6 +654,22 @@ Public Class cVorauskasseOptions
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub
Shared Sub insertBenachrichtigung(VermerkTxt, AvisoId, SendungID)
Try
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim sendToID = SQL.DLookup("LetzterMitarbeiterId", "tblSendungen", "tblSnd_SendungID='" & SendungID & "'")
Dim art = "B"
If sendToID < 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID)) Then
sendToID = SQL.DLookup("tblSnd_TeamId", "tblSendungen", "tblSnd_SendungID='" & SendungID & "'")
art = "T"
End If
VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(AvisoId, SendungID, 3, art, sendToID, "von '" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "'", 0, , VermerkTxt)
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub