Dim drPrincipal As datarow = ds.tables("RRHH_NominaInfo").select(String.format("[IDNominaInfo]={0}", dr("IDNominaInfo")))(0)
Dim SalarioDiario As Double =  NDouble(drPrincipal("SalarioDiario"))
Dim Sueldo As Double = 0
 

If NDouble(drPrincipal("SalarioDiario")) = 0 And NDouble(drPrincipal("SalarioHora")) = 0 Then
If NDouble(drPrincipal("IDPuesto")) = 0 Then msgbox("No ha seleccionado la ningún Puesto"): Exit Sub
Dim drPuesto As datarow = ds.tables("RRHH_Puestos").select(String.format("[IDPuesto]={0}", drPrincipal("IDPuesto")))(0)
 SalarioDiario =  NDouble(drPuesto("SalarioDiario"))
End If
 
If NDouble(drPrincipal("SalarioHora")) > 0 Then
  SalarioDiario = NDouble(drPrincipal("SalarioHora")) * NDouble(drPrincipal("HorasDiarias"))
End If
 
 
Dim DiasTrab As Double = 2
 
If ds.tables.indexof("RRHH_Jornadas") > -1 Then
 
  Dim JornadaDr As DataRow = ds.tables("RRHH_Jornadas").select(String.format("[IDJornada]={0}", drPrincipal("IDJornadaNomina")))(0)
 
  Dim DiasTrabajables As Double = NDouble(JornadaDr("DiasTrabajables"))
  Dim DiasJornada As Double = NDouble(JornadaDr("DiasJornada"))
 
  DiasTrab =  ((DiasJornada/DiasTrabajables)-1) * (NDouble(drPrincipal("DiasJornada")) - NDouble(drPrincipal("Faltas"))  - NDouble(drPrincipal("Incapcidades")) )
 
End If
 
Sueldo = SalarioDiario  * DiasTrab
 
dr("Importe")=Sueldo
dr("ISRGravado")=Sueldo
dr("ISRExento")=0
dr("IMSSGravado")=Sueldo
dr("IMSSExento")=0