747 lines
27 KiB
VB.net
747 lines
27 KiB
VB.net
Option Explicit On
|
|
Option Strict On
|
|
|
|
Imports APP_Code_CSharp
|
|
Imports Extensiones
|
|
Imports System.Data
|
|
Imports System.Web.Services
|
|
|
|
Partial Class OS_RepServiciosMedicos
|
|
Inherits ClsPaginas
|
|
|
|
#Region "PROPIEDADES"
|
|
|
|
Private Property DtDatos As DataTable
|
|
Get
|
|
DtDatos = DirectCast(ViewState("DtDatos"), DataTable)
|
|
End Get
|
|
|
|
Set(ByVal value As DataTable)
|
|
ViewState("DtDatos") = value
|
|
End Set
|
|
End Property
|
|
Private Property Agrupador As String
|
|
Get
|
|
Return ViewState("Agrupador").ToString
|
|
End Get
|
|
|
|
Set(value As String)
|
|
ViewState("Agrupador") = value
|
|
End Set
|
|
End Property
|
|
Private Property TCEspecifico As Double
|
|
Get
|
|
Return ViewState("TCEspecifico").ToString.ToDouble
|
|
End Get
|
|
|
|
Set(value As Double)
|
|
ViewState("TCEspecifico") = value
|
|
End Set
|
|
End Property
|
|
Private Property TipoCambio As Integer
|
|
Get
|
|
Return ViewState("TipoCambio").ToString.ToEntero
|
|
End Get
|
|
|
|
Set(value As Integer)
|
|
ViewState("TipoCambio") = value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Private Property DT_OSSubProyectos As DataTable
|
|
Get
|
|
If ViewState("DT_OSSubProyectos") Is Nothing Then
|
|
ViewState("DT_OSSubProyectos") = New DataTable
|
|
End If
|
|
Return DirectCast(ViewState("DT_OSSubProyectos"), DataTable)
|
|
|
|
End Get
|
|
|
|
Set(value As DataTable)
|
|
ViewState("DT_OSSubProyectos") = value
|
|
End Set
|
|
End Property
|
|
|
|
Private Property DT_OSNoAsignadas As DataTable
|
|
Get
|
|
If ViewState("DT_OSNoAsignadas") Is Nothing Then
|
|
ViewState("DT_OSNoAsignadas") = New DataTable
|
|
End If
|
|
Return DirectCast(ViewState("DT_OSNoAsignadas"), DataTable)
|
|
|
|
End Get
|
|
|
|
Set(value As DataTable)
|
|
ViewState("DT_OSNoAsignadas") = value
|
|
End Set
|
|
End Property
|
|
|
|
Private Property CveOSDetalleAsignar As Integer
|
|
Get
|
|
If ViewState("CveOSDetalleAsignar") Is Nothing Then
|
|
ViewState("CveOSDetalleAsignar") = -1
|
|
End If
|
|
Return ViewState("CveOSDetalleAsignar").ToString.ToEntero
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("CveOSDetalleAsignar") = value
|
|
End Set
|
|
End Property
|
|
|
|
Private Property CveSubProyectoAsignar As Integer
|
|
Get
|
|
If ViewState("CveSubProyectoAsignar") Is Nothing Then
|
|
ViewState("CveSubProyectoAsignar") = -1
|
|
End If
|
|
Return ViewState("CveSubProyectoAsignar").ToString.ToEntero
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("CveSubProyectoAsignar") = value
|
|
End Set
|
|
End Property
|
|
|
|
Private Property CveOrdenServicioTipo As Integer
|
|
Get
|
|
If ViewState("CveOrdenServicioTipo") Is Nothing Then
|
|
ViewState("CveOrdenServicioTipo") = -1
|
|
End If
|
|
Return ViewState("CveOrdenServicioTipo").ToString.ToEntero
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("CveOrdenServicioTipo") = value
|
|
End Set
|
|
End Property
|
|
|
|
Private Property FolioAsignar As String
|
|
Get
|
|
If ViewState("FolioAsignar") Is Nothing Then
|
|
ViewState("FolioAsignar") = ""
|
|
End If
|
|
Return ViewState("FolioAsignar").ToString
|
|
End Get
|
|
Set(value As String)
|
|
ViewState("FolioAsignar") = value
|
|
End Set
|
|
End Property
|
|
Private Property ConceptoAsignar As String
|
|
Get
|
|
If ViewState("ConceptoAsignar") Is Nothing Then
|
|
ViewState("ConceptoAsignar") = ""
|
|
End If
|
|
Return ViewState("ConceptoAsignar").ToString
|
|
End Get
|
|
Set(value As String)
|
|
ViewState("ConceptoAsignar") = value
|
|
End Set
|
|
End Property
|
|
Private Property ClienteAsignar As String
|
|
Get
|
|
If ViewState("ClienteAsignar") Is Nothing Then
|
|
ViewState("ClienteAsignar") = ""
|
|
End If
|
|
Return ViewState("ClienteAsignar").ToString
|
|
End Get
|
|
Set(value As String)
|
|
ViewState("ClienteAsignar") = value
|
|
End Set
|
|
End Property
|
|
Private Property SubProyectoAsignar As String
|
|
Get
|
|
If ViewState("SubProyectoAsignar") Is Nothing Then
|
|
ViewState("SubProyectoAsignar") = ""
|
|
End If
|
|
Return ViewState("SubProyectoAsignar").ToString
|
|
End Get
|
|
Set(value As String)
|
|
ViewState("SubProyectoAsignar") = value
|
|
End Set
|
|
End Property
|
|
Private Property CveOSAsignar As Integer
|
|
Get
|
|
If ViewState("CveOSAsignar") Is Nothing Then
|
|
ViewState("CveOSAsignar") = -1
|
|
End If
|
|
Return ViewState("CveOSAsignar").ToString.ToEntero
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("CveOSAsignar") = value
|
|
End Set
|
|
End Property
|
|
Private Property TipoAccion As OSModalTipoAccion
|
|
Get
|
|
If ViewState("TipoAccion") Is Nothing Then
|
|
ViewState("TipoAccion") = OSModalTipoAccion.Agregar
|
|
End If
|
|
Return DirectCast(ViewState("TipoAccion"), OSModalTipoAccion)
|
|
End Get
|
|
Set(value As OSModalTipoAccion)
|
|
ViewState("TipoAccion") = value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
|
|
Private Property CveTecnicoAsignarOrioginal As Integer
|
|
Get
|
|
If ViewState("CveTecnicoAsignarOrioginal") Is Nothing Then
|
|
ViewState("CveTecnicoAsignarOrioginal") = -1
|
|
End If
|
|
Return ViewState("CveTecnicoAsignarOrioginal").ToString.ToEntero
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("CveTecnicoAsignarOrioginal") = value
|
|
End Set
|
|
End Property
|
|
|
|
Private Property FechaInicioOriginal As DateTime
|
|
Get
|
|
If ViewState("FechaInicioOriginal") Is Nothing Then
|
|
ViewState("FechaInicioOriginal") = NowADS()
|
|
End If
|
|
Return ViewState("FechaInicioOriginal").ToString.ToDateTime
|
|
End Get
|
|
Set(value As DateTime)
|
|
ViewState("FechaInicioOriginal") = value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Private Property CveClientePublicoGeneral As Integer
|
|
Get
|
|
If ViewState("CveClientePublicoGeneral") Is Nothing Then
|
|
ViewState("CveClientePublicoGeneral") = -1
|
|
End If
|
|
Return ViewState("CveClientePublicoGeneral").ToString.ToEntero
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("CveClientePublicoGeneral") = value
|
|
End Set
|
|
End Property
|
|
|
|
Private Property NombreClientePublicoGeneral As String
|
|
Get
|
|
If ViewState("NombreClientePublicoGeneral") Is Nothing Then
|
|
ViewState("NombreClientePublicoGeneral") = ""
|
|
End If
|
|
Return ViewState("NombreClientePublicoGeneral").ToString
|
|
End Get
|
|
Set(value As String)
|
|
ViewState("NombreClientePublicoGeneral") = value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Private Property DTTecnicos As DataTable
|
|
Get
|
|
If ViewState("DTTecnicos") Is Nothing Then
|
|
ViewState("DTTecnicos") = New DataTable
|
|
End If
|
|
|
|
Return DirectCast(ViewState("DTTecnicos"), DataTable)
|
|
End Get
|
|
|
|
Set(ByVal value As DataTable)
|
|
ViewState("DTTecnicos") = value
|
|
End Set
|
|
End Property
|
|
|
|
Enum OSModalTipoAccion
|
|
Agregar
|
|
Actualizacion
|
|
Asignacion
|
|
End Enum
|
|
|
|
#End Region
|
|
|
|
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
|
If Not IsPostBack Then
|
|
CargaUsuariosTecnicos()
|
|
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyectoEtiqueta)
|
|
LblSubProyectoFiltro.Text = LblSubProyectoEtiqueta.Text
|
|
If UsuarioActual.CveVendedor > 0 Then
|
|
HdnCveVendedor.Value = UsuarioActual.CveVendedor.ToString
|
|
End If
|
|
CargaTecnicos()
|
|
ConsultaOrdenesServiciosNoAsignadas()
|
|
CargaOrdenesServiciosNoAsignadas()
|
|
CargaTecnicosAsignar()
|
|
InicializaCalendar()
|
|
GetCargaTiposOrden()
|
|
cargaDropsModal()
|
|
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub CargaUsuariosTecnicos()
|
|
|
|
' If not UsuarioActual.TienePermisoProceso(171) Then Exit Sub
|
|
|
|
Dim DTTecnicosresultado As DataTable = Nothing
|
|
DTTecnicos = New DataTable
|
|
Dim ObjOS As New ClsOS
|
|
If ObjOS.GetSubProyectosEstatusInicial(-1, 3, UsuarioActual.CveEmpresa) Then
|
|
DTTecnicosresultado = ObjOS.DtResultados.FiltraParametros(" Estatus = 'True' ")
|
|
End If
|
|
|
|
If DTTecnicosresultado IsNot Nothing Then
|
|
For Each SubProyecto As DataRow In DTTecnicosresultado.Rows
|
|
Dim TecnicosSubProyectoAux As DataTable = DTTecnicosresultado.FiltraParametros(String.Format("SubProyecto = '{0}'", SubProyecto.Item("SubProyecto")))
|
|
If TecnicosSubProyectoAux.Rows.Count > 0 Then
|
|
Dim EstatusDeTipoProcesoMenor As Integer = TecnicosSubProyectoAux.Rows(0).Item("CveEstatusOrdenServicio").ToString.ToEntero
|
|
Dim dtAuxiliar As New DataTable
|
|
dtAuxiliar = DTTecnicosresultado.FiltraParametros(String.Format("SubProyecto = '{0}' AND CveEstatusOrdenServicio = {1}", SubProyecto.Item("SubProyecto"), EstatusDeTipoProcesoMenor), "", {"CveUsuario", "Nombre"})
|
|
DTTecnicos.Merge(dtAuxiliar)
|
|
End If
|
|
Next
|
|
End If
|
|
ObjOS.Dispose()
|
|
|
|
DTTecnicos = DTTecnicos.FiltraParametros("", DistinctColumns:={"CveUsuario", "Nombre"})
|
|
|
|
DdlTecnicoAsignar.DataSource = DTTecnicos
|
|
DdlTecnicoAsignar.DataBind()
|
|
DdlTecnicoAsignar.Visible = True
|
|
DdlTecnicoAsignar.Items.Insert(0, New ListItem("-", "-1"))
|
|
|
|
'Dim ObjUsuarios As New ClsSisUsuarios
|
|
'If ObjUsuarios.GetPermisosPorUsuarioProcesos(-1, -1, -1, -1, 351, UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa) Then
|
|
' If UsuarioActual.CveRol = 1 Then
|
|
' DTTecnicos = ObjUsuarios.DtResultados.FiltraParametros(" CveProcesoUsuarioAcceso > 0")
|
|
' Else
|
|
' DTTecnicos = ObjUsuarios.DtResultados.FiltraParametros(" CveProcesoUsuarioAcceso > 0 and CveUsuario <> 100")
|
|
' End If
|
|
|
|
'End If
|
|
'ObjUsuarios.Dispose()
|
|
|
|
End Sub
|
|
|
|
#Region "CARGAS"
|
|
|
|
#End Region
|
|
|
|
#Region " FULL CALENDAR "
|
|
Private Sub InicializaCalendar()
|
|
RegistraScript("InitCalendar();")
|
|
|
|
HdnU.Value = UsuarioActual.CveUsuario.ToString
|
|
HdnE.Value = UsuarioActual.CveEmpresa.ToString
|
|
|
|
DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True
|
|
CargaTiposAgenda()
|
|
End Sub
|
|
Private Sub CargaTiposAgenda()
|
|
Dim ObjEventos As New ClsOIEventos
|
|
|
|
If ObjEventos.GetAgendaTipo() Then
|
|
DdlAgedaTipo.DataSource = ObjEventos.DtResultados
|
|
DdlAgedaTipo.DataBind()
|
|
DdlAgedaTipo.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
|
Else
|
|
Alert("Ocurrió un error al obtener los tipos de agenda. Por favor recargue la página", TipoMensaje.MsgError)
|
|
End If
|
|
|
|
ObjEventos.Dispose()
|
|
End Sub
|
|
|
|
Private Sub CargaTecnicos()
|
|
DdlTecnico.DataSource = DTTecnicos 'GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
|
|
DdlTecnico.DataBind()
|
|
DdlTecnico.Items.Insert(0, New ListItem("Todos", "-1"))
|
|
If UsuarioActual.TienePermisoProceso(376) Then
|
|
DdlTecnico.Enabled = False
|
|
DdlTecnico.SelectedValueExist(UsuarioActual.CveUsuario)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub CargaTecnicosAsignar()
|
|
|
|
|
|
'Dim ObjOS As New ClsOS
|
|
'Dim TecnicosSubProyectos As New DataTable
|
|
'Dim TecnicosResultado As New DataTable
|
|
|
|
'If ObjOS.GetSubProyectosEstatusInicial(-1, 3, UsuarioActual.CveEmpresa) Then
|
|
' TecnicosSubProyectos = ObjOS.DtResultados
|
|
'End If
|
|
|
|
'For Each SubProyecto As DataRow In DT_OSSubProyectos.Rows
|
|
' Dim TecnicosSubProyectoAux As DataTable = TecnicosSubProyectos.FiltraParametros(String.Format("SubProyecto = '{0}'", SubProyecto.Item("SubProyecto")))
|
|
' If TecnicosSubProyectoAux.Rows.Count > 0 Then
|
|
' Dim EstatusDeTipoProcesoMenor As Integer = TecnicosSubProyectoAux.Rows(0).Item("CveEstatusOrdenServicio").ToString.ToEntero
|
|
' Dim dtAuxiliar As New DataTable
|
|
' dtAuxiliar = TecnicosSubProyectos.FiltraParametros(String.Format("SubProyecto = '{0}' AND CveEstatusOrdenServicio = {1}", SubProyecto.Item("SubProyecto"), EstatusDeTipoProcesoMenor), "", {"CveUsuario", "Nombre"})
|
|
' TecnicosResultado.Merge(dtAuxiliar)
|
|
' End If
|
|
'Next
|
|
''DtTecnicosSubProyectos = TecnicosResultado
|
|
|
|
'ObjOS.Dispose()
|
|
|
|
UpModalOS.Update()
|
|
|
|
End Sub
|
|
|
|
|
|
Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs)
|
|
Dim ObjEventos As New ClsOIEventos
|
|
|
|
Dim FechaInicio = TxtFechaInicioAgenda.Text.ToDateTime()
|
|
Dim FechaFin = TxtFechaFinAgenda.Text.ToDateTime()
|
|
|
|
RegistraScript("GetView();")
|
|
|
|
Dim RecurrenciaTipo = 0, Frecuencia = -1, DiasSemana = "-1", Dias = -1, Mes = -1, RecurrenciaFin = "-1"
|
|
|
|
'11/05/2018 - GASTO RECURRENTE
|
|
Dim CveTipoEvento As Integer = 2
|
|
Dim Importe As Double = -1
|
|
|
|
If HdnCveEvento.Value.ToEntero > 0 Then
|
|
If ObjEventos.UpdateEvento(TxtAsuntoAgenda.Text, TxtDescripcionAgenda.Text, DdlPrioridad.SelectedValue.ToEntero, DdlAgedaTipo.SelectedValue.ToEntero, -1, FechaInicio, FechaFin, -1, "-1", HdnCveEvento.Value.ToEntero, "-1",
|
|
RecurrenciaTipo, Frecuencia, DiasSemana, Dias, Mes, RecurrenciaFin, Importe:=Importe) Then
|
|
Alert("El Evento se actualizó correctamente", TipoMensaje.MsgInformacion)
|
|
Else
|
|
Alert("Ocurrió un error al actualizar el evento", TipoMensaje.MsgAdvertencia)
|
|
End If
|
|
Else
|
|
If ObjEventos.AddEventoAgenda(DdlAgedaTipo.SelectedValue.ToEntero, TxtAsuntoAgenda.Text, TxtDescripcionAgenda.Text, DdlPrioridad.SelectedValue.ToEntero, FechaInicio, FechaFin, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
|
|
RecurrenciaTipo:=RecurrenciaTipo, Frecuencia:=Frecuencia, DiasSemana:=DiasSemana, Dia:=Dias, Mes:=Mes, RecurrenciaFin:=RecurrenciaFin, CveTipoEvento:=CveTipoEvento, Importe:=Importe) Then
|
|
|
|
Alert("El Evento se guardó correctamente", TipoMensaje.MsgInformacion)
|
|
Else
|
|
Alert("Ocurrió un error al Guardar el evento", TipoMensaje.MsgAdvertencia)
|
|
End If
|
|
End If
|
|
|
|
ObjEventos.Dispose()
|
|
RegistraScript("Calendario();SetView();$('#ModalAgenda').modal('hide');", "1234")
|
|
LimpiaModalAgenda()
|
|
|
|
End Sub
|
|
Private Sub LimpiaModalAgenda()
|
|
TxtDescripcionAgenda.Text = ""
|
|
TxtAsuntoAgenda.Text = ""
|
|
DdlPrioridad.SelectedValue = "1"
|
|
|
|
'RBLRecurrencia_SelectedIndexChanged(RBLRecurrencia, EventArgs.Empty)
|
|
'TxtFrecuencia.Text = "1"
|
|
'LblEmpresaCRM.Text = ""
|
|
End Sub
|
|
|
|
Protected Sub BtnEliminar_Click(sender As Object, e As EventArgs)
|
|
|
|
Dim ObjEventos As New ClsOIEventos
|
|
RegistraScript("GetView();")
|
|
|
|
If ObjEventos.RemoveEvento(HdnCveEvento.Value.ToEntero, UsuarioActual.CveEmpresa) Then
|
|
RegistraScript("Calendario();SetView();$('#ModalAgenda').modal('hide');", "1234")
|
|
Alert("El evento se eliminó correctamente", TipoMensaje.MsgInformacion)
|
|
Else
|
|
Alert("Ocurrió un error al eliminar el evento, por favor intente de nuevo.", TipoMensaje.MsgError)
|
|
End If
|
|
|
|
ObjEventos.Dispose()
|
|
End Sub
|
|
|
|
<WebMethod()> <Script.Services.ScriptMethodAttribute()>
|
|
Public Shared Function EliminaEvento(CveEvento As Integer, CveEmpresa As Integer) As String
|
|
Dim ObjEventos As New ClsOIEventos
|
|
|
|
ObjEventos.RemoveEvento(CveEvento, CveEmpresa)
|
|
|
|
ObjEventos.Dispose()
|
|
Return CveEvento.ToString
|
|
End Function
|
|
|
|
<WebMethod()> <Script.Services.ScriptMethodAttribute()>
|
|
Public Shared Function ActualizaEvento(ClsEvent As CalendarEvent) As String
|
|
Dim ObjEventos As New ClsOIEventos
|
|
|
|
Dim FechaInicio = DateTimeOffset.Parse(ClsEvent.start).DateTime
|
|
Dim FechaFin = DateTimeOffset.Parse(ClsEvent.end).DateTime
|
|
|
|
If ObjEventos.UpdateEvento("-1", "-1", -1, -1, -1, FechaInicio, FechaFin, -1, "-1", ClsEvent.id) Then
|
|
End If
|
|
|
|
ObjEventos.Dispose()
|
|
Return "a"
|
|
End Function
|
|
|
|
Protected Sub BtnActualizaAdd_Click(sender As Object, e As EventArgs)
|
|
'RBLRecurrencia_SelectedIndexChanged(RBLRecurrencia, EventArgs.Empty)
|
|
End Sub
|
|
#End Region
|
|
|
|
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
|
|
RegistraScript("Calendario();")
|
|
End Sub
|
|
|
|
Private Sub CargaOrdenesServiciosNoAsignadas()
|
|
|
|
DdlOrdenesSinAsignar.DataSource = DT_OSNoAsignadas
|
|
DdlOrdenesSinAsignar.DataBind()
|
|
DdlOrdenesSinAsignar.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
|
|
|
|
UpOrdenesSinAsignar.Update()
|
|
|
|
End Sub
|
|
Private Sub ConsultaOrdenesServiciosNoAsignadas()
|
|
|
|
Dim CveEstatusOrdenServicio As Integer = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus=1").ToEntero
|
|
|
|
If CveEstatusOrdenServicio = 0 Then
|
|
Alert("No se pudo carga el estatus", TipoMensaje.MsgAdvertencia)
|
|
Exit Sub
|
|
End If
|
|
|
|
Dim ObjOS As New ClsOS
|
|
|
|
If ObjOS.GetOrdenesServiciosNoAsignadas(-1, -1, CveEstatusOrdenServicio, UsuarioActual.CveEmpresa, "-1", "-1") Then
|
|
DT_OSSubProyectos = ObjOS.DtResultados.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
|
|
DT_OSNoAsignadas = ObjOS.DtResultados
|
|
Else
|
|
DT_OSSubProyectos = New DataTable
|
|
DT_OSNoAsignadas = New DataTable
|
|
End If
|
|
ObjOS.Dispose()
|
|
|
|
'If DT_OSNoAsignadas.Rows.Count > 0 Then
|
|
' DVOSPendientes.Visible = True
|
|
'Else
|
|
' DVOSPendientes.Visible = False
|
|
'End If
|
|
UpOrdenesSinAsignar.Update()
|
|
|
|
End Sub
|
|
|
|
Private Sub cargaDropsModal()
|
|
|
|
'DdlClientesWS.ddl.Items.Clear()
|
|
'DdlClientesWS.txtText.Value = ""
|
|
'DdlClientesWS.txtValue.Value = ""
|
|
|
|
'If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
|
|
' DdlClientesWS.setEsWebService(True)
|
|
'Else
|
|
' DdlClientesWS.setEsWebService(False)
|
|
' CargaClientes()
|
|
'End If
|
|
|
|
End Sub
|
|
|
|
Private Sub CargaClientes()
|
|
'If Not UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
|
|
' DdlClientesWS.ddl.Items.Clear()
|
|
' DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
|
|
' DdlClientesWS.DataBind()
|
|
' DdlClientesWS.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
|
|
'End If
|
|
End Sub
|
|
|
|
Private Sub LipiaModalOS()
|
|
|
|
TxtDescripcion.Text = ""
|
|
TxtFechaOS.Text = ""
|
|
CveTecnicoAsignarOrioginal = -1
|
|
FechaInicioOriginal = NowADS()
|
|
|
|
DVFolio.Visible = False
|
|
DvModalSubProyecto.Visible = False
|
|
|
|
End Sub
|
|
|
|
Protected Sub LnkOrdenesSinAsignarMostarModal_Click(sender As Object, e As EventArgs)
|
|
TipoAccion = OSModalTipoAccion.Asignacion
|
|
HFCveOS.Value = "-1"
|
|
MostarModal()
|
|
End Sub
|
|
Private Sub MostarModal()
|
|
|
|
LipiaModalOS()
|
|
If TipoAccion = OSModalTipoAccion.Agregar Then
|
|
|
|
TxtFechaOS.Text = NowADS().ToString("dd/MM/yyyy")
|
|
RegistraScript("$('#DVModalOS').modal('show');")
|
|
LblModalOStitulo.Text = "Agregar Orden de Servicio"
|
|
|
|
ElseIf TipoAccion = OSModalTipoAccion.Actualizacion Or TipoAccion = OSModalTipoAccion.Asignacion Then
|
|
|
|
'cargaDropsModal()
|
|
LblModalOStitulo.Text = "Orden de Servicio"
|
|
Dim IDOSDetalle As Integer = 1
|
|
Dim SeFacturara = ""
|
|
Dim CveOsConsultar As Integer = HFCveOS.Value.ToEntero
|
|
|
|
If CveOsConsultar > 0 Then
|
|
DdlOrdenesSinAsignar.SelectedValueExist(-1)
|
|
End If
|
|
Dim ObjOS As New ClsOS()
|
|
If ObjOS.GetOrdenesServicios(CveOsConsultar, -1, -1, -1, -1, UsuarioActual.CveEmpresa, CveOSDetalle:=DdlOrdenesSinAsignar.SelectedValue.ToEntero) Then
|
|
Dim thospital As String = ObjOS.Cliente
|
|
If ObjOS.CveClienteSucursal > 0 Then
|
|
thospital = GlobalDTClientesSucursales(ObjOS.CveEmpresa, ObjOS.CveCliente).FiltroPrimeroValor("SucursalCliente", $"CveClienteSucursal = {ObjOS.CveClienteSucursal}")
|
|
End If
|
|
|
|
DVFolio.Visible = True
|
|
HLkFolio.Text = ObjOS.Folio.ToString
|
|
HLkFolio.NavigateUrl = $"/OS/OrdenesServicios.aspx?CveOS={ObjOS.CveOS}"
|
|
HLKPDF.NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=OS&CVEOS={0}", ObjOS.CveOS))}"
|
|
|
|
HFCveOS.Value = ObjOS.CveOS.ToString
|
|
HFCveOsDetalle.Value = ObjOS.CveOSDetalle.ToString
|
|
HdnFechaCita.Value = ObjOS.FechaCita.ToString
|
|
TxtDescripcion.Text = ObjOS.Descripcion
|
|
TxtFechaOS.Text = ObjOS.FechaCita.ToString("dd/MM/yyyy HH:mm")
|
|
TxtProcedimiento.Text = GlobalDTProcedimientos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Procedimiento", "CveProcedimiento =" & ObjOS.CveProcedimiento)
|
|
TxtMedico.Text = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Medico", "CveMedico =" & ObjOS.CveMedico)
|
|
TxtCliente.Text = thospital
|
|
TxtTipoVenta.Text = GlobalDTTipoVenta(UsuarioActual.CveEmpresa).FiltroPrimeroValor("TipoVenta", $"CveTipoVenta ={ObjOS.CveTipoVenta}")
|
|
TxtTecnico.Text = ObjOS.UsuarioAtendio
|
|
divPedido.Visible = ObjOS.CveCotizacion > 0
|
|
HplPedido.NavigateUrl = $"/Ventas/Ventas.aspx?CveVenta={ObjOS.CveCotizacion}"
|
|
HplPedido.Text = ObjOS.SerieFolioCotizacion
|
|
divRemision.Visible = ObjOS.CveVenta > 0
|
|
HplRemision.NavigateUrl = $"/Ventas/Ventas.aspx?CveVenta={ObjOS.CveVenta}"
|
|
HplRemision.Text = ObjOS.SerieFolioVenta
|
|
|
|
Dim tCve As Integer = ObjOS.CveVenta 'busca la remisión
|
|
If tCve <= 0 Then tCve = ObjOS.CveCotizacion 'sino hay remisión toma el pedido
|
|
If tCve > 0 Then
|
|
Dim dttps As New DataTable
|
|
|
|
If ObjOS.GetDetalleMateriales(-1, CveOsConsultar) Then
|
|
dttps = ObjOS.DtResultados
|
|
End If
|
|
|
|
GvPS.DataSource = dttps
|
|
GvPS.DataBind()
|
|
|
|
'sino hay información, cargamos los productos a surtir
|
|
'If dttps IsNot Nothing AndAlso dttps.Rows.Count > 0 AndAlso ObjOS.CveCotizacion > 0 Then
|
|
' Dim objv As New ClsVentas
|
|
' If objv.GetVentaDetalle(tCve) Then
|
|
' dttps = objv.DtResultados
|
|
' End If
|
|
' objv.Dispose()
|
|
'End If
|
|
|
|
End If
|
|
Dim TipoEstatus As Integer = 0
|
|
TipoEstatus = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("TipoEstatus", String.Format("CveEstatusOrdenServicio = {0}", ObjOS.CveEstatusOrdenServicio), "CveEstatusOrdenServicio ASC").ToEntero
|
|
|
|
If (TipoEstatus = 5) Then
|
|
LblModalOStitulo.Text = "Orden Cancelada"
|
|
End If
|
|
|
|
If ObjOS.CveUsuarioAtendio = 0 Then
|
|
TxtTecnico.Visible = False
|
|
DdlTecnicoAsignar.Visible = True
|
|
BtnAsignar.Visible = True
|
|
Else
|
|
TxtTecnico.Visible = True
|
|
DdlTecnicoAsignar.Visible = False
|
|
BtnAsignar.Visible = False
|
|
End If
|
|
|
|
RegistraScript("$('#DVModalOS').modal('show');")
|
|
End If
|
|
ObjOS.Dispose()
|
|
|
|
ElseIf False Then ' Anterior
|
|
|
|
CveOSDetalleAsignar = -1
|
|
CveOSAsignar = -1
|
|
CveSubProyectoAsignar = -1
|
|
Dim DTable As DataTable = DT_OSNoAsignadas.FiltraParametros($"CveOSDetalle={DdlOrdenesSinAsignar.SelectedValue}")
|
|
|
|
If DTable.Rows.Count = 1 Then
|
|
|
|
CveOSDetalleAsignar = DTable.Rows(0)("CveOSDetalle").ToString.ToEntero
|
|
CveSubProyectoAsignar = DTable.Rows(0)("CveSubProyecto").ToString.ToEntero
|
|
CveOSAsignar = DTable.Rows(0)("CveOS").ToString.ToEntero
|
|
FolioAsignar = DTable.Rows(0)("Folio").ToString
|
|
|
|
'LblModalConcepto.Text = DTable.Rows(0)("Concepto").ToString
|
|
'LblModalCliente.Text = DTable.Rows(0)("Nombre").ToString
|
|
'LblModalSubProyecto.Text = DTable.Rows(0)("SubProyecto").ToString
|
|
|
|
LblModalOStitulo.Text = "Asignar Orden de Servicio"
|
|
|
|
RegistraScript("$('#DVModalOS').modal('show');")
|
|
Else
|
|
Alert("Error al cargar datos.")
|
|
End If
|
|
|
|
End If
|
|
|
|
|
|
UpModalOS.Update()
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub GetCargaTiposOrden()
|
|
Dim ObjOS As New ClsOS
|
|
|
|
If ObjOS.GetTipoOrdenesServicios(UsuarioActual.CveEmpresa) AndAlso ObjOS.DtResultados IsNot Nothing AndAlso ObjOS.DtResultados.Rows.Count > 0 Then
|
|
CveOrdenServicioTipo = ObjOS.DtResultados.FiltroPrimeroValor("CveOrdenServicioTipo").ToEntero
|
|
Else
|
|
CveOrdenServicioTipo = -1
|
|
End If
|
|
ObjOS.Dispose()
|
|
|
|
End Sub
|
|
|
|
|
|
Protected Sub LnkCommando_Click(sender As Object, e As EventArgs)
|
|
|
|
' Alert($"HFCveOS:{HFCveOS.Value}, HFCveOsDetalle:{HFCveOsDetalle.Value }, HFCveOIEvento:{HFOCveOIEvento.Value}")
|
|
TipoAccion = OSModalTipoAccion.Actualizacion
|
|
'RegistraScript("$('#DVModalOS').modal('show');")
|
|
MostarModal()
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
Protected Sub BtnAsignar_Click(sender As Object, e As EventArgs)
|
|
|
|
Dim TieneError As Boolean = False
|
|
Dim ObjOS As New ClsOS
|
|
ObjOS.IniciaTransacSQL()
|
|
Dim CveOsDetalle As Integer = HFCveOsDetalle.Value.ToEntero
|
|
Dim CveOS As Integer = HFCveOS.Value.ToEntero
|
|
Dim CveEstatusAsignada = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 2", "CveEstatusOrdenServicio ASC").ToEntero
|
|
|
|
If Not ObjOS.UpdateOrdenesServiciosAsignadas(CveOsDetalle, DdlTecnicoAsignar.SelectedValue.ToEntero, HdnFechaCita.Value.ToDate, HdnFechaCita.Value.ToDateTime(), UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
|
|
TieneError = True
|
|
End If
|
|
|
|
If Not TieneError AndAlso Not ObjOS.UpdateOrdenesServiciosEstatus(CveEstatusAsignada, UsuarioActual.CveUsuario, CveOS) Then
|
|
TieneError = True
|
|
End If
|
|
|
|
If Not TieneError Then
|
|
ObjOS.Commit()
|
|
Alert("La Orden ha sido asignada")
|
|
Else
|
|
ObjOS.RollBack()
|
|
End If
|
|
|
|
ObjOS.Dispose()
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
Protected Sub GvPS_RowDataBound(sender As Object, e As GridViewRowEventArgs)
|
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
|
If e.Row.DBCampo("CantidadRemision").ToDecimal > 0 Then
|
|
e.Row.CssClass = "bg-green-turquoise bg-font-green-turquoise"
|
|
End If
|
|
End If
|
|
End Sub
|
|
End Class
|