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

Ventas/Ventas.aspx.vb

@@ -11745,14 +11745,13 @@ Partial Class Ventas
         ObjFacturaDevolucion.CvePrePoliza = -1
         ObjFacturaDevolucion.CveMetodoPago = 0 'DdlMetodoPago.SelectedValue.ToEntero()
         ObjFacturaDevolucion.MetodoPago = ""
-        ObjFacturaDevolucion.ClaveMetodoPagoSAT = GlobalDTMetodosPago.FiltroPrimeroValor("ClaveSAT", $"CveMetodoPago = {DdlMetodoPago33.SelectedValue}")
+
         ObjFacturaDevolucion.UsuarioCreo = LblUsuario.Text.Trim
         ' ObjFacturaDevolucion.CveCondicionEntrega = If(DdlFormaEntrega.SelectedItem IsNot Nothing, DdlFormaEntrega.SelectedValue.ToEntero(), -1)
         ' ObjFacturaDevolucion.CondicionEntrega = If(DdlFormaEntrega.SelectedItem IsNot Nothing, DdlFormaEntrega.SelectedItem.Text, "")
         'ObjFacturaDevolucion.NumeroCuenta = TxtNumCtaPago.Text.Trim
         'ObjFacturaDevolucion.Cliente.NumCtaPago = TxtNumCtaPago.Text.Trim
         ObjFacturaDevolucion.CondicionesPago = If(RBLPago.SelectedValue = "2", 0, 1) ' 0 - Contado, 1 - Credito
-        ObjFacturaDevolucion.FormaPago = 0
 
         ObjFacturaDevolucion.TipoDocto = "Egs"
 
@@ -11776,15 +11775,15 @@ Partial Class Ventas
         If ObjFacturaDevolucion.Cliente Is Nothing Then ObjFacturaDevolucion.Cliente = New Modelos.ClienteModel
         ObjFacturaDevolucion.Cliente.CodigoRegimenFiscal = ClienteCodigoRegimenFiscal
         ObjFacturaDevolucion.Cliente.RegimenFiscal = ClienteRegimenFiscal
-        ObjFacturaDevolucion.CveMetodoPago33 = 1
-        ObjFacturaDevolucion.MetodoPago33 = "Pago en una sola exhibición"
+        ObjFacturaDevolucion.CveMetodoPago = 1
+        ObjFacturaDevolucion.MetodoPago = "Pago en una sola exhibición"
         ObjFacturaDevolucion.ClaveMetodoPagoSAT = "PUE"
-        ObjFacturaDevolucion.CveFormaPago33 = 21
-        ObjFacturaDevolucion.FormaPago33 = "Aplicación de anticipos"
-        ObjFacturaDevolucion.FormaPagoSAT33 = "30"
+        ObjFacturaDevolucion.CveFormaPago = 21
+        ObjFacturaDevolucion.FormaPago = "Aplicación de anticipos"
+        ObjFacturaDevolucion.ClaveFormaPagoSAT = "30"
         ObjFacturaDevolucion.CveUsoCFDI = DdlUsoCFDI.SelectedValue.ToEntero()
         ObjFacturaDevolucion.UsoCFDI = DdlUsoCFDI.SelectedItem.Text
-        ObjFacturaDevolucion.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {DdlUsoCFDI.SelectedValue}")
+        ObjFacturaDevolucion.ClaveUsoCFDISAT = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {DdlUsoCFDI.SelectedValue}")
         ObjFacturaDevolucion.CveTipoRelacion = DdlTipoRelacionAnticipo.SelectedValue.ToEntero()
         ObjFacturaDevolucion.TipoRelacion = "07"
 
@@ -12026,14 +12025,13 @@ Partial Class Ventas
         ObjFacturaBonificacion.CvePrePoliza = -1
         ObjFacturaBonificacion.CveMetodoPago = 0 'DdlMetodoPago.SelectedValue.ToEntero()
         ObjFacturaBonificacion.MetodoPago = ""
