CE PLUS - Nota 003569
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 27/04/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 16:07:23
Descrição da Nota: AJUSTE NO PROGRAMA PARA TROCAR O 'STOP' PARA 'EXIT' DENTRO DO PERFORMS.
Sintoma
Ao estornar a fatura ocorreu o dump.
Solução
Foi modificado no programa para quando for necessário sair do processamento od perform, utilizar
EXIT ao invés de STOP.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03569 Data: 27/04/2007 Hora: 10:48:20
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03569
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00001
Agrupamento : 00163
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02962 - 00001 - 6.0 - 00026 - DA PARA ESTORNAR PAGAMENTO ANTECIPADO NA FATURA
----------------------------------------------------------------------------------------------------
AJUSTE NO PROGRAMA PARA TROCAR O 'STOP' PARA 'EXIT' DENTRO DO PERFORMS.
----------------------------------------------------------------------------------------------------
Palavras Chave:
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
FROM bseg
INTO TABLE itab_bseg
WHERE belnr EQ /pws/zycie006-belnr_p
AND gjahr EQ v_ano
AND bukrs EQ /pws/zycie006-bukrs.
PERFORM fill_date_f-43_pag_antecipado TABLES itab_bseg.
PERFORM fill_date_f_51_pag_antecipado TABLES itab_bseg.
ELSEIF NOT /pws/zycbt108-belnr_lq IS INITIAL
AND NOT /pws/zycbt108-belnr_as IS INITIAL.
MESSAGE i039 WITH text-110.
* >> Início da exclusão: FORM ESTORNO_PAG_ANTECIPADO
STOP.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNO_PAG_ANTECIPADO
EXIT.
* << Fim da inclusão
ENDIF.
ELSEIF NOT itab_zycit132[] IS INITIAL.
LOOP AT itab_zycit132.
SELECT SINGLE *
FROM /pws/zycbt108
WHERE nrseq_pgfat EQ itab_zycit132-nrseq_pgfat.
IF sy-subrc EQ 0 AND
( /pws/zycbt108-slfat EQ /pws/zycbt108-slfatcc ) AND
( NOT /pws/zycbt108-belnr_lq IS INITIAL AND
NOT /pws/zycbt108-belnr_as IS INITIAL ).
...
...
WHERE belnr EQ itab_zycit132-belnr_p
AND gjahr EQ v_ano
AND bukrs EQ /pws/zycie006-bukrs.
PERFORM fill_date_f-43_pag_antecipado TABLES itab_bseg.
PERFORM fill_date_f_51_pag_antecipado TABLES itab_bseg.
itab_zycit132-status = '2'.
MODIFY itab_zycit132.
ELSEIF NOT /pws/zycbt108-belnr_lq IS INITIAL
AND NOT /pws/zycbt108-belnr_as IS INITIAL.
MESSAGE i039 WITH text-110.
* >> Início da exclusão: FORM ESTORNO_PAG_ANTECIPADO
STOP.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNO_PAG_ANTECIPADO
EXIT.
* << Fim da inclusão
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
ENDFORM.
FORM fill_date_f_51_pag_antecipado TABLES p_itab_bseg STRUCTURE bseg.
DATA v_conta TYPE bseg-hkont.
itab_zycbe033-waers = /pws/zycie006-waers.
itab_zycbe033-bukrs = /pws/zycie006-bukrs.
itab_zycbe033-mandt = sy-mandt.
...
...
EXPORTING
v_modo = v_modo_bi
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
EXCEPTIONS
campo_em_branco = 1
OTHERS = 2.
PERFORM clear_date_batch.
* >> Início da exclusão: FORM FILL_DATE_F_51_PAG_ANTECIPADO
STOP.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_51_PAG_ANTECIPADO
EXIT.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM fill_date_f-43_pag_antecipado TABLES p_itab_bseg STRUCTURE bseg.
LOOP AT p_itab_bseg.
MOVE-CORRESPONDING p_itab_bseg TO itab_contas.
IF p_itab_bseg-koart EQ 'K'.
MOVE: '21' TO itab_contas-bschl,
p_itab_bseg-lifnr TO itab_contas-d_newko.
ELSE.
MOVE: '50' TO itab_contas-bschl,
...
...
tpmsg = 'S'.
IF sy-subrc EQ 0 AND NOT itab_zycbt032-belnr IS INITIAL.
MESSAGE i010 WITH itab_zycbt032-belnr.
v_belnr = itab_zycbt032-belnr.
PERFORM clear_date_batch.
ELSEIF sy-subrc NE 0.
LOOP AT itab_zycbt032.
MESSAGE i015 WITH itab_zycbt032-msg+0(50)
itab_zycbt032-msg+50(50).
ENDLOOP.
* >> Início da exclusão: FORM FILL_DATE_F-43_PAG_ANTECIPADO
STOP.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F-43_PAG_ANTECIPADO
EXIT.
* << Fim da inclusão
PERFORM clear_date_batch.
ENDIF.
ENDFORM.