This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2022-03-10 09:06:19 -07:00
parent 2feab11f5e
commit 8f0524a095
16 changed files with 3529 additions and 232 deletions

View File

@@ -1459,8 +1459,7 @@
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlRegistroPatronal" runat="server" Width="100%" DataTextField="RegistroPatronal" CssClass="form-control input-sm select2me" DataValueField="CveRegistroPatronal" >
<asp:DropDownList ID="DdlRegistroPatronal" runat="server" Width="100%" DataTextField="RegistroPatronal" CssClass="form-control input-sm select2me" DataValueField="CveRegistroPatronal">
</asp:DropDownList>
<asp:Label runat="server" AssociatedControlID="DdlRegistroPatronal" Text="Registro Patronal:"></asp:Label>
<%--<asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="DdlRiesgoPuesto" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Riesgo Puesto''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>--%>
@@ -1672,13 +1671,13 @@
</div>
<div class="portlet-body form">
<div class="row">
<div class="col-md-6">
<div class="col-sm-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control" ID="TxtInfoNumCredito" runat="server" MaxLength="20"></asp:TextBox>
<asp:Label AssociatedControlID="TxtInfoNumCredito" runat="server" Text="Número de crédito"></asp:Label>
</div>
</div>
<div class="col-md-6">
<div class="col-sm-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control" ID="TxtInfoDescripcion" runat="server" MaxLength="20"></asp:TextBox>
<asp:Label AssociatedControlID="TxtInfoDescripcion" runat="server" Text="Descripción"></asp:Label>
@@ -1686,7 +1685,7 @@
</div>
</div>
<div class="row">
<div class="col-md-6">
<div class="col-sm-6">
<div class="">
<asp:Label AssociatedControlID="DdlInfoTipoAplicacion" CssClass="ddlInfolabel" runat="server" Text="Tipo Aplicación"></asp:Label>
@@ -1699,7 +1698,7 @@
</asp:DropDownList>
</div>
</div>
<div class="col-md-6">
<div class="col-sm-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control" ID="TxtInfoValor" runat="server" MaxLength="20"></asp:TextBox>
<asp:Label AssociatedControlID="TxtInfoValor" runat="server" Text="Valor"></asp:Label>
@@ -1707,7 +1706,7 @@
</div>
</div>
<div class="row">
<div class="col-md-6">
<div class="col-sm-6">
<div class="form-group form-md-line-input input-iconright " style="width: 120px !important; display: inline-block;">
<asp:TextBox CssClass="form-control" ID="TxtInfoFechaInicio" runat="server" MaxLength="20"></asp:TextBox>
<asp:Label AssociatedControlID="TxtInfoFechaInicio" runat="server" Text="Fecha Inicio"></asp:Label>
@@ -1721,12 +1720,12 @@
</span>
</div>
</div>
<div class="col-md-3">
<div class="col-sm-3">
<div class=" ">
<asp:Label AssociatedControlID="ChkInfo" runat="server" Text="Estado (Activo)"></asp:Label>
</div>
</div>
<div class="col-md-3">
<div class="col-sm-3">
<asp:CheckBox ID="ChkInfo" CssClass="chksino" runat="server" Text=" " />
</div>
</div>
@@ -1745,68 +1744,172 @@
</div>
<div class="actions">
<div class="btn-group">
<asp:LinkButton ID="LnkGuardarFonacot" OnClick="LnkGuardarFonacot_Click" runat="server" Text="Guardar" class="btn btn-primary" />
<asp:LinkButton ID="LnAddFonacot" OnClick="LnAddFonacot_Click" runat="server" Text="Agregar" class="btn btn-primary" />
</div>
</div>
</div>
<div class="portlet-body form">
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control" ID="TxtFonNumCredito" runat="server" MaxLength="20"></asp:TextBox>
<asp:Label AssociatedControlID="TxtFonNumCredito" runat="server" Text="Número de crédito"></asp:Label>
</div>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control" ID="TxtFonDescripcion" runat="server" MaxLength="20"></asp:TextBox>
<asp:Label AssociatedControlID="TxtFonDescripcion" runat="server" Text="Descripción"></asp:Label>
</div>
</div>
</div>
<div class="row">
<div class="col-md-6">
<div class="">
<asp:Label AssociatedControlID="DdlFonTipoAplicacion" CssClass="ddlInfolabel" runat="server" Text="Tipo Aplicación"></asp:Label>
<asp:DropDownList ID="DdlFonTipoAplicacion" runat="server" Class="form-control select2me" Width="100%">
<asp:ListItem Text="Seleccione" Value="-1"></asp:ListItem>
<asp:ListItem Text="Fonacot (Importe fijo)" Value="3001"></asp:ListItem>
<asp:ListItem Text="Fonacot (Por días Laborados)" Value="3002"></asp:ListItem>
</asp:DropDownList>
</div>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control" ID="TxtFonValor" runat="server" MaxLength="20"></asp:TextBox>
<asp:Label AssociatedControlID="TxtFonValor" runat="server" Text="Valor"></asp:Label>
<asp:UpdatePanel runat="server" ID="UpFonacotGrid" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GVNomFonacot" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall"
AutoGenerateColumns="False" ShowHeaderWhenEmpty="true" EmptyDataText="No ahi créditos fonacot registrados."
DataKeyNames="CveFonacot,CvePersonal,NumeroCredito,Descripcion,Periodo,CveTipoCalculo,ImporteCredito,ImporteFijo,PagosHechos,MontoAcumulado,Saldo,CveEstatus,Observaciones,CveUsuarioIng">
<Columns>
<asp:TemplateField HeaderText="Numero crédito">
<ItemTemplate>
<asp:Label ID="lblnumeroCredito" runat="server" Text='<%# Eval("NumeroCredito")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Tipo aplicación">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("TipoCalculo")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Descripcion">
<ItemTemplate>
<asp:Label ID="lbldescripcion" runat="server" Text='<%# Eval("Descripcion")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Importe">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("ImporteFijo", "{0:N2}")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Importe crédito">
<ItemTemplate>
<asp:Label ID="lblimporteCredito" runat="server" Text='<%# Eval("ImporteCredito", "{0:N2}")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Saldo">
<ItemTemplate>
<asp:Label ID="lblsaldo" runat="server" Text='<%# Eval("Saldo", "{0:N2}")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Estatus">
<ItemTemplate>
<asp:Label ID="lblcveEstatus" runat="server" Text='<%#If(Eval("CveEstatus").ToString() = "1", "Activo", "Inactivo") %>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<ItemTemplate>
<asp:LinkButton data-toggle="tooltip" title="Editar" ID="LnkEditarNomFonacot" OnClick="LnkEditarNomFonacot_Click" CssClass="btn btn-circle btn-sm green" runat="server" Text="<i class='fa fa-pencil'></i>"></asp:LinkButton>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<ItemTemplate>
<asp:LinkButton ID="LnkEliminarNomFonacot" runat="server" OnClick="LnkEliminarNomFonacot_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea eliminar el NomFonacot?" data-btn-ok-label="si" />
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
<div id="ModalFonacot" class="modal ADS fade" role="dialog">
<div class="modal-dialog">
<div class="modal-content">
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">&times;</button><h4 class="modal-title">Fonacot</h4>
</div>
<div class="modal-body">
<asp:UpdatePanel runat="server" ID="UpModalFonacot" UpdateMode="Conditional">
<ContentTemplate>
<div class="row">
<div class="col-sm-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control" ID="TxtFonNumCredito" runat="server" MaxLength="20"></asp:TextBox>
<asp:Label AssociatedControlID="TxtFonNumCredito" runat="server" Text="Número de crédito"></asp:Label>
</div>
</div>
<div class="col-sm-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control" ID="TxtFonDescripcion" runat="server" MaxLength="20"></asp:TextBox>
<asp:Label AssociatedControlID="TxtFonDescripcion" runat="server" Text="Descripción"></asp:Label>
</div>
</div>
</div>
<div class="row">
<div class="col-sm-4">
<div class="">
<asp:Label AssociatedControlID="DdlFonTipoAplicacion" CssClass="ddlInfolabel" runat="server" Text="Tipo aplicación"></asp:Label>
<asp:DropDownList ID="DdlFonTipoAplicacion" runat="server" Class="form-control select2me" Width="100%">
<asp:ListItem Text="Seleccione" Value="-1"></asp:ListItem>
<asp:ListItem Text="Importe fijo" Value="1"></asp:ListItem>
<asp:ListItem Text="Por días Laborados" Value="2"></asp:ListItem>
</asp:DropDownList>
</div>
</div>
<div class="col-sm-4">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control" ID="TxtFonValor" runat="server" MaxLength="20"></asp:TextBox>
<asp:Label AssociatedControlID="TxtFonValor" runat="server" Text="Importe"></asp:Label>
</div>
</div>
</div>
<div class="row">
<div class="col-sm-4">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control TxtFonImporteCredito" ID="TxtFonImporteCredito" runat="server" MaxLength="20"></asp:TextBox>
<asp:Label AssociatedControlID="TxtFonImporteCredito" runat="server" Text="Importe total crédito"></asp:Label>
</div>
</div>
<div class="col-sm-4">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control TxtFonPagosHechos " ID="TxtFonPagosHechos" runat="server" MaxLength="20"></asp:TextBox>
<asp:Label AssociatedControlID="TxtFonPagosHechos" runat="server" Text="Pagos Anteriores"></asp:Label>
</div>
</div>
<div class="col-sm-4">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control TxtFonSaldo" Enabled="false" ID="TxtFonSaldo" runat="server" MaxLength="20"></asp:TextBox>
<asp:Label AssociatedControlID="TxtFonSaldo" runat="server" Text="Saldo"></asp:Label>
</div>
</div>
</div>
<div class="row">
<div class="col-sm-6">
<div class="form-group form-md-line-input input-iconright " style="width: 120px !important; display: inline-block;">
<asp:TextBox CssClass="form-control" ID="TxtFonFechaInicio" runat="server" MaxLength="20"></asp:TextBox>
<asp:Label AssociatedControlID="TxtFonFechaInicio" runat="server" Text="Fecha Inicio"></asp:Label>
<asp:RequiredFieldValidator runat="server" ID="rfvFonFechaFEstFin" ControlToValidate="TxtFonFechaInicio" ErrorMessage="Debe ingresar una fecha" ValidationGroup="vgEstFon" />
<ajax:MaskedEditExtender ID="MEEFonFechaFEstFin" runat="server" TargetControlID="TxtFonFechaInicio" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CEEFonFechaFEstFin" TargetControlID="TxtFonFechaInicio" PopupButtonID="LnkFonFechaFEstFin" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
</div>
<div style="display: inline-block; vertical-align: top; padding-top: 10px;">
<span class="input-group-btn ">
<asp:LinkButton ID="LnkFonFechaFEstFin" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
</div>
</div>
<div class="col-sm-3">
<div class="">
<asp:Label AssociatedControlID="ChkFonacot" runat="server" Text="Estado (Activo)"></asp:Label>
</div>
</div>
<div class="col-sm-3">
<asp:CheckBox ID="ChkFonacot" CssClass="chksino" runat="server" Text=" " />
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
<div class="modal-footer">
<asp:UpdatePanel runat="server">
<ContentTemplate>
<asp:LinkButton ID="LnkGuardarFonacot" OnClick="LnkGuardarFonacot_Click" runat="server" Text="Guardar" class="btn btn-primary" />
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</div>
</div>
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright " style="width: 120px !important; display: inline-block;">
<asp:TextBox CssClass="form-control" ID="TxtFonFechaInicio" runat="server" MaxLength="20"></asp:TextBox>
<asp:Label AssociatedControlID="TxtFonFechaInicio" runat="server" Text="Fecha Inicio"></asp:Label>
<asp:RequiredFieldValidator runat="server" ID="rfvFonFechaFEstFin" ControlToValidate="TxtFonFechaInicio" ErrorMessage="Debe ingresar una fecha" ValidationGroup="vgEstFon" />
<ajax:MaskedEditExtender ID="MEEFonFechaFEstFin" runat="server" TargetControlID="TxtFonFechaInicio" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CEEFonFechaFEstFin" TargetControlID="TxtFonFechaInicio" PopupButtonID="LnkFonFechaFEstFin" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
</div>
<div style="display: inline-block; vertical-align: top; padding-top: 10px;">
<span class="input-group-btn ">
<asp:LinkButton ID="LnkFonFechaFEstFin" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
</div>
</div>
<div class="col-md-3">
<div class="">
<asp:Label AssociatedControlID="ChkFonacot" runat="server" Text="Estado (Activo)"></asp:Label>
</div>
</div>
<div class="col-md-3">
<asp:CheckBox ID="ChkFonacot" CssClass="chksino" runat="server" Text=" " />
</div>
</div>
</div>
</div>
@@ -1936,43 +2039,43 @@
<table class="table table-striped table-hover Widthall" id="GvAsistenciaHeader">
<%--<thead>--%>
<tr class="Titulos">
<th style="width:120px">
<th style="width: 120px">
<asp:LinkButton ID="LbFechaAsistencia" runat="server" CausesValidation="false" Text="Fecha" CommandArgument="" OnClick="LbOrden_Click"></asp:LinkButton>
</th>
<th style="width:180px">
<th style="width: 180px">
<asp:LinkButton ID="LbClienteAsistencia" runat="server" CausesValidation="false" Text="Cliente" CommandArgument="Cliente1;1" OnClick="LbOrden_Click">
<asp:Literal ID="ImgCliente1" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
</asp:LinkButton>
</th>
<th style="width:110px">
<th style="width: 110px">
<asp:LinkButton ID="LbProyectoAsistencia" runat="server" CausesValidation="false" Text="Proyecto" CommandArgument="Proyecto1;1" OnClick="LbOrden_Click">
<asp:Literal ID="ImgProyecto1" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
</asp:LinkButton></th>
<th style="width:110px">
<th style="width: 110px">
<asp:LinkButton ID="LbSubProyectoAsistencia" runat="server" CausesValidation="false" Text="Sub Proyecto" CommandArgument="SubProyecto1;1" OnClick="LbOrden_Click">
<asp:Literal ID="ImgSubProyecto1" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
</asp:LinkButton></th>
<th style="width:70px;">
<th style="width: 70px;">
<asp:LinkButton ID="LbTipoAsistencia" runat="server" CausesValidation="false" Text="Asistencia" CommandArgument="" OnClick="LbOrden_Click">
</asp:LinkButton>
</th>
<th style="width:50px;">
<th style="width: 50px;">
<asp:LinkButton ID="LbPorPagoAsistencia" runat="server" CausesValidation="false" Text="% Pago" CommandArgument="" OnClick="LbOrden_Click">
</asp:LinkButton>
</th>
<th style="width:56px;">
<th style="width: 56px;">
<asp:LinkButton ID="LbHorasDoblesAsistencia" runat="server" CausesValidation="false" Text="Hrs Dob." CommandArgument="" OnClick="LbOrden_Click">
</asp:LinkButton>
</th>
<th style="width:56px;">
<th style="width: 56px;">
<asp:LinkButton ID="LbHorasTriplesAsistencia" runat="server" CausesValidation="false" Text="Hrs Trip." CommandArgument="" OnClick="LbOrden_Click">
</asp:LinkButton>
</th>
<th style="width:110px;">
<th style="width: 110px;">
<asp:LinkButton ID="LbMotivosHorasExtrasAsistencia" runat="server" CausesValidation="false" Text="Motivos H. Extras" CommandArgument="" OnClick="LbOrden_Click">
</asp:LinkButton>
</th>
<th style="width:30px;">
<th style="width: 30px;">
<asp:LinkButton ID="LbObservacionesAsistencia" runat="server" CausesValidation="false" Text="Obs." CommandArgument="" OnClick="LbOrden_Click">
</asp:LinkButton>
</th>
@@ -4005,8 +4108,8 @@
<i class="fa fa-commenting font-green"></i>
<span class="caption-subject bold">Agregar</span>
</div>--%>
<asp:HyperLink ID="ImgAddObs" CssClass="caption-subject bold" data-toggle="modal" data-target="#ModalBitacora" runat="server" Text=" <i class='fa fa-commenting font-green'></i><span class='caption-subject bold'>Agregar</span>" Style="font-weight: 700 !important;cursor: pointer;" ToolTip="Observaciones"></asp:HyperLink><br />
<asp:HyperLink ID="HlEvento" CssClass="thickbox caption-subject bold" runat="server" Text=" <i class='fa fa-calendar-plus-o font-green'></i>Agendar" Visible="false" Style="font-weight: 700 !important;cursor: pointer;" ToolTip="Agendar"></asp:HyperLink><br />
<asp:HyperLink ID="ImgAddObs" CssClass="caption-subject bold" data-toggle="modal" data-target="#ModalBitacora" runat="server" Text=" <i class='fa fa-commenting font-green'></i><span class='caption-subject bold'>Agregar</span>" Style="font-weight: 700 !important; cursor: pointer;" ToolTip="Observaciones"></asp:HyperLink><br />
<asp:HyperLink ID="HlEvento" CssClass="thickbox caption-subject bold" runat="server" Text=" <i class='fa fa-calendar-plus-o font-green'></i>Agendar" Visible="false" Style="font-weight: 700 !important; cursor: pointer;" ToolTip="Agendar"></asp:HyperLink><br />
<asp:Literal ID="LtlTareaNueva" runat="server"></asp:Literal>
<UserControl:TareaNueva runat="server" ID="TareaNueva" />
</div>

