haciendo pull

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