CE PLUS - Nota 010824
Módulo: CÂMBIO IMPORTAÇÃO
Funcionalidade: Rotina Mensal
Data/Hora da Publicação: 14/12/2010 00:00:00
Data/Hora Última Alteração: 15/12/2010 17:15:50
Descrição da Nota: ROTINA MENSAL DE IMPORTAÇÃO, PROVISÃO DE JUROS
Sintoma
Na tela inicial onde o usuário informa os critérios para seleção, o campo de seleção - Tipo de
Financiamento está aceitando qualquer valor, mesmo os valores que não existe no matchcode.
Precisa apenas permitir informar os valores constantes no matchcode.
Solução
Alterado o programa para verificar se os valores existem no matchcode, caso não exista, será exibida
mensagem de Tipo de Financiamento inexistente para Seleção.
Versões Tratadas
8.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10824 Data: 12/14/2010 Hora: 10:04:13
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10824
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00005
Agrupamento : 00052
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
Texto Rápido:
ROTINA MENSAL DE IMPORTAÇÃO, PROVISÃO DE JUROS
----------------------------------------------------------------------------------------------------
Palavras Chave:
ROTINA MENSAL, IMPORTAÇÃO, PROVISÃO DE JUROS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCBR112
REPT /PWS/ZYCBR112
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR112
...
/pws/zycbt021,
/pws/zycbt009,
sscrfields.
data: itab_zycbt112 like /pws/zycbt112 occurs 10 with header line,
itab_zycbt113p like /pws/zycbt113 occurs 20 with header line,
itab_zycbt113p_aux like /pws/zycbt113 occurs 20 with header line,
itab_zycbt113j like /pws/zycbt113 occurs 20 with header line,
itab_zycbt031 like /pws/zycbt031 occurs 20 with header line,
itab_zycbt134 like /pws/zycbt134 occurs 0 with header line,
itab_lancados like /pws/zycbt154 occurs 0 with header line,
* >> Início da exclusão:
itab_lancados2 like /pws/zycbt154 occurs 0 with header line.
* << Fim da exclusão
* >> Início da inclusão:
itab_lancados2 like /pws/zycbt154 occurs 0 with header line,
itab_zycbt102 like /pws/zycbt102 occurs 0 with header line.
* << Fim da inclusão
data: begin of itab_pagas occurs 2,
nrseq like /pws/zycbt113-nrseq,
tpparc like /pws/zycbt113-tpparc,
nrparc like /pws/zycbt113-nrparc,
nrdias like /pws/zycbt113-nrdias,
dtinicio like /pws/zycbt113-dtinicio,
dtfinal like /pws/zycbt113-dtfinal,
v_total like /pws/zycbt113-vlme,
dtpagto like /pws/zycbt113-dtpagto,
kostl like /pws/zycbt113-kostl,
...
...
v_answer type c,
v_data like sy-datum,
v_monat like t001b-frpe1,
v_nrseq like /pws/zycbt112-nrseq,
v_tpcontab type c,
v_msg(150) type c,
v_programa type sy-cprog,
v_nrparcj like /pws/zycbt154-tpcontr,
v_fprov type /pws/zycbt007-fprovisao,
v_syrepid like sy-repid,
* >> Início da exclusão:
e_subrc like sy-subrc.
* << Fim da exclusão
* >> Início da inclusão:
e_subrc like sy-subrc,
v_processa(1) type c.
* << Fim da inclusão
data: wa_itab_relat like itab_relat,
wa_zycbt007 like /pws/zycbt007,
wa_zycbt011 like /pws/zycbt011,
wa_zyglt009 like /pws/zyglt009,
v_contabilizado,
v_cpochv like /pws/zycbe033-cpochv,
v_codeven like /pws/zycbt011-codeven.
selection-screen function key 1.
selection-screen begin of block b1 with frame title text-001.
parameters: s_bukrs like /pws/zycbt112-bukrs obligatory,
...
...
v_fprov = wa_zycbt007-fprovisao.
endif.
if screen-name = 'P_AGRUP'.
if v_fprov eq 'C'.
screen-input = 0.
screen-invisible = 1.
endif.
endif.
modify screen.
endloop.
* >> Início da inclusão:
select * from /pws/zycbt102
into table itab_zycbt102.
* << Fim da inclusão
perform exclui_campos.
start-of-selection.
* >> Início da inclusão:
perform verifica_tipo_financ.
if v_processa = 'S'.
* << Fim da inclusão
perform seleciona_dados.
perform processa_dados.
* >> Início da inclusão:
endif.
* << Fim da inclusão
end-of-selection.
refresh itab_status.
itab_status-fcode = 'CONT'.
append itab_status.
if wa_zycbt007-fprovisao ne 'C'.
itab_status-fcode = 'ESTO'.
append itab_status.
endif.
set pf-status '003' excluding itab_status.
at user-command.
...
...
if itab_zycbe033-d_zuonr is initial.
itab_zycbe033-d_zuonr = itab_contabil-nrseq.
itab_zycbe033-c_zuonr = itab_contabil-nrseq.
endif .
if itab_zycbe033-d_sgtxt is initial.
itab_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
endif.
endif.
endform.
* >> Início da inclusão:
form verifica_tipo_financ.
v_processa = 'S'.
if not s_codint is initial.
loop at s_codint.
if not s_codint-low is initial.
read table itab_zycbt102 with key codint = s_codint-low.
if sy-subrc ne 0.
message i015 with text-117.
v_processa = 'N'.
clear s_codint.
refresh s_codint.
exit.
endif.
endif.
if not s_codint-high is initial.
read table itab_zycbt102 with key codint = s_codint-high.
if sy-subrc ne 0.
message i015 with text-117.
v_processa = 'N'.
clear s_codint.
refresh s_codint.
exit.
endif.
endif.
endloop.
endif.
endform.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/ZYCBR112
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 117
Texto: (47 caracteres)
"Tipo de Financiamento Inexistente para Seleção."
Comprimento máximo: 47