diff --git a/AF/AF.aspx.vb b/AF/AF.aspx.vb
index 0bc3e00f1..608f2bbdf 100644
--- a/AF/AF.aspx.vb
+++ b/AF/AF.aspx.vb
@@ -424,6 +424,10 @@ Partial Class AF_AF
                 ModalidadesPaginaAFInicial(Request("Op").ToString)
             End If
 
+            If UsuarioActual.TienePermisoProceso(410) Then
+                BtnGuardar.Visible = False
+                BtnEliminar.Visible = False
+            End If
 
 
         End If
diff --git a/App_Code/ClsCompProveedores.vb b/App_Code/ClsCompProveedores.vb
index 2829632c9..3ffbe0066 100644
--- a/App_Code/ClsCompProveedores.vb
+++ b/App_Code/ClsCompProveedores.vb
@@ -66,6 +66,7 @@ Public Class ClsCompProveedores
     Public Property DIOTNacionalidad As String
     Public Property CveRegimenFiscal As Integer = -1
     Public Property PorcentajeProntoPago As Decimal = 0D
+    Public Property CveTipoFechaVencimiento As Integer = 1
 
     Public ReadOnly Property DtResultados() As DataTable
         Get
@@ -302,6 +303,7 @@ Public Class ClsCompProveedores
                 Me.DIOTNacionalidad = Data.Rows(0)("DIOTNacionalidad").ToString
                 Me.CveRegimenFiscal = Data.Rows(0)("CveRegimenFiscal").ToString.ToEntero
                 Me.PorcentajeProntoPago = Data.Rows(0)("PorcentajeProntoPago").ToString.ToDecimal
+                Me.CveTipoFechaVencimiento = Data.Rows(0)("CveTipoFechaVencimiento").ToString.ToEntero
 
             End If
 
@@ -524,28 +526,30 @@ Public Class ClsCompProveedores
         Return Retorno
     End Function
 
