mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-10-05 22:56:55 +01:00
17e8856b35
Contributed from Curabis's own BCQuality custom layer, rewritten to the community contribution contract (no fenced code in the .md, AL samples as sibling .good.al/.bad.al files, under 100 lines per article).
22 lines
721 B
AL
22 lines
721 B
AL
codeunit 50150 "Contoso Header Field Lookup"
|
|
{
|
|
procedure GetVatRegNo(DocumentNo: Code[20]): Text[20]
|
|
var
|
|
Header: Record "Contoso Document Header";
|
|
begin
|
|
// Low blast radius: informational field, safe to default if missing.
|
|
if Header.Get(DocumentNo) then
|
|
exit(Header."VAT Registration No.");
|
|
exit('');
|
|
end;
|
|
|
|
procedure GetVatProdPostingGroup(DocumentNo: Code[20]): Code[20]
|
|
var
|
|
Header: Record "Contoso Document Header";
|
|
begin
|
|
// High blast radius: feeds a posted VAT calculation. Fail loud.
|
|
Header.Get(DocumentNo);
|
|
Header.TestField("VAT Prod. Posting Group");
|
|
exit(Header."VAT Prod. Posting Group");
|
|
end;
|
|
}
|