1.0.9.0

UID/cDispoAuftraege.vb

@@ -519,11 +519,23 @@ Public Class cDispoAuftraege
                 End Using
             End Using
             LoadOeffnungszeiten()
+            LoadEntUNDLadeStelle()
+
         Catch ex As Exception
             MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
         End Try
     End Sub
 
+    Public Sub LoadEntUNDLadeStelle()
+        Dim usrcntlEntladestelle As New DISPO.usrcntlAdresse
+        usrcntlEntladestelle.setByID(Me.atr_entladest_id)
+        Me.avisoentlade = DISPO.getAvisoFromKundeByIds(usrcntlEntladestelle.BET_ID)
+
+        Dim usrcntlLadestelle As New DISPO.usrcntlAdresse
+        usrcntlLadestelle.setByID(Me.atr_ladest_id)
+        Me.avisolade = DISPO.getAvisoFromKundeByIds(usrcntlLadestelle.BET_ID)
+    End Sub
+
 
     Public Sub LOAD_BHRG()
         Try