CE PLUS - Nota 009932
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Desconto de Recebíveis
Data/Hora da Publicação: 10/03/2010 00:00:00
Data/Hora Última Alteração: 18/02/2011 16:50:57
Descrição da Nota: DESCONTO DE RECEBÍVEIS MELHORIA MENSAGENS
Sintoma
As mensagens de erro não estão claras nos retornos de B.I.
Solução
Troca das cor das mensegens de erro para vermelho.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09932 Data: 10/03/2010 Hora: 10:50:48
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09932
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 8.0
Pacote : 00002
Agrupamento : 00012
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
06380 - 00003 - 7.0 - 00005 - CODE INSPECTOR
09641 - 00002 - 8.0 - 00002 - ESTORNO DE DESCONTO DE RECEBIVEIS
09923 - 00001 - 8.0 - 00002 - VERIFICAÇÃO PERÍODO ABERTO/FECHADO NÃO FUNCIONA - IMPACTO PELO NE
----------------------------------------------------------------------------------------------------
DESCONTO DE RECEBÍVEIS MELHORIA MENSAGENS
----------------------------------------------------------------------------------------------------
Palavras Chave:
DESCONTO RECEBIVEL MELHORIA MENSAGEM
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB033F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB033F01
...
endloop.
itab_zycbe033-brnch = itab_zycbt030-j_1bbranch.
itab_zycbe033-werks = itab_zycbt030-werks.
if sy-subrc eq 0.
append itab_zycbe033.
endif.
loop at itab_zycbt034.
call function 'MESSAGE_STORE'
exporting
arbgb = '/PWS/ZYCBM'
* >> Início da exclusão: FORM PROC_INCLUSAO
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM PROC_INCLUSAO
msgty = 'E'
* << Fim da inclusão
msgv1 = itab_zycbt034-descricao
txtnr = '061'
zeile = v_zeile.
v_zeile = v_zeile + 1.
endloop.
if itab_zycbt034 is initial.
clear: itab_zyglt100.
refresh: itab_zyglt100.
if itab_zyglt100[] is initial.
v_syrepid = sy-repid.
...
...
if p_field is initial.
itab_zycbt034-campo = p_fieldname.
itab_zycbt034-descricao = p_description.
append itab_zycbt034.
endif.
endform.
form command_modo.
data: wa_zycbt039 like /pws/zycbt039.
clear: itab_modo.
refresh: itab_modo.
* >> Início da exclusão: FORM COMMAND_MODO
select * from /pws/zycbt039 into wa_zycbt039. "#EC CI_NOWHERE
* << Fim da exclusão
* >> Início da inclusão: FORM COMMAND_MODO
select * from /pws/zycbt039 into wa_zycbt039. "#EC CI_NOWHERE
* << Fim da inclusão
itab_modo-selflag = wa_zycbt039-modo.
itab_modo-varoption = wa_zycbt039-descr.
append itab_modo.
endselect.
sort itab_modo descending.
call function 'POPUP_TO_DECIDE_LIST'
exporting
textline1 = text-036
textline2 = text-037
titel = text-038
...
...
v_saldo_liq like /pws/zycbt219-saldo_liq.
select single saldo_liq from /pws/zycbt219 into v_saldo_liq
where bukrs = itab_zycbt219-bukrs and
nrinvoic = itab_zycbt219-nrinvoic and
belnr = itab_zycbt219-belnr and
dtincl = itab_zycbt219-dtincl and
gsberf = itab_zycbt219-gsberf and
nrparcf = itab_zycbt219-nrparcf.
select * from /pws/zycbt006
up to 1 rows
* >> Início da exclusão: FORM PROC_ESTORNO
where nrinvoic eq itab_zycbt219-nrinvoic. "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM PROC_ESTORNO
where nrinvoic eq itab_zycbt219-nrinvoic. "#EC CI_NOFIRST
* << Fim da inclusão
endselect.
if sy-subrc ne 0.
select * from /pws/zycbt005
up to 1 rows
* >> Início da exclusão: FORM PROC_ESTORNO
where nrinvoic eq itab_zycbt219-nrinvoic. "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM PROC_ESTORNO
where nrinvoic eq itab_zycbt219-nrinvoic. "#EC CI_NOFIRST
* << Fim da inclusão
endselect.
endif.
if sy-subrc eq 0.
if itab_zycbt219-saldo ne itab_zycbt219-vlme and
v_saldo_liq eq 0.
call function 'MESSAGE_STORE'
exporting
arbgb = '/PWS/ZYCBM'
msgty = 'S'
msgv1 = text-056
...