diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index a0ca323b8..aac53b30f 100644 --- 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 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/ClsVentas.vb b/App_Code/ClsVentas.vb index 64441797d..34e8e1235 100644 --- 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 diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 245c45218..06f6f4033 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -8599,6 +8599,7 @@ Namespace Modelos CveTurno = -1 CveUsuario = -1 CveEmpresa = -1 + CveDepartamento = -1 End Sub Public Property CveRequerimiento As Integer Public Property CveProyecto As Integer @@ -8612,7 +8613,8 @@ Namespace Modelos Public Property FechaActualizacion As DateTime Public Property CveUsuario As Integer Public Property Usuario As String - Public Property CveEmpresa As Integer + Public Property CveEmpresa As Integer + Public Property CveDepartamento As Integer End Class #End Region diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index b754077b7..56add2947 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -11980,7 +11980,7 @@ Partial Class Compras_Compras IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero IdCuentaBancariaComplementaria = dr("IdCtaContableComplementaria").ToString.ToEntero - CveCuentaBancariaComplementaria = dr("IdCtaContableSIGComplementaria").ToString.ToEntero + CveCuentaBancariaComplementaria = dr("IdCtaContableComplementariaSIG").ToString.ToEntero If dr("UsaTarjeta").ToString = "True" Then CargaGridTarjetas() Else diff --git a/Inventarios/RepTraspasoAlmacen.aspx b/Inventarios/RepTraspasoAlmacen.aspx index 7a960e4a4..889f31c2c 100644 --- a/Inventarios/RepTraspasoAlmacen.aspx +++ b/Inventarios/RepTraspasoAlmacen.aspx @@ -186,7 +186,7 @@ - diff --git a/Inventarios/RepTraspasoAlmacen.aspx.vb b/Inventarios/RepTraspasoAlmacen.aspx.vb index b946ac833..9612e4d1e 100644 --- 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() 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 diff --git a/Ventas/RepCotizacionesxFacturar.aspx b/Ventas/RepCotizacionesxFacturar.aspx index 4006b9d70..0d45cd200 100644 --- a/Ventas/RepCotizacionesxFacturar.aspx +++ b/Ventas/RepCotizacionesxFacturar.aspx @@ -207,7 +207,7 @@ - diff --git a/Ventas/RepCotizacionesxFacturar.aspx.vb b/Ventas/RepCotizacionesxFacturar.aspx.vb index 20f4131e0..8f4a49951 100644 --- 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() diff --git a/Ventas/RepRemisionesNC.aspx b/Ventas/RepRemisionesNC.aspx index 123f83eb3..7f7792043 100644 --- a/Ventas/RepRemisionesNC.aspx +++ b/Ventas/RepRemisionesNC.aspx @@ -207,7 +207,7 @@ - diff --git a/Ventas/RepRemisionesNC.aspx.vb b/Ventas/RepRemisionesNC.aspx.vb index 69ba12d94..a85466454 100644 --- 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()