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

Merge branch 'newMaster2024' of https://dev.azure.com/VeragAG/_git/SDL into newMaster2024

Browse Source
This commit is contained in:
d.breimaier
2024-12-04 14:16:23 +01:00
parent 945c09ae64 6f5f2e38ad
commit 5973e557e6
2 changed files with 8 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlQualitaetskontrolle.vb
View File

@@ -252,6 +252,7 @@ Public Class usrCntlQualitaetskontrolle
" FROM zsAnmRefs" &
" WHERE (VorgangID = 'EF') AND (LRN = '" & EZA_Nr & "')" &
" ORDER BY GeaendertAm DESC", EZOLL_SQL)
If dEZOLL Is Nothing Then MsgBox("Keine Daten im EZOLL vorhanden, Daten können nicht geladen werden!") : Exit Sub
If dEZOLL.Rows.Count = 0 Then MsgBox("Keine Daten im EZOLL vorhanden, Daten können nicht geladen werden!") : Exit Sub

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