Skip to content
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Original file line number Diff line number Diff line change
Expand Up @@ -411,13 +411,18 @@ codeunit 30246 "Shpfy Create Sales Doc. Refund"
SalesLine: Record "Sales Line";
Currency: Record Currency;
OrderHeader: Record "Shpfy Order Header";
SkipBalancing: Boolean;
RoundingAmount: Decimal;
begin
SalesHeader.CalcFields(Amount, "Amount Including VAT");
Currency.Initialize(SalesHeader."Currency Code");
RoundingAmount := CreateRoundingLine(RefundHeader, SalesHeader, LineNo);
OrderHeader.Get(RefundHeader."Order Id");

RefundProcessEvents.OnBeforeCreateSalesLinesFromRemainingAmount(RefundHeader, SalesHeader, SkipBalancing);
if SkipBalancing then
exit;

case OrderHeader."Processed Currency Handling" of
"Shpfy Currency Handling"::"Shop Currency":
if SalesHeader."Amount Including VAT" <> RefundHeader."Total Refunded Amount" + RoundingAmount then begin
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -66,4 +66,15 @@ codeunit 30247 "Shpfy Refund Process Events"
internal procedure OnAfterProcessSalesDocument(RefundHeader: Record "Shpfy Refund Header"; var SalesHeader: Record "Sales Header")
begin
end;

[IntegrationEvent(false, false)]
/// <summary>
/// Raised before creating the auto-balance line from the remaining refund amount.
/// </summary>
/// <param name="RefundHeader">Parameter of type Record "Shpfy Refund Header".</param>
/// <param name="SalesHeader">Parameter of type Record "Sales Header".</param>
/// <param name="SkipBalancing">Set to true to skip the auto-balance remaining amount calculation.</param>
internal procedure OnBeforeCreateSalesLinesFromRemainingAmount(RefundHeader: Record "Shpfy Refund Header"; var SalesHeader: Record "Sales Header"; var SkipBalancing: Boolean)
begin
end;
}
Loading