select case when a.cdbnc =341 then 'ITAU'
            when a.cdbnc =224 then 'FIBRA'
            when a.cdbnc = 53 then 'MERCURY'
            when a.cdbnc = 95 then 'ITV'
            else 'ITV' END AS Localpg,
 a.nrdcmrct, c.DTEMDCRC, a.tpmvprdr, B.DTVCPDCR, a.cdbnc, a.cdagnbnc, a.dtmvpdcr, a.nrdcmrct, a.nrprdcrc, B.VRORPRDR,
       (a.VRMVMNC - a.VRJPDCRC - a.VRMPGDCR + a.VRDSODRC - a.VRCPDCRC) VRParcela,
       a.VRJPDCRC, a.VRMPGDCR, a.VRCPDCRC, a.VRDSODRC, a.VRMVMNC, b.VRCSPRDD,
      (a.VRMVMNC - b.VRCSPRDD - a.VRJPDCRC - a.VRMPGDCR + a.VRDSODRC)  VRLucro,
      a.HRMVPRDC, B.vrprdrcr, (B.Vrprdrcr-b.vrorprdr)as VrCorrecao
  from tbmpr a, tbprc b, tbdor c
 where a.cdemp    = :CDEMP
   and a.cdfllemp = :CDFLLEMP
   and a.dtmvpdcr >= :DTINI
   and a.dtmvpdcr <= :DTFIN
   and a.IDSTETPR is Null
   and b.cdemp    = a.cdemp
   and b.cdfllemp = a.cdfllemp
   and b.nrdcmrct = a.nrdcmrct
   and b.nrprdcrc = a.nrprdcrc
   and c.cdemp    = a.cdemp
   and c.cdfllemp = a.cdfllemp
   and c.nrdcmrct = a.nrdcmrct

 order
    by a.tpmvprdr, a.cdbnc, a.nrdcmrct, a.nrprdcrc, A.DTMVPDCR, A.HRMVPRDC