Skip to Content
0
Former Member
Jul 06, 2009 at 03:02 PM

WBS-element extractor enhancement

314 Views

Hi,

I am working on an enhancement for 0WBS_ELEMT_ATTR. There are a few fields added to table PRPS wich should be included in the extraction. I added some code (see below) to ZXRSAU02 and activated it and I've enhanced the structure with an append. However somehow it is not working, and I suspect I didn't get the code exactly right, so my question is does somebody have an idea what's wrong?:

CODE:

&----


*& Include ZXRSAU02 *

&----


TABLES: prps, biw_prps.

DATA:

ls_inst_hist TYPE biw_isu_instln_hist_mkt,

ls_biw_prps like biw_prps,

i_counter.

CASE i_datasource.

  • Uitbreiding WBS elementen met custom-velden

WHEN '0WBS_ELEMT_ATTR'.

LOOP AT i_t_data INTO ls_biw_prps.

SELECT SINGLE * FROM prps

WHERE poski = ls_biw_prps-posid.

IF sy-subrc EQ 0.

ls_biw_prps-zzbuikgevoel = prps-zzbuikgevoel.

ls_biw_prps-zzcommunicatie = prps-zzcommunicatie.

ls_biw_prps-zzgeld = prps-zzgeld.

ls_biw_prps-zzinformatie = prps-zzinformatie.

ls_biw_prps-zzkwaliteit = prps-zzkwaliteit.

ls_biw_prps-zzorganisatie = prps-zzorganisatie.

ls_biw_prps-zzrisico = prps-zzrisico.

ls_biw_prps-zztijd = prps-zztijd.

ls_biw_prps-zztbuikgevoel = prps-zztbuikgevoel.

ls_biw_prps-zztcommunicatie = prps-zztcommunicatie.

ls_biw_prps-zztgeld = prps-zztgeld.

ls_biw_prps-zztinformatie = prps-zztinformatie.

ls_biw_prps-zztkwaliteit = prps-zztkwaliteit.

ls_biw_prps-zztorganisatie = prps-zztorganisatie.

ls_biw_prps-zztrisico = prps-zztrisico.

ls_biw_prps-zzttijd = prps-zzttijd.

MODIFY i_t_data FROM ls_biw_prps.

ENDIF.

ENDLOOP.

O.K.: it was the select statement wich was false, and I was a bit premature asking this question. It should have compared POSID with POSID instead of POSKI.

Edited by: Jesse Brock on Jul 6, 2009 5:09 PM