Printing Boxes in sap-script

Question

Hi,
I want to display boxes for line items of a purchase order in the output of a sapscript.I wrote the box command under text-element for display line item.Now
my problem is these boxes should come in output multiple times means how many line items with corresponding line items.
How i'll be able to do this?Please suggest on this.
Thanks
Bprakash Soni

Answer 1

Hi prakash,
FORM SCRIPT .
select single ersda from mara into v_ersda
  WHERE MATNR = IT_MATERIAL-MATNR.
SELECT pstat
        werks
        EKGRP
        PRCTR
        MINLS
        MAXLS INTO  corresponding fields of TABLE IT_SCRIPT FROM
        MARC
        WHERE MATNR = IT_MATERIAL-MATNR.
CALL FUNCTION 'OPEN_FORM'
  EXPORTING
   APPLICATION                       = 'TX'
   ARCHIVE_INDEX                     =
   ARCHIVE_PARAMS                    =
   DEVICE                            = 'PRINTER'
   DIALOG                            = 'X'
    FORM                              = 'ZFINAL_13688'
    LANGUAGE                          = SY-LANGU
  EXCEPTIONS
    CANCELED                          = 1
    DEVICE                            = 2
    FORM                              = 3
    OPTIONS                           = 4
    UNCLOSED                          = 5
    MAIL_OPTIONS                      = 6
    ARCHIVE_ERROR                     = 7
    INVALID_FAX_NUMBER                = 8
    MORE_PARAMS_NEEDED_IN_BATCH       = 9
    SPOOL_ERROR                       = 10
    CODEPAGE                          = 11
    OTHERS                            = 12
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL FUNCTION 'WRITE_FORM'
                    EXPORTING
                      ELEMENT                        = 'TOP'
                    FUNCTION                       = 'SET'
                      TYPE                           = 'TOP'
                      WINDOW                         = 'MAIN'
                    EXCEPTIONS
                      ELEMENT                        = 1
                      FUNCTION                       = 2
                      TYPE                           = 3
                      UNOPENED                       = 4
                      UNSTARTED                      = 5
                      WINDOW                         = 6
                      BAD_PAGEFORMAT_FOR_PRINT       = 7
                      SPOOL_ERROR                    = 8
                      CODEPAGE                       = 9
                      OTHERS                         = 10
                   IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
                   ENDIF.
LOOP AT IT_SCRIPT.
  CALL FUNCTION 'WRITE_FORM'
   EXPORTING
     ELEMENT                        = 'NEW'
    FUNCTION                       = 'SET'
     TYPE                           = 'BODY'
     WINDOW                         = 'MAIN'
   EXCEPTIONS
     ELEMENT                        = 1
     FUNCTION                       = 2
     TYPE                           = 3
     UNOPENED                       = 4
     UNSTARTED                      = 5
     WINDOW                         = 6
     BAD_PAGEFORMAT_FOR_PRINT       = 7
     SPOOL_ERROR                    = 8
     CODEPAGE                       = 9
     OTHERS                         = 10
  IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  ENDLOOP.
CALL FUNCTION 'CLOSE_FORM'
IMPORTING
  RESULT                         =
  RDI_RESULT                     =
TABLES
  OTFDATA                        =
EXCEPTIONS
   UNOPENED                       = 1
   BAD_PAGEFORMAT_FOR_PRINT       = 2
   SEND_ERROR                     = 3
   SPOOL_ERROR                    = 4
   CODEPAGE                       = 5
   OTHERS                         = 6
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
endform.
/E   TOP
   plant,,status,,GROUP,,Profit,,Min.Size,,Max.Size
/:   BOX FRAME 10 TW
/:   BOX YPOS 2 CH HEIGHT 0 CM FRAME 10 TW
/*   BOX XPOS 15 CH WIDTH 0 CM FRAME 10 TW
/*   BOX XPOS 28 CH WIDTH 0 CM FRAME 10 TW
/*   BOX XPOS 35 CH WIDTH 0 CM FRAME 10 TW
/*   BOX XPOS 42 CH WIDTH 0 CM FRAME 10 TW
/*   BOX XPOS 55 CH WIDTH 0 CM FRAME 10 TW
/E   NEW
   &IT_SCRIPT-pstat(C)&,,&IT_SCRIPT-werks(C)&,,
=    &IT_SCRIPT-EKGRP(C)&,,&IT_SCRIPT-PRCTR(C)&,,
=    &IT_SCRIPT-MINLS(C)&,,&IT_SCRIPT-MAXLS(C)&
/:   BOX FRAME 10 TW
/:   BOX YPOS 2 CH HEIGHT 0 CM FRAME 10 TW
/:   BOX YPOS 4 CH HEIGHT 0 CM FRAME 10 TW
/:   BOX XPOS 15 CH WIDTH 0 CM FRAME 10 TW
/:   BOX XPOS 28 CH WIDTH 0 CM FRAME 10 TW
/:   BOX XPOS 35 CH WIDTH 0 CM FRAME 10 TW
/:   BOX XPOS 42 CH WIDTH 0 CM FRAME 10 TW
/:   BOX XPOS 55 CH WIDTH 0 CM FRAME 10 TW
do this in main window.
also write the command
/:   BOX YPOS 2 CH HEIGHT 0 CM FRAME 10 TW
as many times as the no. of line items that can fit in the table by increasinf height of box from to 2 to 4 or 6 ...
hope this helps.
do reward if helpful.
regards,
keerthi.