CE PLUS - Nota 008655
Módulo: DRAWBACK
Funcionalidade: Apropriação
Data/Hora da Publicação: 08/07/2009 00:00:00
Data/Hora Última Alteração: 17/02/2011 15:38:23
Descrição da Nota: GRAVAÇÃO DA MOEDA DA IMPORTAÇÃO / MERCADO INTERNO
Sintoma
O programa não grava a moeda da importação / compra no mercado interno na tabela /PWS/ZYCIT282.
Solução
Criado o campo O programa não grava a moeda da importação / compra no mercado interno na tabela
/PWS/ZYCIT282-WAERS_I para a gravação da moeda utilizada na importção / compra no mercado interno.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08655 Data: 08/07/2009 Hora: 15:00:59
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08655
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00010
Agrupamento : 00104
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
08034 - 00001 - 7.0 - 00008 - APROPRIAÇÃO MULTIPLA / PARCIAL
----------------------------------------------------------------------------------------------------
GRAVAÇÃO DA MOEDA DA IMPORTAÇÃO / MERCADO INTERNO
----------------------------------------------------------------------------------------------------
Palavras Chave:
APROPRIAÇÃO MOEDA MERCADO INTERNO IMPORTAÇÃO /PWS/ZYCIT282
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCIR254F01
TABD /PWS/ZYCIE282
TABD /PWS/ZYCIT282
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR254F01
...
it_zycet002-fkimg TO it_apr_final-qtd_eorg ,
itab_lista_aux-perc TO it_apr_final-perc ,
v_bxatoc TO it_apr_final-qtd_mexp ,
it_zycit279-j_1bnbm TO it_apr_final-j_1bnbmimp,
v_bxatoc TO it_apr_final-qtd_ncm ,
it_zycet002-vrkme TO it_apr_final-um_ncm ,
it_zycit247-nritem TO it_apr_final-nritem ,
it_zycit279-matnr TO it_apr_final-matnr_imp ,
itab_lista-meins TO it_apr_final-un_ncm ,
it_zycit279-meins TO it_apr_final-meins_i .
MOVE: sy-uname TO it_apr_final-usernamec ,
sy-datlo TO it_apr_final-dtuserc .
* >> Início da inclusão: FORM APPROPRIATE_TNG
MOVE it_zycit279-waers TO it_apr_final-waers_i .
* << Fim da inclusão
PERFORM converte_um_ncm USING it_apr_final-matnr_exp
CHANGING it_apr_final-um_ncm
it_zycet002-werks
it_apr_final-qtd_ncm.
it_apr_final-mengecom = it_zycit279-slqtde.
READ TABLE itab_zycit439 WITH KEY
insumo = it_apr_final-matnr_imp
matnr = it_zycet002-matnr.
IF sy-subrc EQ 0.
IF itab_zycit439-perda IS INITIAL.
...
...
it_zycet002-matnr TO it_apr_final-matnr_exp ,
it_zycet002-vrkme TO it_apr_final-meins_e ,
it_zycet002-fkimg TO it_apr_final-qtd_eorg ,
itab_lista_aux-perc TO it_apr_final-perc ,
it_zycit247f-nritem TO it_apr_final-nritem ,
it_zycit279-matnr TO it_apr_final-matnr_imp ,
itab_lista-meins TO it_apr_final-un_ncm ,
it_zycit279-meins TO it_apr_final-meins_i .
MOVE: sy-uname TO it_apr_final-usernamec,
sy-datlo TO it_apr_final-dtuserc .
* >> Início da inclusão: FORM APR_TF
MOVE it_zycit279-waers TO it_apr_final-waers_i .
* << Fim da inclusão
it_apr_final-mengecom = it_zycit279-slqtde.
READ TABLE itab_zycit439 WITH KEY
insumo = it_apr_final-matnr_imp
matnr = it_zycet002-matnr.
IF sy-subrc EQ 0.
IF itab_zycit439-perda IS INITIAL.
READ TABLE it_zycit245 WITH KEY
nrseqd = it_apr_final-nrseqd
j_1bnbm = it_zycit279-j_1bnbm.
IF sy-subrc EQ 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE282
...
UM_NCM
QTD_NCM
USERNAMEC
DTUSERC
* >> Início da inclusão:TABD /PWS/ZYCIE282
WAERS_I
* << Fim da inclusão
* Tipo de campo: /PWS/ZYCIL546
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT282
...
UM_NCM
QTD_NCM
USERNAMEC
DTUSERC
* >> Início da inclusão:TABD /PWS/ZYCIE282
WAERS_I
* << Fim da inclusão
* Tipo de campo: /PWS/ZYCIL546
* Tipo de campo: /PWS/ZYCIL546