Merge branch 'master' of http://adsistemasof.sytes.net:8383/SIG

RH/Personal.aspx.vb

@@ -1242,6 +1242,11 @@ Partial Class RH_Personal
                     Dim LogoRutaFisica As String = String.Format("Empresas\{0}\RH\Personal\{1}.png", UsuarioActual.CveEmpresa, CvePersonal)
                     Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica))
 
+                    ImgPersonal.ImageUrl = logouri
+                ElseIf File.Exists(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & ".bmp") Then
+                    Dim LogoRutaFisica As String = String.Format("Empresas\{0}\RH\Personal\{1}.bmp", UsuarioActual.CveEmpresa, CvePersonal)
+                    Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica))
+
                     ImgPersonal.ImageUrl = logouri
                 End If
                 'BtnCargarArchivo_Click(Me, New EventArgs)
@@ -4973,10 +4978,14 @@ Partial Class RH_Personal
 
             Dim yaExistente As String = String.Format("{0}Empresas\{1}\RH\Personal\{2}.jpg", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, CvePersonal)
             Dim yaExistentePNG As String = String.Format("{0}Empresas\{1}\RH\Personal\{2}.png", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, CvePersonal)
+            Dim yaExistenteBMP As String = String.Format("{0}Empresas\{1}\RH\Personal\{2}.bmp", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, CvePersonal)
+
             If File.Exists(yaExistente) Then
                 File.Delete(yaExistente)
             ElseIf File.Exists(yaExistentePNG) Then
                 File.Delete(yaExistentePNG)
+            ElseIf File.Exists(yaExistenteBMP) Then
+                File.Delete(yaExistenteBMP)
             End If
 
             If filemove <> "" Then

RH/PopUpBuscarPersonal.aspx.vb

@@ -142,7 +142,6 @@ Partial Class RH_PopUpBuscarPersonal
     End Sub
 
     Protected Sub BtnBuscar_Click(sender As Object, e As System.EventArgs) Handles BtnBuscar.Click
-        Dim ObjPersonal As New ClsRH()
 
         Dim Codigo As String = "-1"
         Dim Nombre As String = "-1"
@@ -161,26 +160,32 @@ Partial Class RH_PopUpBuscarPersonal
 
         Dim StrFiltroCaracteristica As String = GeneraFiltroCaracteristicas()
 
-        If ObjPersonal.GetPersonal2(-1, Codigo, Nombre, NSS, RFC, DdlTurnos.SelectedValue.ToEntero, DdlPuestos.SelectedValue.ToEntero, DdlDepartamentos.SelectedValue.ToEntero,
+        If ValidarFiltrosSeleccionado() Then
+
+            Dim ObjPersonal As New ClsRH()
+            If ObjPersonal.GetPersonal2(-1, Codigo, Nombre, NSS, RFC, DdlTurnos.SelectedValue.ToEntero, DdlPuestos.SelectedValue.ToEntero, DdlDepartamentos.SelectedValue.ToEntero,
                                    DdlRuta.SelectedValue.ToEntero, DdlEscolaridad.SelectedValue.ToEntero, DdlEstadoCivil.SelectedValue.ToEntero, DdlGenero.SelectedValue.ToEntero,
                                    DdlEstatus.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlClienteAsignado.SelectedValue.ToEntero, Horario, CveSupervisor,
                                    -1, -1, -1, -1, -1, "-1", "-1", "-1", "-1", StrFiltroCaracteristica, 1, UsuarioActual.CveEmpresa) Then
-            If ObjPersonal.DtResultados.Rows.Count > 0 Then
-                LtlTotalRegistros.Text = ObjPersonal.DtResultados.Rows.Count.ToString.FormatoNumero(0)
-                GV.DataSource = ObjPersonal.DtResultados
-            Else
-                LtlTotalRegistros.Text = "0"
-                GV.DataSource = Nothing
-                Alert("No se encontraron registros con los parámetros solicitados.", Extensiones.TipoMensaje.MsgAdvertencia)
+                If ObjPersonal.DtResultados.Rows.Count > 0 Then
+                    LtlTotalRegistros.Text = ObjPersonal.DtResultados.Rows.Count.ToString.FormatoNumero(0)
+                    GV.DataSource = ObjPersonal.DtResultados
+                Else
+                    LtlTotalRegistros.Text = "0"
+                    GV.DataSource = Nothing
+                    Alert("No se encontraron registros con los parámetros solicitados.", Extensiones.TipoMensaje.MsgAdvertencia)
+                End If
             End If
+
+            ObjPersonal.Dispose()
+            GV.DataBind()
+
+            UPDatos.Update()
+
+            TblBusqueda.Visible = True
+        Else
+            Alert("Asigne un valor a cualquiera de los filtros", TipoMensaje.MsgAdvertencia)
         End If
-
-        ObjPersonal.Dispose()
-        GV.DataBind()
-
-        UPDatos.Update()
-
-        TblBusqueda.Visible = True
     End Sub
 
     Private Function GeneraFiltroCaracteristicas() As String
@@ -383,4 +388,26 @@ Partial Class RH_PopUpBuscarPersonal
         End If
 
     End Sub
+
+    Private Function ValidarFiltrosSeleccionado() As Boolean
+        If TxtCodigo.Text.Trim <> String.Empty Then Return True
+        If TxtNombre.Text.Trim <> String.Empty Then Return True
+        If TxtNSS.Text.Trim <> String.Empty Then Return True
+        If TxtRFC.Text.Trim <> String.Empty Then Return True
+        If TxtHorarioDe.Text.Trim <> String.Empty Then Return True
+
+        If DdlTurnos.SelectedValue.ToEntero > 0 Then Return True
+        If DdlPuestos.SelectedValue.ToEntero > 0 Then Return True
+        If DdlDepartamentos.SelectedValue.ToEntero > 0 Then Return True
+        If DdlRuta.SelectedValue.ToEntero > 0 Then Return True
+        If DdlEscolaridad.SelectedValue.ToEntero > 0 Then Return True
+        If DdlEstadoCivil.SelectedValue.ToEntero > 0 Then Return True
+        If DdlGenero.SelectedValue.ToEntero > 0 Then Return True
+        If DdlEstatus.SelectedValue.ToEntero > 0 Then Return True
+        If DdlSubProyecto.SelectedValue.ToEntero > 0 Then Return True
+        If DdlClienteAsignado.SelectedValue.ToEntero > 0 Then Return True
+
+        Return False
+    End Function
+
 End Class