DEFINE CLASS $NOM$ as 'ReportListener'
	
	supprimer_page2=.F.

	procedure init
		this.TwoPassProcess=.T.
	endproc

	procedure beforeBand
	LPARAMETERS nBandObjCode, nFRXRecNo
		if (nBandObjCode=0) and (this.CurrentPass=1)
			this.supprimer_page2=(this.pagetotal %2=1)
		endif
		
	endproc

	procedure IncludePageInOutput
	LPARAMETERS m.nPageNo
		return not((m.nPageNo=2) and this.supprimer_page2)
	endproc

enddefine