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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rrene
2023-07-28 11:37:24 -07:00
parent ba3644e335 9370b7f562
commit a2237fd270
3 changed files with 196 additions and 197 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
Nomina/Nomina.aspx
View File

@@ -1595,6 +1595,7 @@
<asp:BoundField DataField="TipoPago" HeaderText="Tipo pago" />
<asp:BoundField DataField="DiasextraAutorizado" HeaderText="Días extra" />
<asp:BoundField DataField="diasPago" HeaderText="Días pago" />
<asp:BoundField DataField="DiasPrima" HeaderText="Días Prima" />
<asp:TemplateField HeaderText="Aplica prima">
<ItemTemplate>
<asp:Label runat="server" Text='<%# ((Eval("AplicaPrima").ToString() == "1" || Eval("AplicaPrima").ToString().ToUpper() == "TRUE") ? "Sí": "No") %>'> </asp:Label>

1
RH/Personal.aspx
View File

@@ -3270,6 +3270,7 @@
<asp:BoundField DataField="TipoPago" HeaderText="Tipo pago" />
<asp:BoundField DataField="DiasextraAutorizado" HeaderText="Días extra" />
<asp:BoundField DataField="diasPago" HeaderText="Días pago" />
<asp:BoundField DataField="DiasPrima" HeaderText="Días Prima" />
<asp:TemplateField HeaderText="Aplica prima">
<ItemTemplate>
<asp:Label runat="server" Text='<%# If(Eval("AplicaPrima").ToString() = "1" Or Eval("AplicaPrima").ToString().ToUpper() = "TRUE", "Sí", "No") %>'> </asp:Label>

37
RH/Personal.aspx.vb
View File

@@ -943,25 +943,22 @@ Partial Class RH_Personal
divBitacora.Visible = True
CargaGvBitacora()
CargaCuentasBancarias()
CarcaConceptosNomina()
CargaFonacot()
End If
Else
cargatipoTrabajador()
MostrarOcultarFechasEstatus()
LoadDefaultValues()
'Configuración de Modalidad Insert
ImgAddObs.Visible = False
LblFechaCaptura.Text = Now.ToShortDateString()
LblUsuarioCapturo.Text = UsuarioActual.Usuario
ViewState("CvePersonal") = -1
BtnEliminar.Visible = False
CarcaConceptosNomina()
CargaFonacot()
CargaCuentasBancarias()
'Inicia Permisos
'Fin Permisos
End If
If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then
@@ -1939,9 +1936,10 @@ Partial Class RH_Personal
Dim EnviarCorreoNomina As Boolean = False
'System.Threading.Thread.Sleep(3000)
Dim ObjPersonal As New ClsRH()
Dim ObjCuentasDeposito As New ClsGenerales(ObjPersonal.IniciaTransacSQL())
Dim ObjAF As New ClsAF(ObjPersonal.IniciaTransacSQL())
Using ObjPersonal As New ClsRH()
Using ObjCuentasDeposito As New ClsGenerales(ObjPersonal.IniciaTransacSQL())
Using ObjAF As New ClsAF(ObjPersonal.IniciaTransacSQL())
Dim Extension As String = Path.GetExtension(UsuarioActual.Empresa.Ruta & "Temp\RH\" & ViewState("Archivo").ToString())
Dim URL As String = If(Extension.Trim().Length > 0, CvePersonal & Extension, "")
@@ -2022,7 +2020,7 @@ Partial Class RH_Personal
If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then
ProcesaDTFamiliares(ObjPersonal)
End If
If TempDTCuentasBancos.Rows.Count > 0 Then
If TempDTCuentasBancos IsNot Nothing AndAlso 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(), UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal, CveUsuarioModifico:=UsuarioActual.CveUsuario, BBVAAlias:=row("BBVAAlias").ToString()) Then
@@ -2148,9 +2146,9 @@ Partial Class RH_Personal
Session("FileUpload") = ""
ViewState("Archivo") = ""
ObjPersonal.Dispose()
ObjCuentasDeposito.Dispose()
ObjAF.Dispose()
End Using
End Using
End Using
UpDatos.Update()
CargaGvBitacora()
@@ -3399,7 +3397,7 @@ Partial Class RH_Personal
End If
LimpiaCuentasBancarias()
CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString())
CargaGridCuentasBancos("")
If CvePersonal > 0 Then
CargaGvBitacora()
@@ -3412,7 +3410,6 @@ Partial Class RH_Personal
End Sub
Private Sub CargaCuentasBancarias()
Dim ObjCuentasBancos As New ClsGenerales
ViewState("OrdenCuentasBancos") = ""
DTCuentasBancos = New DataTable
TempDTCuentasBancos = New DataTable
@@ -3427,7 +3424,7 @@ Partial Class RH_Personal
End If
ObjCuentasBancos.Dispose()
CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString())
CargaGridCuentasBancos("")
End Sub
#Region "GRIDVIEW - CUENTAS BANCARIAS"
@@ -3485,11 +3482,11 @@ Partial Class RH_Personal
GvBancosCuentas.EditIndex = e.NewEditIndex
CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString())
CargaGridCuentasBancos("")
End Sub
Protected Sub GvBancosCuentas_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvBancosCuentas.RowCancelingEdit
GvBancosCuentas.EditIndex = -1
CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString())
CargaGridCuentasBancos("")
End Sub
Protected Sub GvBancosCuentas_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvBancosCuentas.RowUpdating
Dim NombreBanco = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtNombreBanco").Text.Trim
@@ -3582,7 +3579,7 @@ Partial Class RH_Personal
ObjCuentasBancos.Dispose()
GvBancosCuentas.EditIndex = -1
CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString())
CargaGridCuentasBancos("")
CargaGvBitacora()
End Sub
Protected Sub GvBancosCuentas_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvBancosCuentas.RowDeleting
@@ -3600,7 +3597,7 @@ Partial Class RH_Personal
TempDTCuentasBancos.Rows.RemoveAt(index)
End If
CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString())
CargaGridCuentasBancos("")
ObjCuentasBancos.Dispose()
CargaGvBitacora()
End Sub