This commit is contained in:
AbrahamCastilloV
2024-02-17 17:12:19 -07:00
6 changed files with 139 additions and 37 deletions

View File

@@ -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()

View File

@@ -90,7 +90,7 @@
</asp:UpdatePanel>
<asp:UpdatePanel ID="UpDatosCL" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvDatosCL" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCaracteristicaClasificacion" EmptyDataText="No se encontraron Clasificaciones" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; text-align: center;" GridLines="None">
<asp:GridView ID="GvDatosCL" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCaracteristicaClasificacion" EmptyDataText="No se encontraron Clasificaciones" CssClass="table table-striped table-advance table-hover mysmallbtn" Style="margin-top: -10px; text-align: center;" GridLines="None">
<Columns>
<%--<asp:TemplateField>
<ItemTemplate>&nbsp;<asp:Literal ID="LtlTiposActivosFijosCL" runat="server" Text='<%# Eval("TipoActivoFijo", "{0}")%>'></asp:Literal></ItemTemplate>
@@ -300,7 +300,7 @@
</asp:UpdatePanel>
<asp:UpdatePanel ID="UpDatosCA" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvDatosCA" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCaracteristica" EmptyDataText="No se encontraron Características" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; text-align: center;" GridLines="None">
<asp:GridView ID="GvDatosCA" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCaracteristica" EmptyDataText="No se encontraron Características" CssClass="table table-striped table-advance table-hover mysmallbtn" Style="margin-top: -10px; text-align: center;" GridLines="None">
<Columns>
<asp:TemplateField>
<ItemTemplate>&nbsp;<asp:Literal ID="LtlTiposActivosFijosCA" runat="server" Text='<%# Eval("TipoActivoFijo", "{0}")%>'></asp:Literal></ItemTemplate>
@@ -537,7 +537,7 @@
</asp:UpdatePanel>
<asp:UpdatePanel ID="UpDatosOpciones" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvDatosOpciones" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCaracteristicaOpcion" EmptyDataText="No se encontraron Opciones" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; text-align: center;" GridLines="None">
<asp:GridView ID="GvDatosOpciones" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCaracteristicaOpcion" EmptyDataText="No se encontraron Opciones" CssClass="table table-striped table-advance table-hover mysmallbtn" GridLines="None">
<Columns>
<asp:TemplateField>
<ItemTemplate>&nbsp;<asp:Literal ID="LtlTiposActivosFijosOpciones" runat="server" Text='<%# Eval("TipoActivoFijo", "{0}")%>'></asp:Literal></ItemTemplate>

View File

@@ -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

View File

@@ -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();

View File

@@ -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

View File

