CE PLUS - Nota 010904
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal Remessa
Data/Hora da Publicação: 19/01/2011 00:00:00
Data/Hora Última Alteração: 19/01/2011 14:24:42
Descrição da Nota: AJUSTE PARA PREENCHMENTO DO NÚMERO DA NOTA FISCAL DE REMESSA
Sintoma
Não está gravando o número da nota fiscal de remessa nas tabelas /pws/zycit043 e /pws/zycit044.
Solução
Ajustado programa para ao sair da nota de remessa efetuar a busca do número da nota e atualizar as
tabelas /pws/zycit043 e /pws/zycit044.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10904 Data: 19/01/2011 Hora: 11:55:51
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10904
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 8.0
Pacote : 00006
Agrupamento : 00055
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
09193 - 00001 - 8.0 - 00001 - DUMP AO ACESSAR A NOTA FISCAL DE REMESSA MAIS DE 25 VEZES
----------------------------------------------------------------------------------------------------
AJUSTE PARA PREENCHMENTO DO NÚMERO DA NOTA FISCAL DE REMESSA
----------------------------------------------------------------------------------------------------
Palavras Chave:
AJUSTE - PREENCHER - NÚMERO - NOTA - FISCAL - REMESSA - SAIR
/PWS/SAPMZYCI016 - ELETRÔNICA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016I01
...
WHEN '0100'.
IF okcode = '%EX'.
LEAVE PROGRAM.
ELSEIF okcode = 'BACK'.
CLEAR: /pws/zycie041, /pws/zycie042, itab_zycit042.
REFRESH: itab_zycit042.
CALL SCREEN '0001'.
ENDIF.
CLEAR: /pws/zycie041, okcode.
WHEN '0200'.
* >> Início da inclusão: MODULE USER_COMMAND_EXIT
READ TABLE itab_zycit044 INDEX 1.
IF sy-subrc EQ 0 AND
itab_zycit044-docnum NE space.
CALL FUNCTION '/PWS/ZYCI_BUSCA_NFNUM'
EXPORTING
docnum = itab_zycit044-docnum
IMPORTING
nfnum = itab_zycit044-nfnum
series = itab_zycit044-series
subser = itab_zycit044-subser.
UPDATE /pws/zycit044
SET nfnum = itab_zycit044-nfnum
series = itab_zycit044-series
subser = itab_zycit044-subser
WHERE nrseq = itab_zycit044-nrseq AND
nrseqnf = itab_zycit044-nrseqnf AND
nfglobal = itab_zycit044-nfglobal AND
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.
* << Fim da inclusão
IF okcode = '%EX'.
LEAVE PROGRAM.
ELSEIF okcode = 'BACK'.
IF itab_zycit043_lista[] IS INITIAL.
LEAVE TO SCREEN 0.
ELSE.
REFRESH: itab_zycit043_lista.
LEAVE TO SCREEN 0.
ENDIF.
ENDIF.
...