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

-- cambio de cveformapago33

Browse Source
This commit is contained in:
rrene
2025-01-21 09:18:06 -07:00
parent 877476625d
commit 84e7098b45
13 changed files with 84 additions and 84 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Ventas/Clientes.aspx.vb
View File

@@ -1632,7 +1632,7 @@ Partial Class Clientes
DdlUsoCFDI.SelectedValueExist(ObjClientes.CveUsoCFDI.ToString())
DdlMetodoPago33.SelectedValueExist(ObjClientes.CveMetodoPago.ToString())
'DdlFormaPago33.SelectedValueExist(ObjClientes.CveFormaPago33.ToString())
'DdlFormaPago33.SelectedValueExist(ObjClientes.CveFormaPago.ToString())
CargaFormaDePago(ObjClientes.CveFormaPago)
If ObjClientes.CveRegimenFiscal > 0 Then DdlRegimenFiscal.SelectedValueExist(ObjClientes.CveRegimenFiscal)
@@ -2696,7 +2696,7 @@ Partial Class Clientes
If Not ObjClientes.AddSucursal(CveClienteNuevo, Row("SucursalCliente").ToString(), UsuarioActual.CveUsuario, Row("CiudadSucursal").ToString(), Row("ColoniaSucursal").ToString(), Row("CPSucursal").ToString(), Row("DireccionSucursal").ToString(), Row("EstadoSucursal").ToString(), Row("LocalidadSucursal").ToString(),
Row("PaisSucursal").ToString(), Row("NumExtSucursal").ToString(), Row("NumIntSucursal").ToString(), Row("TelefonoSucursal").ToString(), Row("CorreoSucursal").ToString(), Row("CorreoCotiziacionSucursal").ToString(), Row("ContactoSucursal").ToString(),
Row("CveVendedorSucursal").ToString().ToEntero(), Row("NumCuenta").ToString(), Row("CveMetodoPago").ToString().ToEntero(), Row("LimiteCredito").ToString().ToDecimal(), Row("CveResponsableCobranza").ToString().ToEntero(),
Row("CveUsoCFDI").ToString().ToEntero(), Row("CveFormaPago33").ToString().ToEntero(), Row("CveMetodoPago33").ToString().ToEntero(), LT:=Row("LT").ToString(), LG:=Row("LG").ToString(), CveAlmacenAsignado:=CveAlmacenAsignadoSucursal) Then
Row("CveUsoCFDI").ToString().ToEntero(), Row("CveFormaPago33").ToString().ToEntero(), Row("CveMetodoPago").ToString().ToEntero(), LT:=Row("LT").ToString(), LG:=Row("LG").ToString(), CveAlmacenAsignado:=CveAlmacenAsignadoSucursal) Then
ErrorProceso = True
Exit For
End If
@@ -3348,7 +3348,7 @@ Partial Class Clientes
DdlResponsableSucursal.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveResponsableCobranza").ToString())
DdlSucursalUsoCFDI.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveUsoCFDI").ToString())
DdlSucursalMetodoPago33.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveMetodoPago33").ToString())
DdlSucursalMetodoPago33.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveMetodoPago").ToString())
DdlSucursalFormaPago33.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveFormaPago33").ToString())
txtLg.Text = ObjCliente.DtResultados.Rows(0)("LG").ToString()
@@ -5647,7 +5647,7 @@ Partial Class Clientes
TempDTSucursales.Columns.Add("CveAlmacenAsignado", Type.GetType("System.Int32"))
TempDTSucursales.Columns.Add("CveUsoCFDI", Type.GetType("System.Int32"))
TempDTSucursales.Columns.Add("CveFormaPago33", Type.GetType("System.Int32"))
TempDTSucursales.Columns.Add("CveMetodoPago33", Type.GetType("System.Int32"))
TempDTSucursales.Columns.Add("CveMetodoPago", Type.GetType("System.Int32"))
TempDTSucursales.Columns.Add("Correo", Type.GetType("System.String"))
TempDTSucursales.Columns.Add("CorreoCotizacion", Type.GetType("System.String"))
TempDTSucursales.Columns.Add("LimiteCredito", Type.GetType("System.Decimal"))
@@ -5688,7 +5688,7 @@ Partial Class Clientes
RowSucursal("CveUsoCFDI") = DdlSucursalUsoCFDI.SelectedValue.ToEntero()
RowSucursal("CveFormaPago33") = DdlSucursalFormaPago33.SelectedValue.ToEntero()
RowSucursal("CveMetodoPago33") = DdlSucursalMetodoPago33.SelectedValue.ToEntero()
RowSucursal("CveMetodoPago") = DdlSucursalMetodoPago33.SelectedValue.ToEntero()
RowSucursal("LimiteCredito") = TxtLimiteCreditoSucursal.Text.ToDecimal
RowSucursal("CveResponsableCobranza") = DdlResponsableSucursal.SelectedValue.ToEntero

8
Ventas/PV.aspx.vb
View File

@@ -2681,11 +2681,11 @@ Partial Class PV
CveMetodoPagoCliente = ObjCliente.DtResultados.Rows(0)("CveMetodoPago").ToString.ToEntero
DdlUsoCFDI.SelectedValueExist(ObjCliente.CveUsoCFDI.ToString)
'DdlMetodoPago.SelectedValueExist(ObjCliente.CveMetodoPago.ToString)
DdlMetodoPago33.SelectedValueExist(ObjCliente.CveMetodoPago33.ToString)
DdlMetodoPago33.SelectedValueExist(ObjCliente.CveMetodoPago.ToString)
'DdlMetodoPago33.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveMetodoPago33").ToString)
DdlMetodoPago33_SelectedIndexChanged(DdlMetodoPago33, EventArgs.Empty)
DdlFormaPago33.SelectedValueExist(ObjCliente.CveFormaPago33.ToString)
DdlFormaPago33.SelectedValueExist(ObjCliente.CveFormaPago.ToString)
'DdlFormaPago33.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveFormaPago33").ToString)
DdlUsoCFDI.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveUsoCFDI").ToString)
'SI ES RFC GENERICO NO TIENE OBLIGACIONES FISCALES
@@ -2906,8 +2906,8 @@ Partial Class PV
'CveMetodoPagoCliente = ObjCliente.CveMetodoPago
DdlMetodoPago.SelectedValueExist(CveMetodoPagoCliente.ToString)
DdlFormaPago33.SelectedValueExist(ObjCliente.CveFormaPago33)
DdlMetodoPago33.SelectedValueExist(ObjCliente.CveMetodoPago33)
DdlFormaPago33.SelectedValueExist(ObjCliente.CveFormaPago)
DdlMetodoPago33.SelectedValueExist(ObjCliente.CveMetodoPago)
DdlUsoCFDI.SelectedValueExist(ObjCliente.CveUsoCFDI)
'SI ES RFC GENERICO NO TIENE OBLIGACIONES FISCALES
If LblRFC.Text.Contiene("XAXX010101000", "XEXX010101000") Then