-- Cambios en timbrado, Método/Forma Pago

2025-01-13 06:59:42 -07:00
parent 9a2e0baf05
commit aa13ab1990
13 changed files with 205 additions and 344 deletions
--- a/Ashx/E141.ashx
+++ b/Ashx/E141.ashx
@@ -807,7 +807,6 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
            ObjFactura.CondicionEntrega = ""
            ObjFactura.NumeroCuenta = ""
            ObjFactura.CondicionesPago = 0
-            ObjFactura.FormaPago = 0
            ObjFactura.PedidoContrato = ""
            ObjFactura.NumeroContrato = ""
            ObjFactura.DescripcionContrato = ""
@@ -833,17 +832,17 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
            If ObjFactura.TipoDocto = "Cot" Then
                If ObjClientes.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1, TipoCliente:=-1) Then
                    If ObjClientes.DtResultados.Rows.Count > 0 Then
-                        ObjFactura.CveFormaPago33 = ObjClientes.CveFormaPago33
-                        ObjFactura.FormaPago33 = ClsPaginas.GlobalDTVtaFormaPago.FiltroPrimeroValor("FormaPago", String.Format("CveFormaPago = {0}", ObjClientes.CveFormaPago33))
-                        ObjFactura.FormaPagoSAT33 = ClsPaginas.GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", String.Format("CveFormaPago = {0}", ObjClientes.CveFormaPago33))
+                        ObjFactura.CveFormaPago = ObjClientes.CveFormaPago33
+                        ObjFactura.FormaPago = ClsPaginas.GlobalDTVtaFormaPago.FiltroPrimeroValor("FormaPago", String.Format("CveFormaPago = {0}", ObjClientes.CveFormaPago33))
+                        ObjFactura.ClaveFormaPagoSAT = ClsPaginas.GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", String.Format("CveFormaPago = {0}", ObjClientes.CveFormaPago33))

-                        ObjFactura.CveMetodoPago33 = ObjClientes.CveMetodoPago33
-                        ObjFactura.MetodoPago33 = ClsPaginas.GlobalDTVtaMetodoPago.FiltroPrimeroValor("MetodoPago", String.Format("CveMetodoPago = {0}", ObjClientes.CveMetodoPago33))
+                        ObjFactura.CveMetodoPago = ObjClientes.CveMetodoPago33
+                        ObjFactura.MetodoPago = ClsPaginas.GlobalDTVtaMetodoPago.FiltroPrimeroValor("MetodoPago", String.Format("CveMetodoPago = {0}", ObjClientes.CveMetodoPago33))
                        ObjFactura.ClaveMetodoPagoSAT = ClsPaginas.GlobalDTVtaMetodoPago.FiltroPrimeroValor("ClaveMetodoPagoSAT", String.Format("CveMetodoPago = {0}", ObjClientes.CveMetodoPago33))

                        ObjFactura.CveUsoCFDI = ObjClientes.CveUsoCFDI
                        ObjFactura.UsoCFDI = ClsPaginas.GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", String.Format("CveUsoCFDI = {0}", ObjClientes.CveUsoCFDI))
-                        ObjFactura.ClaveUsoCFDI = ClsPaginas.GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", String.Format("CveUsoCFDI = {0}", ObjClientes.CveUsoCFDI))
+                        ObjFactura.ClaveUsoCFDISAT = ClsPaginas.GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", String.Format("CveUsoCFDI = {0}", ObjClientes.CveUsoCFDI))

                    End If
                End If
@@ -860,9 +859,9 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
                If Not String.IsNullOrEmpty(JsonRequest("invoice_way_to_pay").ToString()) Then
                    Dim RowFormaPago As DataRow = ClsPaginas.GlobalDTVtaFormaPago.FiltroPrimero(String.Format("ClaveFormaPagoSAT = '{0}'", JsonRequest("invoice_way_to_pay").ToString()))
                    If RowFormaPago IsNot Nothing Then
-                        ObjFactura.CveFormaPago33 = RowFormaPago("CveFormaPago").ToString().ToEntero()
-                        ObjFactura.FormaPago33 = RowFormaPago("FormaPago").ToString()
-                        ObjFactura.FormaPagoSAT33 = RowFormaPago("ClaveFormaPagoSAT").ToString()
+                        ObjFactura.CveFormaPago = RowFormaPago("CveFormaPago").ToString().ToEntero()
+                        ObjFactura.FormaPago = RowFormaPago("FormaPago").ToString()
+                        ObjFactura.ClaveFormaPagoSAT = RowFormaPago("ClaveFormaPagoSAT").ToString()
                    Else
                        Resp.TieneError = False
                        Resp.Mensajes.Add("No se encontro la forma de pago")
