Merge branch 'master' of http://192.168.10.111:8383/SIG

App_Code/ClsInventarios.vb

@@ -1702,13 +1702,13 @@ Public Class ClsInventarios
         Return Retorno
     End Function
 
-    Public Function RepTraspasoAlmacen(FechaI As String, FechaF As String, CveAlmacenOrigen As Integer, CveAlmacenDestino As Integer, Recibido As Boolean, CveEmpresa As Integer) As Boolean
+    Public Function RepTraspasoAlmacen(FechaI As Date, FechaF As Date, CveAlmacenOrigen As Integer, CveAlmacenDestino As Integer, Recibido As Boolean, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_RepTraspasoAlmacen")
 
         With SqlAdapter.SelectCommand.Parameters
-            .Add("@FechaI", SqlDbType.VarChar).Value = FechaI
+            .Add("@FechaI", SqlDbType.Date).Value = FechaI
-            .Add("@FechaF", SqlDbType.VarChar).Value = FechaF
+            .Add("@FechaF", SqlDbType.Date).Value = FechaF
             .Add("@CveAlmacenOrigen", SqlDbType.Int).Value = CveAlmacenOrigen
             .Add("@CveAlmacenDestino", SqlDbType.Int).Value = CveAlmacenDestino
             .Add("@Recibido", SqlDbType.Bit).Value = Recibido

App_Code/ClsRH.vb

@@ -3299,7 +3299,8 @@ Public Class ClsRH
             .Add("@CveTurno", SqlDbType.Int).Value = RHRequerido.CveTurno
             .Add("@Cantidad", SqlDbType.Int).Value = RHRequerido.Cantidad
             .Add("@CveUsuario", SqlDbType.Int).Value = RHRequerido.CveUsuario
-            .Add("@CveEmpresa", SqlDbType.Int).Value = RHRequerido.CveEmpresa
+            .Add("@CveEmpresa", SqlDbType.Int).Value = RHRequerido.CveEmpresa
+            .Add("@CveDepartamento", SqlDbType.Int).Value = RHRequerido.CveDepartamento
         End With
 
         Try
@@ -3320,7 +3321,9 @@ Public Class ClsRH
             .Add("@CveRequerimiento", SqlDbType.Int).Value = RHRequerido.CveRequerimiento
             .Add("@CveSubProyecto", SqlDbType.Int).Value = RHRequerido.CveSubProyecto
             .Add("@CveTurno", SqlDbType.Int).Value = RHRequerido.CveTurno
-            .Add("@Cantidad", SqlDbType.Int).Value = RHRequerido.Cantidad
+            .Add("@Cantidad", SqlDbType.Int).Value = RHRequerido.Cantidad
+            .Add("@CveEmpresa", SqlDbType.Int).Value = RHRequerido.CveEmpresa
+            .Add("@CveDepartamento", SqlDbType.Int).Value = RHRequerido.CveDepartamento
         End With
 
         Try
@@ -3332,12 +3335,16 @@ Public Class ClsRH
 
         Return Retorno
     End Function
-    Public Function RemovePersonalRequerido(CveRequerimiento As Integer) As Boolean
+    Public Function RemovePersonalRequerido(CveRequerimiento As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
-
+
-        DataAdapter("PA_RH_PersonalRequeridoRemove")
+        DataAdapter("PA_RH_PersonalRequeridoRemove")
-
+
-        SqlAdapter.SelectCommand.Parameters.Add("@CveRequerimiento", SqlDbType.Int).Value = CveRequerimiento
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveRequerimiento", SqlDbType.Int).Value = CveRequerimiento
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+
+        End With
 
 
         Try
@@ -3354,12 +3361,12 @@ Public Class ClsRH
         End Try
 
         Return Retorno
-    End Function
+    End Function
-
+
 #End Region
-
+
 #Region "ClsRHReportePersonalNecesidades"
-    Public Function GetReportePersonalNecesidades(CveTurno As Integer, CveProyecto As Integer, tCveSubProyeto As Integer, Estatus As Integer, CveEmpresa As Integer) As Boolean
+    Public Function GetReportePersonalNecesidades(CveTurno As Integer, CveProyecto As Integer, tCveSubProyeto As Integer, Estatus As Integer, CveEmpresa As Integer, CveDepartamento As Integer) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_RH_Rep_NecesidadesPersonal")
@@ -3369,6 +3376,7 @@ Public Class ClsRH
             .Add("@CveSubProyecto", SqlDbType.Int).Value = tCveSubProyeto
             .Add("@Estatus", SqlDbType.Int).Value = Estatus
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveDepartamento", SqlDbType.Int).Value = CveDepartamento
         End With
 
         Try
@@ -3378,9 +3386,9 @@ Public Class ClsRH
             OnError("Ocurrió un error al obtener el Reporte de Necesidades de Personal", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
         End Try
         Return Retorno
-    End Function
+    End Function
 #End Region
-
+
 #Region "ClsRHReporteRotacionPersonal"
     Public Function GetReporteRotacionPersonal(FechaInicio As Date, FechaFin As Date, CveTurno As Integer, CveProyecto As Integer, CveSubProyeto As Integer, CveEmpresa As Integer) As Boolean
 
@@ -4287,7 +4295,7 @@ Public Class ClsRH
 
     End Function
 
-    Public Function PersonalFamiliaresAdd(CvePersonal As Integer, Parentestco As Integer, Nombre As String, Domicilio As String, Edad As Integer, Ocupacion As String, CveUsuario As Integer, CveEmpresa As Integer, Telefono As String, Observaciones As String) As Boolean
+    Public Function PersonalFamiliaresAdd(CvePersonal As Integer, Parentestco As Integer, Nombre As String, Domicilio As String, Edad As Integer, Ocupacion As String, CveUsuario As Integer, CveEmpresa As Integer, Telefono As String, Observaciones As String, Optional Beneficiario As Boolean = False) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_RH_PersonalFamiliaresAdd")
@@ -4302,7 +4310,9 @@ Public Class ClsRH
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@Telefono", SqlDbType.VarChar).Value = Telefono
-            .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
+            .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
+            .Add("@Beneficiario", SqlDbType.Bit).Value = Beneficiario
+
         End With
 
         Try
@@ -4318,7 +4328,7 @@ Public Class ClsRH
     End Function
 
 
-    Public Function PersonalFamiliaresUpdate(CveFamiliar As Integer, CvePersonal As Integer, Parentestco As Integer, Nombre As String, Domicilio As String, Edad As Integer, Ocupacion As String, CveUsuario As Integer, CveEmpresa As Integer, Telefono As String, Observaciones As String) As Boolean
+    Public Function PersonalFamiliaresUpdate(CveFamiliar As Integer, CvePersonal As Integer, Parentestco As Integer, Nombre As String, Domicilio As String, Edad As Integer, Ocupacion As String, CveUsuario As Integer, CveEmpresa As Integer, Telefono As String, Observaciones As String, Optional Beneficiario As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_RH_PersonalFamiliaresUpdate")
@@ -4335,6 +4345,9 @@ Public Class ClsRH
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@Telefono", SqlDbType.VarChar).Value = Telefono
             .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
+            .Add("@Beneficiario", SqlDbType.Int).Value = Beneficiario
+
+
         End With
 
         Try

App_Code/ClsVentas.vb

@@ -2452,13 +2452,13 @@ Public Class ClsVentas
 
         Return Retorno
     End Function
-    Public Function GetRepCotizacionesSinFacturar(FechaI As String, FechaF As String, CveSubProyecto As String, CveCliente As Integer, CveEmpresa As Integer, Optional CveUsuarioConsulta As Integer = -1) As Boolean
+    Public Function GetRepCotizacionesSinFacturar(FechaI As Date, FechaF As Date, CveSubProyecto As String, CveCliente As Integer, CveEmpresa As Integer, Optional CveUsuarioConsulta As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_RepCotizacionesSinFacturarGet")
 
         With SqlAdapter.SelectCommand.Parameters
-            .Add("@FechaI", SqlDbType.VarChar).Value = FechaI
+            .Add("@FechaI", SqlDbType.Date).Value = FechaI
-            .Add("@FechaF", SqlDbType.VarChar).Value = FechaF
+            .Add("@FechaF", SqlDbType.Date).Value = FechaF
             .Add("@CveSubProyecto", SqlDbType.VarChar).Value = CveSubProyecto
             .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
@@ -2474,13 +2474,13 @@ Public Class ClsVentas
 
         Return Retorno
     End Function
-    Public Function GetRepRemisionesNCSinFacturar(FechaI As String, FechaF As String, CveSubProyecto As String, CveCliente As Integer, CveEmpresa As Integer, Optional CveUsuarioConsulta As Integer = -1) As Boolean
+    Public Function GetRepRemisionesNCSinFacturar(FechaI As Date, FechaF As Date, CveSubProyecto As String, CveCliente As Integer, CveEmpresa As Integer, Optional CveUsuarioConsulta As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_RepRemisionesNCGet")
 
         With SqlAdapter.SelectCommand.Parameters
-            .Add("@FechaI", SqlDbType.VarChar).Value = FechaI
+            .Add("@FechaI", SqlDbType.Date).Value = FechaI
-            .Add("@FechaF", SqlDbType.VarChar).Value = FechaF
+            .Add("@FechaF", SqlDbType.Date).Value = FechaF
             .Add("@CveSubProyecto", SqlDbType.VarChar).Value = CveSubProyecto
             .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa

App_Code/Modelos.vb

@@ -8599,6 +8599,7 @@ Namespace Modelos
             CveTurno = -1
             CveUsuario = -1
             CveEmpresa = -1
+            CveDepartamento = -1
         End Sub
         Public Property CveRequerimiento As Integer
         Public Property CveProyecto As Integer
@@ -8612,7 +8613,8 @@ Namespace Modelos
         Public Property FechaActualizacion As DateTime
         Public Property CveUsuario As Integer
         Public Property Usuario As String
-        Public Property CveEmpresa As Integer
+        Public Property CveEmpresa As Integer
+        Public Property CveDepartamento As Integer
 
     End Class
 #End Region

Compras/Compras.aspx.vb

@@ -11980,7 +11980,7 @@ Partial Class Compras_Compras
             IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
             CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero
             IdCuentaBancariaComplementaria = dr("IdCtaContableComplementaria").ToString.ToEntero
-            CveCuentaBancariaComplementaria = dr("IdCtaContableSIGComplementaria").ToString.ToEntero
+            CveCuentaBancariaComplementaria = dr("IdCtaContableComplementariaSIG").ToString.ToEntero
             If dr("UsaTarjeta").ToString = "True" Then
                 CargaGridTarjetas()
             Else

Inventarios/RepTraspasoAlmacen.aspx

@@ -186,7 +186,7 @@
     </div>
     <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró ningun corte"
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró ningun Traspaso de Almacén"
                 ToolTip="Remisiones sin Facturar"
                 CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
                 data-sort="true" Style="text-align: center;" GridLines="None">

Inventarios/RepTraspasoAlmacen.aspx.vb

@@ -53,7 +53,7 @@ Partial Class RepTraspasoAlmacen
 #End Region
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
-            txtFechaI.Text = Now.Day.ToString + "/" + (Now.Month - 6).ToString + "/" + Now.Year.ToString
+            txtFechaI.Text = Now.ToShortDateString
             txtFechaF.Text = Now.ToShortDateString
 
             CargaAlmacenOrigen()
@@ -68,13 +68,13 @@ Partial Class RepTraspasoAlmacen
     Public Sub CargaDatos()
         Dim ObjInventarios As New ClsInventarios
 
-        FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1")
+        FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), MinFecha.ToShortDateString)
-        FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
+        FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), MaxFecha.ToShortDateString)
         'CveCliente = If(DdlClientes.SelectedValue.ToEntero > 0, DdlClientes.SelectedValue.ToEntero, -1)
 
         'Sucursales = IIf(DdlSubProyectos.GetSelectedValuesM = "", "-1", DdlSubProyectos.GetSelectedValuesM).ToString
 
-        If ObjInventarios.RepTraspasoAlmacen(FechaI, FechaF, DdlAlmacenOrigen.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero, ChkRecibido.Checked, UsuarioActual.CveEmpresa) Then
+        If ObjInventarios.RepTraspasoAlmacen(FechaI.ToDate, FechaF.ToDate, DdlAlmacenOrigen.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero, ChkRecibido.Checked, UsuarioActual.CveEmpresa) Then
             GvDatos.DataSource = ObjInventarios.DtResultados
             DtInventarios = ObjInventarios.DtResultados
             GvDatos.DataBind()

RH/CatPersonalRequerido.aspx

@@ -81,19 +81,28 @@
                 <asp:UpdatePanel ID="UPGVDatos" runat="server" UpdateMode="Conditional">
                     <ContentTemplate>
 
-                        <asp:GridView ID="GVDatos" runat="server" GridLines="None" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" AutoGenerateColumns="false" data-sort="true" EmptyDataText="No se encontraron registros"
+                        <asp:GridView ID="GVDatos" runat="server" GridLines="None" CssClass="table table-striped table-advance table-hover  ScrollAD" AutoGenerateColumns="false" data-sort="true" EmptyDataText="No se encontraron registros"
-                            DataKeyNames="CveRequerimiento,Cantidad,Proyecto,CveProyecto,SubProyecto,CveSubProyecto,Turno,CveTurno,Usuario,CveUsuario,CveEmpresa,FechaIngreso,FechaActualizacion">
+                            DataKeyNames="CveRequerimiento,Cantidad,Proyecto,CveProyecto,SubProyecto,CveSubProyecto,Turno,CveTurno,Usuario,CveUsuario,CveEmpresa,FechaIngreso,FechaActualizacion,CveDepartamento"
+                            Width="1000px" >
                             <Columns>
                                 <asp:TemplateField HeaderText="Proyecto">
                                     <ItemTemplate>
                                         <asp:Label runat="server" Text='<%# Eval("Proyecto", "{0}") %>'></asp:Label>
                                     </ItemTemplate>
                                 </asp:TemplateField>
+                                
                                 <asp:TemplateField HeaderText="SubProyecto">
                                     <ItemTemplate>
                                         <asp:Label runat="server" Text='<%# Eval("SubProyecto", "{0}") %>'></asp:Label>
                                     </ItemTemplate>
                                 </asp:TemplateField>
+
+                                <asp:TemplateField HeaderText="Departamento">
+                                    <ItemTemplate>
+                                        <asp:Label runat="server" Text='<%# Eval("Departamento", "{0}") %>'></asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+
                                 <asp:TemplateField HeaderText="Turno">
                                     <ItemTemplate>
                                         <asp:Label runat="server" Text='<%# Eval("Turno", "{0}") %>'></asp:Label>
@@ -157,6 +166,22 @@
 
                                 <br />
 
+
+                                 <div class="form-group form-md-line-input input-iconright" style="width: 170px!important">
+                                    
+                                      <asp:DropDownList ID="DdlDepartamento" runat="server" AppendDataBoundItems="True" DataTextField="Departamento" DataValueField="CveDepartamento" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar" Width="250px">
+                                                            <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                                        </asp:DropDownList>
+
+                                    <asp:RequiredFieldValidator ID="RFVDdlDepartamento" InitialValue="-1" runat="server" ControlToValidate="DdlDepartamento" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Departamento''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                    <ajax:ValidatorCalloutExtender ID="CERFVDdlDepartamento" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlDepartamento" Width="300px"></ajax:ValidatorCalloutExtender>
+                                    <label for="<%= ReqTurnoDdl.ClientID.ToString()%>">Departamento:</label>
+                                    <i></i>
+                                </div>
+
+                                <br />
+
+
                                 <div class="form-group form-md-line-input input-iconright" style="width: 170px!important">
                                     <asp:DropDownList ID="ReqTurnoDdl" runat="server" DataTextField="Turno" DataValueField="CveTurno" CssClass="form-control input-sm select2me" Class="table-group-action-input form-control input-inline input-small input-sm" Width="250px" AutoPostBack="true"></asp:DropDownList>
                                     <asp:RequiredFieldValidator ID="RFVTurno" InitialValue="-1" runat="server" ControlToValidate="ReqTurnoDdl" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Turno''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>

RH/CatPersonalRequerido.aspx.vb

@@ -94,6 +94,11 @@ Partial Class RH_CatPersonalRequerido
     Private Sub CargaTurno()
         ReqTurnoDdl.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
         ReqTurnoDdl.DataBind()
+    End Sub
+
+    Private Sub CargaDepartamento()
+        DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlDepartamento.DataBind()
     End Sub
 
     Protected Sub BtnAgregarPersonalReqModal_Click(sender As Object, e As EventArgs) Handles BtnAgregarPersonalReqModal.Click
@@ -108,12 +113,14 @@ Partial Class RH_CatPersonalRequerido
             RHRequerido.Cantidad = TxtCantidad.Text.ToEntero
             RHRequerido.CveUsuario = UsuarioActual.CveUsuario
             RHRequerido.CveEmpresa = UsuarioActual.CveEmpresa
+            RHRequerido.CveDepartamento = DdlDepartamento.SelectedValue.ToEntero
 
             If ObjRH.AddPersonalRequerido(RHRequerido) Then
 
                 ReqProyectoDdl.SelectedValueExist(-1)
                 ReqSubProyectoDdl.SelectedValueExist(-1)
-                ReqTurnoDdl.SelectedValueExist(-1)
+                ReqTurnoDdl.SelectedValueExist(-1)
+                DdlDepartamento.SelectedValueExist(-1)
                 TxtCantidad.Text = ""
 
                 CargadatosGvPersonalReq()
@@ -131,12 +138,16 @@ Partial Class RH_CatPersonalRequerido
             RHRequerido.CveTurno = ReqTurnoDdl.SelectedValue.ToEntero
             RHRequerido.Cantidad = TxtCantidad.Text.ToEntero
             RHRequerido.CveRequerimiento = CveRequerimiento
+            RHRequerido.CveDepartamento = DdlDepartamento.SelectedValue.ToEntero
 
             If ObjRH.UpdatePersonalRequerido(RHRequerido) Then
 
                 ReqProyectoDdl.SelectedValueExist(-1)
                 ReqSubProyectoDdl.SelectedValueExist(-1)
-                ReqTurnoDdl.SelectedValueExist(-1)
+                ReqTurnoDdl.SelectedValueExist(-1)
+                DdlDepartamento.SelectedValueExist(-1)
+                DdlDepartamento.SelectedValueExist(-1)
+
                 TxtCantidad.Text = ""
 
                 CargadatosGvPersonalReq()
@@ -164,7 +175,8 @@ Partial Class RH_CatPersonalRequerido
         Dim CveReq As Integer = GvRow.DataKey("CveRequerimiento")
 
         Dim ObjRH As New ClsRH
-        If ObjRH.RemovePersonalRequerido(CveReq) Then
+
+        If ObjRH.RemovePersonalRequerido(CveReq, UsuarioActual.CveEmpresa) Then
             CargadatosGvPersonalReq()
 
             Alert("El personal requerido se eliminó correctamente ", TipoMensaje.MsgInformacion)
@@ -189,13 +201,19 @@ Partial Class RH_CatPersonalRequerido
         CveRequerimiento = GvRow.DataKey("CveRequerimiento")
 
         CargaProyectos()
+        CargaTurno()
+        CargaDepartamento()
+
         ReqProyectoDdl.SelectedValueExist(GvRow.DataKey("CveProyecto").ToEntero)
         CargaSubProyectos(GvRow.DataKey("CveProyecto").ToEntero, ReqSubProyectoDdl)
-        ReqSubProyectoDdl.SelectedValueExist(GvRow.DataKey("CveSubProyecto").ToEntero)
+        ReqSubProyectoDdl.SelectedValueExist(GvRow.DataKey("CveSubProyecto").ToEntero)
-        CargaTurno()
+
         ReqTurnoDdl.SelectedValueExist(GvRow.DataKey("CveTurno").ToEntero)
-        TxtCantidad.Text = GvRow.DataKey("Cantidad").ToEntero
+        TxtCantidad.Text = GvRow.DataKey("Cantidad").ToEntero
-
+
+        DdlDepartamento.SelectedValueExist(GvRow.DataKey("CveDepartamento").ToEntero)
+
+
         BtnAgregarPersonalReqModal.Text = "Actualizar"
 
         UpModalPersonalReq.Update()

RH/Personal.aspx

@@ -70,7 +70,17 @@
         </ContentTemplate>
     </asp:UpdatePanel>
 
-    <%-- añlsdkjlasjdlkasjdkas--%>
+    <asp:UpdatePanel runat="server" ID="UpFamiliaresAcciones">
+        <ContentTemplate>
+
+            <li style="text-align: left!important" runat="server" id="LIFamiliaresAcciones" visible="false">
+                <asp:LinkButton runat="server" ID="BtnAgregarFamiliar" CssClass=" " data-html="true" data-toggle="tooltip" data-placement="left" title="Agregar<br/>Familiares" Text="<i class='fa fa-plus'></i> Agregar Familiar"></asp:LinkButton>
+            </li>
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+  
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
     <asp:Literal ID="LtlTitulo" runat="server" Text="Registro de Personal"></asp:Literal>&nbsp;<asp:Literal ID="LtlPersonal" runat="server"></asp:Literal>
@@ -259,15 +269,69 @@
                                                         <label for="<%= TxtLugarNacimiento.ClientID.ToString()%>">Lugar de Nacimiento: </label>
                                                         <i></i>
                                                     </div>
-                                                    <div class="form-group form-md-line-input input-iconright">
+
-                                                        <asp:TextBox CssClass="form-control" ID="TxtNombrePadre" runat="server" MaxLength="50"></asp:TextBox>
+                                                    
-                                                        <label for="<%= TxtNombrePadre.ClientID.ToString()%>">Nombre del Padre: </label>
+                                                    <div runat="server" id="DivPadres" visible="true">
-                                                        <i></i>
+                                                        <div class="form-group form-md-line-input input-iconright">
-                                                    </div>
+                                                            <asp:TextBox CssClass="form-control" ID="TxtNombrePadre" runat="server" MaxLength="50"></asp:TextBox>
-                                                    <div class="form-group form-md-line-input input-iconright">
+                                                            <label for="<%= TxtNombrePadre.ClientID.ToString()%>">Nombre del Padre: </label>
-                                                        <asp:TextBox CssClass="form-control" ID="TxtNombreMadre" runat="server" MaxLength="50"></asp:TextBox>
+                                                            <i></i>
-                                                        <label for="<%= TxtNombreMadre.ClientID.ToString()%>">Nombre de la Madre: </label>
+                                                        </div>
-                                                        <i></i>
+
+                                                        <div class="form-group form-md-line-input input-iconright">
+                                                            <asp:TextBox CssClass="form-control" ID="TxtNombreMadre" runat="server" MaxLength="50"></asp:TextBox>
+                                                            <label for="<%= TxtNombreMadre.ClientID.ToString()%>">Nombre de la Madre: </label>
+                                                            <i></i>
+                                                        </div>
+                                                    </div>                                                                                                        
+                                                    <br />
+                                                    <div runat="server" id="DivFamiliares" visible="false">
+
+                                                        <asp:UpdatePanel ID="UPTabFamiliares" runat="server" UpdateMode="Conditional">
+                                                            <ContentTemplate>
+                                                                <asp:GridView ID="GvFamiliares" runat="server" AutoGenerateColumns="False" DataKeyNames="CveFamiliar,Parentesco,Nombre,Domicilio,Edad,Ocupacion,CveParentesco,Telefono,Observaciones,Beneficiario"
+                                                                    EmptyDataText="No se encontraron  registros de familiares" ToolTip="Listado de familiares" CssClass="table  table-hover table-advance ADScroller Widthall btn-xs" GridLines="None">
+                                                                    <Columns>
+
+                                                                        <asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Nombre">
+                                                                            <ItemTemplate>
+                                                                                <asp:Literal ID="LtlNombre" runat="server" Text='<%# Eval("Nombre") %>'></asp:Literal>
+                                                                            </ItemTemplate>
+                                                                        </asp:TemplateField>
+                                                                        
+                                                                        <asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Parentesco">
+                                                                            <ItemTemplate>
+                                                                                <asp:Literal ID="LtlParentesco" runat="server" Text='<%# Eval("Parentesco")%>'></asp:Literal>
+                                                                            </ItemTemplate>
+                                                                        </asp:TemplateField> 
+
+                                                                          <asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Bene.">
+                                                                            <ItemTemplate>                                                                                
+                                                                                <asp:CheckBox runat="server" ID="ChkBeneficiario" Checked= '<%# Eval("Beneficiario")%>' Enabled="false" />
+                                                                            </ItemTemplate>
+                                                                        </asp:TemplateField> 
+
+                                                                        <asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="40px">
+                                                                            <ItemTemplate>
+                                                                                <asp:LinkButton ID="ImgE" OnClick="Edit_ClickFamiliar" runat="server" AlternateText="Editar" CausesValidation="False"
+                                                                                    CssClass="btn btn-circle btn-xs green" Text="<i class='fa fa-pencil'></i>" />
+                                                                            </ItemTemplate>
+                                                                        </asp:TemplateField>
+                                                                        <asp:TemplateField ItemStyle-HorizontalAlign="Left" ItemStyle-Width="40px">
+                                                                            <ItemTemplate>
+                                                                                <asp:LinkButton ID="imgD" OnClick="Remove_ClickFamiliar" runat="server" AlternateText="Eliminar" CausesValidation="False" CssClass="btn btn-circle btn-xs 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>
+
+                                                            </ContentTemplate>
+                                                        </asp:UpdatePanel>
+
+
+
+
+
                                                     </div>
 
                                                 </div>
@@ -4218,6 +4282,87 @@
     </div>
 
 
+        <div id="divAgregarFamiliar" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog" style="width: 450px;">
+            <asp:UpdatePanel runat="server" class="modal-content" ID="UpModalFamiliar" UpdateMode="Conditional">
+                <ContentTemplate>
+                    <div class="modal-header ">
+                        <button type="button" class="close" data-dismiss="modal">×</button>
+                        <h4 class="modal-title">
+                            <asp:Literal ID="LtlTituloModalFamiliar" runat="server">Agregar Familiar</asp:Literal></h4>
+                    </div>
+                    <div class="modal-body">
+
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:TextBox ID="TxtNombreFamiliar4" CssClass="form-control" MaxLength="70" runat="server"></asp:TextBox>
+                            <asp:RequiredFieldValidator ID="rfvTxtNombreFamiliar4" runat="server" ControlToValidate="TxtNombreFamiliar4" ValidationGroup="GrpFamiliar" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre''</b> es necesario, por favor ingréselo."></asp:RequiredFieldValidator>
+                            <label for="<%= TxtNombreFamiliar4.ClientID.ToString()%>">Nombre:</label>
+
+                        </div>
+
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:DropDownList ID="DDLParentescoFamiliar4" runat="server" Width="150" CssClass=" select2me form-control ">
+                                <asp:ListItem Value="-1" Text="Seleccione un opción"></asp:ListItem>
+                                <asp:ListItem Value="1" Text="Padre"></asp:ListItem>
+                                <asp:ListItem Value="2" Text="Madre"></asp:ListItem>
+                                <asp:ListItem Value="3" Text="Esposo(a)"></asp:ListItem>
+                                <asp:ListItem Value="4" Text="Hijo(a)"></asp:ListItem>
+                                <asp:ListItem Value="5" Text="Hermano(a)"></asp:ListItem>
+                            </asp:DropDownList>
+                            <asp:RequiredFieldValidator InitialValue="-1" ID="rfvDDLParentescoFamiliar" ControlToValidate="DDLParentescoFamiliar4" CssClass="help-block errorimput" ValidationGroup="GrpFamiliar" runat="server" ErrorMessage="Seleccione una de las opciones"></asp:RequiredFieldValidator>
+                            <label for="<%= DDLParentescoFamiliar4.ClientID.ToString()%>">Parentesco:</label>
+                        </div>
+
+
+
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:TextBox ID="TxtDomicilioFamiliar4" CssClass="form-control" MaxLength="70" runat="server"></asp:TextBox>
+                            <asp:RequiredFieldValidator ID="rfvTxtDomicilioFamiliar4" runat="server" ControlToValidate="TxtDomicilioFamiliar4" ValidationGroup="GrpFamiliar" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Dirección''</b> es necesario, por favor ingréselo."></asp:RequiredFieldValidator>
+                            <label for="<%= TxtDomicilioFamiliar4.ClientID.ToString()%>">Dirección:</label>
+                        </div>
+
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:TextBox ID="TxtEdadFamiliar4" CssClass="form-control" TextMode="Number" MaxLength="3" onkeyDown="checkTextAreaMaxLength(this,event,'3');" runat="server"></asp:TextBox>
+                            <asp:RequiredFieldValidator ID="rfvTxtEdadFamiliar4" runat="server" ControlToValidate="TxtEdadFamiliar4" ValidationGroup="GrpFamiliar" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Familiar''</b> es necesario, por favor ingréselo."></asp:RequiredFieldValidator>
+                            <label for="<%= TxtEdadFamiliar4.ClientID.ToString()%>">Edad:</label>
+                        </div>
+
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:TextBox ID="TxtOcupacionFamiliar4" CssClass="form-control" MaxLength="30" runat="server"></asp:TextBox>
+                            <asp:RequiredFieldValidator ID="rfvTxtOcupacionFamiliar" runat="server" ControlToValidate="TxtOcupacionFamiliar4" ValidationGroup="GrpFamiliar" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Familiar''</b> es necesario, por favor ingréselo."></asp:RequiredFieldValidator>
+                            <label for="<%= TxtOcupacionFamiliar4.ClientID.ToString()%>">Ocupación:</label>
+                        </div>
+
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:TextBox ID="TxtTelefonoFamiliar" CssClass="form-control" MaxLength="10" runat="server"></asp:TextBox>
+                            <asp:RequiredFieldValidator ID="RfvTxtTelefonoFamiliar" runat="server" ControlToValidate="TxtTelefonoFamiliar" ValidationGroup="GrpFamiliar" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Telefono''</b> es necesario, por favor ingréselo."></asp:RequiredFieldValidator>
+                            <label for="<%= TxtTelefonoFamiliar.ClientID.ToString()%>">Telefono:</label>
+                            <ajax:FilteredTextBoxExtender ID="FilTxtTelefonoFamiliar" runat="server" FilterType="Numbers" InvalidChars=".-," TargetControlID="TxtTelefonoFamiliar" />
+                        </div>
+
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:TextBox ID="TxtObservacionesFamiliar" TextMode="MultiLine" Rows="3" Columns="300" onkeyDown="checkTextAreaMaxLength(this,event,'200');" CssClass="form-control" MaxLength="200" runat="server"></asp:TextBox>
+                            <label for="<%= TxtObservacionesFamiliar.ClientID.ToString()%>">Observaciones:</label>
+                        </div>
+
+                         <div class="form-group form-md-line-input input-iconright">
+                            <asp:CheckBox  runat="server" ID="ChkBeneficiario"  />
+                            <label for="<%= ChkBeneficiario.ClientID.ToString()%>">Beneficiario: </label>
+                        </div>
+
+
+                    </div>
+
+                    <div class="modal-footer">
+                        <asp:Button ID="BtnAgregarFamiliarModal" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpFamiliar" />
+                        <button id="BtnCancelarFamiliarModal4" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
+                    </div>
+                </ContentTemplate>
+            </asp:UpdatePanel>
+        </div>
+    </div>
+
+
     <iframe id="my_iframe" style="display: none;"></iframe>
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">

RH/Personal.aspx.vb

@@ -528,12 +528,94 @@ Partial Class RH_Personal
         Set(value As Integer)
             ViewState("CvePermiso") = value
         End Set
+    End Property
+
+#End Region
+
+
+#Region "PROPIEDADES FAMILIARES"
+
+    Private Property ActualizarFamiliar As Boolean
+        Get
+            If ViewState("ActualizarFamiliar") Is Nothing Then
+                Return True
+            Else
+                Return DirectCast(ViewState("ActualizarFamiliar"), Boolean)
+
+            End If
+        End Get
+        Set(value As Boolean)
+            ViewState("ActualizarFamiliar") = value
+        End Set
+    End Property
+    Private Property CveFamiliar As Integer
+        Get
+            If ViewState("CveFamiliar") Is Nothing Then
+                Return -1
+            Else
+                Return DirectCast(ViewState("CveFamiliar"), Integer)
+            End If
+
+        End Get
+        Set(value As Integer)
+            ViewState("CveFamiliar") = value
+        End Set
+    End Property
+
+    Private Property IndexActual As Integer
+        Get
+            If ViewState("IndexActual") Is Nothing Then
+                Return -1
+            Else
+                Return DirectCast(ViewState("IndexActual"), Integer)
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("IndexActual") = value
+        End Set
+    End Property
+
+    Property DTFamiliares As DataTable
+        Get
+            Return DirectCast(ViewState("DTFamiliares"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DTFamiliares") = value
+        End Set
+    End Property
+
+
+    Private Property ValPadre As Boolean
+        Get
+            If ViewState("ValPadre") Is Nothing Then
+                Return False
+            Else
+                Return DirectCast(ViewState("ValPadre"), Boolean)
+            End If
+        End Get
+        Set(value As Boolean)
+            ViewState("ValPadre") = value
+        End Set
     End Property
 
-#End Region
+    Private Property ValMadre As Boolean
-
+        Get
-
+            If ViewState("ValMadre") Is Nothing Then
-
+                Return False
+            Else
+                Return DirectCast(ViewState("ValMadre"), Boolean)
+            End If
+        End Get
+        Set(value As Boolean)
+            ViewState("ValMadre") = value
+        End Set
+    End Property
+
+
+#End Region
+
+
+
     Const wdPageBreak As Integer = 7
     Const wdCharacter As Integer = 1
     'Configuración
@@ -581,9 +663,9 @@ Partial Class RH_Personal
             CargaComboUniformes()
             CargaPermisos()
             CargaCombosBuzon()
-            CargaPermisosReemplazos()
+            CargaPermisosReemplazos()
-
+
-
+
             If Request("CvePersonal") IsNot Nothing AndAlso IsNumeric(Request("CvePersonal")) AndAlso Request("CvePersonal").ToEntero > 0 Then
                 ViewState("CvePersonal") = Request("CvePersonal")
                 'CvePersonal = ViewState("CvePersonal").ToString.ToEntero
@@ -634,14 +716,29 @@ Partial Class RH_Personal
                 'Inicia Permisos
                 'Fin Permisos
             End If
-            CargaCuentasBancarias()
+            CargaCuentasBancarias()
-
+
-            'If UsuarioActual.TienePermisoProceso(84) Then 'abonar pago
+            If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then
-            '    HplAbonarMasivo.Visible = True
+
-            '    GvGxC.Columns(7).Visible = True
+                CrearEstructuraFamiliares()
-            'End If
+                CargaFamiliares()
-
+
-
+                LIFamiliaresAcciones.Visible = True
+                DivFamiliares.Visible = True
+                DivPadres.Visible = False
+
+
+            End If
+
+
+
+
+            'If UsuarioActual.TienePermisoProceso(84) Then 'abonar pago
+            '    HplAbonarMasivo.Visible = True
+            '    GvGxC.Columns(7).Visible = True
+            'End If
+
+
             If Not CvePersonal > 0 Then
                 DivSuperiorInmediato.Visible = False
             End If
@@ -1381,6 +1478,11 @@ Partial Class RH_Personal
                 'Agregar Cuentas Bancarias
                 ViewState("CvePersonal") = ObjPersonal.CvePersonal
 
+                'Funsion usa RH Familiares
+                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) Then
@@ -1435,7 +1537,12 @@ 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,
-               FechaActivo:=FechaActivo, FechaReingreso:=FechaReingreso) Then
+               FechaActivo:=FechaActivo, FechaReingreso:=FechaReingreso) Then
+
+                'Funsion usa RH Familiares
+                If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then
+                    ProcesaDTFamiliares(ObjPersonal)
+                End If
 
 
                 If Archivo.Exists Then
@@ -5506,5 +5613,265 @@ Partial Class RH_Personal
             Alert("No se encontraron registros .", TipoMensaje.MsgAdvertencia)
         End If
 
-    End Sub
+    End Sub
+
+
+#Region "FAMILIARES"
+
+
+    Private Sub CargaFamiliares()
+
+        If CvePersonal <> -1 Then
+            Dim objRH As New ClsRH
+
+            If objRH.PersonalFamiliaresGet(-1, CvePersonal) Then
+
+                If objRH.DtResultados.Rows.Count > 0 Then
+                    DTFamiliares = objRH.DtResultados
+                    DTFamiliares.Columns.Add("Accion", Type.GetType("System.String"))
+                    DTFamiliares.AcceptChanges()
+                    GvFamiliares.DataSource = DTFamiliares
+                Else
+                    DTFamiliares.Rows.Clear()
+                    GvFamiliares.DataSource = DTFamiliares
+                End If
+
+            Else
+                GvFamiliares.DataSource = Nothing
+            End If
+
+            objRH.Dispose()
+            GvFamiliares.DataBind()
+            UPTabFamiliares.Update()
+
+        End If
+    End Sub
+
+    Private Sub CrearEstructuraFamiliares()
+
+        Dim Familiares As New DataTable
+
+        Familiares.Columns.Add("CveFamiliar", Type.GetType("System.Int32"))
+        Familiares.Columns.Add("CvePersonal", Type.GetType("System.Int32"))
+        Familiares.Columns.Add("CveParentesco", Type.GetType("System.Int32"))
+        Familiares.Columns.Add("Parentesco", Type.GetType("System.String"))
+        Familiares.Columns.Add("Nombre", Type.GetType("System.String"))
+        Familiares.Columns.Add("Domicilio", Type.GetType("System.String"))
+        Familiares.Columns.Add("Edad", Type.GetType("System.Int32"))
+        Familiares.Columns.Add("Ocupacion", Type.GetType("System.String"))
+        Familiares.Columns.Add("Fecha", Type.GetType("System.DateTime"))
+        Familiares.Columns.Add("Usuario", Type.GetType("System.String"))
+        Familiares.Columns.Add("Telefono", Type.GetType("System.String"))
+        Familiares.Columns.Add("Accion", Type.GetType("System.String"))
+        Familiares.Columns.Add("Observaciones", Type.GetType("System.String"))
+        Familiares.Columns.Add("Beneficiario", Type.GetType("System.Boolean"))
+
+        DTFamiliares = Familiares
+
+    End Sub
+
+
+    Protected Sub BtnAgregarFamiliar_Click(sender As Object, e As EventArgs) Handles BtnAgregarFamiliar.Click
+        resetFormFamiliares()
+        RegistraScript("$('#divAgregarFamiliar').modal({ backdrop: 'static',  keyboard: false});")
+    End Sub
+
+
+    Private Sub ResetFormFamiliares()
+
+        ActualizarFamiliar = False
+        CveFamiliar = -1
+
+        LtlTituloModalFamiliar.Text = "Agregar Familiar"
+        BtnAgregarFamiliarModal.Text = "Agregar Familiar"
+        TxtNombreFamiliar4.Text = ""
+        TxtDomicilioFamiliar4.Text = ""
+        TxtEdadFamiliar4.Text = ""
+        TxtOcupacionFamiliar4.Text = ""
+        TxtTelefonoFamiliar.Text = ""
+        TxtObservacionesFamiliar.Text = ""
+        DDLParentescoFamiliar4.SelectedIndex = 0
+        ChkBeneficiario.Checked = False
+
+        UpModalFamiliar.Update()
+
+    End Sub
+
+    Protected Sub BtnAgregarFamiliarModal_Click(sender As Object, e As EventArgs) Handles BtnAgregarFamiliarModal.Click
+
+        If ActualizarFamiliar Then
+
+            'DtRowFamiliar("CveFamiliar") = -1
+            DTFamiliares(IndexActual)("CvePersonal") = -1
+            DTFamiliares(IndexActual)("Parentesco") = DDLParentescoFamiliar4.SelectedItem.Text
+            DTFamiliares(IndexActual)("CveParentesco") = DDLParentescoFamiliar4.SelectedValue.ToEntero
+            DTFamiliares(IndexActual)("Nombre") = TxtNombreFamiliar4.Text.Trim
+            DTFamiliares(IndexActual)("Domicilio") = TxtDomicilioFamiliar4.Text.Trim
+            DTFamiliares(IndexActual)("Edad") = TxtEdadFamiliar4.Text.ToEntero
+            DTFamiliares(IndexActual)("Ocupacion") = TxtOcupacionFamiliar4.Text.Trim
+            DTFamiliares(IndexActual)("Telefono") = TxtTelefonoFamiliar.Text.Trim
+            DTFamiliares(IndexActual)("Observaciones") = TxtObservacionesFamiliar.Text.Trim
+            DTFamiliares(IndexActual)("Beneficiario") = ChkBeneficiario.Checked
+
+            If DTFamiliares(IndexActual)("CveFamiliar").ToString = "-1" Then
+                DTFamiliares(IndexActual)("Accion") = "2"
+            Else
+                DTFamiliares(IndexActual)("Accion") = "1"
+            End If
+
+            DTFamiliares.AcceptChanges()
+
+        Else
+
+            Dim DtRowFamiliar As DataRow
+            DtRowFamiliar = DTFamiliares.NewRow
+
+            DtRowFamiliar("CveFamiliar") = -1
+            DtRowFamiliar("CvePersonal") = -1
+            DtRowFamiliar("Parentesco") = DDLParentescoFamiliar4.SelectedItem.Text
+            DtRowFamiliar("CveParentesco") = DDLParentescoFamiliar4.SelectedValue.ToEntero
+            DtRowFamiliar("Nombre") = TxtNombreFamiliar4.Text.Trim
+            DtRowFamiliar("Domicilio") = TxtDomicilioFamiliar4.Text.Trim
+            DtRowFamiliar("Edad") = TxtEdadFamiliar4.Text.ToEntero
+            DtRowFamiliar("Ocupacion") = TxtOcupacionFamiliar4.Text.Trim
+            DtRowFamiliar("Telefono") = TxtTelefonoFamiliar.Text.Trim
+            DtRowFamiliar("Observaciones") = TxtObservacionesFamiliar.Text.Trim
+            DtRowFamiliar("Beneficiario") = ChkBeneficiario.Checked
+
+            DtRowFamiliar("Accion") = "2"
+
+            DTFamiliares.Rows.Add(DtRowFamiliar)
+            DTFamiliares.AcceptChanges()
+
+        End If
+
+        IndexActual = -1
+
+
+        RegistraScript(String.Format("$('#{0}').modal('hide');", "divAgregarFamiliar"))
+        'CargaFamiliares()
+
+        GvFamiliares.DataSource = DTFamiliares
+        GvFamiliares.DataBind()
+        UPTabFamiliares.Update()
+
+        CveFamiliar = -1
+        ActualizarFamiliar = False
+
+    End Sub
+
+    Public Sub Edit_ClickFamiliar(sender As Object, e As EventArgs)
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        Dim activo As Boolean = True
+
+        CveFamiliar = GvRow.DataKey("CveFamiliar").ToString.ToEntero
+        ActualizarFamiliar = True
+        IndexActual = GvRow.RowIndex
+
+        LtlTituloModalFamiliar.Text = "Editar Familiar"
+        BtnAgregarFamiliarModal.Text = "Actualizar"
+
+        TxtNombreFamiliar4.Text = GvRow.DataKey("Nombre")
+        DDLParentescoFamiliar4.SelectedValueExist(GvRow.DataKey("CveParentesco"))
+        TxtDomicilioFamiliar4.Text = GvRow.DataKey("Domicilio")
+        TxtEdadFamiliar4.Text = GvRow.DataKey("Edad")
+        TxtOcupacionFamiliar4.Text = GvRow.DataKey("Ocupacion")
+        TxtTelefonoFamiliar.Text = GvRow.DataKey("Telefono")
+        TxtObservacionesFamiliar.Text = GvRow.DataKey("Observaciones")
+        ChkBeneficiario.Checked = Boolean.Parse(GvRow.DataKey("Beneficiario").ToString)
+
+        UpModalFamiliar.Update()
+        RegistraScript("$('#divAgregarFamiliar').modal({ backdrop: 'static',  keyboard: false});")
+
+    End Sub
+
+
+    Public Sub Remove_ClickFamiliar(sender As Object, e As EventArgs)
+
+
+
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        IndexActual = GvRow.RowIndex
+        Dim activo As Boolean = False
+        Dim CveFamiliar As Integer = GvRow.DataKey("CveFamiliar").ToString.ToEntero
+
+        If CveFamiliar > 0 Then
+
+            DTFamiliares.Rows(IndexActual)("Accion") = "3"
+            Dim objRH As New ClsRH
+            ProcesaDTFamiliares(objRH)
+            objRH.Dispose()
+
+            CargaFamiliares()
+
+
+
+        Else
+            DTFamiliares.Rows(IndexActual).Delete()
+            DTFamiliares.AcceptChanges()
+            GvFamiliares.DataSource = DTFamiliares
+            GvFamiliares.DataBind()
+            UPTabFamiliares.Update()
+        End If
+        IndexActual = -1
+
+    End Sub
+
+    Private Sub ProcesaDTFamiliares(ByRef objRH As ClsRH)
+
+        'Dim objRH As New ClsRH
+
+        ValPadre = False
+        ValMadre = False
+
+        For Each dRow As DataRow In DTFamiliares.Rows
+
+
+
+            If dRow("Accion").ToString = "1" Then 'Actualiza
+
+                Dim Beneficiario As Integer = -1
+
+                If Boolean.Parse(dRow("Beneficiario").ToString) Then
+                    Beneficiario = 1
+                Else
+                    Beneficiario = 0
+                End If
+
+
+                objRH.PersonalFamiliaresUpdate(dRow("CveFamiliar").ToString.ToEntero, CvePersonal, dRow("CveParentesco").ToString.ToEntero, dRow("Nombre").ToString, dRow("Domicilio").ToString, dRow("Edad").ToString.ToEntero, dRow("Ocupacion").ToString, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, dRow("Telefono").ToString, If(dRow("Observaciones").ToString.Trim = "", "-1", dRow("Observaciones").ToString.Trim), Beneficiario)
+
+            End If
+            If dRow("Accion").ToString = "2" Then 'Inserta
+
+
+                Dim Beneficiario As Boolean = Boolean.Parse(dRow("Beneficiario").ToString)
+
+
+
+                objRH.PersonalFamiliaresAdd(CvePersonal, dRow("CveParentesco").ToString.ToEntero, dRow("Nombre").ToString, dRow("Domicilio").ToString, dRow("Edad").ToString.ToEntero, dRow("Ocupacion").ToString, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, dRow("Telefono").ToString, If(dRow("Observaciones").ToString.Trim = "", "-1", dRow("Observaciones").ToString.Trim), Beneficiario)
+
+            End If
+
+            If dRow("CveParentesco").ToString.ToEntero = 1 Then
+                ValPadre = True
+            End If
+
+            If dRow("CveParentesco").ToString.ToEntero = 2 Then
+                ValMadre = True
+            End If
+
+            If dRow("Accion").ToString = "3" Then 'Borra
+                objRH.PersonalFamiliaresRemove(dRow("CveFamiliar").ToString.ToEntero, -1)
+            End If
+
+        Next
+
+        'objRH.Dispose()
+
+    End Sub
+
+#End Region
+
+
 End Class

RH/RepPersonalNecesidades.aspx

@@ -30,6 +30,12 @@
                                     <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                                 </asp:DropDownList>
                             </li>
+
+                             <li>Departamento:
+                                <asp:DropDownList ID="DdlDepartamento" runat="server"  Class="form-control input-sm select2me" DataTextField="Departamento" DataValueField="CveDepartamento" Style="width: 75px !important;">  
+                                </asp:DropDownList>
+                            </li>
+
                             <li>Turno:
                                 <asp:DropDownList ID="DdlTurno" runat="server"  Class="form-control input-sm select2me" DataTextField="Turno" DataValueField="CveTurno" Style="width: 75px !important;">  
                                 </asp:DropDownList>
@@ -62,6 +68,7 @@
                 <Columns>
                     <asp:BoundField HeaderText ="Proyecto" DataField="Proyecto" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField HeaderText="SubProyecto" DataField="SubProyecto" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField HeaderText="Departamento" DataField="Departamento" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField HeaderText="Turno" DataField="Turno" />
 
                     <asp:TemplateField HeaderText="Personal Actual" ItemStyle-HorizontalAlign="Center">

RH/RepPersonalNecesidades.aspx.vb

@@ -22,6 +22,7 @@ Partial Class RH_RepPersonalNecesidades
             CargaProyecto()
             CargaTurnos()
             CargaDatos()
+            CargaDepartamento()
         End If
     End Sub
 
@@ -32,18 +33,32 @@ Partial Class RH_RepPersonalNecesidades
     End Sub
 
     Private Sub CargaProyecto()
-        DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa)
+        DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("", "", {"CveProyecto", "Proyecto"})
         DdlProyecto.DataBind()
         DdlProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
 
     Private Sub CargaSubProyecto()
