Sintoma

Necessário exit para fazer desenvolvimento específico em nf remessa

Solução

Criada chamada de exit RCB017 no cálculo de saldo de nf remessa.

Informações Complementares

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

Nota Número 06543 Data: 09/05/2008 Hora: 15:03:50

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

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

Nota Número              : 06543

Categoria                : Melhoria

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00005

Agrupamento              : 00047

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

NECESSÁRIO EXIT PARA FAZER DESENVOLVIMENTO ESPECÍFICO EM NF REMESSA

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

Palavras Chave:

EXIT - DESENVOLVIMENTO ESPECÍFICO - NF REMESSA -SALDO

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

Objetos da nota:

REPS /PWS/MZYCI016I01

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

Modificações efetuadas em REPS /PWS/MZYCI016I01

...

MODULE altera_itab_zycit044 INPUT.

* >> Início da inclusão: MODULE ALTERA_ITAB_ZYCIT044

  e_subrc = '0'.

  v_tiponf = 'NFR'.

* << Fim da inclusão

  itab_zycit044-nrseqnf   = /pws/zycie043-nrseq.

  itab_zycit044-nfglobal  = /pws/zycie043-nfglobal.

  itab_zycit044-nfremessa = /pws/zycie043-nfremessa.

  itab_zycit044-nfnum     = /pws/zycie044-nfnum.

  itab_zycit044-series    = /pws/zycie044-series.

  itab_zycit044-subser    = /pws/zycie044-subser.

  itab_zycit044-ebeln     = /pws/zycie044-ebeln.

  itab_zycit044-ebelp     = /pws/zycie044-ebelp.

  itab_zycit044-qtd_item  = /pws/zycie044-qtd_item.

  itab_zycit044-menge     = /pws/zycie045-menge.

  itab_zycit044-saldo     = /pws/zycie045-saldo.

  itab_zycit044-meins     = /pws/zycie045-meins.

  itab_zycit044-docnumnfg = /pws/zycie043-docnumnfg.

  READ TABLE itab_zycit044_aux WITH KEY

                               ebeln    = itab_zycit044-ebeln

                               ebelp    = itab_zycit044-ebelp.

* >> Início da inclusão: MODULE ALTERA_ITAB_ZYCIT044

  REFRESH itab_zyglt100.

  PERFORM verifica_exit USING 'D'

                      '/PWS/SAPMZYCI016'

                      ' '.

  CLEAR itab_zyglt100 .

  READ TABLE itab_zyglt100 WITH KEY

        zexit = 'DNF017'  BINARY SEARCH.

  IF  NOT itab_zyglt100-zexit_ativa IS INITIAL.

    PERFORM (itab_zyglt100-formulario) IN PROGRAM

       (itab_zyglt100-programa) IF FOUND.

  ENDIF.

  IF e_subrc = '0'.

* << Fim da inclusão

  IF itab_zycit044-qtd_item IS INITIAL     AND

     itab_zycit044_aux-qtd_item IS INITIAL AND

     itab_zycit044-noinitial NE 'X' AND itab_zycit044-saldo > 0.

    itab_zycit044-qtd_item = itab_zycit044-saldo .

  ELSEIF NOT itab_zycit044_aux-qtd_item IS INITIAL AND

         itab_zycit044-qtd_item IS INITIAL.

    itab_zycit044-qtd_item = 0.

    itab_zycit044-noinitial = 'X'.

  ENDIF.

  IF itab_zycit044_aux-qtd_item NE itab_zycit044-qtd_item.

...

...

    itab_zycit044-qtd_item = itab_zycit044_aux-qtd_item.

    itab_zycit044-menge    = itab_zycit044_aux-menge.

    IF itab_zycit044-menge NE itab_zycit044_aux-menge.

      MESSAGE w061 WITH text-018 itab_zycit044-ebelp

                        text-019 itab_zycit044-ebeln.

    ELSE.

      MESSAGE w061 WITH text-004 itab_zycit044-ebelp

                        text-005 itab_zycit044-ebeln.

    ENDIF.

  ENDIF.

* >> Início da inclusão: MODULE ALTERA_ITAB_ZYCIT044

  ENDIF.

* << Fim da inclusão

  CLEAR itab_zycit044_aux.

  MODIFY itab_zycit044 INDEX tc_itens_nfr-current_line.

  MOVE itab_zycit044 TO itab_zycit044_aux.

  MODIFY itab_zycit044_aux TRANSPORTING nfnum series subser

                                        saldo menge  qtd_item

                  WHERE ebeln EQ itab_zycit044-ebeln

                    AND ebelp EQ itab_zycit044-ebelp.

  IF /pws/zycie043-nfexterna = space.

    itab_zycit044-nfnum  = space.

    itab_zycit044-series = space.

...