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

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2019-12-11 06:32:06 -07:00
parent a6dbf9aed8
commit d5b50b5f78
8 changed files with 592 additions and 54 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Nomina/ReportePTU.aspx.vb
View File

@@ -59,10 +59,10 @@ Partial Class Nomina_ReportePTU
utilimporte = TxtPA_Nimporte.Text.ToDouble()
utilimporteAnt = TxtPA_NimporteA.Text.ToDouble()
Dim objnom As New ClsNominas()
objnom.GetCalculoUtilidades(ejercicio, UsuarioActual.CveEmpresa, utilimporte, utilimporteAnt)
DTUtilidades = objnom.DtResultados
objnom.Dispose()
Using objnom As New ClsNominas()
objnom.GetCalculoUtilidades(ejercicio, UsuarioActual.CveEmpresa, utilimporte, utilimporteAnt)
DTUtilidades = objnom.DtResultados
End Using
cargaEjercicio(DTUtilidades)
LnkAutorizarModal.Visible = True
@@ -155,7 +155,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, -1, 0, -1, 0, 0, 0, 0)
CveConcepto = objNomina.AddConcepto("PTU", "Utilidades", "P", "", True, True, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, 0, -1, 0, 0, 0, 0, 0)
End If
If CveConcepto < 1 Then
continuar = False