diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index 3457f493..25bf0a25 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/Verwahrung/usrCntlATLAS_AnkunftsAnzeige.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/Verwahrung/usrCntlATLAS_AnkunftsAnzeige.vb index 38a31102..493deddf 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/Verwahrung/usrCntlATLAS_AnkunftsAnzeige.vb +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/Verwahrung/usrCntlATLAS_AnkunftsAnzeige.vb @@ -71,6 +71,7 @@ Public Class usrCntlATLAS_AnkunftsAnzeige If cboStammreferenz._value = "" Then MsgBox("Stammreferenz auswählen!") : Exit Sub If txtMRN._value = "" Then MsgBox("MRN auswählen!") : Exit Sub + If txtMRN._value.Length > 18 Then MsgBox("MRN zu lang!") : Exit Sub Me.Refresh() diff --git a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb index 02821350..1ba99098 100644 --- a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb +++ b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb @@ -951,6 +951,7 @@ Public Class cAviso Property Transportmittelart As Object = Nothing Property WeiterleitungTextTV As String = "" + Property VerwahrungStatus As Integer Public VORPAPIERE As New List(Of cAvisoVorpapier) @@ -1197,6 +1198,7 @@ Public Class cAvisoDAL daten.Transportmittelart = If(dr.Item("Transportmittelart") Is DBNull.Value, Nothing, dr.Item("Transportmittelart")) daten.WeiterleitungTextTV = VarToStr(dr.Item("WeiterleitungTextTV")) + daten.VerwahrungStatus = VarToInt(dr.Item("VerwahrungStatus")) @@ -1470,17 +1472,17 @@ Public Class cAvisoDAL hAuswahl = "INSERT INTO Aviso " & "(Datum, LKW_Nr, Telefonisch, Änderungen, Info, Status, Auftraggeber, Frächter, letzterMitarbeiter, " & "Vorbereitet,Vorgeschrieben, Ankunft, Freigabe, Dauer, AvisoEingang, Grenzstelle, LKW_fertig,letzterMitarbeiterId,Handling,Sendungen_Gesamtanzahl,Sammelakt,Frächter_KdNr,Auftraggeber_KdNr,AvisoTVHinweis,Buero,Imex,Abgeschlossen,FIRMA, " & - " Durchgangszollstelle1,Durchgangszollstelle2,Durchgangszollstelle3,Durchgangszollstelle4,Durchgangszollstelle5,Durchgangszollstelle6,Ausgangszollstelle,Zollstelle,TransportTemperatur,Zugmaschine,FahrerHandy,LKW_Nationalitaet,DakosyRef,TeamId,Cluster,Freigabe_Info,KdAuftragsNr_Frachtfuehrer,KdAuftragsNr_Avisierer,FreigabeFiliale,VoraussichtlichesEintreffen,Warenort,ZOLLDigitalEingereicht,Transportmittelart,WeiterleitungTextTV) VALUES (" & + " Durchgangszollstelle1,Durchgangszollstelle2,Durchgangszollstelle3,Durchgangszollstelle4,Durchgangszollstelle5,Durchgangszollstelle6,Ausgangszollstelle,Zollstelle,TransportTemperatur,Zugmaschine,FahrerHandy,LKW_Nationalitaet,DakosyRef,TeamId,Cluster,Freigabe_Info,KdAuftragsNr_Frachtfuehrer,KdAuftragsNr_Avisierer,FreigabeFiliale,VoraussichtlichesEintreffen,Warenort,ZOLLDigitalEingereicht,Transportmittelart,WeiterleitungTextTV,VerwahrungStatus) VALUES (" & "@Datum, @LKW_Nr, @Telefonisch, @Änderungen, @Info, @Status, @Auftraggeber, @Frächter, @letzterMitarbeiter, " & "@Vorbereitet, @Vorgeschrieben, @Ankunft, @Freigabe, @Dauer, @AvisoEingang, @Grenzstelle, @LKW_fertig,@letzterMitarbeiterId,@Handling,@Sendungen_Gesamtanzahl,@Sammelakt,@Frächter_KdNr,@Auftraggeber_KdNr,@AvisoTVHinweis,@Buero,@Imex,@Abgeschlossen,@FIRMA," & - "@Durchgangszollstelle1,@Durchgangszollstelle2,@Durchgangszollstelle3,@Durchgangszollstelle4,@Durchgangszollstelle5,@Durchgangszollstelle6,@Ausgangszollstelle,@Zollstelle,@TransportTemperatur,@Zugmaschine,@FahrerHandy,@LKW_Nationalitaet,@DakosyRef,@TeamId,@Cluster,@Freigabe_Info,@KdAuftragsNr_Frachtfuehrer,@KdAuftragsNr_Avisierer,@FreigabeFiliale,@VoraussichtlichesEintreffen,@Warenort,@ZOLLDigitalEingereicht,@Transportmittelart,@WeiterleitungTextTV); SELECT CAST(scope_identity() AS int);" + "@Durchgangszollstelle1,@Durchgangszollstelle2,@Durchgangszollstelle3,@Durchgangszollstelle4,@Durchgangszollstelle5,@Durchgangszollstelle6,@Ausgangszollstelle,@Zollstelle,@TransportTemperatur,@Zugmaschine,@FahrerHandy,@LKW_Nationalitaet,@DakosyRef,@TeamId,@Cluster,@Freigabe_Info,@KdAuftragsNr_Frachtfuehrer,@KdAuftragsNr_Avisierer,@FreigabeFiliale,@VoraussichtlichesEintreffen,@Warenort,@ZOLLDigitalEingereicht,@Transportmittelart,@WeiterleitungTextTV,@VerwahrungStatus); SELECT CAST(scope_identity() AS int);" Else id = d.AvisoID 'Änderung hAuswahl = String.Format( "UPDATE Aviso SET Datum = @Datum, LKW_Nr = @LKW_Nr, Telefonisch=@Telefonisch, Änderungen=@Änderungen, Info=@Info, Status=@Status, Auftraggeber=@Auftraggeber, Frächter=@Frächter, " & " letzterMitarbeiter = @letzterMitarbeiter, Vorbereitet=@Vorbereitet,Vorgeschrieben=@Vorgeschrieben, Ankunft = @Ankunft, Freigabe = @Freigabe, Dauer = @Dauer, AvisoEingang = @AvisoEingang, Grenzstelle=@Grenzstelle, LKW_fertig=@LKW_fertig, letzterMitarbeiterId=@letzterMitarbeiterId, Handling=@Handling,Sendungen_Gesamtanzahl=@Sendungen_Gesamtanzahl,Sammelakt=@Sammelakt,Frächter_KdNr=@Frächter_KdNr,Auftraggeber_KdNr=@Auftraggeber_KdNr,AvisoTVHinweis=@AvisoTVHinweis,Buero=@Buero,Imex=@Imex,Abgeschlossen=@Abgeschlossen, " & - " Durchgangszollstelle1=@Durchgangszollstelle1,Durchgangszollstelle2=@Durchgangszollstelle2,Durchgangszollstelle3=@Durchgangszollstelle3,Durchgangszollstelle4=@Durchgangszollstelle4,Durchgangszollstelle5=@Durchgangszollstelle5,Durchgangszollstelle6=@Durchgangszollstelle6,Ausgangszollstelle=@Ausgangszollstelle,Zollstelle=@Zollstelle,TransportTemperatur=@TransportTemperatur,Zugmaschine=@Zugmaschine,FahrerHandy=@FahrerHandy, LKW_Nationalitaet=@LKW_Nationalitaet, DakosyRef=@DakosyRef,TeamId=@TeamId,Cluster=@Cluster,Freigabe_Info=@Freigabe_Info,KdAuftragsNr_Frachtfuehrer =@KdAuftragsNr_Frachtfuehrer,KdAuftragsNr_Avisierer=@KdAuftragsNr_Avisierer , FreigabeFiliale=@FreigabeFiliale,VoraussichtlichesEintreffen=@VoraussichtlichesEintreffen,Warenort=@Warenort,ZOLLDigitalEingereicht=@ZOLLDigitalEingereicht,Transportmittelart=@Transportmittelart,WeiterleitungTextTV=@WeiterleitungTextTV,FIRMA=@FIRMA" & + " Durchgangszollstelle1=@Durchgangszollstelle1,Durchgangszollstelle2=@Durchgangszollstelle2,Durchgangszollstelle3=@Durchgangszollstelle3,Durchgangszollstelle4=@Durchgangszollstelle4,Durchgangszollstelle5=@Durchgangszollstelle5,Durchgangszollstelle6=@Durchgangszollstelle6,Ausgangszollstelle=@Ausgangszollstelle,Zollstelle=@Zollstelle,TransportTemperatur=@TransportTemperatur,Zugmaschine=@Zugmaschine,FahrerHandy=@FahrerHandy, LKW_Nationalitaet=@LKW_Nationalitaet, DakosyRef=@DakosyRef,TeamId=@TeamId,Cluster=@Cluster,Freigabe_Info=@Freigabe_Info,KdAuftragsNr_Frachtfuehrer =@KdAuftragsNr_Frachtfuehrer,KdAuftragsNr_Avisierer=@KdAuftragsNr_Avisierer , FreigabeFiliale=@FreigabeFiliale,VoraussichtlichesEintreffen=@VoraussichtlichesEintreffen,Warenort=@Warenort,ZOLLDigitalEingereicht=@ZOLLDigitalEingereicht,Transportmittelart=@Transportmittelart,WeiterleitungTextTV=@WeiterleitungTextTV,VerwahrungStatus=@VerwahrungStatus,FIRMA=@FIRMA" & " WHERE AvisoID = @AvisoID") End If @@ -1553,6 +1555,7 @@ Public Class cAvisoDAL cmd.Parameters.AddWithValue("@ZOLLDigitalEingereicht", d.ZOLLDigitalEingereicht) cmd.Parameters.AddWithValue("@Transportmittelart", If(d.Transportmittelart, "")) cmd.Parameters.AddWithValue("@WeiterleitungTextTV", d.WeiterleitungTextTV) + cmd.Parameters.AddWithValue("@VerwahrungStatus", d.VerwahrungStatus) Try diff --git a/VERAG_PROG_ALLGEMEIN/AVISO/cMeineFunktionenAVISO.vb b/VERAG_PROG_ALLGEMEIN/AVISO/cMeineFunktionenAVISO.vb index 5c72d99f..b5485612 100644 --- a/VERAG_PROG_ALLGEMEIN/AVISO/cMeineFunktionenAVISO.vb +++ b/VERAG_PROG_ALLGEMEIN/AVISO/cMeineFunktionenAVISO.vb @@ -201,7 +201,7 @@ Public Class cMeineFunktionenAVISO Dim Aviso As New cAviso Aviso = AvisoDAL.LesenAviso(AvisoID, "") If Aviso Is Nothing Then Return False - If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereichts abgeschlossen.", vbInformation) : Return False + If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False If newLKWOK Is Nothing Then newLKWOK = Not Aviso.LKW_fertig @@ -254,5 +254,82 @@ Public Class cMeineFunktionenAVISO Return (tmpid > 0) End Function + Public Shared Function VerwahrungOK(AvisoID) As Boolean + + Dim AvisoDAL As New VERAG_PROG_ALLGEMEIN.cAvisoDAL + Dim VermerkeDAL As New VERAG_PROG_ALLGEMEIN.cVermerkeDAL + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then + MsgBox("Keine Berechtigung!") + Return False + End If + + 'falls keine Auswahl bzw. kein Datensatz, dann nichts machen + If AvisoID <= 0 Then + MsgBox("Kein Aviso ausgewählt!") + Return False + End If + + 'jetzt ausgewählten Datensatz einlesen + Dim Aviso As New cAviso + Aviso = AvisoDAL.LesenAviso(AvisoID, "") + If Aviso Is Nothing Then Return False + If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False + + + Dim newLKWOK = False + If Aviso.VerwahrungStatus = 0 Then + Aviso.VerwahrungStatus = 1 + newLKWOK = True + Else + Aviso.VerwahrungStatus = 0 + newLKWOK = False + End If + + + + Dim msg As String + Dim antwort As MsgBoxResult + + + 'Taste LKW ist fertig + If Aviso.Status <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Then + MsgBox("Es kann nur ein LKW mit Status ANKUNFT auf 'VERWAHRUNG OK/N-OK' gesetzt werden.", vbInformation) + Return False + End If + Dim aendArt As String = "" + Dim aendText As String = "" + + 'Status ist Ankunft - LKW wird je nach Eintrag auf Fertig/nicht fertig gesetzt + Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter + Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId + Dim hVermerk As New cVermerk 'bei Fertig zusätzlich einen Vermerk setzen + hVermerk.AvisoID = Aviso.AvisoID + hVermerk.Datum = Now + hVermerk.Mitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter + hVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.MitarbeiterID + + If newLKWOK Then + ' Aviso.LKW_fertig = True + Aviso.Änderungen = "Verwahrung kontrolliert - gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen)) + hVermerk.Hinweis_Vermerk = "Verwahrung kontrolliert" + hVermerk.VermerkCodeId = 116 + VermerkeDAL.SpeichernVermerk(hVermerk) + aendArt = "Verwahrung kontrolliert - gesetzt" + aendText = "Verwahrung kontrolliert - gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") + Else + ' Aviso.LKW_fertig = False + Aviso.Änderungen = "Verwahrung NICHT kontrolliert - gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen)) + hVermerk.Hinweis_Vermerk = "Verwahrung NICHT kontrolliert" + hVermerk.VermerkCodeId = 117 + VermerkeDAL.SpeichernVermerk(hVermerk) + aendArt = "Verwahrung Kontrolle NICHT kontrolliert - gesetzt" + aendText = "Verwahrung Kontrolle NICHT kontrolliert - gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") + End If + Dim tmpid = AvisoDAL.SpeichernAviso(Aviso) + AvisoDAL.addAenderung(tmpid, aendArt, aendText) + + Return (tmpid > 0) + End Function + End Class