...
IF UseAccountingPeriod THEN BEGIN
WITH AccountingPeriod DO BEGIN
RESET;
SETRANGE("Period Type","Period Type"::Year);
SETRANGE("Period Start",0D,BalanceDate);
// Delete the following lines.
FIND('+');
"Period End" := NORMALDATE("Period End");
Calendar.TRANSFERFIELDS(AccountingPeriod);
// End of the deleted lines.
END;
END ELSE BEGIN
WITH Calendar DO BEGIN
RESET;
SETRANGE("Period Type","Period Type"::Year);
...
...
IF UseAccountingPeriod THEN BEGIN
WITH AccountingPeriod DO BEGIN
RESET;
SETRANGE("Period Type","Period Type"::Year);
SETRANGE("Period Start",0D,BalanceDate);
// Add the following lines.
// VSTF336374.begin
// FIND('+');
IF FIND('+') THEN BEGIN
"Period End" := NORMALDATE("Period End");
Calendar.TRANSFERFIELDS(AccountingPeriod);
EXIT;
END;
RESET;
SETRANGE("Period Type","Period Type"::Year);
FIND('-');
"Period End" := NORMALDATE("Period End");
Calendar.TRANSFERFIELDS(AccountingPeriod);
EXIT;
// VSTF336374.end
// End of the added lines.
END;
END ELSE BEGIN
WITH Calendar DO BEGIN
RESET;
SETRANGE("Period Type","Period Type"::Year);
...
...
END ELSE BEGIN
WITH Calendar DO BEGIN
RESET;
SETRANGE("Period Type","Period Type"::Year);
SETRANGE("Period Start",0D,BalanceDate);
// Delete the following lines.
FIND('+');
"Period End" := NORMALDATE("Period End");
// End of the deleted lines.
END;
END;
END;
LOCAL PROCEDURE InitBasePercents@33(AccSchedLine@1000 : Record 85;ColumnLayout@1001 : Record 334);
...
...
END ELSE BEGIN
WITH Calendar DO BEGIN
RESET;
SETRANGE("Period Type","Period Type"::Year);
SETRANGE("Period Start",0D,BalanceDate);
// Add the following lines.
// VSTF336374.begin
// FIND('+');
IF FIND('+') THEN BEGIN
"Period End" := NORMALDATE("Period End");
EXIT;
END;
RESET;
SETRANGE("Period Type","Period Type"::Year);
FIND('-');
"Period End" := NORMALDATE("Period End");
EXIT;
// VSTF336374.end
// End of the added lines.
END;
END;
END;
LOCAL PROCEDURE InitBasePercents@33(AccSchedLine@1000 : Record 85;ColumnLayout@1001 : Record 334);
...