CE PLUS - Nota 010519
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação de Contrato
Data/Hora da Publicação: 19/08/2010 00:00:00
Data/Hora Última Alteração: 18/02/2011 16:57:58
Descrição da Nota: LIQ.ACC C/ PRÉ - NÃO MODIFICAR QUANDO O CONTRATO ESTÁ CONTABILIZADO
Sintoma
Liq.Acc c/ Pré - Não modificar quando o contrato está contabilizado quando faz contrato novo de DP
Solução
Tratar a tela no modo modificar, verificando se na tab. 001 o campo belnr estiver preenchido , tem
que ficar igual ao modo de exibir , sem poder alterar.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10519 Data: 19/08/2010 Hora: 14:52:42
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10519
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00004
Agrupamento : 00035
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
06286 - 00004 - 7.0 - 00005 - LIQUIDAÇÃO DE ACC COM PRÉ PAGTO
08930 - 00003 - 7.0 - 00010 - CAPTAÇÃO - LIQUIDAÇÃO DAS CAPTAÇÕES DE PRÉ-PAGAMENTO E SECURITIZA
09121 - 00002 - 8.0 - 00001 - LIQUIDAÇÃO DE ACC COM PRÉ - EXCLUSAO DO ITEM NAO ATUALIZA A TABE
10331 - 00001 - 8.0 - 00004 - CODE INSPECTOR - PW.CE - CAMBIO
----------------------------------------------------------------------------------------------------
LIQ.ACC C/ PRÉ - NÃO MODIFICAR QUANDO O CONTRATO ESTÁ CONTABILIZADO
----------------------------------------------------------------------------------------------------
Palavras Chave:
LIQ.ACC C/ PRÉ - NÃO MODIFICAR QUANDO O CONTRATO ESTÁ CONTABILIZADO
CONTRATO NOVO DE DP
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB014F01
REPS /PWS/MZYCB014I01
REPS /PWS/MZYCB014TOP
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB014F01
...
/pws/zycbe060-dtliquid, /pws/zycbe060-waers ,
/pws/zycbe060-vlme)
where nrseq = /pws/zycbe060a-nrseq.
move /pws/zycbe060 to wa_zycbe060_aux2.
if sy-subrc = 0 .
v_existe = 'YES'.
select *
from /pws/zycbt061
into table itab_zycbt061
where nrseq = /pws/zycbe060-nrseq.
* >> Início da exclusão: FORM LOCALIZA_REGISTRO
select tp_pagt_antc
* << Fim da exclusão
* >> Início da inclusão: FORM LOCALIZA_REGISTRO
select belnr tp_pagt_antc
* << Fim da inclusão
from /pws/zycbt001
* >> Início da exclusão: FORM LOCALIZA_REGISTRO
into /pws/zycbe001-tp_pagt_antc
* << Fim da exclusão
* >> Início da inclusão: FORM LOCALIZA_REGISTRO
into (v_belnr,
/pws/zycbe001-tp_pagt_antc)
* << Fim da inclusão
where nrseqc = /pws/zycbe060-nrseq.
endselect.
...
...
if wa_zycbt061_aux1 ne wa_zycbt061_aux2.
v_alterou = 'X'.
exit.
endif.
endloop.
endform.
form altera_itab_zycbt061.
data: subrc like sy-subrc,
v_sldesen like /pws/zycbt061-sldesen.
if sy-tcode <> '/PWS/ZYCB014_E'.
* >> Início da inclusão: FORM ALTERA_ITAB_ZYCBT061
if ( sy-tcode eq '/PWS/ZYCB014_A' or
sy-tcode eq '/PWS/ZYCB014_C' ) and
v_belnr is initial .
* << Fim da inclusão
v_sldesen = itab_zycbt061-sldesen.
perform move_zycbe061.
modify itab_zycbt061 index tc_itens-current_line.
subrc = sy-subrc.
read table itab_zycbt061_aux with key nrseq_c =
/pws/zycbe061-nrseq_c.
if sy-subrc eq 0.
delete itab_zycbt061 index tc_itens-current_line.
message i061 with text-030 /pws/zycbe061-nrseq_c text-031.
exit.
...
...
itab_zycbt061-paridade = 1.
endif.
itab_zycbt061-sldesen = v_sldesen.
itab_zycbt061-vlcalc_orig = itab_zycbt061-slvinc_c +
itab_zycbt061-vlalt.
perform dt_prorrogacoes.
modify itab_zycbt061 index tc_itens-current_line
transporting sldesen vlcalc_orig paridade.
else.
message i222.
* >> Início da inclusão: FORM ALTERA_ITAB_ZYCBT061
endif.
* << Fim da inclusão
endif.
endif.
endif.
endform.
form preenche_dados.
data: v_calc1 type f value 0, "#EC *
v_calc2 type f value 0. "#EC *
move: itab_zycbt061-nrseq_c to /pws/zycbe061-nrseq_c,
itab_zycbt061-nrcontr_c to /pws/zycbe061-nrcontr_c,
itab_zycbt061-tpcontr_c to /pws/zycbe061-tpcontr_c,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB014I01
...
when 'BACK'.
leave to screen '0100'.
endcase.
endcase.
endmodule.
module user_command_0001 input.
case okcode.
when 'ENTE'.
v_exibe = 'NO'.
perform localiza_registro.
* >> Início da inclusão: MODULE USER_COMMAND_0001
if not v_belnr is initial.
v_exibe = 'YES'.
endif.
* << Fim da inclusão
if v_existe = 'YES'.
perform lock_record.
call screen '0100'.
endif.
when 'BACK' or 'LEAVE' or 'RW'.
perform unlock_record.
leave program.
when others.
endcase.
endmodule.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB014TOP
...
v_liquid(5) type n value 0,
v_dtliquid like /pws/zycbt061-dtliquid,
v_dtentreg like /pws/zycbt061-dtentr,
v_nrcontr_j like /pws/zycbt001-nrcontr,
v_visivel like /pws/zyglt319-visivel, "#EC *
v_syrepid like sy-repid,
v_sydynnr like sy-dynnr, "#EC *
v_tcodebotao like /pws/zyglt319-tcode. "#EC *
data: v_ok type c,
v_vlme like /pws/zycbt002-vlme.
* >> Início da inclusão:
data: v_belnr like /pws/zycbt001-belnr.
* << Fim da inclusão
data: wa_log type char4000,
wa_zycbt001_log like /pws/zycbt001,
wa_zycbt002_log like /pws/zycbt002,
wa_zycbt004_log like /pws/zycbt004,
wa_zycbt060_log like /pws/zycbt060,
wa_zycbt061_log like /pws/zycbt061,
wa_zycbt062_log like /pws/zycbt062.