Amt in words in payslip

Hi friends.
i am designing a payslip (pe51) for an indian client.
The requirement is i want to display the net pay amount in words.
Pleasecan anybody tell me can we do this. if yes how?
Thanks and Regards.
Vishal VH

Hi Manoj,
I have checked ur previous thread, this is your solution
I made all that changes in PE51 but still i could not get the result.
Here is the steps i hve followed pls let me know where i went wrong.
Double Click BETRG_____ and when window popups i have slected Table          [RT]
Table Field [BETRG]
Identifier      [/560]
and
Output Length [24]
convertion       [01] Replace key with text
I have maintained sufficient place also....
Thanks for your time and consideration
Best Regards
Sujana

Similar Messages

Probs in print amt in words

Dear Guru,
 I am facing samll problem of printing the amount in words..While exporting value is goiong but amt_word is not giving the output..What could be the problem..please let me know.
DATA : G_EXCISE LIKE PC207-BETRG.
 AMT_WORD TYPE C.
G_EXCISE = I_J_1IEXCHDR-EXBED + I_J_1IEXCHDR-ECS.
CALL FUNCTION 'HR_IN_CHG_INR_WRDS'
EXPORTING
 AMT_IN_NUM = G_EXCISE
IMPORTING
 AMT_IN_WORDS = AMT_WORD.
Regards,
Dhanush.S.T

Hi,
DATA : G_EXCISE LIKE PC207-BETRG,
 AMT_WORD(100) TYPE C.
G_EXCISE = I_J_1IEXCHDR-EXBED + I_J_1IEXCHDR-ECS.
CALL FUNCTION 'HR_IN_CHG_INR_WRDS'
EXPORTING
 amt_in_num = G_EXCISE
IMPORTING
 AMT_IN_WORDS = AMT_WORD
EXCEPTIONS
 DATA_TYPE_MISMATCH = 1
 OTHERS = 2
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
change the AMT_WORD declaration.
Cheers,
jose.
Edited by: jose on Feb 6, 2008 7:11 AM

Total in words

Hii
i gt an requirement to display Total amt in words in the vendor debit note
i know the function module my question is call this function module
should i write any subroutine r should create zdriver prog
points will be rewarded
regards
Jaipal

SPLIT AMOUNT AT '.' INTO TOT_NUM TOT_DEC.
     CONDENSE : TOT_NUM , TOT_DEC.
     TOT_NUM_P = TOT_NUM.
     TOT_DEC_P = TOT_DEC.
CALL FUNCTION 'SPELL_AMOUNT'
   EXPORTING
     AMOUNT          = TOT_NUM_P
     LANGUAGE        = SY-LANGU
   IMPORTING
     IN_WORDS        = T_SPELL_NUM
   EXCEPTIONS
     NOT_FOUND       = 1
     TOO_LARGE       = 2
     OTHERS          = 3
CALL FUNCTION 'SPELL_AMOUNT'
EXPORTING
     AMOUNT = TOT_DEC_P
LANGUAGE = SY-LANGU
IMPORTING
     IN_WORDS = T_SPELL_DEC
EXCEPTIONS
    NOT_FOUND = 1
    TOO_LARGE = 2
    OTHERS = 3
Hi Buddy
To get total amt in word we can do it wid subroutine also but i hav done same without using subroutine and followin are the code for the same
code in z report
*data Declaration==============================================
DATA: TOT_NUM_P TYPE CHAR20,
       AMOUNT TYPE CHAR20,
       TOT_DEC_P TYPE CHAR20,
       T_SPELL_NUM TYPE SPELL,
       T_SPELL_DEC TYPE SPELL,
       TOT_NUM(25) TYPE c,
       TOT_DEC(25) TYPE c,
       ONE(80) TYPE C,
       TWO(80) TYPE C,
       STR(120) TYPE C,
       RUPE(7) TYPE C,
       DECM(11) TYPE C,
       PAISE(15) TYPE C.
DATA: TOT_NUM_P1 TYPE CHAR20,
       TOT TYPE CHAR20,
       TOT_DEC_P1 TYPE CHAR20,
       T_SPELL_NUM1 TYPE SPELL,
       T_SPELL_DEC1 TYPE SPELL,
       TOT_NUM1(25) TYPE c,
       TOT_DEC1(25) TYPE c,
       ONE1(80) TYPE C,
       TWO1(80) TYPE C,
       STR1(120) TYPE C.
SPLIT AMOUNT AT '.' INTO TOT_NUM TOT_DEC.
     CONDENSE : TOT_NUM , TOT_DEC.
     TOT_NUM_P = TOT_NUM.
     TOT_DEC_P = TOT_DEC.
CALL FUNCTION 'SPELL_AMOUNT'
   EXPORTING
     AMOUNT          = TOT_NUM_P
     LANGUAGE        = SY-LANGU
   IMPORTING
     IN_WORDS        = T_SPELL_NUM
   EXCEPTIONS
     NOT_FOUND       = 1
     TOO_LARGE       = 2
     OTHERS          = 3
CALL FUNCTION 'SPELL_AMOUNT'
EXPORTING
     AMOUNT = TOT_DEC_P
LANGUAGE = SY-LANGU
IMPORTING
     IN_WORDS = T_SPELL_DEC
EXCEPTIONS
    NOT_FOUND = 1
    TOO_LARGE = 2
    OTHERS = 3
ONE = T_SPELL_NUM-WORD.
TWO = T_SPELL_DEC-WORD.
DECM = 'AND'.
RUPE = IT_HEADER-WAERK.
PAISE = 'PAISE ONLY'.
CONCATENATE ONE DECM TWO PAISE INTO STR SEPARATED BY SPACE.
SPLIT TOT AT '.' INTO TOT_NUM1 TOT_DEC1.
     CONDENSE : TOT_NUM1 , TOT_DEC1.
     TOT_NUM_P1 = TOT_NUM1.
     TOT_DEC_P1 = TOT_DEC1.
CALL FUNCTION 'SPELL_AMOUNT'
   EXPORTING
     AMOUNT          = TOT_NUM_P1
     LANGUAGE        = SY-LANGU
   IMPORTING
     IN_WORDS        = T_SPELL_NUM1
   EXCEPTIONS
     NOT_FOUND       = 1
     TOO_LARGE       = 2
     OTHERS          = 3
CALL FUNCTION 'SPELL_AMOUNT'
EXPORTING
     AMOUNT = TOT_DEC_P1
LANGUAGE = SY-LANGU
IMPORTING
     IN_WORDS = T_SPELL_DEC1
EXCEPTIONS
    NOT_FOUND = 1
    TOO_LARGE = 2
    OTHERS = 3
ONE1 = T_SPELL_NUM1-WORD.
TWO1 = T_SPELL_DEC1-WORD.
DECM = 'AND'.
RUPE = IT_HEADER-WAERK.
PAISE = 'PAISE ONLY'.
CONCATENATE ONE1 DECM TWO1 PAISE INTO STR1 SEPARATED BY SPACE.
code in Sapscript text edotor
,,&STR&
,,&STR1&
hope this will solve ur query...
Regards
Santosh L

