From 15f3bf23571f850f1a39d241ca76d938cb410e51 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Wed, 5 Feb 2020 15:56:07 -0700
Subject: [PATCH] Quitar serie folio de factura en clientes

---
 Ventas/Clientes.aspx.vb | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index f5fb1f7eb..d37ad69e5 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -9197,12 +9197,17 @@ Partial Class Clientes
         AgregarProductoServicio(1, CveUnidadMedida, UnidadMedida, CveClasificacion, Clasificacion, CvePS, PS, "Clientes/Usados", SubTotal, 0, -1, "", DdlSubProyecto.SelectedValue.ToEntero,
                                 DdlSubProyecto.SelectedItem.Text, PorcentajeIVA:=PorcentajeIVA)
 
-        Dim Folio As Integer = 0
+        Dim Folio As Integer = -1
         Dim Serie As String = ""
 
-        If FolioNotaCredito(Tipo) Then
-            Folio = FolioNotaAcumulador
-            Serie = SerieNotaAcumulador
+        'If FolioNotaCredito(Tipo) Then
+        '    Folio = FolioNotaAcumulador
+        '    Serie = SerieNotaAcumulador
+        'End If
+
+        If ObjFactura IsNot Nothing Then
+            ObjFactura.Dispose()
+            ObjFactura = Nothing
         End If
 
         ObjFactura = New Modelos.Factura(UsuarioActual)