CE PLUS - Nota 007731
Módulo: DRAWBACK
Funcionalidade: Apropriação
Data/Hora da Publicação: 09/12/2008 00:00:00
Data/Hora Última Alteração: 17/02/2011 15:28:14
Descrição da Nota: ORDENAÇÃO DAS IMPORTAÇÕES (FIFO)
Sintoma
O programa não está utilizando as importações dos Atos concessórios mais antigos.
Solução
O programa foi ajustado para esgotar os saldos dos Atos concessórios mais antigos, independente de
existir Atos concessórios mais novos com DI'd mais antigas.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07731 Data: 09/12/2008 Hora: 09:24:31
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07731
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00076
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07317 - 00001 - 7.0 - 00007 - AJUSTE NA ORDENAÇÃO DA TABELA DA INSUMOS DISPONIVEIS PARA A APROP
07655 - 00002 - 7.0 - 00007 - EXIT APR008
----------------------------------------------------------------------------------------------------
ORDENAÇÃO DAS IMPORTAÇÕES (FIFO)
----------------------------------------------------------------------------------------------------
Palavras Chave:
APROPRIAÇÃO ORDENAÇÃO IMPORTAÇÕES FIFO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCIR254F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR254F01
...
CLEAR itab_stko. REFRESH itab_stko.
SELECT * FROM stko INTO TABLE itab_stko
FOR ALL ENTRIES IN it_zycit247
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.
* >> Início da exclusão: FORM RUN_APPROPRIATION_EXPORTATION
SORT it_zycit279 BY dtnf nrseq+8(2) nrseq(8) ebeln ebelp matnr.
* << Fim da exclusão
* >> Início da inclusão: FORM RUN_APPROPRIATION_EXPORTATION
SORT it_zycit279 BY nrseqd+8(2) nrseqd(8) dtnf nrseq+8(2) nrseq(8)
ebeln ebelp matnr.
* << Fim da inclusão
PERFORM ordena_atos.
LOOP AT it_zycet002.
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.
...