From b571df1faab3507a7a28b9b3377c1fff58afe28c Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Thu, 3 Oct 2019 13:56:35 -0500 Subject: [PATCH 1/3] checkpoint --- OS/CatEstatusOrdenServicio.aspx.vb | 32 ++++++++++++++++++------------ 1 file changed, 19 insertions(+), 13 deletions(-) diff --git a/OS/CatEstatusOrdenServicio.aspx.vb b/OS/CatEstatusOrdenServicio.aspx.vb index e9445c1da..29d3154d0 100644 --- a/OS/CatEstatusOrdenServicio.aspx.vb +++ b/OS/CatEstatusOrdenServicio.aspx.vb @@ -106,6 +106,7 @@ Partial Class OS_CatEstatusOrdenServicio If HdnModalidad.Value = "I" Then If ObjEstatusOrdenServicios.AddEstatusOrdenServicio(TxtEstatusOS.Text.Trim, DdlTipoEstatus.SelectedValue.ToEntero, If(ChkEstatus.Checked, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then CargaDatos() + Alert("Estatus agregado") End If Else If HdnID.Value.ToEntero <> -1 Then @@ -117,20 +118,20 @@ Partial Class OS_CatEstatusOrdenServicio If Not TieneError Then GvDatos.EditIndex = -1 CargaDatos() + Alert("Estatus actualizado") Else Alert("Ocurrio un error al actualizar los datos", TipoMensaje.MsgAdvertencia) End If End If ObjEstatusOrdenServicios.Dispose() - 'CargaDatos() - 'AsociarEstatusUsuarios() - 'CargarUsuarioConEstatus() - 'UpDatos.Update() - 'UpPrueba.Update() - Alert("Estatus agregado") RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddEstatusOS")) - Response.Redirect(HttpContext.Current.Request.Url.ToString(), True) + EstatusUsuariosGridActualizar() + AsociarEstatusUsuarios() + CargarUsuarioConEstatus() + UpDatos.Update() + 'UpPrueba.Update() + 'Response.Redirect(HttpContext.Current.Request.Url.ToString(), True) End Sub Public Sub Edit_Click(sender As Object, e As EventArgs) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) @@ -168,9 +169,9 @@ Partial Class OS_CatEstatusOrdenServicio End If ObjEstatusOrdenServicios.Dispose() - 'CargaDatos() - 'UpDatos.Update() - Response.Redirect(HttpContext.Current.Request.Url.ToString(), True) + CargaDatos() + UpDatos.Update() + 'Response.Redirect(HttpContext.Current.Request.Url.ToString(), True) End Sub Protected Sub GvDatos_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvDatos.RowUpdating Dim ObjEstatusOrdenServicios As New ClsOS @@ -208,9 +209,6 @@ Partial Class OS_CatEstatusOrdenServicio End Sub Private Sub CargarUsuarioConEstatus() - 'For Contador As Integer = (Prueba.Columns.Count - 1) To 1 Step -1 - ' Prueba.Columns.RemoveAt(Contador) - 'Next For Each Estatus As DataRow In DtEstatusOS.Rows Dim test As New CheckBoxField test.HeaderText = Estatus.Item("EstatusOrdenServicio").ToString @@ -268,5 +266,13 @@ Partial Class OS_CatEstatusOrdenServicio End If objEstatusOC.Dispose() End Sub + + Private Sub EstatusUsuariosGridActualizar() + DtEstatusUsuariosAsociados = Nothing + Prueba.DataBind() + For Contador As Integer = (Prueba.Columns.Count - 1) To 1 Step -1 + Prueba.Columns.RemoveAt(Contador) + Next + End Sub #End Region End Class From f59461bae369397c54393f8f55b98dedc2936cc3 Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Thu, 3 Oct 2019 12:26:45 -0700 Subject: [PATCH 2/3] Agrega CvePrecioLista en registro rapido de Cliente --- App_Code/ClsClientes.vb | 3 ++- Ventas/PV.aspx.vb | 12 +++++++++++- Ventas/Ventas.aspx.vb | 12 +++++++++++- 3 files changed, 24 insertions(+), 3 deletions(-) diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index 46a58a11a..93e137ee0 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -1552,7 +1552,7 @@ Public Class ClsClientes Return Retorno End Function - Public Function AgregarClienteNoFrecuente(Nombre As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Localidad As String, Ciudad As String, Estado As String, Pais As String, RFC As String, CP As String, Telefono As String, Mail As String, CveSubProyecto As Integer, CveUsuario As Integer, CveEmpresa As Integer, NumCuentaPago As String) As Boolean + Public Function AgregarClienteNoFrecuente(Nombre As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Localidad As String, Ciudad As String, Estado As String, Pais As String, RFC As String, CP As String, Telefono As String, Mail As String, CveSubProyecto As Integer, CveUsuario As Integer, CveEmpresa As Integer, NumCuentaPago As String, CvePrecioLista As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_ClientesNoFrecuenteAdd") @@ -1574,6 +1574,7 @@ Public Class ClsClientes .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@NumCuentaPago", SqlDbType.VarChar).Value = NumCuentaPago + .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista End With diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index 52a13be90..8d08564bc 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -4641,9 +4641,19 @@ Partial Class PV End Sub Private Sub BtnAgregarCliente_Click(sender As Object, e As EventArgs) Handles BtnAgregarCliente.Click + Dim CvePreioLista As Integer = -1 + If DdlSubProyectoDatos.SelectedValue.ToEntero > 0 Then + Dim Dr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa).Rows(0) + If Dr IsNot Nothing Then + If Dr("CvePrecioLista").ToString.ToEntero > 0 Then + CvePreioLista = Dr("CvePrecioLista").ToString.ToEntero + End If + End If + End If + Dim ObjCliente As New ClsClientes - If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim, TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, TxtEstadoCliente.Text.Trim, TxtPaisCliente.Text.Trim, TxtRFCCliente.Text.Trim, TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "") Then + If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim, TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, TxtEstadoCliente.Text.Trim, TxtPaisCliente.Text.Trim, TxtRFCCliente.Text.Trim, TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", CvePreioLista) Then If ObjCliente.DtResultados.Rows.Count > 0 Then RegistraScript("hideDivEC();") ViewState("CveCliente") = ObjCliente.DtResultados(0)("CveCliente").ToString.ToEntero diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index b4d99a77c..bd6c3b2b9 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -16648,9 +16648,19 @@ Partial Class Ventas End Sub Private Sub BtnAgregarCliente_Click(sender As Object, e As EventArgs) Handles BtnAgregarCliente.Click + Dim CvePreioLista As Integer = -1 + If DdlSubProyectoDatos.SelectedValue.ToEntero > 0 Then + Dim Dr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa).Rows(0) + If Dr IsNot Nothing Then + If Dr("CvePrecioLista").ToString.ToEntero > 0 Then + CvePreioLista = Dr("CvePrecioLista").ToString.ToEntero + End If + End If + End If + Dim ObjCliente As New ClsClientes - If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim, TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, TxtEstadoCliente.Text.Trim, TxtPaisCliente.Text.Trim, TxtRFCCliente.Text.Trim, TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "") Then + If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim, TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, TxtEstadoCliente.Text.Trim, TxtPaisCliente.Text.Trim, TxtRFCCliente.Text.Trim, TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", CvePreioLista) Then If ObjCliente.DtResultados.Rows.Count > 0 Then RegistraScript("hideDivEC();") ViewState("CveCliente") = ObjCliente.DtResultados(0)("CveCliente").ToString.ToEntero From 8351c4ab5b5425821afc8e149d4db030bfb2e03d Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Thu, 3 Oct 2019 14:16:58 -0700 Subject: [PATCH 3/3] --- App_Code/ClsClientes.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index 93e137ee0..6ffc5438a 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -1552,7 +1552,7 @@ Public Class ClsClientes Return Retorno End Function - Public Function AgregarClienteNoFrecuente(Nombre As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Localidad As String, Ciudad As String, Estado As String, Pais As String, RFC As String, CP As String, Telefono As String, Mail As String, CveSubProyecto As Integer, CveUsuario As Integer, CveEmpresa As Integer, NumCuentaPago As String, CvePrecioLista As Integer) As Boolean + Public Function AgregarClienteNoFrecuente(Nombre As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Localidad As String, Ciudad As String, Estado As String, Pais As String, RFC As String, CP As String, Telefono As String, Mail As String, CveSubProyecto As Integer, CveUsuario As Integer, CveEmpresa As Integer, NumCuentaPago As String, Optional CvePrecioLista As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_ClientesNoFrecuenteAdd")