=[Rid].[rcode] And ([rid].[status]="I" Or ([rid].[status]="P" And (Not IsEmpty([Rid].[edate])))),1,0)) AS nopol, Sum([rid].[bsa]*1*IIf([Rid].[code]=[Rid].[rcode] And ([rid].[status]="I" Or ([rid].[status]="P" And (Not IsEmpty([Rid].[edate])))),1,0)) AS bsa, Sum([rid].[bsa]*1*IIf([Rid].[rcode]="SBB" And ([rid].[status]="I" Or ([rid].[status]="P" And (Not IsEmpty([Rid].[edate])))),1,0)) AS sbbbsa, Sum([rid].[bsa]*1*IIf(([Rid].[rcode]="TI" Or [Rid].[rcode]="TI") And ([rid].[status]="I" Or ([rid].[status]="P" And (Not IsEmpty([Rid].[edate])))),1,0)) AS tibsa, Sum(([prem]+[eprem_o]+[eprem_m])*1*IIf([code]=[rcode] And ([status]="I" Or ([status]="P" And Not (IsEmpty([edate])))),1,0)) AS apbas, Sum(([prem]+[eprem_o]+[eprem_m])*1*IIf((Not ([code]=[rcode]) And Not ([rcode] In ("TOPUP","FSB","FSSB","MKB"))) And ([status]="I" Or ([status]="P" And Not (IsEmpty([edate])))),1,0)) AS aprid, Sum([net_prem]*1*IIf(([rcode]="MKB" Or [rcode]=[code]) And ([rid].[status]="I" Or ([rid].[status]="P" And (Not IsEmpty([Rid].[edate])))),1,0)) AS npbas
FROM Rid
WHERE (((Rid.Rcode)<>"DVDPUA") AND ((Rid.Cur)="HKD"))
ORDER BY Rid.Dur1, Rid.Code;