CE PLUS - Nota 007655
Módulo: DRAWBACK
Funcionalidade: Apropriação
Data/Hora da Publicação: 27/11/2008 00:00:00
Data/Hora Última Alteração: 17/02/2011 15:29:37
Descrição da Nota: EXIT APR008
Sintoma
Abertura de exit no programa de apropriação.
Solução
Abertura de exit no programa de apropriação.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07655 Data: 27/11/2008 Hora: 09:46:02
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07655
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00075
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07200 - 00001 - 7.0 - 00006 - AJUSTADO NA ORDENAÇÃO DOS ATOS CONCESSÓRIOS PARA REALIZAR A APROP
----------------------------------------------------------------------------------------------------
EXIT APR008
----------------------------------------------------------------------------------------------------
Palavras Chave:
APROPRIAÇÃO EXIT APR008
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCIR254F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR254F01
...
WHERE stlty EQ 'M'
AND stlnr EQ it_zycit247-stlnr
AND stlal EQ it_zycit247-stlal.
ENDIF.
PERFORM sort_records_zycit247.
PERFORM lock_record_receb.
PERFORM lock_record_ato.
SORT it_zycit279 BY dtnf nrseq+8(2) nrseq(8) ebeln ebelp matnr.
PERFORM ordena_atos.
LOOP AT it_zycet002.
* >> Início da inclusão: FORM RUN_APPROPRIATION_EXPORTATION
PERFORM verifica_exit USING 'D'
'/PWS/ZYCIR254'
'APR008'.
e_subrc = 0.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'APR008' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa)
USING sy-ucomm
CHANGING e_subrc
IF FOUND .
IF e_subrc EQ '8'.
EXIT.
ELSEIF e_subrc EQ '4'.
CONTINUE.
ENDIF.
ENDIF.
ENDIF.
* << Fim da inclusão
IF t001-bukrs NE it_zycet002-bukrs.
SELECT SINGLE * FROM t001 WHERE bukrs EQ it_zycet002-bukrs.
ENDIF.
IF /pws/zycit321-ltopc EQ '1'.
READ TABLE it_zycet002_grp WITH KEY
nrseq = it_zycet002-nrseq
vbeln_va = it_zycet002-vbeln_va
aupos = it_zycet002-aupos
vbeln_vf = it_zycet002-vbeln_vf
posnr = it_zycet002-posnr
...