Table 5475 Sales Invoice Entity Aggregate, source in 29
Source29
src/Layers/W1/BaseApp/Integration/Entity/SalesInvoiceEntityAggregate.Table.al924 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.Integration.Entity;
using Microsoft.CRM.Contact;
using Microsoft.CRM.Team;
using Microsoft.Finance.Currency;
using Microsoft.Finance.Dimension;
using Microsoft.Finance.GeneralLedger.Setup;
using Microsoft.Finance.SalesTax;
using Microsoft.Finance.VAT.Setup;
using Microsoft.Foundation.Address;
using Microsoft.Foundation.PaymentTerms;
using Microsoft.Foundation.Shipping;
using Microsoft.Sales.Customer;
using Microsoft.Sales.Document;
using Microsoft.Sales.History;
using Microsoft.Sales.Receivables;
table 5475 "Sales Invoice Entity Aggregate"
{
Caption = 'Sales Invoice Entity Aggregate';
Permissions = tabledata "VAT Posting Setup" = R;
DataClassification = CustomerContent;
fields
{
field(1; "Document Type"; Enum "Sales Document Type")
{
Caption = 'Document Type';
DataClassification = CustomerContent;
InitValue = Invoice;
}
field(2; "Sell-to Customer No."; Code[20])
{
Caption = 'Sell-to Customer No.';
DataClassification = CustomerContent;
NotBlank = true;
TableRelation = Customer;
trigger OnValidate()
begin
UpdateSellToCustomerId();
end;
}
field(3; "No."; Code[20])
{
Caption = 'No.';
DataClassification = CustomerContent;
}
field(4; "Bill-to Customer No."; Code[20])
{
Caption = 'Bill-to Customer No.';
DataClassification = CustomerContent;
NotBlank = true;
TableRelation = Customer;
trigger OnValidate()
begin
UpdateBillToCustomerId();
end;
}
field(5; "Bill-to Name"; Text[100])
{
Caption = 'Bill-to Name';
DataClassification = CustomerContent;
TableRelation = Customer.Name;
ValidateTableRelation = false;
}
field(7; "Bill-to Address"; Text[100])
{
Caption = 'Bill-to Address';
DataClassification = CustomerContent;
}
field(8; "Bill-to Address 2"; Text[50])
{
Caption = 'Bill-to Address 2';
DataClassification = CustomerContent;
}
field(9; "Bill-to City"; Text[30])
{
Caption = 'Bill-to City';
DataClassification = CustomerContent;
TableRelation = if ("Bill-to Country/Region Code" = const('')) "Post Code".City
else
if ("Bill-to Country/Region Code" = filter(<> '')) "Post Code".City where("Country/Region Code" = field("Bill-to Country/Region Code"));
ValidateTableRelation = false;
}
field(10; "Bill-to Contact"; Text[100])
{
Caption = 'Bill-to Contact';
DataClassification = CustomerContent;
}
field(11; "Your Reference"; Text[35])
{
Caption = 'Your Reference';
DataClassification = CustomerContent;
}
field(12; "Ship-to Code"; Code[10])
{
Caption = 'Ship-to Code';
DataClassification = CustomerContent;
}
field(13; "Ship-to Name"; Text[100])
{
Caption = 'Ship-to Name';
DataClassification = CustomerContent;
}
field(15; "Ship-to Address"; Text[100])
{
Caption = 'Ship-to Address';
DataClassification = CustomerContent;
}
field(16; "Ship-to Address 2"; Text[50])
{
Caption = 'Ship-to Address 2';
DataClassification = CustomerContent;
}
field(17; "Ship-to City"; Text[30])
{
Caption = 'Ship-to City';
DataClassification = CustomerContent;
TableRelation = if ("Ship-to Country/Region Code" = const('')) "Post Code".City
else
if ("Ship-to Country/Region Code" = filter(<> '')) "Post Code".City where("Country/Region Code" = field("Ship-to Country/Region Code"));
ValidateTableRelation = false;
}
field(18; "Ship-to Contact"; Text[100])
{
Caption = 'Ship-to Contact';
DataClassification = CustomerContent;
}
field(20; "Posting Date"; Date)
{
Caption = 'Posting Date';
DataClassification = CustomerContent;
}
field(23; "Payment Terms Code"; Code[10])
{
Caption = 'Payment Terms Code';
DataClassification = CustomerContent;
TableRelation = "Payment Terms";
trigger OnValidate()
begin
UpdatePaymentTermsId();
end;
}
field(24; "Due Date"; Date)
{
Caption = 'Due Date';
DataClassification = CustomerContent;
}
field(27; "Shipment Method Code"; Code[10])
{
Caption = 'Shipment Method Code';
DataClassification = CustomerContent;
TableRelation = "Shipment Method";
trigger OnValidate()
begin
UpdateShipmentMethodId();
end;
}
field(29; "Shortcut Dimension 1 Code"; Code[20])
{
Caption = 'Shortcut Dimension 1 Code';
TableRelation = "Dimension Value".Code where("Global Dimension No." = const(1));
}
field(30; "Shortcut Dimension 2 Code"; Code[20])
{
Caption = 'Shortcut Dimension 2 Code';
TableRelation = "Dimension Value".Code where("Global Dimension No." = const(2));
}
field(31; "Customer Posting Group"; Code[20])
{
Caption = 'Customer Posting Group';
DataClassification = CustomerContent;
TableRelation = "Customer Posting Group";
}
field(32; "Currency Code"; Code[10])
{
Caption = 'Currency Code';
DataClassification = CustomerContent;
TableRelation = Currency;
trigger OnValidate()
begin
UpdateCurrencyId();
end;
}
field(35; "Prices Including VAT"; Boolean)
{
Caption = 'Prices Including VAT';
DataClassification = CustomerContent;
}
field(43; "Salesperson Code"; Code[20])
{
Caption = 'Salesperson Code';
DataClassification = CustomerContent;
TableRelation = "Salesperson/Purchaser";
}
field(44; "Order No."; Code[20])
{
AccessByPermission = TableData "Sales Shipment Header" = R;
Caption = 'Order No.';
DataClassification = CustomerContent;
trigger OnValidate()
begin
UpdateOrderId();
end;
}
field(56; "Recalculate Invoice Disc."; Boolean)
{
CalcFormula = exist("Sales Line" where("Document Type" = const(Invoice),
"Document No." = field("No."),
"Recalculate Invoice Disc." = const(true)));
Caption = 'Recalculate Invoice Disc.';
Editable = false;
FieldClass = FlowField;
}
field(60; Amount; Decimal)
{
AutoFormatExpression = Rec."Currency Code";
AutoFormatType = 1;
Caption = 'Amount';
DataClassification = CustomerContent;
}
field(61; "Amount Including VAT"; Decimal)
{
AutoFormatExpression = Rec."Currency Code";
AutoFormatType = 1;
Caption = 'Amount Including VAT';
DataClassification = CustomerContent;
}
field(70; "VAT Registration No."; Text[20])
{
Caption = 'VAT Registration No.';
DataClassification = CustomerContent;
}
field(79; "Sell-to Customer Name"; Text[100])
{
Caption = 'Sell-to Customer Name';
DataClassification = CustomerContent;
TableRelation = Customer.Name;
ValidateTableRelation = false;
}
field(81; "Sell-to Address"; Text[100])
{
Caption = 'Sell-to Address';
DataClassification = CustomerContent;
}
field(82; "Sell-to Address 2"; Text[50])
{
Caption = 'Sell-to Address 2';
DataClassification = CustomerContent;
}
field(83; "Sell-to City"; Text[30])
{
Caption = 'Sell-to City';
DataClassification = CustomerContent;
TableRelation = if ("Sell-to Country/Region Code" = const('')) "Post Code".City
else
if ("Sell-to Country/Region Code" = filter(<> '')) "Post Code".City where("Country/Region Code" = field("Sell-to Country/Region Code"));
ValidateTableRelation = false;
}
field(84; "Sell-to Contact"; Text[100])
{
Caption = 'Sell-to Contact';
DataClassification = CustomerContent;
}
field(85; "Bill-to Post Code"; Code[20])
{
Caption = 'Bill-to Post Code';
DataClassification = CustomerContent;
TableRelation = "Post Code";
ValidateTableRelation = false;
}
field(86; "Bill-to County"; Text[30])
{
CaptionClass = '5,3,' + "Bill-to Country/Region Code";
Caption = 'Bill-to County';
DataClassification = CustomerContent;
}
field(87; "Bill-to Country/Region Code"; Code[10])
{
Caption = 'Bill-to Country/Region Code';
DataClassification = CustomerContent;
TableRelation = "Country/Region";
}
field(88; "Sell-to Post Code"; Code[20])
{
Caption = 'Sell-to Post Code';
DataClassification = CustomerContent;
TableRelation = if ("Sell-to Country/Region Code" = const('')) "Post Code"
else
if ("Sell-to Country/Region Code" = filter(<> '')) "Post Code" where("Country/Region Code" = field("Sell-to Country/Region Code"));
ValidateTableRelation = false;
}
field(89; "Sell-to County"; Text[30])
{
CaptionClass = '5,2,' + "Sell-to Country/Region Code";
Caption = 'Sell-to County';
DataClassification = CustomerContent;
}
field(90; "Sell-to Country/Region Code"; Code[10])
{
Caption = 'Sell-to Country/Region Code';
DataClassification = CustomerContent;
TableRelation = "Country/Region";
}
field(91; "Ship-to Post Code"; Code[20])
{
Caption = 'Ship-to Post Code';
DataClassification = CustomerContent;
TableRelation = if ("Ship-to Country/Region Code" = const('')) "Post Code"
else
if ("Ship-to Country/Region Code" = filter(<> '')) "Post Code" where("Country/Region Code" = field("Ship-to Country/Region Code"));
ValidateTableRelation = false;
}
field(92; "Ship-to County"; Text[30])
{
CaptionClass = '5,4,' + "Ship-to Country/Region Code";
Caption = 'Ship-to County';
DataClassification = CustomerContent;
}
field(93; "Ship-to Country/Region Code"; Code[10])
{
Caption = 'Ship-to Country/Region Code';
DataClassification = CustomerContent;
TableRelation = "Country/Region";
}
field(99; "Document Date"; Date)
{
Caption = 'Document Date';
DataClassification = CustomerContent;
trigger OnValidate()
begin
Validate("Posting Date", "Document Date");
end;
}
field(100; "External Document No."; Code[35])
{
Caption = 'External Document No.';
DataClassification = CustomerContent;
}
field(114; "Tax Area Code"; Code[20])
{
Caption = 'Tax Area Code';
DataClassification = CustomerContent;
TableRelation = "Tax Area";
ValidateTableRelation = false;
trigger OnValidate()
begin
if IsUsingVAT() then
Error(SalesTaxOnlyFieldErr, FieldCaption("Tax Area Code"));
end;
}
field(115; "Tax Liable"; Boolean)
{
Caption = 'Tax Liable';
DataClassification = CustomerContent;
}
field(116; "VAT Bus. Posting Group"; Code[20])
{
Caption = 'VAT Bus. Posting Group';
DataClassification = CustomerContent;
TableRelation = "VAT Business Posting Group";
trigger OnValidate()
begin
if not IsUsingVAT() then
Error(VATOnlyFieldErr, FieldCaption("VAT Bus. Posting Group"));
end;
}
field(121; "Invoice Discount Calculation"; Option)
{
Caption = 'Invoice Discount Calculation';
DataClassification = CustomerContent;
OptionCaption = 'None,%,Amount';
OptionMembers = "None","%",Amount;
}
field(122; "Invoice Discount Value"; Decimal)
{
AutoFormatType = 1;
AutoFormatExpression = Rec."Currency Code";
Caption = 'Invoice Discount Value';
DataClassification = CustomerContent;
}
field(170; IsTest; Boolean)
{
Caption = 'IsTest';
DataClassification = CustomerContent;
}
field(171; "Sell-to Phone No."; Text[30])
{
Caption = 'Sell-to Phone No.';
DataClassification = CustomerContent;
ExtendedDatatype = PhoneNo;
}
field(172; "Sell-to E-Mail"; Text[80])
{
Caption = 'Email';
DataClassification = CustomerContent;
ExtendedDatatype = EMail;
}
field(210; "Ship-to Phone No."; Text[30])
{
Caption = 'Ship-to Phone No.';
ExtendedDatatype = PhoneNo;
}
field(1304; "Cust. Ledger Entry No."; Integer)
{
Caption = 'Cust. Ledger Entry No.';
DataClassification = CustomerContent;
TableRelation = "Cust. Ledger Entry"."Entry No.";
}
field(1305; "Invoice Discount Amount"; Decimal)
{
AutoFormatExpression = Rec."Currency Code";
AutoFormatType = 1;
Caption = 'Invoice Discount Amount';
DataClassification = CustomerContent;
}
field(1340; "Dispute Status"; Code[10])
{
Caption = 'Dispute Status';
TableRelation = "Dispute Status";
DataClassification = CustomerContent;
trigger OnValidate()
begin
UpdateDisputeStatusId();
end;
}
field(1341; "Promised Pay Date"; Date)
{
Caption = 'Promised Pay Date';
DataClassification = CustomerContent;
}
field(5052; "Sell-to Contact No."; Code[20])
{
Caption = 'Sell-to Contact No.';
DataClassification = CustomerContent;
TableRelation = Contact;
}
field(8000; Id; Guid)
{
Caption = 'Id';
DataClassification = SystemMetadata;
}
field(8010; "Dispute Status Id"; Guid)
{
Caption = 'Dispute Status Id';
TableRelation = "Dispute Status".SystemId;
trigger OnValidate()
begin
UpdateDisputeStatus();
end;
}
field(9600; "Total Tax Amount"; Decimal)
{
AutoFormatExpression = Rec."Currency Code";
AutoFormatType = 1;
Caption = 'Total Tax Amount';
DataClassification = CustomerContent;
}
field(9601; Status; Enum "Invoice Entity Aggregate Status")
{
Caption = 'Status';
DataClassification = CustomerContent;
}
field(9602; Posted; Boolean)
{
Caption = 'Posted';
DataClassification = CustomerContent;
}
field(9603; "Subtotal Amount"; Decimal)
{
AutoFormatExpression = Rec."Currency Code";
AutoFormatType = 1;
Caption = 'Subtotal Amount';
DataClassification = CustomerContent;
Editable = false;
}
field(9624; "Discount Applied Before Tax"; Boolean)
{
Caption = 'Discount Applied Before Tax';
DataClassification = CustomerContent;
}
field(9630; "Last Modified Date Time"; DateTime)
{
Caption = 'Last Modified Date Time';
DataClassification = SystemMetadata;
Editable = false;
}
field(9631; "Customer Id"; Guid)
{
Caption = 'Customer Id';
DataClassification = SystemMetadata;
TableRelation = Customer.SystemId;
trigger OnValidate()
begin
UpdateSellToCustomerNo();
end;
}
field(9632; "Order Id"; Guid)
{
Caption = 'Order Id';
DataClassification = SystemMetadata;
trigger OnValidate()
begin
UpdateOrderNo();
end;
}
field(9633; "Contact Graph Id"; Text[250])
{
Caption = 'Contact Graph Id';
DataClassification = SystemMetadata;
}
field(9634; "Currency Id"; Guid)
{
Caption = 'Currency Id';
DataClassification = SystemMetadata;
TableRelation = Currency.SystemId;
trigger OnValidate()
begin
UpdateCurrencyCode();
end;
}
field(9635; "Payment Terms Id"; Guid)
{
Caption = 'Payment Terms Id';
DataClassification = SystemMetadata;
TableRelation = "Payment Terms".SystemId;
trigger OnValidate()
begin
UpdatePaymentTermsCode();
end;
}
field(9636; "Shipment Method Id"; Guid)
{
Caption = 'Shipment Method Id';
DataClassification = SystemMetadata;
TableRelation = "Shipment Method".SystemId;
trigger OnValidate()
begin
UpdateShipmentMethodCode();
end;
}
field(9637; "Tax Area ID"; Guid)
{
Caption = 'Tax Area ID';
DataClassification = SystemMetadata;
trigger OnValidate()
begin
if IsUsingVAT() then
UpdateVATBusinessPostingGroupCode()
else
UpdateTaxAreaCode();
end;
}
field(9638; "Bill-to Customer Id"; Guid)
{
Caption = 'Bill-to Customer Id';
DataClassification = SystemMetadata;
TableRelation = Customer.SystemId;
trigger OnValidate()
begin
UpdateBillToCustomerNo();
end;
}
}
keys
{
key(Key1; "No.", Posted)
{
}
key(Key2; Id)
{
Clustered = true;
}
key(Key3; "Cust. Ledger Entry No.")
{
}
key(Key4; "Document Date", Status)
{
IncludedFields = "Amount Including VAT";
}
}
fieldgroups
{
}
trigger OnInsert()
begin
"Last Modified Date Time" := CurrentDateTime;
UpdateReferencedRecordIds();
end;
trigger OnModify()
begin
"Last Modified Date Time" := CurrentDateTime;
UpdateReferencedRecordIds();
end;
trigger OnRename()
begin
if not Posted then
Error(CannotChangeNumberOnNonPostedErr);
if Posted and (not IsRenameAllowed) then
Error(CannotModifyPostedInvoiceErr);
"Last Modified Date Time" := CurrentDateTime;
UpdateReferencedRecordIds();
end;
var
CannotChangeNumberOnNonPostedErr: Label 'The number of the invoice can not be changed.';
CannotModifyPostedInvoiceErr: Label 'The invoice has been posted and can no longer be modified.', Locked = true;
IsRenameAllowed: Boolean;
SalesTaxOnlyFieldErr: Label 'Current Tax setup is set to VAT. Field %1 can only be used with Sales Tax.', Comment = '%1 - Name of the field, e.g. Tax Liable, Tax Group Code, VAT Business posting group';
VATOnlyFieldErr: Label 'Current Tax setup is set to Sales Tax. Field %1 can only be used with VAT.', Comment = '%1 - Name of the field, e.g. Tax Liable, Tax Group Code, VAT Business posting group';
local procedure UpdateSellToCustomerId()
var
Customer: Record Customer;
begin
if "Sell-to Customer No." = '' then begin
Clear("Customer Id");
exit;
end;
if not Customer.Get("Sell-to Customer No.") then
exit;
"Customer Id" := Customer.SystemId;
end;
local procedure UpdateBillToCustomerId()
var
Customer: Record Customer;
begin
if "Bill-to Customer No." = '' then begin
Clear("Bill-to Customer Id");
exit;
end;
if not Customer.Get("Bill-to Customer No.") then
exit;
"Bill-to Customer Id" := Customer.SystemId;
end;
local procedure UpdateOrderId()
var
SalesHeader: Record "Sales Header";
begin
if not SalesHeader.Get(SalesHeader."Document Type"::Order, "Order No.") then
exit;
"Order Id" := SalesHeader.SystemId;
end;
procedure UpdateCurrencyId()
var
Currency: Record Currency;
begin
if "Currency Code" = '' then begin
Clear("Currency Id");
exit;
end;
if not Currency.Get("Currency Code") then
exit;
"Currency Id" := Currency.SystemId;
end;
procedure UpdatePaymentTermsId()
var
PaymentTerms: Record "Payment Terms";
begin
if "Payment Terms Code" = '' then begin
Clear("Payment Terms Id");
exit;
end;
if not PaymentTerms.Get("Payment Terms Code") then
exit;
"Payment Terms Id" := PaymentTerms.SystemId;
end;
procedure UpdateDisputeStatusId()
var
DisputeStatus: Record "Dispute Status";
begin
if "Dispute Status" = '' then begin
Clear("Dispute Status Id");
exit;
end;
if not DisputeStatus.Get("Dispute Status") then
exit;
"Dispute Status Id" := DisputeStatus.SystemId;
end;
procedure UpdateDisputeStatus()
var
DisputeStatus: Record "Dispute Status";
begin
if not IsNullGuid("Dispute Status Id") then
DisputeStatus.GetBySystemId("Dispute Status Id");
Validate("Dispute Status", DisputeStatus.Code);
end;
procedure UpdateShipmentMethodId()
var
ShipmentMethod: Record "Shipment Method";
begin
if "Shipment Method Code" = '' then begin
Clear("Shipment Method Id");
exit;
end;
if not ShipmentMethod.Get("Shipment Method Code") then
exit;
"Shipment Method Id" := ShipmentMethod.SystemId;
end;
local procedure UpdateSellToCustomerNo()
var
Customer: Record Customer;
begin
if not IsNullGuid("Customer Id") then
Customer.GetBySystemId("Customer Id");
Validate("Sell-to Customer No.", Customer."No.");
end;
local procedure UpdateBillToCustomerNo()
var
Customer: Record Customer;
begin
if not IsNullGuid("Bill-to Customer Id") then
Customer.GetBySystemId("Bill-to Customer Id");
Validate("Bill-to Customer No.", Customer."No.");
end;
local procedure UpdateOrderNo()
var
SalesHeader: Record "Sales Header";
begin
if IsNullGuid("Order Id") then begin
Validate("Order No.", '');
exit;
end;
// Order gets deleted after fullfiled, so do not blank the Order No
if not SalesHeader.GetBySystemId("Order Id") then
exit;
if not (SalesHeader."Document Type" = SalesHeader."Document Type"::Order) then
exit;
Validate("Order No.", SalesHeader."No.");
end;
local procedure UpdateCurrencyCode()
var
Currency: Record Currency;
begin
if not IsNullGuid("Currency Id") then
Currency.GetBySystemId("Currency Id");
Validate("Currency Code", Currency.Code);
end;
local procedure UpdatePaymentTermsCode()
var
PaymentTerms: Record "Payment Terms";
begin
if not IsNullGuid("Payment Terms Id") then
PaymentTerms.GetBySystemId("Payment Terms Id");
Validate("Payment Terms Code", PaymentTerms.Code);
end;
local procedure UpdateShipmentMethodCode()
var
ShipmentMethod: Record "Shipment Method";
begin
if not IsNullGuid("Shipment Method Id") then
ShipmentMethod.GetBySystemId("Shipment Method Id");
Validate("Shipment Method Code", ShipmentMethod.Code);
end;
procedure UpdateReferencedRecordIds()
begin
UpdateSellToCustomerId();
UpdateBillToCustomerId();
UpdateCurrencyId();
UpdatePaymentTermsId();
UpdateShipmentMethodId();
UpdateDisputeStatusId();
if ("Order No." <> '') and IsNullGuid("Order Id") then
UpdateOrderId();
UpdateTaxAreaId();
end;
local procedure UpdateTaxAreaId()
var
TaxArea: Record "Tax Area";
VATBusinessPostingGroup: Record "VAT Business Posting Group";
begin
if IsUsingVAT() then begin
if "VAT Bus. Posting Group" <> '' then begin
VATBusinessPostingGroup.SetRange(Code, "VAT Bus. Posting Group");
if VATBusinessPostingGroup.FindFirst() then begin
"Tax Area ID" := VATBusinessPostingGroup.SystemId;
exit;
end;
end;
Clear("Tax Area ID");
exit;
end;
if "Tax Area Code" <> '' then begin
TaxArea.SetRange(Code, "Tax Area Code");
if TaxArea.FindFirst() then begin
"Tax Area ID" := TaxArea.SystemId;
exit;
end;
end;
Clear("Tax Area ID");
end;
local procedure UpdateTaxAreaCode()
var
TaxArea: Record "Tax Area";
begin
if not IsNullGuid("Tax Area ID") then
if TaxArea.GetBySystemId("Tax Area ID") then begin
Validate("Tax Area Code", TaxArea.Code);
exit;
end;
Clear("Tax Area Code");
end;
local procedure UpdateVATBusinessPostingGroupCode()
var
VATBusinessPostingGroup: Record "VAT Business Posting Group";
begin
if not IsNullGuid("Tax Area ID") then
if VATBusinessPostingGroup.GetBySystemId("Tax Area ID") then begin
Validate("VAT Bus. Posting Group", VATBusinessPostingGroup.Code);
exit;
end;
Clear("VAT Bus. Posting Group");
end;
procedure IsUsingVAT(): Boolean
var
GeneralLedgerSetup: Record "General Ledger Setup";
begin
exit(GeneralLedgerSetup.UseVat());
end;
procedure GetIsRenameAllowed(): Boolean
begin
exit(IsRenameAllowed);
end;
procedure SetIsRenameAllowed(RenameAllowed: Boolean)
begin
IsRenameAllowed := RenameAllowed;
end;
procedure GetParentRecordNativeInvoicing(var SalesHeader: Record "Sales Header"; var SalesInvoiceHeader: Record "Sales Invoice Header"): Boolean
begin
SalesInvoiceHeader.SetAutoCalcFields("Work Description");
SalesHeader.SetAutoCalcFields("Work Description");
exit(GetParentRecord(SalesHeader, SalesInvoiceHeader));
end;
local procedure GetParentRecord(var SalesHeader: Record "Sales Header"; var SalesInvoiceHeader: Record "Sales Invoice Header"): Boolean
var
MainRecordFound: Boolean;
begin
if Posted then begin
MainRecordFound := SalesInvoiceHeader.Get("No.");
Clear(SalesHeader);
end else begin
MainRecordFound := SalesHeader.Get(SalesHeader."Document Type"::Invoice, "No.");
Clear(SalesInvoiceHeader);
end;
exit(MainRecordFound);
end;
}