EZA Pos

SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/cATLAS_EZA_IMPORT.Designer.vb

@@ -42,6 +42,7 @@ Partial Class cATLAS_EZA_IMPORT
         Me.cboTnrSrc_VERAGImp = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.cboTnrTrg_Geze = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.cboTnrDrc_Geze = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Button8 = New System.Windows.Forms.Button()
         Me.SuspendLayout()
         '
         'Button1
@@ -270,12 +271,25 @@ Partial Class cATLAS_EZA_IMPORT
         Me.cboTnrDrc_Geze.Tag = ""
         Me.cboTnrDrc_Geze.Text = "TR"
         '
+        'Button8
+        '
+        Me.Button8.Image = Global.SDL.My.Resources.Resources.Excel_logo
+        Me.Button8.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.Button8.Location = New System.Drawing.Point(412, 286)
+        Me.Button8.Name = "Button8"
+        Me.Button8.Size = New System.Drawing.Size(130, 71)
+        Me.Button8.TabIndex = 34
+        Me.Button8.Text = "TETRAPAK" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "importieren"
+        Me.Button8.TextAlign = System.Drawing.ContentAlignment.BottomCenter
+        Me.Button8.UseVisualStyleBackColor = True
+        '
         'cATLAS_EZA_IMPORT
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.BackColor = System.Drawing.Color.White
         Me.ClientSize = New System.Drawing.Size(563, 371)
+        Me.Controls.Add(Me.Button8)
         Me.Controls.Add(Me.cboTnrTrg_Geze)
         Me.Controls.Add(Me.cboTnrDrc_Geze)
         Me.Controls.Add(Me.cboTnrTrg_VERAGImp)
@@ -323,4 +337,5 @@ Partial Class cATLAS_EZA_IMPORT
     Friend WithEvents cboTnrSrc_VERAGImp As VERAG_PROG_ALLGEMEIN.MyComboBox
     Friend WithEvents cboTnrTrg_Geze As VERAG_PROG_ALLGEMEIN.MyComboBox
     Friend WithEvents cboTnrDrc_Geze As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Button8 As Button
 End Class

SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/cATLAS_EZA_IMPORT.vb

@@ -1,4 +1,5 @@
-Imports System.Globalization
+Imports System.Data.SqlClient
+Imports System.Globalization
 Imports DAKOSY_Worker
 Imports Microsoft.Office.Interop
 Imports VERAG_PROG_ALLGEMEIN
@@ -1105,7 +1106,7 @@ Public Class cATLAS_EZA_IMPORT
                 If header.ContainsKey("Invoice Date") Then HandelsRgDat = header("Invoice Date")
                 If header.ContainsKey("Currency") Then EZA.eza_Rechnungswaehrung = header("Currency")
                 If header.ContainsKey("Delivery Terms (Incoterms)") Then EZA.eza_LieferbedingungCode = header("Delivery Terms (Incoterms)")
-                If header.ContainsKey("Total Gross Weight (kg)") Then EZA.eza_GesamtRohmasse = ToDoubleSafeVERAGTmpl(header("Total Gross Weight (kg)"))
+                ' If header.ContainsKey("Total Gross Weight (kg)") Then EZA.eza_GesamtRohmasse = ToDoubleSafeVERAGTmpl(header("Total Gross Weight (kg)")) -> nur in pos!
                 If header.ContainsKey("Truck Plate (Tractor)") Then EZA.eza_KennzeichenNameBefoerderungsmittelAnkunft = header("Truck Plate (Tractor)")
 
                 ' ---------- 2) CONSIGNOR / CONSIGNEE ----------
@@ -1382,7 +1383,7 @@ Public Class cATLAS_EZA_IMPORT
                         End If
 
                         If cPrefCountry <> "" Then
-                            If cPrefCountry.Length >= 2 Then pos.ezaWP_Praeferenzursprungsland = origin.Substring(0, 2)
+                            If cPrefCountry.Length >= 2 Then pos.ezaWP_UrsprungslandCode = origin.Substring(0, 2)
                         End If
 
                         If cBenefit <> "" Then
@@ -1557,9 +1558,252 @@ Public Class cATLAS_EZA_IMPORT
         End Try
     End Sub
 
