CE PLUS - Nota 005253
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Recebimento
Data/Hora da Publicação: 20/11/2007 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:55:17
Descrição da Nota: ATUALIZAÇÃO DA GRAVAÇÃO DOS DADOS DO DRAWBACK
Sintoma
O programa não está carregando corretamente os valores dos insumos no Ato Concessório.
Solução
Atualizada a gravação dos dados do Drawback em processos com mais de um item.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05253 Data: 20/11/2007 Hora: 15:07:13
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05253
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00022
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03170 - 00001 - 6.0 - 00026 - QUANDO ESTORNAMOS UM RECEBIMENTO REALIZADA EM UM AC DÁ DUMP.
----------------------------------------------------------------------------------------------------
ATUALIZAÇÃO DA GRAVAÇÃO DOS DADOS DO DRAWBACK
----------------------------------------------------------------------------------------------------
Palavras Chave:
RECEBIMENTO ATO CONCESSÓRIO VLOR FOB
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI017F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F02
...
READ TABLE itab_zycit245 WITH KEY nrseqd = itab_zycit376-nrseqd
nritem = itab_zycit376-nritem.
CLEAR: v_variacfob.
IF NOT itab_zycit279-menge IS INITIAL
AND NOT itab_zycit376-qtd_apro IS INITIAL.
v_variacfob = itab_zycit279-menge *
( ( itab_zycit376-vlfob / itab_zycit376-qtd_apro ) -
( itab_zycit279-vltot / itab_zycit279-menge ) ).
ENDIF.
itab_zycit245-vlvinc = itab_zycit245-vlvinc - v_variacfob.
* >> Início da inclusão: FORM ADICIONA_SALDO_ATO
MODIFY itab_zycit245 TRANSPORTING vlvinc WHERE
nrseqd EQ itab_zycit376-nrseqd AND
nritem EQ itab_zycit376-nritem.
* << Fim da inclusão
UPDATE /pws/zycit245 SET vlvinc = itab_zycit245-vlvinc
WHERE nrseqd EQ itab_zycit245-nrseqd
AND nritem EQ itab_zycit245-nritem.
.
.
.
PERFORM taxa_converte USING /pws/zycit001-waers
/pws/zycit085-dttax
CHANGING v_taxa.
IF NOT itab_zycit003-qtd_iten IS INITIAL.
...
...
ebeln = itab_itens_nf-ebeln
ebelp = itab_itens_nf-ebelp.
CLEAR: v_variacfobd.
IF NOT itab_zycit279-menge IS INITIAL
AND NOT itab_zycit376d-qtd_apro IS INITIAL.
v_variacfobd = itab_zycit279-menge *
( ( itab_zycit376d-vlfob / itab_zycit376d-qtd_apro ) -
( itab_zycit279-vltot / itab_zycit279-menge ) ).
ENDIF.
itab_zycit245d-vlvinc = itab_zycit245d-vlvinc + v_variacfobd.
* >> Início da inclusão: FORM ESTORNA_SALDO_ATO
MODIFY itab_zycit245d TRANSPORTING vlvinc WHERE
nrseqd EQ itab_zycit376d-nrseqd AND
nritem EQ itab_zycit376d-nritem.
* << Fim da inclusão
UPDATE /pws/zycit245 SET vlvinc = itab_zycit245d-vlvinc
WHERE nrseqd EQ itab_zycit245d-nrseqd
AND nritem EQ itab_zycit245d-nritem.
IF /pws/zycit321-lote EQ space OR
itab_zycit279-lote IS INITIAL.
PERFORM carrega_umncm_real USING itab_zycit003-matnr
CHANGING itab_itens_nf-meins
itab_itens_nf-qtd_item.
itab_zycit279-slqtde =
itab_zycit279-slqtde - itab_itens_nf-qtd_item.
...