CE PLUS - Nota 010432
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Captação
Data/Hora da Publicação: 27/07/2010 00:00:00
Data/Hora Última Alteração: 18/02/2011 16:35:09
Descrição da Nota: CAPTAÇÃO DE TRAVA - INCONSISTÊNCIA DIAS CONTRATO/DIAS PARCELA PRINCIPAL
Sintoma
Ao criar uma captação de Trava(TR), com datas de contrato/crédito/entrega/liquidação diferentes, os
dias do cabeçalho do contrato não estão consistindo da mesma forma nos dias da parcela de principal,
gerando mensagens incorretas e não permitindo criar.
Solução
Ajustar para que todos os cálculos de dias do Contrato e Principal, tipo Trava, considerem o campo
FDTLANC(Data Lançto). Retirar a Data de Entrega que esta incluindo quando a parcela de Principal
esta com dias vazios. Ajustar também para contratos do tipo TRAVA que este campo FDTLANC só permita
selecionar a opção Contrato, pois é incorreto selecionar as opções Crédito e Desembolso.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10432 Data: 27/07/2010 Hora: 09:53:14
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10432
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00004
Agrupamento : 00032
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07116 - 00001 - 7.0 - 00006 - EXPORTAÇÃO CAPTAÇÃO
07965 - 00002 - 7.0 - 00008 - DA - COTAÇÃO DE MOEDAS PARA CAPTAÇÃO/FINANCIAMENTO/EMPRÉSTIMO
----------------------------------------------------------------------------------------------------
CAPTAÇÃO DE TRAVA - INCONSISTÊNCIA DIAS CONTRATO/DIAS PARCELA PRINCIPAL
----------------------------------------------------------------------------------------------------
Palavras Chave:
CAPTAÇÃO DE TRAVA INCONSISTÊNCIA DIA DO CONTRATO E DIA DA PARCELA PRINC.
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB001F01
REPS /PWS/MZYCB001I01
REPS /PWS/MZYCB001O01
REPT /PWS/SAPMZYCB001
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F01
...
from /pws/zycbt001
into /pws/zycbe001
where nrseqc = /pws/zycbe001-nrseqc.
move /pws/zycbe001 to wa_zycbt001.
endif.
endif.
endform.
form update_itab_zycbt002p.
data:
v_lines(4) type n.
* >> Início da exclusão: FORM UPDATE_ITAB_ZYCBT002P
if v_nrdias_aux2 ge v_periodo.
* << Fim da exclusão
* >> Início da inclusão: FORM UPDATE_ITAB_ZYCBT002P
IF v_nrdias_aux2 GE v_periodo
AND NOT v_nrdias_aux2 IS INITIAL
AND NOT v_periodo IS INITIAL.
* << Fim da inclusão
message i015 with text-036.
exit.
endif.
if /pws/zycbe002p is initial.
exit.
endif.
/pws/zycbe002p-dtvincul = itab_zycbt002p-dtvincul.
/pws/zycbe002p-ftransf = itab_zycbt002p-ftransf.
/pws/zycbe002p-przcontr = itab_zycbt002p-przcontr.
/pws/zycbe002p-belnr_transf = itab_zycbt002p-belnr_transf.
...
...
endif.
when 'C'.
if itab_zycbt002p-dtinicio < /pws/zycbe001-dtcred.
message i015 with text-215 text-216.
endif.
endcase.
endif.
if itab_zycbt002p-nrparc eq '001'.
if /pws/zycbe001-tpcontr(1) ne 'P' and
/pws/zycbe001-tpcontr(1) ne 'S'.
* >> Início da exclusão: FORM DIAS_PRINCIPAL
if /pws/zycbe001-tpcontr(1) eq 'E' or
/pws/zycbe001-tpcontr(1) eq 'C'.
* << Fim da exclusão
itab_zycbt002p-dtfinal = /pws/zycbe001-dtliquid.
* >> Início da exclusão: FORM DIAS_PRINCIPAL
else.
itab_zycbt002p-dtfinal = /pws/zycbe001-dtentr.
endif.
* << Fim da exclusão
endif.
if /pws/zycbe001-tpcontr(1) ne 'P' and
/pws/zycbe001-tpcontr(1) ne 'S'.
if not /pws/zycbe001-dtinijur is initial and
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001I01
...
module ftxt_consistency input.
check v_status_s = 1 or sy-tcode = '/PWS/ZYCB001_C'.
if not /pws/zycbe001-ftxt is initial.
if /pws/zycbe001-txtinf is initial.
message w153.
endif.
endif.
endmodule.
module fdtlanc_consistency input.
check v_status_s = 1 or sy-tcode = '/PWS/ZYCB001_C'.
* >> Início da inclusão: MODULE FDTLANC_CONSISTENCY
if /pws/zycbe001-tpcontr(1) = 'T' and
/pws/zycbe001-fdtlanc ne 'O'.
message e015 with text-510 text-511.
exit.
endif.
* << Fim da inclusão
case /pws/zycbe001-fdtlanc.
when 'D'.
if /pws/zycbe001-dtdesem is initial.
message i154 with text-059.
endif.
when 'O'.
if /pws/zycbe001-dtcontr is initial.
message i154 with text-060.
endif.
when others.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001O01
...
where kunnr eq /pws/zycbe001-kunnr.
cliente = kna1-name1.
endif.
if not /pws/zycbe001-tpcontr is initial.
select single tpcontr txtdesc
into (/pws/zycbt016-tpcontr, /pws/zycbt016-txtdesc)
from /pws/zycbt016
where tpcontr eq /pws/zycbe001-tpcontr.
tpcontr = /pws/zycbt016-txtdesc.
endif.
* >> Início da inclusão: MODULE SET_SCREEN
IF /pws/zycbe001-tpcontr(1) = 'T'.
CASE /pws/zycbe001-fdtlanc.
WHEN 'O'.
v_nrdiascontr = /pws/zycbe001-dtliquid -
/pws/zycbe001-dtcontr.
WHEN 'C'.
v_nrdiascontr = /pws/zycbe001-dtliquid - /pws/zycbe001-dtcred.
WHEN 'D'.
v_nrdiascontr = /pws/zycbe001-dtliquid -
/pws/zycbe001-dtdesem.
ENDCASE.
ELSE.
* << Fim da inclusão
case /pws/zycbe001-fdtjuros.
when 'O'.
v_nrdiascontr = /pws/zycbe001-dtliquid -
/pws/zycbe001-dtcontr.
when 'C'.
v_nrdiascontr = /pws/zycbe001-dtliquid - /pws/zycbe001-dtcred.
when 'D'.
v_nrdiascontr = /pws/zycbe001-dtliquid -
/pws/zycbe001-dtdesem.
endcase.
* >> Início da inclusão: MODULE SET_SCREEN
ENDIF.
* << Fim da inclusão
if not v_nrdiascontr is initial.
if sy-tcode eq c_transacao_c or
sy-tcode eq c_transacao_a.
if wa_zyglt009-nrdias_cp < v_nrdiascontr.
v_prazo = 'L'.
v_descprzcontr = text-491.
elseif wa_zyglt009-nrdias_cp >= v_nrdiascontr.
v_prazo = 'S'.
v_descprzcontr = text-493.
endif.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB001
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 510
Texto: (45 caracteres)
"Para contratos do tipo Trava só é permitida a"
Comprimento máximo: 45
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 511
Texto: (15 caracteres)
"opção Contrato."
Comprimento máximo: 15