Clientes Estados
This commit is contained in:
Rakcsle Supertramp
@@ -669,6 +669,7 @@ Partial Class Clientes
|
||||
CreaDtPago()
|
||||
RegistraScript("CargaHeader();")
|
||||
|
||||
CargaEstados()
|
||||
|
||||
If UsuarioActual.Empresa.CvePlataforma = 3 Then 'SI ES USUARIO GPS
|
||||
TabFiscalContable.Visible = True
|
||||
@@ -809,7 +810,7 @@ Partial Class Clientes
|
||||
CreaDTSucursales()
|
||||
CargaDocumentacionCliente()
|
||||
|
||||
TxtPais.Text = "México"
|
||||
'TxtPais.Text = "México"
|
||||
End If
|
||||
|
||||
If UsuarioActual.Empresa.CvePlataforma = 3 Then
|
||||
@@ -906,6 +907,11 @@ Partial Class Clientes
|
||||
|
||||
|
||||
#Region "C A R G A S"
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Private Sub CreaDtPago()
|
||||
DtPagos = New DataTable
|
||||
DtPagos.Columns.Add("CveTipoMovimiento", GetType(String))
|
||||
@@ -924,7 +930,36 @@ Partial Class Clientes
|
||||
DdlClasificacion.DataBind()
|
||||
DdlClasificacion.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
UpDatos.Update()
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub CargaEstados(Optional ClaveSATPais As String = "MEX")
|
||||
|
||||
DdlEstadoSAT.Items.Clear()
|
||||
|
||||
Dim ObjCliente As New ClsClientes
|
||||
|
||||
|
||||
|
||||
If ObjCliente.GetEstados(ClaveSATPais) Then
|
||||
DdlEstadoSAT.DataSource = ObjCliente.DtResultados.Copy
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
ObjCliente.Dispose()
|
||||
|
||||
DdlEstadoSAT.DataBind()
|
||||
DdlEstadoSAT.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
'DdlEstadoSAT.SelectedValue = "-1"
|
||||
|
||||
UpDatos.Update()
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub CargaResponsables()
|
||||
Dim Dt As DataTable = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("True", "Nombre")
|
||||
DdlResponsable.DataSource = Dt.FiltraParametros("", "", {"CveUsuario", "Nombre"})
|
||||
@@ -974,14 +1009,12 @@ Partial Class Clientes
|
||||
DdlClienteSucursal.DataSource = ObjCliente.DtResultados
|
||||
DdlClienteSucursalEnvio.DataSource = ObjCliente.DtResultados
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If ObjCliente.GetEstados("-1") Then
|
||||
DdlEstadoSAT.DataSource = ObjCliente.DtResultados.Copy
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
ObjCliente.Dispose()
|
||||
|
||||
DdlSucursalCliente.DataBind()
|
||||
@@ -995,12 +1028,10 @@ Partial Class Clientes
|
||||
|
||||
DdlClienteSucursalEnvio.DataBind()
|
||||
DdlClienteSucursalEnvio.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlClienteSucursalEnvio.SelectedValue = "-1"
|
||||
|
||||
DdlEstadoSAT.DataBind()
|
||||
DdlEstadoSAT.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlEstadoSAT.SelectedValue = "-1"
|
||||
|
||||
DdlClienteSucursalEnvio.SelectedValue = "-1"
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
Private Sub CargaGridRetenciones()
|
||||
Dim ObjClientes As New ClsClientes
|
||||
@@ -1175,8 +1206,10 @@ Partial Class Clientes
|
||||
End If
|
||||
|
||||
|
||||
CargaCombosComercioExterior()
|
||||
|
||||
CargaCombosComercioExterior()
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
Private Sub CargaSubProyectoss()
|
||||
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
@@ -1400,8 +1433,8 @@ Partial Class Clientes
|
||||
TxtColonia.Text = ObjClientes.Colonia
|
||||
TxtLocalidad.Text = ObjClientes.Localidad
|
||||
TxtCiudad.Text = ObjClientes.Ciudad
|
||||
TxtEstado.Text = ObjClientes.Estado
|
||||
TxtPais.Text = ObjClientes.Pais
|
||||
'TxtEstado.Text = ObjClientes.Estado
|
||||
'TxtPais.Text = ObjClientes.Pais
|
||||
TxtRFC.Text = ObjClientes.RFC
|
||||
TxtCP.Text = ObjClientes.CP.ToString
|
||||
TxtTelefono.Text = ObjClientes.Telefono
|
||||
@@ -1525,8 +1558,12 @@ Partial Class Clientes
|
||||
CargaEstado()
|
||||
|
||||
|
||||
DdlEstadoSAT.SelectedValueExist(ObjClientes.CveSATEstado)
|
||||
CargaEstados(ObjClientes.DtResultados(0)("SATPais").ToString)
|
||||
|
||||
DdlSATPais.SelectedValueExist(ObjClientes.DtResultados(0)("SATPais").ToString)
|
||||
DdlEstadoSAT.SelectedValueExist(ObjClientes.CveSATEstado)
|
||||
|
||||
|
||||
If DdlPais.SelectedValue.Contiene("151", "66", "40") Then
|
||||
DdlEstado.Visible = True
|
||||
DdlEstado.SelectedValueExist(ObjClientes.CveEstado)
|
||||
@@ -2443,7 +2480,7 @@ Partial Class Clientes
|
||||
|
||||
|
||||
|
||||
If ObjClientes.AddCliente(TxtNombre.Text.Trim, TxtNombreComercial.Text.Trim, TxtDireccion.Text.Trim, TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtLocalidad.Text.Trim, TxtCiudad.Text.Trim, TxtEstado.Text.Trim, TxtPais.Text.Trim, TxtRFC.Text.Trim, TxtCP.Text.Trim, TxtTelefono.Text.Trim.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""),
|
||||
If ObjClientes.AddCliente(TxtNombre.Text.Trim, TxtNombreComercial.Text.Trim, TxtDireccion.Text.Trim, TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtLocalidad.Text.Trim, TxtCiudad.Text.Trim, DdlEstadoSAT.SelectedItem.Text.Trim, DdlSATPais.SelectedItem.Text.Trim, TxtRFC.Text.Trim, TxtCP.Text.Trim, TxtTelefono.Text.Trim.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""),
|
||||
TxtContacto.Text.Trim, TxtEmail.Text.Trim, TxtEmailCotizacion.Text.Trim, TxtNotificar.Text.Trim, TxtPagina.Text.Trim, TxtGiro.Text.Trim, DdlPrecioLista.SelectedValue.ToEntero, ChkMail.Checked, TxtRetIVA.Text.ToDouble,
|
||||
TxtRetISR.Text.ToDouble, ChkRetIVAFletesAcarreos.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtNombreCorto.Text.Trim, DdlVendedor.SelectedValue.ToEntero, TxtPlazoCobranza.Text.Trim.ToEntero, TxtPlazoCobranzaRemision.Text.Trim.ToEntero,
|
||||
DiasPago, DdlTipoPago.SelectedValue, DdlCtaContableClientes.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableAnticipos.SelectedValue.ToEntero,
|
||||
@@ -2538,7 +2575,7 @@ Partial Class Clientes
|
||||
NombreCliente = TxtNombre.Text.Trim()
|
||||
End If
|
||||
|
||||
If ObjClientes.UpdateCliente(NombreCliente, TxtNombreComercial.Text.Trim, TxtDireccion.Text.Trim, TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtLocalidad.Text.Trim, TxtCiudad.Text.Trim, TxtEstado.Text.Trim, TxtPais.Text.Trim, TxtRFC.Text.Trim, TxtCP.Text.Trim,
|
||||
If ObjClientes.UpdateCliente(NombreCliente, TxtNombreComercial.Text.Trim, TxtDireccion.Text.Trim, TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtLocalidad.Text.Trim, TxtCiudad.Text.Trim, DdlEstadoSAT.SelectedItem.Text.Trim, DdlSATPais.SelectedItem.Text.Trim, TxtRFC.Text.Trim, TxtCP.Text.Trim,
|
||||
TxtTelefono.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), TxtContacto.Text.Trim, TxtEmail.Text.Trim, TxtEmailCotizacion.Text.Trim, TxtNotificar.Text.Trim, TxtPagina.Text, TxtGiro.Text, DdlPrecioLista.SelectedValue.ToEntero, ChkMail.Checked, TxtRetIVA.Text.ToDouble, TxtRetISR.Text.ToDouble, ChkRetIVAFletesAcarreos.Checked,
|
||||
ChkEstado.Checked, TxtNombreCorto.Text.Trim, DdlVendedor.SelectedValue.ToEntero, TxtPlazoCobranza.Text.Trim.ToEntero, TxtPlazoCobranzaRemision.Text.Trim.ToEntero, DiasPago, DdlTipoPago.SelectedValue,
|
||||
DdlCtaContableClientes.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableAnticipos.SelectedValue.ToEntero, DdlCtaContableAnticipos.SelectedItem.Text, DdlCtaContableRetIVA.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableRetISR.SelectedValue.ToEntero,
|
||||
@@ -10107,6 +10144,9 @@ Partial Class Clientes
|
||||
End Sub
|
||||
Protected Sub btnupEventoBitacora_Click(sender As Object, e As EventArgs)
|
||||
CargaEventoBitacora()
|
||||
End Sub
|
||||
End Sub
|
||||
Protected Sub DdlSATPais_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
CargaEstados(DdlSATPais.SelectedValue)
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
|
||||
Reference in New Issue
Block a user