VK Frachtkosten, Dakosy Vorpapier

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

@@ -417,11 +417,23 @@ Public Class usrCntlATLAS_EZA
                     p.ezaWP_Rohmasse = SENDUNG.tblSnd_Gewicht
                     p.ezaWP_Warenbezeichnung = SENDUNG.tblSnd_Warenbezeichnung
                     cdy.eza_WARENPOS.Add(p)
+
+
+
                 End If
 
             End If
 
             If SENDUNG IsNot Nothing Then
+
+
+                'Test Vorpapier:
+                If If(SENDUNG.tblSnd_Vorpapier, "") <> "" Then
+                    EZA.eza_VorpapierArtCode = "T1"
+                    EZA.eza_VorpapierNr = SENDUNG.tblSnd_Vorpapier
+                End If
+
+
                 Dim Vorsystem = False
                 If (SENDUNG.VORSYSTEM IsNot Nothing) AndAlso MsgBox("Möchten Sie die Daten aus dem Vorsystem laden?", vbYesNoCancel) Then
                     Try
@@ -561,66 +573,66 @@ Public Class usrCntlATLAS_EZA
                 If Not Vorsystem Then
 
                     EZA.eza_GesamtRohmasse = SENDUNG.tblSnd_Gewicht
-                EZA.eza_Rechnungspreis = SENDUNG.tblSnd_Warenwert
-                EZA.eza_Rechnungswaehrung = SENDUNG.tblSnd_WarenwertWaehrung
+                    EZA.eza_Rechnungspreis = SENDUNG.tblSnd_Warenwert
+                    EZA.eza_Rechnungswaehrung = SENDUNG.tblSnd_WarenwertWaehrung
 
-                If SENDUNG.tblSnd_Abfertigungsart_ID = 1 Then
-                    If SENDUNG.tblSnd_EmpfaengerKdNr > 0 Then
+                    If SENDUNG.tblSnd_Abfertigungsart_ID = 1 Then
+                        If SENDUNG.tblSnd_EmpfaengerKdNr > 0 Then
 
-                        Dim AD As New DAKOSY_Worker.cDakosy_EZA_Adressen
-                        AD.ezaAd_AdressCode = SENDUNG.tblSnd_EmpfaengerKdNr
-                        AD.ezaAd_AdressTyp = "CN"
-                        Dim ADFmzoll As New VERAG_PROG_ALLGEMEIN.cAdressen(SENDUNG.tblSnd_EmpfaengerKdNr)
-                        Dim KDFmzoll As New VERAG_PROG_ALLGEMEIN.cKunde(SENDUNG.tblSnd_EmpfaengerKdNr)
+                            Dim AD As New DAKOSY_Worker.cDakosy_EZA_Adressen
+                            AD.ezaAd_AdressCode = SENDUNG.tblSnd_EmpfaengerKdNr
+                            AD.ezaAd_AdressTyp = "CN"
+                            Dim ADFmzoll As New VERAG_PROG_ALLGEMEIN.cAdressen(SENDUNG.tblSnd_EmpfaengerKdNr)
+                            Dim KDFmzoll As New VERAG_PROG_ALLGEMEIN.cKunde(SENDUNG.tblSnd_EmpfaengerKdNr)
 
-                        AD.ezaAd_NameFirma1 = ADFmzoll.Name_1
-                        AD.ezaAd_NameFirma2 = ADFmzoll.Name_2
+                            AD.ezaAd_NameFirma1 = ADFmzoll.Name_1
+                            AD.ezaAd_NameFirma2 = ADFmzoll.Name_2
 
