mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-10-05 14:46:55 +01:00
Update transferfields-skip-type-mismatch-can-drop-data.good.al
This commit is contained in:
parent
f471bdec20
commit
4a961cf9b7
1 changed files with 5 additions and 2 deletions
|
|
@ -49,8 +49,11 @@ table 50122 "Transfer Target"
|
||||||
codeunit 50491 "TransferFields Good"
|
codeunit 50491 "TransferFields Good"
|
||||||
{
|
{
|
||||||
procedure CopyData(Source: Record "Transfer Source"; var Target: Record "Transfer Target")
|
procedure CopyData(Source: Record "Transfer Source"; var Target: Record "Transfer Target")
|
||||||
|
var
|
||||||
|
ConvertedReference: Integer;
|
||||||
begin
|
begin
|
||||||
Target."Entry No." := Source."Entry No.";
|
Target."Entry No." := Source."Entry No.";
|
||||||
Evaluate(Target."Reference", Source."Reference");
|
Evaluate(ConvertedReference, Source."Reference");
|
||||||
|
Target.Validate("Reference", ConvertedReference);
|
||||||
end;
|
end;
|
||||||
}
|
}
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue