Sintoma

Liquidação em Andamento - EXIT¿S LIQ003 LIQ005 LIQ006.

Solução

Liquidação em Andamento - EXIT¿S LIQ003 LIQ005 LIQ006.

Informações Complementares

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

Nota Número 03695 Data: 17/05/2007 Hora: 06:57:51

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

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

Nota Número              : 03695

Categoria                : Consultoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00027

Agrupamento              : 00166

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

LIQUIDAÇÃO EM ANDAMENTO - EXIT¿S LIQ003 LIQ005 LIQ006.

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

Palavras Chave:

LIQUIDAÇÃO EM ANDAMENTO - EXIT¿S LIQ003 LIQ005 LIQ006.

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

Objetos da nota:

REPS /PWS/MZYCB031F01

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

Modificações efetuadas em REPS /PWS/MZYCB031F01

...

    CALL FUNCTION 'MESSAGE_STORE'

         EXPORTING

              arbgb = '/PWS/ZYCBM'

              msgty = 'I'

              msgv1 = itab_zycbt034-descricao

              txtnr = '061'

              zeile = v_zeile.

    v_zeile = v_zeile + 1.

  ENDLOOP.

  IF itab_zycbt034 IS INITIAL.

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

   PERFORM busca_exit.

    READ TABLE itab_zyglt100 WITH KEY zexit = 'LIQ005'.

    IF sy-subrc EQ 0.

      PERFORM (itab_zyglt100-formulario)

              IN PROGRAM (itab_zyglt100-programa).

    ELSE.

    v_tcode = 'F-30'.

* << Fim da inclusão

    CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_30_V'

         EXPORTING

              v_modo          = v_modo_bi

         TABLES

              t_dados         = itab_zycbe033

              t_campo         = itab_zycbt034

              t_zycbt032      = itab_zycbt032

              t_zycbt036      = itab_zycbt036

         EXCEPTIONS

              campo_em_branco = 1

              periodo_fechado = 2

              OTHERS          = 3.

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

    ENDIF.

* << Fim da inclusão

    IF sy-subrc = 0.

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

      READ TABLE itab_zycbt032 WITH KEY tcode  = 'F-30'

* << Fim da exclusão

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

      READ TABLE itab_zycbt032 WITH KEY tcode  = v_tcode

* << Fim da inclusão

                                        tabela = '/PWS/ZYCBT209'

                                        cpochv = itab_zycbe033-cpochv

                                        tpmsg  = 'S'.

...

...

    CALL FUNCTION 'MESSAGE_STORE'

         EXPORTING

              arbgb = '/PWS/ZYCBM'

              msgty = 'I'

              msgv1 = itab_zycbt034-descricao

              txtnr = '061'

              zeile = v_zeile.

    v_zeile = v_zeile + 1.

  ENDLOOP.

  IF itab_zycbt034 IS INITIAL.

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

   PERFORM busca_exit.

    READ TABLE itab_zyglt100 WITH KEY zexit = 'LIQ006'.

    IF sy-subrc EQ 0.

      PERFORM (itab_zyglt100-formulario)

              IN PROGRAM (itab_zyglt100-programa).

    ELSE.

    v_tcode = 'F-30'.

* << Fim da inclusão

    CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_30_V'

         EXPORTING

              v_modo          = v_modo_bi

         TABLES

              t_dados         = itab_zycbe033

              t_campo         = itab_zycbt034

              t_zycbt032      = itab_zycbt032

              t_zycbt036      = itab_zycbt036

              t_doctos        = itab_doctos

         EXCEPTIONS

              campo_em_branco = 1

              periodo_fechado = 2

              OTHERS          = 3.

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

   ENDIF.

* << Fim da inclusão

    IF sy-subrc = 0.

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

      READ TABLE itab_zycbt032 WITH KEY tcode  = 'F-30'

* << Fim da exclusão

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

      READ TABLE itab_zycbt032 WITH KEY tcode  = v_tcode

