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

limpiando codigo en CatEstatusOrdenServicio

Browse Source
This commit is contained in:
Antonio Gonzalez
2019-09-10 12:46:33 -05:00
parent 245f25bcf1
commit c249625f01
2 changed files with 10 additions and 108 deletions
Download Patch File Download Diff File Expand all files Collapse all files

66
OS/CatEstatusOrdenServicio.aspx
View File

@@ -119,7 +119,7 @@
<asp:UpdatePanel ID="UPPEmp" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UPPEmp" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GvEstatusUsuariosREQ" GridLines="None" CssClass="table table-striped table-advance table-hover" Width="100%" runat="server" AutoGenerateColumns="False" DataKeyNames="CveUsuario" EmptyDataText="No se encontraron Usuarios Registrados" ToolTip="Listado de Usuarios"> <asp:GridView ID="GvEstatusUsuarios" GridLines="None" CssClass="table table-striped table-advance table-hover" Width="100%" runat="server" AutoGenerateColumns="False" DataKeyNames="CveUsuario" EmptyDataText="No se encontraron Usuarios Registrados" ToolTip="Listado de Usuarios">
<HeaderStyle VerticalAlign="Middle" /> <HeaderStyle VerticalAlign="Middle" />
<Columns> <Columns>
<asp:TemplateField> <asp:TemplateField>
@@ -302,70 +302,6 @@
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
<%--<asp:UpdatePanel runat="server" ID="UPSuperior" UpdateMode="Conditional">
<ContentTemplate>
<asp:HiddenField runat="server" ID="IDhdnCveEstatusUsuarios" ClientIDMode="Static" />
<asp:HiddenField runat="server" ID="IDCellYellow" ClientIDMode="Static" />
<asp:HiddenField runat="server" ID="IDimg" ClientIDMode="Static" />
<asp:HiddenField runat="server" ID="hdnCveEstatusUsuarios" ClientIDMode="Static" />
<asp:HiddenField runat="server" ID="hdnCveSuperior" ClientIDMode="Static" />
<asp:HiddenField runat="server" ID="hdnCveEstatusSiguiente" ClientIDMode="Static" />
<asp:HiddenField runat="server" ID="HiddenField1" ClientIDMode="Static" />
<asp:HiddenField runat="server" ID="hdnCveUsuario" ClientIDMode="Static" />
<div id="DivSuperior" style="width: 200px; background-color: White; border: solid 1px black; color: Black; display: none; position: absolute;">
<table border="0" style="width: 200px" cellpadding="0" cellspacing="0">
<tr class="Titulos">
<td style="width: 400px">Opciones&nbsp;</td>
<td style="padding-right: 4px; padding-top: 4px" valign="top">
<img alt="" src="/Imagenes/close.gif" style="cursor: pointer;" onclick="$('#DivSuperior').hide(1000);" /></td>
</tr>
<tr align="center">
<td colspan="2">
<table style="height: 80px; width: 100%">
<tr>
<td style="vertical-align: top; text-align: left; width: 100%">
<asp:CheckBox ID="chkMostrarLimites" Font-Bold="true" Style="display: none" ClientIDMode="Static" Text="Usar Limites" runat="server" /><br />
<div id="DivLimites" style="display: none;">
<table>
<tr>
<td>Inferior</td>
<td>
<asp:TextBox ID="txtLimiteInferior" Width="80px" runat="server" ClientIDMode="Static"></asp:TextBox></td>
</tr>
<tr>
<td>Superior</td>
<td>
<asp:TextBox ID="txtLimiteSuperior" Width="80px" runat="server" ClientIDMode="Static"></asp:TextBox></td>
</tr>
</table>
</div>
<table style="text-align: center" runat="server" id="tblSuperior">
<tr>
<td style="font-weight: bold">Superior</td>
</tr>
<tr>
<td>
<asp:DropDownList ID="ddlSuperior" Width="170px" ClientIDMode="Static" runat="server" DataValueField="CveUsuario" DataTextField="Nombre"></asp:DropDownList></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr style="height: 25px">
<td align="center" colspan="2">
<asp:Button ID="BtnGuardarSuperior" runat="server" ClientIDMode="Static" OnClientClick="$('#DivSuperior').hide(1000);" Text="Guardar" />
<input id="BtnCancelarObs" type="button" value="Cancelar" onclick="$('#DivSuperior').hide(1000);" />
</td>
</tr>
</table>
</div>
</ContentTemplate>
</asp:UpdatePanel>--%>
</ContentTemplate> </ContentTemplate>
</ajax:TabPanel> </ajax:TabPanel>
</ajax:TabContainer> </ajax:TabContainer>

52
OS/CatEstatusOrdenServicio.aspx.vb
View File