@@ -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" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
</asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
Reporte de Contratos
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel ID="UpFiltros" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:Panel ID="PnlFiltros" runat="server" DefaultButton="CmdConsultar">
<div class="portlet solid grey-cascade portlet-filter" style="">
<div class="portlet-title portlet-filterT" style="">
<div class="titlefiltros caption ">
<ul class="list-inline" id="TrProgramar" runat="server">
<li>Cliente:
<asp:DropDownList ID="DdlCliente" runat="server" AutoPostBack="true" DataTextField="NombreComercial" DataValueField="CveCliente" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 250px !important;"></asp:DropDownList>
</li>
<li>Contratos:
<asp:DropDownList ID="DdlContrato" runat="server" AutoPostBack="true" DataTextField="NumeroContrato" DataValueField="CveContrato" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 100px !important;"></asp:DropDownList>
</li>
<li style="display: none;">Sección:
<asp:DropDownList ID="DdlSeccion" runat="server" AutoPostBack="false" DataTextField="Seccion" DataValueField="CveSeccion" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 100px !important;"></asp:DropDownList>
</li>
<li>Partida:
<asp:DropDownList ID="DdlClasificacion" runat="server" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 90px !important;"></asp:DropDownList>
</li>
<li>Productos y Servicios:
<asp:DropDownList ID="DdlPS" runat="server" AutoPostBack="true" DataTextField="PS" DataValueField="CvePS" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 150px !important;"></asp:DropDownList>
</li>
</ul>
</div>
<div class="tools">
<asp:Button ID="CmdConsultar" runat="server" Text="Consultar" class="btn btn-primary" CausesValidation="true" ValidationGroup="GrConsulta" />
</div>
</div>
</div>
</asp:Panel>
</ContentTemplate>
</asp:UpdatePanel>
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<table class="table table-striped table-advance table-hover">
<thead>
<tr class="Titulos">
<th width="60px">#</th>
<th width="300px">
<asp:LinkButton ID="LbSubSeccion" runat="server" CausesValidation="false" Text="Cliente/ Contrato / Partida" /></th>
<th width="120px">
<asp:LinkButton ID="LinkButton1" runat="server" CausesValidation="false" Text="Contratado" /></th>
<th width="120px">
<asp:LinkButton ID="LinkButton4" runat="server" CausesValidation="false" Text="Actual" /></th>
<th width="120px">
<asp:LinkButton ID="LinkButton5" runat="server" CausesValidation="false" Text="Por Estimar" /></th>
<th width="120px">
<asp:LinkButton ID="LinkButton2" runat="server" CausesValidation="false" Text="Ejecutado" /></th>
<th width="120px">
<asp:LinkButton ID="LinkButton3" runat="server" CausesValidation="false" Text="Obra Faltante" /></th>
</tr>
</thead>
</table>
<asp:GridView ID="GV" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron Estimaciones con los Filtros seleccionados" DataKeyNames="CveContrato" ShowHeader="false" SelectedRowStyle-BackColor="#CCFF66" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; text-align: center;" GridLines="None">
<Columns>
<asp:TemplateField>
<ItemTemplate>
<asp:Literal ID="LitEst" runat="server" Text='<%# Eval("CveContrato")%>' />
</ItemTemplate>
<ItemStyle HorizontalAlign="Center"></ItemStyle>
</asp:TemplateField>
<asp:TemplateField>
<ItemTemplate>
<asp:HyperLink ID="HplAgrupador" CssClass="Texto" runat="server" Text='<%# Eval("Agrupador") %>' NavigateUrl='<%# Eval("CveContrato", "ContratosDetalle.aspx?CveContrato={0}&Op=2")%>'></asp:HyperLink>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<ItemTemplate>
<asp:HyperLink ID="HplContratado" CssClass="Texto" runat="server" Text='<%# Eval("Contratado", "{0:N2}")%>'></asp:HyperLink>
</ItemTemplate>
<ItemStyle HorizontalAlign="Right"></ItemStyle>
</asp:TemplateField>
<asp:TemplateField>
<ItemTemplate>
<asp:HyperLink ID="HplActual" CssClass="Texto" runat="server" Text='<%# Eval("LoQueEstoyHaciendo", "{0:N2}")%>'></asp:HyperLink>
</ItemTemplate>
<ItemStyle HorizontalAlign="Right"></ItemStyle>
</asp:TemplateField>
<asp:TemplateField>
<ItemTemplate>
<asp:HyperLink ID="HPlPorEstimar" CssClass="Texto" runat="server" Text='<%# Eval("PorEstimar", "{0:N2}")%>'></asp:HyperLink>
</ItemTemplate>
<ItemStyle HorizontalAlign="Right"></ItemStyle>
</asp:TemplateField>
<asp:TemplateField>
<ItemTemplate>
<asp:HyperLink ID="HplEjecutado" CssClass="Texto" runat="server" Text='<%# Eval("Ejecutado", "{0:N2}")%>'></asp:HyperLink>
</ItemTemplate>
<ItemStyle HorizontalAlign="Right"></ItemStyle>
</asp:TemplateField>
<asp:TemplateField>
<ItemTemplate>
<asp:HyperLink ID="HplOFA" CssClass="Texto" runat="server" Text='<%# Eval("OFA", "{0:N2}")%>'></asp:HyperLink>
</ItemTemplate>
<ItemStyle HorizontalAlign="Right"></ItemStyle>
</asp:TemplateField>
</Columns>
<RowStyle CssClass="Texto" />
<AlternatingRowStyle CssClass="TextoAlterno" />
<HeaderStyle CssClass="Titulos" />
</asp:GridView>
<br />
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
</asp:Content>