RH/Personal.aspx

@@ -590,6 +590,15 @@
                                                         <asp:Label AssociatedControlID="DDLUsuarioNomina" runat="server" Text="Nominista:"></asp:Label>
                                                         <i></i>
                                                     </div>
+
+                                                      <div class="form-group form-md-line-input input-iconright" runat="server" id="DvOutsourcing" visible="false">
+                                                        <asp:DropDownList Width="100%" ID="DdlEmpresaAsignada" runat="server" DataTextField="Empresa" DataValueField="CveEmpresa" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar">
+                                                            <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                                        </asp:DropDownList>
+                                                        <asp:Label AssociatedControlID="DdlEmpresaAsignada" runat="server" Text="Outsourcing :"></asp:Label>
+                                                        <i></i>
+                                                    </div>
+
                                                     <div class="form-group form-md-line-input input-iconright">
                                                         <asp:Label AssociatedControlID="ChkPensionado" CssClass="lblforchk" runat="server" Text="Pensionado:"></asp:Label>
                                                         <asp:CheckBox ID="ChkPensionado" CssClass="chksino " Text=" " runat="server" />
@@ -849,7 +858,7 @@
                                                     </div>
                                                 </div>
                                                 <div class="portlet-body form">
-                                                    <div class="form-group form-md-line-input input-iconright">
+                                                    <div class="form-group form-md-line-input input-iconright "  runat="server" id="DVSupervisorAsignado" >
                                                         <asp:DropDownList ID="DdlSupervisor" runat="server" AppendDataBoundItems="True" DataTextField="Nombre" DataValueField="CveUsuario" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar" Width="100%">
                                                             <asp:ListItem Selected="True" Text="Sin Supervisor Asignado" Value="-1"></asp:ListItem>
                                                         </asp:DropDownList>
@@ -861,7 +870,8 @@
                                                             <asp:ListItem Selected="True" Text="Sin Asignar" Value="-1"></asp:ListItem>
                                                             <asp:ListItem Text="Cabecera" Value="0"></asp:ListItem>
                                                         </asp:DropDownList>
-                                                        <asp:Label AssociatedControlID="DdlSupervisorOrganigrama" runat="server" Text="Superior Inmediato:"></asp:Label>
+                                                        <%--<asp:Label AssociatedControlID="DdlSupervisorOrganigrama" runat="server" Text="Superior Inmediato:"></asp:Label>--%>
+                                                        <asp:Label AssociatedControlID="DdlSupervisorOrganigrama" runat="server" Text="Supervisor:"></asp:Label>
                                                         <i></i>
                                                     </div>
                                                 </div>

RH/Personal.aspx.vb

@@ -869,6 +869,7 @@ Partial Class RH_Personal
             CargaPermisosReemplazos()
             CargaPaises()
             CargaRegistroPatronal()
+            CargaOutSourcing()
 
             If Request("CvePersonal") IsNot Nothing AndAlso IsNumeric(Request("CvePersonal")) AndAlso Request("CvePersonal").ToEntero() > 0 Then
                 ViewState("CvePersonal") = Request("CvePersonal")
@@ -950,6 +951,14 @@ Partial Class RH_Personal
                 DivSuperiorInmediato.Visible = False
             End If
 
+
+
+            If UsuarioActual.CveEmpresa = 7 Then
+                DivSuperiorInmediato.Visible = True
+                DVSupervisorAsignado.Visible = False
+            End If
+
+
             '09/05/2018 - Si el Personal tiene consumos, muestra boton para generar reporte
             If DTConsumos IsNot Nothing Then
                 If DTConsumos.Rows.Count > 0 Then
@@ -1393,6 +1402,20 @@ Partial Class RH_Personal
 
     End Sub
 
+
+    Private Sub CargaOutSourcing()
+
+        If UsuarioActual.CveEmpresa = 7 Then
+            DdlEmpresaAsignada.DataSource = GlobalDTEmpresas.FiltraParametros("CveEmpresa in (7,11,12,122,145,113)")
+            DdlEmpresaAsignada.DataBind()
+            DvOutsourcing.Visible = True
+        End If
+
+
+        DdlEmpresaAsignada.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+
+    End Sub
+
 #End Region
 
 #Region "Asistencias"
