From 15709ab34ab781107f2e9a1f3312a45d94fd1986 Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Sat, 27 Jun 2020 20:48:02 -0700 Subject: [PATCH] Clientes Estados --- TareasProgramadas/Tareas119.ashx | 25 +++++++++- Ventas/Clientes.aspx | 33 +++++++++--- Ventas/Clientes.aspx.vb | 86 +++++++++++++++++++++++--------- 3 files changed, 112 insertions(+), 32 deletions(-) diff --git a/TareasProgramadas/Tareas119.ashx b/TareasProgramadas/Tareas119.ashx index 83be5b74f..bc0290609 100644 --- a/TareasProgramadas/Tareas119.ashx +++ b/TareasProgramadas/Tareas119.ashx @@ -81,6 +81,27 @@ public class TareasJam : IHttpHandler ObjGenerales.Dispose(); + DTProductos.Columns[0].ColumnName = "Código Producto Interno "; + DTProductos.Columns[1].ColumnName = "Nombre del Producto"; + DTProductos.Columns[2].ColumnName = "Presentación"; + DTProductos.AcceptChanges(); + + + DTClientes.Columns[4].ColumnName = "address.countryId"; + DTClientes.Columns[5].ColumnName = "address.stateId"; + DTClientes.Columns[6].ColumnName = "address.city"; + DTClientes.Columns[7].ColumnName = "address.street1"; + DTClientes.Columns[8].ColumnName = "address.street2"; + DTClientes.Columns[9].ColumnName = "address.postalCode"; + DTClientes.Columns[9].ColumnName = "phone.intCode"; + DTClientes.Columns[9].ColumnName = "phone.areaCode"; + DTClientes.Columns[9].ColumnName = "phone.number"; + DTClientes.Dispose(); + + DTVentas.Columns.RemoveAt(7); + DTVentas.AcceptChanges(); + + if (!ErrorProceso) { string RutaProductos = $@"{ HttpContext.Current.Server.MapPath("~") }Temp\Productos{DateTime.Now.ToString("yyyyMMdd")}.xlsx"; @@ -125,13 +146,13 @@ public class TareasJam : IHttpHandler var workbookAlmacenes = new ExcelFile(); - var worksheetAlmacenes = workbookClientes.Worksheets.Add("Almacenes"); + var worksheetAlmacenes = workbookAlmacenes.Worksheets.Add("Almacenes"); worksheetAlmacenes.InsertDataTable(DTAlmacenes, new InsertDataTableOptions() { ColumnHeaders = true, StartRow = 0 }); - workbookClientes.Save(RutaAlmacenes); + workbookAlmacenes.Save(RutaAlmacenes); var FInfoProductos = new FileInfo(RutaProductos); diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index 6b4136efb..81a8d4702 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -423,7 +423,8 @@ -
+ + <%--
@@ -431,6 +432,29 @@
+
+ + + + +
+ + + --%> + +
+ + + + + + + + + + +
+
@@ -443,12 +467,7 @@ -
- - - - -
+
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index e0ded8064..a6d91ab98 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -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