hi all,
am tring to upload data to dept_tbl.
first i have uploaded data into one dept_tmp record through file layout and from that am tring to fill dept_tbl record.
in dept_tmp data is there.
while running the ci am getting following error "Invalid value -- press the prompt button or hyperlink for a list of valid values (15,11)"
i have tried hardcoding the values in ci also . result is sucessful but data in not there in dept_record.
and even i have tried lrim also ..
and plese help in this regard .
here am giving the code of that ci
/* ===>
This is a dynamically generated PeopleCode template to be used only as a helper
to the application developer.
You need to replace all references to '[*]' OR default values with references to
PeopleCode variables and/or a Rec.Fields. */
Local File &fileLog;
Local ApiObject &oSession, &oLntDeptTblCi;
Local ApiObject &oSetDeptBuVwCollection, &oSetDeptBuVw;
Local ApiObject &oDeptTblCollection, &oDeptTbl;
Local ApiObject &oDeptTblCanCollection, &oDeptTblCan;
Local ApiObject &oDeptTblFraCollection, &oDeptTblFra;
Local ApiObject &oDeptTblChnCollection, &oDeptTblChn;
Local ApiObject &oEncumbTriggerCollection, &oEncumbTrigger;
Local ApiObject &oBudgetTriggerCollection, &oBudgetTrigger;
Local ApiObject &oScrtySettypVwCollection, &oScrtySettypVw;
Local Rowset &rec;
Function errorHandler()
Local ApiObject &oPSMessageCollection, &oPSMessage;
Local number &i;
Local string &sErrMsgSetNum, &sErrMsgNum, &sErrMsgText, &sErrType;
&oPSMessageCollection = &oSession.PSMessages;
For &i = 1 To &oPSMessageCollection.Count
&oPSMessage = &oPSMessageCollection.Item(&i);
&sErrMsgSetNum = &oPSMessage.MessageSetNumber;
&sErrMsgNum = &oPSMessage.MessageNumber;
&sErrMsgText = &oPSMessage.Text;
&fileLog.WriteLine(&sErrType | " (" | &sErrMsgSetNum | "," | &sErrMsgNum | ") - " | &sErrMsgText);
End-For;
rem ***** Delete the Messages from the collection *****;
&oPSMessageCollection.DeleteAll();
End-Function;
&rec = CreateRowset(Record.DEPT_TMP);
&rec.Fill();
For &i = 1 To &rec.ActiveRowCount
try
rem ***** Set the Log File *****;
&fileLog = GetFile("C:\Temp\LNT_DEPT_TBL_CI.log", "w", "a", %FilePath_Absolute);
&fileLog.WriteLine("Begin");
rem ***** Get current PeopleSoft Session *****;
&oSession = %Session;
rem ***** Set the PeopleSoft Session Error Message Mode *****;
rem ***** 0 - None *****;
rem ***** 1 - PSMessage Collection only (default) *****;
rem ***** 2 - Message Box only *****;
rem ***** 3 - Both collection and message box *****;
&oSession.PSMessagesMode = 1;
rem ***** Get the Component Interface *****;
&oLntDeptTblCi = &oSession.GetCompIntfc(CompIntfc.LNT_DEPT_TBL_CI);
If &oLntDeptTblCi = Null Then
errorHandler();
throw CreateException(0, 0, "GetCompIntfc failed");
End-If;
rem ***** Set the Component Interface Mode *****;
&oLntDeptTblCi.InteractiveMode = False;
&oLntDeptTblCi.GetHistoryItems = True;
&oLntDeptTblCi.EditHistoryItems = False;
rem ***** Set Component Interface Get/Create Keys *****;
&oLntDeptTblCi.SETID = &rec(&i).DEPT_TMP.SETID.Value;
&oLntDeptTblCi.DEPTID = &rec(&i).DEPT_TMP.DEPTID.Value;
rem ***** Execute Get *****;
/* If Not &oLntDeptTblCi.Get() Then
rem ***** No rows exist for the specified keys.*****;
errorHandler();
throw CreateException(0, 0, "Get failed");
End-If;
*/
rem ***** Execute Create ******;
If Not &oLntDeptTblCi.Create() Then
rem ***** Unable to Create Component Interface for the Add keys provided. *****;
errorHandler();
throw CreateException(0, 0, "Create failed");
End-If;
rem ***** Begin: Get/Set Component Interface Properties *****;
rem ***** Get/Set Level 0 Field Properties *****;
&fileLog.WriteLine("&oLntDeptTblCi.SETID = " | &oLntDeptTblCi.SETID);
&oLntDeptTblCi.SETID = &rec(&i).DEPT_TMP.SETID.Value;
&fileLog.WriteLine("&oLntDeptTblCi.DEPTID = " | &oLntDeptTblCi.DEPTID);
&oLntDeptTblCi.DEPTID = &rec(&i).DEPT_TMP.DEPTID.Value;
/*&fileLog.WriteLine("&oLntDeptTblCi.TRIGGER_WRK_SCROLL = " | &oLntDeptTblCi.TRIGGER_WRK_SCROLL);
rem &oLntDeptTblCi.TRIGGER_WRK_SCROLL = [*];
&fileLog.WriteLine("&oLntDeptTblCi.STATUS_CHG_INDC = " | &oLntDeptTblCi.STATUS_CHG_INDC);
rem &oLntDeptTblCi.STATUS_CHG_INDC = [*];
&fileLog.WriteLine("&oLntDeptTblCi.CURRENT_DT = " | &oLntDeptTblCi.CURRENT_DT);
rem &oLntDeptTblCi.CURRENT_DT = [*];
&fileLog.WriteLine("&oLntDeptTblCi.CURRENT_SEQ = " | &oLntDeptTblCi.CURRENT_SEQ);
rem &oLntDeptTblCi.CURRENT_SEQ = [*];
&fileLog.WriteLine("&oLntDeptTblCi.SCRTY_SET_CD = " | &oLntDeptTblCi.SCRTY_SET_CD);
rem &oLntDeptTblCi.SCRTY_SET_CD = [*];
&fileLog.WriteLine("&oLntDeptTblCi.RECNAME_SJT = " | &oLntDeptTblCi.RECNAME_SJT);
rem &oLntDeptTblCi.RECNAME_SJT = [*];
&fileLog.WriteLine("&oLntDeptTblCi.EMPLID = " | &oLntDeptTblCi.EMPLID);
rem &oLntDeptTblCi.EMPLID = [*];
&fileLog.WriteLine("&oLntDeptTblCi.EMPL_RCD = " | &oLntDeptTblCi.EMPL_RCD);
rem &oLntDeptTblCi.EMPL_RCD = [*];
&fileLog.WriteLine("&oLntDeptTblCi.POI_TYPE = " | &oLntDeptTblCi.POI_TYPE);
rem &oLntDeptTblCi.POI_TYPE = [*];
&fileLog.WriteLine("&oLntDeptTblCi.HRS_JOB_OPENING_ID = " | &oLntDeptTblCi.HRS_JOB_OPENING_ID);
rem &oLntDeptTblCi.HRS_JOB_OPENING_ID = [*]; */
rem ***** Set/Get SET_DEPT_BU_VW Collection Field Properties -- Parent: PS_ROOT Collection *****;
/* &oSetDeptBuVwCollection = &oLntDeptTblCi.SET_DEPT_BU_VW;
Local integer &i124;
For &i124 = 1 To &oSetDeptBuVwCollection.Count;
&oSetDeptBuVw = &oSetDeptBuVwCollection.Item(&i124);
&fileLog.WriteLine("&oSetDeptBuVw.SETCNTRLVALUE = " | &oSetDeptBuVw.SETCNTRLVALUE);
rem &oSetDeptBuVw.SETCNTRLVALUE = [*];
End-For;
*/
rem ***** Set/Get DEPT_TBL Collection Field Properties -- Parent: PS_ROOT Collection *****;
&oDeptTblCollection = &oLntDeptTblCi.DEPT_TBL;
Local integer &i126;
For &i126 = 1 To &oDeptTblCollection.Count;
&oDeptTbl = &oDeptTblCollection.Item(&i126);
&oDeptTbl = &oDeptTblCollection.Item(&i126);
&oDeptTbl.EFFDT = &rec(&i).DEPT_TMP.EFFDT.Value;
&fileLog.WriteLine("&oDeptTbl.EFFDT = " | &oDeptTbl.EFFDT);
&oDeptTbl.EFF_STATUS = &rec(&i).DEPT_TMP.EFF_STATUS.Value;
&fileLog.WriteLine("&oDeptTbl.EFF_STATUS = " | &oDeptTbl.EFF_STATUS);
&oDeptTbl.DESCR = &rec(&i).DEPT_TMP.DESCR.Value;
&fileLog.WriteLine("&oDeptTbl.DESCR = " | &oDeptTbl.DESCR);
&oDeptTbl.DESCR = &rec(&i).DEPT_TMP.DESCR.Value;
&oDeptTbl.DESCRSHORT = &rec(&i).DEPT_TMP.DESCRSHORT.Value;
&fileLog.WriteLine("&oDeptTbl.DESCRSHORT = " | &oDeptTbl.DESCRSHORT);
&oDeptTbl.COMPANY = &rec(&i).DEPT_TMP.COMPANY.Value;
&fileLog.WriteLine("&oDeptTbl.COMPANY = " | &oDeptTbl.COMPANY);
&oDeptTbl.SETID_LOCATION = LTrim(&rec(&i).DEPT_TMP.SETID_LOCATION.Value);
rem &oDeptTbl.SETID_LOCATION = "LNT";
&fileLog.WriteLine("&oDeptTbl.SETID_LOCATION = " | &oDeptTbl.SETID_LOCATION);
&oDeptTbl.LOCATION = LTrim(&rec(&i).DEPT_TMP.LOCATION.Value);
rem &oDeptTbl.LOCATION = 70;
&fileLog.WriteLine("&oDeptTbl.LOCATION = " | &oDeptTbl.LOCATION);
&fileLog.WriteLine("&oDeptTbl.TAX_LOCATION_CD = " | &oDeptTbl.TAX_LOCATION_CD);
rem &oDeptTbl.TAX_LOCATION_CD = [*];
rem ---- no need now-----&fileLog.WriteLine("&oDeptTbl.MANAGER_ID = " | &oDeptTbl.MANAGER_ID);
rem &oDeptTbl.MANAGER_ID = [*];
&oDeptTbl.MANAGER_POSN = &rec(&i).DEPT_TMP.MANAGER_POSN.Value;
&fileLog.WriteLine("&oDeptTbl.MANAGER_POSN = " | &oDeptTbl.MANAGER_POSN);
&oDeptTbl.BUDGET_YR_END_DT = &rec(&i).DEPT_TMP.BUDGET_YR_END_DT.Value;
&fileLog.WriteLine("&oDeptTbl.BUDGET_YR_END_DT = " | &oDeptTbl.BUDGET_YR_END_DT);
rem &fileLog.WriteLine("&oDeptTbl.BUDGET_LVL = " | &oDeptTbl.BUDGET_LVL);
rem &oDeptTbl.BUDGET_LVL = &rec(&i).DEPT_TMP.BUDGET_LVL.Value;
&oDeptTbl.GL_EXPENSE = &rec(&i).DEPT_TMP.GL_EXPENSE.Value;
&fileLog.WriteLine("&oDeptTbl.GL_EXPENSE = " | &oDeptTbl.GL_EXPENSE);
&oDeptTbl.EEO4_FUNCTION = &rec(&i).DEPT_TMP.EEO4_FUNCTION.Value;
&fileLog.WriteLine("&oDeptTbl.EEO4_FUNCTION = " | &oDeptTbl.EEO4_FUNCTION);
rem &oDeptTbl.CAN_IND_SECTOR = &rec(&i).DEPT_TMP.CAN_IND_SECTOR.Value;
rem &fileLog.WriteLine("&oDeptTbl.CAN_IND_SECTOR = " | &oDeptTbl.CAN_IND_SECTOR);
&oDeptTbl.ACCIDENT_INS = &rec(&i).DEPT_TMP.ACCIDENT_INS.Value;
&fileLog.WriteLine("&oDeptTbl.ACCIDENT_INS = " | &oDeptTbl.ACCIDENT_INS);
&oDeptTbl.SI_ACCIDENT_NUM = &rec(&i).DEPT_TMP.SI_ACCIDENT_NUM.Value;
&fileLog.WriteLine("&oDeptTbl.SI_ACCIDENT_NUM = " | &oDeptTbl.SI_ACCIDENT_NUM);
&oDeptTbl.HAZARD = &rec(&i).DEPT_TMP.HAZARD.Value;
&fileLog.WriteLine("&oDeptTbl.HAZARD = " | &oDeptTbl.HAZARD);
&oDeptTbl.ESTABID = &rec(&i).DEPT_TMP.ESTABID.Value;
&fileLog.WriteLine("&oDeptTbl.ESTABID = " | &oDeptTbl.ESTABID);
&oDeptTbl.RISKCD = &rec(&i).DEPT_TMP.RISKCD.Value;
&fileLog.WriteLine("&oDeptTbl.RISKCD = " | &oDeptTbl.RISKCD);
&oDeptTbl.FTE_EDIT_INDC = &rec(&i).DEPT_TMP.FTE_EDIT_INDC.Value;
&fileLog.WriteLine("&oDeptTbl.FTE_EDIT_INDC = " | &oDeptTbl.FTE_EDIT_INDC);
/*&fileLog.WriteLine("&oDeptTbl.DEPT_TENURE_FLG = " | &oDeptTbl.DEPT_TENURE_FLG);
&oDeptTbl.DEPT_TENURE_FLG = &rec(&i).DEPT_TMP.EEO4_FUNCTION.Value;*/
&oDeptTbl.TL_DISTRIB_INFO = &rec(&i).DEPT_TMP.TL_DISTRIB_INFO.Value;
&fileLog.WriteLine("&oDeptTbl.TL_DISTRIB_INFO = " | &oDeptTbl.TL_DISTRIB_INFO);
/* &fileLog.WriteLine("&oDeptTbl.USE_BUDGETS = " | &oDeptTbl.USE_BUDGETS);
&oDeptTbl.USE_BUDGETS = &rec(&i).USE_BUDGETS.VALUE;
&fileLog.WriteLine("&oDeptTbl.USE_ENCUMBRANCES = " | &oDeptTbl.USE_ENCUMBRANCES);
&oDeptTbl.USE_ENCUMBRANCES = &rec(&i).DEPT_TMP.USE_ENCUMBRANCES.Value;
*/
&oDeptTbl.USE_DISTRIBUTION = &rec(&i).DEPT_TMP.USE_DISTRIBUTION.Value;
&fileLog.WriteLine("&oDeptTbl.USE_DISTRIBUTION = " | &oDeptTbl.USE_DISTRIBUTION);
&oDeptTbl.BUDGET_DEPTID = &rec(&i).DEPT_TMP.BUDGET_DEPTID.Value;
&fileLog.WriteLine("&oDeptTbl.BUDGET_DEPTID = " | &oDeptTbl.BUDGET_DEPTID);
&oDeptTbl.HP_STATS_DEPT_CD = &rec(&i).DEPT_TMP.HP_STATS_DEPT_CD.Value;
&fileLog.WriteLine("&oDeptTbl.HP_STATS_DEPT_CD = " | &oDeptTbl.HP_STATS_DEPT_CD);
&oDeptTbl.HP_STATS_FACULTY = &rec(&i).DEPT_TMP.HP_STATS_FACULTY.Value;
&fileLog.WriteLine("&oDeptTbl.HP_STATS_FACULTY = " | &oDeptTbl.HP_STATS_FACULTY);
&oDeptTbl.HP_RTBC_OPTION = "B";
&fileLog.WriteLine("&oDeptTbl.HP_RTBC_OPTION = " | &oDeptTbl.HP_RTBC_OPTION);
&oDeptTbl.HP_AUTO_RTBC = "N";
&fileLog.WriteLine("&oDeptTbl.HP_AUTO_RTBC = " | &oDeptTbl.HP_AUTO_RTBC);
&oDeptTbl.CLASS_UNIT_NZL = &rec(&i).DEPT_TMP.CLASS_UNIT_NZL.Value;
&fileLog.WriteLine("&oDeptTbl.CLASS_UNIT_NZL = " | &oDeptTbl.CLASS_UNIT_NZL);
&oDeptTbl.ORG_UNIT_AUS = &rec(&i).DEPT_TMP.ORG_UNIT_AUS.Value;
&fileLog.WriteLine("&oDeptTbl.ORG_UNIT_AUS = " | &oDeptTbl.ORG_UNIT_AUS);
&oDeptTbl.WORK_SECTOR_AUS = &rec(&i).DEPT_TMP.WORK_SECTOR_AUS.Value;
&fileLog.WriteLine("&oDeptTbl.WORK_SECTOR_AUS = " | &oDeptTbl.WORK_SECTOR_AUS);
&oDeptTbl.APS_AGENT_CD_AUS = &rec(&i).DEPT_TMP.APS_AGENT_CD_AUS.Value;
&fileLog.WriteLine("&oDeptTbl.APS_AGENT_CD_AUS = " | &oDeptTbl.APS_AGENT_CD_AUS);
&oDeptTbl.IND_COMMITTEE_BEL = &rec(&i).DEPT_TMP.IND_COMMITTEE_BEL.Value;
&fileLog.WriteLine("&oDeptTbl.IND_COMMITTEE_BEL = " | &oDeptTbl.IND_COMMITTEE_BEL);
&oDeptTbl.NACE_CD_BEL = &rec(&i).DEPT_TMP.NACE_CD_BEL.Value;
&fileLog.WriteLine("&oDeptTbl.NACE_CD_BEL = " | &oDeptTbl.NACE_CD_BEL);
End-For;
rem ***** Set/Get BUDGET_TRIGGER Collection Field Properties -- Parent: PS_ROOT Collection *****;
&oBudgetTriggerCollection = &oLntDeptTblCi.BUDGET_TRIGGER;
/* Local integer &i183;
For &i183 = 1 To &oBudgetTriggerCollection.Count;
&oBudgetTrigger = &oBudgetTriggerCollection.Item(&i183);
&fileLog.WriteLine("&oBudgetTrigger.POSITION_POOL_ID_1 = " | &oBudgetTrigger.POSITION_POOL_ID_1);
rem &oBudgetTrigger.POSITION_POOL_ID_1 = [*];
&fileLog.WriteLine("&oBudgetTrigger.TRIGGER_RECORD_1 = " | &oBudgetTrigger.TRIGGER_RECORD_1);
rem &oBudgetTrigger.TRIGGER_RECORD_1 = [*];
&fileLog.WriteLine("&oBudgetTrigger.TIME_STAMP_1 = " | &oBudgetTrigger.TIME_STAMP_1);
rem &oBudgetTrigger.TIME_STAMP_1 = [*];
&fileLog.WriteLine("&oBudgetTrigger.PROCESSED_0 = " | &oBudgetTrigger.PROCESSED_0);
rem &oBudgetTrigger.PROCESSED_0 = [*];
End-For;
*/
rem ***** Set/Get SCRTY_SETTYP_VW Collection Field Properties -- Parent: PS_ROOT Collection *****;
/* &oScrtySettypVwCollection = &oLntDeptTblCi.SCRTY_SETTYP_VW;
Local integer &i188;
For &i188 = 1 To &oScrtySettypVwCollection.Count;
&oScrtySettypVw = &oScrtySettypVwCollection.Item(&i188);
&fileLog.WriteLine("&oScrtySettypVw.SCRTY_TYPE_CD = " | &oScrtySettypVw.SCRTY_TYPE_CD);
rem &oScrtySettypVw.SCRTY_TYPE_CD = [*];
&fileLog.WriteLine("&oScrtySettypVw.RECNAME_SJT_0 = " | &oScrtySettypVw.RECNAME_SJT_0);
rem &oScrtySettypVw.RECNAME_SJT_0 = [*];
&fileLog.WriteLine("&oScrtySettypVw.RECNAME_S_TRANS = " | &oScrtySettypVw.RECNAME_S_TRANS);
rem &oScrtySettypVw.RECNAME_S_TRANS = [*];
&fileLog.WriteLine("&oScrtySettypVw.KEY1_PROMPT_FLD = " | &oScrtySettypVw.KEY1_PROMPT_FLD);
rem &oScrtySettypVw.KEY1_PROMPT_FLD = [*];
&fileLog.WriteLine("&oScrtySettypVw.KEY2_PROMPT_FLD = " | &oScrtySettypVw.KEY2_PROMPT_FLD);
rem &oScrtySettypVw.KEY2_PROMPT_FLD = [*];
&fileLog.WriteLine("&oScrtySettypVw.KEY3_PROMPT_FLD = " | &oScrtySettypVw.KEY3_PROMPT_FLD);
rem &oScrtySettypVw.KEY3_PROMPT_FLD = [*];
&fileLog.WriteLine("&oScrtySettypVw.FUTURE_FLG = " | &oScrtySettypVw.FUTURE_FLG);
rem &oScrtySettypVw.FUTURE_FLG = [*];
End-For;*/
rem ***** End: Get/Set Component Interface Properties *****;
rem ***** Execute Save *****;
rem If Not &oLntDeptTblCi.Save() Then;
rem errorHandler();
rem throw CreateException(0, 0, "Save failed");
rem End-If;
rem ***** Execute Cancel *****;
rem If Not &oLntDeptTblCi.Cancel() Then;
rem errorHandler();
rem throw CreateException(0, 0, "Cancel failed");
rem End-If;
catch Exception &ex
rem Handle the exception;
&fileLog.WriteLine(&ex.ToString());
end-try;
End-For;
&fileLog.WriteLine("End");
&fileLog.Close();
Bookmark/Search this post with
Recent comments
2 weeks 5 days ago
3 weeks 3 days ago
3 weeks 3 days ago
3 weeks 4 days ago
3 weeks 6 days ago
3 weeks 6 days ago
4 weeks 4 days ago
4 weeks 6 days ago
5 weeks 2 days ago
5 weeks 5 days ago