Hi All,

With Microsoft Dynamics NAV 2016 Camera can be integrated with Dynamics NAV Client.

This article steps how we can add access to camera to a specific page from the development environment. Adding a camera option to the Item card, for example, lets you take a picture of a specific item and store it with the item.

Thanks To +nishant srivastava  & +Riska Tirtasari  for the post, who suggested to have  this article.



1. In the development environment, on the Tools menu, choose Object Designer to open the Object Designer window.

2. In Object Designer, choose Pages, select the Item Card (page 30) and choose the Design button.

3. Add Picture in the general tab as shown below.



4. From the Page Designer window, on the View menu, choose C/AL Globals.

Create the following two variables:

Variable name
DataType
SubType
Camera
DotNet
Microsoft.Dynamics.Nav.Client.Capabilities.CameraProvider.'Microsoft.Dynamics.Nav.ClientExtensions, Version=9.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'
CameraAvailable
Boolean



5. Make sure to set the properties RunOnClient and WithEvents to Yes, for the Camera Dotnet Variables as shown below.


6. Let's Now add an action for Accessing Camera. Add a action with following properties -

Name - TakePicture.
Enabled - CameraAvailable
Image - Camera.
Promoted - Yes.
Promoted Category - Process.
PromotedIsBig - Yes.

Add Following Code for the New Action Created.
-------------------------------------
Camera.RequestPictureAsync;
-------------------------------------


7. As we enabled WithEvents for the New Camera DotNet Variable. A New Trigger will be available as below - 
-------------------------------------------------------------------------------
Camera::PictureAvailable(PictureName : Text;PictureFilePath : Text)
------------------------------------------------------------------------------- 

Add following code for uploading Image In the Database. 
------------------------------------------------------------------------------- 
FileManagement.BLOBImportFromServerFile(TempBlob,PictureFilePath);
Rec.Picture := TempBlob.Blob;
Rec.MODIFY;
MESSAGE('Image Updated For Item %1 - %2',Rec."No.",Rec.Description);
FILE.ERASE(PictureFilePath);
------------------------------------------------------------------------------- 


8. Now at last we only want to have the new action enabled only if camera is available & user is using the correct Client. 

In OnOpen Page of Item card add following Code.
------------------------------------------------------------------------------- 
IF Camera.IsAvailable THEN
BEGIN
  Camera := Camera.Create;
  CameraAvailable := TRUE;
END;
 ------------------------------------------------------------------------------- 

For the Demo I used Microsoft Dynamics NAV 2016 W1.
You can download the Pre & post objects in Text Format from Dynamics User Group

Demo of Camera Integration -

Your Views on the article are much awaited. Stay connected, yet more to come.

Regards,
Saurav Dhyani