+
         DdlSubProyecto.Items.Clear()
         DdlSubProyecto.DataSource = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero)
         DdlSubProyecto.DataBind()
         DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+
+    End Sub
+
+
+
+    Private Sub CargaDepartamento()
+
+        DdlDepartamento.Items.Clear()
+        DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlDepartamento.DataBind()
+        DdlDepartamento.Items.Insert(0, New ListItem("Todos", "-1"))
+
     End Sub
 
+
     Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
         CargaSubProyecto()
     End Sub
@@ -54,7 +69,7 @@ Partial Class RH_RepPersonalNecesidades
 
     Private Sub CargaDatos()
         Dim objpersonal As New ClsRH
-        If objpersonal.GetReportePersonalNecesidades(DdlTurno.SelectedValue.ToEntero, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa) Then
+        If objpersonal.GetReportePersonalNecesidades(DdlTurno.SelectedValue.ToEntero, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa, DdlDepartamento.SelectedValue.ToEntero) Then
             GVDatos.DataSource = objpersonal.DtResultados
         Else
             GVDatos.DataSource = Nothing

Ventas/RepCotizacionesxFacturar.aspx

@@ -207,7 +207,7 @@
     </div>
     <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró ningun corte" DataKeyNames="CveVenta"
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Cotizaciones por Facturar" DataKeyNames="CveVenta"
                 ToolTip="Remisiones sin Facturar"
                 CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
                 data-sort="true" Style="text-align: center;" GridLines="None">

