CE PLUS - Nota 004218
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 20/07/2007 00:00:00
Data/Hora Última Alteração: 09/03/2010 10:08:38
Descrição da Nota: AJUSTE NO PROGRAMA EMBARQUE CAMPO CENTRO
Sintoma
Não alterava o Centro conforme o pedido era incluido ou excluido
Solução
Atualização do programa de embarque para que o sistema atualize o centro na tabela do embarque
sempre que o usuário incluir ou excluir um pedido ao embarque.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04218 Data: 20/07/2007 Hora: 10:12:51
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04218
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00004
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
AJUSTE NO PROGRAMA EMBARQUE CAMPO CENTRO
----------------------------------------------------------------------------------------------------
Palavras Chave:
EMBAQUE - CENTRO - WERKS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI001F01
REPS /PWS/MZYCI001F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F01
...
/pws/zycie003-servico TO itab_zycit003-servico ,
/pws/zycie001-nrseq TO itab_zycit003-nrseq ,
/pws/zycie013-slqtde TO itab_zycit003-slqtde ,
/pws/zycie003-qtd_itend TO itab_zycit003-qtd_itend ,
/pws/zycie003-dtremessa TO itab_zycit003-dtremessa ,
/pws/zycie003-dtalocprod TO itab_zycit003-dtalocprod ,
/pws/zycie003-dtprovent TO itab_zycit003-dtprovent ,
/pws/zycie003-ntgewd TO itab_zycit003-ntgewd .
MOVE ekpo-idnlf TO itab_zycit003-idnlf.
MODIFY itab_zycit003 INDEX tc_ped-current_line.
* >> Início da inclusão: FORM ALTERA_ITAB_ZYCIT003
MOVE: itab_zycit003-werks TO /pws/zycie001-werks.
* << Fim da inclusão
IF sy-subrc NE 0.
IF /pws/zycie001-regime NE '14' AND /pws/zycie001-regime NE '16'.
READ TABLE itab_zycit003_aux WITH KEY
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
IF sy-subrc NE 0.
CLEAR itab_zycit013.
READ TABLE itab_zycit013 WITH KEY
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F03
...
READ TABLE itab_zycit263 WITH KEY
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp
eliminado = space.
IF sy-subrc NE 0.
CALL FUNCTION '/PWS/ZYCI_DEQUEUE_ZYCIT013'
EXPORTING
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
DELETE itab_zycit003 INDEX v_tabix.
* >> Início da inclusão: FORM TRATA_DELP
if itab_zycit003[] is initial.
/pws/zycie001-werks = ''.
endif.
* << Fim da inclusão
CLEAR itab_zycit003.
ELSE.
READ TABLE itab_zycit006 WITH KEY
nrseq_pgfat = itab_zycit263-nrseq_pgfat
eliminado = space .
IF sy-subrc EQ 0 .
MESSAGE w015 WITH text-043.
EXIT.
ELSE.
CALL FUNCTION '/PWS/ZYCI_DEQUEUE_ZYCIT013'
...