Sintoma

Ajuste para atender consistência no ponto de exit LIQ001.

Solução

Ajuste para atender consistência no ponto de exit LIQ001.

Informações Complementares

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

Nota Número 04450 Data: 17/08/2007 Hora: 11:59:16

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

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

Nota Número              : 04450

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00002

Agrupamento              : 00009

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

LIQUIDAÇÃO - AJUSTE PARA PONTO DE EXIT LIQ001

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

Palavras Chave:

LIQUIDAÇÃO AJUSTE PARA PONTO DE EXIT LIQ001

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

Objetos da nota:

REPS /PWS/MZYCB004F02

REPS /PWS/MZYCB004TOP

REPS /PWS/MZYCB004X01

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

Modificações efetuadas em REPS /PWS/MZYCB004F02

...

            itab_zycbt006-nrinvoic text-206.

        itab_zycbt006-v_status = 'N'.

        itab_zycbt006-v_vldif = itab_zycbt006-vlme.

        MODIFY itab_zycbt006 TRANSPORTING v_status v_vldif

                             WHERE nrinvoic = itab_zycbt006-nrinvoic

                               AND nrparcf  = itab_zycbt006-nrparcf

                               AND gsberf   = itab_zycbt006-gsberf.

        CONTINUE.

      ENDIF.

    ENDIF.

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

    CLEAR v_liquida2.

* << Fim da inclusão

    MOVE sy-repid TO v_repid.

    CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'

         EXPORTING

              i_codmod      = 'E'

              i_func        = v_repid

         TABLES

              itab_zyglt100 = itab_zyglt100.

    READ TABLE itab_zyglt100 WITH KEY zexit = 'LIQ001'.

    IF sy-subrc EQ 0.

      IF NOT itab_zyglt100-programa   IS INITIAL AND

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

         NOT itab_zyglt100-formulario IS INITIAL.

* << Fim da exclusão

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

         NOT itab_zyglt100-formulario IS INITIAL AND

         NOT itab_zyglt100-zexit_ativa IS INITIAL.

* << Fim da inclusão

        PERFORM (itab_zyglt100-formulario)

          IN PROGRAM (itab_zyglt100-programa)

          TABLES   itab_zycbt209

          CHANGING v_slliq.

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

        IF NOT v_liquida2 IS INITIAL.

          CONTINUE.

        ENDIF.

* << Fim da inclusão

      ENDIF.

...

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

Modificações efetuadas em REPS /PWS/MZYCB004TOP

...

  knb1,

  t001a,

  /pws/zycbt009,

  /pws/zyglt009,

  /pws/zycbt003,

  /pws/zyglt364,

  /pws/zycbt154,

  j_1bbranch,

  adrc,

  t001,

* >> Início da exclusão:

  /pws/zycbt074,

  /pws/zycbt226,

  /pws/zycbt231.

* << Fim da exclusão

* >> Início da inclusão:

  /pws/zycbt074.

* << Fim da inclusão

* >> Início da exclusão:

TYPES: begin of t_s_ordem.

       INCLUDE STRUCTURE /pws/zycbt226.

TYPES:

       end of t_s_ordem,

       t_zycbt226 TYPE STANDARD TABLE OF t_s_ordem

        WITH NON-UNIQUE DEFAULT KEY.

TYPES: begin of t_s_liqand.

       INCLUDE STRUCTURE /pws/zycbt225.

TYPES: end of t_s_liqand,

       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.

* << Fim da exclusão

FIELD-SYMBOLS: <fs_zycbt226> TYPE t_s_ordem,

               <fs_zycbt225> TYPE t_s_liqand,

               <fs_liqand>   TYPE t_s_liqand-vlme,

               <fs_vltrans>  TYPE t_s_liqand-vlme.

CONSTANTS: c_transacao_c(14) VALUE '/PWS/ZYCB004_C',

           c_transacao_a(14) VALUE '/PWS/ZYCB004_A',

           c_transacao_e(14) VALUE '/PWS/ZYCB004_E'.

DEFINE preenche_erro.

  data:

    wa_erro like line of itab_erro[].

...

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

Modificações efetuadas em REPS /PWS/MZYCB004X01

TABLES:

  /pws/zycbe001,

  /pws/zycbt001,

  /pws/zycbt004,

  /pws/zycbe005,

  /pws/zycbt005,

  /pws/zycbe006,

  /pws/zycbt006,

* >> Início da exclusão:

  /pws/zyglt321.

* << Fim da exclusão

* >> Início da inclusão:

  /pws/zyglt321,

  /pws/zycbt226,

  /pws/zycbt231.

* << Fim da inclusão

DATA: BEGIN OF COMMON PART c.

* >> Início da inclusão:

TYPES: BEGIN OF t_s_ordem.

        INCLUDE STRUCTURE /pws/zycbt226.

TYPES:

       END OF t_s_ordem,

       t_zycbt226 TYPE STANDARD TABLE OF t_s_ordem

        WITH NON-UNIQUE DEFAULT KEY.

TYPES: BEGIN OF t_s_liqand.

        INCLUDE STRUCTURE /pws/zycbt225.

TYPES: END OF t_s_liqand,

       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.

* << Fim da inclusão

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.

...