Purchase order sapscript version number

Hi friends,
I am customizing a medruck sapscript form. One of my requirements is to get the version number on the form when it is changed. Can you tell me what field gives the version number of the form? I tried with 'revno' field but no luck!
Thank you very much,
Krishen

Thanks Ferry. I think this example works for smartform.
Can you guys tell me what is the significance of field 'revno' ? I am guessing that SAP may provide some field for this purpose in sapscript. Is there any simpler way for this purpose?
Thank you very much again.
Message was edited by:
Krishen 81

Similar Messages

Deletion of Purchase Order from Version

Hi,
I want to delete a resource at a factory. I have deleted all planning data related to this resource from live version 000 and Copied version.
When I try to delele resource from the model it gives a message " Res. F313_HAND_RESO, plng ver. ALT_TEST21 has assignments in liveCache - action not possible", which indicates that the resource is still being used in a Purchase Order (PchOrd) which exists in a copied version.
If I use /sapapo/rlcdel to delete these PchOrd from version, message is displayed "No orders exist in LiveCache". I even tried to delete these PchOrd using transaction "/SAPAPO/SDORDER_DEL" (ATP: (SD) - Delete Orders from the Database), but even this program is unable to delete this PchOrd.
Can one of you throw light as to how i can go about deleting this PchOrd from version?
Thanks for your help in advance
Regards
Amod

Try report /SAPAPO/DELETE_PP_ORDER giving the appropriate version and select checkbox Products Planned Externally.
Please note if PO is in active version then this report can not delete it.
In that case you need to deactivate the appripriate Integration Model, run delta Report which should propose delete of the PO in APO.
Hope this helps,
somnath

BAPI_SALESORDER_CREATEFROMDAT2 Purchase order line item number

Hi Freinds,
I have small issue using the function module "BAPI_SALESORDER_CREATEFROMDAT2" , it is creating incomplete sales orders when the Saleorder line item number and POline item number are different.
Example:
If i assign the same value like "000010" for ptb_items-itm_number,ptb_items-po_itm_no it works fine and sales order doesn't have any incomplete log.
but when i have different values like "000010" for ptb_items-itm_number and "000123" for ptb_items-po_itm_no. both the cases all other information is same.
Could anybody helps me to fix this problem so that i can avoid creating incomplete sales orders.
Thanks for the quick reply and help.
Regards,
Praveen

Hello Praveen
The items structure BAPISDITM has a field <b>PO_ITM_NO</b> (Item Number of the Underlying Purchase Order) which most likely links the two numbers together.
Regards
Uwe

Viewing purchase order sapscript

Hai all,
I have make some changes in the MEDRUCK sapcript for purchase order as per client requirement and now I want to see the print preview of my customised sapscript and i have created a purchase order with this output type for print out.
Could any one of you you say how this print out can be seen. Is ME9F is enough to see the print output or whether I have to do something else to see the output.
Thanks in advance,
S.Jenibalet.

Hi Jenibalet,
Goto to the Tcode NACE and assign the the Print program and layout set which you have created.
And then you follow the usual procedure you can get the output of your new Medruck layout.Let me know if you face any further issues.
Regards,
Dinesh

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

Purchase Order SAPscript - Looping problem.

Dear Friends,
I am using a PO Z-form which is a copy of MEDRUCK and print program is Standard SAPLMEDRUCK Program.
I have got a Scenario something like this.
I have to display some classification details of material ( from material master ) in PO.
A material will have 2 or 3 Classes, Each class has got some details.
I have to loop for each class and display the details.
Since I am using Standard Print Program, I Can't Change that.
Is there any workaround method for the above requirement.
Regards,
Hari.

Hi Hari,
There is not need to use that WRITE_FORM FM,
Instead write the PERFORM statement in the window where you need to display the classification values and after immediately give the variables which holds the classification values.
Example
/:PERFORM GET_COMCODE IN PROGRAM ZM_RFQ_REJECTION
/:USING &EKKO-BUKRS&
/:USING &EKKO-SPRAS&
/:CHANGING &SADR-NAME1&
/:CHANGING &SADR-NAME2&
/:CHANGING &SADR-NAME3&
/:CHANGING &SADR-PSTLZ&
/:CHANGING &SADR-NAME4&
/:ENDPERFORM
B &SADR-NAME1&,, &SADR-NAME2&,,&SADR-NAME3&,, &SADR-PSTLZ&,, &SADR-NAME4&
as in above example you pass the Material no in USING field and in CHANGING fields DEFINE variables for classification and pass
Regards
Bala Krishna

Item changed in Purchase Order version

Hi to all,
my customer needs to have the list of items of a purchase order that have changed in a version. I explain: I have a purchase order in version 0 with 10 items, for example. I create version 1 and II change quantity or price or unit of measure or other of 3 of these items. So I need to know if exist a function module with in input version number and in output these 3 items and what changed.
Can you help me please?
Thank you very much
Enrico

There is no company/purchasing/plant specific customizing for purchase order text.
The customizing copying rules for the "Texts for Purchase Orders" affects all equally .
If the text in the purchase order in ME23N is already filled different to other plants, then you either have a modification in place, or the texts are differently maintained in the referenced data (vendor, material, info record, contract)

