Component Interface Example
Component Interface Example
======================================================================
This is an example of a CI code written in AE program for a CI with 2 scroll levels.
===========================================================
Local ApiObject &MYSESSION;
Local ApiObject &MYCI;
&MYSESSION = %Session;
&MYCI =
&MYSESSION.GetCompIntfc(CompIntfc.STUDENT_CI);
&MYCI.STUDENT_ID = "213";
rem &MYCI.STUDENT_NAME = "fald";
If Not &MYCI.get() Then
&MYCI.Create();
End-If;
&MYCI.STUDENT_NAME = "fald,robert jam";
&MYLEVEL1 = &MYCI.STUDENT_COU;
For &I = 1 To &MYLEVEL1.Count
&ITEM = &MYLEVEL1.Item(&I);
&ITEM.COURSE = "ORACLE";
&MYLEVEL2 = &ITEM.STUD_ADDR;
&COUNT = &MYLEVEL2.Count;
For &J = 1 To &COUNT
&LVL2ITEM =
&MYLEVEL2.Item(&J);
&LVL2ITEM.PHONE =
"97899";
&LVL2ITEM.ADDRESS =
"fald STREET";
End-For;
End-For;
If Not (&MYCI.Save()) Then
&TEXT = "";
&COLL = &MYSESSION.PSMessages;
For &I = 1 To &COLL.Count
&ERROR =
&COLL.Item(&I);
&TEXT = &TEXT |
" " | &ERROR.Text;
End-For;
&COLL.DeleteAll();
End-If;
&MYCI.save();======================================================================
Comments
Post a Comment