diff --git a/Ventas/CatPreciosLista.aspx b/Ventas/CatPreciosLista.aspx
index 6bf575b55..585fa41ad 100644
--- a/Ventas/CatPreciosLista.aspx
+++ b/Ventas/CatPreciosLista.aspx
@@ -27,7 +27,7 @@
     </div>
         <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" GridLines="None" DataKeyNames="CvePrecioLista, PrecioLista, Estatus" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" data-sort="true" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de Compuestos Activos">
+            <asp:GridView ID="GvDatos" runat="server" GridLines="None" DataKeyNames="CvePrecioLista, PrecioLista, Estatus,Predeterminada" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" data-sort="true" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de Compuestos Activos">
                 <Columns>
                     <asp:BoundField DataField="PrecioLista" ItemStyle-Width="50%" HeaderText="Precio de lista" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField DataField="FechaIng" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-Width="20%" HeaderText="Fecha Ing" ItemStyle-HorizontalAlign="center" />
@@ -69,6 +69,9 @@
                                     <asp:RequiredFieldValidator ID="RFVNombrePlantilla" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtPrecioLista" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Precio de Lista''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
                                     <label for="<%= TxtPrecioLista.ClientID.ToString()%>">Precio de Lista:</label>
                                 </div>
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:CheckBox ID="ChkPredeterminada" runat="server" Text="Predeterminada"   CausesValidation="true"></asp:CheckBox>                                
+                                </div>
                                <div id="dvEstatus" runat="server" class="form-group form-md-line-input input-iconright">
                                     <label>Activo: </label>
                                     <asp:Checkbox  ID="chkEstatus" Text=" " runat="server" CssClass="chksino" Width="250px">
diff --git a/Ventas/CatPreciosLista.aspx.vb b/Ventas/CatPreciosLista.aspx.vb
index ef7b2f5c4..984de355d 100644
--- a/Ventas/CatPreciosLista.aspx.vb
+++ b/Ventas/CatPreciosLista.aspx.vb
@@ -50,10 +50,11 @@ Partial Class Ventas_CatPreciosLista
     End Sub
 
     Protected Sub imgE_Click(sender As Object, e As EventArgs)
-        Dim Boton = CType(sender, LinkButton)
+        Dim Boton As LinkButton = CType(sender, LinkButton)
         CvePrecioLista = Boton.CommandArgument.ToEntero
         Dim GvRow As GridViewRow = DirectCast(Boton.NamingContainer, GridViewRow)
-        TxtPrecioLista.Text = GvRow.DataKey("PrecioLista").ToString
+        TxtPrecioLista.Text = GvRow.DataKey("PrecioLista").ToString
+        ChkPredeterminada.Checked = GvRow.DataKey("Predeterminada") = "True"
         chkEstatus.Checked = CBool(GvRow.DataKey("Estatus"))
         EsEditar = 1
         BtnAgregarCatalogo.Text = "Actualizar"
@@ -67,13 +68,13 @@ Partial Class Ventas_CatPreciosLista
         Dim ObjVta As New ClsVentas
 
         If EsEditar = 0 Then
-            If ObjVta.AddPrecioLista(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtPrecioLista.Text, 0) > 0 Then
+            If ObjVta.AddPrecioLista(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtPrecioLista.Text, ChkPredeterminada.Checked, 0) > 0 Then
                 Alert("El Precio de Lista se agregó correctamente", TipoMensaje.MsgInformacion)
             Else
                 Alert("Ocurrió un error al agregar el Precio de Lista", TipoMensaje.MsgError)
             End If
         ElseIf EsEditar = 1 Then
-            If ObjVta.UpdatePrecioLista(TxtPrecioLista.Text, chkEstatus.Checked, UsuarioActual.CveUsuario, 0, CvePrecioLista) Then
+            If ObjVta.UpdatePrecioLista(TxtPrecioLista.Text, chkEstatus.Checked, UsuarioActual.CveUsuario, 0, ChkPredeterminada.Checked, CvePrecioLista) Then
                 Alert("El Precio de Lista se editó correctamente", TipoMensaje.MsgInformacion)
             Else
                 Alert("Ocurrió un error al editar al Precio de Lista", TipoMensaje.MsgError)