Advertisement
Guest User

Untitled

a guest
Sep 27th, 2018
91
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. SELECT cto.org_in_codigo,
  2.        env.est_in_codigo CODIGO_UNIDADE,
  3.        fis.agn_st_cpf,
  4.        cto.cto_in_codigo CODIGO_CONTRATO,
  5.        cto.cto_ch_status,
  6.        seq.par_st_observacao  Sequencia,
  7.        cli.agn_in_codigo,
  8.        cli.agn_st_nome,
  9.        cto.cto_dt_cadastro,      
  10.        par.par_in_codigo CODIGO_PARCELA,
  11.        par.par_dt_vencimento,
  12.        par.par_ch_parcela,
  13.        par.par_re_valormulta,
  14.        par.par_re_valordesconto,
  15.        par.par_ch_receita,
  16.        emp.est_st_nome   EmpNome,
  17.        blo.est_st_codigo CodBloco,
  18.        blo.est_st_nome   NomBloco,
  19.        un1.est_st_codigo CodUnidade,
  20.        un1.est_st_nome   NomUnidade,
  21.        par.par_re_valororiginal,
  22.        par.par_dt_baixa,
  23.        TO_CHAR(par.par_dt_vencimento,'YYYY-MM-DD') par_dt_vencimento_format,
  24.        TO_CHAR(par.par_dt_baixa,'YYYY-MM-DD') par_dt_baixa_format,
  25.        par.par_ch_origem,
  26.        par.par_re_residuocobranca,
  27.        mgcli.pck_bld_app.F_Car_Correcao_Parcela(PAR.ORG_TAB_IN_CODIGO
  28.       , PAR.ORG_PAD_IN_CODIGO
  29.       , PAR.ORG_IN_CODIGO
  30.       , PAR.ORG_TAU_ST_CODIGO
  31.       , PAR.CTO_IN_CODIGO
  32.       , PAR.PAR_IN_CODIGO
  33.       , TRUNC(SYSDATE)) VALOR_CORRECAO, --> trocar para data base
  34.        mgcli.pck_bld_app.F_Car_VlrJurCont_Parcela(PAR.ORG_TAB_IN_CODIGO
  35.         , PAR.ORG_PAD_IN_CODIGO
  36.         , PAR.ORG_IN_CODIGO
  37.         , PAR.ORG_TAU_ST_CODIGO
  38.         , PAR.CTO_IN_CODIGO
  39.         , PAR.PAR_IN_CODIGO
  40.         , TRUNC(SYSDATE)) VALOR_JUROS_CONT,
  41.        mgcli.pck_bld_app.F_Car_VlrMulta_Parcela(PAR.ORG_TAB_IN_CODIGO
  42.         , PAR.ORG_PAD_IN_CODIGO
  43.         , PAR.ORG_IN_CODIGO
  44.         , PAR.ORG_TAU_ST_CODIGO
  45.         , PAR.CTO_IN_CODIGO
  46.         , PAR.PAR_IN_CODIGO
  47.         , TRUNC(SYSDATE)) VALOR_MULTA,
  48.        mgcli.pck_bld_app.F_Car_VlrAtraso_Parcela(PAR.ORG_TAB_IN_CODIGO
  49.         , PAR.ORG_PAD_IN_CODIGO
  50.         , PAR.ORG_IN_CODIGO
  51.         , PAR.ORG_TAU_ST_CODIGO
  52.         , PAR.CTO_IN_CODIGO
  53.         , PAR.PAR_IN_CODIGO
  54.         , TRUNC(SYSDATE)) VALOR_ATRASO,
  55.        DECODE(par.par_dt_baixa,NULL,(ROUND( NVL( mgcar.pck_car_fnc.fnc_car_corrige(par.org_tab_in_codigo
  56.       , par.org_pad_in_codigo
  57.       , par.org_in_codigo
  58.       , par.org_tau_st_codigo
  59.       , par.cto_in_codigo
  60.       , par.par_in_codigo
  61.       , TRUNC(SYSDATE)
  62.       , 'RP'
  63.       , 'A'
  64.       , -1
  65.       , 'N'), 0), 2))
  66.        ,0) Valor_Devido,
  67.        
  68.         DECODE(par.par_dt_baixa,NULL,0
  69.         ,(ROUND( NVL( PAR.PAR_RE_VALORPAGO        , 0), 2)
  70.         + ROUND( NVL( PAR.PAR_RE_CREDITO          , 0), 2)
  71.         + ROUND( NVL( PAR.PAR_RE_RESIDUOCOBRANCA  , 0), 2)
  72.         + ROUND( NVL( PAR.PAR_RE_VALORMULTA       , 0), 2)
  73.         + ROUND( NVL( PAR.PAR_RE_VALORATRASO      , 0), 2)
  74.         - ROUND( NVL( PAR.PAR_RE_VALORDESCONTO    , 0), 2)
  75.         + ROUND( NVL( PAR.PAR_RE_VALORCORRECAO_ATR, 0), 2)
  76.         + ROUND( NVL( MGCAR.PCK_CAR_FNC.FNC_CAR_TOTAL_TAXASPARCELA( PAR.ORG_TAB_IN_CODIGO
  77.       , PAR.ORG_PAD_IN_CODIGO
  78.       , PAR.ORG_IN_CODIGO
  79.       , PAR.ORG_TAU_ST_CODIGO
  80.       , PAR.CTO_IN_CODIGO
  81.       , PAR.PAR_IN_CODIGO), 0), 2))) Vlr_Pago
  82.        
  83.         FROM mgcar.car_contrato           cto,
  84.              mgcar.car_parcela            par,
  85.              mgcar.car_parcela_observacao seq,
  86.              mgcar.car_contrato_envolvido env,
  87.              mgcar.car_contrato_cliente   ccl,
  88.              mgglo.glo_agentes            cli,
  89.              mgglo.glo_pessoa_fisica      fis,
  90.              mgglo.glo_agentes            fil,
  91.              mgdbm.dbm_estrutura          un1,
  92.              mgdbm.dbm_estrutura          emp,
  93.              mgdbm.dbm_estrutura          blo,
  94.              mgdbm.dbm_unidade            und
  95.  
  96.    WHERE par.par_ch_status     <> 'I'
  97.    AND   (fis.agn_ch_tipo          = 'P' OR cli.agn_ch_tipopessoafj = 'J')
  98.    AND   env.est_in_codigo         = {$idUnidade}
  99.    AND   ( fis.agn_st_cpf          = '{$cpfCliente}'   OR cli.agn_st_cgc = '{$cpfCliente}'  )
  100.  
  101.    AND   cto.cto_in_codigo         = par.cto_in_codigo
  102.    AND   cto.org_tau_st_codigo     = par.org_tau_st_codigo
  103.    AND   cto.org_in_codigo         = par.org_in_codigo
  104.    AND   cto.org_pad_in_codigo     = par.org_pad_in_codigo
  105.    AND   cto.org_tab_in_codigo     = par.org_tab_in_codigo
  106.  
  107.    AND   par.par_in_codigo         = seq.par_in_codigo
  108.    AND   par.cto_in_codigo         = seq.cto_in_codigo
  109.    AND   par.org_tau_st_codigo     = seq.org_tau_st_codigo
  110.    AND   par.org_in_codigo         = seq.org_in_codigo
  111.    AND   par.org_pad_in_codigo     = seq.org_pad_in_codigo
  112.    AND   par.org_tab_in_codigo     = seq.org_tab_in_codigo
  113.  
  114.    AND   cto.cto_in_codigo         = ccl.cto_in_codigo
  115.   AND   cto.org_tau_st_codigo     = ccl.org_tau_st_codigo
  116.    AND   cto.org_in_codigo         = ccl.org_in_codigo
  117.   AND   cto.org_pad_in_codigo     = ccl.org_pad_in_codigo
  118.    AND   cto.org_tab_in_codigo     = ccl.org_tab_in_codigo
  119.  
  120.    AND   ccl.agn_in_codigo         = cli.agn_in_codigo
  121.    AND   ccl.agn_pad_in_codigo     = cli.agn_pad_in_codigo
  122.    AND   ccl.agn_tab_in_codigo     = cli.agn_tab_in_codigo
  123.  
  124.    AND   ccl.agn_in_codigo         = fis.agn_in_codigo      (+)
  125.    AND   ccl.agn_pad_in_codigo     = fis.agn_pad_in_codigo  (+)
  126.    AND   ccl.agn_tab_in_codigo     = fis.agn_tab_in_codigo  (+)
  127.  
  128.    AND   par.cto_in_codigo         = cto.cto_in_codigo
  129.    AND   par.org_tau_st_codigo     = cto.org_tau_st_codigo
  130.    AND   par.org_in_codigo         = cto.org_in_codigo
  131.   AND   par.org_pad_in_codigo     = cto.org_pad_in_codigo
  132.    AND   par.org_tab_in_codigo     = cto.org_tab_in_codigo
  133.  
  134.    AND   cto.cto_in_codigo         = env.cto_in_codigo
  135.    AND   cto.org_tau_st_codigo     = env.org_tau_st_codigo
  136.    AND   cto.org_in_codigo         = env.org_in_codigo
  137.    AND   cto.org_pad_in_codigo     = env.org_pad_in_codigo
  138.    AND   cto.org_tab_in_codigo     = env.org_tab_in_codigo
  139.  
  140.    AND   env.est_in_codigo         = und.est_in_codigo
  141.    AND   env.est_org_tau_st_codigo = und.org_tau_st_codigo
  142.    AND   env.est_org_in_codigo     = und.org_in_codigo
  143.   AND   env.org_pad_in_codigo     = und.org_pad_in_codigo
  144.    AND   env.org_tab_in_codigo     = und.org_tab_in_codigo
  145.  
  146.    AND   env.est_in_codigo         = un1.est_in_codigo
  147.    AND   env.est_org_tau_st_codigo = un1.org_tau_st_codigo
  148.    AND   env.est_org_in_codigo     = un1.org_in_codigo
  149.    AND   env.org_pad_in_codigo     = un1.org_pad_in_codigo
  150.    AND   env.org_tab_in_codigo     = un1.org_tab_in_codigo
  151.  
  152.    AND   und.emp_est_in_codigo     = emp.est_in_codigo
  153.    AND   und.org_tau_st_codigo     = emp.org_tau_st_codigo
  154.    AND   und.org_in_codigo         = emp.org_in_codigo
  155.    AND   und.org_pad_in_codigo     = emp.org_pad_in_codigo
  156.    AND   und.org_tab_in_codigo     = emp.org_tab_in_codigo
  157.  
  158.    AND   und.blo_est_in_codigo     = blo.est_in_codigo
  159.    AND   und.org_tau_st_codigo     = blo.org_tau_st_codigo
  160.    AND   und.org_in_codigo         = blo.org_in_codigo
  161.    AND   und.org_pad_in_codigo     = blo.org_pad_in_codigo
  162.    AND   und.org_tab_in_codigo     = blo.org_tab_in_codigo
  163.  
  164.    AND   cto.fil_in_codigo         = fil.agn_in_codigo
  165.    AND   cto.org_pad_in_codigo     = fil.agn_pad_in_codigo
  166.    AND   cto.org_tab_in_codigo     = fil.agn_tab_in_codigo
  167.  
  168.  
  169.    ORDER BY TO_NUMBER(SUBSTR(fil.agn_st_ordem,15,7)), emp.est_in_codigo,cto.cto_in_codigo,par.par_dt_vencimento
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement