Code: Alles auswählen.
*&---------------------------------------------------------------------*
*& Form CO24-LADEN
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM CO24-LADEN .
refresh it_bcd.
PERFORM bdc_dynpro USING 'PPCMP000' '1000'.
PERFORM bdc_field USING 'S_AUFNR-LOW' s_aufnr.
PERFORM bdc_field USING 'BDC_OKCODE' '= ONLI'.
CALL TRANSACTION 'CO24' USING it_bcd MODE 'E'.
endform.
* & -------------------------------------------- --------------------- *
* & Formular BDC_DYNPRO
* & ---------------------- ------------------------------------------- *
* Text
* --------------------------------------------- --------------------- *
* -> PROGRAM-Text
* -> DYNPRO-Text
* --------------------------------------------- --------------------- *
FORM bdc_dynpro USING Program dynpro.
CLEAR: it_bcd.
it_bcd-program = program.
it_bcd-dynpro = dynpro.
it_bcd-dynbegin = 'X'.
APPEND it_bcd.
ENDFORM. "BDC_DYNPRO
* & ---------------------------------------------- ----------------------- *
* & Form BDC_FIELD
* & -------------------- --------------------------------------------- *
* text
* ----------------------------------------------- ----------------------- *
* -> FNAM-Text
* -> FVAL-Text
* ------------- - -------------------------------------------- - ----- *
FORM bdc_field USING fnam fval.
CLEAR it_bcd.
it_bcd-fnam = fnam.
it_bcd-fval = fval.
APPEND it_bcd.
ENDFORM. "BDC_FIELD