CE PLUS - Nota 001383
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 22/05/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:38:47
Descrição da Nota: AJUSTES NA DA
Sintoma
Ajustes na DA (regime 16)
Solução
Ajustes na DA (regime 16)
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01383 Data: 22/05/2006 Hora: 14:36:42
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01383
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00023
Agrupamento : 00114
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01268 - 00001 - 6.0 - 00023 - DESENVOLVIMENTO ENTREPOSTO ADUANEIRO
01350 - 00002 - 6.0 - 00023 - AJUSTES DE CAMPOS E CONSISTÊNCIAS NO EMBARQUE DE NACIONALIZAÇÃO.
----------------------------------------------------------------------------------------------------
AJUSTES NA DA
----------------------------------------------------------------------------------------------------
Palavras Chave:
EMBARQUE - REGIME 16 - DA- PLANEJADO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI001F03
REPS /PWS/MZYCI001TOP
REPS /PWS/MZYCI001X01
REPS /PWS/SAPMZYCI001
CUAD /PWS/SAPMZYCI001
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUA /PWS/SAPMZYCI001
*Criado o botão para vinculação de Dados do Recof
CRIAR BOTÃO: BTNT0102_04
NOME : BTNT0102_04
TEXTO: _
X) - COM ÍCONE
NOME DE ÍCONE: ICON_IMPORT
TXT.INFO.RÁP.: Importar_Itens_Recof
LINHA: 1 COLUNA: 18
COMPR.DEF. 28 COMPR.VIS. 2
ALTURA: 1
"GRUPOS: RC
CÓD. FUNÇÃO: SELE_RC
DICIONÁRIO:
FORMATO: CHAR
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F03
...
FOR ALL ENTRIES IN itab_da
WHERE ebeln EQ itab_da-ebeln
AND ebelp EQ itab_da-ebelp.
CLEAR v_qtdutil_da.
LOOP AT itab_da.
* >> Início da inclusão: FORM SELECIONAR_DA
v_index = sy-tabix.
* << Fim da inclusão
LOOP AT itab_zycit003_saldo WHERE ebeln EQ itab_da-ebeln
AND ebelp EQ itab_da-ebelp.
v_qtdutil_da = v_qtdutil_da + itab_zycit003_saldo-qtd_iten .
ENDLOOP.
itab_da-qtd_lote = itab_da-qtd_lote - v_qtdutil_da.
IF itab_da-qtd_lote EQ 0.
DELETE itab_da.
ENDIF.
CLEAR v_qtdutil_da.
* >> Início da inclusão: FORM SELECIONAR_DA
MODIFY itab_da INDEX v_index.
* << Fim da inclusão
ENDLOOP.
ENDIF.
ELSE.
SELECT /pws/zycit442~nrseqda /pws/zycit442~nrdi /pws/zycit442~bukrs
/pws/zycit442~dtdesemb /pws/zycit460~lifnr /pws/zycit443~ebeln
* >> Início da exclusão: FORM SELECIONAR_DA
/pws/zycit443~ebelp /pws/zycit443~matnr /pws/zycit463~lote_forn
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_DA
/pws/zycit443~ebelp /pws/zycit443~matnr
/pws/zycit463~lote_forn
* << Fim da inclusão
/pws/zycit463~numfatura /pws/zycit463~qtd_lote
/pws/zycit463~qtd_nac
FROM ( /pws/zycit442 INNER JOIN /pws/zycit460 ON
/pws/zycit442~nrseqda = /pws/zycit460~nrseqda
INNER JOIN /pws/zycit443 ON
...
...
ENDIF.
ENDFORM.
FORM verifica_itens_da.
DATA: v_ebelp LIKE konv-kposn,
itab_zycit100_per LIKE /pws/zycit100 OCCURS 0 WITH HEADER LINE.
* >> Início da exclusão: FORM VERIFICA_ITENS_DA
CLEAR /pws/zycie001-netpr.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ITENS_DA
CLEAR : /pws/zycie001-netpr , v_netpr.
* << Fim da inclusão
IF ( sy-tcode = '/PWS/ZYCI001_E' OR
sy-tcode = '/PWS/ZYCI001_A' ) AND
( okcode = 'P-' OR okcode = 'P--' OR
okcode = 'P+' OR okcode = 'P++' ).
ELSEIF okcode EQ 'SELE_DA' OR okcode EQ 'ENTE' OR okcode EQ 'SAVE' OR
...
...
MESSAGE e015 WITH text-213.
ENDIF.
ENDIF.
LOOP AT itab_zycit003.
v_tabix = sy-tabix.
* >> Início da exclusão: FORM VERIFICA_ITENS_DA
/pws/zycie001-netpr = /pws/zycie001-netpr + v_netpr.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ITENS_DA
v_netpr = v_netpr +
( itab_zycit003-netpr * itab_zycit003-qtd_iten ).
/pws/zycie001-netpr = v_netpr.
* << Fim da inclusão
IF /pws/zycie001-netpr < 0.
CLEAR /pws/zycie001-netpr.
MESSAGE e061 WITH text-235 text-236.
ENDIF.
SELECT SINGLE j_1bmatuse INTO ekpo-j_1bmatuse
...
...
IF NOT itab_zycit443[] IS INITIAL.
SELECT * FROM /pws/zycit003 INTO TABLE itab_zycit003_saldo
FOR ALL ENTRIES IN itab_zycit443
WHERE ebeln EQ itab_zycit443-ebeln
AND ebelp EQ itab_zycit443-ebelp.
* >> Início da inclusão: FORM VERIFICA_ITENS_DA
CLEAR v_qtdutil_da.
* << Fim da inclusão
LOOP AT itab_zycit003_saldo.
* >> Início da inclusão: FORM VERIFICA_ITENS_DA
IF itab_zycit003_saldo-nrseq NE /pws/zycie001-nrseq.
* << Fim da inclusão
v_qtdutil_da = v_qtdutil_da + itab_zycit003_SALDO-qtd_iten .
* >> Início da inclusão: FORM VERIFICA_ITENS_DA
ENDIF.
* << Fim da inclusão
ENDLOOP.
READ TABLE itab_zycit443 WITH KEY
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
IF sy-subrc EQ 0 .
...
...
itab_zycit443-numero_al TO itab_zycit003-numero_al,
itab_zycit443-vlreal TO itab_zycit003-vlreal,
itab_zycit443-waersbem TO itab_zycit003-waers,
itab_zycit443-qtd_da TO itab_zycit003-menge ,
itab_zycit443-netpr TO itab_zycit003-v_fob ,
* >> Início da exclusão: FORM SELECIONAR_ITENS_DA
/pws/zycie001-nrseq TO itab_zycit003-nrseq .
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_ITENS_DA
/pws/zycie001-nrseq TO itab_zycit003-nrseq ,
itab_zycit443-nrseqda TO itab_zycit003-nrseqda,
itab_zycit443-adicao TO itab_zycit003-adicao .
* << Fim da inclusão
IF NOT itab_zycit443-qtd_da IS INITIAL.
itab_zycit003-ntgew = ( itab_zycit443-ntgew /
itab_zycit443-qtd_da ) * itab_zycit003-qtd_iten.
ENDIF.
itab_zycit003-sld_da = itab_zycit443-qtd_sld =
...
...
<fs_tabrc> TYPE STANDARD TABLE,
<fs_hearc> TYPE ANY,
<fs_fldrc> TYPE ANY.
DATA:
v_tipo TYPE REF TO data,
* >> Início da inclusão: FORM SELECIONAR_RC
v_reg TYPE i,
* << Fim da inclusão
BEGIN OF itab_rc_aux OCCURS 100,
cod_matriz TYPE /pws/zycie442-bukrs,
cod_filial TYPE /pws/zycie442-j_1bbranch,
num_da_di TYPE /pws/zycie442-nrdi,
num_adicao TYPE /pws/zycie443-adicao,
num_item_adicao TYPE /pws/zycie455-itseqda,
* >> Início da inclusão: FORM SELECIONAR_RC
quantidade TYPE /pws/zycie443-qtd_da,
* << Fim da inclusão
END OF itab_rc_aux.
CLEAR v_tipo.
PERFORM criar_tipo USING v_tabname1 CHANGING v_tipo.
IF NOT v_tipo IS INITIAL.
ASSIGN v_tipo->* TO <fs_tabrc>.
...
...
UNASSIGN <fs_fldrc>.
ASSIGN COMPONENT 'NUM_ITEM_ADICAO' OF STRUCTURE <fs_hearc>
TO <fs_fldrc>.
IF <fs_fldrc> IS ASSIGNED.
itab_rc_aux-num_item_adicao = <fs_fldrc>.
* >> Início da inclusão: FORM SELECIONAR_RC
ENDIF.
UNASSIGN <fs_fldrc>.
ASSIGN COMPONENT 'QUANTIDADE' OF STRUCTURE <fs_hearc>
TO <fs_fldrc>.
IF <fs_fldrc> IS ASSIGNED.
itab_rc_aux-quantidade = <fs_fldrc>.
* << Fim da inclusão
ENDIF.
* >> Início da exclusão: FORM SELECIONAR_RC
COLLECT itab_rc_aux.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_RC
APPEND itab_rc_aux.
* << Fim da inclusão
ENDLOOP.
* >> Início da inclusão: FORM SELECIONAR_RC
DELETE ADJACENT DUPLICATES
FROM itab_rc_aux.
* << Fim da inclusão
IF NOT itab_rc_aux[] IS INITIAL.
SELECT /pws/zycit442~nrseqda /pws/zycit442~nrdi
/pws/zycit442~bukrs /pws/zycit442~dtdesemb
/pws/zycit443~lifnr AS agente
/pws/zycit443~ebeln /pws/zycit443~ebelp
...
...
AND /pws/zycit455~itseqda EQ itab_rc_aux-num_item_adicao.
IF sy-subrc EQ 0.
SORT itab_da BY nrseqda adicao itseqda.
DELETE ADJACENT DUPLICATES FROM itab_da
COMPARING nrseqda adicao itseqda.
* >> Início da inclusão: FORM SELECIONAR_RC
MOVE itab_da[] TO itab_da_aux[].
LOOP AT itab_da.
v_reg = sy-tabix.
READ TABLE itab_rc_aux
WITH KEY cod_matriz = itab_da-bukrs
num_da_di = itab_da-nrdi
num_adicao = itab_da-adicao
num_item_adicao = itab_da-itseqda.
IF sy-subrc NE 0 OR itab_rc_aux-quantidade IS INITIAL.
DELETE itab_da INDEX v_reg.
ELSE.
itab_da-qtd_nac = itab_rc_aux-quantidade.
MODIFY itab_da FROM itab_da TRANSPORTING qtd_nac.
ENDIF.
ENDLOOP.
* << Fim da inclusão
ENDIF.
ENDIF.
IF NOT itab_da[] IS INITIAL.
DESCRIBE TABLE itab_da LINES v_line.
CALL SCREEN '0003'.
...
...
it_fieldcatalog = t_fieldcat
IMPORTING
ep_table = p_tipo.
ENDIF.
ENDFORM.
* >> Início da inclusão:
FORM gravar_custos.
TABLES: j_1bbranch ,
adrc ,
/pws/zycit062,
/pws/zycit036.
DATA: itab_zycit036_aux LIKE /pws/zycit036 OCCURS 0 WITH HEADER LINE,
itab_zycit459 LIKE /pws/zycit459 OCCURS 0 WITH HEADER LINE,
itab_zycit461 LIKE /pws/zycit461 OCCURS 0 WITH HEADER LINE,
itab_zycit465 LIKE /pws/zycit465 OCCURS 0 WITH HEADER LINE,
itab_zycit466 LIKE /pws/zycit466 OCCURS 0 WITH HEADER LINE,
itab_zycit019 LIKE /pws/zycit019 OCCURS 0 WITH HEADER LINE.
DATA: v_vldp LIKE /pws/zycit461-vldp,
v_netpc_nac LIKE /pws/zycit036-netpr,
v_netdc_nac LIKE /pws/zycit036-netpr,
v_vldpd LIKE /pws/zycit466-vldp .
CLEAR : itab_zycit003_saldo.
REFRESH : itab_zycit003_saldo.
SELECT SINGLE land1 FROM t001 INTO t001-land1
WHERE bukrs EQ /pws/zycie001-bukrs.
SELECT SINGLE * FROM j_1bbranch
WHERE bukrs = /pws/zycie001-bukrs AND
branch = /pws/zycie001-j_1bbranch.
IF sy-subrc EQ 0.
SELECT SINGLE * FROM adrc
WHERE addrnumber = j_1bbranch-adrnr.
ENDIF.
SELECT SINGLE * FROM /pws/zycit062
WHERE regio = adrc-region.
IF /pws/zycbt007 IS INITIAL.
SELECT SINGLE *
FROM /pws/zycbt007
WHERE bukrs EQ /pws/zycie001-bukrs.
ENDIF.
SELECT * FROM /pws/zycit019 INTO TABLE itab_zycit019
WHERE land1 EQ t001-land1.
READ TABLE itab_zycit003 INDEX 1.
SELECT * FROM /pws/zycit003 INTO TABLE itab_zycit003_saldo
WHERE nrseqda EQ itab_zycit003-nrseqda.
DELETE itab_zycit003_saldo WHERE nrseq EQ /pws/zycie001-nrseq.
IF NOT itab_zycit003_saldo[] IS INITIAL.
SELECT * FROM /pws/zycit036 INTO TABLE itab_zycit036_aux
FOR ALL ENTRIES IN itab_zycit003_saldo
WHERE nrseq EQ itab_zycit003_saldo-nrseq.
ENDIF.
IF NOT itab_zycit003[] IS INITIAL.
SELECT * FROM /pws/zycit443 INTO TABLE itab_zycit443
FOR ALL ENTRIES IN itab_zycit003
WHERE nrseqda EQ itab_zycit003-nrseqda.
SELECT * FROM /pws/zycit459 INTO TABLE itab_zycit459
FOR ALL ENTRIES IN itab_zycit003
WHERE nrseqda EQ itab_zycit003-nrseqda
AND status EQ 'A'.
IF sy-subrc EQ 0.
SELECT * FROM /pws/zycit461 INTO TABLE itab_zycit461
FOR ALL ENTRIES IN itab_zycit459
WHERE nrseqda = itab_zycit459-nrseqda.
ENDIF.
SELECT * FROM /pws/zycit465 INTO TABLE itab_zycit465
FOR ALL ENTRIES IN itab_zycit003
WHERE nrseq EQ itab_zycit003-nrseqda
AND status EQ 'A'.
IF sy-subrc EQ 0.
SELECT * FROM /pws/zycit466 INTO TABLE itab_zycit466
FOR ALL ENTRIES IN itab_zycit465
WHERE nrseq = itab_zycit465-nrseq
AND nradto = itab_zycit465-nradto.
ENDIF.
ENDIF.
LOOP AT itab_zycit019.
CLEAR v_vldp .
LOOP AT itab_zycit461 WHERE tpdesp EQ itab_zycit019-tpdesp.
v_vldp = v_vldp + itab_zycit461-vldp.
ENDLOOP.
LOOP AT itab_zycit466 WHERE tpdesp EQ itab_zycit019-tpdesp.
v_vldpd = v_vldpd + itab_zycit466-vldp.
ENDLOOP.
LOOP AT itab_zycit003.
LOOP AT itab_zycit036_aux WHERE origem EQ 'PCD' AND
codigo EQ itab_zycit019-tpdesp
and ebeln eq itab_zycit003-ebeln
and ebelp eq itab_zycit003-ebelp.
v_netpc_nac = v_netpc_nac + itab_zycit036_aux-netpr.
ENDLOOP.
LOOP AT itab_zycit036_aux WHERE origem EQ 'DCD' AND
codigo EQ itab_zycit019-tpdesp
and ebeln eq itab_zycit003-ebeln
and ebelp eq itab_zycit003-ebelp.
v_netdc_nac = v_netdc_nac + itab_zycit036_aux-netpr.
ENDLOOP.
if not v_vldp is initial.
MOVE: itab_zycit003-nrseq TO itab_zycit036_aux-nrseq,
itab_zycit003-ebeln TO itab_zycit036_aux-ebeln,
itab_zycit003-ebelp TO itab_zycit036_aux-ebelp,
/pws/zycie001-embarca TO itab_zycit036_aux-embarca,
itab_zycit019-codigo TO itab_zycit036_aux-codigo,
'PCD' TO itab_zycit036_aux-origem,
/pws/zycie001-nrseq TO itab_zycit036_aux-nrseqori,
/pws/zycie001-bukrs TO itab_zycit036_aux-bukrs,
itab_zycit003-werks TO itab_zycit036_aux-werks,
'D' TO itab_zycit036_aux-codmod,
sy-uname TO itab_zycit036_aux-usernamec,
sy-datum TO itab_zycit036_aux-dtuserc,
sy-uzeit TO itab_zycit036_aux-hruserc,
/pws/zycbt007-waersb TO itab_zycit036_aux-waers_real.
READ TABLE itab_zycit443 WITH KEY
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
IF sy-subrc EQ 0.
IF NOT itab_zycit443-qtd_da IS INITIAL.
itab_zycit036_aux-vlreal =
( itab_zycit003-qtd_iten / itab_zycit443-qtd_da )
* ( v_vldp - v_netpc_nac ) .
ENDIF.
ENDIF.
append itab_zycit036_aux.
endif.
if not v_vldpd is initial.
MOVE: itab_zycit003-nrseq TO itab_zycit036_aux-nrseq,
itab_zycit003-ebeln TO itab_zycit036_aux-ebeln,
itab_zycit003-ebelp TO itab_zycit036_aux-ebelp,
/pws/zycie001-embarca TO itab_zycit036_aux-embarca,
itab_zycit019-codigo TO itab_zycit036_aux-codigo,
'DCD' TO itab_zycit036_aux-origem,
/pws/zycie001-nrseq TO itab_zycit036_aux-nrseqori,
/pws/zycie001-bukrs TO itab_zycit036_aux-bukrs,
itab_zycit003-werks TO itab_zycit036_aux-werks,
'D' TO itab_zycit036_aux-codmod,
sy-uname TO itab_zycit036_aux-usernamec,
sy-datum TO itab_zycit036_aux-dtuserc,
sy-uzeit TO itab_zycit036_aux-hruserc,
/pws/zycbt007-waersb TO itab_zycit036_aux-waers_real.
READ TABLE itab_zycit443 WITH KEY
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
IF sy-subrc EQ 0.
IF NOT itab_zycit443-qtd_da IS INITIAL.
itab_zycit036_aux-vlreal =
( itab_zycit003-qtd_iten / itab_zycit443-qtd_da )
* ( v_vldpd - v_netdc_nac ) .
ENDIF.
ENDIF.
append itab_zycit036_aux.
endif.
ENDLOOP.
ENDLOOP.
loop at itab_zycit036_aux.
MODIFY /pws/zycit036 FROM itab_zycit036_aux.
endloop.
commit work.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001TOP
...
v_flag_10(10) TYPE c,
v_comprador(20) TYPE c,
v_mark(1) TYPE c ,
vl_erro TYPE c ,
v_nf ,
* >> Início da exclusão:
v_cotne(02) TYPE c ,
v_canal(10) TYPE c ,
v_tot_peso(15) TYPE c,
v_mexit(01) TYPE c.
* << Fim da exclusão
* >> Início da inclusão:
v_cotne(02) TYPE c,
v_canal(10) TYPE c,
v_tot_peso(15) TYPE c,
v_tabname1 TYPE dd02l-tabname,
v_fldname1 TYPE dd03l-fieldname,
v_fldname2 TYPE dd03l-fieldname,
v_fldname3 TYPE dd03l-fieldname,
v_fldname4 TYPE dd03l-fieldname,
v_fldname5 TYPE dd03l-fieldname,
v_mexit(01) TYPE c.
* << Fim da inclusão
DATA v_land1 LIKE t001-land1.
DATA v_valida.
DATA:
ok_code LIKE sy-ucomm ,
v_answer ,
...
...
so_nrda FOR /pws/zycie442-nrdi ,
so_beln FOR /pws/zycie443-ebeln,
so_belp FOR /pws/zycie443-ebelp,
so_matn FOR /pws/zycie443-matnr.
SELECTION-SCREEN END OF SCREEN 0700.
* >> Início da inclusão:
SELECTION-SCREEN BEGIN OF SCREEN 0701.
SELECT-OPTIONS:
so_matri FOR (v_fldname1)
NO INTERVALS NO-EXTENSION,
so_filia FOR (v_fldname2)
NO INTERVALS NO-EXTENSION,
so_numda FOR (v_fldname3),
so_adica FOR (v_fldname4),
so_itadi FOR (v_fldname5).
SELECTION-SCREEN END OF SCREEN 0701.
* << Fim da inclusão
AT SELECTION-SCREEN OUTPUT.
IF sy-dynnr EQ '0300'.
LOOP AT SCREEN.
IF ( screen-name EQ 'SO_INCO1-LOW' AND
NOT /pws/zycie001-inco1 IS INITIAL ) OR
( screen-name EQ 'PA_BUKRS' ).
screen-input = '0'.
MODIFY SCREEN.
ELSE.
screen-input = '1'.
* >> Início da inclusão:
ENDIF.
ENDLOOP.
ENDIF.
IF sy-dynnr EQ '0701'.
IF v_tabname1 IS INITIAL.
LEAVE TO SCREEN 0.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão:
SET TITLEBAR '0701'.
MOVE:
/pws/zycie001-bukrs TO so_matri-low,
/pws/zycie001-j_1bbranch TO so_filia-low.
LOOP AT SCREEN.
IF ( screen-name EQ 'SO_MATRI-LOW' AND
NOT so_matri-low IS INITIAL ) OR
( screen-name EQ 'SO_FILIA-LOW' AND
NOT so_filia-low IS INITIAL ).
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
* << Fim da inclusão
ENDLOOP.
ENDIF.
AT SELECTION-SCREEN.
CASE sy-dynnr .
WHEN '0300'.
...
...
PERFORM selecionar_itens.
PERFORM dados_intrucao.
ENDIF.
WHEN '0700'.
PERFORM selecionar_da.
* >> Início da inclusão:
WHEN '0701'.
IF sy-ucomm EQ 'CRET'.
PERFORM selecionar_rc.
ENDIF.
* << Fim da inclusão
ENDCASE.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001X01
...
v_nrseqda LIKE /pws/zycie442-nrseqda ,
v_qtd_sld LIKE /pws/zycit443-qtd_iten.
DATA: BEGIN OF itab_da OCCURS 0,
nrseqda LIKE /pws/zycie442-nrseqda ,
nrdi LIKE /pws/zycie442-nrdi ,
* >> Início da exclusão:
burks LIKE /pws/zycie442-bukrs ,
* << Fim da exclusão
* >> Início da inclusão:
bukrs LIKE /pws/zycie442-bukrs ,
* << Fim da inclusão
dtdesemb LIKE /pws/zycie442-dtdesemb ,
agente LIKE /pws/zycie460-lifnr ,
ebeln LIKE /pws/zycie443-ebeln ,
ebelp LIKE /pws/zycie443-ebelp ,
matnr LIKE /pws/zycie443-matnr ,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/SAPMZYCI001
INCLUDE /PWS/MZYCI001TOP.
INCLUDE /PWS/MZYCI001O01.
INCLUDE /PWS/MZYCI001I01.
INCLUDE /PWS/MZYCI001F01.
INCLUDE /PWS/MZYCI001F02.
* >> Início da inclusão:
INCLUDE /PWS/MZYCI001F03.
* << Fim da inclusão