Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
janeth arvizu
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -11976,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
|
||||
@@ -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
|
||||
|
||||
@@ -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>
|
||||
|
||||
@@ -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()
|
||||
|
||||
165
RH/Personal.aspx
165
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> <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">
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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">
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user