From a78556d8530846ce221445d420b7119624be0c5b Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 17 Feb 2024 07:27:11 -0700 Subject: [PATCH 1/4] - tiposServicios --- AF/CatTiposServicios.aspx.cs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/AF/CatTiposServicios.aspx.cs b/AF/CatTiposServicios.aspx.cs index c553b8dd1..9c3ae2767 100644 --- a/AF/CatTiposServicios.aspx.cs +++ b/AF/CatTiposServicios.aspx.cs @@ -72,7 +72,7 @@ public partial class AF_CatTiposServicios : ClsPaginas GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer); CveTipoServicio = GvRow.DataKey("CveTipoServicio").ToEntero(); ClsAF ObjAF = new ClsAF(); - if (ObjAF.DeleteTiposServicios(CveTipoServicio)) + if (ObjAF.DeleteTiposServicios(CveTipoServicio, UsuarioActual.CveEmpresa)) { CargaDatos(); UpDatos.Update(); @@ -87,7 +87,7 @@ public partial class AF_CatTiposServicios : ClsPaginas ClsAF ObjAF = new ClsAF(); if (BtnAgregarTipoServicio.Text == "Agregar") { - if (ObjAF.AddTiposServicios(TxtNombre.Text,DdlTipoMantenimiento.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) + if (ObjAF.AddTiposServicios(TxtNombre.Text,DdlTipoMantenimiento.SelectedValue.ToEntero(), 1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) { CargaDatos(); UpDatos.Update(); @@ -97,7 +97,7 @@ public partial class AF_CatTiposServicios : ClsPaginas } else { - if (ObjAF.UpdateTiposServicios(CveTipoServicio, TxtNombre.Text, DdlTipoMantenimiento.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) + if (ObjAF.UpdateTiposServicios(CveTipoServicio, TxtNombre.Text, DdlTipoMantenimiento.SelectedValue.ToEntero(), 1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) { CargaDatos(); UpDatos.Update(); From 2314cb7efe0341cf22bed0ac7019d78ceb862204 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 17 Feb 2024 07:30:13 -0700 Subject: [PATCH 2/4] - --- AF/TipoOrdenTrabajo.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/AF/TipoOrdenTrabajo.aspx.vb b/AF/TipoOrdenTrabajo.aspx.vb index aa2110249..a8396d98a 100644 --- a/AF/TipoOrdenTrabajo.aspx.vb +++ b/AF/TipoOrdenTrabajo.aspx.vb @@ -603,7 +603,7 @@ Partial Class AF_TipoOrdenTrabajo If CveTipoServicio = -1 Then - If ObjAF.AddTiposServicios(TxtTipoServicio.Text.Trim, DdlTipoMantenimiento.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + If ObjAF.AddTiposServicios(TxtTipoServicio.Text.Trim, DdlTipoMantenimiento.SelectedValue.ToEntero, 1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then CveTipoServicio = ObjAF.CveTipoServicio @@ -651,7 +651,7 @@ Partial Class AF_TipoOrdenTrabajo Else - If Not ObjAF.UpdateTiposServicios(CveTipoServicio, TxtTipoServicio.Text.Trim, DdlTipoMantenimiento.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + If Not ObjAF.UpdateTiposServicios(CveTipoServicio, TxtTipoServicio.Text.Trim, DdlTipoMantenimiento.SelectedValue.ToEntero, 1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then ErrorProceso = True End If From f447227d5d86967f0d4a7a971b2587f0a35bafb6 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 17 Feb 2024 15:34:28 -0700 Subject: [PATCH 3/4] =?UTF-8?q?--=20correcci=C3=B3n=20en=20la=20visualizac?= =?UTF-8?q?i=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- AF/AF.aspx.vb | 1 + AF/CatClasificacionesCaracteristicas.aspx | 6 ++-- AF/CatClasificacionesCaracteristicas.aspx.vb | 35 ++++---------------- 3 files changed, 10 insertions(+), 32 deletions(-) diff --git a/AF/AF.aspx.vb b/AF/AF.aspx.vb index 2021d462e..562bcad8c 100644 --- a/AF/AF.aspx.vb +++ b/AF/AF.aspx.vb @@ -661,6 +661,7 @@ Partial Class AF_AF End Sub Private Sub CargaTipoActivoFijo() + DdlTipoActivoFijo.Items.Clear() DdlTipoActivoFijo.DataSource = GlobalDTTipoActivoFijo(CveEmpresaActual).FiltraParametros("", "TipoActivoFijo") DdlTipoActivoFijo.DataBind() CargaSubTipoActivoFijo() diff --git a/AF/CatClasificacionesCaracteristicas.aspx b/AF/CatClasificacionesCaracteristicas.aspx index 90528e45c..29c63c4cb 100644 --- a/AF/CatClasificacionesCaracteristicas.aspx +++ b/AF/CatClasificacionesCaracteristicas.aspx @@ -90,7 +90,7 @@ - + <%--   @@ -300,7 +300,7 @@ - +   @@ -537,7 +537,7 @@ - +   diff --git a/AF/CatClasificacionesCaracteristicas.aspx.vb b/AF/CatClasificacionesCaracteristicas.aspx.vb index d67d76f89..8f6b1e18f 100644 --- a/AF/CatClasificacionesCaracteristicas.aspx.vb +++ b/AF/CatClasificacionesCaracteristicas.aspx.vb @@ -52,7 +52,6 @@ Partial Class AF_CatClasificacionesCaracteristicas 'Carga Globals para DT CargaTiposActivosFijos() - CargaSubTiposActivosFijos() ''CargaCaracteristicasClasificaciones() 'CargaCaracteristicas() End If @@ -66,17 +65,7 @@ Partial Class AF_CatClasificacionesCaracteristicas DdlTiposActivosFijosOpciones.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa) DdlTiposActivosFijosOpciones.DataBind() End Sub - Private Sub CargaSubTiposActivosFijos() - Dim ObjAF As New ClsAF - If ObjAF.GetSubTiposActivosFijos(UsuarioActual.CveEmpresa) Then - GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa) = ObjAF.DtResultados - Else - Alert("Ocurrio un error al obtener los SubTipos de Activos Fijos", TipoMensaje.MsgError) - End If - - ObjAF.Dispose() - End Sub #Region "CLASIFICACIONES" Protected Sub LbAgregarCL_Click(sender As Object, e As System.EventArgs) Handles LbAgregarCL.Click Dim ObjCaracteristicaClasificacion As New ClsAF @@ -85,8 +74,7 @@ Partial Class AF_CatClasificacionesCaracteristicas TxtCaracteristicaClasificacionCL.Text = "" Alert("La Nueva Clasificación de Activo Fijo se guardó correctamente.", TipoMensaje.MsgInformacion) UpTitulosCL.Update() - - CargaSubTiposActivosFijos() + GlobalDTAFCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) = Nothing If ViewState("OrdenCL").ToString() <> String.Empty Then CargaGrid(ViewState("OrdenCL").ToString(), 0) @@ -147,10 +135,7 @@ Partial Class AF_CatClasificacionesCaracteristicas Dim ObjCaracteristicaClasificacion As New ClsAF If ObjCaracteristicaClasificacion.RemoveClasificacionesCaracteristicas(GvDatosCL.DataKeys(e.RowIndex).Value.ToString.ToEntero, UsuarioActual.CveEmpresa) Then GvDatosCL.EditIndex = -1 - - CargaSubTiposActivosFijos() - 'CargaCaracteristicasClasificaciones() - + GlobalDTAFCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) = Nothing Alert("La Clasificación se eliminó correctamente.", TipoMensaje.MsgInformacion) End If @@ -183,9 +168,7 @@ Partial Class AF_CatClasificacionesCaracteristicas If ObjCaracteristicaClasificacion.UpdateClasificacionesCaracteristicas(CaracteristicaClasificacion, Estatus, CveCaracteristicaClasificacion, UsuarioActual.CveEmpresa) Then GvDatosCL.EditIndex = -1 - CargaSubTiposActivosFijos() - 'CargaCaracteristicasClasificaciones() - + GlobalDTAFCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) = Nothing Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) End If @@ -228,12 +211,10 @@ Partial Class AF_CatClasificacionesCaracteristicas TxtLongitudCA.Text = "" Alert("La Nueva Característica de Activo Fijo se guardó correctamente.", TipoMensaje.MsgInformacion) UpTitulosCA.Update() - ViewState("DTCatacteristica") = ObjCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - CargaSubTiposActivosFijos() - ''CargaCaracteristicasClasificaciones() - 'CargaCaracteristicas() + GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa) = Nothing + If ViewState("OrdenCA").ToString() <> String.Empty Then CargaGrid(ViewState("OrdenCA").ToString(), 1) @@ -262,7 +243,7 @@ Partial Class AF_CatClasificacionesCaracteristicas End Sub Protected Sub DdlTiposActivosFijosCA_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTiposActivosFijosCA.SelectedIndexChanged DdlSubTiposActivosFijosCA.Items.Clear() - DdlSubTiposActivosFijosCA.DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveTipoActivoFijo = {0} AND CveEmpresa = {1}", DdlTiposActivosFijosCA.SelectedValue.ToEntero, UsuarioActual.CveEmpresa)) + DdlSubTiposActivosFijosCA.DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa, DdlTiposActivosFijosCA.SelectedValue.ToEntero) DdlSubTiposActivosFijosCA.DataBind() DdlSubTiposActivosFijosCA.Items.Insert(0, New ListItem("Todos", "-1")) End Sub @@ -368,8 +349,6 @@ Partial Class AF_CatClasificacionesCaracteristicas GvDatosCA.EditIndex = -1 GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa) = Nothing - CargaSubTiposActivosFijos() - Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) End If @@ -596,8 +575,6 @@ Partial Class AF_CatClasificacionesCaracteristicas GvDatosOpciones.EditIndex = -1 ViewState("DTCatacteristicaOpciones") = ObjCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - CargaSubTiposActivosFijos() - Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) End If From ddba70187942bfd19cce7290c470536a9790a0d2 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 17 Feb 2024 15:58:01 -0700 Subject: [PATCH 4/4] - --- Contratos/RepContratosAvances.aspx | 124 +++++++++++++++++++++++++++++ 1 file changed, 124 insertions(+) create mode 100644 Contratos/RepContratosAvances.aspx diff --git a/Contratos/RepContratosAvances.aspx b/Contratos/RepContratosAvances.aspx new file mode 100644 index 000000000..cbc3d6769 --- /dev/null +++ b/Contratos/RepContratosAvances.aspx @@ -0,0 +1,124 @@ +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepContratosAvances.aspx.vb" Inherits="RepContratosAvances" %> + +<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> + + + + + + + + Reporte de Contratos + + + + + + + +
+
+
+
    +
  • Cliente: + +
    • +
  • Contratos: + +
    • +
  • Sección: + +
    • +
  • Partida: + +
    • +
  • Productos y Servicios: + +
    • +
+
+
+ +
+
+
+ + + + + + + + + + + + + + + + + + +
# + + + + + +
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ + + + + +