whileprintingrecords;
//Calculo las horas y minutos
shared numbervar nHoras := nHoras + Hour ({vFichajes.dHoras});
shared numbervar nMinutos := nMinutos + Minute ({vFichajes.dHoras});
shared numbervar nHoras := nHoras + int(shared numbervar nMinutos/60);
shared numberVar nMinutos:= nMinutos - (int(shared numbervar nMinutos/60)*60);