Display a picture in a label-type report

Business Central/NAV Developers Forum
1

What I’m trying to achieve is: get 10 labels/sheet from the Item-table. When I use the label-type wizard it creates an array and I’ve learned that binary fields cannot be stored in arrays. I’ve tried the outstream variable but simply don’t get it right as it seems. Also CALCFIELDS(picture) of course not in the array but in a textbox… greatful for a hint towards the right direction…

2

But record variables can.

3

I also tried that, but then the report doesn’t even show the asterix that indicates that there actually is a value in the blob-field… :confused: Regardless my specific issue, I haven’t been able to figure out how to display blob-fields within NAV-objects…I just have the “light” developer-license so I don’t have the possibility to read code in forms to compare with for instance 346 item picture…

4

There is not much code behindfor 346:

OBJECT Form 346 Item Picture
{
OBJECT-PROPERTIES
{
Date=08.06.01;
Time=12:00:00;
Version List=NAVW13.00;
}
PROPERTIES
{
Width=7150;
Height=7920;
CaptionML=ENU=Item Picture;
SourceTable=Table27;
OnAfterGetRecord=BEGIN
SETRANGE(“No.”);
END;

}
CONTROLS
{
{ 1 ;PictureBox ;220 ;220 ;6710 ;6710 ;HorzGlue=Both;
VertGlue=Both;
Focusable=No;
SourceExpr=Picture }
{ 2 ;MenuButton ;2310 ;7150 ;2200 ;550 ;HorzGlue=Right;
VertGlue=Bottom;
CaptionML=ENU=&Picture;
Menu=MENUITEMS
{
{ ID=3;
Ellipsis=Yes;
CaptionML=ENU=Import;
OnPush=BEGIN
PictureExists := Picture.HASVALUE;
IF Picture.IMPORT(‘.BMP’,TRUE) = ‘’ THEN
EXIT;
IF PictureExists THEN
IF NOT CONFIRM(Text001,FALSE,TABLECAPTION,“No.”) THEN
EXIT;
CurrForm.SAVERECORD;
END;
}
{ ID=4;
Ellipsis=Yes;
CaptionML=ENU=E&xport;
OnPush=BEGIN
IF Picture.HASVALUE THEN
Picture.EXPORT('.BMP’,TRUE);
END;
}
{ ID=5;
CaptionML=ENU=Delete;
OnPush=BEGIN
IF Picture.HASVALUE THEN
IF CONFIRM(Text002,FALSE,TABLECAPTION,“No.”) THEN BEGIN
CLEAR(Picture);
CurrForm.SAVERECORD;
END;
END;
}
}
}
{ 6 ;CommandButton;4730 ;7150 ;2200 ;550 ;HorzGlue=Right;
VertGlue=Bottom;
PushAction=FormHelp }
}
CODE
{
VAR
Text001@1000 : TextConst ‘ENU=Do you want to replace the existing picture of %1 %2?’;
Text002@1001 : TextConst ‘ENU=Do you want to delete the picture of %1 %2?’;
PictureExists@1002 : Boolean;

BEGIN
END.
}
}