CE PLUS - Nota 004314
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DA
Data/Hora da Publicação: 31/07/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:43:51
Descrição da Nota: DI DE NACIONALIZAÇÃO TRAZ PESO LIQ E BRUTO DIFERENTES DA DA DE REGIME 04
Sintoma
Ao criar um embarque de regime 16, o embarque traz o peso dos itens diferentes do peso do embarque
de regime 04. Ajustada também os pesos da Da do embarque de regime 04.
Solução
corrigir peso líquido ao navegar nos itens da DA e ajustar proposição do peso bruto.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04314 Data: 31/07/2007 Hora: 16:10:42
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04314
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00006
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04119 - 00001 - 7.0 - 00002 - CALCULO DA BASE E VALOR DE ICMS NA DA
----------------------------------------------------------------------------------------------------
DI DE NACIONALIZAÇÃO TRAZ PESO LIQ E BRUTO DIFERENTES DA DA DE REGIME 04
----------------------------------------------------------------------------------------------------
Palavras Chave:
DI - NACIONALIZAÇÃO - PESOS DIFERENTES - REGIME 16 - RECOF
REGIME 04
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI001F01
REPS /PWS/MZYCI070I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F01
...
IF /pws/zycit093-waersfre EQ /pws/zycbt007-waersb.
/pws/zycit093-prepaid = /pws/zycit093-prepaid +
( itab_zycit443_aux2-vlfre / itab_zycit443_aux2-qtd_iten
* itab_zycit003-qtd_iten ) .
ELSEIF NOT /pws/zycit442-ukursfre IS INITIAL.
/pws/zycit093-prepaid = /pws/zycit093-prepaid +
( ( itab_zycit443_aux2-vlfre / itab_zycit443_aux2-qtd_iten
* itab_zycit003-qtd_iten ) / /pws/zycit442-ukursfre ) .
ENDIF.
ENDIF.
* >> Início da inclusão: FORM GRAVA_TABELAS
IF /pws/zycit093-brgew IS INITIAL .
* << Fim da inclusão
/pws/zycit093-brgew = /pws/zycit093-brgew + itab_zycit003-ntgew.
* >> Início da inclusão: FORM GRAVA_TABELAS
ENDIF.
* << Fim da inclusão
ENDLOOP.
MOVE /pws/zycie093-nrseqce TO /pws/zycit093-nrseqce.
MODIFY /pws/zycit093.
SELECT SINGLE * FROM /pws/zycit094
WHERE nrseq = /pws/zycie001-nrseq.
SELECT SINGLE * FROM /pws/zycit093
...
...
CHECK /pws/zycie001-regime EQ '16'.
IF NOT itab_zycit003[] IS INITIAL.
IF itab_zycit443[] IS INITIAL.
SELECT *
INTO TABLE itab_zycit443
FROM /pws/zycit443
FOR ALL ENTRIES IN itab_zycit003
WHERE nrseqda EQ itab_zycit003-nrseqda.
ENDIF.
ENDIF.
IF NOT itab_zycit443[] IS INITIAL.
SELECT * FROM /pws/zycit003 INTO TABLE itab_zycit003_saldo
FOR ALL ENTRIES IN itab_zycit443
WHERE ebeln EQ itab_zycit443-ebeln
AND ebelp EQ itab_zycit443-ebelp
* >> Início da inclusão: FORM CARREGA_ZYCBE003
and nrseqda eq itab_zycit443-nrseqda.
* << Fim da inclusão
ENDIF.
LOOP AT itab_zycit003.
v_tabix = sy-tabix.
IF NOT itab_zycit003_saldo[] IS INITIAL.
SELECT nrseq regime FROM /pws/zycit001
INTO TABLE itab_zycit001_saldo
FOR ALL ENTRIES IN itab_zycit003_saldo
WHERE nrseq EQ itab_zycit003_saldo-nrseq
AND tpdecl EQ 'DI'.
LOOP AT itab_zycit001_saldo WHERE regime EQ '04'.
DELETE itab_zycit003_saldo
WHERE nrseq EQ itab_zycit001_saldo-nrseq.
ENDLOOP.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070I01
...
itab_it-mark = wa_it-mark.
MOVE: v_saldo_da TO itab_it-v_saldo_da,
v_qtd_da TO itab_it-qtd_da,
v_vlreal TO itab_it-vlreal.
IF itab_it-mandt IS INITIAL.
itab_it-mandt = sy-mandt.
ENDIF.
IF v_dit = 'S'.
ELSE.
MODIFY itab_it TRANSPORTING mark v_saldo_da qtd_da vlreal ntgew
* >> Início da exclusão: MODULE MODI_DATAIT
WHERE ebeln EQ /pws/zycie443a-ebeln
AND ebelp EQ /pws/zycie443a-ebelp.
* << Fim da exclusão
* >> Início da inclusão: MODULE MODI_DATAIT
WHERE ebeln EQ itab_it-ebeln
AND ebelp EQ itab_it-ebelp.
* << Fim da inclusão
ENDIF.
ENDMODULE.
...