26. März 2018 13:51
26. März 2018 14:21
26. März 2018 14:44
26. März 2018 14:51
tableextension 60799 "AUD-PP Sales & Receiv. Setup" extends "Sales & Receivables Setup"
{
fields
{
field(60703;"AUD-PP Payment Plan Print";Integer) {
Caption = 'Payment Plan Print';
TableRelation = AllObj."Object ID" WHERE ("Object Type" = CONST(Report));
ValidateTableRelation = true;
}
}
}
codeunit 60700 "AUD-PP xxx"
{
....
procedure Print(var PostedPP: Record "AUD-PP Posted Pay. Plan Header")
var
SalesReceivableSetup: Record "Sales & Receivables Setup";
begin
SalesReceivableSetup.Get();
SalesReceivableSetup.Testfield("AUD-PP Payment Plan Print");
Report.Run(SalesReceivableSetup."AUD-PP Payment Plan Print", true, false, PostedPP);
end;
26. März 2018 15:35