CE PLUS - Nota 001789
Módulo: DRAWBACK
Funcionalidade: Apropriação
Data/Hora da Publicação: 21/07/2006 00:00:00
Data/Hora Última Alteração: 17/02/2011 14:13:51
Descrição da Nota: AJUSTES PARA TRATAMENTO DO NOVO CAMPO COB_CAMB DA TABELA /PWS/ZYCIT279
Sintoma
Ajustes para tratamento do novo campo cob_camb da tabela /pws/zycit279.
Solução
Ajustes para tratamento do novo campo cob_camb da tabela /pws/zycit279.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01789 Data: 21/07/2006 Hora: 10:44:06
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01789
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 6.0
Pacote : 00024
Agrupamento : 00123
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01758 - 00001 - 6.0 - 00024 - AJUSTE PARA TRATAMENTO DO CENTRO EXPORTADOR/IMPORTADOR NA COMPOSI
01773 - 00002 - 6.0 - 00024 - EXIBIÇÃO SEPARA DOS INSUMOS DO INTERMEDIARIO-EXPORTADOR NA APROPR
----------------------------------------------------------------------------------------------------
AJUSTES PARA TRATAMENTO DO NOVO CAMPO COB_CAMB DA TABELA /PWS/ZYCIT279
----------------------------------------------------------------------------------------------------
Palavras Chave:
APROPRIAÇÃO - CENTRO - /PWS/ZYCIT279
/PWS/ZYCIR254
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCIR254F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR254F01
...
ENDIF.
ENDLOOP.
IF /pws/zycit321-lote NE space.
REFRESH it_apr_final.
it_apr_final[] = itab_zycit282_aux[].
* >> Início da inclusão: FORM SAVE_APPROPRIATIONS
ENDIF.
SORT itab_zycit468 BY nrseqimp ebeln ebelp.
LOOP AT it_apr_final.
READ TABLE it_zycit279_save WITH KEY
nrseq = it_apr_final-nrseqimp
ebeln = it_apr_final-ebeln
ebelp = it_apr_final-ebelp.
CLEAR: it_apr_final-vlt_mimp.
IF /pws/zycit321-lote NE space.
LOOP AT itab_zycit468 WHERE nrseqexp = it_apr_final-nrseqexp
AND vbeln_va = it_apr_final-vbeln_va
AND aupos = it_apr_final-aupos
AND vbeln_vl = it_apr_final-vbeln_vl
AND posnl = it_apr_final-posnl
AND posnl = it_apr_final-posnl
AND nrseqimp = it_apr_final-nrseqimp
AND ebeln = it_apr_final-ebeln
AND ebelp = it_apr_final-ebelp.
it_apr_final-vlt_mimp = it_apr_final-vlt_mimp +
( itab_zycit468-qtd_mimp * it_zycit279_save-valor ).
ENDLOOP.
ELSE.
it_apr_final-vlt_mimp =
it_apr_final-qtd_mimp * it_zycit279_save-valor.
ENDIF.
IF it_zycit279_save-cob_camb EQ space.
it_apr_final-imp_s_cob_camb = it_apr_final-vlt_mimp /
it_zycit279_save-i_txmoeda.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM SAVE_APPROPRIATIONS
ENDLOOP.
* << Fim da inclusão
MODIFY /pws/zycit282 FROM TABLE it_apr_final.
...
...
IF sy-subrc = 0.
SELECT SINGLE nrdi dtreg dttax
FROM /pws/zycit085
INTO (it_apr_final-nrdi,it_apr_final-dtreg,v_dttax)
WHERE nrbl EQ /pws/zycit094-nrseqce.
* >> Início da inclusão: FORM APPROPRIATE_TNG
ENDIF.
IF it_zycit279-cob_camb EQ space.
it_apr_final-imp_s_cob_camb =
( it_apr_final-qtd_mimp * it_zycit279-valor ) /
it_zycit279-i_txmoeda.
* << Fim da inclusão
ENDIF.
IF it_zycit244-importacao NE 'X'.
it_apr_final-exp_c_cob_camb =
it_zycet002-fkimg * it_zycit247-tolling.
CLEAR v_valor_imp.
* >> Início da exclusão: FORM APPROPRIATE_TNG
v_valor_imp = it_zycit279-valor.
PERFORM valor_converte_imp USING 'BRL'
'USD'
v_dttax
CHANGING v_valor_imp.
it_apr_final-imp_s_cob_camb =
it_apr_final-qtd_mimp * v_valor_imp.
* << Fim da exclusão
ELSE.
SELECT vbeln netpr FROM vbap
INTO TABLE it_vbap
WHERE vbeln EQ it_apr_final-vbeln_va.
READ TABLE it_vbap WITH KEY vbeln = it_apr_final-vbeln_va.
...
...
p_qtd = ( p_qtd / v_um_ren ) * v_um_rez.
p_meins = v_meinsb.
ENDFORM.
FORM cob_camb.
LOOP AT it_apr_final WHERE nrseqexp EQ it_zycet002-nrseq
* >> Início da exclusão: FORM COB_CAMB
AND vbeln_va EQ it_zycet002-vbeln_va.
* << Fim da exclusão
* >> Início da inclusão: FORM COB_CAMB
AND vbeln_va EQ it_zycet002-vbeln_va
AND vbeln_vl EQ it_zycet002-vbeln_vl
AND posnl EQ it_zycet002-posnl.
* << Fim da inclusão
* >> Início da exclusão: FORM COB_CAMB
IF
v_exp_camb NE it_apr_final-exp_c_cob_camb.
* << Fim da exclusão
v_exp_camb = v_exp_camb + it_apr_final-exp_c_cob_camb.
* >> Início da exclusão: FORM COB_CAMB
ENDIF.
IF v_ebelp2 NE it_apr_final-ebelp OR
v_imp_camb NE it_apr_final-imp_s_cob_camb.
* << Fim da exclusão
v_ebelp2 = it_apr_final-ebelp.
v_imp_camb = v_imp_camb + it_apr_final-imp_s_cob_camb.
* >> Início da exclusão: FORM COB_CAMB
ENDIF.
* << Fim da exclusão
ENDLOOP.
ENDFORM.
FORM valor_converte_imp USING p_waersde
p_waerspara
p_data
...
...
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.
* >> Início da inclusão: FORM APROP_LOTE
IF it_zycit279-cob_camb EQ space.
it_apr_final-imp_s_cob_camb =
( it_apr_final-qtd_mimp * it_zycit279-valor ) /
it_zycit279-i_txmoeda.
ENDIF.
* << Fim da inclusão
it_apr_final-perc = '100.00%'.
WRITE it_apr_final-perc TO it_apr_final-perc RIGHT-JUSTIFIED.
READ TABLE itab_zycit439 WITH KEY
insumo = it_apr_final-matnr_imp
matnr = it_zycet002-matnr.
...
...
it_apr_final-qtd_perda =
it_apr_final-qtd_mimp * ( it_apr_final-perda / 100 ).
IF it_zycit244-importacao NE 'X'.
it_apr_final-exp_c_cob_camb =
it_zycet002-fkimg * it_zycit247-tolling.
* >> Início da exclusão: FORM APROP_LOTE
CLEAR v_valor_imp.
v_valor_imp = it_zycit279-valor.
it_apr_final-imp_s_cob_camb =
it_apr_final-qtd_mimp *
( v_valor_imp / it_zycit279-i_txmoeda ).
* << Fim da exclusão
ELSE.
SELECT vbeln netpr FROM vbap
INTO TABLE it_vbap
WHERE vbeln EQ it_apr_final-vbeln_va.
READ TABLE it_vbap WITH KEY vbeln = it_apr_final-vbeln_va.
...