Sintoma

Liquidação - liq024 - disponibilizar variáveis no include X01

Solução

Liquidação - liq024 - disponibilizar variáveis no include X01

Informações Complementares

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

Nota Número 06419 Data: 18/04/2008 Hora: 11:13:53

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

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

Nota Número              : 06419

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00005

Agrupamento              : 00043

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

Referência às notas relacionadas:

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

03291  - 00001 - 6.0    - 00026  - LIQUIDAÇÃO - EXIT LIQ024

04935  - 00002 - 7.0    - 00003  - LIQUIDAÇÃO - CAMBIO PRONTO COM VALORES MANTIDOS NO EXTERIOR

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

LIQUIDAÇÃO - LIQ024 - DISPONIBILIZAR VARIÁVEIS NO INCLUDE X01

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

Palavras Chave:

LIQUIDAÇÃO - LIQ024 - DISPONIBILIZAR VARIÁVEIS NO INCLUDE X01

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

Objetos da nota:

REPS /PWS/MZYCB004F02

REPS /PWS/MZYCB004TOP

REPS /PWS/MZYCB004X01

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

Modificações efetuadas em REPS /PWS/MZYCB004F02

...

      /pws/zycbe001-dtvincul = v_zycbe001-dtvincul.

    ENDIF.

  ENDLOOP.

  sy-subrc = v_subrc.

ENDFORM.

FORM desmembra_cliente.

  DATA: v_subrc LIKE sy-subrc,

        v_wrbtr LIKE bsid-wrbtr,

        v_kunnr TYPE kunnr,

        wa_zycbt226 LIKE LINE OF itab_zycbt226,

* >> Início da exclusão: FORM DESMEMBRA_CLIENTE

        v_op,

* << Fim da exclusão

        v_dtliquid LIKE /pws/zycbt006-dtpagto,

        v_dtemb    LIKE /pws/zycet001-dtemb.

  CLEAR   itab_doctos.

  REFRESH itab_doctos.

  DATA: v_gjahr TYPE gjahr.

  PERFORM clear_date_batch.

  CLEAR: v_data,

         v_codeven.

  CONCATENATE '003' itab_zycbt006-tpcontr INTO v_codeven.

  CLEAR itab_zyglt321.

...

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

Modificações efetuadas em REPS /PWS/MZYCB004TOP

...

      v_variacao       LIKE /pws/zycbt005-vlme_p,

      v_parafator      LIKE  tcurr-tfact,

      v_defator        LIKE  tcurr-ffact,

      v_txcbrl_fat     LIKE tcurr-ukurs,

      v_txcbrl_cont    LIKE tcurr-ukurs,

      v_data_f_28      LIKE sy-datum,

      v_reais_f        LIKE /pws/zycbt005-vlme_p,

      v_juros_dif      LIKE /pws/zycbt005-vlme_p,

      v_vinc,

      v_sbu,

* >> Início da exclusão:

      v_vinc_tot,

* << Fim da exclusão

      v_calc_jur       LIKE /pws/zycbt005-vlme_p,

      v_taxa_vazia     TYPE c,

      v_exit1(1)       TYPE c,

      v_cont           TYPE i       ,

      v_index1         LIKE sy-tabix,

      v_buzei          LIKE bseg-buzei,

      v_zbd1t          LIKE bsid-zbd1t,

      v_ztag1          LIKE t052-ztag1,

      v_zterm          LIKE bsid-zterm,

      v_tabix          TYPE sy-tabix,

...

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

Modificações efetuadas em REPS /PWS/MZYCB004X01

...

       t_zycbt225 TYPE SORTED TABLE OF t_s_liqand

         WITH NON-UNIQUE DEFAULT KEY.

DATA: itab_zycbt226 TYPE t_zycbt226,

      itab_zycbt225 TYPE t_zycbt225,

      v_liquida2    TYPE c.

DATA: v_descr_exit LIKE /pws/zyglt100-zexit VALUE 'LIQ002',

      v_exit004    LIKE /pws/zyglt100-zexit VALUE 'LIQ003',

      v_codmod     TYPE c VALUE 'E',

      v_rep        LIKE sy-repid,

      v_text(4)    TYPE c,

* >> Início da exclusão:

      ok_code      LIKE sy-ucomm.

* << Fim da exclusão

* >> Início da inclusão:

      ok_code      LIKE sy-ucomm,

      v_op,

      v_vinc_tot.

* << Fim da inclusão

DATA:

  wa_zycbt004 LIKE /pws/zycbt004,

  wa_zycbt007 LIKE /pws/zycbt007.

DATA: v_zycbe001 TYPE /pws/zycbe001.

DATA: BEGIN OF itab_paridade OCCURS 0.

        INCLUDE STRUCTURE /pws/zycbt006.

DATA: v_parid         LIKE /pws/zycbt005-parid,

      v_vlme_c        LIKE /pws/zycbt005-vlvinc,

      v_waers_c       LIKE /pws/zycbt005-waers_c.

DATA: END OF itab_paridade.

...