CE PLUS - Nota 004365
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Outros
Data/Hora da Publicação: 07/08/2007 00:00:00
Data/Hora Última Alteração: 04/03/2010 10:49:13
Descrição da Nota: INCLUSÃO DE TRATAMENTO PARA PEDIDO DE COMPRA NO HISTÓRICO DE EXPORTAÇÃO.
Sintoma
Quando o Embarque é do tipo 'D' (Embarque com Pedido de Compra) ou 'V' (Embarque com Ordem de Venda
com Referência à Pedido de Compra), o Histórico da Exportação não exibe os dados dos documentos
do processo.
Solução
Inclusão de tratamento para seleção e exibição dos dados dos Embarques do tipo 'D' (Embarque com
Pedido de Compra) ou 'V' (Embarque com Ordem de Venda com Referência à Pedido de Compra).
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04365 Data: 07/08/2007 Hora: 18:04:02
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04365
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00007
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
INCLUSÃO DE TRATAMENTO PARA PEDIDO DE COMPRA NO HISTÓRICO DE EXPORTAÇÃO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
HISTÓRICO, EXPORTAÇÃO, PEDIDO, COMPRA, FLUXO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCER203
REPT /PWS/ZYCER203
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCER203
...
DATA: BEGIN OF itab_zycet002_temp OCCURS 10,
bukrs LIKE /pws/zycet002-bukrs,
vbeln_vf(20),
END OF itab_zycet002_temp.
DATA BEGIN OF itab_temp OCCURS 1.
INCLUDE STRUCTURE /pws/zycet002.
DATA END OF itab_temp.
DATA: BEGIN OF itab_zycbt030 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt030.
DATA: END OF itab_zycbt030.
* >> Início da inclusão:
DATA: itab_ekko TYPE TABLE OF ekko,
itab_zycet020 TYPE TABLE OF /pws/zycet020.
* << Fim da inclusão
DATA: itab_zycet010 LIKE /pws/zycet010 OCCURS 0 WITH HEADER LINE,
itab_zycet013 LIKE /pws/zycet013 OCCURS 0 WITH HEADER LINE,
itab_zycet012 LIKE /pws/zycet012 OCCURS 0 WITH HEADER LINE,
itab_zycet018 LIKE /pws/zycet018 OCCURS 0 WITH HEADER LINE,
itab_zycet023 LIKE /pws/zycet023 OCCURS 0 WITH HEADER LINE,
itab_zycet030 LIKE /pws/zycet030 OCCURS 0 WITH HEADER LINE,
itab_zycet033 LIKE /pws/zycet033 OCCURS 0 WITH HEADER LINE,
itab_zycet034 LIKE /pws/zycet034 OCCURS 0 WITH HEADER LINE,
itab_zycet046 LIKE /pws/zycet046 OCCURS 0 WITH HEADER LINE,
itab_zycet093 LIKE /pws/zycet093 OCCURS 0 WITH HEADER LINE,
itab_zycet101 LIKE /pws/zycet101 OCCURS 0 WITH HEADER LINE,
itab_zycet102 LIKE /pws/zycet102 OCCURS 0 WITH HEADER LINE,
itab_zycet106 LIKE /pws/zycet106 OCCURS 0 WITH HEADER LINE,
itab_zycet053 LIKE /pws/zycet053 OCCURS 0 WITH HEADER LINE.
DATA: wa_001 LIKE /pws/zycee001,
wa_034 LIKE /pws/zycee034,
* >> Início da exclusão:
wa_046 LIKE /pws/zycee046.
* << Fim da exclusão
* >> Início da inclusão:
wa_046 LIKE /pws/zycee046,
wa_020 TYPE /pws/zycet020,
wa_ekko TYPE ekko.
* << Fim da inclusão
DATA: v_likp-vbeln LIKE likp-vbeln,
v_vbeln LIKE vbak-vbeln,
i_belnr LIKE bseg-belnr,
i_bukrs LIKE bkpf-bukrs,
i_gjahr LIKE bkpf-gjahr,
v_vbeln_vf LIKE vbrp-vbeln,
v_vbeln_vl LIKE vbak-vbeln,
v_campo(50),
v_belnr_i LIKE /pws/zycet002-belnr_i,
* >> Início da inclusão:
v_ebeln TYPE ekko-ebeln,
* << Fim da inclusão
v_dtlancrc LIKE /pws/zycet002-dtlancrc,
v_valor(50),
embarque LIKE /pws/zycet001-nrseq,
texto(22),
v_lines(10),
v_pres LIKE /pws/zycet033-nrpres,
v_count(10).
DATA: gnrseqtr LIKE /pws/zycee101-nrseqtr,
gnrrota_tr LIKE /pws/zycee102-nrrota_tr,
gnrseqno LIKE /pws/zycee106-nrseqno,
...
...
WHERE nrseq EQ p_nrseq.
IF sy-subrc EQ 0.
SELECT SINGLE * FROM /pws/zycet037
WHERE bukrs = wa_001-bukrs.
ENDIF.
SELECT * FROM /pws/zycet002
INTO TABLE itab_zycet002
WHERE nrseq EQ p_nrseq.
PERFORM carrega_zycet002.
IF NOT itab_zycet002[] IS INITIAL.
* >> Início da inclusão: FORM SELECIONA_DADOS
SELECT * FROM /pws/zycet020
INTO TABLE itab_zycet020
WHERE bukrs EQ wa_001-bukrs.
* << Fim da inclusão
SELECT * FROM /pws/zycet023
INTO TABLE itab_zycet023
FOR ALL ENTRIES IN itab_zycet002
WHERE fkart EQ itab_zycet002-fkart
AND bukrs EQ itab_zycet002-bukrs.
SELECT * FROM likp
INTO TABLE itab_likp
FOR ALL ENTRIES IN itab_zycet002
WHERE vbeln EQ itab_zycet002-vbeln_vl.
SELECT * FROM vbak
...
...
FOR ALL ENTRIES IN itab_zycet002
WHERE vbeln EQ itab_zycet002-vbeln_va.
SELECT * FROM vbup
INTO TABLE itab_vbup
FOR ALL ENTRIES IN itab_zycet002
WHERE vbeln EQ itab_zycet002-vbeln_va.
SELECT * FROM vbuk
INTO TABLE itab_vbuk
FOR ALL ENTRIES IN itab_zycet002
WHERE vbeln EQ itab_zycet002-vbeln_va.
* >> Início da inclusão: FORM SELECIONA_DADOS
IF wa_001-tipo_emb CA 'DV'.
SELECT * FROM ekko
INTO TABLE itab_ekko
FOR ALL ENTRIES IN itab_zycet002
WHERE ebeln EQ itab_zycet002-ebeln.
ENDIF.
IF wa_001-tipo_emb EQ 'D'.
SELECT * FROM vbup
APPENDING TABLE itab_vbup
FOR ALL ENTRIES IN itab_zycet002
WHERE vbeln EQ itab_zycet002-vbeln_vl.
SELECT * FROM vbuk
APPENDING TABLE itab_vbuk
FOR ALL ENTRIES IN itab_zycet002
WHERE vbeln EQ itab_zycet002-vbeln_vl.
ENDIF.
* << Fim da inclusão
SELECT * FROM vbrk
INTO TABLE itab_vbrk
FOR ALL ENTRIES IN itab_zycet002
WHERE vbeln EQ itab_zycet002-vbeln_vf.
SELECT belnr budat awkey
FROM bkpf
INTO TABLE itab_bkpf
FOR ALL ENTRIES IN itab_zycet002_temp
WHERE bukrs = itab_zycet002_temp-bukrs
AND awtyp = 'VBRK'
...
...
itab_zycet002-v_nrinvoic = itab_zycet002-nrseq.
MODIFY itab_zycet002.
ENDLOOP.
SELECT * FROM /pws/zycbt030
INTO TABLE itab_zycbt030
FOR ALL ENTRIES IN itab_zycet002
WHERE nrinvoic EQ itab_zycet002-v_nrinvoic.
ENDIF.
ENDFORM.
FORM imprime_relatorio.
* >> Início da exclusão: FORM IMPRIME_RELATORIO
CLEAR : itab_zycet046, itab_zycet101, itab_zycet102,
* << Fim da exclusão
* >> Início da inclusão: FORM IMPRIME_RELATORIO
CLEAR : itab_zycet046,
itab_zycet101,
itab_zycet102,
* << Fim da inclusão
itab_zycet106,
itab_zycet053.
WRITE: text-001 COLOR 1 INVERSE,
50 p_nrseq.
WRITE: / sy-uline(89).
WRITE: / '|',2 text-002 COLOR 1,
30 '|',
55 '|',
66 '|',
89 '|'.
...
...
66 '|', 67 text-003 COLOR 5, 89 '|'.
ENDIF.
SELECT SINGLE * FROM /pws/zycet053 WHERE
nrseqcg = wa_046-nrseqcg.
IF wa_046-nrseqcg NE space.
WRITE: / '|', 2 text-047 COLOR 2 INTENSIFIED OFF,
30 '|',
31 wa_046-nrseqcg HOTSPOT COLOR 2 INTENSIFIED OFF,
55 '|', 56 /pws/zycet053-dtincl COLOR 2 INTENSIFIED OFF,
66 '|', 67 text-003 COLOR 5, 89 '|'.
* >> Início da inclusão: FORM IMPRIME_RELATORIO
ENDIF.
CLEAR: v_ebeln,
v_likp-vbeln,
v_vbeln_vf,
v_beln.
LOOP AT itab_zycet002.
IF itab_zycet002-vbeln_va IS INITIAL AND NOT
itab_zycet002-ebeln IS INITIAL AND
wa_001-tipo_emb EQ 'D'.
IF itab_zycet002-ebeln NE v_ebeln.
READ TABLE itab_ekko INTO wa_ekko WITH KEY
ebeln = itab_zycet002-ebeln.
IF sy-subrc EQ 0.
WRITE: / '|', 2 text-060 COLOR COL_NORMAL,
30 '|',
31 itab_zycet002-ebeln HOTSPOT COLOR COL_NORMAL,
43 itab_zycet002-ebelp COLOR COL_NORMAL NO-ZERO,
55 '|', 56 wa_ekko-bedat COLOR COL_NORMAL,
66 '|', 89 '|'.
ENDIF.
ENDIF.
v_ebeln = itab_zycet002-ebeln.
LOOP AT itab_likp WHERE vbeln EQ itab_zycet002-vbeln_vl.
READ TABLE itab_vbup WITH KEY vbeln = itab_zycet002-vbeln_vl
posnr = itab_zycet002-posnl.
IF itab_likp-vbeln <> v_likp-vbeln.
WRITE: / '|', 2 text-008 COLOR 2 INTENSIFIED OFF,
30 '|',
31 '|',
31 itab_likp-vbeln COLOR 2 INTENSIFIED OFF
HOTSPOT,
itab_zycet002-posnl COLOR 2
INTENSIFIED OFF NO-ZERO,
55 '|', 56 itab_likp-erdat COLOR 2 INTENSIFIED OFF,
66 '|', 89 '|'.
READ TABLE itab_vbup
WITH KEY vbeln = itab_zycet002-vbeln_vl
posnr = itab_zycet002-posnl.
IF sy-subrc EQ 0.
IF itab_vbup-gbsta EQ space.
WRITE: 67 text-023 COLOR 3 INTENSIFIED OFF.
ELSEIF itab_vbup-gbsta EQ 'A'.
WRITE: 67 text-024 COLOR 6 INTENSIFIED OFF.
ELSEIF itab_vbup-gbsta EQ 'B'.
WRITE: 67 text-025 COLOR 5 INTENSIFIED OFF.
ELSEIF itab_vbup-gbsta EQ 'C'.
WRITE: 67 text-026 COLOR 5.
ENDIF.
ENDIF.
v_likp-vbeln = itab_likp-vbeln.
ENDIF.
LOOP AT itab_vbrk WHERE vbeln EQ itab_zycet002-vbeln_vf.
IF v_vbeln_vf NE itab_zycet002-vbeln_vf.
LOOP AT itab_zycet023
WHERE fkart EQ itab_zycet002-fkart
AND bukrs EQ itab_zycet002-bukrs.
IF ( itab_zycet023-tipodoc EQ 'OV' OR
itab_zycet023-tipodoc EQ 'VC' OR
itab_zycet023-tipodoc EQ 'CO' ) AND
itab_zycet023-estorno NE 'X'.
WRITE: / '|',2 text-009 COLOR 2 INTENSIFIED OFF,
30 '|',
31 itab_vbrk-vbeln COLOR 2 INTENSIFIED OFF
HOTSPOT,
itab_zycet002-posnr COLOR 2
INTENSIFIED OFF NO-ZERO,
55 '|',
56 itab_vbrk-erdat COLOR 2 INTENSIFIED OFF,
66 '|', 89 '|'.
ELSEIF ( itab_zycet023-tipodoc EQ 'OV' OR
itab_zycet023-tipodoc EQ 'VC' OR
itab_zycet023-tipodoc EQ 'CO' ) AND
itab_zycet023-estorno EQ 'X'.
WRITE: / '|',2 text-013 COLOR 2 INTENSIFIED OFF,
30 '|',
31 itab_vbrk-vbeln COLOR 2 INTENSIFIED OFF
HOTSPOT,
itab_zycet002-posnr COLOR 2
INTENSIFIED OFF NO-ZERO,
55 '|',
56 itab_vbrk-erdat COLOR 2 INTENSIFIED OFF,
66 '|', 89 '|'.
ELSEIF itab_zycet023-tipodoc EQ 'OD'.
WRITE: / '|',2 text-011 COLOR 2 INTENSIFIED OFF,
30 '|',
31 itab_vbrk-vbeln COLOR 2 INTENSIFIED OFF
HOTSPOT,
itab_zycet002-posnr COLOR 2
INTENSIFIED OFF NO-ZERO,
55 '|',
56 itab_vbrk-erdat COLOR 2 INTENSIFIED OFF,
66 '|', 89 '|'.
ELSEIF itab_zycet023-tipodoc EQ 'OC'.
WRITE: / '|',2 text-012 COLOR 2 INTENSIFIED OFF,
30 '|',
31 itab_vbrk-vbeln COLOR 2 INTENSIFIED OFF
HOTSPOT,
itab_zycet002-posnr COLOR 2
INTENSIFIED OFF NO-ZERO,
55 '|',
56 itab_vbrk-erdat COLOR 2 INTENSIFIED OFF,
66 '|', 89 '|'.
ENDIF.
READ TABLE itab_vbup WITH KEY
vbeln = itab_zycet002-vbeln_vl
posnr = itab_zycet002-posnl.
IF sy-subrc EQ 0.
IF itab_vbup-fksta EQ space.
WRITE: 67 text-023 COLOR 3 INTENSIFIED OFF.
ELSEIF itab_vbup-fksta EQ 'A'.
WRITE: 67 text-024 COLOR 6 INTENSIFIED OFF.
ELSEIF itab_vbup-fksta EQ 'B'.
WRITE: 67 text-025 COLOR 5 INTENSIFIED OFF.
ELSEIF itab_vbup-fksta EQ 'C'.
WRITE: 67 text-026 COLOR 5.
ENDIF.
ENDIF.
LOOP AT itab_bkpf WHERE awkey EQ itab_vbrk-vbeln.
WRITE: / '|',2 text-021 COLOR 2 INTENSIFIED OFF,
30 '|',
31 itab_bkpf-belnr COLOR 2 INTENSIFIED OFF
HOTSPOT,
itab_zycet002-posnr COLOR 2
INTENSIFIED OFF NO-ZERO,
55 '|',
56 itab_bkpf-budat COLOR 2 INTENSIFIED OFF,
66 '|', 89 '|'.
ENDLOOP.
ENDLOOP.
v_vbeln_vf = itab_zycet002-vbeln_vf.
* << Fim da inclusão
ENDIF.
* >> Início da exclusão: FORM IMPRIME_RELATORIO
LOOP AT itab_zycet002 .
* << Fim da exclusão
* >> Início da inclusão: FORM IMPRIME_RELATORIO
ENDLOOP.
ENDLOOP.
ELSE.
* << Fim da inclusão
LOOP AT itab_vbak WHERE vbeln EQ itab_zycet002-vbeln_va.
READ TABLE itab_temp WITH KEY vbeln_va = itab_zycet002-vbeln_va.
IF sy-subrc NE 0.
MOVE itab_zycet002 TO itab_temp.
APPEND itab_temp.
* >> Início da inclusão: FORM IMPRIME_RELATORIO
IF wa_001-tipo_emb EQ 'V' AND NOT
itab_zycet002-ebeln IS INITIAL.
CLEAR wa_020.
READ TABLE itab_zycet020 INTO wa_020 WITH KEY
auart = itab_zycet002-auart.
IF ( wa_020-tipodoc EQ 'OV' OR
wa_020-tipodoc EQ 'CO' OR
wa_020-tipodoc EQ 'VC' ).
READ TABLE itab_ekko INTO wa_ekko WITH KEY
ebeln = itab_zycet002-ebeln.
IF sy-subrc EQ 0.
WRITE: / '|', 2 text-060 COLOR COL_NORMAL,
30 '|',
31 itab_zycet002-ebeln HOTSPOT COLOR COL_NORMAL,
43 itab_zycet002-ebelp COLOR COL_NORMAL NO-ZERO,
55 '|', 56 wa_ekko-bedat COLOR COL_NORMAL,
66 '|', 89 '|'.
ENDIF.
ENDIF.
ENDIF.
* << Fim da inclusão
WRITE: / '|', 2 text-007 COLOR COL_NORMAL,
30 '|',
31 itab_vbak-vbeln HOTSPOT COLOR COL_NORMAL,
itab_zycet002-aupos COLOR COL_NORMAL NO-ZERO,
55 '|', 56 itab_vbak-erdat COLOR COL_NORMAL,
66 '|', 89 '|'.
ENDIF.
READ TABLE itab_vbup WITH KEY vbeln = itab_zycet002-vbeln_va
posnr = itab_zycet002-aupos.
IF itab_vbup-vbeln NE v_beln.
...
...
31 itab_vbrk-vbeln COLOR 2 INTENSIFIED OFF
HOTSPOT,
itab_zycet002-posnr COLOR 2
INTENSIFIED OFF NO-ZERO,
55 '|',
56 itab_vbrk-erdat COLOR 2 INTENSIFIED OFF,
66 '|', 89 '|'.
ENDIF.
READ TABLE itab_vbup WITH KEY
vbeln = itab_zycet002-vbeln_va
* >> Início da exclusão: FORM IMPRIME_RELATORIO
posnr = itab_zycet002-posnr.
* << Fim da exclusão
* >> Início da inclusão: FORM IMPRIME_RELATORIO
posnr = itab_zycet002-aupos.
* << Fim da inclusão
IF sy-subrc EQ 0.
IF itab_vbup-fksta EQ space.
WRITE: 67 text-023 COLOR 3 INTENSIFIED OFF.
ELSEIF itab_vbup-fksta EQ 'A'.
WRITE: 67 text-024 COLOR 6 INTENSIFIED OFF.
ELSEIF itab_vbup-fksta EQ 'B'.
WRITE: 67 text-025 COLOR 5 INTENSIFIED OFF.
ELSEIF itab_vbup-fksta EQ 'C'.
WRITE: 67 text-026 COLOR 5.
ENDIF.
...
...
30 '|',
31 '|',
31 itab_likp-vbeln COLOR 2 INTENSIFIED OFF
HOTSPOT,
itab_zycet002-posnl COLOR 2
INTENSIFIED OFF NO-ZERO,
55 '|', 56 itab_likp-erdat COLOR 2 INTENSIFIED OFF,
66 '|', 89 '|'.
READ TABLE itab_vbup
WITH KEY vbeln = itab_zycet002-vbeln_va
* >> Início da exclusão: FORM IMPRIME_RELATORIO
posnr = itab_zycet002-posnl.
* << Fim da exclusão
* >> Início da inclusão: FORM IMPRIME_RELATORIO
posnr = itab_zycet002-aupos.
* << Fim da inclusão
IF sy-subrc EQ 0.
IF itab_vbup-lfsta EQ space.
WRITE: 67 text-023 COLOR 3 INTENSIFIED OFF.
ELSEIF itab_vbup-lfsta EQ 'A'.
WRITE: 67 text-024 COLOR 6 INTENSIFIED OFF.
ELSEIF itab_vbup-lfsta EQ 'B'.
WRITE: 67 text-025 COLOR 5 INTENSIFIED OFF.
ELSEIF itab_vbup-lfsta EQ 'C'.
WRITE: 67 text-026 COLOR 5.
ENDIF.
...
...
30 '|',
31 itab_vbrk-vbeln COLOR 2 INTENSIFIED OFF
HOTSPOT,
itab_zycet002-posnr COLOR 2
INTENSIFIED OFF NO-ZERO,
55 '|',
56 itab_vbrk-erdat COLOR 2 INTENSIFIED OFF,
66 '|', 89 '|'.
ENDIF.
READ TABLE itab_vbuk WITH KEY
* >> Início da exclusão: FORM IMPRIME_RELATORIO
vbeln =
itab_zycet002-vbeln_va.
* << Fim da exclusão
* >> Início da inclusão: FORM IMPRIME_RELATORIO
vbeln = itab_zycet002-vbeln_va.
* << Fim da inclusão
IF sy-subrc EQ 0.
IF itab_vbuk-gbstk EQ space.
WRITE: 67 text-023 COLOR 3 INTENSIFIED OFF.
ELSEIF itab_vbuk-gbstk EQ 'A'.
WRITE: 67 text-024 COLOR 6 INTENSIFIED OFF.
ELSEIF itab_vbuk-gbstk EQ 'B'.
WRITE: 67 text-025 COLOR 5 INTENSIFIED OFF.
ELSEIF itab_vbuk-gbstk EQ 'C'.
WRITE: 67 text-026 COLOR 5.
ENDIF.
...
...
56 itab_bkpf-budat COLOR 2 INTENSIFIED OFF,
66 '|', 89 '|'.
ENDLOOP.
ENDLOOP.
v_vbeln_vf = itab_zycet002-vbeln_vf.
ENDIF.
ENDLOOP.
ENDLOOP.
ENDIF.
ENDLOOP.
* >> Início da inclusão: FORM IMPRIME_RELATORIO
ENDIF.
* << Fim da inclusão
ENDLOOP.
IF NOT itab_zycet018[] IS INITIAL.
WRITE: / sy-uline(89).
WRITE: / '|',2 text-015 COLOR 2 INTENSIFIED,
30 '|',55 '|', 66 '|', 89 '|'.
ENDIF.
LOOP AT itab_zycet018 WHERE nrseq EQ p_nrseq.
WRITE: / '|',2 text-022 COLOR 2 INTENSIFIED OFF,
4 itab_zycet018-nradto COLOR 2 INTENSIFIED OFF,
30 '|' COLOR 2 INTENSIFIED OFF,
...
...
IMPORTING
v_year = i_gjahr.
SET PARAMETER ID 'BUK' FIELD i_bukrs.
SET PARAMETER ID 'BLN' FIELD i_belnr.
SET PARAMETER ID 'GJR' FIELD i_gjahr.
AUTHORITY-CHECK OBJECT 'S_TCODE' ID 'TCD' FIELD 'FB03'.
IF sy-subrc EQ 0.
CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
ELSE.
MESSAGE e261(sf) WITH 'FB03'.
* >> Início da inclusão: FORM SEG_LISTA
ENDIF.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM SEG_LISTA
ELSEIF v_campo EQ 'ITAB_ZYCET002-EBELN'.
AUTHORITY-CHECK OBJECT 'S_TCODE' ID 'TCD' FIELD 'ME23N'.
IF sy-subrc EQ 0.
v_vbeln = v_valor.
SET PARAMETER ID 'BES' FIELD v_vbeln.
CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
ELSE.
MESSAGE e261(sf) WITH 'ME23N'.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDFORM.
FORM carrega_zycet002.
LOOP AT itab_zycet002.
IF sy-subrc = 0.
MOVE: itab_zycet002-bukrs TO
itab_zycet002_temp-bukrs,
itab_zycet002-vbeln_vf TO
itab_zycet002_temp-vbeln_vf.
APPEND itab_zycet002_temp.
ENDIF.
ENDLOOP.
ENDFORM.
FORM select_tables USING nrseq.
* >> Início da exclusão: FORM SELECT_TABLES
CLEAR: wa_001, wa_046, itab_zycet002, itab_zycet002_temp,
* << Fim da exclusão
* >> Início da inclusão: FORM SELECT_TABLES
CLEAR: wa_001,
wa_046,
itab_zycet002,
itab_zycet002_temp,
* << Fim da inclusão
itab_zycet023,
* >> Início da exclusão: FORM SELECT_TABLES
itab_likp, itab_vbak, itab_vbup, itab_vbrk, itab_bkpf,
itab_zycet018, itab_zycet033, itab_zycet010,
* << Fim da exclusão
* >> Início da inclusão: FORM SELECT_TABLES
itab_likp,
itab_vbak,
itab_vbup,
itab_vbrk,
itab_bkpf,
itab_zycet018,
itab_zycet033,
itab_zycet010,
* << Fim da inclusão
itab_zycet093,
* >> Início da exclusão: FORM SELECT_TABLES
itab_zycet034, itab_zycet012, itab_zycbt030.
REFRESH: itab_zycet002, itab_zycet002_temp,
* << Fim da exclusão
* >> Início da inclusão: FORM SELECT_TABLES
itab_zycet034,
itab_zycet012,
itab_zycbt030.
REFRESH: itab_zycet002,
itab_zycet002_temp,
* << Fim da inclusão
itab_zycet023,
* >> Início da exclusão: FORM SELECT_TABLES
itab_likp, itab_vbak, itab_vbup, itab_vbrk, itab_bkpf,
itab_zycet018, itab_zycet033, itab_zycet010,
* << Fim da exclusão
* >> Início da inclusão: FORM SELECT_TABLES
itab_likp,
itab_vbak,
itab_vbup,
itab_vbrk,
itab_bkpf,
itab_zycet018,
itab_zycet033,
itab_zycet010,
* << Fim da inclusão
itab_zycet093,
* >> Início da exclusão: FORM SELECT_TABLES
itab_zycet034, itab_zycet012, itab_zycbt030.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECT_TABLES
itab_zycet034,
itab_zycet012,
itab_zycbt030.
* << Fim da inclusão
SELECT SINGLE * FROM /pws/zycet001
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/ZYCER203
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 060
Texto: (18 caracteres)
"*Pedido de Compra:"
Comprimento máximo: 18