SAPSCRIPT PERFORM

SAPSCRIPT PERFORM

Hallo zusammne,

damit ich von LIKP die kunnr und von vbpa Adrnr , parvw und von lips MBDAT lesen kann und an das Formular zurueckgeben kann habe ich folgenden Perform gebildet,

/: PERFORM READ_LIKP_LIPS_VBPA IN PROGRAM YYS_READ_LIKP_LIPS_VBPA
/: USING &LTAK-LGNUM&
/: USING &LTAK-VBELN&
/: CHANGING &KUNNR&
/: CHANGING &ADRNR&
/: CHANGING &MBDAT&
/: CHANGING &PARVW&
/: ENDPERFORM



meine Unterprogramm siehst so aus
FORM READ_LIKP_LIPS_VBPA
TABLES tp_in_par STRUCTURE itcsy
tp_out_par STRUCTURE itcsy.
break-point.

DATA:
lv_value TYPE tdsymvalue,
lv_vbeln type VBELN_VL,
lv_vbeln_out type VBELN_VL,
lv_lgnum type LGNUM,
lv_kunnr type KUNWE,
lt_lips type standard table of lips,
lt_likp type standard table of likp.



READ TABLE tp_in_par
WITH KEY name = 'LTAK-VBELN'.

if sy-subrc is initial.
lv_value = tp_in_par-value.
lv_vbeln = lv_value(10).

*---------------------------------------
*SELEC LIPS DATA
*---------------------------------------

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = lv_vbeln
IMPORTING
OUTPUT = lv_vbeln_out.
.


CALL FUNCTION 'DG56_LIPS_READ'
EXPORTING
I_DELIVERY_ID = lv_vbeln_out
TABLES
E_LIPS_TAB = lt_lips
EXCEPTIONS
NO_DATA_FOUND = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.



CALL FUNCTION 'C1CF_LIKP_READ'
EXPORTING
I_DELIVERY_ID = lv_vbeln_out
IMPORTING
E_LIKP = lt_likp
EXCEPTIONS
NO_DATA_FOUND = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

endif.


endform. "READ_LIKP_LIPS_VBPA


leider weisse ich nicht wie ich weiter mache um meine richtige daten zu bekommne

kann mir jemand helfen
Danke

Versuch's folgendermaßen:
Wiederhole diesen Schritt für jedes Feld, das Du zurückübergeben willst.

Übrigens gibt es wesentlich bessere Möglichkeiten, um bei einem Transportauftragsausdruck Lieferscheindaten zu verarbeiten. Lies mal nach im Customizing zum WM!

Gruß
Cosmo