AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

personal

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2024-05-02 16:13:03 -07:00
parent e74c1edb63
commit ef5f8cbb7c
2 changed files with 110 additions and 110 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
RH/Personal.aspx
View File

@@ -2048,7 +2048,7 @@
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
<%--<div class="portlet light bordered xspadding" id="porletconceptos"> <div class="portlet light bordered xspadding" id="porletconceptos">
<div class="portlet-title"> <div class="portlet-title">
<div class="caption font-green"> <div class="caption font-green">
<i class="fa fa-bookmark font-green"></i> <i class="fa fa-bookmark font-green"></i>
@@ -2096,7 +2096,7 @@
</ItemTemplate> </ItemTemplate>
<ItemStyle Width="40px" /> <ItemStyle Width="40px" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField> <asp:TemplateField Visible="false">
<HeaderTemplate>Importe</HeaderTemplate> <HeaderTemplate>Importe</HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:TextBox CssClass="form-control input-sm" ID="TxtImporte" runat="server" Text='<%# Eval("Importe", "{0:N2}") %>' Width="60px"></asp:TextBox> <asp:TextBox CssClass="form-control input-sm" ID="TxtImporte" runat="server" Text='<%# Eval("Importe", "{0:N2}") %>' Width="60px"></asp:TextBox>
@@ -2104,13 +2104,13 @@
</ItemTemplate> </ItemTemplate>
<ItemStyle Width="50px" /> <ItemStyle Width="50px" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField> <asp:TemplateField Visible="false">
<HeaderTemplate>Tipo de Aplicación</HeaderTemplate> <HeaderTemplate>Tipo de Aplicación</HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<table> <table>
<tr> <tr>
<td width="95px"> <td width="95px">
<asp:DropDownList ID="DdlTipoAplicacion" OnSelectedIndexChanged="DdlTipoAplicacion_SelectedIndexChanged" AutoPostBack="true" runat="server" Class="table-group-action-input form-control input-inline input-small input-sm" Width="100%"> <asp:DropDownList ID="DdlTipoAplicacion" runat="server" Class="table-group-action-input form-control input-inline input-small input-sm" Width="100%">
</asp:DropDownList></td> </asp:DropDownList></td>
<td width="65px"> <td width="65px">
@@ -2133,7 +2133,7 @@
</asp:GridView> </asp:GridView>
</div> </div>
</div>--%> </div>
<div class="portlet light bordered xspadding" id="porletInfonavit"> <div class="portlet light bordered xspadding" id="porletInfonavit">
<div class="portlet-title"> <div class="portlet-title">

210
RH/Personal.aspx.vb
View File