@@ -886,7 +885,7 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
                    If RowUsoCFDi IsNot Nothing Then
                        ObjFactura.CveUsoCFDI = RowUsoCFDi("CveUsoCFDI").ToString().ToEntero()
                        ObjFactura.UsoCFDI = RowUsoCFDi("Descripcion").ToString()
-                        ObjFactura.ClaveUsoCFDI = RowUsoCFDi("UsoCFDI").ToString()
+                        ObjFactura.ClaveUsoCFDISAT = RowUsoCFDi("UsoCFDI").ToString()
                    Else
                        Resp.TieneError = False
                        Resp.Mensajes.Add("No se encontro el uso cfdi")
@@ -908,8 +907,8 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
                If Not String.IsNullOrEmpty(JsonRequest("invoice_payment_method").ToString()) Then
                    Dim RowMetodoPago As DataRow = ClsPaginas.GlobalDTVtaMetodoPago.FiltroPrimero(String.Format("ClaveMetodoPagoSAT = '{0}'", JsonRequest("invoice_payment_method").ToString()))
                    If RowMetodoPago IsNot Nothing Then
-                        ObjFactura.CveMetodoPago33 = RowMetodoPago("CveMetodoPago").ToString().ToEntero()
-                        ObjFactura.MetodoPago33 = RowMetodoPago("MetodoPago").ToString()
+                        ObjFactura.CveMetodoPago = RowMetodoPago("CveMetodoPago").ToString().ToEntero()
+                        ObjFactura.MetodoPago = RowMetodoPago("MetodoPago").ToString()
                        ObjFactura.ClaveMetodoPagoSAT = RowMetodoPago("ClaveMetodoPagoSAT").ToString()
                    Else
                        Resp.TieneError = False
@@ -981,7 +980,7 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
                End If

                Dim Cliente = ObjFactura.Cliente
-                If Not ObjClientes.UpdateClienteNoFrencuente(CveCliente, Cliente.Nombre, Cliente.Direccion, Cliente.NoExt, Cliente.NoInt, Cliente.Colonia, Cliente.Localidad, Cliente.Ciudad, CveEstado, Cliente.RFC, Cliente.CP, Cliente.Telefono, Cliente.Mail, CveSubProyecto, UsuarioActual.CveUsuario, CveEmpresa, "-1", ObjFactura.CveMetodoPago33, ObjFactura.CveFormaPago33) Then
+                If Not ObjClientes.UpdateClienteNoFrencuente(CveCliente, Cliente.Nombre, Cliente.Direccion, Cliente.NoExt, Cliente.NoInt, Cliente.Colonia, Cliente.Localidad, Cliente.Ciudad, CveEstado, Cliente.RFC, Cliente.CP, Cliente.Telefono, Cliente.Mail, CveSubProyecto, UsuarioActual.CveUsuario, CveEmpresa, "-1", ObjFactura.CveMetodoPago, ObjFactura.CveFormaPago) Then
                    Resp.TieneError = False
                    Resp.Mensajes.Add("No se puedo actualizar un cliente")
                    Return Nothing
@@ -1091,8 +1090,8 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
        Timbre.Comprobante.Folio = Obj.Folio.ToString
        Timbre.Comprobante.Serie = Obj.Serie
        Timbre.Comprobante.Fecha = Obj.FechaCP
-        Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33
-        Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33
+        Timbre.Comprobante.FormadePago = Obj.FormaPago
+        Timbre.Comprobante.CondicionesdePago = Obj.FormaPago
        Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT
        Timbre.Comprobante.Subtotal = Obj.SubTotal
        Timbre.Comprobante.Descuentos = Obj.Descuento
@@ -1107,7 +1106,7 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
        Timbre.Receptor.Nombre = Obj.Cliente.Nombre
        Timbre.Receptor.ResidenciaFiscal = ""
        Timbre.Receptor.NumeroRegistroTributario = ""
-        Timbre.Receptor.UsoCFDI = Obj.ClaveUsoCFDI
+        Timbre.Receptor.UsoCFDI = Obj.ClaveUsoCFDISAT


        If Obj.CveTipoRelacion > 0 Then
--- a/Ashx/E194.ashx
+++ b/Ashx/E194.ashx
@@ -301,7 +301,6 @@ Public Class E194 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
            ObjFactura.CondicionEntrega = ""
            ObjFactura.NumeroCuenta = ""
            ObjFactura.CondicionesPago = 0
-            ObjFactura.FormaPago = 0
            ObjFactura.PedidoContrato = ""
            ObjFactura.NumeroContrato = ""
            ObjFactura.DescripcionContrato = ""
