diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index 2edbabca2..65871174c 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -4804,13 +4804,15 @@
                         <div class="form-group form-md-line-input input-iconright">
                                <asp:GridView ID="GvSolDev" runat="server" AutoGenerateColumns="false" GridLines="none" BorderWidth="0" DataKeyNames="CveCompraDetalle,CvePS" CssClass="table GvPS table-striped table-hover table-advance Widthall ScrollAD mysmallbtn">
                                    <Columns>
+                                       <%--<%#Eval("Cantidad") %>--%>
                                         <asp:TemplateField ItemStyle-Width="55px" HeaderText="Cant">
                                                 <ItemTemplate>
-                                                    <asp:TextBox ID="TxtCant" runat="server" Text='<%#Eval("Cantidad") %>' Width="50px" ></asp:TextBox>
+                                                    <asp:TextBox ID="TxtCant" runat="server" Text='' Width="50px" ></asp:TextBox>
                                                 </ItemTemplate>
                                             </asp:TemplateField>
                                        <asp:BoundField DataField="UM" headertext="UM" />
                                        <asp:BoundField DataField="CodigoPS" headertext="Producto" />
+                                       <asp:BoundField DataField="Total" DataFormatString="{0:#,##0.00####}" ItemStyle-HorizontalAlign="Right" />
                                    </Columns>
                                </asp:GridView>
                         </div>
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index d737eb295..f64ea9e9c 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -15369,6 +15369,10 @@ Partial Class Compras_Compras
             SubTotalGV += gvr.FCTextBox("TxtTotalOC1").Text.ToDecimal
             If Cont = 0 Then DdlProveedorSucursal.SelectedValueExist(gvr.DataKey("CveProveedorSucursal").ToEntero())
             Cont = 1
+            If GvOC1.Columns(6).Visible Then
+                Dim SatPS As String = gvr.FCDropDownLost("DdlSATPS").SelectedText()
+                Alert(SatPS)
+            End If
         Next
 
         If Math.Abs(SubTotalGV - SubTotalCompra) < DiferenciaPermitida Then