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 = (NDouble(drPrincipal("DiasJornada"))-NDouble(drPrincipal("Faltas")) - NDouble(drPrincipal("Incapcidades")))
 
Sueldo = SalarioDiario * DiasTrab
 
dr("Importe")=Sueldo  
dr("ISRGravado")=Sueldo
dr("ISRExento")=0
dr("IMSSGravado")=Sueldo
dr("IMSSExento")=0
dr("ConceptoAdic")="Días Trabajados: " & DiasTrab