i have report that need to be converted from classic client into RTC.The report prints the record set veritically like record 1,record 2.record 3,all the record are stored in an array .in one page there can maximum 3 records ,for fourth or next record it creates a new page through function called new page.i need a help to modified this funcition ?
IF NoOfRecords >= 3 THEN
BEGIN
IF RecCount = 3 THEN
BEGIN
CurrReport.SHOWOUTPUT(TRUE);
CurrReport.NEWPAGE;
IF pIncr THEN
PageNo +=1;
I:= 1;
RecCount :=0;
IF (NoOfRecords - Int) < 3 THEN
OK :=TRUE;
END
ELSE
IF (RecCount = NoOfRecords MOD 3 ) AND OK THEN
BEGIN
IF RecCount = 1 THEN BEGIN
CLEAR(TempItemSpec[RecCount+1]);
CLEAR(TempItemSpec[RecCount+2]);
CLEAR(TempItem[RecCount+1]);
CLEAR(TempItem[RecCount+2]);
CLEAR(TempSalesLine[RecCount+1]);
CLEAR(TempSalesLine[RecCount+2]);
CLEAR(TempSpecficMT[RecCount+1]);
CLEAR(TempSpecficMT[RecCount+2]);
CLEAR(TempSpecficFluid[RecCount+1]);
CLEAR(TempSpecficFluid[RecCount+2]);
CLEAR(TempSpecficFloat[RecCount+1]);
CLEAR(TempSpecficFloat[RecCount+2]);
CLEAR(TempSpecficFludContPart[RecCount+1]);
CLEAR(TempSpecficFludContPart[RecCount+2]);
CLEAR(TempSpecficFrame[RecCount+1]);
CLEAR(TempSpecficFrame[RecCount+2]);
CLEAR(TempSpecficPacking[RecCount+1]);
CLEAR(TempSpecficPacking[RecCount+2]);
CLEAR(TempItemCategory[RecCount+1]);
CLEAR(TempItemCategory[RecCount+2]);
CLEAR(TempSpecificConnSize[RecCount+1]);
CLEAR(TempSpecificConnSize[RecCount+2]);
CLEAR(TempSpecficType[RecCount+1]);
CLEAR(TempSpecficType[RecCount+2]);
END;
IF RecCount = 2 THEN BEGIN
CLEAR(TempItemSpec[RecCount+1]);
CLEAR(TempItem[RecCount+1]);
CLEAR(TempSalesLine[RecCount+1]);
CLEAR(TempSpecficMT[RecCount+1]);
CLEAR(TempSpecficFluid[RecCount+1]);
CLEAR(TempSpecficFloat[RecCount+1]);
CLEAR(TempSpecficFludContPart[RecCount+1]);
CLEAR(TempSpecficFrame[RecCount+1]);
CLEAR(TempSpecficPacking[RecCount+1]);
CLEAR(TempItemCategory[RecCount+1]);
CLEAR(TempSpecificConnSize[RecCount+1]);
CLEAR(TempSpecficType[RecCount+1]);
END;
CurrReport.SHOWOUTPUT(TRUE);
END
ELSE
CurrReport.SHOWOUTPUT(FALSE)
END
ELSE
IF (RecCount = NoOfRecords MOD 3) AND (NOT OK) THEN
BEGIN
IF pIncr THEN
PageNo :=1;
CurrReport.SHOWOUTPUT(TRUE);
END
ELSE
CurrReport.SHOWOUTPUT(FALSE);
*This post is locked for comments
I have the same question (0)
