Sapscript Formular druckt nur 80 Zeichen
Die Frage ist als "gelöst" markiert. Den entsprechend Beitrag findest du hier.
8 Beiträge
•
Seite 1 von 1
8 Beiträge
Seite 1 von 1
Hallo Spezialisten,
wer kann einem Anfänger helfen?
Ich möchte mit einem Sapscriptformular den Vertriebstext vom Material ausgeben, bekomme aber nicht den vollständigen Text ausgedruckt.
Mein Coding dazu sieht folgendermaßen aus
Formular:
/E ITEM_TEXT
/* *** Material Vertriebstext ***
/: PERFORM ZSD_LESEN_TEXT IN PROGRAM ZSD_ANGEBOT_LESEN_DATEN
/: USING &VBDPA-MATNR&
/: CHANGING &TEXT&
/: ENDPERFORM
/: IF &TEXT& NE ' '
ZM &TEXT&
/: ENDIF
ABAB:
FORM ZSD_LESEN_TEXT TABLES IN_PAR STRUCTURE ITCSY
OUT_PAR STRUCTURE ITCSY.
DATA : S_MATNR LIKE STXH-TDNAME.
DATA : TLINE LIKE TLINE OCCURS 0 WITH HEADER LINE.
DATA : TEXT TYPE STRING.
READ TABLE IN_PAR WITH KEY 'VBDPA-MATNR'.
IF SY-SUBRC = 0 .
S_MATNR = IN_PAR-VALUE.
CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
EXPORTING
INPUT = S_MATNR
IMPORTING
OUTPUT = S_MATNR
EXCEPTIONS
LENGTH_ERROR = 1
OTHERS = 2.
CONCATENATE S_MATNR '0001' '01' INTO S_MATNR.
CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
ID = '0001'
LANGUAGE = SY-LANGU
NAME = S_MATNR
OBJECT = 'MVKE'
ARCHIVE_HANDLE = 0
LOCAL_CAT = ' '
TABLES
LINES = TLINE
EXCEPTIONS
ID = 1
LANGUAGE = 2
NAME = 3
NOT_FOUND = 4
OBJECT = 5
REFERENCE_CHECK = 6
WRONG_ACCESS_TO_ARCHIVE = 7
OTHERS = 8.
IF SY-SUBRC <> 0.
ENDIF.
ENDIF.
LOOP AT TLINE.
CONCATENATE TEXT TLINE-TDLINE INTO TEXT SEPARATED BY ' '.
CONDENSE TEXT.
ENDLOOP.
REFRESH TLINE.
CLEAR TLINE.
READ TABLE OUT_PAR WITH KEY 'TEXT'.
IF SY-SUBRC = 0.
OUT_PAR-VALUE = TEXT.
MODIFY OUT_PAR INDEX SY-TABIX.
ENDIF.
ENDFORM. " ZSD_LESEN_TEXT
Schon mal Dankeschön
Apol
wer kann einem Anfänger helfen?
Ich möchte mit einem Sapscriptformular den Vertriebstext vom Material ausgeben, bekomme aber nicht den vollständigen Text ausgedruckt.
Mein Coding dazu sieht folgendermaßen aus
Formular:
/E ITEM_TEXT
/* *** Material Vertriebstext ***
/: PERFORM ZSD_LESEN_TEXT IN PROGRAM ZSD_ANGEBOT_LESEN_DATEN
/: USING &VBDPA-MATNR&
/: CHANGING &TEXT&
/: ENDPERFORM
/: IF &TEXT& NE ' '
ZM &TEXT&
/: ENDIF
ABAB:
FORM ZSD_LESEN_TEXT TABLES IN_PAR STRUCTURE ITCSY
OUT_PAR STRUCTURE ITCSY.
DATA : S_MATNR LIKE STXH-TDNAME.
DATA : TLINE LIKE TLINE OCCURS 0 WITH HEADER LINE.
DATA : TEXT TYPE STRING.
READ TABLE IN_PAR WITH KEY 'VBDPA-MATNR'.
IF SY-SUBRC = 0 .
S_MATNR = IN_PAR-VALUE.
CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
EXPORTING
INPUT = S_MATNR
IMPORTING
OUTPUT = S_MATNR
EXCEPTIONS
LENGTH_ERROR = 1
OTHERS = 2.
CONCATENATE S_MATNR '0001' '01' INTO S_MATNR.
CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
ID = '0001'
LANGUAGE = SY-LANGU
NAME = S_MATNR
OBJECT = 'MVKE'
ARCHIVE_HANDLE = 0
LOCAL_CAT = ' '
TABLES
LINES = TLINE
EXCEPTIONS
ID = 1
LANGUAGE = 2
NAME = 3
NOT_FOUND = 4
OBJECT = 5
REFERENCE_CHECK = 6
WRONG_ACCESS_TO_ARCHIVE = 7
OTHERS = 8.
IF SY-SUBRC <> 0.
ENDIF.
ENDIF.
LOOP AT TLINE.
CONCATENATE TEXT TLINE-TDLINE INTO TEXT SEPARATED BY ' '.
CONDENSE TEXT.
ENDLOOP.
REFRESH TLINE.
CLEAR TLINE.
READ TABLE OUT_PAR WITH KEY 'TEXT'.
IF SY-SUBRC = 0.
OUT_PAR-VALUE = TEXT.
MODIFY OUT_PAR INDEX SY-TABIX.
ENDIF.
ENDFORM. " ZSD_LESEN_TEXT
Schon mal Dankeschön
Apol
Zuletzt geändert von APOL am 28.06.2013 10:45, insgesamt 1-mal geändert.
gesponsert ⓘ
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten
kostenfrei für Ausbildungsberufe und Werksstudenten
Hallo,
ich glaube nicht dass Sapscript und Perform ganze Tabellen holen können.
Ich hätte da einige Textzeilen definiert und diese dann gefüllt also so Text1, Text2 usw.
Damit kann dann Sapscript besser umgehen als mit einer Tabelle.
Aber warum wird der Vertriebstext nicht mittels INCLUDE angedruckt?
Gruß
Wolfgang
ich glaube nicht dass Sapscript und Perform ganze Tabellen holen können.
Ich hätte da einige Textzeilen definiert und diese dann gefüllt also so Text1, Text2 usw.
Damit kann dann Sapscript besser umgehen als mit einer Tabelle.
Aber warum wird der Vertriebstext nicht mittels INCLUDE angedruckt?
Gruß
Wolfgang
Moin Wolfgang,
wenn ich mir in der Materialanzeige den Textkopf ansehe, dann ist MVKE das Textobjekt für den Vertriebstext.
Der Funktionsbaustein READ_TEXT funktioniert ja auch mit OBJECT = MVKE, nur dass eben im Formular nur 80 Zeichen ankommen
Gruß Apol
wenn ich mir in der Materialanzeige den Textkopf ansehe, dann ist MVKE das Textobjekt für den Vertriebstext.
Der Funktionsbaustein READ_TEXT funktioniert ja auch mit OBJECT = MVKE, nur dass eben im Formular nur 80 Zeichen ankommen
Gruß Apol
Beitrag
von a-dead-trousers (Top Expert / 4395 / 223 /
1182
)
»
hi!
Möglich, dass in der ersten Zeile des Langtextes nur 80 Zeichen stehen (dürfen).
Hast du dir den Langtext schon mal mit dem Zeileneditor angeschaut?
btw. Wie groß ist die Variable TEXT in deinem Druckprogramm eigentlich definiert?
lg ADT
Möglich, dass in der ersten Zeile des Langtextes nur 80 Zeichen stehen (dürfen).
Hast du dir den Langtext schon mal mit dem Zeileneditor angeschaut?
btw. Wie groß ist die Variable TEXT in deinem Druckprogramm eigentlich definiert?
lg ADT
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
HAllo und Danke an Euch Zwei
Habe das Problem inzwischen folgerndermaßen gelöst:
In ABAP die Objekt-ID geholt und im Formular mit Include ausgegeben.
Wen es interessiert, hir der Code:
Abap:
FORM ZSD_LESEN_TEXTID TABLES IN_PAR STRUCTURE ITCSY
OUT_PAR STRUCTURE ITCSY.
DATA : S_MATNR LIKE STXH-TDNAME.
DATA : TLINE LIKE TLINE OCCURS 0 WITH HEADER LINE.
DATA : TEXT TYPE STRING.
READ TABLE IN_PAR WITH KEY 'VBDPA-MATNR'.
IF SY-SUBRC = 0 .
S_MATNR = IN_PAR-VALUE.
Gruß Apol
CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
EXPORTING
INPUT = S_MATNR
IMPORTING
OUTPUT = S_MATNR
EXCEPTIONS
LENGTH_ERROR = 1
OTHERS = 2.
CONCATENATE S_MATNR '0001' '01' INTO S_MATNR.
READ TABLE OUT_PAR WITH KEY 'OBJ'.
IF SY-SUBRC = 0.
OUT_PAR-VALUE = S_MATNR.
MODIFY OUT_PAR INDEX SY-TABIX.
ENDIF.
ENDIF.
ENDFORM. "ZSD_LESEN_TEXTID
Formular:
/* *** Material Vertriebstext ***
/: PERFORM ZSD_LESEN_TEXTID IN PROGRAM ZSD_ANGEBOT_LESEN_DATEN
/: USING &VBDPA-MATNR&
/: CHANGING &OBJ&
/: ENDPERFORM
/: IF &OBJ& NE ' '
/: INCLUDE &OBJ& OBJECT MVKE ID 0001 PARAGRAPH ZM
/: ENDIF
Habe das Problem inzwischen folgerndermaßen gelöst:
In ABAP die Objekt-ID geholt und im Formular mit Include ausgegeben.
Wen es interessiert, hir der Code:
Abap:
FORM ZSD_LESEN_TEXTID TABLES IN_PAR STRUCTURE ITCSY
OUT_PAR STRUCTURE ITCSY.
DATA : S_MATNR LIKE STXH-TDNAME.
DATA : TLINE LIKE TLINE OCCURS 0 WITH HEADER LINE.
DATA : TEXT TYPE STRING.
READ TABLE IN_PAR WITH KEY 'VBDPA-MATNR'.
IF SY-SUBRC = 0 .
S_MATNR = IN_PAR-VALUE.
Gruß Apol
CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
EXPORTING
INPUT = S_MATNR
IMPORTING
OUTPUT = S_MATNR
EXCEPTIONS
LENGTH_ERROR = 1
OTHERS = 2.
CONCATENATE S_MATNR '0001' '01' INTO S_MATNR.
READ TABLE OUT_PAR WITH KEY 'OBJ'.
IF SY-SUBRC = 0.
OUT_PAR-VALUE = S_MATNR.
MODIFY OUT_PAR INDEX SY-TABIX.
ENDIF.
ENDIF.
ENDFORM. "ZSD_LESEN_TEXTID
Formular:
/* *** Material Vertriebstext ***
/: PERFORM ZSD_LESEN_TEXTID IN PROGRAM ZSD_ANGEBOT_LESEN_DATEN
/: USING &VBDPA-MATNR&
/: CHANGING &OBJ&
/: ENDPERFORM
/: IF &OBJ& NE ' '
/: INCLUDE &OBJ& OBJECT MVKE ID 0001 PARAGRAPH ZM
/: ENDIF
Seite 1 von 1
Vergleichbare Themen
7
Antw.
Antw.
3235
Views
Views
3
Antw.
Antw.
3097
Views
Views
Smartforms Formular nach SAPscript Formular aufrufen
von walda33 » 26.01.2014 10:14 • Verfasst in ABAP® für Anfänger
von walda33 » 26.01.2014 10:14 • Verfasst in ABAP® für Anfänger
2
Antw.
Antw.
3553
Views
Views
SAPscript: & als normales Zeichen maskieren
von ralf.wenzel » 17.08.2016 13:40 • Verfasst in ABAP® Core
von ralf.wenzel » 17.08.2016 13:40 • Verfasst in ABAP® Core
9
Antw.
Antw.
5537
Views
Views
0
Antw.
Antw.
1141
Views
Views
sapscript soll Zeile mit 255 Zeichen drucken!!
von klausq » 14.12.2006 09:35 • Verfasst in ABAP® Core
von klausq » 14.12.2006 09:35 • Verfasst in ABAP® Core
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
Newsletter Anmeldung
Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.Die letzte Ausgabe findest du hier.