AVISO Ansicht, Sendung-Frachtksoten

2022-10-10 10:33:38 +02:00
parent 8404604de3
commit b44f5efd69
22 changed files with 2320 additions and 1075 deletions
--- a/Aviso/frmSendungsdetailsNEU.vb
+++ b/Aviso/frmSendungsdetailsNEU.vb
@@ -30,6 +30,7 @@ Public Class frmSendungsdetailsNEU
    Dim usrcntl_FISKAL As usrCntlSND_NCTSFiskalEndempf
    Dim usrcntl_ATA As usrCntlSND_Handling
    Dim usrcntl_ATB As usrCntlSND_ATBGestellung
+    Dim usrcntl_AUSFUHR As usrCntlSND_Ausfuhr


    Sub New()
@@ -135,28 +136,31 @@ Public Class frmSendungsdetailsNEU
        lblErr_EmpfKdNr.Visible = False
        lblErr_FraechterKdNr.Visible = False

-        Select Case CInt((SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID))
-            Case <= 0, 10
-            Case Else
-                If CInt(If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr, "0")) <= 0 Then lblErr_AvisiererKdNr.Visible = True : Return False
-                If SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr <= 0 Then lblErr_EmpfKdNr.Visible = True : Return False
-                If CInt(If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr, "0")) <= 0 Then lblErr_FraechterKdNr.Visible = True : Return False
-        End Select
-        If Not txtAvisierer.checkFirma(FilialeAktFirma) Then MsgBox("Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden.") : Return False
+        'Aktuell noch nicht!
+        'Select Case CInt((SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID))
+        '    Case <= 0, 10
+        '    Case Else
+        '        If CInt(If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr, "0")) <= 0 Then lblErr_AvisiererKdNr.Visible = True : Return False
+        '        If SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr <= 0 Then lblErr_EmpfKdNr.Visible = True : Return False
+        '        If CInt(If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr, "0")) <= 0 Then lblErr_FraechterKdNr.Visible = True : Return False
+        'End Select
+        If Not SENDUNG_LIST(CURRENT_INDEX).tblSnd_Fremdspedition Then


-        If SENDUNG_LIST(CURRENT_INDEX).FilialenNr = 5801 Or (SENDUNG_LIST(CURRENT_INDEX).FilialenNr.ToString = VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE And VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER) Then
-            'Firma=Cluster, zB Front-Office --> darf alle Firmen auswählen.
-        Else
-            If FilialeAktFirma <> "" Then
-                If Panel6.Enabled Then 'wenn gesperrt, auch keine Prüfung!
-                    If Not txtAvisierer.checkFirma(FilialeAktFirma) Then MsgBox("Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden.") : Return False
-                    If Not txtAuftraggeber.checkFirma(FilialeAktFirma) Then MsgBox("Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden.") : Return False
-                    If Not txtEmpfaenger.checkFirma(FilialeAktFirma) Then MsgBox("Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden.") : Return False
-                    If Not txtFrachtfuehrer.checkFirma(FilialeAktFirma) Then MsgBox("Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden.") : Return False
-                    If Not txtAbsender.checkFirma(FilialeAktFirma) Then MsgBox("Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden.") : Return False
+            If SENDUNG_LIST(CURRENT_INDEX).FilialenNr = 5801 Or (SENDUNG_LIST(CURRENT_INDEX).FilialenNr.ToString = VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE And VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER) Then
+                'Firma=Cluster, zB Front-Office --> darf alle Firmen auswählen.
+            Else
+                If FilialeAktFirma <> "" Then
+                    If Panel6.Enabled Then 'wenn gesperrt, auch keine Prüfung!
+                        If Not txtAvisierer.checkFirma(FilialeAktFirma) Then MsgBox("Avisierer: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden.") : Return False
+                        If Not txtAuftraggeber.checkFirma(FilialeAktFirma) Then MsgBox("Auftraggeber: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden.") : Return False
+                        If Not txtEmpfaenger.checkFirma(FilialeAktFirma) Then MsgBox("Empfänger: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden.") : Return False
+                        If Not txtFrachtfuehrer.checkFirma(FilialeAktFirma) Then MsgBox("Frachtführer: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden.") : Return False
+                        If Not txtAbsender.checkFirma(FilialeAktFirma) Then MsgBox("Absender: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden.") : Return False
+                    End If
                End If
            End If
+
        End If
        Return True
    End Function
