AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cambio de propiedad de cveforma33 a CveForma y cvemetodopago33 a cvemetodopago

Browse Source
This commit is contained in:
rrene
2025-01-16 09:14:07 -07:00
parent 1dffd532a1
commit cb83af4ca1
3 changed files with 10 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
App_Code/ClsClientes.vb
View File

@@ -111,8 +111,8 @@ Public Class ClsClientes
Public Property ExtOtros As String Public Property ExtOtros As String
Public Property CveUsoCFDI As Integer Public Property CveUsoCFDI As Integer
Public Property CveRegimenFiscal As Integer Public Property CveRegimenFiscal As Integer
Public Property CveFormaPago33 As Integer Public Property CveFormaPago As Integer
Public Property CveMetodoPago33 As Integer Public Property CveMetodoPago As Integer
Public Property CveClienteCorporativo As String Public Property CveClienteCorporativo As String
Public Property DesglosaIEPS As Boolean Public Property DesglosaIEPS As Boolean
Public Property NoDesglosaIVA As Boolean Public Property NoDesglosaIVA As Boolean
@@ -332,8 +332,6 @@ Public Class ClsClientes
_TipoPago = Data.Rows(0)("TipoPago").ToString _TipoPago = Data.Rows(0)("TipoPago").ToString
_FormaFacturacion = Data(0)("FormaFacturacion").ToString _FormaFacturacion = Data(0)("FormaFacturacion").ToString
_LimiteCredito = Data(0)("LimiteCredito").ToString.ToDouble _LimiteCredito = Data(0)("LimiteCredito").ToString.ToDouble
'_NumCtaPago = Data(0)("NumCtaPago").ToString
'_CveMetodoPago = Data(0)("CveMetodoPago").ToString.ToEntero
_AplicaFEMSA = CBool(Data(0)("AplicaFEMSA").ToString) _AplicaFEMSA = CBool(Data(0)("AplicaFEMSA").ToString)
_FEMSA_NumSociedad = Data(0)("FEMSA_NumSociedad").ToString _FEMSA_NumSociedad = Data(0)("FEMSA_NumSociedad").ToString
_FEMSA_NumProveedor = Data(0)("FEMSA_NumProveedor").ToString _FEMSA_NumProveedor = Data(0)("FEMSA_NumProveedor").ToString
@@ -375,8 +373,8 @@ Public Class ClsClientes
_CveUsoCFDI = Data(0)("CveUsoCFDI").ToString.ToEntero _CveUsoCFDI = Data(0)("CveUsoCFDI").ToString.ToEntero
_CveFormaPago33 = Data(0)("CveFormaPago").ToString.ToEntero _CveFormaPago = Data(0)("CveFormaPago").ToString.ToEntero
_CveMetodoPago33 = Data(0)("CveMetodoPago").ToString.ToEntero _CveMetodoPago = Data(0)("CveMetodoPago").ToString.ToEntero
_CveRegimenFiscal = Data(0)("CveRegimenFiscal").ToString.ToEntero _CveRegimenFiscal = Data(0)("CveRegimenFiscal").ToString.ToEntero

4
Ventas/Clientes.aspx.vb
View File

@@ -1618,9 +1618,9 @@ Partial Class Clientes
ChkMuestraNombre.Checked = ObjClientes.ImprimeNombreSucursal ChkMuestraNombre.Checked = ObjClientes.ImprimeNombreSucursal
DdlUsoCFDI.SelectedValueExist(ObjClientes.CveUsoCFDI.ToString()) DdlUsoCFDI.SelectedValueExist(ObjClientes.CveUsoCFDI.ToString())
DdlMetodoPago33.SelectedValueExist(ObjClientes.CveMetodoPago33.ToString()) DdlMetodoPago33.SelectedValueExist(ObjClientes.CveMetodoPago.ToString())
'DdlFormaPago33.SelectedValueExist(ObjClientes.CveFormaPago33.ToString()) 'DdlFormaPago33.SelectedValueExist(ObjClientes.CveFormaPago33.ToString())
CargaFormaDePago(ObjClientes.CveFormaPago33) CargaFormaDePago(ObjClientes.CveFormaPago)
If ObjClientes.CveRegimenFiscal > 0 Then DdlRegimenFiscal.SelectedValueExist(ObjClientes.CveRegimenFiscal) If ObjClientes.CveRegimenFiscal > 0 Then DdlRegimenFiscal.SelectedValueExist(ObjClientes.CveRegimenFiscal)
ChkDesglosarIEPS.Checked = ObjClientes.DesglosaIEPS ChkDesglosarIEPS.Checked = ObjClientes.DesglosaIEPS

8
Ventas/Ventas.aspx.vb
View File

@@ -7034,8 +7034,8 @@ Partial Class Ventas
End If End If
Me.CveMetodoPago33Cliente = ObjCliente.CveMetodoPago33 Me.CveMetodoPago33Cliente = ObjCliente.CveMetodoPago
Me.CveFormaPago33Cliente = ObjCliente.CveFormaPago33 Me.CveFormaPago33Cliente = ObjCliente.CveFormaPago
CveUsoCFDICliente = ObjCliente.CveUsoCFDI CveUsoCFDICliente = ObjCliente.CveUsoCFDI
PlazoCobranza = ObjCliente.PlazoCobranza PlazoCobranza = ObjCliente.PlazoCobranza
@@ -8433,10 +8433,10 @@ Partial Class Ventas
If CveVenta <= 0 AndAlso CveCotizacion <= 0 Then If CveVenta <= 0 AndAlso CveCotizacion <= 0 Then
'CveMetodoPagoCliente = ObjCliente.CveMetodoPago 'CveMetodoPagoCliente = ObjCliente.CveMetodoPago
DdlMetodoPago33.SelectedValueExist(ObjCliente.CveMetodoPago33) DdlMetodoPago33.SelectedValueExist(ObjCliente.CveMetodoPago)
DdlMetodoPago33_SelectedIndexChanged(DdlMetodoPago33, EventArgs.Empty) DdlMetodoPago33_SelectedIndexChanged(DdlMetodoPago33, EventArgs.Empty)
DdlFormaPago33.SelectedValueExist(ObjCliente.CveFormaPago33) DdlFormaPago33.SelectedValueExist(ObjCliente.CveFormaPago)
DdlUsoCFDI.SelectedValueExist(ObjCliente.CveUsoCFDI) DdlUsoCFDI.SelectedValueExist(ObjCliente.CveUsoCFDI)
'SI ES RFC GENERICO NO TIENE OBLIGACIONES FISCALES 'SI ES RFC GENERICO NO TIENE OBLIGACIONES FISCALES
If LblRFC.Text.Contiene("XAXX010101000", "XEXX010101000") Then If LblRFC.Text.Contiene("XAXX010101000", "XEXX010101000") Then