SAP Script .........Need Example
Hii Guyz..
Can anybody tell me how to print line items one by one from internal table into SAP script....
eg.
No. name quant..
1 xyz 5
2 sdf 7
etc.
/E ITEM -
Start of Text Element
/: TOP
/: POSITION WINDOW
/: BOX WIDTH '185' MM HEIGHT '10' MM FRAME 10 TW
P3 ,,Qty,,Description/Invoice for Customs,,Product Ref/Serial No.,,Unit
Price,,Net Amount,,Vat Rate
/: IF &PAGE& = '1'
/: BOX YPOS '10' MM WIDTH '185' MM HEIGHT '97' MM FRAME 10 TW
/: ELSE
/: BOX YPOS '10' MM WIDTH '185' MM HEIGHT '220' MM FRAME 10 TW
/: ENDIF
/: ENDTOP
/: BOTTOM
/* IF &W_FLAG8& = ''
P7 ,,,,,,,,,,,,,,,,,,,,,,,,Transactions continue on Page &NEXTPAGE&
/* ENDIF
/: ENDBOTTOM
/: PROTECT
M1 ,,&w_vbrp-fkimg1&,,&w_vbrp-arktx&,,&w_vbrp-matnr&,,&W_VBRp-KZWI2&,,
the above logic has to be written in a SAPSCRIPT Form and below u have to write in the calling program
LOOP...
CALL FUNCTION 'WRITE_FORM'
EXPORTING
element = 'ITEM'
window = 'MAIN'.
ENDLOOP.
Make sure u use Main Window for printing it.
Message was edited by:
Utsah Garg
Similar Messages
-
SAP Script need to display main window two times on single page.
Hello Guru's,
So here is my requirement, we need to print check. We are using F110_PRENUM_CHCK and linked with driver prog RFFOUS_C. We have Letter size paper with three sections,
1. Check
2. Voucher Section (containing table of element 515, 525 and 530) 515: Heading, 525 : Regup-Belnr, Regup-XBLNR, Regud-Wrbtr.
530: Regup-SGTXT
3. Voucher Section (As a receipt for bank itself) : contains same data as 2nd section.
I tried several things reading all the previous post over here in SDN.
1. Created Z form created two instances of main window it results just single display of table (voucher section) in section two and not in third.
2. I also tried pasting two times same code in single main window which gives only last item line for the table.
3. Created z driver program made changes in Write_form added control form for element 515 that does results in showing element 515 on both the location.
CALL FUNCTION 'CONTROL_FORM'
EXPORTING
command = 'NEW-WINDOW'
EXCEPTIONS
unopened = 1
unstarted = 2
OTHERS = 3.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
element = '515'
EXCEPTIONS
window = 1
element = 2.
3. For Element 525 and element 530 is not acting same. In the prog 525 = hlp_ep_element. And there are many write_form for this. I tried pasting each and every place same kind of code. It doesnt work. what it do it gives me three pages of output repeating every thing twice and weirdly.
I am need this to be done as I already took so much time solving nothing is working.
Please give me the exact location where to paste this code so I can have two times data of main window.
Or is there any other way to do this....Any way will be good for me as long as it shows two times data in the form.
The data is table.Hi Manju,
I create a new window (no main) but does not run, please can you tell me what should I do to make it work.
Best regards.
Robert. -
How to insert a logo in sap script?
How to insert a logo in sap script?
Steps to insert a logo,
I
1. First save the file as BMP
2. Open the BMP file in IMaging (Goto -> Programs -> Accessories -> Imaging) and
make it Zoom as 100% and save as *.TIFF
3. Open SE38 and execute program RSTXLDMC
4. Give your TIFF file path name
5. Select Bcol (for Color)
6. TEXT ID will be ZHEX-MACRO-*.
7. Inplace of * write your own logo name (ZCOMPANYLOGO)
8. Execute the program
9. Now Goto SE71 create your ZFORM
10. Create logo window
11. Goto text element of logo window
II
1. Goto SE71 Change the mode to GRAPHICAL
2. Choose the Graph Tabstrips
3. Now type in some name for the LOGO WINDOW
4. Press the IMPORT BUTTON and then IMPORT the BMP file from your DESKTOP
5. The code will be written automatically. You just need to drag and drop wherever you want
the graphics to be.
III
1 ) create a bmp file in local system
2 )RSTXLDMC FM to upload image in tiff format.
Also check these links...
Logo in SAP SCRIPT
Re: Uploading a (Image) Logo in your Sap Script
Need Urgent Help for Logo Uploading the Sap Script
sap script logo
http://www.sap-img.com/ts001.htm
Regards,
Sakthi Sri. -
SAP SCRIPT FORMS with UNICODE FORMAT ??
Hi guru's,
this is sunny newly joined in sap forum,am ABAP doveloper .
now am extensivelly working on upgrradation project(4.6B TO ECC6.0) , my work perticularlly on UNICODE
>> now am working on SAP SCRIPT FORMS, so could you please let me know how to check the scripts in UNICODE FORMAT .
>> Is that usefull to check with UCCHECK
Its urgent
Best Regards
Sunny..SAP Scripts needs no checks. but you have to keep attention to the fact, that the spoollists must be converted manually by a report written by SAP, and this report is not able to transform sapscripts which are still in the spool. After unicode conversion every sapscript spoollist is lost!
-
Save option enabling in spool created from sap script.
Hi,
I got a requirement where in the output letter created using sap script, needs to be saved on local desktop. when the form is displayed from sp02 the save button is greyed out and also the path system->list->save option is also disabled.
in foreground when we preview the form, there too the save options are not working.
is there any option to enable the saving of form / letter on local machine.
awaiting your response....
thanxsSpool generated from SAPScript output can be converted to PDF on local/desktop using program RSTXPDFT4.
-Alpesh -
Problems in SAP script : Please help
Hi Friends:
I've got a ticket in SAP script & need to do the following modifications:
1. In the SAP script, on the bottom side there is a cheque no. I want to print the chequq no. in MICR format. Right now its coming into normal format. Please advise me in details as to what to do?
2. How to convert the date format from DD.MM.YYYY to DDMMYYYY.
3. There is some amount getting printed on the cheque. e.g $50.00 The requirement is like that after '$' sign, 50.00 should come in a box.Please advise as how to do that.
4. There is some gap coming in between the '$' & the amount 50.00. Once that 50.00 will be in Box, as per point 4, how to reduce the gap.
5. The "$" sign is not getting printed correctly. The line which is striking vertically the 'S', is appearing broken. Please advise as how to resolve the same.
Hi experts, please help me on the above points. Suitable points will be rewarded.
Thanks:
GauravHi there.
Question 1:
Use font MICR_C for MICR CMC-7 or MICR_E for MICR E-13B
http://help.sap.com/saphelp_nw04/helpdata/en/90/78f078030211d399b90000e83dd9fc/frameset.htm
Question 2:
/: SET DATE MASK = 'DDMMYYYY'
http://help.sap.com/saphelp_nw04/helpdata/en/d1/8034d4454211d189710000e8322d00/frameset.htm
Question 3:
/E BOX_ELEMENT
/: POSITION WINDOW
/: POSITION YORIGIN &Y& LN
/: SIZE HEIGHT &HEIGHT& LN
/: BOX FRAME 10 TW
/: BOX XPOS '0.0' CM WIDTH 0 TW FRAME 10 TW
Question 4:
&symbol(C)&
http://help.sap.com/saphelp_nw04/helpdata/en/d1/8034d4454211d189710000e8322d00/frameset.htm
Question 5:
See SAP Note 129581.
Best regards.
Valter Oliveira.
Edited by: Valter Oliveira on May 30, 2008 4:42 PM -
Need to convert a SAP Script to Smart Form
Hello,
I need to convert a SAP script to a Smart form.
I am aware of converting it but have a question abt print program?
Can the print program which is currently attached to the SAP script supprot the Smart form?
Could some one let me know if i can use the same program or need to do some modifications in it?
Pointa rewareded if useful.
Thanks,
Krishnahi
t-code smartforms
utilities->migrate sapscript
check the link below it provides steps to convert sap scripts to smartforms
http://www.ficoexpertonline.com/downloads/Iyer_SmartForms.pdf
Check these threads.
Smartforms -> sapscript
Re: Convert SapScript to Smartforms ?
regards.
Kiran Sure -
Need to add special characters in sap scripts
Hi All,
I need to add special characters in sap script.
I have used them as it is my script,but in the print preview i am able to see '#' instead of those special characters.Can anybody please tell me the way in which we can add special characters in the scripts.
eg. 'Shlesha' i.e. name in inverted colons.
ThanksHi
If # is coming means, that is the problem with the printer. I think u might have used your local printer to see the print preview.
Don't use LOCL or LP01. Our local printer won't recognize those characters.
Just change the printer name to client printer name. It will work. -
Need to print some text only in last page in SAP script
Moved to correct forum by Moderator. General wasn't right either.
Hi All.
I need to print "Remarks" only in last page of sap script.
Can anyone please help me on this.
Thanks
Senthil kumar V.
Edited by: Matt on Nov 21, 2008 7:38 AMHi,
you have 4 possibilities.2 at non main window, 2 at main window.
at non main window.
1. /: IF &PAGE(C)& = &SAPSCRIPT-FORMPAGES(C)&
remarks
remarks
remarks
/: ENDIF
2, /: if &NEXTPAGE& ='0'.
remarks
remarks
remarks
/: ENDIF
at main window
3. Add the remarks at the last item of the main which is printed
4. add a new item to your main (/E)
put your remarks in it.
Change your program in such a way this item will print as last one.
like
/E REMARKS
remarks
remarks
remarks
and in sapscript program add logic at the end.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
element = 'REMARKS'
EXCEPTIONS
element = 1
window = 2.
I am sure this will do. Make a choice.
Gr., Frank -
Need to add a new page in the SAP Script as last page
Hello,
I need to add a new page in the SAP Script as last page.
Currently I have three pages in the form(FIRST,NEXT,LAST). For this I created one more page END.
FIRST page next page is NEXT
NEXT page next page is NEXT
LAST page next page is LAST
END page next page is END.
I used NEW-PAGE END in the main window but it is not working and also I trired with CONTROL_FORM this also not working.
Thanks,
Ravi.Hello,
I need to add a new page in the SAP Script as last page.
Currently I have three pages in the form(FIRST,NEXT,LAST). For this I created one more page END.
FIRST page next page is NEXT
NEXT page next page is NEXT
LAST page next page is LAST
END page next page is END.
Create the text element in the main wondow of your form
/E ENDPAGE
/: NEW-PAGE END
and call the element from your print program by using write_form, where you want the END page in your print.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
element = 'ENDPAGE'
EXCEPTIONS
element = 1
window = 2.
Thanks,
Ravi. -
Need example report program using PNPCE LDB in SAP HR
Need example report program using PNPCE LDB in SAP HR.
and how to create a report category in sap hr for using it as cutomised selection screen.Hi,
Go through the following links, i hope it will help you.....
/people/alvaro.tejadagalindo/blog/2006/02/19/how-to-deal-with-hr-payroll-reports
http://sap.ittoolbox.com/groups/technical-functional/sap-r3-dev/893908#
A sample prog with LDB PNP
*& Report ZH_REPT_PAYMENT *
report zh_rept_payment line-size 80 no standard page
heading.
tables: pernr, " Standard Selections for HR Master Data Reporting
pcl1, " HR Cluster 1
pcl2, " HR Cluster 2
pa0009,
PA9001,
PA9006,
pa0002,
pc260 , " Cluster Directory for Payroll Results
bnka .
Infotypes
infotypes: 0001. " Organizational Assignment
Declaration of Internal Tables
data : bnka1 like bnka occurs 0 with header line .
data: begin of t_int_rep occurs 100,
bankl like pc209-bankl, " Bank Number
zlsch like pc209-zlsch, " Payment method
pernr like pernr-pernr, " Employee Number
ename like pernr-ename, " Employee Name
bankn like pc209-bankn, " Bank Account Number
betrg like pc209-betrg, " Amount to be transfered
zweck like pa0009-zweck, " Purpose
end of t_int_rep.
data: begin of int_rep occurs 100,
bankl like pc209-bankl, " Bank Number
zlsch like pc209-zlsch, " Payment method
pernr like pernr-pernr, " Employee Number
ename like pernr-ename, " Employee Name
bankn like pc209-bankn, " Bank Account Number
betrg like pc209-betrg, " Amount to be transfered
zweck like pa0009-zweck, " Purpose
begda like pa0009-begda, "Begin date
end of int_rep.
Declaration of Data Variables
data: ws_betrg like pc209-betrg, " BT Amount
w_val like spell occurs 0 with header line,
int_rep1(6), " TYPE I, " Employee Number
cnt type i value 0, " Counter
calcmolga like t500l-molga value '40', " Country Grouping
v_id(15),
calc_currency like t001-waers value 'INR'. " Currency
data : ctr type i,
dt_merge like pa0009-begda.
data: ws_totemp(6) type c,
ws_totamt(20) type c,
r_mth(9) type c,
ws_fpbeg(6) type c,
ws_fpend(6) type c,
ws_mthyr(6) type c,
ws_mthyr_r(14) type c,
r_mth_t(3) type c,
ws_amt(8) type c,
ws_bankl(14) type c,
ws_date(6) type c,
amount_word(500),
total_page type i,
pages type i,
remain type i.
data begin of i_spell.
include structure spell .
data end of i_spell .
data : c_molga type t500l-molga value '40',
c_banks type bnka-banks value 'IN'.
Standard Includes
include rpc2cd09. "Cluster CD data definition
include pc2rxin0.
include rpc2rx09.
include rpppxd00. " Data Definition buffer PCL1/PCL2
include rpppxd10. " Common Part buffer PCL1/PCL2
include rpppxm00. " Buffer Handling RoutinePCL1/PCL2
include zrpc2rox2. " Data Definition POCLSTERS (not J,K,U)
Selection Screen
selection-screen begin of block b1 with frame title text-001.
parameter: pa_mth(2) type c default sy-datum+4(2) obligatory,
pa_year(4) type c default sy-datum(4) obligatory,
p_bankl like pc209-bankl, " Bank Number
p_zlsch like pc209-zlsch. " Payment method
selection-screen end of block b1.
save_calc_currency = calc_currency.
count_top = 0.
get_pernr_flag = 0.
Top-Of-Page
top-of-page.
perform convert_month using pa_mth(2) r_mth.
ws_mthyr_r = r_mth.
concatenate ws_mthyr_r pa_year into ws_mthyr_r separated by space.
SKIP 5.
skip 1.
skip 4.
if int_rep-bankl eq ' '.
if int_rep-zlsch eq 'C' or int_rep-zlsch eq 'E' or
int_rep-zlsch eq ' '.
write: /1(85) 'CHEQUE PAYMENT STATEMENT'(047) centered.
elseif int_rep-zlsch eq 'L'.
write: /1(85) 'DEMAND DRAFT STATEMENT'(047) centered.
endif.
else.
write: /1(85) 'BANK TRANSFER STATEMENT'(002) centered.
endif.
skip.
write: /34 ws_mthyr_r,
62 'Page :'(008),69(2) sy-pagno intensified off,
' Of ',78(2) pages intensified off.
clear pages.
read table bnka1 with key bankl = int_rep-bankl .
if sy-subrc = 0.
if int_rep-zlsch eq 'T'.
write:/03(10) 'Bank Name : ', bnka1-banka.
write:/03(10) 'Branch : ', bnka1-brnch.
write:/03(10) 'Address : ', bnka1-stras.
endif.
endif.
skip.
write:/1(80) sy-uline.
write: /1 sy-vline, 2(5) 'Sl.No'(002),
7 sy-vline, 8(8) 'Emp.No.'(003),
16 sy-vline,17(35) 'Employee Name'(004).
*--added for Demand Draft
if ( int_rep-zlsch = 'l' or int_rep-zlsch = 'L' ).
write : 47 sy-vline, 48(15) 'Payable at'(005).
else.
write : 47 sy-vline,48(15) 'Account No.'(005).
endif.
write: 63 sy-vline,64(16) 'Amount'(006),
80 sy-vline.
write:/1(80) sy-uline.
end-of-page.
write:/1(80) sy-uline.
write:/2 'Printed on ', sy-datum.
Start-of-selection.
start-of-selection.
*perform h_headr.
ctr = 0.
set margin 5.
call function 'RP_GET_CURRENCY'
exporting
molga = calcmolga
importing
waers = calc_currency
exceptions
others.
if sy-subrc ne 0.
calc_currency = 'DEM'.
calc_currency = save_calc_currency.
endif.
get pernr.
cd-key-pernr = pernr-pernr.
perform import_cluster.
get_pernr_flag = 1.
check : ocd-version-molga eq calcmolga.
The table 'tabpernr' is filled with the personnel numbers
and is used after selection is finished.
move-corresponding pernr to tabpernr.
append tabpernr.
The table 'tab_rgdir' is filled
loop at rgdir.
rx-key-pernr = pernr-pernr.
unpack rgdir-seqnr to rx-key-seqno.
perform int_tab. "fill tab_rgdir
perform import_bt.
perform validate.
endloop.
End of Selection
end-of-selection.
*perform h_headr.
perform convert_date_a using pa_mth r_mth_t.
sort int_rep by bankl zlsch pernr betrg descending.
delete adjacent duplicates from int_rep
comparing bankl zlsch pernr .
sort int_rep by bankl zlsch bankn . "PERNR.
loop at int_rep.
at new bankl.
select single * into bnka1 from bnka
where banks = c_banks and
bankl = int_rep-bankl .
append bnka1.
clear bnka1.
endat.
endloop.
for Demand Draft - purpose added
loop at int_rep.
concatenate pa_year(4) pa_mth(2) '01' into dt_merge.
select single * "zweck into int_rep-zweck
from pa0009 where
pernr = int_rep-pernr and
bankl = int_rep-bankl and
zlsch = int_rep-zlsch
and begda <= dt_merge and
endda >= dt_merge .
if sy-subrc = 0.
int_rep-zweck = pa0009-zweck.
modify int_rep.
endif.
endloop.
*-for DD and Chq sorted by PAyable at and EMPNO wise
if p_zlsch = 'T' .
sort int_rep by bankl zlsch bankn . "PERNR.
else. "added for "payable at" for DD/Chq
else.
sort int_rep by zweck pernr . "PERNR.
endif.
*delete adjacent duplicates from int_rep.
t_int_rep] = int_rep[.
loop at int_rep.
*-for page of page no.
total_page = 0.
loop at t_int_rep where bankl = int_rep-bankl
and zlsch = int_rep-zlsch.
total_page = total_page + 1.
endloop.
pages = total_page div 25.
remain = total_page mod 25.
comment bcoz its adding one extra page no.
done as on 29/11/2004
if remain > 0.
pages = pages + 1.
endif.
**-end
at new bankl.
ctr = 0 .
new-page.
endat.
at new zlsch.
ctr = 0 .
new-page.
endat.
clear v_id.
select single natio
into pa0002-natio
from pa0002
where pernr eq int_rep-pernr.
*-testing......for soma
if ctr > 24.
ctr = 0 .
write:/1(80) sy-uline.
new-page .
endif.
ctr = ctr + 1 .
cnt = cnt + 1.
pack int_rep-pernr to int_rep1.
write:/1 sy-vline, 2(3) cnt intensified off,
7 sy-vline, 9(6) int_rep1 intensified off,
16 sy-vline,17(35) int_rep-ename intensified off .
if ( int_rep-zlsch = 'l' or int_rep-zlsch = 'L' ).
write : 47 sy-vline,48(15) int_rep-zweck intensified off.
else.
write:
47 sy-vline,48(15) int_rep-bankn intensified off .
endif.
write: 63 sy-vline,64(16) int_rep-betrg
intensified off currency 'INR',
80 sy-vline.
ws_betrg = ws_betrg + int_rep-betrg.
*-testing......for soma
skip.
write :
/1 sy-vline, 7 sy-vline ,16 sy-vline ,47 sy-vline,63 sy-vline,80
sy-vline .
*-end testing......for soma
at end of zlsch.
if int_rep-bankl = ' '.
call function 'HR_IN_CHG_INR_WRDS'
exporting
amt_in_num = ws_betrg
importing
amt_in_words = amount_word
EXCEPTIONS
DATA_TYPE_MISMATCH = 1
OTHERS = 2
w_val-word = amount_word.
concatenate 'INR.' w_val-word into w_val-word
separated by space.
write:/1(80) sy-uline.
write: /1 sy-vline, 7 'Total transfer:'(009),
64(16) ws_betrg intensified off currency 'INR',
80 sy-vline.
write:/1(80) sy-uline.
write: /1 sy-vline, 3 w_val-word+0(76) intensified off,
80 sy-vline.
write :/1 sy-vline, 10 w_val-word+76(70) intensified off,
80 sy-vline.
write:/1(80) sy-uline.
clear: ws_betrg,cnt.
skip 2.
write: /2 'Prepared by :'(010), '_______________'(013),
45 'Checked by :'(011),'_______________'(013).
skip 2.
write: /2 'Printed On ', sy-datum,
45 'Approved by :'(012),'_______________'(013).
clear sy-pagno.
endif.
endat.
at end of bankl.
if int_rep-bankl ' '.
call function 'HR_IN_CHG_INR_WRDS'
exporting
amt_in_num = ws_betrg
importing
amt_in_words = amount_word
EXCEPTIONS
DATA_TYPE_MISMATCH = 1
OTHERS = 2
w_val-word = amount_word.
concatenate 'INR.' w_val-word into w_val-word
separated by space.
write:/1(80) sy-uline.
write: /1 sy-vline, 7 'Total transfer:'(009),
64(16) ws_betrg intensified off currency 'INR',
80 sy-vline.
write:/1(80) sy-uline.
write: /1 sy-vline, 3 w_val-word+0(76) intensified off,
80 sy-vline.
write :/1 sy-vline, 10 w_val-word+76(70) intensified off,
80 sy-vline.
write:/1(80) sy-uline.
clear: ws_betrg,cnt.
skip 2.
write: /2 'Prepared by :'(010), '_______________'(013),
45 'Checked by :'(011),'_______________'(013).
skip 2.
write: /2 'Printed on ', sy-datum,
45 'Approved by :'(012),'_______________'(013).
clear sy-pagno.
NEW-PAGE.
endif.
endat.
endloop.
End of Page
end-of-page.
write: /2 'Prepared by :'(010), '_______________',
45 'Checked by :'(011),'_______________'.
*& Form IMPORT_CLUSTER
Importing Data from Cluster *
form import_cluster.
sy-subrc = 0.
rp-imp-c2-cd.
if sy-subrc eq 0.
if cd-version-number ne ocd-version-number.
endif.
endif. " SY-SUBRC EQ 0
endform. " IMPORT_CLUSTER
*& Form INT_TAB
Filling internal table tab_rgdir form int_tab.
*Fill internal table tab_rgdir.
move-corresponding rgdir to tab_rgdir.
tab_rgdir-pernr = pernr-pernr.
append tab_rgdir.
endform. " INT_TAB
*& Form IMPORT_bt
Import Values from Bank Transactions Table (BT) form import_bt.
rp-init-buffer.
RP-IMP-C2-RX.
rp-imp-c2-in.
if rp-imp-in-subrc eq 0.
if in-version-number ne oin-version-number.
write: / 'Schlüssel des Clusters RX:'(015),
rx-key-pernr, rx-key-seqno.
write: / 'The imported version of the cluster'(016), 'RX',
'is not current'(017).
write: / 'Imported version :'(018),
oin-version-number.
write: / 'Current version of cluster :'(019),
in-version-number.
stop.
else.
sy-subrc = 0.
endif.
else.
sy-subrc = 8.
write: /
'Inconsistencies between cluster directory and directory for'(020).
write: /
'No payroll results found for data in cluster directory'(021).
write : /
'Please contact hotline to solve the current problem'(022).
endif.
ws_fpbeg(2) = versc-fpbeg+4(2).
ws_fpbeg+2(4) = versc-fpbeg(4).
ws_fpend(2) = versc-fpend+4(2).
ws_fpend+2(4) = versc-fpend(4).
ws_mthyr(2) = pa_mth.
ws_mthyr+2(4) = pa_year.
check ws_mthyr = ws_fpbeg.
check ws_mthyr = ws_fpend.
loop at bt. "from pc209
int_rep-pernr = pernr-pernr.
int_rep-ename = pernr-ename.
int_rep-bankl = bt-bankl.
int_rep-bankn = bt-bankn.
int_rep-betrg = bt-betrg.
int_rep-zlsch = bt-zlsch.
append int_rep.
endloop.
IF P_BANKL ' ' AND P_ZLSCH ' '.
DELETE INT_REP WHERE BANKL P_BANKL.
ELSEIF P_BANKL = ' ' AND P_ZLSCH ' '.
DELETE INT_REP WHERE ZLSCH P_ZLSCH.
ELSEIF P_BANKL ' ' AND P_ZLSCH = ' '.
DELETE INT_REP WHERE BANKL P_BANKL.
ENDIF.
endform. " IMPORT_BT
*& Form CONVERT_MONTH
Fetching Month Text form convert_month using mth t_mth.
case mth.
when '01'.
t_mth = 'January'(023).
when '02'.
t_mth = 'February'(024).
when '03'.
t_mth = 'March'(025).
when '04'.
t_mth = 'April'(026).
when '05'.
t_mth = 'May'(027).
when '06'.
t_mth = 'June'(028).
when '07'.
t_mth = 'July'(029).
when '08'.
t_mth = 'August'(030).
when '09'.
t_mth = 'September'(031).
when '10'.
t_mth = 'October'(032).
when '11'.
t_mth = 'November'(033).
when '12'.
t_mth = 'December'(034).
endcase.
endform. " CONVERT_MONTH
*& Form CONVERT_DATE_A
Fetching Month Text * form convert_date_a using mth_t t_mth_t.
case mth_t.
when '01'.
t_mth_t = 'Jan.'(035).
when '02'.
t_mth_t = 'Feb.'(036).
when '03'.
t_mth_t = 'Mar.'(037).
when '04'.
t_mth_t = 'Apr.'(038).
when '05'.
t_mth_t = 'May.'(039).
when '06'.
t_mth_t = 'Jun.'(040).
when '07'.
t_mth_t = 'Jul.'(041).
when '08'.
t_mth_t = 'Aug.'(042).
when '09'.
t_mth_t = 'Sep.'(043).
when '10'.
t_mth_t = 'Oct.'(044).
when '11'.
t_mth_t = 'Nov.'(045).
when '12'.
t_mth_t = 'Dec.'(046).
endcase.
endform. " CONVERT_DATE_A
*& Form VALIDATE
text
--> p1 text
<-- p2 text form validate .
if p_bankl <> ' ' and p_zlsch ' '.
delete int_rep where bankl p_bankl.
elseif p_bankl = ' ' and p_zlsch ' '.
delete int_rep where zlsch p_zlsch.
elseif p_bankl ' ' and p_zlsch = ' '.
delete int_rep where bankl p_bankl.
endif.
endform. " VALIDATE
check this weblog.....
/people/dj.adams/blog/2003/11/13/food-for-thought-ldbs-and-abap-objects
Also , check the following link too.
http://www.datamanagementgroup.com/Resources/Articles/Article_1005_2.asp
Regards,
Harish -
Need documents for sap scripts
hi friends,
I am fresh Abaper.I hav to study sap script . I need document which describes basic script coding procedure ie syntax.
Thank uhi
kavitha go through these links
SAPScripts
http://esnips.com/doc/1ff9f8e8-0a4c-42a7-8819-6e3ff9e7ab44/sapscripts.pdf
http://esnips.com/doc/1e487f0c-8009-4ae1-9f9c-c07bd953dbfa/script-command.pdf
http://esnips.com/doc/64d4eccb-e09b-48e1-9be9-e2818d73f074/faqss.pdf
http://esnips.com/doc/cb7e39b4-3161-437f-bfc6-21e6a50e1b39/sscript.pdf
http://esnips.com/doc/fced4d36-ba52-4df9-ab35-b3d194830bbf/symbols-in-scripts.pdf
http://esnips.com/doc/b57e8989-ccf0-40d0-8992-8183be831030/sapscript-how-to-calculate-totals-and-subtotals.htm
SAP SCRIPT FIELDS
http://help.sap.com/saphelp_erp2005vp/helpdata/en/d1/8033ea454211d189710000e8322d00/content.htm
regards
Nagesh.Paruchuri -
Hi
can anybody forward be sap scripts examples . Please forward me the documents on [email protected] .
Print program examples .
Configuration in nace , spro etc.
Thanks and regardsHi Naval,
Check these links.
http://www.sap-img.com/sapscripts/sample-sapscripts-label-printing-program.htm
http://www.sap-img.com/sapscripts/a-sample-sap-scripts-reports.htm
Also check these links.
SAP SCRIPT and the report
about sap script
Hope this resolves your query.
<b>Reward all the helpful answers.</b>
Regards -
Need help in Controlling the Number in SAP Script.
Hi,
I am writing a Report using the the Sap Scripts.
I want to show the Number "1" as "1.00" in the print out which is comming from a SAP Script.
Can u please help.
with rgds
Ranjith SinghRanjith,
I was came across similar condition few years back, I guess you need to change the data type or else call a PERFORM from your sap script if it is custom.
Regards,
Amey -
Hello all,
I am trying to learn SAP Scripts. I have created one form named as 'zfm1' using SE71.
Using SE 38 I have created a PRINT PROGRAM also which contains FM's like Open_form,Start_form,Write_form etc. When activated it is not displaying any error.
But in o/p it is asking for a device and by def.it is showing LP01 in o/p device.
Can anybody please guide me in this ahead?
How can I see the Windows created by me?
Thanks and regards,
Harishhi,
just give device as LP01 and press print preview.
Maybe you are looking for
-
Adapter Modules in PI 7.0
Hi All, I am using PI 7.0 SP 9. So in my case I am not able to use adapter module. (a) Is there any other alternative to adapter module as per the requirement if I am using PI 7.0 ? (b) In case of File-RFC-File ,how can I do the things without usin
-
Anyone else just getting a message about the iTunes store making an error whenever you do anything like click the forward and back buttons or click on a suggestion if you misspell something?
-
Microphone not working on dv7 Pavilion Notebook (Windows 7)
The microphone on my dv7 Pavilion Notebook is not working. I checked the sliding volume controls and have tried updating my drivers. A few weeks ago, I "unchecked" a few startup items using msconfig. Is it possible, I "unchecked" an item related t
-
E1200 as a pass-thru wired router only.
I am looking for some extra guidance on the E1200 as only a wired pass-thru router to maintain a subnet and keep it isolated from the rest of the connections to the Broadband router and wireless. I have a public IP address that is set as pass-thru o
-
Fresh install done but Apps gone
Hi all, I just re-installed Mountain Lion on my Macbook Pro with Retina Display and some Apps like iMovie and Garage Bands are gone. How do I get them back? And I skip the step to register my product after installation. How do I register it? Do I nee