CE PLUS - Nota 006294
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Recebimento
Data/Hora da Publicação: 01/04/2008 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:55:54
Descrição da Nota: NECESSÁRIA EXIT ANTES DA SELEÇÃO DE DADOS DO RECEBIMENTO
Sintoma
Necessária exit antes da seleção de dados do recebimento
Solução
Criada a chamada de exit RCB018 antes da seleção de dados da provisão de Frete, Seguro e Estorno na
F-51
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06294 Data: 01/04/2008 Hora: 16:37:41
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06294
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00005
Agrupamento : 00041
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02043 - 00003 - 6.0 - 00024 - ERRO NO RECEBIMENTO FÍSICO / FISCAL
05352 - 00001 - 7.0 - 00003 - CRIADA A EXIT RCB017 NO RECEBIMENTO
05658 - 00002 - 7.0 - 00004 - PADRONIZAÇÃO - CODE INSPECTOR RECEBIMENTO
----------------------------------------------------------------------------------------------------
NECESSÁRIA EXIT ANTES DA SELEÇÃO DE DADOS DO RECEBIMENTO
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXIT - SELEÇÃO DE DADOS - RECEBIMENTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI017F01
REPS /PWS/MZYCI017F02
REPS /PWS/MZYCI017OO
REPS /PWS/MZYCI017TOP
REPS /PWS/MZYCI017X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F01
...
FORM fill_date_f_51.
DATA: v_nrseq LIKE /pws/zycit001-nrseq.
CLEAR: v_xblnr.
CLEAR v_sede.
v_f02 = 'F51'.
e_subrc = '0'.
PERFORM verifica_data_em_aberto.
MOVE itab_itens_nf[] TO itab_itens_nf_aux[].
* >> Início da exclusão: FORM FILL_DATE_F_51
CLEAR v_subrc.
IF v_subrc IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_51
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI017'
'RCB018'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'RCB018' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
ENDIF.
ENDIF.
IF e_subrc EQ 0.
* << Fim da inclusão
PERFORM multiplos_lancamentos_f_51.
ENDIF.
PERFORM get_parameters_f-51.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F02
...
FORM fill_date_f_02.
* >> Início da inclusão: FORM FILL_DATE_F_02
e_subrc = 0.
* << Fim da inclusão
...
...
ENDIF.
SELECT SINGLE * FROM t001 WHERE bukrs = /pws/zycie043a-bukrs.
SELECT SINGLE *
FROM /pws/zycit000
WHERE land1 EQ t001-land1.
IF wa_global-statusp_f_02 EQ 'C'.
MESSAGE s015 WITH text-034.
EXIT.
ENDIF.
MOVE-CORRESPONDING wa_nf TO wa_nf_aux.
* >> Início da exclusão: FORM FILL_DATE_F_02
CLEAR v_subrc.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_02
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI017'
'RCB018'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'RCB018' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
* << Fim da inclusão
* >> Início da exclusão: FORM FILL_DATE_F_02
IF v_subrc IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_02
ENDIF.
ENDIF.
IF e_subrc EQ 0.
* << Fim da inclusão
PERFORM lancamento_impostos.
ENDIF.
IF v_subrc = 'E'.
FREE: itab_zycbt035, itab_param_classe.
ENDIF.
...
...
* >> Início da inclusão: FORM GET_PARAMETERS_F-02
e_subrc = '0'.
v_F02 = 'PCF' .
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI017'
'RCB018'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'RCB018' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
ENDIF.
ENDIF.
IF e_subrc EQ 0.
* << Fim da inclusão
PERFORM adiciona_outros_impostos.
* >> Início da inclusão: FORM GET_PARAMETERS_F-02
endif.
* << Fim da inclusão
ENDFORM.
...
...
FORM fill_date_f_02b.
* >> Início da inclusão: FORM FILL_DATE_F_02B
e_subrc = 0.
* << Fim da inclusão
...
...
ENDIF.
SELECT SINGLE * FROM t001 WHERE bukrs = /pws/zycie043a-bukrs.
SELECT SINGLE *
FROM /pws/zycit000
WHERE land1 EQ t001-land1.
IF wa_global-belnrf02seg NE space.
MESSAGE s015 WITH text-034.
EXIT.
ENDIF.
MOVE wa_nf TO wa_nf_aux.
* >> Início da exclusão: FORM FILL_DATE_F_02B
CLEAR v_subrc.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_02B
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI017'
'RCB018'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'RCB018' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
* << Fim da inclusão
* >> Início da exclusão: FORM FILL_DATE_F_02B
IF v_subrc IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_02B
ENDIF.
ENDIF.
IF e_subrc EQ 0.
* << Fim da inclusão
PERFORM multiplos_lancamentos_f_02b.
ENDIF.
PERFORM get_parameters_f_02b.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = v_trans.
itab_zycbe033-tabela = v_ntabela.
itab_zycbe033-cpochv = wa_nf-nrseq.
IF /pws/zycie041-docnum IS INITIAL.
SELECT SINGLE * FROM j_1bnfdoc
WHERE docnum EQ /pws/zycie043-docnum.
...
...
FORM fill_date_f_02fre.
* >> Início da inclusão: FORM FILL_DATE_F_02FRE
e_subrc = '0'.
* << Fim da inclusão
...
...
MOVE wa_nf TO wa_nf_aux.
CLEAR v_subrc.
* >> Início da inclusão: FORM FILL_DATE_F_02FRE
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI017'
'RCB018'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'RCB018' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
* << Fim da inclusão
* >> Início da exclusão: FORM FILL_DATE_F_02FRE
IF v_subrc IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_02FRE
ENDIF.
ENDIF.
IF e_subrc EQ 0.
* << Fim da inclusão
PERFORM multiplos_lancamentos_f_02fre.
ENDIF.
IF NOT v_fre IS INITIAL.
CLEAR v_fre.
EXIT.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017TOP
* >> Início da exclusão:
TABLES:
/pws/zycit000,
/pws/zycie045,
/pws/zycbt012,
/pws/zycit005,
/pws/zycit007,
bseg,
ekko,
/pws/zycit050,
/pws/zycie050,
/pws/zycie050a,
/pws/zycbt039,
/pws/zycie003,
/pws/zycit006,
/pws/zycie006,
/pws/zycit223, /pws/zycie223,
/pws/zycit003,
/pws/zycit174,
/pws/zycit100,
/pws/zycit202,
/pws/zygle316,
/pws/zyglt334,
rbkp,
mkpf,
bkpf,
tcurx,
t001w,
j_1bnfdoc,
mara,
marc,
ekpo,
/pws/zycit031,
t001,
/pws/zycie085,
/pws/zycet076,
tqss1,
marv.
* << Fim da exclusão
DATA: gv_subscreen_0050 TYPE sy-dynnr VALUE '0051',
gv_subscreen_0100_1 TYPE sy-dynnr,
gv_subscreen_0300_2 TYPE sy-dynnr.
DATA: BEGIN OF gc_subscreen,
prog TYPE sy-dynnr VALUE '0200',
help TYPE sy-dynnr VALUE '0053',
END OF gc_subscreen.
DATA: gv_html_help TYPE REF TO cl_gui_html_viewer.
DATA: gv_help_show TYPE boolean VALUE ' '.
* >> Início da exclusão:
DATA: BEGIN OF itab_zyglt100 OCCURS 10.
INCLUDE STRUCTURE /pws/zyglt100.
DATA: END OF itab_zyglt100.
DATA: BEGIN OF itab_log OCCURS 0,
ebeln LIKE /pws/zycit003-ebeln,
ebelp LIKE /pws/zycit003-ebelp,
matnr LIKE /pws/zycit003-matnr,
message(100) TYPE c.
DATA: END OF itab_log.
DATA: BEGIN OF it_zycit044 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit044.
DATA: END OF it_zycit044.
DATA: BEGIN OF it_zycit043 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit043.
DATA: END OF it_zycit043.
DATA: BEGIN OF itab_zycit042_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycit042.
DATA: END OF itab_zycit042_aux.
DATA: BEGIN OF itab_zycit042_est OCCURS 0.
INCLUDE STRUCTURE /pws/zycit042.
DATA: END OF itab_zycit042_est.
DATA: BEGIN OF itab_global OCCURS 0.
INCLUDE STRUCTURE /pws/zycit042.
DATA: END OF itab_global.
DATA: BEGIN OF itab_itens_nf_imp OCCURS 0.
INCLUDE STRUCTURE itab_zycit042.
DATA: indice LIKE j_1bnfstx-itmnum.
DATA: END OF itab_itens_nf_imp.
DATA: BEGIN OF itab_modo OCCURS 0.
INCLUDE STRUCTURE spopli.
DATA: END OF itab_modo.
DATA: BEGIN OF itab_custo_item OCCURS 0.
INCLUDE STRUCTURE /pws/zycit003.
DATA: END OF itab_custo_item.
DATA: BEGIN OF itab_zycit036 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit036.
DATA: END OF itab_zycit036.
DATA: BEGIN OF itab_zycit085 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit085.
DATA: END OF itab_zycit085.
DATA: BEGIN OF itab_zycit442 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit442.
DATA: END OF itab_zycit442.
DATA: BEGIN OF itab_zycit036_plan OCCURS 0.
INCLUDE STRUCTURE /pws/zycit036.
DATA: END OF itab_zycit036_plan.
DATA: BEGIN OF itab_zycit036_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycit036.
DATA: END OF itab_zycit036_aux.
DATA: BEGIN OF itab_zycit036_aux2 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit036.
DATA: END OF itab_zycit036_aux2.
DATA: BEGIN OF itab_zycit029_estat OCCURS 0.
INCLUDE STRUCTURE /pws/zycit029.
DATA: END OF itab_zycit029_estat.
DATA: BEGIN OF itab_documents OCCURS 0.
INCLUDE STRUCTURE acc_doc.
DATA: END OF itab_documents.
DATA: BEGIN OF itab_zycit033 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit033.
DATA: END OF itab_zycit033.
DATA: BEGIN OF itab_j1bnfstx OCCURS 0.
INCLUDE STRUCTURE j_1bnfstx.
DATA: END OF itab_j1bnfstx.
DATA: BEGIN OF itab_j_1baj OCCURS 0.
INCLUDE STRUCTURE j_1baj.
DATA: END OF itab_j_1baj.
DATA: BEGIN OF itab_serie OCCURS 0,
ebeln LIKE ekpo-ebeln,
ebelp LIKE ekpo-ebelp,
matnr LIKE marc-matnr,
sernp LIKE marc-sernp.
DATA: END OF itab_serie.
DATA: BEGIN OF itab_ekkn OCCURS 0.
DATA: ebeln LIKE ekkn-ebeln,
ebelp LIKE ekkn-ebelp,
prctr LIKE ekkn-prctr,
kostl LIKE ekkn-kostl,
kokrs LIKE ekkn-kokrs,
fictr LIKE ekkn-fistl,
fipos LIKE ekkn-fipos,
aufnr LIKE ekkn-aufnr,
ps_psp_pnr LIKE ekkn-ps_psp_pnr.
DATA: END OF itab_ekkn.
DATA: BEGIN OF itab_matuse OCCURS 0.
DATA: ebeln LIKE ekpo-ebeln,
ebelp LIKE ekpo-ebelp,
matnr LIKE ekpo-matnr,
bwtar LIKE ekpo-bwtar,
j_1bmatuse LIKE ekpo-j_1bmatuse,
knttp LIKE ekpo-knttp,
werks LIKE t001w-werks,
umrez LIKE ekpo-umrez,
umren LIKE ekpo-umren,
lmein LIKE ekpo-lmein,
bwkey LIKE mbew-bwkey.
DATA: END OF itab_matuse .
DATA: BEGIN OF itab_mara OCCURS 0.
DATA: matnr LIKE mara-matnr,
mhdhb LIKE mara-mhdhb,
mhdrz LIKE mara-mhdrz,
xchpf LIKE mara-xchpf.
DATA: END OF itab_mara.
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.
DATA: END OF itab_di .
DATA: BEGIN OF itab_bsis OCCURS 10 .
INCLUDE STRUCTURE bsis .
DATA:
tpfatura LIKE /pws/zycit006-tpfatura.
DATA: END OF itab_bsis.
DATA: itab_bsis_var LIKE itab_bsis OCCURS 0 WITH HEADER LINE,
itab_zycbe035 LIKE /pws/zycbe035 OCCURS 0 WITH HEADER LINE.
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: BEGIN OF itab_zycit094 OCCURS 10.
INCLUDE STRUCTURE /pws/zycit094.
DATA: END OF itab_zycit094.
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,
bklas LIKE /pws/zycit135-bklas,
END OF itab_matuse_aux1.
DATA: BEGIN OF wa_bsis .
DATA: hkont LIKE bsis-hkont,
dmbtr LIKE bsis-dmbtr,
wrbtr LIKE bsis-wrbtr,
belnr LIKE bsis-belnr.
DATA: END OF wa_bsis.
DATA: BEGIN OF itab_zycit050 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit050.
DATA: marc.
DATA: END OF itab_zycit050.
DATA: BEGIN OF itab_itens_002 OCCURS 0,
mandt LIKE /pws/zycie041-mandt,
bukrs LIKE t001-bukrs,
matnr LIKE mara-matnr,
gjahr LIKE ekpo-arsps,
belnr LIKE ekpo-geber,
feidi LIKE ekpo-labnr,
feidtdi LIKE ekpo-prdat,
porcodi2 LIKE ekpo-kunnr,
land1 LIKE t615t-land1,
qtdini LIKE ekpo-brgew,
qtddisp LIKE ekpo-brgew,
erdat LIKE ekpo-prdat.
DATA: END OF itab_itens_002.
DATA: BEGIN OF itab_nfnum OCCURS 1,
sign(1) TYPE c,
option(2) TYPE c,
low LIKE /pws/zycie043-docnum,
high LIKE /pws/zycie043a-docnum,
END OF itab_nfnum.
DATA: BEGIN OF itab_series OCCURS 1,
sign(1) TYPE c,
option(2) TYPE c,
low LIKE /pws/zycie043-series,
high LIKE /pws/zycie043a-series,
END OF itab_series.
DATA: BEGIN OF itab_subser OCCURS 1,
sign(1) TYPE c,
option(2) TYPE c,
low LIKE /pws/zycie043-subser,
high LIKE /pws/zycie043a-subser,
END OF itab_subser.
DATA: BEGIN OF itab_classe_aval OCCURS 0.
DATA: matnr LIKE mbew-matnr,
bwkey LIKE mbew-bwkey,
bwtar LIKE mbew-bwtar,
bklas LIKE mbew-bklas.
DATA: END OF itab_classe_aval.
DATA: BEGIN OF itab_param_classe OCCURS 0 .
INCLUDE STRUCTURE /pws/zycit135.
DATA: END OF itab_param_classe.
DATA itab_zycit006 LIKE /pws/zycit006 OCCURS 0 WITH HEADER LINE.
TYPES: BEGIN OF msg_struc,
tcode LIKE bdcmsgcoll-tcode,
dyname LIKE bdcmsgcoll-dyname,
dynumb LIKE bdcmsgcoll-dynumb,
msgtyp LIKE bdcmsgcoll-msgtyp,
msgspra LIKE bdcmsgcoll-msgspra,
msgid LIKE bdcmsgcoll-msgid,
msgnr LIKE bdcmsgcoll-msgnr,
msgv1 LIKE balm-msgv1,
msgv2 LIKE balm-msgv2,
msgv3 LIKE balm-msgv3,
msgv4 LIKE balm-msgv4,
env LIKE bdcmsgcoll-env,
fldname LIKE bdcmsgcoll-fldname,
END OF msg_struc.
DATA: BEGIN OF itab_atrib OCCURS 0.
DATA: buzei LIKE bseg-buzei,
bschl LIKE bseg-bschl.
DATA: END OF itab_atrib.
DATA: it_bdc LIKE bdcdata OCCURS 0 WITH HEADER LINE,
it_msg TYPE msg_struc OCCURS 10 WITH HEADER LINE.
DATA: it_zycit270 LIKE /pws/zycit270 OCCURS 0 WITH HEADER LINE,
itab_zycit223_aux2 LIKE /pws/zycit223 OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF itab_zycbt035_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycbe035.
DATA knttp LIKE ekpo-knttp.
DATA: END OF itab_zycbt035_aux.
DATA: BEGIN OF itab_zycbt035_aux2 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbe035.
DATA knttp LIKE ekpo-knttp.
DATA: END OF itab_zycbt035_aux2.
DATA: BEGIN OF itab_contas_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycbe035.
DATA: END OF itab_contas_aux.
DATA BEGIN OF itab_zycit005 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit005.
DATA END OF itab_zycit005.
DATA BEGIN OF itab_zycit403 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit403.
DATA END OF itab_zycit403.
DATA BEGIN OF itab_zycit399 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit399.
DATA END OF itab_zycit399.
DATA: BEGIN OF itab_zycit140 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit140.
DATA: END OF itab_zycit140.
DATA: BEGIN OF itab_zycit093 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit093.
DATA: END OF itab_zycit093.
DATA BEGIN OF itab_zycit336 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit336.
DATA END OF itab_zycit336.
DATA: BEGIN OF it_code OCCURS 10,
fcode LIKE rsmpe-func,
END OF it_code.
DATA: BEGIN OF itab_deposito OCCURS 0,
ebeln LIKE ekpo-ebeln,
ebelp LIKE ekpo-ebelp,
matnr LIKE ekpo-matnr,
lgort LIKE ekpo-lgort,
knttp LIKE ekpo-knttp,
END OF itab_deposito.
DATA: BEGIN OF itab_zycit223 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit223.
DATA: mark.
DATA: END OF itab_zycit223.
DATA: BEGIN OF itab_zycit223_del OCCURS 0.
INCLUDE STRUCTURE /pws/zycit223.
DATA: mark.
DATA: END OF itab_zycit223_del.
DATA: BEGIN OF itab_zycit132 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit132.
DATA: END OF itab_zycit132.
DATA: BEGIN OF itab_pf_status OCCURS 10,
fcode LIKE rsmpe-func,
END OF itab_pf_status.
DATA: BEGIN OF itab_t001w OCCURS 0,
werks LIKE ekpo-werks,
bwkey LIKE mbew-bwkey,
END OF itab_t001w.
DATA: BEGIN OF itab_ekpo OCCURS 0,
ebeln LIKE ekpo-ebeln,
ebelp LIKE ekpo-ebelp,
bprme LIKE ekpo-bprme,
twrkz LIKE ekpo-twrkz,
END OF itab_ekpo.
DATA: BEGIN OF itab_ekpo_s OCCURS 0,
ebeln LIKE ekpo-ebeln,
ebelp LIKE ekpo-ebelp,
matnr LIKE ekpo-matnr,
END OF itab_ekpo_s.
DATA itab_ekkn_mult LIKE ekkn OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF itab_marc OCCURS 0 ,
matnr LIKE marc-matnr,
prctr LIKE marc-prctr,
END OF itab_marc.
DATA: BEGIN OF itab_csks OCCURS 0,
kostl LIKE csks-kostl,
kokrs LIKE csks-kokrs,
prctr LIKE csks-prctr,
END OF itab_csks.
DATA: BEGIN OF itab_aufk OCCURS 0,
aufnr LIKE aufk-aufnr,
prctr LIKE aufk-prctr,
END OF itab_aufk.
DATA:
xmkpf LIKE mkpf,
rbkpv LIKE rbkp_v,
v_nfnum LIKE /pws/zycit041-nfnum,
v_forn LIKE /pws/zycit001-lifnr,
v_ref LIKE bkpf-xblnr,
v_emb LIKE /pws/zycie043-embarca,
v_werks LIKE /pws/zycit001-werks,
wa_local LIKE t001w-j_1bbranch,
wa_zycbt007 LIKE /pws/zycbt007,
wa_zycbt011 LIKE /pws/zycbt011,
wa_zycit036 LIKE /pws/zycit036,
wa_zycie042 LIKE /pws/zycie042,
wa_zycie044 LIKE /pws/zycie044,
wa_zycit000 LIKE /pws/zycit000,
wa_zycit085 LIKE /pws/zycit085,
v_loc,
v_erro(1) .
* << Fim da exclusão
CONTROLS:
tc_lista_nf TYPE TABLEVIEW USING SCREEN '0010',
tc_itens_nfg TYPE TABLEVIEW USING SCREEN '0100',
tc_itens_nfr TYPE TABLEVIEW USING SCREEN '0200',
tc_estorno TYPE TABLEVIEW USING SCREEN '0020',
tc_lote TYPE TABLEVIEW USING SCREEN '0110',
tcontrol_log TYPE TABLEVIEW USING SCREEN '0111'.
DATA wa_cols TYPE cxtab_column.
* >> Início da exclusão:
DATA:
v_nrseq_aux LIKE /pws/zycie001-nrseq,
v_campo(25),
v_valor(25),
v_belnr2(10),
v_ano LIKE bkpf-gjahr,
v_linha LIKE sy-index,
v_pos LIKE sy-index,
v_answer,
v_cpochv_fb08 LIKE /pws/zycie043-nrseq,
v_belnr_fb08 LIKE /pws/zycie043-belnr_f_51,
v_bukrs_fb08 LIKE /pws/zycie043-bukrs,
v_bldat_fb08 LIKE /pws/zycie043-dt_f_51,
v_docant_fb08 LIKE /pws/zycie043-belnr_f_51,
v_trans(4) TYPE c,
v_codeven LIKE /pws/zycbt011-codeven,
v_ntabela LIKE /pws/zycbt013-tabela,
v_belnr LIKE bkpf-belnr,
v_mensagem(220) TYPE c,
i_ebeln LIKE ekpo-ebeln,
v_subrc,
v_fre ,
v_bi_ok,
v_codigo LIKE /pws/zycit036-codigo,
v_vlreal LIKE /pws/zycit036-vlreal,
v_index TYPE p,
v_tabix LIKE sy-tabix,
v_sdep,
v_cnpj(18) TYPE c,
v_descrimp LIKE j_1bbranch-name,
v_totline TYPE n,
v_receb TYPE c,
v_taxa LIKE /pws/zycie085-ukursfob,
s_msg1,
v_soma_qtde LIKE /pws/zycie042-qtd_iten,
v_remessa,
v_linhas_110 TYPE i,
v_belnrf02seg LIKE /pws/zycit041-belnrf02seg,
v_belnrf02fre LIKE /pws/zycit041-belnrf02fre,
v_seq TYPE i,
v_rub,
v_merc,
vaux_bstyp LIKE ekko-bstyp,
vaux_belnr LIKE rbkp-belnr,
v_dpnf,
v_embarca LIKE /pws/zycit001-embarca,
v_nrseq LIKE /pws/zycie001-nrseq,
v_canc,
v_lock,
v_serie,
v_region LIKE adrc-region,
vl_variacao LIKE /pws/zycit085-vlfob,
v_rec_ia TYPE i,
v_rec_ia_1 TYPE i,
v_belnr_miro LIKE bkpf-belnr,
v_lifnr LIKE /pws/zycit048-lifnr,
v_validade LIKE mara-mhdhb,
v_sede LIKE lfb1-lnrze,
v_resposta TYPE c,
v_visualiza TYPE c,
v_belnrf05 LIKE itab_zycbt032-belnr,
v_matuse LIKE /pws/zycbe035-matuse,
v_tcode LIKE sy-tcode,
v_certificado,
v_desctm(100) TYPE c,
v_bloq ,
v_emissor LIKE ekpa-lifn2,
v_erro_log,
v_suj_lote LIKE mara-xchpf,
v_validade_aux LIKE mara-mhdhb,
vsubrc TYPE sy-subrc.
* << Fim da exclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017X01
...
/pws/zycit041,
/pws/zycie041,
/pws/zycit044,
/pws/zycie044,
mseg,
/pws/zycit042,
/pws/zycie042,
/pws/zycit048,
/pws/zycit085,
/pws/zycit321,
* >> Início da exclusão:
/pws/zycie442.
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycie442,
/pws/zycit000,
/pws/zycie045,
/pws/zycbt012,
/pws/zycit005,
/pws/zycit007,
bseg,
ekko,
/pws/zycit050,
/pws/zycie050,
/pws/zycie050a,
/pws/zycbt039,
/pws/zycie003,
/pws/zycit006,
/pws/zycie006,
/pws/zycit223,
/pws/zycie223,
/pws/zycit003,
/pws/zycit174,
/pws/zycit100,
/pws/zycit202,
/pws/zygle316,
/pws/zyglt334,
rbkp,
mkpf,
bkpf,
tcurx,
t001w,
j_1bnfdoc,
mara,
marc,
ekpo,
/pws/zycit031,
t001,
/pws/zycie085,
/pws/zycet076,
tqss1,
marv.
* << Fim da inclusão
DATA: BEGIN OF COMMON PART a.
....
...
* >> Início da inclusão:
DATA: BEGIN OF itab_zycit042 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit042.
DATA: mark.
DATA: END OF itab_zycit042.
DATA: BEGIN OF itab_zyglt100 OCCURS 10.
INCLUDE STRUCTURE /pws/zyglt100.
DATA: END OF itab_zyglt100.
DATA: BEGIN OF itab_log OCCURS 0,
ebeln LIKE /pws/zycit003-ebeln,
ebelp LIKE /pws/zycit003-ebelp,
matnr LIKE /pws/zycit003-matnr,
message(100) TYPE c.
DATA: END OF itab_log.
DATA: BEGIN OF it_zycit044 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit044.
DATA: END OF it_zycit044.
DATA: BEGIN OF it_zycit043 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit043.
DATA: END OF it_zycit043.
DATA: BEGIN OF itab_zycit042_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycit042.
DATA: END OF itab_zycit042_aux.
DATA: BEGIN OF itab_zycit042_est OCCURS 0.
INCLUDE STRUCTURE /pws/zycit042.
DATA: END OF itab_zycit042_est.
DATA: BEGIN OF itab_global OCCURS 0.
INCLUDE STRUCTURE /pws/zycit042.
DATA: END OF itab_global.
DATA: BEGIN OF itab_itens_nf_imp OCCURS 0.
INCLUDE STRUCTURE itab_zycit042.
DATA: indice LIKE j_1bnfstx-itmnum.
DATA: END OF itab_itens_nf_imp.
DATA: BEGIN OF itab_modo OCCURS 0.
INCLUDE STRUCTURE spopli.
DATA: END OF itab_modo.
DATA: BEGIN OF itab_custo_item OCCURS 0.
INCLUDE STRUCTURE /pws/zycit003.
DATA: END OF itab_custo_item.
DATA: BEGIN OF itab_zycit036 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit036.
DATA: END OF itab_zycit036.
DATA: BEGIN OF itab_zycit085 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit085.
DATA: END OF itab_zycit085.
DATA: BEGIN OF itab_zycit442 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit442.
DATA: END OF itab_zycit442.
DATA: BEGIN OF itab_zycit036_plan OCCURS 0.
INCLUDE STRUCTURE /pws/zycit036.
DATA: END OF itab_zycit036_plan.
DATA: BEGIN OF itab_zycit036_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycit036.
DATA: END OF itab_zycit036_aux.
DATA: BEGIN OF itab_zycit036_aux2 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit036.
DATA: END OF itab_zycit036_aux2.
DATA: BEGIN OF itab_zycit029_estat OCCURS 0.
INCLUDE STRUCTURE /pws/zycit029.
DATA: END OF itab_zycit029_estat.
DATA: BEGIN OF itab_documents OCCURS 0.
INCLUDE STRUCTURE acc_doc.
DATA: END OF itab_documents.
DATA: BEGIN OF itab_zycit033 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit033.
DATA: END OF itab_zycit033.
DATA: BEGIN OF itab_j1bnfstx OCCURS 0.
INCLUDE STRUCTURE j_1bnfstx.
DATA: END OF itab_j1bnfstx.
DATA: BEGIN OF itab_j_1baj OCCURS 0.
INCLUDE STRUCTURE j_1baj.
DATA: END OF itab_j_1baj.
DATA: BEGIN OF itab_serie OCCURS 0,
ebeln LIKE ekpo-ebeln,
ebelp LIKE ekpo-ebelp,
matnr LIKE marc-matnr,
sernp LIKE marc-sernp.
DATA: END OF itab_serie.
DATA: BEGIN OF itab_ekkn OCCURS 0.
DATA: ebeln LIKE ekkn-ebeln,
ebelp LIKE ekkn-ebelp,
prctr LIKE ekkn-prctr,
kostl LIKE ekkn-kostl,
kokrs LIKE ekkn-kokrs,
fictr LIKE ekkn-fistl,
fipos LIKE ekkn-fipos,
aufnr LIKE ekkn-aufnr,
ps_psp_pnr LIKE ekkn-ps_psp_pnr.
DATA: END OF itab_ekkn.
DATA: BEGIN OF itab_matuse OCCURS 0.
DATA: ebeln LIKE ekpo-ebeln,
ebelp LIKE ekpo-ebelp,
matnr LIKE ekpo-matnr,
bwtar LIKE ekpo-bwtar,
j_1bmatuse LIKE ekpo-j_1bmatuse,
knttp LIKE ekpo-knttp,
werks LIKE t001w-werks,
umrez LIKE ekpo-umrez,
umren LIKE ekpo-umren,
lmein LIKE ekpo-lmein,
bwkey LIKE mbew-bwkey.
DATA: END OF itab_matuse .
DATA: BEGIN OF itab_mara OCCURS 0.
DATA: matnr LIKE mara-matnr,
mhdhb LIKE mara-mhdhb,
mhdrz LIKE mara-mhdrz,
xchpf LIKE mara-xchpf.
DATA: END OF itab_mara.
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.
DATA: END OF itab_di .
DATA: BEGIN OF itab_bsis OCCURS 10 .
INCLUDE STRUCTURE bsis .
DATA:
tpfatura LIKE /pws/zycit006-tpfatura.
DATA: END OF itab_bsis.
DATA: itab_bsis_var LIKE itab_bsis OCCURS 0 WITH HEADER LINE,
itab_zycbe035 LIKE /pws/zycbe035 OCCURS 0 WITH HEADER LINE.
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: BEGIN OF itab_zycit094 OCCURS 10.
INCLUDE STRUCTURE /pws/zycit094.
DATA: END OF itab_zycit094.
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,
bklas LIKE /pws/zycit135-bklas,
END OF itab_matuse_aux1.
DATA: BEGIN OF wa_bsis .
DATA: hkont LIKE bsis-hkont,
dmbtr LIKE bsis-dmbtr,
wrbtr LIKE bsis-wrbtr,
belnr LIKE bsis-belnr.
DATA: END OF wa_bsis.
DATA: BEGIN OF itab_zycit050 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit050.
DATA: marc.
DATA: END OF itab_zycit050.
DATA: BEGIN OF itab_itens_002 OCCURS 0,
mandt LIKE /pws/zycie041-mandt,
bukrs LIKE t001-bukrs,
matnr LIKE mara-matnr,
gjahr LIKE ekpo-arsps,
belnr LIKE ekpo-geber,
feidi LIKE ekpo-labnr,
feidtdi LIKE ekpo-prdat,
porcodi2 LIKE ekpo-kunnr,
land1 LIKE t615t-land1,
qtdini LIKE ekpo-brgew,
qtddisp LIKE ekpo-brgew,
erdat LIKE ekpo-prdat.
DATA: END OF itab_itens_002.
DATA: BEGIN OF itab_nfnum OCCURS 1,
sign(1) TYPE c,
option(2) TYPE c,
low LIKE /pws/zycie043-docnum,
high LIKE /pws/zycie043a-docnum,
END OF itab_nfnum.
DATA: BEGIN OF itab_series OCCURS 1,
sign(1) TYPE c,
option(2) TYPE c,
low LIKE /pws/zycie043-series,
high LIKE /pws/zycie043a-series,
END OF itab_series.
DATA: BEGIN OF itab_subser OCCURS 1,
sign(1) TYPE c,
option(2) TYPE c,
low LIKE /pws/zycie043-subser,
high LIKE /pws/zycie043a-subser,
END OF itab_subser.
DATA: BEGIN OF itab_classe_aval OCCURS 0.
DATA: matnr LIKE mbew-matnr,
bwkey LIKE mbew-bwkey,
bwtar LIKE mbew-bwtar,
bklas LIKE mbew-bklas.
DATA: END OF itab_classe_aval.
DATA: BEGIN OF itab_param_classe OCCURS 0 .
INCLUDE STRUCTURE /pws/zycit135.
DATA: END OF itab_param_classe.
DATA itab_zycit006 LIKE /pws/zycit006 OCCURS 0 WITH HEADER LINE.
TYPES: BEGIN OF msg_struc,
tcode LIKE bdcmsgcoll-tcode,
dyname LIKE bdcmsgcoll-dyname,
dynumb LIKE bdcmsgcoll-dynumb,
msgtyp LIKE bdcmsgcoll-msgtyp,
msgspra LIKE bdcmsgcoll-msgspra,
msgid LIKE bdcmsgcoll-msgid,
msgnr LIKE bdcmsgcoll-msgnr,
msgv1 LIKE balm-msgv1,
msgv2 LIKE balm-msgv2,
msgv3 LIKE balm-msgv3,
msgv4 LIKE balm-msgv4,
env LIKE bdcmsgcoll-env,
fldname LIKE bdcmsgcoll-fldname,
END OF msg_struc.
DATA: BEGIN OF itab_atrib OCCURS 0.
DATA: buzei LIKE bseg-buzei,
bschl LIKE bseg-bschl.
DATA: END OF itab_atrib.
DATA: it_bdc LIKE bdcdata OCCURS 0 WITH HEADER LINE,
it_msg TYPE msg_struc OCCURS 10 WITH HEADER LINE.
DATA: it_zycit270 LIKE /pws/zycit270 OCCURS 0 WITH HEADER LINE,
itab_zycit223_aux2 LIKE /pws/zycit223 OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF itab_zycbt035_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycbe035.
DATA knttp LIKE ekpo-knttp.
DATA: END OF itab_zycbt035_aux.
DATA: BEGIN OF itab_zycbt035_aux2 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbe035.
DATA knttp LIKE ekpo-knttp.
DATA: END OF itab_zycbt035_aux2.
DATA: BEGIN OF itab_contas_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycbe035.
DATA: END OF itab_contas_aux.
DATA BEGIN OF itab_zycit005 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit005.
DATA END OF itab_zycit005.
DATA BEGIN OF itab_zycit403 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit403.
DATA END OF itab_zycit403.
DATA BEGIN OF itab_zycit399 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit399.
DATA END OF itab_zycit399.
DATA: BEGIN OF itab_zycit140 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit140.
DATA: END OF itab_zycit140.
DATA: BEGIN OF itab_zycit093 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit093.
DATA: END OF itab_zycit093.
DATA BEGIN OF itab_zycit336 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit336.
DATA END OF itab_zycit336.
DATA: BEGIN OF it_code OCCURS 10,
fcode LIKE rsmpe-func,
END OF it_code.
DATA: BEGIN OF itab_deposito OCCURS 0,
ebeln LIKE ekpo-ebeln,
ebelp LIKE ekpo-ebelp,
matnr LIKE ekpo-matnr,
lgort LIKE ekpo-lgort,
knttp LIKE ekpo-knttp,
END OF itab_deposito.
DATA: BEGIN OF itab_zycit223 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit223.
DATA: mark.
DATA: END OF itab_zycit223.
DATA: BEGIN OF itab_zycit223_del OCCURS 0.
INCLUDE STRUCTURE /pws/zycit223.
DATA: mark.
DATA: END OF itab_zycit223_del.
DATA: BEGIN OF itab_zycit132 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit132.
DATA: END OF itab_zycit132.
DATA: BEGIN OF itab_pf_status OCCURS 10,
fcode LIKE rsmpe-func,
END OF itab_pf_status.
DATA: BEGIN OF itab_t001w OCCURS 0,
werks LIKE ekpo-werks,
bwkey LIKE mbew-bwkey,
END OF itab_t001w.
DATA: BEGIN OF itab_ekpo OCCURS 0,
ebeln LIKE ekpo-ebeln,
ebelp LIKE ekpo-ebelp,
bprme LIKE ekpo-bprme,
twrkz LIKE ekpo-twrkz,
END OF itab_ekpo.
DATA: BEGIN OF itab_ekpo_s OCCURS 0,
ebeln LIKE ekpo-ebeln,
ebelp LIKE ekpo-ebelp,
matnr LIKE ekpo-matnr,
END OF itab_ekpo_s.
DATA itab_ekkn_mult LIKE ekkn OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF itab_marc OCCURS 0 ,
matnr LIKE marc-matnr,
prctr LIKE marc-prctr,
END OF itab_marc.
DATA: BEGIN OF itab_csks OCCURS 0,
kostl LIKE csks-kostl,
kokrs LIKE csks-kokrs,
prctr LIKE csks-prctr,
END OF itab_csks.
DATA: BEGIN OF itab_aufk OCCURS 0,
aufnr LIKE aufk-aufnr,
prctr LIKE aufk-prctr,
END OF itab_aufk.
DATA:
xmkpf LIKE mkpf,
rbkpv LIKE rbkp_v,
v_nfnum LIKE /pws/zycit041-nfnum,
v_forn LIKE /pws/zycit001-lifnr,
v_ref LIKE bkpf-xblnr,
v_emb LIKE /pws/zycie043-embarca,
v_werks LIKE /pws/zycit001-werks,
wa_local LIKE t001w-j_1bbranch,
wa_zycbt007 LIKE /pws/zycbt007,
wa_zycbt011 LIKE /pws/zycbt011,
wa_zycit036 LIKE /pws/zycit036,
wa_zycie042 LIKE /pws/zycie042,
wa_zycie044 LIKE /pws/zycie044,
wa_zycit000 LIKE /pws/zycit000,
wa_zycit085 LIKE /pws/zycit085,
v_loc,
v_erro(1) .
DATA:
v_nrseq_aux LIKE /pws/zycie001-nrseq,
v_campo(25),
v_valor(25),
v_belnr2(10),
v_ano LIKE bkpf-gjahr,
v_linha LIKE sy-index,
v_pos LIKE sy-index,
v_answer,
v_cpochv_fb08 LIKE /pws/zycie043-nrseq,
v_belnr_fb08 LIKE /pws/zycie043-belnr_f_51,
v_bukrs_fb08 LIKE /pws/zycie043-bukrs,
v_bldat_fb08 LIKE /pws/zycie043-dt_f_51,
v_docant_fb08 LIKE /pws/zycie043-belnr_f_51,
v_trans(4) TYPE c,
v_codeven LIKE /pws/zycbt011-codeven,
v_ntabela LIKE /pws/zycbt013-tabela,
v_belnr LIKE bkpf-belnr,
v_mensagem(220) TYPE c,
i_ebeln LIKE ekpo-ebeln,
v_subrc,
v_fre ,
v_bi_ok,
v_codigo LIKE /pws/zycit036-codigo,
v_vlreal LIKE /pws/zycit036-vlreal,
v_index TYPE p,
v_tabix LIKE sy-tabix,
v_sdep,
v_cnpj(18) TYPE c,
v_descrimp LIKE j_1bbranch-name,
v_totline TYPE n,
v_receb TYPE c,
v_taxa LIKE /pws/zycie085-ukursfob,
s_msg1,
v_soma_qtde LIKE /pws/zycie042-qtd_iten,
v_remessa,
v_linhas_110 TYPE i,
v_belnrf02seg LIKE /pws/zycit041-belnrf02seg,
v_belnrf02fre LIKE /pws/zycit041-belnrf02fre,
v_seq TYPE i,
v_rub,
v_merc,
vaux_bstyp LIKE ekko-bstyp,
vaux_belnr LIKE rbkp-belnr,
v_dpnf,
v_embarca LIKE /pws/zycit001-embarca,
v_nrseq LIKE /pws/zycie001-nrseq,
v_canc,
v_lock,
v_serie,
v_region LIKE adrc-region,
vl_variacao LIKE /pws/zycit085-vlfob,
v_rec_ia TYPE i,
v_rec_ia_1 TYPE i,
v_belnr_miro LIKE bkpf-belnr,
v_lifnr LIKE /pws/zycit048-lifnr,
v_validade LIKE mara-mhdhb,
v_sede LIKE lfb1-lnrze,
v_resposta TYPE c,
v_visualiza TYPE c,
v_belnrf05 LIKE itab_zycbt032-belnr,
v_matuse LIKE /pws/zycbe035-matuse,
v_tcode LIKE sy-tcode,
v_certificado,
v_desctm(100) TYPE c,
v_bloq ,
v_emissor LIKE ekpa-lifn2,
v_erro_log,
v_suj_lote LIKE mara-xchpf,
v_validade_aux LIKE mara-mhdhb,
vsubrc TYPE sy-subrc.
* << Fim da inclusão
DATA: END OF COMMON PART.