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)