From 4f393581882ab71e044339e0b364b4c618a4104a Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 25 Aug 2023 15:45:49 -0700
Subject: [PATCH] -- option strict on

---
 RH/MiPerfil.aspx.vb | 26 +++++++++++---------------
 1 file changed, 11 insertions(+), 15 deletions(-)

diff --git a/RH/MiPerfil.aspx.vb b/RH/MiPerfil.aspx.vb
index bc0b91c37..8a4cdf9d8 100644
--- a/RH/MiPerfil.aspx.vb
+++ b/RH/MiPerfil.aspx.vb
@@ -1,13 +1,9 @@
 Option Explicit On
-Option Strict Off
 
 Imports Extensiones
-'Imports System.Runtime.InteropServices
 Imports System.IO
-'Imports Word = Microsoft.Office.Interop.Word
 Imports System.Data
 Imports Microsoft.Reporting.WebForms
-Imports System.Globalization
 
 Partial Class RH_MiPerfil
     Inherits ClsPaginas
@@ -41,7 +37,7 @@ Partial Class RH_MiPerfil
     End Property
 
     Private Sub CargaEstados(pCvePais As Integer)
-        DdlEstados.DataSource = GlobalDTGralEstados(pCvePais)
+        DdlEstados.DataSource = GlobalDTGralEstados("-1", pCvePais)
         DdlEstados.DataBind()
     End Sub
 
@@ -68,7 +64,7 @@ Partial Class RH_MiPerfil
             If ViewState("JefeInmediato") Is Nothing Then
                 Return "No asignado"
             Else
-                Return ViewState("JefeInmediato")
+                Return ViewState("JefeInmediato").ToString
             End If
         End Get
         Set(value As String)
@@ -81,7 +77,7 @@ Partial Class RH_MiPerfil
             If ViewState("FechaIngreso") Is Nothing Then
                 Return "No asignado"
             Else
-                Return ViewState("FechaIngreso")
+                Return ViewState("FechaIngreso").ToString
             End If
         End Get
         Set(value As String)
@@ -94,7 +90,7 @@ Partial Class RH_MiPerfil
             If ViewState("puestoProp") Is Nothing Then
                 Return "No asignado"
             Else
-                Return ViewState("puestoProp")
+                Return ViewState("puestoProp").ToString
             End If
         End Get
         Set(value As String)
@@ -448,7 +444,7 @@ Partial Class RH_MiPerfil
                 TxtTelefonoMarcadoRapido.Text = ObjPersonal.TelefonoMarcadoRapido
                 FechaIngreso = ObjPersonal.FechaIngreso.ToShortDateString
 
-                Dim jefeCve As Integer = If(ObjPersonal.CvePersonalPadre = ObjPersonal.CvePersonal, "0", If(ObjPersonal.CvePersonalPadre.ToString = "0", "-1", ObjPersonal.CvePersonalPadre.ToString))
+                Dim jefeCve As Integer = If(ObjPersonal.CvePersonalPadre = ObjPersonal.CvePersonal, "0", If(ObjPersonal.CvePersonalPadre.ToString = "0", "-1", ObjPersonal.CvePersonalPadre.ToString)).ToEntero
                 Dim expressionJefe As String = String.Format("CvePersonal = {0}", jefeCve)
                 Dim resultad As DataRow = DTOrganigrama.FiltroPrimero(expressionJefe)
                 If (Not IsNothing(resultad)) Then
@@ -462,7 +458,7 @@ Partial Class RH_MiPerfil
                 Dim resultadoPuesto As DataRow = puestosAux.FiltroPrimero(expressionPuesto)
 
                 If (Not IsNothing(resultad)) Then
-                    puestoProp = resultadoPuesto.Item("Puesto")
+                    puestoProp = resultadoPuesto.Item("Puesto").ToString
                 Else
                     puestoProp = ""
                 End If
@@ -682,7 +678,7 @@ Partial Class RH_MiPerfil
                         Row("SerieFolio") = ""
                     End If
                 Next
-				
+
                 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)
 
@@ -847,7 +843,7 @@ Partial Class RH_MiPerfil
         Dim Codigo As String = TxtCodigo.Text
         Dim Departamento As String = DdlDepartamento.SelectedItem.Text
         Dim JefeInmediatoNombre As String = JefeInmediato
-        Dim fechaIngreso As Date = Me.FechaIngreso
+        Dim fechaIngreso As Date = Me.FechaIngreso.ToDate
         Dim Periodoingreso As Integer = Me.FechaIngreso.ToDate().ToString("MMdd").ToEntero()
         Dim PeriodoInicio As Integer = GvRow.DataKey("FechaInicio").ToDate().ToString("MMdd").ToEntero()
         Dim FechaInicio As String = GvRow.DataKey("FechaInicio").ToDateTime().ToString("dd/MM/yyyy")
@@ -1199,7 +1195,7 @@ Partial Class RH_MiPerfil
                 Alert("Permiso agregado Actualizado correctamente")
             End If
             Dim CorreoSupervisor As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa, DdlSupervisor.SelectedValue.ToEntero).FiltroPrimeroValor("Correo")
-            VacacionesMandaCorreoSupervisor("Permiso para " & UsuarioActual.Nombre, CorreoSupervisor, VacSupervisorNombre, NombreCompleto, TxtFechaInicioPer.Text, TxtFechaFinPer.Text, "permiso")
+            VacacionesMandaCorreoSupervisor("Permiso para " & UsuarioActual.Nombre, CorreoSupervisor, VacSupervisorNombre, NombreCompleto, TxtFechaInicioPer.Text.ToDate, TxtFechaFinPer.Text.ToDate, "permiso")
             RegistraScript("$('#DvPermisos').modal('hide');")
 
         End If
@@ -1473,8 +1469,8 @@ Partial Class RH_MiPerfil
         Else
 
             For Each RowConcepto As DataRow In DTConceptosDetalles.Rows
-                Dim CveSolicitudVD As Integer = RowConcepto("CveSolicitudViaticoDetalle")
-                If (RowConcepto("CveSolicitudViaticoDetalle").ToEntero() = CveSolicitudViaticoDetalle) Then
+                Dim CveSolicitudVD As Integer = RowConcepto("CveSolicitudViaticoDetalle").ToString.ToEntero
+                If (RowConcepto("CveSolicitudViaticoDetalle").ToString.ToEntero() = CveSolicitudViaticoDetalle) Then
 
                     DTConceptosDetalles.Rows.Remove(RowConcepto)
                     ErrorEliminar = False