Upload/view employee photos in E1 8.12, TR 8.96.40

Mar 15, 2016 5:50AM

I am using the following code to display stored photos of an employee, in a Fix/Inspect form

0001 //

0002 VA frm_ImageRepository_CMDS = PO szImageRepository_CMDS

0003 VA frm_ImageOnclick_DESC2000 = "<div id=EEPicture><img width=150 height=180 src=""

0004 VA frm_szImageFile_DL01 = concat([FC Address Number],".jpg")

0005 VA frm_ImageOnclick_DESC2000 = concat([VA frm_ImageOnclick_DESC2000],[VA frm_ImageRepository_CMDS])

0006 VA frm_ImageOnclick_DESC2000 = concat([VA frm_ImageOnclick_DESC2000],[VA frm_szImageFile_DL01])

0007 VA frm_ImageOnclick_DESC2000 = concat([VA frm_ImageOnclick_DESC2000],'"')

0008 VA frm_ImageOnclick_DESC2000 = concat([VA frm_ImageOnclick_DESC2000]," </div>")

0009 //

0010 Add Segment(FC Text Block 42, VA frm_ImageOnclick_DESC2000, <Default,Default,0,Default>, <Yes>, VA frm_iSegmentID_INT04)

Design Tools & Output Technologies - JDE1 (MOSC)