diff --git a/AF/CatClasificacionesCaracteristicas.aspx.vb b/AF/CatClasificacionesCaracteristicas.aspx.vb index ce40b87ea..d67d76f89 100644 --- a/AF/CatClasificacionesCaracteristicas.aspx.vb +++ b/AF/CatClasificacionesCaracteristicas.aspx.vb @@ -228,7 +228,8 @@ Partial Class AF_CatClasificacionesCaracteristicas TxtLongitudCA.Text = "" Alert("La Nueva Característica de Activo Fijo se guardó correctamente.", TipoMensaje.MsgInformacion) UpTitulosCA.Update() - GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa) = Nothing + ViewState("DTCatacteristica") = ObjCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + CargaSubTiposActivosFijos() ''CargaCaracteristicasClasificaciones() 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/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 diff --git a/Contabilidad2/MovimientosconProveedores.aspx.vb b/Contabilidad2/MovimientosconProveedores.aspx.vb index 91dba7077..a4d29fda1 100644 --- a/Contabilidad2/MovimientosconProveedores.aspx.vb +++ b/Contabilidad2/MovimientosconProveedores.aspx.vb @@ -54,7 +54,7 @@ Partial Class MovimientosconProveedores End Property Private Property CveSubProyecto As Integer Get - CveSubProyecto = CType(ViewState("CveSubProyecto"), Integer) + CveSubProyecto = ViewState("CveSubProyecto").ToString End Get Set(value As Integer) ViewState("CveSubProyecto") = value @@ -108,7 +108,7 @@ Partial Class MovimientosconProveedores End If If Request("CveSubProyecto") IsNot Nothing AndAlso IsNumeric(Request("CveSubProyecto")) Then - CveSubProyecto = Request("CveSubProyecto").ToEntero + CveSubProyecto = Request("CveSubProyecto").ToString.ToEntero End If @@ -184,7 +184,7 @@ Partial Class MovimientosconProveedores End If 'Dim CveSubProyecto As String If Request("CveSubProyecto") IsNot Nothing Then - CveSubProyecto = Request("CveSubProyecto").ToEntero + CveSubProyecto = Request("CveSubProyecto").ToString.ToEntero Else CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero End If diff --git a/Finanzas/RepEstadoResultados.aspx.vb b/Finanzas/RepEstadoResultados.aspx.vb index f2eee49ae..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.ToEntero, UsuarioActual.CveEmpresa, 0) 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 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/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/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/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 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() 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 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 d2c6d535d..1d3ca0dca 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -1504,7 +1504,7 @@ Partial Class Clientes ' CargaDocs() CargaCombos() CargaDocumentacionCliente() - CargaSubProyectosSuscursales() + 'CargaSubProyectosSuscursales() 'CargaMetodosPago33() 'CargaFormaPago33() 'CargaComboCFDI() 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