766 lines
28 KiB
VB.net
766 lines
28 KiB
VB.net
Option Explicit On
|
|
Option Strict On
|
|
|
|
Imports Extensiones
|
|
Imports System.Data
|
|
Imports Microsoft.Reporting.WebForms
|
|
Imports System.Web.Services
|
|
Imports Telerik.Web.UI
|
|
Imports APP_Code_CSharp
|
|
|
|
Partial Class OS_RepServicioDomicilio
|
|
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 DtColor As DataTable
|
|
Get
|
|
Return DirectCast(ViewState("DtColor"), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("DtColor") = 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 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 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
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#End Region
|
|
|
|
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
|
If Not IsPostBack Then
|
|
|
|
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyectoEtiqueta)
|
|
LblSubProyectoFiltro.Text = LblSubProyectoEtiqueta.Text
|
|
LblModalSubProyectoLabel.Text = LblSubProyectoEtiqueta.Text
|
|
CargaTecnicos()
|
|
ConsultaOrdenesServiciosNoAsignadas()
|
|
CargaOrdenesServiciosNoAsignadas()
|
|
CargaTecnicosAsignar()
|
|
|
|
InicializaCalendar()
|
|
|
|
End If
|
|
End Sub
|
|
|
|
#Region "CARGAS"
|
|
|
|
Private Sub SetValues()
|
|
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub CargaDatos()
|
|
|
|
|
|
End Sub
|
|
|
|
#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()
|
|
CheckRecurrencia.Attributes.Add("onclick", "CheckAdd(this);")
|
|
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 = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
|
|
DdlTecnico.DataBind()
|
|
DdlTecnico.Items.Insert(0, New ListItem("Todos", "-1"))
|
|
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()
|
|
|
|
DdlTecnicoAsignar.DataSource = TecnicosResultado
|
|
DdlTecnicoAsignar.DataBind()
|
|
DdlTecnicoAsignar.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
|
|
|
|
UpModalOSAsginar.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"
|
|
If CheckRecurrencia.Checked Then
|
|
RecurrenciaTipo = RBLRecurrencia.SelectedValue.ToEntero
|
|
Frecuencia = TxtFrecuencia.Text.ToEntero
|
|
|
|
'OBTENEMOS LOS DIAS SELECCIONADOS EN LA OPCION DE RECURRENCIA POR SEMANA
|
|
Select Case RecurrenciaTipo
|
|
Case 3
|
|
Dim StringDias = ""
|
|
For Each item As ListItem In CheckDiasSemana.Items
|
|
If item.Selected Then
|
|
If StringDias.Length > 0 Then
|
|
StringDias += ","
|
|
End If
|
|
StringDias += item.Value
|
|
End If
|
|
Next
|
|
If StringDias.Length > 0 Then
|
|
DiasSemana = StringDias
|
|
End If
|
|
End Select
|
|
|
|
|
|
'If RBSinFechaFinAdd.Checked Then
|
|
' RecurrenciaFin = "-1"
|
|
'Else
|
|
If RBNumeroOcurrencias.Checked Then
|
|
RecurrenciaFin = TxtNumeroOcurrencias.Text
|
|
ElseIf RBFechaFin.Checked Then
|
|
RecurrenciaFin = TxtFechaFinRecurrencia.Text
|
|
Else
|
|
RecurrenciaFin = "-1"
|
|
End If
|
|
Else
|
|
If HdnCveEvento.Value.ToEntero > 0 Then
|
|
Frecuencia = -2 : DiasSemana = "-2" : Dias = -2 : Mes = -2 : RecurrenciaFin = "-2"
|
|
End If
|
|
End If
|
|
|
|
'11/05/2018 - GASTO RECURRENTE
|
|
Dim CveTipoEvento As Integer = IIf(ChkGastoRecurrente.Checked, 10, 2).ToString().ToEntero()
|
|
Dim Importe As Double = Convert.ToDouble(IIf(ChkGastoRecurrente.Checked, TxtImporteGastoRecurrente.Text, "-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"
|
|
TxtNumeroOcurrencias.Text = ""
|
|
TxtFechaFinRecurrencia.Text = ""
|
|
RBFechaFin.Checked = False
|
|
RBNumeroOcurrencias.Checked = False
|
|
RBLRecurrencia.SelectedValue = "1"
|
|
CheckDiasSemana.ClearSelection()
|
|
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 RBLRecurrencia_SelectedIndexChanged(sender As Object, e As EventArgs)
|
|
Select Case RBLRecurrencia.SelectedValue.ToEntero
|
|
Case 1
|
|
LblTextoFrecuencia.Text = "Hora(s)"
|
|
TrDiasSemanaAdd.Style("display") = "none"
|
|
Case 2
|
|
LblTextoFrecuencia.Text = "Dia(s)"
|
|
TrDiasSemanaAdd.Style("display") = "none"
|
|
Case 3
|
|
LblTextoFrecuencia.Text = "Semana(s)"
|
|
TrDiasSemanaAdd.Style("display") = "block"
|
|
|
|
'Chequea los dias seleccionados en la recurrencia
|
|
For Each item As ListItem In CheckDiasSemana.Items
|
|
If HdnDiasSemanaAgendar.Value.Contains(item.Value) Then
|
|
item.Selected = True
|
|
Else
|
|
item.Selected = False
|
|
End If
|
|
Next
|
|
Case 4
|
|
LblTextoFrecuencia.Text = "Mes(es)"
|
|
TrDiasSemanaAdd.Style("display") = "none"
|
|
Case 5
|
|
LblTextoFrecuencia.Text = "Año(s)"
|
|
TrDiasSemanaAdd.Style("display") = "none"
|
|
Case Else
|
|
End Select
|
|
UpRecurrencia.Update()
|
|
End Sub
|
|
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()
|
|
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
|
|
|
|
|
|
|
|
Protected Sub LnkOrdenesSinAsignarMostarModal_Click(sender As Object, e As EventArgs)
|
|
|
|
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
|
|
|
|
|
|
UpModalOSAsginar.Update()
|
|
RegistraScript("$('#DVModalOSAsginar').modal('show');")
|
|
Else
|
|
Alert("Error al cargar datos.")
|
|
End If
|
|
|
|
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
Protected Sub LnkModalAsignar_Click(sender As Object, e As EventArgs)
|
|
|
|
Dim TieneError As Boolean = False
|
|
Dim CveEstatusOS = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 2", "CveEstatusOrdenServicio ASC").ToEntero
|
|
|
|
Dim CorreoAsignado As String = ""
|
|
|
|
Dim picker As MKB.TimePicker.TimeSelector = TSTimeSelector
|
|
Dim time As DateTime
|
|
time = DateTime.Parse(String.Format("{0} {1}:{2} {3}", TxtModalFechaOS.Text, picker.Hour, picker.Minute, picker.AmPm))
|
|
|
|
|
|
Dim ObjOS As New ClsOS
|
|
ObjOS.IniciaTransacSQL()
|
|
|
|
If ObjOS.GetSubProyectosEstatusInicial(DdlTecnicoAsignar.SelectedValue.ToEntero, 3, UsuarioActual.CveEmpresa) Then
|
|
Dim subProyectoDelTecnico As DataTable
|
|
subProyectoDelTecnico = ObjOS.DtResultados.FiltraParametros($"CveSubProyecto = {CveSubProyectoAsignar}")
|
|
If subProyectoDelTecnico.Rows.Count > 0 Then
|
|
If Not ObjOS.UpdateOrdenesServiciosAsignadas(CveOSDetalleAsignar, DdlTecnicoAsignar.SelectedValue.ToEntero, TxtModalFechaOS.Text.ToDate, time, UsuarioActual.CveEmpresa) Then
|
|
TieneError = True
|
|
End If
|
|
Else
|
|
Alert("El técnico y la Orden de Servicio deben pertenecer al mismo subProyecto", TipoMensaje.MsgAdvertencia)
|
|
TieneError = True
|
|
End If
|
|
End If
|
|
|
|
If Not TieneError Then
|
|
|
|
If Not ObjOS.UpdateOrdenesServiciosEstatus(CveEstatusOS, UsuarioActual.CveUsuario, CveOSAsignar) Then
|
|
TieneError = True
|
|
End If
|
|
|
|
|
|
If Not TieneError Then
|
|
|
|
Dim RecurrenciaTipo = 0, Frecuencia = -1, DiasSemana = "-1", Dias = -1, Mes = -1, RecurrenciaFin = "-1"
|
|
Dim OIDescripcion As String = $"{DdlTecnicoAsignar.SelectedItem.Text} <b><a href='/OS/OrdenesServicios.aspx?CveOS={CveOSAsignar}' target='_blank' class='Texto' >Orden de servicio {FolioAsignar} </a></b>"
|
|
|
|
Dim ObjEventos As New ClsOIEventos(ObjOS.IniciaTransacSQL())
|
|
If Not ObjEventos.AddEventoAgenda(2, DdlTecnicoAsignar.SelectedItem.Text, OIDescripcion, 2, time, time.AddHours(1), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
|
|
RecurrenciaTipo:=RecurrenciaTipo, Frecuencia:=Frecuencia, DiasSemana:=DiasSemana, Dia:=Dias, Mes:=Mes, RecurrenciaFin:=RecurrenciaFin, CveTipoEvento:=2,
|
|
Importe:=0, CveOS:=CveOSAsignar, CveSubProyecto:=CveSubProyectoAsignar) Then
|
|
TieneError = True
|
|
End If
|
|
|
|
End If
|
|
|
|
CorreoAsignado = GlobalDTUsuarios(DdlTecnicoAsignar.SelectedValue.ToEntero).Rows(0)("Correo").ToString
|
|
|
|
End If
|
|
|
|
|
|
If Not TieneError Then
|
|
ObjOS.Commit()
|
|
Else
|
|
ObjOS.RollBack()
|
|
End If
|
|
|
|
ObjOS.Dispose()
|
|
|
|
If Not TieneError And CorreoAsignado.Trim.Length > 0 Then
|
|
MandaCorreOS(CveOSAsignar, CorreoAsignado)
|
|
End If
|
|
|
|
If Not TieneError Then
|
|
ConsultaOrdenesServiciosNoAsignadas()
|
|
Alert("Orden asignada correctamente.")
|
|
RegistraScript("$('#DVModalOSAsginar').modal('hide');Calendario();")
|
|
|
|
End If
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub MandaCorreOS(CveOS As Integer, CorreoUsuarioAsignado As String)
|
|
|
|
|
|
|
|
Dim ObjOS As New ClsOS()
|
|
Dim params As New List(Of ReportParameter)
|
|
Dim CveFolio = ""
|
|
|
|
Dim TmpDTOS = New DataTable
|
|
TmpDTOS.Columns.Add("CveOSDetalle", GetType(Integer))
|
|
|
|
TmpDTOS.Columns.Add("CveClasificacion", GetType(Integer))
|
|
TmpDTOS.Columns.Add("Clasificacion", GetType(String))
|
|
TmpDTOS.Columns.Add("CvePS", GetType(Integer))
|
|
TmpDTOS.Columns.Add("CveUM", GetType(Integer))
|
|
TmpDTOS.Columns.Add("UM", GetType(String))
|
|
TmpDTOS.Columns.Add("Cantidad", GetType(Integer))
|
|
TmpDTOS.Columns.Add("PS", GetType(String))
|
|
TmpDTOS.Columns.Add("Especificaciones", GetType(String))
|
|
TmpDTOS.Columns.Add("Materiales", GetType(String))
|
|
TmpDTOS.Columns.Add("CveCuentaEquipo", GetType(Integer))
|
|
TmpDTOS.Columns.Add("Observaciones", GetType(String))
|
|
TmpDTOS.Columns.Add("FechaAtencion", GetType(String))
|
|
TmpDTOS.Columns.Add("CveUsuarioAtendio", GetType(Integer))
|
|
TmpDTOS.Columns.Add("UsuarioAtendio", GetType(String))
|
|
TmpDTOS.Columns.Add("FechaTermino", GetType(String))
|
|
TmpDTOS.Columns.Add("FechaEntrega", GetType(String))
|
|
TmpDTOS.Columns.Add("CveUsuarioEntrego", GetType(Integer))
|
|
TmpDTOS.Columns.Add("UsuarioEntrego", GetType(String))
|
|
TmpDTOS.Columns.Add("SeFacturara", GetType(String))
|
|
TmpDTOS.Columns.Add("SeSuperviso", GetType(String))
|
|
TmpDTOS.Columns.Add("Estatus", GetType(String))
|
|
TmpDTOS.Columns.Add("Archivo", GetType(String))
|
|
TmpDTOS.Columns.Add("ComentarioTecnico", GetType(String))
|
|
|
|
|
|
Dim TmpDTMaterialesOS = New DataTable
|
|
TmpDTMaterialesOS.Columns.Add("CveOSDetalle", GetType(Integer))
|
|
TmpDTMaterialesOS.Columns.Add("CveConsecutivo", GetType(Integer))
|
|
TmpDTMaterialesOS.Columns.Add("CveConsecutivoDetalle", GetType(Integer))
|
|
TmpDTMaterialesOS.Columns.Add("CveMaterial", GetType(Integer))
|
|
TmpDTMaterialesOS.Columns.Add("Cantidad", GetType(Integer))
|
|
TmpDTMaterialesOS.Columns.Add("CveClasificacion", GetType(Integer))
|
|
TmpDTMaterialesOS.Columns.Add("CvePS", GetType(String))
|
|
TmpDTMaterialesOS.Columns.Add("CveUM", GetType(String))
|
|
TmpDTMaterialesOS.Columns.Add("Clasificacion", GetType(String))
|
|
TmpDTMaterialesOS.Columns.Add("PS", GetType(String))
|
|
TmpDTMaterialesOS.Columns.Add("UM", GetType(String))
|
|
|
|
Dim FolioOS As String = ""
|
|
|
|
Dim RutaReporte As New System.IO.FileInfo(String.Format("{0}Formatos/OrdenServicio.rdlc", UsuarioActual.Empresa.Ruta))
|
|
|
|
If ObjOS.GetOrdenesServicios(CveOS, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
|
|
If ObjOS.DtResultados.Rows.Count > 0 Then
|
|
|
|
Dim dtOS As DataTable = ObjOS.DtResultados
|
|
Dim dr As DataRow = dtOS.Rows(0)
|
|
params.Add(New ReportParameter("Cliente", dr("Cliente").ToString))
|
|
params.Add(New ReportParameter("Solicito", dr("PersonaSolicito").ToString))
|
|
params.Add(New ReportParameter("Descripcion", dr("Descripcion").ToString))
|
|
params.Add(New ReportParameter("Recibio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("FechaRecibido", dr("FechaRecepcion").ToString))
|
|
params.Add(New ReportParameter("FolioOS", dr("Folio").ToString))
|
|
FolioOS = dr("Folio").ToString
|
|
params.Add(New ReportParameter("ClienteTelefono", dr("Telefono").ToString))
|
|
params.Add(New ReportParameter("ClienteCalle", dr("Direccion").ToString))
|
|
params.Add(New ReportParameter("ClienteColonia", dr("Colonia").ToString))
|
|
params.Add(New ReportParameter("ClienteCiudad", dr("Ciudad").ToString))
|
|
params.Add(New ReportParameter("ClienteEstado", dr("Estado").ToString))
|
|
CveFolio = dr("Folio").ToString
|
|
|
|
If RutaReporte.Exists Then
|
|
params.Add(New ReportParameter("NoDeCliente", dr("CveCliente").ToString))
|
|
params.Add(New ReportParameter("RFC", dr("RFC").ToString))
|
|
params.Add(New ReportParameter("Vendedor", " "))
|
|
params.Add(New ReportParameter("Correo", dr("Correo").ToString))
|
|
params.Add(New ReportParameter("CodigoDeServicio", dr("CveOS").ToString))
|
|
params.Add(New ReportParameter("Sucursal", dr("SubProyecto").ToString))
|
|
params.Add(New ReportParameter("TipoServicio", dr("TipoServicio").ToString))
|
|
params.Add(New ReportParameter("TipoEquipo", dr("TipoEquipo").ToString))
|
|
params.Add(New ReportParameter("Descripcion", dr("Descripcion").ToString))
|
|
params.Add(New ReportParameter("Copia", "Copia: Original"))
|
|
params.Add(New ReportParameter("Equipo", dr("Equipo").ToString))
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
|
|
If Not RutaReporte.Exists Then
|
|
|
|
RutaReporte = New System.IO.FileInfo(String.Format("{0}Empresas\Grales\Formatos\OrdenServicio.rdlc", ModExtensiones.DirectorioBaseEmpresas))
|
|
|
|
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
|
|
|
|
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
|
|
|
|
End If
|
|
|
|
If ObjOS.GetOrdenesServiciosDetalle(CveOS) Then
|
|
TmpDTOS = ObjOS.DtResultados
|
|
End If
|
|
|
|
If ObjOS.GetDetalleMateriales(-1, CveOS) Then
|
|
TmpDTMaterialesOS = ObjOS.DtResultados
|
|
End If
|
|
Dim lrds As New List(Of ReportDataSource)
|
|
Dim rds As New ReportDataSource With {.Name = "DataSet2", .Value = TmpDTMaterialesOS}
|
|
Dim rds2 As New ReportDataSource With {.Name = "DataSet1", .Value = TmpDTOS}
|
|
|
|
lrds.Add(rds)
|
|
lrds.Add(rds2)
|
|
ObjOS.Dispose()
|
|
|
|
Dim ReporteByte As Byte() = StreamPDF(RutaReporte.FullName, lrds, params, NombreArchivo:=String.Format("OrdenServicio-{0}", CveFolio))
|
|
|
|
If ReporteByte IsNot Nothing Then
|
|
Try
|
|
ViewState("Para") = CorreoUsuarioAsignado
|
|
ViewState("ArrayCC") = ""
|
|
ViewState("Asunto") = "Asinación Orden de Servicio"
|
|
ViewState("FolioOSMail") = FolioOS
|
|
ViewState("Body") = "Asinación Orden de Servicio"
|
|
|
|
|
|
ViewState("bytesOS") = ReporteByte
|
|
Dim Hilo As New Threading.Thread(AddressOf SendmailOS)
|
|
Hilo.Start()
|
|
Catch ex As Exception
|
|
GuardaLogAD($"Error al enviar correo de OS {ex.StackTrace}")
|
|
End Try
|
|
|
|
End If
|
|
|
|
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub SendmailOS()
|
|
|
|
Dim Asunto, Para, ArrayCC, Body As String
|
|
Asunto = If(IsNothing(ViewState("Asunto")), "", ViewState("Asunto").ToString)
|
|
Para = If(IsNothing(ViewState("Para")), "", ViewState("Para").ToString)
|
|
ArrayCC = If(IsNothing(ViewState("ArrayCC")), "", ViewState("ArrayCC").ToString)
|
|
|
|
Body = If(IsNothing(ViewState("Body")), "", ViewState("Body").ToString)
|
|
|
|
|
|
Dim Mail As New ClsSisMail()
|
|
Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
|
|
LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.NombreArchivo = $"OS_{ViewState("FolioOSMail") }.pdf", .ArchivoBinario = DirectCast(ViewState("bytesOS"), Byte())})
|
|
Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body, ArrayCC, LSRutasMail)
|
|
|
|
|
|
End Sub
|
|
|
|
End Class
|