From 1fba1062eade2067ccac7c3aeccc451816417467 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Wed, 30 Jun 2021 10:18:26 -0700
Subject: [PATCH] Eliminar registro de detalle al cancelar NC con RNC
 relacionada

---
 App_Code/ClsVentas.vb | 18 ++++++++++++++++++
 App_Code/Modelos.vb   |  7 ++++++-
 2 files changed, 24 insertions(+), 1 deletion(-)

diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index d79c9bae5..d2d08206d 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -5038,6 +5038,24 @@ Public Class ClsVentas
         Return Retorno
     End Function
 
+    Public Function RemoveRNCFacturada(CveVentaNC As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_RNCRelacionadasRemove")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveVentaNC", SqlDbType.Int).Value = CveVentaNC
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar las RNC Relacionadas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
 #End Region
 
 #Region "P O R C E N T A J E - C O M I S I O N E S"
diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index ec641de26..afc155043 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -2963,7 +2963,7 @@ Namespace Modelos
                                         Next
                                     End If
 
-                                    If UsuarioActual.Empresa.Funcionalidad(344) = "1" Then
+                                    If UsuarioActual.Empresa.Funcionalidad(344) = "1" AndAlso ObjFactura.TipoDocto = "Egs" Then
                                         Dim ListaNC As List(Of Modelos.Factura) = New List(Of Factura)
                                         Dim DtRNCRelacionas As DataTable = Nothing
 
@@ -3034,6 +3034,11 @@ Namespace Modelos
                                                     importeMovimiento = 0
                                                 End If
                                             Next
+
+                                            If Not ObjVentas.RemoveRNCFacturada(CveVenta) Then
+                                                ErrorPrepoliza = True
+                                            End If
+
                                         End If
                                     End If
                                 Else