@@ -1694,6 +1717,7 @@ Partial Class RH_Personal
 
 
                 DdlRegistroPatronal.SelectedValueExist(ObjPersonal.DtResultados.Rows(0)("CveRegistroPatronal").ToString)
+                DdlEmpresaAsignada.SelectedValueExist(ObjPersonal.DtResultados.Rows(0)("CveEmpresaAsignado").ToString)
 
                 'Carga Incidencias
                 BtnConsultarAsistencia_Click(Me, New System.EventArgs)
@@ -1814,6 +1838,8 @@ Partial Class RH_Personal
     End Sub
 
     Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
+
+        Dim EnviarCorreoNomina As Boolean = False
         'System.Threading.Thread.Sleep(3000)
         Dim ObjPersonal As New ClsRH()
         Dim ObjCuentasDeposito As New ClsGenerales(ObjPersonal.IniciaTransacSQL())
@@ -1869,7 +1895,7 @@ Partial Class RH_Personal
                DdlSupervisor.SelectedValue.ToEntero(), TxtCLABE.Text.Trim, TxtBancoNumCuenta.Text.Trim, DdlJornada.SelectedValue.ToEntero(), DdlViaticos.SelectedValue.ToEntero(), DdlViaticos.SelectedItem.Text,
                DdlPrestamos.SelectedValue.ToEntero(), DdlPrestamos.SelectedItem.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DDLUsuarioNomina.SelectedValue.ToEntero(), DdlSubproyectoZona.SelectedValue.ToEntero(), CveUniforme:=DdlUniforme.SelectedValue.ToEntero(),
                TelefonoExtension:=TxtTelefonoExtension.Text, CelularPersonal:=TxtCelularPersonal.Text, TelefonoMarcadoRapido:=TxtTelefonoMarcadoRapido.Text, ContactoAlterno:="", CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(),
-               Sindicalizado:=ChkSindicalizado.Checked, Pensionado:=ChkPensionado.Checked, CvePais:=DdlPais.SelectedValue.ToEntero(), CveRegistroPatronal:=DdlRegistroPatronal.SelectedValue.ToEntero()) Then
+               Sindicalizado:=ChkSindicalizado.Checked, Pensionado:=ChkPensionado.Checked, CvePais:=DdlPais.SelectedValue.ToEntero(), CveRegistroPatronal:=DdlRegistroPatronal.SelectedValue.ToEntero(), CveEmpresaAsignado:=DdlEmpresaAsignada.SelectedValue.ToEntero) Then
 
                 If Archivo.Exists Then
 
@@ -1889,8 +1915,8 @@ Partial Class RH_Personal
                 If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then
                     ProcesaDTFamiliares(ObjPersonal)
                 End If
-
                 If TempDTCuentasBancos.Rows.Count > 0 Then
+
                     For Each row As DataRow In TempDTCuentasBancos.Rows
                         If Not ObjCuentasDeposito.AddCuentasDepositos(row("BancoNombre").ToString(), row("Plaza").ToString(), row("Sucursal").ToString(), row("Cuenta").ToString(), row("CLABE").ToString(), row("CIE").ToString(), row("SWIFT").ToString(), row("Referencia").ToString(), "", UsuarioActual.CveUsuario, row("CveMoneda").ToString().ToEntero(), CvePersonal:=CvePersonal, CveUsuarioModifico:=UsuarioActual.CveUsuario, BBVAAlias:=row("BBVAAlias").ToString()) Then
                             TieneError = True
@@ -1917,6 +1943,7 @@ Partial Class RH_Personal
                 Accion = If(Request("CveFactura") Is Nothing, "document.location.href=""/RH/CatPersonal.aspx""", "window.opener.location.href = window.opener.location.href; window.close();")
 
                 'Alert("El Personal se guardó correctamente.", TipoMensaje.MsgInformacion, "window.location.href=""/RH/CatPersonal.aspx"";")
