CE PLUS - Nota 013419
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: LI
Data/Hora da Publicação: 18/11/2013 09:43:43
Data/Hora Última Alteração: 18/11/2013 09:43:43
Descrição da Nota: PERMITIR ALTERAÇÃO DO VALOR NO LOCAL DE EMBARQUE
Sintoma
O programa não permite alterar o valor da mercadoria no local do embarque. Ao alterar o valor o
programa descarta o valor informado e recalcula o valor.
Solução
Ajustado programa para recalcular o valor total da mercadoria no local de embarque apenas quando o
valor for apagado ou um novo item for inserido.
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 13419 Data: 14/11/2013 Hora: 15:59:21
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 13419
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 9.0
Pacote : 00006
Agrupamento : 00166
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
08318 - 00001 - 7.0 - 00009 - DESENVOLVIMENTO NACIONALIZAÇÃO DE ADMISSÃO TEMPORÁRIA
12469 - 00002 - 9.0 - 00001 - AJUSTE/ERRO NO CAMPO VAL.TOT.LOCAL EMBAR -> /PWS/ZYCIE078-VLMERC
----------------------------------------------------------------------------------------------------
PERMITIR ALTERAÇÃO DO VALOR NO LOCAL DE EMBARQUE
----------------------------------------------------------------------------------------------------
Palavras Chave:
LI - MODIFICAR - SALVAR - VALOR - MERCADORIA - LOCAL - EMBARQUE
/PWS/SAPMZYCI020
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI020F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F01
...
FORM selecionar_itens.
* >> Início da inclusão: FORM SELECIONAR_ITENS
DATA: v_lines1 TYPE i,
v_lines2 TYPE i.
* << Fim da inclusão
...
...
ENDIF.
ENDIF.
itab_bstyp-sign = 'I'.
itab_bstyp-option = 'EQ'.
itab_bstyp-low = 'F'.
APPEND itab_bstyp.
itab_bstyp-sign = 'I'.
itab_bstyp-option = 'EQ'.
itab_bstyp-low = 'L'.
APPEND itab_bstyp.
* >> Início da inclusão: FORM SELECIONAR_ITENS
DESCRIBE TABLE it_zycit079 LINES v_lines1.
* << Fim da inclusão
IF /pws/zycie078-nacion EQ 'X'.
PERFORM sel_nacion.
ELSEIF NOT /pws/zycie078-nrseq IS INITIAL.
SELECT * FROM /pws/zycit003
INTO TABLE it_zycit003
WHERE nrseq IN so_nrseq
AND nrseqli EQ space.
IF NOT it_zycit003[] IS INITIAL.
IF NOT so_ebeln[] IS INITIAL.
SELECT ekko~bukrs ekko~waers ekko~lifnr ekko~aedat
...
...
IF it_zycit079[] IS INITIAL.
MESSAGE s015 WITH text-217.
EXIT.
ENDIF.
PERFORM call_screen_710.
ELSEIF /pws/zycie078-tpli EQ 'N'.
PERFORM verifica_adicao.
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM SELECIONAR_ITENS
DESCRIBE TABLE it_zycit079 LINES v_lines2.
IF v_lines1 NE v_lines2.
CLEAR: /pws/zycie078-vlmerc.
ENDIF.
* << Fim da inclusão
ENDFORM.
...
...
* >> Início da exclusão: FORM VERIFICA_VLTOTAL_LOCAL_EMB
CLEAR: /pws/zycie078-vlmerc.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_VLTOTAL_LOCAL_EMB
CHECK NOT /pws/zycie078-vlmerc > 0.
* << Fim da inclusão
CHECK NOT it_zycit079[] IS INITIAL.
it_zycit079_a[] = it_zycit079[].
FREE itab_itens_aux.
IF NOT it_zycit079_a[] IS INITIAL.
SELECT ekko~ebeln ekko~lifnr ekko~inco1
ekpo~ebelp ekpo~txz01 ekpo~menge ekpo~ktmng ekpo~bstyp
ekpo~meins ekpo~ntgew ekpo~gewei ekpo~netpr ekpo~bednr
ekpo~uebto ekpo~uebtk ekpo~loekz ekpo~elikz ekpo~j_1bnbm
ekpo~matnr
FROM ( ekpo INNER JOIN ekko ON ekpo~ebeln = ekko~ebeln )
...