TManufacturing.State
| TManufacturing = class (TObject) | Interface de TManufacturing | Exemples de TManufacturing |
État de la gamme.
Syntaxe
property State: TManufacturingState read GetState
Remarques
Exemples
var gammeCroissant: TManufacturing;
gammeCroissant:=TManufacturing.ConnectByGPAOID('gammeCroissant v0.00');
try
case gammeCroissant.State of
msModification: informationDlg('La présente gamme est dans l''état modification.');
msValidated: informationDlg('La présente gamme est dans l''état validé.');
msPerempted: informationDlg('La présente gamme est dans l''état périmé.');
end;
finally
gammeCroissant.free;
end;
gammeCroissant:=TManufacturing.ConnectByGPAOID('gammeCroissant v0.00');
try
case gammeCroissant.State of
msModification: informationDlg('La présente gamme est dans l''état modification.');
msValidated: informationDlg('La présente gamme est dans l''état validé.');
msPerempted: informationDlg('La présente gamme est dans l''état périmé.');
end;
finally
gammeCroissant.free;
end;