CE PLUS - Nota 001548
Módulo: DRAWBACK
Funcionalidade: Apropriação
Data/Hora da Publicação: 08/06/2006 00:00:00
Data/Hora Última Alteração: 17/02/2011 13:52:14
Descrição da Nota: AJUSTE NO CONTROLE DE SALDO DOS INSUMOS DURANTE A APROPRIAÇÃO.
Sintoma
Ocorre um DUMP ao exibir os itens apropriados.
Solução
Ajustar o controle de saldos dos insumos apropriados.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01548 Data: 08/06/2006 Hora: 15:15:56
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01548
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00023
Agrupamento : 00117
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01410 - 00001 - 6.0 - 00023 - AJUSTE NA APROPRIAÇÃO DE ATO CONCESSÓRIO INTERMEDIARIO-EXPORTADOR
----------------------------------------------------------------------------------------------------
AJUSTE NO CONTROLE DE SALDO DOS INSUMOS DURANTE A APROPRIAÇÃO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
APROPRIAÇÃO - COMUM - INTERMEDIARIO - EXPORTADOR
/PWS/ZYCIR254
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCIR254F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR254F01
...
IF it_zycit279-slqtde < itab_lista_aux-qtd.
it_apr_final-qtd_mimp = it_zycit279-slqtde.
ELSE.
it_apr_final-qtd_mimp = itab_lista_aux-qtd.
ENDIF.
* >> Início da exclusão: FORM APR_TF
v_bxatoc = it_apr_final-qtd_mimp / itab_lista_aux-usagem .
MOVE: v_bxatoc TO it_apr_final-qtd_mexp ,
v_bxatoc TO it_apr_final-qtd_ncm ,
it_zycet002-vrkme TO it_apr_final-um_ncm .
PERFORM converte_um_ncm USING it_apr_final-matnr_exp
CHANGING it_apr_final-um_ncm
it_zycet002-werks
it_apr_final-qtd_ncm.
* << Fim da exclusão
itab_lista_aux-qtd = it_apr_final-qtd_iorg .
it_apr_final-qtd_perda_e =
( it_apr_final-qtd_mimp * it_apr_final-perda_e )
/ ( 100 - it_apr_final-perda_e ) .
it_apr_final-qtd_iorg = it_apr_final-qtd_iorg -
...
...
it_apr_final-qtd_perda =
( it_apr_final-qtd_mimp + it_apr_final-qtd_perda_e )
* ( it_apr_final-perda / 100 ).
itab_lista_aux-qtd = itab_lista_aux-qtd -
it_apr_final-qtd_mimp - it_apr_final-qtd_perda_e.
* >> Início da inclusão: FORM APR_TF
v_bxatoc = ( it_apr_final-qtd_mimp + it_apr_final-qtd_perda_e )
/ itab_lista_aux-usagem .
MOVE: v_bxatoc TO it_apr_final-qtd_mexp ,
v_bxatoc TO it_apr_final-qtd_ncm ,
it_zycet002-vrkme TO it_apr_final-um_ncm .
PERFORM converte_um_ncm USING it_apr_final-matnr_exp
CHANGING it_apr_final-um_ncm
it_zycet002-werks
it_apr_final-qtd_ncm.
* << Fim da inclusão
it_apr_final-qtd_eq_mexp =
( it_apr_final-qtd_mimp + it_apr_final-qtd_perda_e )
/ itab_lista_aux-usagem.
it_apr_final-vlt_mimp = it_apr_final-qtd_mimp * it_zycit279-valor.
CLEAR it_apr_final_aux.
...
...
it_zycit279-slqtde = it_zycit279-slqtde -
it_apr_final-qtd_mimp.
IF it_zycit279-slqtde <= 0.
it_zycit279-esgotado = 'X'.
ENDIF.
* >> Início da exclusão: FORM APR_TF
itab_lista_aux-qtd =
itab_lista_aux-qtd - it_apr_final-qtd_mimp.
* << Fim da exclusão
MODIFY itab_lista_aux.
MODIFY it_zycit279.
READ TABLE it_zycit279_save WITH KEY
nrseq = it_zycit279-nrseq
ebeln = it_zycit279-ebeln
...
...
AND ebeln = it_zycit279-ebeln
AND ebelp = it_zycit279-ebelp
AND nrseqd = it_zycit279-nrseqd
AND matnr = it_zycit279-matnr.
ENDIF.
* >> Início da inclusão: FORM APR_TF
if itab_lista_aux-qtd <= 0.
exit.
endif.
* << Fim da inclusão
ENDLOOP.
ENDLOOP.
ENDFORM.