HU aus Fertigung 2 (COP2)

[Baran1684]

Hallo zusammen,

wir gehen nun einen anderen Weg als aus dem automatischen WE aus dem FAUF die HU zu bilden. Wir benutzen nun die COP2 (FAUF ohne auto WE).

Das Programm macht auch schon mehr als die Hälfte. Es ruft die COP2 auf, bildet die HU, nur der Button in der COP2 (der nach dem sichern unten ind der COP2 sichtbar wird) "Rückmelden und WE Buchen" bekomme ich nicht zum greifen.

Mein Beispielcode:

Für einen Tipp wäre ich sehr dankbar.

grüsse


Gerhard


report ZZHU_COP2ANLEGEN
no standard page heading line-size 255.

include ZBDCRECX1.

*======== Block: Eingabe......... ..================================*
SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.
PARAMETERS : P_NAME LIKE PLAPPLDATA-AUFNR. " FAUF
PARAMETERS : P_Meng(10) TYPE C. " Menge
PARAMETERS : P_LGORT TYPE MARD-LGORT. " Lagerort
PARAMETERS : P_MODE TYPE C. " Hell oder Dunkel
SELECTION-SCREEN END OF SCREEN 100.

SELECTION-SCREEN BEGIN OF TABBED BLOCK TBREITER1 FOR 5 LINES.
SELECTION-SCREEN TAB (25) TB1 USER-COMMAND '' DEFAULT SCREEN 100.
SELECTION-SCREEN END OF BLOCK TBREITER1.



INITIALIZATION.

*** Tabreiterbeschriftung des Selektionscreens
TB1 = '@58@Eingaben für COP2 :'.
P_MODE = 'A'.
P_LGORT = '0200'.



start-of-selection.

SELECT SINGLE RUECK FROM AFRU INTO ZRUECKNR
WHERE AUFNR = P_NAME.

ZRUE = ZRUECKNR.

SHIFT ZRUE LEFT DELETING LEADING '0'.
SHIFT P_Meng LEFT DELETING LEADING '0'.
SHIFT P_Meng LEFT DELETING LEADING ' '.

* perform open_group.

perform bdc_dynpro using 'SAPLVHUDIAL2' '0030'.
perform bdc_field using 'BDC_CURSOR'
'PLAPPLDATA-CONF_NO'.
perform bdc_field using 'BDC_OKCODE'
'=ENTER'.
perform bdc_field using 'PLAPPLDATA-AUFNR'
P_NAME.
perform bdc_field using 'PLAPPLDATA-CONF_NO'
ZRUE.
perform bdc_dynpro using 'SAPLVHUDIAL2' '0030'.
perform bdc_field using 'BDC_OKCODE'
'=SAVE'.
perform bdc_field using 'PLAPPLDATA-AUFNR'
P_NAME.
perform bdc_field using 'PLAPPLDATA-CONF_NO'
ZRUE.
perform bdc_field using 'PLAPPLDATA-LGORT'
P_LGORT.
perform bdc_field using 'PLAPPLDATA-MAXQUA'
P_Meng.

perform bdc_field using 'BDC_CURSOR'
'TCDATA-QTY_A(01)'.
perform bdc_dynpro using 'SAPLVHUDIAL2' '0030'.
perform bdc_field using 'BDC_CURSOR'
'PLAPPLDATA-AUFNR'.
perform bdc_field using 'BDC_OKCODE'
'=SAVE'.
perform bdc_field using 'PLAPPLDATA-AUFNR'
P_NAME.
perform bdc_field using 'PLAPPLDATA-CONF_NO'
ZRUE.
perform bdc_field using 'PLAPPLDATA-LGORT'
P_LGORT.
perform bdc_dynpro using 'SAPLVHUDIAL2' '0030'.

perform bdc_field using 'BDC_CURSOR'
'PLAPPLDATA-AUFNR'.
perform bdc_field using 'BDC_OKCODE'
'=CFGRPRODD'.
perform bdc_field using 'PLAPPLDATA-AUFNR'
P_NAME.
perform bdc_field using 'PLAPPLDATA-CONF_NO'
ZRUE.
perform bdc_field using 'PLAPPLDATA-LGORT'
P_LGORT.


call transaction 'COP2' using bdcdata mode P_MODE. " A = Anzeige, E = Fehler
" P = Dunkel, N = Breakpoint

* perform close_group.

[Baran1684]

Das Problem ist gelöst.

War der Aufruf. Das Programm muss weitermachen nach einen Commit. Neuer Aufruf ist:

opt-RACOMMIT = 'X'.
opt-DISMODE = 'P'.

call transaction 'COP2' using bdcdata OPTIONS FROM opt.