1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
|
if dm.cdAbscence.State = dsInsert
then begin
dm.cdAbscenceMatricule.Value := dm.cdPersonneMatricule.Value;
dm.cdAbscenceDate_debut.Value := dateDebut.Date;
dm.cdAbscenceDate_fin.Value := dateFin.Date;
dm.cdAbscenceDuree.Value := DaysBetween(dateFin.Date,dateDebut.Date);
end;
if dm.cdAbscence.State = dsEdit
then begin
dm.cdAbscence.Locate('matricule',dm.cdPersonnematricule.Value,[lopartialkey]);
dm.cdAbscencedate_debut.Value := dateDebut.Date;
dm.cdAbscencedate_fin.Value := dateFin.Date;
end;
dm.cdAbscence.post; |
Partager