Line items in script form

hi,
in my script form i was displaying line items for PO in main window. my problem is, the values of the line items are not displaying in the same line. example:
item             material                 material description                qty.
01                 123456                  adfsgdfhdj
                                                                                1 each
1 each should also in the same line as item, material and material description.
please help.
thanks.

Hi,
This is a typical problem faced in alligning the text and the cause of it is window size.
In the table, please check that you have assigned the correct line type.
Also check the column width in the line type for the column in which the line item is getting displayed.
Also in the texts where you assing the line type, try adjusting the new cell and skip cell settings.
regards,
Gaurav

Similar Messages

  • Printing Line Items in Script without using driver program

    How to print the line items of a internal table in sap script without using driver program? I am not supposed to edit anything in the driver program. Pls help me to solve this problem...

    Hi,
    You can try by creating a new driver program and a new FORM ENDFORM inside that for this purpose.
    Regards,
    Gaurav

  • Spaces in between line items in script

    Hi ,
    In script forms my problem is like this, when iam printing page with 2 line items(line items are in main window) ,
    the totals and subtotals at the bottom are displaying perfectly( sub totals are given in footer window).
    If line items are increased more , than the subtotals part is printing in second page.
    In form here for first line item they are printing some  (16,4,2,1'%') calculations in 4 sub lines,
    For remaining line items there is no calculations(i.e., the loop is entering for calculations but as per one condition
    in print program that calculations are becoming blank , on this reason the space is coming for remaining line items which is not required ).
    Now my requirement is i have to reduce the space between 2nd and 3rd line item. Please help me in this
    Print program
                          TABLE DECLARATION                        *
    TABLES: /ivl/zmb_bealo,    "Bill of Entry Item allocation
            /ivl/zmb_becdat,   "Bill of Entry Company Level Data
            /ivl/zmb_behdr,    "Bill of entry Header
            /ivl/zmb_beitm,    "Bill of Entry item
            /ivl/zmb_beref,    "Reference for Bill of Entry
            /ivl/zcm_codmas,   "Code Master Table
            /ivl/zmb_bndmas,
            /ivl/zmb_tarnt,
            zvincust,
            dd07l,             "R/3 DD: values for the domains
            dd07t,             "DD: Texts for Domain Fixed
            dd07v,             "View on fixed values and domain texts
            t005t,             "Country Names
            kna1,              "Customer Master
            t001,              "Company Codes
            LTAK,
            LTAP,             "Transfer order item    "$05
            VBPA.             "Sales Document Partner "$05
                         SELECTION-SCREEN                         *
    PARAMETERS: tonumber LIKE /ivl/zmb_behdr-zztono OBLIGATORY,
                p_lgnum type lgnum obligatory.
    select-options: s_lgnum for LTAK-lgnum no-display.
                          End Of Selection                        *
    DATA  wrk_bukrs LIKE /ivl/zmb_behdr-bukrs .
    DATA  wrk_mode(8).
    DATA sum_totdty1(75).
    DATA sum_totdty2(75).
    Modification - Changed data type of variable from CHAR to INT
    *ATA count(2)  VALUE 0 .
    DATA : count TYPE i.
                  Internal table declaration                      *
    DATA: BEGIN OF it_behdr OCCURS 0 ,
           docno LIKE /ivl/zmb_behdr-docno,
           bondno LIKE /ivl/zmb_behdr-bondno,
           bonddat LIKE /ivl/zmb_behdr-bonddat,
           docyear LIKE /ivl/zmb_behdr-docyear,
           zzchanumber LIKE /ivl/zmb_behdr-zzchanumber,
           doctype LIKE /ivl/zmb_behdr-doctype,
           vessname LIKE /ivl/zmb_behdr-vessname,
           rotno LIKE /ivl/zmb_behdr-rotno,
           rotdt LIKE /ivl/zmb_behdr-rotdt,
           portship LIKE /ivl/zmb_behdr-portship,
           orgcntry LIKE /ivl/zmb_behdr-orgcntry,
           modtran LIKE /ivl/zmb_behdr-modtran,
           concntry LIKE /ivl/zmb_behdr-concntry,
           impdpsno LIKE /ivl/zmb_behdr-impdpsno,
           impdpdat LIKE /ivl/zmb_behdr-impdpdat,
           zzkunnr LIKE /ivl/zmb_behdr-zzkunnr,
           pdocno LIKE /ivl/zmb_behdr-pdocno,
           pdocyear LIKE /ivl/zmb_behdr-pdocyear,
           arivport LIKE /ivl/zmb_behdr-arivport,
           zztono LIKE /ivl/zmb_behdr-zztono,
           bukrs  LIKE /ivl/zmb_behdr-bukrs,
           linno LIKE  /ivl/zmb_beref-linno,
           ablno  LIKE /ivl/zmb_beref-ablno,
           abldat LIKE /ivl/zmb_beref-abldat,
           loadport LIKE /ivl/zmb_behdr-loadport,
           orgicnty(15),
           conscnty(15),
           portdesc(15),
           portcode LIKE /ivl/zcm_codmas-coddesc,
           coddesc LIKE /ivl/zcm_codmas-coddesc,
           notinum1 LIKE zvincust-notinum1,
    *Begin of modification for change $01
         descs1 like /ivl/zmb_tarnt,
          descs1 LIKE /ivl/zmb_tarnt-descs,
    *End of modification for change $01
           dsirregno LIKE zvincust-dsirregno,
           iecode1 LIKE zvincust-iecode,
           iecode LIKE zvincust-iecode,
           iecdesc(15),
           zzintrst LIKE /ivl/zmb_behdr-zzintrst,
           bondregnno LIKE /ivl/zmb_bndmas-bondregnno,
           bondstadat LIKE /ivl/zmb_bndmas-bondstadat,
           bondenddat LIKE /ivl/zmb_bndmas-bondenddat,
           expdt1 LIKE /ivl/zmb_bndmas-expdt1,
           expdt2 LIKE /ivl/zmb_bndmas-expdt2 ,
           name1  LIKE kna1-name1,
           name2  LIKE kna1-name2,
           ort01  LIKE kna1-ort01,
           pstl2  LIKE kna1-pstl2,
           telfx  LIKE kna1-telfx,
           coname LIKE t005t-landx,
           count(3) TYPE n VALUE 0,
           kunnr  LIKE VBPA-kunnr,
       END OF it_behdr.
    DATA : it_behdr1 LIKE it_behdr OCCURS 0 WITH HEADER LINE.
    DATA : zdocno LIKE it_behdr-docno.
    DATA : BEGIN OF it_bndmas OCCURS 0,
           bondregnno LIKE /ivl/zmb_bndmas-bondregnno,
           bondstadat LIKE /ivl/zmb_bndmas-bondstadat,
           bondenddat LIKE /ivl/zmb_bndmas-bondenddat,
           expdt1 LIKE /ivl/zmb_bndmas-expdt1,
           expdt2 LIKE /ivl/zmb_bndmas-expdt2 ,
    END OF it_bndmas.
    DATA spellamt LIKE spell.
    DATA: BEGIN OF it_beitm OCCURS 0 ,
              cthno  LIKE /ivl/zmb_beitm-cthno,
              matnr  LIKE /ivl/zmb_beitm-matnr,
              matldes LIKE /ivl/zmb_beitm-matldes,
              waers1  LIKE /ivl/zmb_beitm-waers1,
              netpr   LIKE /ivl/zmb_beitm-netpr,
              wkurs1  LIKE /ivl/zmb_beitm-wkurs1,
              wkurs2  LIKE /ivl/zmb_beitm-wkurs2,
              wkurs3  LIKE /ivl/zmb_beitm-wkurs3,
              frgtamt LIKE /ivl/zmb_beitm-frgtamt,
              insuamt LIKE /ivl/zmb_beitm-insuamt,
              agcomm  LIKE /ivl/zmb_beitm-agcomm,
              misschat LIKE /ivl/zmb_beitm-misschar,
              landchar LIKE /ivl/zmb_beitm-landchar,
              totval  LIKE /ivl/zmb_beitm-totval,
              assval  LIKE /ivl/zmb_beitm-assval,
              sysassval LIKE /ivl/zmb_beitm-sysassval,
              menge   LIKE /ivl/zmb_beitm-menge,
              meins   LIKE /ivl/zmb_beitm-meins,
              zzcetno LIKE /ivl/zmb_beitm-zzcetno,
              docno   LIKE /ivl/zmb_beitm-docno,
              doctype LIKE /ivl/zmb_beitm-doctype,
              docyear LIKE /ivl/zmb_beitm-docyear,
              boeitno LIKE /ivl/zmb_beitm-boeitno,
              bcdrt LIKE /ivl/zmb_bealo-bcdrate,
              bcdamt LIKE /ivl/zmb_bealo-bcdvalu,
              acdrt LIKE /ivl/zmb_bealo-acdrate,
              acdamt LIKE /ivl/zmb_bealo-acdvalu,
              sum911 LIKE /ivl/zmb_bealo-acdvalu,
              dutyrat LIKE /ivl/zmb_bedut-dutyrat,
              dutcode LIKE /ivl/zmb_bedut-dutcode,
              dutcodebcd LIKE /ivl/zmb_bedut-dutcode,
              dutcodecvd LIKE /ivl/zmb_bedut-dutcode,
              dutcodesad LIKE /ivl/zmb_bedut-dutcode,
              dutyratbcd LIKE /ivl/zmb_bedut-dutyrat,
              dutyratcvd LIKE /ivl/zmb_bedut-dutyrat,
              dutyratsad LIKE /ivl/zmb_bedut-dutyrat,
              sysvalubcd LIKE /ivl/zmb_bedut-sysvalu,
              sysvalucvd LIKE /ivl/zmb_bedut-sysvalu,
              sysvalusad LIKE /ivl/zmb_bedut-sysvalu,
              cetno LIKE /ivl/zmb_tarnt-cetno,
              descs LIKE /ivl/zmb_tarnt-descs,
              totassval   LIKE  /ivl/zmb_beitm-assval,
              sad LIKE /ivl/zmb_bedut-dutcode  VALUE 'SAD',
              totsysvalubcd   LIKE /ivl/zmb_bedut-sysvalu,
              actvalu LIKE /ivl/zmb_bedut-actvalu,
              zbcdasstot LIKE /ivl/zmb_bedut-sysvalu,
              zdutyratcvd LIKE /ivl/zmb_bedut-sysvalu,
              zpcvdtot LIKE /ivl/zmb_bedut-sysvalu,
              ztotduty LIKE /ivl/zmb_bedut-sysvalu,
              zbatcvdtot LIKE /ivl/zmb_bedut-sysvalu,
              zdutyratsad LIKE /ivl/zmb_bedut-dutyrat,
              zsad LIKE /ivl/zmb_bedut-sysvalu,
              zpsadtot LIKE /ivl/zmb_bedut-sysvalu,
              dutyratcess LIKE /ivl/zmb_bedut-dutyrat, " for cess value $03
              sysvalucess LIKE /ivl/zmb_bedut-sysvalu,  " for cess value $03
              dutyratedc LIKE /ivl/zmb_bedut-dutyrat, " for cess value $03
              sysvaluedc LIKE /ivl/zmb_bedut-sysvalu,  " for cess value $03
              zpcesstot LIKE /ivl/zmb_bedut-sysvalu,
              zpedctot LIKE /ivl/zmb_bedut-sysvalu,
             zpsadtot LIKE /ivl/zmb_bedut-sysvalu,
              dutyrathcs LIKE /ivl/zmb_bedut-dutyrat, " for Higher Ed Cess  $04
              sysvaluhcs LIKE /ivl/zmb_bedut-sysvalu, " for Higher Ed Cess  $04
              zphcstot   LIKE /ivl/zmb_bedut-dutyrat, " for Higher Ed Cess  $04
              dutyrathdc LIKE /ivl/zmb_bedut-dutyrat, " for Higher Ed Cess  $04
              sysvaluhdc LIKE /ivl/zmb_bedut-sysvalu, " for Higher Ed Cess  $04
              zphdctot   LIKE /ivl/zmb_bedut-dutyrat, " for Higher Ed Cess  $04
    END OF it_beitm.
    DATA : BEGIN OF it_zbeitm OCCURS 0,
           cthno  LIKE /ivl/zmb_beitm-cthno,
           zbcdasstot LIKE /ivl/zmb_bedut-sysvalu,
           zdutyratcvd LIKE /ivl/zmb_bedut-sysvalu,
           zpcvdtot LIKE /ivl/zmb_bedut-sysvalu,
           ztotduty LIKE /ivl/zmb_bedut-sysvalu,
           zbatcvdtot LIKE /ivl/zmb_bedut-sysvalu,
           zdutyratsad LIKE /ivl/zmb_bedut-dutyrat,
           zpcesstot LIKE /ivl/zmb_bedut-sysvalu,
           zpedctot LIKE /ivl/zmb_bedut-sysvalu,
           zphcstot  LIKE /ivl/zmb_bedut-sysvalu,                   "$04
           zphdctot LIKE /ivl/zmb_bedut-sysvalu,                    "$04
           zsad LIKE /ivl/zmb_bedut-sysvalu,
           zpsadtot LIKE /ivl/zmb_bedut-sysvalu,
           dutyratcess LIKE /ivl/zmb_bedut-dutyrat, " for cess value $03
           sysvalucess LIKE /ivl/zmb_bedut-sysvalu,  " for cess value $03
           dutyratedc LIKE /ivl/zmb_bedut-dutyrat, " for cess value $03
           sysvaluedc LIKE /ivl/zmb_bedut-sysvalu,  " for cess value $03
           dutyrathcs LIKE /ivl/zmb_bedut-dutyrat, " Higher Ed Cess  $04
           sysvaluhcs LIKE /ivl/zmb_bedut-sysvalu, " Higher Ed Cess  $04
           dutyrathdc LIKE /ivl/zmb_bedut-dutyrat, " Higher Ed Cess  $04
           sysvaluhdc LIKE /ivl/zmb_bedut-sysvalu, " Higher Ed Cess  $04
    END OF it_zbeitm.
    DATA: BEGIN OF it_vbeln occurs 0,                      "$05
           wdno like ltap-vbeln,
    END OF it_vbeln.                                       "$05
    DATA : beitm LIKE it_beitm OCCURS 0 WITH HEADER LINE.
    DATA beitm1 LIKE it_beitm .
    DATA tot_duty LIKE /ivl/zmb_beitm-actdtypyd.
    DATA tot_duty1 LIKE /ivl/zmb_beitm-actdtypyd.
    DATA ind_tot LIKE /ivl/zmb_beitm-actdtypyd.
    DATA inv_tot LIKE /ivl/zmb_beitm-actdtypyd.
    DATA totalbcd  LIKE /ivl/zmb_bedut-sysvalu.
    DATA totalbcd1  LIKE /ivl/zmb_bedut-sysvalu.
    DATA item_duty LIKE /ivl/zmb_beitm-actdtypyd.
    DATA dutyratcvd  LIKE /ivl/zmb_bedut-dutyrat.
    DATA tot_dutysad LIKE /ivl/zmb_beitm-actdtypyd.
    DATA setamt LIKE /ivl/zmb_beitm-actdtypyd.
    DATA setamt1 LIKE /ivl/zmb_beitm-actdtypyd.
    DATA totassval1  LIKE  /ivl/zmb_beitm-assval.
    DATA pagetotal LIKE  /ivl/zmb_beitm-assval.
    DATA pagetotal1 LIKE  /ivl/zmb_beitm-assval.
    DATA pagetotal2 LIKE  /ivl/zmb_beitm-assval.
    DATA it_bedut LIKE /ivl/zmb_bedut OCCURS 0 WITH HEADER LINE.
    DATA dutyratcvd1  LIKE /ivl/zmb_bedut-dutyrat.
    DATA pagetotal11 LIKE  /ivl/zmb_beitm-assval.
    DATA setamt11 LIKE /ivl/zmb_beitm-actdtypyd.
    DATA totalbcd11 LIKE /ivl/zmb_bedut-sysvalu.
    DATA item_duty1 LIKE /ivl/zmb_beitm-actdtypyd.
    DATA cvdtotal LIKE /ivl/zmb_bedut-sysvalu.
    DATA cvdtotal1 LIKE /ivl/zmb_bedut-sysvalu.
    DATA sadtotal LIKE /ivl/zmb_bedut-sysvalu.
    DATA sadtotal1 LIKE /ivl/zmb_bedut-sysvalu.
    DATA netpr1    LIKE   /ivl/zmb_beitm-netpr.
    DATA netpr3    LIKE   /ivl/zmb_beitm-netpr.
    DATA insuamt1  LIKE /ivl/zmb_beitm-insuamt.
    DATA insuamt3  LIKE /ivl/zmb_beitm-insuamt.
    DATA frgtamt2  LIKE /ivl/zmb_beitm-frgtamt.
    DATA frgtamt1  LIKE /ivl/zmb_beitm-frgtamt.
    DATA frgtamt3  LIKE /ivl/zmb_beitm-frgtamt.
    DATA misschar1 LIKE /ivl/zmb_beitm-misschar.
    DATA landchar1 LIKE /ivl/zmb_beitm-landchar.
    DATA missland  LIKE /ivl/zmb_beitm-landchar.
    DATA totvalin1 LIKE /ivl/zmb_beitm-totval.
    DATA imptot  LIKE /ivl/zmb_beitm-sysassval.
    DATA saltot  LIKE /ivl/zmb_beitm-assval.
    DATA subtotduty LIKE /ivl/zmb_beitm-sysassval.
    DATA subamtbas LIKE /ivl/zmb_beitm-sysassval.
    DATA imptot1 LIKE /ivl/zmb_beitm-sysassval.
    DATA saltot1 LIKE /ivl/zmb_beitm-assval.
    DATA misccharge LIKE /ivl/zmb_beitm-misschar.
    DATA netpr2  LIKE   /ivl/zmb_beitm-netpr.
    DATA netpr4  LIKE   /ivl/zmb_beitm-netpr.
    DATA insuamt2   LIKE /ivl/zmb_beitm-insuamt.
    DATA misschar2  LIKE /ivl/zmb_beitm-misschar.
    DATA landchar2  LIKE /ivl/zmb_beitm-landchar.
    DATA totvalin2  LIKE /ivl/zmb_beitm-totval.
    DATA sysvalin2  LIKE /ivl/zmb_beitm-sysassval.
    DATA assvalin2  LIKE /ivl/zmb_beitm-sysassval.
    DATA pbcdtot LIKE  /ivl/zmb_beitm-sysassval.
    DATA passvaltot  LIKE /ivl/zmb_beitm-sysassval.
    DATA bcdasstot LIKE  /ivl/zmb_beitm-sysassval.
    DATA pcvdtot  LIKE  /ivl/zmb_beitm-sysassval.
    DATA totduty  LIKE  /ivl/zmb_beitm-sysassval.
    DATA totduty1  LIKE  /ivl/zmb_beitm-sysassval.
    DATA psadtot LIKE   /ivl/zmb_beitm-sysassval.
    DATA psadtot1 LIKE   /ivl/zmb_beitm-sysassval.
    DATA batcvdtot LIKE /ivl/zmb_beitm-sysassval.
    DATA dutypaid1  LIKE /ivl/zmb_beitm-sysassval.
    DATA dutypaid  LIKE  /ivl/zmb_beitm-sysassval.
    DATA intrs     LIKE  /ivl/zmb_beitm-sysassval.
    DATA var1 LIKE  /ivl/zmb_beitm-sysassval.
    DATA var2 LIKE  /ivl/zmb_beitm-sysassval.
    DATA var3 LIKE  /ivl/zmb_beitm-sysassval.
    DATA var4 LIKE  /ivl/zmb_beitm-sysassval.
    DATA var5 LIKE  /ivl/zmb_beitm-sysassval.
    DATA var6 LIKE  /ivl/zmb_bedut-dutyrat.
    DATA var7 LIKE  /ivl/zmb_bedut-sysvalu.
    DATA var8 LIKE  /ivl/zmb_beitm-sysassval.
    insert on 120704 for education cess  $03
    DATA var9 LIKE  /ivl/zmb_beitm-sysassval. "/ivl/zmb_bedut-dutyrat.
    DATA var10 TYPE p DECIMALS 2.  "ike /ivl/zmb_beitm-sysassval.
    DATA var11 LIKE /ivl/zmb_beitm-sysassval. "/ivl/zmb_bedut-dutyrat.
    DATA var12 LIKE /ivl/zmb_beitm-sysassval.
    DATA var13 TYPE p DECIMALS 2.  "like /ivl/zmb_beitm-sysassval.
    DATA var14 LIKE /ivl/zmb_beitm-sysassval.
    DATA pcestot LIKE  /ivl/zmb_beitm-sysassval.
    DATA pcestot1 LIKE  /ivl/zmb_beitm-sysassval.
    DATA pedctot LIKE  /ivl/zmb_beitm-sysassval.
    DATA pedctot1 LIKE  /ivl/zmb_beitm-sysassval.
    end of insert on 120704 for education cess  $03
    DATA dutyratsad LIKE /ivl/zmb_bedut-dutyrat.
    DATA sysvalusad LIKE /ivl/zmb_bedut-sysvalu.
    DATA sad(4) TYPE c VALUE 'SAD'.
    DATA pgtotal LIKE t001r_bf-amount.
    DATA : var15    like /ivl/zmb_beitm-sysassval,                   "$04
           var16    TYPE p DECIMALS 2,                               "$04
           var17    LIKE /ivl/zmb_beitm-sysassval,                   "$04
           var18    LIKE /ivl/zmb_beitm-sysassval,                   "$04
           var19    TYPE p DECIMALS 2,                               "$04
           var20    LIKE /ivl/zmb_beitm-sysassval,                   "$04
           var21    TYPE p DECIMALS 2,                               "$04
           var22    TYPE p DECIMALS 2,                               "$04
           phcstot  LIKE /ivl/zmb_beitm-sysassval,                   "$04
           phcstot1 LIKE /ivl/zmb_beitm-sysassval,                   "$04
           phdctot  LIKE /ivl/zmb_beitm-sysassval,                   "$04
           phdctot1 LIKE /ivl/zmb_beitm-sysassval.                   "$04
    DATA :   w_cname1 LIKE adrc-name1,
               w_cname2 LIKE adrc-name2,
               w_cname3 LIKE adrc-name3,
               w_cstreet LIKE adrc-street,
               w_chouse_num1 LIKE adrc-house_num1,
               w_cstr_suppl1 LIKE adrc-str_suppl1,
               w_cstr_suppl2 LIKE adrc-str_suppl1,
               w_ccity1 LIKE adrc-city1,
               w_cregion LIKE adrc-region,
               w_ccountry LIKE adrc-country,
               w_cpost_code1 LIKE adrc-post_code1,
               w_cpo_box LIKE adrc-po_box,
               w_ctel_number LIKE adrc-tel_number,
               w_cfax_number LIKE adrc-fax_number,
               w_cname4 LIKE adrc-name1,                              "$05
               w_cname5 LIKE adrc-name2,                              "$05
               w_cname6 LIKE adrc-name3,                              "$05
               w_cstreet1 LIKE adrc-street,                           "$05
               w_chouse_num2 LIKE adrc-house_num1,                    "$05
               w_cstr_suppl3 LIKE adrc-str_suppl1,                    "$05
               w_cstr_suppl4 LIKE adrc-str_suppl1,                    "$05
               w_ccity2 LIKE adrc-city1,                              "$05
               w_cregion1 LIKE adrc-region,                           "$05
               w_ccountry1 LIKE adrc-country,                         "$05
               w_cpost_code2 LIKE adrc-post_code1,                    "$05
               w_cpo_box1 LIKE adrc-po_box,                           "$05
               w_ctel_number1 LIKE adrc-tel_number,                   "$05
               w_cfax_number1 LIKE adrc-fax_number.                   "$05
    DATA : addr LIKE lfa1-adrnr,
           w_ccountry_text LIKE t005t-landx.
    DATA : cthno1 LIKE it_beitm-cthno,
           cthno2 LIKE it_beitm-cthno,
           bonddat1 LIKE sy-datum.
    data:  W_PLADDR     TYPE WISO_PLADDR.
    DATA: w_lgnum    type lgnum.
    AT SELECTION-SCREEN ON VALUE-REQUEST FOR tonumber.
    AT SELECTION-SCREEN.
      clear w_lgnum.
      SELECT single lgnum
             into w_lgnum
             FROM  ltak
             WHERE  lgnum  = p_lgnum
             AND    tanum  = tonumber.
      IF SY-SUBRC <> 0.
        MESSAGE E000 WITH 'Invalid TO number '
                          tonumber
                          ' in warehouse '
                          p_lgnum.
      ENDIF.
                     Start of Selection                                  *
    START-OF-SELECTION .
      perform f_read_address using tonumber.
      PERFORM write_header1.
      PERFORM item_print.
    END-OF-SELECTION.
                     Form  WRITE_HEADER1
    FORM write_header1.
      CLEAR it_behdr.
      REFRESH it_behdr.
      SELECT a~bondno a~bonddat a~docno a~docyear a~zzchanumber a~doctype
                 a~vessname a~rotno a~rotdt a~portship a~orgcntry a~modtran
                    a~rotno a~rotdt a~concntry a~impdpsno a~impdpdat
                    a~concntry  a~zzkunnr a~pdocno a~pdocyear a~arivport
                    a~zztono b~bondregnno b~bondstadat b~bondenddat
                    b~expdt1 b~expdt2 a~loadport a~zzintrst
                    INTO CORRESPONDING FIELDS OF TABLE  it_behdr
                   FROM /ivl/zmb_behdr AS a INNER JOIN /ivl/zmb_bndmas AS b
                   ON a~bondno = b~bondno
                   WHERE zztono = tonumber
                   AND a~bonddat = b~bonddate.
      SORT it_behdr.
      LOOP AT it_behdr.
        SELECT SINGLE adrnr
        INTO addr FROM lfa1
        WHERE sortl = it_behdr-zzchanumber.
        SELECT SINGLE name1 name2 name3 street house_num1 str_suppl1
                      str_suppl2 city1  post_code1
        INTO (w_cname1, w_cname2, w_cname3, w_cstreet,w_chouse_num1,
              w_cstr_suppl1, w_cstr_suppl2, w_ccity1, w_cpost_code1)
        FROM adrc
        WHERE addrnumber = addr.
        SELECT  SINGLE *
        FROM /ivl/zmb_beref
    *Begin of modification for change $02
    WHERE  refdocno = it_behdr-bondno.
        WHERE boerefno =  it_behdr-pdocno AND
              boeyr  =  it_behdr-pdocyear.
    *End of modification for change $02
        IF sy-subrc = 0.
          it_behdr-linno  = /ivl/zmb_beref-linno.
          it_behdr-ablno  =  /ivl/zmb_beref-ablno.
          it_behdr-abldat = /ivl/zmb_beref-abldat.
        ENDIF.
        SELECT SINGLE *
        FROM t005t
        WHERE land1  = /ivl/zmb_behdr-orgcntry
          AND spras  = 'E'.
        IF sy-subrc = 0.
          it_behdr-orgicnty = t005t-landx.
        ENDIF.
        SELECT SINGLE *
        FROM  /ivl/zcm_codmas
        WHERE codtyp = 'PCOD'
          AND code = it_behdr-arivport.
        IF sy-subrc = 0.
          it_behdr-portcode = /ivl/zcm_codmas-coddesc.
        ENDIF.
        SELECT SINGLE *
        FROM /ivl/zcm_codmas
        WHERE code = it_behdr-concntry.
        IF sy-subrc = 0.
          it_behdr-coddesc = /ivl/zcm_codmas-coddesc.
        ENDIF.
        SELECT SINGLE *
        FROM  /ivl/zcm_codmas
        WHERE codtyp  = 'PORT'
          AND code = it_behdr-loadport.
        IF sy-subrc = 0.
          it_behdr-portdesc = /ivl/zcm_codmas-coddesc.
        ENDIF.
        SELECT SINGLE *
        FROM  t005t
        WHERE land1 = it_behdr-concntry.
        IF sy-subrc = 0.
          it_behdr-coname = t005t-landx.
        ENDIF.
        SELECT *
        FROM kna1
        WHERE kunnr = it_behdr-zzkunnr.
          IF sy-subrc = 0.
            it_behdr-name1 = kna1-name1.
            it_behdr-name2 = kna1-name2.
            it_behdr-ort01 = kna1-ort01.
            it_behdr-pstl2 = kna1-pstl2.
            it_behdr-telfx = kna1-telfx.
          ENDIF.
        ENDSELECT.
        SELECT *
        FROM zvincust
        WHERE kunnr = it_behdr-zzkunnr.
          IF sy-subrc = 0.
            it_behdr-notinum1  = zvincust-notinum1.
            it_behdr-dsirregno = zvincust-dsirregno.
            it_behdr-iecode1   = zvincust-iecode.
          ENDIF.
        ENDSELECT.
        SELECT SINGLE *
        FROM /ivl/zmb_tarnt
        WHERE tarntno = it_behdr-notinum1.
        IF sy-subrc = 0.
          it_behdr-notinum1 = /ivl/zmb_tarnt-tarntno.
          it_behdr-descs1 = /ivl/zmb_tarnt-descs.
        ENDIF.
        SELECT iecode
        INTO it_behdr-iecode
        FROM zvincust
        WHERE kunnr = 'IN02'.
        ENDSELECT.
           MODIFY it_behdr TRANSPORTING name1 name2 ort01 pstl2 telfx
               linno ablno abldat coname portdesc portcode
               coddesc notinum1 dsirregno iecode1 conscnty iecode descs1.
           SELECT SINGLE kunnr                                              "$05
                        INTO it_behdr-kunnr
                        FROM VBPA
                        WHERE vbeln = it_vbeln-wdno
                          AND PARVW = 'AG'.                                 "$05
           SELECT SINGLE adrnr                                              "$05
                 INTO  addr FROM Kna1
                 WHERE kunnr = it_behdr-kunnr.                              "$05
           SELECT SINGLE name1 name2 name3 street house_num1 str_suppl1     "$05
                      str_suppl2 city1  post_code1
           INTO (w_cname4, w_cname5, w_cname6, w_cstreet1,w_chouse_num2,
              w_cstr_suppl3, w_cstr_suppl4, w_ccity2, w_cpost_code2)
           FROM adrc
           WHERE addrnumber = addr.                                          "$05
      ENDLOOP.
       SELECT SINGLE   vbeln INTO it_vbeln                  "$05
               FROM     LTAP
               WHERE    tanum = tonumber
               AND      lgnum  = w_lgnum.                 "$05
    ENDFORM.                               " WRITE_HEADER1
                      Form  ITEM_DETAILS
    FORM item_details.
      SELECT *
      FROM /ivl/zmb_bedut
      INTO TABLE it_bedut
      WHERE doctype = it_behdr-doctype
        AND docno   = it_behdr-docno
        AND docyear = it_behdr-docyear.
      SELECT *
      FROM /ivl/zmb_beitm
      INTO CORRESPONDING FIELDS OF it_beitm
      WHERE doctype = it_behdr-doctype
        AND docno   = it_behdr-docno
        AND docyear = it_behdr-docyear.
        LOOP AT it_bedut WHERE doctype = it_beitm-doctype
                           AND docno   = it_beitm-docno
                           AND docyear = it_beitm-docyear
                           AND boeitno = it_beitm-boeitno.
          CASE it_bedut-dutcode.
            WHEN  'BCD'.
              MOVE it_bedut-dutyrat TO it_beitm-dutyratbcd.
              MOVE it_bedut-sysvalu TO it_beitm-sysvalubcd.
            WHEN 'CVD'.
              MOVE it_bedut-dutyrat TO it_beitm-dutyratcvd.
              MOVE it_bedut-sysvalu TO it_beitm-sysvalucvd.
            WHEN 'SAD'.
              MOVE it_bedut-dutyrat TO it_beitm-dutyratsad.
              MOVE it_bedut-sysvalu TO it_beitm-sysvalusad.
    insert on 120704 for education cess $03
            WHEN 'ZCES'. "zces
              MOVE it_bedut-dutyrat TO it_beitm-dutyratcess.
              MOVE it_bedut-sysvalu TO it_beitm-sysvalucess.
            WHEN 'ZEDC'.  "zedc
              MOVE it_bedut-dutyrat TO it_beitm-dutyratedc.
              MOVE it_bedut-sysvalu TO it_beitm-sysvaluedc.
    end of insert on 120704 for education cess $03
            WHEN 'ZHCS'.
              MOVE it_bedut-dutyrat TO it_beitm-dutyrathcs.          "$04
              MOVE it_bedut-sysvalu TO it_beitm-sysvaluhcs.          "$04
            WHEN 'ZHDC'.                                             "$04
              MOVE it_bedut-dutyrat TO it_beitm-dutyrathdc.          "$04
              MOVE it_bedut-sysvalu TO it_beitm-sysvaluhdc.          "$04
           it_beitm-totassval  = it_beitm-totassval + it_beitm-sysvalubcd +
                                                            it_beitm-assval.
      it_beitm-totsysvalubcd = it_beitm-totsysvalubcd + it_beitm-sysvalubcd.
          ENDCASE.
        ENDLOOP.
        APPEND it_beitm.
        CLEAR it_beitm.
      ENDSELECT.
      SORT it_beitm BY cthno.
      MOVE it_beitm TO beitm.
      MOVE it_beitm TO it_zbeitm.
      APPEND it_zbeitm.
      CLEAR it_zbeitm.
    ENDFORM.                               " ITEM_DETAILS
                        Form  BONDNUMBER
    FORM bondnumber.
      READ TABLE it_behdr WITH KEY
           zztono = tonumber
           docno  = zdocno.
      IF sy-subrc = 0.
        MOVE it_behdr TO it_behdr1.
        APPEND it_behdr1.
      ENDIF.
    CLEAR zdocno.
    ENDFORM.                    " BONDNUMBER
                       Form  ITEM_PRINT
    FORM item_print.
      TABLES : itcpo.
      TABLES : itcpp.
      DATA: params   LIKE pri_params,
            arparams LIKE arc_params,
            days(1)  TYPE n VALUE 2,
            valid    TYPE c.
      itcpo-tdpreview = 'X'.
      itcpo-tdnewid   = 'X'.
      itcpo-tdimmed   = 'X'.
      itcpo-tddelete  = 'X'.
      CALL FUNCTION 'OPEN_FORM'
        EXPORTING
          application    = 'TX'
          archive_index  = ' '
          archive_params = '1'
          device         = 'PRINTER'
          dialog         = 'X'
          form           = ' '
          language       = sy-langu
          options        = itcpo
        IMPORTING
          RESULT         = itcpp
        EXCEPTIONS
          OTHERS         = 7.
                      Header IT-table loop--start              *
      LOOP AT it_behdr.
        zdocno = it_behdr-docno.
        CLEAR it_beitm.
        CLEAR it_zbeitm.
        REFRESH it_beitm.
        REFRESH it_zbeitm.
        PERFORM temp_code.
        CLEAR imptot.
        CLEAR subamtbas.
        CLEAR saltot.
        CLEAR subtotduty.
        CALL FUNCTION 'START_FORM'
          EXPORTING
            form     = 'ZSV_GBOE'
            language = sy-langu.
        CALL FUNCTION 'WRITE_FORM'
          EXPORTING
            element  = 'HEAD'
            function = 'SET'
            type     = 'BODY'
            window   = 'HEADER'.
        CLEAR count.
                  Line item loop --start                          *
        LOOP AT it_beitm.
    *The 8 variables r used for the total to be printed             *
    *at the first line of the tariff number                         *
          READ TABLE it_zbeitm WITH  KEY
                cthno = it_beitm-cthno.
          IF sy-subrc = 0.
            var1 = it_zbeitm-zbcdasstot.
            var2 = it_zbeitm-zdutyratcvd .
            var3 = it_zbeitm-zpcvdtot.
            var4 = it_zbeitm-ztotduty.
            var5 = it_zbeitm-zbatcvdtot.
            var6 = it_zbeitm-zdutyratsad.
            var7 = it_zbeitm-zsad.
            var8 = it_zbeitm-zpsadtot.
            sad  = 'SAD'.
    insert on 120704 for education cess     $03
            var9 = it_beitm-dutyratcess.
            var10 = it_zbeitm-zpcesstot.  "sysvalucess.
            var11 = it_beitm-dutyratedc.
            var12 = it_zbeitm-zpedctot.  "sysvaluedc.
           var13 = it_beitm-sysvalubcd + var3 + var10.             $04
           var14 = var4 + var13 + var12.                           $04
    end of insert on 120704 for education cess
            var15 = it_beitm-dutyrathcs.                            "$04
            var16 = it_zbeitm-zphcstot.                             "$04
            var17 = it_beitm-dutyrathdc.                            "$04
            var18 = it_zbeitm-zphdctot.                             "$04
            var13 = it_beitm-sysvalubcd + var3 + var10 + var16.     "$04
            var14 = var4 + var13 + var12 + var18.                   "$04
            var20 = var10 + var16.                                  "$04
            var21 = var12 + var18.                                  "$04
          ENDIF.
          count = count + 1.
          MOVE it_beitm TO beitm.
          beitm-sad = 'SAD'.
                      FOOTER TOTAL.                                  *
          intrs      = intrs      + ( it_beitm-netpr * it_beitm-wkurs1 ).
          netpr1     = netpr1     + it_beitm-netpr.
          frgtamt1   = frgtamt1   + ( it_beitm-frgtamt * it_beitm-wkurs2 ).
          frgtamt3   = frgtamt3   + it_beitm-frgtamt.
          insuamt3   = insuamt3   + it_beitm-insuamt.
          insuamt1   = insuamt1   + ( it_beitm-insuamt * it_beitm-wkurs3 ).
          misschar1  = misschar1  + it_beitm-misschat.
          landchar1  = landchar1  + it_beitm-landchar.
          misccharge = ( frgtamt1 + intrs + insuamt1 ) / 100.
          missland   = ( missland + misschar1 + landchar1 ) - totvalin1.
             Sub Total Cal  at end of each Tariff No.                 *
          imptot    = imptot    + it_beitm-sysassval.
          saltot    = saltot    + it_beitm-assval.
          subamtbas = subamtbas + it_beitm-sysvalubcd.
    To Print the total at every first line of the tariff number(cthno) *
          cthno2 = it_beitm-cthno.
          IF cthno1 = cthno2.
            CLEAR var1.
            CLEAR var2.
            CLEAR var3.
            CLEAR var4.
            CLEAR var5.
            CLEAR beitm-dutyratsad.
            CLEAR var7.
            CLEAR var8.
            CLEAR sad.
    Insert for Education cess
            CLEAR : var9, var10, var11, var12.
    End of insert
            CLEAR : var15, var16, var17, var18, var20, var21.       "$04
            CALL FUNCTION 'WRITE_FORM'
              EXPORTING
                element  = 'BOE_DETAILS'
                function = 'APPEND'
                type     = 'BODY'
                window
                ='MAIN'
              EXCEPTIONS
                OTHERS   = 8.
          ELSE.
         subtotduty = subtotduty + it_zbeitm-ztotduty + it_zbeitm-zpsadtot
          subtotduty = subtotduty + it_zbeitm-ztotduty + it_zbeitm-zpsadtot
                      + it_zbeitm-zpedctot.                       "$04
                        + it_zbeitm-zpedctot + it_zbeitm-zphdctot.  "$04
            CALL FUNCTION 'WRITE_FORM'
              EXPORTING
                element  = 'BOE_DETAILS'
                function = 'APPEND'
                type     = 'BODY'
                window   = 'MAIN'
              EXCEPTIONS
                OTHERS   = 8.
          ENDIF.
          AT END OF cthno.
            CALL FUNCTION 'WRITE_FORM'
              EXPORTING
                element  = 'TOTAL'
                function = 'APPEND'
                type     = 'BODY'
                window   = 'MAIN'
              EXCEPTIONS
                OTHERS   = 8.
          ENDAT.
                            FOR INTEREST                                *
          AT LAST.
            bonddat1 = sy-datum.
            it_behdr-bonddat = it_behdr-bonddat + 90.
            bonddat1 = bonddat1 + 6.                                "$04
            IF it_behdr-zzintrst <> 0.
              CALL FUNCTION 'WRITE_FORM'
                EXPORTING
                  element  = 'INTEREST'
                  function = 'APPEND'
                  type     = 'BODY'
                  window   = 'MAIN'
                EXCEPTIONS
                  OTHERS   = 8.
              subtotduty = subtotduty + it_behdr-zzintrst.
            ENDIF.
          ENDAT.
          CLEAR pbcdtot.
          CLEAR passvaltot.
          CLEAR bcdasstot.
          CLEAR pcvdtot.
          CLEAR totduty.
          CLEAR dutypaid.
          CLEAR batcvdtot.
          CLEAR psadtot.
          dutyratcvd = it_beitm-dutyratcvd.
          pgtotal = subtotduty.
          CALL FUNCTION 'FI_ROUND_AMOUNT'
            EXPORTING
              amount_in  = pgtotal
              company    = '1970'
              currency   = 'INR'
            IMPORTING
              amount_out = pgtotal.
          CALL FUNCTION 'SPELL_AMOUNT'
            EXPORTING
              amount    = pgtotal
              currency  = 'INR'
              filler    = ' '
              language  = sy-langu
            IMPORTING
              in_words  = spellamt
            EXCEPTIONS
              not_found = 1
              too_large = 2
              OTHERS    = 3.
          IF sy-subrc = 0.
            sum_totdty1 = spellamt-word.
           sum_totdty2 = spellamt-DECword.
          ENDIF.
                 To Print only 5 items per page                     *
          IF count >= 5.
            netpr3     = netpr1.
            intrs      = intrs.
            frgtamt2   = frgtamt1.
            insuamt2   = insuamt1.
            misschar2  = missland.
            totvalin2  = totvalin1.
            imptot1    = imptot.
            saltot1    = saltot.
            frgtamt3   = frgtamt3.
            insuamt3   = insuamt3.
            imptot     = imptot .
            saltot     = saltot .
            dutyratcvd = it_beitm-dutyratcvd.
            CALL FUNCTION 'WRITE_FORM'
              EXPORTING
                element   = 'FOOTER'
                window
                ='FOOTER'
              EXCEPTIONS
                OTHERS    = 8.
            CALL FUNCTION 'CONTROL_FORM'
              EXPORTING
                command = 'NEW-PAGE'
              EXCEPTIONS
                OTHERS  = 3.
            CLEAR pagetotal1.
            CLEAR totalbcd1.
            CLEAR item_duty.
            CLEAR dutyratcvd.
            CLEAR setamt1.
            CLEAR cvdtotal1.
            CLEAR pagetotal2.
            CLEAR sadtotal1.
            CLEAR count.
            CLEAR totvalin2.
            CLEAR sysvalin2.
            CLEAR assvalin2.
            CLEAR dutypaid.
            CLEAR cthno2.
          ENDIF.
          CLEAR cthno2.
          cthno1 = it_beitm-cthno.
        ENDLOOP.
                     End of the it_beitm                       *
        netpr3    = netpr1.
        intrs     = intrs.
        frgtamt2  = frgtamt1.
        insuamt2  = insuamt1.
        frgtamt3  = frgtamt3.
        insuamt3  = insuamt3.
        misschar2 = missland.
        totvalin2 = totvalin1.
        imptot1   = imptot.
        saltot1   = saltot.
        CALL FUNCTION 'WRITE_FORM'
          EXPORTING
            element   = 'FOOTER'
            window
            ='FOOTER'
          EXCEPTIONS
            OTHERS    = 8.
                      End of sub-total                         *
        CALL FUNCTION 'END_FORM'.
        CLEAR imptot.
        CLEAR subamtbas.
        CLEAR saltot.
        CLEAR cthno1.
        CLEAR cthno2.
        CLEAR var1.
        CLEAR var2.
        CLEAR var3.
        CLEAR var4.
        CLEAR var5.
        CLEAR beitm-dutyratsad.
        CLEAR var7.
        CLEAR var8.
        CLEAR sad.
        CLEAR dutypaid1.
    *Begin of modification for change $02
        CLEAR: intrs,
        netpr1,
        frgtamt1,
        frgtamt3,
        insuamt3,
        insuamt1,
        misschar1,
        landchar1,
        misccharge,
        missland .
    *End of modification for change $02
               Loop ends for the Header table                 *
      ENDLOOP.
      CALL FUNCTION 'CLOSE_FORM'
        EXCEPTIONS
          unopened                 = 1
          bad_pageformat_for_print = 2
          OTHERS                   = 3.
      CLEAR wrk_mode.
      CLEAR /ivl/zcm_codmas.
      CLEAR t001.
      GET PARAMETER ID 'BUK' FIELD wrk_bukrs.
      it_behdr-bukrs = wrk_bukrs.
      SELECT SINGLE *
      FROM  t001
      WHERE bukrs  = wrk_bukrs.
    ENDFORM.                               " PRINT_BILLOFENTRY
                         Form  temp_code
    FORM temp_code.
      CLEAR it_behdr1.
      REFRESH it_behdr1.
      PERFORM bondnumber.
      PERFORM  item_details.
      LOOP AT it_beitm.
        SELECT SINGLE *
        FROM /ivl/zmb_tarnt
        WHERE tarntno = it_beitm-cthno.
        IF sy-subrc = 0.
          it_beitm-cetno = /ivl/zmb_tarnt-cetno.
          it_beitm-descs = /ivl/zmb_tarnt-descs.
          MODIFY it_beitm TRANSPORTING cetno descs docno doctype.
        ENDIF.
        count = count + 1.
        MOVE it_beitm TO beitm.
        MOVE it_beitm TO it_zbeitm.
        beitm-sad  = 'SAD'.
        pbcdtot    = it_beitm-sysvalubcd + pbcdtot.
        passvaltot = it_beitm-assval + passvaltot.
        psadtot    = it_beitm-sysvalusad + psadtot.
        psadtot1   =  psadtot1 + psadtot.
        bcdasstot  = pbcdtot + passvaltot.
        pcvdtot    = it_beitm-sysvalucvd + pcvdtot.
    insert on 150704
        pcestot    = it_beitm-sysvalucess + pcestot.
        pcestot1   =  pcestot1 + pcestot.
        pedctot  = pedctot + it_beitm-sysvaluedc.
        pedctot1    = pedctot1 + pedctot.
    end of insert on 150704
        phcstot    = it_beitm-sysvaluhcs + phcstot.                  "$04
        phcstot1   =  phcstot1 + phcstot.                            "$04
        phdctot    = phdctot + it_beitm-sysvaluhdc.                  "$04
        phdctot1   = phdctot1 + phdctot.                             "$04
        totduty    = pbcdtot + pcvdtot + pcestot + phcstot.          "$04
        totduty1   = totduty1 + totduty.
        batcvdtot  = bcdasstot + pcvdtot.
        totalbcd   = totalbcd + it_beitm-sysvalubcd.
        totassval1 = totassval1 + it_beitm-assval.
        dutypaid   = totduty + psadtot.
        dutyratcvd = it_beitm-dutyratcvd.
        dutyratsad = it_beitm-dutyratsad.                            "$04
        sysvalusad = it_beitm-zsad.
        AT END OF cthno.
          cvdtotal1            = cvdtotal.
          sadtotal1            = sadtotal.
          pagetotal1           = pagetotal.
          setamt1              = pagetotal1 + cvdtotal1.
          totalbcd1            = totalbcd.
          item_duty            = totalbcd1 + setamt1.
          pagetotal2           = pagetotal1 + cvdtotal1.
          dutypaid1            = dutypaid1 + dutypaid.
          it_beitm-zbcdasstot  = bcdasstot.
          it_beitm-zdutyratcvd = dutyratcvd.
     

    Hi Ali,
    Write IF condition in the script in the correspodant window. Or for that perticular paragram select the check box <b>'No blank lines</b>' in the paragraph format.
    Hope this helps you, reply for queries, Shall post you the updates.
    Regards. 
    Kumar. .

  • How to dispplay line items in script ?

    dear experts,
    i want to display the line items in box, but that box should be dynamic according the number of line items
    thanks in advance.

    Hi Munvar,
    In the print program u have an variable to get the count of the number of line item.
    By repeted testing u display the box according to that
    variable value.
    In the BOX comand ..in the hight addition use that variable as the hight.
    For EG: u have 5 line items, item_count = 5.
            make item_count = item_count * 20 ( hight of the
            box u want)
            In the script  u use
            BOX WIDTH 87 MM HEIGHT &item_count& MM FRAME 1
            TW INTENSITY 0
    Note : The field item_count must be of char ( check it i
           am not sure)
    Regards,
    Santhosh

  • Product Line Items In Opportunity Form

    Hi All,
    I have Product Lookup in Lead form and i Kept Price Lookup also on Lead Form so whenever select Product on Lead Form the Corresponding Default Price List is getting from Product and keeping on Lead Form. So from this Lead Form when i am Qualifying the Lead
    then i am passing Product and Price List information to Opportunity Form by Using Mapping Functionality.
    So what i need is i need to Load Product Line Item Automatically on Opportunity Form as i have already Selected the product on Lead Form.
    Thank You for your quick response.
    K V SambasivaRao

    Hi,
    This is a typical problem faced in alligning the text and the cause of it is window size.
    In the table, please check that you have assigned the correct line type.
    Also check the column width in the line type for the column in which the line item is getting displayed.
    Also in the texts where you assing the line type, try adjusting the new cell and skip cell settings.
    regards,
    Gaurav

  • Multipl line item for single line item in smart form

    Hi
    I have an issue wwith smart form. i Designed a Smarform with main window but each line item have again multilpe line items.Example.My smartform should print like this
    SNO.......Descriptions..................................................................Specifications
    1..............     Pepsi.......................................................................500ML Bottle
    ................................................................................................Rs.20.
    ................................................................................................No sugar COntent
    ................................................................................................Buy one get one free.
    2..............Coke.......................................................................1000ML Bottle
    ...............................................................................................Rs.$10.
    ...............................................................................................Added flavours COntent
    ...............................................................................................Buy one get 2 free.
    IN the above example Sno and Descriptions are from one internal table and Specifcations are form
    other internal table and both the tables are linked with one common field.
    Any inputs please.
    Regards
    Farook
    Edited by: farook shaik on May 15, 2009 11:56 AM

    Hi Farook,
    Either you cam merge in the driver program as said before -this is the best option.
    OR in smartform:
    Create a line type with columns for sno ,descr ,specification.
    Use a DATA TABLE  for the first internal table with the above line type and fill the first 2 columns.
    and a LOOP inside the data table's 3rd column  for specifications with the common field in where condition.
    eg
    first table - DATA TABLE
    HEAD
    MAIN
      |___ linetype
              |-cel1
                  |-Sno-text
              |-cel2
                  |-Descriptions text
              |-cel3-Specifications
                    |__loop for second table  in where condition - match common fields.
                          |-text for Specifications
    FOOTER
    Regards,
    Fonseca DC
    Edited by: Fonseca Christina on May 15, 2009 1:10 PM

  • Need to draw line after the 2nd line item(Smart Forms)

    Dear Friends,
    I need to draw horizontal line after the 2nd line item  and 3rd line item in smart forms.How can i achive this.
    Plz help.
    Edited by: farook shaik on May 19, 2009 8:19 AM

    This is what you need to do:
    1> In the tables->details section define two line types LT1 and LT2.
    2> Come back to tables section pressing the table painter button.
    3> Select a line type for which you want to have an underline(say LT2).
         a] If the anchor cursor does not come click the draw lines and columns button( the pencil icon nutton)
         b] select the line type ( it will become black after selection. Press and hold down ctrl to select
             multiple cells.
         c] after selection click the lower 'frame button' ( which is right at the top of box and shading).
    4> Now goto data section where you have given your internal table name and work area.
         a] in the sort criteria put your field POSNR and check the Event on Sort end chk box.
         b] you will see an extra node under the main area of the table.
         c] Create a table line with the line type LT2 in the node.
         d]Also in the Main area add another table line with LT1 as the line type.
    5> If POSNR remains unchnged LT1 will be triggered.
    6> if Posnr changes then LT2 will be triggered with the underline.
    This will suffice your requirement.

  • Line Item in SapScripts

    Hello Experts,
    I'm trying to printing customer invoice line item in a form. But it is only printing 1st line of the line item.
    I'm trying to print all documents of the table BSEG.
    Please advice if I need any coding in SAP scripts.
    If I need any ABAP coding then please let me know where I should write it.
    My SAPscript code looks like:
    code]
    /E 20  520
    /*     - Line items heading -[
    T1:   &BKPF-BLDAT&,,&BSEG-BELNR&,,&BSEG-SGTXT& ,,,,&BSEG-WRBTR&
    T1:   ,,&RF140-VTEXT',,&RF140-MSATZ&%,,,,&RF140-MWSHB&'&
    T1:  ,,,,,,,,&uline(20)&
    T1:  ,,,,,,,,&RF140-GSALDF&
    [/code]
    Thanks

    Hi Arun,
    I have only modified the table fields.
    The Main window of standard form F140_DOCU_EXC_02 displaying field from tables BSEG, BKPF, RF140, RF140 and has the following code:
    [code]
    /E 520
    /* - Line items heading -
    AS
    UL &uline(71)&
    T1 <k>Doc.No.,,,,Date</>
    UL &uline(71)&
    /E 521
    /* - Line items heading -
    T1 &BSEG-BELNR&,,,,&BKPF-BLDAT&,,&RF140-WAERS&,,&RF140-WRSHB&
    T1 ,,&BSEG-SGTXT&
    T1 &RF140-VTEXT',,&RF140-MSATZ&%,,,,&RF140-WAERS&,,&RF140-MWSHB&'&
    T1 ,,,,,,,,&uline(20)&
    T1 Brutto,,,,,,&RF140-WAERS&,,&RF140-GSALDF&
    [/code]
    And the custom form has the following code:
    [code]
    /E 520
    /* - Line items heading -
    AS
    UL &uline(71)&
    T1 <k>Date,,Invoice. No.,,Text,,,,Amount (NZ$)</>
    UL &uline(71)&
    /E 521
    /* - Line items heading -
    T1 &BKPF-BLDAT&,,&BSEG-BELNR&,,&BSEG-SGTXT& ,,,,&BSEG-WRBTR&
    T1 ,,&RF140-VTEXT',,&RF140-MSATZ&%,,,,&RF140-MWSHB&'&
    T1 ,,,,,,,,&uline(20)&
    T1 ,,,,,,,,&RF140-GSALDF&[
    [/code]

  • Issue with PO change output - Service line items

    Hi All,
    This is issue with PO change output. We have PO with line item 10, 20 and item 10 has 4 service line items. PO is approved and initial print out is taken.
    Some one goes and makes changes to 1st service line items of PO line item 10.
    A change output gets triggered. When this output is printed, it prints line item 10 details. This is standard functionality as this item is changed. But its printing all the service line items for this PO line item. Consider a case where there are 3000 service lines for a PO item. If I add 1 service item to this PO line item, the change form prints 3001 services for that line item. There were no changes done to first 3000 service line items.
    Currently PO change form takes care of changes at PO line item but it does not take care of changes at service line item level.
    Is there any setting that needs to be done for this so that it only considers the changes at Service line item level also.
    Regards,
    Shahu

    If you're using a standard form, send a message to SAP. Otherwise make a change in the form.

  • Display line items of the data into next page in case of overflow

    Hi all,
    In my requirement i am displaying header data with its line items  through smart forms ( Landscape format).Since i am using landscape format main window size is less.Hence, In case of overflow of data
    the line items only should get displayed in the next page without the header information.
    I have given next page as Second page and i kept only  main window in the next page. But still it is displaying header information in the next page in case of overflow of data.
    Thanks in Advance
    Regards,
    Bhanu.R

    Hi Bhanu,
    In this case you can go for any one of the below 2 solutions.
    1) Try to use a seperate window(secondary window) for header information and for line items use main window. In second page use only main window. So, when the data overflows you will get only the line items.
    2) Try to use text elements. Give the header information in one text element say T1 and the line items in another text element say T2. And then write WRITE_FORM for text element T2 in a loop to display the line items.
    Hope this will help you.

  • How to Create multiple line items

    Hi
    I have created a web dynpro application that accesses BAPI_REQUISITION_CREATE to create a requisition. The application so far creates a requisition with only one line item.
    How do I capture details about multiple line items from the user before submitting the form to create the requisition.
    Thanks in advance for your help.
    Sriram

    Hi Sriram,
        Create a form where u enter the requisition details of one line item.Suppose say if u have a button Add another Line Item on click of that fill  a value node say
    RequsitionDetails  of cardinality 0-n and clear the form.If u want u can also show the added item in  a table  below by bindin the data source to RequistionDetails. Now the user can enter another line item in the form.Similarly now he can enter multiple line items.On click of Submit u submit the records in the RequistionDetails node.Add all these records to the table parameter which u r passing.
    BAPI_REQUISITION_CREATE_Input input = new BAPI_REQUISITION_CREATE_Input();
    wdContext.node<<>>.bind(input);
    for(int index=0;index<wdContex.nodeRequsitionDetails().size();index++)
    zTestStruc test = new zTestStruc();
    test.setattr1(wdContex.nodeRequsitionDetails().getRequsitionElementAt(index).getattr1());
    input.add<<>>(test);
    Hope this solves.
    Regards,
    Sowjanya.

  • Can we Default PRICE UNIT value in Line Item Tab?

    Hi Everyone,
    As the PRICE UNIT value of MATERIALS is 1 as default.
    Can anyone suggest me the way to change this default value say to 1000 so that when next time Material is pulled, new default value also pull automatically.
    Thanks in advance
    Rakesh

    Hi,
    Not for Price unit in RFx but we had a similar requirement in Master Agreements wherein we needed to default the ECC Integration fields within predetermined values. We had achieved this via scripting.
    For you purpose, you can use the following:
    Scripting Context: Document Lifecycle Event
    External ID:SAPINT_LineitemValidate
    Class: Rfx Line Item(783)
    Script: import com.frictionless.sap.integration.event.RfxLineItemEventHandler
    Herein you can specify the Pricing Unit = "1000";
    Hope this is of help to you.
    Thanks,
    Vikram Shukla

  • One page for every line item?? how to achieve this?? - urgent !

    Hi  all
    Could anyone tell me how to print the based on line items in smart forms i.e., one line item corresponds to one page in smart forms?
    I have some data to be passed even from other tables except the ones in the line item in all the pages
    I mean to say that i have some commone data to be displayed in all the pages and some fields based on line items.
    Please help me out in this??
    Regards
    Nivetha Selvam.

    Hi
    Transfer a single line (instead of the table) to the smartforms or force a new page after printing one line
    Max

  • Multiple line item display for PAYMENT ADVISE form(script) using F110 tcode

    Dear All,
    I am currently working on PAYMENT ADVISE script ( form ) - for which i have copied the
    form F110_IN_AVIS to zform.
    I am executing the form for output through executing Tcode - F110.
    The output works for single line item entry of vendor line items - but doesnot support
    for muliple line items.
    I have checked the standard program - RFFOUS_C - which has include - RFFORI06 for remittance advice -which supports for single line item display.
    Kindly advise me for the soultion of the same.
    Regards
    HC

    Hi,
    Do you manage to fix it ?
    we experienced the same problems (mass printing smarforms F110), we would like to use one time F110, and generates all the spool, for all the line items.
    Thanks
    Any help would be grateful.
    Thomas

  • Unable to print multiple line items in Z-SAP SCRIPT

    Hi ALL,
    We have a scenario where in we are calling the Driver program (RFKORD50) for Document Extract(F.64), Where in we have attached the Z-Script to the program(RFKORD50),
    Unable to print multiple items.
    1) Checked with all the elements in STD program for printing multiple items in main window but unable to get all the items we are able to fetch only 1 item .
    (&BSEG-BUZEI&,,     &BSEG-SGTXT&,,,,&BSEG-DMBTR&)
    2) I have also tried with external subroutine but it also didnot work.it is fetching the latest value.
    Ex: if we have 3 items say 1,2,3 first 2 items are not getting fetched it is taking 3rd item and printing it straight away(Problem is it is not going to script for fetching the first item).
    see the perform which i have used
    /: PERFORM ITEMS IN PROGRAM ZTFI_ZNV20296
    /:USING &BSEG-BUKRS&
    /:USING &BKPF-BELNR&
    /:USING &BSEG-GJAHR&
    /:CHANGING &V_BUZEI&
    /:CHANGING &V_SGTXT&
    /:CHANGING &V_DMBTR&
    /: ENDPERFORM
    IL  &V_BUZEI&,,     &V_SGTXT&,,,,&V_DMBTR&
    Please suggest me whetther we can call write_form from external subroutine. or is there any loop commands in SAP SCRIPT Form.
    Regards,
    Jana

    Hi!
    The LOOP is always within the printer program. In this case also.
    Just check out the RFKORI35 include, the LOOP begins in the 215th line (in 4.6C).
    SORT HBSEG BY BUKRS SORTP1 SORTP2 SORTP3 SORTP4 SORTP5
                          BELNR GJAHR BUZEI.
            LOOP AT HBSEG.
    *         WHERE BUKRS = SAVE_BUKRS.
              SAVE_BUKRS  = HBSEG-BUKRS.
              IF  ( HBSEG-KUNNR = SAVE_KUNNR
              AND   NOT SAVE_KUNNR IS INITIAL )
              OR  ( HBSEG-LIFNR = SAVE_LIFNR
              AND   NOT SAVE_LIFNR IS INITIAL ).
                CLEAR RF140-ELEMENT.
                RF140-ELEMENT = '521'.
                CALL FUNCTION 'WRITE_FORM'
                         EXPORTING  WINDOW    = 'MAIN'
                                    ELEMENT   = '521'
                         EXCEPTIONS WINDOW    = 1
                                    ELEMENT   = 2.
    You might try out to write your code within the 521 elemnt in the sapscript.
    Regards
    Tamás
    Edited by: Tamás Nyisztor on Jun 12, 2008 3:34 PM

Maybe you are looking for

  • How to show data in table on the basis of click on a row of another table

    Hi All, I want to show two tables. In first table the main objects show in turn there is another collection in that main object for which i want to show data in separate table. e.g., ObjectA   have the collection of ObjectBs when i select ObjectA in

  • Syncing photos Question

    Trying to clean up my photos. I created a folder and put only the photos I want on my iPhone into it. I then connect my 4s to iTunes and go to the photos tab and choose sync selected folder and choose the folder. The problem is all of the photos were

  • WLC 5508 reboots itself after upgrading to 7.5.102.0

    Hello all. We have two WLC 5508 and we upgraded both to software release 7.5.102.0 two weeks ago. We also upgrade the FUS to version 1.7. Since then both WLC reboot randomly once or twice a day with no obvious reason. Is anyone else facing the same i

  • Unwanted Alerts in Adapter Framework

    Hi, We have a scenario where we process 1000's of messages for the same receiving system.  On the receiver adapter we append to one file.  This causes file locking issues when multiple messages attempt to write to the same file.  On the 2nd or 3rd re

  • On eBay bids on my item are supposed to appear in green, they are black, how to change it to green.

    When a person bids on one of my items on eBay, their bid is supposed to appear in green. It appears in black, how can I adjust settings so the bids show as green instead of black.