8. April 2010 08:58
IF AnzahlIst< AnzahlSoll THEN BEGIN
RecordNo := RecordNo +1;
IF AnzahlIst=0 THEN ColumnNo := StartofColumnNo;
PageBreak:=FALSE;
FOR i :=1 TO StartofColumnNo DO
CLEAR(CustAddr[i]);
WHILE ( AnzahlIst< AnzahlSoll) AND (NOT PageBreak) DO BEGIN
IF ColumnNo > NoOfColumns THEN BEGIN
ColumnNo := 1;
//CurrReport.NEWPAGE; // aktueller record break
PageBreak:=TRUE;
END
ELSE BEGIN
FormatAddr.Customer(CustAddr[ColumnNo],Customer);
AnzahlIst := AnzahlIst + 1;
ColumnNo := ColumnNo + 1;
END;
END;
IF(NOT PageBreak) THEN BEGIN
FOR i := ColumnNo TO NoOfColumns DO
CLEAR(CustAddr[i]);
END;
//ColumnNo := 0;
END;