CE PLUS - Nota 003291
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação de Fatura
Data/Hora da Publicação: 21/03/2007 00:00:00
Data/Hora Última Alteração: 10/03/2010 14:33:15
Descrição da Nota: LIQUIDAÇÃO - EXIT LIQ024
Sintoma
Liquidação - EXIT LIQ024
Solução
Liquidação - EXIT LIQ024
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03291 Data: 21/03/2007 Hora: 14:45:47
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03291
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00156
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
LIQUIDAÇÃO - EXIT LIQ024
----------------------------------------------------------------------------------------------------
Palavras Chave:
LIQUIDAÇÃO - EXIT LIQ024
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB004F02
REPS /PWS/MZYCB004X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F02
...
PERFORM executa_exit.
PERFORM verifica_prorrogacao.
IF itab_zycbe033-wrbtr GT 0.
APPEND itab_zycbe033.
v_desmembramento = 'X'.
ENDIF.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
IF itab_zycbt034 IS INITIAL.
* >> Início da inclusão: FORM DESMEMBRA_CLIENTE
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 = 'LIQ024'.
IF sy-subrc EQ 0.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ELSE.
v_text = 'F-30'.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_30_P'
EXPORTING
v_modo = v_modo_bi
v_vinc_tot = v_vinc_tot
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
t_zycbt036 = itab_zycbt036
t_doctos = itab_doctos
EXCEPTIONS
campo_em_branco = 1
periodo_fechado = 2
OTHERS = 3.
* >> Início da inclusão: FORM DESMEMBRA_CLIENTE
ENDIF.
ENDIF.
* << Fim da inclusão
IF sy-subrc = 0.
* >> Início da exclusão: FORM DESMEMBRA_CLIENTE
READ TABLE itab_zycbt032 WITH KEY tcode = 'F-30'
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRA_CLIENTE
READ TABLE itab_zycbt032 WITH KEY tcode = v_text
* << Fim da inclusão
tabela = 'ZYCBT006'
cpochv = itab_zycbe033-cpochv
tpmsg = 'S'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004X01
...
/pws/zycbe005,
/pws/zycbt005,
/pws/zycbe006,
/pws/zycbt006,
/pws/zyglt321.
DATA: BEGIN OF COMMON PART c.
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,
* >> Início da inclusão:
v_text(4) TYPE c,
* << Fim da inclusão
ok_code LIKE sy-ucomm.
DATA:
wa_zycbt004 LIKE /pws/zycbt004,
wa_zycbt007 LIKE /pws/zycbt007.
DATA: BEGIN OF itab_zycbt005 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt005.
DATA: vlme LIKE /pws/zycbe006-vlme,
dtpagto LIKE /pws/zycbe006-dtpagto,
v_status,
v_vldif LIKE /pws/zycbt006-vlme,
...