Dynamics Community Forum Thread Details

fix on NAVISION 2018 C/AL CODE .

OnInitReport()

OnPreReport()

gErrorContext.rdSetErrorContext( lcInventoryLabelReport );

BINDSUBSCRIPTION( gErrorContext );

OnPostReport()

Label Parameters - OnPreDataItem()

IF(

( GETFILTER( GUID ) = '' )

)THEN BEGIN

lcduInventoryLabelPrinting.jfGetPrintingData( grecLabelParametersTEMP );

IF(

( NOT grecLabelParametersTEMP.ISEMPTY )

)THEN BEGIN

CurrReport.BREAK;

END ELSE BEGIN

ERROR( lctxtNothingToPrint );

END;

Label Parameters - OnAfterGetRecord()

grecLabelParametersTEMP := "Label Parameters";

grecLabelParametersTEMP.INSERT;

Label Parameters - OnPostDataItem()

LabelParametersBuffer - OnPreDataItem()

IF(

( gintNumberOfCopies < 1 )

)THEN BEGIN

gintNumberOfCopies := 1;

END;

SETRANGE( Number, 0, ( grecLabelParametersTEMP.COUNT * gintNumberOfCopies ) - 1 );

gInventorySetup.GET;

LabelParametersBuffer - OnAfterGetRecord()

IF(

( ( Number MOD gintNumberOfCopies ) = 0 )

)THEN BEGIN

IF(

( Number = 1 )

)THEN BEGIN

grecLabelParametersTEMP.FIND('-');

END ELSE BEGIN

grecLabelParametersTEMP.NEXT;

END;

QuantityBarCode := BarCodeMgmt.To_128B(FORMAT(grecLabelParametersTEMP.Quantity));

grecLabelParametersTEMP.CALCFIELDS( "Item Description" );

CLEAR( gtxtExpirationDate );

IF(

( grecLabelParametersTEMP."Expiry Date" <> 0D )

)THEN BEGIN

gtxtExpirationDate := FORMAT( grecLabelParametersTEMP."Expiry Date" );

END;

CLEAR(gtxtSerialNoCaption);

CLEAR(gtxtCatchWeightCaption);

IF grecLabelParametersTEMP."Serial No." <> '' THEN

gtxtSerialNoCaption := lblSerialNo;

IF grecLabelParametersTEMP."Net Weight" <> 0 THEN

gtxtCatchWeightCaption := lblCatchWeight;

CLEAR( gBarCode128 );

CLEAR( gBarCode128HumanReadable );

gBarCode128 := lBarCodeTypeManagement.rdConvertLabelParamsToBarCode( '', grecLabelParametersTEMP, gBarCode128HumanReadable );

END;

LabelParametersBuffer - OnPostDataItem()

Warehouse Entry - OnPreDataItem()

Warehouse Entry - OnAfterGetRecord()

Warehouse Entry - OnPostDataItem()

MY REQUIREMENT IS TO Need to add ID Field in Report which is based upon the existing Inventory Label Report. Need to extract the ID field from the Warehouse Entry table. The idea being that they can post there output into a container, print label and have the ID on the report as a barcode.

Quick Links

Leaderboard