From 2e269d87365f3d13553f9cc36ec45ab1553417c8 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Thu, 27 Jan 2022 10:09:51 -0700
Subject: [PATCH] Liga para recibir usados desde entrega almacen hacia
 recepcion de usados

---
 Inventarios/EntregaAlmacen.aspx.vb  |  4 ++++
 Inventarios/RecepcionUsados.aspx    |  9 ++++++++-
 Inventarios/RecepcionUsados.aspx.vb | 24 +++++++++++++++++++++---
 3 files changed, 33 insertions(+), 4 deletions(-)

diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index 5e13576bb..8a609ffe0 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -2914,6 +2914,10 @@ Partial Class Inventarios_EntregaAlmacen
 
             If RbEntregaInterna.Checked Then
                 Msg.AppendFormat("<br/><br/>Se agregó una guía de paquetería interna")
+            End If
+
+            If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso TipoDocto = "Rem" Then
+                Msg.AppendFormat("<br/><br/>Recibir Usado: <b><a href=""/Inventarios/RecepcionUsados.aspx?CveRemision={0}"" target=""_blank"">Ir a Recepción de Usados</a></b>", CveVentaSurtir)
             End If
 
             Alert(Msg.ToString(), TipoMensaje.MsgInformacion)
diff --git a/Inventarios/RecepcionUsados.aspx b/Inventarios/RecepcionUsados.aspx
index f555b67ce..3bb74e59c 100644
--- a/Inventarios/RecepcionUsados.aspx
+++ b/Inventarios/RecepcionUsados.aspx
@@ -236,7 +236,8 @@
                                             <label class="col-md-1" style="width: 110px">Recibe:</label>
                                             <div class="col-md-3">
                                                 <asp:TextBox runat="server" Text="" ID="TxtResponsable" Width="100%" />
-                                                <%--<asp:DropDownList ID="DdlResponsable" runat="server" DataTextField="Nombre" DataValueField="CveUsuario" CssClass="form-control input-sm" Style="width: 200px !important;"></asp:DropDownList>--%>
+                                                <asp:RequiredFieldValidator ID="RFVResponsable" runat="server" ControlToValidate="TxtResponsable" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Recibe''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                <ajax:ValidatorCalloutExtender ID="VCEResponsable" runat="server" HighlightCssClass="vco" TargetControlID="RFVResponsable"></ajax:ValidatorCalloutExtender>
                                             </div>
                                         </div>
                                         <div class="row">
@@ -280,6 +281,12 @@
                                                 <asp:TextBox ID="TxtRemision" runat="server" Enabled="false" />
                                             </div>
                                         </div>
+                                        <div class="row" id="DivRemisionRecibida" runat="server" visible="false">
+                                            <label class="col-md-1 truncate" style="width: 110px">Remision:</label>
+                                            <div class="col-md-2">
+                                                <asp:TextBox ID="TxtRemisionRecibida" runat="server" Enabled="false" />
+                                            </div>
+                                        </div>
                                     </div>
                                 </div>
                             </div>
diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb
index 437cee0c5..9ee842ed5 100644
--- a/Inventarios/RecepcionUsados.aspx.vb
+++ b/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