Register page as a web service dynamic nav ???

(0) Share

Report

Posted on by Muhammad Arif Maseed

782

Hi Experts:

i want to register a page as web service from cal i have a custom page i want to publish it as web service not from RTC but from c/al how it is possible?

below is the code i tried but not worked.

VAR 
WebService:	Record	Web Service Aggregate	;
CLEAR(WebService);
WITH WebService DO BEGIN
 IF GET (56000) THEN
   "Object Type" :="Object Type"::Page;
    
   "Object ID" := 5600;
   "Service Name":= 'MyPage';
   Published:= TRUE;
   
 INSERT(TRUE);
 END;

*This post is locked for comments

All responses (5)

Answers (0)

Suggested answer

4BzSoftware 6,073 on at

Like (0)

Report

RE: Register page as a web service dynamic nav ???

Hi Muhammad,

Try below code:

VAR WebService: Record Web Service Aggregate;

CLEAR(WebService);

WITH WebService DO BEGIN

SETRANGE("Object Type", "Object Type"::Page);

SETRANGE("Object ID", 56000);

IF NOT FINDFIRST THEN BEGIN

"Object Type" := "Object Type"::Page;

"Service Name" := 'MyPage';

"Object ID" := 56000;

Published := TRUE;

INSERT(TRUE);

END

ELSE BEGIN

Published := TRUE;

MODIFY(TRUE);

END;

END;
Muhammad Arif Maseed 782 on at

Like (0)

Report

RE: Register page as a web service dynamic nav ???

Thanks for response
Muhammad Arif Maseed 782 on at

Like (0)

Report

RE: Register page as a web service dynamic nav ???

Andrey Baludin have you tried the code ?

it generating the error "The Web Service Aggregate table is empty".
Suggested answer

Suresh Kulla 47,789 on at

Like (0)

Report

RE: Register page as a web service dynamic nav ???

Use the codeunit 9750 it already has a function CreateWebService, just provide the Object Type, ID, Service Name and TRUE parameter to publish.
Suggested answer

Andrey Baludin 3,941 on at

Like (0)

Report

RE: Register page as a web service dynamic nav ???

Hi!

GET never works. remove it.

It should be

VAR

WebService: Record Web Service Aggregate ;

CLEAR(WebService);

WITH WebService DO BEGIN

"Object Type" :="Object Type"::Page;

"Object ID" := 5600;

"Service Name":= 'MyPage';

Published:= TRUE;

"All Tenants" := TRUE;

INSERT(TRUE);

END;