CE PLUS - Nota 005780
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal Remessa
Data/Hora da Publicação: 29/01/2008 00:00:00
Data/Hora Última Alteração: 09/03/2010 11:42:56
Descrição da Nota: PREENCHIMENTO AUTOMATICO DA QUANTIDADE DOS ITENS NA NF REMESSA
Sintoma
Ao pressionar a tecla enter na tela de itens da nota fiscal de remessa apenas os itens que estão
sendo exibidos tem a quantidade preenchida automaticamente.
Solução
Atualização do programa de Nota Fiscal Remessa para que o sistema leve proposto a quantidade de
todos os ítens.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05780 Data: 29/01/2008 Hora: 14:29:00
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05780
Categoria : Erro de Programa
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00004
Agrupamento : 00038
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
PREENCHIMENTO AUTOMATICO DA QUANTIDADE DOS ITENS NA NF REMESSA
----------------------------------------------------------------------------------------------------
Palavras Chave:
PREENCHIMENTO - QUANTIDADE - AUTOMATICA - NOTA - FISCAL - REMESSA
/PWS/SAPMZYCI016
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016I01
...
ENDIF.
MODIFY itab_zycit042 INDEX sy-tabix.
UPDATE /pws/zycit042 SET nfnum = itab_zycit042-nfnum
series = itab_zycit042-series
subser = itab_zycit042-subser
WHERE docnum = itab_zycit042-docnum."#EC CI_NOFIELD
ENDLOOP.
ENDMODULE.
MODULE atualiza_itab_zycit044 INPUT.
LOOP AT itab_zycit044.
* >> Início da inclusão: MODULE ATUALIZA_ITAB_ZYCIT044
CLEAR: itab_zycit044_aux.
READ TABLE itab_zycit044_aux WITH KEY
ebeln = itab_zycit044-ebeln
ebelp = itab_zycit044-ebelp.
IF itab_zycit044-qtd_item IS INITIAL AND
itab_zycit044_aux-qtd_item IS INITIAL AND
itab_zycit044-noinitial NE 'X' AND itab_zycit044-saldo > 0.
itab_zycit044-qtd_item = itab_zycit044-saldo .
ELSEIF NOT itab_zycit044_aux-qtd_item IS INITIAL AND
itab_zycit044-qtd_item IS INITIAL.
itab_zycit044-qtd_item = 0.
itab_zycit044-noinitial = 'X'.
ENDIF.
IF itab_zycit044_aux-qtd_item NE itab_zycit044-qtd_item.
itab_zycit044-saldo = itab_zycit044-saldo +
( itab_zycit044_aux-qtd_item - itab_zycit044-qtd_item ).
ENDIF.
itab_zycit044_aux = itab_zycit044.
MODIFY itab_zycit044_aux TRANSPORTING qtd_item saldo noinitial
WHERE ebeln = itab_zycit044-ebeln
AND ebelp = itab_zycit044-ebelp.
* << Fim da inclusão
itab_zycit044-nrseqnf = /pws/zycie043-nrseq.
itab_zycit044-nfglobal = /pws/zycie043-nfglobal.
itab_zycit044-nfremessa = /pws/zycie043-nfremessa.
SELECT SINGLE * FROM j_1bnfdoc
WHERE docnum = itab_zycit044-docnum.
IF sy-subrc EQ 0.
itab_zycit044-nfnum = j_1bnfdoc-nfnum.
itab_zycit044-series = j_1bnfdoc-series.
ENDIF.
IF /pws/zycie043-nfexterna = 'X'.
IF itab_zycit044-nfnum IS INITIAL.
itab_zycit044-nfnum = wa_zycit048-nfprov.
itab_zycit044-series = wa_zycit048-series.
ENDIF.
ELSE.
CLEAR: itab_zycit044-nfnum, itab_zycit044-series.
ENDIF.
* >> Início da exclusão: MODULE ATUALIZA_ITAB_ZYCIT044
MODIFY itab_zycit044 INDEX sy-tabix.
* << Fim da exclusão
* >> Início da inclusão: MODULE ATUALIZA_ITAB_ZYCIT044
MODIFY itab_zycit044.
* << Fim da inclusão
ENDLOOP.
ENDMODULE.
MODULE carrega_itab_resum INPUT.
itab_resum-codigo = /pws/zycie053-codigo.
itab_resum-vlglobal = /pws/zycie053-vlreal.
itab_resum-vlcompl = /pws/zycie053-vlcompl.
itab_resum-vlreal = /pws/zycie036-vlreal.
ENDMODULE.
MODULE user_command_0400 INPUT.
IF sy-dynnr = '0400'.
...