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
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
There 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.sB0]
  p1_ VARCHAR2(32000) := 'TEST.bmp';
  -- p2 -> __g_Bind.s_1]
  p2_ VARCHAR2(32000) := 'C:\Users\adkapl\Pictures\';
  -- p3 -> __g_Bind.sg2]
  p3_ VARCHAR2(32000) := 'FALSE';
  -- p4 -> __g_Bind.n41]
  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.nb0]');
  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.sL2]');
  Dbms_Output.Put_Line(p3_);
  Dbms_Output.New_Line;
  Dbms_Output.Put_Line('p4_ -> __g_Bind.nt1]');
  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;
Â
Thanks!
This looks like debug info.
I just had to run the debugger from the employee window.
BR Kresten
Enter your E-mail address. We'll send you an e-mail with instructions to reset your password.