-Public Function UpdateProveedorLimiteCredito(CveProveedor As Integer, LimiteCredito As Decimal, PlazoPago As Integer, UsaLimiteCredito As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
-    Dim Retorno As Boolean = False
-    DataAdapter("PA_Comp_ProveedorLimiteCreditoUpdate")
+    Public Function UpdateProveedorLimiteCredito(CveProveedor As Integer, LimiteCredito As Decimal, PlazoPago As Integer, UsaLimiteCredito As Boolean, CveUsuario As Integer, CveEmpresa As Integer, Optional CveTipoFechaVencimiento As Integer = 1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Comp_ProveedorLimiteCreditoUpdate")
 
-    With SqlAdapter.SelectCommand.Parameters
-        .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
-        .Add("@LimiteCredito", SqlDbType.Money).Value = LimiteCredito
-        .Add("@PlazoPago", SqlDbType.Int).Value = PlazoPago
-        .Add("@UsaLimiteCredito", SqlDbType.Bit).Value = UsaLimiteCredito
-        .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-        .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-    End With
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+            .Add("@LimiteCredito", SqlDbType.Money).Value = LimiteCredito
+            .Add("@PlazoPago", SqlDbType.Int).Value = PlazoPago
+            .Add("@UsaLimiteCredito", SqlDbType.Bit).Value = UsaLimiteCredito
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveTipoFechaVencimiento", SqlDbType.TinyInt).Value = CveTipoFechaVencimiento
 
-    Try
-        SqlAdapter.Fill(Data)
-        Retorno = True
-    Catch ex As Exception
-        OnError("Ocurrió un error al Actualizar el limite de crédito del Proveedor.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-    End Try
+        End With
 
-    Return Retorno
-End Function
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al Actualizar el limite de crédito del Proveedor.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
 
     Public Function UpdateProveedorPagoElectronico(EstatusPagoElectronico As Boolean, CveUsuario As Integer, CveProveedor As Integer) As Boolean
         Dim Retorno As Boolean = False
diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index a80a8b9a8..35f1ec5fc 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -2476,7 +2476,7 @@
                                                 </div>
                                             </ItemTemplate>
                                         </asp:TemplateField>
-                                        <asp:BoundField DataField="Obs" ItemStyle-Width="300px" ControlStyle-CssClass="Texto" />
+                                        <asp:BoundField DataField="Obs"  ControlStyle-CssClass="Texto" />
                                         <asp:TemplateField ItemStyle-Width="20%">
                                             <ItemTemplate>
                                                 <asp:TextBox runat="server" ID="TxtReferencia" Width="120px"></asp:TextBox>
@@ -2491,23 +2491,12 @@
                                                 </asp:DropDownList>
                                             </ItemTemplate>
                                         </asp:TemplateField>
-                                        <asp:TemplateField ItemStyle-Width="20%">
+                                        <asp:TemplateField ItemStyle-Width="30%">
                                             <ItemTemplate>
-
-                                                <asp:DropDownList ID="DdlPersonalGv" DataTextField="NombreCompletoNombre" DataValueField="CvePersonal" AppendDataBoundItems="true" runat="server" Width="100%" CssClass="form-control input-sm select2me">
+                                                <asp:DropDownList ID="DdlPersonalGv" DataTextField="NombreCompletoNombre" DataValueField="CvePersonal" AppendDataBoundItems="true" runat="server" Width="100%" CssClass="form-control select2me" style="margin-top:15px!important  " >
                                                     <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
-                                                </asp:DropDownList>
-                                                <%--<asp:Label runat="server" ID="LbCveAF" Text='<%# Eval("CodAF")%>'></asp:Label>--%>
-                                                <%--<asp:TextBox ID="LblCodigo" Text='<%# Eval("CodAF")%>' runat="server" Visible="false" Width="40px"></asp:TextBox>
-
-                                                            <asp:HyperLink runat="server" ImageUrl="/Imagenes/buscar.gif" ID="HLBuscarAF"></asp:HyperLink>
-
-                                                            <asp:HiddenField runat="server" ID="HdnCveConcepto" Value='<%# Eval("CveConcepto")%>' />
-                                                            <asp:HiddenField runat="server" ID="HdnIndex" />
-                                                            <asp:HiddenField runat="server" ID="HdnCveAF" Value='<%# Eval("CveActivoFijo")%>' />
-                                                            <asp:HiddenField runat="server" ID="HdnCodAF" Value='<%# Eval("CodAF")%>' />--%>
-                                            </ItemTemplate>
-                                            <%--                                            <ItemStyle Width="90px" />--%>
+                                                </asp:DropDownList>                                                
+                                            </ItemTemplate>                                            
                                         </asp:TemplateField>
                                         <asp:TemplateField ItemStyle-Width="100px">
                                             <ItemTemplate>
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 8fefa2be5..1c656dea0 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1568,6 +1568,7 @@ Partial Class Compras_Compras
                 If UsuarioActual.CveEmpresa = 189 Then
                     BtnCancelarCompra.Visible = False
                 End If
+                CargaGvPersonal()
             Else
 
                 ViewState("CveProveedor") = -1
@@ -9357,6 +9358,16 @@ Partial Class Compras_Compras
 
                                 Dim CvePersonal As Integer = 0
                                 If Cont < GvPersonal.Rows.Count Then CvePersonal = GvPersonal.Rows(Cont).FCDropDownList("DdlPersonalGv").SelectedValue.ToEntero
+
+                                'If CvePersonal <= 0 AndAlso RBLContado.SelectedValue.ToEntero = 2 AndAlso TxtNumeroReembolso.Text.Length > 0 Then
+                                '    CvePersonal = DdlPersonalReembolso.SelectedValue.ToEntero
+                                '    If Not CvePersonal > 0 Then
+                                '        Alert("Debe asignar personal al reembolso.", TipoMensaje.MsgAdvertencia)
+                                '        Retorno = False
+                                '    End If
+                                'End If
+
+
                                 Dim Referencia As String = ""
                                 If Cont < GvPersonal.Rows.Count Then Referencia = GvPersonal.Rows(Cont).FCTextBox("TxtReferencia").Text
 
diff --git a/Compras/Proveedores.aspx b/Compras/Proveedores.aspx
index 81079cc46..d15ca089f 100644
--- a/Compras/Proveedores.aspx
+++ b/Compras/Proveedores.aspx
@@ -3287,6 +3287,17 @@
                             <label for="<%= ChkUsaLimiteCredito.ClientID.ToString()%>">Usa límite de crédito:</label>
                             <asp:CheckBox ID="ChkUsaLimiteCredito" runat="server" />
                         </div>
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:DropDownList runat="server" ID="DdlTipoFechaVencimiento" CssClass="form-control select2me" Width="200px">
+                                <asp:ListItem Value="-1">-</asp:ListItem>
+                                <asp:ListItem Value="1">Fecha Factura</asp:ListItem>
+                                <asp:ListItem Value="2">Fecha Entrada</asp:ListItem>
+                            </asp:DropDownList>
+                            <asp:RequiredFieldValidator ID="RfvDdlTipoFechaVencimiento" InitialValue="-1" runat="server" ControlToValidate="DdlTipoFechaVencimiento" Display="None" 
+                                ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Fecha Vencimiento''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>                            
+                            <ajax:ValidatorCalloutExtender ID="VCRfvDdlTipoFechaVencimiento" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlTipoFechaVencimiento" Width="300px"></ajax:ValidatorCalloutExtender>                            
+                            <label for="<%= DdlTipoFechaVencimiento.ClientID.ToString()%>">Tipo Fecha Vencimiento:</label>
+                        </div>
                     </div>
                     <div class="modal-footer">
                         <asp:LinkButton ID="LnkAddParametros" CssClass="btn btn-success" Text="Guardar" runat="server"></asp:LinkButton>
diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb
index 51eeafbab..fb5d7c9be 100644
--- a/Compras/Proveedores.aspx.vb
+++ b/Compras/Proveedores.aspx.vb
@@ -930,6 +930,7 @@ Partial Class Compras_Proveedores
                 TxtPlazoCobranza.Text = ObjProveedor.PlazoPago.ToString
                 LblLimiteCredito.Text = ObjProveedor.LimiteCredito.ToString.FormatoNumero
                 LblPlazoCobranza.Text = ObjProveedor.PlazoPago.ToString
+                DdlTipoFechaVencimiento.SelectedValueExist(ObjProveedor.CveTipoFechaVencimiento)
 
                 'Sistema
                 ChkEstado.Checked = ObjProveedor.Estatus = "Activo"
@@ -4177,7 +4178,9 @@ Partial Class Compras_Proveedores
 
         If CveProveedor > 0 Then
             Dim ObjPro As New ClsCompProveedores
-            If ObjPro.UpdateProveedorLimiteCredito(CveProveedor, TxtLimiteCredito.Text.ToDecimal, TxtPlazoCobranza.Text.ToEntero, ChkUsaLimiteCredito.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+            If ObjPro.UpdateProveedorLimiteCredito(CveProveedor, TxtLimiteCredito.Text.ToDecimal, TxtPlazoCobranza.Text.ToEntero, ChkUsaLimiteCredito.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
+                                                   DdlTipoFechaVencimiento.SelectedValue.ToEntero) Then
+
                 Alert("Limite de crédito modificado correctamente.")
                 RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddParametros"))
             End If
diff --git a/Compras/RepProductosServicios.aspx b/Compras/RepProductosServicios.aspx
index 96311d001..4803b18dc 100644
--- a/Compras/RepProductosServicios.aspx
+++ b/Compras/RepProductosServicios.aspx
@@ -41,6 +41,13 @@
             width: 100%;
             height: 500px;
         }
+          .select2-container--default .select2-selection--multiple .select2-selection__choice {
+       
+       max-width: calc(100% - 2em);
+       text-overflow: ellipsis;
+       overflow: hidden;
+       white-space: nowrap;
+     }
     </style>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
diff --git a/Compras/RepProductosServicios.aspx.vb b/Compras/RepProductosServicios.aspx.vb
index 990ab0642..038eb11fa 100644
--- a/Compras/RepProductosServicios.aspx.vb
+++ b/Compras/RepProductosServicios.aspx.vb
@@ -146,7 +146,17 @@ Partial Class Compras_RepProductosServicios
         DdlGrupo.Items.Insert(7, New ListItem("Proveedor", "10"))
         DdlGrupo.Items.Insert(8, New ListItem("Usuario", "11"))
         DdlGrupo.Items.Insert(9, New ListItem("Estatus Fact.", "12"))
-        If UsuarioActual.Empresa.Funcionalidad(307) <> "" Then DdlGrupo.Items.Insert(10, New ListItem(UsuarioActual.Empresa.Funcionalidad(307), "1"))
+
+        DdlGrupo.Items.Insert(10, New ListItem("Sucursal", "2"))
+        DdlGrupo.Items.Insert(11, New ListItem("Tipo de Gasto", "16"))
+        DdlGrupo.Items.Insert(12, New ListItem("Activo Fijo", "17"))
+        DdlGrupo.Items.Insert(13, New ListItem("Sub Tipo Activo Fijo", "18"))
+        DdlGrupo.Items.Insert(14, New ListItem("Tipo Activo Fijo", "19"))
+        DdlGrupo.Items.Insert(15, New ListItem("Tipo Documento", "20"))
+
+
+
+        If UsuarioActual.Empresa.Funcionalidad(307) <> "" Then DdlGrupo.Items.Insert(16, New ListItem(UsuarioActual.Empresa.Funcionalidad(307), "1"))
 
         'Agrega el grupo si es una empresa Agricola
         If UsuarioActual.Empresa.Funcionalidad(590).ToString.ToEntero = 1 Then
@@ -209,7 +219,7 @@ Partial Class Compras_RepProductosServicios
     Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
 
-            If DdlGrupo.SelectedValue.ToEntero < 13 Or DdlGrupo.SelectedValue.ToEntero = 15 Then
+            If DdlGrupo.SelectedValue.ToEntero < 13 Or DdlGrupo.SelectedValue.ToEntero = 15 Or (DdlGrupo.SelectedValue.ToEntero >= 16) Then
                 If e.Row.DBCampo("GpoID") = "1" Then
                     e.Row.Cells(0).Text = e.Row.DBCampo("Moneda")
                     e.Row.CssClass = "Totales"
@@ -256,11 +266,21 @@ Partial Class Compras_RepProductosServicios
             End If
 
 
-            Dim Liga = String.Format("/Compras/RepProductosServiciosDetalle.aspx?GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveEstatusFactura={7}&FechaI={8}&FechaF={9}&CveProyecto={10}&CveSubProyecto={11}&CveCategoria={12}&CveClasificacion={13}&CvePS={14}&CveFamilia={15}&CveSubFamilia={16}&CveTipoAF={17}&CveSubTipoAF={18}&CveAF={19}&CveMoneda={20}&CveTipoGasto={21}&TipoCambio={22}&TCEspecifico={23}&Deducible={24}&CveCultivo={25}",
+            'Dim Liga = String.Format("/Compras/RepProductosServiciosDetalle.aspx?GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveEstatusFactura={7}&FechaI={8}&FechaF={9}&CveProyecto={10}&CveSubProyecto={11}&CveCategoria={12}" &
+            '                                    "&CveClasificacion={13}&CvePS={14}&CveFamilia={15}&CveSubFamilia={16}&CveTipoAF={17}&CveSubTipoAF={18}&CveAF={19}&CveMoneda={20}&CveTipoGasto={21}&TipoCambio={22}&TCEspecifico={23}&Deducible={24}&CveCultivo={25}" &
+            '                                    "",
+            '                                    DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"),
+            '                                    e.Row.DBCampo("CveEstatusFactura"), FechaI, FechaF, e.Row.DBCampo("CveProyecto"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveCategoria"), e.Row.DBCampo("CveClasificacion"),
+            '                                    e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveFamilia"), e.Row.DBCampo("CveSubFamilia"), e.Row.DBCampo("CveTipoAF"), e.Row.DBCampo("CveSubTipoAF"), e.Row.DBCampo("CveAF"), e.Row.DBCampo("CveMoneda"),
+            '                                    DdlTipoGasto.GetSelectedValuesM, e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), DdlDeducible.SelectedValue.ToEntero, e.Row.DBCampo("CveCultivo"))
+
+            Dim Liga = String.Format("/Compras/RepProductosServiciosDetalle.aspx?GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveEstatusFactura={7}&FechaI={8}&FechaF={9}&CveProyecto={10}&CveSubProyecto={11}&CveCategoria={12}" &
+                                                "&CveClasificacion={13}&CvePS={14}&CveFamilia={15}&CveSubFamilia={16}&CveTipoAF={17}&CveSubTipoAF={18}&CveAF={19}&CveMoneda={20}&CveTipoGasto={21}&TipoCambio={22}&TCEspecifico={23}&Deducible={24}&CveCultivo={25}" &
+                                                "",
                                                 DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"),
                                                 e.Row.DBCampo("CveEstatusFactura"), FechaI, FechaF, e.Row.DBCampo("CveProyecto"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveCategoria"), e.Row.DBCampo("CveClasificacion"),
                                                 e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveFamilia"), e.Row.DBCampo("CveSubFamilia"), e.Row.DBCampo("CveTipoAF"), e.Row.DBCampo("CveSubTipoAF"), e.Row.DBCampo("CveAF"), e.Row.DBCampo("CveMoneda"),
-                                                DdlTipoGasto.GetSelectedValuesM, e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), DdlDeducible.SelectedValue.ToEntero, e.Row.DBCampo("CveCultivo"))
+                                                e.Row.DBCampo("CveTipoGasto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), DdlDeducible.SelectedValue.ToEntero, e.Row.DBCampo("CveCultivo"))
 
 
             If Not e.Row.DBCampo("GpoID") = "1" Then
diff --git a/Compras/RepProductosServiciosDetalle.aspx.vb b/Compras/RepProductosServiciosDetalle.aspx.vb
index 2288c44b6..5f089a190 100644
--- a/Compras/RepProductosServiciosDetalle.aspx.vb
+++ b/Compras/RepProductosServiciosDetalle.aspx.vb
@@ -95,7 +95,9 @@ Partial Class Compras_RepProductosServiciosDetalle
         Usuario = If(Request("CveUsuario") IsNot Nothing AndAlso Request("CveUsuario").ToEntero() > 0, Request("CveUsuario").ToEntero(), -1).ToString
         Familia = If(Request("CveFamilia") IsNot Nothing AndAlso Request("CveFamilia").ToEntero() > -3, Request("CveFamilia").ToEntero(), -1).ToString
         SubFamilia = If(Request("CveSubFamilia") IsNot Nothing AndAlso Request("CveSubFamilia").ToEntero() > -3, Request("CveSubFamilia").ToEntero(), -1).ToString
-        ActivoFijo = If(Request("CveAF") IsNot Nothing AndAlso Request("CveAF").ToEntero() > 0, Request("CveAF").ToEntero(), -1).ToString
+
+        ActivoFijo = If(Request("CveAF") IsNot Nothing AndAlso (Request("CveAF").ToEntero() > 0 Or Request("CveAF").ToEntero() = -2), Request("CveAF").ToEntero(), -1).ToString
+
         CveMoneda = If(Request("CveMoneda") IsNot Nothing AndAlso Request("CveMoneda").ToEntero() > 0, Request("CveMoneda").ToEntero(), -1).ToString.ToEntero
         TipoDocto = If(Request("TipoDocto") IsNot Nothing, Request("TipoDocto").ToString, "-1").ToString
         Deducible = If(Request("Deducible") IsNot Nothing, Request("Deducible").ToString, "-1").ToString
@@ -187,6 +189,7 @@ Partial Class Compras_RepProductosServiciosDetalle
         'Carga Tipos de Gasto
         DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa)
         DdlTipoGasto.DataBind()
+        DdlTipoGasto.Items.Add(New ListItem("Sin Asignar", "-2"))
 
         'Cargo Categorias
         DdlCategoria.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa)
@@ -227,10 +230,12 @@ Partial Class Compras_RepProductosServiciosDetalle
         'Carga Tipos AF
         DdlTipoAF.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa)
         DdlTipoAF.DataBind()
+        DdlTipoAF.Items.Add(New ListItem("Sin Asignar", "-2"))
 
         'Carga SubTipos AF
         DdlSubTipoAF.DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa)
         DdlSubTipoAF.DataBind()
+        DdlSubTipoAF.Items.Add(New ListItem("Sin Asignar", "-2"))
 
         'Carga Grupos
         CargaGrupo()
@@ -261,6 +266,13 @@ Partial Class Compras_RepProductosServiciosDetalle
             DdlGrupo.Items.Insert(9, New ListItem("Cultivo", "15"))
         End If
 
+        DdlGrupo.Items.Insert(10, New ListItem("Sucursal", "2"))
+        DdlGrupo.Items.Insert(11, New ListItem("Tipo de Gasto", "16"))
+        DdlGrupo.Items.Insert(12, New ListItem("Activo Fijo", "17"))
+        DdlGrupo.Items.Insert(13, New ListItem("Sub Tipo Activo Fijo", "18"))
+        DdlGrupo.Items.Insert(14, New ListItem("Tipo Activo Fijo", "19"))
+        DdlGrupo.Items.Insert(15, New ListItem("Tipo Documento", "20"))
+
         DdlGrupo.DataBind()
         DdlGrupo.SelectedValueExist("8")
     End Sub
diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb
index cb015e6f0..ef8415673 100644
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -2,9 +2,11 @@
 Option Explicit On
 
 Imports System.Data
+Imports System.Data.SqlClient
 Imports System.IO
 Imports Extensiones
 Imports GemBox.Spreadsheet
+Imports Microsoft.Owin.Security.Provider
 Imports Microsoft.Reporting.WebForms
 
 Partial Class Inventarios_RecepcionAlmacen
@@ -2568,6 +2570,7 @@ Partial Class Inventarios_RecepcionAlmacen
 
         End If
 
+        Dim CveProveedorCompra As Integer = -1
         Try
             'RECARGA TC CUANDO ES RECEPCION CON OC Y DOLARES
             If CveOCSurtir > 0 And CveMoneda <> 1 Then
@@ -3346,6 +3349,7 @@ Partial Class Inventarios_RecepcionAlmacen
             End If
 
             'PREPOLIZA - SOLO CUANDO SEA RECEPCIÓN
+
             If TipoMovimiento = 1 AndAlso Not ErrorMovInv Then
                 If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
 
@@ -3372,6 +3376,7 @@ Partial Class Inventarios_RecepcionAlmacen
                                 'Fecha = ObjCompras.DtResultados(0)("Fecha").ToString.ToDate
                                 Fecha = TxtFecha.Text.ToDate
                                 CveProveedor = ObjCompras.DtResultados(0)("CveProveedor").ToString.ToEntero
+                                CveProveedorCompra = CveProveedor
                                 ProveedorNombre = ObjCompras.DtResultados(0)("RazonSocial").ToString
                                 SerieFolio = $"Compra: {ObjCompras.DtResultados(0)("SerieFolio").ToString}"
                                 CveConceptoContableCosto = 205
@@ -3663,6 +3668,12 @@ Partial Class Inventarios_RecepcionAlmacen
             RenombrarBitacoras()
         End If
 
+        If Not ErrorMovInv And CveProveedorCompra > 0 And CveCompraSurtir > 0 Then
+            If Not ActualizaFechaVencimientoCompra(CveCompraSurtir, CveProveedorCompra, ObjInventario.IniciaTransacSQL) Then
+                ErrorMovInv = True
+            End If
+        End If
+
         'FINAL
         If Not ErrorMovInv Then
             ObjInventario.Commit() ' aplica los movimientos insertados
@@ -3764,6 +3775,31 @@ Partial Class Inventarios_RecepcionAlmacen
         If ObjContaAC IsNot Nothing Then ObjContaAC.Dispose()
     End Sub
 
+    Private Function ActualizaFechaVencimientoCompra(CveCompra As Integer, CveProveedor As Integer, TransaccionSql As SqlTransaction) As Boolean
+
+        Dim ErrorProceso As Boolean = False
+
+        Dim objProveedores As New ClsCompProveedores(TransaccionSql)
+        Dim objCompras As New ClsCompras(TransaccionSql)
+        Dim CveTipoFechaVencimiento As Integer = 1
+
+        If objProveedores.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProveedor, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
+            CveTipoFechaVencimiento = objProveedores.CveTipoFechaVencimiento
+        Else
+            ErrorProceso = True
+        End If
+
+        If CveTipoFechaVencimiento = 2 Then
+            If Not objCompras.UpdateFechaVencimientoCompra(CveCompra, TxtFecha.Text.ToDate, UsuarioActual.CveEmpresa) Then
+                ErrorProceso = True
+            End If
+        End If
+
+
+        Return If(ErrorProceso, False, True)
+
+    End Function
+
     Private Sub RenombrarBitacoras()
         Dim fechaActual As String = DateTime.Now.ToString("yyyyMMddHHmmss")
 
diff --git a/OC/RepOC.aspx b/OC/RepOC.aspx
index 465511b98..5d48cdaf7 100644
--- a/OC/RepOC.aspx
+++ b/OC/RepOC.aspx
@@ -265,7 +265,7 @@
                             <ADS:Dropdownlost ID="ddlclientes" runat="server" CssClassDdl="select2me" CssStyle="width: 100%;" Width="100%"  DataTextField="NombreComercial" DataValueField="CveCliente"></ADS:Dropdownlost>
                         </div>
                         <div class="colf-3">
-                            <asp:CheckBox Text="No Completa" TextAlign="Left" CssClass="md-checksd2" ID="CheckNoCompleta" Visible="true" runat="server" />
+                            <asp:CheckBox Text="No Completa" TextAlign="Left" CssClass="md-checksd2" ID="CheckNoCompleta" Visible="false" runat="server" />
                         </div>
                         <label class="colf-1">Entrega Directa</label>
                         <div class="colf-2">
diff --git a/OC/RepOC.aspx.vb b/OC/RepOC.aspx.vb
index 375bb8a6c..3c26e13b2 100644
--- a/OC/RepOC.aspx.vb
+++ b/OC/RepOC.aspx.vb
@@ -380,12 +380,16 @@ Partial Class RepOC
         FF = FF.AddDays(1)
 
         Dim OC As New ClsOC
+
+        'If(CheckNoCompleta.Checked, -1, UsuarioActual.CveUsuario), UsuarioActual.Empresa.CveEmpresa, If(DDlPS.SelectedValue = "", -1, DDlPS.SelectedValue.ToEntero), If(CheckNoCompleta.Checked, True, False),
+
+
         If OC.GetOrdenesCompraRep(DdlTipo.SelectedValue.ToString, DdlProyectos.SelectedValue.ToEntero, DdlSubProyectos.SelectedValue.ToEntero, DDlClasificacion.SelectedValue.ToEntero,
-                        DdlEstatus.SelectedValue.ToEntero, FI, FF, -1, DdlProveedores.SelectedValue.ToEntero, If(txtFolio.Text.ToEntero = 0, -1, txtFolio.Text.ToEntero), ddlUsuario.SelectedValue.ToEntero,
-                        If(CheckNoCompleta.Checked, -1, UsuarioActual.CveUsuario), UsuarioActual.Empresa.CveEmpresa, If(DDlPS.SelectedValue = "", -1, DDlPS.SelectedValue.ToEntero), If(CheckNoCompleta.Checked, True, False),
-                        ddlclientes.SelectedValue.ToEntero, CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero, SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False),
-                        CveUsuarioAutorizo:=DdlUsuarioAutorizo.SelectedValue.ToEntero(), CveUsuarioAsignado:=DdlUsuarioAsignado.SelectedValue.ToEntero(), EntregaDirecta:=DdlEntregaDirecta.SelectedValue.ToEntero(),
-                        CveMoneda:=DdlMoneda.SelectedValue.ToEntero(), MetodoPago:=DdlMetodoPago.SelectedValue.ToEntero, TieneAnticipo:=DdlTieneAnticipo.SelectedValue.ToEntero) Then
+                       DdlEstatus.SelectedValue.ToEntero, FI, FF, -1, DdlProveedores.SelectedValue.ToEntero, If(txtFolio.Text.ToEntero = 0, -1, txtFolio.Text.ToEntero), ddlUsuario.SelectedValue.ToEntero,
+                       UsuarioActual.CveUsuario, UsuarioActual.Empresa.CveEmpresa, If(DDlPS.SelectedValue = "", -1, DDlPS.SelectedValue.ToEntero), False,
+                       ddlclientes.SelectedValue.ToEntero, CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero, SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False),
+                       CveUsuarioAutorizo:=DdlUsuarioAutorizo.SelectedValue.ToEntero(), CveUsuarioAsignado:=DdlUsuarioAsignado.SelectedValue.ToEntero(), EntregaDirecta:=DdlEntregaDirecta.SelectedValue.ToEntero(),
+                       CveMoneda:=DdlMoneda.SelectedValue.ToEntero(), MetodoPago:=DdlMetodoPago.SelectedValue.ToEntero, TieneAnticipo:=DdlTieneAnticipo.SelectedValue.ToEntero) Then
 
             GvConsultar.DataSource = OC.DtResultados
             DtOC = OC.DtResultados
diff --git a/Ventas/RepRecuperacion.aspx b/Ventas/RepRecuperacion.aspx
index 78b9ad4ce..7e66bf55e 100644
--- a/Ventas/RepRecuperacion.aspx
+++ b/Ventas/RepRecuperacion.aspx
@@ -53,22 +53,13 @@
             height: 500px;
         }
         .select2-container--default .select2-selection--multiple .select2-selection__choice {
-              /*max-width: 150px;*/ /* Ajusta a tu gusto */
+              
               max-width: calc(100% - 2em);
               text-overflow: ellipsis;
               overflow: hidden;
               white-space: nowrap;
             }
-        /*.select2-selection__choice__remove{*/
-                /* o absolute/fixed, según necesites */
-                 /*position: absolute; 
-                z-index: 9999;*/     /* un valor alto para estar sobre los demás */
-        /*}
-        .select2-search.select2-search--inline .select2-search__field .select2-selection__rendered .select2-container--default .select2-container--focus {
-
-            position: absolute;
-            z-index: 1;            
-        }*/
+        
 
   
     </style>