-        ObjFacturaBonificacion.ClaveMetodoPagoSAT = GlobalDTMetodosPago.FiltroPrimeroValor("ClaveSAT", $"CveMetodoPago = {DdlMetodoPago33.SelectedValue}")
+
         ObjFacturaBonificacion.UsuarioCreo = LblUsuario.Text.Trim
         ' ObjFacturaDevolucion.CveCondicionEntrega = If(DdlFormaEntrega.SelectedItem IsNot Nothing, DdlFormaEntrega.SelectedValue.ToEntero(), -1)
         ' ObjFacturaDevolucion.CondicionEntrega = If(DdlFormaEntrega.SelectedItem IsNot Nothing, DdlFormaEntrega.SelectedItem.Text, "")
         'ObjFacturaDevolucion.NumeroCuenta = TxtNumCtaPago.Text.Trim
         'ObjFacturaDevolucion.Cliente.NumCtaPago = TxtNumCtaPago.Text.Trim
         ObjFacturaBonificacion.CondicionesPago = If(RBLPago.SelectedValue = "2", 0, 1) ' 0 - Contado, 1 - Credito
-        ObjFacturaBonificacion.FormaPago = 0
 
         ObjFacturaBonificacion.TipoDocto = "Egs"
 
@@ -12062,17 +12060,17 @@ Partial Class Ventas
         ObjFacturaBonificacion.Cliente.CodigoRegimenFiscal = ClienteCodigoRegimenFiscal
         ObjFacturaBonificacion.Cliente.RegimenFiscal = ClienteRegimenFiscal
 
-        ObjFacturaBonificacion.CveMetodoPago33 = 1
-        ObjFacturaBonificacion.MetodoPago33 = "Pago en una sola exhibición"
+        ObjFacturaBonificacion.CveMetodoPago = 1
+        ObjFacturaBonificacion.MetodoPago = "Pago en una sola exhibición"
         ObjFacturaBonificacion.ClaveMetodoPagoSAT = "PUE"
 
-        ObjFacturaBonificacion.CveFormaPago33 = 21
-        ObjFacturaBonificacion.FormaPago33 = "Aplicación de anticipos"
-        ObjFacturaBonificacion.FormaPagoSAT33 = "30"
+        ObjFacturaBonificacion.CveFormaPago = 21
+        ObjFacturaBonificacion.FormaPago = "Aplicación de anticipos"
+        ObjFacturaBonificacion.ClaveFormaPagoSAT = "30"
 
         ObjFacturaBonificacion.CveUsoCFDI = DdlUsoCFDI.SelectedValue.ToEntero()
         ObjFacturaBonificacion.UsoCFDI = DdlUsoCFDI.SelectedItem.Text
-        ObjFacturaBonificacion.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {DdlUsoCFDI.SelectedValue}")
+        ObjFacturaBonificacion.ClaveUsoCFDISAT = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {DdlUsoCFDI.SelectedValue}")
 
         ObjFacturaBonificacion.CveTipoRelacion = 1
         ObjFacturaBonificacion.TipoRelacion = "01"
@@ -12538,31 +12536,25 @@ Partial Class Ventas
 
         ObjFactura.Fecha = New Date(TxtFecha.Text.Trim.ToDate.Year, TxtFecha.Text.Trim.ToDate.Month, TxtFecha.Text.Trim.ToDate.Day, NowADS().Hour, NowADS().Minute, NowADS().Second)
         ObjFactura.CvePrePoliza = -1
-        ObjFactura.CveMetodoPago = 0 'DdlMetodoPago.SelectedValue.ToEntero()
-        ObjFactura.MetodoPago = "" ' DdlMetodoPago.SelectedItem.Text
-        ObjFactura.ClaveMetodoPagoSAT = GlobalDTMetodosPago.FiltroPrimeroValor("ClaveSAT", $"CveMetodoPago = {DdlMetodoPago33.SelectedValue}")
         ObjFactura.FechaVencimiento = TxtFechaPago.Text.ToDate
 
-        ' If ObjFactura.TipoDocto = "Cot" Then
+        ObjFactura.CveMetodoPago = DdlMetodoPago33.SelectedValue.ToEntero()
+        ObjFactura.MetodoPago = If(DdlMetodoPago33.SelectedValue.ToEntero() > 0, DdlMetodoPago33.SelectedItem.Text, "")
+        'ObjFactura.ClaveMetodoPagoSAT = GlobalDTVtaMetodoPago.FiltroPrimeroValor("ClaveMetodoPagoSAT", $"CveMetodoPago = {DdlMetodoPago33.SelectedValue}")
 
