TManufacturingLink.PreviousAttachPoint
| TManufacturingLink = class (TObject) | Interface de TManufacturingLink | Exemples de TManufacturingLink |
Type d'attache entre opérations: attache de l'opération d'origine.
Syntaxe
property PreviousAttachPoint: TManufacturingAttachPoint read GetPreviousAttachPoint write SetPreviousAttachPoint
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.PreviousAttachPoint:=mapEnd;
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.PreviousAttachPoint:=mapEnd;
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.PreviousAttachPoint
mapBegin: informationDlg('début');
mapEnd: informationDlg('fin');
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.PreviousAttachPoint
mapBegin: informationDlg('début');
mapEnd: informationDlg('fin');
end;
end;
finally
gammeCroissant.free;
end;