Table 5508 Purch. Cr. Memo Entity Buffer, source in 29
Source29
src/Layers/W1/BaseApp/Integration/Entity/PurchCrMemoEntityBuffer.Table.al605 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.Journal;
using Microsoft.Foundation.Address;
using Microsoft.Foundation.AuditCodes;
using Microsoft.Foundation.PaymentTerms;
using Microsoft.Foundation.Shipping;
using Microsoft.Purchases.Payables;
using Microsoft.Purchases.Vendor;
table 5508 "Purch. Cr. Memo Entity Buffer"
{
Caption = 'Purch. Cr. Memo Entity Buffer';
ReplicateData = false;
DataClassification = CustomerContent;
fields
{
field(2; "Buy-from Vendor No."; Code[20])
{
Caption = 'Buy-from Vendor No.';
DataClassification = CustomerContent;
NotBlank = true;
TableRelation = Vendor;
trigger OnValidate()
begin
UpdateBuyFromVendorId();
end;
}
field(3; "No."; Code[20])
{
Caption = 'No.';
DataClassification = CustomerContent;
}
field(4; "Pay-to Vendor No."; Code[20])
{
Caption = 'Pay-to Vendor No.';
DataClassification = CustomerContent;
NotBlank = true;
TableRelation = Vendor;
trigger OnValidate()
begin
UpdatePayToVendorId();
end;
}
field(5; "Pay-to Name"; Text[100])
{
Caption = 'Pay-to Name';
DataClassification = CustomerContent;
TableRelation = Vendor.Name;
ValidateTableRelation = false;
}
field(7; "Pay-to Address"; Text[100])
{
Caption = 'Pay-to Address';
DataClassification = CustomerContent;
}
field(8; "Pay-to Address 2"; Text[50])
{
Caption = 'Pay-to Address 2';
DataClassification = CustomerContent;
}
field(9; "Pay-to City"; Text[30])
{
Caption = 'Pay-to City';
DataClassification = CustomerContent;
TableRelation = if ("Pay-to Country/Region Code" = const('')) "Post Code".City
else
if ("Pay-to Country/Region Code" = filter(<> '')) "Post Code".City where("Country/Region Code" = field("Pay-to Country/Region Code"));
ValidateTableRelation = false;
}
field(10; "Pay-to Contact"; Text[100])
{
Caption = 'Pay-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; "Vendor Posting Group"; Code[20])
{
Caption = 'Vendor Posting Group';
DataClassification = CustomerContent;
TableRelation = "Vendor 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; "Purchaser Code"; Code[20])
{
Caption = 'Purchaser Code';
DataClassification = CustomerContent;
TableRelation = "Salesperson/Purchaser";
}
field(52; "Applies-to Doc. Type"; Enum "Gen. Journal Document Type")
{
Caption = 'Applies-to Doc. Type';
DataClassification = CustomerContent;
}
field(53; "Applies-to Doc. No."; Code[20])
{
Caption = 'Applies-to Doc. No.';
DataClassification = CustomerContent;
}
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(69; "Vendor Cr. Memo No."; Code[35])
{
Caption = 'Vendor Cr. Memo No.';
DataClassification = CustomerContent;
}
field(73; "Reason Code"; Code[10])
{
Caption = 'Reason Code';
TableRelation = "Reason Code";
trigger OnValidate()
begin
UpdateReasonCodeId();
end;
}
field(79; "Buy-from Vendor Name"; Text[100])
{
Caption = 'Buy-from Vendor Name';
DataClassification = CustomerContent;
TableRelation = Vendor.Name;
ValidateTableRelation = false;
}
field(81; "Buy-from Address"; Text[100])
{
Caption = 'Buy-from Address';
DataClassification = CustomerContent;
}
field(82; "Buy-from Address 2"; Text[50])
{
Caption = 'Buy-from Address 2';
DataClassification = CustomerContent;
}
field(83; "Buy-from City"; Text[30])
{
Caption = 'Buy-from City';
DataClassification = CustomerContent;
TableRelation = if ("Buy-from Country/Region Code" = const('')) "Post Code".City
else
if ("Buy-from Country/Region Code" = filter(<> '')) "Post Code".City where("Country/Region Code" = field("Buy-from Country/Region Code"));
ValidateTableRelation = false;
}
field(84; "Buy-from Contact"; Text[100])
{
Caption = 'Buy-from Contact';
DataClassification = CustomerContent;
}
field(85; "Pay-to Post Code"; Code[20])
{
Caption = 'Pay-to Post Code';
DataClassification = CustomerContent;
TableRelation = if ("Pay-to Country/Region Code" = const('')) "Post Code"
else
if ("Pay-to Country/Region Code" = filter(<> '')) "Post Code" where("Country/Region Code" = field("Pay-to Country/Region Code"));
ValidateTableRelation = false;
}
field(86; "Pay-to County"; Text[30])
{
CaptionClass = '5,6,' + "Pay-to Country/Region Code";
Caption = 'Pay-to County';
DataClassification = CustomerContent;
}
field(87; "Pay-to Country/Region Code"; Code[10])
{
Caption = 'Pay-to Country/Region Code';
DataClassification = CustomerContent;
TableRelation = "Country/Region";
}
field(88; "Buy-from Post Code"; Code[20])
{
Caption = 'Buy-from Post Code';
DataClassification = CustomerContent;
TableRelation = if ("Buy-from Country/Region Code" = const('')) "Post Code"
else
if ("Buy-from Country/Region Code" = filter(<> '')) "Post Code" where("Country/Region Code" = field("Buy-from Country/Region Code"));
ValidateTableRelation = false;
}
field(89; "Buy-from County"; Text[30])
{
CaptionClass = '5,5,' + "Buy-from Country/Region Code";
Caption = 'Buy-from County';
DataClassification = CustomerContent;
}
field(90; "Buy-from Country/Region Code"; Code[10])
{
Caption = 'Buy-from Country/Region Code';
DataClassification = CustomerContent;
TableRelation = "Country/Region";
}
field(99; "Document Date"; Date)
{
Caption = 'Document Date';
DataClassification = CustomerContent;
}
field(1304; "Vendor Ledger Entry No."; Integer)
{
Caption = 'Vendor Ledger Entry No.';
DataClassification = CustomerContent;
TableRelation = "Vendor Ledger Entry"."Entry No.";
}
field(1305; "Invoice Discount Amount"; Decimal)
{
AutoFormatExpression = Rec."Currency Code";
AutoFormatType = 1;
Caption = 'Invoice Discount Amount';
DataClassification = CustomerContent;
}
field(5052; "Buy-from Contact No."; Code[20])
{
Caption = 'Buy-from Contact No.';
DataClassification = CustomerContent;
TableRelation = Contact;
}
field(8000; Id; Guid)
{
Caption = 'Id';
DataClassification = SystemMetadata;
}
field(9600; "Total Tax Amount"; Decimal)
{
AutoFormatExpression = Rec."Currency Code";
AutoFormatType = 1;
Caption = 'Total Tax Amount';
DataClassification = CustomerContent;
}
field(9601; Status; Enum "Purch. Cr. Memo Entity Status")
{
Caption = 'Status';
DataClassification = CustomerContent;
}
field(9602; Posted; Boolean)
{
Caption = 'Posted';
DataClassification = CustomerContent;
}
field(9624; "Discount Applied Before Tax"; Boolean)
{
Caption = 'Discount Applied Before Tax';
DataClassification = CustomerContent;
}
field(9631; "Vendor Id"; Guid)
{
Caption = 'Vendor Id';
DataClassification = SystemMetadata;
TableRelation = Vendor.SystemId;
trigger OnValidate()
begin
UpdateBuyFromVendorNo();
end;
}
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(9638; "Pay-to Vendor Id"; Guid)
{
Caption = 'Pay-to Vendor Id';
DataClassification = SystemMetadata;
TableRelation = Vendor.SystemId;
trigger OnValidate()
begin
UpdatePayToVendorNo();
end;
}
field(9639; "Reason Code Id"; Guid)
{
Caption = 'Reason Code Id';
DataClassification = SystemMetadata;
TableRelation = "Reason Code".SystemId;
trigger OnValidate()
begin
UpdateReasonCode();
end;
}
}
keys
{
key(Key1; "No.", Posted)
{
}
key(Key2; Id)
{
Clustered = true;
}
key(Key3; "Vendor Ledger Entry No.")
{
}
}
fieldgroups
{
}
trigger OnInsert()
begin
UpdateReferencedRecordIds();
end;
trigger OnModify()
begin
UpdateReferencedRecordIds();
end;
trigger OnRename()
begin
if Posted and (not IsRenameAllowed) then
Error(CannotModifyPostedCreditMemoErr);
UpdateReferencedRecordIds();
end;
var
CannotModifyPostedCreditMemoErr: Label 'The credit memo has been posted and can no longer be modified.', Locked = true;
IsRenameAllowed: Boolean;
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 UpdateReasonCodeId()
var
ReasonCode: Record "Reason Code";
begin
if "Reason Code" = '' then begin
Clear("Reason Code Id");
exit;
end;
if not ReasonCode.Get("Reason Code") then
exit;
"Reason Code Id" := ReasonCode.SystemId;
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 UpdateBuyFromVendorId()
var
Vendor: Record Vendor;
begin
if "Buy-from Vendor No." = '' then begin
Clear("Vendor Id");
exit;
end;
if not Vendor.Get("Buy-from Vendor No.") then
exit;
"Vendor Id" := Vendor.SystemId;
end;
local procedure UpdateBuyFromVendorNo()
var
Vendor: Record Vendor;
begin
if IsNullGuid("Vendor Id") then
exit;
if not Vendor.GetBySystemId("Vendor Id") then
exit;
"Buy-from Vendor No." := Vendor."No.";
end;
local procedure UpdatePayToVendorId()
var
Vendor: Record Vendor;
begin
if "Pay-to Vendor No." = '' then begin
Clear("Pay-to Vendor Id");
exit;
end;
if not Vendor.Get("Pay-to Vendor No.") then
exit;
"Pay-to Vendor Id" := Vendor.SystemId;
end;
local procedure UpdatePayToVendorNo()
var
Vendor: Record Vendor;
begin
if IsNullGuid("Pay-to Vendor Id") then
exit;
if not Vendor.GetBySystemId("Pay-to Vendor Id") then
exit;
"Pay-to Vendor No." := Vendor."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 UpdateReasonCode()
var
ReasonCode: Record "Reason Code";
begin
if not IsNullGuid("Reason Code Id") then
ReasonCode.GetBySystemId("Reason Code Id");
Validate("Reason Code", ReasonCode.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
UpdateBuyFromVendorId();
UpdatePayToVendorId();
UpdateCurrencyId();
UpdatePaymentTermsId();
UpdateShipmentMethodId();
UpdateReasonCodeId();
end;
procedure GetIsRenameAllowed(): Boolean
begin
exit(IsRenameAllowed);
end;
procedure SetIsRenameAllowed(RenameAllowed: Boolean)
begin
IsRenameAllowed := RenameAllowed;
end;
}