-                        AD.ezaAd_StrasseHausNr1 = ADFmzoll.Straße
-                        AD.ezaAd_PLZ = ADFmzoll.PLZ
-                        AD.ezaAd_Ort = ADFmzoll.Ort
-                        AD.ezaAd_LandCode = cProgramFunctions.getISO2Land(ADFmzoll.LandKz)
-                        AD.ezaAd_TeilnehmerEORI = KDFmzoll.EORITIN
-                        AD.ezaAd_TeilnehmerNLNR = KDFmzoll.EORITIN_NL
+                            AD.ezaAd_StrasseHausNr1 = ADFmzoll.Straße
+                            AD.ezaAd_PLZ = ADFmzoll.PLZ
+                            AD.ezaAd_Ort = ADFmzoll.Ort
+                            AD.ezaAd_LandCode = cProgramFunctions.getISO2Land(ADFmzoll.LandKz)
+                            AD.ezaAd_TeilnehmerEORI = KDFmzoll.EORITIN
+                            AD.ezaAd_TeilnehmerNLNR = KDFmzoll.EORITIN_NL
 
-                        If If(AD.ezaAd_LandCode, "") <> "" Then
-                            EZA.eza_Bestimmungsland = AD.ezaAd_LandCode
+                            If If(AD.ezaAd_LandCode, "") <> "" Then
+                                EZA.eza_Bestimmungsland = AD.ezaAd_LandCode
+                            End If
+
+                            If If(AD.ezaAd_LandCode, "") = "DE" And AD.ezaAd_PLZ IsNot Nothing Then
+                                EZA.eza_Bestimmungsbundesland = VERAG_PROG_ALLGEMEIN.cDEBundeslaenderPLZ.LOADBundeslandCode_ByPLZ(AD.ezaAd_PLZ)
+                            ElseIf If(AD.ezaAd_LandCode, "") <> "" Then
+                                EZA.eza_Bestimmungsbundesland = 25
+                            End If
+
+                            cdy.eza_ADRESSEN.Add(AD)
                         End If
+                        If SENDUNG.tblSnd_AbsenderKdNr > 0 Then
+
+                            Dim AD As New DAKOSY_Worker.cDakosy_EZA_Adressen
+                            AD.ezaAd_AdressCode = SENDUNG.tblSnd_AbsenderKdNr
+                            AD.ezaAd_AdressTyp = "CZ"
+                            Dim ADFmzoll As New VERAG_PROG_ALLGEMEIN.cAdressen(SENDUNG.tblSnd_AbsenderKdNr)
+                            Dim KDFmzoll As New VERAG_PROG_ALLGEMEIN.cKunde(SENDUNG.tblSnd_AbsenderKdNr)
+
+                            AD.ezaAd_NameFirma1 = ADFmzoll.Name_1
+                            AD.ezaAd_NameFirma2 = ADFmzoll.Name_2
+
+                            AD.ezaAd_StrasseHausNr1 = ADFmzoll.Straße
+                            AD.ezaAd_PLZ = ADFmzoll.PLZ
+                            AD.ezaAd_Ort = ADFmzoll.Ort
+                            AD.ezaAd_LandCode = cProgramFunctions.getISO2Land(ADFmzoll.LandKz)
+                            AD.ezaAd_TeilnehmerEORI = KDFmzoll.EORITIN
+                            AD.ezaAd_TeilnehmerNLNR = KDFmzoll.EORITIN_NL
+
+                            If If(AD.ezaAd_LandCode, "") <> "" Then
+                                EZA.eza_VersendungsLandCode = AD.ezaAd_LandCode
+                            End If
+
+                            cdy.eza_ADRESSEN.Add(AD)
 
-                        If If(AD.ezaAd_LandCode, "") = "DE" And AD.ezaAd_PLZ IsNot Nothing Then
-                            EZA.eza_Bestimmungsbundesland = VERAG_PROG_ALLGEMEIN.cDEBundeslaenderPLZ.LOADBundeslandCode_ByPLZ(AD.ezaAd_PLZ)
-                        ElseIf If(AD.ezaAd_LandCode, "") <> "" Then
-                            EZA.eza_Bestimmungsbundesland = 25
                         End If
 
