I am doing this for several grids on the page at the same level, and all grids work fine except this one grid. In all cases, the level 1 scrolls have one extra key than the parent. In this case, the trace shows the &Rec.Insert succeeding, then it attempts the "Select for Update" into the original view giving the original effdt. This doesn't happen for any other grid. All other grids stop after the insert.

TRACE FILE:

If GetRow().IsChanged Then
&Rec = GetRecord();
If &Rec.EFFDT.Value = %Date And
GetRow().IsNew = False Then
&Rec.EFFSEQ.Value = &Rec.EFFSEQ.Value + 1;
Else
&Rec.EFFDT.Value = %Date;
&Rec.EFFSEQ.Value = 0;
End-If;
…
&REC2 = CreateRecord(Record.ZG_ENT_KC);
&REC2.SetDefault();
&Rec.COPYFIELDSTO(&REC2);
&REC2.Insert();

Stmt=INSERT INTO PS_ZG_ENT_KC (ZG_ENTITY_ID,EMPLID,EFFDT,EFFSEQ,EFF_STATUS,PHONE, EMAIL_ADDR,LASTUPDOPRID,LASTUPDDTTM) VALUES (:1,:2,TO_DATE(:3,'YYYY-MM-DD'),:4,:5,:6,:7,:8,TO_TIMESTAMP(:9,'YYYY-MM-DD-HH24.MI.SS.FF'))
value=V0000001
value=7269 555
value
10-07-19
value=0
value=A
value=444/444-4444
value=
value=743156
value
10-07-19-19.36.34.000000
End-If;

Stmt=SELECT ZG_ENTITY_ID, EMPLID, EFFDT, TO_CHAR(EFFDT,'YYYY-MM-DD'), EFFSEQ, EFF_STATUS, PHONE, EMAIL_ADDR, LASTUPDOPRID, TO_CHAR(CAST((LASTUPDDTTM) AS TIMESTAMP),'YYYY-MM-DD-HH24.MI.SS.FF') FROM PS_ZG_ENT_KC_VW WHERE ZG_ENTITY_ID=:1 AND EMPLID=:2 AND EFFDT=TO_DATE(:3,'YYYY-MM-DD') AND EFFSEQ=:4 FOR UPDATE OF EFFDT, PHONE, LASTUPDOPRID, LASTUPDDTTM
value=V0000001
value=7269555value
10-07-15
value=0

Here is the code in the submit button

 Local Rowset &LocalRowOT; &LocalRowOT = GetLevel0()(1).GetRowset(Scroll.OT_ESS); For &i = ActiveRowCount(Scroll.OT_ESS) To 1 Step - 1 If All(&LocalRowOT(&i).OT_ESS.EMP_RMK.Value) Then &LocalRowOT(&i).OT_ESS.STATUS.Value = "SUB"; End-If; If All(&LocalRowOT(&i).OT_ESS.CODE.Value, &LocalRowOT(&i).OT_ESS.DATE.Value, &LocalRowOT(&i).OT_ESS.EMP_RMK.Value) Then &LocalRowOT(&i).OT_ESS.DATE.Enabled = False; &LocalRowOT(&i).OT_ESS.EMP_RMK.Enabled = False; End-If; DoSaveNow(); End-For; 

I got this error messsage after click the SUBMIT_BTN
Field Is Required: OT_ESS - DATE

I try to display the value so add the code with message boxes:

 Local Rowset &LocalRowOT; &LocalRowOT = GetLevel0()(1).GetRowset(Scroll.OT_ESS); For &i = ActiveRowCount(Scroll.OT_ESS) To 1 Step - 1 MessageBox(0, "", 0, 0, "&i is " | &i | " &LocalRowOT(&i).OT_ESS.DATE is " | &LocalRowOT(&i).OT_ESS.DATE | " &LocalRowOT(&i).OT_ESS.DATE.Value is " | &LocalRowOT(&i).OT_ESS.DATE.Value); End-For; For &i = ActiveRowCount(Scroll.OT_ESS) To 1 Step - 1 If All(&LocalRowOT(&i).OT_ESS.EMP_RMK.Value) Then &LocalRowOT(&i).OT_ESS.STATUS.Value = "SUB"; End-If; If All(&LocalRowOT(&i).OT_ESS.CODE.Value, &LocalRowOT(&i).OT_ESS.DATE.Value, &LocalRowOT(&i).OT_ESS.EMP_RMK.Value) Then &LocalRowOT(&i).OT_ESS.DATE.Enabled = False; &LocalRowOT(&i).OT_ESS.EMP_RMK.Enabled = False; End-If; MessageBox(0, "", 0, 0, "before save : OT_ESS.DATE is " | OT_ESS.DATE | " and OT_ESS.DATE.Value is " | OT_ESS.DATE.Value); DoSaveNow(); End-For; 

The first Message box
i is 1 &LocalRowOT(&i).OT_ESS.DATE is Field &LocalRowOT(&i).OT_ESS.DATE.Value is 2010-06-10

The second Message box
before save : OT_ESS.DATE is and OT_ESS.DATE.Value is

the field DATE already has a value (displayed in the message box). But why it generates error while calling DoSaveNow() ?

I would really appreciate if someone could point me in the right direction or help me find the list.

Thank you,
K

Kind Regards
Dhananjay

Local PT_MCF_MAIL:MCFOutboundEmail &email = create PT_MCF_MAIL:MCFOutboundEmail();

&email.Recipients = "test_mail"; /*incorrect mail id*/
or

&email.Recipients = "moc.4321|savinirs#moc.4321|savinirs"; /*incorrect domain id*/

&email.From = "";
&email.BCC = "";
&email.Subject = "Test mail";
&email.ReplyTo = "";
&email.ContentType = "text/html";
&res = &email.Send();
WinMessage("Mail Sent " | &res | "-" | %ObEmail_Delivered, 0);

I am passing wrong Recipients mail id. when we run this still its &email.Send(); returning 1 (success)..
is there any workaround in PS to validate the mailid against SMTP server.

any idea?

Any information regarding OLE Automation will be appreciated.

I found a piece of delivered code on XREF_WRK.XREF_OLE1.FieldChange

Local object &IDE;

&IDE = CreateObject("PEOPLESOFT.IDE");
/*ObjectSetProperty(&IDE, "Visible", True);*/
ObjectDoMethod(&IDE, "ViewObject", "Record.XREF_VIEW");

This record is attached to the Page XREF_PANEL_01

The Navigation is Peopletools->Administratrion->Audit->Record Cross Reference

I went ahead and added the field as a push button this page. On Clicking the push button i get the following error

Class PEOPLESOFT.IDE was not found. (180,74) XREF_WRK.XREF_OLE1.FieldChange PCPC:63 Statement:1

The given class could not be found in the database, or had problems when we tried to load it.

Does anyone have any information on how to get this class to invoke PSIDE automatically from the Web to show the record.

Thanks

Nitin

It isn't obvious to me how this might be achieved but I imagine it is a fairly common requirement. I have cases where I want to email a student and cc their agent (and vice versa) or possibly even bcc a communication to a central mailbox within our organisation.

Has anyone done this and how are they doing it?

Regards