@@ -46,8 +46,6 @@ Partial Class OS_CatEstatusOrdenServicio
CveEstatuOS = -1 CveEstatuOS = -1
CargaUsuarios()
End If End If
End Sub End Sub
@@ -168,72 +166,40 @@ Partial Class OS_CatEstatusOrdenServicio
#End Region #End Region
#Region "Configuracion" #Region "Configuracion"
Protected Sub ibOpciones1_Click(sender As Object, e As ImageClickEventArgs)
Dim imgBtn As ImageButton = DirectCast(sender, System.Web.UI.WebControls.ImageButton)
ddlSuperior.Items.Clear()
If imgBtn.CommandArgument <> "" Then
'chkMostrarLimites.Visible = If(GlobalDTOCEstatus.FiltraParametros("CveEstatusSiguiente = " + imgBtn.CommandArgument)(0)("TipoTermino").ToString.ToEntero = 3, False, True)
chkMostrarLimites.Style("display") = If(GlobalDTOCEstatus(UsuarioActual.CveEmpresa).FiltraParametros("CveEstatusSiguiente = " + imgBtn.CommandArgument)(0)("TipoTermino").ToString.ToEntero = 3, "none", "inline")
'ddlSuperior.DataSource = DTEstatusUsuarios.FiltraParametros(String.Format("CveEstatus = {0}", imgBtn.CommandArgument), "Nombre DESC")
ddlSuperior.DataBind()
ddlSuperior.Items.Insert(0, New ListItem("Todos los Superiores", "-1"))
Try
ddlSuperior.SelectedValue = hdnCveSuperior.Value
Catch ex As Exception
End Try
tblSuperior.Visible = True
Else
tblSuperior.Visible = False
End If
UPSuperior.Update()
UPPEmp.Update()
RegistraScript("$('#DivSuperior').show(1000); PosicionaObjeto('" + imgBtn.ClientID + "','DivSuperior'); chkMostrarLimitesCambio();")
End Sub
Private Sub CreaGrid(Tipo As String) Private Sub CreaGrid(Tipo As String)
Dim i As Integer = 1 Dim i As Integer = 1
For Each Row As DataRow In GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).Rows For Each Row As DataRow In GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).Rows
GvEstatusUsuariosREQ.Columns(i).HeaderText = Row("EstatusOrdenServicio").ToString.ToUpper GvEstatusUsuarios.Columns(i).HeaderText = Row("EstatusOrdenServicio").ToString.ToUpper
GvEstatusUsuariosREQ.Columns(i).FooterText = Row("CveEstatusOrdenServicio").ToString GvEstatusUsuarios.Columns(i).FooterText = Row("CveEstatusOrdenServicio").ToString
i += 1 i += 1
Next Next
While i <= 10 While i <= 10
GvEstatusUsuariosREQ.Columns(i).Visible = False GvEstatusUsuarios.Columns(i).Visible = False
i += 1 i += 1
End While End While
End Sub End Sub
Protected Sub CargaGridEstatusUsuarios() Protected Sub CargaGridEstatusUsuarios()
GvEstatusUsuariosREQ.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) GvEstatusUsuarios.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
GvEstatusUsuariosREQ.DataBind() GvEstatusUsuarios.DataBind()
UPPEmp.Update() UPPEmp.Update()
End Sub End Sub
Public Sub CargaUsuarios()
ddlSuperior.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
ddlSuperior.DataBind()
End Sub
Protected Sub btnGuardarEstatusUsuariosREQ_Click(sender As Object, e As EventArgs) Handles btnGuardarEstatusUsuariosREQ.Click Protected Sub btnGuardarEstatusUsuariosREQ_Click(sender As Object, e As EventArgs) Handles btnGuardarEstatusUsuariosREQ.Click
Dim objEstatusOC As New ClsOS Dim objEstatusOC As New ClsOS
objEstatusOC.IniciaTransacSQL() objEstatusOC.IniciaTransacSQL()
Dim HuboErrores As Boolean = False Dim HuboErrores As Boolean = False
Dim CveSubProyecto = 59 Dim CveSubProyecto = 59
For Each Row As GridViewRow In GvEstatusUsuariosREQ.Rows For Each Row As GridViewRow In GvEstatusUsuarios.Rows
Dim r As Integer = 1 Dim r As Integer = 1
For i = 0 To Row.Cells.Count - 1 For i = 0 To Row.Cells.Count - 1
Dim CveEstatus As Integer = If(IsNumeric(GvEstatusUsuariosREQ.Columns(i).FooterText), GvEstatusUsuariosREQ.Columns(i).FooterText.ToEntero, 0) Dim CveEstatus As Integer = If(IsNumeric(GvEstatusUsuarios.Columns(i).FooterText), GvEstatusUsuarios.Columns(i).FooterText.ToEntero, 0)
If CveEstatus > 0 Then If CveEstatus > 0 Then
@@ -288,12 +254,12 @@ Partial Class OS_CatEstatusOrdenServicio
CargaGridEstatusUsuarios() CargaGridEstatusUsuarios()
End Sub End Sub
Protected Sub GvEstatusUsuariosREQ_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEstatusUsuariosREQ.RowDataBound Protected Sub GvEstatusUsuarios_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEstatusUsuarios.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
Dim PermisosDeUsuario As DataTable = DTEstatusUsuarios.FiltraParametros(String.Format("CveUsuario = {0}", e.Row.DBCampo("CveUsuario").ToString)) Dim PermisosDeUsuario As DataTable = DTEstatusUsuarios.FiltraParametros(String.Format("CveUsuario = {0}", e.Row.DBCampo("CveUsuario").ToString))
Dim CveUsuario As String = e.Row.DBCampo("CveUsuario").ToString Dim CveUsuario As String = e.Row.DBCampo("CveUsuario").ToString
For i As Integer = 1 To 10 For i As Integer = 1 To 10
Dim CveEstatus As Integer = GvEstatusUsuariosREQ.Columns(i).FooterText.ToEntero Dim CveEstatus As Integer = GvEstatusUsuarios.Columns(i).FooterText.ToEntero
If CveEstatus > 0 Then If CveEstatus > 0 Then
Dim auxiliarBandera As DataRow = PermisosDeUsuario.FiltroPrimero(String.Format("CveEstatusOrdenServicio = {0}", CveEstatus.ToString)) Dim auxiliarBandera As DataRow = PermisosDeUsuario.FiltroPrimero(String.Format("CveEstatusOrdenServicio = {0}", CveEstatus.ToString))
If auxiliarBandera IsNot Nothing Then If auxiliarBandera IsNot Nothing Then