114 lines
5.5 KiB
VB.net
114 lines
5.5 KiB
VB.net
Option Explicit On
|
|
Option Strict On
|
|
|
|
Imports Extensiones
|
|
Imports System.Runtime.InteropServices
|
|
Imports System.IO
|
|
Imports System.Data
|
|
|
|
Partial Class OI_EventoComentario
|
|
|
|
Inherits ClsPaginas
|
|
|
|
'Configuración
|
|
Private ReadOnly Property CveComentario As Integer
|
|
Get
|
|
Return ViewState("CveComentario").ToString.ToEntero
|
|
End Get
|
|
End Property
|
|
|
|
Private ReadOnly Property ImgConsecutivo As String
|
|
Get
|
|
Return ViewState("ImgConsecutivo").ToString
|
|
End Get
|
|
End Property
|
|
|
|
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
|
If Not IsPostBack Then
|
|
Session("FileUpload") = ""
|
|
TRUsuario.Visible = False
|
|
TRFecha.Visible = False
|
|
|
|
|
|
If Request("CveComentario") IsNot Nothing AndAlso IsNumeric(Request("CveComentario")) AndAlso Request("CveComentario").ToEntero > 0 Then
|
|
ViewState("CveComentario") = Request("CveComentario")
|
|
CargaDatos()
|
|
|
|
'Configuración de Modalidad Update
|
|
BtnGuardar.Text = "Guardar Cambios"
|
|
LtlTitulo.Text = "Consulta COmentario del evento:"
|
|
|
|
Else
|
|
ViewState("CveComentario") = -1
|
|
BtnEliminar.Visible = False
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub CargaDatos()
|
|
'Dim ObjEventosComentarios As New ClsOIEventos()
|
|
|
|
|
|
'If ObjEventosComentarios.GetEventosComentarios(CveComentario) Then
|
|
' If ObjEventosComentarios.DtResultados.Rows.Count > 0 Then
|
|
|
|
' 'Pestaña Datos Generales
|
|
' TxtComentario.Text = ObjEventosComentarios.Comentario
|
|
' TxtArchivo.Text = ObjEventosComentarios.Archivo
|
|
' TxtFechaIng.Text = ObjEventosComentarios.FechaIng.ToShortTimeString
|
|
' TxtUsuario.Text = ObjEventosComentarios.UsuarioDe
|
|
|
|
|
|
' If File.Exists(AppDomain.CurrentDomain.BaseDirectory & "Empresas\" & UsuarioActual.CveEmpresa & "\OI\Eventos\" & ObjEventosComentarios.Archivo & ".png") Then
|
|
' TxtArchivo.Text = "/Empresas/" & UsuarioActual.CveEmpresa & "/OI/Eventos/" & ObjEventosComentarios.Archivo & ".png"
|
|
|
|
' End If
|
|
' Else
|
|
' Alert("El Comentario no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia)
|
|
' BtnGuardar.Enabled = False
|
|
' End If
|
|
'End If
|
|
'ObjEventosComentarios.Dispose()
|
|
End Sub
|
|
|
|
Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
|
|
'System.Threading.Thread.Sleep(3000)
|
|
'Dim CveEvento As Integer
|
|
'Dim Comentario As String = TxtComentario.Text.Trim
|
|
'Dim Archivo As String = TxtArchivo.Text.Trim
|
|
'Dim CveUsuario As Integer = UsuarioActual.CveUsuario
|
|
|
|
'Dim ObjEventosComentarios As New ClsOIEventos()
|
|
'If CveComentario = -1 Then
|
|
' ObjEventosComentarios.AddEventoComentario(CveEvento, Comentario, Archivo, CveUsuario)
|
|
' Alert("El Comentario se guardó correctamente.", TipoMensaje.MsgInformacion)
|
|
|
|
' 'Else
|
|
' ' If ObjEventosComentarios.UpdateOrdenesServicios(DdlCliente.SelectedValue.ToEntero, DdlSubTipoEventosComentarios.SelectedValue.ToEntero, TxtNumCtaEquipo.Text.Trim, TxtDescripcion.Text.Trim, TxtPersonaSolicito.Text.Trim, Convert.ToDateTime(TxtFechaCita.Text & " " & TxtHoraCita.PostedTime), DdlUsuarioRecibio.SelectedValue.ToEntero, Convert.ToDateTime(TxtFechaRecibido.Text & " " & TxtHoraRecibido.PostedTime), TxtComentario.Text.Trim, ChkSeFacturara.Checked, ChkSeFacturo.Checked, DdlPersonaAtendio.SelectedValue.ToEntero, Convert.ToDateTime(TxtFechaAtendido.Text & " " & TxtHoraAtendido.PostedTime), DdlEstatusEventosComentarios.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, TxtCveComentario.Text.Trim.ToEntero) Then
|
|
' ' UpDatos.Update()
|
|
' ' Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
|
|
' ' End If
|
|
' End If
|
|
' ObjEventosComentarios.Dispose()
|
|
End Sub
|
|
|
|
Protected Sub BtnCargarArchivo_Click(sender As Object, e As System.EventArgs) Handles BtnCargarArchivo.Click
|
|
'Preguntar si existe en temporales
|
|
If Session("FileUpload").ToString <> String.Empty AndAlso File.Exists(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString) Then
|
|
Dim Extension As String = Path.GetExtension(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString)
|
|
If Not Directory.Exists(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\OI\Eventos") Then Directory.CreateDirectory(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\OI\Eventos")
|
|
If File.Exists(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\OI\Eventos\" & CveComentario & Extension) Then
|
|
File.Delete(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\OI\Eventos\" & CveComentario & Extension)
|
|
File.Move(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString, Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\OI\Eventos\" & CveComentario & Extension)
|
|
Else
|
|
File.Move(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString, Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\OI\Eventos\" & CveComentario & Extension)
|
|
End If
|
|
|
|
Else
|
|
'Imagen Default
|
|
'If ImgPersonal.ImageUrl = "../Empresas/" & UsuarioActual.CveEmpresa & "/RH/Personal/" Then
|
|
' ImgPersonal.ImageUrl = "/Imagenes/SinImagen.jpg"
|
|
'End If
|
|
End If
|
|
End Sub
|
|
End Class |