Hi zusammen,
scheinbar hat niemand eine Idee, wie die Inhalte/Beschriftung der 3D Grafik dynamisch angepasst werden können. Aber vielleicht kann mir hierbei jemand weiterhelfen:
Die
Gesamtdurchlaufzeit für alle Produktionsschritte zu einem Auftrag werden in der internen Tabelle
gtab2 abgelegt.
Nun soll hieraus eine
Grafik erstellt werden, die zu den Selektierten Aufträgen/Werken/Monaten die Gesamtdurchlaufzeit (Total Lead Time) in einem
Balkendiagramm anzeigt. Allerdings sollen sich die
einzelnen Produktionsschritte farblich von einander abheben, so dass jeder Balken des Diagrammes sich zusammensetzt aus den Einzeldurchlaufzeiten für jeden Produktionsschritt.
Ich habe es folgendermaßen versucht, bekomme aber immer die Fehlermeldung: "
Table $OPTS, Line 19, Row 9, Value:'SET P3CTYP PL' E018: Undefined value: $DATA".
Die entsprechende Tabelle gtab2 wurde aber als DATA ganz zu Beginn des Programmes definiert....????
Ich hoffe wirklich, dass mir jemand helfen kann. Komme hiermit zur Zeit absolut nicht weiter und es ist ziemlich dringend...
Vielen, vielen Dank schon mal für Eure Mühe!!!!
Code zur Grafik (zunächst ist noch der Part zu sehen, wenn
NICHT die Total Lead Time veranschaulicht werden soll, sondern AUSSCHLIEßLICH die Einzelschritte) :
****** Graphical Display ************
AT USER-COMMAND.
IF t1 = 'X'.
titl = 'Application And Proposal'.
ELSEIF t2 = 'X'.
titl = 'Drawing Analysis'.
ELSEIF t3 ='X'.
titl = 'Production Order Planning'.
ELSEIF t4 ='X'.
titl = 'PP Waiting Queue'.
ELSEIF t5 ='X'.
titl = 'Ship Time Analysis'.
ELSEIF t7 ='X'.
titl = 'PP Production Analysis'.
ENDIF.
SET PF-STATUS '100'.
CASE sy-ucomm.
WHEN 'ZGRA'.
* Graphic for single lead times
IF t6 <> 'X'.
CALL FUNCTION 'GRAPH_MATRIX_3D'
EXPORTING
titl = titl
* dim1 = gtab-werks
* dim1 = gtab-month
* dim1 = 'Lead Times'
dim2 = 'Month'
valt = 'Days' "scale
col1 = text1
* col2 = text2
* col3 = text3
mail_allow = 'X'
TABLES
data = gtab
opts = opts.
ELSE.
** Create Graphic for Total Lead Times**
REFRESH OPTS.
*--- Erstes Bild: Auswaehlen -----------------*
WRITE 'FIFRST = PU' TO OPTS-C. APPEND OPTS.
*--- 2D-Graphiktyp: Perspektivische Balken ---*
WRITE 'P2TYPE = TD' TO OPTS-C. APPEND OPTS.
*--- Art der Faerbung: gleichmaessig ---------*
WRITE 'P3CTYP = PL' TO OPTS-C. APPEND OPTS.
*--- Dimension 1
REFRESH TDIM1.
MOVE itab-mon TO TDIM1.
APPEND TDIM1. "add loop for all selected month???
*--- Dimension 2
REFRESH TDIM2.
MOVE SPACE TO TDIM2.
APPEND TDIM2.
MOVE 'A&P' TO TDIM2.
APPEND TDIM2.
MOVE 'DRAWING' TO TDIM2.
APPEND TDIM2.
MOVE 'P-Planning' TO TDIM2.
APPEND TDIM2.
MOVE 'P-Qeue' TO TDIM2.
APPEND TDIM2.
MOVE 'P-Analysis' TO TDIM2.
APPEND TDIM2.
MOVE 'Ship' TO TDIM2.
APPEND TDIM2.
MOVE SPACE TO TDIM2.
APPEND TDIM2.
*--- Dimension 3
REFRESH TDIM3.
MOVE itab-werks TO TDIM3.
APPEND TDIM3. "add loop for more plants????
CALL FUNCTION 'GRAPH_MATRIX'
EXPORTING
TITL = TEXT-VGL
VALT = 'DAYS'
DIM1 = 'Month'
DIM2 = 'Lead Time'
DIM3 = 'Plant'
TABLES
data = gtab2
TDIM1 = TDIM1
TDIM2 = TDIM2
TDIM3 = TDIM3
OPTS = OPTS.
ENDIF.
ENDCASE.