daten aus interner tabelle lòschen

daten aus interner tabelle lòschen

Hallo an alle,

hab da mal ein problem mit einem programm. ich habe eine query gemacht und den quellcode in ein neues programm kopiert um ein wenig die daten zu manipulieren. und zwar mòchte ich nun die validitàt des listenpreises (kondition) ermitteln in dem ich ueber einer select-option das datum definiere. leider bin ich nicht im stande die daten aus der internen tabelle herauszulòschen welche ich nicht brauche.

danke

slim

anbei der quellcode.

tables vbap.
tables a913.
tables vbpa.
tables knvp.
tables konp.
tables rv13a.
tables vbak.
data %count-vbak(4) type x.
data %linr-vbak(2).

tables kna1.
tables konh.
tables vbkd.
data: begin of %joinwa,
vbak like vbak,
vbap like vbap,
a913 like a913,
vbpa like vbpa,
kna1 like kna1,
konh like konh,
knvp like knvp,
konp like konp,
vbkd like vbkd,
end of %joinwa.
tables: rv12l.
select-options datum for rv12l-datint
default sy-datlo to '99991231'
no-extension
modif id ia.
*PARAMETER: VOR LIKE RV12L-VOR DEFAULT 'X' MODIF ID IA,
* NACH LIKE RV12L-NACH DEFAULT 'X' MODIF ID IA.
*PARAMETERS SEN_IDOC(1) TYPE C NO-DISPLAY.
*PARAMETERS GETKNUMH(1) TYPE C NO-DISPLAY.
*PARAMETERS P_DAT like RV130-DATAM default sy-datlo mODIF ID KN
*NO-DISPLAY.
tables aqgdb.

include rsaqexcd.

data: begin of %st_liste occurs 100,
head(1),
tab(3),
line(6) type n,
cont(1) type n,
fint(1),
finv(1),
fcol(1) type n,
text(0083),
end of %st_liste.

data %data_selected(1).
data %glframe(1) value 'X' .
data %uflag(1).
data %ustflag(1).
data %grst_text(255).
data %glline type i.
data %tabix like sy-tabix.
data %prflag(1) type x value '02'.


data text_a913_kschl like t685t-vtext.
data text_a913_matnr like makt-maktx.
data text_a913_pltyp like t189t-ptext.
data text_a913_vkorg like tvkot-vtext.
data text_a913_waerk like tcurt-ltext.
data text_kna1_regio like t005u-bezei.
data text_knvp_kunn2 like kna1-name1.
data text_knvp_kunnr like kna1-name1.
data text_knvp_lifnr like lfa1-name1.
data text_knvp_parvw like tpart-vtext.
data text_vbak_auart like tvakt-bezei.
data text_vbak_augru like tvaut-bezei.
data text_vbak_kunnr like kna1-name1.
data text_vbak_vbtyp like dd07d-ddtext.
data text_vbak_vkorg like tvkot-vtext.
data text_vbap_abgru like tvagt-bezei.
data text_vbap_matnr like makt-maktx.
data text_vbap_posar like dd07d-ddtext.
data text_vbap_pstyv like tvapt-vtext.
data text_vbap_vkaus like tvlvt-bezei.
data text_vbpa_kunnr like kna1-name1.
data text_vbpa_parvw like tpart-vtext.
data %perc(4) type p decimals 3.
data %p100(4) type p decimals 3 value '100.000'.
data %rangct type i.
data %rangcc(8).
data %subrc like sy-subrc.

data: begin of %wa020 occurs 10,
vbap-kwmeng(16) type p decimals 03,
begin of vbap,
vbap-vrkme like vbap-vrkme,
end of vbap,
end of %wa020.

data: begin of %wa030 occurs 10,
vbap-netpr(16) type p decimals 02,
begin of vbap,
vbap-waerk like vbap-waerk,
end of vbap,
end of %wa030.

data: begin of %wa040 occurs 10,
konp-kbetr(16) type p decimals 02,
begin of konp,
rv13a-konwa like rv13a-konwa,
end of konp,
end of %wa040.

data: begin of %w0100 occurs 20,
rv13a-konwa like rv13a-konwa,
konp-kbetr(16) type p decimals 02,
end of %w0100.

