Make letter or space between lines smaller

Hi,
I'm doing a report using WRITES. The thing is that the user wants to decrease the number of pages when printing. So is there any way to make the letter or the space between lines smaller?
Regards,
Roberto

Hi,
I dont think we have size control(Reduction) with WRITE statements.
Thanks,
Vinod.

Similar Messages

  • How do I add space between lines of text in the same cell on Numbers 3.0.1

    I just updated to Mavericks 10.9. In numbers, I used to be able to uncheck a box in the inspector that would make it so the Return key did not move to the next cell, but instead allowed me to add more space between lines of text in the same cell.
    How can I do this in the new version of numbers?

    HI ilb,
    Numbers 3 is a complete rewrite of the application. This preference option hasn't (yet) been included, but N3 is very much a 'work in progress. A word to Apple via Provide Numbers Feedback asking to have this option included in Numbers 3 might be a useful step. You'll find Provide Numbers Feedback in the Numbers menu in Numbers.
    Regards,
    Barry

  • Since changing over to Mountain Lion I discover that I am no longer able to adjust spaces between lines. If I choose spacing of 1.3 after two lines single-spaced, the entire previous lines end up with 1.3 spacing. What am I missing?

    Since changing over to Mountain Lion I discover that I am no longer able to adjust spaces between lines. If I choose spacing of 1.3 after two lines single-spaced, the entire previous lines end up with 1.3 spacing. What am I missing?

    Do those previous lines have a Return/Linefeed after them, or are they just wrapped to a new line?
    What App is it you're using?

  • How do I Dbl. space between lines in a Document?

    How do I dbl. space between lines n a document or E-mail? LOH

    HI ilb,
    Numbers 3 is a complete rewrite of the application. This preference option hasn't (yet) been included, but N3 is very much a 'work in progress. A word to Apple via Provide Numbers Feedback asking to have this option included in Numbers 3 might be a useful step. You'll find Provide Numbers Feedback in the Numbers menu in Numbers.
    Regards,
    Barry

  • How do I reduce the space between lines in a JTextComponent?

    I've searched pretty thoroughly in this forum and can't find an answer.
    My editor displays text fine, but I'm not happy with the space between lines. Is there any way I can reduce the overall height of each line just to close the gap a little?

    Okay, I've got it worked out. I reckon it will work for my purposes although I have yet to test it in my app.
    The trick is to use a negative value for the StyleConstants.setSpaceAbove(spacing2, -5.0f);The code below shows a comparison between a text pane with default spacing values and a text pane with that -5 space above value.
    import java.awt.*;
    import javax.swing.*;
    import javax.swing.text.*;
    public class TestTextPane extends JFrame
    public TestTextPane()
         super("Text Pane Test: LineSpacing");
    JPanel panel = new JPanel();
    setContentPane( panel );
    JTextPane textPane = new JTextPane();
    textPane.setFont( new Font("monospaced", Font.PLAIN, 12) );
    textPane.setText( "abcdefghijklmnop\none\ntwo" );
    SimpleAttributeSet spacing = new SimpleAttributeSet();
    StyleConstants.setLineSpacing(spacing, 0.0f);
    StyleConstants.setFirstLineIndent(spacing, 0.0f);
    StyleConstants.setSpaceAbove(spacing, 0.0f);
    StyleConstants.setSpaceBelow(spacing, 0.0f);
    StyleConstants.setUnderline(spacing, false);
    StyleConstants.setItalic(spacing, false);
    StyleConstants.setBold(spacing, false);
    //this line sets the attributes for the text specified by the first two arguments.
    textPane.getStyledDocument().setParagraphAttributes(0, textPane.getDocument().getLength(), spacing, true);
    JScrollPane scrollPane = new JScrollPane( textPane );
    scrollPane.setPreferredSize( new Dimension( 200, 200 ) );
    //set up the comparison
    JTextPane textPane2 = new JTextPane();
    textPane2.setFont( new Font("monospaced", Font.PLAIN, 12) );
    textPane2.setText( "abcdefghijklmnop\none\ntwo" );
    SimpleAttributeSet spacing2 = new SimpleAttributeSet();
    StyleConstants.setLineSpacing(spacing2, 0.0f);
    StyleConstants.setFirstLineIndent(spacing2, 0.0f);
    StyleConstants.setSpaceAbove(spacing2, -5.0f);
    StyleConstants.setSpaceBelow(spacing2, 0.0f);
    StyleConstants.setUnderline(spacing2, false);
    StyleConstants.setItalic(spacing2, false);
    StyleConstants.setBold(spacing2, false);
    //this line sets the attributes for the text specified by the first two arguments.
    textPane2.getStyledDocument().setParagraphAttributes(0, textPane2.getDocument().getLength(), spacing2, true);
    JScrollPane scrollPane2 = new JScrollPane( textPane2 );
    scrollPane2.setPreferredSize( new Dimension( 200, 200 ) );
    panel.setLayout(new FlowLayout());
    panel.add( scrollPane );
    panel.add( scrollPane2);
    public static void main(String[] args)
    TestTextPane frame = new TestTextPane();
    frame.setDefaultCloseOperation( EXIT_ON_CLOSE );
    frame.pack();
    frame.setVisible(true);
    }

  • How to reduce space between lines in Thunderbird

    newest TB update changed the look of TB with too much space between lines everywhere; would like to change back so to have more lines visible and not as spaced out in height, so I can see more folders and emails at once

    Interesting....as there hasn't been any changes in what you describe.
    Did you use a theme addon or the default theme?
    Check that no addons are interfering with the view.
    so restart in Thunderbird Safe mode.
    Help > Restart with addons disabled.
    If this improves what you are seeing then one of your addons is causing it.
    Process of elimination, disabling one a ta time to see which one it is. Maybe an addon needs to be updated.
    If you changed your screen resolution then it would effect the size of icons on desktop, all windows you open etc. Less dpi size increases the display items.

  • Delete space between lines

    hi guyz,
    i wanna delete the spaces between the lines in sapscript.....plz advise
    regards

    Hi Sudheer,
               I guess you r aware of this syntax: &symbol(Z)& use this it will supress the spaces between and even use this and c &symbol(c)& here symbol is nothing but the string u want to supress.
    try this it works ..
    Regards,
    Sana.
    reward if found helpful..

  • Safari (and Firefox) rendering huge spaces between lines of text.

    I have a Mac user (a designer, a PC guy outside of work) who has somehow managed to screw up the rendering of text in Safari.
    On his Mac in both Safari and Firefox when a couple of lines of text from a website should render as:
    1st line of text.
    2nd line of text.
    Instead render as:
    1st line of text.
    2nd line of text.
    Has anyone else seen this? Considering he also gets to mess around with his fonts since he a) uses suitcase, and b) is a designer, I am thinking he has either messed up his browser fonts, or possibly corrupted some of his system fonts by importing some of the very broken font/type sets which Windows allows to be used.
    Once he takes off for the day I'll be able to figure out for sure what he's done, but in the mean time while he's trying to customize his Porche with a Lada engine I'm searching for similar experiences and solutions.
    Thanks.

    I'm having the same problem with the main apple home page with Safari --extra returns--and it's also happening with Complex HTML message in Entourage (Office 2004)--not all, just messages with tables. The html rendering engine for Entourage, I believe, is Safari. I've updated to the latest versions of Panther and Office and even changed fonts, thrown away preferences. I still have the extra returns.
    Does anyone know if Safari is the html rendering engine for Entourage 2004? I know that Internet Explorer was the engine for Office X.
    Does anyone have a suggestion to fix this?
    Thanks,

  • How to adjust space between table lines in smartform

    Hi experts,
    I created a smartform and use table to display content. But I find the space between 2 table lines is always wider than the space between to text lines. I'm using font 10, 6 lines per inch in the style. Is there any way to adjust the height of table line and make it the same as normal text line? Thanks in advance.
    Best Regards,
    Wu Xue

    Hi,
    we have the option of the adjusting the space between lines in the style.
    Select the style that is applied to Form. Once u double click the paragraph that is assigned. You will be able to tab for Spacing ..
    Change  the Line Spacing ..
    Please close the thread, if solved
    Regards,
    Aditya

  • How Can I Tighten the Space Between Table Rows?

    I am trying to reproduce the resume I created in a different word processing application several years ago. I have created a table that lists all the work for a given employer with each row representing a different employer. I do want a little more space between text rows when I jump from one employer to the next (one row in the table to the next), but not as much as it is creating. Is there a way to tighten this?
    I like the amount of space between lines within a row just as it is.
    Martin
    OS 10.9.5
    Pages v. 5.2 (1860)

    That looks to be the idea, but adjusting the Text Inset is giving me inconsistent results from row to row. The first attached image shows the table (I've included grid lines here to help illustrate) with the default Text Inset of 4 for all cells.
    Note the consistent spacing before and after each row. Here is the same document with a Text Inset of 0 on all cells:
    Note the large gap between the first and second rows (OWN and Investigative etc.) and the extremely tight gap between the second row and third (Investigative etc. and CNBC). Then a big gap, a tight gap, two big gaps, a tight gap and a big in subsequent rows.
    I keep looking to see if I have some sort of other inconsistent formatting going on, but I can't find one. All cells have the Text set (in the style tab) to "Align text to the top of a table cell."
    Martin

  • Please Help!  I have been writing using - Pages - app for years.  I still can not figure out how to make single spaces between paragraphs.  Pages automatically double spaces between paragraphs.

    I have been writing on - Pages- app for several years.  Pages automatically uses double space between paragraphs. I can not figure out how to make single space between paragraphs. Tried everything.  Please help!  

    Pages User Guide >  http://manuals.info.apple.com/en_US/Pages_UserGuide.pdf
    Open the user guide then press Command + F on your keyboard.
    Type line spacing in the search field top right corner of that window.

  • GW dropping spaces between words in long Subject Lines

    It this a known issue with GWIA perhaps?
    On our system (703HP3) at least I can produce the issue by typing a very
    long subject line in the email. I sent a single message to my internal GW
    account and to my internet alias. When I received the email to my internal
    GW account the space was not removed but it was removed in the email sent to
    my internet alias. In the message source the subject is correct. What seems
    to be happening is that any word or text after the 60 character spot removes
    that space between the word or text.
    Has anyone seen this in their environment?
    Thanks!
    Lee

    Thanks Jeff. We are actually experiencing it on the HP4 GWIA as well. If
    it is a simple fix that can be added that would be great! If not I
    understand and I will get the word out to our customers about it being a
    known issue with GroupWise. Please let me know...
    Thanks,
    Lee
    >>> On 10/1/2009 at 11:06 PM, in message
    <[email protected]>,
    jgrubbs<[email protected]> wrote:
    > That is a known issue that was fixed in GroupWise 8. Apparently the
    > fixdid not get pushed back to 7 if you are experiencing it with the
    > sp3GWIA. If it is really important to you, I can request that it be
    > addedto the sp4 codebase.-- Jeff Grubbs
    > Novell Technical Support Engineer II
    >
    [email protected]-----------
    --------------jgrubbs's Profile:
    > http://forums.novell.com/member.php?userid=41638View this thread:
    > http://forums.novell.com/showthread.php?t=387593

  • 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. .

  • Getting a extra space between the line in the PDF output

    I an having the rtf templete contains a table . That table contains 3 row and for the second row i have a for loop start at 1st column and end's at last column . first and 3rd row are the simple data donot have any for loop .
    So in the PDF out put of the templete gives me extra blank line between the data for the 2nd row.
    Example
    1st row ------ Contains data field
    2nd row For Each grouph data fields End for
    3rd row --------- Contains data field
    On the PDF output the data which is in the for loop ( 2nd row ) takes one more extra line ( space ) between the record .

    I an having the rtf templete contains a table . That table contains 3 row and for the second row i have a for loop start at 1st column and end's at last column . first and 3rd row are the simple data donot have any for loop .
    So in the PDF out put of the templete gives me extra blank line between the data for the 2nd row.
    Example
    1st row ------ Contains data field
    2nd row For Each grouph data fields End for
    3rd row --------- Contains data field
    On the PDF output the data which is in the for loop ( 2nd row ) takes one more extra line ( space ) between the record .

  • How can I adjust the space between the dividing line of the footnotes and the continuous text?

    How can I adjust the space between the dividing line of the footnotes and the continuous text?

    I want to extend the space so the dividing line does not stuck to the normal (continuous) text in my thesis. Do you have a solution? That would be perfect. Thanks a lot!

Maybe you are looking for