RH/CatPersonal.aspx

@@ -1040,6 +1040,13 @@
                                                     <asp:Label runat="server" AssociatedControlID="DdlRiesgoPuesto" Text="Riesgo Puesto:"></asp:Label>
                                                     <asp:RequiredFieldValidator ID="RFVRiesgoPuesto" runat="server" ControlToValidate="DdlRiesgoPuesto" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Riesgo Puesto''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardarAddS"></asp:RequiredFieldValidator>
                                                 </div>
+                                                
+                                                    <div class="form-group form-md-line-input input-iconright">
+                                                        <asp:DropDownList ID="DdlRegistroPatronal" runat="server" Width="100%" DataTextField="RegistroPatronal" CssClass="form-control input-sm select2me" DataValueField="CveRegistroPatronal">
+                                                        </asp:DropDownList>
+                                                        <asp:Label runat="server" AssociatedControlID="DdlRegistroPatronal" Text="Registro Patronal:"></asp:Label>
+                                                        <%--<asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="DdlRiesgoPuesto" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Riesgo Puesto''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>--%>
+                                                    </div>
                                             </div>
                                             <div class="col-md-3">
                                                 <div class="form-group form-md-line-input input-iconright">

RH/CatPersonal.aspx.vb

@@ -65,6 +65,15 @@ Partial Class RH_CatPersonal
             CargaMedioTransporte()
             LoadDefaultValues()
 
+            Dim ObjRH As New ClsRH
+
+            If ObjRH.GetRegistrosPatronales(-1, UsuarioActual.CveEmpresa, 1) Then
+                DdlRegistroPatronal.DataSource = ObjRH.DtResultados
+            Else
+                DdlRegistroPatronal.DataSource = Nothing
+            End If
+            DdlRegistroPatronal.DataBind()
+            ObjRH.Dispose()
 
             ' GvDatos.Rows(0).FCLabel("LtlSubProyectoConfigurado").Text = LblSubProyectoAsignado.Text
             If Not IsNothing(GvDatos.HeaderRow) AndAlso Not IsNothing(GvDatos.HeaderRow.Cells) AndAlso GvDatos.HeaderRow.Cells.Count > 0 Then
@@ -1029,6 +1038,7 @@ Partial Class RH_CatPersonal
         crow = 1
         ccol = 1
 
+
         libro.Cell(crow, ccol).Value = "Código" : ccol = ccol + 1
         libro.Cell(crow, ccol).Value = "Apellido Paterno" : ccol = ccol + 1
         libro.Cell(crow, ccol).Value = "Apellido Materno" : ccol = ccol + 1
@@ -1064,14 +1074,15 @@ Partial Class RH_CatPersonal
         libro.Cell(crow, ccol).Value = "Tipo Salario" : libro.Range(crow + 1, ccol, 50000, ccol).SetDataValidation().List(Catalogos.Range(2, colTipoSalario, rowTipoSalario, colTipoSalario), True) : ccol = ccol + 1
         libro.Cell(crow, ccol).Value = "Salario variable" : ccol = ccol + 1
         libro.Cell(crow, ccol).Value = "Sindicalizado" : libro.Range(crow + 1, ccol, 50000, ccol).SetDataValidation().List(Catalogos.Range(2, colsindicalizado, rowsindicalizado, colsindicalizado), True) : ccol = ccol + 1
-        libro.Cell(crow, ccol).Value = "SubProyecto " : libro.Range(crow + 1, ccol, 50000, ccol).SetDataValidation().List(Catalogos.Range(2, colsubproyecto, rowsubproyecto, colsubproyecto), True) : ccol = ccol + 1
+        libro.Cell(crow, ccol).Value = "SubProyecto" : libro.Range(crow + 1, ccol, 50000, ccol).SetDataValidation().List(Catalogos.Range(2, colsubproyecto, rowsubproyecto, colsubproyecto), True) : ccol = ccol + 1
         libro.Cell(crow, ccol).Value = "RegimenContratacion" : libro.Range(crow + 1, ccol, 50000, ccol).SetDataValidation().List(Catalogos.Range(2, colRegimenContratacion, rowRegimenContratacion, colRegimenContratacion), True) : ccol = ccol + 1
         libro.Cell(crow, ccol).Value = "Area Geografica" : libro.Range(crow + 1, ccol, 50000, ccol).SetDataValidation().List(Catalogos.Range(2, colAreaGeografica, rowAreaGeografica, colAreaGeografica), True) : ccol = ccol + 1
         libro.Cell(crow, ccol).Value = "Prima vacacional" : ccol = ccol + 1
         libro.Cell(crow, ccol).Value = "Dias aguinaldo" : ccol = ccol + 1
         libro.Cell(crow, ccol).Value = "Metodo Pago" : libro.Range(crow + 1, ccol, 50000, ccol).SetDataValidation().List(Catalogos.Range(2, colmetodopago, rowmetodopago, colmetodopago), True) : ccol = ccol + 1
-
-
+        libro.Cell(crow, ccol).Value = "SDI" : ccol = ccol + 1
+        libro.Cell(crow, ccol).Value = "Nominista" : ccol = ccol + 1
+        libro.Cell(crow, ccol).Value = "Registro Patronal" : ccol = ccol + 1
 
 
         libro.Range(crow, 1, crow, ccol - 1).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189))
@@ -1174,7 +1185,7 @@ Partial Class RH_CatPersonal
                    DdlSupervisor.SelectedValue.ToEntero, "", "", DdlJornada.SelectedValue.ToEntero, -1, "-1",
                    0, "Seleccione", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, CveUniforme:=-1,
                    TelefonoExtension:="", CelularPersonal:="", TelefonoMarcadoRapido:="", ContactoAlterno:="", CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), Sindicalizado:=isSindicalizado, CvePais:=151,
-                   CveMedioTransporte:=DdlMedioTransporte.SelectedValue.ToEntero()
+                   CveMedioTransporte:=DdlMedioTransporte.SelectedValue.ToEntero(), CveRegistroPatronal:=DdlRegistroPatronal.SelectedValue.ToEntero()
                 ) Then
                 Dim filesgral As List(Of Archivo) = TxtFoto.getfiles().Archivos
                 Dim filemove As String = ""

RH/Personal.aspx

@@ -387,7 +387,7 @@
 
                                                                         <asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Bene.">
                                                                             <ItemTemplate>
-                                                                                <asp:CheckBox runat="server" ID="ChkBeneficiario" Checked='<%# Eval("Beneficiario")%>' Enabled="false" />
+                                                                                <asp:CheckBox runat="server" ID="ChkBeneficiario" Checked='<%# (Eval("Beneficiario").ToString().ToUpper() = "TRUE") Or (Eval("Beneficiario").ToString() = "1") %>' Enabled="false" />
                                                                             </ItemTemplate>
                                                                         </asp:TemplateField>
 

RH/Personal.aspx.vb

@@ -1053,6 +1053,13 @@ Partial Class RH_Personal
                 Dim drow As DataRow = dt.NewRow()
                 drow("CveTipoTrabajador") = "-1"
                 drow("TipoTrabajadorB") = "Seleccione"
+                If UsuarioActual.CveEmpresa <> 158 Then
+                    drow("CveTipoTrabajador") = "2"
+                    drow("TipoTrabajadorB") = "Operativo"
+                    drow("CveTipoTrabajador") = "3"
+                    drow("TipoTrabajadorB") = "Administrativo"
+
+                End If
                 dt.Rows.InsertAt(drow, 0)
                 If DdlTipoTrabajador.Items.Count() > 0 Then
                     DdlTipoTrabajador.SelectedValueExist("-1")