data: begin of %w0200 occurs 20,
vbap-vrkme like vbap-vrkme,
vbap-kwmeng(16) type p decimals 03,
end of %w0200.

data: begin of %w0300 occurs 20,
vbap-waerk like vbap-waerk,
vbap-netpr(16) type p decimals 02,
end of %w0300.
select-options sp$00014 for a913-vkorg memory id vko.
select-options sp$00013 for a913-pltyp memory id vpl.
select-options sp$00015 for a913-kschl memory id vks.
select-options sp$00001 for vbak-kunnr memory id vag.
select-options sp$00002 for vbak-vkgrp memory id vkg.
select-options sp$00016 for vbak-auart memory id aat.
select-options sp$00007 for vbak-audat.
select-options sp$00008 for vbak-vbeln memory id aun.
select-options sp$00009 for vbap-pstyv.
select-options sp$00003 for vbap-vkaus.
select-options sp$00010 for vbap-abgru.
select-options sp$00011 for vbap-matnr memory id mat.
select-options sp$00004 for knvp-parvw memory id par.
select-options sp$00012 for knvp-lifnr memory id lif.
select-options sp$00005 for vbpa-parvw memory id par.
select-options sp$00020 for vbak-augru.
select-options sp$00019 for vbak-vkorg memory id vko.
select-options sp$00018 for vbak-vtweg memory id vtw.
select-options sp$00017 for vbak-spart memory id spa.
selection-screen skip 1.
selection-screen: begin of block direct
with frame title text-f59.
selection-screen: begin of line.
parameters: %alv radiobutton group func user-command outbut
modif id new default 'X' .
selection-screen: comment 4(26) text-f72 for field %alv
modif id new.
parameters: %alvl type slis_vari modif id new.
selection-screen: pushbutton 72(18) pb%exco user-command expcol
modif id new.
selection-screen: end of line.
selection-screen: begin of line.
parameters: %nofunc radiobutton group func modif id old.
selection-screen: comment 4(26) text-f66 for field %nofunc
modif id old.
parameters: %tview radiobutton group func modif id old.
selection-screen: comment 34(26) text-f68 for field %tview
modif id old,
end of line.
selection-screen: begin of line.
parameters: %graph radiobutton group func modif id old.
selection-screen: comment 4(26) text-f61 for field %graph
modif id old.
parameters: %text radiobutton group func modif id old.
selection-screen: comment 34(26) text-f69 for field %text
modif id old,
end of line.
selection-screen: begin of line.
parameters: %abc radiobutton group func modif id old.
selection-screen: comment 4(26) text-f70 for field %abc
modif id old.
parameters: %excel radiobutton group func modif id old.
selection-screen: comment 34(26) text-f60 for field %excel
modif id old,
end of line.
selection-screen: begin of line.
parameters: %eis radiobutton group func modif id old.
selection-screen: comment 4(26) text-f63 for field %eis
modif id old.
selection-screen: end of line.
selection-screen: begin of line.
parameters: %xint radiobutton group func modif id xin.
selection-screen: comment 4(26) text-f73 for field %xint
modif id xin.
parameters: %xintk(30) lower case modif id xin.
selection-screen: end of line.
selection-screen: begin of line.
parameters: %down radiobutton group func modif id old.
selection-screen: comment 4(26) text-f64 for field %down
modif id old.
parameters: %path(132) lower case modif id old.
selection-screen: end of line.
selection-screen: begin of line.
parameters: %save radiobutton group func modif id lis.
selection-screen: comment 4(26) text-f62 for field %save
modif id lis.
parameters: %listid(40) lower case modif id lis.
selection-screen: end of line.
selection-screen: end of block direct.
selection-screen: end of block prog.

