CE PLUS - Nota 007317
Módulo: DRAWBACK
Funcionalidade: Apropriação
Data/Hora da Publicação: 15/09/2008 00:00:00
Data/Hora Última Alteração: 17/02/2011 15:31:41
Descrição da Nota: AJUSTE NA ORDENAÇÃO DA TABELA DA INSUMOS DISPONIVEIS PARA A APROPRIAÇÃO
Sintoma
O programa esta apropriando insumos do todos os insumos do mercado interno antes de apropriar os
insumos importados mesmo quando a data da nota fiscal do insumo importado é menor que a do mercado
interno.
Solução
Ajustado programa para utilizar a data da nota fiscal na ordenação dos insumos.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07317 Data: 15/09/2008 Hora: 16:35:40
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07317
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00065
----------------------------------------------------------------------------------------------------
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
----------------------------------------------------------------------------------------------------
AJUSTE NA ORDENAÇÃO DA TABELA DA INSUMOS DISPONIVEIS PARA A APROPRIAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
APROPRIAÇÃO - INSUMOS - IMPORTADOS - NACIONAIS - DATA - DI - NF
/PWS/ZYCIR254 - NOTA - FISCAL
----------------------------------------------------------------------------------------------------
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 dtdi 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 dtnf nrseq+8(2) nrseq(8) ebeln ebelp matnr.
* << Fim da inclusão
PERFORM ordena_atos.
LOOP AT it_zycet002.
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
...