sap script-standard text in order confirmation

[Former Member]

Hi Experts,

Can anybody solve my problem.I f my problem is solved they will definetely be rewarded with points.

The standard text will be stored as Name = ORDCONF_TEXT_(sales org)_(distributionchannel)_(division)

Text ID = ZSD

Examples: ORDCONF_TEXT_4000_01_01 ,

ORDCONF_TEXT_4000_01_80 , ORDCONF_TEXT_1000_01_01

The print program /form will need to pick up the

appropriate standard text based on the Sales Area

(combination of Sales Org / Distribution Center /

Division) of the sales order [VBAK-VKORG /

VTWEG / SPART], provided a standard text has been

created for that Sales Area. Itu2019s not required

that every sales area have a standard text, so if one

is not found, this step should be skipped and

the rest of the print program executed.

The new text should print after 2 blank lines after

the Printable Notes text (which is after the

line items and the Total Net Price prints).

The font should be the same size as the Printable

Notes, but bolded rather than italicized

The text should print in the same columns as the

Printable Notes currently print in (Material

Description / Scheduled Ship Date / Quantity)

So the logic i have used is this below code:

I used a subroutine in the layout of the main window becoz i need to print it in the main window below after 2 blank lines of line items.

PERFORM GET_OBJECT IN PROGRAM ZSDRP001_ORD_CONF_IRE

USING &VBDKA-VBELN&

CHANGING &ORDCONF_TEXT&

ENDFORM

INCLUDE &ORDCONF_TEXT& OBJECT TEXT ID ZSD PARAGRAPH A1

I called this subroutine in the print program:

FORM GET_OBJECT TABLES INPUT_TAB STRUCTURE ITCSY

OUTPUT_TAB STRUCTURE ITCSY.

DATA : TMP_VBELN LIKE vbdka-VBELN,

TMP_VKORG LIKE VBAK-VKORG,

TMP_VTWEG LIKE VBAK-VTWEG,

TMP_SPART LIKE VBAK-SPART,

TMP_TXNAM1(40) TYPE C VALUE 'ORDCONF_TEXT_',

TMP_TXNAM2(100) TYPE C.

DATA: v_text LIKE tline-tdline.

DATA : P_V_TEXT LIKE tline-tdline.

CLEAR : TMP_TXNAM1, TMP_TXNAM2, TMP_VBELN, TMP_VKORG, TMP_VTWEG, TMP_SPART.

READ TABLE INPUT_TAB WITH KEY NAME = 'vbdka-VBELN'.

IF SY-SUBRC = 0.

tmp_vbeln = input_tab-value.

ENDIF.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

INPUT = TMP_VBELN

IMPORTING

OUTPUT = TMP_VBELN

.

CLEAR VBAK.

SELECT SINGLE VKORG VTWEG SPART

INTO (TMP_VKORG, TMP_VTWEG, TMP_SPART)

FROM VBAK

WHERE VBELN EQ TMP_VBELN.

IF NOT TMP_VKORG IS INITIAL AND

NOT TMP_VTWEG IS INITIAL AND

NOT TMP_SPART IS INITIAL.

CONCATENATE TMP_TXNAM1 TMP_VKORG tmp_vtweg tmp_spart into TMP_TXNAM2 SEPARATED BY '_'.

• CONCATENATE TMP_VKORG TMP_VTWEG TMP_SPART into TMP_TXNAM SEPARATED BY '_'.

endif.

CONDENSE TMP_TXNAM2 NO-GAPS.

PERFORM read_order_text USING TMP_TXNAM2 CHANGING v_text.

READ TABLE output_tab WITH KEY NAME = 'ORDCONF_TEXT'.

IF SY-SUBRC = 0.

output_tab-value = P_V_TEXT.

MODIFY output_tab index sy-tabix.

endif.

endform.

&----

---

*& Form READ_ORDER_TEXT

&----

---

• text

----

---

• -->P_TMP_TXNAM2 text

• <--P_V_TEXT text

----

---

FORM READ_ORDER_TEXT USING P_TMP_TXNAM2

CHANGING P_V_TEXT LIKE tline-tdline.

DATA: ztdid LIKE thead-tdid,

zlang LIKE thead-tdspras,

zobj LIKE thead-tdobject,

zname LIKE thead-tdname.

DATA: tlines TYPE STANDARD TABLE OF tline WITH HEADER LINE,

thead LIKE thead.

CLEAR P_V_TEXT.

ztdid = 'ZSD'.

zlang = 'E'.

zobj = 'TEXT'.

zname = P_TMP_TXNAM2.

CLEAR tlines.

REFRESH tlines.

CALL FUNCTION 'READ_TEXT'

EXPORTING

object = zobj

name = zname

id = ztdid

language = zlang

IMPORTING

header = thead

TABLES

lines = tlines

EXCEPTIONS

id = 1

language = 2

name = 3

not_found = 4

object = 5

reference_check = 6

wrong_access_to_archive = 7

OTHERS = 8.

LOOP AT tlines WHERE NOT tdline IS INITIAL.

MOVE tlines-tdline TO P_V_TEXT.

ENDLOOP.

ENDFORM. " READ_ORDER_TEXT

But still its not getting printed .Plz tell me where i am going wrong.

Thanks,

Sirishaa

Moderator message - Cross thread locked

Edited by: Rob Burbank on Nov 10, 2009 9:51 AM

[Former Member]

You do not need to use the subroutine READ_ORDER_TEXT to get another text name because you already have it: TMP_TXNAM2 .

Pass this value back to your SAPscript, and it is okay.

Or you can even check the text object is empty or not, if no text is found, print 2 empty lines:

still use your subroutine to read the text, if no line is found, set TMP_TXNAM2 to empty, otherwise, no change,

In SAPscript, check the value is empty or not, then print 2 empty line or the text object...