TManufacturingLink.MinDelayTimeMode
redirigé depuis TManufacturingLink.SetMinDelayTimeMode
| TManufacturingLink = class (TObject) | Interface de TManufacturingLink | Exemples de TManufacturingLink |
Mode temporel de la formule de calcul du délai minimum du lien.
Syntaxe
property MinDelayTimeMode: TManufacturingLinkTimeMode read GetMinDelayTimeMode write SetMinDelayTimeMode
Remarques
Exemples
var gammeCroissant: TManufacturing;
var links: TManufacturingLinks;
var link: TManufacturingLink;
gammeCroissant:=TManufacturing.ConnectByGPAOID('croissant v1.00');
try
links:=gammeCroissant.GetManufacturingLinks;
if links.count>0 then begin
link:=links.links[0];
link.MinDelayTimeMode:=mltmHours ;
end;
gammeCroissant.post;
finally
gammeCroissant.free;
end;
var links: TManufacturingLinks;
var link: TManufacturingLink;
gammeCroissant:=TManufacturing.ConnectByGPAOID('croissant v1.00');
try
links:=gammeCroissant.GetManufacturingLinks;
if links.count>0 then begin
link:=links.links[0];
link.MinDelayTimeMode:=mltmHours ;
end;
gammeCroissant.post;
finally
gammeCroissant.free;
end;
var gammeCroissant: TManufacturing;
var links: TManufacturingLinks;
var link: TManufacturingLink;
gammeCroissant:=TManufacturing.ConnectByGPAOID('croissant v1.00');
try
links:=gammeCroissant.GetManufacturingLinks;
if links.count>0 then begin
link:=links.links[0];
case link.MinDelayTimeMode of
mltmMinutes : informationDlg('minutes');
mltmHours: informationDlg('heures');
mltmDays: informationDlg('jours');
end;
end;
finally
gammeCroissant.free;
end;
var links: TManufacturingLinks;
var link: TManufacturingLink;
gammeCroissant:=TManufacturing.ConnectByGPAOID('croissant v1.00');
try
links:=gammeCroissant.GetManufacturingLinks;
if links.count>0 then begin
link:=links.links[0];
case link.MinDelayTimeMode of
mltmMinutes : informationDlg('minutes');
mltmHours: informationDlg('heures');
mltmDays: informationDlg('jours');
end;
end;
finally
gammeCroissant.free;
end;