331 lines
14 KiB
Plaintext
331 lines
14 KiB
Plaintext
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
|
|
|