CE PLUS - Nota 006474
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação de Fatura
Data/Hora da Publicação: 28/04/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 12:41:29
Descrição da Nota: LIQUIDAÇÃO - PONTO DE EXIT LIQ029
Sintoma
Liquidação - ponto de exit LIQ029
Solução
Liquidação - ponto de exit LIQ029
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06474 Data: 28/04/2008 Hora: 14:45:48
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06474
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00005
Agrupamento : 00045
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01666 - 00001 - 6.0 - 00024 - INSERIDAS EXIT¿S PARA TRATAMENTO ESPECIFICO NAS F-30 DA VINCULAÇÃ
----------------------------------------------------------------------------------------------------
LIQUIDAÇÃO - PONTO DE EXIT LIQ029
----------------------------------------------------------------------------------------------------
Palavras Chave:
LIQUIDAÇÃO - PONTO DE EXIT LIQ029
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB004F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F02
...
itab_zycbe033-newbs = '01'.
ENDIF.
ELSEIF p_agkoa EQ 'K'.
itab_zycbe033-newbs = '21'.
ENDIF.
itab_zycbe033-belnr = p_belnr_ref.
itab_zycbe033-dtdocto = p_budat_ref.
PERFORM verifica_prorrogacao_est.
PERFORM busca_exit.
READ TABLE itab_zyglt100 WITH KEY zexit = 'LIQ020'.
* >> Início da exclusão: FORM CLEARING
IF sy-subrc EQ 0.
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING
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).
ENDIF.
APPEND itab_zycbe033.
IF itab_zycbt034 IS INITIAL.
IF p_agkoa EQ 'S'.
PERFORM unlock_razao USING itab_zycbe033-d_newko
itab_zycbe033-bukrs.
ELSEIF p_agkoa EQ 'D'.
PERFORM unlock_cliente USING itab_zycbe033-d_newko
itab_zycbe033-bukrs.
ENDIF.
* >> Início da inclusão: FORM CLEARING
PERFORM busca_exit.
READ TABLE itab_zyglt100 WITH KEY zexit = 'LIQ029'.
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
CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_30_P'
EXPORTING
v_modo = v_modo_bi
v_vinc_tot = 'X'
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
t_doctos = itab_zycbt036
EXCEPTIONS
campo_em_branco = 1
periodo_fechado = 2
OTHERS = 3.
* >> Início da inclusão: FORM CLEARING
ENDIF.
* << Fim da inclusão
IF p_agkoa EQ 'S'.
PERFORM enqueue_razao USING itab_zycbe033-bukrs
itab_zycbe033-d_newko
'X'.
ELSEIF p_agkoa EQ 'D'.
PERFORM enqueue_cliente USING itab_zycbe033-bukrs
itab_zycbe033-d_newko
'X'.
ENDIF.
IF sy-subrc = 0.
...