CE PLUS - Nota 001700
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Recebimento
Data/Hora da Publicação: 10/07/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:44:05
Descrição da Nota: QUANDO OCORRE ERRO NO RECEBIMENTO E NÃO É ESTORNADO NÃO PERMITE CONTINUA
Sintoma
Quando ocorre erro no Recebimento e não é estornado não permite continuar a F-51 e as
contabilizações.
Solução
Inserido tratamento para o esse ponto.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01700 Data: 10/07/2006 Hora: 11:46:06
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01700
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00024
Agrupamento : 00122
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
QUANDO OCORRE ERRO NO RECEBIMENTO E NÃO É ESTORNADO NÃO PERMITE CONTINUA
----------------------------------------------------------------------------------------------------
Palavras Chave:
ERRO - RECEBIMENTO - ESTORNAR - CONTINUAR
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI017F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F01
...
PERFORM fill_date_f_02fre.
ENDIF.
ENDIF.
ENDIF.
PERFORM fill_date_j1b3_saida.
* >> Início da inclusão: FORM EXECUTA_BATCH_INPUT
ELSE.
IF wa_nf-belnr_f_51 IS INITIAL AND
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.
PERFORM get_parameters_mrm1_receb.
PERFORM fill_date_f_51.
IF wa_nf-belnr_f_02 IS INITIAL.
IF t001-land1 = 'AR' OR t001-land1 = 'CL'.
PERFORM fill_date_f_02_ana.
ELSE.
IF /pws/zycie001-modalidade NE '99'.
PERFORM fill_date_f_02.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM EXECUTA_BATCH_INPUT
ENDIF.
ENDIF.
ENDIF.
ENDIF.
SELECT SINGLE * FROM t001 WHERE bukrs = /pws/zycie043a-bukrs.
SELECT SINGLE *
FROM /pws/zycit000
INTO wa_zycit000
WHERE land1 EQ t001-land1.
IF /pws/zycit031-inco1_ci NE 'CIF' AND wa_zycit000-provseg = 'X'.
SELECT SINGLE * FROM /pws/zycit041
INTO wa_global
WHERE nrseq = wa_nf-nrseq
AND nfglobal = wa_nf-nfglobal
AND cancel NE 'X'.
IF wa_nf-belnrf02seg IS INITIAL.
PERFORM fill_date_f_02b.
ENDIF.
ENDIF.
IF /pws/zycit031-inco1_ci = 'FOB' AND wa_zycit000-provfre = 'X'.
SELECT SINGLE * FROM /pws/zycit041
INTO wa_global
WHERE nrseq = wa_nf-nrseq
AND nfglobal = wa_nf-nfglobal
AND cancel NE 'X'.
IF wa_nf-belnrf02fre IS INITIAL.
PERFORM fill_date_f_02fre.
ENDIF.
ENDIF.
PERFORM fill_date_j1b3_saida.
* << Fim da inclusão
IF v_existe_nfr EQ 'S'.
/pws/zycie041-dt_mr1m = wa_nf-dt_mr1m .
itab_nf-dt_mr1m = wa_nf-dt_mr1m .
ENDIF.
itab_nf-belnr_mr1m = wa_nf-belnr_mr1m.
...