CE PLUS - Nota 004808
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Captação
Data/Hora da Publicação: 24/09/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 12:51:47
Descrição da Nota: CAPTAÇÃO - ELIMINAÇÃO DA OBRIGATORIEDADE DA FORMA DE CALCULO PARA ACC
Sintoma
Na contabilização do refinanciamento, o programa não está verificando o ano do documento contábil
gerado na transferência de Longo Prazo para Curto Prazo da Rotina Mensal. Gerei financiamento em
2006, e a transferência foi em 2007. Quando vou refinanciar, o programa busca o documento com data
de 2006 ao invés de 2007, dando erro na seleção de PA da F-51.
Solução
Verificação da data de contrato da tabela /pws/zycbt154, para identificação do ano do lançamento
para a chave de referência do lançamento contábil (f-51).
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04808 Data: 24/09/2007 Hora: 16:45:12
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04808
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00013
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00569 - 00001 - 6.0 - 00022 - CAPTAÇÃO - BUSCA DO CAMPO /PWS/ZYCBT002-BELNR2 NA VINCULAÇÃO
00647 - 00002 - 6.0 - 00022 - LIMPEZA DO CABEÇALHO AO SALVAR CAPTAÇÃO A PARTIR DA CAPITALIZAÇÃO
00816 - 00003 - 6.0 - 00022 - TEXTO FIXO NA TELA DA PRESTAÇÃO DE CONTAS
01179 - 00004 - 6.0 - 00023 - CAMPO NR CLIENTE - LIQUIDAÇÃO DE ACC COM PRÉ PAGTO
01226 - 00005 - 6.0 - 00023 - CAPTAÇÃO - CONTRATOS DE PRÉ E SECURITIZAÇÃO CAMPO "FORMA DE CALC
----------------------------------------------------------------------------------------------------
CAPTAÇÃO - ELIMINAÇÃO DA OBRIGATORIEDADE DA FORMA DE CALCULO PARA ACC
----------------------------------------------------------------------------------------------------
Palavras Chave:
CAPTAÇÃO - ELIMINAÇÃO DA OBRIGATORIEDADE DA FORMA DE CALCULO PARA ACC
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB001F01
REPS /PWS/MZYCB001F02
REPS /PWS/MZYCB001I01
REPS /PWS/MZYCB001O01
REPS /PWS/MZYCB001TOP
REPT /PWS/SAPMZYCB001
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F01
...
APPEND itab_zycbt002.
ENDIF.
ELSE.
CLEAR: /pws/zycbe002, itab_zycbt002.
REFRESH itab_zycbt002.
ENDIF.
ENDFORM.
FORM create_zycbt002_e.
DATA: v_data_lq LIKE /pws/zycbe001-dtliquid.
IF ( /pws/zycbe001-tpcontr(1) EQ 'T' OR
* >> Início da inclusão: FORM CREATE_ZYCBT002_E
/pws/zycbe001-tpcontr(1) EQ 'A' OR
* << Fim da inclusão
/pws/zycbe001-tpcontr(1) EQ 'E' ) AND
/pws/zycbe001-ffrcalc IS INITIAL.
EXIT.
ENDIF.
itab_zycbt002-nrparc = v_countlinej.
IF NOT /pws/zycbe001-dtinijur IS INITIAL AND
( /pws/zycbe001-tpcontr(1) EQ 'E' OR
/pws/zycbe001-tpcontr(1) EQ 'T' OR
/pws/zycbe001-tpcontr(1) EQ 'A' ).
itab_zycbt002-dtinicio = /pws/zycbe001-dtinijur.
...
...
IMPORTING
answer = v_answer
EXCEPTIONS
OTHERS = 1.
ENDFORM.
FORM save_changes.
DATA: v_sai VALUE ' '.
IF NOT itab_zycbt002[] IS INITIAL.
v_flaginij = 'X'.
ENDIF.
* >> Início da inclusão: FORM SAVE_CHANGES
IF /pws/zycbe001-tpcontr(1) EQ 'A'.
IF /pws/zycbe001-ffrcalc IS INITIAL.
IF NOT itab_zycbt002[] IS INITIAL.
MESSAGE i015 WITH text-456 text-457.
EXIT.
ENDIF.
SELECT SINGLE * FROM /pws/zycbt154
WHERE nrcorresp = /pws/zycbe001-nrseqc
AND codmod = 'E'
AND ( codmodul = 'JU' OR codmodul = 'JD' ).
IF sy-subrc EQ 0.
MESSAGE i015 WITH text-458 text-457.
EXIT.
ENDIF.
SELECT SINGLE * FROM /pws/zycbt004
WHERE nrseqc = /pws/zycbe001-nrseqc
AND tpdesp = 'J'.
IF sy-subrc EQ 0.
MESSAGE i015 WITH text-458 text-457.
EXIT.
ENDIF.
ENDIF.
ENDIF.
* << Fim da inclusão
IF /pws/zycbe001-tpcontr(1) NE 'C'.
IF /pws/zycbe001-fdtjuros IS INITIAL AND NOT
/pws/zycbe001-ffrcalc IS INITIAL.
MESSAGE i015 WITH text-005.
EXIT.
ENDIF.
ENDIF.
IF /pws/zycbe001-tpcontr+0(1) = 'D' AND
NOT wa_zycbt089-rateio_cl IS INITIAL.
LOOP AT itab_zycbt221.
...
...
ENDLOOP.
IF v_vlme NE /pws/zycbe001-vlme.
MESSAGE i015 WITH text-038.
EXIT.
ENDIF.
ENDCASE.
IF /pws/zycbe001-tpcontr(1) NE 'C' AND
/pws/zycbe001-tpcontr(1) NE 'D' AND
/pws/zycbe001-tpcontr(1) NE 'T' AND
/pws/zycbe001-tpcontr(1) NE 'E' AND
* >> Início da inclusão: FORM SAVE_CHANGES
/pws/zycbe001-tpcontr(1) NE 'A' AND
* << Fim da inclusão
/pws/zycbe001-tpcontr(1) NE 'P' AND
/pws/zycbe001-tpcontr(1) NE 'S' AND
/pws/zycbe001-ffrcalc IS INITIAL.
MESSAGE i015 WITH text-154.
EXIT.
ENDIF.
IF NOT v_ind_juros IS INITIAL.
MESSAGE i015 WITH text-030.
EXIT.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F02
...
PERFORM save_zycbt003.
PERFORM save_zycbt005.
PERFORM save_zycbt221.
PERFORM exibe_mensagens.
ENDIF.
PERFORM data_efetiva.
ENDFORM.
FORM estorno_pre_acc.
DATA: v_belnr LIKE bkpf-belnr,
v_budat LIKE bkpf-budat,
* >> Início da inclusão: FORM ESTORNO_PRE_ACC
v_count TYPE i,
v_total TYPE i,
* << Fim da inclusão
v_prim TYPE c.
CHECK /pws/zycbe001-f_pre EQ 'C'.
IF /pws/zycbe001-tpcontr(1) CA 'PS'.
PERFORM reagrupa_pre CHANGING v_belnr v_budat.
ELSE.
IF /pws/zycbe001-belnr2 IS INITIAL.
v_belnr = /pws/zycbe001-belnr.
ELSE.
v_belnr = /pws/zycbe001-belnr2.
ENDIF.
...
...
FROM /pws/zycbt061
INTO TABLE itab_zycbt061
WHERE nrseq EQ /pws/zycbe001-nrseqc
ORDER BY dtliquid.
IF sy-subrc NE 0.
MESSAGE i015 WITH text-243 text-244.
EXIT.
ENDIF.
CLEAR sy-subrc.
v_prim = space.
* >> Início da inclusão: FORM ESTORNO_PRE_ACC
CLEAR: v_count, v_total.
LOOP AT itab_zycbt061 WHERE nrseq = /pws/zycbe001-nrseqc.
v_total = v_total + 1.
ENDLOOP.
* << Fim da inclusão
LOOP AT itab_zycbt061 WHERE nrseq = /pws/zycbe001-nrseqc.
SELECT SINGLE *
FROM /pws/zycbt001
INTO wa_zycbt001_pre
WHERE nrseqc = itab_zycbt061-nrseq_c.
* >> Início da exclusão: FORM ESTORNO_PRE_ACC
AT LAST.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNO_PRE_ACC
v_count = v_count + 1.
IF v_count EQ v_total.
* << Fim da inclusão
v_prim = 'L'.
* >> Início da exclusão: FORM ESTORNO_PRE_ACC
ENDAT.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNO_PRE_ACC
ENDIF.
* << Fim da inclusão
PERFORM retorna_saldo_acc CHANGING v_belnr
v_budat
v_prim.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001I01
...
/pws/zycbt001-capital = 'X' ).
PERFORM delete_zycbt001_pre1.
ELSEIF /pws/zycbt001-tpcontr(1) = 'T'.
PERFORM delete_zycbt001_tr.
ELSE.
PERFORM delete_zycbt001.
ENDIF.
ENDIF.
WHEN 'SAVE'.
CASE /pws/zycbe001-tpcontr+0(1).
* >> Início da exclusão: MODULE USER_COMMAND_CB001
WHEN 'A' OR 'D'.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_CB001
WHEN 'D'.
* << Fim da inclusão
PERFORM create_zycbt002_a.
WHEN 'P' OR 'S'.
PERFORM create_zycbt002_p.
* >> Início da exclusão: MODULE USER_COMMAND_CB001
WHEN 'E' OR 'C' OR 'T'.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_CB001
WHEN 'A' OR 'E' OR 'C' OR 'T'.
* << Fim da inclusão
PERFORM create_zycbt002_e.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001O01
...
nrparc = itab_zycbt002-nrparc.
IF sy-subrc EQ 0.
itab_zycbt002-escalonado = 'X'.
itab_zycbt002-icon_esc = icon_planning_in.
MODIFY itab_zycbt002.
ENDIF.
ENDLOOP.
ENDIF.
ELSE.
CASE /pws/zycbe001-tpcontr+0(1).
* >> Início da exclusão: MODULE LOAD_ITAB_ZYCBT002
WHEN 'A' OR 'D'.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_ITAB_ZYCBT002
WHEN 'D'.
* << Fim da inclusão
PERFORM create_zycbt002_a.
WHEN 'P' OR 'S'.
PERFORM create_zycbt002_p.
* >> Início da exclusão: MODULE LOAD_ITAB_ZYCBT002
WHEN 'E' OR 'C' OR 'T'.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_ITAB_ZYCBT002
WHEN 'E' OR 'C' OR 'T' OR 'A'.
* << Fim da inclusão
PERFORM create_zycbt002_e.
ENDCASE.
ENDIF.
ENDIF.
v_countlinej = '00001'.
CLEAR v_dtfinal.
* >> Início da inclusão: MODULE LOAD_ITAB_ZYCBT002
clear v_input.
READ TABLE itab_zycbt002 WITH KEY TPPARC = 'J'.
IF sy-subrc EQ 0.
v_input = '1'.
ENDIF.
* << Fim da inclusão
WHEN '0104'.
IF NOT v_nrseqc IS INITIAL.
IF /pws/zycbe001-f_pre NE 'X'.
IF ( itab_zycbt002p[] IS INITIAL
AND /pws/zycbe001-tpcontr(1) CA 'PS'
AND v_del4 NE 'X' )
OR okcode EQ 'VINC'
OR ( itab_zycbt002p[] IS INITIAL AND
/pws/zycbe001-tpcontr(1) EQ 'T' ).
SELECT SINGLE * FROM /pws/zycbt001 INTO /pws/zycbe001
...
...
IF itab_zycbt002-escalonado EQ 'X'.
LOOP AT SCREEN.
IF screen-group4 EQ 'ESC'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
IF /pws/zycbe002-nrdias = 0 AND
* >> Início da exclusão: MODULE SET_SCREEN_JUROS
/pws/zycbe001-tpcontr(1) = 'E'.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN_JUROS
( /pws/zycbe001-tpcontr(1) = 'A' OR
/pws/zycbe001-tpcontr(1) = 'E' ).
* << Fim da inclusão
LOOP AT SCREEN.
IF screen-group1 = 'NED'.
screen-input = '0'.
* >> Início da inclusão: MODULE SET_SCREEN_JUROS
ENDIF.
IF v_status_s NE '0' AND
/pws/zycbe001-tpcontr(1) EQ 'A' AND
v_input eq '1' AND
screen-name NE '/PWS/ZYCBE002-NRPARC' AND
screen-name NE '/PWS/ZYCBE002-TXJTOTAL' AND
screen-name NE '/PWS/ZYCBE002-ALIQIR' AND
screen-name NE '/PWS/ZYCBE002-IRREAJ' AND
screen-name NE '/PWS/ZYCBE002-VLIR'.
screen-input = '1'.
* << Fim da inclusão
ENDIF.
MODIFY SCREEN.
DELETE itab_zycbt002 WHERE nrseqc = itab_zycbt002-nrseqc
AND nrparc = itab_zycbt002-nrparc
AND tpparc = itab_zycbt002-tpparc.
CLEAR /pws/zycbe002.
ENDLOOP.
ENDIF.
ENDMODULE.
MODULE exibir_encerramento OUTPUT.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001TOP
...
DATA:
wa_cols TYPE cxtab_column,
v_ftaxam,
v_ftaxag,
v_ftaxab,
v_status_s,
v_status_107,
v_status_s200,
v_status_s203,
v_status_s600,
* >> Início da inclusão:
v_input,
* << Fim da inclusão
v_periodo TYPE i,
v_nrdias_aux TYPE i,
v_nrdias_aux2 TYPE i,
v_nrlines TYPE i,
v_nrlines_aux TYPE i,
v_nrlines_pro TYPE i,
v_flaginij,
v_flaginip,
v_nrseqc LIKE /pws/zycbt001-nrseqc,
v_nrseqc_ant LIKE /pws/zycbt001-nrseqc,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB001
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 456
Texto: (26 caracteres)
"Existem parcelas de juros,"
Comprimento máximo: 26
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 457
Texto: (39 caracteres)
"a forma de cálculo deve ser preenchida."
Comprimento máximo: 39
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 458
Texto: (44 caracteres)
"Existem Juros/Pagamentos para esse contrato,"
Comprimento máximo: 44
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 459
Texto: (32 caracteres)
"Foram geradas despesas de juros,"
Comprimento máximo: 32