quarta-feira, 27 de novembro de 2013

SQL Busca Títulos a Pagar e Movto dos Títulos ( Datasul )


SELECT --TO_CHAR(MOVTO_TIT_AP.VAL_MOVTO_AP,'999,999,999.99') VLR
       &DT_NOVA_LIBERACA0 DATA_NOVA_LIBERACAO
     , TO_CHAR(MOVTO_TIT_AP.DAT_GERAC_MOVTO,'DD/MM/YYYY')||' '||
       SUBSTR(MOVTO_TIT_AP.HRA_GERAC_MOVTO,1,2)||':'||
       SUBSTR(MOVTO_TIT_AP.HRA_GERAC_MOVTO,3,2)||':'||
       SUBSTR(MOVTO_TIT_AP.HRA_GERAC_MOVTO,5,2) DT_HR_IMPLANTACAO_TIT
     , UPPER(MOVTO_TIT_AP.COD_USUARIO) USUARIO_IMPLANTACAO_TIT
     --, TIT_AP.U##COD_EMPRESA
     , TIT_AP.DAT_TRANSACAO
     , MOVTO_TIT_AP.DAT_GERAC_MOVTO
     , TIT_AP.U##COD_ESTAB ESTABELECIMENTO
     , TIT_AP.CDN_FORNECEDOR FORNECEDOR
     , FORNECEDOR.U##NOM_PESSOA NOME_FORNECEDOR
     /*
     , ( SELECT FORNECEDOR.U##NOM_PESSOA
           FROM EMS505BPORO8P930UNI.FORNECEDOR
          WHERE 0 = 0
            AND FORNECEDOR.CDN_FORNECEDOR = TIT_AP.CDN_FORNECEDOR
            AND FORNECEDOR.U##COD_EMPRESA = TIT_AP.U##COD_EMPRESA
       ) NOME_FORNECEDOR
     */
     , TIT_AP.U##COD_ESPEC_DOCTO ESPECIE_DOCTO
     , TIT_AP.U##COD_SER_DOCTO SERIE_DOCTO
     , TIT_AP.U##COD_TIT_AP TITULO
     , TIT_AP.U##COD_PARCELA PARCELA
     , TIT_AP.VAL_ORIGIN_TIT_AP VLR_ORIGINAL_TITULO
     , TIT_AP.DAT_VENCTO_TIT_AP DT_VENCTO
     --, MOVTO_TIT_AP.U##COD_ESTAB
     , TIT_AP.NUM_ID_TIT_AP
     , TIT_AP.ROWID TIT_AP_ROWID
     , MOVTO_TIT_AP.NUM_ID_MOVTO_TIT_AP
     , MOVTO_TIT_AP.ROWID MOVTO_TIT_AP_ROWID
     , SYSDATE DT_HR_CONSULTA
     , TIT_AP.VAL_SDO_TIT_AP VLR_ORIGINAL_TITULO
     , PROCES_PAGTO.U##IND_SIT_PROCES_PAGTO
     , PROCES_PAGTO.DAT_LIBER_PAGTO
     , PROCES_PAGTO.DAT_PREPAR_PAGTO
     /*
     , 'UPDATE EMS505BPORO8P930FIN.MOVTO_TIT_AP SET MOVTO_TIT_AP.DAT_GERAC_MOVTO = TO_DATE('||CHR(39)||'31/12/2007'||CHR(39)||') WHERE MOVTO_TIT_AP.PROGRESS_RECID = '||MOVTO_TIT_AP.PROGRESS_RECID||';'
       SCTIPT_MOVTO_TIT_AP_UPDATE
     , 'UPDATE EMS505BPORO8P930FIN.MOVTO_TIT_AP SET MOVTO_TIT_AP.DAT_GERAC_MOVTO = TO_DATE('||CHR(39)||MOVTO_TIT_AP.DAT_GERAC_MOVTO||CHR(39)||') WHERE MOVTO_TIT_AP.PROGRESS_RECID = '||MOVTO_TIT_AP.PROGRESS_RECID||';'
       SCTIPT_MOVTO_TIT_AP_ORIGINAL
     , 'UPDATE EMS505BPORO8P930FIN.PROCES_PAGTO SET PROCES_PAGTO.DAT_LIBER_PAGTO = TO_DATE('||CHR(39)||'31/12/2007'||CHR(39)||'),'
       ||' PROCES_PAGTO.DAT_PREPAR_PAGTO = TO_DATE('||CHR(39)||'31/12/2007'||CHR(39)||')'
       ||' WHERE PROCES_PAGTO.PROGRESS_RECID = '||PROCES_PAGTO.PROGRESS_RECID||';'
       SCRIPT_PROCES_PAGTO_UPDATE
     , 'UPDATE EMS505BPORO8P930FIN.PROCES_PAGTO SET PROCES_PAGTO.DAT_LIBER_PAGTO = TO_DATE('||CHR(39)||PROCES_PAGTO.DAT_LIBER_PAGTO||CHR(39)||'),'
       ||' PROCES_PAGTO.DAT_PREPAR_PAGTO = TO_DATE('||CHR(39)||PROCES_PAGTO.DAT_PREPAR_PAGTO||CHR(39)||')'
       ||' WHERE PROCES_PAGTO.PROGRESS_RECID = '||PROCES_PAGTO.PROGRESS_RECID||';'
       SCRIPT_PROCES_PAGTO_ORIGINAL
     */
     , 'UPDATE EMS505BPORO8P930FIN.MOVTO_TIT_AP SET MOVTO_TIT_AP.DAT_GERAC_MOVTO = TO_DATE('||CHR(39)||&DT_NOVA_LIBERACA0||CHR(39)||') WHERE MOVTO_TIT_AP.PROGRESS_RECID = '||MOVTO_TIT_AP.PROGRESS_RECID||';' --||chr(13)||
       SCRIPT_MOVTO_TIT_AP_UPDATE
     , 'UPDATE EMS505BPORO8P930FIN.PROCES_PAGTO SET PROCES_PAGTO.DAT_LIBER_PAGTO = TO_DATE('||CHR(39)||&DT_NOVA_LIBERACA0||CHR(39)||'),'
           ||' PROCES_PAGTO.DAT_PREPAR_PAGTO = TO_DATE('||CHR(39)||&DT_NOVA_LIBERACA0||CHR(39)||')'
           ||' WHERE PROCES_PAGTO.PROGRESS_RECID = '||PROCES_PAGTO.PROGRESS_RECID||';'
       SCRIPT_PROCES_PAGTO_UPDATE -- MOVTO_TIT_AP e PROCES_PAGTO
     , 'UPDATE EMS505BPORO8P930FIN.MOVTO_TIT_AP SET MOVTO_TIT_AP.DAT_GERAC_MOVTO = TO_DATE('||CHR(39)||MOVTO_TIT_AP.DAT_GERAC_MOVTO||CHR(39)||') WHERE MOVTO_TIT_AP.PROGRESS_RECID = '||MOVTO_TIT_AP.PROGRESS_RECID||';'-- ||chr(13)||
       SCTIPT_MOVTO_TIT_AP_ORIGINAL
     , 'UPDATE EMS505BPORO8P930FIN.PROCES_PAGTO SET PROCES_PAGTO.DAT_LIBER_PAGTO = TO_DATE('||CHR(39)||PROCES_PAGTO.DAT_LIBER_PAGTO||CHR(39)||'),'
           ||' PROCES_PAGTO.DAT_PREPAR_PAGTO = TO_DATE('||CHR(39)||PROCES_PAGTO.DAT_PREPAR_PAGTO||CHR(39)||')'
           ||' WHERE PROCES_PAGTO.PROGRESS_RECID = '||PROCES_PAGTO.PROGRESS_RECID||';'
       SCTIPT_PROCES_PAGTO_ORIGINAL --MOVTO_TIT_AP e PROCES_PAGTO
     , 'DELETE FROM EMS505BPORO8P930FIN.PROCES_PAGTO WHERE PROCES_PAGTO.PROGRESS_RECID = '||PROCES_PAGTO.PROGRESS_RECID||';'
       SCRIPT_DELETE
     --, MOVTO_TIT_AP.*
     --, TIT_AP.*
     --  TO_CHAR(SUM(MOVTO_TIT_AP.VAL_MOVTO_AP),'999999999.99')
  FROM EMS505BPORO8P930UNI.FORNECEDOR
     , EMS505BPORO8P930FIN.PROCES_PAGTO
     , EMS505BPORO8P930FIN.MOVTO_TIT_AP
     , EMS505BPORO8P930FIN.TIT_AP
 WHERE 0 = 0
   ----------------------------------------------
   /*
   AND FORNECEDOR.COD_GRP_FORNEC = 99
   AND MOVTO_TIT_AP.DAT_GERAC_MOVTO > '31/03/2009'
   AND TIT_AP.U##COD_ESPEC_DOCTO = 'DP'
   AND TIT_AP.DAT_TRANSACAO BETWEEN '01/03/2009' AND '31/03/2009'
   AND TIT_AP.VAL_SDO_TIT_AP > 0
   */
   --/*
   --AND TIT_AP.U##COD_EMPRESA = '1'
   AND TIT_AP.CDN_FORNECEDOR = &COD_FORNECEDOR -- 8932
   AND TIT_AP.U##COD_ESTAB = UPPER(&COD_ESTAB) -- '101'
   AND TIT_AP.U##COD_ESPEC_DOCTO = UPPER(&ESPEC_DOCTO) -- 'FI'
   --AND TRIM(TIT_AP.U##COD_SER_DOCTO) = ''
   AND TRIM(TIT_AP.U##COD_TIT_AP) = UPPER(&COD_TITULO) -- 'FÉRIAS'
   AND TIT_AP.U##COD_PARCELA = UPPER(&PARCELA) -- 'M1'
   AND PROCES_PAGTO.NUM_SEQ_PAGTO_TIT_AP = DECODE(NVL(&SEQ_PARCELA,0),0,PROCES_PAGTO.NUM_SEQ_PAGTO_TIT_AP,NVL(&SEQ_PARCELA,0))
   --*/
   /*
   AND TIT_AP.CDN_FORNECEDOR = 1722 -- 8932
   AND TIT_AP.U##COD_ESTAB = '301' -- '101'
   AND TIT_AP.U##COD_ESPEC_DOCTO = 'FA' -- 'FI'
   --AND TRIM(TIT_AP.U##COD_SER_DOCTO) = ''
   AND TRIM(TIT_AP.U##COD_TIT_AP) BETWEEN  '0000001' AND '0000025'
   AND TIT_AP.U##COD_PARCELA = '02'
   */

   ----------------------------------------------
   AND FORNECEDOR.CDN_FORNECEDOR = TIT_AP.CDN_FORNECEDOR
   AND FORNECEDOR.U##COD_EMPRESA = TIT_AP.U##COD_EMPRESA

   AND PROCES_PAGTO.U##COD_PARCELA = TIT_AP.U##COD_PARCELA
   AND PROCES_PAGTO.U##COD_TIT_AP = TIT_AP.U##COD_TIT_AP
   AND PROCES_PAGTO.U##COD_SER_DOCTO = TIT_AP.U##COD_SER_DOCTO
   AND PROCES_PAGTO.U##COD_ESPEC_DOCTO = TIT_AP.U##COD_ESPEC_DOCTO
   AND PROCES_PAGTO.CDN_FORNECEDOR = TIT_AP.CDN_FORNECEDOR
   AND PROCES_PAGTO.U##COD_ESTAB = TIT_AP.U##COD_ESTAB
   AND PROCES_PAGTO.COD_EMPRESA = TIT_AP.COD_EMPRESA

   AND TIT_AP.NUM_ID_TIT_AP = MOVTO_TIT_AP.NUM_ID_TIT_AP
   --AND (    ( MOVTO_TIT_AP.DAT_GERAC_MOVTO = TO_DATE('04/08/2006','DD/MM/YYYY') AND MOVTO_TIT_AP.HRA_GERAC_MOVTO >= 180000 )
   --      OR ( MOVTO_TIT_AP.DAT_GERAC_MOVTO = TO_DATE('07/08/2006','DD/MM/YYYY') AND MOVTO_TIT_AP.HRA_GERAC_MOVTO <= 170000 )
   --    )
   -- IMPLANTADOS
   AND MOVTO_TIT_AP.U##IND_TRANS_AP_ABREV = 'IMPL'
   -- COM VENCIMENTO NO PERIODO DE:
   --AND TIT_AP.DAT_VENCTO_TIT_AP >= TO_DATE('04/08/2006','DD/MM/YYYY')
   --AND TIT_AP.DAT_VENCTO_TIT_AP <= TO_DATE('07/08/2006','DD/MM/YYYY')
   -- EXTORNADOS
   --AND MOVTO_TIT_AP.U##IND_TRANS_AP_ABREV = 'ESTT'
   --AND MOVTO_TIT_AP.VAL_MOVTO_AP >= 50000
   /*
   AND TIT_AP.U##COD_ESPEC_DOCTO = 'DP'
   AND TIT_AP.U##COD_TIT_AP = '0032553'
   AND TIT_AP.CDN_FORNECEDOR = 3864
   AND TIT_AP.U##COD_ESTAB = 101
   */
 ORDER BY --MOVTO_TIT_AP.COD_USUARIO
        --, MOVTO_TIT_AP.VAL_MOVTO_AP DESC
        --, MOVTO_TIT_AP.HRA_GERAC_MOVTO
          --TIT_AP.U##COD_ESPEC_DOCTO
          MOVTO_TIT_AP.DAT_GERAC_MOVTO
        , MOVTO_TIT_AP.HRA_GERAC_MOVTO

Nenhum comentário:

Postar um comentário