--reacomodo generacion de pdf de cotizacion

Ventas/Ventas.aspx.vb

@@ -16374,7 +16374,7 @@ Partial Class Ventas
         Else
             Try
                 If CveVenta > 0 Then
-                    ObjFactura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False)
+                    ObjFactura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False, VerificaAlmacen:=False)
                 End If
 
                 pdf = PdfFactura(ObjFactura)
@@ -31451,7 +31451,13 @@ Partial Class Ventas
             Alert($"{MensajeError}. Por favor vuelva a intentar.", TipoMensaje.MsgError)
         Else
             ObjVentas.Commit()
+        End If
 
+        ObjVentas.Dispose()
+        ObjConta.Dispose()
+        ObjCGame.Dispose()
+
+        If Not OcurrioError Then
             'ELIMINA PDF VIEJO
             Dim ArchivoPDF As New System.IO.FileInfo(String.Format("{0}PDF\{1}\{2}-{3}.pdf", UsuarioActual.Empresa.Ruta, DdlTipoComprobante.SelectedValue, Serie, Folio))
             If ArchivoPDF.Exists Then
@@ -31465,12 +31471,7 @@ Partial Class Ventas
             Else
                 Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion, "document.location.href=""/Ventas/Ventas.aspx?CveVenta=" & CveVenta & "&&Tipo=Cot"";")
             End If
-
         End If
-
-        ObjVentas.Dispose()
-        ObjConta.Dispose()
-        ObjCGame.Dispose()
     End Sub
 
 #End Region