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

Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2019-09-26 11:03:46 -07:00
parent be8573b488 159b599f7a
commit 33da1840e7
5 changed files with 47 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
App_Code/ClsGenerales.vb
View File

@@ -117,7 +117,7 @@ Public Class ClsGenerales
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
Catch ex As Exception Catch ex As Exception
OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) OnError("Ocurrió un error registrar el cierre de conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try End Try
CveConexion = 0 CveConexion = 0
End If End If

4
OS/Asignaciones.aspx
View File

@@ -155,8 +155,8 @@
<span class="caption-subject bold uppercase">Ordenes Sin Asignar</span> <span class="caption-subject bold uppercase">Ordenes Sin Asignar</span>
<div class="row" id="DivAsignar" runat="server" style="margin-left: 15px;"> <div class="row" id="DivAsignar" runat="server" style="margin-left: 15px;">
<asp:DropDownList ID="DdlTecnico" CssClass="form-control input-sm select2me" runat="server" DataTextField="Nombre" DataValueField="CveUsuario"></asp:DropDownList> <asp:DropDownList ID="DdlTecnico" CssClass="form-control input-sm select2me" runat="server" DataTextField="Nombre" Visible="true" DataValueField="CveUsuario"></asp:DropDownList>
<asp:Button ID="BtnAsignar" CssClass="btn btn-primary" runat="server" Text="Asignar" ValidationGroup="Asignar" /> <asp:Button ID="BtnAsignar" CssClass="btn btn-primary" runat="server" Text="Asignar" ValidationGroup="Asignar" Visible="true" />
</div> </div>
</div> </div>
<div class="actions"> <div class="actions">

1
OS/Asignaciones.aspx.vb
View File

@@ -48,6 +48,7 @@ Partial Class OS_Asignaciones
BtnAsignar.Visible = False BtnAsignar.Visible = False
End If End If
End If End If
ObjEstatusPermisos.Dispose()
End If End If
End Sub End Sub

2
OS/CatEstatusOrdenServicio.aspx.vb
View File

@@ -191,7 +191,7 @@ Partial Class OS_CatEstatusOrdenServicio
Protected Sub CargaGridEstatusUsuarios() Protected Sub CargaGridEstatusUsuarios()
GvEstatusUsuarios.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) GvEstatusUsuarios.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
GvEstatusUsuarios.DataBind() GvEstatusUsuarios.DataBind()
UPPEmp.Update() 'UPPEmp.Update()
End Sub 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

68
OS/OrdenesServicios.aspx.vb
View File

