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 = NowADS().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