2019-10-03 20:15:10 -07:00
parent 85f2c7576f 19336dce54
commit 91a227f813
24 changed files with 769 additions and 125 deletions
--- a/App_Code/ClsClientes.vb
+++ b/App_Code/ClsClientes.vb
@@ -1552,7 +1552,7 @@ Public Class ClsClientes

        Return Retorno
    End Function
-    Public Function AgregarClienteNoFrecuente(Nombre As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Localidad As String, Ciudad As String, Estado As String, Pais As String, RFC As String, CP As String, Telefono As String, Mail As String, CveSubProyecto As Integer, CveUsuario As Integer, CveEmpresa As Integer, NumCuentaPago As String) As Boolean
+    Public Function AgregarClienteNoFrecuente(Nombre As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Localidad As String, Ciudad As String, Estado As String, Pais As String, RFC As String, CP As String, Telefono As String, Mail As String, CveSubProyecto As Integer, CveUsuario As Integer, CveEmpresa As Integer, NumCuentaPago As String, Optional CvePrecioLista As Integer = -1) As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_ClientesNoFrecuenteAdd")

@@ -1574,6 +1574,7 @@ Public Class ClsClientes
            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
            .Add("@NumCuentaPago", SqlDbType.VarChar).Value = NumCuentaPago
+            .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista

        End With

--- a/App_Code/ClsInventarios.vb
+++ b/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("@FechaF", SqlDbType.VarChar).Value = FechaF
+            .Add("@FechaI", SqlDbType.Date).Value = FechaI
+            .Add("@FechaF", SqlDbType.Date).Value = FechaF
            .Add("@CveAlmacenOrigen", SqlDbType.Int).Value = CveAlmacenOrigen
            .Add("@CveAlmacenDestino", SqlDbType.Int).Value = CveAlmacenDestino
            .Add("@Recibido", SqlDbType.Bit).Value = Recibido
--- a/App_Code/ClsRH.vb
+++ b/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")
-
-        SqlAdapter.SelectCommand.Parameters.Add("@CveRequerimiento", SqlDbType.Int).Value = CveRequerimiento
+
+        DataAdapter("PA_RH_PersonalRequeridoRemove")
+
+        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
--- a/App_Code/ClsVentas.vb
+++ b/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("@FechaF", SqlDbType.VarChar).Value = FechaF
+            .Add("@FechaI", SqlDbType.Date).Value = FechaI
+            .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("@FechaF", SqlDbType.VarChar).Value = FechaF
+            .Add("@FechaI", SqlDbType.Date).Value = FechaI
+            .Add("@FechaF", SqlDbType.Date).Value = FechaF
            .Add("@CveSubProyecto", SqlDbType.VarChar).Value = CveSubProyecto
            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -1408,7 +1408,7 @@ Namespace Modelos
                    End If
                End If

-                If ErrorList.Count = 0 Then
+                If ErrorList.Count = 0 AndAlso factura.TipoDocto.Contiene("Ing", "Ant") Then
                    'Agregamos las remisiones a la tabla
                    If factura.DtRemisionesPS IsNot Nothing AndAlso factura.DtRemisionesPS.Rows.Count > 0 AndAlso ErrorList.Count = 0 Then
                        Dim CveVentaDetalle As Integer = 0
@@ -8590,6 +8590,7 @@ Namespace Modelos
            CveTurno = -1
            CveUsuario = -1
            CveEmpresa = -1
+            CveDepartamento = -1
        End Sub
        Public Property CveRequerimiento As Integer
        Public Property CveProyecto As Integer
@@ -8603,7 +8604,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
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -6235,7 +6235,7 @@ Partial Class Compras_Compras
                                                                                        CostoIndirectoAcum176 += ImporteCI176
                                                                                        'se considera costoindirecto, para que la factura tiene en un concepto tipo servicio
                                                                                        SumatoriaOCINV += (Dr(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total")).ToString.ToDecimal * tipoCambioActual) - (ImporteMN176 - ImporteCI176)
-                                                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, Importe176, Referencia, ConceptoContabilizacion, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=ImporteMN176, ImporteME:=ImporteME176, CveCuenta:=CveCuenta, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero, CveMovimientoAlmacen:=Dr("CveMovimientoAlmacen").ToString.ToEntero, Contabilizable:=SeContabiliza) Then
+                                                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, Importe176, Referencia, ConceptoContabilizacion, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=ImporteMN176, ImporteME:=ImporteME176, CveCuenta:=CveCuenta, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimientoAlmacen, Contabilizable:=SeContabiliza) Then
                                                                                            ErrorPrepoliza = True
                                                                                            Exit For
                                                                                        End If