-                        cdy.eza_ADRESSEN.Add(AD)
-                    End If
-                    If SENDUNG.tblSnd_AbsenderKdNr > 0 Then
-
-                        Dim AD As New DAKOSY_Worker.cDakosy_EZA_Adressen
-                        AD.ezaAd_AdressCode = SENDUNG.tblSnd_AbsenderKdNr
-                        AD.ezaAd_AdressTyp = "CZ"
-                        Dim ADFmzoll As New VERAG_PROG_ALLGEMEIN.cAdressen(SENDUNG.tblSnd_AbsenderKdNr)
-                        Dim KDFmzoll As New VERAG_PROG_ALLGEMEIN.cKunde(SENDUNG.tblSnd_AbsenderKdNr)
-
-                        AD.ezaAd_NameFirma1 = ADFmzoll.Name_1
-                        AD.ezaAd_NameFirma2 = ADFmzoll.Name_2
-
-                        AD.ezaAd_StrasseHausNr1 = ADFmzoll.Straße
-                        AD.ezaAd_PLZ = ADFmzoll.PLZ
-                        AD.ezaAd_Ort = ADFmzoll.Ort
-                        AD.ezaAd_LandCode = cProgramFunctions.getISO2Land(ADFmzoll.LandKz)
-                        AD.ezaAd_TeilnehmerEORI = KDFmzoll.EORITIN
-                        AD.ezaAd_TeilnehmerNLNR = KDFmzoll.EORITIN_NL
-
-                        If If(AD.ezaAd_LandCode, "") <> "" Then
-                            EZA.eza_VersendungsLandCode = AD.ezaAd_LandCode
-                        End If
-
-                        cdy.eza_ADRESSEN.Add(AD)
-
-                    End If
-
                     End If
 
                 End If

SDL/ZOLLSYSTEM/DAKOSY/ATLAS/cDakosyInterface_Send.vb

@@ -217,6 +217,8 @@ Class DAKOSY_Interface_SEND
 
         EA.ObjektIdentifizierung.AbsenderSystemName = "VERAG_ZOLL"
 
+
+
         'ObjektIdentifizierung:
         EA.ObjektIdentifizierung = New FreierVerkehrAktVeredelUmwandlung_004.ObjektIdentifizierungAVUVTyp
         EA.ObjektIdentifizierung.ObjektName = cDY.eza_ObjectName
@@ -227,7 +229,7 @@ Class DAKOSY_Interface_SEND
         'EA.ObjektIdentifizierung.CompliancePruefung= 
         EA.ObjektIdentifizierung.ObjektName = cDY.eza_ObjectName
         If cDY.eza_Bearbeiter IsNot Nothing Then EA.ObjektIdentifizierung.Bearbeiter = cDY.eza_Bearbeiter
-     If cDY.eza_CompliancePruefung IsNot Nothing Then EA.ObjektIdentifizierung.CompliancePruefung = cDY.eza_CompliancePruefung
+        If cDY.eza_CompliancePruefung IsNot Nothing Then EA.ObjektIdentifizierung.CompliancePruefung = cDY.eza_CompliancePruefung
         If cDY.eza_BezugsnummerVorblendung IsNot Nothing Then EA.ObjektIdentifizierung.BezugsnummerVorblendung = cDY.eza_BezugsnummerVorblendung
 
         EA.ObjektIdentifizierung.AnmeldungArt = If(cDY.eza_AnmeldungArt, "EZA-A") 'Pflichtfeld
@@ -283,6 +285,7 @@ Class DAKOSY_Interface_SEND
             If cDY.eza_DV1SpezielleVereinbarungUmstand IsNot Nothing Then EA.KopfDaten.DV1Angaben.SpezielleVereinbarungUmstand = cDY.eza_DV1SpezielleVereinbarungUmstand
         End If
 
+
         If cDY.eza_UNTERLAGEN.Count > 0 Then
             EA.KopfDaten.Unterlage = New List(Of FreierVerkehrAktVeredelUmwandlung_004.UnterlageVzKopfAVUVTyp)
             For Each u In cDY.eza_UNTERLAGEN