CE PLUS - Nota 007272
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Valores Mantidos no Exterior
Data/Hora da Publicação: 08/09/2008 00:00:00
Data/Hora Última Alteração: 18/02/2011 17:41:39
Descrição da Nota: VALORES MANTIDOS NO EXTERIOR-DISPONIBILIDADE-CAMPOS FECHADOS/VALOR ZERO
Sintoma
Ao criar nova disponibilidade, esta fechando os campos de valor e data, incorretamente, e deixando
gravar com valor zero.
Solução
Ler se o registro de disponibilidade é novo e não fechar os campos valor e data. Exibir mensagem ao
salvar se o campo valor da disponibilidade estiver zero.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07272 Data: 08/09/2008 Hora: 11:44:45
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07272
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00006
Agrupamento : 00064
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
05482 - 00001 - 7.0 - 00003 - VALORES MANTIDOS NO EXTERIOR - DA COMPLETO
07117 - 00002 - 7.0 - 00006 - BOTÕES "VINCULAR TOTAL" E "SELECIONAR FATURAS" - VME
----------------------------------------------------------------------------------------------------
VALORES MANTIDOS NO EXTERIOR-DISPONIBILIDADE-CAMPOS FECHADOS/VALOR ZERO
----------------------------------------------------------------------------------------------------
Palavras Chave:
VALORES MANTIDOS NO EXTERIOR DISPONIBILIDADE CAMPOS FECHADOS VALOR ZERO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB034F01
REPT /PWS/SAPMZYCB034
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB034F01
...
DATA: wa_zycbt226 TYPE t_s_zycbe226.
CASE ok_code.
WHEN 'SAVE'.
LOOP AT itab_zycbt226 INTO wa_zycbt226.
IF sy-tcode NE c_transacao_a.
IF wa_zycbt226-vlr_exterior IS INITIAL.
MESSAGE e015 WITH 'Informe'(m49) 'o Valor Ret.no Exterior'(m50).
ENDIF.
ENDIF.
ENDLOOP.
* >> Início da inclusão: FORM USER_COMMAND_0100
LOOP AT itab_disp_00 INTO wa_disp WHERE NOT vldisp GT 0
AND operacao NE 'E'.
EXIT.
ENDLOOP.
IF sy-subrc = 0.
MESSAGE i061 WITH text-048.
CLEAR ok_code.
EXIT.
ENDIF.
* << Fim da inclusão
PERFORM salva_previsto.
PERFORM salva_rendimentos.
PERFORM processamento.
WHEN 'PB_HELP'.
v_tela_help = '0051'.
EXIT.
WHEN 'HELP_CLOSE'.
v_tela_help = '0052'.
EXIT.
WHEN 'AEND'.
...
...
USING p_itab_disp TYPE t_t_disponibilidade
p_tc TYPE cxtab_control
p_destino TYPE /pws/zycbe238-destino.
DATA:
wa_disp LIKE LINE OF p_itab_disp.
/pws/zycbe238-destino = p_destino.
READ TABLE p_itab_disp INTO wa_disp INDEX p_tc-current_line.
MOVE-CORRESPONDING:
/pws/zycbe238 TO wa_disp.
MOVE:
* >> Início da exclusão: FORM ATUALIZA_TC_DISPONIBILIDADE
v_mark TO wa_disp-mark,
/pws/zycbe226-waers TO wa_disp-waers,
/pws/zycbe238-vldisp TO wa_disp-saldo,
sy-datum TO wa_disp-dtdisp .
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_TC_DISPONIBILIDADE
v_mark TO wa_disp-mark,
/pws/zycbe226-waers TO wa_disp-waers,
/pws/zycbe238-vldisp TO wa_disp-saldo.
IF wa_disp-dtdisp IS INITIAL.
MOVE: sy-datum TO wa_disp-dtdisp.
ENDIF.
* << Fim da inclusão
MODIFY p_itab_disp FROM wa_disp INDEX p_tc-current_line.
ENDFORM.
FORM loop_at_screen_disp
USING p_itab_disp TYPE t_t_disponibilidade
p_tc TYPE cxtab_control
p_destino TYPE /pws/zycbe238-destino. "#EC *
DATA:
v_fecha_linha TYPE c.
READ TABLE itab_zycbt007 INTO wa_zycbt007
WITH KEY bukrs = /pws/zycbe226-bukrs.
* >> Início da inclusão: FORM LOOP_AT_SCREEN_DISP
READ TABLE p_itab_disp INTO wa_disp INDEX p_tc-current_line.
* << Fim da inclusão
READ TABLE itab_disp_ant
WITH KEY nrseq = /pws/zycbe238-nrseq
destino = p_destino
dtdisp = /pws/zycbe238-dtdisp
TRANSPORTING NO FIELDS.
* >> Início da exclusão: FORM LOOP_AT_SCREEN_DISP
IF sy-subrc EQ 0.
* << Fim da exclusão
* >> Início da inclusão: FORM LOOP_AT_SCREEN_DISP
IF sy-subrc EQ 0
AND wa_disp-operacao NE 'N'.
* << Fim da inclusão
v_fecha_linha = 'X'.
ENDIF.
LOOP AT SCREEN.
IF v_fecha_linha = 'X'.
CHECK screen-name NE c_mark.
screen-input = 0.
MODIFY SCREEN.
ELSE.
IF /pws/zycbe238-nrseq EQ space.
screen-input = 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB034
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 048
Texto: (32 caracteres)
"Preencher valor disponibilidade."
Comprimento máximo: 32