Amount in words-sap script

hi all,
i have one issue,
in script the total amount in word is not comming complet
ex. 18880
In words-
Eighten thousand eight hundred eight
but in script it is printing --- Eighten thousand eight it is not piinting remaning text.
suggest what to do,
plz its urgent.
Regards,
Amit.

Amit,
There's no sapscript command to covert number to word, you've to do it in print program.
In the sapscript form
use
/:PERFORM GET_DATA IN PROGRAM Ztest
/:USING &amt&
/:CHANGING &word&
/:ENDPERFORM
and in the Print Program
CALL FUNCTION 'SPELL_AMOUNT'
EXPORTING
AMOUNT = amount
CURRENCY = 'HKD'
FILLER = ' '
LANGUAGE = 'E'
IMPORTING
IN_WORDS = word
EXCEPTIONS
NOT_FOUND = 1
TOO_LARGE = 2
OTHERS = 3.
Hope this helps
VB

How to print a value in text format

hello,
 I want to print a value for eg. 1083.00 in word like one thousand eighty three only......can anybody tell me is there any function module present in SAP to do same.......<removed by moderator>
Edited by: Mike Pokraka on Aug 4, 2008 6:42 PM

Hi hav a luk @ below code,
REPORT zmdamountwords.
TABLES: spell,
 komk.
*& Form get_amt_words
* text
* -->AMT text
* -->WORDS text
FORM get_amt_words TABLES in_tab STRUCTURE itcsy
 out_tab STRUCTURE itcsy.
DATA : value1 LIKE bseg-dmbtr.
DATA : value(18).
DATA : t_value(18).
DATA : value_s1(18).
DATA : value_s2(19),
 value_s3(19),
 value_s4(19),
 rs_str(256),
 len TYPE i,
 words LIKE spell.
CLEAR : value,value1,t_value.
READ TABLE in_tab WITH KEY 'KOMK-FKWRT'.
REPLACE ALL OCCURRENCES OF ',' IN in_tab-value WITH space.
CONDENSE in_tab-value.
value = in_tab-value.
value1 = value.
CALL FUNCTION 'Z_SPELL_AMOUNT_INR'
 EXPORTING
 amount = value1
 IMPORTING
 rupees_str = rs_str
 EXCEPTIONS
 OTHERS = 1.
CONDENSE rs_str.
READ TABLE out_tab WITH KEY 'RS_STR'.
IF sy-subrc = 0.
 out_tab-value = rs_str.
 MODIFY out_tab INDEX sy-tabix.
ENDIF.
ENDFORM. "GET_AMT_WORDS
Let me know if you have any doubt.
Reward if useful.
Warm Regards,
Mohandoss P.

Can we Display VAT,CST,ECC NO,Quotation DocNum and DocDate in PLD