-        ObjFactura.CveMetodoPago33 = DdlMetodoPago33.SelectedValue.ToEntero()
-        ObjFactura.MetodoPago33 = If(DdlMetodoPago33.SelectedValue.ToEntero() > 0, DdlMetodoPago33.SelectedItem.Text, "")
-        ObjFactura.ClaveMetodoPagoSAT = GlobalDTVtaMetodoPago.FiltroPrimeroValor("ClaveMetodoPagoSAT", $"CveMetodoPago = {DdlMetodoPago33.SelectedValue}")
-
-        ObjFactura.CveFormaPago33 = DdlFormaPago33.SelectedValue.ToEntero()
-        ObjFactura.FormaPago33 = If(DdlFormaPago33.SelectedValue.ToEntero() > 0, DdlFormaPago33.SelectedItem.Text, "")
-        ObjFactura.FormaPagoSAT33 = GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", $"CveFormaPago = {DdlFormaPago33.SelectedValue}")
+        ObjFactura.CveFormaPago = DdlFormaPago33.SelectedValue.ToEntero()
+        ObjFactura.FormaPago = If(DdlFormaPago33.SelectedValue.ToEntero() > 0, DdlFormaPago33.SelectedItem.Text, "")
+        ' ObjFactura.FormaPagoSAT33 = GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", $"CveFormaPago = {DdlFormaPago33.SelectedValue}")
 
         ObjFactura.CveUsoCFDI = DdlUsoCFDI.SelectedValue.ToEntero()
         ObjFactura.UsoCFDI = If(DdlUsoCFDI.SelectedValue.ToEntero() > 0, DdlUsoCFDI.SelectedItem.Text, "")
-        ObjFactura.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {DdlUsoCFDI.SelectedValue}")
+        'ObjFactura.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {DdlUsoCFDI.SelectedValue}")
         ' End If
 
         ObjFactura.UsuarioCreo = LblUsuario.Text.Trim
         ObjFactura.CveCondicionEntrega = If(DdlFormaEntrega.SelectedItem IsNot Nothing, DdlFormaEntrega.SelectedValue.ToEntero(), -1)
         ObjFactura.CondicionEntrega = If(DdlFormaEntrega.SelectedItem IsNot Nothing, DdlFormaEntrega.SelectedItem.Text, "")
         ObjFactura.CondicionesPago = If(RBLPago.SelectedValue = "2", 0, If(RBLPago.SelectedValue = "1", 1, 2)) ' 0 - Contado, 1 - Credito, 2 - termianl
-        ObjFactura.FormaPago = 0 'DdlFormaPago.SelectedValue.ToEntero()
         ObjFactura.AtencionA = TxtAtencionA.Text
         ObjFactura.FordGSDB = ""
         ObjFactura.NumeroContrato = NumeroContrato
@@ -13243,15 +13235,13 @@ Partial Class Ventas
         ObjFacturaDevolucion.CvePrePoliza = -1
         ObjFacturaDevolucion.CveMetodoPago = 0 'DdlMetodoPago.SelectedValue.ToEntero()
         ObjFacturaDevolucion.MetodoPago = "" 'DdlMetodoPago.SelectedItem.Text
-        ObjFacturaDevolucion.ClaveMetodoPagoSAT = GlobalDTMetodosPago.FiltroPrimeroValor("ClaveSAT", $"CveMetodoPago = {DdlMetodoPago33.SelectedValue}")
+
         ObjFacturaDevolucion.UsuarioCreo = LblUsuario.Text.Trim
         ObjFacturaDevolucion.CveCondicionEntrega = If(DdlFormaEntrega.SelectedItem IsNot Nothing, DdlFormaEntrega.SelectedValue.ToEntero(), -1)
         ObjFacturaDevolucion.CondicionEntrega = If(DdlFormaEntrega.SelectedItem IsNot Nothing, DdlFormaEntrega.SelectedItem.Text, "")
