CE PLUS - Nota 002156
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Recebimento
Data/Hora da Publicação: 27/09/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:53:42
Descrição da Nota: AJUSTE NO RECEBIMENTO VINCULADO AO ATO CONCESSÓRIO
Sintoma
Ao executarmos o recebimento de um processo de importação vinculado ao Ato Concessório, verificamos
que na pasta Importações > Realizadas, os lotes estão aparecendo, porém sem as informações completas
e o valor de cada lote, que deveria ser o valor recebido na respectiva nota remessa, está trazendo
incorretamente o valor total do Pedido em cada linha.
Solução
A divisão dos valores dos campos ntgew, vltot, vlseg, vlfrete, baseii, baseipi, basecofins, basepis
e baseicms foram mudadas para a quantidade do pedido. Foram incluídos os campos docnum, nfnum,
series na seleção da tabela /pws/zycit044.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02156 Data: 27/09/2006 Hora: 12:37:57
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02156
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00025
Agrupamento : 00132
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01679 - 00001 - 6.0 - 00024 - AJUSTE NO TRATAMENTO DE LOTE NO RECEBIMENTO
01981 - 00002 - 6.0 - 00024 - AJUSTE PARA TRATAR NOTAS FISCAIS DE REMESSA NO RECEBIMENTO VINC.
----------------------------------------------------------------------------------------------------
AJUSTE NO RECEBIMENTO VINCULADO AO ATO CONCESSÓRIO
----------------------------------------------------------------------------------------------------
Palavras Chave:
IMPORTAÇÕES, REALIZADAS, LOTES, NOTA REMESSA, VALOR, NOTA
PEDIDO, RECEBIMENTO, VINCULADO, ATO CONCESSÓRIO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI017F01
REPS /PWS/MZYCI017F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F01
...
GET CURSOR FIELD v_campo VALUE v_valor .
IF v_campo EQ '/PWS/ZYCIE043A-NFREMESSA'.
READ TABLE itab_nf WITH KEY nfremessa = v_valor.
MOVE-CORRESPONDING itab_nf TO /pws/zycie043.
SELECT a~nrseqnf a~nrseq a~embarca a~nfglobal a~nfremessa a~tpnf
* >> Início da exclusão: FORM CHAMAR_NFREMESSA
a~ebeln a~ebelp a~qtd_item a~werks a~j_1bbranch a~lifnr
a~lgort b~menge b~saldo b~meins
* << Fim da exclusão
* >> Início da inclusão: FORM CHAMAR_NFREMESSA
a~ebeln a~ebelp a~qtd_item a~docnum a~nfnum a~series
a~werks a~j_1bbranch a~lifnr a~lgort
b~menge b~saldo b~meins
* << Fim da inclusão
FROM /pws/zycit044 AS a LEFT OUTER JOIN /pws/zycit045 AS b
ON a~nrseqnf = b~nrseqnf
AND a~nrseq = b~nrseq
AND a~nfglobal = b~nfglobal
AND a~ebeln = b~ebeln
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F02
...
ELSE.
itab_zycit279 = wa_zycit279.
* >> Início da exclusão: FORM ADICIONA_SALDO_ATO
itab_zycit279-qtd_iten = itab_zycit279-qtd_iten *
( itab_zycit223-qtde / v_qtd_nftp ).
* << Fim da exclusão
* >> Início da inclusão: FORM ADICIONA_SALDO_ATO
itab_zycit279-qtd_iten = itab_zycit223-qtde.
* << Fim da inclusão
itab_zycit279-ntgew = itab_zycit279-ntgew *
* >> Início da exclusão: FORM ADICIONA_SALDO_ATO
( itab_zycit223-qtde / v_qtd_nftp ).
* << Fim da exclusão
* >> Início da inclusão: FORM ADICIONA_SALDO_ATO
( itab_zycit223-qtde /
itab_zycit003-qtd_iten ).
* << Fim da inclusão
itab_zycit279-vltot = itab_zycit279-vltot *
* >> Início da exclusão: FORM ADICIONA_SALDO_ATO
( itab_zycit223-qtde / v_qtd_nftp ).
* << Fim da exclusão
* >> Início da inclusão: FORM ADICIONA_SALDO_ATO
( itab_zycit223-qtde /
itab_zycit003-qtd_iten ).
* << Fim da inclusão
itab_zycit279-vlseg = itab_zycit279-vlseg *
* >> Início da exclusão: FORM ADICIONA_SALDO_ATO
( itab_zycit223-qtde / v_qtd_nftp ).
* << Fim da exclusão
* >> Início da inclusão: FORM ADICIONA_SALDO_ATO
( itab_zycit223-qtde /
itab_zycit003-qtd_iten ).
* << Fim da inclusão
itab_zycit279-vlfrete = itab_zycit279-vlfrete *
* >> Início da exclusão: FORM ADICIONA_SALDO_ATO
( itab_zycit223-qtde / v_qtd_nftp ).
* << Fim da exclusão
* >> Início da inclusão: FORM ADICIONA_SALDO_ATO
( itab_zycit223-qtde /
itab_zycit003-qtd_iten ).
* << Fim da inclusão
itab_zycit279-slqtde = itab_zycit279-slqtde *
( itab_zycit223-qtde / v_qtd_nftp ).
itab_zycit279-menge = itab_zycit279-menge *
* >> Início da exclusão: FORM ADICIONA_SALDO_ATO
( itab_zycit223-qtde / v_qtd_nftp ).
* << Fim da exclusão
* >> Início da inclusão: FORM ADICIONA_SALDO_ATO
( itab_zycit223-qtde /
itab_zycit003-qtd_iten ).
* << Fim da inclusão
itab_zycit279-baseii = itab_zycit279-baseii *
* >> Início da exclusão: FORM ADICIONA_SALDO_ATO
( itab_zycit223-qtde / v_qtd_nftp ).
* << Fim da exclusão
* >> Início da inclusão: FORM ADICIONA_SALDO_ATO
( itab_zycit223-qtde /
itab_zycit003-qtd_iten ).
* << Fim da inclusão
itab_zycit279-baseipi = itab_zycit279-baseipi *
* >> Início da exclusão: FORM ADICIONA_SALDO_ATO
( itab_zycit223-qtde / v_qtd_nftp ).
* << Fim da exclusão
* >> Início da inclusão: FORM ADICIONA_SALDO_ATO
( itab_zycit223-qtde /
itab_zycit003-qtd_iten ).
* << Fim da inclusão
itab_zycit279-basecofins = itab_zycit279-basecofins *
* >> Início da exclusão: FORM ADICIONA_SALDO_ATO
( itab_zycit223-qtde / v_qtd_nftp ).
* << Fim da exclusão
* >> Início da inclusão: FORM ADICIONA_SALDO_ATO
( itab_zycit223-qtde /
itab_zycit003-qtd_iten ).
* << Fim da inclusão
itab_zycit279-basepis = itab_zycit279-basepis *
* >> Início da exclusão: FORM ADICIONA_SALDO_ATO
( itab_zycit223-qtde / v_qtd_nftp ).
* << Fim da exclusão
* >> Início da inclusão: FORM ADICIONA_SALDO_ATO
( itab_zycit223-qtde /
itab_zycit003-qtd_iten ).
* << Fim da inclusão
itab_zycit279-baseicms = itab_zycit279-baseicms *
* >> Início da exclusão: FORM ADICIONA_SALDO_ATO
( itab_zycit223-qtde / v_qtd_nftp ).
* << Fim da exclusão
* >> Início da inclusão: FORM ADICIONA_SALDO_ATO
( itab_zycit223-qtde /
itab_zycit003-qtd_iten ).
* << Fim da inclusão
COLLECT itab_zycit279.
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
...
...
ENDIF.
itab_zycit279-slqtde =
itab_zycit279-slqtde - itab_zycit223-qtde.
* ENDIF.
IF itab_zycit279-slqtde < 0.
itab_zycit279-slqtde = 0.
ENDIF.
IF itab_zycit279-slqtde = 0.
* >> Início da inclusão: FORM ESTORNA_SALDO_ATO
IF /pws/zycit321-lote EQ '1'.
* << Fim da inclusão
DELETE FROM /pws/zycit279 WHERE nrseq = itab_itens_nf-nrseq
AND ebeln = itab_itens_nf-ebeln
* >> Início da exclusão: FORM ESTORNA_SALDO_ATO
AND ebelp = itab_itens_nf-ebelp.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_SALDO_ATO
AND ebelp = itab_itens_nf-ebelp
AND lote = itab_zycit223-lote.
* << Fim da inclusão
DELETE itab_zycit279 WHERE nrseq = itab_itens_nf-nrseq
AND ebeln = itab_itens_nf-ebeln
* >> Início da exclusão: FORM ESTORNA_SALDO_ATO
AND ebelp = itab_itens_nf-ebelp.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_SALDO_ATO
AND ebelp = itab_itens_nf-ebelp
AND lote = itab_zycit223-lote.
ELSE.
DELETE FROM /pws/zycit279 WHERE nrseq = itab_itens_nf-nrseq
AND ebeln = itab_itens_nf-ebeln
AND ebelp = itab_itens_nf-ebelp
AND lote = itab_zycit223-lote_forn.
DELETE itab_zycit279 WHERE nrseq = itab_itens_nf-nrseq
AND ebeln = itab_itens_nf-ebeln
AND ebelp = itab_itens_nf-ebelp
AND lote = itab_zycit223-lote_forn.
ENDIF.
* << Fim da inclusão
CLEAR itab_zycit279.
CONTINUE.
ENDIF.
MODIFY itab_zycit279 INDEX sy-tabix.
ENDLOOP.
ENDIF.
ENDIF.
ENDLOOP.