Sintoma

Liquidação - inclusão ponto de exit LIQ027 - desmembra Liq. andamento

Solução

Liquidação - inclusão ponto de exit LIQ027 - desmembra Liq. andamento

Informações Complementares

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

Nota Número 05722 Data: 23/01/2008 Hora: 11:06:43

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

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

Nota Número              : 05722

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00004

Agrupamento              : 00031

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

LIQUIDAÇÃO - INCLUSÃO PONTO DE EXIT LIQ027 - DESMEMBRA LIQ. ANDAMENTO

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

Palavras Chave:

LIQUIDAÇÃO - INCLUSÃO PONTO DE EXIT LIQ027 - DESMEMBRA LIQ. ANDAMENTO

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

Objetos da nota:

REPS /PWS/MZYCB004F02

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

Modificações efetuadas em REPS /PWS/MZYCB004F02

...

  ELSE.

    PERFORM local_negocio.

    PERFORM verifica_pais_filial USING itab_zycbt006-bukrs

                                       wa_t001w-j_1bbranch.

    itab_zycbe033-brnch = wa_t001w-j_1bbranch.

  ENDIF.

  itab_zycbe033-werks = /pws/zycbe005-werks.

  PERFORM verifica_prorrogacao.

  PERFORM busca_exit.

  READ TABLE itab_zyglt100 WITH KEY zexit = 'LIQ015'.

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

  IF sy-subrc EQ 0.

* << Fim da exclusão

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

  IF sy-subrc EQ 0

     and not itab_zyglt100-zexit_ativa IS INITIAL.

* << Fim da inclusão

    PERFORM (itab_zyglt100-formulario)

            IN PROGRAM (itab_zyglt100-programa).

  ENDIF.

  APPEND itab_zycbe033.

  LOOP AT itab_zycbt034.

    MESSAGE i016 WITH itab_zycbt034-descricao.

  ENDLOOP.

  IF itab_zycbt034 IS INITIAL.

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

    READ TABLE itab_zyglt100 WITH KEY zexit = 'LIQ027'.

    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

    CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_30_P'

         EXPORTING

              v_modo          = v_modo_bi

              v_vinc_tot      = 'X'

         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 DESMEMBRA_LIQ_AND

    ENDIF.

* << Fim da inclusão

    IF sy-subrc = 0.

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

                                        tabela = 'ZYCBT006'

                                        cpochv = itab_zycbe033-cpochv

                                        tpmsg  = 'S'.

      IF sy-subrc EQ 0.

        itab_zycbt209-belnr_d = itab_zycbt032-belnr.

        itab_zycbt209-budat_d = itab_zycbt006-dtpagto.

        itab_contabil-nrinvoic = itab_zycbt209-nrinvoic.

        itab_contabil-vbeln    = itab_zycbt209-belnr.

...