RepAnt-NC, saldados no contabilizables empresa 13

Compras/Compras.aspx.vb

@@ -4090,6 +4090,10 @@ Partial Class Compras_Compras
 
         '------------------ INICIA VALIDACIONES ------------------
 
+        If Not ValidaSeleccionAnticipo() Then
+            Alert("El proveedor tiene anticipos sin aplicar, favor de especiar uno.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
 
 
         Dim TotalRealDevolucion As Decimal = 0
@@ -20563,8 +20567,40 @@ Partial Class Compras_Compras
 
     End Sub
 
+
+    Private Function ValidaSeleccionAnticipo() As Boolean
+
+        Dim Respuesta As Boolean
+
+        If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
+            If GVAnticipos.Rows.Count > 0 Then
+
+                For Each GVRow As GridViewRow In GVAnticipos.Rows
+                    If GVRow.FCCheckBox("Chk").Checked AndAlso GVRow.FCTextBox("TxtAnticipo").Text.ToDecimal > 0 Then
+                        Respuesta = True
+                        Exit For
+                    Else
+                        Respuesta = False
+                    End If
+                Next
+
+            Else
+                Respuesta = True
+            End If
+
+        Else
+            Respuesta = True
+        End If
+
+        Return Respuesta
+
+    End Function
+
 End Class
 
+
+
+
 Public Class MMensajeDevolucion
     Public Property CveMovimiento As Integer
     Public Property TieneError As Boolean