331 lines
15 KiB
VB.net
331 lines
15 KiB
VB.net
Option Explicit On
|
|
Option Strict On
|
|
|
|
Imports Extensiones
|
|
Imports System.Runtime.InteropServices
|
|
Imports System.IO
|
|
|
|
Partial Class RH_BuzonCalidad
|
|
Inherits ClsPaginas
|
|
|
|
'Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
|
' If Not IsPostBack Then
|
|
' CargaEscolaridad()
|
|
' CargaEstadoCivil()
|
|
' CargaDepartamento()
|
|
' CargaEstatusPersonal()
|
|
' CargaGenero()
|
|
' CargaMotivoBaja()
|
|
' CargaPuesto()
|
|
' CargaRuta()
|
|
' CargaTiposContrato()
|
|
' CargaTipoPeriodo()
|
|
' CargaTurno()
|
|
' 'CargaClientes()
|
|
' DdlCliente.Attributes.Add("onclick", "CargaClientes();")
|
|
' CargaProyecto()
|
|
|
|
' If Request("CvePersonal") IsNot Nothing AndAlso IsNumeric(Request("CvePersonal")) AndAlso Request("CvePersonal").ToEntero > 0 Then
|
|
' ViewState("CvePersonal") = Request("CvePersonal")
|
|
' CargaDatos()
|
|
' 'Configuración de Modalidad Update
|
|
' BtnGuardar.Text = "Guardar Cambios"
|
|
' LtlTitulo.Text = "Consulta del Cliente:"
|
|
' 'ImgAddVenta
|
|
' If Request("Opt") IsNot Nothing AndAlso IsNumeric(Request("Opt")) Then TAB.ActiveTabIndex = Request("Opt").ToEntero
|
|
|
|
' 'Inicia Permisos
|
|
' 'If Not PermisoModificar Then BtnGuardar.Enabled = False
|
|
' 'If Not PermisoEliminar Then BtnEliminar.Enabled = False
|
|
' 'Fin Permisos
|
|
' Else
|
|
|
|
' 'Configuración de Modalidad Insert
|
|
' LblFechaCaptura.Text = Now.ToShortDateString()
|
|
' LblUsuarioCapturo.Text = UsuarioActual.Usuario
|
|
' ViewState("CvePersonal") = -1
|
|
' BtnEliminar.Visible = False
|
|
' 'Inicia Permisos
|
|
' 'If Not PermisoRegistro Then BtnGuardar.Enabled = False
|
|
' 'Fin Permisos
|
|
' End If
|
|
' End If
|
|
'End Sub
|
|
|
|
''Private Sub CargaPersonal()
|
|
'' DdlPersonal.DataSource = GlobalDTPersonal
|
|
'' DdlPersonal.DataBind()
|
|
''End Sub
|
|
'Private Sub CargaCliente()
|
|
' DdlCliente.DataSource = GlobalDTCliente
|
|
' DdlCliente.DataBind()
|
|
'End Sub
|
|
'Private Sub CargarSucursal()
|
|
' DdlSucursal.DataSource = GlobalDTSucursales
|
|
' DdlSucursal.DataBind()
|
|
'End Sub
|
|
'Private Sub CargarTipoBuzon()
|
|
' DdlTipoBuzon.DataSource = GlobalDTTipoBuzon
|
|
' DdlTipoBuzon.DataBind()
|
|
'End Sub
|
|
|
|
|
|
|
|
'Private Sub CargaDatos()
|
|
' Dim ObjPersonal As New ClsRH()
|
|
' If ObjPersonal.GetPersonal(CvePersonal, "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, "-1", UsuarioActual.CveEmpresa) Then
|
|
' If ObjPersonal.DtResultados.Rows.Count > 0 Then
|
|
|
|
' 'Carga Datos Personales
|
|
' LtlPersonal.Text = ObjPersonal.Nombre
|
|
' TxtNombre.Text = ObjPersonal.Nombre
|
|
' TxtCodigo.Text = ObjPersonal.Codigo
|
|
' DdlEscolaridad.SelectedValue = ObjPersonal.CveEscolaridad.ToString
|
|
' DdlEstadoCivil.SelectedValue = ObjPersonal.CveEstadoCivil.ToString
|
|
' DdlGenero.SelectedValue = ObjPersonal.CveGenero.ToString
|
|
' TxtFechaNacimiento.Text = ObjPersonal.FechaNacimiento.ToShortDateString
|
|
' TxtRFC.Text = ObjPersonal.RFC
|
|
' TxtCURP.Text = ObjPersonal.CURP
|
|
' 'Localización
|
|
' TxtDireccion.Text = ObjPersonal.Direccion.ToString
|
|
' TxtCP.Text = ObjPersonal.CP.ToString
|
|
' TxtCiudad.Text = ObjPersonal.Ciudad.ToString
|
|
' TxtEstado.Text = ObjPersonal.Estado.ToString
|
|
' TxtTelefono.Text = ObjPersonal.Telefono.ToString
|
|
' TxtCelular.Text = ObjPersonal.Telefono.ToString
|
|
' TxtLugarNacimiento.Text = ObjPersonal.LugarNacimiento.ToString
|
|
' TxtNombrePadre.Text = ObjPersonal.NombrePadre.ToString
|
|
' TxtNombreMadre.Text = ObjPersonal.NombreMadre.ToString
|
|
|
|
' 'Carga RH
|
|
' TxtFechaInicioContrato.Text = ObjPersonal.FechaInicioContrato.ToShortDateString
|
|
' TxtFechaFinContrato.Text = If(ObjPersonal.FechaFinContrato.ToShortDateString = "01/01/0001", "", ObjPersonal.FechaFinContrato.ToShortDateString)
|
|
' DdlTipoContrato.SelectedValue = ObjPersonal.CveTipoContrato.ToString
|
|
' DdlTurno.SelectedValue = ObjPersonal.CveTurno.ToString
|
|
' DdlPuesto.SelectedValue = ObjPersonal.CvePuesto.ToString
|
|
' DdlDepartamento.SelectedValue = ObjPersonal.CveDepartamento.ToString
|
|
' DdlRuta.SelectedValue = ObjPersonal.CveRuta.ToString
|
|
' DdlMotivoBaja.SelectedValue = ObjPersonal.CveMotivoBaja.ToString
|
|
' DdlEstatusPersonal.SelectedValue = ObjPersonal.CveEstatusPersonal.ToString
|
|
' 'Asignación
|
|
' If ObjPersonal.CveCliente <> -1 Then
|
|
' DdlCliente.Items.Insert(1, New ListItem(ObjPersonal.Cliente, ObjPersonal.CveCliente.ToString))
|
|
' DdlCliente.SelectedValue = ObjPersonal.CveCliente.ToString
|
|
' Else
|
|
' DdlCliente.SelectedValue = ObjPersonal.CveCliente.ToString
|
|
' End If
|
|
' DdlProyecto.SelectedValue = ObjPersonal.CveProyecto.ToString
|
|
' If ObjPersonal.CveProyecto <> -1 Then DdlProyecto_SelectedIndexChanged(Me, New System.EventArgs())
|
|
' DdlSubProyecto.SelectedValue = ObjPersonal.CveSubProyecto.ToString
|
|
' 'Carga Nómina
|
|
' TxtFechaIngreso.Text = ObjPersonal.FechaIngreso.ToShortDateString
|
|
' DdlTipoPeriodo.SelectedValue = ObjPersonal.CveTipoPeriodo.ToString
|
|
' TxtNumeroSS.Text = ObjPersonal.NumeroSS
|
|
' ChkSeInscribioSS.Checked = ObjPersonal.SeInscribioSS
|
|
' TxtSalarioDiario.Text = ObjPersonal.SalarioDiario.ToString
|
|
' TxtSDI.Text = ObjPersonal.SDI.ToString
|
|
' TxtSalarioTotal.Text = ObjPersonal.SalarioDiario.ToString
|
|
' TxtNumDiasAguinaldo.Text = ObjPersonal.NumDiasAguinaldo.ToString
|
|
' TxtPorPrimaVacacional.Text = ObjPersonal.PorPrimaVacacional.ToString
|
|
|
|
' 'Carga Incidencias
|
|
' 'Carga Formatos
|
|
' 'Carga Sistemas
|
|
' LblFechaCaptura.Text = ObjPersonal.FechaIngreso.ToShortDateString
|
|
' LblUsuarioCapturo.Text = ObjPersonal.Usuario
|
|
|
|
|
|
|
|
|
|
' Else
|
|
' Alert("El Personal Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia)
|
|
' BtnGuardar.Enabled = False
|
|
' End If
|
|
' End If
|
|
' ObjPersonal.Dispose()
|
|
'End Sub
|
|
|
|
'Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
|
|
' 'System.Threading.Thread.Sleep(3000)
|
|
' Dim ObjPersonal As New ClsRH()
|
|
' If CvePersonal = -1 Then
|
|
' If ObjPersonal.AddPersonal(TxtCodigo.Text.Trim, TxtNombre.Text.Trim, TxtFechaIngreso.Text.ToDate,
|
|
' DdlTipoPeriodo.SelectedValue.ToEntero, TxtNumeroSS.Text.Trim, ChkSeInscribioSS.Checked,
|
|
' TxtSalarioDiario.Text.Trim.ToDouble, TxtSDI.Text.Trim.ToDouble, TxtSalarioTotal.Text.Trim.ToDouble, TxtNumDiasAguinaldo.Text.Trim.ToEntero,
|
|
' TxtPorPrimaVacacional.Text.Trim.ToDouble, TxtFechaInicioContrato.Text.Trim.ToDate, If(IsDate(TxtFechaFinContrato.Text.Trim()), TxtFechaFinContrato.Text.Trim(), "-1"),
|
|
' DdlTipoContrato.SelectedValue.ToEntero,
|
|
' DdlTurno.SelectedValue.ToEntero, DdlPuesto.SelectedValue.ToEntero,
|
|
' DdlDepartamento.SelectedValue.ToEntero,
|
|
' DdlRuta.SelectedValue.ToEntero,
|
|
' DdlEscolaridad.SelectedValue.ToEntero,
|
|
' DdlEstadoCivil.SelectedValue.ToEntero,
|
|
' DdlGenero.SelectedValue.ToEntero,
|
|
' DdlMotivoBaja.SelectedValue.ToEntero,
|
|
' DdlEstatusPersonal.SelectedValue.ToEntero, TxtFechaNacimiento.Text.ToDate,
|
|
' TxtLugarNacimiento.Text.Trim, TxtDireccion.Text.Trim, TxtCP.Text.Trim, TxtCiudad.Text.Trim,
|
|
' TxtEstado.Text.Trim, TxtTelefono.Text.Trim, TxtCelular.Text.Trim, TxtRFC.Text.Trim,
|
|
' TxtCURP.Text.Trim, TxtNombrePadre.Text.Trim, TxtNombreMadre.Text.Trim, DdlCliente.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero,
|
|
' UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
|
|
|
' Alert("El Personal se guardó correctamente.", TipoMensaje.MsgInformacion, "window.location.href=""/RH/CatPersonal.aspx"";")
|
|
' End If
|
|
' Else
|
|
' If ObjPersonal.UpdatePersonal(TxtCodigo.Text.Trim, TxtNombre.Text.Trim, TxtFechaIngreso.Text.ToDate,
|
|
' DdlTipoPeriodo.SelectedValue.ToEntero, TxtNumeroSS.Text.Trim, ChkSeInscribioSS.Checked,
|
|
' TxtSalarioDiario.Text.Trim.ToDouble, TxtSDI.Text.Trim.ToDouble, TxtSalarioTotal.Text.Trim.ToDouble, TxtNumDiasAguinaldo.Text.Trim.ToEntero,
|
|
' TxtPorPrimaVacacional.Text.Trim.ToDouble, TxtFechaInicioContrato.Text.Trim.ToDate, If(IsDate(TxtFechaFinContrato.Text.Trim()), TxtFechaFinContrato.Text.Trim(), "-1"),
|
|
' DdlTipoContrato.SelectedValue.ToEntero,
|
|
' DdlTurno.SelectedValue.ToEntero, DdlPuesto.SelectedValue.ToEntero,
|
|
' DdlDepartamento.SelectedValue.ToEntero,
|
|
' DdlRuta.SelectedValue.ToEntero,
|
|
' DdlEscolaridad.SelectedValue.ToEntero,
|
|
' DdlEstadoCivil.SelectedValue.ToEntero,
|
|
' DdlGenero.SelectedValue.ToEntero,
|
|
' DdlMotivoBaja.SelectedValue.ToEntero,
|
|
' DdlEstatusPersonal.SelectedValue.ToEntero, TxtFechaNacimiento.Text.ToDate,
|
|
' TxtLugarNacimiento.Text.Trim, TxtDireccion.Text.Trim, TxtCP.Text.Trim, TxtCiudad.Text.Trim,
|
|
' TxtEstado.Text.Trim, TxtTelefono.Text.Trim, TxtCelular.Text.Trim, TxtRFC.Text.Trim,
|
|
' TxtCURP.Text.Trim, TxtNombrePadre.Text.Trim, TxtNombreMadre.Text.Trim, DdlCliente.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, CvePersonal,
|
|
' UsuarioActual.CveEmpresa) Then
|
|
' CargaDatos()
|
|
' UpDatos.Update()
|
|
' Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
|
|
' End If
|
|
' End If
|
|
' ObjPersonal.Dispose()
|
|
'End Sub
|
|
|
|
'Protected Sub BtnEliminar_Click(sender As Object, e As System.EventArgs) Handles BtnEliminar.Click
|
|
' Dim ObjPersonal As New ClsRH()
|
|
' If ObjPersonal.RemovePersonal(CvePersonal, UsuarioActual.CveEmpresa) Then
|
|
' Alert("El Personal se Eliminó correctamente.", TipoMensaje.MsgInformacion, "window.location.href=""/RH/CatPersonal.aspx""")
|
|
' End If
|
|
' ObjPersonal.Dispose()
|
|
'End Sub
|
|
|
|
'Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
|
|
' CargaSubProyecto()
|
|
'End Sub
|
|
|
|
'Protected Sub LbContrato_Click(sender As Object, e As System.EventArgs) Handles LbContrato.Click
|
|
' Dim oWordApp As Word.Application = Nothing
|
|
' Dim oWordDoc As Word.Document = Nothing
|
|
' Dim objSelection As Word.Selection = Nothing
|
|
|
|
' Dim ArchivoPath As String = ""
|
|
|
|
' Try
|
|
' 'GuardaLog("Inicia Petición de Aplicación")
|
|
' oWordApp = New Word.Application
|
|
' oWordApp.Visible = True
|
|
' oWordDoc = oWordApp.Documents.Open(AppDomain.CurrentDomain.BaseDirectory & "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Contratos\" & "SOGO.doc")
|
|
' 'GuardaLog("Inicia Petición de Documento")
|
|
' If oWordDoc IsNot Nothing Then
|
|
' 'GuardaLog("Creación de Documento")
|
|
' oWordDoc.Activate()
|
|
' objSelection = oWordApp.Selection
|
|
|
|
' objSelection.WholeStory()
|
|
' objSelection.Copy()
|
|
' objSelection.Delete(Unit:=wdCharacter, COUNT:=1)
|
|
' 'GuardaLog("Recorrer de reemplazo de variables")
|
|
|
|
' objSelection.PasteAndFormat(Word.WdRecoveryType.wdPasteDefault)
|
|
' ReemplazaTexto(objSelection, "{NOMBRE_PERSONAL}", TxtNombre.Text.Trim)
|
|
' ReemplazaTexto(objSelection, "{DIRECCION}", TxtDireccion.Text.Trim)
|
|
' ReemplazaTexto(objSelection, "{CP}", TxtCP.Text.Trim)
|
|
' ReemplazaTexto(objSelection, "{CIUDAD}", TxtCiudad.Text.Trim)
|
|
' ReemplazaTexto(objSelection, "{ESTADO}", TxtEstado.Text.Trim)
|
|
' ReemplazaTexto(objSelection, "{DIA_INICIA_CONTRATO}", TxtFechaIngreso.Text.ToDate.Day.ToString)
|
|
' ReemplazaTexto(objSelection, "{MES_INICIA_CONTRATO}", MonthName(TxtFechaIngreso.Text.ToDate.Month))
|
|
' ReemplazaTexto(objSelection, "{ANIO_INICIA_CONTRATO}", TxtFechaIngreso.Text.ToDate.Year.ToString)
|
|
' ReemplazaTexto(objSelection, "{DIA_FIN_CONTRATO}", TxtFechaFinContrato.Text.ToDate.Day.ToString)
|
|
' ReemplazaTexto(objSelection, "{MES_FIN_CONTRATO}", MonthName(TxtFechaFinContrato.Text.ToDate.Month))
|
|
' ReemplazaTexto(objSelection, "{ANIO_FIN_CONTRATO}", TxtFechaFinContrato.Text.ToDate.Year.ToString)
|
|
|
|
' 'objSelection.InsertBreak(Type:=wdPageBreak)
|
|
' 'GuardaLog("Termina de reemplazo de variables")
|
|
' objSelection.TypeBackspace()
|
|
' objSelection.TypeBackspace()
|
|
' If Not System.IO.Directory.Exists(AppDomain.CurrentDomain.BaseDirectory & "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\") Then
|
|
' System.IO.Directory.CreateDirectory(AppDomain.CurrentDomain.BaseDirectory & "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\")
|
|
' End If
|
|
' ArchivoPath = AppDomain.CurrentDomain.BaseDirectory & "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & UsuarioActual.CveUsuario & ".doc"
|
|
|
|
' oWordDoc.SaveAs(ArchivoPath.ToString)
|
|
' oWordDoc.Close()
|
|
' Else
|
|
' Alert("No se pudo generar el archivo", TipoMensaje.MsgAdvertencia)
|
|
' End If
|
|
|
|
' Catch ex As Exception
|
|
' Alert(ex.Message, TipoMensaje.MsgError)
|
|
' OnError("", ex)
|
|
' ArchivoPath = ""
|
|
' Finally
|
|
|
|
' If oWordDoc IsNot Nothing Then
|
|
' 'GuardaLog("Documento Destruido")
|
|
' While (Marshal.ReleaseComObject(oWordDoc) > 0)
|
|
' End While
|
|
' 'GuardaLog("Documento Destruido")
|
|
' oWordDoc = Nothing
|
|
' End If
|
|
|
|
' If oWordApp IsNot Nothing Then
|
|
' oWordApp.Quit(False)
|
|
' While (Marshal.ReleaseComObject(oWordApp) > 0)
|
|
' End While
|
|
' 'GuardaLog("Aplicación Destruida")
|
|
' oWordApp = Nothing
|
|
' End If
|
|
' System.GC.Collect()
|
|
' objSelection = Nothing
|
|
|
|
' End Try
|
|
|
|
|
|
' If ArchivoPath <> "" Then
|
|
|
|
' Dim Archivo As New System.IO.FileInfo(ArchivoPath)
|
|
|
|
' 'If Archivo.Exists Then
|
|
' 'HttpContext.Current.Response.Clear()
|
|
' 'HttpContext.Current.Response.ClearContent()
|
|
' ''HttpContext.Current.Response.ContentType = "application/msword"
|
|
' 'HttpContext.Current.Response.ContentType = "application/vnd.openxmlformats-officedocument.wordprocessingml.document"
|
|
' 'HttpContext.Current.Response.AppendHeader("Content-disposition", "attachment; filename=" & Archivo.Name)
|
|
' 'HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
|
|
' 'HttpContext.Current.Response.TransmitFile(ArchivoPath)
|
|
' 'HttpContext.Current.Response.Flush()
|
|
' 'HttpContext.Current.Response.End()
|
|
' RegistraScript("AbrirVentana('/Ventas/PopUpImprimir.aspx?RH=True&Ext=" & Archivo.Extension & "', 700, 400, 'N', 'ImpRH')")
|
|
' 'End If
|
|
' Archivo = Nothing
|
|
|
|
' End If
|
|
'End Sub
|
|
|
|
'Private Sub ReemplazaTexto(ByRef ObjSelection As Word.Selection, ByVal Texto As String, ByVal Reemplazar As String)
|
|
' With ObjSelection.Find
|
|
' .Text = Texto
|
|
' .Replacement.Text = Reemplazar
|
|
' .Forward = True
|
|
' .Wrap = Word.WdFindWrap.wdFindContinue
|
|
' .Format = False
|
|
' .MatchCase = True
|
|
' .MatchWholeWord = False
|
|
' .MatchWildcards = False
|
|
' .MatchSoundsLike = False
|
|
' .MatchAllWordForms = False
|
|
' End With
|
|
' ObjSelection.Find.Execute(Replace:=Word.WdReplace.wdReplaceAll)
|
|
'End Sub
|
|
|
|
'Protected Sub BtnCargarClientes_Click(sender As Object, e As System.EventArgs) Handles BtnCargarClientes.Click
|
|
' CargaClientes()
|
|
' DdlCliente.Attributes.Remove("onclick")
|
|
'End Sub
|
|
End Class
|
|
|