CE PLUS - Nota 004023
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 22/06/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 15:12:39
Descrição da Nota: EMBARQUE: VINCULAÇÃO DE DA
Sintoma
Ao vincular a DA no embarque de nacionalização não está levando o valor planejado do embarque.
Solução
Limpar esta variável somente quando for recalcular o Valor Planejado.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04023 Data: 22/06/2007 Hora: 16:43:41
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04023
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00001
Agrupamento : 00171
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01383 - 00001 - 6.0 - 00023 - AJUSTES NA DA
01986 - 00002 - 6.0 - 00024 - ERRO NO CUSTO EFETIVO E FATURA DO TIPO P
----------------------------------------------------------------------------------------------------
EMBARQUE: VINCULAÇÃO DE DA
----------------------------------------------------------------------------------------------------
Palavras Chave:
VALOR PLANEJADO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI001F03
REPS /PWS/MZYCI001I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F03
...
DELETE itab_da INDEX v_tabix.
CONTINUE.
ENDIF.
IF itab_da-qtd_lote IS INITIAL.
DELETE itab_da.
ELSEIF itab_da-qtd_nac GE itab_da-qtd_lote AND
NOT itab_da-qtd_nac IS INITIAL .
DELETE itab_da .
ELSE.
IF NOT itab_da-qtd_nac IS INITIAL.
* >> Início da inclusão: FORM SELECIONAR_DA
IF itab_da-qtd_nac < 0.
itab_da-qtd_lote = itab_da-qtd_lote + itab_da-qtd_nac.
CLEAR itab_da-qtd_nac.
MODIFY itab_da.
ELSE.
* << Fim da inclusão
itab_da-qtd_lote = itab_da-qtd_lote - itab_da-qtd_nac.
CLEAR itab_da-qtd_nac.
MODIFY itab_da.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM SELECIONAR_DA
ENDIF.
* << Fim da inclusão
ENDLOOP.
ENDIF.
* >> Início da inclusão: FORM SELECIONAR_DA
DELETE itab_da WHERE qtd_lote IS initial.
* << Fim da inclusão
DESCRIBE TABLE itab_da LINES v_line.
IF itab_da[] IS INITIAL.
MESSAGE s015 WITH text-259 text-264.
EXIT.
ENDIF.
IF v_manual EQ 'X'.
v_caller = 'SELECIONAR_RC'.
ELSE.
v_caller = 'SELECIONAR_DA'.
ENDIF.
...
...
IF t001-land1 EQ 'BR'.
SELECT SINGLE steuc FROM marc INTO itab_zycit003-j_1bnbm
WHERE matnr = itab_zycit003-matnr.
ELSE.
SELECT SINGLE steuc FROM marc INTO itab_zycit003-j_1bnbm
WHERE matnr = itab_zycit003-matnr
AND werks = ekpo-werks.
ENDIF.
ENDIF.
MODIFY itab_zycit003.
* >> Início da inclusão: FORM SELECIONAR_ITENS_DA
IF v_waers_diferente = 'X'.
PERFORM busca_taxa_dia USING itab_zycit003-waers
itab_zycit003-netpr
CHANGING v_taxa
v_netpr.
ELSE.
v_taxa = 1.
ENDIF.
* << Fim da inclusão
v_netpr = ( itab_zycit003-netpr * itab_zycit003-qtd_iten *
v_taxa ).
PERFORM tratar_decimais USING itab_zycit003-waers
CHANGING v_netpr.
/pws/zycie001-netpr = /pws/zycie001-netpr + v_netpr.
IF /pws/zycie001-netpr < 0.
CLEAR /pws/zycie001-netpr.
MESSAGE e061 WITH text-235 text-236.
ENDIF.
ENDLOOP.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001I01
...
WHEN OTHERS.
IF okcode NE 'SAVE'
AND okcode NE 'ENTE'
AND okcode NE 'FC_BX_TR'
AND okcode NE 'FC_SD_TR'
AND okcode NE 'DELE'
AND okcode NE 'DESM'
AND okcode NE 'MALL'.
FREE itab_zycit374.
ENDIF.
* >> Início da exclusão: MODULE USER_COMMAND_0102
CLEAR /pws/zycie001-netpr.
* << Fim da exclusão
READ TABLE itab_zycit003 INDEX 1.
MOVE itab_zycit003-waers TO v_moeda.
LOOP AT itab_zycit003 WHERE waers NE v_moeda.
v_waers_diferente = 'X'.
ENDLOOP.
IF sy-subrc NE 0.
/pws/zycie001-waers = v_moeda.
ENDIF.
IF /pws/zycie001-regime NE '14' AND
/pws/zycie001-regime NE '16'.
* >> Início da inclusão: MODULE USER_COMMAND_0102
CLEAR /pws/zycie001-netpr.
* << Fim da inclusão
LOOP AT itab_zycit003.
IF v_waers_diferente = 'X'.
PERFORM busca_taxa_dia USING itab_zycit003-waers
itab_zycit003-netpr
CHANGING v_taxa
v_netpr.
ELSE.
v_netpr = itab_zycit003-netpr.
v_taxa = 1.
ENDIF.
...