Purchase order and its item number

Hi everybody,
I have a problem in my selection screen: I want that when I choose purchase order the item number is selected (like in MIGO) but It doesn't works.
SELECTION-SCREEN:BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS :
p_cmd TYPE ekBE-ebeln MATCHCODE OBJECT MEKK MEMORY ID BES,
p_poste TYPE ekbe-ebelp MEMORY ID BSP
SELECTION-SCREEN : END OF BLOCK b1.
Any ideas please.
Thank you

Hi
check in the data sour ce level whether the data is available or not
regards
hari

Re:User exit for number range assignment assignment to purchase order type

Hi All,
Is there any user exit which assign the purchase order type to number range.
Please help.
Regards,
vivek

Hi
Implementing the User exit
MM06E003
Number range and document number
Goto Transaction CMOD , Create a Z - Project proceed as follows:
Choose Create.
Describe the nature of the project by providing a short descriptive text.
Choose Save.
The system then prompts you to assign a change request. This assignment allows you to transport the project and its components into a productive system once you have completed it.
Specify which SAP enhancement packages you want to include in your project by choosing SAP enhancements.
Enter the Enhancement MM06E003.
Click on Components
Docuble Click on the Exit & it will Take you to the Function module . Write your ABAP code in the Include ZXM06U17
Activate the Z - Project
Thanks & Regards
Kishore

Purchase Order Release Report

Hi,
Is there a report that I can run that will give me the following information with regards to Purchase Orders released: PO number, Date Entered, Username, Release Code, Release Date and Released By?
Thank-you in advance.
Regards,
Tracy

Hi,
I think there is no such report as you have to develop the report through abap . With the useage of the tables i.e. EKKO,EKPO and few more you can have all this information..

TC for open purchase orders ?

Dear All,
What r the std.Tcodes to see Pending list of purchase orders in MM ?
Thanks.

Dear Kishore,
Useful TCodes:
ME2A                 Monitor Confirmations
ME2B                 POs by Requirement Tracking Number
ME2C                 Purchase Orders by Material Group
ME2J                 Purchase Orders for Project
ME2K                 Purch. Orders by Account Assignment
ME2L                 Purchase Orders by Vendor
ME2M                 Purchase Orders by Material
ME2N                 Purchase Orders by PO Number
ME2O                 SC Stock Monitoring (Vendor)
ME2S                 Services per Purchase Order
ME2V                 Goods Receipt Forecast
ME2W                 Purchase Orders for Supplying Plant
Regards,
Naveen.

Purchase orders and sales documents

hi what r the transaction codes for purchase orders and sales documents.

Hi Mohan,
ME2C Purchase Orders by Material Group
ME2J Purchase Orders for Project
ME2L Purchase Orders by Vendor
ME2M Purchase Orders by Material
ME2N Purchase Orders by PO Number
ME2W Purchase Orders for Supplying Plant
VA03 Ccreate Sales Order
VA03 Change Sales Order
VA03 Display Sales Order
Regards,
ok

Change Purchase order gives error message ---- making PO to Hold.

Hi SRM gurus,
We are trying to change the PO which is not issued to the vendor or output prepared and getting the following error in the web browser.
"Complete Purchase order &&&&&&&&&& first or Hold the changes".
We are trying to add the street name in the vendor address thru. Header Data ---> Partner Overview ---> Vendor -- details tab.
The "check" gives the following message Purchase order &&&&&& with document number &&&&&& is correct.
Only when we "Order" it the above error arises and we cannot make changes anymore.
Did anybody got this error?
Can anyone suggest on this?
Reg.,
Sridhar.
[email protected]

Hi Sridhar,
Pls Note if you have clicked on the "Order" Tab then the PO is sent to vendor,In that case you can't change it for sent line item and if want to do that then Pls cancel the sent PO first.
Pls revert in case of any problem.
Rewards Points for suitable answer!!

Menu path - for goods receipt for purchase order (MB01)

Hi
What is the menu path for Goods receipt for purchase order (MB01) - ECC6.0

hi
the path is too deep
plz just log in ur system and find MB01
Materials Management > Purchasing > Master Data > Subsequent Settlement > Vendor Rebate Arrangements > Environment > Condition/Arrangement > Environment >Pricing > Environment Value assignment > Inventory management > Goods receipt >For purchase order > MB01 - PO number known
regards
KI

FM / BAPI Inbound delivery creation for a Purchase Order without material

Dear All,
I have a requirement to create a Inbound Delivery for a Purchase order without material number. The Purchase Order has only Material text and no material number. Please let me know a BAPI or FM to create inbound delivery in this case where there is no material defined on PO. I require BAPI / FM since I have to make a web-service for the same.
Thanks in advance!
Abhishek

Hi I did a coding in one of the userexit. If ekpo-matnr is empty then fill
KOMDLGN-UMVKZ = 1
KOMDLGN-UMVKN = 1
KOMDLGN-MEINS = EKPO-MEINS
This parameters i.e. Qty conversion are necessary and since MATNR does not exists it has to be filled.

Purchase order sapscript version number

Similar Messages

Maybe you are looking for