CE PLUS - Nota 003856
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Captação
Data/Hora da Publicação: 06/06/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 12:51:13
Descrição da Nota: CAPTAÇÃO - EXIT CPT015 - COMISSÃO
Sintoma
Incluir ponto de exit para permitir não fazer consistências nas parcelas de comissão.
Solução
Inserir ponto de exit CPT015 para permitir alterar consistências de datas de comissão.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03856 Data: 06/06/2007 Hora: 14:14:08
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03856
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00001
Agrupamento : 00169
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03292 - 00001 - 6.0 - 00026 - CAPTAÇÃO - DP - PONTO DE EXIT F-29 E CONSITÊNCIA ORDEM
----------------------------------------------------------------------------------------------------
CAPTAÇÃO - EXIT CPT015 - COMISSÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
CAPTAÇÃO - EXIT CPT015 - COMISSÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB001F01
REPS /PWS/MZYCB001F04
REPS /PWS/MZYCB001TOP
REPS /PWS/MZYCB001X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F01
...
i_codmod = 'E'
i_func = v_repid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
READ TABLE itab_zyglt100 WITH KEY zexit = 'CPT013'.
* >> Início da exclusão: FORM FILL_DATE1_F02
IF sy-subrc EQ 0.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F02
IF sy-subrc EQ 0 AND NOT itab_zyglt100-zexit_ativa IS INITIAL.
* << Fim da inclusão
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ELSE.
IF NOT wa_zycbt089-rateio_cl IS INITIAL.
IF wa_zycbt221_aux IS INITIAL.
MESSAGE i061 WITH text-414 text-415.
EXIT.
ENDIF.
CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_29R'
EXPORTING
...
...
EXIT.
ENDIF.
IF NOT v_ind_juros IS INITIAL.
MESSAGE i015 WITH text-030.
EXIT.
ENDIF.
IF NOT v_ind_princ IS INITIAL.
MESSAGE i015 WITH text-037.
EXIT.
ENDIF.
* >> Início da inclusão: FORM SAVE_CHANGES
v_repid = sy-repid.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = 'E'
i_func = v_repid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
READ TABLE itab_zyglt100 WITH KEY zexit = 'CPT015'.
IF sy-subrc EQ 0 AND NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ELSE.
* << Fim da inclusão
PERFORM verifica_parcelas_comissao.
* >> Início da inclusão: FORM SAVE_CHANGES
ENDIF.
* << Fim da inclusão
PERFORM seleciona_fator_taxa CHANGING v_sai.
IF v_sai EQ 'X'.
EXIT.
ENDIF.
PERFORM define_przcontr.
IF /pws/zycbe001-f_pre EQ 'X'.
...
...
i_func = v_repid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
IF sy-subrc EQ 0.
READ TABLE itab_zyglt100 WITH KEY zexit = v_exit.
* >> Início da exclusão: FORM SAVE_ZYCBT001_PRE
IF sy-subrc EQ 0.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT001_PRE
IF sy-subrc EQ 0 AND NOT itab_zyglt100-zexit_ativa IS INITIAL.
* << Fim da inclusão
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ELSE.
v_contabiliza = 'X'.
ENDIF.
ENDIF.
ENDIF.
IF v_contabiliza EQ 'X'.
PERFORM fill_date1_f02.
ENDIF.
...
...
i_codmod = 'E'
i_func = v_repid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
READ TABLE itab_zyglt100 WITH KEY zexit = 'CPT012'.
* >> Início da exclusão: FORM VERIFICA_ORDEM
IF sy-subrc EQ 0.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ORDEM
IF sy-subrc EQ 0 AND NOT itab_zyglt100-zexit_ativa IS INITIAL.
* << Fim da inclusão
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ELSE.
READ TABLE wa_zycbt221 WITH KEY ordem = /pws/zycbe221-ordem.
IF sy-subrc NE 0.
CLEAR: wa_zycbt221, itab_zycbt221.
SELECT vbeln posnr netwr waerk gsber prctr pstyv
INTO TABLE itab_vbap
FROM vbap
WHERE vbeln EQ /pws/zycbe221-ordem.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F04
...
i_func = v_repid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
IF sy-subrc EQ 0.
READ TABLE itab_zyglt100 WITH KEY zexit = v_exit.
* >> Início da exclusão: FORM EXECUTA_EXIT
IF sy-subrc EQ 0.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_EXIT
IF sy-subrc EQ 0 AND NOT itab_zyglt100-zexit_ativa IS INITIAL.
* << Fim da inclusão
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ELSE.
v_contabiliza = 'X'.
ENDIF.
ENDIF.
ELSE.
v_contabiliza = 'X'.
ENDIF.
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001TOP
...
nrparc TYPE /pws/zycbt064-nrparc,
END OF t_zycbt064_comissao,
BEGIN OF t_zycbt134_comissao,
nrseq TYPE /pws/zycbt134-nrseq,
dtboleto TYPE /pws/zycbt134-dtboleto,
tpproc TYPE /pws/zycbt134-tpproc,
dtlanc TYPE /pws/zycbt134-dtlanc,
belnr_c TYPE /pws/zycbt134-belnr_c,
belnr_ci TYPE /pws/zycbt134-belnr_ci,
END OF t_zycbt134_comissao.
* >> Início da exclusão:
DATA: itab_comissao
TYPE STANDARD TABLE OF t_comissao
WITH HEADER LINE,
itab_comissao_exc
TYPE STANDARD TABLE OF t_comissao
WITH HEADER LINE,
itab_comissao_ant
TYPE STANDARD TABLE OF t_comissao
WITH HEADER LINE,
itab_zycbt031_comissao
TYPE STANDARD TABLE OF t_zycbt031_comissao
WITH HEADER LINE,
itab_zycbt064_comissao
TYPE STANDARD TABLE OF t_zycbt064_comissao
WITH HEADER LINE,
itab_zycbt134_comissao
TYPE STANDARD TABLE OF t_zycbt134_comissao
WITH HEADER LINE,
wa_comissao TYPE t_comissao,
v_vltotcomis LIKE /pws/zycbe001-vltotjur.
* << Fim da exclusão
DATA: itab_zyglt100
TYPE STANDARD TABLE OF /pws/zyglt100 WITH HEADER LINE.
DATA:
itab_zycbt002_aux LIKE /pws/zycbt002 OCCURS 10 WITH HEADER LINE,
itab_zycbt013 LIKE /pws/zycbt013 OCCURS 10 WITH HEADER LINE,
itab_zycbt012 LIKE /pws/zycbt012 OCCURS 10 WITH HEADER LINE,
itab_zycbt036 LIKE /pws/zycbt036 OCCURS 10 WITH HEADER LINE.
DATA: BEGIN OF itab_pf_status OCCURS 10,
fcode LIKE rsmpe-func,
END OF itab_pf_status.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001X01
...
END OF itab_zycbt221.
DATA: BEGIN OF wa_zycbt221 OCCURS 0.
INCLUDE STRUCTURE itab_zycbt221.
DATA: END OF wa_zycbt221.
DATA: wa_zycbt221_aux LIKE wa_zycbt221 OCCURS 0 WITH HEADER LINE.
DATA: itab_zycbt221_aux LIKE wa_zycbt221 OCCURS 0 WITH HEADER LINE.
DATA: itab_zycbt221_ant LIKE wa_zycbt221 OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF itab_zycbt034 OCCURS 10.
INCLUDE STRUCTURE /pws/zycbt034.
DATA: END OF itab_zycbt034.
* >> Início da inclusão:
DATA: itab_comissao
TYPE STANDARD TABLE OF t_comissao
WITH HEADER LINE,
itab_comissao_exc
TYPE STANDARD TABLE OF t_comissao
WITH HEADER LINE,
itab_comissao_ant
TYPE STANDARD TABLE OF t_comissao
WITH HEADER LINE,
itab_zycbt031_comissao
TYPE STANDARD TABLE OF t_zycbt031_comissao
WITH HEADER LINE,
itab_zycbt064_comissao
TYPE STANDARD TABLE OF t_zycbt064_comissao
WITH HEADER LINE,
itab_zycbt134_comissao
TYPE STANDARD TABLE OF t_zycbt134_comissao
WITH HEADER LINE,
wa_comissao TYPE t_comissao,
v_vltotcomis LIKE /pws/zycbe001-vltotjur.
* << Fim da inclusão
DATA: wa_zycbt001 LIKE /pws/zycbe001,
wa_zycbe001 LIKE /pws/zycbe001,
wa_zycbt001_pre LIKE /pws/zycbt001,
wa_zycbt004 LIKE /pws/zycbt004,
wa_zycbt091 LIKE /pws/zycbt091,
wa_zycbt204 LIKE /pws/zycbt204,
wa_zycbt136 LIKE itab_zycbt136,
wa_zycbt002 LIKE /pws/zycbt002,
wa_zycbt089 LIKE /pws/zycbt089.
DATA:
...