CE PLUS - Nota 002183
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 02/10/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 13:02:07
Descrição da Nota: TRATAMENTO DE EXIT NA DI
Sintoma
Tratamento para compartilhamento de variáveis e tabelas declaradas na DI, para serem usadas em
programas específicos.
Solução
Compartilhar exits e variáveis para utilização em programas específicos.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02183 Data: 02/10/2006 Hora: 10:27:54
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02183
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00025
Agrupamento : 00132
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
TRATAMENTO DE EXIT NA DI
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXIT - DI - VARIAÇÃO CAMBIAL
/PWS/ZYGLT100
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F03
REPS /PWS/MZYCI023TOP
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023TOP
...
wa_zycit136-identify = /pws/zycie085-identify.
wa_zycit136-dtenvf = sy-datlo.
wa_zycit136-uname = sy-uname.
wa_zycit136-stasis = 'A'.
MODIFY /pws/zycit136 FROM wa_zycit136.
* >> Início da inclusão: FORM COMM_SEND
IF okcode EQ 'TRANSM'.
ENDIF.
* << Fim da inclusão
ELSE.
CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE'
EXPORTING
defaultoption = 'Y'
diagnosetext1 = text-049
...
...
answer = v_resposta.
IF v_resposta EQ 'J'.
wa_zycit136-stasis = 'A'.
wa_zycit136-dtenvf = sy-datlo.
MODIFY /pws/zycit136 FROM wa_zycit136.
* >> Início da inclusão: FORM COMM_SEND
IF okcode EQ 'TRANSM'.
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
ELSE.
MESSAGE e015 WITH text-029.
...
...
menge LIKE /pws/zycit079-menge,
END OF itab_li.
DATA: BEGIN OF itab_cta OCCURS 0.
INCLUDE STRUCTURE /pws/zygle316.
DATA: END OF itab_cta.
* >> Início da exclusão:
DATA: BEGIN OF it_zycit270 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit270.
DATA: END OF it_zycit270.
* << Fim da exclusão
DATA: BEGIN OF itab_desp_funcao OCCURS 0.
INCLUDE STRUCTURE /pws/zycie353.
DATA: END OF itab_desp_funcao.
DATA: BEGIN OF itab_report_cliente OCCURS 20.
INCLUDE STRUCTURE /pws/zycet079.
...
...
j_1bmatuse LIKE ekpo-j_1bmatuse,
knttp LIKE ekpo-knttp,
werks LIKE t001w-werks,
bwkey LIKE mbew-bwkey.
DATA: END OF itab_matuse .
* >> Início da exclusão:
DATA: BEGIN OF itab_matuse_aux OCCURS 0.
DATA: j_1bmatuse LIKE ekpo-j_1bmatuse,
hkont LIKE bsis-hkont .
DATA: END OF itab_matuse_aux .
DATA: BEGIN OF itab_matuse_aux2 OCCURS 0.
DATA: j_1bmatuse LIKE ekpo-j_1bmatuse,
hkont LIKE bsis-hkont .
DATA: END OF itab_matuse_aux2 .
* << Fim da exclusão
DATA: BEGIN OF itab_di OCCURS 0.
DATA: hkont LIKE bsis-hkont,
vlseg LIKE /pws/zycit100-vlseg,
vlfre LIKE /pws/zycit100-vlfre,
vlfob LIKE /pws/zycit100-vlfob,
vldi LIKE /pws/zycit100-vlfob,
vlfren LIKE /pws/zycit100-vlfre.
DATA: END OF itab_di .
* >> Início da exclusão:
DATA: BEGIN OF itab_bsis OCCURS 10.
DATA: hkont LIKE bsis-hkont ,
dmbtr LIKE bsis-dmbtr ,
wrbtr LIKE bsis-wrbtr ,
belnr LIKE bsis-belnr ,
buzei LIKE bsis-buzei ,
tpfatura LIKE /pws/zycit006-tpfatura.
DATA: END OF itab_bsis.
DATA: BEGIN OF itab_bsis_aux OCCURS 10.
DATA: hkont LIKE bsis-hkont ,
dmbtr LIKE bsis-dmbtr ,
wrbtr LIKE bsis-wrbtr ,
tpfatura LIKE /pws/zycit006-tpfatura.
DATA: END OF itab_bsis_aux.
* << Fim da exclusão
DATA: BEGIN OF itab_matuse_aux1 OCCURS 0,
matuse LIKE ekpo-j_1bmatuse,
conta_r LIKE /pws/zycbt012-saknr1,
conta_d LIKE /pws/zycbt012-saknr1,
conta_c LIKE /pws/zycbt012-saknr1,
...
...
vl_variacao LIKE /pws/zycit085-vlfob,
v_rec_ia TYPE i,
v_rec_ia_1 TYPE i,
v_text(14) TYPE c,
v_datum LIKE sy-datum,
* >> Início da exclusão:
v_dele ,
* << Fim da exclusão
v_blart LIKE /pws/zycbt011-blart,
v_desp_acr LIKE /pws/zycit049-vldp,
v_desp_brl LIKE /pws/zycit049-vldp,
v_evento LIKE /pws/zyglt321-codeven,
v_required,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023X01
...
DATA V_EXISTE_LI.
data: v_cif_fat type /pws/zycie085-vlfob,
v_tcif_fat type /pws/zycie085-vlfob.
data: wa_it000 LIKE /pws/zycit000,
wa_zycit078 like /pws/zycit078.
* >> Início da inclusão:
DATA: BEGIN OF it_zycit270 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit270.
DATA: END OF it_zycit270.
DATA: BEGIN OF itab_matuse_aux OCCURS 0.
DATA: j_1bmatuse LIKE ekpo-j_1bmatuse,
hkont LIKE bsis-hkont .
DATA: END OF itab_matuse_aux .
DATA: BEGIN OF itab_matuse_aux2 OCCURS 0.
DATA: j_1bmatuse LIKE ekpo-j_1bmatuse,
hkont LIKE bsis-hkont .
DATA: END OF itab_matuse_aux2 .
DATA: BEGIN OF itab_bsis OCCURS 10.
DATA: hkont LIKE bsis-hkont ,
dmbtr LIKE bsis-dmbtr ,
wrbtr LIKE bsis-wrbtr ,
belnr LIKE bsis-belnr ,
buzei LIKE bsis-buzei ,
tpfatura LIKE /pws/zycit006-tpfatura.
DATA: END OF itab_bsis.
DATA: BEGIN OF itab_bsis_aux OCCURS 10.
DATA: hkont LIKE bsis-hkont ,
dmbtr LIKE bsis-dmbtr ,
wrbtr LIKE bsis-wrbtr ,
tpfatura LIKE /pws/zycit006-tpfatura.
DATA: END OF itab_bsis_aux.
DATA: v_dele.
* << Fim da inclusão
data: end of common part.