From b7254f467e490158e3e032a956be56ea0e4b7906 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 21 Sep 2023 08:00:30 -0700 Subject: [PATCH] option explciit --- RH/Personal.aspx.vb | 289 +++++++++----------------------------------- 1 file changed, 59 insertions(+), 230 deletions(-) diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index 476c8fa39..d43395c43 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -885,12 +885,12 @@ Partial Class RH_Personal 'Configuración Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then - Dim dt = GlobalDTSubProyectosUsuariosB(1360, -1, 172, -1, -1) + Dim dt As DataTable = GlobalDTSubProyectosUsuariosB(1360, -1, 172, -1, -1) If UsuarioActual.CveEmpresa = 72 OrElse UsuarioActual.CveEmpresa = 80 Then pnlSalarioIMSS.Visible = False End If LnkContratoAgropecuaria.Visible = (UsuarioActual.CveEmpresa.Contiene(1, 158)) - Using objno = New ClsNominas + Using objno As New ClsNominas objno.GetConceptos() dtNomConceptos = objno.DtResultados End Using @@ -1729,24 +1729,24 @@ Partial Class RH_Personal If File.Exists(UsuarioActual.Empresa.Ruta & "RH\Personal\" & CvePersonal & ".jpg") Then 'Dim LogoRutaFisica As String = String.Format("Empresas\{0}\RH\Personal\{1}.jpg", UsuarioActual.CveEmpresa, CvePersonal) Dim LogoRutaFisica As String = String.Format("{0}RH\Personal\{1}.jpg", UsuarioActual.Empresa.Ruta, CvePersonal) - Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?Ru={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica)) + Dim logouri As String = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?Ru={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica)) ImgPersonal.ImageUrl = logouri ElseIf File.Exists(UsuarioActual.Empresa.Ruta & "RH\Personal\" & CvePersonal & ".png") Then 'Dim LogoRutaFisica As String = String.Format("Empresas\{0}\RH\Personal\{1}.png", UsuarioActual.CveEmpresa, CvePersonal) Dim LogoRutaFisica As String = String.Format("{0}RH\Personal\{1}.png", UsuarioActual.Empresa.Ruta, CvePersonal) - Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?Ru={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica)) + Dim logouri As String = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?Ru={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica)) ImgPersonal.ImageUrl = logouri ElseIf File.Exists(UsuarioActual.Empresa.Ruta & "RH\Personal\" & CvePersonal & ".bmp") Then 'Dim LogoRutaFisica As String = String.Format("Empresas\{0}\RH\Personal\{1}.bmp", UsuarioActual.CveEmpresa, CvePersonal) Dim LogoRutaFisica As String = String.Format("{0}RH\Personal\{1}.bmp", UsuarioActual.Empresa.Ruta, CvePersonal) - Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?Ru={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica)) + Dim logouri As String = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?Ru={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica)) ImgPersonal.ImageUrl = logouri ElseIf File.Exists(UsuarioActual.Empresa.Ruta & "RH\Personal\" & CvePersonal & ".jpeg") Then 'Dim LogoRutaFisica As String = String.Format("Empresas\{0}\RH\Personal\{1}.png", UsuarioActual.CveEmpresa, CvePersonal) Dim LogoRutaFisica As String = String.Format("{0}RH\Personal\{1}.jpeg", UsuarioActual.Empresa.Ruta, CvePersonal) - Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?Ru={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica)) + Dim logouri As String = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?Ru={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica)) ImgPersonal.ImageUrl = logouri End If @@ -1973,13 +1973,12 @@ Partial Class RH_Personal Dim Extension As String = Path.GetExtension(UsuarioActual.Empresa.Ruta & "Temp\RH\" & ViewState("Archivo").ToString()) Dim URL As String = If(Extension.Trim().Length > 0, CvePersonal & Extension, "") - Dim Ruta = String.Format("{0}Temp\RH\{1}", UsuarioActual.Empresa.Ruta, ViewState("Archivo").ToString()) + Dim Ruta As String = String.Format("{0}Temp\RH\{1}", UsuarioActual.Empresa.Ruta, ViewState("Archivo").ToString()) Dim Archivo As New System.IO.FileInfo(Ruta) - - Dim TieneError = False - Dim Mensaje = "" - Dim Accion = "" + Dim TieneError As Boolean = False + Dim Mensaje As String = "" + Dim Accion As String = "" 'Dim FechaBaja As Date = MinFecha 'Dim FechaActivo As Date = MinFecha @@ -3320,7 +3319,7 @@ Partial Class RH_Personal RegistraScript("$('#DivCuentasVancarias').modal('hide');") End Sub Protected Sub LbAgregarCuentaBanco_Click(sender As Object, e As EventArgs) - Dim EsBancomer = False + Dim EsBancomer As Boolean = False Dim nombrebanco As String = DdlBancoSat.SelectedItem.Text If nombrebanco.ToUpper.Contains("BBVA") Or nombrebanco.ToUpper.Contains("BANCOMER") Or (TxtCLABECB.Text.Length = 18 AndAlso TxtCLABECB.Text.Substring(0, 3) = "012") Then EsBancomer = True @@ -3478,7 +3477,7 @@ Partial Class RH_Personal End If If CvePersonal < 0 Then - For index = 1 To TempDTCuentasBancos.Rows.Count + For index As Integer = 1 To TempDTCuentasBancos.Rows.Count TempDTCuentasBancos.Rows(index - 1)("CveCuentaDeposito") = index Next TempDTCuentasBancos.AcceptChanges() @@ -3514,25 +3513,22 @@ Partial Class RH_Personal CargaGridCuentasBancos("") End Sub Protected Sub GvBancosCuentas_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvBancosCuentas.RowUpdating - Dim NombreBanco = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtNombreBanco").Text.Trim - Dim NumeroSucursal = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtNumeroSucursal").Text.Trim - Dim CLABE = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtCLABE").Text.Trim - Dim SWIFT = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtSWIFT").Text.Trim - Dim Plaza = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtPlaza").Text.Trim - Dim NumeroCuenta = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtNumeroCuenta").Text.Trim - Dim ConvenioCIE = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtConvenioCIE").Text.Trim - Dim Referencia = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtReferencia").Text.Trim - Dim CveMoneda = GvBancosCuentas.Rows(e.RowIndex).FCDropDownList("DdlMoneda").SelectedValue.ToString().ToEntero() - Dim Estatus = GvBancosCuentas.Rows(e.RowIndex).FCCheckBox("ChkEstatus").Checked - Dim EstatusPagoElectronico = GvBancosCuentas.Rows(e.RowIndex).FCCheckBox("ChkEstatusPagoE").Checked - - Dim Moneda = GvBancosCuentas.Rows(e.RowIndex).FCDropDownList("DdlMoneda").SelectedItem.Text + Dim NombreBanco As String = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtNombreBanco").Text.Trim + Dim NumeroSucursal As String = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtNumeroSucursal").Text.Trim + Dim CLABE As String = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtCLABE").Text.Trim + Dim SWIFT As String = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtSWIFT").Text.Trim + Dim Plaza As String = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtPlaza").Text.Trim + Dim NumeroCuenta As String = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtNumeroCuenta").Text.Trim + Dim ConvenioCIE As String = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtConvenioCIE").Text.Trim + Dim Referencia As String = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtReferencia").Text.Trim + Dim CveMoneda As Integer = GvBancosCuentas.Rows(e.RowIndex).FCDropDownList("DdlMoneda").SelectedValue.ToString().ToEntero() + Dim Estatus As Boolean = GvBancosCuentas.Rows(e.RowIndex).FCCheckBox("ChkEstatus").Checked + Dim EstatusPagoElectronico As Boolean = GvBancosCuentas.Rows(e.RowIndex).FCCheckBox("ChkEstatusPagoE").Checked + Dim Moneda As String = GvBancosCuentas.Rows(e.RowIndex).FCDropDownList("DdlMoneda").SelectedItem.Text Dim BBVAAlias As String = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtBBVAAlias").Text - - Dim RefCrediProveedor = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtRefCrediProveedor").Text.Trim - - Dim EsBancomer = False + Dim RefCrediProveedor As String = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtRefCrediProveedor").Text.Trim + Dim EsBancomer As Boolean = False If NombreBanco.ToUpper.Contains("BBVA") Or NombreBanco.ToUpper.Contains("BANCOMER") Or (CLABE.Length = 18 AndAlso CLABE.Substring(0, 3) = "012") Then EsBancomer = True @@ -3587,7 +3583,7 @@ Partial Class RH_Personal End If Else - Dim index = GvBancosCuentas.Rows(e.RowIndex).DataKey("CveCuentaDeposito").ToString().ToEntero() - 1 + Dim index As Integer = GvBancosCuentas.Rows(e.RowIndex).DataKey("CveCuentaDeposito").ToString().ToEntero() - 1 Dim Row As DataRow = TempDTCuentasBancos.Rows(index) Row("BancoNombre") = NombreBanco Row("Sucursal") = NumeroSucursal @@ -3618,7 +3614,7 @@ Partial Class RH_Personal End If Else - Dim index = GvBancosCuentas.Rows(e.RowIndex).DataKey("CveCuentaDeposito").ToString().ToEntero() - 1 + Dim index As Integer = GvBancosCuentas.Rows(e.RowIndex).DataKey("CveCuentaDeposito").ToString().ToEntero() - 1 TempDTCuentasBancos.Rows.RemoveAt(index) End If @@ -3681,7 +3677,7 @@ Partial Class RH_Personal End Function Protected Sub LbPDF_Click(sender As Object, e As EventArgs) - Dim LB = CType(sender, LinkButton) + Dim LB As LinkButton = CType(sender, LinkButton) ImprimirbytesPDF(GeneraPDFNomina(CvePersonal, LB.CommandArgument.ToEntero(), UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta), "recibo") ImprimirbytesPDF(GeneraPDFNomina(CvePersonal, LB.CommandArgument.ToEntero(), UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta), "recibo") @@ -3794,7 +3790,7 @@ Partial Class RH_Personal End If Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + Dim logouri As String = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) @@ -3892,7 +3888,7 @@ Partial Class RH_Personal End If Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + Dim logouri As String = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) @@ -4320,7 +4316,7 @@ Partial Class RH_Personal - Dim scripMascara = " $('#" & TxtFechaVigencia.ClientID & "').mask('00/00/0000');" + Dim scripMascara As String = " $('#" & TxtFechaVigencia.ClientID & "').mask('00/00/0000');" RegistraScript(scripMascara) If array.Length > 0 Then extencion = array(array.Length - 1) @@ -4335,7 +4331,7 @@ Partial Class RH_Personal If documentacionFormato = "" Then ImgDownLoadFormato.Visible = False Else - Dim linkDescarga = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "/Formatos/" & CveDocumentacion & "" & documentacionFormato + Dim linkDescarga As String = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "/Formatos/" & CveDocumentacion & "" & documentacionFormato ImgDownLoadFormato.Visible = True End If @@ -4343,8 +4339,8 @@ Partial Class RH_Personal If Adjunto.Trim.Length > 0 Then - Dim linkDescarga = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "/Personal/" & CvePersonal & "/" & Adjunto - Dim linkDescargaArchivo = UsuarioActual.Empresa.Ruta & "Personal/" & CvePersonal & "/" & Adjunto + Dim linkDescarga As String = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "/Personal/" & CvePersonal & "/" & Adjunto + Dim linkDescargaArchivo As String = UsuarioActual.Empresa.Ruta & "Personal/" & CvePersonal & "/" & Adjunto If File.Exists(linkDescargaArchivo) Then @@ -4434,11 +4430,7 @@ Partial Class RH_Personal If pathDesti.ToUpper.Contains("GAFETTE") Or pathDesti.ToUpper.Contains("GAFETE") Then GemBox.Document.ComponentInfo.SetLicense(SerialGemBoxDocument) - - Dim document = GemBox.Document.DocumentModel.Load(pathDesti) - - - + Dim document As GemBox.Document.DocumentModel = GemBox.Document.DocumentModel.Load(pathDesti) Dim imgPersonalURL As String = "" If File.Exists(UsuarioActual.Empresa.Ruta & "RH\Personal\" & CvePersonal & ".jpg") Then @@ -4529,7 +4521,7 @@ Partial Class RH_Personal Private Function GetDatosTagsDocumentos() As List(Of TagsDocumentos) - Dim ListaTagsDocumentost = New List(Of TagsDocumentos) + Dim ListaTagsDocumentost As New List(Of TagsDocumentos) If CvePersonal <> -1 Then Dim objRH As New ClsRH @@ -4537,183 +4529,56 @@ Partial Class RH_Personal If objRH.PersonalReclutamientoGet(CvePersonal, UsuarioActual.Empresa.CveEmpresa) Then - - ListaTagsDocumentost.Add(New TagsDocumentos("{Nombres}", objRH.DtResultados(0)("Nombres").ToString())) - - - ListaTagsDocumentost.Add(New TagsDocumentos("{APaterno}", objRH.DtResultados(0)("APaterno").ToString())) - - - ListaTagsDocumentost.Add(New TagsDocumentos("{AMaterno}", objRH.DtResultados(0)("AMaterno").ToString())) - - - - ListaTagsDocumentost.Add(New TagsDocumentos("{RFC}", objRH.DtResultados(0)("RFC").ToString())) - - - - ListaTagsDocumentost.Add(New TagsDocumentos("{NombreCompleto}", NombreCompleto)) - - - ListaTagsDocumentost.Add(New TagsDocumentos("{Estatura}", objRH.DtResultados(0)("Estatura").ToString())) - - - ListaTagsDocumentost.Add(New TagsDocumentos("{Peso}", objRH.DtResultados(0)("Peso").ToString())) - - - ListaTagsDocumentost.Add(New TagsDocumentos("{LugarNacimiento}", objRH.DtResultados(0)("LugarNacimiento").ToString())) - - ListaTagsDocumentost.Add(New TagsDocumentos("{Edad}", objRH.DtResultados(0)("Edad").ToString())) - - - - ListaTagsDocumentost.Add(New TagsDocumentos("{NombreTelEmergencia}", objRH.DtResultados(0)("NombreTelEmergencia").ToString())) - - - - ListaTagsDocumentost.Add(New TagsDocumentos("{TipoSangre}", objRH.DtResultados(0)("TipoSangre").ToString())) - - ListaTagsDocumentost.Add(New TagsDocumentos("{Vivienda}", objRH.DtResultados(0)("Vivienda").ToString())) - - ListaTagsDocumentost.Add(New TagsDocumentos("{ViviendaDueno}", objRH.DtResultados(0)("ViviendaDueno").ToString())) - - - - - ListaTagsDocumentost.Add(New TagsDocumentos("{CreditoInfonavit}", objRH.DtResultados(0)("CreditoInfonavit").ToString())) - - - ListaTagsDocumentost.Add(New TagsDocumentos("{RentaMensual}", objRH.DtResultados(0)("RentaMensual").ToString().ToDecimal.ToString("###,###,###.00"))) - - ListaTagsDocumentost.Add(New TagsDocumentos("{TransportePublico}", objRH.DtResultados(0)("TransportePublico").ToString())) - - - - ListaTagsDocumentost.Add(New TagsDocumentos("{TrabajadoAnteriormente}", objRH.DtResultados(0)("TrabajadoAnteriormente").ToString())) - - - - ListaTagsDocumentost.Add(New TagsDocumentos("{TrabajadoAnteriormenteObservaciones}", objRH.DtResultados(0)("TrabajadoAnteriormenteObservaciones").ToString())) - - - ListaTagsDocumentost.Add(New TagsDocumentos("{ParientesEmpresa}", objRH.DtResultados(0)("ParientesEmpresa").ToString())) - - - - ListaTagsDocumentost.Add(New TagsDocumentos("{AcusadoDelito}", objRH.DtResultados(0)("AcusadoDelito").ToString())) - - - - ListaTagsDocumentost.Add(New TagsDocumentos("{AcusadoDelitoObservaciones}", objRH.DtResultados(0)("AcusadoDelitoObservaciones").ToString())) - - - ListaTagsDocumentost.Add(New TagsDocumentos("{Direccion}", objRH.DtResultados(0)("Direccion").ToString())) - - - - ListaTagsDocumentost.Add(New TagsDocumentos("{Calle}", objRH.DtResultados(0)("Calle").ToString())) - - - - ListaTagsDocumentost.Add(New TagsDocumentos("{Colonia}", objRH.DtResultados(0)("Colonia").ToString())) - - - - ListaTagsDocumentost.Add(New TagsDocumentos("{CP}", objRH.DtResultados(0)("CP").ToString())) - - - - ListaTagsDocumentost.Add(New TagsDocumentos("{Telefono}", objRH.DtResultados(0)("Telefono").ToString())) - - - - ListaTagsDocumentost.Add(New TagsDocumentos("{Celular}", objRH.DtResultados(0)("Celular").ToString())) - - - - ListaTagsDocumentost.Add(New TagsDocumentos("{Correo}", objRH.DtResultados(0)("Correo").ToString())) - 'If Not IsDBNull(objRH.DtResultados(0)("CveSucursal")) Then ' ListaTagsDocumentost.Add(New TagsDocumentos("{CveSucursal}", DDLSucursal4.Text)) 'End If - - - ListaTagsDocumentost.Add(New TagsDocumentos("{NumeroSS}", objRH.DtResultados(0)("NumeroSS").ToString())) - - - ListaTagsDocumentost.Add(New TagsDocumentos("{Licencia}", objRH.DtResultados(0)("Licencia").ToString())) - - - - - - ListaTagsDocumentost.Add(New TagsDocumentos("{CartillaMilitar}", objRH.DtResultados(0)("CartillaMilitar").ToString())) - - ListaTagsDocumentost.Add(New TagsDocumentos("{CURP}", objRH.DtResultados(0)("CURP").ToString())) - - ListaTagsDocumentost.Add(New TagsDocumentos("{AutorizaAntidoping}", objRH.DtResultados(0)("AutorizaAntidoping").ToString())) - - ListaTagsDocumentost.Add(New TagsDocumentos("{Observaciones}", objRH.DtResultados(0)("Observaciones").ToString())) - - ListaTagsDocumentost.Add(New TagsDocumentos("{Direccion}", objRH.DtResultados(0)("Direccion").ToString())) - - ListaTagsDocumentost.Add(New TagsDocumentos("{FechaIngreso}", objRH.DtResultados(0)("FechaIngreso").ToString().ToDate.ToShortDateString)) - - ListaTagsDocumentost.Add(New TagsDocumentos("{Direccion}", objRH.DtResultados(0)("Direccion").ToString().ToDate.ToShortDateString)) - - ListaTagsDocumentost.Add(New TagsDocumentos("{Puesto}", objRH.DtResultados(0)("Puesto").ToString())) - - ListaTagsDocumentost.Add(New TagsDocumentos("{CUIP}", "")) ListaTagsDocumentost.Add(New TagsDocumentos("{Denominacion}", "")) - ListaTagsDocumentost.Add(New TagsDocumentos("{FechaNacimiento}", objRH.DtResultados(0)("FechaNacimiento").ToString().ToDate.ToString("dd/MM/yyyy"))) Dim fechaActual As String = " " & Now.Day & " del mes " & Now.Month & " del año " & Now.Year - Dim FechaActualDF As String = Now.ToString("dd/MM/yyyy") - ListaTagsDocumentost.Add(New TagsDocumentos("{FechaActual}", fechaActual)) ListaTagsDocumentost.Add(New TagsDocumentos("{FechaActualDF}", FechaActualDF)) End If @@ -5585,17 +5450,15 @@ Partial Class RH_Personal Private Function GetDatosTagsVacaciones(_VacFolio As Integer) As List(Of TagsDocumentos) - Dim ListaTags = New List(Of TagsDocumentos) + Dim ListaTags As New List(Of TagsDocumentos) Dim objRH As New ClsRH If objRH.VacacionesFolioGet(CvePersonal, _VacFolio) Then If objRH.DtResultados.Rows.Count > 0 Then - ListaTags.Add(New TagsDocumentos("{Anios}", VacAnios.ToString())) ListaTags.Add(New TagsDocumentos("{DiasUsados}", VacDiasUsados.ToString())) ListaTags.Add(New TagsDocumentos("{DiasDisponibles}", VacDiasDisponibles.ToString())) - If Not IsDBNull(objRH.DtResultados(0)("InicioVac")) Then ListaTags.Add(New TagsDocumentos("{InicioVac}", objRH.DtResultados(0)("InicioVac").ToString().ToDate.ToString("dd/MM/yyyy"))) End If @@ -5982,7 +5845,7 @@ Partial Class RH_Personal Next If File.Exists(UsuarioActual.Empresa.Ruta & "RH\Personal\" & CvePersonal & "." & FileExtension) Then Dim LogoRutaFisica As String = String.Format("Empresas\{0}\RH\Personal\{1}.{2}", UsuarioActual.CveEmpresa, CvePersonal, FileExtension) - Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}&version={4}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica), Now) + Dim logouri As String = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}&version={4}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica), Now) ImgPersonal.ImageUrl = logouri End If UpImage.Update() @@ -6253,22 +6116,19 @@ Partial Class RH_Personal If gvr.DataKey("SeTimbro") = "True" Then - Dim NombreComercial = UsuarioActual.Empresa.Empresa - Dim SerieFolio = gvr.DataKey("SerieFolio").ToString() - Dim Destinatario = gvr.DataKey("Correo").ToString() - Dim Personal = gvr.DataKey("Nombre").ToString() - Dim fechai = gvr.DataKey("FechaInicio").ToString().ToDate.ToShortDateString - Dim fechaf = gvr.DataKey("FechaFin").ToString().ToDate.ToShortDateString - Dim cvePeriodo = gvr.DataKey("CvePeriodo").ToString().ToEntero() + Dim NombreComercial As String = UsuarioActual.Empresa.Empresa + Dim SerieFolio As String = gvr.DataKey("SerieFolio").ToString() + Dim Destinatario As String = gvr.DataKey("Correo").ToString() + Dim Personal As String = gvr.DataKey("Nombre").ToString() + Dim fechai As String = gvr.DataKey("FechaInicio").ToString().ToDate.ToShortDateString + Dim fechaf As String = gvr.DataKey("FechaFin").ToString().ToDate.ToShortDateString + Dim cvePeriodo As Integer = gvr.DataKey("CvePeriodo").ToString().ToEntero() If UsuarioActual.CveRol = 1 Then Alert("Parametros:" + NombreComercial + " " + SerieFolio + " " + Destinatario + " " + Personal + " " + fechai + " " + fechaf) End If MandaCorreo(NombreComercial, SerieFolio, Destinatario, Personal, fechai, fechaf, cvePeriodo) End If - - - End Sub Private Sub MandaCorreo(NombreComercial As String, SerieFolio As String, Destinatario As String, Optional Personal As String = "", Optional FechaI As String = "", Optional FechaF As String = "", Optional CvePeriodo As Integer = -1) @@ -6484,7 +6344,7 @@ Partial Class RH_Personal ObjAF.Dispose() Else If DTLicencias IsNot Nothing Then - Dim Row = DTLicencias.Select($"CveLicencia = {HdnIDLicencia.Value.ToEntero()}")(0) + Dim Row As DataRow = DTLicencias.Select($"CveLicencia = {HdnIDLicencia.Value.ToEntero()}")(0) DTLicencias.Rows.Remove(Row) GvLicencias.DataSource = DTLicencias GvLicencias.DataBind() @@ -6529,7 +6389,7 @@ Partial Class RH_Personal Else If DTLicencias IsNot Nothing Then If HdnModalidadLicencia.Value = "A" Then - Dim Row = DTLicencias.NewRow() + Dim Row As DataRow = DTLicencias.NewRow() Row("Licencia") = TxtLicencia.Text.Trim() Row("FechaExpedicion") = TxtFechaExpLicencia.Text.ToDateTime() @@ -6546,7 +6406,7 @@ Partial Class RH_Personal Alert("La licencia se agregó correctamente.", TipoMensaje.MsgInformacion) ElseIf HdnModalidadLicencia.Value = "U" Then Try - Dim Row = DTLicencias.Select($"CveLicencia = {HdnIDLicencia.Value.ToEntero()}")(0) + Dim Row As DataRow = DTLicencias.Select($"CveLicencia = {HdnIDLicencia.Value.ToEntero()}")(0) Row("Licencia") = TxtLicencia.Text.Trim() Row("FechaExpedicion") = TxtFechaExpLicencia.Text.ToDateTime() @@ -6582,7 +6442,7 @@ Partial Class RH_Personal Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\RepResguardosAF.rdlc", UsuarioActual.Empresa.Ruta)) Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + Dim logouri As String = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim dtVC As DataTable = Nothing Dim params As New List(Of ReportParameter) @@ -6601,7 +6461,7 @@ Partial Class RH_Personal 'End If Dim SBDomicilioSucursal As New StringBuilder() - Dim DRSucursal = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, CveSubProyecto:=dr("CveSubProyecto").ToString().ToEntero(), Estatus:=1).FiltroPrimero("") + Dim DRSucursal As DataRow = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, CveSubProyecto:=dr("CveSubProyecto").ToString().ToEntero(), Estatus:=1).FiltroPrimero("") If DRSucursal IsNot Nothing Then Dim CiudadSucursal As String = String.Format("{0},{1}", DRSucursal("Municipio"), DRSucursal("Estado")) @@ -7146,12 +7006,7 @@ Partial Class RH_Personal End Sub Protected Sub LnkDescargaFormatoParametros_Click(sender As Object, e As EventArgs) - - - - Dim ListaTagsDocumentost = New List(Of TagsDocumentos) - - + Dim ListaTagsDocumentost As New List(Of TagsDocumentos) Dim ObjRH As New ClsRH ListaTagsDocumentost = ObjRH.GetDatosTagsDocumentos(CvePersonal, UsuarioActual.CveEmpresa) ObjRH.Dispose() @@ -7161,10 +7016,7 @@ Partial Class RH_Personal If GvRow.FCTextBox("TxtParametro").Text.Trim.Length > 0 Then ListaTagsDocumentost.Add(New TagsDocumentos(GvRow.DataKey("Parametro"), GvRow.FCTextBox("TxtParametro").Text)) End If - Next - - Dim PathRoot As String = AppDomain.CurrentDomain.BaseDirectory Dim PathSource As String Dim pathDesti As String @@ -7276,10 +7128,6 @@ Partial Class RH_Personal End Sub - - - - Protected Sub DdlSubProyectoAsignado_SelectedIndexChanged1(sender As Object, e As EventArgs) Using objrh As New ClsRH() @@ -7671,8 +7519,8 @@ Partial Class RH_Personal ffin = gvrow.DataKey("FechaFin").ToDateTime() End If - Dim estatus = -1 - Dim continuar = False + Dim estatus As Integer = -1 + Dim continuar As Boolean = False If (LnkActivar.Visible) Then @@ -7826,17 +7674,11 @@ Partial Class RH_Personal End If ObjRH.Dispose() - - - Dim objGemBoxDocument As New clsGemBoxDocument(RutaArchivo) objGemBoxDocument.SustituirTags(Tags) objGemBoxDocument.GuardarStreamPDF() - - Dim objbyte = objGemBoxDocument.GetBytesDocumento - - + Dim objbyte As Byte() = objGemBoxDocument.GetBytesDocumento Try @@ -7859,9 +7701,6 @@ Partial Class RH_Personal End If End Try - - - End Sub @@ -7993,11 +7832,7 @@ Partial Class RH_Personal SBDatosBancarios.Append(If(GvRow.FCLabel("LtMoneda").Text.Trim.Length > 0, $"Moneda: {GvRow.FCLabel("LtMoneda").Text}, ", "")) SBDatosBancarios.Append(If(GvRow.FCLabel("LlbEstatusTexto").Text.Trim.Length > 0, $"Estatus: {GvRow.FCLabel("LlbEstatusTexto").Text} ", "")) SBDatosBancarios.AppendLine($"
") - - Next - - If SBDatosBancarios.ToString.Trim.Length > 0 Then Cuerpo.AppendLine($"Datos Bancarios:{ SBDatosBancarios.ToString }") End If @@ -8010,9 +7845,6 @@ Partial Class RH_Personal #End Region - - - Protected Sub LnkSolicitarVacaciones_Click(sender As Object, e As EventArgs) DdlVacPeriodo_SelectedIndexChanged(Nothing, Nothing) @@ -8048,16 +7880,14 @@ Partial Class RH_Personal End If End If - - If fechaFinParametro <> Nothing Then Dim DiferenciaEntreFechas As Integer = (fechaFinParametro - fechaInicioParametro).Days + 1 Dim DiasNolavorales As Integer = 0 Dim FechaTemp As Date = fechaInicioParametro - For x = 1 To DiferenciaEntreFechas - Dim day_of_week = CType(FechaTemp.DayOfWeek, Integer) + 1 + For x As Integer = 1 To DiferenciaEntreFechas + Dim day_of_week As Integer = CType(FechaTemp.DayOfWeek, Integer) + 1 If day_of_week = diaDescanso Then DiasNolavorales = DiasNolavorales + 1 @@ -8092,8 +7922,8 @@ Partial Class RH_Personal Dim DiasAgregados As Integer = 0 Dim FechaFin As Date = fechaInicioParametro Dim Contador As Integer = 0 - For x = 2 To diasVacaciones - Dim day_of_week = CType(FechaFin.DayOfWeek, Integer) + 1 + For x As Integer = 2 To diasVacaciones + Dim day_of_week As Integer = CType(FechaFin.DayOfWeek, Integer) + 1 If day_of_week = diaDescanso Then FechaFin = FechaFin.AddDays(2) DiasAgregados = DiasAgregados + 1 @@ -8136,7 +7966,6 @@ Partial Class RH_Personal If Not validaFechasVaciones() Then Exit Sub End If - CalculaDiasVacaciones(TxtFechaInicioVac.Text.ToDate, TxtVacDiasPago.Text.ToEntero, TxtFechaFinVac.Text.ToDate) End Sub