...
| Code Block |
|---|
DEFINE VARIABLE oMessageProvider AS Consultingwerk.SmartFramework.IMessageProvider NO-UNDO .
DEFINE VARIABLE cMessage AS CHARACTER NO-UNDO .
oMessageProvider = {Consultingwerk/get-service.i Consultingwerk.SmartFramework.IMessageProvider} .
IF VALID-OBJECT (oMessageProvider) THEN
cMessage = oMessageProvider:GetMessageText ("DMS":U, 47, "Stock") . |
or shorter:
| Code Block |
|---|
cMessage = {Consultingwerk/get-service.i Consultingwerk.SmartFramework.IMessageProvider}:GetMessageText ("DMS":U, 47, "Stock") .
|
or even shorter (requires at least OpenEdge 11.4):
| Code Block |
|---|
USING Consultingwerk.SmartFramework.* . /* get-service.i does only support USING on OpenEdge 11.4 */
/* .... */
cMessage = {Consultingwerk/get-service.i IMessageProvider}:GetMessageText ("DMS":U, 47, "Stock") .
|
...