Change the code in the VAT Register – Print report (12120) as follows:
Existing code 1...
CONTROLS
{
{ 1130214;TextBox ;27150;0 ;1800 ;423 ;VertAlign=Bottom;
SourceExpr=STRSUBSTNO(Text1038,FORMAT(DATE2DMY(StartingDate,3)),FORMAT(CurrReport.PAGENO+VATRegister."Last Printed VAT Register Page"-1));
DataSetFieldName=STRSUBSTNO_Text1038_FORMAT_DATE2DMY_AccPeriod__Starting_Date__3___FORMAT_CurrReport_PAGENO_VATRegister__Last_Printed_VAT_Register_Page__1__ }
{ 1101100001;TextBox;29550;0 ;150 ;423 ;Visible=No;
ForeColor=65535;
...
Replacement code 1...
CONTROLS
{
{ 1130214;TextBox ;27150;0 ;1800 ;423 ;VertAlign=Bottom;
SourceExpr=STRSUBSTNO(Text1038,FORMAT(DATE2DMY(StartingDate,3)),FORMAT(CurrReport.PAGENO+VATRegister."Last Printed VAT Register Page"-1-PageNoCorrection));
DataSetFieldName=STRSUBSTNO_Text1038_FORMAT_DATE2DMY_AccPeriod__Starting_Date__3___FORMAT_CurrReport_PAGENO_VATRegister__Last_Printed_VAT_Register_Page__1__ }
{ 1101100001;TextBox;29550;0 ;150 ;423 ;Visible=No;
ForeColor=65535;
...
Existing code 2...
CONTROLS
{
{ 1130215;TextBox ;27150;0 ;1800 ;423 ;VertAlign=Bottom;
SourceExpr=STRSUBSTNO(Text1038,FORMAT(DATE2DMY(StartingDate,3)),FORMAT(CurrReport.PAGENO+VATRegister."Last Printed VAT Register Page"-1));
DataSetFieldName=STRSUBSTNO_Text1038_FORMAT_DATE2DMY_AccPeriod__Starting_Date__3___FORMAT_CurrReport_PAGENO_VATRegister__Last_Printed_VAT_Register_Page__1___Control1130215 }
{ 1130217;TextBox ;0 ;0 ;17850;423 ;HorzAlign=Left;
VertAlign=Bottom;
...
Replacement code 2...
CONTROLS
{
{ 1130215;TextBox ;27150;0 ;1800 ;423 ;VertAlign=Bottom;
SourceExpr=STRSUBSTNO(Text1038,FORMAT(DATE2DMY(StartingDate,3)),FORMAT(CurrReport.PAGENO+VATRegister."Last Printed VAT Register Page"-1-PageNoCorrection));
DataSetFieldName=STRSUBSTNO_Text1038_FORMAT_DATE2DMY_AccPeriod__Starting_Date__3___FORMAT_CurrReport_PAGENO_VATRegister__Last_Printed_VAT_Register_Page__1___Control1130215 }
{ 1130217;TextBox ;0 ;0 ;17850;423 ;HorzAlign=Left;
VertAlign=Bottom;
...
Existing code 3...
CurrReport.SHOWOUTPUT(FALSE);
END;
}
CONTROLS
{
...
Replacement code 3...
CurrReport.SHOWOUTPUT(FALSE);
END;
OnPostSection=BEGIN
LastPageNo := CurrReport.PAGENO;
END;
}
CONTROLS
{
...
Existing code 4...
CurrReport.SHOWOUTPUT(FALSE)
END;
}
CONTROLS
{
...
Replacement code 4...
CurrReport.SHOWOUTPUT(FALSE)
END;
OnPostSection=BEGIN
LastPageNo := CurrReport.PAGENO;
END;
}
CONTROLS
{
...
Existing code 5...
CONTROLS
{
{ 1130221;TextBox ;27150;0 ;1800 ;423 ;VertAlign=Bottom;
SourceExpr=STRSUBSTNO(Text1038,FORMAT(DATE2DMY(StartingDate,3)),FORMAT(CurrReport.PAGENO+VATRegister."Last Printed VAT Register Page"-1));
DataSetFieldName=STRSUBSTNO_Text1038_FORMAT_DATE2DMY_AccPeriod__Starting_Date__3___FORMAT_CurrReport_PAGENO_VATRegister__Last_Printed_VAT_Register_Page__1___Control1130221 }
{ 1101100005;TextBox;29700;0 ;150 ;423 ;Visible=No;
ForeColor=65535;
...
Replacement code 5...
CONTROLS
{
{ 1130221;TextBox ;27150;0 ;1800 ;423 ;VertAlign=Bottom;
SourceExpr=STRSUBSTNO(Text1038,FORMAT(DATE2DMY(StartingDate,3)),FORMAT(CurrReport.PAGENO+VATRegister."Last Printed VAT Register Page"-1-PageNoCorrection));
DataSetFieldName=STRSUBSTNO_Text1038_FORMAT_DATE2DMY_AccPeriod__Starting_Date__3___FORMAT_CurrReport_PAGENO_VATRegister__Last_Printed_VAT_Register_Page__1___Control1130221 }
{ 1101100005;TextBox;29700;0 ;150 ;423 ;Visible=No;
ForeColor=65535;
...
Existing code 6...
CONTROLS
{
{ 1130218;TextBox ;27150;0 ;1950 ;423 ;VertAlign=Bottom;
SourceExpr=STRSUBSTNO(Text1038,FORMAT(DATE2DMY(StartingDate,3)),FORMAT(CurrReport.PAGENO+VATRegister."Last Printed VAT Register Page"-1));
DataSetFieldName=STRSUBSTNO_Text1038_FORMAT_DATE2DMY_AccPeriod__Starting_Date__3___FORMAT_CurrReport_PAGENO_VATRegister__Last_Printed_VAT_Register_Page__1___Control1130218 }
{ 1130219;TextBox ;23700;0 ;3275 ;423 ;HorzAlign=Left;
VertAlign=Bottom;
...
Replacement code 6...
CONTROLS
{
{ 1130218;TextBox ;27150;0 ;1950 ;423 ;VertAlign=Bottom;
SourceExpr=STRSUBSTNO(Text1038,FORMAT(DATE2DMY(StartingDate,3)),FORMAT(CurrReport.PAGENO+VATRegister."Last Printed VAT Register Page"-1-PageNoCorrection));
DataSetFieldName=STRSUBSTNO_Text1038_FORMAT_DATE2DMY_AccPeriod__Starting_Date__3___FORMAT_CurrReport_PAGENO_VATRegister__Last_Printed_VAT_Register_Page__1___Control1130218 }
{ 1130219;TextBox ;23700;0 ;3275 ;423 ;HorzAlign=Left;
VertAlign=Bottom;
...
Existing code 7...
// IT0023.begin
CompanyInformation6 := CompanyInformation[6];
// IT0023.end
END;
}
...
Replacement code 7...
// IT0023.begin
CompanyInformation6 := CompanyInformation[6];
// IT0023.end
IF CurrReport.PAGENO - LastPageNo > 1 THEN
PageNoCorrection += CurrReport.PAGENO - LastPageNo - 1;
LastPageNo := CurrReport.PAGENO;
END;
}
...
Existing code 8...
CONTROLS
{
{ 1130227;TextBox ;27150;0 ;1800 ;423 ;VertAlign=Bottom;
SourceExpr=STRSUBSTNO(Text1038,FORMAT(DATE2DMY(StartingDate,3)),FORMAT(CurrReport.PAGENO+VATRegister."Last Printed VAT Register Page"-1));
DataSetFieldName=STRSUBSTNO_Text1038_FORMAT_DATE2DMY_AccPeriod__Starting_Date__3___FORMAT_CurrReport_PAGENO_VATRegister__Last_Printed_VAT_Register_Page__1___Control1130227 }
{ 1101100008;TextBox;29700;0 ;150 ;423 ;Visible=No;
ForeColor=65535;
...
Replacement code 8...
CONTROLS
{
{ 1130227;TextBox ;27150;0 ;1800 ;423 ;VertAlign=Bottom;
SourceExpr=STRSUBSTNO(Text1038,FORMAT(DATE2DMY(StartingDate,3)),FORMAT(CurrReport.PAGENO+VATRegister."Last Printed VAT Register Page"-1-PageNoCorrection));
DataSetFieldName=STRSUBSTNO_Text1038_FORMAT_DATE2DMY_AccPeriod__Starting_Date__3___FORMAT_CurrReport_PAGENO_VATRegister__Last_Printed_VAT_Register_Page__1___Control1130227 }
{ 1101100008;TextBox;29700;0 ;150 ;423 ;Visible=No;
ForeColor=65535;
...
Existing code 9...
CONTROLS
{
{ 1130223;TextBox ;27150;0 ;1800 ;423 ;VertAlign=Bottom;
SourceExpr=STRSUBSTNO(Text1038,FORMAT(DATE2DMY(StartingDate,3)),FORMAT(CurrReport.PAGENO+VATRegister."Last Printed VAT Register Page"-1));
DataSetFieldName=STRSUBSTNO_Text1038_FORMAT_DATE2DMY_AccPeriod__Starting_Date__3___FORMAT_CurrReport_PAGENO_VATRegister__Last_Printed_VAT_Register_Page__1___Control1130223 }
{ 1130225;TextBox ;0 ;0 ;17850;423 ;HorzAlign=Left;
VertAlign=Bottom;
...
Replacement code 9...
CONTROLS
{
{ 1130223;TextBox ;27150;0 ;1800 ;423 ;VertAlign=Bottom;
SourceExpr=STRSUBSTNO(Text1038,FORMAT(DATE2DMY(StartingDate,3)),FORMAT(CurrReport.PAGENO+VATRegister."Last Printed VAT Register Page"-1-PageNoCorrection));
DataSetFieldName=STRSUBSTNO_Text1038_FORMAT_DATE2DMY_AccPeriod__Starting_Date__3___FORMAT_CurrReport_PAGENO_VATRegister__Last_Printed_VAT_Register_Page__1___Control1130223 }
{ 1130225;TextBox ;0 ;0 ;17850;423 ;HorzAlign=Left;
VertAlign=Bottom;
...