Line items in script form
hi,
in my script form i was displaying line items for PO in main window. my problem is, the values of the line items are not displaying in the same line. example:
item material material description qty.
01 123456 adfsgdfhdj
1 each
1 each should also in the same line as item, material and material description.
please help.
thanks.
Hi,
This is a typical problem faced in alligning the text and the cause of it is window size.
In the table, please check that you have assigned the correct line type.
Also check the column width in the line type for the column in which the line item is getting displayed.
Also in the texts where you assing the line type, try adjusting the new cell and skip cell settings.
regards,
Gaurav
Similar Messages
-
Printing Line Items in Script without using driver program
How to print the line items of a internal table in sap script without using driver program? I am not supposed to edit anything in the driver program. Pls help me to solve this problem...
Hi,
You can try by creating a new driver program and a new FORM ENDFORM inside that for this purpose.
Regards,
Gaurav -
Spaces in between line items in script
Hi ,
In script forms my problem is like this, when iam printing page with 2 line items(line items are in main window) ,
the totals and subtotals at the bottom are displaying perfectly( sub totals are given in footer window).
If line items are increased more , than the subtotals part is printing in second page.
In form here for first line item they are printing some (16,4,2,1'%') calculations in 4 sub lines,
For remaining line items there is no calculations(i.e., the loop is entering for calculations but as per one condition
in print program that calculations are becoming blank , on this reason the space is coming for remaining line items which is not required ).
Now my requirement is i have to reduce the space between 2nd and 3rd line item. Please help me in this
Print program
TABLE DECLARATION *
TABLES: /ivl/zmb_bealo, "Bill of Entry Item allocation
/ivl/zmb_becdat, "Bill of Entry Company Level Data
/ivl/zmb_behdr, "Bill of entry Header
/ivl/zmb_beitm, "Bill of Entry item
/ivl/zmb_beref, "Reference for Bill of Entry
/ivl/zcm_codmas, "Code Master Table
/ivl/zmb_bndmas,
/ivl/zmb_tarnt,
zvincust,
dd07l, "R/3 DD: values for the domains
dd07t, "DD: Texts for Domain Fixed
dd07v, "View on fixed values and domain texts
t005t, "Country Names
kna1, "Customer Master
t001, "Company Codes
LTAK,
LTAP, "Transfer order item "$05
VBPA. "Sales Document Partner "$05
SELECTION-SCREEN *
PARAMETERS: tonumber LIKE /ivl/zmb_behdr-zztono OBLIGATORY,
p_lgnum type lgnum obligatory.
select-options: s_lgnum for LTAK-lgnum no-display.
End Of Selection *
DATA wrk_bukrs LIKE /ivl/zmb_behdr-bukrs .
DATA wrk_mode(8).
DATA sum_totdty1(75).
DATA sum_totdty2(75).
Modification - Changed data type of variable from CHAR to INT
*ATA count(2) VALUE 0 .
DATA : count TYPE i.
Internal table declaration *
DATA: BEGIN OF it_behdr OCCURS 0 ,
docno LIKE /ivl/zmb_behdr-docno,
bondno LIKE /ivl/zmb_behdr-bondno,
bonddat LIKE /ivl/zmb_behdr-bonddat,
docyear LIKE /ivl/zmb_behdr-docyear,
zzchanumber LIKE /ivl/zmb_behdr-zzchanumber,
doctype LIKE /ivl/zmb_behdr-doctype,
vessname LIKE /ivl/zmb_behdr-vessname,
rotno LIKE /ivl/zmb_behdr-rotno,
rotdt LIKE /ivl/zmb_behdr-rotdt,
portship LIKE /ivl/zmb_behdr-portship,
orgcntry LIKE /ivl/zmb_behdr-orgcntry,
modtran LIKE /ivl/zmb_behdr-modtran,
concntry LIKE /ivl/zmb_behdr-concntry,
impdpsno LIKE /ivl/zmb_behdr-impdpsno,
impdpdat LIKE /ivl/zmb_behdr-impdpdat,
zzkunnr LIKE /ivl/zmb_behdr-zzkunnr,
pdocno LIKE /ivl/zmb_behdr-pdocno,
pdocyear LIKE /ivl/zmb_behdr-pdocyear,
arivport LIKE /ivl/zmb_behdr-arivport,
zztono LIKE /ivl/zmb_behdr-zztono,
bukrs LIKE /ivl/zmb_behdr-bukrs,
linno LIKE /ivl/zmb_beref-linno,
ablno LIKE /ivl/zmb_beref-ablno,
abldat LIKE /ivl/zmb_beref-abldat,
loadport LIKE /ivl/zmb_behdr-loadport,
orgicnty(15),
conscnty(15),
portdesc(15),
portcode LIKE /ivl/zcm_codmas-coddesc,
coddesc LIKE /ivl/zcm_codmas-coddesc,
notinum1 LIKE zvincust-notinum1,
*Begin of modification for change $01
descs1 like /ivl/zmb_tarnt,
descs1 LIKE /ivl/zmb_tarnt-descs,
*End of modification for change $01
dsirregno LIKE zvincust-dsirregno,
iecode1 LIKE zvincust-iecode,
iecode LIKE zvincust-iecode,
iecdesc(15),
zzintrst LIKE /ivl/zmb_behdr-zzintrst,
bondregnno LIKE /ivl/zmb_bndmas-bondregnno,
bondstadat LIKE /ivl/zmb_bndmas-bondstadat,
bondenddat LIKE /ivl/zmb_bndmas-bondenddat,
expdt1 LIKE /ivl/zmb_bndmas-expdt1,
expdt2 LIKE /ivl/zmb_bndmas-expdt2 ,
name1 LIKE kna1-name1,
name2 LIKE kna1-name2,
ort01 LIKE kna1-ort01,
pstl2 LIKE kna1-pstl2,
telfx LIKE kna1-telfx,
coname LIKE t005t-landx,
count(3) TYPE n VALUE 0,
kunnr LIKE VBPA-kunnr,
END OF it_behdr.
DATA : it_behdr1 LIKE it_behdr OCCURS 0 WITH HEADER LINE.
DATA : zdocno LIKE it_behdr-docno.
DATA : BEGIN OF it_bndmas OCCURS 0,
bondregnno LIKE /ivl/zmb_bndmas-bondregnno,
bondstadat LIKE /ivl/zmb_bndmas-bondstadat,
bondenddat LIKE /ivl/zmb_bndmas-bondenddat,
expdt1 LIKE /ivl/zmb_bndmas-expdt1,
expdt2 LIKE /ivl/zmb_bndmas-expdt2 ,
END OF it_bndmas.
DATA spellamt LIKE spell.
DATA: BEGIN OF it_beitm OCCURS 0 ,
cthno LIKE /ivl/zmb_beitm-cthno,
matnr LIKE /ivl/zmb_beitm-matnr,
matldes LIKE /ivl/zmb_beitm-matldes,
waers1 LIKE /ivl/zmb_beitm-waers1,
netpr LIKE /ivl/zmb_beitm-netpr,
wkurs1 LIKE /ivl/zmb_beitm-wkurs1,
wkurs2 LIKE /ivl/zmb_beitm-wkurs2,
wkurs3 LIKE /ivl/zmb_beitm-wkurs3,
frgtamt LIKE /ivl/zmb_beitm-frgtamt,
insuamt LIKE /ivl/zmb_beitm-insuamt,
agcomm LIKE /ivl/zmb_beitm-agcomm,
misschat LIKE /ivl/zmb_beitm-misschar,
landchar LIKE /ivl/zmb_beitm-landchar,
totval LIKE /ivl/zmb_beitm-totval,
assval LIKE /ivl/zmb_beitm-assval,
sysassval LIKE /ivl/zmb_beitm-sysassval,
menge LIKE /ivl/zmb_beitm-menge,
meins LIKE /ivl/zmb_beitm-meins,
zzcetno LIKE /ivl/zmb_beitm-zzcetno,
docno LIKE /ivl/zmb_beitm-docno,
doctype LIKE /ivl/zmb_beitm-doctype,
docyear LIKE /ivl/zmb_beitm-docyear,
boeitno LIKE /ivl/zmb_beitm-boeitno,
bcdrt LIKE /ivl/zmb_bealo-bcdrate,
bcdamt LIKE /ivl/zmb_bealo-bcdvalu,
acdrt LIKE /ivl/zmb_bealo-acdrate,
acdamt LIKE /ivl/zmb_bealo-acdvalu,
sum911 LIKE /ivl/zmb_bealo-acdvalu,
dutyrat LIKE /ivl/zmb_bedut-dutyrat,
dutcode LIKE /ivl/zmb_bedut-dutcode,
dutcodebcd LIKE /ivl/zmb_bedut-dutcode,
dutcodecvd LIKE /ivl/zmb_bedut-dutcode,
dutcodesad LIKE /ivl/zmb_bedut-dutcode,
dutyratbcd LIKE /ivl/zmb_bedut-dutyrat,
dutyratcvd LIKE /ivl/zmb_bedut-dutyrat,
dutyratsad LIKE /ivl/zmb_bedut-dutyrat,
sysvalubcd LIKE /ivl/zmb_bedut-sysvalu,
sysvalucvd LIKE /ivl/zmb_bedut-sysvalu,
sysvalusad LIKE /ivl/zmb_bedut-sysvalu,
cetno LIKE /ivl/zmb_tarnt-cetno,
descs LIKE /ivl/zmb_tarnt-descs,
totassval LIKE /ivl/zmb_beitm-assval,
sad LIKE /ivl/zmb_bedut-dutcode VALUE 'SAD',
totsysvalubcd LIKE /ivl/zmb_bedut-sysvalu,
actvalu LIKE /ivl/zmb_bedut-actvalu,
zbcdasstot LIKE /ivl/zmb_bedut-sysvalu,
zdutyratcvd LIKE /ivl/zmb_bedut-sysvalu,
zpcvdtot LIKE /ivl/zmb_bedut-sysvalu,
ztotduty LIKE /ivl/zmb_bedut-sysvalu,
zbatcvdtot LIKE /ivl/zmb_bedut-sysvalu,
zdutyratsad LIKE /ivl/zmb_bedut-dutyrat,
zsad LIKE /ivl/zmb_bedut-sysvalu,
zpsadtot LIKE /ivl/zmb_bedut-sysvalu,
dutyratcess LIKE /ivl/zmb_bedut-dutyrat, " for cess value $03
sysvalucess LIKE /ivl/zmb_bedut-sysvalu, " for cess value $03
dutyratedc LIKE /ivl/zmb_bedut-dutyrat, " for cess value $03
sysvaluedc LIKE /ivl/zmb_bedut-sysvalu, " for cess value $03
zpcesstot LIKE /ivl/zmb_bedut-sysvalu,
zpedctot LIKE /ivl/zmb_bedut-sysvalu,
zpsadtot LIKE /ivl/zmb_bedut-sysvalu,
dutyrathcs LIKE /ivl/zmb_bedut-dutyrat, " for Higher Ed Cess $04
sysvaluhcs LIKE /ivl/zmb_bedut-sysvalu, " for Higher Ed Cess $04
zphcstot LIKE /ivl/zmb_bedut-dutyrat, " for Higher Ed Cess $04
dutyrathdc LIKE /ivl/zmb_bedut-dutyrat, " for Higher Ed Cess $04
sysvaluhdc LIKE /ivl/zmb_bedut-sysvalu, " for Higher Ed Cess $04
zphdctot LIKE /ivl/zmb_bedut-dutyrat, " for Higher Ed Cess $04
END OF it_beitm.
DATA : BEGIN OF it_zbeitm OCCURS 0,
cthno LIKE /ivl/zmb_beitm-cthno,
zbcdasstot LIKE /ivl/zmb_bedut-sysvalu,
zdutyratcvd LIKE /ivl/zmb_bedut-sysvalu,
zpcvdtot LIKE /ivl/zmb_bedut-sysvalu,
ztotduty LIKE /ivl/zmb_bedut-sysvalu,
zbatcvdtot LIKE /ivl/zmb_bedut-sysvalu,
zdutyratsad LIKE /ivl/zmb_bedut-dutyrat,
zpcesstot LIKE /ivl/zmb_bedut-sysvalu,
zpedctot LIKE /ivl/zmb_bedut-sysvalu,
zphcstot LIKE /ivl/zmb_bedut-sysvalu, "$04
zphdctot LIKE /ivl/zmb_bedut-sysvalu, "$04
zsad LIKE /ivl/zmb_bedut-sysvalu,
zpsadtot LIKE /ivl/zmb_bedut-sysvalu,
dutyratcess LIKE /ivl/zmb_bedut-dutyrat, " for cess value $03
sysvalucess LIKE /ivl/zmb_bedut-sysvalu, " for cess value $03
dutyratedc LIKE /ivl/zmb_bedut-dutyrat, " for cess value $03
sysvaluedc LIKE /ivl/zmb_bedut-sysvalu, " for cess value $03
dutyrathcs LIKE /ivl/zmb_bedut-dutyrat, " Higher Ed Cess $04
sysvaluhcs LIKE /ivl/zmb_bedut-sysvalu, " Higher Ed Cess $04
dutyrathdc LIKE /ivl/zmb_bedut-dutyrat, " Higher Ed Cess $04
sysvaluhdc LIKE /ivl/zmb_bedut-sysvalu, " Higher Ed Cess $04
END OF it_zbeitm.
DATA: BEGIN OF it_vbeln occurs 0, "$05
wdno like ltap-vbeln,
END OF it_vbeln. "$05
DATA : beitm LIKE it_beitm OCCURS 0 WITH HEADER LINE.
DATA beitm1 LIKE it_beitm .
DATA tot_duty LIKE /ivl/zmb_beitm-actdtypyd.
DATA tot_duty1 LIKE /ivl/zmb_beitm-actdtypyd.
DATA ind_tot LIKE /ivl/zmb_beitm-actdtypyd.
DATA inv_tot LIKE /ivl/zmb_beitm-actdtypyd.
DATA totalbcd LIKE /ivl/zmb_bedut-sysvalu.
DATA totalbcd1 LIKE /ivl/zmb_bedut-sysvalu.
DATA item_duty LIKE /ivl/zmb_beitm-actdtypyd.
DATA dutyratcvd LIKE /ivl/zmb_bedut-dutyrat.
DATA tot_dutysad LIKE /ivl/zmb_beitm-actdtypyd.
DATA setamt LIKE /ivl/zmb_beitm-actdtypyd.
DATA setamt1 LIKE /ivl/zmb_beitm-actdtypyd.
DATA totassval1 LIKE /ivl/zmb_beitm-assval.
DATA pagetotal LIKE /ivl/zmb_beitm-assval.
DATA pagetotal1 LIKE /ivl/zmb_beitm-assval.
DATA pagetotal2 LIKE /ivl/zmb_beitm-assval.
DATA it_bedut LIKE /ivl/zmb_bedut OCCURS 0 WITH HEADER LINE.
DATA dutyratcvd1 LIKE /ivl/zmb_bedut-dutyrat.
DATA pagetotal11 LIKE /ivl/zmb_beitm-assval.
DATA setamt11 LIKE /ivl/zmb_beitm-actdtypyd.
DATA totalbcd11 LIKE /ivl/zmb_bedut-sysvalu.
DATA item_duty1 LIKE /ivl/zmb_beitm-actdtypyd.
DATA cvdtotal LIKE /ivl/zmb_bedut-sysvalu.
DATA cvdtotal1 LIKE /ivl/zmb_bedut-sysvalu.
DATA sadtotal LIKE /ivl/zmb_bedut-sysvalu.
DATA sadtotal1 LIKE /ivl/zmb_bedut-sysvalu.
DATA netpr1 LIKE /ivl/zmb_beitm-netpr.
DATA netpr3 LIKE /ivl/zmb_beitm-netpr.
DATA insuamt1 LIKE /ivl/zmb_beitm-insuamt.
DATA insuamt3 LIKE /ivl/zmb_beitm-insuamt.
DATA frgtamt2 LIKE /ivl/zmb_beitm-frgtamt.
DATA frgtamt1 LIKE /ivl/zmb_beitm-frgtamt.
DATA frgtamt3 LIKE /ivl/zmb_beitm-frgtamt.
DATA misschar1 LIKE /ivl/zmb_beitm-misschar.
DATA landchar1 LIKE /ivl/zmb_beitm-landchar.
DATA missland LIKE /ivl/zmb_beitm-landchar.
DATA totvalin1 LIKE /ivl/zmb_beitm-totval.
DATA imptot LIKE /ivl/zmb_beitm-sysassval.
DATA saltot LIKE /ivl/zmb_beitm-assval.
DATA subtotduty LIKE /ivl/zmb_beitm-sysassval.
DATA subamtbas LIKE /ivl/zmb_beitm-sysassval.
DATA imptot1 LIKE /ivl/zmb_beitm-sysassval.
DATA saltot1 LIKE /ivl/zmb_beitm-assval.
DATA misccharge LIKE /ivl/zmb_beitm-misschar.
DATA netpr2 LIKE /ivl/zmb_beitm-netpr.
DATA netpr4 LIKE /ivl/zmb_beitm-netpr.
DATA insuamt2 LIKE /ivl/zmb_beitm-insuamt.
DATA misschar2 LIKE /ivl/zmb_beitm-misschar.
DATA landchar2 LIKE /ivl/zmb_beitm-landchar.
DATA totvalin2 LIKE /ivl/zmb_beitm-totval.
DATA sysvalin2 LIKE /ivl/zmb_beitm-sysassval.
DATA assvalin2 LIKE /ivl/zmb_beitm-sysassval.
DATA pbcdtot LIKE /ivl/zmb_beitm-sysassval.
DATA passvaltot LIKE /ivl/zmb_beitm-sysassval.
DATA bcdasstot LIKE /ivl/zmb_beitm-sysassval.
DATA pcvdtot LIKE /ivl/zmb_beitm-sysassval.
DATA totduty LIKE /ivl/zmb_beitm-sysassval.
DATA totduty1 LIKE /ivl/zmb_beitm-sysassval.
DATA psadtot LIKE /ivl/zmb_beitm-sysassval.
DATA psadtot1 LIKE /ivl/zmb_beitm-sysassval.
DATA batcvdtot LIKE /ivl/zmb_beitm-sysassval.
DATA dutypaid1 LIKE /ivl/zmb_beitm-sysassval.
DATA dutypaid LIKE /ivl/zmb_beitm-sysassval.
DATA intrs LIKE /ivl/zmb_beitm-sysassval.
DATA var1 LIKE /ivl/zmb_beitm-sysassval.
DATA var2 LIKE /ivl/zmb_beitm-sysassval.
DATA var3 LIKE /ivl/zmb_beitm-sysassval.
DATA var4 LIKE /ivl/zmb_beitm-sysassval.
DATA var5 LIKE /ivl/zmb_beitm-sysassval.
DATA var6 LIKE /ivl/zmb_bedut-dutyrat.
DATA var7 LIKE /ivl/zmb_bedut-sysvalu.
DATA var8 LIKE /ivl/zmb_beitm-sysassval.
insert on 120704 for education cess $03
DATA var9 LIKE /ivl/zmb_beitm-sysassval. "/ivl/zmb_bedut-dutyrat.
DATA var10 TYPE p DECIMALS 2. "ike /ivl/zmb_beitm-sysassval.
DATA var11 LIKE /ivl/zmb_beitm-sysassval. "/ivl/zmb_bedut-dutyrat.
DATA var12 LIKE /ivl/zmb_beitm-sysassval.
DATA var13 TYPE p DECIMALS 2. "like /ivl/zmb_beitm-sysassval.
DATA var14 LIKE /ivl/zmb_beitm-sysassval.
DATA pcestot LIKE /ivl/zmb_beitm-sysassval.
DATA pcestot1 LIKE /ivl/zmb_beitm-sysassval.
DATA pedctot LIKE /ivl/zmb_beitm-sysassval.
DATA pedctot1 LIKE /ivl/zmb_beitm-sysassval.
end of insert on 120704 for education cess $03
DATA dutyratsad LIKE /ivl/zmb_bedut-dutyrat.
DATA sysvalusad LIKE /ivl/zmb_bedut-sysvalu.
DATA sad(4) TYPE c VALUE 'SAD'.
DATA pgtotal LIKE t001r_bf-amount.
DATA : var15 like /ivl/zmb_beitm-sysassval, "$04
var16 TYPE p DECIMALS 2, "$04
var17 LIKE /ivl/zmb_beitm-sysassval, "$04
var18 LIKE /ivl/zmb_beitm-sysassval, "$04
var19 TYPE p DECIMALS 2, "$04
var20 LIKE /ivl/zmb_beitm-sysassval, "$04
var21 TYPE p DECIMALS 2, "$04
var22 TYPE p DECIMALS 2, "$04
phcstot LIKE /ivl/zmb_beitm-sysassval, "$04
phcstot1 LIKE /ivl/zmb_beitm-sysassval, "$04
phdctot LIKE /ivl/zmb_beitm-sysassval, "$04
phdctot1 LIKE /ivl/zmb_beitm-sysassval. "$04
DATA : w_cname1 LIKE adrc-name1,
w_cname2 LIKE adrc-name2,
w_cname3 LIKE adrc-name3,
w_cstreet LIKE adrc-street,
w_chouse_num1 LIKE adrc-house_num1,
w_cstr_suppl1 LIKE adrc-str_suppl1,
w_cstr_suppl2 LIKE adrc-str_suppl1,
w_ccity1 LIKE adrc-city1,
w_cregion LIKE adrc-region,
w_ccountry LIKE adrc-country,
w_cpost_code1 LIKE adrc-post_code1,
w_cpo_box LIKE adrc-po_box,
w_ctel_number LIKE adrc-tel_number,
w_cfax_number LIKE adrc-fax_number,
w_cname4 LIKE adrc-name1, "$05
w_cname5 LIKE adrc-name2, "$05
w_cname6 LIKE adrc-name3, "$05
w_cstreet1 LIKE adrc-street, "$05
w_chouse_num2 LIKE adrc-house_num1, "$05
w_cstr_suppl3 LIKE adrc-str_suppl1, "$05
w_cstr_suppl4 LIKE adrc-str_suppl1, "$05
w_ccity2 LIKE adrc-city1, "$05
w_cregion1 LIKE adrc-region, "$05
w_ccountry1 LIKE adrc-country, "$05
w_cpost_code2 LIKE adrc-post_code1, "$05
w_cpo_box1 LIKE adrc-po_box, "$05
w_ctel_number1 LIKE adrc-tel_number, "$05
w_cfax_number1 LIKE adrc-fax_number. "$05
DATA : addr LIKE lfa1-adrnr,
w_ccountry_text LIKE t005t-landx.
DATA : cthno1 LIKE it_beitm-cthno,
cthno2 LIKE it_beitm-cthno,
bonddat1 LIKE sy-datum.
data: W_PLADDR TYPE WISO_PLADDR.
DATA: w_lgnum type lgnum.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR tonumber.
AT SELECTION-SCREEN.
clear w_lgnum.
SELECT single lgnum
into w_lgnum
FROM ltak
WHERE lgnum = p_lgnum
AND tanum = tonumber.
IF SY-SUBRC <> 0.
MESSAGE E000 WITH 'Invalid TO number '
tonumber
' in warehouse '
p_lgnum.
ENDIF.
Start of Selection *
START-OF-SELECTION .
perform f_read_address using tonumber.
PERFORM write_header1.
PERFORM item_print.
END-OF-SELECTION.
Form WRITE_HEADER1
FORM write_header1.
CLEAR it_behdr.
REFRESH it_behdr.
SELECT a~bondno a~bonddat a~docno a~docyear a~zzchanumber a~doctype
a~vessname a~rotno a~rotdt a~portship a~orgcntry a~modtran
a~rotno a~rotdt a~concntry a~impdpsno a~impdpdat
a~concntry a~zzkunnr a~pdocno a~pdocyear a~arivport
a~zztono b~bondregnno b~bondstadat b~bondenddat
b~expdt1 b~expdt2 a~loadport a~zzintrst
INTO CORRESPONDING FIELDS OF TABLE it_behdr
FROM /ivl/zmb_behdr AS a INNER JOIN /ivl/zmb_bndmas AS b
ON a~bondno = b~bondno
WHERE zztono = tonumber
AND a~bonddat = b~bonddate.
SORT it_behdr.
LOOP AT it_behdr.
SELECT SINGLE adrnr
INTO addr FROM lfa1
WHERE sortl = it_behdr-zzchanumber.
SELECT SINGLE name1 name2 name3 street house_num1 str_suppl1
str_suppl2 city1 post_code1
INTO (w_cname1, w_cname2, w_cname3, w_cstreet,w_chouse_num1,
w_cstr_suppl1, w_cstr_suppl2, w_ccity1, w_cpost_code1)
FROM adrc
WHERE addrnumber = addr.
SELECT SINGLE *
FROM /ivl/zmb_beref
*Begin of modification for change $02
WHERE refdocno = it_behdr-bondno.
WHERE boerefno = it_behdr-pdocno AND
boeyr = it_behdr-pdocyear.
*End of modification for change $02
IF sy-subrc = 0.
it_behdr-linno = /ivl/zmb_beref-linno.
it_behdr-ablno = /ivl/zmb_beref-ablno.
it_behdr-abldat = /ivl/zmb_beref-abldat.
ENDIF.
SELECT SINGLE *
FROM t005t
WHERE land1 = /ivl/zmb_behdr-orgcntry
AND spras = 'E'.
IF sy-subrc = 0.
it_behdr-orgicnty = t005t-landx.
ENDIF.
SELECT SINGLE *
FROM /ivl/zcm_codmas
WHERE codtyp = 'PCOD'
AND code = it_behdr-arivport.
IF sy-subrc = 0.
it_behdr-portcode = /ivl/zcm_codmas-coddesc.
ENDIF.
SELECT SINGLE *
FROM /ivl/zcm_codmas
WHERE code = it_behdr-concntry.
IF sy-subrc = 0.
it_behdr-coddesc = /ivl/zcm_codmas-coddesc.
ENDIF.
SELECT SINGLE *
FROM /ivl/zcm_codmas
WHERE codtyp = 'PORT'
AND code = it_behdr-loadport.
IF sy-subrc = 0.
it_behdr-portdesc = /ivl/zcm_codmas-coddesc.
ENDIF.
SELECT SINGLE *
FROM t005t
WHERE land1 = it_behdr-concntry.
IF sy-subrc = 0.
it_behdr-coname = t005t-landx.
ENDIF.
SELECT *
FROM kna1
WHERE kunnr = it_behdr-zzkunnr.
IF sy-subrc = 0.
it_behdr-name1 = kna1-name1.
it_behdr-name2 = kna1-name2.
it_behdr-ort01 = kna1-ort01.
it_behdr-pstl2 = kna1-pstl2.
it_behdr-telfx = kna1-telfx.
ENDIF.
ENDSELECT.
SELECT *
FROM zvincust
WHERE kunnr = it_behdr-zzkunnr.
IF sy-subrc = 0.
it_behdr-notinum1 = zvincust-notinum1.
it_behdr-dsirregno = zvincust-dsirregno.
it_behdr-iecode1 = zvincust-iecode.
ENDIF.
ENDSELECT.
SELECT SINGLE *
FROM /ivl/zmb_tarnt
WHERE tarntno = it_behdr-notinum1.
IF sy-subrc = 0.
it_behdr-notinum1 = /ivl/zmb_tarnt-tarntno.
it_behdr-descs1 = /ivl/zmb_tarnt-descs.
ENDIF.
SELECT iecode
INTO it_behdr-iecode
FROM zvincust
WHERE kunnr = 'IN02'.
ENDSELECT.
MODIFY it_behdr TRANSPORTING name1 name2 ort01 pstl2 telfx
linno ablno abldat coname portdesc portcode
coddesc notinum1 dsirregno iecode1 conscnty iecode descs1.
SELECT SINGLE kunnr "$05
INTO it_behdr-kunnr
FROM VBPA
WHERE vbeln = it_vbeln-wdno
AND PARVW = 'AG'. "$05
SELECT SINGLE adrnr "$05
INTO addr FROM Kna1
WHERE kunnr = it_behdr-kunnr. "$05
SELECT SINGLE name1 name2 name3 street house_num1 str_suppl1 "$05
str_suppl2 city1 post_code1
INTO (w_cname4, w_cname5, w_cname6, w_cstreet1,w_chouse_num2,
w_cstr_suppl3, w_cstr_suppl4, w_ccity2, w_cpost_code2)
FROM adrc
WHERE addrnumber = addr. "$05
ENDLOOP.
SELECT SINGLE vbeln INTO it_vbeln "$05
FROM LTAP
WHERE tanum = tonumber
AND lgnum = w_lgnum. "$05
ENDFORM. " WRITE_HEADER1
Form ITEM_DETAILS
FORM item_details.
SELECT *
FROM /ivl/zmb_bedut
INTO TABLE it_bedut
WHERE doctype = it_behdr-doctype
AND docno = it_behdr-docno
AND docyear = it_behdr-docyear.
SELECT *
FROM /ivl/zmb_beitm
INTO CORRESPONDING FIELDS OF it_beitm
WHERE doctype = it_behdr-doctype
AND docno = it_behdr-docno
AND docyear = it_behdr-docyear.
LOOP AT it_bedut WHERE doctype = it_beitm-doctype
AND docno = it_beitm-docno
AND docyear = it_beitm-docyear
AND boeitno = it_beitm-boeitno.
CASE it_bedut-dutcode.
WHEN 'BCD'.
MOVE it_bedut-dutyrat TO it_beitm-dutyratbcd.
MOVE it_bedut-sysvalu TO it_beitm-sysvalubcd.
WHEN 'CVD'.
MOVE it_bedut-dutyrat TO it_beitm-dutyratcvd.
MOVE it_bedut-sysvalu TO it_beitm-sysvalucvd.
WHEN 'SAD'.
MOVE it_bedut-dutyrat TO it_beitm-dutyratsad.
MOVE it_bedut-sysvalu TO it_beitm-sysvalusad.
insert on 120704 for education cess $03
WHEN 'ZCES'. "zces
MOVE it_bedut-dutyrat TO it_beitm-dutyratcess.
MOVE it_bedut-sysvalu TO it_beitm-sysvalucess.
WHEN 'ZEDC'. "zedc
MOVE it_bedut-dutyrat TO it_beitm-dutyratedc.
MOVE it_bedut-sysvalu TO it_beitm-sysvaluedc.
end of insert on 120704 for education cess $03
WHEN 'ZHCS'.
MOVE it_bedut-dutyrat TO it_beitm-dutyrathcs. "$04
MOVE it_bedut-sysvalu TO it_beitm-sysvaluhcs. "$04
WHEN 'ZHDC'. "$04
MOVE it_bedut-dutyrat TO it_beitm-dutyrathdc. "$04
MOVE it_bedut-sysvalu TO it_beitm-sysvaluhdc. "$04
it_beitm-totassval = it_beitm-totassval + it_beitm-sysvalubcd +
it_beitm-assval.
it_beitm-totsysvalubcd = it_beitm-totsysvalubcd + it_beitm-sysvalubcd.
ENDCASE.
ENDLOOP.
APPEND it_beitm.
CLEAR it_beitm.
ENDSELECT.
SORT it_beitm BY cthno.
MOVE it_beitm TO beitm.
MOVE it_beitm TO it_zbeitm.
APPEND it_zbeitm.
CLEAR it_zbeitm.
ENDFORM. " ITEM_DETAILS
Form BONDNUMBER
FORM bondnumber.
READ TABLE it_behdr WITH KEY
zztono = tonumber
docno = zdocno.
IF sy-subrc = 0.
MOVE it_behdr TO it_behdr1.
APPEND it_behdr1.
ENDIF.
CLEAR zdocno.
ENDFORM. " BONDNUMBER
Form ITEM_PRINT
FORM item_print.
TABLES : itcpo.
TABLES : itcpp.
DATA: params LIKE pri_params,
arparams LIKE arc_params,
days(1) TYPE n VALUE 2,
valid TYPE c.
itcpo-tdpreview = 'X'.
itcpo-tdnewid = 'X'.
itcpo-tdimmed = 'X'.
itcpo-tddelete = 'X'.
CALL FUNCTION 'OPEN_FORM'
EXPORTING
application = 'TX'
archive_index = ' '
archive_params = '1'
device = 'PRINTER'
dialog = 'X'
form = ' '
language = sy-langu
options = itcpo
IMPORTING
RESULT = itcpp
EXCEPTIONS
OTHERS = 7.
Header IT-table loop--start *
LOOP AT it_behdr.
zdocno = it_behdr-docno.
CLEAR it_beitm.
CLEAR it_zbeitm.
REFRESH it_beitm.
REFRESH it_zbeitm.
PERFORM temp_code.
CLEAR imptot.
CLEAR subamtbas.
CLEAR saltot.
CLEAR subtotduty.
CALL FUNCTION 'START_FORM'
EXPORTING
form = 'ZSV_GBOE'
language = sy-langu.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
element = 'HEAD'
function = 'SET'
type = 'BODY'
window = 'HEADER'.
CLEAR count.
Line item loop --start *
LOOP AT it_beitm.
*The 8 variables r used for the total to be printed *
*at the first line of the tariff number *
READ TABLE it_zbeitm WITH KEY
cthno = it_beitm-cthno.
IF sy-subrc = 0.
var1 = it_zbeitm-zbcdasstot.
var2 = it_zbeitm-zdutyratcvd .
var3 = it_zbeitm-zpcvdtot.
var4 = it_zbeitm-ztotduty.
var5 = it_zbeitm-zbatcvdtot.
var6 = it_zbeitm-zdutyratsad.
var7 = it_zbeitm-zsad.
var8 = it_zbeitm-zpsadtot.
sad = 'SAD'.
insert on 120704 for education cess $03
var9 = it_beitm-dutyratcess.
var10 = it_zbeitm-zpcesstot. "sysvalucess.
var11 = it_beitm-dutyratedc.
var12 = it_zbeitm-zpedctot. "sysvaluedc.
var13 = it_beitm-sysvalubcd + var3 + var10. $04
var14 = var4 + var13 + var12. $04
end of insert on 120704 for education cess
var15 = it_beitm-dutyrathcs. "$04
var16 = it_zbeitm-zphcstot. "$04
var17 = it_beitm-dutyrathdc. "$04
var18 = it_zbeitm-zphdctot. "$04
var13 = it_beitm-sysvalubcd + var3 + var10 + var16. "$04
var14 = var4 + var13 + var12 + var18. "$04
var20 = var10 + var16. "$04
var21 = var12 + var18. "$04
ENDIF.
count = count + 1.
MOVE it_beitm TO beitm.
beitm-sad = 'SAD'.
FOOTER TOTAL. *
intrs = intrs + ( it_beitm-netpr * it_beitm-wkurs1 ).
netpr1 = netpr1 + it_beitm-netpr.
frgtamt1 = frgtamt1 + ( it_beitm-frgtamt * it_beitm-wkurs2 ).
frgtamt3 = frgtamt3 + it_beitm-frgtamt.
insuamt3 = insuamt3 + it_beitm-insuamt.
insuamt1 = insuamt1 + ( it_beitm-insuamt * it_beitm-wkurs3 ).
misschar1 = misschar1 + it_beitm-misschat.
landchar1 = landchar1 + it_beitm-landchar.
misccharge = ( frgtamt1 + intrs + insuamt1 ) / 100.
missland = ( missland + misschar1 + landchar1 ) - totvalin1.
Sub Total Cal at end of each Tariff No. *
imptot = imptot + it_beitm-sysassval.
saltot = saltot + it_beitm-assval.
subamtbas = subamtbas + it_beitm-sysvalubcd.
To Print the total at every first line of the tariff number(cthno) *
cthno2 = it_beitm-cthno.
IF cthno1 = cthno2.
CLEAR var1.
CLEAR var2.
CLEAR var3.
CLEAR var4.
CLEAR var5.
CLEAR beitm-dutyratsad.
CLEAR var7.
CLEAR var8.
CLEAR sad.
Insert for Education cess
CLEAR : var9, var10, var11, var12.
End of insert
CLEAR : var15, var16, var17, var18, var20, var21. "$04
CALL FUNCTION 'WRITE_FORM'
EXPORTING
element = 'BOE_DETAILS'
function = 'APPEND'
type = 'BODY'
window
='MAIN'
EXCEPTIONS
OTHERS = 8.
ELSE.
subtotduty = subtotduty + it_zbeitm-ztotduty + it_zbeitm-zpsadtot
subtotduty = subtotduty + it_zbeitm-ztotduty + it_zbeitm-zpsadtot
+ it_zbeitm-zpedctot. "$04
+ it_zbeitm-zpedctot + it_zbeitm-zphdctot. "$04
CALL FUNCTION 'WRITE_FORM'
EXPORTING
element = 'BOE_DETAILS'
function = 'APPEND'
type = 'BODY'
window = 'MAIN'
EXCEPTIONS
OTHERS = 8.
ENDIF.
AT END OF cthno.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
element = 'TOTAL'
function = 'APPEND'
type = 'BODY'
window = 'MAIN'
EXCEPTIONS
OTHERS = 8.
ENDAT.
FOR INTEREST *
AT LAST.
bonddat1 = sy-datum.
it_behdr-bonddat = it_behdr-bonddat + 90.
bonddat1 = bonddat1 + 6. "$04
IF it_behdr-zzintrst <> 0.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
element = 'INTEREST'
function = 'APPEND'
type = 'BODY'
window = 'MAIN'
EXCEPTIONS
OTHERS = 8.
subtotduty = subtotduty + it_behdr-zzintrst.
ENDIF.
ENDAT.
CLEAR pbcdtot.
CLEAR passvaltot.
CLEAR bcdasstot.
CLEAR pcvdtot.
CLEAR totduty.
CLEAR dutypaid.
CLEAR batcvdtot.
CLEAR psadtot.
dutyratcvd = it_beitm-dutyratcvd.
pgtotal = subtotduty.
CALL FUNCTION 'FI_ROUND_AMOUNT'
EXPORTING
amount_in = pgtotal
company = '1970'
currency = 'INR'
IMPORTING
amount_out = pgtotal.
CALL FUNCTION 'SPELL_AMOUNT'
EXPORTING
amount = pgtotal
currency = 'INR'
filler = ' '
language = sy-langu
IMPORTING
in_words = spellamt
EXCEPTIONS
not_found = 1
too_large = 2
OTHERS = 3.
IF sy-subrc = 0.
sum_totdty1 = spellamt-word.
sum_totdty2 = spellamt-DECword.
ENDIF.
To Print only 5 items per page *
IF count >= 5.
netpr3 = netpr1.
intrs = intrs.
frgtamt2 = frgtamt1.
insuamt2 = insuamt1.
misschar2 = missland.
totvalin2 = totvalin1.
imptot1 = imptot.
saltot1 = saltot.
frgtamt3 = frgtamt3.
insuamt3 = insuamt3.
imptot = imptot .
saltot = saltot .
dutyratcvd = it_beitm-dutyratcvd.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
element = 'FOOTER'
window
='FOOTER'
EXCEPTIONS
OTHERS = 8.
CALL FUNCTION 'CONTROL_FORM'
EXPORTING
command = 'NEW-PAGE'
EXCEPTIONS
OTHERS = 3.
CLEAR pagetotal1.
CLEAR totalbcd1.
CLEAR item_duty.
CLEAR dutyratcvd.
CLEAR setamt1.
CLEAR cvdtotal1.
CLEAR pagetotal2.
CLEAR sadtotal1.
CLEAR count.
CLEAR totvalin2.
CLEAR sysvalin2.
CLEAR assvalin2.
CLEAR dutypaid.
CLEAR cthno2.
ENDIF.
CLEAR cthno2.
cthno1 = it_beitm-cthno.
ENDLOOP.
End of the it_beitm *
netpr3 = netpr1.
intrs = intrs.
frgtamt2 = frgtamt1.
insuamt2 = insuamt1.
frgtamt3 = frgtamt3.
insuamt3 = insuamt3.
misschar2 = missland.
totvalin2 = totvalin1.
imptot1 = imptot.
saltot1 = saltot.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
element = 'FOOTER'
window
='FOOTER'
EXCEPTIONS
OTHERS = 8.
End of sub-total *
CALL FUNCTION 'END_FORM'.
CLEAR imptot.
CLEAR subamtbas.
CLEAR saltot.
CLEAR cthno1.
CLEAR cthno2.
CLEAR var1.
CLEAR var2.
CLEAR var3.
CLEAR var4.
CLEAR var5.
CLEAR beitm-dutyratsad.
CLEAR var7.
CLEAR var8.
CLEAR sad.
CLEAR dutypaid1.
*Begin of modification for change $02
CLEAR: intrs,
netpr1,
frgtamt1,
frgtamt3,
insuamt3,
insuamt1,
misschar1,
landchar1,
misccharge,
missland .
*End of modification for change $02
Loop ends for the Header table *
ENDLOOP.
CALL FUNCTION 'CLOSE_FORM'
EXCEPTIONS
unopened = 1
bad_pageformat_for_print = 2
OTHERS = 3.
CLEAR wrk_mode.
CLEAR /ivl/zcm_codmas.
CLEAR t001.
GET PARAMETER ID 'BUK' FIELD wrk_bukrs.
it_behdr-bukrs = wrk_bukrs.
SELECT SINGLE *
FROM t001
WHERE bukrs = wrk_bukrs.
ENDFORM. " PRINT_BILLOFENTRY
Form temp_code
FORM temp_code.
CLEAR it_behdr1.
REFRESH it_behdr1.
PERFORM bondnumber.
PERFORM item_details.
LOOP AT it_beitm.
SELECT SINGLE *
FROM /ivl/zmb_tarnt
WHERE tarntno = it_beitm-cthno.
IF sy-subrc = 0.
it_beitm-cetno = /ivl/zmb_tarnt-cetno.
it_beitm-descs = /ivl/zmb_tarnt-descs.
MODIFY it_beitm TRANSPORTING cetno descs docno doctype.
ENDIF.
count = count + 1.
MOVE it_beitm TO beitm.
MOVE it_beitm TO it_zbeitm.
beitm-sad = 'SAD'.
pbcdtot = it_beitm-sysvalubcd + pbcdtot.
passvaltot = it_beitm-assval + passvaltot.
psadtot = it_beitm-sysvalusad + psadtot.
psadtot1 = psadtot1 + psadtot.
bcdasstot = pbcdtot + passvaltot.
pcvdtot = it_beitm-sysvalucvd + pcvdtot.
insert on 150704
pcestot = it_beitm-sysvalucess + pcestot.
pcestot1 = pcestot1 + pcestot.
pedctot = pedctot + it_beitm-sysvaluedc.
pedctot1 = pedctot1 + pedctot.
end of insert on 150704
phcstot = it_beitm-sysvaluhcs + phcstot. "$04
phcstot1 = phcstot1 + phcstot. "$04
phdctot = phdctot + it_beitm-sysvaluhdc. "$04
phdctot1 = phdctot1 + phdctot. "$04
totduty = pbcdtot + pcvdtot + pcestot + phcstot. "$04
totduty1 = totduty1 + totduty.
batcvdtot = bcdasstot + pcvdtot.
totalbcd = totalbcd + it_beitm-sysvalubcd.
totassval1 = totassval1 + it_beitm-assval.
dutypaid = totduty + psadtot.
dutyratcvd = it_beitm-dutyratcvd.
dutyratsad = it_beitm-dutyratsad. "$04
sysvalusad = it_beitm-zsad.
AT END OF cthno.
cvdtotal1 = cvdtotal.
sadtotal1 = sadtotal.
pagetotal1 = pagetotal.
setamt1 = pagetotal1 + cvdtotal1.
totalbcd1 = totalbcd.
item_duty = totalbcd1 + setamt1.
pagetotal2 = pagetotal1 + cvdtotal1.
dutypaid1 = dutypaid1 + dutypaid.
it_beitm-zbcdasstot = bcdasstot.
it_beitm-zdutyratcvd = dutyratcvd.
Hi Ali,
Write IF condition in the script in the correspodant window. Or for that perticular paragram select the check box <b>'No blank lines</b>' in the paragraph format.
Hope this helps you, reply for queries, Shall post you the updates.
Regards.
Kumar. . -
How to dispplay line items in script ?
dear experts,
i want to display the line items in box, but that box should be dynamic according the number of line items
thanks in advance.Hi Munvar,
In the print program u have an variable to get the count of the number of line item.
By repeted testing u display the box according to that
variable value.
In the BOX comand ..in the hight addition use that variable as the hight.
For EG: u have 5 line items, item_count = 5.
make item_count = item_count * 20 ( hight of the
box u want)
In the script u use
BOX WIDTH 87 MM HEIGHT &item_count& MM FRAME 1
TW INTENSITY 0
Note : The field item_count must be of char ( check it i
am not sure)
Regards,
Santhosh -
Product Line Items In Opportunity Form
Hi All,
I have Product Lookup in Lead form and i Kept Price Lookup also on Lead Form so whenever select Product on Lead Form the Corresponding Default Price List is getting from Product and keeping on Lead Form. So from this Lead Form when i am Qualifying the Lead
then i am passing Product and Price List information to Opportunity Form by Using Mapping Functionality.
So what i need is i need to Load Product Line Item Automatically on Opportunity Form as i have already Selected the product on Lead Form.
Thank You for your quick response.
K V SambasivaRaoHi,
This is a typical problem faced in alligning the text and the cause of it is window size.
In the table, please check that you have assigned the correct line type.
Also check the column width in the line type for the column in which the line item is getting displayed.
Also in the texts where you assing the line type, try adjusting the new cell and skip cell settings.
regards,
Gaurav -
Multipl line item for single line item in smart form
Hi
I have an issue wwith smart form. i Designed a Smarform with main window but each line item have again multilpe line items.Example.My smartform should print like this
SNO.......Descriptions..................................................................Specifications
1.............. Pepsi.......................................................................500ML Bottle
................................................................................................Rs.20.
................................................................................................No sugar COntent
................................................................................................Buy one get one free.
2..............Coke.......................................................................1000ML Bottle
...............................................................................................Rs.$10.
...............................................................................................Added flavours COntent
...............................................................................................Buy one get 2 free.
IN the above example Sno and Descriptions are from one internal table and Specifcations are form
other internal table and both the tables are linked with one common field.
Any inputs please.
Regards
Farook
Edited by: farook shaik on May 15, 2009 11:56 AMHi Farook,
Either you cam merge in the driver program as said before -this is the best option.
OR in smartform:
Create a line type with columns for sno ,descr ,specification.
Use a DATA TABLE for the first internal table with the above line type and fill the first 2 columns.
and a LOOP inside the data table's 3rd column for specifications with the common field in where condition.
eg
first table - DATA TABLE
HEAD
MAIN
|___ linetype
|-cel1
|-Sno-text
|-cel2
|-Descriptions text
|-cel3-Specifications
|__loop for second table in where condition - match common fields.
|-text for Specifications
FOOTER
Regards,
Fonseca DC
Edited by: Fonseca Christina on May 15, 2009 1:10 PM -
Need to draw line after the 2nd line item(Smart Forms)
Dear Friends,
I need to draw horizontal line after the 2nd line item and 3rd line item in smart forms.How can i achive this.
Plz help.
Edited by: farook shaik on May 19, 2009 8:19 AMThis is what you need to do:
1> In the tables->details section define two line types LT1 and LT2.
2> Come back to tables section pressing the table painter button.
3> Select a line type for which you want to have an underline(say LT2).
a] If the anchor cursor does not come click the draw lines and columns button( the pencil icon nutton)
b] select the line type ( it will become black after selection. Press and hold down ctrl to select
multiple cells.
c] after selection click the lower 'frame button' ( which is right at the top of box and shading).
4> Now goto data section where you have given your internal table name and work area.
a] in the sort criteria put your field POSNR and check the Event on Sort end chk box.
b] you will see an extra node under the main area of the table.
c] Create a table line with the line type LT2 in the node.
d]Also in the Main area add another table line with LT1 as the line type.
5> If POSNR remains unchnged LT1 will be triggered.
6> if Posnr changes then LT2 will be triggered with the underline.
This will suffice your requirement. -
Hello Experts,
I'm trying to printing customer invoice line item in a form. But it is only printing 1st line of the line item.
I'm trying to print all documents of the table BSEG.
Please advice if I need any coding in SAP scripts.
If I need any ABAP coding then please let me know where I should write it.
My SAPscript code looks like:
code]
/E 20 520
/* - Line items heading -[
T1: &BKPF-BLDAT&,,&BSEG-BELNR&,,&BSEG-SGTXT& ,,,,&BSEG-WRBTR&
T1: ,,&RF140-VTEXT',,&RF140-MSATZ&%,,,,&RF140-MWSHB&'&
T1: ,,,,,,,,&uline(20)&
T1: ,,,,,,,,&RF140-GSALDF&
[/code]
ThanksHi Arun,
I have only modified the table fields.
The Main window of standard form F140_DOCU_EXC_02 displaying field from tables BSEG, BKPF, RF140, RF140 and has the following code:
[code]
/E 520
/* - Line items heading -
AS
UL &uline(71)&
T1 <k>Doc.No.,,,,Date</>
UL &uline(71)&
/E 521
/* - Line items heading -
T1 &BSEG-BELNR&,,,,&BKPF-BLDAT&,,&RF140-WAERS&,,&RF140-WRSHB&
T1 ,,&BSEG-SGTXT&
T1 &RF140-VTEXT',,&RF140-MSATZ&%,,,,&RF140-WAERS&,,&RF140-MWSHB&'&
T1 ,,,,,,,,&uline(20)&
T1 Brutto,,,,,,&RF140-WAERS&,,&RF140-GSALDF&
[/code]
And the custom form has the following code:
[code]
/E 520
/* - Line items heading -
AS
UL &uline(71)&
T1 <k>Date,,Invoice. No.,,Text,,,,Amount (NZ$)</>
UL &uline(71)&
/E 521
/* - Line items heading -
T1 &BKPF-BLDAT&,,&BSEG-BELNR&,,&BSEG-SGTXT& ,,,,&BSEG-WRBTR&
T1 ,,&RF140-VTEXT',,&RF140-MSATZ&%,,,,&RF140-MWSHB&'&
T1 ,,,,,,,,&uline(20)&
T1 ,,,,,,,,&RF140-GSALDF&[
[/code] -
Issue with PO change output - Service line items
Hi All,
This is issue with PO change output. We have PO with line item 10, 20 and item 10 has 4 service line items. PO is approved and initial print out is taken.
Some one goes and makes changes to 1st service line items of PO line item 10.
A change output gets triggered. When this output is printed, it prints line item 10 details. This is standard functionality as this item is changed. But its printing all the service line items for this PO line item. Consider a case where there are 3000 service lines for a PO item. If I add 1 service item to this PO line item, the change form prints 3001 services for that line item. There were no changes done to first 3000 service line items.
Currently PO change form takes care of changes at PO line item but it does not take care of changes at service line item level.
Is there any setting that needs to be done for this so that it only considers the changes at Service line item level also.
Regards,
ShahuIf you're using a standard form, send a message to SAP. Otherwise make a change in the form.
-
Display line items of the data into next page in case of overflow
Hi all,
In my requirement i am displaying header data with its line items through smart forms ( Landscape format).Since i am using landscape format main window size is less.Hence, In case of overflow of data
the line items only should get displayed in the next page without the header information.
I have given next page as Second page and i kept only main window in the next page. But still it is displaying header information in the next page in case of overflow of data.
Thanks in Advance
Regards,
Bhanu.RHi Bhanu,
In this case you can go for any one of the below 2 solutions.
1) Try to use a seperate window(secondary window) for header information and for line items use main window. In second page use only main window. So, when the data overflows you will get only the line items.
2) Try to use text elements. Give the header information in one text element say T1 and the line items in another text element say T2. And then write WRITE_FORM for text element T2 in a loop to display the line items.
Hope this will help you. -
How to Create multiple line items
Hi
I have created a web dynpro application that accesses BAPI_REQUISITION_CREATE to create a requisition. The application so far creates a requisition with only one line item.
How do I capture details about multiple line items from the user before submitting the form to create the requisition.
Thanks in advance for your help.
SriramHi Sriram,
Create a form where u enter the requisition details of one line item.Suppose say if u have a button Add another Line Item on click of that fill a value node say
RequsitionDetails of cardinality 0-n and clear the form.If u want u can also show the added item in a table below by bindin the data source to RequistionDetails. Now the user can enter another line item in the form.Similarly now he can enter multiple line items.On click of Submit u submit the records in the RequistionDetails node.Add all these records to the table parameter which u r passing.
BAPI_REQUISITION_CREATE_Input input = new BAPI_REQUISITION_CREATE_Input();
wdContext.node<<>>.bind(input);
for(int index=0;index<wdContex.nodeRequsitionDetails().size();index++)
zTestStruc test = new zTestStruc();
test.setattr1(wdContex.nodeRequsitionDetails().getRequsitionElementAt(index).getattr1());
input.add<<>>(test);
Hope this solves.
Regards,
Sowjanya. -
Can we Default PRICE UNIT value in Line Item Tab?
Hi Everyone,
As the PRICE UNIT value of MATERIALS is 1 as default.
Can anyone suggest me the way to change this default value say to 1000 so that when next time Material is pulled, new default value also pull automatically.
Thanks in advance
RakeshHi,
Not for Price unit in RFx but we had a similar requirement in Master Agreements wherein we needed to default the ECC Integration fields within predetermined values. We had achieved this via scripting.
For you purpose, you can use the following:
Scripting Context: Document Lifecycle Event
External ID:SAPINT_LineitemValidate
Class: Rfx Line Item(783)
Script: import com.frictionless.sap.integration.event.RfxLineItemEventHandler
Herein you can specify the Pricing Unit = "1000";
Hope this is of help to you.
Thanks,
Vikram Shukla -
One page for every line item?? how to achieve this?? - urgent !
Hi all
Could anyone tell me how to print the based on line items in smart forms i.e., one line item corresponds to one page in smart forms?
I have some data to be passed even from other tables except the ones in the line item in all the pages
I mean to say that i have some commone data to be displayed in all the pages and some fields based on line items.
Please help me out in this??
Regards
Nivetha Selvam.Hi
Transfer a single line (instead of the table) to the smartforms or force a new page after printing one line
Max -
Multiple line item display for PAYMENT ADVISE form(script) using F110 tcode
Dear All,
I am currently working on PAYMENT ADVISE script ( form ) - for which i have copied the
form F110_IN_AVIS to zform.
I am executing the form for output through executing Tcode - F110.
The output works for single line item entry of vendor line items - but doesnot support
for muliple line items.
I have checked the standard program - RFFOUS_C - which has include - RFFORI06 for remittance advice -which supports for single line item display.
Kindly advise me for the soultion of the same.
Regards
HCHi,
Do you manage to fix it ?
we experienced the same problems (mass printing smarforms F110), we would like to use one time F110, and generates all the spool, for all the line items.
Thanks
Any help would be grateful.
Thomas -
Unable to print multiple line items in Z-SAP SCRIPT
Hi ALL,
We have a scenario where in we are calling the Driver program (RFKORD50) for Document Extract(F.64), Where in we have attached the Z-Script to the program(RFKORD50),
Unable to print multiple items.
1) Checked with all the elements in STD program for printing multiple items in main window but unable to get all the items we are able to fetch only 1 item .
(&BSEG-BUZEI&,, &BSEG-SGTXT&,,,,&BSEG-DMBTR&)
2) I have also tried with external subroutine but it also didnot work.it is fetching the latest value.
Ex: if we have 3 items say 1,2,3 first 2 items are not getting fetched it is taking 3rd item and printing it straight away(Problem is it is not going to script for fetching the first item).
see the perform which i have used
/: PERFORM ITEMS IN PROGRAM ZTFI_ZNV20296
/:USING &BSEG-BUKRS&
/:USING &BKPF-BELNR&
/:USING &BSEG-GJAHR&
/:CHANGING &V_BUZEI&
/:CHANGING &V_SGTXT&
/:CHANGING &V_DMBTR&
/: ENDPERFORM
IL &V_BUZEI&,, &V_SGTXT&,,,,&V_DMBTR&
Please suggest me whetther we can call write_form from external subroutine. or is there any loop commands in SAP SCRIPT Form.
Regards,
JanaHi!
The LOOP is always within the printer program. In this case also.
Just check out the RFKORI35 include, the LOOP begins in the 215th line (in 4.6C).
SORT HBSEG BY BUKRS SORTP1 SORTP2 SORTP3 SORTP4 SORTP5
BELNR GJAHR BUZEI.
LOOP AT HBSEG.
* WHERE BUKRS = SAVE_BUKRS.
SAVE_BUKRS = HBSEG-BUKRS.
IF ( HBSEG-KUNNR = SAVE_KUNNR
AND NOT SAVE_KUNNR IS INITIAL )
OR ( HBSEG-LIFNR = SAVE_LIFNR
AND NOT SAVE_LIFNR IS INITIAL ).
CLEAR RF140-ELEMENT.
RF140-ELEMENT = '521'.
CALL FUNCTION 'WRITE_FORM'
EXPORTING WINDOW = 'MAIN'
ELEMENT = '521'
EXCEPTIONS WINDOW = 1
ELEMENT = 2.
You might try out to write your code within the 521 elemnt in the sapscript.
Regards
Tamás
Edited by: Tamás Nyisztor on Jun 12, 2008 3:34 PM
Maybe you are looking for
-
How to show data in table on the basis of click on a row of another table
Hi All, I want to show two tables. In first table the main objects show in turn there is another collection in that main object for which i want to show data in separate table. e.g., ObjectA have the collection of ObjectBs when i select ObjectA in
-
Trying to clean up my photos. I created a folder and put only the photos I want on my iPhone into it. I then connect my 4s to iTunes and go to the photos tab and choose sync selected folder and choose the folder. The problem is all of the photos were
-
WLC 5508 reboots itself after upgrading to 7.5.102.0
Hello all. We have two WLC 5508 and we upgraded both to software release 7.5.102.0 two weeks ago. We also upgrade the FUS to version 1.7. Since then both WLC reboot randomly once or twice a day with no obvious reason. Is anyone else facing the same i
-
Unwanted Alerts in Adapter Framework
Hi, We have a scenario where we process 1000's of messages for the same receiving system. On the receiver adapter we append to one file. This causes file locking issues when multiple messages attempt to write to the same file. On the 2nd or 3rd re
-
When a person bids on one of my items on eBay, their bid is supposed to appear in green. It appears in black, how can I adjust settings so the bids show as green instead of black.