+    ' In cATLAS_EZA_IMPORT einfügen; bestehenden Button8_Click ersetzen.
+    ' Benötigt: Imports System.Globalization, Imports Microsoft.Office.Interop
+
+    ' In cATLAS_EZA_IMPORT einfügen; bestehenden Button8_Click ersetzen.
+    ' Benötigt: Imports System.Globalization, Imports Microsoft.Office.Interop
+
+    ' In cATLAS_EZA_IMPORT einfügen; bestehenden Button8_Click ersetzen.
+    ' Benötigt: Imports System.Globalization, Imports Microsoft.Office.Interop
+
+    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
+        Try
+            Me.Cursor = Cursors.WaitCursor
+            importExcel_TetraPak()
+        Finally
+            Me.Cursor = Cursors.Default
+        End Try
+    End Sub
+
+    Private Function importExcel_TetraPak() As Boolean
+        Dim f As New frmImportFromAVISOAnhaenge(AVISO, SENDUNG)
+        f.ShowDialog(Me)
+        If f.DialogResult <> DialogResult.OK OrElse f.LIST_FILES Is Nothing OrElse f.LIST_FILES.Count = 0 Then Return False
+        If f.LIST_FILES.Count <> 1 Then
+            MsgBox("Bitte genau eine Excel-Datei auswählen.")
+            Return False
+        End If
+
+        Dim filePath As String = f.LIST_FILES(0)
+        If Not (filePath.EndsWith(".xlsx", StringComparison.OrdinalIgnoreCase) OrElse filePath.EndsWith(".xls", StringComparison.OrdinalIgnoreCase)) Then Return False
+
+        Dim xlApp As Excel.Application = Nothing
+        Dim wb As Excel.Workbook = Nothing
+        Dim ws As Excel.Worksheet = Nothing
+        Dim imported As New List(Of DAKOSY_Worker.cDakosy_EZA_Warenposition)
+        Dim head As New Dictionary(Of String, Integer)(StringComparer.OrdinalIgnoreCase)
+        Dim kopf As New Dictionary(Of String, String)(StringComparer.OrdinalIgnoreCase)
+
+        Try
+            xlApp = New Excel.Application With {.DisplayAlerts = False, .Visible = False}
+            wb = xlApp.Workbooks.Open(filePath, ReadOnly:=True)
+            ws = CType(wb.Worksheets(1), Excel.Worksheet)
+            Dim lastCol As Integer = CInt(ws.Cells(1, ws.Columns.Count).End(Excel.XlDirection.xlToLeft).Column)
+            Dim lastRow As Integer = CInt(ws.UsedRange.Row + ws.UsedRange.Rows.Count - 1)
+
+            For c As Integer = 1 To lastCol
+                Dim key As String = TetraCell(ws.Cells(1, c).Value2)
+                If key <> "" AndAlso Not head.ContainsKey(key) Then head.Add(key, c)
+            Next
+            If lastRow < 2 Then Return False
+
+            For r As Integer = 2 To lastRow
+                Dim line As String = TetraGet(ws, head, r, "Shipment Line")
+                Dim tariff As String = TetraGet(ws, head, r, "Tariff Number").Replace(" ", "")
+                Dim article As String = TetraGet(ws, head, r, "Part Number")
+                Dim description As String = TetraGet(ws, head, r, "Part Description")
+                If line = "" AndAlso tariff = "" AndAlso article = "" AndAlso description = "" AndAlso
+                TetraGet(ws, head, r, "Country of Origin") = "" AndAlso
+                TetraGet(ws, head, r, "Net Weight (kg)") = "" AndAlso
+                TetraGet(ws, head, r, "Gross Weight (kg)") = "" AndAlso
+                TetraGet(ws, head, r, "Line Value") = "" AndAlso
+                TetraGet(ws, head, r, "Number of Packages") = "" AndAlso
+                TetraGet(ws, head, r, "Package Type") = "" AndAlso
+                TetraGet(ws, head, r, "Import Customs Procedure") = "" Then Continue For
+
+                Dim pos As New DAKOSY_Worker.cDakosy_EZA_Warenposition
+                If line <> "" Then pos.ezaWP_PositionsNummer = line
+                If article <> "" Then pos.ezaWP_Artikelnummer = article
+                If description <> "" Then pos.ezaWP_Warenbezeichnung = description
+                If tariff <> "" Then pos.ezaWP_WarennummerEZT = tariff
+                Dim origin As String = TetraGet(ws, head, r, "Country of Origin").ToUpperInvariant()
+                If origin <> "" Then pos.ezaWP_UrsprungslandCode = origin
+                Dim currency As String = TetraGet(ws, head, r, "Currency").ToUpperInvariant()
+                If currency <> "" Then pos.ezaWP_ArtikelpreisWaehrung = currency
+                Dim number As Decimal
+                If TetraTryDecimal(TetraGet(ws, head, r, "Net Weight (kg)"), number) Then pos.ezaWP_Eigenmasse = number.ToString("0.###", CultureInfo.CurrentCulture)
+                If TetraTryDecimal(TetraGet(ws, head, r, "Gross Weight (kg)"), number) Then pos.ezaWP_Rohmasse = CDbl(number)
+                If TetraTryDecimal(TetraGet(ws, head, r, "Line Value"), number) Then pos.ezaWP_Artikelpreis = number.ToString("0.00", CultureInfo.CurrentCulture)
+                If TetraTryDecimal(TetraGet(ws, head, r, "Number of Packages"), number) Then pos.ezaWP_PackstueckAnzahl = number.ToString("0.###", CultureInfo.InvariantCulture)
+                Dim packageType As String = TetraGet(ws, head, r, "Package Type")
+                If packageType <> "" Then pos.ezaWP_PackstueckArt = packageType
+                Dim procedure As String = TetraGet(ws, head, r, "Import Customs Procedure")
+                If procedure.Length >= 2 Then pos.ezaWP_AnmeldeVErfahren = procedure.Substring(0, 2)
+                If procedure.Length >= 4 Then pos.ezaWP_VerfahrensCodeVorangegangenesVerfahren = procedure.Substring(2, 2)
+                Dim preference As String = TetraGet(ws, head, r, "Preference Code")
+                If preference <> "" Then pos.ezaWP_BeguenstigungBenatragtCode = preference
+                Dim invoice As String = TetraGet(ws, head, r, "Invoice Number")
+                If invoice <> "" Then
+                    pos.ezaWP_UNTERLAGEN.Add(New DAKOSY_Worker.cDakosy_EZA_WarenpositionVorgelegteUnterlagen With {
+                 .ezaWpUl_Art = "N380", .ezaWpUl_Bereich = "4", .ezaWpUl_VorlageKz = "J", .ezaWpUl_Nummer = invoice, .ezaWpUl_DatumAusstellung = Nothing
+             })
+                End If
+                Dim ycodes As String = TetraGet(ws, head, r, "Y-Document Type")
+                For Each code As String In ycodes.Split(New Char() {","c, ";"c}, StringSplitOptions.RemoveEmptyEntries)
+                    Dim docCode As String = code.Trim().ToUpperInvariant()
+                    If docCode <> "" Then
+                        pos.ezaWP_UNTERLAGEN.Add(New DAKOSY_Worker.cDakosy_EZA_WarenpositionVorgelegteUnterlagen With {
+                     .ezaWpUl_Art = docCode, .ezaWpUl_Bereich = "5", .ezaWpUl_VorlageKz = "J", .ezaWpUl_Nummer = "", .ezaWpUl_DatumAusstellung = Nothing
+                 })
+                    End If
+                Next
+                imported.Add(pos)
+                For Each key As String In {"Currency", "Term of Delivery", "Term of Delivery Place", "Shipment Gross Weight (kg)", "Identity of the means of transport at the border", "Declarant EORI Number", "Seller Name 1", "Seller Name 2", "Seller Street", "Seller City", "Seller Country", "Invoice Number", "Importer EORI Number", "Country of Dispatch", "Country of Destination"}
+                    Dim v As String = TetraGet(ws, head, r, key)
+                    If v <> "" AndAlso (Not kopf.ContainsKey(key) OrElse kopf(key) = "") Then kopf(key) = v
+                Next
+            Next
+            If imported.Count = 0 Then
+                MsgBox("Keine Warenpositionen gefunden.")
+                Return False
+            End If
+
+            Dim replace As Boolean = False
+            If EZA.eza_WARENPOS.Count > 0 Then
+                Dim answer = MsgBox("Vorhandene " & EZA.eza_WARENPOS.Count & " Positionen ersetzen?" & vbCrLf & "Ja = ersetzen, Nein = ergänzen, Abbrechen = Import abbrechen.", MsgBoxStyle.YesNoCancel Or MsgBoxStyle.Question)
+                If answer = MsgBoxResult.Cancel Then Return False
+                replace = (answer = MsgBoxResult.Yes)
+            End If
+            Dim gross As Decimal = 0D
+            TetraTryDecimal(TetraKopf(kopf, "Shipment Gross Weight (kg)"), gross)
+            ' Versender (CZ) aus Verkäufer W:AA, sofern noch nicht vorhanden.
+            Dim sellerName As String = (TetraKopf(kopf, "Seller Name 1") & " " & TetraKopf(kopf, "Seller Name 2")).Trim()
+            If sellerName <> "" AndAlso Not EZA.eza_ADRESSEN.Any(Function(a) String.Equals(a.ezaAd_AdressTyp, "CZ", StringComparison.OrdinalIgnoreCase)) Then
+                EZA.eza_ADRESSEN.Add(New DAKOSY_Worker.cDakosy_EZA_Adressen With {
+             .ezaAd_AdressTyp = "CZ",
+             .ezaAd_NameFirma1 = sellerName,
+             .ezaAd_StrasseHausNr1 = TetraKopf(kopf, "Seller Street"),
+             .ezaAd_Ort = TetraKopf(kopf, "Seller City"),
+             .ezaAd_LandCode = TetraKopf(kopf, "Seller Country").ToUpperInvariant()
+         })
+            End If
+            ' Anmelder = Adresstyp CN, EORI aus Spalte L.
+            Dim declarantEori As String = TetraKopf(kopf, "Declarant EORI Number")
+
+            If Not String.IsNullOrWhiteSpace(declarantEori) Then
+                TetraSetBestimmungsbundesland(declarantEori)
+            End If
+
+            If declarantEori <> "" Then
+                Dim adrCN = EZA.eza_ADRESSEN.FirstOrDefault(Function(a) String.Equals(a.ezaAd_AdressTyp, "CN", StringComparison.OrdinalIgnoreCase))
+                If adrCN Is Nothing Then
+                    adrCN = New DAKOSY_Worker.cDakosy_EZA_Adressen With {.ezaAd_AdressTyp = "CN"}
+                    EZA.eza_ADRESSEN.Add(adrCN)
+                End If
+                adrCN.ezaAd_TeilnehmerEORI = declarantEori
+            End If
+            If replace Then EZA.eza_WARENPOS.Clear()
+            For Each pos In imported
+                EZA.eza_WARENPOS.Add(pos)
+            Next
+            If TetraKopf(kopf, "Currency") <> "" Then EZA.eza_Rechnungswaehrung = TetraKopf(kopf, "Currency")
+            If TetraKopf(kopf, "Term of Delivery") <> "" Then EZA.eza_LieferbedingungCode = TetraKopf(kopf, "Term of Delivery")
+            If TetraKopf(kopf, "Term of Delivery Place") <> "" Then EZA.eza_LieferbedingungOrt = TetraKopf(kopf, "Term of Delivery Place")
+            If gross > 0D Then EZA.eza_GesamtRohmasse = CDbl(gross)
+            If TetraKopf(kopf, "Country of Dispatch") <> "" Then EZA.eza_VersendungsLandCode = TetraKopf(kopf, "Country of Dispatch")
+
+            Dim euEftaCtc As String() = {
+                 "AT", "BE", "BG", "HR", "CY", "CZ", "DK", "EE", "FI", "FR",
+                 "DE", "GR", "HU", "IE", "IT", "LV", "LT", "LU", "MT", "NL",
+                 "PL", "PT", "RO", "SK", "SI", "ES", "SE",
+                 "IS", "LI", "NO", "CH",
+                 "TR", "MK", "RS", "GB", "UA", "GE", "MD", "ME"
+             }
+
+            If TetraKopf(kopf, "Country of Dispatch") <> "" Then EZA.eza_ZollrechtlicherStatus = If(euEftaCtc.Contains(TetraKopf(kopf, "Country of Dispatch").ToUpperInvariant()), "EU", "IM")
 
 
+            If TetraKopf(kopf, "Country of Destination") <> "" Then EZA.eza_Bestimmungsland = TetraKopf(kopf, "Country of Destination")
+            If TetraKopf(kopf, "Identity of the means of transport at the border") <> "" Then EZA.eza_KennzeichenNameBefoerderungsmittelAnkunft = TetraKopf(kopf, "Identity of the means of transport at the border")
+            MsgBox(imported.Count & " Tetra-Pak-Positionen eingelesen.")
+            Me.DialogResult = DialogResult.OK
+            Me.Close()
+            Return True
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Tetra Pak Excel-Import: " & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            Return False
+        Finally
+            Try
+                If wb IsNot Nothing Then wb.Close(False)
+            Catch
+            End Try
+            Try
+                If xlApp IsNot Nothing Then xlApp.Quit()
+            Catch
+            End Try
+            For Each obj As Object In New Object() {ws, wb, xlApp}
+                If obj IsNot Nothing Then System.Runtime.InteropServices.Marshal.FinalReleaseComObject(obj)
+            Next
+        End Try
+    End Function
 
