IF ScannedBarcode <> '' THEN BEGIN IncomingShipmentScan."Entry No." := 0; IncomingShipmentScan.INIT; IncomingShipmentScan.Barcode := ScannedBarcode; IncomingShipmentScan.Result := IncomingShipmentScan.ProcessScan(IncomingShipmentScan.Barcode); IF IncomingShipmentScan.Result = 'Found' THEN BarcodeResultStyle := 'Favorable' ELSE BarcodeResultStyle := 'Unfavorable'; IncomingShipmentScan.CALCFIELDS("NAV Purchase Order Line No.","NAV Purchase Order No.","NAV Purchase Receipt No."); //LineTotalInfo := FORMAT(IncomingShipmentScan.GetIncomingShipmentLineScanned) + '/' + FORMAT(IncomingShipmentScan.GetIncomingShipmentLineTotal); //ReceiptTotalInfo := FORMAT(IncomingShipmentScan.GetIncomingShipmentScanned) + '/' + FORMAT(IncomingShipmentScan.GetIncomingShipmentTotal); ResultDisplay := IncomingShipmentScan.Result; ItemNoDisplay := IncomingShipmentScan."Item No."; SerialNoDisplay := IncomingShipmentScan."Serial No."; PONoDisplay := IncomingShipmentScan."NAV Purchase Order No."; POLineNoDisplay := IncomingShipmentScan."NAV Purchase Order Line No."; PRNoDisplay := IncomingShipmentScan."NAV Purchase Receipt No."; ScannedBarcode := ''; IF IncomingShipmentScan.Result <> 'Duplicate' THEN IncomingShipmentScan.INSERT(TRUE); END; IF BarcodeResultStyle <> 'Favorable' THEN CurrPage.SoundFeedback.PlaySound('https://navdev2016.vpt-inc.com/AudioLibrary/negative.mp3'); CurrPage.UPDATE(FALSE);