Solicitudes de traspaso de Almacen validar entre usuarios, enviar a praspaso

Inventarios/TraspasoAlmacen.aspx.vb

@@ -236,6 +236,10 @@ Partial Class Inventarios_TraspasoAlmacen
                 ImgFechaRecepcion.Visible = False
             End If
 
+            If Request("CveAlmacenTransitorioR") IsNot Nothing Then
+                CargaRecepcionTraspaso()
+            End If
+
         Else
             If ChkTransitorio.Checked Then
                 RegistraScript(" $('#DivGastoIndirecto').show(0); ")
@@ -245,6 +249,19 @@ Partial Class Inventarios_TraspasoAlmacen
         End If
     End Sub
 
+    Private Sub CargaRecepcionTraspaso()
+        Tab.ActiveTabIndex = 1
+        Dim CveAlmacenTransitorioR = If(Request("CveAlmacenTransitorioR") IsNot Nothing AndAlso Request("CveAlmacenTransitorioR").ToEntero > 0, Request("CveAlmacenTransitorioR").ToEntero, -1)
+        Dim FolioR = If(Request("FolioR") IsNot Nothing AndAlso Request("FolioR").ToEntero > 0, Request("FolioR").ToEntero, -1)
+        Dim CveAlmacenDestinoR = If(Request("CveAlmacenDestinoR") IsNot Nothing AndAlso Request("CveAlmacenDestinoR").ToEntero > 0, Request("CveAlmacenDestinoR").ToEntero, -1)
+
+        DdlAlmacenRecepcion.SelectedValueExist(CveAlmacenDestinoR)
+        DdlAlmacenTransitorioRecepcion.SelectedValueExist(CveAlmacenTransitorioR)
+        TxtFolioRecepcion.Text = FolioR.ToString
+
+        CargaRecepcion()
+    End Sub
+
 #Region "CARGA DATOS"
     Protected Sub CreaDT()
         Dim dt As New DataTable