rh

App_Code/ClsPaginas.vb

@@ -5381,6 +5381,7 @@ Public Class ClsPaginas
             PaginaDict.Add("/RH/ReporteViaticos.aspx".ToUpper(), 664)
             PaginaDict.Add("/RH/MiPerfil.aspx".ToUpper(), -1) ' se dejará libre el módulo para que cualquier que tenga cvepersonal, pueda acceder
             PaginaDict.Add("/RH/CatChecadores.aspx".ToUpper(), 694)
+            PaginaDict.Add("/RH/CatRegistroPatronal.aspx".ToUpper(), 1324)
 #End Region
 #Region "Sistema"
             'Cargo las páginas que deben tener restricción

App_Code/ClsRH.vb

@@ -1870,7 +1870,8 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         Calle As String, NumExt As String, NumInt As String, Colonia As String, CP As String, Ciudad As String, CveEstado As Integer, Telefono As String, Celular As String, RFC As String, CURP As String,
         NombrePadre As String, NombreMadre As String, CveSATBanco As Integer, CveSATRiesgoPuesto As Integer, CveSATRegimenContratacion As Integer, CveClienteAsignado As Integer, CveSubProyecto As Integer, URL As String, CveSupervisor As Integer, CLABE As String, BancoNumCuenta As String,
         CveJornada As Integer, IdCtaContPersonal As Integer, CtaContPersonal As String, IdCtaContPrestamos As Integer, CtaContPrestamos As String, CveUsuario As Integer, CveEmpresa As Integer, CveUsuarioNomina As Integer, Optional CveSubProyectoZona As Integer = Nothing, Optional CveUniforme As Integer = -1,
-        Optional TelefonoExtension As String = "-1", Optional CelularPersonal As String = "-1", Optional TelefonoMarcadoRapido As String = "-1", Optional ContactoAlterno As String = "-1", Optional CveTipodeSalario As Integer = 1, Optional Sindicalizado As Boolean = False, Optional CvePais As Integer = -1, Optional Pensionado As Boolean = False, Optional CveMedioTransporte As Integer = -1) As Boolean
+        Optional TelefonoExtension As String = "-1", Optional CelularPersonal As String = "-1", Optional TelefonoMarcadoRapido As String = "-1", Optional ContactoAlterno As String = "-1", Optional CveTipodeSalario As Integer = 1, Optional Sindicalizado As Boolean = False, Optional CvePais As Integer = -1,
+        Optional Pensionado As Boolean = False, Optional CveMedioTransporte As Integer = -1, Optional CveRegistroPatronal As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -1955,6 +1956,9 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
             .Add("@Pensionado", SqlDbType.Bit).Value = Pensionado
             .Add("@CvePais", SqlDbType.Int).Value = CvePais
             .Add("@CveMedioTransporte", SqlDbType.Int).Value = CveMedioTransporte
+            .Add("@CveRegistroPatronal", SqlDbType.Int).Value = CveRegistroPatronal
+
+
 
             .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
 
@@ -1994,7 +1998,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         NombrePadre As String, NombreMadre As String, CveSATBanco As Integer, CveSATRiesgoPuesto As Integer, CveSATRegimenContratacion As Integer, CveClienteAsignado As Integer, CveSubProyecto As Integer, CvePersonal As Integer, URL As String, CveSupervisor As Integer, CLABE As String, BancoNumCuenta As String,
         CveJornada As Integer, IdCtaContPersonal As Integer, CtaContPersonal As String, IdCtaContPrestamos As Integer, CtaContPrestamos As String, CveEmpresa As Integer, CveUsuarioNomina As Integer, Optional CveSubProyectoZona As Integer = Nothing, Optional CveUniforme As Integer = -1,
         Optional TelefonoExtension As String = "-1", Optional CelularPersonal As String = "-1", Optional TelefonoMarcadoRapido As String = "-1", Optional ContactoAlterno As String = "-1", Optional CveUsuarioModifico As Integer = -1,