data: begin of %g00 occurs 100,
vbak-vbeln like vbak-vbeln,
vbak-augru like vbak-augru,
vbak-auart like vbak-auart,
vbap-pstyv like vbap-pstyv,
vbap-abgru like vbap-abgru,
vbap-matnr like vbap-matnr,
text_vbap_matnr like text_vbap_matnr,
vbap-kwmeng like vbap-kwmeng,
vbap-vrkme-0202 like vbap-vrkme,
vbap-netpr like vbap-netpr,
vbap-waerk-0301 like vbap-waerk,
vbpa-parvw like vbpa-parvw,
vbpa-kunnr like vbpa-kunnr,
knvp-parvw like knvp-parvw,
knvp-lifnr like knvp-lifnr,
konp-kbetr like konp-kbetr,
rv13a-konwa-0401 like rv13a-konwa,
a913-waerk like a913-waerk,
a913-pltyp like a913-pltyp,
a913-datab like a913-datab,
a913-datbi like a913-datbi,
%alvcount type i,
end of %g00.
data: begin of %%g00 occurs 100,
vbak-vbeln(010),
vbak-augru(003),
vbak-auart(004),
vbap-pstyv(004),
vbap-abgru(007),
vbap-matnr(018),
text_vbap_matnr(040),
vbap-kwmeng(019),
vbap-vrkme-0202 like vbap-vrkme,
vbap-netpr(016),
vbap-waerk-0301 like vbap-waerk,
vbpa-parvw(010),
vbpa-kunnr(010),
knvp-parvw(010),
knvp-lifnr(010),
konp-kbetr(016),
rv13a-konwa-0401 like rv13a-konwa,
a913-waerk(005),
a913-pltyp(009),
a913-datab(010),
a913-datbi(010),
end of %%g00.
data %znr type i.
data %lznr type i value 99999.
field-groups header.
field-groups %fg01.
data %any-01.
field-groups %fg02.
data %any-02.
data %ext-vbap02.
field-groups %fg03.
data %any-03.
data %ext-vbap03.
field-groups %fg04.
data %any-04.
data %ext-konp04.
field-groups %fgwrkonp04.
field-groups %fgwrvbap02.
field-groups %fgwrvbap03.

controls tview100 type tableview using screen 100.

at selection-screen.
perform alvl_check(rsaqexce) using %alvl 'G00'.
perform testmode(rsaqexce).
perform check_expcol(rsaqexce) using %alv.


at selection-screen on value-request for %alvl.
perform alvl_value_request(rsaqexce) using %alvl 'G00'.

at selection-screen on value-request for %xintk.
perform xint_value_request(rsaqexce).

at selection-screen output.

perform save_initial_sscr(rsaqexce).
perform rinit(rsaqbrst).
perform set_expcol(rsaqexce) using %alv pb%exco.
perform alvl_set_invisible(rsaqexce).
perform set_xint_params(rsaqexce).

initialization.
perform init_xint(rsaqexce).
perform set_www_flags(rsaqexce).
perform init_print_params(rsaqexce).

start-of-selection.
insert rv13a-konwa into %fgwrkonp04.
insert konp-kbetr into %fgwrkonp04.
insert vbap-vrkme into %fgwrvbap02.
insert vbap-kwmeng into %fgwrvbap02.
insert vbap-waerk into %fgwrvbap03.
insert vbap-netpr into %fgwrvbap03.
insert %count-vbak into header.
insert %linr-vbak into header.
insert vbak-vbeln into %fg01.
insert vbak-augru into %fg01.
insert vbak-auart into %fg01.
insert vbap-pstyv into %fg01.
insert vbap-abgru into %fg01.
insert vbap-matnr into %fg01.
insert text_vbap_matnr into %fg02.
insert vbap-kwmeng into %fg02.
insert vbap-vrkme into %fg02.
insert vbap-netpr into %fg03.
insert vbap-waerk into %fg03.
insert vbpa-parvw into %fg03.
insert vbpa-kunnr into %fg03.
insert knvp-parvw into %fg03.
insert knvp-lifnr into %fg03.
insert konp-kbetr into %fg04.
insert rv13a-konwa into %fg04.
insert a913-waerk into %fg04.
insert a913-pltyp into %fg04.
insert a913-datab into %fg04.
insert a913-datbi into %fg04.

if datum-high is initial.
delete %fg04 where a913-datab > datum-low
or a913-datbi < datum-low.
else.
delete %fg04 where not a913-datab in datum
or not a913-datbi in datum.
endif.