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;
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.