-        Optional FechaActivo As Date = MinFecha, Optional FechaReingreso As Date = MinFecha, Optional CveTipodeSalario As Integer = 1, Optional Sindicalizado As Integer = -1, Optional CvePais As Integer = -1, Optional Pensionado As Boolean = False) As Boolean
+        Optional FechaActivo As Date = MinFecha, Optional FechaReingreso As Date = MinFecha, Optional CveTipodeSalario As Integer = 1, Optional Sindicalizado As Integer = -1, Optional CvePais As Integer = -1, Optional Pensionado As Boolean = False, Optional CveRegistroPatronal As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -2082,6 +2086,9 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
             .Add("@Sindicalizado", SqlDbType.Int).Value = Sindicalizado
             .Add("@Pensionado", SqlDbType.Bit).Value = Pensionado
             .Add("@CvePais", SqlDbType.Int).Value = CvePais
+            .Add("@CveRegistroPatronal", SqlDbType.Int).Value = CveRegistroPatronal
+
+
 
         End With
 
@@ -7200,6 +7207,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         End Try
         Return Retorno
     End Function
+
     Public Function UpPersonalSupervisorMasiva(CveEmpresa As Integer, CveUsuario As Integer, registros As List(Of RequestUpSupervisorMasiva)) As Boolean
         Dim Retorno As Boolean = False
         Dim xmlProductos As System.Xml.Linq.XDocument = Nothing
@@ -7224,6 +7232,99 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         Return Retorno
     End Function
 
+
+
+    Public Function GetRegistrosPatronales(CveRegistroPatronal As Integer, CveEmpresa As Integer, Estatus As Integer) As Boolean
+
+
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_RH_RegistrosPatronalesGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveRegistroPatronal", SqlDbType.Int).Value = CveRegistroPatronal
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Estatus", SqlDbType.Int).Value = Estatus
+        End With
+        Try
+
+            SqlAdapter.Fill(Data)
+            Retorno = True
+
+        Catch ex As Exception
+            OnError("Ocurrió un error al consultar los registros patronales ", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
+    End Function
+
+
+    Public Function AddRegistrosPatronales(RegistroPatronal As String, Estatus As Boolean, CveEmpresa As Integer, CveUsuario As Integer) As Boolean
+
+
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_RH_RegistrosPatronalesAdd")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@RegistroPatronal", SqlDbType.VarChar).Value = RegistroPatronal
+            .Add("@Estatus", SqlDbType.Bit).Value = Estatus
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+        End With
+        Try
+
+            SqlAdapter.Fill(Data)
+            Retorno = True
+
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar el registro patronal ", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
+    End Function
+
+
+    Public Function UpdateRegistrosPatronales(CveRegistroPatronal As Integer, RegistroPatronal As String, Estatus As Boolean, CveEmpresa As Integer, CveUsuario As Integer) As Boolean
+
+
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_RH_RegistrosPatronalesUpdate")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveRegistroPatronal", SqlDbType.Int).Value = CveRegistroPatronal
+            .Add("@RegistroPatronal", SqlDbType.VarChar).Value = RegistroPatronal
+            .Add("@Estatus", SqlDbType.Bit).Value = Estatus
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+        End With
+        Try
+
+            SqlAdapter.Fill(Data)
+            Retorno = True
+
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar el registro patronal ", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
+    End Function
+
+
+    Public Function RemoveRegistrosPatronales(CveRegistroPatronal As Integer, CveEmpresa As Integer) As Boolean
+
+
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_RH_RegistrosPatronalesRemove")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveRegistroPatronal", SqlDbType.Int).Value = CveRegistroPatronal
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+
+            SqlAdapter.Fill(Data)
+            Retorno = True
+
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar el registro patronal ", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
+    End Function
+
+
+
     'Public msgsError As New StringBuilder()
     'Public Sub OnError(Mensaje As String, Exeption As Exception, Optional InfoAdicional As String = "")
     '    GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", Mensaje, Exeption.ToString, vbCrLf, InfoAdicional))

RH/CatRegistroPatronal.aspx

