Laufzettel; EZABestätigung, Kafka, CBAM, KVI Report

VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_CustomsDeclarations.vb

@@ -381,6 +381,46 @@ Public Class cVERAG_CustomsDeclarations
         Return ZA
     End Function
 
+
+    Public Shared Function loadBySendungsID(za_SendungsId As String, loadall As Boolean) As cVERAG_CustomsDeclarations
+        Dim ZA As New cVERAG_CustomsDeclarations
+        If If(za_SendungsId, "") = "" Then Return ZA
+        Try
+            ZA.hasEntry = False
+            Using conn = SQL.GetNewOpenConnectionFMZOLL()
+                Using cmd As New SqlCommand(
+                    "SELECT * FROM tblVERAG_CustomsDeclarations WHERE za_SendungsId=@_BASE_id", conn)
+
+                    cmd.Parameters.AddWithValue("@_BASE_id", za_SendungsId)
+                    Dim dr = cmd.ExecuteReader()
+                    If dr.Read Then
+                        For Each li In ZA.getParameterList()
+                            Dim pi = ZA.GetType.GetProperty(li.Scalarvariable)
+                            If dr.Item(li.Text) Is DBNull.Value Then
+                                pi.SetValue(ZA, Nothing)
+                            Else
+                                pi.SetValue(ZA, dr.Item(li.Text))
+                            End If
+                        Next
+                        ZA.hasEntry = True
+                    End If
+                    dr.Close()
+                End Using
+            End Using
+            If loadall Then
+
+                ZA.Parties = cVERAG_CustomsDeclarations_Parties.LOAD_BY_ZAID(ZA.za_Id)
+                ZA.Items = cVERAG_CustomsDeclarations_Item.LOAD_BY_ZAID(ZA.za_Id)
+                ZA.Duties = cVERAG_CustomsDeclarations_Duty.LOAD_BY_ZAID(ZA.za_Id)
+                ZA.Documents = cVERAG_CustomsDeclarations_Document.LOAD_HEAD_BY_ZAID(ZA.za_Id)
+            End If
+
+        Catch ex As Exception
+            cErrorHandler.ERR(ex.Message, ex.StackTrace, MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Return ZA
+    End Function
+
     Public Sub checkfreshCBAMWarning()
         Try
             Dim CBAM_ITEMS As New List(Of cVERAG_CustomsDeclarations_Item)
@@ -1315,5 +1355,3 @@ Public Class cVERAG_CustomsDeclarations_Document
 
 End Class
 
-
-