Greenpulse DYEZA

DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb

@@ -475,6 +475,50 @@ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_BezugsnummerBEAnteilZL", eza_
         Return Nothing
     End Function
 
+    Shared Function LOADByMRN(MRN As String, loadALL As Boolean, Optional checkValidStatus As Boolean = False) As cDakosyEZA
+        Try
+            Dim EZA As New cDakosyEZA
+            Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
+                '  Using cmd As New SqlCommand("SELECT TOP 1 * FROM (SELECT *  FROM tblDakosy_EZA WHERE eza_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND eza_status BETWEEN 40 and 90 ", "") & " ) AS T order by eza_status desc, (SELECT top 1 dySt_ts  FROM [tblDakosy_Statusmeldungen] WHERE eza_dyaAnmID=dySt_dyId order by dySt_ts desc)  desc,eza_LetzteBearbeitung desc  ", conn)
+                Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_EZA WHERE isnull(eza_MRN,eza_ANR) LIKE @MRN " & If(checkValidStatus, " AND eza_status BETWEEN 40 and 90 ", "") & " order by eza_LetzteBearbeitung desc ", conn)
+                    '    MsgBox("SELECT TOP 1 * FROM tblDakosy_EZA WHERE eza_ObjectName Like " & bezugsNr & " " & If(checkValidStatus, " And eza_status BETWEEN 40 And 90 ", "") & " order by eza_status desc, (SELECT top 1 dySt_ts  FROM [tblDakosy_Statusmeldungen] inner join tblDakosy_Zollanmeldungen on dy_id = dySt_dyId WHERE eza_dyaAnmID=dy_id order by dySt_ts desc)  desc,eza_LetzteBearbeitung desc  ")
+                    cmd.Parameters.AddWithValue("@MRN", MRN)
+                    Dim dr = cmd.ExecuteReader()
+                    If dr.Read Then
+                        For Each l In EZA.getParameterList()
+                            Dim propInfo As PropertyInfo = EZA.GetType.GetProperty(l.Scalarvariable)
+
+                            If dr.Item(l.Text) Is DBNull.Value Then
+                                propInfo.SetValue(EZA, Nothing)
+                            Else
+                                propInfo.SetValue(EZA, dr.Item(l.Text))
+                            End If
+                        Next
+
+                        If loadALL Then
+                            EZA.LOAD_Unterlagen()
+                            EZA.LOAD_Warenposition()
+
+                            EZA.LOAD_Adressen()
+                            EZA.LOAD_Aufschub()
+                            EZA.LOAD_BEAnteilZLAVUV()
+                            EZA.LOAD_SumABeendigungsAnteil()
+                        End If
+
+                        dr.Close()
+                        Return EZA
+                    End If
+                    dr.Close()
+                End Using
+            End Using
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Return Nothing
+    End Function
+
 
     Public Function UPDATE_Status(status As Integer) As String
         If eza_Id > 0 Then