Importing Workers Image using Excel in AX 2012

Dear Friends,

Below is sample code to import Workers Image.

 void importHCMPersonsImage()
    {
        HcmPersonImage      hcmPersonImage;
        HcmWorker           hcmWorker;
        HcmPersonnelNumberId  personnelNumber;
        DirPartyRecId       person;
        container           imageContainer;
        COMVariant          COMVariant1;
        SysExcelApplication app;
        SysExcelWorkbooks   Workbooks;
        SysExcelWorkbook    Workbook;
        SysExcelWorksheets  Worksheets;
        SysExcelWorksheet   Worksheet;
        SysExcelCells       Cells;
        SysExcelCell        RCell;
        InterOpPermission   IOPermission =  new 
                                                InterOpPermission(InterOpKind::ComInterop);
        int                 line, success, failed;
        Line                lastLineNum;
        Dialog              dialog;
        FileNameOpen        fileNameOpen;
        DialogField         dlgFileName;
        FilenameFilter filter = ["@SYS28576", '*.xlsx', "@SYS27373", '*.*'];
        FreeTxt             txt;
        BinData binData = new BinData();
        str extention, path, nameOfFile;
        str                 imageFilePathName;
        excel
        ;
  
        dialog = new Dialog();
  
        dialog.caption("@SYS4820");
        dlgFileName   =   dialog.addField(extendedTypeStr(FilenameOpen));
  
        dialog.filenameLookupFilter(filter);
  
        if (dialog.run())
        {
            fileNameOpen    =   dlgFileName.value();
        }
  
        IOPermission.assert();
  
        app = SysExcelApplication::construct();
        Workbooks = app.Workbooks();
        COMVariant1 = new COMVariant();
        COMVariant1.bStr(fileNameOpen);
        Workbook = Workbooks.Add(COMVariant1);
        Worksheets = Workbook.worksheets();
        Worksheet = Worksheets.itemFromName('Images');
        Cells = Worksheet.Cells();
  
        line = 2;
  
        setprefix('Import summary');
  
        startLengthyOperation();
        try
        {
  
            ttsbegin;
            RCell = Cells.Item(line, 1);
  
            while(RCell.Value().bStr())
            {
                personnelNumber = RCell.value().bStr();
                hcmWorker   = 
                                 HcmWorker::findByPersonnelNumber(personnelNumber);
                if (!hcmWorker.RecId)
                {
                    line++;
                    RCell = Cells.Item(line, 1);
                    info("@SYS9367" + int2str(line) +"@SYS35675"+ 
                           strfmt("@SYS112224", personnelNumber,  
                           fieldpname(HcmWorker, personnelNumber),    
                           tablepname(HcmWorker))+'\n');

                    continue;
                }
  
                person      = hcmWorker.Person;
  
                RCell = Cells.item(line, 2);
                imageFilePathName = RCell.value().bStr();
  
                if (!WinAPI::fileExists(imageFilePathName))
                {
                    line++;
                    RCell = Cells.Item(line, 1);
                    info("@SYS9367" + int2str(line) +"@SYS35675"+ strfmt("File 
                           name %1 does not exists.", imageFilePathName)+'\n');
                    continue;
                }
  
                [path, nameOfFile, extention] = fileNameSplit(imageFilePathName);
                if (extention == '.bmp' ||
                    extention == '.jpg' ||
                    extention == '.gif' ||
                    extention == '.jpeg')
                {
                    binData.loadFile(imageFilePathName);
                    imageContainer = binData.getData();
                }
  
                hcmPersonImage = HcmPersonImage::findByPerson(person, true);
  
                if(!hcmPersonImage.RecId)
                {
                    hcmPersonImage.Person = person;
                    hcmPersonImage.Image  = imageContainer;
                    hcmPersonImage.insert();
                }
                else
                {
                    hcmPersonImage.Image = imageContainer;
                    hcmPersonImage.update();
                }
  
                line++;
                RCell = Cells.Item(line, 1);
  
  
            }
  
            ttscommit;
        }
        catch
        {
            txt = 'Error in line '+ int2str(line)+", "+'Process aborted.';
            throw error(txt);
        }
        endLengthyOperation();
  
        CodeAccessPermission::revertAssert();
    }

And below is the excel template used...

 

 

How to get Employee Dimensions in AX 2012

Dear Friends,

Here is the sample code to find the Employees who has CostCenters attached.

static void getEmployeeWhoHasCostCenter(Args _args)
{
        HcmEmployment                         hcmEmployment;
        DimensionAttributeValueSetItem  setItem;
        DimensionAttributeValue              dimAttrValue;
        DimensionAttribute                      dimAttribute;
        ;
   
        dimAttribute    = DimensionAttribute::findByName('CostCenter');
   
        while select hcmEmployment
            join RecId, DisplayValue from setItem
                where setItem.DimensionAttributeValueSet ==   
                                                    hcmEmployment.DefaultDimension
            join dimAttrValue
                where dimAttrValue.RecId == setItem.DimensionAttributeValue &&
                dimAttrValue.DimensionAttribute == dimAttribute.RecId       &&
                dimAttrValue.IsDeleted == false
        {
            info(strFmt("Employee = %1  %2 = %3 ",
                HcmWorker::find(hcmEmployment.Worker).PersonnelNumber,    
                dimAttribute.Name, setItem.DisplayValue));
       }
}