Aviso Redesign
This commit is contained in:
@@ -1,4 +1,5 @@
|
||||
Imports SDL
|
||||
Imports Confluent.Kafka
|
||||
Imports SDL
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
Imports VERAG_PROG_ALLGEMEIN.cGlobal
|
||||
Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO
|
||||
@@ -1813,8 +1814,8 @@ ELSE_ATILLA:
|
||||
|
||||
If SendungsId Is Nothing Then Return False
|
||||
If Not IsNumeric(SendungsId) Then Return False
|
||||
If AvisoID Is Nothing Then Return False
|
||||
If Not IsNumeric(AvisoID) Then Return False
|
||||
'If AvisoID Is Nothing Then Return False
|
||||
'If Not IsNumeric(AvisoID) Then Return False
|
||||
|
||||
Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId)
|
||||
|
||||
@@ -1837,10 +1838,10 @@ ELSE_ATILLA:
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId IsNot Nothing Then SENDUNG_TMP.tblSnd_TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
|
||||
End If
|
||||
SENDUNG_TMP.tblSnd_Vorbereitet = Now 'SENDUNG_TMP.tblSnd_Status=VERAG_PROG_ALLGEMEIN.vor ' Status macht keinen Sinn..
|
||||
AvisoDAL.addAenderung(AvisoID, "Sendung auf VORBEREITET gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf VORBEREITET gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
|
||||
AvisoDAL.addAenderung(If(AvisoID, -1), "Sendung auf VORBEREITET gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf VORBEREITET gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
|
||||
Else
|
||||
SENDUNG_TMP.tblSnd_Vorbereitet = Nothing
|
||||
AvisoDAL.addAenderung(AvisoID, "Sendung auf NICHT VORBEREITET gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT VORBEREITET gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
|
||||
AvisoDAL.addAenderung(If(AvisoID, -1), "Sendung auf NICHT VORBEREITET gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT VORBEREITET gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
|
||||
End If
|
||||
Return SENDUNG_TMP.SAVE()
|
||||
|
||||
@@ -1850,8 +1851,8 @@ ELSE_ATILLA:
|
||||
|
||||
If SendungsId Is Nothing Then Return False
|
||||
If Not IsNumeric(SendungsId) Then Return False
|
||||
If AvisoID Is Nothing Then Return False
|
||||
If Not IsNumeric(AvisoID) Then Return False
|
||||
'If AvisoID Is Nothing Then Return False
|
||||
'If Not IsNumeric(AvisoID) Then Return False
|
||||
|
||||
Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId)
|
||||
|
||||
@@ -1876,21 +1877,39 @@ ELSE_ATILLA:
|
||||
'If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId IsNot Nothing Then SENDUNG_TMP.tblSnd_TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
|
||||
|
||||
SENDUNG_TMP.tblSnd_AbklaerungTR = Now 'SENDUNG_TMP.tblSnd_Status=VERAG_PROG_ALLGEMEIN.vor ' Status macht keinen Sinn..
|
||||
AvisoDAL.addAenderung(AvisoID, "Sendung auf ABGEKLÄRT (TR) gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf ABGEKLÄRT (TR) gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
|
||||
AvisoDAL.addAenderung(If(AvisoID, -1), "Sendung auf ABGEKLÄRT (TR) gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf ABGEKLÄRT (TR) gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
|
||||
Else
|
||||
SENDUNG_TMP.tblSnd_AbklaerungTR = Nothing
|
||||
AvisoDAL.addAenderung(AvisoID, "Sendung auf NICHT ABGEKLÄRT (TR) gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT ABGEKLÄRT (TR) gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
|
||||
AvisoDAL.addAenderung(If(AvisoID, -1), "Sendung auf NICHT ABGEKLÄRT (TR) gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT ABGEKLÄRT (TR) gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
|
||||
End If
|
||||
Return SENDUNG_TMP.SAVE()
|
||||
|
||||
End Function
|
||||
|
||||
Public Function setSendungSpeditionsbuchEintrag(SendungsId, AvisoID) As Boolean
|
||||
|
||||
Dim FUNC As New AvisoStatusFunctions
|
||||
|
||||
Dim posnr As posNr = FUNC.SpeditionsbuchEintrag(AvisoID, SendungsId)
|
||||
If posnr IsNot Nothing Then
|
||||
Dim sndEntry As New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId)
|
||||
sndEntry.FilialenNr = posnr.Filiale
|
||||
sndEntry.AbfertigungsNr = posnr.Abfertigungsnummer
|
||||
sndEntry.UnterNr = posnr.UnterNr
|
||||
'sndEntry.tblSnd_SpeditionsbuchEingetragen = (posnr.Filiale > 0 And posnr.Abfertigungsnummer > 0 And posnr.UnterNr >= 0) ' Wenn Sped Eintrag gelöscht-> - 1, dann ist der Eintrag nicht mehr vorhanden
|
||||
Dim vorhanden = SQL.getValueTxtBySql("SELECT COUNT(*) FROM [Speditionsbuch] WHERE [FilialenNr]='" & sndEntry.FilialenNr & "' AND AbfertigungsNr='" & sndEntry.AbfertigungsNr & "' AND UnterNr='" & sndEntry.UnterNr & "'", "FMZOLL")
|
||||
sndEntry.tblSnd_SpeditionsbuchEingetragen = (vorhanden > 0)
|
||||
sndEntry.SAVE()
|
||||
End If
|
||||
'Vermerke_anzeigen()
|
||||
|
||||
End Function
|
||||
Public Function setSendungAbfertigungTR(SendungsId, AvisoID, Optional anzahl = 1, Optional anzahlPos = 1) As Boolean
|
||||
|
||||
If SendungsId Is Nothing Then Return False
|
||||
If Not IsNumeric(SendungsId) Then Return False
|
||||
If AvisoID Is Nothing Then Return False
|
||||
If Not IsNumeric(AvisoID) Then Return False
|
||||
'If AvisoID Is Nothing Then Return False
|
||||
'If Not IsNumeric(AvisoID) Then Return False
|
||||
|
||||
Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId)
|
||||
|
||||
@@ -1917,10 +1936,10 @@ ELSE_ATILLA:
|
||||
' If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId IsNot Nothing Then SENDUNG_TMP.tblSnd_TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
|
||||
|
||||
SENDUNG_TMP.tblSnd_AbfertigungTR = Now 'SENDUNG_TMP.tblSnd_Status=VERAG_PROG_ALLGEMEIN.vor ' Status macht keinen Sinn..
|
||||
AvisoDAL.addAenderung(AvisoID, "Sendung auf ABGEFERTIGT (TR) gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf ABGEFERTIGT (TR) gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & "(Anz:" & SENDUNG_TMP.tblSnd_AbfertigungTRAnzahl & ", Pos:" & SENDUNG_TMP.tblSnd_AbfertigungTRAnzahlPos & ")")
|
||||
AvisoDAL.addAenderung(If(AvisoID, -1), "Sendung auf ABGEFERTIGT (TR) gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf ABGEFERTIGT (TR) gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & "(Anz:" & SENDUNG_TMP.tblSnd_AbfertigungTRAnzahl & ", Pos:" & SENDUNG_TMP.tblSnd_AbfertigungTRAnzahlPos & ")")
|
||||
Else
|
||||
SENDUNG_TMP.tblSnd_AbfertigungTR = Nothing
|
||||
AvisoDAL.addAenderung(AvisoID, "Sendung auf NICHT ABGEFERTIGT (TR) gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT ABGEFERTIGT (TR) gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
|
||||
AvisoDAL.addAenderung(If(AvisoID, -1), "Sendung auf NICHT ABGEFERTIGT (TR) gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT ABGEFERTIGT (TR) gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
|
||||
End If
|
||||
Return SENDUNG_TMP.SAVE()
|
||||
|
||||
@@ -1930,8 +1949,8 @@ ELSE_ATILLA:
|
||||
|
||||
If SendungsId Is Nothing Then Return False
|
||||
If Not IsNumeric(SendungsId) Then Return False
|
||||
If AvisoID Is Nothing Then Return False
|
||||
If Not IsNumeric(AvisoID) Then Return False
|
||||
'If AvisoID Is Nothing Then Return False
|
||||
'If Not IsNumeric(AvisoID) Then Return False
|
||||
|
||||
Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId)
|
||||
|
||||
@@ -1940,10 +1959,10 @@ ELSE_ATILLA:
|
||||
If SENDUNG_TMP.tblSnd_Fakturiert Is Nothing Then
|
||||
|
||||
SENDUNG_TMP.tblSnd_Fakturiert = Now 'SENDUNG_TMP.tblSnd_Status=VERAG_PROG_ALLGEMEIN.vor ' Status macht keinen Sinn..
|
||||
AvisoDAL.addAenderung(AvisoID, "Sendung auf FAKTURIERT gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf FAKTURIERT gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
|
||||
AvisoDAL.addAenderung(If(AvisoID, -1), "Sendung auf FAKTURIERT gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf FAKTURIERT gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
|
||||
Else
|
||||
SENDUNG_TMP.tblSnd_Fakturiert = Nothing
|
||||
AvisoDAL.addAenderung(AvisoID, "Sendung auf NICHT FAKTURIERT gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT FAKTURIERT gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
|
||||
AvisoDAL.addAenderung(If(AvisoID, -1), "Sendung auf NICHT FAKTURIERT gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT FAKTURIERT gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
|
||||
End If
|
||||
Return SENDUNG_TMP.SAVE()
|
||||
|
||||
@@ -1955,9 +1974,9 @@ ELSE_ATILLA:
|
||||
|
||||
|
||||
If sendId Is Nothing Then Return Nothing
|
||||
If AvisoID Is Nothing Then Return Nothing
|
||||
' If AvisoID Is Nothing Then Return Nothing
|
||||
If sendId <= 0 Then Return Nothing
|
||||
If AvisoID <= 0 Then Return Nothing
|
||||
' If AvisoID <= 0 Then Return Nothing
|
||||
|
||||
For Each openForm In Application.OpenForms()
|
||||
If TypeOf (openForm) Is frmSendungsdetailsNEU Then
|
||||
|
||||
Reference in New Issue
Block a user