@@ -222,6 +222,14 @@ Partial Class OS_OrdenesServicios
ViewState("TmpDTCuentaEquipo") = value ViewState("TmpDTCuentaEquipo") = value
End Set End Set
End Property End Property
Private Property EstatusOSDelUsuario As DataTable
Get
Return CType(ViewState("EstatusOSDelUsuario"), DataTable)
End Get
Set(value As DataTable)
ViewState("EstatusOSDelUsuario") = value
End Set
End Property
Private Property MensajeAlert As StringBuilder Private Property MensajeAlert As StringBuilder
Get Get
Return CType(ViewState("MensajeAlert"), StringBuilder) Return CType(ViewState("MensajeAlert"), StringBuilder)
@@ -263,6 +271,16 @@ Partial Class OS_OrdenesServicios
CreaDtSolicitarMateriales() CreaDtSolicitarMateriales()
CveSub = -1 CveSub = -1
'Carga estatus 'Carga estatus
Dim ObjEstatusPermisos As New ClsOS
If ObjEstatusPermisos.GetEstatusUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
EstatusOSDelUsuario = ObjEstatusPermisos.DtResultados
Dim PermisoEstatus As New DataTable
PermisoEstatus = ObjEstatusPermisos.DtResultados.FiltraParametros("TipoEstatus = 1")
If PermisoEstatus.Rows.Count = 0 Then
UpGuardar.Visible = False
End If
End If
ObjEstatusPermisos.Dispose()
CargaEstatusOS(2) CargaEstatusOS(2)
'Carga cliente 'Carga cliente
@@ -298,7 +316,7 @@ Partial Class OS_OrdenesServicios
'Carga OS 'Carga OS
If CveOS > 0 Then If CveOS > 0 Then
CargaDatos() CargaDatos()
PermisosSegunEstatus() 'PermisosSegunEstatus()
CargaDetalles() CargaDetalles()
CargaMateriales() CargaMateriales()
@@ -324,15 +342,6 @@ Partial Class OS_OrdenesServicios
hdnEsThickbox.Value = "S" hdnEsThickbox.Value = "S"
hdnClientIDLink.Value = "NoDefinido" hdnClientIDLink.Value = "NoDefinido"
Dim ObjEstatusPermisos As New ClsOS
If ObjEstatusPermisos.GetEstatusUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
Dim PermisoEstatus As New DataTable
PermisoEstatus = ObjEstatusPermisos.DtResultados.FiltraParametros("TipoEstatus = 1")
If PermisoEstatus.Rows.Count = 0 Then
UpGuardar.Visible = False
End If
End If
ObjEstatusPermisos.Dispose()
End If End If
End Sub End Sub
@@ -367,13 +376,13 @@ Partial Class OS_OrdenesServicios
TmpDT.AcceptChanges() TmpDT.AcceptChanges()
End Sub End Sub
Protected Sub DdlEstatusOS_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlEstatusOS.SelectedIndexChanged Protected Sub DdlEstatusOS_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlEstatusOS.SelectedIndexChanged
Dim TipoEstatus = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("TipoEstatus", String.Format("CveEstatusOrdenServicio = {0}", DdlEstatusOS.SelectedValue), "CveEstatusOrdenServicio ASC") Dim tipoDeEstatusSeleccionado As String = EstatusOSDelUsuario.FiltroPrimero(String.Format("CveEstatusOrdenServicio = {0}", DdlEstatusOS.SelectedValue)).Item("TipoEstatusTexto").ToString
Select Case TipoEstatus.ToEntero Select Case tipoDeEstatusSeleccionado
Case 2 Case "Inicial"
'Proceso 'Proceso
Case 3 Case "Terminado"
'Terminada 'Terminada
'Checar que todos los detalles esten terminados para poder cambiar a terminada 'Checar que todos los detalles esten terminados para poder cambiar a terminada
If TmpDT.COUNT("Estatus", "Estatus = 'False'").ToEntero > 0 Then If TmpDT.COUNT("Estatus", "Estatus = 'False'").ToEntero > 0 Then
@@ -382,18 +391,23 @@ Partial Class OS_OrdenesServicios
'Regresar a estatus Atendiendo 'Regresar a estatus Atendiendo
'DdlEstatusOS.SelectedValue = "2" 'DdlEstatusOS.SelectedValue = "2"
End If End If
Case 4 ' Case 4
'Cancelada ' 'Cancelada
Case 5 ' Case 5
'Entregada ' 'Entregada
Guardar(True) ' Guardar(True)
Case "Cancelada"
Dim CanceladoOrdenMinimo As String = EstatusOSDelUsuario.FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 5", "Orden ASC").ToString
DdlEstatusOS.SelectedValue = CanceladoOrdenMinimo
'DdlEstatusOS.SelectedIndex = CanceladoOrdenMinimo
End Select End Select
'CargaEstatusOS(DdlEstatusOS.SelectedValue.ToEntero) ''CargaEstatusOS(DdlEstatusOS.SelectedValue.ToEntero)
PermisosSegunEstatus() 'PermisosSegunEstatus()
GvPS.DataSource = TmpDT 'GvPS.DataSource = TmpDT
GvPS.DataBind() 'GvPS.DataBind()
End Sub End Sub
#End Region #End Region
@@ -647,9 +661,9 @@ Partial Class OS_OrdenesServicios
End Sub End Sub
Private Sub CargaEstatusOS(ValorSeleccionado As Integer) Private Sub CargaEstatusOS(ValorSeleccionado As Integer)
DdlEstatusOS.Items.Clear() DdlEstatusOS.Items.Clear()
DdlEstatusOS.DataSource = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa) DdlEstatusOS.DataSource = EstatusOSDelUsuario
DdlEstatusOS.DataBind() DdlEstatusOS.DataBind()
DdlEstatusOS.SelectedValue = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 1", "CveEstatusOrdenServicio ASC") DdlEstatusOS.SelectedValue = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 1", "Orden ASC")
End Sub End Sub
Private Sub CargaPS(CveClasificacion As Integer, Objeto As DropDownList) Private Sub CargaPS(CveClasificacion As Integer, Objeto As DropDownList)
Objeto.Items.Clear() Objeto.Items.Clear()
@@ -1455,7 +1469,9 @@ Partial Class OS_OrdenesServicios
Dim DetallesPendientes As Integer = TmpDT.COUNT("Estatus", "Estatus = 'False'").ToEntero Dim DetallesPendientes As Integer = TmpDT.COUNT("Estatus", "Estatus = 'False'").ToEntero
If DetallesPendientes = 0 Then Dim TipoEstatusSeleccionado As Integer = EstatusOSDelUsuario.FiltroPrimeroValor("TipoEstatus", String.Format("CveEstatusOrdenServicio = {}", DdlEstatusOS.SelectedValue), "Orden ASC").ToEntero
If DetallesPendientes = 0 AndAlso TipoEstatusSeleccionado = 2 Then
'Se estatus de OS a TERMINADO 'Se estatus de OS a TERMINADO
DdlEstatusOS.SelectedValueExist(GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 3", "CveEstatusOrdenServicio ASC")) DdlEstatusOS.SelectedValueExist(GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 3", "CveEstatusOrdenServicio ASC"))
DdlEstatusOS_SelectedIndexChanged(sender, New EventArgs) DdlEstatusOS_SelectedIndexChanged(sender, New EventArgs)