--FIX validacion de estatus de cobranza al editar remision, recargar info al cobrar

Ventas/Ventas.aspx.vb

@@ -24757,6 +24757,19 @@ Partial Class Ventas
             Exit Sub
         End If
 
+        'si es de FNC contado. bloquear edición si está pagada o en proceso de cobro
+        If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+            Using ObjVta As New ClsVentas
+                If ObjVta.GetVenta(Me.CveVenta, UsuarioActual.CveEmpresa) Then
+                    Dim DbRowVenta As DataRow = ObjVta.DtResultados.FiltroPrimero("")
+                    If DbRowVenta IsNot Nothing AndAlso (DbRowVenta("CveCobranzaEstatus").ToString = "1" OrElse DbRowVenta("Saldo").ToString.ToDecimal = 0) Then
+                        Alert("No se puede actualizar la información de la remisión porque esta en proceso de cobro. Para aplicar cambios se debera de liberar desde el módulo de 'cobro por caja'.", TipoMensaje.MsgAdvertencia)
+                        Exit Sub
+                    End If
+                End If
+            End Using
+        End If
+
         Dim OcurrioError As Boolean = False
         Dim ObjVentas As New ClsVentas
         ObjVentas.IniciaTransacSQL()