Hallo!
Wir haben im Positionstext der Bestellungen einige Daten stehen, die ich gerne in einem Query auswerten bzw. anlisten möchte. Dies funktioniert auch ganz gut mit einem Zusatzfeld und Coding, aber nun habe ich gemerkt, dass nicht alle richtig ausgewertet werden.
Der bisherige Code sieht wie folgt aus:
SPAN {
font-family: "Courier New";
font-size: 10pt;
color: #000000;
background: #FFFFFF;
}
.L1S31 {
font-style: italic;
color: #808080;
}
.L1S32 {
color: #3399FF;
}
.L1S33 {
color: #4DA619;
}
.L1S52 {
color: #0000FF;
}TABLES: thead. "Text-Header
TYPES: BEGIN OF t_txttab.
INCLUDE STRUCTURE tline.
TYPES: END OF t_txttab.
DATA:
txttab TYPE STANDARD TABLE OF t_txttab WITH HEADER LINE,
tdname like stxh-tdname,
z_potx1(40) TYPE c,
z_potx2(40) TYPE c,
z_potx3(40) TYPE c,
z_potx4(40) TYPE c,
z_potx5(40) TYPE c,
anz_lines TYPE i.
CLEAR: txttab,
thead,
z_potx1, z_potx2, z_potx3,
z_potx4, z_potx5,
anz_lines.
REFRESH txttab.
CLEAR tdname.
CONCATENATE ekpo-ebeln ekpo-ebelp INTO tdname.
thead-tdobject = 'EKPO'.
thead-tdid = 'F01'.
thead-tdname = tdname.
thead-tdspras = 'D'.
CALL FUNCTION 'READ_TEXT'
EXPORTING
id = thead-tdid
language = thead-tdspras
name = thead-tdname
object = thead-tdobject
IMPORTING
header = thead
TABLES
lines = txttab
EXCEPTIONS
not_found = 4
OTHERS = 8.
* IF sy-subrc EQ 4.
* IF thead-tdspras = 'D'.
* thead-tdspras = 'E'.
* ELSE.
* thead-tdspras = 'D'.
* ENDIF.
* CALL FUNCTION 'READ_TEXT'
* EXPORTING
* id = thead-tdid
* language = thead-tdspras
* name = thead-tdname
* object = thead-tdobject
* IMPORTING
* header = thead
* TABLES
* lines = txttab
* EXCEPTIONS
* not_found = 4
* OTHERS = 8.
* ENDIF.
clear postext.
IF sy-subrc EQ 0.
* DESCRIBE TABLE txttab LINES anz_lines.
* DO anz_lines TIMES.
READ TABLE txttab INDEX 1.
move txttab to postext.
* WRITE: / sy-vline.
* Write: 4 'Positionstext: '.
* WRITE: 20 txttab-tdline.
* WRITE: 81 sy-vline.
*
ENDIF.
Kann mir jemand helfen?
Gruß
00Bock