* << Fim da inclusão

                                        tabela = '/PWS/ZYCBT209'

                                        cpochv = itab_zycbe033-cpochv

                                        tpmsg  = 'S'.

...

...

  itab_zycbt036-dtdocto = itab_zycbt030-budat.

  itab_zycbt036-belnr   = itab_zycbt030-belnr6.

  APPEND itab_zycbt036.

  itab_zycbt036-tcode   = 'F-30'.

  itab_zycbt036-tabela  = '/PWS/ZYCBT209'.

  itab_zycbt036-cpochv  = v_cpochv.

  itab_zycbt036-dtdocto = p_dtbelnr.

  itab_zycbt036-belnr   = p_belnr.

  APPEND itab_zycbt036.

  IF itab_zycbt034 IS INITIAL.

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

   PERFORM busca_exit.

    READ TABLE itab_zyglt100 WITH KEY zexit = 'LIQ003'.

    IF sy-subrc EQ 0.

      PERFORM (itab_zyglt100-formulario)

              IN PROGRAM (itab_zyglt100-programa).

    ELSE.

    v_tcode = 'F-30'.

* << Fim da inclusão

    CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_30_P'

         EXPORTING

              v_modo          = v_modo_bi

              filtra          = p_filtra

              total           = p_total

         TABLES

              t_dados         = itab_zycbe033

              t_campo         = itab_zycbt034

              t_zycbt032      = itab_zycbt032

              t_doctos        = itab_zycbt036

         EXCEPTIONS

              campo_em_branco = 1

              periodo_fechado = 2

              OTHERS          = 3.

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

    ENDIF.

* << Fim da inclusão

    IF sy-subrc = 0.

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

      READ TABLE itab_zycbt032 WITH KEY tcode  = 'F-30'

* << Fim da exclusão

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

      READ TABLE itab_zycbt032 WITH KEY tcode  = v_tcode

* << Fim da inclusão

                                        tabela = '/PWS/ZYCBT209'

                                        cpochv = v_cpochv

                                        tpmsg  = 'S'.

...

...

      FROM adrc

      INTO v_country

      WHERE addrnumber = v_adrnr.

    IF sy-subrc = 0 AND

       v_country NS 'BR' AND

       v_country NS 'TW'.

      CLEAR p_j_1bbranch.

    ENDIF.

  ENDIF.

ENDFORM.

* >> Início da inclusão:

form busca_exit.

    v_syrepid = sy-repid.

    CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'

         EXPORTING

              i_codmod                = 'E'

              i_func                  = v_syrepid

         TABLES

              itab_zyglt100           = itab_zyglt100

         EXCEPTIONS

              i_codmod_nao_encontrado = 1

              i_func_nao_encontrado   = 2

              i_zexit_nao_encontrado  = 3

              OTHERS                  = 4.

endform.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCB031X01

...

        INCLUDE STRUCTURE /pws/zycbt209.

DATA: vlsltrans LIKE /pws/zycbt030-vlsltrans,

     oper(1) TYPE c,

     mark(1) TYPE c,

     v_name1 TYPE kna1-name1,

     vlavinc TYPE /pws/zycbt017-vlavinc,

     v_name_bco   LIKE lfa1-name1.

DATA: END OF itab_zycbt209.

DATA: ok_code      LIKE sy-ucomm,

      v_syrepid    LIKE sy-repid,

* >> Início da inclusão:

      v_tcode      TYPE sy-tcode,

* << Fim da inclusão

      v_codaux     LIKE /pws/zyglt316-codaux1,

      v_modo_bi(1) TYPE c.

DATA: BEGIN OF itab_contas OCCURS 0.

        INCLUDE STRUCTURE /pws/zyglt316.

DATA: END OF itab_contas.

DATA: BEGIN OF itab_doctos OCCURS 0.

        INCLUDE STRUCTURE /pws/zycbt036.

DATA: END OF itab_doctos.

DATA: BEGIN OF itab_zyglt321 OCCURS 0.

        INCLUDE STRUCTURE /pws/zyglt321.

...