CE PLUS - Nota 005967
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Valores Mantidos no Exterior
Data/Hora da Publicação: 19/02/2008 00:00:00
Data/Hora Última Alteração: 18/02/2011 17:48:18
Descrição da Nota: VALORES MANTIDOS NO EXTERIOR - EXIT VME001
Sintoma
Valores Mantidos no Exterior - Exit VME001
Solução
Valores Mantidos no Exterior - Exit VME001
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05967 Data: 19/02/2008 Hora: 12:14:18
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05967
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00004
Agrupamento : 00035
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
05482 - 00001 - 7.0 - 00003 - VALORES MANTIDOS NO EXTERIOR - DA COMPLETO
05652 - 00002 - 7.0 - 00004 - VALORES MANTIDOS NO EXTERIOR - BUSCA CONTA CONTÁBIL
----------------------------------------------------------------------------------------------------
VALORES MANTIDOS NO EXTERIOR - EXIT VME001
----------------------------------------------------------------------------------------------------
Palavras Chave:
VALORES MANTIDOS NO EXTERIOR - EXIT VME001
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB034F01
REPS /PWS/MZYCB034TOP
REPS /PWS/MZYCB034X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB034F01
...
FOR ALL ENTRIES IN itab_zycbt227
WHERE nrinvoic = itab_zycbt227-nrinvoic
AND gsberf = itab_zycbt227-gsberf
AND nrparcf = itab_zycbt227-nrparcf.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
FORM trata_exit USING p_exit TYPE /pws/zyglt100-zexit.
DATA: v_ucomm TYPE sy-ucomm,
* >> Início da inclusão: FORM TRATA_EXIT
v_syrepid TYPE sy-repid,
* << Fim da inclusão
v_subrc TYPE sy-subrc.
FIELD-SYMBOLS: <fs_zyglt100> LIKE LINE OF itab_zyglt100.
CLEAR r_okcode.
CALL METHOD cl_gui_cfw=>dispatch.
IF NOT r_okcode IS INITIAL.
ok_code = r_okcode.
ENDIF.
* >> Início da inclusão: FORM TRATA_EXIT
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.
* << Fim da inclusão
IF NOT itab_zyglt100[] IS INITIAL.
READ TABLE itab_zyglt100 WITH KEY zexit = p_exit
ASSIGNING <fs_zyglt100>.
IF sy-subrc = 0.
CHECK NOT <fs_zyglt100>-zexit_ativa IS INITIAL AND
NOT <fs_zyglt100>-formulario IS INITIAL AND
NOT <fs_zyglt100>-programa IS INITIAL.
v_ucomm = ok_code.
PERFORM (<fs_zyglt100>-formulario)
IN PROGRAM (<fs_zyglt100>-programa)
...
...
v_lancto_multiplo = space.
ENDIF.
PERFORM busca_conta USING <fs_op>-bukrs
<fs_op>-kunag
v_sld_liq_and
wa_zycbt209
p_estorno
CHANGING wa_zycbe033
v_newbs2.
APPEND wa_zycbe033 TO itab_zycbe033.
* >> Início da inclusão: FORM DOC_OP
perform trata_exit USING 'VME001'.
* << Fim da inclusão
LOOP AT itab_zycbt034 INTO wa_zycbt034.
PERFORM message_store USING
'/PWS/ZYCBM'
'W'
wa_zycbt034-descricao
space
space
space
'016'.
ENDLOOP.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB034TOP
...
itab_zycbe224 TYPE t_t_zycbe224,
itab_disp_30 TYPE t_t_disponibilidade,
itab_disp_70 TYPE t_t_disponibilidade,
itab_contrato TYPE t_t_contrato,
itab_zycbt227 TYPE t_t_zycbt227,
itab_rendimentos TYPE t_t_rendimentos,
itab_disp_ant TYPE t_t_disponibilidade,
itab_contrato_ant TYPE t_t_contrato,
itab_doctos TYPE t_t_doctos,
itab_rendimentos_ant TYPE t_t_rendimentos,
* >> Início da exclusão:
itab_contabilizacoes TYPE t_t_contabilizacoes,
itab_zycbt032 TYPE t_t_zycbt032,
itab_zycbe033 TYPE t_t_zycbe033,
itab_zycbt034 TYPE t_t_zycbt034,
itab_zycbt036 TYPE t_t_zycbt036,
itab_partidas TYPE t_t_zycbe033.
* << Fim da exclusão
* >> Início da inclusão:
itab_contabilizacoes TYPE t_t_contabilizacoes.
* << Fim da inclusão
DATA: wa_zycbt007 TYPE t_s_zycbt007,
wa_zyglt009 TYPE t_s_zyglt009,
wa_zycbt089 TYPE t_s_zycbt089,
wa_controle TYPE t_controle,
wa_fat TYPE t_s_zycbt017,
wa_zycbt030 TYPE t_s_zycbt030.
FIELD-SYMBOLS: <fs_op> TYPE t_s_zycbe226.
DATA:
ok_code TYPE sy-ucomm,
v_ultimo_nrseq TYPE /pws/zycbe226-nrseq,
...
...
opt_origem_pagantec(1) TYPE c,
opt_destino_30(1) TYPE c,
opt_destino_70(1) TYPE c,
v_mark(1) TYPE c,
v_icone TYPE icons-text,
v_tela_help TYPE sy-dynnr VALUE '0052'.
DATA:
v_codaux TYPE /pws/zygle316-codaux1,
v_codaux1 TYPE /pws/zygle316-codaux1,
v_codaux2 TYPE /pws/zygle316-codaux2.
* >> Início da inclusão:
INCLUDE /PWS/MZYCB034X01.
* << Fim da inclusão
SELECTION-SCREEN BEGIN OF SCREEN 0001.
SELECTION-SCREEN BEGIN OF BLOCK a WITH FRAME TITLE text-011.
SELECT-OPTIONS: s_bukrs FOR /pws/zycbe226-bukrs,
s_nrseq FOR /pws/zycbe226-nrseq,
s_invoic FOR /pws/zycbe226-nrinvoic
MATCHCODE OBJECT /pws/zycba275,
s_gsber FOR /pws/zycbe226-gsberf,
s_nrparc FOR /pws/zycbe226-nrparcf,
s_kunag FOR /pws/zycbe017-kunag,
s_dtincl FOR /pws/zycbe226-dtincl,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB034X01
* >> Início da inclusão:
DATA: BEGIN OF COMMON PART c.
DATA: itab_zycbt032 type t_t_zycbt032,
itab_zycbe033 type t_t_zycbe033,
itab_zycbt034 type t_t_zycbt034,
itab_zycbt036 type t_t_zycbt036,
itab_partidas type t_t_zycbe033.
DATA: END OF COMMON PART.
* << Fim da inclusão