@@ -6278,10 +6278,10 @@ Partial Class Compras_Compras

                                                                End If

-
+                                                                'falta el registro de la NC cuando es
                                                                Dim RegistroCuentaPuente As Boolean = False
                                                                'NC CON PRODUCTOS - CUENTA PUENTE
-                                                                If UsuarioActual.CveEmpresa.Contiene(119) AndAlso UsuarioActual.Empresa.UsaInventarios AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
+                                                                If UsuarioActual.Empresa.UsaInventarios AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then

                                                                    importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND ISNULL(CveTipoPS,0) = 2").ToString.ToDecimal
                                                                    importeMN = importeMovimiento * tipoCambioActual * Multiplicador
@@ -6315,27 +6315,31 @@ Partial Class Compras_Compras

                                                                    End If

-                                                                    Dim ContienePSNeteoBonif As Boolean = False
-                                                                    For Each Dr As DataRow In TmpDT.Rows
-                                                                        If Dr("CveClasificacion").ToString.ToEntero.Contiene(20319) Then 'clasificación de Bonificación, no se incluirá en el neteo
-                                                                            ContienePSNeteoBonif = True
-                                                                            Exit For
-                                                                        End If
-                                                                    Next

-                                                                    If ContienePSNeteoBonif Then
-                                                                        importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 ").ToString.ToDecimal
-                                                                        importeMN = importeMovimiento * tipoCambioActual * Multiplicador
-                                                                        Dim IdCtaContableDescCompra As Integer = UsuarioActual.Empresa.Funcionalidad(405).ToEntero
-                                                                        If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, Referencia, 259, Concepto, FechaMovimiento, IdCtaContableDescCompra, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
-                                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -importeMovimiento, Referencia, 259, Concepto, FechaMovimiento, IdCtaContableDescCompra, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=-importeMN, ImporteME:=If(tipoCambioActual = 1, 0, -importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
+                                                                    If UsuarioActual.CveEmpresa.Contiene(119) Then
+                                                                        Dim ContienePSNeteoBonif As Boolean = False
+                                                                        For Each Dr As DataRow In TmpDT.Rows
+                                                                            If Dr("CveClasificacion").ToString.ToEntero.Contiene(20319) Then 'clasificación de Bonificación, no se incluirá en el neteo
+                                                                                ContienePSNeteoBonif = True
+                                                                                Exit For
+                                                                            End If
+                                                                        Next
+
+                                                                        If ContienePSNeteoBonif Then
+                                                                            importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 ").ToString.ToDecimal
+                                                                            importeMN = importeMovimiento * tipoCambioActual * Multiplicador
+                                                                            Dim IdCtaContableDescCompra As Integer = UsuarioActual.Empresa.Funcionalidad(405).ToEntero
+                                                                            If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, Referencia, 259, Concepto, FechaMovimiento, IdCtaContableDescCompra, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
+                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -importeMovimiento, Referencia, 259, Concepto, FechaMovimiento, IdCtaContableDescCompra, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=-importeMN, ImporteME:=If(tipoCambioActual = 1, 0, -importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
+                                                                                    ErrorPrepoliza = True
+                                                                                End If
+                                                                            Else
                                                                                ErrorPrepoliza = True
                                                                            End If
-                                                                        Else
-                                                                            ErrorPrepoliza = True
                                                                        End If
                                                                    End If

+
                                                                End If


@@ -6593,8 +6597,8 @@ Partial Class Compras_Compras
                                                                        If Gvr.FCCheckBox("ChkFacturaNC").Checked Then
                                                                            Dim CvePrePolizaTemp = ObjConta.AddPrePolizas("Compras/Registrar-NC", If(EsContado And CvePlantillaPrePoliza = 1, 2, CvePlantillaPrePoliza), ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa))
                                                                            Dim importeMovimientoNC = Gvr.FCTextBox("TxtImporte").Text.ToDecimal
-                                                                            Dim importeMNNC = importeMovimientoNC * tipoCambioActual * Multiplicador
                                                                            Dim TipoCambioFactura = Gvr.DataKey("TipoCambio").ToDecimal
+                                                                            Dim importeMNNC = importeMovimientoNC * TipoCambioFactura * Multiplicador

                                                                            IdCtaContable = CtaProveedorExtranjera
                                                                            CveCuenta = CveCuentaProveedorExtranjera
@@ -6611,7 +6615,7 @@ Partial Class Compras_Compras
                                                                            End If


-                                                                            importeMNNC = importeMovimientoNC * TipoCambioFactura * Multiplicador
+                                                                            importeMNNC = importeMovimientoNC * tipoCambioActual * Multiplicador
                                                                            IdCtaContable = CtaProveedorExtranjera
                                                                            CveCuenta = CveCuentaProveedorExtranjera
                                                                            If ObjConta.AddPrePolizasDetalle(CvePrePolizaTemp, True, importeMovimientoNC, Referencia, 60, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=tipoCambioActual, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
@@ -9514,6 +9518,15 @@ Partial Class Compras_Compras
                Dim Referencia As String = $"{TxtSerie.Text}-{TxtFolio.Text}" ' concatenation interpolation

                Select Case ConceptoContable
+                    Case 5
+                        IdCtaContable = 1244
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, Referencia, 5, Referencia, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=DdlProveedor.SelectedValue.ToEntero, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=TxtTotal.Text.ToDecimal, ImporteME:=If(tipoCambioActual = 1, 0, TxtTotal.Text.ToDecimal), CveCuenta:=CveCuenta) Then
+                            ErrorPrepoliza = True
+                        End If
+                        IdCtaContable = 1243
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, Referencia, 205, Referencia, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=DdlProveedor.SelectedValue.ToEntero, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=TxtTotal.Text.ToDecimal, ImporteME:=If(tipoCambioActual = 1, 0, TxtTotal.Text.ToDecimal), CveCuenta:=CveCuenta) Then
+                            ErrorPrepoliza = True
+                        End If
                    Case 6
                        Dim CveProveedorConcepto As Integer = 0, CveAcreedor As Integer = 0, CveIE As Integer = 0, CveColectiva As Integer = 0, CveCreditoDetalle As Integer = 0
                        Dim ConceptoPersonal As String = "", Concepto As String = ""
