merge

2025-03-12 16:48:27 +01:00
parent 2de0b73a15 4dd9f87975
commit f02e8e294b
9 changed files with 292 additions and 285 deletions
--- a/Aviso/frmHauptfenster.vb
+++ b/Aviso/frmHauptfenster.vb
@@ -1519,7 +1519,7 @@ ELSE_ATILLA:
                End If

                sqlStr = " SELECT AvisoID, CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig],CASE WHEN [VerwahrungStatus] = 1 THEN 'OK' ELSE '' END AS [VerwahrungStatus], [Status],tblSendungen.LetzterMitarbeiterId,tblSendungen.LetzterMitarbeiter, LKW_Nr, VoraussichtlichesEintreffen,Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe, Aviso.LetzterMitarbeiterId AS maId,AvisoTVHinweis  " &
-                                     " ,tblSnd_Empfaenger,AbfertigungsNr,tblSnd_Abfertigungsart_ID,tblSnd_Vorgeschrieben,tblSnd_Vorbereitet,tblSnd_Status,tblSnd_SendungID,tblSnd_Fremdspedition,tblSnd_FremdspeditionText " &
+                                     " ,tblSnd_Empfaenger,AbfertigungsNr,tblSnd_Abfertigungsart_ID,isnull(tblSnd_Zollsystem_Land,'')tblSnd_Zollsystem_Land,tblSnd_Vorgeschrieben,tblSnd_Vorbereitet,tblSnd_Status,tblSnd_SendungID,tblSnd_Fremdspedition,tblSnd_FremdspeditionText " &
                                     " FROM Aviso INNER JOIN tblSendungen ON AvisoID=tblSnd_AvisoID " &
                                     " WHERE   (  Status IN (0, 3, 4, 5)  OR ( Status = 1 AND [Abgeschlossen] = 0 ))  " &
                                            sqlStrFirma & " AND  ( " & inBearbeitungSQL & ") "
@@ -1719,6 +1719,7 @@ ELSE_ATILLA:
                    .Columns("tblSnd_Status").Visible = False

                    .Columns("tblSnd_Abfertigungsart_ID").Visible = False
+                    .Columns("tblSnd_Zollsystem_Land").Visible = False
                    .Columns("tblSnd_Vorgeschrieben").Visible = False
                    .Columns("tblSnd_Vorbereitet").Visible = False
                    .Columns("tblSnd_SendungID").Visible = False
@@ -1767,7 +1768,7 @@ ELSE_ATILLA:
                    Dim t2 = New DataGridViewTextBoxColumn
                    t2.Name = "Abfertigungsart"
                    t2.HeaderText = "Abfertigungsart"
-                    t2.Width = 90 : t.DefaultCellStyle.Padding = New Padding(2) : t2.DefaultCellStyle.BackColor = Color.White
+                    t2.Width = 110 : t.DefaultCellStyle.Padding = New Padding(2) : t2.DefaultCellStyle.BackColor = Color.White
                    't.ToolTipText = ""
                    .Columns.Insert(7, t2)

@@ -1784,8 +1785,13 @@ ELSE_ATILLA:
                            ' r.Cells("Abfertigungsart").Value = "FREMD"
                            r.Cells("Abfertigungsart").Value = r.Cells("tblSnd_FremdspeditionText").Value
                        Else 'Nomal
+                            Dim Abfertigungsland As String = r.Cells("tblSnd_Zollsystem_Land").Value
+                            If Abfertigungsland <> "" Then Abfertigungsland = "[" & Abfertigungsland & "] "
+
                            r.Cells("Abfertigungsart").Value = VERAGSQL.getValueTxtBySql("SELECT Abfertigungsbezeichnung FROM Abfertigungsarten WHERE [Abfertigungsart]='" & r.Cells("tblSnd_Abfertigungsart_ID").Value.ToString & "'", "FMZOLL")
-                            If r.Cells("Abfertigungsart").Value.ToString.Length > 15 Then r.Cells("Abfertigungsart").Value = r.Cells("Abfertigungsart").Value.Substring(0, 15) & ".."
+                            r.Cells("Abfertigungsart").Value = Abfertigungsland & r.Cells("Abfertigungsart").Value
+
+                            If r.Cells("Abfertigungsart").Value.ToString.Length > 20 Then r.Cells("Abfertigungsart").Value = r.Cells("Abfertigungsart").Value.Substring(0, 20) & ".."
                        End If

                        If .Columns("StatusVorbereitetQS") IsNot Nothing Then
@@ -2846,26 +2852,26 @@ ELSE_ATILLA:
                '    End If
                'Else
                setAkive_AuswahlID()
-                    avisoAktualisierenAktiveIdBehalten(tmpId,  , False)
-                    Dim hStatus = AvisoDAL.LesenAviso(tmpId, "").Status
-                    If hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet Then
-                        'MsgBox("Ein Vermerk kann nur erfasst werden, wenn der Status des Aviso auf 'Erfasst', 'Vorbereitet', 'Vorgeschrieben' oder 'Ankunft' steht.", vbInformation)
-                        lblErrVermerk.Width = 300
-                        lblErrVermerk.Visible = True
-                        hideErr.Enabled = True
-                        Exit Sub
-                    End If
-
-                    Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
-                    Dim sv As New frmAddAktenvermerkShort(tmpId)
-                    sv.Location = Me.PointToClient(Cursor.Position)
-                    ' sv.ShowDialog()
-                    sv.ShowDialog(frmGrayOut)
-                    frmGrayOut.Close()
-
+                avisoAktualisierenAktiveIdBehalten(tmpId,  , False)
+                Dim hStatus = AvisoDAL.LesenAviso(tmpId, "").Status
+                If hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet Then
+                    'MsgBox("Ein Vermerk kann nur erfasst werden, wenn der Status des Aviso auf 'Erfasst', 'Vorbereitet', 'Vorgeschrieben' oder 'Ankunft' steht.", vbInformation)
+                    lblErrVermerk.Width = 300
+                    lblErrVermerk.Visible = True
+                    hideErr.Enabled = True
+                    Exit Sub
                End If