@@ -2849,7 +2849,7 @@ Partial Class RH_Personal
Private Sub CarcaConceptosNomina() Private Sub CarcaConceptosNomina()
Dim ObjPersonal As New ClsRH Dim ObjPersonal As New ClsRH
If ObjPersonal.GetPersonalConceptos(CvePersonal, UsuarioActual.CveEmpresa) Then If ObjPersonal.GetPersonalConceptos(CvePersonal, UsuarioActual.CveEmpresa) Then
'GVConceptos.DataSource = ObjPersonal.DtResultados.FiltraParametros("(CveSistema <>3 AND CveSistema <>4) OR CveSistema IS NULL") GVConceptos.DataSource = ObjPersonal.DtResultados.FiltraParametros("(CveSistema <>3 AND CveSistema <>4) OR CveSistema IS NULL")
Dim frow As DataRow = ObjPersonal.DtResultados.FiltroPrimero("CveSistema =3") Dim frow As DataRow = ObjPersonal.DtResultados.FiltroPrimero("CveSistema =3")
If Not IsNothing(frow) Then If Not IsNothing(frow) Then
TxtInfoValor.Text = String.Format("{0:###,###.##}", frow("Importe")) TxtInfoValor.Text = String.Format("{0:###,###.##}", frow("Importe"))
@@ -2883,7 +2883,7 @@ Partial Class RH_Personal
'Conceptos.DataSource = Nothing 'Conceptos.DataSource = Nothing
End If End If
ObjPersonal.Dispose() ObjPersonal.Dispose()
'GVConceptos.DataBind() GVConceptos.DataBind()
'For Each Row As GridViewRow In GVConceptos.Rows 'For Each Row As GridViewRow In GVConceptos.Rows
' Dim Ddl As DropDownList = DirectCast(GVConceptos.Rows(Row.RowIndex).FCDropDownList("DdlTipoAplicacion"), DropDownList) ' Dim Ddl As DropDownList = DirectCast(GVConceptos.Rows(Row.RowIndex).FCDropDownList("DdlTipoAplicacion"), DropDownList)
@@ -2891,68 +2891,68 @@ Partial Class RH_Personal
'Next 'Next
End Sub End Sub
'Protected Sub GVConceptos_RowCreated(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVConceptos.RowDataBound Protected Sub GVConceptos_RowCreated(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVConceptos.RowDataBound
' If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
' e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
' e.Row.Cells(0).Width = Unit.Pixel(50) e.Row.Cells(0).Width = Unit.Pixel(50)
' e.Row.Cells(1).Width = Unit.Pixel(50) e.Row.Cells(1).Width = Unit.Pixel(50)
' e.Row.Cells(3).Width = Unit.Pixel(70) e.Row.Cells(3).Width = Unit.Pixel(70)
' e.Row.Cells(4).Width = Unit.Pixel(70) e.Row.Cells(4).Width = Unit.Pixel(70)
' e.Row.Cells(5).Width = Unit.Pixel(160) e.Row.Cells(5).Width = Unit.Pixel(160)
' If e.Row.DBCampo("Aplica").ToEntero() = 1 Then e.Row.FCCheckBox("ChkAplica").Checked = True If e.Row.DBCampo("Aplica").ToEntero() = 1 Then e.Row.FCCheckBox("ChkAplica").Checked = True
' If e.Row.DBCampo("Formula") = "S" Then If e.Row.DBCampo("Formula") = "S" Then
' e.Row.FCDropDownList("DdlTipoAplicacion").Visible = False : e.Row.Cells(3).Text = "Calculado" e.Row.FCDropDownList("DdlTipoAplicacion").Visible = False : e.Row.Cells(3).Text = "Calculado"
' e.Row.FCDropDownList("DdlTipoAplicacion").Visible = False : e.Row.Cells(4).Text = "Permanente" e.Row.FCDropDownList("DdlTipoAplicacion").Visible = False : e.Row.Cells(4).Text = "Permanente"
' Else Else
' Dim TipoAplicacion As String = e.Row.DBCampo("TipoAplicacion").ToString() Dim TipoAplicacion As String = e.Row.DBCampo("TipoAplicacion").ToString()
' e.Row.FCDropDownList("DdlTipoAplicacion").Items.Clear() e.Row.FCDropDownList("DdlTipoAplicacion").Items.Clear()
' e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Seleccione", "-1")) e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Seleccione", "-1"))
' If (e.Row.DBCampo("CveSistema").ToString() = "3") Then If (e.Row.DBCampo("CveSistema").ToString() = "3") Then
' e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Movto Permanente)", "5000")) e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Movto Permanente)", "5000"))
' e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Porcentaje)", "5001")) e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Porcentaje)", "5001"))
' e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Factor Descuento)", "5002")) e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Factor Descuento)", "5002"))
' e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Cuota Fija)", "5003")) e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Cuota Fija)", "5003"))
' ElseIf (e.Row.DBCampo("CveSistema").ToString() = "4") Then ElseIf (e.Row.DBCampo("CveSistema").ToString() = "4") Then
' e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Fonacot(Importe fijo)", "3001")) e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Fonacot(Importe fijo)", "3001"))
' e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Fonacot(Por días Labarados)", "3002")) e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Fonacot(Por días Labarados)", "3002"))
' Else Else
' e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Saldo", "1")) e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Saldo", "1"))
' e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("No. Pagos", "2")) e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("No. Pagos", "2"))
' e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Permanente", "2600")) e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Permanente", "2600"))
' End If End If
' If e.Row.DBCampo("TipoAplicacion").ToEntero() > 5 Then If e.Row.DBCampo("TipoAplicacion").ToEntero() > 5 Then
' TipoAplicacion = "2600" TipoAplicacion = "2600"
' End If End If
' e.Row.FCDropDownList("DdlTipoAplicacion").SelectedValueExist(TipoAplicacion) e.Row.FCDropDownList("DdlTipoAplicacion").SelectedValueExist(TipoAplicacion)
' End If End If
' 'If e.Row.DBCampo("TipoCalculo") = "False" Then 'If e.Row.DBCampo("TipoCalculo") = "False" Then
' ' e.Row.FCTextBox("TxtImporte").Visible = False ' e.Row.FCTextBox("TxtImporte").Visible = False
' ' e.Row.FCDropDownList("DdlTipoAplicacion").Visible = False ' e.Row.FCDropDownList("DdlTipoAplicacion").Visible = False
' 'Else 'Else
' ' Select Case e.Row.DBCampo("TipoAplicacion").ToEntero() ' Select Case e.Row.DBCampo("TipoAplicacion").ToEntero()
' ' Case 1 ' Case 1
' ' 'Saldo ' 'Saldo
' ' e.Row.FCLiteral("LtlSaldo").Visible = True ' e.Row.FCLiteral("LtlSaldo").Visible = True
' ' e.Row.FCTextBox("TxtSaldoIni").Visible = True ' e.Row.FCTextBox("TxtSaldoIni").Visible = True
' ' Case 2 ' Case 2
' ' 'Numero de Pagos ' 'Numero de Pagos
' ' e.Row.FCLiteral("LtlNoPago").Visible = True ' e.Row.FCLiteral("LtlNoPago").Visible = True
' ' e.Row.FCTextBox("TxtNoPagos").Visible = True ' e.Row.FCTextBox("TxtNoPagos").Visible = True
' ' Case 2600 ' Case 2600
' ' 'Permanente ' 'Permanente
' ' End Select ' End Select
' 'End If 'End If
' End If End If
'End Sub End Sub
Protected Sub BtnGuardarInfornavit_Click(sender As Object, e As EventArgs) Protected Sub BtnGuardarInfornavit_Click(sender As Object, e As EventArgs)
Dim importe As Decimal = TxtInfoValor.Text.ToDecimal() Dim importe As Decimal = TxtInfoValor.Text.ToDecimal()
@@ -2981,61 +2981,61 @@ Partial Class RH_Personal
End If End If
End Sub End Sub
'Protected Sub BtnGuardarConceptos_Click(sender As Object, e As System.EventArgs) Handles BtnGuardarConceptos.Click Protected Sub BtnGuardarConceptos_Click(sender As Object, e As System.EventArgs) Handles BtnGuardarConceptos.Click
' If CvePersonal > 0 Then If CvePersonal > 0 Then
' Dim ObjPersonal As New ClsRH Dim ObjPersonal As New ClsRH
' ObjPersonal.IniciaTransacSQL() ObjPersonal.IniciaTransacSQL()
' Dim OcurrioError As Boolean = False Dim OcurrioError As Boolean = False
' For Each Row As GridViewRow In GVConceptos.Rows For Each Row As GridViewRow In GVConceptos.Rows
' If Row.FCCheckBox("ChkAplica").Checked = True Then If Row.FCCheckBox("ChkAplica").Checked = True Then
' Dim CveConcepto As Integer = Row.DataKey("CveConcepto").ToEntero() Dim CveConcepto As Integer = Row.DataKey("CveConcepto").ToEntero()
' Dim Importe As Double = Row.FCTextBox("TxtImporte").Text.ToDouble Dim Importe As Double = Row.FCTextBox("TxtImporte").Text.ToDouble
' Dim TipoAplicacion As Integer = Row.FCDropDownList("DdlTipoAplicacion").SelectedValue.ToEntero() Dim TipoAplicacion As Integer = -1 'Row.FCDropDownList("DdlTipoAplicacion").SelectedValue.ToEntero()
' Dim NoPagos As Integer = If(Row.FCTextBox("TxtNoPagos").Text.ToEntero() = 0, -1, Row.FCTextBox("TxtNoPagos").Text.ToEntero()) Dim NoPagos As Integer = If(Row.FCTextBox("TxtNoPagos").Text.ToEntero() = 0, -1, Row.FCTextBox("TxtNoPagos").Text.ToEntero())
' Dim SaldoIni As Double = If(Row.FCTextBox("TxtSaldoIni").Text.ToDouble = 0, -1, Row.FCTextBox("TxtSaldoIni").Text.ToDouble) Dim SaldoIni As Double = If(Row.FCTextBox("TxtSaldoIni").Text.ToDouble = 0, -1, Row.FCTextBox("TxtSaldoIni").Text.ToDouble)
' Select Case TipoAplicacion Select Case TipoAplicacion
' Case 1 Case 1
' 'Saldo 'Saldo
' NoPagos = -1 NoPagos = -1
' Case 2 Case 2
' 'Numero de Pagos 'Numero de Pagos
' SaldoIni = -1 SaldoIni = -1
' Case 2600 Case 2600
' 'Permanente 'Permanente
' NoPagos = -1 NoPagos = -1
' SaldoIni = -1 SaldoIni = -1
' End Select End Select
' 'Insertarlo o Actualizarlo 'Insertarlo o Actualizarlo
' If Not ObjPersonal.AddConcepto(CvePersonal, CveConcepto, Importe, TipoAplicacion, NoPagos, SaldoIni, UsuarioActual.CveUsuario) Then If Not ObjPersonal.AddConcepto(CvePersonal, CveConcepto, Importe, TipoAplicacion, NoPagos, SaldoIni, UsuarioActual.CveUsuario) Then
' OcurrioError = True OcurrioError = True
' ObjPersonal.RollBack() ObjPersonal.RollBack()
' Exit For Exit For
' End If End If
' Else Else
' 'Borrarlo 'Borrarlo
' If Row.DataKey("CvePersonalConcepto") <> "" Then If Row.DataKey("CvePersonalConcepto") <> "" Then
' If Not ObjPersonal.RemoveConcepto(Row.DataKey("CvePersonalConcepto").ToEntero()) Then If Not ObjPersonal.RemoveConcepto(Row.DataKey("CvePersonalConcepto").ToEntero()) Then
' OcurrioError = True OcurrioError = True
' ObjPersonal.RollBack() ObjPersonal.RollBack()
' Exit For Exit For
' End If End If
' End If End If
' End If End If
' Next Next
' If Not OcurrioError Then If Not OcurrioError Then
' ObjPersonal.Commit() ObjPersonal.Commit()
' Alert("La información se guardó correctamente.", TipoMensaje.MsgInformacion) Alert("La información se guardó correctamente.", TipoMensaje.MsgInformacion)
' Else Else
' Alert("Ocurrió un error al guardar la información.", TipoMensaje.MsgError) Alert("Ocurrió un error al guardar la información.", TipoMensaje.MsgError)
' End If End If
' ObjPersonal.Dispose() ObjPersonal.Dispose()
' End If End If
'End Sub End Sub
#End Region #End Region