Report 1192 Suggest Res. Price Chg.(Price)

// ------------------------------------------------------------------------------------------------
// Copyright (c) Microsoft Corporation. All rights reserved.
// Licensed under the MIT License. See License.txt in the project root for license information.
// ------------------------------------------------------------------------------------------------
namespace Microsoft.Projects.Resources.Resource;

using Microsoft.Finance.Currency;
using Microsoft.Projects.Resources.Pricing;
using Microsoft.Utilities;

report 1192 "Suggest Res. Price Chg.(Price)"
{
    Caption = 'Suggest Res. Price Chg.(Price)';
    ProcessingOnly = true;

    dataset
    {
        dataitem("Resource Price"; "Resource Price")
        {
            DataItemTableView = sorting(Type, Code, "Work Type Code", "Currency Code");
            RequestFilterFields = Type, "Code", "Work Type Code", "Currency Code";

            trigger OnAfterGetRecord()
            begin
                Window.Update(1, Type);
                Window.Update(2, Code);
                ResPriceChg.Type := Type;
                ResPriceChg.Code := Code;

                if ToCurrency.Code = '' then begin
                    ResPriceChg."Currency Code" := "Currency Code";
                    SetRange("Currency Code", '');
                end else
                    ResPriceChg."Currency Code" := ToCurrency.Code;

                if ToWorkType.Code = '' then
                    ResPriceChg."Work Type Code" := "Work Type Code"
                else
                    ResPriceChg."Work Type Code" := ToWorkType.Code;

                ResPriceChg."New Unit Price" := "Unit Price";

                if ResPriceChg."Currency Code" <> "Currency Code" then begin
                    if "Currency Code" <> '' then
                        ResPriceChg."New Unit Price" :=
                          CurrExchRate.ExchangeAmtFCYToLCY(
                            WorkDate(), "Currency Code", ResPriceChg."New Unit Price",
                            CurrExchRate.ExchangeRate(
                              WorkDate(), "Currency Code"));
                    if ResPriceChg."Currency Code" <> '' then
                        ResPriceChg."New Unit Price" :=
                          CurrExchRate.ExchangeAmtLCYToFCY(
                            WorkDate(), ResPriceChg."Currency Code",
                            ResPriceChg."New Unit Price",
                            CurrExchRate.ExchangeRate(
                              WorkDate(), ResPriceChg."Currency Code"));
                end;

                if ResPriceChg."Currency Code" = '' then
                    Currency2.InitRoundingPrecision()
                else begin
                    Currency2.Get(ResPriceChg."Currency Code");
                    Currency2.TestField("Unit-Amount Rounding Precision");
                end;

                ResPriceChg."New Unit Price" :=
                  Round(ResPriceChg."New Unit Price", Currency2."Unit-Amount Rounding Precision");

                if ResPriceChg."New Unit Price" > PriceLowerLimit then
                    ResPriceChg."New Unit Price" := ResPriceChg."New Unit Price" * UnitPricefactor;

                if RoundingMethod.Code <> '' then begin
                    RoundingMethod."Minimum Amount" := ResPriceChg."New Unit Price";
                    if RoundingMethod.Find('=<') then begin
                        ResPriceChg."New Unit Price" := ResPriceChg."New Unit Price" + RoundingMethod."Amount Added Before";
                        if RoundingMethod.Precision > 0 then
                            ResPriceChg."New Unit Price" :=
                              Round(ResPriceChg."New Unit Price",
                                RoundingMethod.Precision, CopyStr('=><', RoundingMethod.Type + 1, 1));
                        ResPriceChg."New Unit Price" := ResPriceChg."New Unit Price" + RoundingMethod."Amount Added After";
                    end;
                end;

                ResPrice.SetRange("Work Type Code", ResPriceChg."Work Type Code");
                ResPrice.SetRange(Code, ResPriceChg.Code);
                ResPrice.SetRange(Type, ResPriceChg.Type);
                ResPrice.SetRange("Currency Code", ResPriceChg."Currency Code");
                if ResPrice.FindLast() then begin
                    ResPriceChg."Current Unit Price" := ResPrice."Unit Price";
                    PriceAlreadyExists := true;
                end else begin
                    ResPriceChg."Current Unit Price" := 0;
                    PriceAlreadyExists := false;
                end;
                if PriceAlreadyExists or CreateNewPrices then begin
                    ResPriceChg2 := ResPriceChg;
                    if ResPriceChg2.Find('=') then
                        ResPriceChg.Modify()
                    else
                        ResPriceChg.Insert();
                end;
            end;

            trigger OnPreDataItem()
            begin
                Window.Open(
                  Text001 +
                  Text002 +
                  Text003);
            end;
        }
    }

    requestpage
    {
        SaveValues = true;

        layout
        {
            area(content)
            {
                group(Options)
                {
                    Caption = 'Options';
                    group("Copy to Res. Price Change...")
                    {
                        Caption = 'Copy to Res. Price Change...';
                        field("ToCurrency.Code"; ToCurrency.Code)
                        {
                            ApplicationArea = Jobs;
                            Caption = 'Currency Code';
                            TableRelation = Currency;
                            ToolTip = 'Specifies the code for the currency that amounts are shown in.';
                        }
                        field("ToWorkType.Code"; ToWorkType.Code)
                        {
                            ApplicationArea = Jobs;
                            Caption = 'Work Type';
                            TableRelation = "Work Type";
                            ToolTip = 'Specifies the work types to which the new prices apply. If you want the new price to be calculated for all work types, enter ALL.';
                        }
                    }
                    field(PriceLowerLimit; PriceLowerLimit)
                    {
                        ApplicationArea = Jobs;
                        AutoFormatType = 0;
                        Caption = 'Only Prices Above';
                        DecimalPlaces = 2 : 5;
                        ToolTip = 'Specifies an amount to determine the lowest unit price that is changed. Only prices that are higher than this are changed. If a price is lower than or equal to this amount, a line for it is created in the Resource Price Changes window, but with the same unit price as in the Resource Prices window.';
                    }
                    field(UnitPricefactor; UnitPricefactor)
                    {
                        ApplicationArea = Jobs;
                        AutoFormatType = 0;
                        Caption = 'Adjustment Factor';
                        DecimalPlaces = 0 : 5;
                        MinValue = 0;
                        ToolTip = 'Specifies an adjustment factor to multiply the amounts that you want suggested. By entering an adjustment factor, you can increase or decrease the amounts that are suggested.';
                    }
                    field("RoundingMethod.Code"; RoundingMethod.Code)
                    {
                        ApplicationArea = Jobs;
                        Caption = 'Rounding Method';
                        TableRelation = "Rounding Method";
                        ToolTip = 'Specifies a code for the rounding method that you want to apply to costs or prices that you adjust.';
                    }
                    field(CreateNewPrices; CreateNewPrices)
                    {
                        ApplicationArea = Jobs;
                        Caption = 'Create New Prices';
                        ToolTip = 'Specifies if you want the batch job to create new price suggestions, such as a new combination of currency, project number, or work type. If you only want to adjust existing alternative prices, do not select.';
                    }
                }
            }
        }

        actions
        {
        }

        trigger OnOpenPage()
        begin
            if UnitPricefactor = 0 then begin
                UnitPricefactor := 1;
                CreateNewPrices := true;
            end;
        end;
    }

    labels
    {
    }

    trigger OnPreReport()
    begin
        RoundingMethod.SetRange(Code, RoundingMethod.Code);
        if ToCurrency.Code <> '' then
            ToCurrency.Find();
    end;

    var
        RoundingMethod: Record "Rounding Method";
        ToCurrency: Record Currency;
        CurrExchRate: Record "Currency Exchange Rate";
        ToWorkType: Record "Work Type";
        ResPriceChg: Record "Resource Price Change";
        ResPriceChg2: Record "Resource Price Change";
        Currency2: Record Currency;
        ResPrice: Record "Resource Price";
        Window: Dialog;
        CreateNewPrices: Boolean;
        UnitPricefactor: Decimal;
        PriceLowerLimit: Decimal;
        PriceAlreadyExists: Boolean;

#pragma warning disable AA0074
        Text001: Label 'Processing resources...\\';
#pragma warning disable AA0470
        Text002: Label 'Type         #1##########\';
        Text003: Label 'Code         #2##########\';
#pragma warning restore AA0470
#pragma warning restore AA0074

    procedure InitializeCopyToResPrice(CurrencyCode: Code[10]; WorkTypeCode: Code[10])
    begin
        ToCurrency.Code := CurrencyCode;
        ToWorkType.Code := WorkTypeCode;
    end;

    procedure InitializeRequest(PriceLowerLimitFrom: Decimal; UnitPriceFactorFrom: Decimal; RoundingMethodCode: Code[10]; CreateNewPricesFrom: Boolean)
    begin
        PriceLowerLimit := PriceLowerLimitFrom;
        UnitPricefactor := UnitPriceFactorFrom;
        RoundingMethod.Code := RoundingMethodCode;
        CreateNewPrices := CreateNewPricesFrom;
    end;
}