Sintoma

Criar ponto de exit que permita não provisionar os juros na Liquidação. Neste caso é para

provisionar apenas na Rotina Mensal.

Solução

Criar o ponto de exit LIQ031 que permita não efetuar a provisão de juros na liquidação.

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 07882 Data: 08/01/2009 Hora: 16:13:00

----------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------

Nota Número              : 07882

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00008

Agrupamento              : 00080

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

03678  - 00001 - 7.0    - 00001  - LIQUIDAÇÃO - DA - CHECK DOS DOCUMENTOS - ESTORNO DAS FATURAS

03807  - 00002 - 7.0    - 00001  - LIQUIDAÇÃO - ESTORNO DAS PROVISÕES E CALCULO.

06887  - 00003 - 7.0    - 00006  - LIQUIDAÇÃO - ESTORNO COMISSÃO DE AGENTE

----------------------------------------------------------------------------------------------------

LIQUIDAÇÃO - PONTO DE EXIT LIQ031 - EVITA PROVISÃO DE JUROS

----------------------------------------------------------------------------------------------------

Palavras Chave:

LIQUIDAÇÃO - PONTO DE EXIT LIQ031 - EVITA PROVISÃO DE JUROS

----------------------------------------------------------------------------------------------------

Objetos da nota:

REPS /PWS/MZYCB004F01

REPS /PWS/MZYCB004TOP

REPS /PWS/MZYCB004X01

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCB004F01

...

              i_bloqueia    = ' '

         TABLES

              itab_zycbt224 = itab_zycbe224

         EXCEPTIONS

              zycbe224_null = 1

              erro_bloqueio = 2

              OTHERS        = 3.

    IF sy-subrc NE 0.

    ENDIF.

    IF itab_zycbt006-v_status <> 'N'.

* >> Início da inclusão: FORM GRAVA_TABELAS

      PERFORM busca_exit.

      READ TABLE itab_zyglt100 WITH KEY zexit = 'LIQ031'.

      IF sy-subrc EQ 0 AND NOT itab_zyglt100-zexit_ativa IS INITIAL.

        PERFORM (itab_zyglt100-formulario)

                IN PROGRAM (itab_zyglt100-programa).

      ELSE.

* << Fim da inclusão

      IF ( /pws/zycbt001-tpcontr(1) EQ 'A' OR

           /pws/zycbt001-tpcontr(1) EQ 'E' OR

           /pws/zycbt001-tpcontr(1) EQ 'D' OR

           /pws/zycbt001-tpcontr(1) EQ 'T' ) AND

        wa_zycbt007-fprovisao EQ 'C'

        AND v_subrc = 0.

        CLEAR   itab_zycbt154.

        REFRESH itab_zycbt154.

        SELECT * FROM /pws/zycbt154 INTO TABLE itab_zycbt154

                 WHERE nrcorresp = /pws/zycbe005-nrseqc

...

...

                   AND dtcont    = v_dtpagto

                   AND dtpagext  = v_dtpagext

                   AND codmodul  = 'JU'

                   AND codmod    = 'E'

                   AND liquid    = 'X'.

        IF sy-tcode NE c_transacao_c.

          PERFORM estorna_diferenca_juros.

        ENDIF.

        PERFORM busca_liquidacoes.

        PERFORM provisiona_diferenca_juros.

* >> Início da inclusão: FORM GRAVA_TABELAS

        ENDIF.

* << Fim da inclusão

      ENDIF.

    ENDIF.

    IF wa_zycbt007-liq_com_cg NE 'RP'.

      PERFORM estorna_comissao.

    ENDIF.

    PERFORM atualiza_tabelas_transp2.

    IF wa_zycbt007-liq_com_cg NE 'RP'.

      PERFORM liquida_comissao_agente.

    ENDIF.

    IF NOT itab_erro[] IS INITIAL.

...

...

         EXPORTING

              i_bloqueia    = ' '

         TABLES

              itab_zycbt224 = itab_zycbe224

         EXCEPTIONS

              zycbe224_null = 1

              erro_bloqueio = 2

              OTHERS        = 3.

    IF sy-subrc NE 0.

    ENDIF.

* >> Início da inclusão: FORM GRAVA_TABELAS

    PERFORM busca_exit.

    READ TABLE itab_zyglt100 WITH KEY zexit = 'LIQ031'.

    IF sy-subrc EQ 0 AND NOT itab_zyglt100-zexit_ativa IS INITIAL.

      PERFORM (itab_zyglt100-formulario)

              IN PROGRAM (itab_zyglt100-programa).

    ELSE.

* << Fim da inclusão

    IF ( /pws/zycbt001-tpcontr(1) EQ 'A' OR

         /pws/zycbt001-tpcontr(1) EQ 'E' OR

         /pws/zycbt001-tpcontr(1) EQ 'D' OR

         /pws/zycbt001-tpcontr(1) EQ 'T' ) AND

      wa_zycbt007-fprovisao EQ 'C'.

      CLEAR   itab_zycbt154.

      REFRESH itab_zycbt154.

      SELECT * FROM /pws/zycbt154 INTO TABLE itab_zycbt154

               WHERE nrcorresp = /pws/zycbe005-nrseqc

                 AND tpcontr   = /pws/zycbe005-tpcontr

                 AND dtcont    = v_dtpagto

                 AND dtpagext  = v_dtpagext

                 AND codmodul  = 'JU'

                 AND codmod    = 'E'

                 AND liquid    = 'X'.

      IF sy-tcode NE c_transacao_c.

        PERFORM estorna_diferenca_juros.

      ENDIF.

      PERFORM busca_liquidacoes.

      PERFORM provisiona_diferenca_juros.

