From ce8e30d3953c9c84707ae88237abea0609b63260 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 11 Feb 2023 08:33:59 -0700 Subject: [PATCH 01/11] -- mejoras en warnings --- Inventarios/EntregasPorRealizar.aspx.cs | 2 +- Inventarios/RecepcionDevolucion.aspx.vb | 2 +- Inventarios/RepApartados2.aspx.vb | 6 +----- Inventarios/RepEntregasForaneas.aspx.vb | 1 - OI/RepTareas3.aspx.cs | 2 +- OS/CatEstatusOrdenServicio.aspx.vb | 2 +- Prospectos/CatEventosEstructuras.aspx.vb | 4 ++-- Prospectos/CatProspectosRedesMetas.aspx.vb | 2 +- Prospectos/Prospectos.aspx.vb | 8 ++++---- Prospectos/ProspectosEstructuras.aspx.vb | 4 ++-- Prospectos/ProspectosRedes.aspx.vb | 4 ++-- Prospectos/RedesArbol.aspx.vb | 2 +- Prospectos/RedesEncuestas.aspx.vb | 4 ++-- 13 files changed, 19 insertions(+), 24 deletions(-) diff --git a/Inventarios/EntregasPorRealizar.aspx.cs b/Inventarios/EntregasPorRealizar.aspx.cs index 44a8d193e..93a38ff12 100644 --- a/Inventarios/EntregasPorRealizar.aspx.cs +++ b/Inventarios/EntregasPorRealizar.aspx.cs @@ -99,7 +99,7 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas int CvePaqueteriasGuias = row.DataKey("CvePaqueteriaGuia").ToEntero(); int Orden = row.DataKey("Orden").ToEntero(); - if (!ObjGeneral.AsignarEntregasPorRealizar(CvePaqueteriasGuias, CvePersonal:CvePersonal, CveAsignacionEntrega: CveAsignacionEntrega, Orden: Orden)) + if (!ObjGeneral.AsignarEntregasPorRealizar(CvePaqueteriasGuias, CvePersonal:CvePersonal, CveAsignacionEntrega: CveAsignacionEntrega )) { TieneError = true; break; diff --git a/Inventarios/RecepcionDevolucion.aspx.vb b/Inventarios/RecepcionDevolucion.aspx.vb index b1b536de3..bb687ac11 100644 --- a/Inventarios/RecepcionDevolucion.aspx.vb +++ b/Inventarios/RecepcionDevolucion.aspx.vb @@ -769,7 +769,7 @@ Partial Class Inventarios_RecepcionDevolucion ObjRemisionNC.IEPS = ImporteIEPS ObjRemisionNC.Total = Total ObjRemisionNC.TotalOtrosConceptos = 0 - ObjRemisionNC.ObservacionesMovimiento = TxtObservaciones.Text + ObjRemisionNC.ObservacionesAlmacen = TxtObservaciones.Text ObjRemisionNC.DtInventario = DtInventario diff --git a/Inventarios/RepApartados2.aspx.vb b/Inventarios/RepApartados2.aspx.vb index 521f152f6..2b3270f10 100644 --- a/Inventarios/RepApartados2.aspx.vb +++ b/Inventarios/RepApartados2.aspx.vb @@ -38,11 +38,7 @@ Partial Class Inventarios_RepApartados2 DdlCliente.DataBind() DdlCliente.Items.Insert(0, New ListItem(" Todos ", "-1")) - - Dim DTVendedores As New DataTable - DTVendedores = GlobalDTVendedores(UsuarioActual.CveEmpresa, True) - DTVendedores.Merge(GlobalDTVendedores(UsuarioActual.CveEmpresa, False)) - DdlVendedor.DataSource = DTVendedores + DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa, -1) DdlVendedor.DataBind() DdlVendedor.Items.Insert(0, New ListItem(" Todos ", "-1")) diff --git a/Inventarios/RepEntregasForaneas.aspx.vb b/Inventarios/RepEntregasForaneas.aspx.vb index 5e7d46689..6709e9a4d 100644 --- a/Inventarios/RepEntregasForaneas.aspx.vb +++ b/Inventarios/RepEntregasForaneas.aspx.vb @@ -733,7 +733,6 @@ Partial Class Inventarios_RepEntregasForaneas Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) diff --git a/OI/RepTareas3.aspx.cs b/OI/RepTareas3.aspx.cs index bc044fee3..a37a27eab 100644 --- a/OI/RepTareas3.aspx.cs +++ b/OI/RepTareas3.aspx.cs @@ -17,6 +17,6 @@ public partial class OI_RepTareas3 : System.Web.UI.Page protected void LnkAddEvento_Click(object sender, EventArgs e) { - RegistraScript(string.Format("$('#{0}').modal()", iddivAgregar)); + //RegistraScript(string.Format("$('#{0}').modal()", iddivAgregar)); } } \ No newline at end of file diff --git a/OS/CatEstatusOrdenServicio.aspx.vb b/OS/CatEstatusOrdenServicio.aspx.vb index a197bd468..dc7598417 100644 --- a/OS/CatEstatusOrdenServicio.aspx.vb +++ b/OS/CatEstatusOrdenServicio.aspx.vb @@ -78,7 +78,7 @@ Partial Class OS_CatEstatusOrdenServicio Public Sub CargaDatos() DTUsuarios = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) Using ObjEstatusOrdenServicios As New ClsOS - If ObjEstatusOrdenServicios.GetEstatusOrdenServicio() Then + If ObjEstatusOrdenServicios.GetEstatusOrdenServicio(UsuarioActual.CveEmpresa) Then DtEstatusOS = ObjEstatusOrdenServicios.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa)) GvDatos.DataSource = DtEstatusOS GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa) = ObjEstatusOrdenServicios.DtResultados diff --git a/Prospectos/CatEventosEstructuras.aspx.vb b/Prospectos/CatEventosEstructuras.aspx.vb index e30a647ca..ac39d71f9 100644 --- a/Prospectos/CatEventosEstructuras.aspx.vb +++ b/Prospectos/CatEventosEstructuras.aspx.vb @@ -14,7 +14,7 @@ Partial Class Prospectos_CatEventosEstructuras CargaEventoTipo() CargaDatos() CargaAnfitrion(DdlAnfitrion) - DdlMunicipio.DataSource = GlobalDTGralMunicipios(26) + DdlMunicipio.DataSource = GlobalDTGralMunicipios("26") DdlMunicipio.DataBind() End If End Sub @@ -102,7 +102,7 @@ Partial Class Prospectos_CatEventosEstructuras e.Row.FCDropDownList("DdlEventoTipo").DataBind() e.Row.FCDropDownList("DdlEventoTipo").SelectedValue = e.Row.DBCampo("CveEventoTipo") - e.Row.FCDropDownList("DdlMunicipio").DataSource = GlobalDTGralMunicipios(26) + e.Row.FCDropDownList("DdlMunicipio").DataSource = GlobalDTGralMunicipios("26") e.Row.FCDropDownList("DdlMunicipio").DataBind() e.Row.FCDropDownList("DdlMunicipio").SelectedValue = e.Row.DBCampo("CveMunicipio") diff --git a/Prospectos/CatProspectosRedesMetas.aspx.vb b/Prospectos/CatProspectosRedesMetas.aspx.vb index 6033c63a6..6f8efd243 100644 --- a/Prospectos/CatProspectosRedesMetas.aspx.vb +++ b/Prospectos/CatProspectosRedesMetas.aspx.vb @@ -35,7 +35,7 @@ Partial Class Prospectos_CatProspectosRedesMetas DdlClasificacion.DataSource = GlobalDTProspectosClasificaciones(UsuarioActual.CveEmpresa) : DdlClasificacion.DataBind() DdlZona.DataSource = GlobalDTProspectosSupervisores(UsuarioActual.CveEmpresa) : DdlZona.DataBind() DdlRegion.DataSource = GlobalDTProspectosCoordinadores(DdlZona.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) : DdlRegion.DataBind() - DdlMunicipioFiltro.DataSource = GlobalDTGralMunicipios(26) : DdlMunicipioFiltro.DataBind() + DdlMunicipioFiltro.DataSource = GlobalDTGralMunicipios("26") : DdlMunicipioFiltro.DataBind() CargaDatos() diff --git a/Prospectos/Prospectos.aspx.vb b/Prospectos/Prospectos.aspx.vb index 49ace671c..5ced21f5c 100644 --- a/Prospectos/Prospectos.aspx.vb +++ b/Prospectos/Prospectos.aspx.vb @@ -79,7 +79,7 @@ Partial Class Prospectos_Prospectos DdlPaises.SelectedValue = "1" DdlEmpresaPaises.SelectedValue = "1" DdlEmpresaPaises.DataSource = GlobalDTGralPaises : DdlEmpresaPaises.DataBind() - DdlFiscalEstados.DataSource = GlobalDTGralEstados(1) : DdlFiscalEstados.DataBind() + DdlFiscalEstados.DataSource = GlobalDTGralEstados("1") : DdlFiscalEstados.DataBind() 'DdlMunicipios.DataSource = GlobalDTGralMunicipios : DdlMunicipios.DataBind() @@ -88,7 +88,7 @@ Partial Class Prospectos_Prospectos CargaDatos() 'Configuración de Modalidad Update BtnGuardar.Text = "Guardar Cambios" - LtlTitulo.Text = "Consulta del Prospecto:" + LtlTitulo.Text = "Consulta del Prospecto: " 'ImgAddObs.Attributes.Add("onclick", "javascript:$('#DivEventoBitacora').show(1000); PosicionaObjeto(this.id,'DivEventoBitacora');") 'Else @@ -337,11 +337,11 @@ Partial Class Prospectos_Prospectos Private Sub CargaEstados(ddl As DropDownList, CvePais As Integer) - ddl.DataSource = GlobalDTGralEstados(CvePais) : ddl.DataBind() + ddl.DataSource = GlobalDTGralEstados(CvePais.ToString) : ddl.DataBind() End Sub Private Sub CargaMunicipios(ddl As DropDownList, CveEstado As Integer) - ddl.DataSource = GlobalDTGralMunicipios(CveEstado) : ddl.DataBind() + ddl.DataSource = GlobalDTGralMunicipios(CveEstado.ToString) : ddl.DataBind() End Sub Protected Sub CargaCaracteristicas() diff --git a/Prospectos/ProspectosEstructuras.aspx.vb b/Prospectos/ProspectosEstructuras.aspx.vb index 09203cf85..7a172decd 100644 --- a/Prospectos/ProspectosEstructuras.aspx.vb +++ b/Prospectos/ProspectosEstructuras.aspx.vb @@ -208,11 +208,11 @@ Partial Class Prospectos_ProspectosEstructuras End Sub Private Sub CargaEstados(ddl As DropDownList, CvePais As Integer) - ddl.DataSource = GlobalDTGralEstados(CvePais) : ddl.DataBind() + ddl.DataSource = GlobalDTGralEstados(CvePais.ToString) : ddl.DataBind() End Sub Private Sub CargaMunicipios(ddl As DropDownList, CveEstado As Integer) - ddl.DataSource = GlobalDTGralMunicipios(CveEstado) : ddl.DataBind() + ddl.DataSource = GlobalDTGralMunicipios(CveEstado.ToString) : ddl.DataBind() End Sub Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click diff --git a/Prospectos/ProspectosRedes.aspx.vb b/Prospectos/ProspectosRedes.aspx.vb index b463acb29..3fcdd5eea 100644 --- a/Prospectos/ProspectosRedes.aspx.vb +++ b/Prospectos/ProspectosRedes.aspx.vb @@ -201,11 +201,11 @@ Partial Class Prospectos_ProspectosRedes End Sub Private Sub CargaEstados(ddl As DropDownList, CvePais As Integer) - ddl.DataSource = GlobalDTGralEstados(CvePais) : ddl.DataBind() + ddl.DataSource = GlobalDTGralEstados(CvePais.ToString) : ddl.DataBind() End Sub Private Sub CargaMunicipios(ddl As DropDownList, CveEstado As Integer) - ddl.DataSource = GlobalDTGralMunicipios(CveEstado) : ddl.DataBind() + ddl.DataSource = GlobalDTGralMunicipios(CveEstado.ToString) : ddl.DataBind() End Sub Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click diff --git a/Prospectos/RedesArbol.aspx.vb b/Prospectos/RedesArbol.aspx.vb index 0f28d9c0e..601b71be0 100644 --- a/Prospectos/RedesArbol.aspx.vb +++ b/Prospectos/RedesArbol.aspx.vb @@ -36,7 +36,7 @@ Partial Class Prospectos_RedesArbol DdlClasificacion.DataSource = GlobalDTProspectosClasificaciones(UsuarioActual.CveEmpresa) : DdlClasificacion.DataBind() DdlZona.DataSource = GlobalDTProspectosSupervisores(UsuarioActual.CveEmpresa) : DdlZona.DataBind() DdlRegion.DataSource = GlobalDTProspectosCoordinadores(DdlZona.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) : DdlRegion.DataBind() - DdlMunicipioFiltro.DataSource = GlobalDTGralMunicipios(26) : DdlMunicipioFiltro.DataBind() + DdlMunicipioFiltro.DataSource = GlobalDTGralMunicipios("26") : DdlMunicipioFiltro.DataBind() CargaDatos(True) ImgPersonalizar.Attributes.Add("onclick", "$('#DivPersonalizar').show(1000); PosicionaObjeto(this.id,'DivPersonalizar');") diff --git a/Prospectos/RedesEncuestas.aspx.vb b/Prospectos/RedesEncuestas.aspx.vb index b811fa03e..b0e2ade0c 100644 --- a/Prospectos/RedesEncuestas.aspx.vb +++ b/Prospectos/RedesEncuestas.aspx.vb @@ -155,11 +155,11 @@ Partial Class Prospectos_RedesEncuestas End Sub Private Sub CargaEstados(ddl As DropDownList, CvePais As Integer) - ddl.DataSource = GlobalDTGralEstados(CvePais) : ddl.DataBind() + ddl.DataSource = GlobalDTGralEstados(CvePais.ToString) : ddl.DataBind() End Sub Private Sub CargaMunicipios(ddl As DropDownList, CveEstado As Integer) - ddl.DataSource = GlobalDTGralMunicipios(CveEstado) : ddl.DataBind() + ddl.DataSource = GlobalDTGralMunicipios(CveEstado.ToString) : ddl.DataBind() End Sub Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click From c95a0f4cb082318f8d952704006651a7800c6989 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 11 Feb 2023 08:34:09 -0700 Subject: [PATCH 02/11] =?UTF-8?q?--=20mejora=20en=20registro=20prep=C3=B3l?= =?UTF-8?q?iza?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/ClientesAbonar.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index ac6acc141..b95bf73dc 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -827,7 +827,7 @@ Partial Class Ventas_ClientesAbonar CveMoneda = IfNull(Request("CveMoneda"), "1").ToString.ToEntero End If - CvePrePoliza = ObjMov.AddPrePolizas("Ventas/ClientesAbonar", 11, TxtImporte.Text.Trim.ToDecimal, TxtImporte.Text.Trim.ToDecimal, CveMoneda, TxtFechaDocumento.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + CvePrePoliza = ObjMov.AddPrePolizas("Ventas/ClientesAbonar", 11, TxtImporte.Text.Trim.ToDecimal, TxtImporte.Text.Trim.ToDecimal, 1, TxtFechaDocumento.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) If RblTipoPago.SelectedValue = "1" Then Dim CveCuentaDeposito As Integer = 0 @@ -1151,7 +1151,7 @@ Partial Class Ventas_ClientesAbonar Dim ImporteMN As Decimal = (ImporteMovimiento * tipoCambioPago).RoundSQL Dim IdCtaContable As Integer = 0 - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 134, VentaActual.SerieFolio, VentaActual.SerieFolio, IdCtaContable, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveSubProyecto:=CveSubProyectoContabilizar, CveProveedor:=DdlProveedorPagoInt.SelectedValue.ToEntero) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 134, VentaActual.SerieFolio, VentaActual.SerieFolio, VentaActual.IdCtaContableCliente, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveSubProyecto:=CveSubProyectoContabilizar, CveProveedor:=DdlProveedorPagoInt.SelectedValue.ToEntero) Then MsgError = "No se pudo insertar la póliza" End If End If From 9407da341e66a0fe98573db23bd107e2b9c0aa4b Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 11 Feb 2023 08:34:42 -0700 Subject: [PATCH 03/11] =?UTF-8?q?--=20par=C3=A1metro=20proyecto=20en=20aux?= =?UTF-8?q?iliares?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/ConciliacionesBancarias.aspx.vb | 4 ++-- Bancos/FluctuacionCambiaria.aspx.vb | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/Bancos/ConciliacionesBancarias.aspx.vb b/Bancos/ConciliacionesBancarias.aspx.vb index 9c9dc72d7..a04dc3bc3 100644 --- a/Bancos/ConciliacionesBancarias.aspx.vb +++ b/Bancos/ConciliacionesBancarias.aspx.vb @@ -638,14 +638,14 @@ Partial Class Bancos_ConciliacionesBancariasaspx End If End If If CveCuenta > 0 Then - If ObjConta.GetMovimientosAuxiliaresCatalogo(CveCuenta, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, CveMoneda, "-1", UsuarioActual.CveEmpresa, "1") Then + If ObjConta.GetMovimientosAuxiliaresCatalogo(CveCuenta, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, CveMoneda, -1, -1, UsuarioActual.CveEmpresa, "1") Then If ObjConta.DtResultados.Rows.Count > 1 Then SaldoFinalContabilidad = ObjConta.DtResultados.Rows(1)("SaldoActual").ToString.ToDouble End If End If End If If CveCuentaComplementaria > 0 Then - If ObjConta.GetMovimientosAuxiliaresCatalogo(CveCuentaComplementaria, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, CveMoneda, "-1", UsuarioActual.CveEmpresa, "1") Then + If ObjConta.GetMovimientosAuxiliaresCatalogo(CveCuentaComplementaria, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, CveMoneda, -1, -1, UsuarioActual.CveEmpresa, "1") Then If ObjConta.DtResultados.Rows.Count > 1 Then SaldoFinalContabilidadComplementaria = ObjConta.DtResultados.Rows(1)("SaldoActual").ToString.ToDouble End If diff --git a/Bancos/FluctuacionCambiaria.aspx.vb b/Bancos/FluctuacionCambiaria.aspx.vb index d93124cd0..0257fb67f 100644 --- a/Bancos/FluctuacionCambiaria.aspx.vb +++ b/Bancos/FluctuacionCambiaria.aspx.vb @@ -313,7 +313,7 @@ Partial Class Bancos_FluctuacionCambiaria Dim Total As Decimal = 0 Dim CveCuentaExtranjera As Integer = Dr("CveCuentaExtranjera").ToString.ToEntero If CveCuentaExtranjera > 0 Then - If Conta.GetMovimientosAuxiliaresCatalogo(CveCuentaExtranjera, MinFecha, FechaUltimoDiaMes, 2, "-1", UsuarioActual.CveEmpresa, "1") Then + If Conta.GetMovimientosAuxiliaresCatalogo(CveCuentaExtranjera, MinFecha, FechaUltimoDiaMes, 2, -1, -1, UsuarioActual.CveEmpresa, "1") Then If Conta.DtResultados.Rows.Count > 1 Then Total = Conta.DtResultados.Rows(1)("SaldoActual").ToString.ToDecimal End If @@ -324,7 +324,7 @@ Partial Class Bancos_FluctuacionCambiaria Dim SaldoActualContabilidad As Decimal = 0 Dim CveCuentaComplementaria As Integer = Dr("CveCuentaComplementaria").ToString.ToEntero If CveCuentaComplementaria > 0 Then - If Conta.GetMovimientosAuxiliaresCatalogo(CveCuentaComplementaria, MinFecha, FechaUltimoDiaMes, 2, "-1", UsuarioActual.CveEmpresa, "1") Then + If Conta.GetMovimientosAuxiliaresCatalogo(CveCuentaComplementaria, MinFecha, FechaUltimoDiaMes, 2, -1, -1, UsuarioActual.CveEmpresa, "1") Then If Conta.DtResultados.Rows.Count > 1 Then SaldoActualContabilidad = Conta.DtResultados.Rows(1)("SaldoActual").ToString.ToDecimal End If From fc4beb6bbf6119cf7b4b20eb922f082a9b6b7952 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 11 Feb 2023 08:34:49 -0700 Subject: [PATCH 04/11] -- mejora warnings --- AF/CatClasificacionesCaracteristicas.aspx.vb | 35 ++++++++++---------- 1 file changed, 17 insertions(+), 18 deletions(-) diff --git a/AF/CatClasificacionesCaracteristicas.aspx.vb b/AF/CatClasificacionesCaracteristicas.aspx.vb index 96243065a..fbdc75167 100644 --- a/AF/CatClasificacionesCaracteristicas.aspx.vb +++ b/AF/CatClasificacionesCaracteristicas.aspx.vb @@ -81,8 +81,8 @@ Partial Class AF_CatClasificacionesCaracteristicas Dim ObjAF As New ClsAF If ObjAF.GetCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) Then - GlobalDTAFCaracteristicasClasificaciones = ObjAF.DtResultados - ViewState("DTCaracteristicaClasificacion") = ObjAF.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa)) + + ViewState("DTCaracteristicaClasificacion") = ObjAF.DtResultados Else Alert("Ocurrio un error al obtener las caracteristicas clasificaciones de Activos Fijos", TipoMensaje.MsgError) End If @@ -90,15 +90,15 @@ Partial Class AF_CatClasificacionesCaracteristicas ObjAF.Dispose() End Sub Private Sub CargaCaracteristicas() - Dim ObjAF As New ClsAF + 'Dim ObjAF As New ClsAF - If ObjAF.GetCaracteristicas(UsuarioActual.CveEmpresa) Then - GlobalDTAFCaracteristicas = ObjAF.DtResultados - Else - Alert("Ocurrio un error al obtener las caracteristicas de Activos Fijos", TipoMensaje.MsgError) - End If + 'If ObjAF.GetCaracteristicas(UsuarioActual.CveEmpresa) Then + ' GlobalDTAFCaracteristicas = ObjAF.DtResultados + 'Else + ' Alert("Ocurrio un error al obtener las caracteristicas de Activos Fijos", TipoMensaje.MsgError) + 'End If - ObjAF.Dispose() + 'ObjAF.Dispose() End Sub #Region "CLASIFICACIONES" @@ -128,8 +128,8 @@ Partial Class AF_CatClasificacionesCaracteristicas Public Sub CargaDatosCL() Dim ObjCaracteristicaClasificacion As New ClsAF If ObjCaracteristicaClasificacion.GetCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) Then - ViewState("DTCaracteristicaClasificacion") = ObjCaracteristicaClasificacion.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa)) - GlobalDTAFCaracteristicasClasificaciones = ObjCaracteristicaClasificacion.DtResultados + ViewState("DTCaracteristicaClasificacion") = ObjCaracteristicaClasificacion.DtResultados + Else Me.GvDatosCL.DataSource = Nothing End If @@ -264,7 +264,7 @@ Partial Class AF_CatClasificacionesCaracteristicas Alert("La Nueva Característica de Activo Fijo se guardó correctamente.", TipoMensaje.MsgInformacion) UpTitulosCA.Update() ViewState("DTCatacteristica") = ObjCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - + GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa) = Nothing CargaSubTiposActivosFijos() CargaCaracteristicasClasificaciones() @@ -284,7 +284,6 @@ Partial Class AF_CatClasificacionesCaracteristicas Dim ObjCaracteristicas As New ClsAF If ObjCaracteristicas.GetCaracteristicas(UsuarioActual.CveEmpresa) Then ViewState("DTCatacteristica") = ObjCaracteristicas.DtResultados '.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTAFCaracteristicas = ObjCaracteristicas.DtResultados Else Me.GvDatosCA.DataSource = Nothing End If @@ -301,7 +300,7 @@ Partial Class AF_CatClasificacionesCaracteristicas End Sub Private Sub CargaClasificacionesCA() DdlClasificacionesCA.Items.Clear() - DdlClasificacionesCA.DataSource = GlobalDTAFCaracteristicasClasificaciones '.FiltraParametros(String.Format("CveSubTipoActivoFijo = {0}", DdlSubTiposActivosFijosCA.SelectedValue.ToEntero)) + DdlClasificacionesCA.DataSource = GlobalDTAFCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) '.FiltraParametros(String.Format("CveSubTipoActivoFijo = {0}", DdlSubTiposActivosFijosCA.SelectedValue.ToEntero)) DdlClasificacionesCA.DataBind() UpdatePanel1.Update() End Sub @@ -375,7 +374,7 @@ Partial Class AF_CatClasificacionesCaracteristicas If ObjCaracteristicas.RemoveCaracteristica(GvDatosCA.DataKeys(e.RowIndex).Value.ToString.ToEntero, UsuarioActual.CveEmpresa) Then GvDatosCA.EditIndex = -1 ViewState("DTCatacteristica") = ObjCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTAFCaracteristicas = ObjCaracteristicas.DtResultados + GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa) = Nothing Alert("La Característica se eliminó correctamente.", TipoMensaje.MsgInformacion) End If @@ -521,7 +520,7 @@ Partial Class AF_CatClasificacionesCaracteristicas DdlCaracteristicaOpciones.Items.Clear() 'Dim Filtro = String.Format("CveCaracteristicaClasificacion = {0} AND ", DdlClasificacionesOpciones.SelectedValue.ToEntero) Dim Filtro = If(DdlSubTiposActivosFijosOpciones.SelectedValue.ToEntero > 0, String.Format("CveSubTipoActivoFijo = {0}", DdlSubTiposActivosFijosOpciones.SelectedValue.ToEntero), String.Format("CveTipoActivoFijo = {0}", DdlTiposActivosFijosOpciones.SelectedValue.ToEntero)) - DdlCaracteristicaOpciones.DataSource = GlobalDTAFCaracteristicas.FiltraParametros(Filtro) + DdlCaracteristicaOpciones.DataSource = GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa).FiltraParametros(Filtro) DdlCaracteristicaOpciones.DataBind() DdlCaracteristicaOpciones.Items.Insert(0, New ListItem("Seleccione", "-1")) End Sub @@ -581,7 +580,7 @@ Partial Class AF_CatClasificacionesCaracteristicas e.Row.FCDropDownList("DdlSubTiposActivosFijosOpciones").Items.Insert(0, New ListItem("Todos", "-1")) e.Row.FCDropDownList("DdlSubTiposActivosFijosOpciones").SelectedValue = e.Row.DBCampo("CveSubTipoActivoFijo") - e.Row.FCDropDownList("DdlCaracteristicasOpciones").DataSource = GlobalDTAFCaracteristicas + e.Row.FCDropDownList("DdlCaracteristicasOpciones").DataSource = GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa) e.Row.FCDropDownList("DdlCaracteristicasOpciones").DataBind() FiltraCaracteristicas1(e.Row.FCDropDownList("DdlTiposActivosFijosOpciones"), e.Row.FCDropDownList("DdlSubTiposActivosFijosOpciones"), e.Row.FCDropDownList("DdlCaracteristicasOpciones")) e.Row.FCDropDownList("DdlCaracteristicasOpciones").SelectedValue = e.Row.DBCampo("CveCaracteristica") @@ -691,7 +690,7 @@ Partial Class AF_CatClasificacionesCaracteristicas ddlC.Items.Clear() 'Dim Filtro = String.Format("CveCaracteristicaClasificacion = {0} AND ", DdlClasificacionesOpciones.SelectedValue.ToEntero) Dim Filtro = If(ddlST.SelectedValue.ToEntero > 0, String.Format("CveSubTipoActivoFijo = {0}", ddlST.SelectedValue.ToEntero), String.Format("CveTipoActivoFijo = {0}", ddlT.SelectedValue.ToEntero)) - ddlC.DataSource = GlobalDTAFCaracteristicas.FiltraParametros(Filtro) + ddlC.DataSource = GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa).FiltraParametros(Filtro) ddlC.DataBind() ddlC.Items.Insert(0, New ListItem("Seleccione", "-1")) End Sub From d49903a1ad750d94eb077cfd0147509a15ac9ff3 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 11 Feb 2023 08:34:57 -0700 Subject: [PATCH 05/11] -- warnngs --- Contabilidad2/MovimientosconProveedores.aspx.vb | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/Contabilidad2/MovimientosconProveedores.aspx.vb b/Contabilidad2/MovimientosconProveedores.aspx.vb index 8c2a8b97a..847129b32 100644 --- a/Contabilidad2/MovimientosconProveedores.aspx.vb +++ b/Contabilidad2/MovimientosconProveedores.aspx.vb @@ -52,11 +52,11 @@ Partial Class MovimientosconProveedores ViewState("DTCuentas") = value End Set End Property - Private Property CveSubProyecto As String + Private Property CveSubProyecto As Integer Get - CveSubProyecto = ViewState("CveSubProyecto").ToString + CveSubProyecto = ViewState("CveSubProyecto").ToString.ToEntero End Get - Set(value As String) + Set(value As Integer) ViewState("CveSubProyecto") = value End Set End Property @@ -108,7 +108,7 @@ Partial Class MovimientosconProveedores End If If Request("CveSubProyecto") IsNot Nothing AndAlso IsNumeric(Request("CveSubProyecto")) Then - CveSubProyecto = Request("CveSubProyecto").ToString + CveSubProyecto = Request("CveSubProyecto").ToString.ToEntero End If @@ -184,9 +184,9 @@ Partial Class MovimientosconProveedores End If 'Dim CveSubProyecto As String If Request("CveSubProyecto") IsNot Nothing Then - CveSubProyecto = Request("CveSubProyecto").ToString + CveSubProyecto = Request("CveSubProyecto").ToString.ToEntero Else - CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero.ToString + CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero End If If ObjConta.GetAnexoCatalogo(IdCuenta, FechaInicio, FechaFin, DdlCuenta.SelectedValue.ToEntero, CveSubProyecto, UsuarioActual.CveEmpresa, TipoReporte, 1) Then From 2f0e32e1f3680ed8d66767486b03f3984680237d Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 11 Feb 2023 08:35:11 -0700 Subject: [PATCH 06/11] - limpieza --- Bancos/Transferencias.aspx.vb | 15 +-------------- 1 file changed, 1 insertion(+), 14 deletions(-) diff --git a/Bancos/Transferencias.aspx.vb b/Bancos/Transferencias.aspx.vb index ab44c7dd8..ff4a419e3 100644 --- a/Bancos/Transferencias.aspx.vb +++ b/Bancos/Transferencias.aspx.vb @@ -321,8 +321,6 @@ Partial Class Bancos_Transferencias Dim IDCtaContableComplementariaDestino As Integer = 0 Dim IdCtaContableDestino As Integer = 0 Dim CuentasContablesInvalidasSIG As New StringBuilder - Dim CveCuentaOrigen As Integer = 0 - Dim CveCuentaDestino As Integer = 0 Dim RowCuentaOrigen As DataRow = Nothing @@ -347,18 +345,8 @@ Partial Class Bancos_Transferencias CuentasContablesInvalidas.Append("
Cuenta Contable Destino") End If - 'Conta SIG - If CveCuentaOrigen < 1 Then - CuentasContablesInvalidasSIG.Append("
Cuenta Contable Origen") - End If - - If CveCuentaDestino < 1 Then - CuentasContablesInvalidasSIG.Append("
Cuenta Contable Destino") - End If - If Opcion = 1 Then ' CUANDO ES DOMICILIZACION IdCtaContableOrigen = IdCtaContableDestino - CveCuentaOrigen = CveCuentaDestino End If Dim TipoMovtoDetalle As Boolean = True @@ -369,7 +357,6 @@ Partial Class Bancos_Transferencias TxtImporte.Text.ToDouble, $"Transferencia entre cuentas {TxtObservaciones.Text}", 30, $"Transferencia entre cuentas {TxtObservaciones.Text}", Now, IdCtaContableOrigen, -1, CveIE, ImporteMX:=If(Not UsuarioActual.CveEmpresa.Contiene(13, 83), TxtImporte.Text.ToDouble, ImporteMXOrigen), ImporteME:=If(CveMonedaOrigen > 1, TxtImporte.Text.ToDouble * TC, 0), - CveCuenta:=CveCuentaOrigen, CveIEDevolucion:=CveIEDevolucion) Then If CveMonedaOrigen > 1 AndAlso Not UsuarioActual.CveEmpresa.Contiene(13, 83) Then @@ -401,7 +388,7 @@ Partial Class Bancos_Transferencias If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovtoDetalle, ImporteDestino, $"Transferencia entre cuentas {TxtObservaciones.Text}", 30, $"Transferencia entre cuentas {TxtObservaciones.Text}", Now, IdCtaContableDestino, -1, CveIEDestino, ImporteMX:=If(Not UsuarioActual.CveEmpresa.Contiene(13, 83), ImporteDestino, ImporteMXDestino), - ImporteME:=If(CveMonedaDestino > 1, ImporteDestino, 0), CveCuenta:=CveCuentaDestino) Then + ImporteME:=If(CveMonedaDestino > 1, ImporteDestino, 0)) Then MsgError = "Ocurrio un error al ingresar la prepoliza" End If From 57d2530d30f9c0445b0370992486560fb9980489 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 11 Feb 2023 08:35:29 -0700 Subject: [PATCH 07/11] warnings --- Finanzas/RepEstadoResultados.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Finanzas/RepEstadoResultados.aspx.vb b/Finanzas/RepEstadoResultados.aspx.vb index 04957a446..0081aa14c 100644 --- a/Finanzas/RepEstadoResultados.aspx.vb +++ b/Finanzas/RepEstadoResultados.aspx.vb @@ -173,10 +173,10 @@ Partial Class Contabilidad2_RepEstadoResultados TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero) 'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) - Dim CveSubProyecto As String = DdlSubproyecto.SelectedValue.ToString + Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero Dim ObjConta As New ClsContabilidad - If ObjConta.GetEstadoActividades(FechaI.ToDate, FechaF.ToDate, TipoReporte, CveSubProyecto, UsuarioActual.CveEmpresa) Then + If ObjConta.GetEstadoActividades(FechaI.ToDate, FechaF.ToDate, TipoReporte, -1, CveSubProyecto, UsuarioActual.CveEmpresa) Then DtDatos = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)") Else DtDatos = Nothing From 398dddd4dc13ff6eab0de9f491eeea3e07b62cdf Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 11 Feb 2023 08:35:46 -0700 Subject: [PATCH 08/11] - warnings --- Contabilidad2/RepEstadoResultados.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Contabilidad2/RepEstadoResultados.aspx.vb b/Contabilidad2/RepEstadoResultados.aspx.vb index 87b1df7e3..03ad46471 100644 --- a/Contabilidad2/RepEstadoResultados.aspx.vb +++ b/Contabilidad2/RepEstadoResultados.aspx.vb @@ -177,10 +177,10 @@ Partial Class Contabilidad2_RepEstadoResultados TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero) 'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) - Dim CveSubProyecto As String = DdlSubproyecto.SelectedValue.ToString + Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero Dim ObjConta As New ClsContabilidad - If ObjConta.GetEstadoActividades(FechaI.ToDate, FechaF.ToDate, TipoReporte, CveSubProyecto, UsuarioActual.CveEmpresa) Then + If ObjConta.GetEstadoActividades(FechaI.ToDate, FechaF.ToDate, TipoReporte, -1, CveSubProyecto, UsuarioActual.CveEmpresa) Then DtDatos = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)") Else DtDatos = Nothing From e66d428ee743c64c520f90553bc328cb267b8b19 Mon Sep 17 00:00:00 2001 From: MLopez Date: Sat, 11 Feb 2023 16:15:09 -0700 Subject: [PATCH 09/11] =?UTF-8?q?Mejoras=20en=20m=C3=B3dulo=20de=20circula?= =?UTF-8?q?res=20-Agregar=20bot=C3=B3n=20de=20cancelar=20en=20CircularDeta?= =?UTF-8?q?lleB=20-Selecci=C3=B3n=20de=20proveedores=20por=20Rol=20se=20ha?= =?UTF-8?q?ce=20por=20medio=20de=20javascript;=20ya=20no=20pierde=20la=20s?= =?UTF-8?q?elecci=C3=B3n=20al=20filtrar=20=20+=20custom.js:=20FiltrarTabla?= =?UTF-8?q?Str=20y=20FiltrarTablaStrMulti=20-Texto=20de=20alerta=20actuali?= =?UTF-8?q?zado=20-En=20la=20creaci=C3=B3n=20de=20una=20nueva=20circular,?= =?UTF-8?q?=20se=20prepone=20el=20texto=20"Circular"=20-En=20el=20listado?= =?UTF-8?q?=20de=20circulares=20=20+=20columna=20de=20Fecha=20de=20Ingreso?= =?UTF-8?q?=20=20-=20el=20combo=20de=20usuario=20dice=20"Todos"=20en=20vez?= =?UTF-8?q?=20de=20"seleccione"=20=20-=20se=20cambi=C3=B3=20la=20alineaci?= =?UTF-8?q?=C3=B3n=20a=20izq.=20=20-=20se=20arregl=C3=B3=20el=20gridview?= =?UTF-8?q?=20para=20que=20refrescara=20bien=20al=20momento=20de=20Consult?= =?UTF-8?q?ar?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- OI/Circular.aspx | 5 +++-- OI/Circular.aspx.vb | 3 ++- OI/CircularDetalleB.aspx | 28 ++++++++++++++++--------- OI/CircularDetalleB.aspx.cs | 24 +++++++++++----------- Scripts/custom.js | 41 +++++++++++++++++++++++++++++++++++++ 5 files changed, 76 insertions(+), 25 deletions(-) diff --git a/OI/Circular.aspx b/OI/Circular.aspx index 8e76b0d57..fc7c6ac03 100644 --- a/OI/Circular.aspx +++ b/OI/Circular.aspx @@ -68,11 +68,12 @@ - + + diff --git a/OI/Circular.aspx.vb b/OI/Circular.aspx.vb index 63b26eecf..8f39dc8a6 100644 --- a/OI/Circular.aspx.vb +++ b/OI/Circular.aspx.vb @@ -30,7 +30,7 @@ Partial Class OI_Circular DdlUsuario.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) DdlUsuario.DataBind() - DdlUsuario.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlUsuario.Items.Insert(0, New ListItem("Todos", "-1")) End Sub Private Sub CargaDatos() Dim ObjOI As New ClsOIEventos @@ -40,6 +40,7 @@ Partial Class OI_Circular End If ObjOI.Dispose() GvDatos.DataBind() + UpDatos.Update() End Sub Protected Sub btConsultar_Click() Handles btConsultar.Click diff --git a/OI/CircularDetalleB.aspx b/OI/CircularDetalleB.aspx index 24f6fc8e6..cd5e17ab2 100644 --- a/OI/CircularDetalleB.aspx +++ b/OI/CircularDetalleB.aspx @@ -108,14 +108,14 @@