Ventas/RepCotizacionesxFacturar.aspx.vb

@@ -53,7 +53,7 @@ Partial Class RepCotizacionesxFacturar
 #End Region
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
-            txtFechaI.Text = Now.Day.ToString + "/" + (Now.Month - 6).ToString + "/" + Now.Year.ToString
+            txtFechaI.Text = Now.ToShortDateString
             txtFechaF.Text = Now.ToShortDateString
 
             CargaSucursales()
@@ -68,13 +68,13 @@ Partial Class RepCotizacionesxFacturar
     Public Sub CargaDatos()
         Dim ObjVentas As New ClsVentas
 
-        FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1")
+        FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), MinFecha.ToShortDateString)
-        FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
+        FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), MaxFecha.ToShortDateString)
         CveCliente = If(DdlClientes.SelectedValue.ToEntero > 0, DdlClientes.SelectedValue.ToEntero, -1)
 
         Sucursales = IIf(DdlSubProyectos.GetSelectedValuesM = "", "-1", DdlSubProyectos.GetSelectedValuesM).ToString
 
-        If ObjVentas.GetRepCotizacionesSinFacturar(FechaI, FechaF, Sucursales, CveCliente, UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
+        If ObjVentas.GetRepCotizacionesSinFacturar(FechaI.ToDate, FechaF.ToDate, Sucursales, CveCliente, UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
             GvDatos.DataSource = ObjVentas.DtResultados
             DtVentas = ObjVentas.DtResultados
             GvDatos.DataBind()

Ventas/RepRemisionesNC.aspx

@@ -207,7 +207,7 @@
     </div>
     <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró ningun corte" DataKeyNames="CveVenta"
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Remisiones de NC Sin Aplicar" DataKeyNames="CveVenta"
                 ToolTip="Remisiones sin Facturar"
                 CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
                 data-sort="true" Style="text-align: center;" GridLines="None">

Ventas/RepRemisionesNC.aspx.vb

@@ -53,7 +53,7 @@ Partial Class RepRemisionesNC
 #End Region
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
-            txtFechaI.Text = Now.Day.ToString + "/" + (Now.Month - 6).ToString + "/" + Now.Year.ToString
+            txtFechaI.Text = Now.ToShortDateString
             txtFechaF.Text = Now.ToShortDateString
 
             CargaSucursales()
@@ -68,13 +68,13 @@ Partial Class RepRemisionesNC
     Public Sub CargaDatos()
         Dim ObjVentas As New ClsVentas
 
-        FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1")
+        FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), MinFecha.ToShortDateString)
-        FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
+        FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), MaxFecha.ToShortDateString)
         CveCliente = If(DdlClientes.SelectedValue.ToEntero > 0, DdlClientes.SelectedValue.ToEntero, -1)
 
         Sucursales = IIf(DdlSubProyectos.GetSelectedValuesM = "", "-1", DdlSubProyectos.GetSelectedValuesM).ToString
 
-        If ObjVentas.GetRepRemisionesNCSinFacturar(FechaI, FechaF, Sucursales, CveCliente, UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
+        If ObjVentas.GetRepRemisionesNCSinFacturar(FechaI.ToDate, FechaF.ToDate, Sucursales, CveCliente, UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
             GvDatos.DataSource = ObjVentas.DtResultados
             DtVentas = ObjVentas.DtResultados
             GvDatos.DataBind()