diff --git a/AF/RegistroRevision.aspx b/AF/RegistroRevision.aspx new file mode 100644 index 000000000..32727f609 --- /dev/null +++ b/AF/RegistroRevision.aspx @@ -0,0 +1,210 @@ +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RegistroRevision.aspx.vb" Inherits="AF_RegistroRevision" %> + + + + + + + + +<%-- + +
  • + + Nuevo Activo Fijo + +
    • +
  • + PDF +
    • +
  • + + Excel + +
    • + +     + + + + +     --%> + + +     + + Catálogo de Activos Fijos + + + + + + + + +
    +
    +
    + + + + + + +
    +
    + +
    + + +
    +
    + +
    +
    Fecha:
    +
    +
    + +
    + + + + +
    + + + <%-- + --%> + +
    +
    +
    + + +
    +
    + +
    + +     +     + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +     + + + + + + diff --git a/AF/RegistroRevision.aspx.vb b/AF/RegistroRevision.aspx.vb new file mode 100644 index 000000000..b1a64a62e --- /dev/null +++ b/AF/RegistroRevision.aspx.vb @@ -0,0 +1,74 @@ +Option Explicit On +Option Strict On + +Imports System.Data +Imports Extensiones +Imports Microsoft.Reporting.WebForms + +Partial Class AF_RegistroRevision + Inherits ClsPaginas + +#Region " PROPIEDADES" + +#End Region + + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load + If Not Page.IsPostBack Then + + CargaCombos() + + CargaDatos() + + End If + End Sub + + +#Region " CARGA PARAMETROS " + +#End Region + +#Region " CARGA COMBOS " + Protected Sub CargaCombos() + CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto) + End Sub + + +#End Region + +#Region " CARGA DATOS " + Protected Sub BtnFiltrar_Click(sender As Object, e As EventArgs) + CargaDatos() + + End Sub + + +#End Region + +#Region " GV DATOS " + + Private Sub CargaDatos() + + Dim ObjAF As New ClsAF + + + ObjAF.Dispose() + + End Sub + + + Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound + + If e.Row.RowType = DataControlRowType.DataRow Then + + + + End If + + End Sub + +#End Region + + + + +End Class diff --git a/App_Code/ClsAF.vb b/App_Code/ClsAF.vb index ee7e27b43..410a4db11 100644 --- a/App_Code/ClsAF.vb +++ b/App_Code/ClsAF.vb @@ -3241,6 +3241,198 @@ Public Class ClsAF Return Retorno End Function #End Region +#Region "M E T R I C A S" + Public Function GetMetricas(CveMetrica As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_AF_MetricasGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMetrica", SqlDbType.Int).Value = CveMetrica + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener las métricas de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function AddMetricas(Metrica As String) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_AF_MetricasAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@Metrica", SqlDbType.Int).Value = Metrica + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar la métrica de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function DeleteMetricas(CveMetrica As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_AF_MetricasRemove") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMetrica", SqlDbType.Int).Value = CveMetrica + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar la métrica de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function GetMetricasValores(Optional CveMetricaValor As Integer = -1, Optional CveAF As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveUsuario As Integer = -1, + Optional CveSubProyecto As Integer = -1, Optional Fecha As String = "1900-01-01", Optional FechaIng As String = "1900-01-01") As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_AF_MetricasValoresGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMetricaValor", SqlDbType.Int).Value = CveMetricaValor + .Add("@CveAF", SqlDbType.Int).Value = CveAF + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@Fecha", SqlDbType.DateTime).Value = Fecha + .Add("@FechaIng", SqlDbType.DateTime).Value = FechaIng + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los valores de métricas de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function AddMetricasValores(Optional CveAF As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveUsuario As Integer = -1, + Optional CveSubProyecto As Integer = -1, Optional Fecha As String = "1900-01-01", Optional FechaIng As String = "1900-01-01") As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_AF_MetricasValoresAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveAF", SqlDbType.Int).Value = CveAF + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@Fecha", SqlDbType.DateTime).Value = Fecha + .Add("@FechaIng", SqlDbType.DateTime).Value = FechaIng + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar el valor de métrica de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function RemoveMetricasValores(CveMetricaValor As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_AF_MetricasValoresRemove") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMetricaValor", SqlDbType.Int).Value = CveMetricaValor + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar el valor de métrica de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function GetMetricasValoresDetalle(Optional CveMetricaValor As Integer = -1, Optional CveMetrica As Integer = -1) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_AF_MetricasValoresDetalleGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMetricaValor", SqlDbType.Int).Value = CveMetricaValor + .Add("@CveMetrica", SqlDbType.Int).Value = CveMetrica + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los valores de métricas de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function AddMetricasValoresDetalle(Optional CveMetricaValor As Integer = -1, Optional CveMetrica As Integer = -1, Optional Valor As String = "-1") As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_AF_MetricasValoresDetalleAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMetricaValor", SqlDbType.Int).Value = CveMetricaValor + .Add("@CveMetrica", SqlDbType.Int).Value = CveMetrica + .Add("@Valor", SqlDbType.NVarChar).Value = Valor + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar el detalle de los valores de métricas de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function DeleteMetricasValoresDetalle(Optional CveMetricaValor As Integer = -1, Optional CveMetrica As Integer = -1, Optional Valor As String = "-1") As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_AF_MetricasValoresDetalleAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMetricaValor", SqlDbType.Int).Value = CveMetricaValor + .Add("@CveMetrica", SqlDbType.Int).Value = CveMetrica + .Add("@Valor", SqlDbType.NVarChar).Value = Valor + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar el detalle de los valores de métricas de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + +#End Region #Region " IDisposable Support " diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 40f6c1946..68a9d44e3 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -3950,6 +3950,7 @@ Public Class ClsPaginas PaginaDict.Add("/AF/RepServicios.aspx".ToUpper(), -1) PaginaDict.Add("/AF/RepDepreciacion.aspx".ToUpper(), -1) PaginaDict.Add("/AF/RepEventosProgramados.aspx".ToUpper(), 656) + PaginaDict.Add("/AF/RegistroRevision.aspx".ToUpper(), 1251) #End Region 'AIMMGM #Region "AIMMGM" diff --git a/Contratos/Contrato.aspx b/Contratos/Contrato.aspx index e28415dcf..8483f7265 100644 --- a/Contratos/Contrato.aspx +++ b/Contratos/Contrato.aspx @@ -373,7 +373,7 @@
    - + Proyecto:
    @@ -383,7 +383,7 @@
    - + diff --git a/Contratos/Contrato.aspx.vb b/Contratos/Contrato.aspx.vb index b124bd0a3..dce2ecdcf 100644 --- a/Contratos/Contrato.aspx.vb +++ b/Contratos/Contrato.aspx.vb @@ -1488,14 +1488,15 @@ Partial Class Contratos_Default #Region "COMBOS - INFO GENERAL" Private Sub CargaProyecto() - If UsuarioActual.Empresa.GralSoloProyecto Then - CargaSubProyectoContrato(-1) - trddlproyecto.Visible = False - lblsubproyecto.Text = "Proyecto" - Else - DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("", "", {"CveProyecto", "Proyecto"}) - DdlProyecto.DataBind() - End If + CargarCentrosDeCosto(DdlProyecto, DdlSubProyectoContrato, LblProyecto, lblsubproyecto) + trddlproyecto.Visible = LblProyecto.Visible + 'If UsuarioActual.Empresa.GralSoloProyecto Then + ' CargaSubProyectoContrato(-1) + ' lblsubproyecto.Text = "Proyecto" + 'Else + ' DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("", "", {"CveProyecto", "Proyecto"}) + ' DdlProyecto.DataBind() + 'End If End Sub Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged CargaSubProyectoContrato(DdlProyecto.SelectedValue.ToEntero) diff --git a/Contratos/PopUpBuscarContrato.aspx b/Contratos/PopUpBuscarContrato.aspx index c0311468f..c77389ac3 100644 --- a/Contratos/PopUpBuscarContrato.aspx +++ b/Contratos/PopUpBuscarContrato.aspx @@ -70,11 +70,11 @@ - + - + diff --git a/Empresas/Grales/Formatos/LibroDiario.rpt b/Empresas/Grales/Formatos/LibroDiario.rpt index e91fe1e65..87f844a97 100644 Binary files a/Empresas/Grales/Formatos/LibroDiario.rpt and b/Empresas/Grales/Formatos/LibroDiario.rpt differ diff --git a/Inventarios/PopUpExistenciasAlmacen.aspx.vb b/Inventarios/PopUpExistenciasAlmacen.aspx.vb index 2f729867e..8ad38121e 100644 --- a/Inventarios/PopUpExistenciasAlmacen.aspx.vb +++ b/Inventarios/PopUpExistenciasAlmacen.aspx.vb @@ -164,7 +164,7 @@ Partial Class Inventarios_Default UPDatos.Update() TblBusqueda.Visible = True Else - Alert("Seleccione un producto o servicio", TipoMensaje.MsgAdvertencia) + Alert("Seleccione un producto", TipoMensaje.MsgAdvertencia) End If End Sub Private Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GV.RowDataBound diff --git a/LogIn.aspx.vb b/LogIn.aspx.vb index 94f7e4907..01bba28d1 100644 --- a/LogIn.aspx.vb +++ b/LogIn.aspx.vb @@ -266,7 +266,7 @@ Partial Class LogIn userm.Nombre = Usuario.Nombre userm.Contraseña = Usuario.Contraseña userm.CvePerfil = Usuario.CveRol - userm.CveEmpresa = 119 'Usuario.CveEmpresa + userm.CveEmpresa = 1 'Usuario.CveEmpresa userm.CveUsuarioModifico = Usuario.CveEmpresa userm.CveUsuarioRegistro = Usuario.CveEmpresa RegistraScript(String.Format("opennewlocation('{0}','{1}')", ReturnUrl, GenerateJSONWebToken(userm))) diff --git a/RH/Personal.aspx b/RH/Personal.aspx index 5d9197b97..10a31b1a3 100644 --- a/RH/Personal.aspx +++ b/RH/Personal.aspx @@ -766,7 +766,7 @@
    - Uniforme: + Resguardos:
    @@ -1288,7 +1288,7 @@ - +
    diff --git a/RH/RepUniformesResguardo.aspx b/RH/RepUniformesResguardo.aspx index e5486e87c..2bdf3cf5d 100644 --- a/RH/RepUniformesResguardo.aspx +++ b/RH/RepUniformesResguardo.aspx @@ -5,7 +5,7 @@ - Reporte de Resguardo Uniformes + Reporte de Resguardo diff --git a/Ventas/RepAnticiposEspeciales.aspx b/Ventas/RepAnticiposEspeciales.aspx index 28f529dba..8ae071ee7 100644 --- a/Ventas/RepAnticiposEspeciales.aspx +++ b/Ventas/RepAnticiposEspeciales.aspx @@ -184,6 +184,18 @@ + + +   + + + + + +   + + + diff --git a/vwd.webinfo b/vwd.webinfo index 55467f44f..4edae1c8c 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -84,6 +84,8 @@ + +