From cb83af4ca19ddddda031da956a114c6f6ac963e4 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 16 Jan 2025 09:14:07 -0700 Subject: [PATCH] cambio de propiedad de cveforma33 a CveForma y cvemetodopago33 a cvemetodopago --- App_Code/ClsClientes.vb | 10 ++++------ Ventas/Clientes.aspx.vb | 4 ++-- Ventas/Ventas.aspx.vb | 8 ++++---- 3 files changed, 10 insertions(+), 12 deletions(-) diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index c1729537e..a86e2c02a 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -111,8 +111,8 @@ Public Class ClsClientes Public Property ExtOtros As String Public Property CveUsoCFDI As Integer Public Property CveRegimenFiscal As Integer - Public Property CveFormaPago33 As Integer - Public Property CveMetodoPago33 As Integer + Public Property CveFormaPago As Integer + Public Property CveMetodoPago As Integer Public Property CveClienteCorporativo As String Public Property DesglosaIEPS As Boolean Public Property NoDesglosaIVA As Boolean @@ -332,8 +332,6 @@ Public Class ClsClientes _TipoPago = Data.Rows(0)("TipoPago").ToString _FormaFacturacion = Data(0)("FormaFacturacion").ToString _LimiteCredito = Data(0)("LimiteCredito").ToString.ToDouble - '_NumCtaPago = Data(0)("NumCtaPago").ToString - '_CveMetodoPago = Data(0)("CveMetodoPago").ToString.ToEntero _AplicaFEMSA = CBool(Data(0)("AplicaFEMSA").ToString) _FEMSA_NumSociedad = Data(0)("FEMSA_NumSociedad").ToString _FEMSA_NumProveedor = Data(0)("FEMSA_NumProveedor").ToString @@ -375,8 +373,8 @@ Public Class ClsClientes _CveUsoCFDI = Data(0)("CveUsoCFDI").ToString.ToEntero - _CveFormaPago33 = Data(0)("CveFormaPago").ToString.ToEntero - _CveMetodoPago33 = Data(0)("CveMetodoPago").ToString.ToEntero + _CveFormaPago = Data(0)("CveFormaPago").ToString.ToEntero + _CveMetodoPago = Data(0)("CveMetodoPago").ToString.ToEntero _CveRegimenFiscal = Data(0)("CveRegimenFiscal").ToString.ToEntero diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 3341f52e7..a61492bfd 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -1618,9 +1618,9 @@ Partial Class Clientes ChkMuestraNombre.Checked = ObjClientes.ImprimeNombreSucursal DdlUsoCFDI.SelectedValueExist(ObjClientes.CveUsoCFDI.ToString()) - DdlMetodoPago33.SelectedValueExist(ObjClientes.CveMetodoPago33.ToString()) + DdlMetodoPago33.SelectedValueExist(ObjClientes.CveMetodoPago.ToString()) 'DdlFormaPago33.SelectedValueExist(ObjClientes.CveFormaPago33.ToString()) - CargaFormaDePago(ObjClientes.CveFormaPago33) + CargaFormaDePago(ObjClientes.CveFormaPago) If ObjClientes.CveRegimenFiscal > 0 Then DdlRegimenFiscal.SelectedValueExist(ObjClientes.CveRegimenFiscal) ChkDesglosarIEPS.Checked = ObjClientes.DesglosaIEPS diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index d4819b53d..ef9fb171d 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -7034,8 +7034,8 @@ Partial Class Ventas End If - Me.CveMetodoPago33Cliente = ObjCliente.CveMetodoPago33 - Me.CveFormaPago33Cliente = ObjCliente.CveFormaPago33 + Me.CveMetodoPago33Cliente = ObjCliente.CveMetodoPago + Me.CveFormaPago33Cliente = ObjCliente.CveFormaPago CveUsoCFDICliente = ObjCliente.CveUsoCFDI PlazoCobranza = ObjCliente.PlazoCobranza @@ -8433,10 +8433,10 @@ Partial Class Ventas If CveVenta <= 0 AndAlso CveCotizacion <= 0 Then 'CveMetodoPagoCliente = ObjCliente.CveMetodoPago - DdlMetodoPago33.SelectedValueExist(ObjCliente.CveMetodoPago33) + DdlMetodoPago33.SelectedValueExist(ObjCliente.CveMetodoPago) DdlMetodoPago33_SelectedIndexChanged(DdlMetodoPago33, EventArgs.Empty) - DdlFormaPago33.SelectedValueExist(ObjCliente.CveFormaPago33) + DdlFormaPago33.SelectedValueExist(ObjCliente.CveFormaPago) DdlUsoCFDI.SelectedValueExist(ObjCliente.CveUsoCFDI) 'SI ES RFC GENERICO NO TIENE OBLIGACIONES FISCALES If LblRFC.Text.Contiene("XAXX010101000", "XEXX010101000") Then