steuerkommandos in S0 10 Texten

[Cheyenne3299]

Hallo,

ich da mal eine Frage , ich suche eine Möglichkeit eine IF Abfrage in S010 Texten auszuwerten.
Aber in Smartforms.
Nach etlichen Googlen haben ich rausgefunden das dies nicht mehr Smartforms funktionieren soll,
gibt es vielleicht doch eine Möglichkeit.


Viele Grüße uwe

[Tron]

Moin Uwe,
In dem Beitrag viewtopic.php?f=31&t=5005
hatte ich schon mal das Auflösen von Textincludes behandelt. Es gibt aber nach wie vor
die Funktionsbausteine des Sapscript. Man muß diese eben explizit im Smartform coding aufrufen.
Hier ein Beispiel für das Evaluieren von IF Bedingungen aus der SAPSCRIPT-Welt.
Lege einen Text mit SO10 an. Der Inhalt ist in den Kommentarzeilen.
Setze den Wert der Variablen TEST auf 'X' , bzw. auf SPACE und schau Dir das Ergebnis der internen Tabelle tlin an.

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1. *&---------------------------------------------------------------------*
2. *& Report  ZTEST_SAPSCRIPT_IF
3. *&
4. *&---------------------------------------------------------------------*
5. *&
6. *&
7. *&---------------------------------------------------------------------*
8.  
9. REPORT  ztest_sapscript_if.
10.  
11. * Textname ZTEST_IF_COMMAND
12. * ID = ST
13. * Object = TEXT
14.  
15.  
16. * TEST TEXT
17.  
18. *  /:       IF &TEST& EQ 'X'
19. *  *         JA
20. *  /:       ELSE
21. *  *         NEIN
22. *  /:       ENDIF
23.  
24.  
25.  
26. DATA:
27. tid   TYPE thead-tdid VALUE 'ST',
28. lang  TYPE thead-tdspras VALUE 'D',
29. tname TYPE thead-tdname VALUE 'ZTEST_IF_COMMAND',
30. tobj  TYPE thead-tdobject VALUE 'TEXT',
31. thead type THEAD,
32. tlin TYPE TABLE OF tline.
33.  
34. data test(1) value ' '.
35.  
36.  
37. CALL FUNCTION 'READ_TEXT'
38.   EXPORTING
39. *   CLIENT                        = SY-MANDT
40.     id                            = tid
41.     language                      = lang
42.     name                          = tname
43.     object                        = tobj
44. *   ARCHIVE_HANDLE                = 0
45. *   LOCAL_CAT                     = ' '
46.  IMPORTING
47.    HEADER                        = thead
48.   TABLES
49.     lines                         = tlin
50.  EXCEPTIONS
51.    id                            = 1
52.    language                      = 2
53.    name                          = 3
54.    not_found                     = 4
55.    object                        = 5
56.    reference_check               = 6
57.    wrong_access_to_archive       = 7
58.    OTHERS                        = 8.
59.  
60. IF sy-subrc <> 0.
61. ENDIF.
62.  
63.  
64. CALL FUNCTION 'TEXT_CONTROL_REPLACE'
65.   EXPORTING
66.     header                = thead
67. *   PROGRAM               = ' '
68. *   REPLACE_COMMENT       = 'X'
69. * IMPORTING
70. *   CHANGED               =
71. *   NEWHEADER             =
72.   tables
73.     lines                 = tlin.
74.  
75.  
76. IF sy-subrc <> 0.
77. ENDIF.
78.  

GeSHi ©

gruß Jens

[Cheyenne3299]

Hallo Jens,

ich habe natürlich deinen Vorschlag gleich ausprobiert, nun aber folgendes problem ich möchte einen
feld inhalt auswerten.

Beispiel:

if &gs_xxxxx- titel& eq 'A9'.
tue dies
else.
tue das.
endif.

momentan werte er mir die Variable aber nicht aus da sie im Fuba nich bekannt ist , wie kann ich das lösen ?

[Tron]

Moin,
Eine Vorraussetzung in Sapscript ist, daß Variablen Programmglobal definiert sein müssen.
Also unter "Globale Definitionen"
und :

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1. CALL FUNCTION 'TEXT_CONTROL_REPLACE'
2.   EXPORTING
3.     header                = thead
4.     PROGRAM               = SY-REPID
5. *   REPLACE_COMMENT       = 'X'
6. * IMPORTING
7. *   CHANGED               =
8. *   NEWHEADER             =
9.   tables
10.     lines                 = tlin.
11.  
12.  

GeSHi ©

Hab's mal Smartformbezogen umgesetzt.

gruß Jens

[Cheyenne3299]

Hallo Jens,
die Variablen die ich auswerte sind global defeniert, da ich sie ja für die Auswertung im Formular ebenfalls benutzte , beim Debug bin drauf gestossen das die Variablen in den Fuba leer sind, danach aber wieder gefüllt waren. Ich übergebe jetzt mal diesen zusätzlichen Parameter und werd schaun was raus kommt.Denke bitte daran das ich dies nicht in Sap Script sondern in smartforms nutzten will.

gruß uwe

[Cheyenne3299]

Besten Dank Jens wie es aussieht funktioniert es nun geschachtelte if ausprobieren und dann wäre es perfekt.

vielen Dank

Uwe