mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-08-06 17:36:53 +01:00
aca3986fd0
* Correct security and privacy guidance Co-authored-by: Copilot App <223556219+Copilot@users.noreply.github.com> Copilot-Session: 9c2eebc4-dcd5-4b85-8113-90772d818900 * Address security privacy review findings Co-authored-by: Copilot App <223556219+Copilot@users.noreply.github.com> Copilot-Session: 9c2eebc4-dcd5-4b85-8113-90772d818900 --------- Co-authored-by: Jesper Schulz-Wedde <jesper.schulzwedde@microsoft.com>
23 lines
793 B
AL
23 lines
793 B
AL
tableextension 50223 "Sec Sample VTR Good" extends Customer
|
|
{
|
|
fields
|
|
{
|
|
field(50223; "External Customer Ref"; Code[50])
|
|
{
|
|
TableRelation = Customer."No.";
|
|
ValidateTableRelation = false;
|
|
TestTableRelation = false;
|
|
|
|
trigger OnValidate()
|
|
var
|
|
InvalidExternalReferenceErr: Label 'The external customer reference must not contain spaces.';
|
|
begin
|
|
"External Customer Ref" := CopyStr(
|
|
UpperCase(DelChr("External Customer Ref", '<>', ' ')),
|
|
1, MaxStrLen("External Customer Ref"));
|
|
if StrPos("External Customer Ref", ' ') > 0 then
|
|
Error(InvalidExternalReferenceErr);
|
|
end;
|
|
}
|
|
}
|
|
}
|