Direciones de envio Combos SAT Direcciones
This commit is contained in:
rakcsle
@@ -684,7 +684,7 @@ Partial Class Clientes
|
||||
CreaDTVentas()
|
||||
CreaDtPago()
|
||||
RegistraScript("CargaHeader();")
|
||||
|
||||
CargaCombosDirecionesClientesSAT()
|
||||
|
||||
|
||||
If UsuarioActual.Empresa.CvePlataforma = 3 Then 'SI ES USUARIO GPS
|
||||
@@ -4347,7 +4347,112 @@ Partial Class Clientes
|
||||
#End Region
|
||||
|
||||
#Region "D I R E C C I O N E N V I O "
|
||||
Public Sub Edit_Click(sender As Object, e As EventArgs)
|
||||
|
||||
Private Sub CargaCombosDirecionesClientesSAT()
|
||||
CargaDirClientePais()
|
||||
CargaDirClienteEstado()
|
||||
CargaDirClienteMunicipio()
|
||||
CargaDirClienteLocalidad()
|
||||
CargaDirClienteColonia()
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub CargaDirClientePais()
|
||||
|
||||
DdlDirClientePais.DataSource = GlobalDTPais()
|
||||
DdlDirClientePais.DataBind()
|
||||
DdlDirClientePais.SelectedValueExist("151")
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDirClienteEstado()
|
||||
DdlDirClienteEstado.Items.Clear()
|
||||
If DdlDirClientePais.SelectedValue.ToEntero > 0 Then
|
||||
DdlDirClienteEstado.DataSource = GlobalDTEstado(GlobalDTPais.FiltraParametros($"CvePais = {DdlDirClientePais.SelectedValue.ToEntero}")(0)("ClaveSATPais").ToString)
|
||||
End If
|
||||
DdlDirClienteEstado.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlDirClienteEstado.DataBind()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDirClienteMunicipio()
|
||||
DdlDirClienteMunicipio.Items.Clear()
|
||||
If DdlDirClienteEstado.SelectedValue.ToEntero > 0 Then
|
||||
DdlDirClienteMunicipio.DataSource = GlobalDTMunicipio(GlobalDTEstado(GlobalDTPais.FiltraParametros($"CvePais = {DdlDirClientePais.SelectedValue.ToEntero}")(0)("ClaveSATPais").ToString).FiltraParametros($"CveEstado = {DdlDirClienteEstado.SelectedValue.ToEntero}")(0)("ClaveSATEstado").ToString)
|
||||
End If
|
||||
DdlDirClienteMunicipio.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlDirClienteMunicipio.DataBind()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDirClienteColonia()
|
||||
DdlDirClienteColonia.Items.Clear()
|
||||
If DdlDirClienteMunicipio.SelectedValue.ToEntero > 0 Then
|
||||
DdlDirClienteColonia.DataSource = GlobalDTColonia(GlobalDTMunicipio(GlobalDTEstado(GlobalDTPais.FiltraParametros($"CvePais = {DdlDirClientePais.SelectedValue.ToEntero}")(0)("ClaveSATPais").ToString).FiltraParametros($"CveEstado = {DdlDirClienteEstado.SelectedValue.ToEntero}")(0)("ClaveSATEstado").ToString).FiltraParametros($"CveMunicipio = {DdlDirClienteMunicipio.SelectedValue.ToEntero}")(0)("ClaveSATMunicipio").ToString)
|
||||
End If
|
||||
DdlDirClienteColonia.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlDirClienteColonia.DataBind()
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Sub CargaDirClienteLocalidad()
|
||||
|
||||
DdlDirClienteLocalidad.Items.Clear()
|
||||
If DdlEstado.SelectedValue.ToEntero > 0 Then
|
||||
DdlDirClienteLocalidad.DataSource = GlobalDTLocalidad(DdlDirClienteEstado.SelectedValue.ToEntero, DdlDirClienteMunicipio.SelectedValue.ToEntero)
|
||||
DdlDirClienteLocalidad.DataBind()
|
||||
End If
|
||||
|
||||
DdlDirClienteLocalidad.Items.Insert(0, New ListItem("Seleccione una", "-1"))
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Sub DdlDirClientePais_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
CargaDirClienteEstado()
|
||||
CargaDirClienteMunicipio()
|
||||
CargaDirClienteColonia()
|
||||
CargaDirClienteLocalidad()
|
||||
End Sub
|
||||
Protected Sub DdlDirClienteEstado_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
CargaDirClienteMunicipio()
|
||||
CargaDirClienteColonia()
|
||||
CargaDirClienteLocalidad()
|
||||
End Sub
|
||||
|
||||
Protected Sub DdlDirClienteMunicipio_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
CargaDirClienteColonia()
|
||||
CargaDirClienteLocalidad()
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Sub BtnDirClienteValidar_Click(sender As Object, e As EventArgs)
|
||||
DirClientevalidaCodigoPostal()
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Sub DdlDirClienteColonia_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
DirClientevalidaCodigoPostal()
|
||||
End Sub
|
||||
|
||||
Private Sub DirClientevalidaCodigoPostal()
|
||||
|
||||
|
||||
|
||||
Dim CPTxt As Integer = TxtEnvioCP.Text.ToEntero()
|
||||
|
||||
Dim CveColonia As Integer = DdlDirClienteColonia.SelectedValue.ToEntero
|
||||
|
||||
If CPTxt > 0 And CveColonia > 0 Then
|
||||
Dim CP As Integer = GlobalDTColonia("-1").FiltroPrimeroValor("CP", $"CveColonia = {CveColonia}").ToEntero
|
||||
If CPTxt <> CP Then
|
||||
Alert("El codigo postal selecionado es diferente del codigo postal de la Colonia.", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub Edit_Click(sender As Object, e As EventArgs)
|
||||
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
CveDireccionEnvio = GvRow.DataKey("CveDireccionEnvio").ToEntero()
|
||||
TxtEnvioDireccion.Text = GvRow.DataKey("EnvioDireccion")
|
||||
@@ -4360,6 +4465,18 @@ Partial Class Clientes
|
||||
'TxtDepartamento.Text = GvRow.DataKey("EnvioDepartamento")
|
||||
TxtEnvioCP.Text = GvRow.DataKey("EnvioCP")
|
||||
TxtEnvioTel.Text = GvRow.DataKey("EnvioTel")
|
||||
|
||||
DdlDirClientePais.SelectedValueExist(GvRow.DataKey("CvePais"))
|
||||
CargaDirClienteEstado()
|
||||
DdlDirClienteEstado.SelectedValueExist(GvRow.DataKey("CveEstado"))
|
||||
CargaDirClienteMunicipio()
|
||||
DdlDirClienteMunicipio.SelectedValueExist(GvRow.DataKey("CveMunicipio"))
|
||||
CargaDirClienteColonia()
|
||||
DdlDirClienteLocalidad.SelectedValueExist(GvRow.DataKey("CveLocalidad"))
|
||||
CargaDirClienteLocalidad()
|
||||
|
||||
DdlDirClienteColonia.SelectedValueExist(GvRow.DataKey("CveColonia"))
|
||||
|
||||
ChkEstatus.Checked = If(GvRow.DataKey("Estatus").ToString() = "True", True, False)
|
||||
If GvRow.DataKey("CveClienteSucursal").ToEntero() > 0 Then DdlClienteSucursalEnvio.SelectedValueExist(GvRow.DataKey("CveClienteSucursal")) Else DdlClienteSucursalEnvio.SelectedValueExist("-1")
|
||||
UpAddDireccion.Update()
|
||||
@@ -4371,14 +4488,16 @@ Partial Class Clientes
|
||||
Dim Estatus = If(ChkEstatus.Checked, 1, 0)
|
||||
|
||||
If CveDireccionEnvio < 0 Then
|
||||
CveDireccionEnvio = ObjClientes.DireccionEnvioAdd(CveCliente, TxtEnvioDireccion.Text.Trim, TxtEnvioNoExt.Text.Trim, TxtEnvioNoInt.Text.Trim, TxtEnvioColonia.Text.Trim, TxtEnvioCiudad.Text.Trim, TxtEnvioEstado.Text.Trim, TxtEnvioCP.Text.ToEntero(), TxtEnvioContacto.Text.Trim, UsuarioActual.CveUsuario, Estatus, CveClienteSucursal:=DdlClienteSucursalEnvio.SelectedValue.ToEntero(), EnvioTel:=TxtEnvioTel.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""))
|
||||
CveDireccionEnvio = ObjClientes.DireccionEnvioAdd(CveCliente, TxtEnvioDireccion.Text.Trim, TxtEnvioNoExt.Text.Trim, TxtEnvioNoInt.Text.Trim, TxtEnvioColonia.Text.Trim, TxtEnvioCiudad.Text.Trim, TxtEnvioEstado.Text.Trim, TxtEnvioCP.Text.ToEntero(), TxtEnvioContacto.Text.Trim, UsuarioActual.CveUsuario, Estatus, CveClienteSucursal:=DdlClienteSucursalEnvio.SelectedValue.ToEntero(), EnvioTel:=TxtEnvioTel.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""),
|
||||
CvePais:=DdlDirClientePais.SelectedValue.ToEntero, CveEstado:=DdlDirClienteEstado.SelectedValue.ToEntero, CveMunicipio:=DdlDirClienteMunicipio.SelectedValue.ToEntero, CveLocalidad:=DdlDirClienteLocalidad.SelectedValue.ToEntero, CveColonia:=DdlDirClienteColonia.SelectedValue.ToEntero)
|
||||
|
||||
If CveDireccionEnvio < 0 Then
|
||||
TieneError = True
|
||||
End If
|
||||
Else
|
||||
|
||||
If Not ObjClientes.DireccionEnvioUpdate(CveCliente, TxtEnvioDireccion.Text.Trim, TxtEnvioNoExt.Text.Trim, TxtEnvioNoInt.Text.Trim, TxtEnvioColonia.Text.Trim, TxtEnvioCiudad.Text.Trim, TxtEnvioEstado.Text.Trim, TxtEnvioCP.Text.ToEntero(), TxtEnvioContacto.Text.Trim, UsuarioActual.CveUsuario, Estatus, CveDireccionEnvio, CveClienteSucursal:=DdlClienteSucursalEnvio.SelectedValue.ToEntero(), EnvioTel:=TxtEnvioTel.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", "")) Then
|
||||
If Not ObjClientes.DireccionEnvioUpdate(CveCliente, TxtEnvioDireccion.Text.Trim, TxtEnvioNoExt.Text.Trim, TxtEnvioNoInt.Text.Trim, TxtEnvioColonia.Text.Trim, TxtEnvioCiudad.Text.Trim, TxtEnvioEstado.Text.Trim, TxtEnvioCP.Text.ToEntero(), TxtEnvioContacto.Text.Trim, UsuarioActual.CveUsuario, Estatus, CveDireccionEnvio, CveClienteSucursal:=DdlClienteSucursalEnvio.SelectedValue.ToEntero(), EnvioTel:=TxtEnvioTel.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""),
|
||||
CvePais:=DdlDirClientePais.SelectedValue.ToEntero, CveEstado:=DdlDirClienteEstado.SelectedValue.ToEntero, CveMunicipio:=DdlDirClienteMunicipio.SelectedValue.ToEntero, CveLocalidad:=DdlDirClienteLocalidad.SelectedValue.ToEntero, CveColonia:=DdlDirClienteColonia.SelectedValue.ToEntero) Then
|
||||
TieneError = True
|
||||
End If
|
||||
|
||||
@@ -4403,7 +4522,16 @@ Partial Class Clientes
|
||||
'TxtDepartamento.Text = ""
|
||||
TxtEnvioCP.Text = ""
|
||||
TxtEnvioTel.Text = ""
|
||||
DdlClienteSucursalEnvio.SelectedValue = "-1"
|
||||
DdlClienteSucursalEnvio.SelectedValue = "-1"
|
||||
|
||||
CargaCombosDirecionesClientesSAT()
|
||||
|
||||
'DdlDirClientePais.SelectedValueExist(-1)
|
||||
'DdlDirClienteEstado.SelectedValueExist(-1)
|
||||
'DdlDirClienteMunicipio.SelectedValueExist(-1)
|
||||
'DdlDirClienteLocalidad.SelectedValueExist(-1)
|
||||
'DdlDirClienteColonia.SelectedValueExist(-1)
|
||||
|
||||
UpAddDireccion.Update()
|
||||
RegistraScript("$('#divAddDireccionEnvio').modal();")
|
||||
End Sub
|
||||
|
||||
Reference in New Issue
Block a user