@@ -9617,7 +9630,7 @@ Partial Class Compras_Compras
                        CveCuenta = 0

                        'INV [MERCANCIA RECIBIDA POR ADELANTADO (OC) | MERCANCIA PENDIENTE POR RECIBIR (COMPRA) ]
-                        If UsuarioActual.CveEmpresa.Contiene(119) And UsuarioActual.Empresa.UsaInventarios And Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And ConceptoContabilizacionAlmacen.Contiene(176, 205) Then
+                        If UsuarioActual.Empresa.UsaInventarios And Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And ConceptoContabilizacionAlmacen.Contiene(176, 205) Then
                            importeMovimiento = TmpDT.SUM("Total", $"ISNULL(TipoAF,0) <> 2 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveTipoPS = 2").ToString.ToDecimal
                            importeMN = importeMovimiento * tipoCambioActual * Multiplicador

@@ -11967,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
@@ -15314,6 +15327,16 @@ Partial Class Compras_Compras
        TotalFlete = 0
        TotalAlmacen = 0

+        'Obtenemos el total del almacen y guardamos las consecutivas pertenecientes al mismo
+        For Each Dr2 As DataRow In DtInv.Rows
+            TotalAlmacen += Math.Round(Dr2("Total").ToString.ToDecimal, 2)
+            ListaConsecutivas.Add(Dr2("Consec").ToString)
+        Next
+
+        'sino hay producto en almacen para aplciarle un servicio, no se debe de amrcar como costo indirecto
+        'esto aplica cuando la factura solo trae un concepto, y es el de servicio
+        If TotalAlmacen = 0 Then Exit Sub
+
        'Obtenemos el total del flete y marcamos los conceptos que pertenecen a flete
        For Each gvr As GridViewRow In GVServicios.Rows
            If gvr.DataKey("CvePS").ToEntero = CvePS Or gvr.FCCheckBox("chkServicios").Checked Then
