AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

correcciones en algunas páginas e implementación del metodo de subproyecto y proyecto

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-07-06 19:54:01 -07:00
parent 4174dbfd56
commit 98f93dff92
17 changed files with 66 additions and 225 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
AF/AF.aspx
View File

@@ -397,7 +397,7 @@
<div class="row" runat="server" id="RowProyecto">
<div class="col-md-4 ">
<label class=" control-label">Proyecto: </label>
<asp:Label runat="server" ID="lblProyecto" class=" control-label">Proyecto: </asp:Label>
</div>
<div class="col-md-7">
@@ -411,7 +411,7 @@
<div class="row">
<div class="col-md-4 ">
<label class=" control-label">SubProyecto: </label>
<asp:Label runat="server" ID="LblSubProyecto" class=" control-label">SubProyecto: </asp:Label>
</div>
<div class="col-md-7">

16
AF/AF.aspx.vb
View File

@@ -275,10 +275,6 @@ Partial Class AF_AF
End If
If UsuarioActual.Empresa.GralSoloProyecto Then
RowProyecto.Visible = False
End If
If UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.UsaContabilidad Then
ActivarRegistroCuentaAF()
End If
@@ -320,8 +316,8 @@ Partial Class AF_AF
CargaTipoActivoFijo()
CargaResponsable()
CargaEstatusActivoFijo()
'CargaProyecto()
CargaSubProyecto()
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, lblProyecto, LblSubProyecto)
RowProyecto.Visible = DdlProyecto.Visible
CargaCliente()
CargaGrupos()
CargaMarcas()
@@ -404,10 +400,10 @@ Partial Class AF_AF
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Sin SubProyecto asignado", "-1"))
End Sub
Private Sub CargaProyecto()
DdlProyecto.DataSource = GlobalDTProyectos(CveEmpresaActual)
DdlProyecto.DataBind()
End Sub
'Private Sub CargaProyecto()
' DdlProyecto.DataSource = GlobalDTProyectos(CveEmpresaActual)
' DdlProyecto.DataBind()
'End Sub
Private Sub CargaEstatusActivoFijo()
DdlEstadoActivoFijo.DataSource = GlobalDTEstadoActivoFijo
DdlEstadoActivoFijo.DataBind()

14
AF/CatAF.aspx
View File

@@ -106,11 +106,19 @@
<div class="col-md-2">
<asp:DropDownList ID="DdlEstatus" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="EstadoActivoFijo" DataValueField="CveEstadoActivoFijo"></asp:DropDownList>
</div>
<div class="col-md-1">Proyecto: </div>
<div class="col-md-2">
<div runat="server" id="DivProyecto" class="col-md-1">
<asp:Label runat="server" ID="LblProyecto">
Proyecto:
</asp:Label>
</div>
<div runat="server" id="DivProyectoDdl" class="col-md-2">
<asp:DropDownList ID="DdlProyecto" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="Proyecto" DataValueField="CveProyecto" OnSelectedIndexChanged="DdlProyecto_SelectedIndexChanged" AutoPostBack="true"></asp:DropDownList>
</div>
<div class="col-md-1">SubProyecto: </div>
<div class="col-md-1">
<asp:Label runat="server" ID="LblSubProyecto">
SubProyecto:
</asp:Label>
</div>
<div class="col-md-2">
<asp:DropDownList ID="DdlSubProyecto" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto"></asp:DropDownList>
</div>

9
AF/CatAF.aspx.vb
View File

@@ -88,9 +88,12 @@ Partial Class AF_CatAF
DdlEstatus.DataBind()
DdlEstatus.Items.Insert(0, New ListItem("Todos", "-1"))
DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.CveEmpresa)
DdlProyecto.DataBind()
DdlProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto)
DivProyecto.Visible = LblProyecto.Visible
DivProyectoDdl.Visible = LblProyecto.Visible
'DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.CveEmpresa)
'DdlProyecto.DataBind()
'DdlProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
DdlCliente.DataBind()

10
AF/PopUpBuscarAF.aspx
View File

@@ -177,15 +177,19 @@
</td>
</tr>
<tr>
<td class="text-right"><b>Proyecto:</b></td>
<td>
<td runat="server" id="tdProyecto" class="text-right">
<asp:Label runat="server" ID="LblProyecto" Font-Bold="true">Proyecto:</asp:Label>
</td>
<td runat="server" id="tdDdlProyecto">
<asp:DropDownList ID="DdlProyecto" CssClass="form-control input-sm" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="200px" ValidationGroup="GrpGuardar">
<asp:ListItem Selected="True" Text="Sin Proyecto asignado" Value="-1"></asp:ListItem>
</asp:DropDownList>
</td>
<%-- </tr>
<tr>--%>
<td class="text-right"><b>SubProyecto:</b></td>
<td class="text-right">
<asp:Label runat="server" ID="LblSubProyectos" Font-Bold="true">SubProyecto:</asp:Label>
</td>
<td>
<asp:DropDownList ID="DdlSubProyecto" CssClass="form-control input-sm" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="200px" ValidationGroup="GrpGuardar">
<asp:ListItem Selected="True" Text="Sin SubProyecto asignado" Value="-1"></asp:ListItem>

10
AF/PopUpBuscarAF.aspx.vb
View File

@@ -126,7 +126,11 @@ Partial Class AF_PopUpBuscarAF
CargaEstatusActivoFijo()
CargaMarcaActivoFijo()
'CargaModeloActivoFijo()
CargaProyecto()
CargarCentrosDeCosto(DdlProyecto, Nothing, LblProyecto, LblSubProyectos)
If Not LblProyecto.Visible Then
tdProyecto.Attributes.Add("style", "display:none")
tdDdlProyecto.Attributes.Add("style", "display:none")
End If
CargaSubProyecto()
CargaSubTipoActivoFijo()
CargaCliente()
@@ -236,10 +240,6 @@ Partial Class AF_PopUpBuscarAF
DdlSubProyecto.Items.Insert(0, New ListItem("Sin SubProyecto asignado", "-1"))
End Sub
Private Sub CargaProyecto()
DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
DdlProyecto.DataBind()
End Sub
Private Sub CargaEstatusActivoFijo()
DdlEstadoActivoFijo.DataSource = GlobalDTEstadoActivoFijo
DdlEstadoActivoFijo.DataBind()