@@ -275,7 +279,7 @@ Public Class frmSendungsdetailsNEU

            AVISO = AvisoDAL.LesenAviso(AvisoId, "")

-            txtWarenwertWaehrung.initSearchBox(Me.FindForm, " [Code] ,[Description] As Land FROM tbl_DY_ZollDE_I0400_Waehrungsliste", {"Code", "Description"}, " (StartDate Is null Or StartDate< GETDATE()) And (EndDate Is null Or EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 150, 200)
+            txtWarenwertWaehrung.initSearchBox(Me.FindForm, " [Code] , [Description] As Land FROM tbl_DY_ZollDE_I0400_Waehrungsliste", {"Code", "Description"}, " (StartDate Is null Or StartDate< GETDATE()) And (EndDate Is null Or EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 150, 200)

            If AVISO.Grenzstelle.Replace("???", "") = "" Then
                'lblGrenze.Text = SQL.getValueTxtBySql("Select basncd_dstnr +' - ' + [basncd_name]  FROM basncd WHERE basncd_dstnr='" & If(AVISO.Zollstelle, "") & "' ", "ATLAS")
@@ -372,6 +376,7 @@ Public Class frmSendungsdetailsNEU
            '    cboZolltarif.changeItem("0")

            usrcntl_NCTS = New usrCntlSND_NCTSGestellungsadresse
+            usrcntl_AUSFUHR = New usrCntlSND_Ausfuhr
            usrcntl_FISKAL = New usrCntlSND_NCTSFiskalEndempf
            'usrcntl_ATA = New usrCntlSND_Handling(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID)
            If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_DakosyZollanmeldungen", Me) Then
@@ -1128,7 +1133,8 @@ Public Class frmSendungsdetailsNEU



-            txtFrachtkosten.Text = If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Frachtkosten, "")
+            txtFrachtkostenEU.Text = If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Frachtkosten, "")
+            txtFrachtkostenNichtEU.Text = If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtkostenNichtEU, "")

            txtWarenwert.Text = If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenwert, "")
            txtWarenwertWaehrung.SET_VALUE(If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_WarenwertWaehrung, ""))
@@ -1267,6 +1273,7 @@ Public Class frmSendungsdetailsNEU

            pnlT1.Controls.Clear()
            usrcntl_NCTS.reset()
+            usrcntl_AUSFUHR.reset()
            usrcntl_FISKAL.reset()
            usrcntl_ATA = New usrCntlSND_Handling(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID)
            usrcntl_ATB = New usrCntlSND_ATBGestellung(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID)
@@ -1283,7 +1290,7 @@ Public Class frmSendungsdetailsNEU

            '   txtT1Verzollungsadresse.Text = ""
            Select Case SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID
-                Case 5, 6
+                Case 5, 6, 18, 32, 24, 33, 34, 37, 40, 42
                    If (SENDUNG_LIST(CURRENT_INDEX).NCTS_ngaId IsNot Nothing) Then
                        usrcntl_NCTS.NCTS_GA = New cNCTSGestellungsadressen(SENDUNG_LIST(CURRENT_INDEX).NCTS_ngaId)
                        usrcntl_NCTS.setValues()
@@ -1305,6 +1312,25 @@ Public Class frmSendungsdetailsNEU
                Case 26, 28
                    usrcntl_FISKAL.rtbFiskalEndempf.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_EUFiskalEmpfaenger, "")
                    pnlT1.Controls.Add(usrcntl_FISKAL)
+                Case 7
+                    If (SENDUNG_LIST(CURRENT_INDEX).NCTS_ngaId IsNot Nothing) Then
+                        usrcntl_AUSFUHR.NCTS_GA = New cNCTSGestellungsadressen(SENDUNG_LIST(CURRENT_INDEX).NCTS_ngaId)
+                        usrcntl_AUSFUHR.setValues()
+                    End If
+                    'trotzdem überschreiben:
+                    usrcntl_AUSFUHR.txtT1Verzollungsadresse.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_NCTSVerzollungsadresse, "")
+                    usrcntl_AUSFUHR.txtT1VerzollungsadresseStrasse.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Strasse, "")
+                    usrcntl_AUSFUHR.txtT1VerzollungsadressePlz.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_PLZ, "")
+                    usrcntl_AUSFUHR.txtT1VerzollungsadresseOrt.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Ort, "")
+                    usrcntl_AUSFUHR.sbT1VerzollungsadresseLand.SET_VALUE(loadValue(SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Land, ""))
+                    usrcntl_AUSFUHR.txtT1VerzollungsadresseEORI.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_EORI, "")
+                    usrcntl_AUSFUHR.txtT1VerzollungsadresseEORI_NL.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_EORI_NL, "")
+                    usrcntl_AUSFUHR.txtT1VerzollungsadresseAnspr.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Ansprechpartner, "")
+                    usrcntl_AUSFUHR.txtT1VerzollungsadresseBestimmungszollstelle.SET_VALUE(loadValue(SENDUNG_LIST(CURRENT_INDEX).NCTS_Bestimmungszollstelle, ""))
+                    usrcntl_AUSFUHR.cbxNCTSAufDispo.Checked = SENDUNG_LIST(CURRENT_INDEX).tblSnd_NCTSaufDISPO
+
+                    pnlT1.Controls.Add(usrcntl_AUSFUHR)
+
                Case 23
                    usrcntl_ATA.txtATAold.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATANr, "")
                    usrcntl_ATA.txtATCMRNFremd.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATCMRN_Fremd, "")
