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

Popular posts from this blog

ExcelToCI Example

PeopleSoft workflow