diff --git a/AF/AF.aspx.vb b/AF/AF.aspx.vb index 32714e22c..9b6ce58b5 100644 --- a/AF/AF.aspx.vb +++ b/AF/AF.aspx.vb @@ -741,9 +741,17 @@ Partial Class AF_AF ' DdlProyecto.DataSource = GlobalDTProyectos(CveEmpresaActual) ' DdlProyecto.DataBind() 'End Sub - Private Sub CargaEstatusActivoFijo() - DdlEstadoActivoFijo.DataSource = GlobalDTEstadoActivoFijo + Private Sub CargaEstatusActivoFijo() + + If UsuarioActual.CveEmpresa = 13 Then + DdlEstadoActivoFijo.DataSource = GlobalDTEstadoActivoFijo.FiltraParametros(" CveEstadoActivoFijo <> 3 ") + Else + DdlEstadoActivoFijo.DataSource = GlobalDTEstadoActivoFijo + End If + + DdlEstadoActivoFijo.DataBind() + End Sub 'Private Sub CargaCliente() ' DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa) @@ -1035,7 +1043,16 @@ Partial Class AF_AF CargarHistorial() CargaCaracteristicas() + If UsuarioActual.CveEmpresa = 13 AndAlso ObjActivoFijo.DtResultados.Rows(0)("CveEstadoActivoFijo").ToString.ToEntero = 3 Then + Dim existeItem As Boolean = DdlEstadoActivoFijo.Items.FindByValue("3") IsNot Nothing + If Not existeItem Then + Dim nuevoItem As New ListItem("Asignado / En proyecto", "3") + DdlEstadoActivoFijo.Items.Add(nuevoItem) + End If + End If + DdlEstadoActivoFijo.SelectedValue = ObjActivoFijo.DtResultados.Rows(0)("CveEstadoActivoFijo").ToString + DdlResponsable.SelectedValue = ObjActivoFijo.DtResultados.Rows(0)("CvePersonaResponsable").ToString DdlProyecto.SelectedValue = ObjActivoFijo.CveProyecto.ToString CargaSubProyecto() diff --git a/Contabilidad/RepBalanceGeneral.aspx.vb b/Contabilidad/RepBalanceGeneral.aspx.vb index 89393e737..f40ebe5b0 100644 --- a/Contabilidad/RepBalanceGeneral.aspx.vb +++ b/Contabilidad/RepBalanceGeneral.aspx.vb @@ -554,6 +554,7 @@ Partial Class Contabilidad_RepBalanceGeneral End Sub Protected Sub GvPatrimonio_RowDataBound(sender As Object, e As GridViewRowEventArgs) + If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then TotalPatrimonioActual += e.Row.DBCampo("ImporteActual").ToString.ToDouble @@ -585,6 +586,7 @@ Partial Class Contabilidad_RepBalanceGeneral End If End If + End Sub #End Region diff --git a/Contabilidad/RepEstadoActividades.aspx.vb b/Contabilidad/RepEstadoActividades.aspx.vb index 1c403019b..4f66e11eb 100644 --- a/Contabilidad/RepEstadoActividades.aspx.vb +++ b/Contabilidad/RepEstadoActividades.aspx.vb @@ -165,8 +165,8 @@ Partial Class AC_RepEstadoActividades End Sub Private Sub CargaGrids() - DtIngresos = DtDatos.FiltraParametros("Tipo ='H' ") - DtGastos = DtDatos.FiltraParametros("Tipo ='G' ") + DtIngresos = DtDatos.FiltraParametros("(Tipo ='H' OR Codigo like '4020%') AND NOT(Codigo like '5030%' OR Codigo like '7020%') ") + DtGastos = DtDatos.FiltraParametros("(Tipo ='G' AND Codigo NOT like '4020%') OR (Codigo like '5030%' OR Codigo like '7020%') ") Dim Row As DataRow = DtIngresos.NewRow diff --git a/Contabilidad/RepEstadoResultados.aspx.vb b/Contabilidad/RepEstadoResultados.aspx.vb index 7427ce343..777914fe3 100644 --- a/Contabilidad/RepEstadoResultados.aspx.vb +++ b/Contabilidad/RepEstadoResultados.aspx.vb @@ -2,7 +2,6 @@ Option Strict On Imports System.Data -Imports Extensiones Imports Microsoft.Reporting.WebForms Partial Class Contabilidad2_RepEstadoResultados Inherits ClsPaginas @@ -192,8 +191,8 @@ Partial Class Contabilidad2_RepEstadoResultados End Sub Private Sub CargaGrids() - DtIngresos = DtDatos.FiltraParametros("Orden Like '0004%' OR Tipo = 'H'") - DtGastos = DtDatos.FiltraParametros("Orden Like '0005%' OR Tipo = 'G'") + DtIngresos = DtDatos.FiltraParametros("Orden Like '0004%' OR Tipo = 'H' OR Codigo like '4020%' ") + DtGastos = DtDatos.FiltraParametros("Orden Like '0005%' OR Tipo = 'G' OR (Codigo like '5030%' OR Codigo like '7020%') ") Dim Row As DataRow = DtIngresos.NewRow diff --git a/Contabilidad/RepIVA.aspx.cs b/Contabilidad/RepIVA.aspx.cs index 8b761791e..84b310d5c 100644 --- a/Contabilidad/RepIVA.aspx.cs +++ b/Contabilidad/RepIVA.aspx.cs @@ -390,7 +390,7 @@ public partial class Contabilidad_RepIVA : ClsPaginas SbSinTipo.Append("Los siguientes proveedores no tienen especificado el tipo de operación:
"); foreach (DataRow row in dtSinTipoOperacion.Rows) { - SbSinTipo.AppendFormat("{0}-{1}
", row["RFC"], row["RazonSocial"]); + SbSinTipo.AppendFormat("{0} - {1}
", row["RFC"], row["RazonSocial"]); } Alert(SbSinTipo.ToString(), TipoMensaje.MsgAdvertencia); } diff --git a/Inventarios/EntradasSalidas.aspx b/Inventarios/EntradasSalidas.aspx index cf96a42fa..b41ba5175 100644 --- a/Inventarios/EntradasSalidas.aspx +++ b/Inventarios/EntradasSalidas.aspx @@ -195,7 +195,7 @@ -
+
diff --git a/Inventarios/RepProductosPorCaducar.aspx b/Inventarios/RepProductosPorCaducar.aspx index d069541b3..48c96ba89 100644 --- a/Inventarios/RepProductosPorCaducar.aspx +++ b/Inventarios/RepProductosPorCaducar.aspx @@ -100,8 +100,7 @@
- Caducidad - Elaboración + Caducidad
@@ -184,7 +183,7 @@ - + diff --git a/Inventarios/RepProductosPorCaducar.aspx.cs b/Inventarios/RepProductosPorCaducar.aspx.cs index 1ebd8c08a..db54e7459 100644 --- a/Inventarios/RepProductosPorCaducar.aspx.cs +++ b/Inventarios/RepProductosPorCaducar.aspx.cs @@ -1,13 +1,11 @@ using Extensiones; using Microsoft.Reporting.WebForms; using System; -using System.Activities.Expressions; using System.Collections.Generic; using System.Data; using System.Text; using System.Web.UI.WebControls; - public partial class Inventarios_RepProductosPorCaducar : ClsPaginas { private DataTable DTDatos @@ -31,15 +29,11 @@ public partial class Inventarios_RepProductosPorCaducar : ClsPaginas CargarDatos(); CargaAlamacenes(); CargaCompuestos(); - } } - - private void CargarDatos() { - string Cves_Alamcenes = ddlAlmacen.GetSelectedValuesM(); DateTime FI = ModExtensiones.MinFecha; @@ -60,7 +54,7 @@ public partial class Inventarios_RepProductosPorCaducar : ClsPaginas { GvDatos.DataSource = ObjInventarios.DtResultados; DTDatos = ObjInventarios.DtResultados; - if (DdlOpcion.SelectedValue == "1") + if (DdlOpcion.SelectedValue == "1" &&UsuarioActual.CveEmpresa == 119 ) { GvDatos.Columns[5].HeaderText = "F.Elaboración"; } @@ -68,7 +62,6 @@ public partial class Inventarios_RepProductosPorCaducar : ClsPaginas { GvDatos.Columns[5].HeaderText = "F.Caducidad"; } - } ObjInventarios.Dispose(); GvDatos.DataBind(); @@ -81,10 +74,14 @@ public partial class Inventarios_RepProductosPorCaducar : ClsPaginas CargarSucursales(); CargarClasificaciones(); - + if (UsuarioActual.CveEmpresa == 119) + { + DdlOpcion.Items.Clear(); + DdlOpcion.Items.Add(new ListItem("Elaboración", "1")); + DdlOpcion.Items.Add(new ListItem("Caducidad", "2")); + } } - private void CargaCompuestos() { ClsProductosServicios ObjPS = new ClsProductosServicios(); @@ -176,12 +173,8 @@ public partial class Inventarios_RepProductosPorCaducar : ClsPaginas @params.Add(new ReportParameter("Filtros", Filtros.ToString())); @params.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)); @params.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)); - @params.Add(new ReportParameter("OcultaCaducidad", ChkTiempoCaducidad.Checked ? "0" : "1")); - - - var logouri = string.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); @params.Add(new ReportParameter("LogoPath", Imagen.Exists ? $"file://{Imagen.FullName}" : "")); @params.Add(new ReportParameter("FechaCaducidadHeader", "Fecha Caducidad")); // (!String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) ? UsuarioActual.Empresa.Funcionalidad(147) : "Fecha Caducidad"))); @@ -196,8 +189,6 @@ public partial class Inventarios_RepProductosPorCaducar : ClsPaginas CargaAlamacenes(DdlSucursal.SelectedValue.ToEntero()); } - - protected void BtnPersonalizar_Click(object sender, EventArgs e) { Personaliza(); diff --git a/Inventarios/TraspasoAlmacen.aspx b/Inventarios/TraspasoAlmacen.aspx index cb944993a..85ef4afeb 100644 --- a/Inventarios/TraspasoAlmacen.aspx +++ b/Inventarios/TraspasoAlmacen.aspx @@ -10,7 +10,7 @@ .psagregar > div.comboxes { display: inline-block; - width: 450px; + width: 550px; } .psagregar > div.codigo input { @@ -394,12 +394,11 @@ Producto Observaciones - Sección Almacen + Sección Almacen Serie Lote Fecha Caducidad - - Comandos + Comandos @@ -421,8 +420,7 @@
-
- +
@@ -440,6 +438,8 @@ + + @@ -450,8 +450,7 @@ - - +
@@ -463,9 +462,9 @@
- - - + + + @@ -500,7 +499,7 @@ - + diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 112423916..224a080b1 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -158,7 +158,6 @@ Partial Class Inventarios_TraspasoAlmacen ViewState("FolioBusqueda") = value End Set End Property - Private Property ArchivoBitacora As String Get Return CType(ViewState("ArchivoBitacora"), String) @@ -167,6 +166,17 @@ Partial Class Inventarios_TraspasoAlmacen ViewState("ArchivoBitacora") = value End Set End Property + Private Property SeleccionLoteCaducidadCombo As Boolean + Get + If ViewState("SeleccionLoteCaducidadCombo") Is Nothing Then + ViewState("SeleccionLoteCaducidadCombo") = False + End If + Return CType(ViewState("SeleccionLoteCaducidadCombo"), Boolean) + End Get + Set(value As Boolean) + ViewState("SeleccionLoteCaducidadCombo") = value + End Set + End Property #End Region Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load @@ -212,6 +222,8 @@ Partial Class Inventarios_TraspasoAlmacen DivTransitorio2.Visible = True End If + If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then SeleccionLoteCaducidadCombo = True + 'If UsuarioActual.CveEmpresa.Contiene(141, 152, 158, 159, 160, 161, 162, 163) Then ' ChkEmitirTimbrado.Visible = False ' divEmitir.Visible = False @@ -605,7 +617,7 @@ Partial Class Inventarios_TraspasoAlmacen End If Dim DrPS As DataRow = Nothing - DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CveProducto).FiltroPrimero("") ' Estado = -1 + DrPS = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CveProducto).FiltroPrimero("") ' Estado = -1 If DrPS IsNot Nothing Then @@ -618,9 +630,16 @@ Partial Class Inventarios_TraspasoAlmacen End If If DrPS("AplicaCaducidad").ToString = "True" Then - If Not ChkSugiereFechaCaducidad.Checked AndAlso (TxtnFechaCaducidad.Text = "" OrElse TxtnLote.Text = "") Then - Alert("Falta Especificar lote/Fecha del producto", TipoMensaje.MsgAdvertencia) - Exit Sub + If SeleccionLoteCaducidadCombo Then + If DdlLoteFechaCaducidad.SelectedValue = "|" Then + Alert("Falta Especificar lote/Fecha del producto", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + Else + If Not ChkSugiereFechaCaducidad.Checked AndAlso (TxtnFechaCaducidad.Text = "" OrElse TxtnLote.Text = "") Then + Alert("Falta Especificar lote/Fecha del producto", TipoMensaje.MsgAdvertencia) + Exit Sub + End If End If End If @@ -647,14 +666,9 @@ Partial Class Inventarios_TraspasoAlmacen If CantidadRestante <= 0 Then Exit For Next End If - End If - ObjInventarios.Dispose() - Else - - 'codigo temporal Dim tLote As String Dim tCaducidad As Date @@ -662,17 +676,19 @@ Partial Class Inventarios_TraspasoAlmacen tCaducidad = If(TxtnFechaCaducidad.Visible, TxtnFechaCaducidad.Text.ToDate, MinFecha) Dim tSerie As String = If(TxtnSerie.Visible, TxtnSerie.Text, "-1").Trim + If SeleccionLoteCaducidadCombo Then + Dim ArrayCaducidad As String() = DdlLoteFechaCaducidad.SelectedValue.Split("|"c) + tLote = ArrayCaducidad(0) + tCaducidad = ArrayCaducidad(1).ToDate + End If Dim Valido As Boolean = ValidaExistencia(Cantidad, CveProducto, DdlUnidad.SelectedValue.ToEntero, DdlSeccionAlmacen.SelectedValue.ToEntero, tSerie, tLote, tCaducidad) If Valido Then AgregarPS(Cantidad, CveProducto, DdlUnidad.SelectedValue.ToEntero, TxtnObservaciones.Text, CveSeccionAlmacen:=DdlSeccionAlmacen.SelectedValue.ToEntero, SeccionAlmacen:=DdlSeccionAlmacen.SelectedItem.Text, Serie:=If(TxtnSerie.Visible, TxtnSerie.Text, ""), Lote:=If(tLote = "-1", "", tLote), FechaCaducidad:=tCaducidad, CveSeccionAlmacenDestino:=DdlSeccionAlmacenDestino.SelectedValue.ToEntero, Limpia:=FuncionalidadSinSerie) End If - End If - End If - End If End Sub Private Function ValidaExistencia(Cantidad As Decimal, CvePS As Integer, CveUnidadMedida As Integer, CveSeccionAlmacen As Integer, Serie As String, Lote As String, FechaCaducidad As Date) As Boolean @@ -737,7 +753,6 @@ Partial Class Inventarios_TraspasoAlmacen End If Dim CveClasificacion As Integer - Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("") If ChkEmitirTimbrado.Checked AndAlso ChkEmitirCartaPorte.Checked Then @@ -1369,36 +1384,46 @@ Partial Class Inventarios_TraspasoAlmacen TxtnFechaCaducidad.Visible = False If DdlProducto2.SelectedValue.ToEntero > 0 Then - Dim drP As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlProducto2.SelectedValue.ToEntero).FiltroPrimero("", "PS") + Dim drP As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=DdlProducto2.SelectedValue.ToEntero).FiltroPrimero("", "PS") If drP IsNot Nothing Then ThSeccionAlmacen.Visible = CBool(drP("AplicaSeccion")) TdSeccionAlmacen.Visible = CBool(drP("AplicaSeccion")) DdlSeccionAlmacen.Visible = CBool(drP("AplicaSeccion")) - 'GvDatos.Columns(5).Visible = CBool(drP("AplicaSeccion")) Dim AplicaSerie As Boolean = CBool(drP("AplicaSerie")) - ThSerie.Visible = AplicaSerie TdSerie.Visible = AplicaSerie TxtnSerie.Visible = AplicaSerie - 'GvDatos.Columns(6).Visible = CBool(drP("AplicaSerie")) - - TxtnLote.Visible = CBool(drP("AplicaLote")) - ThLote.Visible = CBool(drP("AplicaLote")) - TdLote.Visible = CBool(drP("AplicaLote")) - 'GvDatos.Columns(7).Visible = CBool(drP("AplicaLote")) - - - TxtnFechaCaducidad.Visible = CBool(drP("AplicaCaducidad")) - ThFechaCaducidad.Visible = CBool(drP("AplicaCaducidad")) - If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then ThFechaCaducidad.InnerText = UsuarioActual.Empresa.Funcionalidad(147) - 'ThFechaCaducidad.InnerText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Fecha Elaboración", "Fecha Caducidad") - TdFechaCaducidad.Visible = CBool(drP("AplicaCaducidad")) - 'GvDatos.Columns(8).Visible = CBool(drP("AplicaCaducidad")) + If SeleccionLoteCaducidadCombo AndAlso (CBool(drP("AplicaLote")) OrElse CBool(drP("AplicaCaducidad"))) Then + TxtnLote.Visible = False + ThLote.Visible = CBool(drP("AplicaLote")) + TdLote.Visible = CBool(drP("AplicaLote")) + TxtnFechaCaducidad.Visible = False + ThFechaCaducidad.Visible = CBool(drP("AplicaCaducidad")) + TdFechaCaducidad.Visible = CBool(drP("AplicaCaducidad")) + tbFechaCaducidad.Visible = False + DdlLoteFechaCaducidad.Visible = True + Dim ObjInventarios As New ClsInventarios + If ObjInventarios.GetExistenciasCaducidad(DdlProducto2.SelectedValue.ToEntero, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue) Then + For Each dr As DataRow In ObjInventarios.DtResultados.FiltraParametros("", DistinctColumns:={"Lote", "FechaCaducidad"}).Rows + Dim Cad As String = "" + If dr("FechaCaducidad").ToString <> "" Then Cad = $"- Cad: {dr("FechaCaducidad").ToString.ToDate.ToString("dd/MM/yyyy")}" + DdlLoteFechaCaducidad.Items.Add(New ListItem($"Lote: {dr("Lote").ToString} {Cad}", $"{dr("Lote").ToString}|{dr("FechaCaducidad").ToString.ToDate.ToString("dd/MM/yyyy")}")) + Next + End If + ObjInventarios.Dispose() + Else + TxtnLote.Visible = CBool(drP("AplicaLote")) + ThLote.Visible = CBool(drP("AplicaLote")) + TdLote.Visible = CBool(drP("AplicaLote")) + TxtnFechaCaducidad.Visible = CBool(drP("AplicaCaducidad")) + ThFechaCaducidad.Visible = CBool(drP("AplicaCaducidad")) + If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then ThFechaCaducidad.InnerText = UsuarioActual.Empresa.Funcionalidad(147) + TdFechaCaducidad.Visible = CBool(drP("AplicaCaducidad")) + End If End If - End If DdlUnidad.Items.Clear() diff --git a/OC/RepOC.aspx b/OC/RepOC.aspx index 5d48cdaf7..d96ab1520 100644 --- a/OC/RepOC.aspx +++ b/OC/RepOC.aspx @@ -294,9 +294,15 @@
+ + +
+
+ + - +
diff --git a/OC/RepOC.aspx.vb b/OC/RepOC.aspx.vb index 3c26e13b2..0136764eb 100644 --- a/OC/RepOC.aspx.vb +++ b/OC/RepOC.aspx.vb @@ -398,6 +398,7 @@ Partial Class RepOC If UsuarioActual.TienePermisoProceso(227) Then DivIndicadores.Visible = True DivIndicadores.InnerHtml = String.Empty + Dim Cantidad As Integer = DtOC.COUNT("CveOrdenCompra") Dim TotalPesos As Double = DtOC.SUM("Total", "CveMoneda = 1") Dim TotalDolares As Double = DtOC.SUM("Total", "CveMoneda = 2") @@ -405,6 +406,17 @@ Partial Class RepOC MuestraIndicador(DivIndicadores, "green-haze", "fa fa-money", "Órdenes de Compra", Cantidad.ToString, "Cantidad", "$" + Total.FormatoNumero, "Total", "$" + TotalPesos.FormatoNumero, "Pesos", "$" + TotalDolares.FormatoNumero, "Dólares") UPPIndicador.Update() + + + DivIndicadoresCompradoRecibido.Visible = True + DivIndicadoresCompradoRecibido.InnerHtml = String.Empty + + Dim Recibidos As Decimal = DtOC.SUM("Comprado") + Dim Comprados As Decimal = DtOC.SUM("Recibido") + + MuestraIndicadorCompradoRecibido(DivIndicadoresCompradoRecibido, "blue", "fa fa-truck", "Almacén", Recibidos.ToString("###,###,###.00"), "Comprados", "", "Recibidos", Comprados.ToString("###,###,###.00"), "") + UPPIndicadorCompradoRecibido.Update() + End If If DtOC IsNot Nothing AndAlso DtOC.Rows.Count > 0 Then @@ -432,6 +444,9 @@ Partial Class RepOC GvConsultar.Columns(15).Visible = False End If + + + End If OC.Dispose() GvConsultar.DataBind() @@ -638,6 +653,7 @@ Partial Class RepOC #End Region #Region "Indicadores" + Private Sub MuestraIndicador(DIV As HtmlGenericControl, Color As String, Icono As String, Titulo As String, C1 As String, CT1 As String, C2 As String, CT2 As String, C3 As String, CT3 As String, C4 As String, CT4 As String) Dim htmldiv As New StringBuilder htmldiv.AppendFormat("{0}
", DIV.InnerHtml, Color, Icono) @@ -648,6 +664,24 @@ Partial Class RepOC htmldiv.AppendFormat("
") DIV.InnerHtml = htmldiv.ToString End Sub + + Private Sub MuestraIndicadorCompradoRecibido(DIV As HtmlGenericControl, Color As String, Icono As String, Titulo As String, C1 As String, CT1 As String, C2 As String, CT2 As String, C3 As String, CT3 As String) + Dim htmldiv As New StringBuilder + htmldiv.AppendFormat("{0}
", DIV.InnerHtml, Color, Icono) + htmldiv.AppendFormat("
{0}
", Titulo) + + htmldiv.AppendFormat("", "", "") + htmldiv.AppendFormat("", CT1, C1) + htmldiv.AppendFormat("", "", "") + htmldiv.AppendFormat("", CT2, C2) + htmldiv.AppendFormat("", "", "") + htmldiv.AppendFormat("", CT3, C3) + 'htmldiv.AppendFormat("", CT4, C4) + htmldiv.AppendFormat("
") + DIV.InnerHtml = htmldiv.ToString + End Sub + + #End Region End Class diff --git a/RH/Personal.aspx b/RH/Personal.aspx index 6ed7f3a54..f812e3abb 100644 --- a/RH/Personal.aspx +++ b/RH/Personal.aspx @@ -537,6 +537,9 @@
+
+
+ @@ -640,8 +643,32 @@ + +
+ + + + + + + + + +
- +
+ + + + + + + + + + + +
@@ -921,6 +948,80 @@
+ +
+
+
+ + - +
+
+
+
+
+
+
+ + + + + + + + + + + + + + + <%-- --%> + + + + <%----%> + + + + + + + + + + + + + + + + + + + + + + + > + + + + + + > + + + + + + + +
+
+ +
@@ -4089,7 +4190,7 @@
- Documentos Firma de contratos + Documentos
@@ -4834,7 +4935,7 @@

