CE PLUS - Nota 000758
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação de Fatura
Data/Hora da Publicação: 31/01/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 14:46:32
Descrição da Nota: LIQUIDAÇÃO - TRATAMENTO ESPECÍFICO QUANDO SALVAR REGISTRO /PWS/ZYCBT006
Sintoma
Para atender a necessidade da Emissão de Nota Fiscal Complementar pela transação /PWS/ZYCB004_C será
necessária uma exit no momento em que é salvo a liquidação. Deverão estar disponíveis nesta exit os
dados da estrutura wa_zycbt007 e da itab_zycbt006 (ambas com os dados que serão gravados nas
respectivas tabelas transparentes).
Solução
Inserido o ponto de exit LIQ017 no momento de atualizar a tabela /PWS/ZYCBT006 com o registro
liquidado.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00758 Data: 31/01/2006 Hora: 16:08:48
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00758
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00022
Agrupamento : 00099
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
LIQUIDAÇÃO - TRATAMENTO ESPECÍFICO QUANDO SALVAR REGISTRO /PWS/ZYCBT006
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXIT LIQ017 LIQUIDAÇÂO CONTRATO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB004F01
REPS /PWS/MZYCB004F02
REPS /PWS/MZYCB004TOP
REPS /PWS/MZYCB004X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F01
...
AND dtvincul = /pws/zycbt006-dtvincul
AND dtvencto = /pws/zycbt006-dtvencto
AND dtpagto = /pws/zycbt006-dtpagto.
ENDIF.
MODIFY /pws/zycbt006.
* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSPARENTES
IF sy-subrc EQ 0.
READ TABLE itab_zyglt100 WITH KEY zexit = 'LIQ017'.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ENDIF.
ENDIF.
ENDIF.
* << Fim da inclusão
IF wa_zycbt007-cfm = 'X'.
DESCRIBE FIELD /pws/zycbt006 INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F02
...
AND dtvincul = /pws/zycbt006-dtvincul
AND dtvencto = /pws/zycbt006-dtvencto
AND dtpagto = /pws/zycbt006-dtpagto.
ENDIF.
MODIFY /pws/zycbt006.
* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2
IF sy-subrc EQ 0.
READ TABLE itab_zyglt100 WITH KEY zexit = 'LIQ017'.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ENDIF.
ENDIF.
ENDIF.
* << Fim da inclusão
IF wa_zycbt007-cfm = 'X'.
DESCRIBE FIELD /pws/zycbt006 INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004TOP
...
END OF itab_bsas_aux.
TYPE-POOLS: sydes.
DATA: t_sydes TYPE sydes_desc,
wa_types TYPE sydes_typeinfo,
v_len TYPE i.
* >> Início da exclusão:
DATA: wa_zycbt007 LIKE /pws/zycbt007,
* << Fim da exclusão
* >> Início da inclusão:
DATA:
* << Fim da inclusão
wa_zycbt009 LIKE /pws/zycbt009,
wa_zycbt011 LIKE /pws/zycbt011,
wa_zycbt011_d LIKE /pws/zycbt011,
wa_t001w LIKE t001w.
CONTROLS:
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004X01
...
DATA: v_descr_exit LIKE /pws/zyglt100-zexit VALUE 'LIQ002',
v_exit004 LIKE /pws/zyglt100-zexit VALUE 'LIQ003',
v_codmod TYPE c VALUE 'E',
v_rep LIKE sy-repid,
ok_code LIKE sy-ucomm.
* >> Início da exclusão:
DATA: wa_zycbt004 LIKE /pws/zycbt004.
* << Fim da exclusão
* >> Início da inclusão:
DATA:
wa_zycbt004 LIKE /pws/zycbt004,
wa_zycbt007 LIKE /pws/zycbt007.
* << Fim da inclusão
DATA: BEGIN OF itab_zycbt005 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt005.
DATA: vlme LIKE /pws/zycbe006-vlme,
dtpagto LIKE /pws/zycbe006-dtpagto,
v_status,
...