CE PLUS - Nota 006481
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Vinculação
Data/Hora da Publicação: 29/04/2008 00:00:00
Data/Hora Última Alteração: 18/02/2011 17:59:23
Descrição da Nota: VINCULAÇÃO - EXIT VNC030
Sintoma
Inclusão da EXIT VNC030.
Solução
Inclusão da EXIT VNC030.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06481 Data: 29/04/2008 Hora: 15:44:00
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06481
Categoria : Erro de Programa
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
01499 - 00001 - 6.0 - 00023 - EXIT VINCULAÇÃO / LIQUIDAÇÃO - ALTERAÇÃO DOCUMENTOS CONTÁBEIS
03752 - 00002 - 7.0 - 00001 - VINCULAÇÃO - ESTORNO AUTOMATICO POR ERRO NA CONTABILIZAÇÃO
----------------------------------------------------------------------------------------------------
VINCULAÇÃO - EXIT VNC030
----------------------------------------------------------------------------------------------------
Palavras Chave:
VINCULAÇÃO - EXIT VNC030
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB009F05
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F05
...
itab5_aux[] = itab_zycbt005[].
read table itab5_aux with key erro = 'X'
baixa_cli = 'X'.
if sy-subrc ne 0.
PERFORM fill_date1_f30_desm USING v_flag_mod .
endif.
clear itab5_aux.
refresh itab5_aux.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM CONTABILIZACAO
IF itab_zyglt100[] IS INITIAL.
v_syrepid = sy-repid.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = 'E'
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
ENDIF.
READ TABLE itab_zyglt100 WITH KEY zexit = 'VNC030' BINARY SEARCH.
IF sy-subrc EQ 0 AND NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ENDIF.
* << Fim da inclusão
PERFORM GRAVA_CONTABILIZACAO.
IF NOT itab_erro[] IS INITIAL.
EXPORT itab_erro TO MEMORY ID '001'.
EXPORT itab_acerto TO MEMORY ID '002'.
EXPORT v_saida TO MEMORY ID '003'.
EXPORT itab_erro_s TO MEMORY ID '004'.
EXPORT itab_acerto_s TO MEMORY ID '005'.
SUBMIT /pws/zycbr128 AND RETURN.
REFRESH itab_erro.
v_status_s = '0'.
...