From 65771e7fbb7c5f36972e5b354b614d63df68565a Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Sat, 25 Nov 2023 18:43:06 -0700
Subject: [PATCH] -- quitar timbrado de NC si se hace desde el boton emitir al
 emitir un Ingreso

---
 Ventas/Ventas.aspx.vb | 53 ++++++++++++++++++++++---------------------
 1 file changed, 27 insertions(+), 26 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 522b4753f..959bef263 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -16323,32 +16323,33 @@ Partial Class Ventas
                         OnError("Ocurrió un error al enviar el PDF", ex)
                     End Try
 
-                    If ObjFactura.TipoDocto = "Ing" AndAlso ObjFactura.Timbre.CFDIRelacionados.TipoRelacion = "07" Then
-                        CreaObjetosVentaAmortizacion(Nothing, ObjTimbrado.UUID, ObjFactura.CveVentaRelacion, CveVenta)
-                        For Each Gvr As GridViewRow In GvAntNC.Rows
-                            If Gvr.DataKey("FolioFiscal").ToString() = "" AndAlso Gvr.DataKey("TipoDocto") = "Egs" Then
-                                ObjFacturaDevolucion.CveVenta = Gvr.DataKey("CveVenta").ToEntero()
-                                ObjFacturaDevolucion.Serie = Gvr.DataKey("Serie").ToString()
-                                ObjFacturaDevolucion.Folio = Gvr.DataKey("Folio").ToEntero()
-                                ObjFacturaDevolucion.Timbre = PreParaTimbre(ObjFacturaDevolucion)
-                            End If
-                            Exit For
-                        Next
-                        If ObjFacturaDevolucion.CveVenta.ToEntero() > 0 Then
-                            Dim Obj2 As New List(Of Object)
-                            Obj2.Add(ObjFacturaDevolucion)
-                            If Not IsNothing(Obj2) AndAlso Obj2.Count > 0 Then
-                                Dim ofa As Modelos.Factura = CType(Obj2(0), Modelos.Factura)
-                                ofa.Timbre.CFDIRelacionados.UUID.Clear()
-                                ofa.Timbre.CFDIRelacionados.UUID.Add(ObjTimbrado.UUID)
-                                If ObjTimbrado.TimbrarFactura(UsuarioActual, ofa) Then
-                                    MensajeAlert.AppendFormat(String.Format("<br/>La {0}: <b>{1}</b>  se timbro correctamente.<br/><br/>", ofa.TipoDocumento, ofa.SerieFolio))
-                                Else
-                                    MensajeAlert.AppendFormat(String.Format("<br/>La {0}: <b>{1}</b> no se timbro correctamente.<br/><br/>", ofa.TipoDocumento, ofa.SerieFolio))
-                                End If
-                            End If
-                        End If
-                    End If
+                    'SE COMENTA PORQUE SE GENERA LA NOTA DE CREDITO CON LOS IMPORTES DE LA VENTA
+                    'If ObjFactura.TipoDocto = "Ing" AndAlso ObjFactura.Timbre.CFDIRelacionados.TipoRelacion = "07" Then
+                    '    CreaObjetosVentaAmortizacion(Nothing, ObjTimbrado.UUID, ObjFactura.CveVentaRelacion, CveVenta)
+                    '    For Each Gvr As GridViewRow In GvAntNC.Rows
+                    '        If Gvr.DataKey("FolioFiscal").ToString() = "" AndAlso Gvr.DataKey("TipoDocto") = "Egs" Then
+                    '            ObjFacturaDevolucion.CveVenta = Gvr.DataKey("CveVenta").ToEntero()
+                    '            ObjFacturaDevolucion.Serie = Gvr.DataKey("Serie").ToString()
+                    '            ObjFacturaDevolucion.Folio = Gvr.DataKey("Folio").ToEntero()
+                    '            ObjFacturaDevolucion.Timbre = PreParaTimbre(ObjFacturaDevolucion)
+                    '        End If
+                    '        Exit For
+                    '    Next
+                    '    If ObjFacturaDevolucion.CveVenta.ToEntero() > 0 Then
+                    '        Dim Obj2 As New List(Of Object)
+                    '        Obj2.Add(ObjFacturaDevolucion)
+                    '        If Not IsNothing(Obj2) AndAlso Obj2.Count > 0 Then
+                    '            Dim ofa As Modelos.Factura = CType(Obj2(0), Modelos.Factura)
+                    '            ofa.Timbre.CFDIRelacionados.UUID.Clear()
+                    '            ofa.Timbre.CFDIRelacionados.UUID.Add(ObjTimbrado.UUID)
+                    '            If ObjTimbrado.TimbrarFactura(UsuarioActual, ofa) Then
+                    '                MensajeAlert.AppendFormat(String.Format("<br/>La {0}: <b>{1}</b>  se timbro correctamente.<br/><br/>", ofa.TipoDocumento, ofa.SerieFolio))
+                    '            Else
+                    '                MensajeAlert.AppendFormat(String.Format("<br/>La {0}: <b>{1}</b> no se timbro correctamente.<br/><br/>", ofa.TipoDocumento, ofa.SerieFolio))
+                    '            End If
+                    '        End If
+                    '    End If
+                    'End If
 
 
                     'NOTIFICACION DE SMS