@@ -327,17 +326,17 @@ Public Class E194 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
            Dim ObjCliente As New ClsClientes
            If ObjCliente.GetClientes(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.CveFormaPago = ObjCliente.CveFormaPago33
+                    ObjFactura.FormaPago = ClsPaginas.GlobalDTVtaFormaPago.FiltroPrimeroValor("FormaPago", String.Format("CveFormaPago = {0}", ObjCliente.CveFormaPago33))
+                    ObjFactura.ClaveFormaPagoSAT = 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.CveMetodoPago = ObjCliente.CveMetodoPago33
+                    ObjFactura.MetodoPago = 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))
+                    ObjFactura.ClaveUsoCFDISAT = ClsPaginas.GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI))

                    'ObjFactura.CveMetodoPago = ObjCliente.CveMetodoPago

@@ -424,8 +423,8 @@ Public Class E194 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
        Timbre.Comprobante.Folio = Obj.Folio.ToString
        Timbre.Comprobante.Serie = Obj.Serie
        Timbre.Comprobante.Fecha = Obj.FechaCP
-        Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33
-        Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33
+        Timbre.Comprobante.FormadePago = Obj.ClaveFormaPagoSAT
+        Timbre.Comprobante.CondicionesdePago = Obj.FormaPago
        Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT
        Timbre.Comprobante.SubTotal = Obj.SubTotal
        Timbre.Comprobante.Descuentos = Obj.Descuento
@@ -440,7 +439,7 @@ Public Class E194 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
        Timbre.Receptor.Nombre = Obj.Cliente.Nombre
        Timbre.Receptor.ResidenciaFiscal = ""
        Timbre.Receptor.NumeroRegistroTributario = ""
-        Timbre.Receptor.UsoCFDI = Obj.ClaveUsoCFDI
+        Timbre.Receptor.UsoCFDI = Obj.ClaveUsoCFDISAT


        If Obj.CveTipoRelacion > 0 Then
--- a/Ashx/SIGFacturacion.ashx
+++ b/Ashx/SIGFacturacion.ashx
@@ -281,16 +281,13 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
            ObjFactura.Folio = Folio.ToEntero()
            ObjFactura.TipoMensajeRespuesta = TipoMensajeRespuesta.TextoLimpio
            ObjFactura.Version = "4.0"
-            ObjFactura.FolioFiscal = ""
            ObjFactura.CveUsuario = UsuarioActual.CveUsuario
            ObjFactura.CveEmpresa = UsuarioActual.CveEmpresa
-            ObjFactura.TipoCambio = 1
-            ObjFactura.ConvertirPesos = False
+
            ObjFactura.CveMoneda = CveMoneda
            ObjFactura.Moneda = ClsPaginas.GlobalDTMonedas.FiltroPrimeroValor("Moneda", String.Format("CveMoneda = {0} ", CveMoneda))
            ObjFactura.MonedaSAT = ClsPaginas.GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", String.Format("CveMoneda = {0} ", CveMoneda))
            ObjFactura.TipoDocto = "Ing"
-            ObjFactura.RefDocto = ""
            'ObjFactura.CveMesa = -1
            ObjFactura.Fecha = ClsPaginas.NowADS()
            ObjFactura.CvePrePoliza = -1
@@ -299,19 +296,9 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
            ObjFactura.FechaEjecucion = ClsPaginas.NowADS()
            ObjFactura.UsuarioCreo = UsuarioActual.Usuario
            ObjFactura.CveCondicionEntrega = -1
-            ObjFactura.CondicionEntrega = ""
-            ObjFactura.NumeroCuenta = ""
+
            ObjFactura.CondicionesPago = 0
-            ObjFactura.FormaPago = 0
-            ObjFactura.PedidoContrato = ""
-            ObjFactura.NumeroContrato = ""
-            ObjFactura.DescripcionContrato = ""
-            ObjFactura.CveCorte = -1
            ObjFactura.TipoDocumento = "Ingresos"
-            ObjFactura.Alfa1 = ""
-            ObjFactura.Alfa2 = ""
-            ObjFactura.Alfa3 = ""
-            ObjFactura.CveContrato = -1
            ObjFactura.ConvertirPesos = False
            ObjFactura.CveSubProyecto = CveSubProyecto
            ObjFactura.CveSubProyectoCobranza = CveSubProyecto
@@ -327,17 +314,17 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
            Dim ObjCliente As New ClsClientes
            If ObjCliente.GetClientes(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.CveFormaPago = ObjCliente.CveFormaPago33
+                    ObjFactura.FormaPago = ClsPaginas.GlobalDTVtaFormaPago.FiltroPrimeroValor("FormaPago", String.Format("CveFormaPago = {0}", ObjCliente.CveFormaPago33))
+                    ObjFactura.ClaveFormaPagoSAT = 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.CveMetodoPago = ObjCliente.CveMetodoPago33
+                    ObjFactura.MetodoPago = 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))
+                    ObjFactura.ClaveUsoCFDISAT = ClsPaginas.GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI))

                    'ObjFactura.CveMetodoPago = ObjCliente.CveMetodoPago

