Liga para recibir usados desde entrega almacen hacia recepcion de usados

Inventarios/RecepcionUsados.aspx.vb

@@ -349,6 +349,7 @@ Partial Class Inventarios_RecepcionUsados
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not IsPostBack Then
             CargaInicial()
+            CargaRemisionFromURL()
             GeneraRNCFromURL()
         End If
     End Sub
@@ -424,6 +425,17 @@ Partial Class Inventarios_RecepcionUsados
         'DdlProducto2.setEsWebService(True)
         'DdlProducto2.Attributes.Add("data-metodo", "getpsusados")
     End Sub
+
+    Private Sub CargaRemisionFromURL()
+        Me.CveRemisionRecibida = -1
+
+        Dim CveRemision As Integer = IfNull(Request("CveRemision"), "-1").ToString().ToEntero()
+        If CveRemision > 0 Then
+            Me.CveRemisionRecibida = CveRemision
+            RecibirRemision()
+        End If
+
+    End Sub
     Private Sub GeneraRNCFromURL()
         Dim RFC As String = IfNull(Request("RFC"), "").ToString()
         Dim CveAlmacen As Integer = IfNull(Request("CveAlmacen"), "-1").ToString().ToEntero()
@@ -2185,11 +2197,15 @@ Partial Class Inventarios_RecepcionUsados
         UpGenerales.Update()
     End Sub
     Protected Sub BtnRecibir_Click(sender As Object, e As EventArgs)
-        DtMovimientos.Rows.Clear()
-
         Me.CveRemisionRecibida = -1
         Me.CveRemisionRecibida = CType(CType(sender, LinkButton).NamingContainer, GridViewRow).DataKey("CveVenta").ToEntero()
 
+        RecibirRemision()
+    End Sub
+
+    Private Sub RecibirRemision()
+        DtMovimientos.Rows.Clear()
+
         Dim DtUsados As DataTable = Nothing
         Dim CveCliente As Integer = -1
 
@@ -2210,6 +2226,8 @@ Partial Class Inventarios_RecepcionUsados
 
         Me.ObjFactura = New Modelos.Factura(UsuarioActual, CveRemisionRecibida, UsuarioActual.CveEmpresa, DirectorioServidor:=ModExtensiones.DirectorioBaseEmpresas)
 
+        TxtRemisionRecibida.Text = Me.ObjFactura.SerieFolio
+        DivRemisionRecibida.Visible = True
 
         'SI ES DISTRIBUIDOR VAMOS A GENERAR LA REMISION DE NOTA DE CREDITO
         If EsDistribuidor Then
@@ -2419,7 +2437,7 @@ Partial Class Inventarios_RecepcionUsados
         Me.ObjRemisionNC.OrdenCompra = ""
         Me.ObjRemisionNC.PedidoContrato = ""
         Me.ObjRemisionNC.ObservacionesAlmacen = ""
-
+        Me.ObjRemisionNC.Recibio = TxtResponsable.Text.Trim
         'If TmpDTPolizaVirtual IsNot Nothing Then
         '    Me.ObjRemisionNC.DtPolizasVirtuales = TmpDTPolizaVirtual
         'End If