CE PLUS - Nota 006138
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Comissão de Agente
Data/Hora da Publicação: 10/03/2008 00:00:00
Data/Hora Última Alteração: 05/03/2010 10:30:11
Descrição da Nota: SDFGD
Sintoma
dfgdfg
Solução
dfgdfg
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06138 Data: 10/03/2008 Hora: 16:18:18
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06138
Categoria : Consultoria
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00004
Agrupamento : 00037
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
SDFGD
----------------------------------------------------------------------------------------------------
Palavras Chave:
GDFGDF
GDFG
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
WHERE belnr EQ /pws/zycie006-belnr_mr1m
AND gjahr EQ /pws/zycie006-dt_mr1m+0(4).
IF sy-subrc EQ 0 AND NOT rbkp-stblg IS INITIAL.
PERFORM popup_message USING text-026 text-025.
IF v_answer = 'J'.
p_var = 'S'.
ELSE.
CLEAR p_var.
ENDIF.
ELSE.
* >> Início da inclusão: FORM VERIFICA_ESTORNO_R3
CLEAR p_var.
* << Fim da inclusão
MESSAGE i015 WITH text-186.
ENDIF.
ELSEIF e_estorno = 'MBST' OR e_estorno = 'REC_MBST'.
SELECT SINGLE * FROM mseg
WHERE smbln EQ /pws/zycie006-mblnr_mb01
AND sjahr EQ /pws/zycie006-dt_mb01+0(4). "#EC CI_NOFIRST
IF sy-subrc EQ 0.
PERFORM popup_message USING text-026 text-025.
IF v_answer = 'J'.
p_var = 'S'.
ELSE.
CLEAR p_var.
ENDIF.
ELSE.
* >> Início da inclusão: FORM VERIFICA_ESTORNO_R3
CLEAR p_var.
* << Fim da inclusão
MESSAGE i015 WITH text-186.
ENDIF.
ELSE.
CLEAR: bkpf.
IF e_estorno = 'FBRA'.
SELECT SINGLE * FROM bkpf
WHERE bukrs EQ /pws/zycie006-bukrs
AND belnr EQ /pws/zycie006-belnr_f_51
AND gjahr EQ /pws/zycie006-dt_f_51+0(4).
ELSE.
...
...
ELSE.
CLEAR p_var.
ENDIF.
ELSE.
IF v_answer = 'J'.
CLEAR p_var.
ELSE.
p_var = 'S'.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM VERIFICA_ESTORNO_R3
ELSE.
IF e_estorno = 'FBRA'.
CLEAR p_var.
* << Fim da inclusão
ELSE.
* >> Início da inclusão: FORM VERIFICA_ESTORNO_R3
p_var = 'S'.
ENDIF.
* << Fim da inclusão
MESSAGE i015 WITH text-186.
ENDIF.
ENDIF.
ENDFORM.