...
IF ISSERVICETIER THEN BEGIN
PrintLineone := ShowLine(FALSE,FALSE);
PrintLinetwo := ShowLine(TRUE,FALSE);
PrintLinethree := ShowLine(FALSE,TRUE);
PrintLinefour := ShowLine(TRUE,TRUE);
// Delete the following line.
PrintLinefive := Underline OR ("Totaling Type" = "Totaling Type"::Underline);
IF PrintLinefive THEN
FOR i := 1 TO MaxColumnsDisplayed DO
ColumnValuesAsText[i] := PADSTR('',MAXSTRLEN(ColumnValuesAsText[i]),' ');
PrintLinesix := ("Totaling Type" = "Totaling Type"::"Double Underline");
...
...
IF ISSERVICETIER THEN BEGIN
PrintLineone := ShowLine(FALSE,FALSE);
PrintLinetwo := ShowLine(TRUE,FALSE);
PrintLinethree := ShowLine(FALSE,TRUE);
PrintLinefour := ShowLine(TRUE,TRUE);
// Add the following line.
PrintLinefive := ("Totaling Type" = "Totaling Type"::Underline);
IF PrintLinefive THEN
FOR i := 1 TO MaxColumnsDisplayed DO
ColumnValuesAsText[i] := PADSTR('',MAXSTRLEN(ColumnValuesAsText[i]),' ');
PrintLinesix := ("Totaling Type" = "Totaling Type"::"Double Underline");
...