CE PLUS - Nota 005561
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Recebimento
Data/Hora da Publicação: 04/01/2008 00:00:00
Data/Hora Última Alteração: 09/03/2010 11:30:43
Descrição da Nota: REMOÇÃO DE CODIGO FIXO NO PROGRAMA PARA PRCESSOS DE CARVÃO
Sintoma
O código do movimento do recebimento para carvão está fixo 103. Agora será 101 como os outros
processos.
Solução
Remover o trecho com o codigo fixo.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05561 Data: 04/01/2008 Hora: 14:48:14
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05561
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00004
Agrupamento : 00028
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
REMOÇÃO DE CODIGO FIXO NO PROGRAMA PARA PRCESSOS DE CARVÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI017F01
REPS /PWS/MZYCI017F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F01
...
IF NOT v_xblnr IS INITIAL.
itab_zycie033-lfsnr = v_xblnr.
ENDIF.
IF NOT v_sgtxt IS INITIAL.
itab_zycie033-sgtxt = v_sgtxt.
ENDIF.
itab_zycie033-bktxt = wa_nf-nfnum.
IF NOT wa_nf-bwartwe IS INITIAL.
itab_zycie033-bwartwe = wa_nf-bwartwe.
ENDIF.
* >> Início da exclusão: FORM FILL_DATE_MB01
IF /pws/zycie001-modalidade = '99'.
itab_zycie033-bwartwe = '103'.
ENDIF.
* << Fim da exclusão
IF t001-land1 = 'AR' OR t001-land1 ='CL'.
itab_zycie033-bwartwe = '101'.
ENDIF.
IF v_existe_nfr NE 'S'.
itab_zycie033-bukrs = /pws/zycie043-bukrs.
ELSE.
itab_zycie033-bukrs = /pws/zycie041-bukrs.
ENDIF.
APPEND itab_zycie033.
CLEAR itab_ekpo_s.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F02
...
MESSAGE w015 WITH text-055 text-056.
v_lock = 'X'.
WHEN 2.
MESSAGE w015 WITH text-054.
v_lock = 'X'.
ENDCASE.
ENDLOOP.
ENDIF.
ENDIF.
CLEAR v_tcode.
* >> Início da exclusão: FORM LOCK_RECORD
IF sy-tcode = '/PWS/ZYCI017_A' AND
* << Fim da exclusão
* >> Início da inclusão: FORM LOCK_RECORD
IF ( sy-tcode = '/PWS/ZYCI017_A' OR
sy-tcode = '/PWS/ZYCI017_C' ) AND
* << Fim da inclusão
NOT /pws/zycie041-nrseq IS INITIAL.
CALL FUNCTION '/PWS/ZYCI_ENQUEUE_ZYCIT041'
EXPORTING
nfglobal = /pws/zycie041-nfglobal
docnum = /pws/zycie041-docnum
EXCEPTIONS
foreign_lock = 1
system_failure = 2.
CASE sy-subrc.
WHEN 1.
MESSAGE w015 WITH text-100 text-101.
v_tcode = '/PWS/ZYCI017_E'.
WHEN 2.
MESSAGE a015 WITH text-024.
ENDCASE.
* >> Início da exclusão: FORM LOCK_RECORD
ELSEIF sy-tcode = '/PWS/ZYCI017_A' AND
* << Fim da exclusão
* >> Início da inclusão: FORM LOCK_RECORD
ELSEIF ( sy-tcode = '/PWS/ZYCI017_A' OR
sy-tcode = '/PWS/ZYCI017_C' ) AND
* << Fim da inclusão
NOT /pws/zycie043-nrseq IS INITIAL.
CALL FUNCTION '/PWS/ZYCI_ENQUEUE_ZYCIT043'
EXPORTING
nfglobal = /pws/zycie043-nfglobal
nfremessa = /pws/zycie043-nfremessa
docnum = /pws/zycie043-docnum
EXCEPTIONS
foreign_lock = 1
system_failure = 2.
CASE sy-subrc.
...