@@ -1646,7 +1672,7 @@ Public Class frmSendungsdetailsNEU
        SENDUNG_LIST(CURRENT_INDEX).tblSnd_EUFiskalEmpfaenger = Nothing

        Select Case SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID
-            Case 5, 6
+            Case 5, 6, 18, 32, 24, 33, 34, 37, 40, 42
                If pnlT1.Controls.Count > 0 AndAlso pnlT1.Controls(0).GetType Is GetType(usrCntlSND_NCTSGestellungsadresse) Then
                    SENDUNG_LIST(CURRENT_INDEX).tblSnd_NCTSVerzollungsadresse = usrcntl_NCTS.txtT1Verzollungsadresse.Text
                    SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Strasse = usrcntl_NCTS.txtT1VerzollungsadresseStrasse.Text
@@ -1661,6 +1687,21 @@ Public Class frmSendungsdetailsNEU
                    SENDUNG_LIST(CURRENT_INDEX).tblSnd_NCTSaufDISPO = usrcntl_NCTS.cbxNCTSAufDispo.Checked
                End If

+            Case 7
+                If pnlT1.Controls.Count > 0 AndAlso pnlT1.Controls(0).GetType Is GetType(usrCntlSND_Ausfuhr) Then
+                    SENDUNG_LIST(CURRENT_INDEX).tblSnd_NCTSVerzollungsadresse = usrcntl_AUSFUHR.txtT1Verzollungsadresse.Text
+                    SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Strasse = usrcntl_AUSFUHR.txtT1VerzollungsadresseStrasse.Text
+                    SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_PLZ = usrcntl_AUSFUHR.txtT1VerzollungsadressePlz.Text
+                    SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Ort = usrcntl_AUSFUHR.txtT1VerzollungsadresseOrt.Text
+                    SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Land = usrcntl_AUSFUHR.sbT1VerzollungsadresseLand._value
+                    SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_EORI = usrcntl_AUSFUHR.txtT1VerzollungsadresseEORI.Text
+                    SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_EORI_NL = usrcntl_AUSFUHR.txtT1VerzollungsadresseEORI_NL.Text
+                    SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Ansprechpartner = usrcntl_AUSFUHR.txtT1VerzollungsadresseAnspr.Text
+                    SENDUNG_LIST(CURRENT_INDEX).NCTS_Bestimmungszollstelle = usrcntl_AUSFUHR.txtT1VerzollungsadresseBestimmungszollstelle._value
+                    SENDUNG_LIST(CURRENT_INDEX).NCTS_ngaId = If(usrcntl_AUSFUHR.NCTS_GA IsNot Nothing, usrcntl_AUSFUHR.NCTS_GA.nga_id, Nothing)
+                    SENDUNG_LIST(CURRENT_INDEX).tblSnd_NCTSaufDISPO = usrcntl_AUSFUHR.cbxNCTSAufDispo.Checked
+                End If
+
            Case 26, 28
                '      SENDUNG_LIST(CURRENT_INDEX).tblSnd_Endempfaenger = txtT1Verzollungsadresse.Text
                If pnlT1.Controls.Count > 0 AndAlso pnlT1.Controls(0).GetType Is GetType(usrCntlSND_NCTSFiskalEndempf) Then
@@ -1682,7 +1723,9 @@ Public Class frmSendungsdetailsNEU
        End Select