* >> Início da inclusão: FORM GRAVA_TABELAS

      ENDIF.

* << Fim da inclusão

    ENDIF.

    PERFORM atualiza_tabelas_transparentes.

    IF NOT itab_contabil[] IS INITIAL.

      PERFORM executa_exit_p USING 'LIQ019'.

      EXPORT itab_contabil TO MEMORY ID '040'.

      EXPORT text-059 TO MEMORY ID '050'.

      IF v_vinculacao IS INITIAL.

        SUBMIT /pws/zycbr040 AND RETURN.

        REFRESH itab_contabil.

      ENDIF.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCB004TOP

...

        hkont LIKE bsas-hkont,

        gjahr LIKE bsas-gjahr,

        belnr LIKE bsas-belnr,

        bschl LIKE bsas-bschl,

        gsber LIKE bsas-gsber,

        wrbtr LIKE bsas-wrbtr,

        sgtxt LIKE bsas-sgtxt,

        zuonr LIKE bsas-zuonr,

        budat LIKE bsas-budat,

      END OF itab_bsas_aux.

* >> Início da exclusão:

DATA: BEGIN OF itab_periodos_j OCCURS 0.

DATA: nrseqc   LIKE /pws/zycbt005-nrseqc,

      tpdesp   LIKE /pws/zycbt005-tpdesp,

      nrparc   LIKE /pws/zycbt005-nrparc,

      dtincl   LIKE /pws/zycbt005-dtincl,

      nrinvoic LIKE /pws/zycbt005-nrinvoic,

      nrparcf  LIKE /pws/zycbt005-nrparcf,

      gsberf   LIKE /pws/zycbt005-gsberf,

      dtvincul LIKE /pws/zycbt005-dtvincul,

      dtvencto LIKE /pws/zycbt005-dtvencto,

      dtde     LIKE /pws/zycbt002-dtinicio,

      dtate    LIKE /pws/zycbt002-dtfinal,

      nrdiasj  LIKE /pws/zycbt002-nrdiasj,

      txjur    LIKE /pws/zycbt002-txjtotal,

      tptxj    LIKE /pws/zycbt002-tptxjur,

      tpper    TYPE c,

      vlme     TYPE /pws/zycbt002-vlme.

DATA: END OF itab_periodos_j.

DATA: BEGIN OF itab_zycbt154 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycbt154.

DATA: END OF itab_zycbt154.

* << Fim da exclusão

TYPE-POOLS: sydes.

DATA: t_sydes  TYPE sydes_desc,

      wa_types TYPE sydes_typeinfo,

      v_len    TYPE i.

DATA:

      wa_zycbt009   LIKE /pws/zycbt009,

      wa_zycbt011   LIKE /pws/zycbt011,

      wa_zycbt011_d LIKE /pws/zycbt011,

      wa_t001w      LIKE t001w.

CONTROLS:

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCB004X01

...

      v_vldif_arb LIKE /pws/zycbt006-vlme,

      v_performance,

      END OF itab_zycbt006.

DATA: BEGIN OF itab_zycbe033 OCCURS 10.

        INCLUDE STRUCTURE /pws/zycbe033.

DATA: chave LIKE /pws/zycbe033-cpochv,

      END OF itab_zycbe033.

DATA: BEGIN OF itab_zyglt321 OCCURS 0.

        INCLUDE STRUCTURE /pws/zyglt321.

DATA: END OF itab_zyglt321.

* >> Início da inclusão:

DATA: BEGIN OF itab_periodos_j OCCURS 0.

DATA: nrseqc   LIKE /pws/zycbt005-nrseqc,

      tpdesp   LIKE /pws/zycbt005-tpdesp,

      nrparc   LIKE /pws/zycbt005-nrparc,

      dtincl   LIKE /pws/zycbt005-dtincl,

      nrinvoic LIKE /pws/zycbt005-nrinvoic,

      nrparcf  LIKE /pws/zycbt005-nrparcf,

      gsberf   LIKE /pws/zycbt005-gsberf,

      dtvincul LIKE /pws/zycbt005-dtvincul,

      dtvencto LIKE /pws/zycbt005-dtvencto,

      dtde     LIKE /pws/zycbt002-dtinicio,

      dtate    LIKE /pws/zycbt002-dtfinal,

      nrdiasj  LIKE /pws/zycbt002-nrdiasj,

      txjur    LIKE /pws/zycbt002-txjtotal,

      tptxj    LIKE /pws/zycbt002-tptxjur,

      tpper    TYPE c,

      vlme     TYPE /pws/zycbt002-vlme.

DATA: END OF itab_periodos_j.

DATA: BEGIN OF itab_zycbt154 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycbt154.

DATA: END OF itab_zycbt154.

* << Fim da inclusão

DATA: v_retorno     TYPE sy-subrc,

      v_modo_bi(1)  TYPE c,

      v_dp(1)       TYPE c.

DATA: itab_zycbt032

      TYPE STANDARD TABLE OF /pws/zycbt032 WITH HEADER LINE,

      itab_zycbt034

      TYPE STANDARD TABLE OF /pws/zycbt034 WITH HEADER LINE.

DATA BEGIN OF itab_doctos OCCURS 0.

        INCLUDE STRUCTURE /pws/zycbt036.

DATA END OF itab_doctos.

...