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

Compilacion correciones

Browse Source
This commit is contained in:
rakcsle
2023-08-24 11:23:50 -07:00
parent d094d993a2
commit e36f1786ed
23 changed files with 115 additions and 114 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Nomina/ReportePTU.aspx.vb
View File

@@ -157,7 +157,7 @@ Partial Class Nomina_ReportePTU
If Not IsNothing(rowc) Then
CveConcepto = rowc("CveConcepto").ToString().ToEntero()
Else
CveConcepto = objNomina.AddConcepto("PTU", "Utilidades", "P", "", True, True, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, 0, -1, 0, 0, 0, 0, 0, -1, 1, -1, -1, -1, -1)
CveConcepto = objNomina.AddConcepto("PTU", "Utilidades", "P", "", True, True, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, False, -1, 0, 0, 0, 0, 0, -1, 1, -1, -1, -1, -1)
End If
If CveConcepto < 1 Then
continuar = False
@@ -171,7 +171,7 @@ Partial Class Nomina_ReportePTU
CvePeriodo = CvePeriodoSeleccionado
If continuar Then
continuar = objNomina.AddUtilidad(CvePersonal, Importe, CvePeriodo, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, ejercicio, DiasLaborados, SueldoTotal)
continuar = objNomina.AddUtilidad(CvePersonal, Importe, CvePeriodo, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, ejercicio, DiasLaborados, SueldoTotal.ToDecimal)
End If
If Not continuar Then
Exit For
@@ -233,7 +233,7 @@ Partial Class Nomina_ReportePTU
End Sub
Protected Sub GVTipoPeriodo_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then
If (Not IsNothing(dtPeriodos) AndAlso dtPeriodos.Rows.Count()) Then
If (Not IsNothing(dtPeriodos) AndAlso dtPeriodos.Rows.Count > 0) Then
Dim dddlperiodo As DropDownList = e.Row.FCDropDownList("ddlPeriodo")
dddlperiodo.DataSource = dtPeriodos.FiltraParametros(String.Format("CveTipoPeriodo={0}", e.Row.DataKey("CveTipoPeriodo")))
dddlperiodo.DataBind()

4
Nomina/SobreRecibo.aspx.vb
View File

@@ -36,7 +36,7 @@ Partial Class Nominas_SobreRecibo
If CvePersonal > 0 AndAlso CvePeriodo > 0 Then
CargaDatos()
CargaPersonal()
DdlPersonal.SelectedValue = CvePersonal
DdlPersonal.SelectedValueExist(CvePersonal)
LtNombrePersonal.Text = DdlPersonal.SelectedItem.Text
UPFiltros.Visible = False
End If
@@ -134,7 +134,7 @@ Partial Class Nominas_SobreRecibo
e.Row.Cells(0).Style.Add("padding-left", "16px")
End If
e.Row.FCLabel("LtlImporte").Text = e.Row.FCLabel("LtlImporte").Text.ToDecimal
e.Row.FCLabel("LtlImporte").Text = e.Row.FCLabel("LtlImporte").Text
End If
End Sub