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

Nomina

Browse Source
This commit is contained in:
Jorge Luis caudillo esparza
2025-06-23 07:10:34 -07:00
parent 356d992aea
commit b81600f028
2 changed files with 14 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
App_Code/ClsNominas.vb
View File

@@ -35,6 +35,10 @@ Public Class ClsNominas
Public Property FolioSolicitud As Integer Public Property FolioSolicitud As Integer
Public Property SalarioDiario As Double
Public Property SDI As Double
Public Property SBC As Double
Public Property RegistroPatronal As String Public Property RegistroPatronal As String
Public Property SerieFolio As String Public Property SerieFolio As String
@@ -1102,6 +1106,10 @@ Public Class ClsNominas
Me.CveUsuario = Data.Rows(0)("CveUsuario").ToString.ToEntero Me.CveUsuario = Data.Rows(0)("CveUsuario").ToString.ToEntero
Me.Usuario = Data.Rows(0)("Usuario").ToString Me.Usuario = Data.Rows(0)("Usuario").ToString
Me.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero Me.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero
Me.SalarioDiario = Data.Rows(0)("SalarioDiario").ToString.ToDecimal()
Me.SDI = Data.Rows(0)("SDI").ToString.ToDecimal()
Me.SBC = Data.Rows(0)("SBC").ToString.ToDecimal()
End If End If
Retorno = True Retorno = True
Catch ex As Exception Catch ex As Exception

10
App_Code/ClsPaginas.vb
View File

@@ -8521,12 +8521,10 @@ Public Class ClsPaginas
Departamento = drow("NomRDepartamento").ToString() Departamento = drow("NomRDepartamento").ToString()
Puesto = drow("NomRPuesto").ToString() Puesto = drow("NomRPuesto").ToString()
End If End If
RptParametro.Add(New ReportParameter("SalarioBase", SalarioDiario))
RptParametro.Add(New ReportParameter("SalarioDiarioInt", SDI))
RptParametro.Add(New ReportParameter("Departamento", Departamento))
RptParametro.Add(New ReportParameter("Puesto", Puesto))
'DATOS NOMINA 'DATOS NOMINA
If ObjNomina.GetNom_Nominas(CveNomina, CvePersonal, CvePeriodo, 1, CveEmpresa) Then If ObjNomina.GetNom_Nominas(CveNomina, CvePersonal, CvePeriodo, 1, CveEmpresa) Then
SalarioDiario = ObjNomina.SalarioDiario.ToString
SDI = ObjNomina.SDI.ToString
RptParametro.Add(New ReportParameter("ReciboNomina", ObjNomina.Folio.ToString)) RptParametro.Add(New ReportParameter("ReciboNomina", ObjNomina.Folio.ToString))
RptParametro.Add(New ReportParameter("Serie", ObjNomina.Serie)) RptParametro.Add(New ReportParameter("Serie", ObjNomina.Serie))
RptParametro.Add(New ReportParameter("Fecha", ObjNomina.Fecha.ToString)) RptParametro.Add(New ReportParameter("Fecha", ObjNomina.Fecha.ToString))
@@ -8544,6 +8542,10 @@ Public Class ClsPaginas
Else Else
TieneError = True TieneError = True
End If End If
RptParametro.Add(New ReportParameter("SalarioBase", SalarioDiario))
RptParametro.Add(New ReportParameter("SalarioDiarioInt", SDI))
RptParametro.Add(New ReportParameter("Departamento", Departamento))
RptParametro.Add(New ReportParameter("Puesto", Puesto))
Else Else
TieneError = True TieneError = True
End If End If