@@ -0,0 +1,106 @@
+<%@ Page Title="RH - Catálogo Registro Patronal" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatRegistroPatronal.aspx.vb" Inherits="RH_CatRegistroPatronal" %>
+
+<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
+    Catálogo Registro Patronal
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+    <asp:UpdatePanel runat="server" ID="UpAgregar">
+        <ContentTemplate>
+            <li>
+                <asp:LinkButton runat="server" ID="LnkAgregarRegistroPatronal" data-toggle="tooltip" data-placement="left" title="Agregar Registro Patronal" Text="<i class='fa fa-plus'></i> Agregar Registro Patronal"></asp:LinkButton>
+            </li>
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
+    <asp:UpdatePanel ID="UpTitulos" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+           
+        </ContentTemplate>
+    </asp:UpdatePanel>
+    <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            
+            <div class="row">
+        <div class="col-md-12">
+             <br />
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" Width="800px"
+                DataKeyNames="CveRegistroPatronal,RegistroPatronal,Estatus,CveEmpresa,FechaIng,CveUsuario" EmptyDataText="No se encontraron Registros Patronales" ToolTip="Listado de Registros Patronales"
+                CssClass="table table-striped table-advance table-hover"    GridLines="None">
+                <Columns>
+
+                    <asp:BoundField HeaderText="Registro Patronal" DataField="RegistroPatronal" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField HeaderText="Estatus" DataField="EstatusStr" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField HeaderText="Fecha" DataField="FechaIng"  ItemStyle-HorizontalAlign="Center"/>
+                    <asp:BoundField HeaderText="Usuario" DataField="Usuario" ItemStyle-HorizontalAlign="Left" />
+                        
+
+                    <asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="80px">
+                        <ItemTemplate>
+                            <asp:LinkButton ID="ImgE" OnClick="Edit_ClickRegistroPAtronal" runat="server" AlternateText="Editar" CausesValidation="False"
+                                CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField ItemStyle-HorizontalAlign="Left" ItemStyle-Width="80px">
+                        <ItemTemplate>
+                            <asp:LinkButton ID="imgD" OnClick="Remove_ClickRegistroPatronal" runat="server" AlternateText="Eliminar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
+                        </ItemTemplate>
+                    </asp:TemplateField>
+
+                </Columns>
+
+            </asp:GridView>
+
+        </div>
+    </div>
+            
+            
+         
+            
+            <div id="DVModalRegistroPatronal" class="modal ADS fade" role="dialog">
+                <div class="modal-dialog" style="width: 450px;">
+                    <asp:UpdatePanel runat="server" class="modal-content" ID="UpModalRegistroPAtronal" UpdateMode="Conditional">
+                        <ContentTemplate>
+                            <div class="modal-header ">
+                                <button type="button" class="close" data-dismiss="modal">×</button>
+                                <h4 class="modal-title">
+                                    <asp:Literal ID="LtlTituloModalAgregaRegsitroPatronal" runat="server">Agregar Registro Patronal</asp:Literal></h4>
+                            </div>
+                            <div class="modal-body">
+
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtRegistroPatronal" CssClass="form-control " runat="server" MaxLength="70" CausesValidation="true"></asp:TextBox>
+                                    <asp:RequiredFieldValidator ID="RfvTxtRegistroPatronal" runat="server" ControlToValidate="TxtRegistroPatronal" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Registro Patronal''</b> es necesario, por favor ingréselo." ValidationGroup="GrpRegistroPatronal"></asp:RequiredFieldValidator>
+                                    <label for="DepartamentoNewTxt">Registro Patronal:</label>
+                                    <i></i>
+                                </div>
+                                <br ID="saltoDeLinea" runat="server"/>
+                                <div ID="CheckActiveSection" runat="server" class="form-group form-md-line-input input-iconright">
+                                    <label for="ChkModalEstatus">Activo:</label>&nbsp;
+                                    <asp:CheckBox ID="ChkModalEstatus" runat="server" CssClass="make-switchsd" data-size="small" Text=" " Checked="true" />
+                                    <i></i>
+                                </div>
+                                <br />
+                            </div>
+                            <div class="modal-footer">
+                                <asp:Button ID="BtnModalAgregarRegistroPatronal" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpRegistroPatronal" />                                
+                                <button id="Button3" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
+                            </div>
+
+                        </ContentTemplate>
+                    </asp:UpdatePanel>
+                </div>
+            </div>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
+</asp:Content>

