diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index b8dd69b13..16ac7f41e 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -1306,43 +1306,14 @@ Namespace Modelos
                 ObjFactura.FechaEjecucion = DateTime.Today
                 ObjFactura.UsuarioCreo = UsuarioActual.Usuario
                 ObjFactura.TipoDocumento = ObjFactura.TipodeComprobante
-
                 'Totales, Y se llena TmpDTImpuestos
                 'CLIENTE
                 ObjFactura.CveCliente = CveCliente
                 ObjFactura.SetCliente()
 
-                'Dim ObjCliente As New ClsClientes
-                'If ObjCliente.GetClientes(ObjFactura.CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1, TipoCliente:=-1) Then
-                '    If ObjCliente.DtResultados.Rows.Count > 0 Then
-                '        ObjFactura.CveFormaPago33 = ObjCliente.CveFormaPago33
-                '        ObjFactura.FormaPago33 = ClsPaginas.GlobalDTVtaFormaPago.FiltroPrimeroValor("FormaPago", String.Format("CveFormaPago = {0}", ObjCliente.CveFormaPago33))
-                '        ObjFactura.FormaPagoSAT33 = ClsPaginas.GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", String.Format("CveFormaPago = {0}", ObjCliente.CveFormaPago33))
-
-                '        ObjFactura.CveMetodoPago33 = ObjCliente.CveMetodoPago33
-                '        ObjFactura.MetodoPago33 = ClsPaginas.GlobalDTVtaMetodoPago.FiltroPrimeroValor("MetodoPago", String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33))
-                '        ObjFactura.ClaveMetodoPagoSAT = ClsPaginas.GlobalDTVtaMetodoPago.FiltroPrimeroValor("ClaveMetodoPagoSAT", String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33))
-
-                '        ObjFactura.CveUsoCFDI = ObjCliente.CveUsoCFDI
-                '        ObjFactura.UsoCFDI = ClsPaginas.GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI))
-                '        ObjFactura.ClaveUsoCFDI = ClsPaginas.GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI))
-                '    End If
-                'End If
-
-                ''If ObjCliente.GetSucursales(ObjFactura.CveCliente) Then
-                ''    If ObjCliente.DtResultados.Rows.Count > 0 Then
-                ''        ObjFactura.CveClienteSucursal = If(String.IsNullOrEmpty(ObjCliente.DtResultados.FiltroPrimeroValor("CveClienteSucursal", "Estatus = 'Activo'")), -1, ObjCliente.DtResultados.FiltroPrimeroValor("CveClienteSucursal", "Estatus = 'Activo'").ToEntero())
-                ''    Else
-                ''        ObjFactura.CveClienteSucursal = -1
-                ''    End If
-                ''End If
-                'ObjCliente.Dispose()
-
                 ObjFactura.CveSubProyecto = CveSubProyecto.ToEntero
-
                 ObjFactura.SetSubProyecto()
                 ObjFactura.SetSubProyectoMatriz()
-
                 ObjFactura.CveSubProyectoCobranza = CveSubProyecto.ToEntero
                 ObjFactura.CveSubProyectoEjecucion = CveSubProyecto.ToEntero