@@ -15328,11 +15351,6 @@ Partial Class Compras_Compras

        If Not TotalFlete > 0 Then Exit Sub

-        'Obtenemos el total del almacen y guardamos las consecutivas pertenecientes al mismo
-        For Each Dr2 As DataRow In DtInv.Rows
-            TotalAlmacen += Math.Round(Dr2("Total").ToString.ToDecimal, 2)
-            ListaConsecutivas.Add(Dr2("Consec").ToString)
-        Next

        'Asignamos los costos indirectos y los indices
        For Each Drt As DataRow In TmpDT.Rows
--- a/Contabilidad/OCDetalleAlmacen.aspx.vb
+++ b/Contabilidad/OCDetalleAlmacen.aspx.vb
@@ -106,7 +106,7 @@ Partial Class Contabilidad_OCDetalleAlmacen
                If CvePrePoliza > 0 Then

                    If Cargo > Abono Then
-                        If (ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, Diferencia, Referencia, 228, Referencia, Fecha, IdCtaCuenta228, -1, ImporteME:=Diferencia, ImporteMX:=Diferencia, CveCompra:=CveCompra, Contabilizable:=1, CveOC:=CveOC, CveOCDetalle:=CveOCDetalle, CveProveedor:=CveProveedor)) Then
+                        If (ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, Diferencia, Referencia, 176, Referencia, Fecha, IdCtaCuenta228, -1, ImporteME:=Diferencia, ImporteMX:=Diferencia, CveCompra:=CveCompra, Contabilizable:=1, CveOC:=CveOC, CveOCDetalle:=CveOCDetalle, CveProveedor:=CveProveedor)) Then

                            If (ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, -Diferencia, Referencia, 177, Referencia, Fecha, IdCtaCuenta177, -1, ImporteME:=-0, ImporteMX:=-Diferencia, CveCompra:=CveCompra, Contabilizable:=1, CveOC:=CveOC, CveOCDetalle:=CveOCDetalle, CveProveedor:=CveProveedor)) Then
                                ContadorProcesados = ContadorProcesados + 1
--- a/Inventarios/RepTraspasoAlmacen.aspx
+++ b/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">
--- a/Inventarios/RepTraspasoAlmacen.aspx.vb
+++ b/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")
-        FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
+        FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), MinFecha.ToShortDateString)
+        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()
--- a/LogMail.txt
+++ b/LogMail.txt
@@ -4,4 +4,4 @@
  28/08/2019:05:48 p. m. No se especifico a remitente - SIG - Se Genero una Recepción de Usados con el folio: 80 

  02/09/2019:11:00 a. m. From:'signotificaciones@adssistemas.mx'  -  Para:'x@x.com'  - Asunto:'Entrega de Factura SUCURSAL NARANJO SN-22' -  CCP: '' - Adjuntos: 1 
-
+
--- a/LogTimbrado.txt
+++ b/LogTimbrado.txt
@@ -12,3 +12,7 @@
 .. PAC: 3 - Verificado : (36) 36 Armado: (32) 68 Genera: (0) 68 Timbrado: (10604) 10672 Actualizado: (16) 10688  ..05/09/2019:12:31 p. m.

 .. PAC: 4 - Verificado : (12) 12 Certificado : (209) 221 Armado: (35) 256 Genera: (306) 562 Timbrado: (918) 1480  ..20/09/2019:05:37 p. m.
