Microsoft/bcquality
1
0
Fork 0
mirror of https://github.com/microsoft/BCQuality.git synced 2026-08-06 17:36:53 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Correct security and privacy guidance

Browse source 
Co-authored-by: Copilot App <223556219+Copilot@users.noreply.github.com>

Copilot-Session: 9c2eebc4-dcd5-4b85-8113-90772d818900
This commit is contained in:
Jesper Schulz-Wedde 2026-07-14 10:45:42 +02:00
parent 7a678d1aff
commit ec8f891954
34 changed files with 189 additions and 150 deletions
Download patch file Download diff file Expand all files Collapse all files

21
microsoft/knowledge/security/validatetablerelation-false-on-user-input.good.al
View file

@ -2,24 +2,21 @@ tableextension 50223 "Sec Sample VTR Good" extends Customer
{
fields
{
field(50223; "System Batch ID"; Code[20])
{
TableRelation = "Sales Header"."No.";
ValidateTableRelation = false;
Editable = false;
}
field(50224; "External Customer Ref"; Code[50])
field(50223; "External Customer Ref"; Code[50])
{
TableRelation = Customer."No.";
ValidateTableRelation = false;
TestTableRelation = false;
trigger OnValidate()
var
Customer: Record Customer;
InvalidExternalReferenceErr: Label 'The external customer reference must not contain spaces.';
begin
if "External Customer Ref" = '' then
exit;
if not Customer.Get("External Customer Ref") then
Error('External customer reference %1 does not exist.', "External Customer Ref");
"External Customer Ref" := CopyStr(
UpperCase(DelChr("External Customer Ref", '<>', ' ')),
1, MaxStrLen("External Customer Ref"));
if StrPos("External Customer Ref", ' ') > 0 then
Error(InvalidExternalReferenceErr);
end;
}
}