CE PLUS - Nota 011245
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação de Fatura
Data/Hora da Publicação: 15/06/2011 00:00:00
Data/Hora Última Alteração: 15/06/2011 08:50:06
Descrição da Nota: LIQUIDAÇÃO DE CONTRATOS, CAMPOS FECHADOS NA TELA
Sintoma
A funcionalidade Liquidação Modificar está trazendo alguns campos fechados inadequadamente.
São dois flag¿s que ficam do lado das datas Exterior e Pagamento. Precisa apenas fazer com
que eles voltem a ficar abertos no Modificar e que continuem o tratamento que já tinha:
- Se não tiver nenhum flegado, os dois ficam abertos;
- Se um deles estiver flegado, o outro fica fechado. Se desflegar, voltam a ficar abertos.
Solução
Manteve o mesmo tratamento de fechamento destes campos para Criar e Modificar Liquidação.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11245 Data: 15/06/2011 Hora: 08:32:57
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11245
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00008
Agrupamento : 00074
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00243 - 00001 - 6.0 - 00021 - CÁLCULO JUROS NA LIQUIDAÇÃO
03776 - 00002 - 7.0 - 00001 - LIQUIDAÇÃO - DATA PAGAMENTO NO EXTERIOR
10889 - 00003 - 8.0 - 00006 - VINCULAÇÃO/LIQUIDAÇÃO ARBITRAGEM-MOEDA SEM CASAS DECIMAIS, CENTAV
----------------------------------------------------------------------------------------------------
LIQUIDAÇÃO DE CONTRATOS, CAMPOS FECHADOS NA TELA
----------------------------------------------------------------------------------------------------
Palavras Chave:
LIQUIDAÇÃO, CONTRATOS, CAMPOS FECHADOS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB004F01
REPS /PWS/MZYCB004F02
REPS /PWS/MZYCB004I01
REPS /PWS/MZYCB004O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F01
...
endform.
form busca_envento_taxa.
clear wa_zycbt011.
select single * from /pws/zycbt011
into wa_zycbt011
where codeven = '0010'
and bukrs = /pws/zycbe001-bukrs.
endform.
form carrega_vljur_vlcomis.
data: v_tabix like sy-tabix.
* >> Início da exclusão: FORM CARREGA_VLJUR_VLCOMIS
if /pws/zycbt001-tpcontr(1) eq 'D'.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_VLJUR_VLCOMIS
if /pws/zycbt001-tpcontr(1) eq 'D'
and sy-tcode = c_transacao_c.
* << Fim da inclusão
loop at itab_zycbt005.
v_tabix = sy-tabix.
move: itab_zycbt005-vljur to itab_zycbt005-v_vljur.
modify itab_zycbt005 index v_tabix.
endloop.
else.
if not itab_zycbt005[] is initial.
select nrseqc nrparc nrinvoic
nrparcf
dtvincul dtvencto vljur vlcomis
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F02
...
where nrseqc = itab_zycbt006-nrseqc
and nrparc = itab_zycbt006-nrparc
and dtincl = itab_zycbt006-dtincl
and nrinvoic = itab_zycbt006-nrinvoic
and nrparcf = itab_zycbt006-nrparcf
and gsberf = itab_zycbt006-gsberf
and dtvincul = itab_zycbt006-dtvincul
and dtvencto = itab_zycbt006-dtvencto.
update /pws/zycbt006 set vljur = itab_zycbt006-vljur
txjtotal = itab_zycbt006-txjtotal
* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2
dtcalcjur = itab_zycbt006-dtcalcjur
* << Fim da inclusão
where nrseqc = itab_zycbt006-nrseqc
and tpdesp = itab_zycbt006-tpdesp
and nrparc = itab_zycbt006-nrparc
and dtincl = itab_zycbt006-dtincl
and nrinvoic = itab_zycbt006-nrinvoic
and nrparcf = itab_zycbt006-nrparcf
and gsberf = itab_zycbt006-gsberf
and dtvincul = itab_zycbt006-dtvincul
and dtvencto = itab_zycbt006-dtvencto
and dtpagext = itab_zycbt006-dtpagext
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004I01
...
v_dtoperac = itab_zycbt001-dtdesem.
when others.
v_dtoperac = itab_zycbt001-dtcred.
endcase.
endmodule.
module calcula_juros input.
clear: v_calcula_juros.
call customer-function '002'
importing
v_subrc = v_calcula_juros.
* >> Início da exclusão: MODULE CALCULA_JUROS
if v_calcula_juros eq 'X'.
* << Fim da exclusão
* >> Início da inclusão: MODULE CALCULA_JUROS
if v_calcula_juros eq 'X' or sy-tcode eq c_transacao_e.
* << Fim da inclusão
exit.
endif.
loop at itab_zycbt005.
v_index = sy-tabix.
if itab_zycbt005-dtcredext ne '00000000' and
itab_zycbt005-dtcredext ne ' '.
itab_zycbt005-v_vljur = itab_zycbt005-vljur.
modify itab_zycbt005 index v_index.
continue.
endif.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004O01
...
screen-name = 'V_DTPAGTO' or
screen-name = 'V_DTLIQ' or
screen-name = 'V_TXTINF'.
screen-input = '0'.
endif.
modify screen.
endloop.
else.
loop at screen.
if screen-name = '/PWS/ZYCBE006-DTPAGEXT' or
* >> Início da exclusão: MODULE SET_SCRREN_TC_RECURSO_AUX
screen-name = 'V_DT_PGT' or
screen-name = 'V_DTPAGTO' or
screen-name = 'V_DTLIQ'.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCRREN_TC_RECURSO_AUX
screen-name = 'V_DTPAGTO'.
* << Fim da inclusão
screen-input = '0'.
endif.
modify screen.
endloop.
endif.
endif.
endmodule.
module mensagem_tc_recurso_aux output.
perform mensagem_tc_recurso_aux.
endmodule.