CBAM/VERAG Zollanmeldungen

initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb

@@ -9120,6 +9120,7 @@ Public Class frmDYNachrichtenVerarbeitung
                 Else
                     EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit))
                 End If
+                EZA_TMP.loadAll()
 
                 'Anmlededatum setzen
                 EZA_TMP.eza_Anmeldedatum = zp
@@ -9135,7 +9136,7 @@ Public Class frmDYNachrichtenVerarbeitung
 
                 '=====IMPORT IN VERAG DATENMODELL==========
                 Dim IMP As New DAKOSY_Worker.cImporter_DakosyToVERAG
-                IMP.ImportDakosyEZA(EZA_TMP, False)
+                IMP.ImportDakosyEZA(EZA_TMP, False, True)
                 '==================================
 
                 '=====ATEZ BEREITSTELLUNG==========
@@ -10265,7 +10266,7 @@ Public Class frmDYNachrichtenVerarbeitung
                         Else
                             EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit))
                         End If
-
+                        EZA_TMP.loadAll()
 
                         Dim firma = ""
                         Dim nl = ""
@@ -10337,6 +10338,7 @@ Public Class frmDYNachrichtenVerarbeitung
                         EZA_TMP.insertIntoSpedBuch(DY_TMP)
 
 
+
                         '=====IMPORT IN VERAG DATENMODELL==========
                         Dim IMP As New DAKOSY_Worker.cImporter_DakosyToVERAG
                         IMP.ImportDakosyEZA(EZA_TMP, False, True)

initATLASAufschubkonten/frmStartOptions.Designer.vb

@@ -363,6 +363,7 @@ Partial Class frmStartOptions
         Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Button21 = New System.Windows.Forms.Button()
         Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.Button29 = New System.Windows.Forms.Button()
         Me.pnl.SuspendLayout()
         CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox23, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -1158,6 +1159,7 @@ Partial Class frmStartOptions
         '
         'TabPage1
         '
+        Me.TabPage1.Controls.Add(Me.Button29)
         Me.TabPage1.Controls.Add(Me.LinkLabel68)
         Me.TabPage1.Controls.Add(Me.PictureBox26)
         Me.TabPage1.Controls.Add(Me.cbxGestellungspeichern)
@@ -4856,6 +4858,18 @@ Partial Class frmStartOptions
         Me.DataGridViewTextBoxColumn1.MinimumWidth = 8
         Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
         '
+        'Button29
+        '
+        Me.Button29.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button29.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Button29.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button29.Location = New System.Drawing.Point(1072, 67)
+        Me.Button29.Name = "Button29"
+        Me.Button29.Size = New System.Drawing.Size(123, 24)
+        Me.Button29.TabIndex = 152
+        Me.Button29.Text = "testKK"
+        Me.Button29.UseVisualStyleBackColor = True
+        '
         'frmStartOptions
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -5273,4 +5287,5 @@ Partial Class frmStartOptions
     Friend WithEvents lblBackToCustomer_RMC As LinkLabel
     Friend WithEvents lblBackToCustomer_UTA As LinkLabel
     Friend WithEvents lblBackToCustomer_PLOSE As LinkLabel
+    Friend WithEvents Button29 As Button
 End Class

initATLASAufschubkonten/frmStartOptions.vb

@@ -6,6 +6,7 @@ Imports System.Security.Cryptography.X509Certificates
 Imports System.Text
 Imports System.Threading
 Imports System.Xml
+Imports DAKOSY_Worker
 Imports MDM_Worker
 Imports Renci.SshNet
 Imports VERAG_PROG_ALLGEMEIN
@@ -1001,7 +1002,7 @@ Public Class frmStartOptions
                                     '=====IMPORT IN VERAG DATENMODELL==========
                                     Dim IMP As New DAKOSY_Worker.cImporter_DHFToVERAG
                                     Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
-                                        Case "UNIDPED" : IMP.ImportEZOLLByLRN(cDHF_Anhaenge.CRN, "EZOLL_UNISPED", False)
+                                        Case "UNISPED" : IMP.ImportEZOLLByLRN(cDHF_Anhaenge.CRN, "EZOLL_UNISPED", False, True)
                                         Case Else : IMP.ImportEZOLLByLRN(cDHF_Anhaenge.CRN, "EZOLL", False)
                                     End Select
                                     '==========================================
@@ -7193,4 +7194,9 @@ repeatRequest:
 
     End Sub
 
+    Private Sub Button29_Click_1(sender As Object, e As EventArgs) Handles Button29.Click
+        Dim ZA = VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations.loadByMRN("26DE7458ACA000YYR2", True)
+        ZA.checkfreshCBAMWarning()
+
+    End Sub
 End Class

initATLASAufschubkonten/frmTCNachrichtenVerarbeitung.vb

@@ -1058,7 +1058,7 @@ Public Class frmTCNachrichtenVerarbeitung
                         '=====IMPORT IN VERAG DATENMODELL==========
                         If TC.Hea_DecTy = "EUA" Then
                             Dim IMP As New DAKOSY_Worker.cImporter_TelotecToVERAG
-                            IMP.ImportTelotec(TC, False)
+                            IMP.ImportTelotec(TC, False, True)
                         End If
                         '==================================