Relacionar NC de descuento por pronto pago

Ventas/ClientesAbonar.aspx.vb

@@ -651,7 +651,24 @@ Partial Class Ventas_ClientesAbonar
 
     Protected Sub BtnIEGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click
 
-
+        'SI ES EMPRESA DE ACUMULADORES DEBE OBLIGAR A SUBIR UN ARCHIVO
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+            Dim files = Anexo.getfiles()
+            If files IsNot Nothing Then
+                If files.Archivos IsNot Nothing Then
+                    If files.Archivos.Count = 0 Then
+                        Alert("Debe anexar un archivo", TipoMensaje.MsgAdvertencia)
+                        Exit Sub
+                    End If
+                Else
+                    Alert("Debe anexar un archivo", TipoMensaje.MsgAdvertencia)
+                    Exit Sub
+                End If
+            Else
+                Alert("Debe anexar un archivo", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+        End If
 
         Dim ValFechaDocumento As Boolean = False
         Dim FoliosFechasValFechaDocumento As New StringBuilder
@@ -1948,11 +1965,19 @@ Partial Class Ventas_ClientesAbonar
 
         ObjFacturaDevolucion.CveTipoRelacion = 7
         ObjFacturaDevolucion.TipoRelacion = "07"
+        ObjFacturaDevolucion.DtVentasRelacionadas = New DataTable
+        ObjFacturaDevolucion.DtVentasRelacionadas.Columns.Add("CveVenta", GetType(Integer))
 
         Dim Fol As New List(Of String)
         For Each Fac In ListaVentasGenerarNC
             Fol.Add(Fac.FolioFiscal)
+
+            Dim RowVenta As DataRow = ObjFacturaDevolucion.DtVentasRelacionadas.NewRow
+            RowVenta("CveVenta") = Fac.CveVenta
+
+            ObjFacturaDevolucion.DtVentasRelacionadas.Rows.Add(RowVenta)
         Next
+
         ObjFacturaDevolucion.UUIDRelacionados = Fol
 
         Select Case ObjFacturaDevolucion.TipoDocto