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

I have the same question (0)

All responses (5)

Answers (0)

Suggested answer

Andrey Baludin 3,941 on at

Like (0)

Report

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;

Was this reply helpful? Yes No
Suggested answer

Suresh Kulla 50,247 Super User 2025 Season 2 on at

Like (0)

Report

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

Was this reply helpful? Yes No
Muhammad Arif Maseed 782 on at

Like (0)

Report

Andrey Baludin have you tried the code ?

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

Was this reply helpful? Yes No
Muhammad Arif Maseed 782 on at

Like (0)

Report

Thanks for response

Was this reply helpful? Yes No
Suggested answer

4BzSoftware 6,073 on at

Like (0)

Report

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;

Was this reply helpful? Yes No