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 SalarioDiario As Double
Public Property SDI As Double
Public Property SBC As Double
Public Property RegistroPatronal As String
Public Property SerieFolio As String
@@ -1102,6 +1106,10 @@ Public Class ClsNominas
Me.CveUsuario = Data.Rows(0)("CveUsuario").ToString.ToEntero
Me.Usuario = Data.Rows(0)("Usuario").ToString
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
Retorno = True
Catch ex As Exception

10
App_Code/ClsPaginas.vb
View File

@@ -8521,12 +8521,10 @@ Public Class ClsPaginas
Departamento = drow("NomRDepartamento").ToString()
Puesto = drow("NomRPuesto").ToString()
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
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("Serie", ObjNomina.Serie))
RptParametro.Add(New ReportParameter("Fecha", ObjNomina.Fecha.ToString))
@@ -8544,6 +8542,10 @@ Public Class ClsPaginas
Else
TieneError = True
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
TieneError = True
End If