Sintoma

Disponibilizar a tabela interna itab_paridade no include X01, para ser utilizada no ponto de exit

LIQ005.

Solução

Disponibilizar a tabela interna itab_paridade no include X01, para ser utilizada no ponto de exit

LIQ005.

Informações Complementares

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

Nota Número 05904 Data: 12/02/2008 Hora: 14:43:47

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

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

Nota Número              : 05904

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00004

Agrupamento              : 00034

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

LIQUIDAÇÃO - PONTO DE EXIT LIQ005(DISPONIBILIZAR NOVA TABELA)

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

Palavras Chave:

LIQUIDAÇÃO - PONTO DE EXIT LIQ005(DISPONIBILIZAR NOVA TABELA)

ITAB_PARIDADE

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

Objetos da nota:

REPS /PWS/MZYCB004TOP

REPS /PWS/MZYCB004X01

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

Modificações efetuadas em REPS /PWS/MZYCB004TOP

...

     END OF itab_zycbt017_cred.

DATA: BEGIN OF itab_zycet010 OCCURS 1.

        INCLUDE STRUCTURE /pws/zycet010.

DATA: END OF itab_zycet010.

DATA: BEGIN OF itab_zycet013 OCCURS 1.

        INCLUDE STRUCTURE /pws/zycet013.

DATA: END OF itab_zycet013.

DATA: BEGIN OF itab_zycbt012a OCCURS 2.

        INCLUDE STRUCTURE /pws/zycbt012.

DATA: END OF itab_zycbt012a.

* >> Início da exclusão:

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.

* << Fim da exclusão

DATA: itab_thead LIKE thead OCCURS 50 WITH HEADER LINE,

      itab_tline LIKE tline OCCURS 50 WITH HEADER LINE.

DATA: BEGIN OF itab_t320 OCCURS 0,

          campo(35) TYPE c,

          flag,

        END OF itab_t320.

DATA: BEGIN OF itab_nome_campo OCCURS 0,

         nome_campo_tela(35) TYPE c,

         modif,

       END OF itab_nome_campo.

...

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

Modificações efetuadas em REPS /PWS/MZYCB004X01

...

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,

      ok_code      LIKE sy-ucomm.

DATA:

  wa_zycbt004 LIKE /pws/zycbt004,

  wa_zycbt007 LIKE /pws/zycbt007.

DATA: v_zycbe001 TYPE /pws/zycbe001.

* >> Início da inclusão:

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.

* << Fim da inclusão

DATA: BEGIN OF itab_zycbt005 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycbt005.

DATA:   vlme        LIKE /pws/zycbe006-vlme,

        dtpagto     LIKE /pws/zycbe006-dtpagto,

        v_status,

        v_vldif     LIKE /pws/zycbt006-vlme,

        v_vlmeant   LIKE /pws/zycbt006-vlme,

        v_armda,

        v_vljur     LIKE /pws/zycbt006-vljur,

        v_vlcomis   LIKE /pws/zycbt006-vlcomis,

...