diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 09ae15afd..d3ae88ce9 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -12267,19 +12267,19 @@ Partial Class Ventas
         Timbre.Receptor.NumeroRegistroTributario = ""
         Timbre.Receptor.UsoCFDI = Obj.ClaveUsoCFDI
 
-        Timbre.Comprobante.TipoComprobante = If(ObjFactura.TipoDocto.Contiene("Ing", "Ant"), "I", If(ObjFactura.TipoDocto.Contiene("Egs", "Dev"), "E", ""))
+        Timbre.Comprobante.TipoComprobante = If(Obj.TipoDocto.Contiene("Ing", "Ant"), "I", If(Obj.TipoDocto.Contiene("Egs", "Dev"), "E", ""))
 
         If Timbre.Comprobante.TipoComprobante = "E" Then
-            If ObjFactura.TipoDocto = "Egs" Then
+            If Obj.TipoDocto = "Egs" Then
                 Timbre.CFDIRelacionados.TipoRelacion = "01"
                 Timbre.CFDIRelacionados.TipoRelacionTexto = "Nota de Crédito aplicada a Ingreso"
 
             End If
-            If ObjFactura.TipoDocto = "Dev" Then
+            If Obj.TipoDocto = "Dev" Then
                 Timbre.CFDIRelacionados.TipoRelacion = "03"
                 Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso"
             End If
-            ObjFactura.CveTipoRelacion = DdlTiposRelacion.SelectedValue.ToEntero()
+            Obj.CveTipoRelacion = DdlTiposRelacion.SelectedValue.ToEntero()
             If HdnFolioFiscalNC.Value <> "0" And HdnFolioFiscalNC.Value <> "" Then Timbre.CFDIRelacionados.UUID.Add(HdnFolioFiscalNC.Value)
         End If
         ' cuando es refacturacoin es cfdirelacionado, con relacion 04
@@ -12447,7 +12447,7 @@ Partial Class Ventas
                         {
                          .TasaRetencion = DrImpuestosLocales("Porcentaje").ToString().ToDecimal,
                          .ImpuestoLocalRetenido = DrImpuestosLocales("ImpuestoLocal").ToString(),
-                         .Importe = DrImpuestosLocales("Importe").ToString().ToDecimal(If(ObjFactura.ConvertirPesos, ObjFactura.TipoCambio, 1)).RoundSQL(2)
+                         .Importe = DrImpuestosLocales("Importe").ToString().ToDecimal(If(Obj.ConvertirPesos, Obj.TipoCambio, 1)).RoundSQL(2)
                         }
                     Timbre.RetencionesLocales.Add(ret)
                 End If
@@ -12458,7 +12458,7 @@ Partial Class Ventas
 
             For Each DrImpuestosLocales As DataRow In TmpDTImpuestos.FiltraParametros("TipoImpuesto = 5").Rows
                 If DrImpuestosLocales("Importe").ToString().ToDecimal > 0 Then
-                    Dim ret As New CFDITrasladosLocales With {.TasaTraslado = DrImpuestosLocales("Porcentaje").ToString().ToDecimal, .ImpuestoLocalTraslado = DrImpuestosLocales("ImpuestoLocal").ToString(), .Importe = DrImpuestosLocales("Importe").ToString().ToDecimal(If(ObjFactura.ConvertirPesos, ObjFactura.TipoCambio, 1))}
+                    Dim ret As New CFDITrasladosLocales With {.TasaTraslado = DrImpuestosLocales("Porcentaje").ToString().ToDecimal, .ImpuestoLocalTraslado = DrImpuestosLocales("ImpuestoLocal").ToString(), .Importe = DrImpuestosLocales("Importe").ToString().ToDecimal(If(Obj.ConvertirPesos, Obj.TipoCambio, 1))}
                     Timbre.TrasladosLocales.Add(ret)
                 End If
             Next