From a14b979586b6b79c0a99c551aeb1c21de17fe6a6 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 20 Dec 2023 18:29:31 -0700
Subject: [PATCH] -- omitir llamado a ventas_facturas

---
 App_Code/ClsVentas.vb | 32 ++++++++++++++++----------------
 App_Code/Modelos.vb   | 10 +++++-----
 2 files changed, 21 insertions(+), 21 deletions(-)

diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index 767e2dcf7..911f51a6b 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -3219,26 +3219,26 @@ Public Class ClsVentas
 
 
 
-    Public Function UpdateVentaFacturas(CveFactura As Integer, CveVenta As Integer, CveEmpresa As Integer) As Boolean
-        Dim OnError As Boolean = False
+    'Public Function UpdateVentaFacturas(CveFactura As Integer, CveVenta As Integer, CveEmpresa As Integer) As Boolean
+    '    Dim OnError As Boolean = False
 
 
-        DataAdapter("PA_Vta_FacturaVentaUpdate")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
-            .Add("@CveFactura", SqlDbType.Int).Value = CveFactura
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
+    '    DataAdapter("PA_Vta_FacturaVentaUpdate")
+    '    With SqlAdapter.SelectCommand.Parameters
+    '        .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
+    '        .Add("@CveFactura", SqlDbType.Int).Value = CveFactura
+    '        .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+    '    End With
 
-        Try
-            SqlAdapter.Fill(Data)
-            OnError = True
-        Catch ex As Exception
-            Me.OnError("Ocurrió un error al actualizar las Facturas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
+    '    Try
+    '        SqlAdapter.Fill(Data)
+    '        OnError = True
+    '    Catch ex As Exception
+    '        Me.OnError("Ocurrió un error al actualizar las Facturas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+    '    End Try
 
-        Return OnError
-    End Function
+    '    Return OnError
+    'End Function
     Public Function ProcesoPrepolizasCancelacion(CveVenta As Integer, CveUsuario As Integer) As Boolean
         Dim OnError As Boolean = False
 
diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index 3d2cc4adc..d922e528d 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -961,11 +961,11 @@ Namespace Modelos
                                 End If
                             End If
 
-                            If Me.CveFactura > 0 AndAlso ErrorList.Count = 0 Then
-                                If Not ObjVentas.UpdateVentaFacturas(Me.CveFactura, ObjVentas.CveVenta, UsuarioActual.CveEmpresa) Then
-                                    ErrorList.Add("No se pudo actualizar la Factura")
-                                End If
-                            End If
+                            'If Me.CveFactura > 0 AndAlso ErrorList.Count = 0 Then
+                            '    If Not ObjVentas.UpdateVentaFacturas(Me.CveFactura, ObjVentas.CveVenta, UsuarioActual.CveEmpresa) Then
+                            '        ErrorList.Add("No se pudo actualizar la Factura")
+                            '    End If
+                            'End If
 
                             If CveCicloComercial > 0 AndAlso ErrorList.Count = 0 Then
                                 If Not ObjContr.CicloComercialUpdate(Me.CveCicloComercial, True, UsuarioActual.CveEmpresa, CveVenta:=CveVenta) Then