CE PLUS - Nota 003220
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação de Fatura
Data/Hora da Publicação: 09/03/2007 00:00:00
Data/Hora Última Alteração: 10/03/2010 14:34:50
Descrição da Nota: CRIAÇÃO DAS EXIT¿S LIQ022 E LIQ023
Sintoma
A empresa necessita de um desenvolvimento que permitirá que as empresas utilizem contas diferentes
para as contabilizações de liquidaçõess diferentes.
Solução
Criação das EXIT¿s LIQ022 e LIQ023
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03220 Data: 09/03/2007 Hora: 09:33:50
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03220
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00156
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
CRIAÇÃO DAS EXIT¿S LIQ022 E LIQ023
----------------------------------------------------------------------------------------------------
Palavras Chave:
CRIAÇÃO DAS EXIT¿S LIQ022 E LIQ023
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB004F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F02
...
IF NOT /pws/zycbe005-j_1bbranch IS INITIAL.
PERFORM verifica_pais_filial USING itab_zycbt006-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
ELSE.
PERFORM local_negocio.
PERFORM verifica_pais_filial USING itab_zycbt006-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
ENDIF.
itab_zycbe033-wrbtr = itab_zycbt006-vlme.
* >> Início da inclusão: FORM BAIXA_ACE_PERFORMANCE
MOVE sy-repid TO v_rep.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = v_codmod
i_func = v_rep
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 = 'LIQ022'.
IF sy-subrc EQ 0.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ENDIF.
READ TABLE itab_zyglt100 WITH KEY zexit = 'LIQ022'.
IF sy-subrc EQ 0.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ENDIF.
ENDIF.
* << Fim da inclusão
APPEND itab_zycbe033.
* Verifica campos obrigatórios não preenchidos
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
* Verifica se nenhum campo obrigatório está vazio
IF itab_zycbt034 IS INITIAL.
* Efetua Call Transacion da transação F-30_P
CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_30_Q'
...
...
PERFORM verifica_pais_filial USING itab_zycbt006-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
ELSE.
PERFORM local_negocio.
PERFORM verifica_pais_filial USING itab_zycbt006-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
ENDIF.
itab_zycbe033-wrbtr = itab_zycbt006-vlme.
* >> Início da inclusão: FORM BAIXA_CLIENTE_PERFORMANCE
MOVE sy-repid TO v_rep.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = v_codmod
i_func = v_rep
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 = 'LIQ023'.
IF sy-subrc EQ 0.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ENDIF.
READ TABLE itab_zyglt100 WITH KEY zexit = 'LIQ023'.
IF sy-subrc EQ 0.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ENDIF.
ENDIF.
* << Fim da inclusão
APPEND itab_zycbe033.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
IF itab_zycbt034 IS INITIAL.
CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_30_Q'
EXPORTING
v_modo = v_modo_bi
v_rateio = 'X'
TABLES
...