CE PLUS - Nota 001955
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Recebimento
Data/Hora da Publicação: 18/08/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 13:14:50
Descrição da Nota: ERRO EM BATCH INPUT AO UTILIZAR FUNÇÃO SHIFT + F9 NO RECEBIMENTO.
Sintoma
Erro em batch input ao utilizar função shift + f9 no recebimento.
Solução
Alterar tipo de variável para uma aceita em todas as versões.
Atualização específica no estorno do recebimento MIGO.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01955 Data: 18/08/2006 Hora: 11:06:57
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01955
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00024
Agrupamento : 00127
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00827 - 00001 - 6.0 - 00022 - A FUNCIONALIDADE DE SHIFT+F9 DEVERÁ SER DEFINIDA POR USUÁRIO
----------------------------------------------------------------------------------------------------
ERRO EM BATCH INPUT AO UTILIZAR FUNÇÃO SHIFT + F9 NO RECEBIMENTO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
BATCH INPUT - SHIFT + F9 - /PWS/ZYGLT384 - RECEBIMENTO
AUTORIZAÇÃO DE BATCH INPUT - MIRO - MIGO - F51 - F-02
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016I01
REPS /PWS/MZYCI017F01
REPS /PWS/MZYCI017F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016I01
...
LOOP AT itab_zycit044.
itab_zycit044-mark = ' '.
MODIFY itab_zycit044.
ENDLOOP.
WHEN 'MODO'.
* >> Início da exclusão: MODULE USER_COMMAND_0200
DATA: v_autoriza TYPE feld.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0200
DATA: v_autoriza TYPE c.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYGL_AUTORIZA_MODO_BATCH'
EXPORTING
codmod = 'D'
usuario = sy-uname
func = 'NFR'
IMPORTING
autoriza = v_autoriza.
* >> Início da exclusão: MODULE USER_COMMAND_0200
IF v_autoriza-name = 'X'.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0200
IF v_autoriza = 'X'.
* << Fim da inclusão
PERFORM modo_batch_input.
ELSE.
MESSAGE w013 WITH text-094 text-095.
ENDIF.
WHEN 'CRIARNFR'.
...
...
codmod = 'D'
usuario = sy-uname
func = 'NFG'
IMPORTING
autoriza = v_autoriza.
* >> Início da inclusão: MODULE USER_COMMAND_0050
IF v_autoriza = 'X'.
* << Fim da inclusão
* >> Início da exclusão: MODULE USER_COMMAND_0050
IF v_autoriza-name = 'X'.
* << Fim da exclusão
PERFORM modo_batch_input.
ELSE.
MESSAGE w013 WITH text-094 text-095.
ENDIF.
WHEN 'CRIARNF'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F01
...
tc_itens_nfg-top_line = tc_itens_nfg-top_line + tc_itens_nfg-lines.
WHEN 'RECEB'.
PERFORM executa_batch_input.
CLEAR v_modo_bi.
WHEN 'MODO'.
* >> Início da exclusão: FORM EXECUTAR_EVENTO
DATA: v_autoriza TYPE feld,
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTAR_EVENTO
DATA: v_autoriza ,
* << Fim da inclusão
v_uname LIKE sy-uname.
CLEAR v_uname.
v_uname = sy-uname.
CALL FUNCTION '/PWS/ZYGL_AUTORIZA_MODO_BATCH'
EXPORTING
...
...
ENDIF.
ENDIF.
ENDIF.
PERFORM fill_date_j1b3_saida.
ELSE.
* >> Início da inclusão: FORM EXECUTA_BATCH_INPUT
IF NOT wa_nf-belnr_mr1m IS INITIAL AND
* << Fim da inclusão
* >> Início da exclusão: FORM EXECUTA_BATCH_INPUT
IF wa_nf-belnr_f_51 IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_BATCH_INPUT
NOT wa_nf-mblnr_mb01 IS INITIAL AND
wa_nf-belnr_f_51 IS INITIAL AND
* << Fim da inclusão
wa_nf-belnr_f_02 IS INITIAL AND
wa_nf-belnrf02seg IS INITIAL.
CLEAR itab_itemdata.
REFRESH itab_itemdata.
SELECT SINGLE * FROM t001 WHERE bukrs = wa_nf-bukrs.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F02
...
it_zycit270-dtestorno = sy-datlo.
APPEND it_zycit270.
ENDIF.
ENDFORM.
FORM atualiza_historico.
* >> Início da inclusão: FORM ATUALIZA_HISTORICO
READ TABLE it_zycit270 WITH KEY
belnr = wa_nf-belnr_mr1m.
IF sy-subrc EQ 0.
DELETE it_zycit270 WHERE belnr EQ it_zycit270-belnr.
ENDIF.
READ TABLE it_zycit270 WITH KEY
belnr = wa_nf-mblnr_mb01.
IF sy-subrc EQ 0.
DELETE it_zycit270 WHERE belnr EQ it_zycit270-belnr.
ENDIF.
READ TABLE it_zycit270 WITH KEY
belnr = wa_nf-belnr_f_51.
IF sy-subrc EQ 0.
DELETE it_zycit270 WHERE belnr EQ it_zycit270-belnr.
ENDIF.
READ TABLE it_zycit270 WITH KEY
belnr = wa_nf-belnr_f_02.
IF sy-subrc EQ 0.
DELETE it_zycit270 WHERE belnr EQ it_zycit270-belnr.
ENDIF.
READ TABLE it_zycit270 WITH KEY
belnr = wa_nf-belnrf02seg.
IF sy-subrc EQ 0.
DELETE it_zycit270 WHERE belnr EQ it_zycit270-belnr.
ENDIF.
READ TABLE it_zycit270 WITH KEY
belnr = wa_nf-belnrf02fre.
IF sy-subrc EQ 0.
DELETE it_zycit270 WHERE belnr EQ it_zycit270-belnr.
ENDIF.
* << Fim da inclusão
LOOP AT it_zycit270.
INSERT INTO /pws/zycit270 VALUES it_zycit270.
ENDLOOP.
CLEAR it_zycit270. REFRESH it_zycit270.
ENDFORM.
...