+
+ .. PAC: 4 - Verificado : (6) 6 Certificado : (384) 390 Armado: (27) 417 Genera: (390) 807 Timbrado: (2271) 3078 Guardado: (219) 3297 Actualizado: (902) 4199  ..01/10/2019:12:27 a. m.
+
+ .. PAC: 4 - Verificado : (0) 0 Certificado : (204) 204 Armado: (1) 205 Genera: (249) 454 Timbrado: (431) 885  ..01/10/2019:12:27 a. m.
--- a/OS/CatEstatusOrdenServicio.aspx.vb
+++ b/OS/CatEstatusOrdenServicio.aspx.vb
@@ -106,6 +106,7 @@ Partial Class OS_CatEstatusOrdenServicio
        If HdnModalidad.Value = "I" Then
            If ObjEstatusOrdenServicios.AddEstatusOrdenServicio(TxtEstatusOS.Text.Trim, DdlTipoEstatus.SelectedValue.ToEntero, If(ChkEstatus.Checked, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
                CargaDatos()
+                Alert("Estatus agregado")
            End If
        Else
            If HdnID.Value.ToEntero <> -1 Then
@@ -117,20 +118,20 @@ Partial Class OS_CatEstatusOrdenServicio
            If Not TieneError Then
                GvDatos.EditIndex = -1
                CargaDatos()
+                Alert("Estatus actualizado")
            Else
                Alert("Ocurrio un error al actualizar los datos", TipoMensaje.MsgAdvertencia)
            End If
        End If

        ObjEstatusOrdenServicios.Dispose()
-        'CargaDatos()
-        'AsociarEstatusUsuarios()
-        'CargarUsuarioConEstatus()
-        'UpDatos.Update()
-        'UpPrueba.Update()
-        Alert("Estatus agregado")
        RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddEstatusOS"))
-        Response.Redirect(HttpContext.Current.Request.Url.ToString(), True)
+        EstatusUsuariosGridActualizar()
+        AsociarEstatusUsuarios()
+        CargarUsuarioConEstatus()
+        UpDatos.Update()
+        'UpPrueba.Update()
+        'Response.Redirect(HttpContext.Current.Request.Url.ToString(), True)
    End Sub
    Public Sub Edit_Click(sender As Object, e As EventArgs)
        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
@@ -168,9 +169,9 @@ Partial Class OS_CatEstatusOrdenServicio
        End If

        ObjEstatusOrdenServicios.Dispose()
-        'CargaDatos()
-        'UpDatos.Update()
-        Response.Redirect(HttpContext.Current.Request.Url.ToString(), True)
+        CargaDatos()
+        UpDatos.Update()
+        'Response.Redirect(HttpContext.Current.Request.Url.ToString(), True)
    End Sub
    Protected Sub GvDatos_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvDatos.RowUpdating
        Dim ObjEstatusOrdenServicios As New ClsOS
@@ -208,9 +209,6 @@ Partial Class OS_CatEstatusOrdenServicio
    End Sub

    Private Sub CargarUsuarioConEstatus()
-        'For Contador As Integer = (Prueba.Columns.Count - 1) To 1 Step -1
-        '    Prueba.Columns.RemoveAt(Contador)
-        'Next
        For Each Estatus As DataRow In DtEstatusOS.Rows
            Dim test As New CheckBoxField
            test.HeaderText = Estatus.Item("EstatusOrdenServicio").ToString
@@ -268,5 +266,13 @@ Partial Class OS_CatEstatusOrdenServicio
        End If
        objEstatusOC.Dispose()
    End Sub
+
+    Private Sub EstatusUsuariosGridActualizar()
+        DtEstatusUsuariosAsociados = Nothing
+        Prueba.DataBind()
+        For Contador As Integer = (Prueba.Columns.Count - 1) To 1 Step -1
+            Prueba.Columns.RemoveAt(Contador)
+        Next
+    End Sub
 #End Region
 End Class
--- a/RH/CatPersonalRequerido.aspx
+++ b/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"
-                            DataKeyNames="CveRequerimiento,Cantidad,Proyecto,CveProyecto,SubProyecto,CveSubProyecto,Turno,CveTurno,Usuario,CveUsuario,CveEmpresa,FechaIngreso,FechaActualizacion">
+                        <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,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>
--- a/RH/CatPersonalRequerido.aspx.vb
+++ b/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)
-        CargaTurno()
+        ReqSubProyectoDdl.SelectedValueExist(GvRow.DataKey("CveSubProyecto").ToEntero)
+
        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()
--- a/RH/Personal.aspx
+++ b/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>
-                                                        <i></i>
-                                                    </div>
-                                                    <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 runat="server" id="DivPadres" visible="true">
+                                                        <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>
+                                                            <i></i>
+                                                        </div>
+
+                                                        <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">
--- a/RH/Personal.aspx.vb
+++ b/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()
-
-            'If UsuarioActual.TienePermisoProceso(84) Then 'abonar pago
-            '    HplAbonarMasivo.Visible = True
-            '    GvGxC.Columns(7).Visible = True
-            'End If
-
-
+            CargaCuentasBancarias()
+
+            If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then
+
+                CrearEstructuraFamiliares()
+                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
--- a/RH/RepPersonalNecesidades.aspx
+++ b/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">
--- a/RH/RepPersonalNecesidades.aspx.vb
+++ b/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
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -4540,9 +4540,19 @@ Partial Class PV
    End Sub

    Private Sub BtnAgregarCliente_Click(sender As Object, e As EventArgs) Handles BtnAgregarCliente.Click
+        Dim CvePreioLista As Integer = -1
+        If DdlSubProyectoDatos.SelectedValue.ToEntero > 0 Then
+            Dim Dr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa).Rows(0)
+            If Dr IsNot Nothing Then
+                If Dr("CvePrecioLista").ToString.ToEntero > 0 Then
+                    CvePreioLista = Dr("CvePrecioLista").ToString.ToEntero
+                End If
+            End If
+        End If
+
        Dim ObjCliente As New ClsClientes