@@ -424,8 +411,8 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
        Timbre.Comprobante.Folio = Obj.Folio.ToString
        Timbre.Comprobante.Serie = Obj.Serie
        Timbre.Comprobante.Fecha = Obj.FechaCP
-        Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33
-        Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33
+        Timbre.Comprobante.FormadePago = Obj.ClaveFormaPagoSAT
+        Timbre.Comprobante.CondicionesdePago = Obj.FormaPago
        Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT
        Timbre.Comprobante.Subtotal = Obj.SubTotal
        Timbre.Comprobante.Descuentos = Obj.Descuento
@@ -440,7 +427,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
        Timbre.Receptor.Nombre = Obj.Cliente.Nombre
        Timbre.Receptor.ResidenciaFiscal = ""
        Timbre.Receptor.NumeroRegistroTributario = ""
-        Timbre.Receptor.UsoCFDI = Obj.ClaveUsoCFDI
+        Timbre.Receptor.UsoCFDI = Obj.ClaveUsoCFDISAT


        If Obj.CveTipoRelacion > 0 Then
--- a/Ashx/SIGFacturacionCiclica.ashx
+++ b/Ashx/SIGFacturacionCiclica.ashx
@@ -311,7 +311,6 @@ Public Class SIGFacturacionCiclica : Implements IHttpHandler, IRequiresSessionSt
            'ObjFactura.CveSucursal = GlobalDTSucursales.FiltroPrimeroValor("CveSucursal", $"CveEmpresa = {UsuarioActual.CveEmpresa}").ToEntero
            'ObjFactura.Cliente.NumCtaPago = TxtNumCtaPago.Text.Trim
            ObjFactura.CondicionesPago = 0
-            ObjFactura.FormaPago = 0
            'ObjFactura.SerieFolio = String.Format("{0}-{1}", LblSerie.Text, TxtFolio.Text)
            ObjFactura.PedidoContrato = ""
            ObjFactura.NumeroContrato = DR("NumeroContrato").ToString
@@ -406,41 +405,6 @@ Public Class SIGFacturacionCiclica : Implements IHttpHandler, IRequiresSessionSt
            ObjFactura.CveCliente = DR("CveCliente").ToString.ToEntero
            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))
-
-                    'ObjFactura.CveMetodoPago = ObjCliente.CveMetodoPago
-
-                    'If GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago)).Rows.Count > 0 Then
-                    '    ObjFactura.MetodoPago = GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago)).Rows(0)("MetodoPago").ToString
-                    'Else
-                    '    ObjFactura.CveMetodoPago = 1
-                    '    ObjFactura.MetodoPago = "Efectivo"
-                    'End If
-                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()
-
            'SUBPROYECTO
            'ObjFactura.SetSubProyectoMatriz(Me)
            'ObjFactura.SetSubProyecto(Me)
@@ -451,7 +415,6 @@ Public Class SIGFacturacionCiclica : Implements IHttpHandler, IRequiresSessionSt
            OnError("Ocurrió un error al generar la factura", ex)
        End Try

-
        Return ObjFactura

    End Function
@@ -462,8 +425,8 @@ Public Class SIGFacturacionCiclica : Implements IHttpHandler, IRequiresSessionSt
        Timbre.Comprobante.Folio = Obj.Folio.ToString
        Timbre.Comprobante.Serie = Obj.Serie
        Timbre.Comprobante.Fecha = Obj.FechaCP
-        Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33
-        Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33
+        Timbre.Comprobante.FormadePago = Obj.ClaveFormaPagoSAT
+        Timbre.Comprobante.CondicionesdePago = Obj.FormaPago
        Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT
        Timbre.Comprobante.Subtotal = Obj.SubTotal
        Timbre.Comprobante.Descuentos = Obj.Descuento
@@ -478,8 +441,7 @@ Public Class SIGFacturacionCiclica : Implements IHttpHandler, IRequiresSessionSt
        Timbre.Receptor.Nombre = Obj.Cliente.Nombre
        Timbre.Receptor.ResidenciaFiscal = ""
        Timbre.Receptor.NumeroRegistroTributario = ""
-        Timbre.Receptor.UsoCFDI = Obj.ClaveUsoCFDI
-
+        Timbre.Receptor.UsoCFDI = Obj.ClaveUsoCFDISAT

        If Obj.CveTipoRelacion > 0 Then
            Select Case Obj.CveTipoRelacion