- Se traslada versión a git desde tfs

Informes/ucPDFViewer.xaml.vb

@@ -0,0 +1,43 @@
+Imports DevExpress.Xpf.Docking
+
+Public Class ucPDFViewer
+    Public Sub New(st As IO.Stream)
+
+        ' Esta llamada es exigida por el diseñador.
+        InitializeComponent()
+        If st IsNot Nothing Then Me.VisorPDF.DocumentSource = st
+        ' Agregue cualquier inicialización después de la llamada a InitializeComponent().
+
+    End Sub
+
+    Public Sub New(st As IO.Stream, grd As DocumentGroup, id As String)
+
+        ' Esta llamada es exigida por el diseñador.
+        InitializeComponent()
+        If st IsNot Nothing Then Me.VisorPDF.DocumentSource = st
+        Dim cmdp = Me.VisorPDF.CommandProvider
+
+
+        Dim dc = Comun.dm.DockController
+
+        Dim docpanel As DevExpress.Xpf.Docking.DocumentPanel
+        Dim d = (From p In grd.Items Where p.Tag = id)
+        If d.Count > 0 Then
+            docpanel = d.First
+        Else
+            docpanel = New DevExpress.Xpf.Docking.DocumentPanel
+            docpanel.Caption = id
+            docpanel.Content = Me
+            docpanel.ClosingBehavior = DevExpress.Xpf.Docking.ClosingBehavior.ImmediatelyRemove
+            docpanel.Tag = id
+            grd.Items.Add(docpanel)
+        End If
+        dc.Activate(docpanel)
+
+
+
+
+    End Sub
+
+
+End Class