-        'ObjFacturaDevolucion.NumeroCuenta = TxtNumCtaPago.Text.Trim
-        'ObjFacturaDevolucion.Cliente.NumCtaPago = TxtNumCtaPago.Text.Trim
-        ObjFacturaDevolucion.CondicionesPago = If(RBLPago.SelectedValue = "2", 0, 1) ' 0 - Contado, 1 - Credito
-        ObjFacturaDevolucion.FormaPago = 0
-        'ObjFacturaDevolucion.SerieFolio = String.Format("{0}-{1}", LblSerie.Text, TxtFolio.Text)
+
+        ObjFacturaDevolucion.CondicionesPago = If(RBLPago.SelectedValue = "2", 0, 1) ' 0 - Contado, 1 - Credito 
+
         ObjFacturaDevolucion.TipoDocto = "Egs"
 
         If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
@@ -13266,12 +13256,9 @@ Partial Class Ventas
                 DT.Dispose()
             End If
             ObjFolios.Dispose()
-
         End If
-
         ObjFacturaDevolucion.Fecha = NowADS()
 
-
         'VALORES DEFAULT DE NC-DEV
         Dim CveUsoCFDIOld As String = DdlUsoCFDI.SelectedValue
         Dim MetodoPago33Old As String = DdlMetodoPago33.SelectedValue
@@ -13283,8 +13270,6 @@ Partial Class Ventas
 
         ObjFacturaDevolucion.SerieFolioPadre = HdnFolioFiscalNC.Value.ToString()
 
-        ObjFacturaDevolucion.Version = "4.0"
-
         If ObjFacturaDevolucion.Cliente Is Nothing Then
             ObjFacturaDevolucion.Cliente = New Modelos.ClienteModel
         End If
@@ -13292,23 +13277,20 @@ Partial Class Ventas
         ObjFacturaDevolucion.Cliente.CodigoRegimenFiscal = ClienteCodigoRegimenFiscal
         ObjFacturaDevolucion.Cliente.RegimenFiscal = ClienteRegimenFiscal
 
-        ObjFacturaDevolucion.CveMetodoPago33 = DdlMetodoPago33.SelectedValue.ToEntero()
-        ObjFacturaDevolucion.MetodoPago33 = If(DdlMetodoPago33.SelectedValue.ToEntero() > 0, DdlMetodoPago33.SelectedItem.Text, "")
-        ObjFacturaDevolucion.ClaveMetodoPagoSAT = GlobalDTVtaMetodoPago.FiltroPrimeroValor("ClaveMetodoPagoSAT", $"CveMetodoPago = {DdlMetodoPago33.SelectedValue}")
+        ObjFacturaDevolucion.CveMetodoPago = DdlMetodoPago33.SelectedValue.ToEntero()
+        ObjFacturaDevolucion.MetodoPago = If(DdlMetodoPago33.SelectedValue.ToEntero() > 0, DdlMetodoPago33.SelectedItem.Text, "")
 
-        ObjFacturaDevolucion.CveFormaPago33 = DdlFormaPago33.SelectedValue.ToEntero()
-        ObjFacturaDevolucion.FormaPago33 = If(DdlFormaPago33.SelectedValue.ToEntero() > 0, DdlFormaPago33.SelectedItem.Text, "")
-        ObjFacturaDevolucion.FormaPagoSAT33 = GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", $"CveFormaPago = {DdlFormaPago33.SelectedValue}")
+        ObjFacturaDevolucion.CveFormaPago = DdlFormaPago33.SelectedValue.ToEntero()
+        ObjFacturaDevolucion.FormaPago = If(DdlFormaPago33.SelectedValue.ToEntero() > 0, DdlFormaPago33.SelectedItem.Text, "")
 
         ObjFacturaDevolucion.CveUsoCFDI = DdlUsoCFDI.SelectedValue.ToEntero()
         ObjFacturaDevolucion.UsoCFDI = If(DdlUsoCFDI.SelectedValue.ToEntero() > 0, DdlUsoCFDI.SelectedItem.Text, "")
-        ObjFacturaDevolucion.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {DdlUsoCFDI.SelectedValue}")
+        ObjFacturaDevolucion.ClaveUsoCFDISAT = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {DdlUsoCFDI.SelectedValue}")
 
         DdlUsoCFDI.SelectedValueExist(CveUsoCFDIOld)
         DdlMetodoPago33.SelectedValueExist(MetodoPago33Old)
         DdlFormaPago33.SelectedValueExist(FormaPago33Old)
 
-
         Select Case ObjFacturaDevolucion.TipoDocto
             Case "Ing"
                 ObjFacturaDevolucion.TipoDocumento = "Factura"