+                EnviarCorreoNomina = True
             Else
                 TieneError = True
             End If
@@ -1944,7 +1971,8 @@ Partial Class RH_Personal
                URL, DdlSupervisor.SelectedValue.ToEntero(), TxtCLABE.Text.Trim, TxtBancoNumCuenta.Text.Trim, DdlJornada.SelectedValue.ToEntero(), DdlViaticos.SelectedValue.ToEntero(), DdlViaticos.SelectedItem.Text,
                DdlPrestamos.SelectedValue.ToEntero(), DdlPrestamos.SelectedItem.Text, UsuarioActual.CveEmpresa, DDLUsuarioNomina.SelectedValue.ToEntero(), DdlSubproyectoZona.SelectedValue.ToEntero(), CveUniforme:=DdlUniforme.SelectedValue.ToEntero(),
                TelefonoExtension:=TxtTelefonoExtension.Text, CelularPersonal:=TxtCelularPersonal.Text, TelefonoMarcadoRapido:=TxtTelefonoMarcadoRapido.Text, ContactoAlterno:="", CveUsuarioModifico:=UsuarioActual.CveUsuario,
-               CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), Sindicalizado:=If(ChkSindicalizado.Checked, 1, 0), Pensionado:=ChkPensionado.Checked, CvePais:=DdlPais.SelectedValue.ToEntero(), CveRegistroPatronal:=DdlRegistroPatronal.SelectedValue.ToEntero()) Then
+               CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), Sindicalizado:=If(ChkSindicalizado.Checked, 1, 0), Pensionado:=ChkPensionado.Checked, CvePais:=DdlPais.SelectedValue.ToEntero(),
+               CveRegistroPatronal:=DdlRegistroPatronal.SelectedValue.ToEntero(), CveEmpresaAsignado:=DdlEmpresaAsignada.SelectedValue.ToEntero) Then
 
                 'Funsion usa RH Familiares
                 If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then
@@ -2015,6 +2043,99 @@ Partial Class RH_Personal
         UpDatos.Update()
         CargaGvBitacora()
 