View File

@@ -16,6 +16,18 @@ Partial Class RH_Personal
#Region "P R O P I E D A D E S"
Property CveFonacot As Integer
Get
If ViewState("CveFonacot") Is Nothing Then
Return -1
Else
Return DirectCast(ViewState("CveFonacot"), Integer)
End If
End Get
Set(value As Integer)
ViewState("CveFonacot") = value
End Set
End Property
Private Property DTCuentasBancos As DataTable
Get
Return CType(ViewState("DTCuentasBancos"), DataTable)
@@ -900,6 +912,7 @@ Partial Class RH_Personal
ViewState("CvePersonal") = -1
BtnEliminar.Visible = False
CarcaConceptosNomina()
CargaFonacot()
For Each Gvr As GridViewRow In GVConceptos.Rows
If CBool(Gvr.DataKey("Obligatorio")) Then
Gvr.FCCheckBox("ChkAplica").Checked = True
@@ -1690,6 +1703,7 @@ Partial Class RH_Personal
'Carga Conceptos de Nómina
CarcaConceptosNomina()
CargaFonacot()
'Carga Pagos no Bancarios
CargarPagosNoBancarios()
'Carga Resguardos
@@ -2555,22 +2569,22 @@ Partial Class RH_Personal
End If
frow = ObjPersonal.DtResultados.FiltroPrimero("CveSistema =4")
TxtFonValor.Text = ""
DdlFonTipoAplicacion.SelectedValueExist("-1")
TxtFonDescripcion.Text = ""
TxtFonNumCredito.Text = ""
TxtFonFechaInicio.Text = ""
ChkFonacot.Checked = False
If Not IsNothing(frow) Then
TxtFonValor.Text = String.Format("{0:###,###.##}", frow("Importe"))
DdlFonTipoAplicacion.SelectedValueExist(frow("TipoAplicacion").ToString())
'frow = ObjPersonal.DtResultados.FiltroPrimero("CveSistema =4")
'TxtFonValor.Text = ""
'DdlFonTipoAplicacion.SelectedValueExist("-1")
'TxtFonDescripcion.Text = ""
'TxtFonNumCredito.Text = ""
'TxtFonFechaInicio.Text = ""
'ChkFonacot.Checked = False
'If Not IsNothing(frow) Then
' TxtFonValor.Text = String.Format("{0:###,###.##}", frow("Importe"))
' DdlFonTipoAplicacion.SelectedValueExist(frow("TipoAplicacion").ToString())
TxtFonDescripcion.Text = String.Format("{0}", frow("Descripcion02"))
TxtFonNumCredito.Text = String.Format("{0}", frow("Descripcion01"))
TxtFonFechaInicio.Text = String.Format("{0:dd/MM/yyyy}", frow("FInicioAplicacion"))
ChkFonacot.Checked = frow("estatus").ToString().ToUpper().Contiene("1", "TRUE")
End If
' TxtFonDescripcion.Text = String.Format("{0}", frow("Descripcion02"))
' TxtFonNumCredito.Text = String.Format("{0}", frow("Descripcion01"))
' TxtFonFechaInicio.Text = String.Format("{0:dd/MM/yyyy}", frow("FInicioAplicacion"))
' ChkFonacot.Checked = frow("estatus").ToString().ToUpper().Contiene("1", "TRUE")
'End If
Else
GVConceptos.DataSource = Nothing
End If
@@ -6521,30 +6535,115 @@ Partial Class RH_Personal
gvrow.FCTextBox("TxtPorPago").Text = "87.5"
End If
End Sub
Public Sub LimpiarFonacot()
TxtFonValor.Text = ""
TxtFonImporteCredito.Text = ""
TxtFonPagosHechos.Text = ""
DdlFonTipoAplicacion.SelectedValueExist("-1")
TxtFonDescripcion.Text = ""
TxtFonNumCredito.Text = ""
TxtFonFechaInicio.Text = ""
ChkFonacot.Checked = False
End Sub
Protected Sub CargaFonacot()
Using onom As ClsNominas = New ClsNominas()
onom.NomFonacotGet(UsuarioActual.CveEmpresa, -1, CvePersonal)
GVNomFonacot.DataSource = onom.DtResultados
GVNomFonacot.DataBind()
End Using
UpFonacotGrid.Update()
End Sub
Protected Sub LnAddFonacot_Click(sender As Object, e As EventArgs)
LimpiarFonacot()
CveFonacot = -1
RegistraScript("$('#ModalFonacot').modal();")
End Sub
Protected Sub LnkEditarNomFonacot_Click(sender As Object, e As EventArgs)
Dim gvrow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
CveFonacot = gvrow.DataKey("CveFonacot").ToEntero()
Dim cvePersonal As Int32 = gvrow.DataKey("CvePersonal").ToEntero()
Dim numeroCredito As String = gvrow.DataKey("NumeroCredito")
Dim descripcion As String = gvrow.DataKey("Descripcion")
Dim periodo As Int32 = gvrow.DataKey("Periodo").ToEntero()
Dim cveTipoCalculo As Int32 = gvrow.DataKey("CveTipoCalculo").ToEntero()
Dim importeCredito As Decimal = gvrow.DataKey("ImporteCredito").ToDecimal()
Dim importeFijo As Decimal = gvrow.DataKey("ImporteFijo").ToDecimal()
Dim pagosHechos As Decimal = gvrow.DataKey("PagosHechos").ToDecimal()
Dim montoAcumulado As Decimal = gvrow.DataKey("MontoAcumulado").ToDecimal()
Dim saldo As Decimal = gvrow.DataKey("Saldo").ToDecimal()
Dim cveEstatus As Int32 = gvrow.DataKey("CveEstatus").ToEntero()
Dim observaciones As String = gvrow.DataKey("Observaciones")
If (periodo < 10000000) Then
periodo = 20000101
End If
LimpiarFonacot()
TxtFonValor.Text = importeFijo.ToString()
TxtFonImporteCredito.Text = importeCredito.ToString()
TxtFonPagosHechos.Text = pagosHechos.ToString()
DdlFonTipoAplicacion.SelectedValueExist(cveTipoCalculo.ToString())
TxtFonDescripcion.Text = descripcion
TxtFonNumCredito.Text = numeroCredito
TxtFonFechaInicio.Text = String.Format("{2}/{1}/{0}", periodo.ToString().Substring(0, 4), periodo.ToString().Substring(4, 2), periodo.ToString().Substring(6, 2))
ChkFonacot.Checked = (cveEstatus = 1)
UpModalFonacot.Update()
RegistraScript("$('#ModalFonacot').modal();")
End Sub
Protected Sub LnkEliminarNomFonacot_Click(sender As Object, e As EventArgs)
Dim gvrow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim cveFonacot As Integer = gvrow.DataKey("CveFonacot").ToEntero()
Dim Continuar As Boolean = False
Using onom As ClsNominas = New ClsNominas()
Continuar = onom.NomFonacotRemove(UsuarioActual.CveEmpresa, cveFonacot)
End Using
If (Continuar) Then
CargaFonacot()
Alert("El registro fonacot se ha eliminado")
End If
End Sub
Protected Sub LnkGuardarFonacot_Click(sender As Object, e As EventArgs)
Dim importe As Double = TxtFonValor.Text.ToDouble()
Dim importe As Decimal = TxtFonValor.Text.ToDecimal()
Dim importeTotal As Decimal = TxtFonImporteCredito.Text.ToDecimal()
Dim importePagado As Decimal = TxtFonPagosHechos.Text.ToDecimal()
Dim TipoAplicacion As Integer = DdlFonTipoAplicacion.SelectedValue.ToEntero()
Dim NoPagos As Integer = 0
Dim SaldoIni As Double = 0
Dim descripcion02 As String = TxtFonDescripcion.Text
Dim descripcion01 As String = TxtFonNumCredito.Text
Dim NumCredito As String = TxtFonNumCredito.Text
Dim fecha As String = TxtFonFechaInicio.Text.Replace("_", "")
Dim estatus As Integer = If(ChkFonacot.Checked, 1, 0)
Dim periodo As Integer = 20000101
If fecha.Length > 8 Then
fecha = fecha.ToDateTime().ToString("yyyy/MM/dd")
periodo = fecha.ToDateTime().ToString("yyyyMMdd").ToEntero()
Else
fecha = ""
End If
Dim continuar As Boolean = True
Dim continuar As Boolean = False
Using onom As ClsNominas = New ClsNominas()
If (CveFonacot = -1) Then
continuar = onom.NomFonacotAdd(UsuarioActual.CveEmpresa, CvePersonal, NumCredito, descripcion02, periodo, TipoAplicacion, importeTotal, importe, importePagado, 0, 0, estatus, "", UsuarioActual.CveUsuario)
Else
continuar = onom.NomFonacotUp(UsuarioActual.CveEmpresa, CveFonacot, CvePersonal, NumCredito, descripcion02, periodo, TipoAplicacion, importeTotal, importe, importePagado, 0, 0, estatus, "", UsuarioActual.CveUsuario)
Using ObjPersonal As ClsRH = New ClsRH()
If Not ObjPersonal.AddConcepto(CvePersonal, -1, importe, TipoAplicacion, NoPagos, SaldoIni, UsuarioActual.CveUsuario, 4, descripcion01, descripcion02, fecha, "", estatus, UsuarioActual.CveEmpresa) Then continuar = False
End If
End Using
' Old Borrar Caudillo 01/Marzo/2022
'Using ObjPersonal As ClsRH = New ClsRH()
' If Not ObjPersonal.AddConcepto(CvePersonal, -1, importe, TipoAplicacion, NoPagos, SaldoIni, UsuarioActual.CveUsuario, 4, NumCredito, descripcion02, fecha, "", estatus, UsuarioActual.CveEmpresa) Then continuar = False
'End Using
If continuar Then
Alert("Se actualizo el calculo de fonacot")
CargaFonacot()
RegistraScript("$('#ModalFonacot').modal('hide');")
End If
End Sub
Protected Sub LnkCalcularFactor_Click(sender As Object, e As EventArgs)
@@ -6804,5 +6903,7 @@ Partial Class RH_Personal
End Sub
End Class