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?
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. -
hi guyz,
i wanna delete the spaces between the lines in sapscript.....plz advise
regardsHi 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 XueHi,
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 -
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!
LeeThanks 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
-
Database 9i, and Mobile Server install history
Dear Oracle technical representative: This TAR started out as a true request for help in solving installation problems with Oracle 9i Release 2 Enterprise Edition, and Oracle 9i Mobile Server Release 5.0.1, but it has turned into a history of frustra
-
It is not a card or browser issue. I will not call USA from BR. What is the alternative?
-
Missing Datamarts in the Infosource Screen
Hi, I needed to experiment loading from an infocube to another infocube for some re-modeling to be done at the clients side. The problem I am facing is none of the datamart datasources are showing up on the infosources tab. They appear under the BWSy
-
Report Query using a Named Column Report Layout fails to produce PDF
I am testing FOP and the Shared Component Report Queries query with a Named Column Report Layout. The xsl file was built using Stylus Studio and worked fine with the saved XML data file in Stylus Studio. 500 Internal Server Error 500 Internal Server
-
Prior to the upgrade, my list of bookmarks has an icom to the left which made it easier to select the bookmark I was interested in. These are now missing and only the title of the bookmark shows. I run Firefax under MAC OS X Lion