From d20e22d49d6de877439a8bfa1d65f247e21da11e Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Wed, 2 Oct 2019 13:43:33 -0700 Subject: [PATCH 1/3] RH Familiares grid y personal requeriemientos --- App_Code/ClsRH.vb | 45 ++-- App_Code/Modelos.vb | 4 +- RH/CatPersonalRequerido.aspx | 29 ++- RH/CatPersonalRequerido.aspx.vb | 32 ++- RH/Personal.aspx | 165 +++++++++++- RH/Personal.aspx.vb | 401 ++++++++++++++++++++++++++++-- RH/RepPersonalNecesidades.aspx | 7 + RH/RepPersonalNecesidades.aspx.vb | 19 +- 8 files changed, 647 insertions(+), 55 deletions(-) diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index 7aa66e67c..022ef5ff0 100644 --- 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 diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index f77aa9e8d..2eb5346c2 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -8585,6 +8585,7 @@ Namespace Modelos CveTurno = -1 CveUsuario = -1 CveEmpresa = -1 + CveDepartamento = -1 End Sub Public Property CveRequerimiento As Integer Public Property CveProyecto As Integer @@ -8598,7 +8599,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 diff --git a/RH/CatPersonalRequerido.aspx b/RH/CatPersonalRequerido.aspx index cc0b56517..cd3c2a71d 100644 --- a/RH/CatPersonalRequerido.aspx +++ b/RH/CatPersonalRequerido.aspx @@ -81,19 +81,28 @@ - + + + + + + + + + @@ -157,6 +166,22 @@
+ +
+ + + + + + + + + +
+ +
+ +
diff --git a/RH/CatPersonalRequerido.aspx.vb b/RH/CatPersonalRequerido.aspx.vb index 875b934e7..019aaef2d 100644 --- 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() diff --git a/RH/Personal.aspx b/RH/Personal.aspx index 3b139a670..3cf3d5b97 100644 --- a/RH/Personal.aspx +++ b/RH/Personal.aspx @@ -70,7 +70,17 @@ - <%-- añlsdkjlasjdlkasjdkas--%> + + + +
  • + +
    • + +     +     + +   @@ -259,15 +269,69 @@
    -
    - - - -
    -
    - - - + + +
    +
    + + + +
    + +
    + + + +
    +
    +
    +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
    @@ -4218,6 +4282,87 @@ + + + diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index c26034a1b..d1fe3b2f4 100644 --- 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 diff --git a/RH/RepPersonalNecesidades.aspx b/RH/RepPersonalNecesidades.aspx index b75ac94b1..74cdbe9b6 100644 --- a/RH/RepPersonalNecesidades.aspx +++ b/RH/RepPersonalNecesidades.aspx @@ -30,6 +30,12 @@ + +
  • Departamento: + + +
    • +
  • Turno: @@ -62,6 +68,7 @@ + diff --git a/RH/RepPersonalNecesidades.aspx.vb b/RH/RepPersonalNecesidades.aspx.vb index d1d975991..a591c9271 100644 --- 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 From 5d720805fe024cadca8700f39ed476f627f43661 Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Thu, 3 Oct 2019 10:22:49 -0700 Subject: [PATCH 2/3] se cambio IdCtaContableSIGComplementaria a IdCtaContableComplementariaSIG --- Compras/Compras.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 31b36d589..e79e2a920 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -11967,7 +11967,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 From e1c835b7641994a39957aa8d8eb2d95c948127e5 Mon Sep 17 00:00:00 2001 From: Rene Molina Date: Thu, 3 Oct 2019 11:49:40 -0700 Subject: [PATCH 3/3] registro de gasto, con producto con funcionalidad 562 --- Compras/Compras.aspx.vb | 53 ++++++++++++++++++++++++----------------- 1 file changed, 31 insertions(+), 22 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 65cec3bf8..b754077b7 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -6281,7 +6281,7 @@ Partial Class Compras_Compras '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 @@ -9626,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 @@ -15323,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 @@ -15337,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