+    Private Function TetraCell(value As Object) As String
+        If value Is Nothing Then Return ""
+        Return Convert.ToString(value, CultureInfo.InvariantCulture).Trim()
+    End Function
+
+    Private Function TetraGet(ws As Excel.Worksheet, header As Dictionary(Of String, Integer), row As Integer, name As String) As String
+        If Not header.ContainsKey(name) Then Return ""
+        Return TetraCell(ws.Cells(row, header(name)).Value2)
+    End Function
+
+    Private Function TetraKopf(kopf As Dictionary(Of String, String), name As String) As String
+        Dim value As String = Nothing
+        If kopf.TryGetValue(name, value) Then Return If(value, "")
+        Return ""
+    End Function
+
+    Private Function TetraTryDecimal(value As String, ByRef number As Decimal) As Boolean
+        number = 0D
+        If String.IsNullOrWhiteSpace(value) Then Return False
+        If Decimal.TryParse(value, NumberStyles.Number, CultureInfo.InvariantCulture, number) Then Return True
+        Return Decimal.TryParse(value, NumberStyles.Number, CultureInfo.GetCultureInfo("de-DE"), number)
+    End Function
+    Private Sub TetraSetBestimmungsbundesland(declarantEORI As String)
+        If String.IsNullOrWhiteSpace(declarantEORI) Then Exit Sub
+
+        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+        Try
+            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
+                Dim sqlText As String =
+                 "SELECT TOP 1 A.[LandKz], A.[PLZ] " &
+                 "FROM [VERAG].[dbo].[Kunden] K " &
+                 "INNER JOIN [VERAG].[dbo].[Adressen] A ON A.[AdressenNr] = K.[KundenNr] " &
+                 "WHERE LTRIM(RTRIM(K.[EORITIN])) = @EORI"
+
+                Using cmd As New SqlCommand(sqlText, conn)
+                    cmd.Parameters.Add("@EORI", SqlDbType.VarChar, 50).Value = declarantEORI.Trim()
+
+                    Using dr As SqlDataReader = cmd.ExecuteReader()
+                        If dr.Read() Then
+                            Dim land As String = If(dr.IsDBNull(0), "", dr.GetValue(0).ToString().Trim().ToUpperInvariant())
+                            Dim plz As String = If(dr.IsDBNull(1), "", dr.GetValue(1).ToString().Trim())
+
+                            If (land = "DE" Or land = "D") AndAlso plz <> "" Then
+                                EZA.eza_Bestimmungsbundesland = VERAG_PROG_ALLGEMEIN.cDEBundeslaenderPLZ.LOADBundeslandCode_ByPLZ(plz)
+                            ElseIf land <> "" AndAlso land <> "DE" AndAlso land <> "D" Then
+                                EZA.eza_Bestimmungsbundesland = 25
+                            End If
+                        End If
+                    End Using
+                End Using
+            End Using
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod().Name)
+        End Try
+    End Sub
 
 
     '================================================================================================================================

SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb

@@ -785,8 +785,15 @@ Public Class usrCntlATLAS_EZA
         EZA = f.EZA
 
         Me.FindForm.SuspendLayout()
-        POSITIONEN.setValues(EZA, True)
+
+        ADRESSEN.setValues(EZA)
+        ALLG.setValues(EZA)
+
         btnPositionen.PerformClick()
+
+        POSITIONEN.setValues(EZA, True)
+        DV1.setValues(EZA)
+
         Me.FindForm.ResumeLayout()
     End Sub
 

SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Position.vb

@@ -41,7 +41,7 @@
         setvalue(WARE, blockEvents)
     End Sub
 
-    Private Sub usrCntlATLAS_NCTS_Position_Load(sender As Object, e As EventArgs) Handles Me.Load
+    Public Sub usrCntlATLAS_NCTS_Position_Load(sender As Object, e As EventArgs) Handles Me.Load
         ' cboColliMenge.Items.Clear()
         '  cboColliMenge.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
         ' cboColliMenge.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VQ", "VQ"))
@@ -163,6 +163,7 @@
             Me.cboVorangegangenesVerfahren.changeItem(If(WARE.ezaWP_VerfahrensCodeVorangegangenesVerfahren, ""))
 
             Me.cboBeguenstigung.changeItem(If(WARE.ezaWP_BeguenstigungBenatragtCode, ""))
+
             Me.sbUrsprungsland.SET_VALUE(If(WARE.ezaWP_UrsprungslandCode, ""))
             Me.sbPraeferenzursprungsland.SET_VALUE(If(WARE.ezaWP_Praeferenzursprungsland, ""))
 

SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Positionen.vb

@@ -140,6 +140,7 @@
         ' AddHandler u.NEXT_POS, AddressOf NEXT_POS
         ' AddHandler u.PREV_POS, AddressOf PREV_POS
         POS.Add(u)
+        u.usrCntlATLAS_NCTS_Position_Load(u, EventArgs.Empty)
         u.initSrch(blockEvents)
         initListBox()
         If Not blockEvents Then