- Documentación Firma de Contrato + Documentación

diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index d85884711..032209f71 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -69,6 +69,44 @@ Partial Class RH_Personal ViewState("DTCuentasBancos") = value End Set End Property + + Property DtCaracteristicas As DataTable + Get + If ViewState("DtCaracteristicas") Is Nothing Then + Return New DataTable + Else + Return DirectCast(ViewState("DtCaracteristicas"), DataTable) + End If + End Get + Set(value As DataTable) + ViewState("DtCaracteristicas") = value + End Set + End Property + Property DtCaracteristicasOpciones As DataTable + Get + If ViewState("DtCaracteristicasOpciones") Is Nothing Then + Return New DataTable + Else + Return DirectCast(ViewState("DtCaracteristicasOpciones"), DataTable) + End If + End Get + Set(value As DataTable) + ViewState("DtCaracteristicasOpciones") = value + End Set + End Property + + Private Property DtCaracteristicasValor As DataTable + Get + If ViewState("DtCaracteristicasValor") Is Nothing Then + Return New DataTable + Else + Return DirectCast(ViewState("DtCaracteristicasValor"), DataTable) + End If + End Get + Set(value As DataTable) + ViewState("DtCaracteristicasValor") = value + End Set + End Property Private Property DTLicencias As DataTable Get Return CType(ViewState("DTLicencias"), DataTable) @@ -972,6 +1010,12 @@ Partial Class RH_Personal CargaRegistroPatronal() CargaOutSourcing() CargaDDlPersonalRefsReference() + + If UsuarioActual.CveEmpresa = 13 AndAlso UsuarioActual.CveRol = 1 Then + CargaDTSCaracteristicas() + CargaDatosCaracteristicas() + End If + If Request("CvePersonal") IsNot Nothing AndAlso IsNumeric(Request("CvePersonal")) AndAlso Request("CvePersonal").ToEntero() > 0 Then ViewState("CvePersonal") = Request("CvePersonal") DdlFormapagovacaciones_SelectedIndexChanged(Nothing, Nothing) @@ -1570,23 +1614,20 @@ Partial Class RH_Personal Private Sub CargaOutSourcing() - Dim DtModulosEmpresa As New DataTable - Dim ObjEmpresas As New ClsSisEmpresas - If ObjEmpresas.GetEmpresas(-1, "-1", "-1", "-1", "-1") Then - DtModulosEmpresa = ObjEmpresas.DtResultados - Else - DtModulosEmpresa = Nothing - End If - ObjEmpresas.Dispose() - - If UsuarioActual.CveEmpresa = 7 Then + Dim DtModulosEmpresa As New DataTable + Dim ObjEmpresas As New ClsSisEmpresas + If ObjEmpresas.GetEmpresas(-1, "-1", "-1", "-1", "-1") Then + DtModulosEmpresa = ObjEmpresas.DtResultados + Else + DtModulosEmpresa = Nothing + End If + ObjEmpresas.Dispose() + DdlEmpresaAsignada.DataSource = DtModulosEmpresa.FiltraParametros("CveEmpresa in (7,11,12,122,145,113)") DdlEmpresaAsignada.DataBind() DvOutsourcing.Visible = True End If - - DdlEmpresaAsignada.Items.Insert(0, New ListItem("Seleccione uno", "-1")) End Sub @@ -4198,7 +4239,7 @@ Partial Class RH_Personal If CvePersonal > 0 Then Dim objRH As New ClsEdocumentacion() - If objRH.DocumentacionElectronicaGet(CvePersonal, -1, -1, UsuarioActual.Empresa.CveEmpresa, -1) Then + If objRH.DocumentacionElectronicaGet(CvePersonal, -1, -1, UsuarioActual.Empresa.CveEmpresa, 7) Then DTDocumentacion = objRH.DtResultados End If @@ -8423,5 +8464,340 @@ Partial Class RH_Personal 'End Sub +#Region " C A R A C T E R I S T I C A S " + + Private Sub CargaDTSCaracteristicas() + + Dim objCaracteristicas As New ClsGenerales + If objCaracteristicas.GetCaracteristicasValores(CvePersonal, -1, -1, -1, -1, -1, 2, UsuarioActual.Empresa.CveEmpresa) Then + DtCaracteristicas = objCaracteristicas.DtResultados + End If + + If objCaracteristicas.GetCaracteriscasOpciones(-1, UsuarioActual.Empresa.CveEmpresa) Then + DtCaracteristicasOpciones = objCaracteristicas.DtResultados + End If + + objCaracteristicas.Dispose() + + End Sub + + Private Sub CargaDatosCaracteristicas() + + Dim objCaracteristicas As New ClsGenerales + + ' If CvePersonal <> -1 Then + If objCaracteristicas.GetCaracteristicasValores(CvePersonal, -1, -1, -1, -1, -1, 2, UsuarioActual.Empresa.CveEmpresa) Then + GvCaracteristicas.DataSource = objCaracteristicas.DtResultados + DtCaracteristicasValor = objCaracteristicas.DtResultados + Else + GvCaracteristicas.DataSource = Nothing + End If + 'End If + + objCaracteristicas.Dispose() + GvCaracteristicas.DataBind() + UPGvCaracteristicas.Update() + + End Sub + + Public Sub Edit_ClickCaracteristica(sender As Object, e As EventArgs) + RegistraScript("$('#divAgregarCaracteristica').modal({ backdrop: 'static', keyboard: false});") + + End Sub + + + Public Sub Remove_ClickCaracteristica(sender As Object, e As EventArgs) + + Dim objRH As New ClsRH + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + Dim activo As Boolean = False + Dim _CvePersonalCaracteristica As Integer = GvRow.DataKey("CvePersonalCaracteristica").ToString.ToEntero + + If objRH.PersonalCaracteristicaRemove(_CvePersonalCaracteristica) Then + CargaFamiliares() + + Alert("Caracteristica eliminada correctamente.", TipoMensaje.MsgInformacion) + + End If + objRH.Dispose() + + CargaDatosCaracteristicas() + End Sub + + Protected Sub GvCaracteristicas_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvCaracteristicas.RowDataBound + + If e.Row.RowType = DataControlRowType.DataRow Then + + + Dim _CveCaracteristica As Integer = e.Row.DataKey("CveCaracteristica").ToEntero + Dim _Caracteristica As String = e.Row.DataKey("Caracteristica") + + Dim _Requerido As Integer + If e.Row.DataKey("Requerido").ToString.ToUpper = "TRUE" Then + _Requerido = 1 + Else + _Requerido = 0 + End If + + + Dim _CaracteristicaValor As String = e.Row.DataKey("CaracteristicaValor") + Dim _CveCaracteristicaValor As Integer = e.Row.DataKey("CveCaracteristicaValor").ToEntero + Dim _CveCaracteristicaTipo As Integer = e.Row.DataKey("CveCaracteristicaTipo").ToEntero + Dim _CveCaracteristicaOpcion As Integer = e.Row.DataKey("CveCaracteristicaOpcion").ToEntero + Dim _Logitud As Integer = e.Row.DataKey("Longitud").ToString.ToEntero + + Dim _DdlCarcateristicaOpcion As DropDownList = e.Row.FCDropDownList("DdlCarcateristicaOpcion") + Dim _TxtCaracteristicaOpcion As TextBox = e.Row.FCTextBox("TxtCaracteristicaOpcion") + Dim _RdlCarcateristicaOpcion As RadioButtonList = e.Row.FCRadioButtonList("RdlCarcateristicaOpcion") + Dim _chkCaracteristicaValor As CheckBox = e.Row.FCCheckBox("chkCaracteristicaValor") + + Dim dtTemp As New DataTable + Dim objCaracteristicas As New ClsGenerales + + + If objCaracteristicas.GetCaracteriscasOpciones(-1, UsuarioActual.Empresa.CveEmpresa) Then + dtTemp = objCaracteristicas.DtResultados + End If + objCaracteristicas.Dispose() + + + If _CaracteristicaValor.Length > 0 Then + _TxtCaracteristicaOpcion.Text = _CaracteristicaValor + End If + + _TxtCaracteristicaOpcion.Visible = False + _TxtCaracteristicaOpcion.Text = _CaracteristicaValor + Dim _rfvTxtCarcateristicaOpcion As RequiredFieldValidator = e.Row.FCRequiredFieldValidator("rfvTxtCarcateristicaOpcion") + _rfvTxtCarcateristicaOpcion.Enabled = False + + _TxtCaracteristicaOpcion.TextMode = Nothing + + Dim _CalendarioCaractersiticas As AjaxControlToolkit.CalendarExtender = e.Row.FCCalendarExtender("CalendarioCaractersiticas") + _CalendarioCaractersiticas.Enabled = False + + _DdlCarcateristicaOpcion.Visible = False + Dim _rfvDdlCarcateristicaOpcion As RequiredFieldValidator = e.Row.FCRequiredFieldValidator("rfvDdlCarcateristicaOpcion") + _rfvDdlCarcateristicaOpcion.Enabled = False + + _RdlCarcateristicaOpcion.Visible = False + Dim _rfvRdlCarcateristicaOpcion = e.Row.FCRequiredFieldValidator("rfvRdlCarcateristicaOpcion") + _rfvRdlCarcateristicaOpcion.Enabled = False + + _chkCaracteristicaValor.Visible = False + + Dim _cvFechaF As CompareValidator = e.Row.FCCompareValidator("cvFechaF") + _cvFechaF.Enabled = False + + Select Case _CveCaracteristicaTipo + Case 0 + 'txt + _TxtCaracteristicaOpcion.Visible = True + _TxtCaracteristicaOpcion.MaxLength = _Logitud + _TxtCaracteristicaOpcion.Width = 120 + If _Requerido = 1 Then + ' _rfvTxtCarcateristicaOpcion.Enabled = True + End If + Exit Select + Case 1 + 'drop + _DdlCarcateristicaOpcion.Visible = True + dtTemp = dtTemp.FiltraParametros(" CveCaracteristica = " & _CveCaracteristica) + _DdlCarcateristicaOpcion.DataSource = dtTemp + _DdlCarcateristicaOpcion.DataBind() + _DdlCarcateristicaOpcion.Items.Insert(0, New ListItem("Seleccione una opción", "-1")) + + If _CveCaracteristicaValor <> -1 Then + _DdlCarcateristicaOpcion.SelectedValueExist(_CveCaracteristicaOpcion) + End If + + If _Requerido = 1 Then + _rfvDdlCarcateristicaOpcion.Enabled = True + End If + + Exit Select + Case 2 + 'radio + _RdlCarcateristicaOpcion.Visible = True + dtTemp = dtTemp.FiltraParametros(" CveCaracteristica = " & _CveCaracteristica) + _RdlCarcateristicaOpcion.DataSource = dtTemp + _RdlCarcateristicaOpcion.DataBind() + + If _CveCaracteristicaValor <> -1 Then + _RdlCarcateristicaOpcion.SelectedValuesIfExist(_CveCaracteristicaOpcion.ToString) + End If + + If _Requerido = 1 Then + ' _rfvRdlCarcateristicaOpcion.Enabled = True + End If + + Exit Select + Case 3 + 'Fecha txt Fecha + _TxtCaracteristicaOpcion.Visible = True + _TxtCaracteristicaOpcion.Width = 120 + _cvFechaF.Enabled = True + ' _CalendarioCaractersiticas.Enabled = True + RegistraScript(" $('#" & _TxtCaracteristicaOpcion.ClientID & "').mask('00/00/0000'); ") + If _Requerido = 1 Then + _rfvTxtCarcateristicaOpcion.Enabled = True + End If + Exit Select + Case 4 + 'Multiline + _TxtCaracteristicaOpcion.Visible = True + _TxtCaracteristicaOpcion.MaxLength = _Logitud + If _Requerido = 1 Then + _rfvTxtCarcateristicaOpcion.Enabled = True + End If + Exit Select + Case 5 + 'CheckBox + _chkCaracteristicaValor.Visible = True + If _CaracteristicaValor = "1" Then + _chkCaracteristicaValor.Checked = True + Else + _chkCaracteristicaValor.Checked = False + End If + + Exit Select + Case 6 + + _TxtCaracteristicaOpcion.Visible = True + _TxtCaracteristicaOpcion.TextMode = TextBoxMode.Number + + If _Requerido = 1 Then + _rfvTxtCarcateristicaOpcion.Enabled = True + End If + Exit Select + End Select + + End If + + + End Sub + + + Private Sub GuardaCaracteristicas() + + Dim objCarac As New ClsGenerales + + For Each dRow As GridViewRow In GvCaracteristicas.Rows + Dim _CaracteristicaValor As Integer = dRow.DataKey("CaracteristicaValor").ToEntero + + Dim updateCaracteristica As Boolean = False + + If _CaracteristicaValor = -1 Then + updateCaracteristica = False + Else + updateCaracteristica = True + End If + + Dim _CveCaracteristica As Integer = dRow.DataKey("CveCaracteristica").ToEntero + Dim _CveCaracteristicaValor As Integer = dRow.DataKey("CveCaracteristicaValor").ToEntero + Dim _CveCaracteristicaTipo As Integer = dRow.DataKey("CveCaracteristicaTipo").ToEntero + + Dim _DdlCarcateristicaOpcion As DropDownList = dRow.FCDropDownList("DdlCarcateristicaOpcion") + Dim _TxtCaracteristicaOpcion As TextBox = dRow.FCTextBox("TxtCaracteristicaOpcion") + Dim _RdlCarcateristicaOpcion As RadioButtonList = dRow.FCRadioButtonList("RdlCarcateristicaOpcion") + Dim _chkCaracteristicaValor As CheckBox = dRow.FCCheckBox("chkCaracteristicaValor") + + + Dim CveCaracteristicaOpcion As Integer = -1 + Dim CaracteristicaValor As String = "" + Dim CaracteristicaValorDate As Date = NowADS() + Dim CaracteristicaValorInt As Integer = -1 + + + Select Case _CveCaracteristicaTipo + Case 0 + 'txt + CaracteristicaValor = _TxtCaracteristicaOpcion.Text + + If CaracteristicaValor.Trim.Length > 0 Then + updateCaracteristica = True + Else + updateCaracteristica = False + End If + + Exit Select + Case 1 + 'drop + + CveCaracteristicaOpcion = _DdlCarcateristicaOpcion.SelectedValue.ToEntero + + If CveCaracteristicaOpcion > 0 Then + updateCaracteristica = True + Else + updateCaracteristica = False + End If + Exit Select + Case 2 + 'radio + CveCaracteristicaOpcion = _RdlCarcateristicaOpcion.SelectedValue.ToEntero + If CveCaracteristicaOpcion > 0 Then + updateCaracteristica = True + Else + updateCaracteristica = False + End If + Exit Select + Case 3 + 'Fecha txt Fecha + If _TxtCaracteristicaOpcion.Text.Trim.Length > 0 Then + CaracteristicaValorDate = _TxtCaracteristicaOpcion.Text.Trim.ToDate + CaracteristicaValor = CaracteristicaValorDate.ToString("dd/MM/yyyy") + If CaracteristicaValor.Trim.ToDate.ToString("dd/MM/yyyy").ToString.Length > 0 Then + updateCaracteristica = True + Else + updateCaracteristica = False + End If + + Exit Select + Else + updateCaracteristica = False + End If + + + Case 4 + + 'txt + CaracteristicaValor = _TxtCaracteristicaOpcion.Text + + If CaracteristicaValor.Trim.Length > 0 Then + updateCaracteristica = True + Else + updateCaracteristica = False + End If + Exit Select + Case 5 + 'CheckBox + If _chkCaracteristicaValor.Checked Then + CaracteristicaValor = "1" + Else + CaracteristicaValor = "0" + End If + updateCaracteristica = True + Exit Select + Case 6 + 'txt numerico + 'txt + CaracteristicaValor = _TxtCaracteristicaOpcion.Text.ToEntero.ToString + updateCaracteristica = True + + Exit Select + End Select + + If updateCaracteristica Then + If Not objCarac.AddUpdateCaracteristicasValores(_CveCaracteristica, CveCaracteristicaOpcion, CaracteristicaValor, UsuarioActual.CveUsuario, _CveCaracteristicaValor, CvePersonal) Then + Exit For + End If + End If + Next + + CargaDatosCaracteristicas() + End Sub + + +#End Region + End Class