-            ElseIf e.Button = MouseButtons.Left Then
-                VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
+
+                Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
+                Dim sv As New frmAddAktenvermerkShort(tmpId)
+                sv.Location = Me.PointToClient(Cursor.Position)
+                ' sv.ShowDialog()
+                sv.ShowDialog(frmGrayOut)
+                frmGrayOut.Close()
+
+            End If
+        ElseIf e.Button = MouseButtons.Left Then
+            VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
            avisoAktualisierenAktiveIdBehalten(tmpId,  , False)
        End If
    End Sub
@@ -3720,7 +3726,7 @@ ELSE_ATILLA:
        'Process.Start("http://www.zoll.de/DE/Fachthemen/Zoelle/Zollwert/Aktuelle-Umrechnungskurse/Datenbankanwendung/datenbankanwendung_node.html")

        'Process.Start("http://www.zoll.de/SiteGlobals/Forms/KursSuche/KurseSuche_Formular_NotierteWaehrung.html?method=post&iso2code2=TR")
-        'Process.Start("https://www.zoll.de/SiteGlobals/Forms/KursSuche/KurseSuche_Formular_NotierteWaehrung.html")
+        ' Process.Start("https://www.zoll.de/SiteGlobals/Forms/KursSuche/KurseSuche_Formular_NotierteWaehrung.html")
        'http://www.zoll.de/SiteGlobals/Functions/Kurse/KursExport.xml?nn=21174&date=20170127165538660&kursart=1&iso2code2=TR&view=xmlexportkurse !!!!!!!!!!!!!!!!!!!!!!!!!!

        Process.Start("https://www.zoll.de/SiteGlobals/Forms/KursSuche/NotierteWaehrungen/KurseSuche_Formular_NotierteWaehrung.html")
@@ -6271,36 +6277,36 @@ Public Class AvisoStatusFunctions
                '        AvisoDAL.addAenderung(AvisoID, "AKT erneut geöffnet", "auf 'AKT OFFEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
                '    End If
            Else
-                    If value Then
-                        For Each r In AvisoDAL.loadDataTableBySQL("SELECT tblSnd_SpeditionsbuchEingetragen FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoID & " AND [tblSnd_Fremdspedition]=0").Rows
-                            If Not CBool(r(0)) Then
-                                MsgBox("Sie müssen erst alle Sendungen ins Speditionsbuch eintragen!")
-                                Return False
-                            End If
-                        Next
-                        Aviso.Abgeschlossen = value
-                        AvisoDAL.SpeichernAviso(Aviso)
+                If value Then
+                    For Each r In AvisoDAL.loadDataTableBySQL("SELECT tblSnd_SpeditionsbuchEingetragen FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoID & " AND [tblSnd_Fremdspedition]=0").Rows
+                        If Not CBool(r(0)) Then
+                            MsgBox("Sie müssen erst alle Sendungen ins Speditionsbuch eintragen!")
+                            Return False
+                        End If
+                    Next
+                    Aviso.Abgeschlossen = value
+                    AvisoDAL.SpeichernAviso(Aviso)

-                        '--> Nicht mehr benötigt, alte Archiv Software IMEX
-                        'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
-                        '    Case "IMEX" : createNLC(Aviso)
-                        'End Select
+                    '--> Nicht mehr benötigt, alte Archiv Software IMEX
+                    'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+                    '    Case "IMEX" : createNLC(Aviso)
+                    'End Select

-                        AvisoDAL.addAenderung(AvisoID, "AKT abgeschlossen", "auf 'AKT ABGESCHLOSSEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
+                    AvisoDAL.addAenderung(AvisoID, "AKT abgeschlossen", "auf 'AKT ABGESCHLOSSEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))

-                        'Benachrichtigungen erledigen
-                        VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.BESTAETIGEN_BENACHRICHTIGUNG_ALL(Aviso.AvisoID, False)
-                    Else
-                        Aviso.Abgeschlossen = value
-                        AvisoDAL.SpeichernAviso(Aviso)
-                        AvisoDAL.addAenderung(AvisoID, "AKT erneut geöffnet", "auf 'AKT OFFEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
-                    End If
+                    'Benachrichtigungen erledigen
+                    VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.BESTAETIGEN_BENACHRICHTIGUNG_ALL(Aviso.AvisoID, False)
+                Else
+                    Aviso.Abgeschlossen = value
+                    AvisoDAL.SpeichernAviso(Aviso)
+                    AvisoDAL.addAenderung(AvisoID, "AKT erneut geöffnet", "auf 'AKT OFFEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
                End If
+            End If


-                Return True
-            Else
-                MsgBox("LKW-Status muss auf 'Freigegeben' sein.", vbInformation)
+            Return True
+        Else
+            MsgBox("LKW-Status muss auf 'Freigegeben' sein.", vbInformation)
            Return False
        End If