Hi, Readers.
Today I would like to talk about how to release a sales order with Power Automate. I periodically see this question in the Business Central forums. For example, Releasing a Sales Order with Power Automate (Dynamics 365 -Business Central). So I want to briefly discuss in this post.
First of all, so far (2023.08.02), there is no such function in the standard Sales Order API, the only action is posting (Ship and Invoice).
salesOrder resource type:
This field is the Status field in the standard API (page 30028 “APIV2 – Sales Orders”), but this is not editable, and the value is a bit different.
Open = Draft
Released = Open …….
So to achieve this, we have to customize a new API.
PS: Can we extend standard APIs? – Download Standard Source Code for APIs
We happened to be discussing a similar problem recently, How to use Standard/Custom API Bound Actions. In which I created a post ship action. This time we also use a similar way.
PS: The following is standard logic about Release.
page 42 “Sales Order”:
table 36 “Sales Header”:
codeunit 414 “Release Sales Document”:
Let’s start.
First, copy the standard AL file (page 30028 “APIV2 – Sales Orders”) and create a new api page.
Then add a method to release the order.
Finally add a new bound action. ([ServiceEnabled] attribute)
After publishing it to the environment, let’s create a simple automate flow.
Choose Automate -> Create a flow -> Manage flows in Sales Order page.
Choose Create from blank.
Give the flow a name, for example, Release Sales Order.
PS: “For a selected record (V3)” trigger in Power Automate
Then choose New step.
Search for Business Central, and click on it.
Select Run action (V3) action.
Enter the information you need to connect to the environment (you can also use the information transferred from above step), then select the API category in the custom API page.
Select the bound action.
Set the System Id of the For a selected record (V3) step in Id.
Save the flow, and close the page. That’s all.
After reopening the Sales Order page, you will see the new flow you just created.
PS: Personalize and design the Automate action group in the web client
Below is a simple test.
Test video:
As tested above, I just created a manual flow, but only need to pass the System Id of Sales Order to this action, and it can also be processed automatically. You can use this way to create more flows, such as Release Purchase Order, Open Sales Order, etc. Give it a try!!!😁
PS: If you encounter the following problems, please download the symbol files of the standard APIs first.
The Page ‘”APIV2 – Dimension Set Lines”‘ is not found
"dependencies": [
{
"id": "10cb69d9-bc8a-4d27-970a-9e110e9db2a5",
"name": "T_Exclude_APIV2_",
"publisher": "Microsoft",
"version": "22.0.0.0"
}
]
Source Code: GitHub (Please note that the source code is for reference only, you can improve it according to your own needs)
page 50128 "ZY APIV2 - Sales Orders"
{
APIVersion = 'v2.0';
EntityCaption = 'Sales Order';
EntitySetCaption = 'Sales Orders';
ChangeTrackingAllowed = true;
DelayedInsert = true;
EntityName = 'zysalesOrder';
EntitySetName = 'zysalesOrders';
ODataKeyFields = Id;
APIPublisher = 'zy';
APIGroup = 'zygroup';
PageType = API;
SourceTable = "Sales Order Entity Buffer";
Extensible = false;
layout
{
area(content)
{
repeater(Group)
{
field(id; Rec.Id)
{
Caption = 'Id';
Editable = false;
trigger OnValidate()
begin
RegisterFieldSet(Rec.FieldNo(Id));
end;
}
field(number; Rec."No.")
{
Caption = 'No.';
Editable = false;
trigger OnValidate()
begin
RegisterFieldSet(Rec.FieldNo("No."));
end;
}
field(externalDocumentNumber; Rec."External Document No.")
{
Caption = 'External Document No.';
trigger OnValidate()
begin
RegisterFieldSet(Rec.FieldNo("External Document No."))
end;
}
field(orderDate; Rec."Document Date")
{
Caption = 'Order Date';
trigger OnValidate()
begin
DocumentDateVar := Rec."Document Date";
DocumentDateSet := true;
RegisterFieldSet(Rec.FieldNo("Document Date"));
end;
}
field(postingDate; Rec."Posting Date")
{
Caption = 'Posting Date';
trigger OnValidate()
begin
PostingDateVar := Rec."Posting Date";
PostingDateSet := true;
RegisterFieldSet(Rec.FieldNo("Posting Date"));
end;
}
field(customerId; Rec."Customer Id")
{
Caption = 'Customer Id';
trigger OnValidate()
begin
if not SellToCustomer.GetBySystemId(Rec."Customer Id") then
Error(CouldNotFindSellToCustomerErr);
Rec."Sell-to Customer No." := SellToCustomer."No.";
RegisterFieldSet(Rec.FieldNo("Customer Id"));
RegisterFieldSet(Rec.FieldNo("Sell-to Customer No."));
end;
}
field(customerNumber; Rec."Sell-to Customer No.")
{
Caption = 'Customer No.';
trigger OnValidate()
begin
if SellToCustomer."No." <> '' then begin
if SellToCustomer."No." <> Rec."Sell-to Customer No." then
Error(SellToCustomerValuesDontMatchErr);
exit;
end;
if not SellToCustomer.Get(Rec."Sell-to Customer No.") then
Error(CouldNotFindSellToCustomerErr);
Rec."Customer Id" := SellToCustomer.SystemId;
RegisterFieldSet(Rec.FieldNo("Customer Id"));
RegisterFieldSet(Rec.FieldNo("Sell-to Customer No."));
end;
}
field(customerName; Rec."Sell-to Customer Name")
{
Caption = 'Customer Name';
Editable = false;
}
field(billToName; Rec."Bill-to Name")
{
Caption = 'Bill-to Name';
Editable = false;
}
field(billToCustomerId; Rec."Bill-to Customer Id")
{
Caption = 'Bill-to Customer Id';
trigger OnValidate()
begin
if not BillToCustomer.GetBySystemId(Rec."Bill-to Customer Id") then
Error(CouldNotFindBillToCustomerErr);
Rec."Bill-to Customer No." := BillToCustomer."No.";
RegisterFieldSet(Rec.FieldNo("Bill-to Customer Id"));
RegisterFieldSet(Rec.FieldNo("Bill-to Customer No."));
end;
}
field(billToCustomerNumber; Rec."Bill-to Customer No.")
{
Caption = 'Bill-to Customer No.';
trigger OnValidate()
begin
if BillToCustomer."No." <> '' then begin
if BillToCustomer."No." <> Rec."Bill-to Customer No." then
Error(BillToCustomerValuesDontMatchErr);
exit;
end;
if not BillToCustomer.Get(Rec."Bill-to Customer No.") then
Error(CouldNotFindBillToCustomerErr);
Rec."Bill-to Customer Id" := BillToCustomer.SystemId;
RegisterFieldSet(Rec.FieldNo("Bill-to Customer Id"));
RegisterFieldSet(Rec.FieldNo("Bill-to Customer No."));
end;
}
field(shipToName; Rec."Ship-to Name")
{
Caption = 'Ship-to Name';
trigger OnValidate()
begin
if xRec."Ship-to Name" <> Rec."Ship-to Name" then begin
Rec."Ship-to Code" := '';
RegisterFieldSet(Rec.FieldNo("Ship-to Code"));
RegisterFieldSet(Rec.FieldNo("Ship-to Name"));
end;
end;
}
field(shipToContact; Rec."Ship-to Contact")
{
Caption = 'Ship-to Contact';
trigger OnValidate()
begin
if xRec."Ship-to Contact" <> Rec."Ship-to Contact" then begin
Rec."Ship-to Code" := '';
RegisterFieldSet(Rec.FieldNo("Ship-to Code"));
RegisterFieldSet(Rec.FieldNo("Ship-to Contact"));
end;
end;
}
field(sellToAddressLine1; Rec."Sell-to Address")
{
Caption = 'Sell-to Address Line 1';
trigger OnValidate()
begin
RegisterFieldSet(Rec.FieldNo("Sell-to Address"));
end;
}
field(sellToAddressLine2; Rec."Sell-to Address 2")
{
Caption = 'Sell-to Address Line 2';
trigger OnValidate()
begin
RegisterFieldSet(Rec.FieldNo("Sell-to Address 2"));
end;
}
field(sellToCity; Rec."Sell-to City")
{
Caption = 'Sell-to City';
trigger OnValidate()
begin
RegisterFieldSet(Rec.FieldNo("Sell-to City"));
end;
}
field(sellToCountry; Rec."Sell-to Country/Region Code")
{
Caption = 'Sell-to Country/Region Code';
trigger OnValidate()
begin
RegisterFieldSet(Rec.FieldNo("Sell-to Country/Region Code"));
end;
}
field(sellToState; Rec."Sell-to County")
{
Caption = 'Sell-to State';
trigger OnValidate()
begin
RegisterFieldSet(Rec.FieldNo("Sell-to County"));
end;
}
field(sellToPostCode; Rec."Sell-to Post Code")
{
Caption = 'Sell-to Post Code';
trigger OnValidate()
begin
RegisterFieldSet(Rec.FieldNo("Sell-to Post Code"));
end;
}
field(billToAddressLine1; Rec."Bill-to Address")
{
Caption = 'Bill-to Address Line 1';
Editable = false;
}
field(billToAddressLine2; Rec."Bill-to Address 2")
{
Caption = 'Bill-to Address Line 2';
Editable = false;
}
field(billToCity; Rec."Bill-to City")
{
Caption = 'Bill-to City';
Editable = false;
}
field(billToCountry; Rec."Bill-to Country/Region Code")
{
Caption = 'Bill-to Country/Region Code';
Editable = false;
}
field(billToState; Rec."Bill-to County")
{
Caption = 'BillTo State';
Editable = false;
}
field(billToPostCode; Rec."Bill-to Post Code")
{
Caption = 'Bill-to Post Code';
Editable = false;
}
field(shipToAddressLine1; Rec."Ship-to Address")
{
Caption = 'Ship-to Address Line 1';
trigger OnValidate()
begin
Rec."Ship-to Code" := '';
RegisterFieldSet(Rec.FieldNo("Ship-to Code"));
RegisterFieldSet(Rec.FieldNo("Ship-to Address"));
end;
}
field(shipToAddressLine2; Rec."Ship-to Address 2")
{
Caption = 'Ship-to Address Line 2';
trigger OnValidate()
begin
Rec."Ship-to Code" := '';
RegisterFieldSet(Rec.FieldNo("Ship-to Code"));
RegisterFieldSet(Rec.FieldNo("Ship-to Address 2"));
end;
}
field(shipToCity; Rec."Ship-to City")
{
Caption = 'Ship-to City';
trigger OnValidate()
begin
Rec."Ship-to Code" := '';
RegisterFieldSet(Rec.FieldNo("Ship-to Code"));
RegisterFieldSet(Rec.FieldNo("Ship-to City"));
end;
}
field(shipToCountry; Rec."Ship-to Country/Region Code")
{
Caption = 'Ship-to Country/Region Code';
trigger OnValidate()
begin
Rec."Ship-to Code" := '';
RegisterFieldSet(Rec.FieldNo("Ship-to Code"));
RegisterFieldSet(Rec.FieldNo("Ship-to Country/Region Code"));
end;
}
field(shipToState; Rec."Ship-to County")
{
Caption = 'Ship-to State';
trigger OnValidate()
begin
Rec."Ship-to Code" := '';
RegisterFieldSet(Rec.FieldNo("Ship-to Code"));
RegisterFieldSet(Rec.FieldNo("Ship-to County"));
end;
}
field(shipToPostCode; Rec."Ship-to Post Code")
{
Caption = 'Ship-to Post Code';
trigger OnValidate()
begin
Rec."Ship-to Code" := '';
RegisterFieldSet(Rec.FieldNo("Ship-to Code"));
RegisterFieldSet(Rec.FieldNo("Ship-to Post Code"));
end;
}
field(shortcutDimension1Code; Rec."Shortcut Dimension 1 Code")
{
Caption = 'Shortcut Dimension 1 Code';
trigger OnValidate()
begin
RegisterFieldSet(Rec.FieldNo("Shortcut Dimension 1 Code"));
end;
}
field(shortcutDimension2Code; Rec."Shortcut Dimension 2 Code")
{
Caption = 'Shortcut Dimension 2 Code';
trigger OnValidate()
begin
RegisterFieldSet(Rec.FieldNo("Shortcut Dimension 2 Code"));
end;
}
field(currencyId; Rec."Currency Id")
{
Caption = 'Currency Id';
trigger OnValidate()
begin
if Rec."Currency Id" = BlankGUID then
Rec."Currency Code" := ''
else begin
if not Currency.GetBySystemId(Rec."Currency Id") then
Error(CurrencyIdDoesNotMatchACurrencyErr);
Rec."Currency Code" := Currency.Code;
end;
RegisterFieldSet(Rec.FieldNo("Currency Id"));
RegisterFieldSet(Rec.FieldNo("Currency Code"));
end;
}
field(currencyCode; CurrencyCodeTxt)
{
Caption = 'Currency Code';
trigger OnValidate()
begin
Rec."Currency Code" :=
GraphMgtGeneralTools.TranslateCurrencyCodeToNAVCurrencyCode(
LCYCurrencyCode, COPYSTR(CurrencyCodeTxt, 1, MAXSTRLEN(LCYCurrencyCode)));
if Currency.Code <> '' then begin
if Currency.Code <> Rec."Currency Code" then
Error(CurrencyValuesDontMatchErr);
exit;
end;
if Rec."Currency Code" = '' then
Rec."Currency Id" := BlankGUID
else begin
if not Currency.Get(Rec."Currency Code") then
Error(CurrencyCodeDoesNotMatchACurrencyErr);
Rec."Currency Id" := Currency.SystemId;
end;
RegisterFieldSet(Rec.FieldNo("Currency Id"));
RegisterFieldSet(Rec.FieldNo("Currency Code"));
end;
}
field(pricesIncludeTax; Rec."Prices Including VAT")
{
Caption = 'Prices Include Tax';
trigger OnValidate()
var
SalesLine: Record "Sales Line";
begin
if Rec."Prices Including VAT" then begin
SalesLine.SetRange("Document No.", Rec."No.");
SalesLine.SetRange("Document Type", SalesLine."Document Type"::Order);
if SalesLine.FindFirst() then
if SalesLine."VAT Calculation Type" = SalesLine."VAT Calculation Type"::"Sales Tax" then
Error(CannotEnablePricesIncludeTaxErr);
end;
RegisterFieldSet(Rec.FieldNo("Prices Including VAT"));
end;
}
field(paymentTermsId; Rec."Payment Terms Id")
{
Caption = 'Payment Terms Id';
trigger OnValidate()
begin
if Rec."Payment Terms Id" = BlankGUID then
Rec."Payment Terms Code" := ''
else begin
if not PaymentTerms.GetBySystemId(Rec."Payment Terms Id") then
Error(PaymentTermsIdDoesNotMatchAPaymentTermsErr);
Rec."Payment Terms Code" := PaymentTerms.Code;
end;
RegisterFieldSet(Rec.FieldNo("Payment Terms Id"));
RegisterFieldSet(Rec.FieldNo("Payment Terms Code"));
end;
}
field(shipmentMethodId; Rec."Shipment Method Id")
{
Caption = 'Shipment Method Id';
trigger OnValidate()
begin
if Rec."Shipment Method Id" = BlankGUID then
Rec."Shipment Method Code" := ''
else begin
if not ShipmentMethod.GetBySystemId(Rec."Shipment Method Id") then
Error(ShipmentMethodIdDoesNotMatchAShipmentMethodErr);
Rec."Shipment Method Code" := ShipmentMethod.Code;
end;
RegisterFieldSet(Rec.FieldNo("Shipment Method Id"));
RegisterFieldSet(Rec.FieldNo("Shipment Method Code"));
end;
}
field(salesperson; Rec."Salesperson Code")
{
Caption = 'Salesperson';
trigger OnValidate()
begin
RegisterFieldSet(Rec.FieldNo("Salesperson Code"));
end;
}
field(partialShipping; PartialOrderShipping)
{
Caption = 'Partial Shipping';
trigger OnValidate()
begin
ProcessPartialShipping();
end;
}
field(requestedDeliveryDate; Rec."Requested Delivery Date")
{
Caption = 'Requested Delivery Date';
trigger OnValidate()
begin
RegisterFieldSet(Rec.FieldNo("Requested Delivery Date"));
end;
}
part(dimensionSetLines; "APIV2 - Dimension Set Lines")
{
Caption = 'Dimension Set Lines';
EntityName = 'dimensionSetLine';
EntitySetName = 'dimensionSetLines';
SubPageLink = "Parent Id" = Field(Id), "Parent Type" = const("Sales Order");
}
part(salesOrderLines; "APIV2 - Sales Order Lines")
{
Caption = 'Lines';
EntityName = 'salesOrderLine';
EntitySetName = 'salesOrderLines';
SubPageLink = "Document Id" = Field(Id);
}
field(discountAmount; Rec."Invoice Discount Amount")
{
Caption = 'Discount Amount';
trigger OnValidate()
begin
RegisterFieldSet(Rec.FieldNo("Invoice Discount Amount"));
InvoiceDiscountAmount := Rec."Invoice Discount Amount";
DiscountAmountSet := true;
end;
}
field(discountAppliedBeforeTax; Rec."Discount Applied Before Tax")
{
Caption = 'Discount Applied Before Tax';
Editable = false;
}
field(totalAmountExcludingTax; Rec.Amount)
{
Caption = 'Total Amount Excluding Tax';
Editable = false;
}
field(totalTaxAmount; Rec."Total Tax Amount")
{
Caption = 'Total Tax Amount';
Editable = false;
trigger OnValidate()
begin
RegisterFieldSet(Rec.FieldNo("Total Tax Amount"));
end;
}
field(totalAmountIncludingTax; Rec."Amount Including VAT")
{
Caption = 'Total Amount Including Tax';
Editable = false;
trigger OnValidate()
begin
RegisterFieldSet(Rec.FieldNo("Amount Including VAT"));
end;
}
field(fullyShipped; Rec."Completely Shipped")
{
Caption = 'Fully Shipped';
trigger OnValidate()
begin
RegisterFieldSet(Rec.FieldNo("Completely Shipped"));
end;
}
field(status; Rec.Status)
{
Caption = 'Status';
Editable = false;
}
field(lastModifiedDateTime; Rec.SystemModifiedAt)
{
Caption = 'Last Modified Date';
Editable = false;
}
field(phoneNumber; Rec."Sell-to Phone No.")
{
Caption = 'Phone No.';
trigger OnValidate()
begin
RegisterFieldSet(Rec.FieldNo("Sell-to Phone No."));
end;
}
field(email; Rec."Sell-to E-Mail")
{
Caption = 'Email';
trigger OnValidate()
begin
RegisterFieldSet(Rec.FieldNo("Sell-to E-Mail"));
end;
}
part(attachments; "APIV2 - Attachments")
{
Caption = 'Attachments';
EntityName = 'attachment';
EntitySetName = 'attachments';
SubPageLink = "Document Id" = Field(Id), "Document Type" = const("Sales Order");
}
part(documentAttachments; "APIV2 - Document Attachments")
{
Caption = 'Document Attachments';
EntityName = 'documentAttachment';
EntitySetName = 'documentAttachments';
SubPageLink = "Document Id" = Field(Id), "Document Type" = const("Sales Order");
}
}
}
}
actions
{
}
trigger OnAfterGetRecord()
begin
SetCalculatedFields();
if HasWritePermission then
GraphMgtSalesOrderBuffer.RedistributeInvoiceDiscounts(Rec);
end;
trigger OnDeleteRecord(): Boolean
begin
GraphMgtSalesOrderBuffer.PropagateOnDelete(Rec);
exit(false);
end;
trigger OnInsertRecord(BelowxRec: Boolean): Boolean
begin
CheckSellToCustomerSpecified();
GraphMgtSalesOrderBuffer.PropagateOnInsert(Rec, TempFieldBuffer);
SetDates();
UpdateDiscount();
SetCalculatedFields();
exit(false);
end;
trigger OnModifyRecord(): Boolean
begin
if xRec.Id <> Rec.Id then
Error(CannotChangeIDErr);
GraphMgtSalesOrderBuffer.PropagateOnModify(Rec, TempFieldBuffer);
UpdateDiscount();
SetCalculatedFields();
exit(false);
end;
trigger OnNewRecord(BelowxRec: Boolean)
begin
ClearCalculatedFields();
end;
trigger OnOpenPage()
begin
CheckPermissions();
end;
var
TempFieldBuffer: Record "Field Buffer" temporary;
SellToCustomer: Record "Customer";
BillToCustomer: Record "Customer";
Currency: Record "Currency";
PaymentTerms: Record "Payment Terms";
ShipmentMethod: Record "Shipment Method";
GraphMgtSalesOrderBuffer: Codeunit "Graph Mgt - Sales Order Buffer";
GraphMgtGeneralTools: Codeunit "Graph Mgt - General Tools";
APIV2SendSalesDocument: Codeunit "APIV2 - Send Sales Document";
LCYCurrencyCode: Code[10];
CurrencyCodeTxt: Text;
CannotChangeIDErr: Label 'The "id" cannot be changed.', Comment = 'id is a field name and should not be translated.';
SellToCustomerNotProvidedErr: Label 'A "customerNumber" or a "customerId" must be provided.', Comment = 'customerNumber and customerId are field names and should not be translated.';
SellToCustomerValuesDontMatchErr: Label 'The sell-to customer values do not match to a specific Customer.';
BillToCustomerValuesDontMatchErr: Label 'The bill-to customer values do not match to a specific Customer.';
CouldNotFindSellToCustomerErr: Label 'The sell-to customer cannot be found.';
CouldNotFindBillToCustomerErr: Label 'The bill-to customer cannot be found.';
PartialOrderShipping: Boolean;
SalesOrderPermissionsErr: Label 'You do not have permissions to read Sales Orders.';
CurrencyValuesDontMatchErr: Label 'The currency values do not match to a specific Currency.';
CurrencyIdDoesNotMatchACurrencyErr: Label 'The "currencyId" does not match to a Currency.', Comment = 'currencyId is a field name and should not be translated.';
CurrencyCodeDoesNotMatchACurrencyErr: Label 'The "currencyCode" does not match to a Currency.', Comment = 'currencyCode is a field name and should not be translated.';
PaymentTermsIdDoesNotMatchAPaymentTermsErr: Label 'The "paymentTermsId" does not match to a Payment Terms.', Comment = 'paymentTermsId is a field name and should not be translated.';
ShipmentMethodIdDoesNotMatchAShipmentMethodErr: Label 'The "shipmentMethodId" does not match to a Shipment Method.', Comment = 'shipmentMethodId is a field name and should not be translated.';
CannotFindOrderErr: Label 'The order cannot be found.';
CannotEnablePricesIncludeTaxErr: Label 'The "pricesIncludeTax" cannot be set to true if VAT Calculation Type is Sales Tax.', Comment = 'pricesIncludeTax is a field name and should not be translated.';
DiscountAmountSet: Boolean;
InvoiceDiscountAmount: Decimal;
BlankGUID: Guid;
DocumentDateSet: Boolean;
DocumentDateVar: Date;
PostingDateSet: Boolean;
PostingDateVar: Date;
HasWritePermission: Boolean;
local procedure SetCalculatedFields()
begin
CurrencyCodeTxt := GraphMgtGeneralTools.TranslateNAVCurrencyCodeToCurrencyCode(LCYCurrencyCode, Rec."Currency Code");
PartialOrderShipping := (Rec."Shipping Advice" = Rec."Shipping Advice"::Partial);
end;
local procedure ClearCalculatedFields()
begin
Clear(DiscountAmountSet);
Clear(InvoiceDiscountAmount);
PartialOrderShipping := false;
TempFieldBuffer.DeleteAll();
end;
local procedure RegisterFieldSet(FieldNo: Integer)
var
LastOrderNo: Integer;
begin
LastOrderNo := 1;
if TempFieldBuffer.FindLast() then
LastOrderNo := TempFieldBuffer.Order + 1;
Clear(TempFieldBuffer);
TempFieldBuffer.Order := LastOrderNo;
TempFieldBuffer."Table ID" := Database::"Sales Invoice Entity Aggregate";
TempFieldBuffer."Field ID" := FieldNo;
TempFieldBuffer.Insert();
end;
local procedure CheckSellToCustomerSpecified()
begin
if (Rec."Sell-to Customer No." = '') and
(Rec."Customer Id" = BlankGUID)
then
Error(SellToCustomerNotProvidedErr);
end;
local procedure ProcessPartialShipping()
begin
if PartialOrderShipping then
Rec."Shipping Advice" := Rec."Shipping Advice"::Partial
else
Rec."Shipping Advice" := Rec."Shipping Advice"::Complete;
RegisterFieldSet(Rec.FieldNo("Shipping Advice"));
end;
local procedure CheckPermissions()
var
SalesHeader: Record "Sales Header";
begin
SalesHeader.SetRange("Document Type", SalesHeader."Document Type"::Order);
if not SalesHeader.ReadPermission() then
Error(SalesOrderPermissionsErr);
HasWritePermission := SalesHeader.WritePermission();
end;
local procedure UpdateDiscount()
var
SalesHeader: Record "Sales Header";
SalesCalcDiscountByType: Codeunit "Sales - Calc Discount By Type";
begin
if not DiscountAmountSet then begin
GraphMgtSalesOrderBuffer.RedistributeInvoiceDiscounts(Rec);
exit;
end;
SalesHeader.Get(SalesHeader."Document Type"::Order, Rec."No.");
SalesCalcDiscountByType.ApplyInvDiscBasedOnAmt(InvoiceDiscountAmount, SalesHeader);
end;
local procedure SetDates()
begin
if not (DocumentDateSet or PostingDateSet) then
exit;
TempFieldBuffer.Reset();
TempFieldBuffer.DeleteAll();
if DocumentDateSet then begin
Rec."Document Date" := DocumentDateVar;
RegisterFieldSet(Rec.FieldNo("Document Date"));
end;
if PostingDateSet then begin
Rec."Posting Date" := PostingDateVar;
RegisterFieldSet(Rec.FieldNo("Posting Date"));
end;
GraphMgtSalesOrderBuffer.PropagateOnModify(Rec, TempFieldBuffer);
Rec.Find();
end;
local procedure GetOrder(var SalesHeader: Record "Sales Header")
begin
if not SalesHeader.GetBySystemId(Rec.Id) then
Error(CannotFindOrderErr);
end;
local procedure PostWithShipAndInvoice(var SalesHeader: Record "Sales Header"; var SalesInvoiceHeader: Record "Sales Invoice Header")
var
LinesInstructionMgt: Codeunit "Lines Instruction Mgt.";
OrderNo: Code[20];
OrderNoSeries: Code[20];
begin
APIV2SendSalesDocument.CheckDocumentIfNoItemsExists(SalesHeader);
LinesInstructionMgt.SalesCheckAllLinesHaveQuantityAssigned(SalesHeader);
OrderNo := SalesHeader."No.";
OrderNoSeries := SalesHeader."No. Series";
SalesHeader.Ship := true;
SalesHeader.Invoice := true;
SalesHeader.SendToPosting(Codeunit::"Sales-Post");
SalesInvoiceHeader.SetCurrentKey("Order No.");
SalesInvoiceHeader.SetRange("Pre-Assigned No. Series", '');
SalesInvoiceHeader.SetRange("Order No. Series", OrderNoSeries);
SalesInvoiceHeader.SetRange("Order No.", OrderNo);
SalesInvoiceHeader.FindFirst();
end;
local procedure ReleaseSalesOrder(var SalesHeader: Record "Sales Header")
var
LinesInstructionMgt: Codeunit "Lines Instruction Mgt.";
ReleaseSalesDocument: Codeunit "Release Sales Document";
begin
APIV2SendSalesDocument.CheckDocumentIfNoItemsExists(SalesHeader);
LinesInstructionMgt.SalesCheckAllLinesHaveQuantityAssigned(SalesHeader);
ReleaseSalesDocument.PerformManualRelease(SalesHeader);
end;
local procedure SetActionResponse(var ActionContext: WebServiceActionContext; PageId: Integer; DocumentId: Guid)
var
begin
ActionContext.SetObjectType(ObjectType::Page);
ActionContext.SetObjectId(PageId);
ActionContext.AddEntityKey(Rec.FieldNo(Id), DocumentId);
ActionContext.SetResultCode(WebServiceActionResultCode::Deleted);
end;
[ServiceEnabled]
[Scope('Cloud')]
procedure ShipAndInvoice(var ActionContext: WebServiceActionContext)
var
SalesHeader: Record "Sales Header";
SalesInvoiceHeader: Record "Sales Invoice Header";
SalesInvoiceAggregator: Codeunit "Sales Invoice Aggregator";
begin
GetOrder(SalesHeader);
PostWithShipAndInvoice(SalesHeader, SalesInvoiceHeader);
SetActionResponse(ActionContext, Page::"APIV2 - Sales Invoices", SalesInvoiceAggregator.GetSalesInvoiceHeaderId(SalesInvoiceHeader));
end;
[ServiceEnabled]
[Scope('Cloud')]
procedure Release(var ActionContext: WebServiceActionContext)
var
SalesHeader: Record "Sales Header";
begin
GetOrder(SalesHeader);
ReleaseSalesOrder(SalesHeader);
end;
}END
Hope this will help.
Thanks for reading.
ZHU
コメント