Report 7320 Whse. Adjustment Bin, source in 29
Source29
src/Layers/W1/BaseApp/Warehouse/Reports/WhseAdjustmentBin.Report.al295 lines, Copyright (c) Microsoft Corporation. MIT
// ------------------------------------------------------------------------------------------------
// Copyright (c) Microsoft Corporation. All rights reserved.
// Licensed under the MIT License. See License.txt in the project root for license information.
// ------------------------------------------------------------------------------------------------
namespace Microsoft.Warehouse.Reports;
using Microsoft.Inventory.Location;
using Microsoft.Warehouse.Ledger;
using Microsoft.Warehouse.Structure;
using System.Utilities;
report 7320 "Whse. Adjustment Bin"
{
AccessByPermission = TableData Bin = R;
AdditionalSearchTerms = 'synchronize inventory';
ApplicationArea = Warehouse;
Caption = 'Warehouse Adjustment Bin';
ToolTip = 'Adjust the quantity of an item in a particular bin or bins. For instance, you might find some items in a bin that are not registered in the system, or you might not be able to pick the quantity needed because there are fewer items in a bin than was calculated by the program. The bin is then updated to correspond to the actual quantity in the bin. In addition, it creates a balancing quantity in the adjustment bin, for synchronization with item ledger entries, which you can then post with an item journal.';
UsageCategory = ReportsAndAnalysis;
DefaultRenderingLayout = RDLCLayout;
dataset
{
dataitem("Warehouse Entry"; "Warehouse Entry")
{
DataItemTableView = sorting("Item No.", "Bin Code", "Location Code", "Variant Code", "Unit of Measure Code");
RequestFilterFields = "Location Code", "Item No.";
column(CompanyName; COMPANYPROPERTY.DisplayName())
{
}
column(TodayFormated; Format(Today, 0, 4))
{
}
column(Details; Details)
{
}
column(WarehouseEntryTableCaption; TableCaption + ': ' + WhseEntryFilter)
{
}
column(WhseEntryFilter; WhseEntryFilter)
{
}
column(LocCode_WarehouseEntry; "Location Code")
{
}
column(CurrReportPageNoCaption; CurrReportPageNoCaptionLbl)
{
}
column(WarehouseAdjBinCaption; WarehouseAdjBinCaptionLbl)
{
}
column(WhseEntry2UOMCodeCaption; WhseEntry2.FieldCaption("Unit of Measure Code"))
{
}
column(WhseEntry2QtyPerUOMCaption; WhseEntry2.FieldCaption("Qty. per Unit of Measure"))
{
}
column(WhseEntry2QtyBaseCaption; WhseEntry2.FieldCaption("Qty. (Base)"))
{
}
column(WhseEntry2QuantityCaption; WhseEntry2.FieldCaption(Quantity))
{
}
column(WhseEntry2VariantCodeCaption; WhseEntry2.FieldCaption("Variant Code"))
{
}
dataitem("Integer"; "Integer")
{
DataItemTableView = sorting(Number) where(Number = const(1));
column(WarehouseEntryLocCode; "Warehouse Entry"."Location Code")
{
}
column(WarehouseEntryBinCode; "Warehouse Entry"."Bin Code")
{
}
column(WarehouseEntryZoneCode; "Warehouse Entry"."Zone Code")
{
}
column(IntHdr1; WhseEntry."Location Code" <> "Warehouse Entry"."Location Code")
{
}
column(WarehouseEntryItemNo; "Warehouse Entry"."Item No.")
{
}
column(IntHdr2; WhseEntry."Item No." <> "Warehouse Entry"."Item No.")
{
}
column(IntHdr3; WhseEntry."Unit of Measure Code" <> "Warehouse Entry"."Unit of Measure Code")
{
}
column(WhseEntryQuantity; WhseEntry.Quantity)
{
DecimalPlaces = 2 : 2;
}
column(WhseEntryQtyBase; WhseEntry."Qty. (Base)")
{
DecimalPlaces = 2 : 2;
}
column(WarehouseEntryQtyPerUOM; "Warehouse Entry"."Qty. per Unit of Measure")
{
}
column(WarehouseEntryUOMCode; "Warehouse Entry"."Unit of Measure Code")
{
}
column(WarehouseEntryVariantCode; "Warehouse Entry"."Variant Code")
{
}
column(WarehouseEntryLocCodeCaption; WarehouseEntryLocCodeCaptionLbl)
{
}
column(WarehouseEntryBinCodeCaption; WarehouseEntryBinCodeCaptionLbl)
{
}
column(WarehouseEntryZoneCodeCaption; WarehouseEntryZoneCodeCaptionLbl)
{
}
column(WarehouseEntryItemNoCaption; WarehouseEntryItemNoCaptionLbl)
{
}
trigger OnPostDataItem()
begin
WhseEntry.FindLast();
"Warehouse Entry" := WhseEntry;
end;
trigger OnPreDataItem()
begin
Clear(WhseEntry);
if Details then
CurrReport.Break();
WhseEntry.Reset();
WhseEntry.SetCurrentKey("Item No.", "Bin Code", "Location Code", "Variant Code", "Unit of Measure Code");
WhseEntry.SetRange("Item No.", "Warehouse Entry"."Item No.");
WhseEntry.SetRange("Bin Code", Location."Adjustment Bin Code");
WhseEntry.SetRange("Location Code", "Warehouse Entry"."Location Code");
WhseEntry.SetRange("Variant Code", "Warehouse Entry"."Variant Code");
WhseEntry.SetRange("Unit of Measure Code", "Warehouse Entry"."Unit of Measure Code");
WhseEntry.CalcSums("Qty. (Base)", Quantity);
if (WhseEntry."Qty. (Base)" = 0) and not ZeroQty then
CurrReport.Break();
end;
}
dataitem(WhseEntry2; "Warehouse Entry")
{
DataItemLink = "Location Code" = field("Location Code"), "Bin Code" = field("Bin Code"), "Item No." = field("Item No."), "Variant Code" = field("Variant Code"), "Unit of Measure Code" = field("Unit of Measure Code");
DataItemTableView = sorting("Item No.", "Bin Code", "Location Code", "Variant Code", "Unit of Measure Code");
column(WhseEntry2LocCode; "Location Code")
{
}
column(WhseEntry2BinCode; "Bin Code")
{
}
column(WhseEntry2ZoneCode; "Zone Code")
{
}
column(WhseEntry2ItemNo; "Item No.")
{
}
column(WhseEntry2Quantity; Quantity)
{
}
column(WhseEntry2QtyPerUOM; "Qty. per Unit of Measure")
{
}
column(WhseEntry2UOMCode; "Unit of Measure Code")
{
}
column(WhseEntry2QtyBase; "Qty. (Base)")
{
}
column(WhseEntry2VariantCode; "Variant Code")
{
}
column(TotalForItemNo; Text000 + FieldCaption("Item No."))
{
}
column(TotalForLocCode; Text000 + FieldCaption("Location Code"))
{
}
column(WhseEntry2LocationCodeCaption; FieldCaption("Location Code"))
{
}
column(WhseEntry2BinCodeCaption; FieldCaption("Bin Code"))
{
}
column(WhseEntry2ZoneCodeCaption; FieldCaption("Zone Code"))
{
}
column(WhseEntry2ItemNoCaption; FieldCaption("Item No."))
{
}
trigger OnPostDataItem()
begin
if "Bin Code" <> '' then
"Warehouse Entry" := WhseEntry2;
end;
trigger OnPreDataItem()
begin
if not Details then
CurrReport.Break();
if not Find('-') then
CurrReport.Break();
end;
}
trigger OnAfterGetRecord()
begin
if Location.Code <> "Location Code" then begin
Location.Get("Location Code");
if Location."Adjustment Bin Code" = '' then
CurrReport.Skip();
SetRange("Bin Code", Location."Adjustment Bin Code");
if not Find('-') then
CurrReport.Break();
end;
end;
trigger OnPreDataItem()
begin
Clear(Location);
if not Find('-') then
CurrReport.Break();
end;
}
}
requestpage
{
AboutTitle = 'About Warehouse Adjustment Bin';
AboutText = 'Get an overview of adjustment bin usage (for advanced warehouse scenarios).';
layout
{
area(content)
{
group(Options)
{
Caption = 'Options';
field(ZeroQty; ZeroQty)
{
ApplicationArea = Warehouse;
Caption = 'Show Zero Quantity';
ToolTip = 'Specifies that items that have been stored in the adjustment bin, but currently have no quantity in the bin, should be included in the report.';
}
}
}
}
actions
{
}
}
rendering
{
layout(RDLCLayout)
{
Type = RDLC;
LayoutFile = './Warehouse/Reports/WhseAdjustmentBin.rdlc';
Summary = 'Report layout made in the legacy RDLC format. Use an RDLC editor to modify the layout.';
}
}
labels
{
}
trigger OnPreReport()
begin
WhseEntryFilter := "Warehouse Entry".GetFilters();
end;
var
Location: Record Location;
WhseEntry: Record "Warehouse Entry";
WhseEntryFilter: Text;
#pragma warning disable AA0074
Text000: Label 'Total for ';
#pragma warning restore AA0074
Details: Boolean;
ZeroQty: Boolean;
CurrReportPageNoCaptionLbl: Label 'Page';
WarehouseAdjBinCaptionLbl: Label 'Warehouse Adjustment Bin';
WarehouseEntryLocCodeCaptionLbl: Label 'Location Code';
WarehouseEntryBinCodeCaptionLbl: Label 'Bin No';
WarehouseEntryZoneCodeCaptionLbl: Label 'Zone Code';
WarehouseEntryItemNoCaptionLbl: Label 'Item No.';
}