@@ -13545,9 +13527,11 @@ Partial Class Ventas
         Timbre.Comprobante.Folio = Obj.Folio.ToString()
         Timbre.Comprobante.Serie = Obj.Serie
         Timbre.Comprobante.Fecha = Obj.FechaCP
-        Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33
-        Timbre.Comprobante.CondicionesdePago = If(UsuarioActual.CveEmpresa.Contiene(15, 76, 198), "No Aplica", Obj.FormaPago33)
-        Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT
+
+        Timbre.Comprobante.CondicionesdePago = If(UsuarioActual.CveEmpresa.Contiene(15, 76, 198), "No Aplica", Obj.FormaPago)
+        Timbre.Comprobante.MetodoPago = GlobalDTVtaMetodoPago.FiltroPrimeroValor("ClaveMetodoPagoSAT", $"CveMetodoPago = {Obj.CveMetodoPago}") ' Obj.ClaveMetodoPagoSAT
+        Timbre.Comprobante.FormadePago = GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", $"CveFormaPago = {Obj.CveFormaPago}") 'Obj.ClaveFormaPagoSAT
+        Timbre.Receptor.UsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {Obj.CveUsoCFDI}")
         Timbre.Comprobante.SubTotal = Obj.SubTotal
         Timbre.Comprobante.Descuentos = Obj.Descuento
         Timbre.Comprobante.Moneda = Obj.MonedaSAT
@@ -13573,10 +13557,8 @@ Partial Class Ventas
         End If
 
         Timbre.Receptor.RegimenFiscalReceptor = Obj.Cliente.CodigoRegimenFiscal
-
         Timbre.Receptor.ResidenciaFiscal = ""
         Timbre.Receptor.NumeroRegistroTributario = ""
-        Timbre.Receptor.UsoCFDI = Obj.ClaveUsoCFDI
 
         Timbre.Comprobante.TipoComprobante = If(Obj.TipoDocto.Contiene("Ing", "Ant"), "I", If(Obj.TipoDocto.Contiene("Egs", "Dev"), "E", ""))
 
@@ -14505,15 +14487,15 @@ Partial Class Ventas
 
         If Not ObjVentas.AddVenta(factura.TipoDocto, factura.Folio, factura.CveCliente, factura.CveClienteSucursal, factura.SubTotalTC, factura.DescuentoTC,
                            factura.AmortizacionTC, factura.IVATC, factura.RetIVATC, factura.RetISRTC,
-                           factura.TotalTC, factura.CveMoneda, factura.TipoCambio, factura.CveMetodoPago, factura.CondicionesPago, factura.FormaPago, factura.FechaPago, factura.Fecha, factura.MotivoDescuento,
+                           factura.TotalTC, factura.CveMoneda, factura.TipoCambio, factura.CveMetodoPago, factura.CondicionesPago, 0, factura.FechaPago, factura.Fecha, factura.MotivoDescuento,
                            factura.Observaciones, factura.FechaEjecucion, factura.CveVendedor,
                            factura.Alfa1, factura.Alfa2, factura.Alfa3, factura.Num1, factura.Num2, factura.Num3,
                            factura.Fech1, factura.Fech2, factura.Fech3, factura.CveCorte, factura.NumeroPersonas, factura.CvePrePoliza, factura.CveUsuario, factura.CveEmpresa,
                            AtencionA:=factura.AtencionA, TelefonoGenerico:=TxtTelefonoGenerico.Text.Trim, CveContrato:=factura.CveContrato, CveVentaPadre:=If(AplicaDevolucion, CveVentaDevolucion, factura.CveVentaPadre), Det_FechaOrdenCompra:=factura.Det_FechaOrdenCompra, Det_OrdenCompra:=factura.Det_OrdenCompra, otros:=factura.Otros,
                            Entrega:=TxtEntrega.Text, Vigencia:=If(DdlTipoComprobante.SelectedValue = "Cot", TxtFechaVencimientoCotizacion.Text.ToDate, MinFecha),
                            CveAlmacenTraspasoDestino:=CveAlmacenTraspasoDestino, CveAlmacenTraspasoOrigen:=CveAlmacenTraspasoOrigen, CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero(), -1), CveOC:=CveOC, IEPS:=factura.IEPSTC, Serie:=factura.Serie, CveCondicionEntrega:=DdlFormaEntrega.SelectedValue.ToEntero(),
