Help with Program creation that deletes deliveries by using VL02

Question

Hi,
Can anyone guide me on creating a program based on the following requirement:
Select-Options: Sales Org, Distribution Channel, Customer
Read data from KNVV where Sales Org = <input from selection screen>
Based on the data read, find the said documents with delivery type LO in table LIKP.
For each document found, delete the documents by processing VL02 (background)
How can I create this? <b>Are any BAPI's available to do this?</b>
Here is the code that i have so far:
TABLES: KNVV.
DATA: I_KNVV LIKE KNVV OCCURS 0 WITH HEADER LINE,
      I_LIKP LIKE LIKP OCCURS 0 WITH HEADER LINE.
SELECT-OPTIONS: S_VKORG FOR KNVV-VKORG,
                S_VTWEG FOR KNVV-VTWEG,
                S_KUNNR FOR KNVV-KUNNR.
SELECT * INTO TABLE I_KNVV FROM KNVV
WHERE VKORG IN S_VKORG AND
      VTWEG IN S_VTWEG AND
      KUNNR IN S_KUNNR.
SELECT * INTO TABLE I_LIKP FROM LIKP
FOR ALL ENTRIES IN I_KNVV
WHERE VKORG = I_KNVV-VKORG
AND LFART = 'LO'.
All Detailed answers will be rewarded and greatly appreciated.
Thanks,
John

Answer 1

I wrote simple program and test it ur system..
I have tested in 4.6C Version.
REPORT ZVBPA_MOD.
TABLES: KNVV.
data : bdcdata like bdcdata occurs 0 with header line.
DATA: I_KNVV LIKE KNVV OCCURS 0 WITH HEADER LINE,
I_LIKP LIKE LIKP OCCURS 0 WITH HEADER LINE.
SELECT-OPTIONS: S_VKORG FOR KNVV-VKORG,
S_VTWEG FOR KNVV-VTWEG,
S_KUNNR FOR KNVV-KUNNR.
start-of-selection.
SELECT * INTO TABLE I_KNVV FROM KNVV
WHERE VKORG IN S_VKORG AND
VTWEG IN S_VTWEG AND
KUNNR IN S_KUNNR.
SELECT * INTO TABLE I_LIKP FROM LIKP
FOR ALL ENTRIES IN I_KNVV
WHERE VKORG = I_KNVV-VKORG
AND KUNNR = I_KNVV-KUNNR
AND LFART = 'LO'.
loop at I_LIKP.
perform bdc_dynpro      using 'SAPMV50A' '0101'.
perform bdc_field       using 'BDC_CURSOR'
                              'LIKP-VBELN'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'LIKP-VBELN'
                              I_LIKP-vbeln.
perform bdc_dynpro      using 'SAPMV50A' '0200'.
perform bdc_field       using 'BDC_OKCODE'
                              '/ELOES'.
perform bdc_field       using 'BDC_CURSOR'
                              'LIKP-VBELN'.
call transaction 'VL02' using bdcdata
                           mode 'N'
                           update 'S'.
ENDLOOP.
       Start new screen                                              *
FORM BDC_DYNPRO USING PROGRAM DYNPRO.
  CLEAR BDCDATA.
  BDCDATA-PROGRAM  = PROGRAM.
  BDCDATA-DYNPRO   = DYNPRO.
  BDCDATA-DYNBEGIN = 'X'.
  APPEND BDCDATA.
ENDFORM.
       Insert field                                                  *
FORM BDC_FIELD USING FNAM FVAL.
    CLEAR BDCDATA.
    BDCDATA-FNAM = FNAM.
    BDCDATA-FVAL = FVAL.
    APPEND BDCDATA.
ENDFORM.