...
DataItemTable=Table12117;
DataItemTableView=SORTING(Vendor No.,Social Security Code,Social Security %)
ORDER(Ascending);
// Delete the following line.
OnPreDataItem=BEGIN
// End of the line.
SETFILTER("Payment Date",'%1..%2',FromPaymentDate,ToPaymentDate);
SETRANGE(Reported,FALSE);
...
...
DataItemTable=Table12117;
DataItemTableView=SORTING(Vendor No.,Social Security Code,Social Security %)
ORDER(Ascending);
// Add the following lines.
OnPreDataItem=VAR
Contributions@1130000 : Record 12117;
BEGIN
// End of the lines.
SETFILTER("Payment Date",'%1..%2',FromPaymentDate,ToPaymentDate);
SETRANGE(Reported,FALSE);
...
...
IF OnlyWithholdTax AND OnlyINPS THEN
CurrReport.NEWPAGE;
END;
OnAfterGetRecord=BEGIN
...
...
IF OnlyWithholdTax AND OnlyINPS THEN
CurrReport.NEWPAGE;
// Add the following lines.
Contributions.SETRANGE("Vendor No.",Vendor."No.");
Contributions.SETFILTER("Payment Date",'%1..%2',FromPaymentDate,ToPaymentDate);
Contributions.SETRANGE(Reported,FALSE);
IF Contributions.ISEMPTY THEN
INPS := FALSE;
// End of the lines.
END;
OnAfterGetRecord=BEGIN
...
...
IF NOT INPSContribCode.GET("Social Security Code",INPSContribCode."Contribution Type"::INPS) THEN
INPSContribCode.INIT;
// Delete the following line.
INPS := TRUE;
// End of the line.
IF FinalReporting AND
NOT CurrReport.PREVIEW
...
...
IF NOT INPSContribCode.GET("Social Security Code",INPSContribCode."Contribution Type"::INPS) THEN
INPSContribCode.INIT;
IF FinalReporting AND
NOT CurrReport.PREVIEW
...