CE PLUS - Nota 001410
Módulo: DRAWBACK
Funcionalidade: Apropriação
Data/Hora da Publicação: 25/05/2006 00:00:00
Data/Hora Última Alteração: 17/02/2011 13:47:19
Descrição da Nota: AJUSTE NA APROPRIAÇÃO DE ATO CONCESSÓRIO INTERMEDIARIO-EXPORTADOR
Sintoma
O programa não esta preenchendo corretamente os dados do ato concessório do intermediario-exportador
na tabela /pws/zycit282.
Solução
Preencher todos os campos necessario e corrigir o calculo da quantidade equivalente de material
exportado.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01410 Data: 25/05/2006 Hora: 09:11:15
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01410
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00023
Agrupamento : 00115
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01373 - 00001 - 6.0 - 00023 - DESENVOLVIMENTO DA APROPRIAÇÃO/DESAP. COMUM/INTERMEDIARIO POR NCM
----------------------------------------------------------------------------------------------------
AJUSTE NA APROPRIAÇÃO DE ATO CONCESSÓRIO INTERMEDIARIO-EXPORTADOR
----------------------------------------------------------------------------------------------------
Palavras Chave:
APROPRIAÇÃO - INTERMEDIARIO-EXPORTADOR - /PWS/ZYCIR254
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCIR254F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR254F01
...
ENDIF.
v_diasv = it_zycit244-vcto_vg - it_zycet001-dtprev.
IF v_diasv < /pws/zycit321-dia_ant.
CONTINUE.
ENDIF.
* >> Início da exclusão: FORM APPROPRIATE_CURRENT_RECORD
v_pct_com = v_qtdaprop / it_zycet002-fkimg .
* << Fim da exclusão
IF v_qtdaprop >= it_zycet002-fkimg.
EXIT.
ENDIF.
v_apmat = 'S'.
v_error = 'N'.
IF it_zycit244-tipo NE 'G'.
PERFORM appropriate_tng CHANGING v_qtdaprop v_qtdbase v_error.
ELSE.
PERFORM appropriate_tg CHANGING v_qtdaprop v_qtdbase v_error.
ENDIF.
* >> Início da inclusão: FORM APPROPRIATE_CURRENT_RECORD
v_pct_com = v_qtdaprop / it_zycet002-fkimg .
* << Fim da inclusão
IF v_error EQ 'S'.
CONTINUE.
ENDIF.
ENDLOOP.
REFRESH: itab_lista.
itab_lista[] = itab_lista_f[].
IF NOT itab_lista_f[] IS INITIAL.
IF /pws/zycit321-apr_gen EQ 'G'.
* >> Início da inclusão: FORM APPROPRIATE_CURRENT_RECORD
if v_pct_com is initial.
v_pct_com = 1.
endif.
* << Fim da inclusão
LOOP AT itab_lista_f.
itab_lista_f-qtd = itab_lista_f-usagem *
* >> Início da exclusão: FORM APPROPRIATE_CURRENT_RECORD
( it_zycet002-fkimg * v_pct_com ).
* << Fim da exclusão
* >> Início da inclusão: FORM APPROPRIATE_CURRENT_RECORD
( it_zycet002-fkimg * v_pct_com ).
* << Fim da inclusão
MODIFY itab_lista_f.
ENDLOOP.
ELSE.
LOOP AT itab_lista_f.
itab_lista_f-qtd = itab_lista_f-usagem * it_zycet002-fkimg.
...
...
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 ,
v_bxatoc TO it_apr_final-qtd_mexp ,
* >> Início da inclusão: FORM APPROPRIATE_TNG
it_zycit279-J_1bnbm TO it_apr_final-j_1bnbmimp,
* << Fim da inclusão
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_zycet002-vbeln_vl TO it_apr_final-vbeln_vl ,
it_zycet002-posnl TO it_apr_final-posnl ,
it_zycet002-ebeln TO it_apr_final-eebeln ,
it_zycet002-ebelp TO it_apr_final-eebelp ,
it_zycet002-steuc TO it_apr_final-j_1bnbmexp,
* >> Início da exclusão: FORM APR_TF
it_zycit279-nrseq TO it_apr_final-nrseqimp ,
* << Fim da exclusão
* >> Início da inclusão: FORM APR_TF
it_zycit279-docnum TO it_apr_final-docnumimp ,
it_zycit279-buzei TO it_apr_final-buzei ,
it_zycit279-J_1bnbm TO it_apr_final-j_1bnbmimp,
* << Fim da inclusão
it_zycit279-ebeln TO it_apr_final-ebeln ,
it_zycit279-ebelp TO it_apr_final-ebelp ,
it_zycit279-nrseqd TO it_apr_final-nrseqd ,
it_zycet002-matnr TO it_apr_final-matnr_exp ,
it_zycet002-vrkme TO it_apr_final-meins_e ,
...
...
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-usagem .
* << Fim da exclusão
* >> Início da inclusão: FORM APR_TF
v_bxatoc = it_apr_final-qtd_mimp / itab_lista_aux-usagem .
* << Fim da inclusão
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.
itab_lista_aux-qtd = it_apr_final-qtd_iorg .
* >> Início da exclusão: FORM APR_TF
it_apr_final-qtd_iorg = itab_lista_aux-qtd.
* << Fim da exclusão
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_iorg * ( it_apr_final-perda_e / 100 ) ).
...
...
itab_lista_aux-qtd = itab_lista_aux-qtd -
it_apr_final-qtd_mimp - it_apr_final-qtd_perda_e.
it_apr_final-qtd_eq_mexp =
( it_apr_final-qtd_mimp + it_apr_final-qtd_perda_e )
/ itab_lista_aux-usagem.
* >> Início da inclusão: FORM APR_TF
it_apr_final-vlt_mimp = it_apr_final-qtd_mimp * it_zycit279-valor.
* << Fim da inclusão
CLEAR it_apr_final_aux.
MOVE it_apr_final TO it_apr_final_aux.
APPEND it_apr_final_aux.
APPEND it_apr_final.
READ TABLE itab_fornec WITH KEY lifnr = it_zycit244-lifnr.
...