+        If EnviarCorreoNomina AndAlso DDLUsuarioNomina.SelectedValue.ToEntero > 0 Then
+            EnviarCorreoNominista()
+        End If
+
+
+    End Sub
+
+    Private Sub EnviarCorreoNominista()
+
+        If UsuarioActual.CveEmpresa.Contiene(7) Then
+
+            Dim CorreoNominista As String = GlobalDTUsuarios(CveUsuario:=DDLUsuarioNomina.SelectedValue.ToEntero).Rows(0)("Correo").ToString
+
+            If CorreoNominista = "" Then
+                Alert($"No se envio el correo  de notificación a nominas, el nominista  no tiene {DDLUsuarioNomina.SelectedItem.Text} correo  electronico", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+
+            End If
+
+
+            Dim correo As New ClsSisMail
+            Dim Cuerpo As New StringBuilder
+
+            Dim Puesto As String = ""
+            Dim Padre As String = ""
+            Dim Madre As String = ""
+            Dim FechaIngreso As String = ""
+
+            Dim EmpresaDestino As String = If(DdlEmpresaAsignada.SelectedValue.ToEntero > 0, GlobalDTEmpresas(DdlEmpresaAsignada.SelectedValue.ToEntero).Rows(0)("Empresa").ToString, UsuarioActual.Empresa.Empresa)
+
+            Dim objRH As New ClsRH
+
+            If objRH.PersonalFamiliaresGet(-1, CvePersonal) Then
+
+                Dim DtFamiliares As DataTable = objRH.DtResultados.FiltraParametros(" CveParentesco = 1 ")
+
+                If DtFamiliares.Rows.Count > 0 Then
+                    Padre = DtFamiliares.Rows(0)("Nombre").ToString
+                End If
+
+                DtFamiliares = objRH.DtResultados.FiltraParametros(" CveParentesco = 2 ")
+
+                If DtFamiliares.Rows.Count > 0 Then
+                    Madre = DtFamiliares.Rows(0)("Nombre").ToString
+                End If
+
+            End If
+
+            objRH.Dispose()
+            Cuerpo.AppendLine("<table border='0' style='width:100%'>")
+            Cuerpo.AppendLine($"<tr><td  style='  font-size:large;'>{  EmpresaDestino }<br/></td><td style='width:20%'> </td><td  style='text-align: right;'>{ Now.ToShortDateString }   { Now.ToShortTimeString  } <br/></td> </tr>")
+            Cuerpo.AppendLine("<tr><td style='  font-size:large; text-align: left;' colspan='3'>Notificacion por Alta de Nomina</td></tr>")
+            Cuerpo.AppendLine("</table>")
+
+            Cuerpo.AppendLine("<br/>")
+            Cuerpo.AppendLine("<br/>")
+
+            Cuerpo.AppendLine("<table border='0'>")
+            Cuerpo.AppendLine($"<tr><td style='text-align: center; font-weight:bold; font-size:medium;' colspan='2'>Datos del Candidato</td></tr>")
+            Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Puesto:</td><td style=' text-align: left;  font-weight:bold;'>{If(DdlPuesto.SelectedIndex > 0, DdlPuesto.SelectedItem.Text, "")  }</td></tr>")
+            Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Ruta/Servicio:</td><td style=' text-align: left;  font-weight:bold;'>{ If(DdlRuta.SelectedValue.ToEntero > 0, DdlRuta.SelectedItem.Text, "") }</td></tr>")
+            Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Fecha de ingreso:</td><td style=' text-align: left; font-weight:bold;'>{TxtFechaIngreso.Text}</td></tr>")
+            Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Nombre:</td><td style=' text-align: left; font-weight:bold;'>{ NombreCompleto }</td></tr>")
+            Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Fecha y Lugar de Nacimiento:</td><td style=' text-align: left; font-weight:bold;'>{TxtFechaNacimiento.Text}  {TxtLugarNacimiento.Text}</td></tr>")
+            Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Numero IMSS:</td><td style=' text-align: left; font-weight:bold;'>{ TxtNumeroSS.Text }</td></tr>")
+            Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Numero Infonavit:</td><td style=' text-align: left; font-weight:bold;'>{ If(TxtInfoNumCredito.Text.Trim = "", "NO CUENTA CON CREDITO", TxtInfoNumCredito.Text) }</td></tr>")
+            Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Sexo:</td><td style=' text-align: left; font-weight:bold;'>{ If(DdlGenero.SelectedValue = "1", "Masculino", "Femenino")  }</td></tr>")
+            Cuerpo.AppendLine($"<tr><td style='text-align: right;'>R.F.C.:</td><td style=' text-align: left; font-weight:bold;'>{ TxtRFC.Text }</td></tr>")
+            Cuerpo.AppendLine($"<tr><td style='text-align: right;'>CURP:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCURP.Text }</td></tr>")
+
+
+            If Padre.Length > 0 Then
+                Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Nombre del Padre:</td><td style=' text-align: left; font-weight:bold;'>{ Padre }</td></tr>")
+            End If
+
+            If Madre.Length > 0 Then
+                Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Nombre de la Madre:</td><td style=' text-align: left; font-weight:bold;'>{ Madre }</td></tr>")
+            End If
+
+
+            Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Dirección:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCalle.Text }</td></tr>")
+            Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Escolaridad:</td><td style=' text-align: left; font-weight:bold;'>{ If(DdlEscolaridad.SelectedIndex > 0, DdlEscolaridad.SelectedItem.Text, "")   }</td></tr>")
+            Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Telefono:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCelular.Text},{TxtTelefono.Text}</td></tr>")
+            Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Correo:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCorreo.Text  }</td></tr>")
+            Cuerpo.AppendLine("</table>")
+
+            correo.SendMail(EmpresaNotificaciones, CorreoNominista, "Notificacion por Alta de Nomina: " & NombreCompleto, Cuerpo.ToString)
+
+
+
+
+        End If
+
     End Sub
 
     'Private Sub MandaMails(Rutas As Object)