Asunto

- +
-
+

Adjuntar Archivos:

@@ -137,6 +137,7 @@
+
@@ -173,7 +174,7 @@
- +
@@ -221,8 +222,8 @@
- " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> + +
@@ -315,7 +316,6 @@ function chkAll_OncLick(chk) { $('.GVUsuarios tr:visible input[type="checkbox"]').prop("checked", chk.checked); } - //function showhideUser() { // // alert(CveRol); @@ -346,12 +346,20 @@ // }); // input.addClass('ConEvento'); //} - //function ADSReady() { + function filtrarx() { + //console.log('Entre 3') + //var filtro = sotext($("div[id^='C_DVModalFiltros'] select:first").attr("id")); + //console.log(filtro) + FiltrarTablaStrMulti('<%=GVUsuarios.ClientID %>', null, sotext('<%=DdlRoles.ClientID %>'), $('#TxtBusquedaCorreos').val()); + } + function ADSBegin() { // loadeventos(); // showhideUser() - //} - - + } + //inicializa tablas select2me etc etc..... + function ADSReady() { + filtrarx(); + } diff --git a/OI/CircularDetalleB.aspx.cs b/OI/CircularDetalleB.aspx.cs index 600a24197..9a363615b 100644 --- a/OI/CircularDetalleB.aspx.cs +++ b/OI/CircularDetalleB.aspx.cs @@ -189,7 +189,7 @@ public partial class OI_CircularDetalleB : ClsPaginas ClsOIEventos ObjOI = new ClsOIEventos(); - if (ObjOI.GetCircularCorreos(intTipoConsulta, UsuarioActual.CveEmpresa,DdlRoles.SelectedValue.ToEntero(),DdlSubProyecto.SelectedValue.ToEntero(), DdlCveClasificacionProveedor.SelectedValue.ToEntero(), DdlSubProyectoPersonal.SelectedValue.ToEntero(),DdlClasificacion.SelectedValue.ToEntero())) + if (ObjOI.GetCircularCorreos(intTipoConsulta, UsuarioActual.CveEmpresa, -1, DdlSubProyecto.SelectedValue.ToEntero(), DdlCveClasificacionProveedor.SelectedValue.ToEntero(), DdlSubProyectoPersonal.SelectedValue.ToEntero(), DdlClasificacion.SelectedValue.ToEntero())) { if (ObjOI.DtResultados.Rows.Count >= 1000) @@ -203,7 +203,7 @@ public partial class OI_CircularDetalleB : ClsPaginas GVUsuarios.DataSource = dt; - Alert($"{ObjOI.DtResultados.Rows.Count } registros se limito a 2000 registros, se recomienda usar los filtros.", ModExtensiones.TipoMensaje.ToastAdventencia); + Alert($"{ObjOI.DtResultados.Rows.Count} registros se limito a 2000 registros, se recomienda usar los filtros.", ModExtensiones.TipoMensaje.ToastAdventencia); } else { @@ -216,14 +216,11 @@ public partial class OI_CircularDetalleB : ClsPaginas GVUsuarios.DataSource = null; } - RegistraScript("CveRol = -1; CveSucursal = -1;usuariotext = \"\";"); - ObjOI.Dispose(); GVUsuarios.DataBind(); UpModalSeleccionCorreos.Update(); - } protected void GVUsuarios_RowDataBound(object sender, GridViewRowEventArgs e) @@ -301,7 +298,7 @@ public partial class OI_CircularDetalleB : ClsPaginas if (ObjOI.UpdateCircular(CveCircular, TxtAsunto.Text, TxtCircular.Text.Replace("< ","<"), TxtCorreo.Text, TxtCorreoAdicional.Text, AdjuntoValidate)) { GuardarArchivo(CveCircular); - Alert("Actualizado correctamente"); + Alert("La circular se ha actualizado correctamente."); } } else @@ -313,7 +310,7 @@ public partial class OI_CircularDetalleB : ClsPaginas if (CircularInsertado > 0) { GuardarArchivo(CircularInsertado); - Alert("Ingresado correctamente"); + Alert("La circular se ha guardado correctamente."); CveCircular = CircularInsertado; if (CveCircular > 0) @@ -443,7 +440,7 @@ public partial class OI_CircularDetalleB : ClsPaginas MandaCorreo(TxtAsunto.Text, Correo, Contador > 0 ? "" : TxtCorreoAdicional.Text, TxtCircular.Text.Replace("< ", "<"), ArchivoBytes, HkArchivo.Text); Contador += 1; } - Alert("El correo se envió correctamente"); + Alert("El correo se envió correctamente."); } catch (Exception ) { @@ -522,10 +519,13 @@ public partial class OI_CircularDetalleB : ClsPaginas protected void DdlRoles_SelectedIndexChanged(object sender, EventArgs e) { - ConsultaCorreos(); - } + //ConsultaCorreos(); + // Filtro las filas según el dropdown option + //RegistraScript("console.log('Entre 1')"); + //RegistraScript($"FiltrarTablaStrMulti('{GVUsuarios.ClientID}', null, sotext('{DdlRoles.ClientID}'), $('#TxtBusquedaCorreos').val());"); + } - protected void DdlSubProyecto_SelectedIndexChanged(object sender, EventArgs e) + protected void DdlSubProyecto_SelectedIndexChanged(object sender, EventArgs e) { ConsultaCorreos(); } @@ -542,7 +542,7 @@ public partial class OI_CircularDetalleB : ClsPaginas protected void DdlClasificacion_SelectedIndexChanged(object sender, EventArgs e) { - // ConsultaCorreos(); + ConsultaCorreos(); } protected void LnlActualizarCorreos_Click(object sender, EventArgs e) diff --git a/Scripts/custom.js b/Scripts/custom.js index ca375cedc..c630cc62c 100644 --- a/Scripts/custom.js +++ b/Scripts/custom.js @@ -69,6 +69,15 @@ function alertatoast(tipo, Mensaje, Funcion, timeout) { function log(mensaje) { console.log(mensaje); } + +function soval(dropdown) { + return $('option:selected', '#' + dropdown).val(); +} + +function sotext(dropdown) { + return $('option:selected', '#' + dropdown).text(); +} + function FiltrarTabla(idtxt, idtable, idcontador) { if ($('#' + idtxt).val() == '') { $('table#' + idtable + ' tr').css('display', ''); } else { @@ -79,6 +88,38 @@ function FiltrarTabla(idtxt, idtable, idcontador) { $('#' + idcontador).html($('#' + idtable + ' tr:visible').length); } } + +function FiltrarTablaStr(str, idtable, idcontador) { + if (str == '' || str == 'Todos') { $('table#' + idtable + ' tr').css('display', ''); } + else { + $('table#' + idtable + ' tr:not(.ADtr)').css('display', 'none'); + $('table#' + idtable + ' tr:contains("' + str + '")').css('display', ''); + $('div.ADScroller .ADScroller-header table#' + idtable + ' tr:not(.ADtr)').css('display', ''); + } + if ($('#' + idcontador).length > 0) { + $('#' + idcontador).html($('#' + idtable + ' tr:visible').length); + } +} + +function FiltrarTablaStrMulti(idtable, idcontador /*, str1, str2, str3...*/ ) { + if (arguments.length <= 2) { return; } + let strc = ''; + for (let i = 2 /*a partir del 3er argumento obtiene los str*/; i < arguments.length; i++) { + let str = arguments[i]; + if (str != '' && str != 'Todos') { + strc += ':contains("' + str + '")'; + } + } + $('table#' + idtable + ' tr:not(.ADtr)').css('display', 'none'); + $('table#' + idtable + ' tr' + strc).css('display', ''); + $('div.ADScroller .ADScroller-header table#' + idtable + ' tr:not(.ADtr)').css('display', ''); + if (idcontador) { + if ($('#' + idcontador).length > 0) { + $('#' + idcontador).html($('#' + idtable + ' tr:visible').length); + } + } +} + function FiltrarTablaClass(idtxt, idtable, idcontador, resta) { if (resta == null) { resta =1 From 44e8cd3070e29bdcb35b38a75d5438e484c1e164 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 11 Feb 2023 16:50:30 -0700 Subject: [PATCH 10/11] -- mejora adicionales texto --- Ventas/Clientes.aspx | 4 ++-- Ventas/Clientes.aspx.vb | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index 6cc3bcfc3..1724cc382 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -4582,7 +4582,7 @@ @@ -4874,7 +4874,7 @@
- + diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 82de53a46..7be511d61 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -1512,7 +1512,7 @@ Partial Class Clientes ' CargaDocs() CargaCombos() CargaDocumentacionCliente() - CargaSubProyectosSuscursales() + 'CargaSubProyectosSuscursales() 'CargaMetodosPago33() 'CargaFormaPago33() 'CargaComboCFDI() From fab3e90b576441b1df73a54d10dd3e1620678473 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Mon, 13 Feb 2023 05:50:59 -0700 Subject: [PATCH 11/11] concepto,Turno --- App_Code/ClsNominas.vb | 22 +++++- App_Code/ClsRH.vb | 21 +++++- Nomina/ConceptoNomina.aspx | 137 +++++++++++++++++----------------- Nomina/ConceptoNomina.aspx.cs | 40 +++++++++- RH/CatTurno.aspx | 27 ++++++- RH/CatTurno.aspx.vb | 45 ++++++----- 6 files changed, 194 insertions(+), 98 deletions(-) diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index 2308f3c28..d187b5980 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -1,5 +1,6 @@ Imports System.Data Imports System.Data.SqlClient +Imports ADSNetLibrary.SIGAPI.Models Imports Extensiones Imports HigLabo @@ -1356,7 +1357,8 @@ Public Class ClsNominas Public Function AddConcepto(Codigo As String, Concepto As String, Tipo As String, Formula As String, Sistema As Boolean, Estado As Boolean, CveConceptoPadre As Integer, CveUsuario As Integer, CveEmpresa As Integer, EsRetencion As Boolean, CveClasificacion As Integer, IdCtaContable As Integer, CveTipoGasto As Integer, TipoCalculo As Boolean, CveConceptoContable As Integer, - AplicaFiniquito As Integer, AutomaticoGlobal As Integer, Especie As Integer, Imprimir As Integer, CveSATConcepto As Integer) As Integer + AplicaFiniquito As Integer, AutomaticoGlobal As Integer, Especie As Integer, Imprimir As Integer, CveSATConcepto As Integer, + ctaImporteNegativoProv As Integer, contabiliza As Integer, CargoOAbono As Integer, cveConceptoContableB As Integer, IdCtaContableB As Integer, CveCuentaB As Integer) As Integer Dim Retorno As Integer = -1 DataAdapter("PA_Nom_ConceptosAdd") @@ -1383,6 +1385,14 @@ Public Class ClsNominas .Add("Especie", SqlDbType.Bit).Value = Especie .Add("Imprimir", SqlDbType.Bit).Value = Imprimir .Add("CveSATConcepto", SqlDbType.Int).Value = CveSATConcepto + + .Add("CtaImporteNegativoProv", SqlDbType.Int).Value = ctaImporteNegativoProv + .Add("Contabiliza", SqlDbType.Int).Value = contabiliza + .Add("CargoOAbono", SqlDbType.Int).Value = CargoOAbono + .Add("CveConceptoContableB", SqlDbType.Int).Value = cveConceptoContableB + .Add("IdCtaContableB", SqlDbType.Int).Value = IdCtaContableB + .Add("CveCuentaB", SqlDbType.Int).Value = CveCuentaB + End With Try @@ -1407,7 +1417,8 @@ Public Class ClsNominas Public Function UpdateConcepto(Codigo As String, Concepto As String, Tipo As String, Formula As String, Sistema As Boolean, Estado As Boolean, CveConceptoPadre As Integer, CveConcepto As Integer, EsRetencion As Boolean, CveClasificacion As Integer, IdCtaContable As Integer, CveTipoGasto As Integer, TipoCalculo As Boolean, CveConceptoContable As Integer, - AplicaFiniquito As Integer, AutomaticoGlobal As Integer, Especie As Integer, Imprimir As Integer, CveSATConcepto As Integer, CveEmpresa As Integer) As Boolean + AplicaFiniquito As Integer, AutomaticoGlobal As Integer, Especie As Integer, Imprimir As Integer, CveSATConcepto As Integer, CveEmpresa As Integer, + ctaImporteNegativoProv As Integer, contabiliza As Integer, CargoOAbono As Integer, cveConceptoContableB As Integer, IdCtaContableB As Integer, CveCuentaB As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Nom_ConceptosUpdate") @@ -1433,6 +1444,13 @@ Public Class ClsNominas .Add("Imprimir", SqlDbType.Bit).Value = Imprimir .Add("CveSATConcepto", SqlDbType.Int).Value = CveSATConcepto .Add("CveEmpresa", SqlDbType.Int).Value = CveEmpresa + + .Add("CtaImporteNegativoProv", SqlDbType.Int).Value = ctaImporteNegativoProv + .Add("Contabiliza", SqlDbType.Int).Value = contabiliza + .Add("CargoOAbono", SqlDbType.Int).Value = CargoOAbono + .Add("CveConceptoContableB", SqlDbType.Int).Value = cveConceptoContableB + .Add("IdCtaContableB", SqlDbType.Int).Value = IdCtaContableB + .Add("CveCuentaB", SqlDbType.Int).Value = CveCuentaB End With Try diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index c516288de..9e98ac57a 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -3520,9 +3520,12 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo #End Region #Region "ClsRHTurnos" - Public Function GetTurnos() As Boolean + Public Function GetTurnos(Optional CveEmpresa As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_RH_TurnoGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With Try SqlAdapter.Fill(Data) Retorno = True @@ -3533,7 +3536,8 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Return Retorno End Function Public Function AddTurno(Turno As String, HorarioDe As String, HorarioA As String, CveUsuario As Integer, CveEmpresa As Integer, CveChecadorHorario As Integer, - ToleranciaERetardo As Integer, ToleranciaEFalta As Integer, ToleranciaSRetardo As Integer, ToleranciaSFalta As Integer) As Boolean + ToleranciaERetardo As Integer, ToleranciaEFalta As Integer, ToleranciaSRetardo As Integer, ToleranciaSFalta As Integer, + Comida As Integer, ComidaDe As String, ComidaA As String) As Boolean Dim Retorno As Boolean = False @@ -3543,6 +3547,11 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo .Add("@Turno", SqlDbType.VarChar).Value = Turno .Add("@HorarioDe", SqlDbType.Time).Value = HorarioDe .Add("@HorarioA", SqlDbType.Time).Value = HorarioA + + .Add("@Comida", SqlDbType.Int).Value = Comida + .Add("@ComidaDe", SqlDbType.Time).Value = ComidaDe + .Add("@ComidaA", SqlDbType.Time).Value = ComidaA + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveChecadorHorario", SqlDbType.Int).Value = CveChecadorHorario @@ -3568,7 +3577,8 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Return Retorno End Function Public Function UpdateTurno(Turno As String, HorarioDe As String, HorarioA As String, Estatus As Boolean, CveTurno As Integer, CveUsuario As Integer, CveChecadorHorario As Integer, - ToleranciaERetardo As Integer, ToleranciaEFalta As Integer, ToleranciaSRetardo As Integer, ToleranciaSFalta As Integer) As Boolean + ToleranciaERetardo As Integer, ToleranciaEFalta As Integer, ToleranciaSRetardo As Integer, ToleranciaSFalta As Integer, + Comida As Integer, ComidaDe As String, ComidaA As String) As Boolean Dim Retorno As Boolean = False @@ -3578,6 +3588,11 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo .Add("@Turno", SqlDbType.VarChar).Value = Turno .Add("@HorarioDe", SqlDbType.Time).Value = HorarioDe .Add("@HorarioA", SqlDbType.Time).Value = HorarioA + + .Add("@Comida", SqlDbType.Int).Value = Comida + .Add("@ComidaDe", SqlDbType.Time).Value = ComidaDe + .Add("@ComidaA", SqlDbType.Time).Value = ComidaA + .Add("@Estatus", SqlDbType.Bit).Value = Estatus .Add("@CveTurno", SqlDbType.Int).Value = CveTurno .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario diff --git a/Nomina/ConceptoNomina.aspx b/Nomina/ConceptoNomina.aspx index d469c80ac..d2db06b9e 100644 --- a/Nomina/ConceptoNomina.aspx +++ b/Nomina/ConceptoNomina.aspx @@ -171,20 +171,20 @@
-
+
-
- - +
+ +
-
+
-
-
-
- - Provisión -
-
-
-
-
-
-
- -
-
-
- -
-
-
- - - - - + + +
+
+
+ + Provisión del concepto +
+
+ +
+ +
-
-
- -
-
- - + + +
+
+
+ + +
+
+
+
+ + +
+
-
-
-
- - - - - +
+
+
+ + + + + +
+
+
+ + +
-
-
-
-
-
- - -
-
-
+ +
+
+ + +
+
+
+
+ + +
+
+ <%--
- - + +
-
+
--%> + +
-
-
- + +
diff --git a/Nomina/ConceptoNomina.aspx.cs b/Nomina/ConceptoNomina.aspx.cs index c71b007ca..a77ff6052 100644 --- a/Nomina/ConceptoNomina.aspx.cs +++ b/Nomina/ConceptoNomina.aspx.cs @@ -1,5 +1,6 @@ using Extensiones; using System; +using System.Activities.Expressions; using System.Collections.Generic; using System.Data; using System.Linq; @@ -75,6 +76,8 @@ public partial class Nomina_CatConcepto : ClsPaginas tree_Tables(); InicializaDatos(); } + DivCtasProvision.Visible = ChkContabiliza.Checked; + Divctasnegativas.Visible = chkCtaImporteNegativoProv.Checked; } #region Arboles conceptos @@ -226,6 +229,11 @@ public partial class Nomina_CatConcepto : ClsPaginas DdlConceptoContable.DataBind(); DdlConceptoContable.Items.Insert(0, new ListItem("Seleccione", "-1")); DdlConceptoContable.SelectedValueExist("-1"); + + DdlConceptoContableB.DataSource = get_GlobalDTContaConceptosContables(-1); + DdlConceptoContableB.DataBind(); + DdlConceptoContableB.Items.Insert(0, new ListItem("Seleccione", "-1")); + DdlConceptoContableB.SelectedValueExist("-1"); } protected void CargaClasificacion() { @@ -260,6 +268,7 @@ public partial class Nomina_CatConcepto : ClsPaginas if (UsuarioActual.Empresa.TipoContabilidad == 2) { DdlCtaContable.DataValueField = "Id"; + DdlCtaContableB.DataValueField = "Id"; using (ClsContPAQi ObjConta = new ClsContPAQi(UsuarioActual.Empresa)) { @@ -267,11 +276,15 @@ public partial class Nomina_CatConcepto : ClsPaginas { DdlCtaContable.DataSource = ObjConta.DtResultados; DdlCtaContable.DataBind(); + DdlCtaContableB.DataSource = ObjConta.DtResultados; + DdlCtaContableB.DataBind(); } } DdlCtaContable.Items.Insert(0, new ListItem("Seleccione", "-1")); DdlCtaContable.SelectedValueExist("-1"); + DdlCtaContableB.Items.Insert(0, new ListItem("Seleccione", "-1")); + DdlCtaContableB.SelectedValueExist("-1"); } else { @@ -331,6 +344,15 @@ public partial class Nomina_CatConcepto : ClsPaginas int Especie = ChkEspecie.Checked ? 1 : 0; int Imprimir = ChkImprimir.Checked ? 1 : 0; int CveSATConcepto = DdlConceptoSAT.SelectedValue.ToEntero(); + + + int ctaImporteNegativoProv = (chkCtaImporteNegativoProv.Checked ? 1 : 0); + int contabiliza = (ChkContabiliza.Checked ? 1 : 0); + int CargoOAbono = ddlCargooAbono.SelectedValue.ToEntero(); + int cveConceptoContableB = DdlConceptoContableB.SelectedValue.ToEntero(); + int IdCtaContableB = (DdlCtaContableB.DataValueField == "Id" ? DdlCtaContableB.SelectedValue.ToEntero() : 0); + int CveCuentaB = (DdlCtaContableB.DataValueField == "Id" ? 0 : DdlCtaContableB.SelectedValue.ToEntero()); + ClsNominas ObjNomina = new ClsNominas(); ObjNomina.IniciaTransacSQL(); @@ -338,7 +360,9 @@ public partial class Nomina_CatConcepto : ClsPaginas if (EsEditar) { - TieneError = !ObjNomina.UpdateConcepto(codigo, concepto, tipo, formula, sistema, estado, CveConceptoPadre, CveConcepto, retencion, CveClasificacion, IdCtaContable, CveTipoGasto, tipoCalculo, CveConceptoContable, AplicaFiniquito, AutomaticoGlobal, Especie, Imprimir, CveSATConcepto, UsuarioActual.CveEmpresa); + TieneError = !ObjNomina.UpdateConcepto(codigo, concepto, tipo, formula, sistema, estado, CveConceptoPadre, CveConcepto, retencion, CveClasificacion, + IdCtaContable, CveTipoGasto, tipoCalculo, CveConceptoContable, AplicaFiniquito, AutomaticoGlobal, Especie, Imprimir, CveSATConcepto, + UsuarioActual.CveEmpresa, ctaImporteNegativoProv, contabiliza, CargoOAbono, cveConceptoContableB , IdCtaContableB , CveCuentaB); if (!TieneError) { @@ -368,7 +392,9 @@ public partial class Nomina_CatConcepto : ClsPaginas } else { - CveConcepto = ObjNomina.AddConcepto(codigo, concepto, tipo, formula, sistema, estado, CveConceptoPadre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, retencion, CveClasificacion, IdCtaContable, CveTipoGasto, tipoCalculo, CveConceptoContable, AplicaFiniquito, AutomaticoGlobal, Especie, Imprimir, CveSATConcepto); + CveConcepto = ObjNomina.AddConcepto(codigo, concepto, tipo, formula, sistema, estado, CveConceptoPadre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, + retencion, CveClasificacion, IdCtaContable, CveTipoGasto, tipoCalculo, CveConceptoContable, AplicaFiniquito, AutomaticoGlobal, Especie, Imprimir, + CveSATConcepto, ctaImporteNegativoProv, contabiliza, CargoOAbono, cveConceptoContableB, IdCtaContableB, CveCuentaB); @@ -460,19 +486,21 @@ public partial class Nomina_CatConcepto : ClsPaginas if (drow["TipoCalculo"].Equals("True")) ChkTipoCalculo.Checked = true; DdlConceptoPadre.SelectedValueExist(drow["CveConceptoPadre"]); DdlConceptoContable.SelectedValueExist(drow["CveConceptoContable"]); + DdlConceptoContableB.SelectedValueExist(drow["CveConceptoContableB"]); ChkEstado.Checked = drow["Estado"].Equals("Activo"); ChkSistema.Checked = drow["Sistema"].Equals("Sí"); ChkAutomaticoLiquidacion.Checked = drow["AplicaFiniquito"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" }); ChkContabiliza.Checked = drow["Contabiliza"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" }); + chkCtaImporteNegativoProv.Checked = drow["CtaImporteNegativoProv"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" }); ChkAutomaticoGlobal.Checked = drow["AutomaticoGlobal"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" }); ChkEspecie.Checked = drow["Especie"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" }); ChkImprimir.Checked = drow["Imprimir"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" }); DdlClasificacion.SelectedValueExist(drow["CveClasificacion"]); - DdlTipoProvision.SelectedValueExist(drow["TipoProvision"]); + //DdlTipoProvision.SelectedValueExist(drow["TipoProvision"]); ddlCargooAbono.SelectedValueExist(drow["CargoOAbono"]); - ddlCargooAbonoB.SelectedValueExist(drow["CargoOAbonoB"]); + //ddlCargooAbonoB.SelectedValueExist(drow["CargoOAbonoB"]); DdlTipoGasto.SelectedValueExist(drow["CveTipoGasto"]); //DdlCtaContable.SelectedValueExist(drow["CveCuenta"]); if (DdlCtaContable.DataValueField == "Id") @@ -491,6 +519,10 @@ public partial class Nomina_CatConcepto : ClsPaginas { DdlCtaContableB.SelectedValueExist(drow["CveCuentaB"]); } + if (ChkContabiliza.Checked && (DdlCtaContable.SelectedValue.ToEntero() <= 0 || (chkCtaImporteNegativoProv.Checked && DdlCtaContableB.SelectedValue.ToEntero() <= 0))) + { + Alert("el concepto esta marcado como contabilizable pero no estan asignadas correctamente las cuentas.", ModExtensiones.TipoMensaje.MsgAdvertencia); + } //if (UsuarioActual.Empresa.TipoContabilidad == 1) //{ //} diff --git a/RH/CatTurno.aspx b/RH/CatTurno.aspx index e1ca00d75..cbd930149 100644 --- a/RH/CatTurno.aspx +++ b/RH/CatTurno.aspx @@ -47,7 +47,7 @@ + DataKeyNames="CveTurno,Turno,CveChecadorHorario,HorarioDe,HorarioA,Comida,ComidaDe,ComidaA,Estatus,FechaIng,CveUsuario,CveEmpresa,Usuario,ChecadorHorario,ToleranciaERetardo,ToleranciaEFalta,ToleranciaEFalta2,ToleranciaSRetardo,ToleranciaSFalta"> <%----%> @@ -125,6 +125,31 @@
+ + +
+ + +
+
+ + + + + + + +
+ +
+ + + + + + + +
diff --git a/RH/CatTurno.aspx.vb b/RH/CatTurno.aspx.vb index 6b51584dc..7fe9ebd7a 100644 --- a/RH/CatTurno.aspx.vb +++ b/RH/CatTurno.aspx.vb @@ -27,7 +27,7 @@ Partial Class RH_CatTurno End Sub Private Sub CargaDatos() Dim ObjRH As New ClsRH() - If ObjRH.GetTurnos Then + If ObjRH.GetTurnos(UsuarioActual.CveEmpresa) Then GvTurno.DataSource = ObjRH.DtResultados.FiltraParametros(" CveEmpresa =" & UsuarioActual.CveEmpresa) GvTurno.DataBind() End If @@ -36,26 +36,28 @@ Partial Class RH_CatTurno End Sub Private Sub BtnAgregarTurno_Click(sender As Object, e As EventArgs) Handles BtnAgregarTurno.Click - Dim ObjRH As New ClsRH - Dim Estatus As Boolean = False - If ChkEstatus.Checked Then Estatus = True - If HdnModalidad.Value = "A" Then - If ObjRH.AddTurno(TxtTurno.Text, TxtHorarioDe.Text, TxtHorarioA.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlChecadorHorario.SelectedValue.ToEntero(), - TxtRetardo.Text.ToEntero(), TxtFretardo.Text.ToEntero() - TxtRetardo.Text.ToEntero(), 0, TxtFsalida.Text.ToEntero()) Then - CargaDatos() - CargaGlobalDTTurno() - Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion) + Using ObjRH As New ClsRH + Dim Estatus As Boolean = False + Dim comida As Integer = If(chkComida.Checked, 1, 0) + If ChkEstatus.Checked Then Estatus = True + If HdnModalidad.Value = "A" Then + If ObjRH.AddTurno(TxtTurno.Text, TxtHorarioDe.Text, TxtHorarioA.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlChecadorHorario.SelectedValue.ToEntero(), + TxtRetardo.Text.ToEntero(), TxtFretardo.Text.ToEntero() - TxtRetardo.Text.ToEntero(), 0, TxtFsalida.Text.ToEntero(), comida, TxtComidade.Text, TxtComidaA.Text) Then + CargaDatos() + CargaGlobalDTTurno() + Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion) + End If + ElseIf HdnModalidad.Value = "U" Then + If ObjRH.UpdateTurno(TxtTurno.Text, TxtHorarioDe.Text, TxtHorarioA.Text, Estatus, HdnID.Value.ToEntero(), UsuarioActual.CveUsuario, DdlChecadorHorario.SelectedValue.ToEntero(), + TxtRetardo.Text.ToEntero(), TxtFretardo.Text.ToEntero() - TxtRetardo.Text.ToEntero(), 0, TxtFsalida.Text.ToEntero(), comida, TxtComidade.Text, TxtComidaA.Text) Then + CargaDatos() + CargaGlobalDTTurno() + Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion) + End If End If - ElseIf HdnModalidad.Value = "U" Then - If ObjRH.UpdateTurno(TxtTurno.Text, TxtHorarioDe.Text, TxtHorarioA.Text, Estatus, HdnID.Value.ToEntero(), UsuarioActual.CveUsuario, DdlChecadorHorario.SelectedValue.ToEntero(), - TxtRetardo.Text.ToEntero(), TxtFretardo.Text.ToEntero() - TxtRetardo.Text.ToEntero(), 0, TxtFsalida.Text.ToEntero()) Then - CargaDatos() - CargaGlobalDTTurno() - Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion) - End If - End If + + End Using RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddTurno")) - ObjRH.Dispose() UpDatos.Update() End Sub @@ -75,6 +77,11 @@ Partial Class RH_CatTurno TxtFretardo.Text = (GvRow.DataKey("ToleranciaEFalta2").ToEntero()).ToString() TxtFsalida.Text = GvRow.DataKey("ToleranciaSFalta") ChkEstatus.Checked = CBool(GvRow.DataKey("Estatus")) + chkComida.Checked = (GvRow.DataKey("Comida") = "1") + TxtComidade.Text = GvRow.DataKey("ComidaDe") + TxtComidaA.Text = GvRow.DataKey("ComidaA") + + UpAddTurno.Update() 'CargaGlobalDTTurno()