FUBA READ_TEXT
Die Frage ist als "gelöst" markiert. Den entsprechend Beitrag findest du hier.Hallo zusammen
Ich möchte gerne die Einkaufsinfosatztexte mithilfe des Funktionsbausteins READ_TEXT auslesen.
Leider sehe ich wieder einmal nicht durch. Kann mir jemand sagen weswegen das Programm nicht funktioniert?
Bei jedem eingegebenen Infosatz kommt die Fehlermeldung: Sprache bei AT DE nicht gepflegt, obwohl die Sprache gepflegt ist.
Vielen Dank für Eure Hilfe
Ich möchte gerne die Einkaufsinfosatztexte mithilfe des Funktionsbausteins READ_TEXT auslesen.
Leider sehe ich wieder einmal nicht durch. Kann mir jemand sagen weswegen das Programm nicht funktioniert?
Bei jedem eingegebenen Infosatz kommt die Fehlermeldung: Sprache bei AT DE nicht gepflegt, obwohl die Sprache gepflegt ist.
Vielen Dank für Eure Hilfe
Code: Alles auswählen.
Report ZR_TEST.
TABLES: EINA.
SELECT-OPTIONS: S_INFNR FOR EINA-INFNR.
DATA: BEGIN OF HTEXT.
INCLUDE STRUCTURE THEAD.
DATA: END OF HTEXT.
DATA: BEGIN OF LTEXT OCCURS 50.
INCLUDE STRUCTURE TLINE.
DATA: END OF LTEXT.
DATA: BEGIN OF DTEXT OCCURS 50.
DATA: INFNR LIKE EINA-INFNR.
INCLUDE STRUCTURE TLINE.
DATA: END OF DTEXT.
DATA: TNAME LIKE THEAD-TDNAME.
SELECT * FROM EINA. "WHERE WERKS IN S_WERKS.
CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
ID = 'AT'
LANGUAGE = 'D'
NAME = TNAME
OBJECT = 'EINA'
* ARCHIVE_HANDLE = 0
* LOCAL_CAT = ' '
* IMPORTING
* HEADER = HTEXT
* OLD_LINE_COUNTER =
TABLES
LINES = LTEXT
* EXCEPTIONS
* ID = 1
* LANGUAGE = 2
* NAME = 3
* NOT_FOUND = 4
* OBJECT = 5
* REFERENCE_CHECK = 6
* WRONG_ACCESS_TO_ARCHIVE = 7
* OTHERS = 8.
.
LOOP AT LTEXT.
IF LTEXT-TDLINE NE ''.
MOVE LTEXT-TDLINE TO DTEXT-TDLINE.
MOVE EINA-INFNR TO DTEXT-INFNR.
APPEND DTEXT.
ENDIF.
ENDLOOP.
ENDSELECT.
LOOP AT DTEXT.
WRITE:/ DTEXT-INFNR, DTEXT-TDLINE.
ENDLOOP.
gesponsert ⓘ
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten
kostenfrei für Ausbildungsberufe und Werksstudenten
Beitrag
von ralf.wenzel (Top Expert / 3921 / 200 /
280
)
»
TNAME ist leer....
Ralf Wenzel • Heuristika SAP-Development
25 Jahre SAP-Entwickler • 20 Jahre Freiberufler
Publikationen • Ungarische Notation • Xing
Beitrag
von a-dead-trousers (Top Expert / 4395 / 223 /
1182
)
»
Du musst den Tabellen-Schlüssel der EINA nach dem SELECT in den TNAME schreiben.
lg ADT
Code: Alles auswählen.
TNAME = EINA-INFNR.
Theory is when you know something, but it doesn't work.
Practice is when something works, but you don't know why.
Programmers combine theory and practice: Nothing works and they don't know why.
ECC: 6.18
Basis: 7.50
Practice is when something works, but you don't know why.
Programmers combine theory and practice: Nothing works and they don't know why.
ECC: 6.18
Basis: 7.50
Ich hab's nun auf jegliche Art probiert, meiner Meinung nach müsste es so aussehen. Sehrwahrschienlich müsste ich ein anderen Code wählen
Danke
Danke
Code: Alles auswählen.
SELECT * FROM EINA
WHERE INFNR IN S_INFNR.
SELECT * FROM THEAD CLIENT SPECIFIED
WHERE TNAME = EINA-INFNR.
ENDSELECT.
CALL FUNCTION 'READ_TEXT'
EXPORTINGDein Code ist unvollständigchristof hat geschrieben:Sehrwahrschienlich müsste ich ein anderen Code wählen
Wenn du in einem Infosatz einen Doppelklick auf den Text machst, kommst du ja in den Texteditor.
Dort übers Menu: Springen -> Kopf, es öffnet sich ein PopUp. Die ersten vier Felder sind der Schlüssel, den du für den Readtext benötigst. Gleich hier mal ab, ob du die gleichen Werte im Programm beim FuBa aufruf verwendest. Die Sprache ist z.B. von der Lieferantensprache (LFA1-SPRAS) abhängig, eine hardcodierung eher unschön.
Gruß Hendrik
Nein dieser Code ist in Ordnung.
Mein Problem ist den Textname (TNAME) den ich mit Select-Options ansteuern möchte.
Mein Problem ist den Textname (TNAME) den ich mit Select-Options ansteuern möchte.
Code: Alles auswählen.
Report ZR_TEST.
TABLES: EINA.
SELECT-OPTIONS: S_INFNR FOR EINA-INFNR.
DATA: BEGIN OF HTEXT.
INCLUDE STRUCTURE THEAD.
DATA: END OF HTEXT.
DATA: BEGIN OF LTEXT OCCURS 50.
INCLUDE STRUCTURE TLINE.
DATA: END OF LTEXT.
DATA: BEGIN OF DTEXT OCCURS 50.
DATA: INFNR LIKE EINA-INFNR.
INCLUDE STRUCTURE TLINE.
DATA: END OF DTEXT.
DATA: TNAME LIKE THEAD-TDNAME.
SELECT * FROM EINA
WHERE INFNR IN S_INFNR.
CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
ID = 'AT'
LANGUAGE = 'D'
NAME = TNAME
OBJECT = 'EINA'
* ARCHIVE_HANDLE = 0
* LOCAL_CAT = ' '
* IMPORTING
* HEADER = HTEXT
* OLD_LINE_COUNTER =
TABLES
LINES = LTEXT
* EXCEPTIONS
* ID = 1
* LANGUAGE = 2
* NAME = 3
* NOT_FOUND = 4
* OBJECT = 5
* REFERENCE_CHECK = 6
* WRONG_ACCESS_TO_ARCHIVE = 7
* OTHERS = 8.
.
LOOP AT LTEXT.
IF LTEXT-TDLINE NE ' '.
MOVE LTEXT-TDLINE TO DTEXT-TDLINE.
MOVE EINA-INFNR TO DTEXT-INFNR.
APPEND DTEXT.
ENDIF.
ENDLOOP.
ENDSELECT.
LOOP AT DTEXT.
WRITE:/ DTEXT-INFNR, DTEXT-TDLINE.
ENDLOOP.
Beitrag
von Thanatos82 (Expert / 699 / 32 /
123
)
»
Moin,
also wenn ich mir allein das anschaue:
dann ist das definitiv nicht korrekt. Denn damit befüllst du TNAME nicht mal ansatzweise!! Gehe bitte so vor wie JHM es beschrieben hat und schaue dir die Schlüssel der Texte mal genau an und baue sie dir dann in TNAME zusammen BEVOR du den READ_TEXT Baustein rufst. Ich kann mir gerade nur schwer vorstellen, dass der Schlüssel sich NUR aus der INFNR zusammensetzen soll. 
also wenn ich mir allein das anschaue:
Code: Alles auswählen.
SELECT * FROM EINA
WHERE INFNR IN S_INFNR.
CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
ID = 'AT'
LANGUAGE = 'D'
NAME = TNAME
OBJECT = 'EINA'
* ARCHIVE_HANDLE = 0
* LOCAL_CAT = ' '
* IMPORTING
* HEADER = HTEXT
* OLD_LINE_COUNTER =
TABLES
LINES = LTEXT
* EXCEPTIONS
* ID = 1
* LANGUAGE = 2
* NAME = 3
* NOT_FOUND = 4
* OBJECT = 5
* REFERENCE_CHECK = 6
* WRONG_ACCESS_TO_ARCHIVE = 7
* OTHERS = 8.
.
Gruß,
der Matze
der Matze
Vielen Dank für eure Hilfe
Ich hab meine Fehler gefunden
Ich hätte
noch einsetzen müssen
Nochmals vielen Dank
Ich hab meine Fehler gefunden
Ich hätte
Code: Alles auswählen.
MOVE EINA-INFNR TO TNAME.Nochmals vielen Dank
Code: Alles auswählen.
SELECT * FROM EINA WHERE INFNR IN S_INFNR.
MOVE EINA-INFNR TO TNAME.
CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
ID = 'AT'
LANGUAGE = 'D'
NAME = TNAME
OBJECT = 'EINA'
* ARCHIVE_HANDLE = 0
* LOCAL_CAT = ' '
* IMPORTING
* HEADER = HTEXT
* OLD_LINE_COUNTER =
TABLES
LINES = LTEXT
* EXCEPTIONS
* ID = 1
* LANGUAGE = 2
* NAME = 3
* NOT_FOUND = 4
* OBJECT = 5
* REFERENCE_CHECK = 6
* WRONG_ACCESS_TO_ARCHIVE = 7
* OTHERS = 8.
Beitrag
von ralf.wenzel (Top Expert / 3921 / 200 /
280
)
»
Dennoch hat der Kollege recht, wenn er schreibt, dass man z. B. die Sprache nicht hart codieren sollte.
Ralf Wenzel • Heuristika SAP-Development
25 Jahre SAP-Entwickler • 20 Jahre Freiberufler
Publikationen • Ungarische Notation • Xing
Ja dies sehe ich auch so, ist nicht gerade die feine Lösung. Aber für unsere Auswertung reicht es vollkommen.
Das grössere Problem ist, dass nicht alles auf eine Zeile geschrieben wird. Ich habe mit dem Befehl CONCATENATE alles auf eine Zeile schreiben können, es schneidet mir aber nach einer Bildschirmlänge ab.
Wie kann ich dies am einfachsten Lösen, so dass eine Laie wie ich etwas lerne aber nicht überfordert werde
Das grössere Problem ist, dass nicht alles auf eine Zeile geschrieben wird. Ich habe mit dem Befehl CONCATENATE alles auf eine Zeile schreiben können, es schneidet mir aber nach einer Bildschirmlänge ab.
Wie kann ich dies am einfachsten Lösen, so dass eine Laie wie ich etwas lerne aber nicht überfordert werde
Code: Alles auswählen.
LOOP AT LTEXT.
" CLEAR DTEXT-TDLINE.
IF LTEXT-TDLINE NE ' '.
MOVE LTEXT-TDLINE TO DTEXT-TDLINE.
MOVE EINA-INFNR TO DTEXT-INFNR.
CONCATENATE DTLINE1 DTEXT-TDLINE into DTLINE1.
APPEND DTEXT.
ENDIF.
ENDLOOP.
ENDSELECT.
LOOP AT DTEXT.
WRITE:/ DTEXT-INFNR, DTLINE1. "DTEXT-TDLINE.
ENDLOOP.
Beitrag
von ralf.wenzel (Top Expert / 3921 / 200 /
280
)
»
Den ganzen Text in eine Zeile zu schreiben, ist weder sinnvoll noch sinnvoll machbar (ab einer gewissen Textlänge), weil du dabei einen Haufen Absatzformate verlierst und Zeilenumbrüche, die der Anwender absichtlich reinmacht.
Was genau willst du bezwecken?
Was genau willst du bezwecken?
Ralf Wenzel • Heuristika SAP-Development
25 Jahre SAP-Entwickler • 20 Jahre Freiberufler
Publikationen • Ungarische Notation • Xing
Beitrag
von ralf.wenzel (Top Expert / 3921 / 200 /
280
)
»
Doppelpost, sorry.
Ralf Wenzel • Heuristika SAP-Development
25 Jahre SAP-Entwickler • 20 Jahre Freiberufler
Publikationen • Ungarische Notation • Xing
Beitrag
von ralf.wenzel (Top Expert / 3921 / 200 /
280
)
»
Ach du lieber Himmel. Dann solltest du eine Zieltabelle wählen, für die das Textfeld lang genug ist.christof hat geschrieben:Absätze spielen keine Rolle, die Texte müssen auf inhaltliche Richtigkeit geprüft werden. Dies geschieht am Besten wenn wir ein EXCEL mit allen Texten haben.
Ralf Wenzel • Heuristika SAP-Development
25 Jahre SAP-Entwickler • 20 Jahre Freiberufler
Publikationen • Ungarische Notation • Xing
Vergleichbare Themen
12
Antw.
Antw.
5246
Views
Views
FUBA für File Transfer von int.Tabelle in Text-Datei
von cuncon » 21.02.2018 12:13 • Verfasst in ABAP® für Anfänger
von cuncon » 21.02.2018 12:13 • Verfasst in ABAP® für Anfänger
10
Antw.
Antw.
10501
Views
Views
1
Antw.
Antw.
6705
Views
Views
Change Text(Header Text) of each: cl_salv_table
von jamiguel77 » 31.12.2014 20:27 • Verfasst in ABAP® für Anfänger
von jamiguel77 » 31.12.2014 20:27 • Verfasst in ABAP® für Anfänger
4
Antw.
Antw.
3187
Views
Views
Frage die ABAP Experten
Über diesen Beitrag
Die Frage ist als "gelöst" markiert. Den entsprechend Beitrag findest du hier.
Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch
Aktuelle Forenbeiträge
Nach Transport von Stellen über RHMOVE30 nur Planvariante "nie verwenden"
vor 10 Stunden von DeathAndPain 4 / 708
vor 10 Stunden von DeathAndPain 4 / 708
Newsletter Anmeldung
Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.Die letzte Ausgabe findest du hier.
Aktuelle Forenbeiträge
Nach Transport von Stellen über RHMOVE30 nur Planvariante "nie verwenden"
vor 10 Stunden von DeathAndPain 4 / 708
vor 10 Stunden von DeathAndPain 4 / 708