-        If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim, TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, TxtEstadoCliente.Text.Trim, TxtPaisCliente.Text.Trim, TxtRFCCliente.Text.Trim, TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "") Then
+        If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim, TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, TxtEstadoCliente.Text.Trim, TxtPaisCliente.Text.Trim, TxtRFCCliente.Text.Trim, TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", CvePreioLista) Then
            If ObjCliente.DtResultados.Rows.Count > 0 Then
                RegistraScript("hideDivEC();")
                ViewState("CveCliente") = ObjCliente.DtResultados(0)("CveCliente").ToString.ToEntero
--- a/Ventas/RepCotizacionesxFacturar.aspx
+++ b/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">
--- a/Ventas/RepCotizacionesxFacturar.aspx.vb
+++ b/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")
-        FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
+        FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), MinFecha.ToShortDateString)
+        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()
--- a/Ventas/RepRemisionesNC.aspx
+++ b/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">
--- a/Ventas/RepRemisionesNC.aspx.vb
+++ b/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")
-        FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
+        FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), MinFecha.ToShortDateString)
+        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()
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2239,6 +2239,7 @@ Partial Class Ventas
                ImgFecha.Visible = False
            End If

+
            CargarCodigo()
            InicializaImprimirNew()

@@ -2469,6 +2470,8 @@ Partial Class Ventas
            TxtFecha.Enabled = True
            ImgFecha.Visible = True
        End If
+        TxtFecha.Enabled = True
+
    End Sub

    Private Sub ConfiguraEmpresa()
@@ -16652,9 +16655,19 @@ Partial Class Ventas
    End Sub

    Private Sub BtnAgregarCliente_Click(sender As Object, e As EventArgs) Handles BtnAgregarCliente.Click
+        Dim CvePreioLista As Integer = -1
+        If DdlSubProyectoDatos.SelectedValue.ToEntero > 0 Then
+            Dim Dr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa).Rows(0)
+            If Dr IsNot Nothing Then
+                If Dr("CvePrecioLista").ToString.ToEntero > 0 Then
+                    CvePreioLista = Dr("CvePrecioLista").ToString.ToEntero
+                End If
+            End If
+        End If
+
        Dim ObjCliente As New ClsClientes

-        If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim, TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, TxtEstadoCliente.Text.Trim, TxtPaisCliente.Text.Trim, TxtRFCCliente.Text.Trim, TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "") Then
+        If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim, TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, TxtEstadoCliente.Text.Trim, TxtPaisCliente.Text.Trim, TxtRFCCliente.Text.Trim, TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", CvePreioLista) Then
            If ObjCliente.DtResultados.Rows.Count > 0 Then
                RegistraScript("hideDivEC();")
                ViewState("CveCliente") = ObjCliente.DtResultados(0)("CveCliente").ToString.ToEntero