Hi,
I would like to add a profile picture to all my employees.
How can I do that without having to do add them manually?
I’m on IFS 9
Best answer by Adam Kallnik
View originalHi,
I would like to add a profile picture to all my employees.
How can I do that without having to do add them manually?
I’m on IFS 9
Best answer by Adam Kallnik
View originalThere is no ready solution but I would try:
This is an idea.
The debugger doesn’t return anything usefull when connecting a pic manually.
So I don’t know if there is an API to to use.
This method creates Binary data while saving a pic in employee
-- Context: pic1
-- Module: Ifs.Application.Person.dll
-- Namespace: Ifs.Application.Person
-- Object: frmTabCompanyPers
-- Method: frmTabCompanyPers_OnPM_DataSourceSave
DECLARE
-- p0 -> __g_Bind.n[0]
p0_ FLOAT := 0;
-- p1 -> __g_Bind.s[0]
p1_ VARCHAR2(32000) := 'TEST.bmp';
-- p2 -> __g_Bind.s[1]
p2_ VARCHAR2(32000) := 'C:\Users\adkapl\Pictures\';
-- p3 -> __g_Bind.s[2]
p3_ VARCHAR2(32000) := 'FALSE';
-- p4 -> __g_Bind.n[1]
p4_ FLOAT := 0;
-- p5 -> __g_Bind.s[3]
p5_ VARCHAR2(32000) := 'PICTURE';
-- p6 -> __g_Bind.s[4]
p6_ VARCHAR2(32000) := '';
BEGIN
IFSAPP.Log_SYS.Init_Debug_Session_('en');
IFSAPP.Binary_Object_API.Create_Or_Replace( p0_ , p1_ , p1_ , p2_ , p3_ , p4_ , p5_ , p6_ );
----------------------------------
---Dbms_Output Section---
----------------------------------
Dbms_Output.Put_Line('p0_ -> __g_Bind.n[0]');
Dbms_Output.Put_Line(p0_);
Dbms_Output.New_Line;
Dbms_Output.Put_Line('p1_ -> __g_Bind.s[0]');
Dbms_Output.Put_Line(p1_);
Dbms_Output.New_Line;
Dbms_Output.Put_Line('p2_ -> __g_Bind.s[1]');
Dbms_Output.Put_Line(p2_);
Dbms_Output.New_Line;
Dbms_Output.Put_Line('p3_ -> __g_Bind.s[2]');
Dbms_Output.Put_Line(p3_);
Dbms_Output.New_Line;
Dbms_Output.Put_Line('p4_ -> __g_Bind.n[1]');
Dbms_Output.Put_Line(p4_);
Dbms_Output.New_Line;
Dbms_Output.Put_Line('p5_ -> __g_Bind.s[3]');
Dbms_Output.Put_Line(p5_);
Dbms_Output.New_Line;
Dbms_Output.Put_Line('p6_ -> __g_Bind.s[4]');
Dbms_Output.Put_Line(p6_);
----------------------------------
END;
And this method Links picture from BInary data to employee.
-- Context: frmTabCompanyPers
-- Module: Ifs.Application.Person.dll
-- Namespace: Ifs.Application.Person
-- Object: frmTabCompanyPers
-- Method: frmTabCompanyPers_OnPM_DataSourceSave
DECLARE
-- p0 -> __lsResult
p0_ VARCHAR2(32000) := NULL;
-- p1 -> __sObjid
p1_ VARCHAR2(32000) := 'AAAVXsAAGAAAEzsAAB';
-- p2 -> __lsObjversion
p2_ VARCHAR2(32000) := '1';
-- p3 -> __lsAttr
p3_ VARCHAR2(32000) := 'PICTURE_ID'||chr(31)||'1'||chr(30);
-- p4 -> __sAction
p4_ VARCHAR2(32000) := 'DO';
BEGIN
IFSAPP.Log_SYS.Init_Debug_Session_('en');
IFSAPP.COMPANY_PERSON_API.MODIFY__( p0_ , p1_ , p2_ , p3_ , p4_ );
----------------------------------
---Dbms_Output Section---
----------------------------------
Dbms_Output.Put_Line('p0_ -> __lsResult');
Dbms_Output.Put_Line(p0_);
Dbms_Output.New_Line;
Dbms_Output.Put_Line('p1_ -> __sObjid');
Dbms_Output.Put_Line(p1_);
Dbms_Output.New_Line;
Dbms_Output.Put_Line('p2_ -> __lsObjversion');
Dbms_Output.Put_Line(p2_);
Dbms_Output.New_Line;
Dbms_Output.Put_Line('p3_ -> __lsAttr');
Dbms_Output.Put_Line(p3_);
Dbms_Output.New_Line;
Dbms_Output.Put_Line('p4_ -> __sAction');
Dbms_Output.Put_Line(p4_);
----------------------------------
END;
Enter your username or e-mail address. We'll send you an e-mail with instructions to reset your password.