CE PLUS - Nota 001666
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Vinculação
Data/Hora da Publicação: 04/07/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 15:14:48
Descrição da Nota: INSERIDAS EXIT¿S PARA TRATAMENTO ESPECIFICO NAS F-30 DA VINCULAÇÃO E LIQ
Sintoma
Inseridas EXIT¿s para tratamento especifico nas F-30 da Vinculação e Liquidação.
Solução
Inseridas EXIT¿s para tratamento especifico nas F-30 da Vinculação e Liquidação.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01666 Data: 04/07/2006 Hora: 08:50:00
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01666
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00024
Agrupamento : 00121
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
INSERIDAS EXIT¿S PARA TRATAMENTO ESPECIFICO NAS F-30 DA VINCULAÇÃO E LIQ
----------------------------------------------------------------------------------------------------
Palavras Chave:
INSERIDAS EXIT¿S PARA TRATAMENTO ESPECIFICO NAS F-30 DA VINCULAÇÃO
E LIQUIDAÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB004F02
REPS /PWS/MZYCB009F01
REPS /PWS/MZYCB009F08
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F02
...
itab_zycbe033-newbs = '21'.
ENDIF.
itab_zycbe033-belnr = p_belnr_ref.
itab_zycbe033-dtdocto = p_budat_ref.
PERFORM verifica_prorrogacao_est.
* >> Início da inclusão: FORM CLEARING
PERFORM busca_exit.
READ TABLE itab_zyglt100 WITH KEY zexit = 'LIQ020'.
IF sy-subrc EQ 0.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ENDIF.
* << Fim da inclusão
APPEND itab_zycbe033.
IF itab_zycbt034 IS INITIAL.
CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_30_P'
EXPORTING
v_modo = v_modo_bi
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F01
...
itab_zycbe033-agkon = itab_zyglt316-konth.
itab_zycbe033-newbs = '50'.
ENDIF.
itab_zycbe033-agums = ''.
ENDIF.
* >> Início da inclusão: FORM FILL_DATE1_F30
PERFORM busca_exit.
READ TABLE itab_zyglt100 WITH KEY zexit = 'VNC019'.
IF sy-subrc EQ 0.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ENDIF.
* << Fim da inclusão
APPEND itab_zycbe033.
CLEAR itab_zycbt036.
itab_zycbt036-tcode = 'F-30'.
itab_zycbt036-tabela = '/PWS/ZYCBT005'.
itab_zycbt036-cpochv = v_cpochv.
...
...
itab_zycbe033-agums = wa_zycbt011-agums.
itab_zycbe033-umskz = wa_zycbt011-agums.
itab_zycbe033-d_newko = itab_zycbe033-agkon.
itab_zycbe033-newbs = '19'.
ENDIF.
* >> Início da inclusão: FORM FILL_DATE1_F30
PERFORM busca_exit.
READ TABLE itab_zyglt100 WITH KEY zexit = 'VNC020'.
IF sy-subrc EQ 0.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ENDIF.
* << Fim da inclusão
APPEND itab_zycbe033.
ENDIF.
LOOP AT itab_vinc
WHERE flag = 'A' OR flag = 'E'
OR flag EQ 'S'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F08
...
PERFORM local_negocio.
PERFORM verifica_pais_filial USING /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
ENDIF.
* >> Início da inclusão: FORM FILL_DATE1_F30_DESM
PERFORM busca_exit.
READ TABLE itab_zyglt100 WITH KEY zexit = 'VNC018'.
IF sy-subrc EQ 0.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ENDIF.
* << Fim da inclusão
APPEND itab_zycbe033.
IF /pws/zycbe001-tpcontr(1) = 'D' AND
NOT wa_zycbt089-rateio_cl IS INITIAL.
PERFORM rotina_rateio.
ENDIF.
...
...
PERFORM local_negocio.
PERFORM verifica_pais_filial USING /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
ENDIF.
* >> Início da inclusão: FORM CLEARING
PERFORM busca_exit.
READ TABLE itab_zyglt100 WITH KEY zexit = 'VNC017'.
IF sy-subrc EQ 0.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ENDIF.
* << Fim da inclusão
APPEND itab_zycbe033.
IF itab_zycbt034 IS INITIAL.
IF /pws/zycbe001-tpcontr(1) = 'D' AND
NOT wa_zycbt089-rateio_cl IS INITIAL AND
NOT p_agums IS INITIAL.
...