CE PLUS - Nota 011457
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal Remessa
Data/Hora da Publicação: 15/09/2011 00:00:00
Data/Hora Última Alteração: 20/09/2011 17:23:13
Descrição da Nota: QUANTIDADE DOS ITENS DA NOTA DE REMESSA É ALTERADA AO FAZER ORDENAÇÃO
Sintoma
Ao alterar a ordem dos itens na nota fiscal de remessa o programa está alterando a quantidade e o
saldo dos itens.
Solução
Ajustada atualização do saldo para utilizar a chave da tabela.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11457 Data: 15/09/2011 Hora: 16:19:41
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11457
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00009
Agrupamento : 00084
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
06543 - 00001 - 7.0 - 00005 - NECESSÁRIO EXIT PARA FAZER DESENVOLVIMENTO ESPECÍFICO EM NF REMES
10904 - 00002 - 8.0 - 00006 - AJUSTE PARA PREENCHMENTO DO NÚMERO DA NOTA FISCAL DE REMESSA
----------------------------------------------------------------------------------------------------
QUANTIDADE DOS ITENS DA NOTA DE REMESSA É ALTERADA AO FAZER ORDENAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
NOTA - FISCAL - REMESSA - ORDENAÇÃO - ALTERA - QUANTIDADE
/PWS/SAPMZYCI016
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016I01
...
nfremessa = itab_zycit044-nfremessa.
UPDATE /pws/zycit043
SET nfnum = itab_zycit044-nfnum
series = itab_zycit044-series
subser = itab_zycit044-subser
WHERE nrseq = itab_zycit044-nrseqnf AND
nfglobal = itab_zycit044-nfglobal AND
nfremessa = itab_zycit044-nfremessa AND
docnum = itab_zycit044-docnum.
ENDIF.
* >> Início da inclusão: MODULE USER_COMMAND_EXIT
LOOP AT tc_itens_nfr-cols INTO wa_cols WHERE selected EQ 'X'.
CLEAR wa_cols-selected.
MODIFY tc_itens_nfr-cols FROM wa_cols.
ENDLOOP.
* << Fim da inclusão
IF okcode = '%EX'.
CLEAR: wa_zycie044.
itab_zycit044-mark = ' '.
MODIFY itab_zycit044 TRANSPORTING mark WHERE mark = 'X'.
LEAVE PROGRAM.
ELSEIF okcode = 'BACK'.
CLEAR: wa_zycie044.
itab_zycit044-mark = ' '.
MODIFY itab_zycit044 TRANSPORTING mark WHERE mark = 'X'.
...
...
MODULE altera_itab_zycit044 INPUT.
* >> Início da inclusão: MODULE ALTERA_ITAB_ZYCIT044
DATA: v_index TYPE sy-tabix.
* << Fim da inclusão
...
...
itab_zycit044-menge = /pws/zycie045-menge.
itab_zycit044-saldo = /pws/zycie045-saldo.
itab_zycit044-meins = /pws/zycie045-meins.
itab_zycit044-docnumnfg = /pws/zycie043-docnumnfg.
itab_zycit044-matnr = /pws/zycie044-matnr.
READ TABLE itab_zycit044_aux WITH KEY
ebeln = itab_zycit044-ebeln
ebelp = itab_zycit044-ebelp.
* >> Início da inclusão: MODULE ALTERA_ITAB_ZYCIT044
IF sy-subrc EQ 0.
v_index = sy-tabix.
ENDIF.
* << Fim da inclusão
REFRESH itab_zyglt100.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI016'
' '.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY
zexit = 'DNF017' BINARY SEARCH.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
...
...
text-019 itab_zycit044-ebeln.
ELSE.
MESSAGE w061 WITH text-004 itab_zycit044-ebelp
text-005 itab_zycit044-ebeln.
ENDIF.
ENDIF.
ENDIF .
CLEAR itab_zycit044_aux.
MODIFY itab_zycit044 INDEX tc_itens_nfr-current_line.
MOVE itab_zycit044 TO itab_zycit044_aux.
* >> Início da exclusão: MODULE ALTERA_ITAB_ZYCIT044
MODIFY itab_zycit044_aux INDEX tc_itens_nfr-current_line.
* << Fim da exclusão
* >> Início da inclusão: MODULE ALTERA_ITAB_ZYCIT044
MODIFY itab_zycit044_aux INDEX v_index.
* << Fim da inclusão
IF /pws/zycie043-nfexterna = space.
itab_zycit044-nfnum = space.
itab_zycit044-series = space.
itab_zycit044-subser = space.
ELSE.
itab_zycit044-nfnum = /pws/zycie044-nfnum.
itab_zycit044-series = /pws/zycie044-series.
itab_zycit044-subser = /pws/zycie044-subser.
ENDIF.
...