Code: Alles auswählen.
FUNCTION Y_S_HER_ZSB6_BI.
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*" IMPORTING
*" VALUE(CTU) LIKE APQI-PUTACTIVE DEFAULT 'X'
*" VALUE(MODE) LIKE APQI-PUTACTIVE DEFAULT 'N'
*" VALUE(UPDATE) LIKE APQI-PUTACTIVE DEFAULT 'L'
*" VALUE(GROUP) LIKE APQI-GROUPID OPTIONAL
*" VALUE(USER) LIKE APQI-USERID OPTIONAL
*" VALUE(KEEP) LIKE APQI-QERASE OPTIONAL
*" VALUE(HOLDDATE) LIKE APQI-STARTDATE OPTIONAL
*" VALUE(NODATA) LIKE APQI-PUTACTIVE DEFAULT '/'
*" VALUE(BELEGEINH) TYPE STRING
*" VALUE(DRUCKDAT) TYPE STRING
*" EXPORTING
*" VALUE(SUBRC) LIKE SYST-SUBRC
*" TABLES
*" MESSTAB STRUCTURE BDCMSGCOLL OPTIONAL
*"----------------------------------------------------------------------
subrc = 0.
perform bdc_nodata using NODATA.
perform open_group using GROUP USER KEEP HOLDDATE CTU.
perform bdc_dynpro using 'SAPMZBUB1' '0100'.
perform bdc_field using 'BDC_OKCODE'
'=ENTER'.
perform bdc_field using 'SCR_UR_BELEINH'
BELEGEINH.
perform bdc_dynpro using 'SAPMZBUB1' '0100'.
perform bdc_field using 'BDC_OKCODE'
'/ESAVE'.
perform bdc_field using 'ZBUCHPLAN-DRUCKREIFDAT'
DRUCKDAT.
perform bdc_transaction tables messtab
using 'ZSB6'
CTU
MODE
UPDATE.
if sy-subrc <> 0.
subrc = sy-subrc.
exit.
endif.
perform close_group using CTU.
ENDFUNCTION.
INCLUDE BDCRECXY .Folgende Benutzer bedankten sich beim Autor black_adept für den Beitrag:
pinguinmann
1. Aufruf mit CTU = space => direkts Ausführen mittels CALL TRANSACTIONpinguinmann hat geschrieben:Doch wie genau sieht denn jetzt diese Standardmethode aus.
Genau umgekehrt: X (Default) = CT, space = BIJHM hat geschrieben:1. Aufruf mit CTU = space => direkts Ausführen mittels CALL TRANSACTION
2. Aufruf mit CTU = X, wenn erster Aufruf mittels Fehler beendet => erzeugen BI-Mappe (weitere Parameter für die Mappenerstellung wie GROUP; USER; KEEP, HOLDDATE mit übergeben)
Folgende Benutzer bedankten sich beim Autor black_adept für den Beitrag:
pinguinmann