-                           PedidoContrato:=TxtPedidoContrato.Text, ObservacionesAlmacen:=TxtObsAlmacen.Text, CveSubProyecto:=factura.CveSubProyecto, CveSubProyectoCobranza:=factura.CveSubProyectoCobranza, CveSubProyectoEjecucion:=factura.CveSubProyectoEjecucion, CveFormaPago33:=factura.CveFormaPago33,
-                           CveMetodoPago33:=factura.CveMetodoPago33, CveUsoCFDI:=factura.CveUsoCFDI, OrdenCompra:=TxtOrdenCompra.Text, CveCuentaTerminal:=DdlCuentasTerminal.SelectedValue.ToEntero(), CveTipoRelacion:=factura.CveTipoRelacion, ImpuestoLocal:=TotalImpuestoLocal,
+                           PedidoContrato:=TxtPedidoContrato.Text, ObservacionesAlmacen:=TxtObsAlmacen.Text, CveSubProyecto:=factura.CveSubProyecto, CveSubProyectoCobranza:=factura.CveSubProyectoCobranza, CveSubProyectoEjecucion:=factura.CveSubProyectoEjecucion, CveFormaPago33:=factura.CveFormaPago,
+                           CveMetodoPago33:=factura.CveMetodoPago, CveUsoCFDI:=factura.CveUsoCFDI, OrdenCompra:=TxtOrdenCompra.Text, CveCuentaTerminal:=DdlCuentasTerminal.SelectedValue.ToEntero(), CveTipoRelacion:=factura.CveTipoRelacion, ImpuestoLocal:=TotalImpuestoLocal,
                            CveVentaRelacion:=(If(factura.CveVentaRelacion.ToEntero() > 0, factura.CveVentaRelacion, -1)), ImporteRelacion:=(If(factura.ImporteRelacion <> Nothing, factura.ImporteRelacion, -1)),
                            CveTipoAmortizacionAnticipo:=factura.CveTipoAmortizacionAnticipo, CveEmpresaCRM:=CveEmpresaCRM, EsInterno:=EsInterno, CveAcercamientoCRM:=CveAcercamientoCRM,
                            DiasCredito:=factura.DiasCredito, EsDiasCreditoFijo:=factura.EsDiasCreditoFijo, AnticipoEspecial:=If(TrAntEspecial.Visible, ChkAntEspecial.Checked, False),
@@ -37118,13 +37100,13 @@ Partial Class Ventas
             ObjFacturaProntoPago.Cliente.CodigoRegimenFiscal = ClienteCodigoRegimenFiscal
             ObjFacturaProntoPago.Cliente.RegimenFiscal = ClienteRegimenFiscal
 
-            ObjFacturaProntoPago.CveMetodoPago33 = 1
-            ObjFacturaProntoPago.MetodoPago33 = "Pago en una sola exhibición"
+            ObjFacturaProntoPago.CveMetodoPago = 1
+            ObjFacturaProntoPago.MetodoPago = "Pago en una sola exhibición"
             ObjFacturaProntoPago.ClaveMetodoPagoSAT = "PUE"
 
-            ObjFacturaProntoPago.CveFormaPago33 = 21
-            ObjFacturaProntoPago.FormaPago33 = "Aplicación de anticipos"
-            ObjFacturaProntoPago.FormaPagoSAT33 = "30"
+            ObjFacturaProntoPago.CveFormaPago = 21
+            ObjFacturaProntoPago.FormaPago = "Aplicación de anticipos"
+            ObjFacturaProntoPago.ClaveFormaPagoSAT = "30"
 
             ObjFacturaProntoPago.CveSubProyecto = CveSubProyecto
             ObjFacturaProntoPago.SetSubProyecto()
@@ -37136,7 +37118,7 @@ Partial Class Ventas
 
                     ObjFacturaProntoPago.CveUsoCFDI = ObjCliente.CveUsoCFDI
                     ObjFacturaProntoPago.UsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI))
-                    ObjFacturaProntoPago.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI))
+                    ObjFacturaProntoPago.ClaveUsoCFDISAT = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI))
 
                     ObjFacturaProntoPago.DtDetalle = CreaDTDetalleNCProntoPago()