dim drPrincipal as datarow = ds.tables("RRHH_NominaInfo").select(string.format("[IDNominaInfo]={0}", dr("IDNominaInfo")))(0)
 
dim x as double = inputbox("Inserte los días trabajados")
dim SalarioDiario as Double = (NDouble(drPrincipal("SalarioDiario")) * x) * .25
dim BaseExentoISR as double = x * NDouble(drPrincipal("SalarioZona"))
 
if SalarioDiario > BaseExentoISR then
 
   dr("ISRGravado")= SalarioDiario - BaseExentoISR
   dr("ISRExento")= BaseExentoISR
 
   dr("IMSSGravado")= SalarioDiario
   dr("IMSSExento")=0
 
else
 
   dr("ISRGravado")= 0
   dr("ISRExento")= SalarioDiario
   dr("IMSSGravado")= SalarioDiario
   dr("IMSSExento")=0
 
end if
 
 
dr("Importe")= SalarioDiario
dr("ConceptoAdic")= "Domingos: " & x