Decimals: This is urgent
Hi
We are implementing SAP ECC 6.0 for the client.
The issue we face is as follows:
In sales order, the net value is INR 15 with no succeeding zeros (As in 15.00 - This is the notation SAP delivers I believe)
How do I make the 2 zeros appear after the decimal places.
I have checked in 2 Places:
Table T001R - was not of much help
And in general settings but there is provision for only 3 decimal places and above. There is no provision for 2 decimal places.
Please help.
Regards
Siddharth
Hi,
Go to Tcode SU3. Under defaults tab u can find desimal notation u can change here.
Thanks & Regards
Sasikanth.Ch
Similar Messages
-
Why isnt this working urgent please help
why isnt this working im trying to connect a panel to a scrollpane the panel will contain several dozen text fields
the scrollpane shouls be about 350, 450 , but the pane is 350
by 1200 the problem now is that the scorllbar isnt created and even when I explictly create it it contains no knob, and it will
not scroll up or down please someone help this is urgent
import java.awt.*;
import com.sun.java.swing.*;
public class ScrollDemo extends JPanel {
private Rule columnView;
private Rule rowView;
private ScrollablePicture picture;
class UnitsListener implements ItemListener {
public void itemStateChanged(ItemEvent e) {
if (e.getStateChange() == ItemEvent.SELECTED) {
// Turn it to metric.
rowView.setIsMetric(true);
columnView.setIsMetric(true);
} else {
// Turn it to inches.
rowView.setIsMetric(false);
columnView.setIsMetric(false);
picture.setMaxUnitIncrement(rowView.getIncrement());
public ScrollDemo() {
Two t = new Two(columnView.getIncrement());
JScrollPane pictureScrollPane = new JScrollPane(t);
pictureScrollPane.setPreferredSize(new Dimension(300, 250));
pictureScrollPane.setColumnHeaderView(columnView);
pictureScrollPane.setRowHeaderView(rowView);
public static void main(String s[]) {
JFrame frame = new JFrame("ScrollDemo");
frame.setContentPane(new ScrollDemo());
frame.setVisible(true);
import java.awt.*;
import com.sun.java.swing.*;
public class Two extends JPanel implements Scrollable{
private JPanel ivjJPanel3 = null;
private JScrollPane ivjJScrollPane1 = null;
private int maxUnitIncrement = 1;
public Two(int m)
getJPanel1();
maxUnitIncrement = m;
setSize(300,1200);
private void getJPanel1() {
setLayout(null);
setSize(250,1200);
add(getJLabel1(), getJLabel1().getName());
public Dimension getPreferredScrollableViewportSize() {
return getPreferredSize();
public int getScrollableBlockIncrement(Rectangle visibleRect, int orientation,
int direction) {
if (orientation == SwingConstants.HORIZONTAL)
return visibleRect.width - maxUnitIncrement;
else
return visibleRect.height - maxUnitIncrement;
public boolean getScrollableTracksViewportHeight() {
return false;
public boolean getScrollableTracksViewportWidth() {
return false;
public int getScrollableUnitIncrement(Rectangle visibleRect,
int orientation,
int direction) {
//Get the current position.
int currentPosition = 0;
if (orientation == SwingConstants.HORIZONTAL)
currentPosition = visibleRect.x;
else
currentPosition = visibleRect.y;
//Return the number of pixels between currentPosition
//and the nearest tick mark in the indicated direction.
if (direction < 0) {
int newPosition = currentPosition -
(currentPosition / maxUnitIncrement) *
maxUnitIncrement;
return (newPosition == 0) ? maxUnitIncrement : newPosition;
} else {
return ((currentPosition / maxUnitIncrement) + 1) *
maxUnitIncrement - currentPosition;
public void setMaxUnitIncrement(int pixels) {
maxUnitIncrement = pixels;I personally didn't play with swing components when they were in the com.sun.java.swing state, but I have a strong feeling it is very buggy and could be causing your problem.
Before posting gui issues, please use a newer API, even jdk1.1 would be fine, anything would be better than what your using.
you wrote: I dont care if its javax.swing or
com.sun.java.swing
I would also gather from this statement that your attitude could be one of your other issues. -
I am unable to download items. The download box appears, but nothing populates. This is urgent.
I am unable to download items. The download box appears, but nothing populates. This is urgent.
Usually the web mail server and the IMAP or POP server are two different things. Have you contacted your provider and ask them why their server is giving you this message.
-
My iPad refuses to turn on... HELP THIS IS URGENT!
Just thismorning i had my iPad 2 working fine... until it ran out of charge. Yes, I put it on the charger. Once it had been charging for about 30 minutes, i attempted to switch it on, but the apple logo sign never moved. At some times, the iPad returned to the normal unlock screen, but when i did, it froze and the frozen apple sign appeared again.
I thought that maybe plugging it into my computer backup source would help... Well, it kinda helped but the iPad is reacting as if it is brand new and its name is now ''iPad'' when clearly, before i had this problem, it was named ''Nicole's iPad''.
Please help, this is urgent! I have school on Tuesday and if it is not repaired by then, my assignments and homework will be lost. ThankyouTry to hard boot it by pressing home key and power key at same time and keep them pressed to the count of one to fifteen.
And wait for few minutes it will work
If its not working yet then connect it iTunes and update it to iOS 6,
Before updating do not forget to back up your iPad -
My email account is invalid to access, please help me to connect to a new right email address. This is urgent for the pre-order process, please respond as soon as possible.
<Email Edited by Host>This is a user-to-user technical support forum. No one here can help you.
Try
https://expresslane.apple.com -
My fonts are changing in iWed after I publish. I need step by step instructions on how to go to my third party server and clear out all of my files and reload my whole website, the solution I saw posted by another. Please someone help me on this. Urgent
If your fonts are changing when viewed on other computers - epecially those running windows - you need to look at using web-safe fonts...
http://www.iwebformusicians.com/iWeb/Fonts-Colors.html
Also make sure you clear your browser cache before viewing you published files. -
Sample code for sap hr program--pls treat this as urgent
Hi ,
This is the program on attendence incentive program, i have written
REPORT zhrpa0019 LINE-SIZE 270
LINE-COUNT 55(3)
NO STANDARD PAGE HEADING
MESSAGE-ID zm.
T A B L E S *
TABLES: pernr, pa2001, pa9002.
*Type-pools
TYPE-POOLS slis.
I N F O T Y P E S *
INFOTYPES: 0008, 0001, 0002,2001,9002,0041.
T Y P E S
DATA:BEGIN OF t_data1 OCCURS 0,
pernr LIKE pa0001-pernr,
ename LIKE pa0001-ename,
bukrs LIKE pa0001-bukrs,
werks LIKE pa0001-werks,
btrtl LIKE pa0001-btrtl,
persg LIKE pa0001-persg,
persk LIKE pa0001-persk,
begda LIKE pa0001-begda,
endda LIKE pa0001-endda,
amount LIKE pa0008-bet01,
cdate LIKE pa0041-dat01,
END OF t_data1.
D A T A * Internal table and working area
DATA: i_data1 LIKE t_data1 OCCURS 0 WITH HEADER LINE.
wa_data1 like line of t_data1 .
DATA : BEGIN OF i_date OCCURS 0,
pernr LIKE pa0041-pernr,
cdate LIKE pa0041-dat01,
END OF i_date.
*Data : i_pa0041 like pa0041 occurs 0 with header line,
wa_pa0041 like pa0041.
*Data : i_p0001 like p0001 occurs 0 with header line.
Constants
CONSTANTS: c_102007(6) VALUE '102007',
c_25 TYPE p DECIMALS 1 VALUE '25.0',
c_x VALUE 'X',
c_a value 'A',
c_mcnp(4) value 'MCNP'.
Variables
DATA : v_mvc like pa0008-bet01,
lv_bmonth TYPE char2,
lv_byear TYPE char4,
lv_date TYPE sy-datum.
Parameters Selection
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-t01.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(31) text-001.
*PARAMETERS:: p_bmonth LIKE pv000-pabrp OBLIGATORY,
p_byear LIKE pv000-pabrj OBLIGATORY.
SELECTION-SCREEN COMMENT 45(10) text-002.
SELECTION-SCREEN END OF LINE.
PARAMETERS: p_mvc(2) TYPE p DECIMALS 1 DEFAULT c_25,
p_mctype TYPE pa2001-awart DEFAULT c_mcnp,
p_ditype TYPE c DEFAULT c_a,
rb_test RADIOBUTTON GROUP grp1 DEFAULT 'X',
rb_prod RADIOBUTTON GROUP grp1.
SELECTION-SCREEN END OF BLOCK b1.
Initialization *
INITIALIZATION.
pnpstat2-low = '3'.
pnpstat2-sign = 'I'.
pnpstat2-option = 'EQ'.
APPEND pnpstat2.
CLEAR pnpstat2.
pnpbukrs-low = 'SATS'.
pnpbukrs-sign = 'I'.
pnpbukrs-option = 'EQ'.
APPEND pnpbukrs.
CLEAR pnpbukrs.
pnppersg-low = 'N'.
pnppersg-sign = 'I'.
pnppersg-option = 'EQ'.
APPEND pnppersg.
CLEAR pnppersg.
pnpbtrtl-low = '2010'.
pnpbtrtl-high = '2050'.
pnpbtrtl-sign = 'I'.
pnpbtrtl-option = 'EQ'.
APPEND pnpbtrtl.
CLEAR pnpbtrtl.
**Clearing the variables
CLEAR : lv_byear, lv_bmonth,
lv_date.
Get previous month from current date
CALL FUNCTION 'CCM_GO_BACK_MONTHS'
EXPORTING
currdate = sy-datum
backmonths = 1
IMPORTING
newdate = lv_date.
lv_byear = lv_date(4).
lv_bmonth = lv_date+4(2).
MOVE lv_bmonth TO p_bmonth.
MOVE lv_byear TO p_byear.
AT Selection-screen *
AT SELECTION-SCREEN.
IF rb_prod = 'X' .
IF sy-uname NP 'HRBTCH*'.
MESSAGE e223(zhpa).
else.
UPDATE pa0015
SET begda = sy-datum
lgart = '216D'
bertg = P_MVC
WHERE pernr = p0001-pernr.
IF SY-SUBRC EQ 0.
message i224(zhpa).
endif.
COMMIT WORK.
ENDIF.
ENDIF.
T O P O F P A G E *
TOP-OF-PAGE.
PERFORM f_top_of_page.
E N D O F P A G E *
END-OF-PAGE.
B E G I N S E L E C T I O N *
START-OF-SELECTION.
GET pernr.
pnp-sw-ignorelockedrecords = 'N'.
PERFORM f_get_hr_data.
E N D S E L E C T I O N *
END-OF-SELECTION.
sort i_data1 by werks ascending
btrtl ascending
persg ascending
persk ascending
pernr ascending.
check for test mode.
if rb_test = 'X'.
clear: i_data1.
loop at i_data1 .
perform f_fill_bdc.
perform f_bdc_transaction using c_pa30.
endloop.
endif.
perform f_display_report.
*& Form f_top_of_page
text
--> p1 text
<-- p2 text
FORM f_top_of_page.
WRITE: text-t11, sy-repid ,
65 text-t12,
150 text-t13,
158 sy-datum.
IF rb_test = c_x.
WRITE:/ text-t21, sy-mandt,
75 text-t22,
150 text-t23,
158 sy-uzeit.
ELSE.
WRITE:/ text-t21, sy-mandt,
117 text-t24,
150 text-t23,
158 sy-uzeit.
ENDIF.
WRITE:/ text-t31, sy-uname,
150 text-t32,
158 sy-pagno.
ULINE.
ENDFORM. " f_top_of_page
*& Form f_get_hr_data
text
--> p1 text
<-- p2 text
FORM f_get_hr_data.
rp-provide-from-last p0001 space pn-begda pn-endda.
IF pnp-sw-found = 1.
PERFORM f_get_data_pa0008.
ENDIF.
ENDFORM. " f_get_hr_data
*& Form f_get_data_pa0008
text
--> p1 text
<-- p2 text
FORM f_get_data_pa0008.
PERFORM f_get_confirm_date.
rp-provide-from-last p0008 space pn-begda pn-endda..
v_mvc = p_mvc.
IF pnp-sw-found = 1.
i_data1-cdate = i_date-cdate.
MOVE p0001-pernr TO i_data1-pernr.
MOVE p0001-ename TO i_data1-ename.
MOVE p0001-werks TO i_data1-werks.
MOVE p0001-btrtl TO i_data1-btrtl.
MOVE p0001-persg TO i_data1-persg.
MOVE p0001-bukrs TO i_data1-bukrs.
MOVE p0001-persk TO i_data1-persk.
MOVE i_date-cdate TO i_data1-cdate.
MOVE v_mvc TO i_data1-amount.
APPEND i_data1.
CLEAR i_data1.
ENDIF.
ENDFORM. " f_get_data_pa0008
*& Form f_display_report
text
--> p1 text
<-- p2 text
FORM f_display_report.
perform alv_display.
*Output to a list
data : lv_stotal(5) type n,
lv_utotal(5) type n,
lv_format.
constants : c_l value '|'.
clear: i_data1.
format color col_total intensified on.
write: /, / 'Successfully Updated to Database:'.
write: /.
format reset.
uline (200).
format color col_heading intensified off.
write : /1 c_l no-gap, (8) 'Pnumber' no-gap,
c_l no-gap, (35) 'Name' no-gap,
c_l no-gap, (5) 'PA' no-gap,
c_l no-gap, (5) 'PSA' no-gap,
c_l no-gap, (6) 'EE Grp' no-gap,
c_l no-gap, (9) 'EE Subgrp' no-gap,
c_l no-gap, (12) 'Amount' no-gap,
200 c_l.
uline (200).
format reset.
loop at i_data1 .
perform f_format_amount.
if lv_format = 'X'.
clear lv_format.
format color col_normal intensified off.
else.
lv_format = 'X'.
format color col_normal intensified on.
endif.
write :/1 c_l no-gap, (8) i_data1-pernr no-gap,
c_l no-gap, (35) i_data1-ename no-gap,
c_l no-gap, (5) i_data1-werks no-gap,
c_l no-gap, (5) i_data1-btrtl no-gap,
c_l no-gap, (6) i_data1-persg no-gap,
c_l no-gap, (9) i_data1-persk no-gap,
c_l no-gap , (12) i_data1-amount no-gap.
endloop.
ENDFORM . "f_display_report
*& Form get_confirm_date
text
--> p1 text
<-- p2 text
FORM f_get_confirm_date .
rp-provide-from-last p0041 space pn-begda pn-endda.
IF pnp-sw-found = 1.
CLEAR i_date.
i_date-pernr = p0041-pernr.
APPEND i_date.
PERFORM f_populate_date USING : p0041-pernr
p0041-dar01 p0041-dat01,
p0041-pernr
p0041-dar02 p0041-dat02,
p0041-pernr
p0041-dar03 p0041-dat03,
p0041-pernr
p0041-dar04 p0041-dat04,
p0041-pernr
p0041-dar05 p0041-dat05,
p0041-pernr
p0041-dar06 p0041-dat06,
p0041-pernr
p0041-dar07 p0041-dat07,
p0041-pernr
p0041-dar08 p0041-dat08,
p0041-pernr
p0041-dar09 p0041-dat09,
p0041-pernr
p0041-dar10 p0041-dat10,
p0041-pernr
p0041-dar11 p0041-dat11,
p0041-pernr
p0041-dar12 p0041-dat12.
ENDIF.
ENDFORM. " get_confirm_date
*& Form f_populate_date
text
-->P_PERNR text
-->P_DAR text
-->P_DAT text
FORM f_populate_date USING p_pernr p_dar p_dat.
CLEAR i_date.
READ TABLE i_date WITH KEY pernr = p_pernr.
IF sy-subrc = 0.
IF p_dar = 'A3'.
i_date-cdate = p_dat.
MODIFY i_date INDEX sy-tabix.
ENDIF.
ENDIF.
endform.
i need to add the logic , could you pls help as this is very urgent.........
IF test run = X
Display the report
IF production run = X
1. Batch user ID HRBTCH* performed the execution.
Create new record based on the following parameters:
- PA0015-BEGDA = System Date (date of origin)
- PA0015-LGART = 216D (wage type)
- PA0015-BETRG = IAP amount (25)
Display the report.
2. Program was not executed by Batch user ID HRBTCH*
Display information message Only batch user ID can run actual mode.
Display the report
No update will be done.
ENDIF.
how to addd in the above code.....REPORT ZHR_ATTENDANCE_RPT MESSAGE-ID ZHR.
T Y P E P O O L S *
TYPE-POOLS : SLIS.
T A B L E *
TABLES : TEVEN,
PA0000,
PA0001,
T503K,
T500P.
I N T E R N A L T A B L E D E C L A R A T I O N *
DATA : BEGIN OF IT_PA0001 OCCURS 0,
PERNR TYPE PA0001-PERNR,
ENDDA TYPE PA0001-ENDDA,
WERKS TYPE PA0001-WERKS,
BTRTL TYPE PA0001-BTRTL,
ORGEH TYPE PA0001-ORGEH,
PERSK TYPE T503T-PERSK,
ENAME TYPE PA0001-ENAME,
END OF IT_PA0001.
DATA : BEGIN OF IT_PA0000 OCCURS 0,
PERNR TYPE PA0000-PERNR,
END OF IT_PA0000.
DATA : BEGIN OF IT_TEVEN OCCURS 0,
PERNR TYPE TEVEN-PERNR,
LDATE TYPE TEVEN-LDATE,
LTIME TYPE TEVEN-LTIME,
SATZA TYPE TEVEN-SATZA,
END OF IT_TEVEN.
DATA : IT_TEVEN1 LIKE IT_TEVEN OCCURS 0 WITH HEADER LINE.
DATA : BEGIN OF IT_T527X OCCURS 0,
ORGEH LIKE T527X-ORGEH,
ORGTX LIKE T527X-ORGTX,
END OF IT_T527X.
DATA : BEGIN OF IT_T503T OCCURS 0,
PERSK TYPE T503T-PERSK,
PTEXT TYPE T503T-PTEXT,
END OF IT_T503T.
DATA : BEGIN OF IT_FINAL OCCURS 0,
PERNR LIKE PA0001-PERNR,
ENAME LIKE PA0001-ENAME,
LDATE LIKE TEVEN-LDATE,
TPROG LIKE PTPSP-TPROG,
LTIMEI LIKE TEVEN-LTIME,
LTIMEO LIKE TEVEN-LTIME,
ORGTX LIKE T527X-ORGTX,
PTEXT TYPE T503T-PTEXT,
ATEXT TYPE ABWTXT,
END OF IT_FINAL.
DATA : IT_PTPSP LIKE PTPSP OCCURS 0 WITH HEADER LINE.
*Table to get Holiday
DATA : IT_ISCAL_DAY LIKE ISCAL_DAY OCCURS 0 WITH HEADER LINE.
DATA : IT_T554T TYPE T554T OCCURS 0 WITH HEADER LINE.
*ALV data declarations
DATA: FIELDCATALOG TYPE SLIS_T_FIELDCAT_ALV,
X_FIELDCATALOG TYPE SLIS_FIELDCAT_ALV,
GD_LAYOUT TYPE SLIS_LAYOUT_ALV,
GD_REPID LIKE SY-REPID.
*For ALV Events
DATA : IT_EVENT1 TYPE SLIS_T_EVENT.
*For ALV Events
DATA : IT_EVENT TYPE SLIS_ALV_EVENT.
*For ALV top of page
DATA : IT_LIST_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER.
*For top of page heading
DATA : IT_LINE TYPE SLIS_LISTHEADER.
Variables declaration *
DATA : V_SHIFT LIKE PTPSP-TPROG,
V_TEMP TYPE I,
V_DATE TYPE DATUM,
V_LDATE TYPE SY-DATUM,
V_MODIF TYPE HIDENT,
V_SUBTY TYPE PA2002-SUBTY,
V_ENDDA TYPE CHAR10.
SELECTION SCREEN *
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS : S_PERNR FOR TEVEN-PERNR,
S_DATE FOR TEVEN-LDATE no-extension,
S_ORGEH FOR PA0001-ORGEH,
S_WERKS FOR PA0001-WERKS,
S_BTRTL FOR PA0001-BTRTL,
S_PERSK FOR PA0001-PERSK,
S_STAT2 FOR PA0000-STAT2.
SELECTION-SCREEN END OF BLOCK B1.
A T S E L E C T I O N S C R E E N *
*validatating Selection Screen
AT SELECTION-SCREEN ON S_PERNR.
*Validate the User entered year
PERFORM VALIDATE_PERNR.
AT SELECTION-SCREEN ON S_DATE.
*Validate the User entered date
PERFORM VALIDATE_DATE_LOW.
AT SELECTION-SCREEN ON S_ORGEH.
*Validate the User entered year
PERFORM VALIDATE_ORGEH.
AT SELECTION-SCREEN ON S_PERSK.
*Validate the User entered year
PERFORM VALIDATE_PERSK.
AT SELECTION-SCREEN ON S_WERKS.
*Validate the User entered Personnel area
PERFORM VALIDATE_WERKS.
START OF SELECTION *
START-OF-SELECTION.
*Get data
PERFORM GET_DATA.
*Process data
PERFORM PROCESS_DATA.
E N D O F S E L E C T I O N *
END-OF-SELECTION.
PERFORM BUILD_FIELDCATALOG.
PERFORM BUILD_LAYOUT.
*For ALV Events
PERFORM ALV_EVENTS.
PERFORM DISPLAY_ALV_REPORT.
*& Form VALIDATE_YEAR
Validating the year
FORM VALIDATE_PERNR .
IF NOT S_PERNR IS INITIAL.
SELECT SINGLE * FROM PA0001 WHERE PERNR IN S_PERNR. "#EC *
IF SY-SUBRC <> 0.
MESSAGE E000 WITH 'Enter valid Employee Number'(002).
ENDIF.
ENDIF.
ENDFORM. " VALIDATE_pernr
*& Form VALIDATE_YEAR
Validating the year
FORM VALIDATE_ORGEH .
DATA: V_ORGEH LIKE T527X-ORGEH.
IF NOT S_ORGEH IS INITIAL.
SELECT SINGLE ORGEH FROM T527X INTO V_ORGEH WHERE ORGEH IN S_ORGEH.
IF SY-SUBRC <> 0.
MESSAGE E000 WITH 'Enter Valid Organization Unit'(003).
ENDIF.
ENDIF.
ENDFORM. " VALIDATE_orgeh
*& Form GET_DATA
Get data
FORM GET_DATA.
SELECT PERNR
FROM PA0000
INTO TABLE IT_PA0000
WHERE PERNR IN S_PERNR
AND ENDDA GE S_DATE-LOW
AND BEGDA LE S_DATE-HIGH
AND STAT2 IN S_STAT2.
IF SY-SUBRC = 0.
DELETE ADJACENT DUPLICATES FROM IT_PA0000 COMPARING PERNR.
SORT IT_PA0000.
ENDIF.
IF NOT IT_PA0000[] IS INITIAL.
SELECT PERNR
ENDDA
WERKS
BTRTL
ORGEH
PERSK
ENAME
FROM PA0001
INTO TABLE IT_PA0001
FOR ALL ENTRIES IN IT_PA0000
WHERE PERNR = IT_PA0000-PERNR
AND ENDDA GE S_DATE-LOW
AND BEGDA LE S_DATE-HIGH
AND ORGEH IN S_ORGEH
AND WERKS IN S_WERKS
AND PERSK IN S_PERSK
AND BTRTL IN S_BTRTL.
IF SY-SUBRC = 0.
SORT IT_PA0001 BY PERNR ENDDA DESCENDING.
DELETE ADJACENT DUPLICATES FROM IT_PA0001 COMPARING PERNR.
SORT IT_PA0001 BY PERNR.
ENDIF.
ENDIF.
IF NOT IT_PA0001[] IS INITIAL.
SELECT PERNR
LDATE
LTIME
SATZA
FROM TEVEN
INTO TABLE IT_TEVEN
FOR ALL ENTRIES IN IT_PA0001
WHERE PERNR = IT_PA0001-PERNR
AND SATZA = 'P10'
AND LDATE IN S_DATE
AND STOKZ NE 'X'.
IF SY-SUBRC = 0.
SORT IT_TEVEN BY PERNR LDATE.
ENDIF.
ENDIF.
IF NOT IT_PA0001[] IS INITIAL.
v_date = s_date-high + 1.
SELECT PERNR
LDATE
LTIME
SATZA
FROM TEVEN
INTO TABLE IT_TEVEN1
FOR ALL ENTRIES IN IT_PA0001
WHERE PERNR = IT_PA0001-PERNR
AND SATZA = 'P20'
AND ( LDATE IN S_DATE or ldate = v_date )
AND STOKZ NE 'X'.
IF SY-SUBRC = 0.
SORT IT_TEVEN1 BY PERNR LDATE.
ENDIF.
ENDIF.
IF NOT IT_PA0001[] IS INITIAL.
SELECT ORGEH
ORGTX
FROM T527X
INTO TABLE IT_T527X
FOR ALL ENTRIES IN IT_PA0001
WHERE ORGEH = IT_PA0001-ORGEH.
IF SY-SUBRC = 0.
SORT IT_T527X BY ORGEH.
ENDIF.
ENDIF.
IF NOT IT_PA0001[] IS INITIAL.
SELECT PERSK
PTEXT
FROM T503T
INTO TABLE IT_T503T
FOR ALL ENTRIES IN IT_PA0001
WHERE PERSK = IT_PA0001-PERSK
AND SPRSL = 'E'.
IF SY-SUBRC = 0.
SORT IT_T503T BY PERSK.
ENDIF.
ENDIF.
SELECT *
FROM T554T
INTO TABLE IT_T554T
WHERE SPRSL = 'EN'
AND MOABW = '40'.
ENDFORM. " GET_DATA
*& Form PROCESS_DATA
Process data
FORM PROCESS_DATA .
V_TEMP = S_DATE-HIGH - S_DATE-LOW.
V_TEMP = V_TEMP + 1.
LOOP AT IT_PA0001.
V_DATE = S_DATE-LOW.
DO V_TEMP TIMES.
*Get employee work schedule
IF IT_PTPSP[] IS INITIAL.
PERFORM GET_SCHEDULE.
ENDIF.
*Get holiday calendar
IF IT_ISCAL_DAY[] IS INITIAL.
PERFORM GET_HOLIDAY.
ENDIF.
CLEAR : V_SUBTY.
SELECT SINGLE SUBTY
FROM PA2001
INTO V_SUBTY
WHERE PERNR = IT_PA0001-PERNR
AND ENDDA GE V_DATE
AND BEGDA LE V_DATE.
IF SY-SUBRC = 0.
READ TABLE IT_T554T WITH KEY AWART = V_SUBTY.
IT_FINAL-ATEXT = IT_T554T-ATEXT.
ENDIF.
IF V_SUBTY IS INITIAL.
SELECT SINGLE SUBTY
FROM PA2002
INTO V_SUBTY
WHERE PERNR = IT_PA0001-PERNR
AND ENDDA GE V_DATE
AND BEGDA LE V_DATE.
IF SY-SUBRC = 0.
IF V_SUBTY = '1000' OR V_SUBTY = '2000'.
IT_FINAL-ATEXT = 'Training'.
ELSEIF V_SUBTY = '3000'.
IT_FINAL-ATEXT = 'Tour'.
ENDIF.
ENDIF.
ENDIF.
*Get the employee shift schedule for that date
CLEAR : V_SHIFT.
READ TABLE IT_PTPSP WITH KEY DATUM = V_DATE.
IF SY-SUBRC = 0.
V_SHIFT = IT_PTPSP-TPROG.
IF IT_PTPSP-TAGTY = '1'.
V_SHIFT = 'NOFF'.
ENDIF.
ENDIF.
IF V_SHIFT = ''.
CLEAR IT_FINAL.
CONTINUE.
ENDIF.
*Check for holiday
IT_FINAL-TPROG = V_SHIFT.
READ TABLE IT_ISCAL_DAY WITH KEY DATE = V_DATE.
IF SY-SUBRC = 0.
IT_FINAL-TPROG = 'H'.
ENDIF.
IT_FINAL-PERNR = IT_PA0001-PERNR.
IT_FINAL-ENAME = IT_PA0001-ENAME.
IT_FINAL-LDATE = V_DATE.
*To get the organization unit
READ TABLE IT_T527X WITH KEY ORGEH = IT_PA0001-ORGEH
BINARY SEARCH.
IF SY-SUBRC = 0.
IT_FINAL-ORGTX = IT_T527X-ORGTX.
ENDIF.
CLEAR IT_T503T.
READ TABLE IT_T503T WITH KEY PERSK = IT_PA0001-PERSK
BINARY SEARCH.
IF SY-SUBRC = 0.
IT_FINAL-PTEXT = IT_T503T-PTEXT.
ENDIF.
V_LDATE = v_DATE + 1.
*To get Punch-in.
READ TABLE IT_TEVEN WITH KEY PERNR = IT_PA0001-PERNR
LDATE = V_DATE
BINARY SEARCH.
IF SY-SUBRC = 0.
IT_FINAL-LTIMEI = IT_TEVEN-LTIME.endif.
*To get Punch-out
READ TABLE IT_TEVEN1 WITH KEY PERNR = IT_PA0001-PERNR
LDATE = v_DATE
BINARY SEARCH.
IF SY-SUBRC = 0.
IF IT_TEVEN1-LTIME > IT_FINAL-LTIMEI.
IT_FINAL-LTIMEO = IT_TEVEN1-LTIME.
ELSE.
SELECT SINGLE LTIME
FROM TEVEN
INTO IT_FINAL-LTIMEO
WHERE PERNR = IT_PA0001-PERNR
AND LDATE = v_DATE
AND LTIME > IT_TEVEN1-LTIME
AND SATZA = 'P20'
AND STOKZ NE 'X'.
ENDIF.
ENDIF.
IF IT_FINAL-LTIMEO IS INITIAL.
IF V_SHIFT = 'NNIG' OR V_SHIFT = 'NAFT'..
READ TABLE IT_TEVEN1 WITH KEY PERNR = IT_PA0001-PERNR
LDATE = V_LDATE
BINARY SEARCH.
IF SY-SUBRC = 0.
IT_FINAL-LTIMEO = IT_TEVEN1-LTIME.
ENDIF.
ENDIF.
ENDIF.
if ( V_SHIFT = 'NOFF' OR IT_FINAL-TPROG = 'H' )
and it_final-ltimei is initial and it_final-ltimeo is not initial.
clear: it_final-ltimeo.endif.
APPEND IT_FINAL.
ELSE.
*If holiday or OFF or Tour or Absent
IF V_SHIFT = 'NOFF' OR IT_FINAL-TPROG = 'H'
or it_final-atext is not initial or
( it_final-ltimei is not initial and it_final-ltimeo is not initial ).
APPEND IT_FINAL.
ELSEIF IT_FINAL-ATEXT IS NOT INITIAL.
APPEND IT_FINAL.
ELSE.
IT_FINAL-ATEXT = 'Absent'.
APPEND IT_FINAL.
ENDIF.
ENDIF.
APPEND IT_FINAL.
CLEAR : IT_FINAL.
V_DATE = V_DATE + 1.
ENDDO.
CLEAR : IT_PTPSP[],
IT_ISCAL_DAY[].
ENDLOOP.
SORT IT_FINAL BY PERNR LDATE.
LOOP AT IT_FINAL.
TRANSLATE IT_FINAL-ATEXT TO UPPER CASE.
MODIFY IT_FINAL INDEX SY-TABIX.
ENDLOOP.
ENDFORM. " PROCESS_DATA
*& Form GET_SCHEDULE
Get employee work schedule
FORM GET_SCHEDULE.
CALL FUNCTION 'HR_PERSONAL_WORK_SCHEDULE'
EXPORTING
PERNR = IT_PA0001-PERNR
BEGDA = S_DATE-LOW
ENDDA = S_DATE-HIGH
TABLES
PERWS = IT_PTPSP
EXCEPTIONS
ERROR_OCCURED = 1
ABORT_OCCURED = 2
OTHERS = 3.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " GET_SCHEDULE
*& Form build_fieldcatalog
FORM BUILD_FIELDCATALOG .
X_FIELDCATALOG-COL_POS = 1.
X_FIELDCATALOG-FIELDNAME = 'PERNR'.
X_FIELDCATALOG-SELTEXT_L = 'Personnel No'(006).
X_FIELDCATALOG-DDICTXT = 'L'.
APPEND X_FIELDCATALOG TO FIELDCATALOG.
CLEAR X_FIELDCATALOG.
X_FIELDCATALOG-COL_POS = 2.
X_FIELDCATALOG-FIELDNAME = 'ENAME'.
X_FIELDCATALOG-SELTEXT_L = 'Employee Name'(007).
X_FIELDCATALOG-DDICTXT = 'L'.
APPEND X_FIELDCATALOG TO FIELDCATALOG.
CLEAR X_FIELDCATALOG.
X_FIELDCATALOG-COL_POS = 5.
X_FIELDCATALOG-FIELDNAME = 'LDATE'.
X_FIELDCATALOG-SELTEXT_L = 'Date'(008).
X_FIELDCATALOG-DDICTXT = 'L'.
APPEND X_FIELDCATALOG TO FIELDCATALOG.
CLEAR X_FIELDCATALOG.
X_FIELDCATALOG-COL_POS = 6.
X_FIELDCATALOG-FIELDNAME = 'TPROG'.
X_FIELDCATALOG-SELTEXT_L = 'Planned Shift'(009).
X_FIELDCATALOG-DDICTXT = 'L'.
APPEND X_FIELDCATALOG TO FIELDCATALOG.
CLEAR X_FIELDCATALOG.
X_FIELDCATALOG-COL_POS = 7.
X_FIELDCATALOG-FIELDNAME = 'LTIMEI'.
X_FIELDCATALOG-SELTEXT_L = 'Attended Time-In'(010).
X_FIELDCATALOG-DDICTXT = 'L'.
APPEND X_FIELDCATALOG TO FIELDCATALOG.
CLEAR X_FIELDCATALOG.
X_FIELDCATALOG-COL_POS = 8.
X_FIELDCATALOG-FIELDNAME = 'LTIMEO'.
X_FIELDCATALOG-SELTEXT_L = 'Attended Time-Out'(011).
X_FIELDCATALOG-DDICTXT = 'L'.
APPEND X_FIELDCATALOG TO FIELDCATALOG.
CLEAR X_FIELDCATALOG.
X_FIELDCATALOG-COL_POS = 3.
X_FIELDCATALOG-FIELDNAME = 'ORGTX'.
X_FIELDCATALOG-SELTEXT_L = 'Organization Unit'(005).
X_FIELDCATALOG-DDICTXT = 'L'.
APPEND X_FIELDCATALOG TO FIELDCATALOG.
CLEAR X_FIELDCATALOG.
X_FIELDCATALOG-COL_POS = 4.
X_FIELDCATALOG-FIELDNAME = 'PTEXT'.
X_FIELDCATALOG-SELTEXT_L = 'Emp Subgroup'(016).
X_FIELDCATALOG-DDICTXT = 'L'.
APPEND X_FIELDCATALOG TO FIELDCATALOG.
CLEAR X_FIELDCATALOG.
X_FIELDCATALOG-COL_POS = 9.
X_FIELDCATALOG-FIELDNAME = 'ATEXT'.
X_FIELDCATALOG-SELTEXT_L = 'Leaves/Tours'(015).
X_FIELDCATALOG-DDICTXT = 'L'.
X_FIELDCATALOG-OUTPUTLEN = '25'.
APPEND X_FIELDCATALOG TO FIELDCATALOG.
CLEAR X_FIELDCATALOG.
ENDFORM. " build_fieldcatalog
*& Form build_layout
FORM BUILD_LAYOUT.
GD_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
GD_LAYOUT-ZEBRA = 'X'.
ENDFORM. " build_layout
*& Form ALV_EVENTS
For ALV Events
FORM ALV_EVENTS .
IT_EVENT-NAME = 'TOP_OF_PAGE'.
IT_EVENT-FORM = 'TOP_OF_PAGE'.
APPEND IT_EVENT TO IT_EVENT1.
ENDFORM. " ALV_EVENTS
*& Form TOP_OF_PAGE
ALV TOP-OF-PAGE
FORM TOP_OF_PAGE. "#EC CALLED
REFRESH : IT_LIST_TOP_OF_PAGE.
CLEAR : IT_LINE.
IT_LINE-TYP = 'H'.
IT_LINE-INFO = 'Attendance Report for the Period'(013).
APPEND IT_LINE TO IT_LIST_TOP_OF_PAGE.
CONCATENATE S_DATE-LOW6(2) '.' S_DATE-LOW4(2) '.' S_DATE-LOW+0(4)
INTO IT_LINE-INFO.
CONCATENATE S_DATE-HIGH6(2) '.' S_DATE-HIGH4(2) '.' S_DATE-HIGH+0(4) INTO V_ENDDA.
CONCATENATE IT_LINE-INFO '-' V_ENDDA INTO IT_LINE-INFO SEPARATED BY SPACE.
APPEND IT_LINE TO IT_LIST_TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = IT_LIST_TOP_OF_PAGE.
ENDFORM. "TOP_OF_PAGE
*& Form display_alv_report
FORM DISPLAY_ALV_REPORT.
GD_REPID = SY-REPID.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = GD_REPID
IT_EVENTS = IT_EVENT1
IS_LAYOUT = GD_LAYOUT
IT_FIELDCAT = FIELDCATALOG
TABLES
T_OUTTAB = IT_FINAL
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. "display_alv_report
*& Form VALIDATE_PERSK
text
--> p1 text
<-- p2 text
FORM VALIDATE_PERSK .
IF NOT S_PERSK IS INITIAL.
SELECT SINGLE * FROM T503K WHERE PERSK IN S_PERSK. "#EC *
IF SY-SUBRC <> 0.
MESSAGE E000 WITH 'Enter valid Employee subgroup'(012).
ENDIF.
ENDIF.
ENDFORM. " VALIDATE_PERSK
*& Form VALIDATE_WERKS
Validate user Entered Personnel area
FORM VALIDATE_WERKS .
IF S_WERKS[] IS NOT INITIAL.
SELECT SINGLE * FROM T500P WHERE PERSA IN S_WERKS.
IF SY-SUBRC <> 0.
MESSAGE E000 WITH 'Enter valid Personnel Area'(014).
ENDIF.
ENDIF.
ENDFORM. " VALIDATE_WERKS
*& Form VALIDATE_DATE_LOW
Validate user Entered Date
FORM VALIDATE_DATE_LOW .
IF S_DATE-LOW IS INITIAL.
MESSAGE E000 WITH 'Enter Date'(004).
ENDIF.
IF S_DATE-HIGH IS INITIAL.
MESSAGE E000 WITH 'Enter Date'(004).
ENDIF.
ENDFORM. " VALIDATE_DATE_LOW
*& Form GET_HOLIDAY
Get Holiday
FORM GET_HOLIDAY .
CLEAR V_MODIF.
SELECT SINGLE MOFID
FROM T001P
INTO V_MODIF
WHERE WERKS = IT_PA0001-WERKS
AND BTRTL = IT_PA0001-BTRTL.
CALL FUNCTION 'HOLIDAY_GET'
EXPORTING
HOLIDAY_CALENDAR = V_MODIF
DATE_FROM = S_DATE-LOW
DATE_TO = S_DATE-HIGH
TABLES
HOLIDAYS = IT_ISCAL_DAY
EXCEPTIONS
FACTORY_CALENDAR_NOT_FOUND = 1
HOLIDAY_CALENDAR_NOT_FOUND = 2
DATE_HAS_INVALID_FORMAT = 3
DATE_INCONSISTENCY = 4
OTHERS = 5.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " GET_HOLIDAY
<b>Reward Points if useful.</b> -
hello sir/madam
this is a very urgent and important question. i nedd your assinstance.
i have iphone 3g. i was working well. about 2 months earlier i bought an app of $2.99. after then every thing was okay. but last week i installed some free games and 2 days later itunes send me a reciept via email and you guyz charged me $34. now whenever i try to install free apps they want my billing info. please i need your help and want those money back.
$34 for free games , i will show u the reciept. if its not possible to get the money back i will forced to take proper action.
thank you sir /madam.The games might be free but I think you've clicked In-App purchase which cost money. You are warned before you accept the In-App purchase. You not that young and you can read so take action if you must. It's your own fault and all purchases are final. Good luck.
-
Multi-language report in XML publisher (This is urgent!!)
Hi All,
i am working on Multi-Language report. We have installed just 3 languages (English, Japaneese, Spanish) but my requirement is to display the reports in few more un-installed languages like Korea, chineese etc. I thought of doing the lables (all hard coded fields) translation using .XLIFF file. When i try to run the report, in language settings (this is the place where the XML report takes the language input) i can see only those languages which are installed. How can pass other languages (un-installed) as a parameter in the XML report?
Please suggest. It is very urgent.
Thanks,
ASHello,
The OTN forum for XML Publisher (now called BI Publisher) is here :
BI Publisher
Regards -
PLEASE HELP! THIS IS URGENT! CAN'T INSTALL PRO AS IT SAYS DO NOT MEET MINIMUM SYSTEM REQUIREMENTS!
I have a Macbook 10.6.8 and have AE CS5.5 installed already but when installing Premiere Pro it says cannot meet system requirements. At first I started to download and everything seemed ok until I put 2 nd disk in and then it just crashed. I cannot play Uk Region DVD's on my laptop is that to do with it, I hope not. Why is this happening? This is extremely urgent as this is for a job and I'll lose it if I can't sort it.
PLEASE HELPdo you meet or exceed these specs:
Multicore Intel processor with 64-bit support
Mac OS X v10.6.8, v10.7, or v10.8**
4GB of RAM (8GB recommended)
4GB of available hard-disk space for installation; additional free space required during installation (cannot install on a volume that uses a case-sensitive file system or on removable flash storage devices)
Additional disk space required for preview files and other working files (10GB recommended)
1280x900 display
7200 RPM hard drive (multiple fast disk drives, preferably RAID 0 configured, recommended)
OpenGL 2.0–capable system
DVD-ROM drive compatible with dual-layer DVDs (SuperDrive for burning DVDs; Blu-ray burner for creating Blu-ray Disc media)
QuickTime 7.6.6 software required for QuickTime features
Optional: Adobe-certified GPU card for GPU-accelerated performance
This software will not operate without activation. Broadband Internet connection and registration are required for software activation, validation of subscriptions, and access to online services.* Phone activation is not available. -
hai SDNs..
i have a problem...
DATA: lt_doc TYPE tt_doc,
lt_final TYPE tt_final.
PERFORM fr_get_data_from_mseg CHANGING lt_doc .
from this sub routine i am getting values into lt_doc
perform fr_final_output_data changing lt_final.
i am using the same lt_doc table in this particular table like:
loop at lt_doc..
"""" but it is saying undefined lt_doc...
could you pls help me out.. its urgent..
waiting for reply...Hi RamaKrishna,
I think the problem is with <b>SCOPE of VARIABLES</b> so Declare variables at Global scope ie at the begging of the program then you can access these variables through out your program for all subroutines.
<b>Before the start-of-selection, declare these variables.</b>
DATA: lt_doc TYPE tt_doc,
lt_final TYPE tt_final.
If your lt_doc is table then you need to specify <b>OCCURS 0</b> clause in the defintion of variables as follows.
DATA: lt_doc TYPE tt_doc <b>OCCURS 0 WITH HEADER LINE,</b>
lt_final TYPE tt_final <b>OCCURS 0 WITH HEADER LINE.</b>
and you need to change in PERFORM to as follows.
PERFORM fr_get_data_from_mseg <b>CHANGING TABLES lt_doc</b>
perform fr_final_output_data <b>CHANGING TABLES lt_final.</b>
Thanks,
Vinay
Message was edited by: Vinaykumar G -
I checked its been uninstalled from my mac and then every time I reinstall it, it just perpetually sits on that page that says 'inDesign is downloading now'... but it never does. Need urgent help please! Photoshop and illustrator remained on my mac no issue there. Whats going on?...
Musecatherine please begin the installation process in the Creative Cloud Desktop application. You can find details on how to install the Adobe Creative applications, included with your membership, at Install and update apps - https://helpx.adobe.com/creative-cloud/help/install-apps.html.
It is likely that the AAM Detect Plug-in is not installed or blocked by your current web browser. This is why no action occurs when you are on the download page. -
MD5 Whats is this MD5 URGENT!!!!!!
Hello
Please tell whats this MD5 . I already know this explaination...
MD5 produces an 128-bit (16 byte) message digest
The MD5 algorithm takes as input a message of arbitrary
length and produces as output a 128-bit "fingerprint" or
"message digest" of the input. It is intended for digital
signature applications, where a large file must be
"compressed" in a secure manner before being encrypted
with a private (secret) key under a public-key cryptosystem
such as RSA.
can anyone put this in simpler words . PLSSSSSSSSSSSSSSSSSSSS
I have to understand whats it is.
Pls Help Urgent.
Thanks
praveenaDo you know what a checksum is? Or a hashcode? It's kind of like a more complex checksum or hashcode.
You perform operations (shift, or, and, xor...) on the bytes of a message and produce a 16-byte "summary".
If somebody changes any one bit or byte of the original message, the output will be very different. It's very difficult to come up with two different input messages that have the same 16-byte output output, so if you get this fingerprint through a trusted channel, it can serve as a way to check that the original message you receive is in fact what was sent--it hasn't been tampered with. -
this morning my iphone showed up a activation problem then it told me to go to devoloper.apple.com and register for the ios developer program.. it costed me 99 dollars. but i did it.. just a moment ago.. how do i access my iphone now? please help me this is real urgent.
this in my problem too apple say : ur request is pending now and it did not activated yet ! ?
what should i do? -
Need help to this request urgent plzz
Hi i am new to coldfusion i had a form and in form we have two date fields like date1------------ to date2---------------- and i need to make the second date field default to 7 calendar days from the first date field that was entered.The new date field needs to be non changale
any help regarding this
thanks.Thanks BKBK for ur help but i had problem with this
because i had a componet that is used to select date ie datepicker so when i try to do this i am getting
error , below is my code , would u please help me
<cfform name="dateForm" id="dateForm">
<table>
<td width="440">
<cfinput type="text"
name="avDateFrom"
message="Job Available Date missing - please reenter in the mm/dd/yyyy format."
validate="date"
required="Yes"
size="10" > <cf_calendar datefield="avDateFrom">
<span id="label"> through </span>
<cfinput type="Text"
name="avDateTo"
message="Position Available date is missing, please reenter in the mm/dd/yyyy format. "
validate="date"
size="10" bind="javascript:addDays({dateForm:avDateFrom})" ><img align="absbottom" src="/media/701/calendar.gif" alt="date"/>
</td>
</table>
</cfform>
Maybe you are looking for
-
My son has an iPod Classic. He used to use the family computer to load his iPod. The family computer has the latest iTunes, but was under a family login. My son now has a new computer, his own iTunes account, and the iPod shows an error message wh
-
Satellite L555D-d7005 hangs on bootup
I have a Satellite L555D-d7005, over 2 years old, so out of warranty, installed Windows 7 pro about 3 weeks ago, now today it hangs at the Toshiba splash screen for about 45 seconds or longer, after that it boots into windows just fine. My question,
-
Running OSX 10.7.4 and Mail.5.2. One of 3 email accounts was constantly trying, but unable to synch. The rotating splines were turning non-stop but not synching (other two email accounts worked just fine.) After doing some searching on the internet
-
[SOLVED] upgraded to Systemd, BCM4312 wireless no longer working
Hello, I just finished upgrading my netbook to Systemd, and to my dismay the wireless stopped working. lspci -vnn | grep 14e4 reveals that I have a Broadcom BCM4312 LP-PHY rev01. I believe I was using the Linux kernel driver before with no issues, bu
-
Web application fails to run on PE 8.1
Hi, May someone give advices: I developed an web Application with Sun Java jCreator and worked well under Sun app server PE 8.0 but when deployed to PE 8.1 it doesn't work at all. From Sun Java jCreator I created a WAR file and deployed through admin