RH/CatRegistroPatronal.aspx.vb

@@ -0,0 +1,154 @@
+Option Explicit On
+Option Strict On
+
+Imports System.Data
+Imports System.Linq
+Imports Extensiones
+
+Partial Class RH_CatRegistroPatronal
+    Inherits ClsPaginas
+
+    Private Property CveRegistroPatronal() As Integer
+        Get
+            If ViewState("CveRegistroPatronal") Is Nothing Then
+                ViewState("CveRegistroPatronal") = -1
+            End If
+            Return ViewState("CveRegistroPatronal").ToString.ToEntero
+        End Get
+        Set
+            ViewState("CveRegistroPatronal") = Value
+        End Set
+    End Property
+
+
+
+    Protected Sub CatRegistroPatronal_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+
+
+            CargaDatos()
+
+        End If
+    End Sub
+
+    Public Sub CargaDatos()
+
+        Dim ObjRH As New ClsRH
+
+        If ObjRH.GetRegistrosPatronales(-1, UsuarioActual.CveEmpresa, -1) Then
+            GvDatos.DataSource = ObjRH.DtResultados
+
+        Else
+            GvDatos.DataSource = Nothing
+        End If
+
+        ObjRH.Dispose()
+        GvDatos.DataBind()
+        UpDatos.Update()
+
+    End Sub
+
+
+
+    Protected Sub BtnAgregarPuestoModal_Click(sender As Object, e As EventArgs) Handles BtnModalAgregarRegistroPatronal.Click
+
+        Dim ObjRH As New ClsRH
+        Dim ErrorProceso As Boolean = True
+
+        If CveRegistroPatronal = -1 Then
+            If ObjRH.AddRegistrosPatronales(TxtRegistroPatronal.Text, ChkModalEstatus.Checked, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
+                Alert("Registro Patronal correctamente.")
+                ErrorProceso = False
+            End If
+        Else
+            If ObjRH.UpdateRegistrosPatronales(CveRegistroPatronal, TxtRegistroPatronal.Text, ChkModalEstatus.Checked, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
+                Alert("Registro Patronal actualizado correctamente.")
+                ErrorProceso = False
+            End If
+        End If
+
+
+        CveRegistroPatronal = -1
+        ObjRH.Dispose()
+
+
+        If Not ErrorProceso Then
+            CargaDatos()
+            RegistraScript(String.Format("$('#{0}').modal('hide');", "DVModalRegistroPatronal"))
+        End If
+
+
+    End Sub
+
+    Public Sub Remove_ClickRegistroPatronal(sender As Object, e As EventArgs)
+
+        Dim Errorelimiancion As Boolean = True
+        Dim objRH As New ClsRH
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+        Dim CveRegistroPatronalEliminar As Integer = GvRow.DataKey("CveRegistroPatronal").ToEntero
+
+        If objRH.RemoveRegistrosPatronales(CveRegistroPatronalEliminar, UsuarioActual.CveEmpresa) Then
+            Alert("Registro Patronal Eliminado correctamente.")
+            Errorelimiancion = False
+        End If
+
+        objRH.Dispose()
+
+        If Not Errorelimiancion Then
+            CargaDatos()
+        End If
+
+
+    End Sub
+
+    Public Sub Edit_ClickRegistroPAtronal(sender As Object, e As EventArgs)
+
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+
+
+        CveRegistroPatronal = GvRow.DataKey("CveRegistroPatronal").ToEntero
+        TxtRegistroPatronal.Text = GvRow.DataKey("RegistroPatronal")
+
+        LtlTituloModalAgregaRegsitroPatronal.Text = "Editar Registro Patronal"
+
+
+        ChkModalEstatus.Checked = Boolean.Parse(GvRow.DataKey("Estatus").ToString)
+
+        BtnModalAgregarRegistroPatronal.Text = "Actualizar"
+
+        UpModalRegistroPAtronal.Update()
+        RegistraScript(String.Format("$('#{0}').modal();", "DVModalRegistroPatronal"))
+
+    End Sub
+
+    Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+        End If
+    End Sub
+
+    Protected Sub LnkAgregarRegistroPatronal_Click(sender As Object, e As EventArgs) Handles LnkAgregarRegistroPatronal.Click
+
+
+        CveRegistroPatronal = -1
+        TxtRegistroPatronal.Text = ""
+        LtlTituloModalAgregaRegsitroPatronal.Text = "Agregar Registro Patronal"
+        ChkModalEstatus.Checked = True
+
+
+        BtnModalAgregarRegistroPatronal.Text = "Agregar"
+
+        'Combos
+
+        UpModalRegistroPAtronal.Update()
+
+        RegistraScript(String.Format("$('#{0}').modal();", "DVModalRegistroPatronal"))
+    End Sub
+
+
+
+
+
+End Class

RH/Personal.aspx

@@ -1457,6 +1457,15 @@
                                                         <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="GrpGuardar"></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 class="form-group form-md-line-input input-iconright">
                                                         <asp:TextBox CssClass="form-control" ID="TxtNumeroSS" runat="server" MaxLength="11"></asp:TextBox>
                                                         <asp:Label runat="server" AssociatedControlID="TxtNumeroSS" Text="Número de Seguridad Social:"></asp:Label>

RH/Personal.aspx.vb

@@ -856,6 +856,7 @@ Partial Class RH_Personal
             CargaCombosBuzon()
             CargaPermisosReemplazos()
             CargaPaises()
+            CargaRegistroPatronal()
 
             If Request("CvePersonal") IsNot Nothing AndAlso IsNumeric(Request("CvePersonal")) AndAlso Request("CvePersonal").ToEntero() > 0 Then
                 ViewState("CvePersonal") = Request("CvePersonal")
@@ -1354,6 +1355,24 @@ Partial Class RH_Personal
 
     End Sub
 
+
+    Private Sub CargaRegistroPatronal()
+
+        Dim ObjRH As New ClsRH
+
+        If ObjRH.GetRegistrosPatronales(-1, UsuarioActual.CveEmpresa, 1) Then
+            DdlRegistroPatronal.DataSource = ObjRH.DtResultados
+        Else
+            DdlRegistroPatronal.DataSource = Nothing
+        End If
+
+        ObjRH.Dispose()
+
+        DdlRegistroPatronal.DataBind()
+        DdlRegistroPatronal.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+
+    End Sub
+
 #End Region
 
 #Region "Asistencias"
@@ -1654,7 +1673,7 @@ Partial Class RH_Personal
                 DdlPais.SelectedValueExist(ObjPersonal.DtResultados.Rows(0)("CvePais").ToString)
 
 
-
+                DdlRegistroPatronal.SelectedValueExist(ObjPersonal.DtResultados.Rows(0)("CveRegistroPatronal").ToString)
 
                 'Carga Incidencias
                 BtnConsultarAsistencia_Click(Me, New System.EventArgs)
@@ -1828,7 +1847,8 @@ Partial Class RH_Personal
                DdlClienteAsignado.SelectedValue.ToEntero(), DdlSubProyectoAsignado.SelectedValue.ToEntero(), 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.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()) Then
+               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
 
                 If Archivo.Exists Then
 
@@ -1903,7 +1923,7 @@ 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()) Then
+               CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), Sindicalizado:=If(ChkSindicalizado.Checked, 1, 0), Pensionado:=ChkPensionado.Checked, CvePais:=DdlPais.SelectedValue.ToEntero(), CveRegistroPatronal:=DdlRegistroPatronal.SelectedValue.ToEntero()) Then
 
                 'Funsion usa RH Familiares
                 If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then