diff --git a/Inventarios/Kardex.aspx b/Inventarios/Kardex.aspx
index e57cb50bc..33d5bf72d 100644
--- a/Inventarios/Kardex.aspx
+++ b/Inventarios/Kardex.aspx
@@ -172,7 +172,8 @@
                         <div class="row" style="padding-top: 10px; position: relative;">
                             <asp:Label runat="server" ID="LblPS" CssClass="col-md-1 truncate">Producto:</asp:Label>
                             <div class="col-md-2 " style="min-width: 250px; max-width: 300px;">
-                                <ADS:Dropdownlost ID="ddlProducto2" runat="server" autopostback="False" DataTextField="PSCodigo" IncluyeTodos="false" DataValueField="CvePS" CssClassDdl="select2me" CssStyle="width: 250px; " Onselectedindexchange="ddlProducto2_selectedindexchange"></ADS:Dropdownlost>
+                                <ADS:Dropdownlost ID="ddlProducto2" runat="server" autopostback="False" DataTextField="PSCodigo" IncluyeTodos="false" DataValueField="CvePS" CssClassDdl="select2me" CssStyle="width: 250px; " 
+                                    Onselectedindexchange="ddlProducto2_selectedindexchange" ></ADS:Dropdownlost>
                             </div>
 
                             <label class="col-md-1 truncate" style="max-width: 80px;" id="lblAlm" runat="server">Almacén:</label>
@@ -416,12 +417,26 @@
         </ContentTemplate>
     </asp:UpdatePanel>
 
-
-    <div class="text-right" style="margin: 5px 0px;">
-        <input type="text" id="TxtBusqueda2" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda2','{0}')", GvM.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
-        <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda2','{0}')", GvM.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+    <div class="row">
+        <div class="col-md-6">
+            <asp:UpdatePanel runat="server" UpdateMode="Conditional" ID="UpNumeroParte">
+                <ContentTemplate>
+                    <asp:Label runat="server" ID="LblNumeroParte" Text="" Visible ="false"></asp:Label>
+                </ContentTemplate>
+            </asp:UpdatePanel>
+            
+        </div>
+        <div class="col-md-6">
+            <div class="text-right" style="margin: 5px 0px;">
+                <input type="text" id="TxtBusqueda2" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda2','{0}')", GvM.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
+                <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda2','{0}')", GvM.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+            </div>
+        </div>
     </div>
 
+
+    
+
     <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional" RenderMode="Inline">
         <ContentTemplate>
             <asp:GridView ID="GvM" Width="100%" runat="server" ShowHeader="true" EmptyDataText="No hay registros." AutoGenerateColumns="False" AllowPaging="False"
diff --git a/Inventarios/Kardex.aspx.vb b/Inventarios/Kardex.aspx.vb
index ce49c1b67..ba1ff75c1 100644
--- a/Inventarios/Kardex.aspx.vb
+++ b/Inventarios/Kardex.aspx.vb
@@ -246,6 +246,8 @@ Partial Class Inventarios_Kardex
     Private Sub CargaDatos()
 
         Dim CvePS As Integer = ddlProducto2.SelectedValue.ToEntero
+        LblNumeroParte.Text = ""
+        LblNumeroParte.Visible = False
 
         If CvePS > 0 Then
             Dim DtTemp = CargarKardex(CvePS)
@@ -286,6 +288,20 @@ Partial Class Inventarios_Kardex
                 GvM.DataBind()
                 UpAcciones.Update()
             End If
+
+
+
+
+            If CvePS > 0 Then
+                Dim NumeroParte As String = GlobalDTPS(UsuarioActual.CveEmpresa, ddlProducto2.SelectedValue.ToEntero).FiltroPrimeroValor("NumeroParte")
+                If NumeroParte.Trim.Length > 0 Then
+                    LblNumeroParte.Text = $" Número de Parte: {NumeroParte}"
+                    LblNumeroParte.Visible = True
+                End If
+            End If
+
+            UpNumeroParte.Update()
+
         Else
             Alert("Seleccione un producto.", TipoMensaje.MsgAdvertencia)
         End If
@@ -809,11 +825,14 @@ Partial Class Inventarios_Kardex
 
 
     Protected Sub ddlProducto2_selectedindexchange(sender As Object, e As EventArgs)
+
         LnkKPIVerComportamiento.Visible = False
         If ddlProducto2.SelectedValue.ToEntero > 0 And UsuarioActual.CveRol = 1 Then
             LnkKPIVerComportamiento.Visible = True
         End If
         UpAcciones.Update()
+
+
     End Sub
 
 End Class
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index 4485b59c0..4b1cda15a 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -3527,9 +3527,14 @@ Partial Class OC_OC
                     'Alert(String.Format("La {0} se guardó correctamente", TipoLargo), TipoMensaje.MsgInformacion)
 
                     'Edicion
+                    Dim ImprimirOC As String = ""
+                    Dim Msg As New StringBuilder
+                    ImprimirOC = String.Format("<br/> <a Class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Orden de Compra</a> ", Encripta(String.Format("OP=OC&CVEOC={0}", CveOrdenCompra)))
+
+
                     Dim Liga1 As String = $"document.location.href=""/OC/OC.aspx?Tipo={TipoOC}"""
                     Dim Liga2 As String = $"document.location.href=""/OC/RepOC.aspx"""
-                    Alert(String.Format("La {0} se guardó correctamente", TipoLargo), TipoMensaje.MsgDosBotones, Liga1, TextoConfirmacion:="Seguir Registrando", TextoSegundoBoton:="Ir al Reporte", JSBtn2:=Liga2)
+                    Alert(String.Format("La {0} se guardó correctamente. {1}", TipoLargo, ImprimirOC), TipoMensaje.MsgDosBotones, Liga1, TextoConfirmacion:="Seguir Registrando", TextoSegundoBoton:="Ir al Reporte", JSBtn2:=Liga2)
 
                 Else
                     Dim ImprimirOC As String = ""
@@ -3562,6 +3567,7 @@ Partial Class OC_OC
                 If Conta IsNot Nothing Then Conta.RollBack()
                 Alert(MsgError, TipoMensaje.MsgError)
             End If
+
         End If