Dear All,
I'm Designing " Proforma- Invoice " from SALES ORDER DOCUMENT in Print Layout Design according to Clients Format.
My Issue is now,
Can we bring the field values such as VAT,CST,ECC NO(i.e.TaxIdNo's) for the Customer and Company's as well.
Quotation DocNum and DocDate(SALES ORDER WILL BE BASED ON this Quotation No and Date ) into the PLD.
I know that from OADM Table we can bring those values but I could bring only the VAT(i.e. FreeZoneNo,OADM) value from the table that too for Company only but not for Customer.
and In Print Layout Design,SAP B1 is showing only OADM Table but not the ADM1 Table.Because rest of the field values are in ADM1 Table
So,How can I bring those values into PLD?
I kindly request you all to give some suggestion regarding as early as possible.
So that I can move further to complete this Task .
Regards,
Murali

How can I explain this?
Shall I send you the format.
Ok,
C, I've a format that is provided by the client, which I'm trying to designing now.
I'll try to show you the way of the format.
Proforma-Invoice                           |         VAT:
                                                   |         CST:
                                                   |         Ecc No:
under this                                     |   Proforma Invoice No:
                                                   |   Date:
Billing Address| Shipping Address |   Qutation No:
                                                   |   DAte :
VAT:
CST:
Ecc No
Payment Terms :
No | Item Code | Item Descp | and so on..............................,,
Here I want Lot of space according to client format.
(For Records To Display)
                                                      Total            :
End of Report                                  Discount     :
                                                       Frieght        :
Again some details here to display     and so on    :
Amt in Words                                 Total Amt    :
                  " HERE I'M GETTING MORE SPACE "
Page Footer
Sales Employee:__________                     For Company Ltd.
Subject to Jurisdiction
Terms & Condition:----
                            Authorized Sign.

Text Printing in Purchase Order SapScript

Hi Abapers,
I am chaniging an existing SapScript that was not working properly. Client wants to print "Item Text" in output which is of 3 to 4 page. where as there is only one line item in PO. Also there is "Header Text" of 1 page. Client wants to display all line items then "Item Text" should displayed. and at last the "eader Text". The Format is Like as Follows:-
PO No. 12.12.2006
Vendor Name
Country
S.No. Mat. Desc. Qty. ...............and so on..........
1 abc 11 .....................
Item Text starts from here........................
Problem is here
This text is of 3 page (say).
So text starts from here and est of text goes to next page.
Only 4 Lines are printed properly and rest of lines are not printed.
I also checked in debuging mode.
so attachibng the code for reference kindly go through this.
Header Text Starts from here
 Total amt. in words......
*******************************8Code**************************************
IF &NEXTPAGE& EQ 0
PROTECT
PERFORM READ_TEXTS IN PROGRAM ZPERFORMS_ZMEDRUCK1
USING &EKKO-EBELN&
CHANGING &WRK_IT1&
CHANGING &WRK_IT2&
CHANGING &WRK_IT3&
CHANGING &WRK_IT4&
CHANGING &WRK_IT5&
CHANGING &WRK_IT6&
CHANGING &WRK_IT7&
CHANGING &WRK_IT8&
CHANGING &WRK_IT9&
CHANGING &WRK_IT10&
CHANGING &WRK_IT11&
CHANGING &WRK_IT12&
ENDPERFORM
PROTECT
IF &WRK_IT1& NE ' '
<S>&WRK_IT1&</>
ENDIF
IF &WRK_IT2& NE ' '
<S>&WRK_IT2&</>
and so on..............
then i also go to the Calling program.
FORM READ_TEXTSLO1 TABLES IN_TAB200 STRUCTURE ITCSY
 OUT_TAB200 STRUCTURE ITCSY.
READ TABLE IN_TAB200 INDEX 1.
EBELN1 = IN_TAB200-VALUE.
READ TABLE IN_TAB200 INDEX 2.
EBELP = IN_TAB200-VALUE.
CONCATENATE EBELN1 EBELP INTO OBJNAME.
CLEAR WRK_IT1.
CLEAR WRK_IT2.
CLEAR WRK_IT3.
CLEAR WRK_IT4.
CLEAR WRK_IT5.
CLEAR WRK_IT6.
CLEAR WRK_IT7.
CLEAR WRK_IT8.
CLEAR WRK_IT9.
CLEAR WRK_IT10.
CLEAR WRK_IT11.
CLEAR WRK_IT12.
CLEAR WRK_IT13.
CLEAR WRK_IT14.
CLEAR WRK_IT15.
CLEAR WRK_IT16.
CLEAR WRK_IT17.
CLEAR WRK_IT18.
CLEAR WRK_IT19.
CLEAR WRK_IT20.
CLEAR WRK_IT21.
CLEAR WRK_IT22.
CLEAR WRK_IT23.
CLEAR WRK_IT24.
CLEAR WRK_IT25.
CLEAR WRK_IT26.
CLEAR WRK_IT27.
CLEAR WRK_IT28.
CLEAR WRK_IT29.
CLEAR WRK_IT30.
CLEAR WRK_IT31.
CLEAR WRK_IT32.
CLEAR WRK_IT33.
CLEAR WRK_IT34.
CLEAR WRK_IT35.
CLEAR WRK_IT36.
CLEAR WRK_IT37.
CLEAR WRK_IT38.
CLEAR WRK_IT39.
CLEAR WRK_IT40.
CLEAR WRK_IT41.
CLEAR WRK_IT42.
CLEAR WRK_IT43.
CLEAR WRK_IT44.
CLEAR WRK_IT45.
CLEAR WRK_IT46.
CLEAR WRK_IT47.
CLEAR WRK_IT48.
CLEAR WRK_IT49.
CLEAR WRK_IT50.
CLEAR WRK_IT51.
CLEAR WRK_IT52.
CLEAR WRK_IT53.
CLEAR WRK_IT54.
CLEAR WRK_IT55.
CLEAR WRK_IT56.
CLEAR WRK_IT57.
CLEAR WRK_IT58.
CLEAR WRK_IT59.
CLEAR WRK_IT60.
CLEAR WRK_IT61.
CLEAR WRK_IT62.
CLEAR WRK_IT63.
CLEAR WRK_IT64.
CLEAR WRK_IT65.
CLEAR WRK_IT66.
CLEAR WRK_IT67.
CLEAR WRK_IT68.
CLEAR WRK_IT69.
CLEAR WRK_IT70.
CLEAR WRK_IT71.
CLEAR WRK_IT72.
CLEAR WRK_IT73.
CLEAR WRK_IT74.
CLEAR WRK_IT75.
CLEAR WRK_IT76.
CLEAR WRK_IT77.
CLEAR WRK_IT78.
CLEAR WRK_IT79.
CLEAR WRK_IT80.
break abap7.
ITEM TEXT.
SELECT SINGLE TDNAME INTO WRK_TDNAME FROM STXH
 WHERE TDOBJECT = 'EKPO'
 AND TDNAME = OBJNAME
 AND TDID EQ 'F01'.
IF SY-SUBRC = 0.
 CALL FUNCTION 'READ_TEXT'
 EXPORTING
 CLIENT = SY-MANDT
 ID = 'F01'
 LANGUAGE = 'E'
 NAME = OBJNAME
 OBJECT = 'EKPO'
 TABLES
 LINES = IT_LINE.
 IF SY-SUBRC = 0.
 delete it_line where tdline EQ ' '.
BREAK ABAP7.
 DESCRIBE TABLE it_line LINES wrk_lines1.
 LOOP AT IT_LINE.
 CLEAR WRK_TABIX.
 WRK_TABIX = SY-TABIX.
 IF WRK_TDLINE EQ ' '.
 WRK_TDLINE = IT_LINE-TDLINE.
 ELSE.
 CONCATENATE WRK_TDLINE IT_LINE-TDLINE INTO WRK_TDLINE
 SEPARATED BY SPACE.
 ENDIF.
 Y = STRLEN( WRK_TDLINE ).
 CALL FUNCTION 'RKD_WORD_WRAP'
 EXPORTING
 TEXTLINE = WRK_TDLINE
 DELIMITER = ' '
 OUTPUTLEN = 100
 IMPORTING
 OUT_LINE1 = OUT_LINE1
 OUT_LINE2 = OUT_LINE2
 OUT_LINE3 = OUT_LINE3
 OUT_LINE3 =
 TABLES
 OUT_LINES =
 EXCEPTIONS
 OUTPUTLEN_TOO_LARGE = 1
 OTHERS = 2
 IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
*break abap7.
 CASE WRK_TABIX.
 WHEN 1 .
 WRK_IT1 = OUT_LINE1.
 WHEN 2 .
 WRK_IT2 = OUT_LINE1.
 WHEN 3 .
 WRK_IT3 = OUT_LINE1.
 WHEN 4 .
 WRK_IT4 = OUT_LINE1.
 ENDCASE.
 IF OUT_LINE3 EQ ' '.
 WRK_TDLINE = OUT_LINE2.
 ELSE.
 CONCATENATE OUT_LINE2 OUT_LINE3 INTO WRK_TDLINE
 SEPARATED BY SPACE.
 ENDIF.
 ENDLOOP.
 IF WRK_IT4 NE ' '.
 Y = STRLEN( WRK_TDLINE ).
 IF Y GT 50.
 CALL FUNCTION 'RKD_WORD_WRAP'
 EXPORTING
 TEXTLINE = WRK_TDLINE
 DELIMITER = ' '
 OUTPUTLEN = 50
 IMPORTING
 OUT_LINE1 = OUT_LINE1
 OUT_LINE2 = OUT_LINE2
 OUT_LINE3 = OUT_LINE3
 OUT_LINE3 =
 TABLES
 OUT_LINES =
 EXCEPTIONS
 OUTPUTLEN_TOO_LARGE = 1
 OTHERS = 2
 IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
 wrk_it4 = out_line1. " Change Uncommented"
 WRK_ITA = OUT_LINE1.
 WRK_ITA4 = OUT_LINE2.
 ELSE.
 WRK_ITA = WRK_TDLINE.
 ENDIF.
 ENDIF.
 ENDIF.
 CLEAR WRK_TDLINE.
 CLEAR OUT_LINE1.
 CLEAR OUT_LINE2.
 CLEAR OUT_LINE3.
 OUT_TAB200-VALUE = WRK_IT1.
 MODIFY OUT_TAB200 INDEX 1 TRANSPORTING VALUE.
 OUT_TAB200-VALUE = WRK_IT2.
 MODIFY OUT_TAB200 INDEX 2 TRANSPORTING VALUE.
 OUT_TAB200-VALUE = WRK_IT3.
 MODIFY OUT_TAB200 INDEX 3 TRANSPORTING VALUE.
 OUT_TAB200-VALUE = WRK_IT4.
 MODIFY OUT_TAB200 INDEX 4 TRANSPORTING VALUE.
ENDIF.
break abap7. """"""""""""""""""''
CLEAR IT_LINE.
REFRESH IT_LINE.
SELECT SINGLE TDNAME INTO WRK_TDNAME FROM STXH
 WHERE TDOBJECT = 'EKPO'
 AND TDNAME = OBJNAME
 AND TDID EQ 'F02'.
IF SY-SUBRC = 0.
break abap7. """"""""""""""""""''
 CALL FUNCTION 'READ_TEXT'
 EXPORTING
 CLIENT = SY-MANDT
 ID = 'F02'
 LANGUAGE = 'E'
 NAME = OBJNAME
 OBJECT = 'EKPO'
 TABLES
 LINES = IT_LINE.
 DESCRIBE TABLE it_line LINES wrk_lines2.
 IF SY-SUBRC = 0.
 LOOP AT IT_LINE.
 CLEAR WRK_TABIX.
 WRK_TABIX = SY-TABIX.
 IF WRK_TDLINE EQ ' '.
 WRK_TDLINE = IT_LINE-TDLINE.
 ELSE.
 CONCATENATE WRK_TDLINE IT_LINE-TDLINE INTO WRK_TDLINE.
 ENDIF.
 CALL FUNCTION 'RKD_WORD_WRAP'
 EXPORTING
 TEXTLINE = WRK_TDLINE
 DELIMITER = ' '
 OUTPUTLEN = 50
 IMPORTING
 OUT_LINE1 = OUT_LINE1
 OUT_LINE2 = OUT_LINE2
 OUT_LINE3 = OUT_LINE3
 OUT_LINE3 =
 TABLES
 OUT_LINES =
 EXCEPTIONS
 OUTPUTLEN_TOO_LARGE = 1
 OTHERS = 2
 IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
 CASE WRK_TABIX.
 WHEN 1 .
 WRK_IT5 = OUT_LINE1.
 WHEN 2 .
 WRK_IT6 = OUT_LINE1.
 WHEN 3 .
 WRK_IT7 = OUT_LINE1.
 WHEN 4 .
 WRK_IT8 = OUT_LINE1.
 ENDCASE.
 IF OUT_LINE3 EQ ' '.
 WRK_TDLINE = OUT_LINE2.
 ELSE.
 CONCATENATE OUT_LINE2 OUT_LINE3 INTO WRK_TDLINE
 SEPARATED BY SPACE.
 ENDIF.
 ENDLOOP.
 IF WRK_IT8 NE ' '.
 Y = STRLEN( WRK_TDLINE ).
 IF Y GT 50.
 CALL FUNCTION 'RKD_WORD_WRAP'
 EXPORTING
 TEXTLINE = WRK_TDLINE
 DELIMITER = ' '
 OUTPUTLEN = 50
 IMPORTING
 OUT_LINE1 = OUT_LINE1
 OUT_LINE2 = OUT_LINE2
 OUT_LINE3 = OUT_LINE3
 OUT_LINE3 =
 TABLES
 OUT_LINES =
 EXCEPTIONS
 OUTPUTLEN_TOO_LARGE = 1
 OTHERS = 2
 IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
 wrk_it8 = out_line1.
 WRK_ITB = OUT_LINE1.
 WRK_ITB8 = OUT_LINE2.
 ELSE.
 WRK_ITB = WRK_TDLINE.
 ENDIF.
 ENDIF.
 CLEAR WRK_TDLINE.
 CLEAR OUT_LINE1.
 CLEAR OUT_LINE2.
 CLEAR OUT_LINE3.
 MODIFY OUT_TAB200 INDEX 5 TRANSPORTING VALUE.
 OUT_TAB200-VALUE = WRK_IT6.
 MODIFY OUT_TAB200 INDEX 6 TRANSPORTING VALUE.
 OUT_TAB200-VALUE = WRK_IT7.
 MODIFY OUT_TAB200 INDEX 7 TRANSPORTING VALUE.
 OUT_TAB200-VALUE = WRK_IT8.
 MODIFY OUT_TAB200 INDEX 8 TRANSPORTING VALUE.
 ENDIF.
ENDIF.
CLEAR IT_LINE.
REFRESH IT_LINE.
SELECT SINGLE TDNAME INTO WRK_TDNAME FROM STXH
 WHERE TDOBJECT = 'EKPO'
 AND TDNAME = OBJNAME
 AND TDID EQ 'F03'.
IF SY-SUBRC = 0.
 CALL FUNCTION 'READ_TEXT'
 EXPORTING
 CLIENT = SY-MANDT
 ID = 'F03'
 LANGUAGE = 'E'
 NAME = OBJNAME
 OBJECT = 'EKPO'
 TABLES
 LINES = IT_LINE.
 IF SY-SUBRC = 0.
 LOOP AT IT_LINE.
 CLEAR WRK_TABIX.
 WRK_TABIX = SY-TABIX.
 IF WRK_TDLINE EQ ' '.
 WRK_TDLINE = IT_LINE-TDLINE.
 ELSE.
 CONCATENATE WRK_TDLINE IT_LINE-TDLINE INTO WRK_TDLINE.
 ENDIF.
 CALL FUNCTION 'RKD_WORD_WRAP'
 EXPORTING
 TEXTLINE = WRK_TDLINE
 DELIMITER = ' '
 OUTPUTLEN = 50
 IMPORTING
 OUT_LINE1 = OUT_LINE1
 OUT_LINE2 = OUT_LINE2
 OUT_LINE3 = OUT_LINE3
 OUT_LINE3 =
 TABLES
 OUT_LINES =
 EXCEPTIONS
 OUTPUTLEN_TOO_LARGE = 1
 OTHERS = 2
 IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
 CASE WRK_TABIX.
 WHEN 1 .
 WRK_IT9 = OUT_LINE1.
 WHEN 2 .
 WRK_IT10 = OUT_LINE1.
 WHEN 3 .
 WRK_IT11 = OUT_LINE1.
 WHEN 4 .
 WRK_IT12 = OUT_LINE1.
 ENDCASE.
 IF OUT_LINE3 EQ ' '.
 WRK_TDLINE = OUT_LINE2.
 ELSE.
 CONCATENATE OUT_LINE2 OUT_LINE3 INTO WRK_TDLINE
 SEPARATED BY SPACE.
 ENDIF.
 ENDLOOP.
 IF WRK_IT12 NE ' '.
 Y = STRLEN( WRK_TDLINE ).
 IF Y GT 50.
 CALL FUNCTION 'RKD_WORD_WRAP'
 EXPORTING
 TEXTLINE = WRK_TDLINE
 DELIMITER = ' '
 OUTPUTLEN = 50
 IMPORTING
 OUT_LINE1 = OUT_LINE1
 OUT_LINE2 = OUT_LINE2
 OUT_LINE3 = OUT_LINE3
 OUT_LINE3 =
 TABLES
 OUT_LINES =
 EXCEPTIONS
 OUTPUTLEN_TOO_LARGE = 1
 OTHERS = 2
 IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
 wrk_it12 = out_line1.
 WRK_ITC = OUT_LINE1.
 WRK_ITC12 = OUT_LINE2.
 ELSE.
 WRK_ITC = WRK_TDLINE.
 ENDIF.
 ENDIF.
 CLEAR WRK_TDLINE.
 CLEAR OUT_LINE1.
 CLEAR OUT_LINE2.
 CLEAR OUT_LINE3.
 OUT_TAB200-VALUE = WRK_IT9.
 MODIFY OUT_TAB200 INDEX 9 TRANSPORTING VALUE.
 OUT_TAB200-VALUE = WRK_IT10.
 MODIFY OUT_TAB200 INDEX 10 TRANSPORTING VALUE.
 OUT_TAB200-VALUE = WRK_IT11.
 MODIFY OUT_TAB200 INDEX 11 TRANSPORTING VALUE.
 OUT_TAB200-VALUE = WRK_IT12.
 MODIFY OUT_TAB200 INDEX 12 TRANSPORTING VALUE.
 ENDIF.
ENDIF.
CLEAR IT_LINE.
REFRESH IT_LINE.
SELECT SINGLE TDNAME INTO WRK_TDNAME FROM STXH
 WHERE TDOBJECT = 'EKPO'
 AND TDNAME = OBJNAME
 AND TDID EQ 'F04'.
IF SY-SUBRC = 0.
 CALL FUNCTION 'READ_TEXT'
 EXPORTING
 CLIENT = SY-MANDT
 ID = 'F04'
 LANGUAGE = 'E'
 NAME = OBJNAME
 OBJECT = 'EKPO'
 TABLES
 LINES = IT_LINE.
 IF SY-SUBRC = 0.
 LOOP AT IT_LINE.
 CLEAR WRK_TABIX.
 WRK_TABIX = SY-TABIX.
 IF WRK_TDLINE EQ ' '.
 WRK_TDLINE = IT_LINE-TDLINE.
 ELSE.
 CONCATENATE WRK_TDLINE IT_LINE-TDLINE INTO WRK_TDLINE.
 ENDIF.
 CALL FUNCTION 'RKD_WORD_WRAP'
 EXPORTING
 TEXTLINE = WRK_TDLINE
 DELIMITER = ' '
 OUTPUTLEN = 50
 IMPORTING
 OUT_LINE1 = OUT_LINE1
 OUT_LINE2 = OUT_LINE2
 OUT_LINE3 = OUT_LINE3
 OUT_LINE3 =
 TABLES
 OUT_LINES =
 EXCEPTIONS
 OUTPUTLEN_TOO_LARGE = 1
 OTHERS = 2
 IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
 CASE WRK_TABIX.
 WHEN 1 .
 WRK_IT13 = OUT_LINE1.
 WHEN 2 .
 WRK_IT14 = OUT_LINE1.
 WHEN 3 .
 WRK_IT15 = OUT_LINE1.
 WHEN 4 .
 WRK_IT16 = OUT_LINE1.
 ENDCASE.
 IF OUT_LINE3 EQ ' '.
 WRK_TDLINE = OUT_LINE2.
 ELSE.
 CONCATENATE OUT_LINE2 OUT_LINE3 INTO WRK_TDLINE
 SEPARATED BY SPACE.
 ENDIF.
 ENDLOOP.
 IF WRK_IT16 NE ' '.
 Y = STRLEN( WRK_TDLINE ).
 IF Y GT 50.
 CALL FUNCTION 'RKD_WORD_WRAP'
 EXPORTING
 TEXTLINE = WRK_TDLINE
 DELIMITER = ' '
 OUTPUTLEN = 50
 IMPORTING
 OUT_LINE1 = OUT_LINE1
 OUT_LINE2 = OUT_LINE2
 OUT_LINE3 = OUT_LINE3
 OUT_LINE3 =
 TABLES
 OUT_LINES =
 EXCEPTIONS
 OUTPUTLEN_TOO_LARGE = 1
 OTHERS = 2
 IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
 wrk_it16 = out_line1.
 WRK_ITD = OUT_LINE1.
 WRK_ITD16 = OUT_LINE2.
 ELSE.
 WRK_ITD = WRK_TDLINE.
 ENDIF.
 ENDIF.
 CLEAR WRK_TDLINE.
 CLEAR OUT_LINE1.
 CLEAR OUT_LINE2.
 CLEAR OUT_LINE3.
 OUT_TAB200-VALUE = WRK_IT13.
 MODIFY OUT_TAB200 INDEX 13 TRANSPORTING VALUE.
 OUT_TAB200-VALUE = WRK_IT14.
 MODIFY OUT_TAB200 INDEX 14 TRANSPORTING VALUE.
 OUT_TAB200-VALUE = WRK_IT15.
 MODIFY OUT_TAB200 INDEX 15 TRANSPORTING VALUE.
 OUT_TAB200-VALUE = WRK_IT16.
 MODIFY OUT_TAB200 INDEX 16 TRANSPORTING VALUE.
 ENDIF.
ENDIF.
CLEAR IT_LINE.
REFRESH IT_LINE.
SELECT SINGLE TDNAME INTO WRK_TDNAME FROM STXH
 WHERE TDOBJECT = 'EKPO'
 AND TDNAME = OBJNAME
 AND TDID EQ 'F05'.
IF SY-SUBRC = 0.
 CALL FUNCTION 'READ_TEXT'
 EXPORTING
 CLIENT = SY-MANDT
 ID = 'F05'
 LANGUAGE = 'E'
 NAME = OBJNAME
 OBJECT = 'EKPO'
 TABLES
 LINES = IT_LINE.
 IF SY-SUBRC = 0.
 LOOP AT IT_LINE.
 CLEAR WRK_TABIX.
 WRK_TABIX = SY-TABIX.
 IF WRK_TDLINE EQ ' '.
 WRK_TDLINE = IT_LINE-TDLINE.
 ELSE.
 CONCATENATE WRK_TDLINE IT_LINE-TDLINE INTO WRK_TDLINE.
 ENDIF.
 CALL FUNCTION 'RKD_WORD_WRAP'
 EXPORTING
 TEXTLINE = WRK_TDLINE
 DELIMITER = ' '
 OUTPUTLEN = 50
 IMPORTING
 OUT_LINE1 = OUT_LINE1
 OUT_LINE2 = OUT_LINE2
 OUT_LINE3 = OUT_LINE3
 OUT_LINE3 =
 TABLES
 OUT_LINES =
 EXCEPTIONS
 OUTPUTLEN_TOO_LARGE = 1
 OTHERS = 2
 IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
 CASE WRK_TABIX.
 WHEN 1 .
 WRK_IT17 = OUT_LINE1.
 WHEN 2 .
 WRK_IT18 = OUT_LINE1.
 WHEN 3 .
 WRK_IT19 = OUT_LINE1.
 WHEN 4 .
 WRK_IT20 = OUT_LINE1.
 ENDCASE.
 IF OUT_LINE3 EQ ' '.
 WRK_TDLINE = OUT_LINE2.
 ELSE.
 CONCATENATE OUT_LINE2 OUT_LINE3 INTO WRK_TDLINE
 SEPARATED BY SPACE.
 ENDIF.
 ENDLOOP.
 IF WRK_IT20 NE ' '.
 Y = STRLEN( WRK_TDLINE ).
 IF Y GT 50.
 CALL FUNCTION 'RKD_WORD_WRAP'
 EXPORTING
 TEXTLINE = WRK_TDLINE
 DELIMITER = ' '
 OUTPUTLEN = 50
 IMPORTING
 OUT_LINE1 = OUT_LINE1
 OUT_LINE2 = OUT_LINE2
 OUT_LINE3 = OUT_LINE3
 OUT_LINE3 =
 TABLES
 OUT_LINES =
 EXCEPTIONS
 OUTPUTLEN_TOO_LARGE = 1
 OTHERS = 2
 IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
 wrk_it20 = out_line1.
 WRK_ITE = OUT_LINE1.
 WRK_ITE20 = OUT_LINE2.
 ELSE.
 WRK_IT20 = WRK_TDLINE.
 ENDIF.
 ENDIF.
 CLEAR WRK_TDLINE.
 CLEAR OUT_LINE1.
 CLEAR OUT_LINE2.
 CLEAR OUT_LINE3.
 OUT_TAB200-VALUE = WRK_IT17.
 MODIFY OUT_TAB200 INDEX 17 TRANSPORTING VALUE.
 OUT_TAB200-VALUE = WRK_IT18.
 MODIFY OUT_TAB200 INDEX 18 TRANSPORTING VALUE.
 OUT_TAB200-VALUE = WRK_IT19.
 MODIFY OUT_TAB200 INDEX 19 TRANSPORTING VALUE.
 OUT_TAB200-VALUE = WRK_IT20.
 MODIFY OUT_TAB200 INDEX 20 TRANSPORTING VALUE.
 ENDIF.
ENDIF.
OUT_TAB200-VALUE = WRK_ITA.
MODIFY OUT_TAB200 INDEX 81 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_ITB.
MODIFY OUT_TAB200 INDEX 82 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_ITC.
MODIFY OUT_TAB200 INDEX 83 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_ITD.
MODIFY OUT_TAB200 INDEX 84 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_ITE.
MODIFY OUT_TAB200 INDEX 85 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_ITA4.
MODIFY OUT_TAB200 INDEX 86 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_ITB8.
MODIFY OUT_TAB200 INDEX 87 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_ITC12.
MODIFY OUT_TAB200 INDEX 88 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_ITD16.
MODIFY OUT_TAB200 INDEX 89 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_ITE20.
MODIFY OUT_TAB200 INDEX 90 TRANSPORTING VALUE.
CLEAR IT_LINE.
REFRESH IT_LINE.
ENDFORM. "read_textslo1
So kindly review this and let me know what should i do ?
Helpful answer rewarded.
Regards
Robin

It is very confusing to read your code. If possible please post it in
block formatted properly.
If I read it right, looks like you have your texts in PROTECT ENDPROTECT block. If that is the case, then your text will not be written in multiple pages because the PROTECT ENDPROTECT statements will try to fit all the text on one page.
Hope that helps.
Regards,
-Ramesh

Text printing in SapScript

Hi Abapers,
I am chaniging an existing SapScript that was not working properly. Client wants to print "Item Text" in output which is of 3 to 4 page. where as there is only one line item in PO. Also there is "Header Text" of 1 page. Client wants to display all line items then "Item Text" should displayed. and at last the "eader Text". The Format is Like as Follows:-
PO No. 12.12.2006
Vendor Name
Country
 S.No. Mat. Desc. Qty. ...............and so on..........
 1 abc 11 .....................
Item Text starts from here........................
Problem is here
This text is of 3 page (say).
So text starts from here and est of text goes to next page.
Only 4 Lines are printed properly and rest of lines are not printed.
I also checked in debuging mode.
so attachibng the code for reference kindly go through this.
Header Text Starts from here
 Total amt. in words......
FORM READ_TEXTSLO1 TABLES IN_TAB200 STRUCTURE ITCSY
 OUT_TAB200 STRUCTURE ITCSY.
READ TABLE IN_TAB200 INDEX 1.
EBELN1 = IN_TAB200-VALUE.
READ TABLE IN_TAB200 INDEX 2.
EBELP = IN_TAB200-VALUE.
CONCATENATE EBELN1 EBELP INTO OBJNAME.
CLEAR WRK_IT1.
CLEAR WRK_IT2.
CLEAR WRK_IT3.
CLEAR WRK_IT4.
CLEAR WRK_IT5.
Repeated Code
SELECT SINGLE TDNAME INTO WRK_TDNAME FROM STXH
 WHERE TDOBJECT = 'EKPO'
 AND TDNAME = OBJNAME
 AND TDID EQ 'F01'.
IF SY-SUBRC = 0.
 CALL FUNCTION 'READ_TEXT'
 EXPORTING
 CLIENT = SY-MANDT
 ID = 'F01'
 LANGUAGE = 'E'
 NAME = OBJNAME
 OBJECT = 'EKPO'
 TABLES
 LINES = IT_LINE.
 IF SY-SUBRC = 0.
 delete it_line where tdline EQ ' '.
BREAK ABAP7.
 DESCRIBE TABLE it_line LINES wrk_lines1.
 LOOP AT IT_LINE.
 CLEAR WRK_TABIX.
 WRK_TABIX = SY-TABIX.
 IF WRK_TDLINE EQ ' '.
 WRK_TDLINE = IT_LINE-TDLINE.
 ELSE.
 CONCATENATE WRK_TDLINE IT_LINE-TDLINE INTO WRK_TDLINE
 SEPARATED BY SPACE.
 ENDIF.
 Y = STRLEN( WRK_TDLINE ).
 CALL FUNCTION 'RKD_WORD_WRAP'
 EXPORTING
 TEXTLINE = WRK_TDLINE
 DELIMITER = ' '
 OUTPUTLEN = 100
 IMPORTING
 OUT_LINE1 = OUT_LINE1
 OUT_LINE2 = OUT_LINE2
 OUT_LINE3 = OUT_LINE3
 OUT_LINE3 =
 TABLES
 OUT_LINES =
 EXCEPTIONS
 OUTPUTLEN_TOO_LARGE = 1
 OTHERS = 2
 IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
*break abap7.
 CASE WRK_TABIX.
 WHEN 1 .
 WRK_IT1 = OUT_LINE1.
 WHEN 2 .
 WRK_IT2 = OUT_LINE1.
 WHEN 3 .
 WRK_IT3 = OUT_LINE1.
 WHEN 4 .
 WRK_IT4 = OUT_LINE1.
 ENDCASE.
 IF OUT_LINE3 EQ ' '.
 WRK_TDLINE = OUT_LINE2.
 ELSE.
 CONCATENATE OUT_LINE2 OUT_LINE3 INTO WRK_TDLINE
 SEPARATED BY SPACE.
 ENDIF.
 ENDLOOP.
 IF WRK_IT4 NE ' '.
 Y = STRLEN( WRK_TDLINE ).
 IF Y GT 50.
 CALL FUNCTION 'RKD_WORD_WRAP'
 EXPORTING
 TEXTLINE = WRK_TDLINE
 DELIMITER = ' '
 OUTPUTLEN = 50
 IMPORTING
 OUT_LINE1 = OUT_LINE1
 OUT_LINE2 = OUT_LINE2
 OUT_LINE3 = OUT_LINE3
 OUT_LINE3 =
 TABLES
 OUT_LINES =
 EXCEPTIONS
 OUTPUTLEN_TOO_LARGE = 1
 OTHERS = 2
 IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
 wrk_it4 = out_line1. " Change Uncommented"
 WRK_ITA = OUT_LINE1.
 WRK_ITA4 = OUT_LINE2.
 ELSE.
 WRK_ITA = WRK_TDLINE.
 ENDIF.
 ENDIF.
 ENDIF.
 CLEAR WRK_TDLINE.
 CLEAR OUT_LINE1.
 CLEAR OUT_LINE2.
 CLEAR OUT_LINE3.
 OUT_TAB200-VALUE = WRK_IT1.
 MODIFY OUT_TAB200 INDEX 1 TRANSPORTING VALUE.
 OUT_TAB200-VALUE = WRK_IT2.
 MODIFY OUT_TAB200 INDEX 2 TRANSPORTING VALUE.
 OUT_TAB200-VALUE = WRK_IT3.
 MODIFY OUT_TAB200 INDEX 3 TRANSPORTING VALUE.
 OUT_TAB200-VALUE = WRK_IT4.
 MODIFY OUT_TAB200 INDEX 4 TRANSPORTING VALUE.
ENDIF.
*****************************************************************Repeated code
Again the same code is repeated but now the TDID eq F02 in Select Query and also in READ_TEXT Fun. Module. and now in the CASE statement next 4 lines coded as
WHEN 1 .
 WRK_IT5 = OUT_LINE1.
 WHEN 2 .
 WRK_IT6 = OUT_LINE1.
 WHEN 3 .
 WRK_IT7 = OUT_LINE1.
 WHEN 4 .
 WRK_IT8 = OUT_LINE1.
and also these 4 rows modified as follows
OUT_TAB200-VALUE = WRK_IT5.
 MODIFY OUT_TAB200 INDEX 5 TRANSPORTING VALUE.
Now each time 4 - 4 rows coded as like as above.
upto TDID = F05
So there are total of 20 lines.
Now the text is of 4 to 5 page then its not printed. even 5th line is not printed. control not goes to 2nd Select Query cause the OBJECTNAME does not exist.
for more information write your Email ID . So that i can explain more.
So kindly review this and let me know what should i do ?
Helpful answer rewarded.
Regards
Robin

hi,
SAP SCRIPTS TUTORIALS
http://www.sapbrain.com/TUTORIALS/TECHNICAL/SAPSCRIPTS_tutorial.html
http://help.sap.com/printdocu/core/Print46c/en/data/pdf/BCSRVSCRPROG/BCSRVSCRPROG.pdf
http://help.sap.com/printdocu/core/Print46c/en/data/pdf/BCSRVSCRRDI/BCSRVSCRRDI.pdf
http://help.sap.com/printdocu/core/Print46c/en/data/pdf/BCSRVSCREDIT/BCSRVSCREDIT.pdf
http://www.sappoint.com/abap/sscrtpex1.pdf
http://www.sap-img.com/sapscripts.htm
http://www.esnips.com/doc/1ff9f8e8-0a4c-42a7-8819-6e3ff9e7ab44/sapscripts.pdf
SAP Script From the Scratch
http://www.sapbrain.com/TUTORIALS/TECHNICAL/SAPSCRIPTS_tutorial.html
http://www.sap-img.com/sapscripts.htm
http://sappoint.com/abap/
http://www.henrikfrank.dk/abapexamples/SapScript/sapscript.htm
http://www.henrikfrank.dk/abapexamples/SapScript/symbols.htm
http://sapbrain.com/TUTORIALS/TECHNICAL/SAPSCRIPTS_tutorial.html
http://www.esnips.com/doc/1ff9f8e8-0a4c-42a7-8819-6e3ff9e7ab44/sapscripts.pdf
http://www.esnips.com/doc/cb7e39b4-3161-437f-bfc6-21e6a50e1b39/sscript.pdf
http://www.esnips.com/doc/fced4d36-ba52-4df9-ab35-b3d194830bbf/symbols-in-scripts.pdf
http://www.esnips.com/doc/1e487f0c-8009-4ae1-9f9c-c07bd953dbfa/script-command.pdf
http://www.esnips.com/doc/b57e8989-ccf0-40d0-8992-8183be831030/sapscript-how-to-calculate-totals-and-subtotals.htm
http://esnips.com/doc/64d4eccb-e09b-48e1-9be9-e2818d73f074/faqss.pdf
http://esnips.com/doc/1e487f0c-8009-4ae1-9f9c-c07bd953dbfa/script-command.pdf
http://esnips.com/doc/1ff9f8e8-0a4c-42a7-8819-6e3ff9e7ab44/sapscripts.pdf.
http://esnips.com/doc/cb7e39b4-3161-437f-bfc6-21e6a50e1b39/sscript.pdf
http://esnips.com/doc/fced4d36-ba52-4df9-ab35-b3d194830bbf/symbols-in-scripts.pdf
http://esnips.com/doc/b57e8989-ccf0-40d0-8992-8183be831030/sapscript-how-to-calculate-totals-and-subtotals.htm
Rgds
Anver
if hlped pls mark points

Error :CONVT_NO_NUMBER

Hi
My coding is like below :
var_EXBED TYPE MAXBT .
Error: (Dump)
Unable to interpret " 980,000.00 " as a number.
READ TABLE T_IN9 WITH KEY 'J_1IEXCHDR-EXBED'.
CHECK SY-SUBRC = 0.
---> MOVE T_IN9-VALUE TO var_EXBED . " Error at this point
CLEAR T_IN9 .
later am converting var_EXBED value AMT to WORDS by calling FM spell_amount.
the error is due to ',' symbol
pls suggest how to resolve it out .
Thanks in Advance
SATYA

Hi Sahoo,
Try to use REPLACE keyword and replace all ,s(commos) before passing the value to Read statement.
REPLACE ALL OCCURRENCES OF ',' in T_IN9 WITH ''.
Read.....
Cheers!!
VEnk@
Edited by: Venkat Reddy on Nov 1, 2008 3:15 PM

Regarding amount discription field

Hi Experts,
I created sap script for payment print prog and for that i use standard prog RFFOUS_C. in my sap script amount fied REGUP-DMBTR.... i use for sap script total three tables REGUP, REGUD, REGUH
my form design is
amount discription amount
xyz 1000
amount is words
one thousnad only
Now what i want i have amount field REGUP-DMBTR but for amount discription which field i use??? i find but i didn`t get......
so how can i find amout discription(particulars) field

Hi Naimesh and Anij,
I dont want to amt in words function...... i want amt discription field like
amt discription amt
so which table i use for amt discription field in my sap script.. i create my own sap script for payment print prog and i use standard prog "RFFOUS_C" for that same.
Jigar

Check Print - Script form designing

Dear experts,
We are using script form to print cheque as per client requirement... his angle/ layout is as follows
Header data contains:
Venodr A/c no: xxxxx   //                                                                        Paymt doc. no. xxxxxxxxx//
Title, name of the vendor: xxxxxxxx //                                                       Date: xxxxxxxxx//
Adress of the payee: xxxxxxx//
Advice data contain:
Doc no.//          Doc Date//      Vendor Bill No//   Bill amount//   Passed Amt//   TDS Paying (net) amt//
123//                 xx xx xxxx//       xxxxxxx//           50,000//        30,000//         500//           29,500//
124//                 xx xx xxxx //       xxxxxxx//          40,000//         25,000//        100//           24,900//
Total//                  -
          90,000//          55,000//             600//    54,400//
Other deductions:
Debit memo raises//      (2,000)//
Penalty levied//             (2,400)//
Total//                        50,000//
And this Rs50,000 is to be paid now through the cheque....
Please guid me to get all the figures in Script form.. i need tables, feilds and table relations in this regard..
U may advice me any other way in order to satisy all the above needs..
Reagards:
Dasu
Edited by: Bejugama Sri Dasharathi on Apr 1, 2009 1:50 PM
Edited by: Bejugama Sri Dasharathi on Apr 1, 2009 1:52 PM
Edited by: Bejugama Sri Dasharathi on Apr 1, 2009 1:58 PM

Hi Dasu,
So ur preparing a FS for the check print output.
Pls find the FS that i had prepared, it would be helpful to u:
Header details of chq:
1) Vendor code : PAYR-LIFNR
2) Vendor Name and address:
PAYR-ZSTRA,
PAYR-ZORT1, PAYR-ZPSTL
3) Vendor Pan no: J_1IMOVEND-J_1IPANNO , where J_1IMOVEND-LIFNR= PAYR-LIFNR
4) Date: PAYR-ZALDT
5) Amount: PAYR-RWBTR (remove u2013ve sign)
6) Payment doc no : PAYR-VBLNR
7) Cheque no : PAYR- CHECF
Advice layout
1) Doc no: put the payment doc (PAYR-VBLNR) in BSEG-AUGBL, take BSEG-BELNR of line where BSEG-AUGBL is not equal to BSEG-BELNR
2) Doc date: BKPF- BLDAT of 1)
3) Vendor Bill no: BKPF- XBLNR of 1)
4) Bill amount: 5+6
5) TDS amount: WITH_ITEM- WT_QBSHH of 1)
6) Net amount: WITH_ITEM- WT_QSSHH of 1)
Cheque Layout
1) Pay to: PAYR-ZNME1
2) Amount in words : amt in words of PAYR-RWBTR
3) Date: PAYR-ZALDT
4) Amount in figures: PAYR-RWBTR (remove u2013ve sign)
If the lines in the page overflow (line items in advice layout), print the additional lines in 2nd page, but cheque layout should be blank (rest all layout should come)
I think i have replyed this only to ur similar query earlier.
Regards,
Kiran

Neeeded smartform name for fbcj transaction

as of i m working on fbcj transaction where in it deals with cash journal transaction,where i need to take the print out of the cash receiots in that transaction,now i got a problem in converting the amount in number to waords,where i m getting the amt in word in diff format against the client said format ,so if any body can give the smart form of related to fbcj transaction then kindly help me by giving the smart form name

Hai Raj,
Go to TNAPR Table there U can Find The Smart Form or Script .
Regards.
Eshwar

Hi All Experts , In PLD's Doc total amt in USD shud be convert in words

All Experts,
As per Client requirement in document printing they required Document total amount in words.
I am able to convert in total amount in words but main issue is its shown proper if document in US Dollar amount.
Can i make amounts in words in Upper case.
Pl give me solution for these issue.
Thanks
Milind

Hi milindpv,
yes, correct.
It is possible on SAPB1.
IF you need to print the Doc. Total in words.
Try this,
->> Open the require PLD.
->> Create 1 Database Field in Page Footer.
for example,
Convert of A/R Invoice Doc.Total in Words.
Table -> OINV - A/R Invoice.
Cloumn -> DocTotal
=>> Goto Properties Window and Select the Font( Showcard Gothic ) at Format Tab.
=>> put the Tick mark in Sum in Words at Format Tab on Properties Window.
Save and Run the Print Preview.
OR
->> Create 1 Formula Field in Page Footer and
->> Copy Doc.Total FieldID in PLD and Paste in Formula Field.
=>> Goto Properties Window and Select the Font( Showcard Gothic ) at Format Tab.
=>> put the Tick mark in Sum in Words at Format Tab on Properties Window.
Save and Run the Print Preview.
Regards,
Madhan.

Issue in payslip calculation.

Hi Experts,
I am facing problem in payslip
new employees who joined in the middle of this months
1) DOJ 5.9.2011 in the slip only Basic calculation showing correctly.
2. DOJ 15.9.2011 in the slip only Basic Calculation showing correctly
In previous month payslip of new employees there is no issue in the calculation. but in this month salary slip except Basic all monthly component i e. HRA, Special .Allwn, Tran,Edu, CAR Allwn are showing wrong calculation .
Note: few days ago we I maintain PCR ZNP1 from INP1, for present days in payslip. is this problem come due to this?
Please guide me..
Regards,
Raj

If you do a Payroll Simulation with the "Display Log" box checked, you will then be able to look at the partial period parameters calculated for that employee (function PARTT).
If you use t-code pe04, enter Payroll Operation AMT, and look at it's documentation > for 6 places operands > for 2nd Variant: Table Fields > for type T tables, you will find the link to the Partial Period Parameters, of which the following is only the first few lines:
Partial Period Parameter for the Partial Period (Operand Prefix T)
Object
    Additional operation documentation
Explanation
    1. Planned working time in accordance with employee's personal work
        schedule with exact reference to basic pay period
        KSOLL : Planned working time measured in calendar days
        ASOLL : Planned working time measured in work days
        SSOLL : Planned working time measured in working hours
    2. Total working time in payroll period in line with employee's work
        schedule with exact reference to basic pay period
        KDIVI : Total working time measured in calendar days
        ADIVI : Total working time measured in working days
... and there are many threads on this site and on the web relating to this issue.

Neg Arrears are seen in payslip

Hi Gurus,
March payroll is run and posted also.In april transfer action is performed for a particular emp in the mid of march.So retro is triggered in april and we are getting 3 payslips for march.one is blank with no values.Other is from 01.03.2009 to 15.03.2009 with the amounts of basic,hra,conveyance and other allowances.One more payslip from 16.03.2009 to 31.03.2009 with the remaining amount.This is due to split in the month of march.
Now the problem is in April payslip the amount calculated for the 16th march to 31st march is populated as negative arrear and is getting deducted from the April earnings.As a result even the emp is present completely for the month of March and April amt got deducted in April and his total earnings are reduced.
Please provide me the solution how to stop this neg arrears to be populated.
Thanks
Sarada

Hi Revathi,
Once again thanks for the reply.
Can u give me your email so that i can send the screen shots of the pay slips of march and april.
So i need to explain the client that when there is master data change and they have to change the 0003IT and do live run of the current payroll.
Before explaining them i have to be clear.
If there is any master data change,the system triggers retro.The same happened here also.There are two payslips for march.
But in April payslip why the same amount paid for second part of march has been deducted from april earnings.
Please explain me clearly if possible.
Regards,
Sharada

Amt in words in payslip

Similar Messages

Maybe you are looking for