-        SENDUNG_LIST(CURRENT_INDEX).tblSnd_Frachtkosten = SQL.isNullNothingDbl(txtFrachtkosten.Text)
+        SENDUNG_LIST(CURRENT_INDEX).tblSnd_Frachtkosten = SQL.isNullNothingDbl(txtFrachtkostenEU.Text)
+        SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtkostenNichtEU = SQL.isNullNothingDbl(txtFrachtkostenNichtEU.Text)
+

        SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenwert = SQL.isNullNothingDbl(txtWarenwert.Text)
        SENDUNG_LIST(CURRENT_INDEX).tblSnd_WarenwertWaehrung = SQL.isNullNothing(txtWarenwertWaehrung._value)
@@ -2125,8 +2168,14 @@ Public Class frmSendungsdetailsNEU

        pnlT1.Controls.Clear()
        Select Case cboAbfertigungsart._value
-            Case "5", "6", "24", "33", "34"
+            Case "5", "18", "32"
                pnlT1.Controls.Add(usrcntl_NCTS)
+ '               usrcntl_NCTS.Label33.Text = "NCTS-" & vbNewLine & "Gestellungsadr."
+            Case "6", "24", "33", "34", "37", "40", "42"
+                pnlT1.Controls.Add(usrcntl_NCTS)
+'                usrcntl_NCTS.Label33.Text = "Amtsplatz/" & vbNewLine & "Zollstopp"
+            Case "7"
+                pnlT1.Controls.Add(usrcntl_AUSFUHR)
            Case "26", "28"
                pnlT1.Controls.Add(usrcntl_FISKAL)

@@ -3821,7 +3870,13 @@ Public Class frmSendungsdetailsNEU
                    If Not IO.File.Exists(docPath) Then
                        MsgBox("Die Datei existiert nicht!")
                    Else
-                        Process.Start(docPath)
+                        If docPath.ToString.ToLower.EndsWith(".msg") Then ' MSG - Mails --> lokale Kopie, sonst Fehler  (bereits von Benutzer soUndSo geöffnet)
+                            Dim docPathTMP = VERAG_PROG_ALLGEMEIN.cFormularManager.getTMPPath_MSG()
+                            System.IO.File.Copy(docPath, docPathTMP)
+                            Process.Start(docPathTMP)
+                        Else
+                            Process.Start(docPath)
+                        End If
                    End If
                End If
            End If
@@ -5309,4 +5364,42 @@ Public Class frmSendungsdetailsNEU
        End Try
        Me.Cursor = Cursors.Default
    End Sub
+
+    Private Sub Button17_Click_2(sender As Object, e As EventArgs) Handles Button17.Click
+        Dim f As New SDL.frmCMR
+
+        f.btnCMRtoAkt.Visible = True
+        f.txtCMRName.Visible = True
+
+
+        If txtAbsender.KdData_ADRESSEN IsNot Nothing Then f.uCmr.txtAbsender.Text = txtAbsender.KdData_ADRESSEN.getAdressFromatted()
+        If txtFrachtfuehrer.KdData_ADRESSEN IsNot Nothing Then f.uCmr.txtFrachtführer.Text = txtFrachtfuehrer.KdData_ADRESSEN.getAdressFromatted()
+        If txtEmpfaenger.KdData_ADRESSEN IsNot Nothing Then f.uCmr.txtEmpfänger.Text = txtEmpfaenger.KdData_ADRESSEN.getAdressFromatted()
+
+        f.uCmr.dgvLadungenKurz.Rows.Add(If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Colli, ""), "Pk", If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenbezeichnung, If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Gewicht, "")))
+
+        f.uCmr.txtKfz.Text = AVISO.LKW_Nr
+        f.uCmr.txtAnhänger.Text = AVISO.LKW_Nr
+
+        If f.ShowDialog(Me) Then
+
+            Dim da_id = -1
+            Dim anhId = -1
+            Dim destPath = ""
+
+            Dim Typ = ""
+
+            If f.PDF_Path <> "" Then
+                Dim CMRName = If(f.txtCMRName.Text <> "", f.txtCMRName.Text, "CMR")
+                frmSendungAnhangImport.saveToDS(AvisoId, CMRName, f.PDF_Path, "CMR", "PDF", da_id, anhId, destPath, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID)
+                initAnhang()
+
+            End If
+
+        End If
+    End Sub
+
+    Private Sub Button18_Click_1(sender As Object, e As EventArgs) Handles Button18.Click
+        MsgBox("Funktion noch nicht verfügbar!")
+    End Sub
 End Class