Can any one tell what is the problem in this code?
import java.awt.*;
import java.awt.event.*;
import javax.swing.*;
import java.awt.geom.*;
import java.util.*;
public class AppletTest2 extends JApplet implements ActionListener,MouseMotionListener,WindowListener{
JFrame fr = new JFrame("Visual Tool -- Work Flow Editor");
JPanel panel1 = new JPanel();
JPanel panel2 = new JPanel();
JButton sButton = new JButton("Source");
JButton rButton = new JButton("Redirection");
JButton dButton = new JButton("Destination");
JButton connect = new JButton("Connect");
BasicStroke stroke = new BasicStroke(2.0f);
int flag = 1 ;
Vector lines = new Vector();
JButton sBut,rBut,dBut;
int x1 = 0 ;
int y1 = 0 ;
int x2 = 0 ;
int y2 = 0;
int x3 = 0;
int y3 = 0;
int i=0;
int j=0;
int k=0;
int l = 100;
int b = 50;
public void init(){
/*********Frame ******************/
fr.getContentPane().setLayout(new BorderLayout());
fr.setSize(700,500);
fr.getContentPane().add(panel1,BorderLayout.CENTER);
fr.getContentPane().add(panel2,BorderLayout.SOUTH);
fr.addWindowListener(this);
/*****************PANEL 1*********************/
panel1.setLayout(null);
panel1.setBounds(new Rectangle(0,0,400,400));
panel1.setBackground(new Color(105,105,205));
/************************PANEL 2 *************/
panel2.setLayout(new FlowLayout());
panel2.setBackground(new Color(105,205,159));
panel2.add(sButton);
panel2.add(rButton);
panel2.add(dButton);
panel2.add(connect);
connect.setToolTipText("Use this button after selecting From and To position to connect");
/***************************LISTENER********************/
sButton.addActionListener(this);
rButton.addActionListener(this);
dButton.addActionListener(this);
connect.addActionListener(this);
fr.setVisible(true);
fr.setResizable(false);
} // init clse
/************************** START METHOD **********************************************/
public void start(){
System.out.println("inside start");
paint(panel1.getGraphics());
/*******************************APPLET METHODS **************************************************/
public void stop(){}
public void destroy(){}
/******************************MOUSE MOTION LISTENERS METHOD*************************************/
public void mouseMoved(MouseEvent e){System.out.println("moved");}
public void mouseDragged(MouseEvent e){System.out.println("dragged");}
/***************************************ACTION EVENT IMPLEMENTAION *******************************/
public void actionPerformed(ActionEvent e){
if (e.getSource().equals(sButton)){
sourceObject("Source Object");
else if (e.getSource().equals(rButton)){
redirectionObject("Redirection");
i = i+1;
else if (e.getSource().equals(dButton)){
destinationObject("Destination");
j= j+1;
else if (e.getSource().equals(connect)){
System.out.println("am inside connect");
paint(panel1.getGraphics());
else if(e.getSource().equals(sBut)){
System.out.println("am s button");
x1 = sBut.getX() + l;
y1 = sBut.getY() + (b/2);
else if(e.getSource().equals(rBut)){
System.out.println("am r button");
x2 = rBut.getX() ;
y2 = rBut.getY()+ b/2;
System.out.println("x2 : " + x2 + "y2 :" +y2 );
else if(e.getSource().equals(dBut)){
System.out.println("am d button");
x3 = dBut.getX();
y3 = dBut.getY()+ b/2;
} // action close
/**********************Main **********************************/
public static void main(String args[]){
JApplet at = new AppletTest2();
at.init();
at.start();
/********************my methods starts here *******************/
public void sourceObject(String name){
sBut = new JButton(name);
panel1.add(sBut);
sBut.setBounds(new Rectangle(20,208,l,b));
sBut.addActionListener(this);
System.out.println("am inside the source object") ;
public void redirectionObject(String name){
rBut = new JButton(name);
panel1.add(rBut);
rBut.setBounds(new Rectangle(290,208,l,b));
rBut.addActionListener(this);
System.out.println("am inside the redirection :" + j) ;
public void destinationObject(String name){
dBut = new JButton(name);
panel1.add(dBut);
System.out.println("am inside the destination object") ;
if (j == 0)
dBut.setBounds(new Rectangle(566,60,l,b));
System.out.println("am inside the destination:" + j) ;
} else if (j == 2)
dBut.setBounds(new Rectangle(566,208,l,b));
System.out.println("am inside the destination :" + j) ;
} else if (j == 1)
dBut.setBounds(new Rectangle(566,350,l,b));
System.out.println("am inside the destination :" + j) ;
dBut.addActionListener(this);
/* public void connectObject(Object obj1,Object obj2){
System.out.println("nothing");
/************************************* PAINT **************************/
public void paint(Graphics g){
System.out.println("inside paint");
Graphics2D g2 = (Graphics2D) g;
g2.setStroke(stroke);
if(flag == 1){
System.out.println("inside flag");
int np = lines.size();
System.out.println(np);
for (int I=0; I < np; I++) {
Rectangle p = (Rectangle)lines.elementAt(I);
System.out.println("width" + p.width);
g2.setColor(Color.red);
g2.drawLine(p.x,p.y,p.width,p.height);
System.out.println(p.x +"" +""+ p.y + ""+ ""+ p.width+ "" + ""+ p.height);
flag = -1;
}else if(flag == -1){
if(x1 != 0 && y1 != 0 && x2 != 0 && y2 != 0 ){
// Graphics2D g2 = (Graphics2D) g;
// g2.setStroke(stroke);
g2.setColor(Color.red);
g2.drawLine(x1,y1,x2,y2);
lines.addElement(new Rectangle(x1,y1,x2,y2));
x1 = 0 ;y1 = 0 ;
x2 = 0 ;y2 = 0 ;
// g2.drawLine(100,100,200,200);
else if (x2 != 0 && y2 != 0 && x3 != 0 && y3 != 0 )
// Graphics2D g2 = (Graphics2D) g;
// g2.setStroke(stroke);
g2.setColor(Color.green);
g2.drawLine(x2,y2,x3,y3);
lines.addElement(new Rectangle(x2,y2,x3,y3));
x2 = 0; y2 = 0 ;
x3 = 0 ; y3 = 0 ;
else if (x1 != 0 && y1 != 0 && x3 != 0 && y3 != 0)
// Graphics2D g2 = (Graphics2D) g;
// g2.setStroke(stroke);
g2.setColor(Color.red);
g2.drawLine(x1,y1,x3,y3);
lines.addElement(new Rectangle(x1,y1,x3,y3));
x1 = 0; y1 = 0 ;
x3 = 0 ; y3 = 0 ;
// repaint();
/********************************WINDOW LISTENER IMPLEMENTATION *****************************/
public void windowActivated(WindowEvent we) {
flag = 1;
paint(panel1.getGraphics());
System.out.println("windowActivated -- event 1");
//start();
public void windowClosed(WindowEvent we) {
System.out.println("windowClosed -- 2");
public void windowClosing(WindowEvent we){
System.out.println("windowClosing -- 3");
public void windowDeactivated(WindowEvent we) {
System.out.println("windowDeactivated -- 4");
public void windowDeiconified(WindowEvent we) {
flag = 1;
System.out.println("windowDeiconified -- 5");
paint(panel1.getGraphics());
public void windowIconified(WindowEvent we) {
System.out.println("windowIconified -- 6");
//paint(panel1.getGraphics());
public void windowOpened(WindowEvent we) {
// flag = 1;
// paint(panel1.getGraphics());
System.out.println("windowopened -- 7");
The problem am facing here is that when i minimize the frame and maximize , my old lines are getting disappared.
For avoiding that i am storing the old coordinates and
try to redraw , when maximize.
but the lines are coming for flash of second and disappearing once again ?
can any one help?
thanks all
Very interestingly the same code is repainting in
Linux SUSE,jdk1.3.
but not in WINNT , jdk 1.3
Any reason ?
Is the swing 100 % platform independenet ?????
Does swing also uses native thread ???
Similar Messages
-
Please tell me what is the problem with this code
Hai,
Iam new to Swings. can any one tell what is the problem with this code. I cant see those controls on the frame. please give me the suggestions.
I got the frame ,but the controls are not.
this is the code:
import javax.swing.*;
import java.awt.*;
import java.awt.event.*;
public class ex2 extends JFrame
JButton b1;
JLabel l1,l2;
JPanel p1,p2;
JTextField tf1;
JPasswordField tf2;
public ex2()
setDefaultCloseOperation(EXIT_ON_CLOSE);
setTitle("Another example");
setSize(500,500);
setVisible(true);
b1=new JButton(" ok ");
p1=new JPanel();
p1.setLayout(new GridLayout(2,2));
p2=new JPanel();
p2.setLayout(new BorderLayout());
l1=new JLabel("Name :");
l2=new JLabel("Password:");
tf1=new JTextField(15);
tf2=new JPasswordField(15);
Container con=getContentPane();
con.add(p1);
con.add(p2);
public static void createAndShowGUI()
ex2.setDefaultLookAndFeelDecorated(true);
public static void main(String ar[])
createAndShowGUI();
new ex2();
}import javax.swing.*;
import java.awt.*;
import java.awt.event.*;
public class ex2 extends JFrame
JButton b1;
JLabel l1,l2;
JPanel p1,p2;
JTextField tf1;
JPasswordField tf2;
public ex2()
setDefaultCloseOperation(EXIT_ON_CLOSE);
setTitle("Another example");
b1=new JButton(" ok ");
p1=new JPanel();
p1.add(b1);
p2=new JPanel();
p2.setLayout(new GridLayout(2,2));
l1=new JLabel("Name :");
l2=new JLabel("Password:");
tf1=new JTextField(15);
tf2=new JPasswordField(15);
p2.add(l1);
p2.add(tf1);
p2.add(l2);
p2.add(tf2);
Container con=getContentPane();
con.add(p1, BorderLayout.NORTH);
con.add(p2, BorderLayout.CENTER);
pack();
setVisible(true);
public static void createAndShowGUI()
ex2.setDefaultLookAndFeelDecorated(true);
public static void main(String ar[])
createAndShowGUI();
new ex2();
} -
Can any one say What are the mandatory parameters in BAPI_GOODSMVT_CREATE
Hi,
Can any one say What are the mandatory parameters in
BAPI_GOODSMVT_CREATE.
Helpful answer will be rewarded.Hi,
The following is an abap program making used of the BAPI function BAPI_GOODSMVT_CREATE to do Goods Receipts for Purchase Order after importing the data from an external system.
BAPI TO Upload Inventory Data
GMCODE Table T158G - 01 - MB01 - Goods Receipts for Purchase Order
02 - MB31 - Goods Receipts for Prod Order
03 - MB1A - Goods Issue
04 - MB1B - Transfer Posting
05 - MB1C - Enter Other Goods Receipt
06 - MB11
Domain: KZBEW - Movement Indicator
Goods movement w/o reference
B - Goods movement for purchase order
F - Goods movement for production order
L - Goods movement for delivery note
K - Goods movement for kanban requirement (WM - internal only)
O - Subsequent adjustment of "material-provided" consumption
W - Subsequent adjustment of proportion/product unit material
report zbapi_goodsmovement.
parameters: p-file like rlgrap-filename default
'c:\sapdata\TEST.txt'.
parameters: e-file like rlgrap-filename default
'c:\sapdata\gdsmvterror.txt'.
parameters: xpost like sy-datum default sy-datum.
data: begin of gmhead.
include structure bapi2017_gm_head_01.
data: end of gmhead.
data: begin of gmcode.
include structure bapi2017_gm_code.
data: end of gmcode.
data: begin of mthead.
include structure bapi2017_gm_head_ret.
data: end of mthead.
data: begin of itab occurs 100.
include structure bapi2017_gm_item_create.
data: end of itab.
data: begin of errmsg occurs 10.
include structure bapiret2.
data: end of errmsg.
data: wmenge like iseg-menge,
errflag.
data: begin of pcitab occurs 100,
ext_doc(10), "External Document Number
mvt_type(3), "Movement Type
doc_date(8), "Document Date
post_date(8), "Posting Date
plant(4), "Plant
material(18), "Material Number
qty(13), "Quantity
recv_loc(4), "Receiving Location
issue_loc(4), "Issuing Location
pur_doc(10), "Purchase Document No
po_item(3), "Purchase Document Item No
del_no(10), "Delivery Purchase Order Number
del_item(3), "Delivery Item
prod_doc(10), "Production Document No
scrap_reason(10), "Scrap Reason
upd_sta(1), "Update Status
end of pcitab.
call function 'WS_UPLOAD'
exporting
filename = p-file
filetype = 'DAT'
IMPORTING
FILELENGTH =
tables
data_tab = pcitab
EXCEPTIONS
FILE_OPEN_ERROR = 1
FILE_READ_ERROR = 2
NO_BATCH = 3
GUI_REFUSE_FILETRANSFER = 4
INVALID_TYPE = 5
OTHERS = 6
if sy-subrc <> 0.
message id sy-msgid type sy-msgty number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
exit.
endif.
gmhead-pstng_date = sy-datum.
gmhead-doc_date = sy-datum.
gmhead-pr_uname = sy-uname.
gmcode-gm_code = '01'. "01 - MB01 - Goods Receipts for Purchase Order
loop at pcitab.
itab-move_type = pcitab-mvt_type.
itab-mvt_ind = 'B'.
itab-plant = pcitab-plant.
itab-material = pcitab-material.
itab-entry_qnt = pcitab-qty.
itab-move_stloc = pcitab-recv_loc.
itab-stge_loc = pcitab-issue_loc.
itab-po_number = pcitab-pur_doc.
itab-po_item = pcitab-po_item.
concatenate pcitab-del_no pcitab-del_item into itab-item_text.
itab-move_reas = pcitab-scrap_reason.
append itab.
endloop.
loop at itab.
write:/ itab-material, itab-plant, itab-stge_loc,
itab-move_type, itab-entry_qnt, itab-entry_uom,
itab-entry_uom_iso, itab-po_number, itab-po_item,
pcitab-ext_doc.
endloop.
call function 'BAPI_GOODSMVT_CREATE'
exporting
goodsmvt_header = gmhead
goodsmvt_code = gmcode
TESTRUN = ' '
IMPORTING
goodsmvt_headret = mthead
MATERIALDOCUMENT =
MATDOCUMENTYEAR =
tables
goodsmvt_item = itab
GOODSMVT_SERIALNUMBER =
return = errmsg
clear errflag.
loop at errmsg.
if errmsg-type eq 'E'.
write:/'Error in function', errmsg-message.
errflag = 'X'.
else.
write:/ errmsg-message.
endif.
endloop.
if errflag is initial.
commit work and wait.
if sy-subrc ne 0.
write:/ 'Error in updating'.
exit.
else.
write:/ mthead-mat_doc, mthead-doc_year.
perform upd_sta.
endif.
endif.
FORM UPD_STA *
form upd_sta.
loop at pcitab.
pcitab-upd_sta = 'X'.
modify pcitab.
endloop.
call function 'WS_DOWNLOAD'
exporting
filename = p-file
filetype = 'DAT'
IMPORTING
FILELENGTH =
tables
data_tab = pcitab
EXCEPTIONS
FILE_OPEN_ERROR = 1
FILE_READ_ERROR = 2
NO_BATCH = 3
GUI_REFUSE_FILETRANSFER = 4
INVALID_TYPE = 5
OTHERS = 6
endform.
*--- End of Program
Reward for useful answers.
Regards,
Raj. -
I created an iMovie. When I try to export it crashes. Can any one walk me through the problem. In 3 hours, my mom's 80th b'day is taking place and this was one of the gifts.
All of the Spry files are missing and the basic_fs.css. It's a long list. If you use Chrome or Safari, you can view source (Safari) or Inspect Element (Chrome) and under Resources you will see the missing files highlighted.
-
What's the problem in this code
import java.lang.reflect.*;
import java.awt.*;
class ABC
public Integer i;
ABC()
public void setInt(Integer t)
i = t;
public class SampleName {
public static void main(String[] args)
ABC g1 = new ABC();
g1.setInt(new Integer(10));
printFieldNames(g1);
static void printFieldNames(Object o) {
Class c = o.getClass();
Field[] publicFields = c.getDeclaredFields();
for (int i = 0; i < publicFields.length; i++)
try {
Object ref = publicFields.get(c);
System.out.println(" ref.toString() : " + ref.toString());
}catch(Exception e)
e.printStackTrace();
What is the problem with this code,at run time Iam getting this exception
java.lang.IllegalArgumentException: object is not an instance of declaring class
How can we get the value of field of an objectNow it got this exception
java.lang.IllegalAccessException
at java.lang.reflect.Field.get(Native Method)That's strange - I didn't! ;-)
Are you running exactly the same code as the code you posted (except for the one line I said to change)? -
Vector, what is the problem with this code?
Vector, what is the problem with this code?
63 private java.util.Vector data=new Vector();
64 Vector aaaaa=new Vector();
65 data.addElement(aaaaa);
74 aaaaa.addElement(new String("Mary"));on compiling this code, the error is
TableDemo.java:65: <identifier> expected
data.addElement(aaaaa);
^
TableDemo.java:74: <identifier> expected
aaaaa.addElement(new String("Mary"));
^
TableDemo.java:65: package data does not exist
data.addElement(aaaaa);
^
TableDemo.java:74: package aaaaa does not exist
aaaaa.addElement(new String("Mary"));Friends i really got fed up with this code for more than half an hour.could anybody spot the problem?I can see many:
1. i assume your code snip is inside a method. a local variable can not be declare private.
2. if you didn't import java.util.* on top then you need to prefix package on All occurance of Vector.
3. String in java are constant and has literal syntax. "Mary" is sufficient in most of the time, unless you purposly want to call new String("Mary") on purpose. Read java.lang.String javadoc.
Here is a sample that would compile...:
public class QuickMain {
public static void main(String[] args) {
java.util.Vector data=new java.util.Vector();
java.util.Vector aaaaa=new java.util.Vector();
data.addElement(aaaaa);
aaaaa.addElement(new String("Mary"));
} -
What is the problem with this code ? Race condition??
Guys,
The idea behind the attached code is quite simple.
I have a 2D parent array. First, I print a subset of this array into a table control (based on a sensor selection). Now, I want edit the numbers in the table. I need the changes to be reflected in the table and the parent 2D array. (In simple terms, this is like replacing the the edited array subset into the parent 2D array)
The problem is when I change(edit) any entry in the table, the entry changes back to its original value. The change doesnt seem to be reflecting on the parent 2D array and the table. .
Can anyone tell me where the problem is?
Thanks
Ravi
Solved!
Go to Solution.
Attachments:
Alarm threshold test.vi 14 KBI agree with Chris, here's an idea (of whatI think your code does):
The case structure in your code was unnecessary, all the cases were the same so I removed them.
The sequence structure was unnecessary.
Ton
Message Edited by TonP on 11-20-2008 07:52 PM
Free Code Capture Tool! Version 2.1.3 with comments, web-upload, back-save and snippets!
Nederlandse LabVIEW user groep www.lvug.nl
My LabVIEW Ideas
LabVIEW, programming like it should be!
Attachments:
Alarm threshold test_BD.png 19 KB -
Hai every body, can any one tell what is Adobe Forms, why it is used,?
hi ,
can anyone tell what is adobe forms?when and why it is used ?
Can i have step by step screen cams for adobe forms, please help me.Hi,
Welcome to SDN.
If you click on the eLeaning tab at the top of this page then choose 'SAP Interactive forms by Adobe' on the left hand column you will find loads of training material on this topic.
Regards,
Nick -
Can any one share what is the flow of mm
HI
GURUS WHAT IS THE FLOW OF MM
THANKS IN ADVANCEHi,
MM Process Flow
The typical procurement cycle for a service or material consists of the following phases:
<b>1. Determination of Requirements</b>
Materials requirements are identified either in the user departments or via materials planning and control. (This can cover both MRP proper and the demand-based approach to inventory control. The regular checking of stock levels of materials defined by master records, use of the order-point method, and forecasting on the basis of past usage are important aspects of the latter.) You can enter purchase requisitions yourself, or they can be generated automatically by the materials planning and control system.
<b>2. Source Determination</b>
The Purchasing component helps you identify potential sources of supply based on past orders and existing longer-term purchase agreements. This speeds the process of creating requests for quotation (RFQs), which can be sent to vendors electronically via SAP EDI, if desired.
<b>3. Vendor Selection and Comparison of Quotations</b>
The system is capable of simulating pricing scenarios, allowing you to compare a number of different quotations. Rejection letters can be sent automatically.
<b>4. Purchase Order Processing</b>
The Purchasing system adopts information from the requisition and the quotation to help you create a purchase order. As with purchase requisitions, you can generate Pos yourself or have the system generate them automatically. Vendor scheduling agreements and contracts (in the SAP System, types of longer-term purchase agreement) are also supported.
<b>5. Purchase Order Follow-Up</b>
The system checks the reminder periods you have specified and - if necessary - automatically prints reminders or expediters at the predefined intervals. It also provides you with an up-to-date status of all purchase requisitions, quotations, and purchase orders.
<b>6. Goods Receiving and Inventory Management</b>
Goods Receiving personnel can confirm the receipt of goods simply by entering the Po number. By specifying permissible tolerances, buyers can limit over- and under deliveries of ordered goods.
<b>7. Invoice Verification</b>
The system supports the checking and matching of invoices. The accounts payable clerk is notified of quantity and price variances because the system has access to PO and goods receipt data. This speeds the process of auditing and clearing invoices for payment
Reward if useful
Chandru -
What is the problem in this code (problem in select query)
Just need your help in solving one issue. In the below code one query which is highlighted
Select statement not working means cursor directly goes to the endselect .means these two statements not executed.
CLASS cl_abap_container_utilities DEFINITION LOAD.
CALL METHOD cl_abap_container_utilities=>read_container_c
I am attaching that code with this mail. Please do the needful help.
*& Report ZEOU_RG1 *
REPORT zeou_rg1 LINE-SIZE 400.
Purpose : RG1 Report driver
Remarks :
constants
INCLUDE j_2icons.
type declerations
INCLUDE j_2isdef.
table definitions and internal tables
INCLUDE j_2iddef.
INCLUDE <icon>.
DATA: $plant TYPE bp_addr_typ,
$lincnt LIKE sy-linct,
m_date LIKE j_1ipart2-budat,
m_chapid LIKE j_1iexcdtl-chapid,
m_matform LIKE j_1irg1-matform,
m_bedrate LIKE j_1irg1-bedrate,
tot_op_bal LIKE j_1irg1-menge,
tot_qty_mnfr LIKE j_1irg1-menge,
tot_total_qty_mnfr LIKE j_1irg1-menge,
tot_remv_home LIKE j_1irg1-menge,
tot_remv_hval LIKE j_1irg1-exbas,
tot_remv_expr LIKE j_1irg1-menge,
tot_remv_eval LIKE j_1irg1-exbas,
tot_remv_expb LIKE j_1irg1-menge,
tot_remv_othr LIKE j_1irg1-menge,
tot_remv_opur LIKE j_1irg1-menge,
tot_duty_amt LIKE j_1irg1-exbed,
tot_cb_fr LIKE j_1irg1-exbed,
tot_cb_br LIKE j_1irg1-exbed.
DATA: t_rg1_cons TYPE rg1_typ OCCURS 0 WITH HEADER LINE.
FIELD-SYMBOLS: <x_extrctdata> TYPE c,
<x_rg1> TYPE rg1_typ,
<x_part1typ> TYPE part1_typ.
DATA : it_j_1iexchdr TYPE j_1iexchdr OCCURS 0 WITH HEADER LINE,
wa_j_1iexchdr TYPE j_1iexchdr,
it_j_1iexcdtl TYPE j_1iexcdtl OCCURS 0 WITH HEADER LINE,
wa_j_1iexcdtl TYPE j_1iexcdtl.
selection screen
PARAMETERS: p_exgrp LIKE j_1iexchdr-exgrp OBLIGATORY MEMORY ID j2i,
p_stdate LIKE sy-datum OBLIGATORY,
p_endate LIKE sy-datum OBLIGATORY.
*SELECTION-SCREEN SKIP 1.
*SELECTION-SCREEN BEGIN OF BLOCK 4 WITH FRAME TITLE TEXT-001.
*SELECTION-SCREEN BEGIN OF LINE.
*SELECTION-SCREEN POSITION 01.
*PARAMETERS: P_INDI RADIOBUTTON GROUP 57F4 DEFAULT 'X'.
*SELECTION-SCREEN COMMENT (25) TEXT-002.
*SELECTION-SCREEN END OF LINE.
*SELECTION-SCREEN BEGIN OF LINE.
*SELECTION-SCREEN POSITION 01.
*PARAMETERS: P_CONS RADIOBUTTON GROUP 57F4.
*SELECTION-SCREEN COMMENT (25) TEXT-003.
*SELECTION-SCREEN END OF LINE.
*SELECTION-SCREEN END OF BLOCK 4.
INITIALIZATION.
AT SELECTION-SCREEN.
SELECT SINGLE *
FROM j_1iexgrps
WHERE j_1iexcgrp = p_exgrp.
IF sy-subrc NE 0.
MESSAGE e399(8i) WITH p_exgrp.
ENDIF.
*check company code
SELECT SINGLE *
FROM t001k
WHERE bwkey = j_1iexgrps-j_1iwerks.
IF sy-subrc NE 0.
MESSAGE e518(8i) WITH 'the' 'plant' j_1iexgrps-j_1iwerks.
ENDIF.
<b>START-OF-SELECTION.
CLEAR: j_1irg1, j_2icomp.
retrieve layout name and details
SELECT SINGLE *
FROM J_2ILAYCTR
WHERE BUKRS = T001K-BUKRS
AND REGISTER = C_RG1
AND LAYOUTNR = 1.
IF SY-SUBRC NE 0.
MESSAGE E635(8I) WITH T001K-BUKRS C_RG1.
ENDIF.
SET COUNTRY 'IN'.
REFRESH t_reciepts.
report driver logic
SELECT *
FROM j_2iextrct
WHERE exgrp = p_exgrp
AND budat >= p_stdate
AND budat <= p_endate
AND register = c_rg1
ORDER BY budat keyid.
assign J_2IEXTRCT-EXTRCTDATA to <x_extrctdata> casting.
assign T_RG1 to <x_rg1> casting.
<x_rg1> = <x_extrctdata>.
CLASS cl_abap_container_utilities DEFINITION LOAD.
CALL METHOD cl_abap_container_utilities=>read_container_c
EXPORTING
im_container = j_2iextrct-extrctdata
IMPORTING
ex_value = t_rg1
EXCEPTIONS
illegal_parameter_type = 1
OTHERS = 2.
MOVE J_2IEXTRCT-EXTRCTDATA TO T_RG1.
APPEND t_rg1.
ENDSELECT.
DESCRIBE TABLE t_rg1 LINES $lincnt.
IF $lincnt = 0.
MESSAGE e548(8i) WITH p_stdate p_endate.
ENDIF.</b>
PERFORM PLANT_AND_EXCISE_DTLS USING P_WERKS.
PERFORM plant_and_excise_dtls USING j_1iexgrps-j_1iwerks.
MOVE : 'ZJ_2I_RG1' TO j_2ilayctr-layoutname.
SORT t_rg1 BY chapid matnr cpudt .
open form
PERFORM open_form USING j_2ilayctr-layoutname j_2ilayctr-noofcopies "J_2ILAYCTR-LAYOUTNAME
j_2ilayctr-outdevice true.
process extract data and write
IF P_INDI = 'X'.
PERFORM get_data_and_write.
ELSEIF P_CONS = 'X'.
PERFORM RG1_PRINT_CONS.
PERFORM GET_DATA_AND_WRITE_CONS.
ENDIF.
close form
PERFORM close_form.
F O R M S
INCLUDE j_2ilayo.
*& Form GET_DATA_AND_WRITE
Purpose : Logic to print RG1 report
FORM get_data_and_write.
DATA: save_matnr LIKE mara-matnr.
CLEAR: j_1irg1, j_2icomp, save_matnr.
SELECT * FROM j_1iexchdr INTO TABLE it_j_1iexchdr
WHERE exgrp = p_exgrp
AND budat >= p_stdate
AND budat <= p_endate.
SORT it_j_1iexchdr BY cpudt docno.
LOOP AT it_j_1iexchdr.
SELECT * FROM j_1iexcdtl INTO wa_j_1iexcdtl
WHERE docno = it_j_1iexchdr-docno.
APPEND wa_j_1iexcdtl TO it_j_1iexcdtl.
ENDSELECT.
ENDLOOP.
clear wa_j_1iexcdtl.
SORT it_j_1iexcdtl BY chapid matnr cpudt docno.
LOOP AT t_rg1.
CLEAR: j_1irg1, j_2icomp.
assign header fields
j_2icomp-stdate = p_stdate.
j_2icomp-endate = p_endate.
IF save_matnr NE t_rg1-matnr.
fill header line with matnr, description, chapterid and unit
j_1irg1-chapid = t_rg1-chapid.
mara-matnr = t_rg1-matnr.
marav-maktx = t_rg1-maktx.
mara-meins = t_rg1-meins.
save_matnr = t_rg1-matnr.
IF sy-tabix NE 1.
j_2icomp-new_page = true.
ELSE.
j_2icomp-new_page = false.
ENDIF.
ELSE.
j_2icomp-new_page = false.
ENDIF.
PERFORM write_form USING element-spac function-set
typ-body window-main .
determine line to display viz. manufacture entry/removal entry
IF t_rg1-matform = c_packed.
j_2icomp-rg1_p_l = c_packed.
ELSEIF t_rg1-matform = c_loose.
j_2icomp-rg1_p_l = c_loose.
ENDIF.
j_1irg1-cpudt = t_rg1-cpudt.
j_2icomp-op_qty = t_rg1-op_bal.
j_2icomp-mf_qty = t_rg1-qty_mfr.
j_2icomp-to_qty = t_rg1-total.
j_2icomp-cl_fin = t_rg1-cl_bal_fn.
j_2icomp-cl_bon = t_rg1-cl_bal_bn.
j_2icomp-remarks = t_rg1-remarks.
j_2icomp-h_menge = t_rg1-h_menge.
j_2icomp-h_value = t_rg1-h_value.
j_2icomp-e_menge = t_rg1-e_menge.
j_2icomp-e_value = t_rg1-e_value.
j_2icomp-e_menge_bn = t_rg1-e_menge_bond.
j_2icomp-o_menge = t_rg1-o_menge.
j_2icomp-o_purpose = t_rg1-o_purpose.
j_2icomp-o_pur_meng = t_rg1-o_pur_menge.
j_1irg1-bedrate = t_rg1-bedrate.
j_1irg1-exbed = t_rg1-bedamt.
j_2icomp-cl_fin = t_rg1-cl_bal_fn.
j_2icomp-cl_bon = t_rg1-cl_bal_bn.
j_2icomp-remarks = t_rg1-remarks.
READ TABLE it_j_1iexcdtl WITH KEY cpudt = t_rg1-cpudt
chapid = t_rg1-chapid
matnr = t_rg1-matnr.
IF sy-subrc = 0.
get duties for issues only.
IF t_rg1-rcptissrsn = 'IPD'
OR t_rg1-rcptissrsn = 'IWD'
OR t_rg1-rcptissrsn = 'IDH'
OR t_rg1-rcptissrsn = 'IDE'
OR t_rg1-rcptissrsn = 'IWE'
OR t_rg1-rcptissrsn = 'IWT'
OR t_rg1-rcptissrsn = 'IWO'.
READ TABLE it_j_1iexchdr WITH KEY exnum = t_rg1-rdoc1
trntyp = 'DLFC'
cpudt = t_rg1-cpudt.
READ TABLE it_j_1iexcdtl WITH KEY docno = it_j_1iexchdr-docno
cpudt = it_j_1iexchdr-cpudt
trntyp = 'DLFC'
matnr = t_rg1-matnr.
docyr = it_j_1iexchdr-docyr
IF IT_j_1iexchdr-expind <> 'B'
and it_j_1iexchdr-expind <> 'U'
and it_j_1iexchdr-expind <> 'D'
and it_j_1iexchdr-expind <> 'N'
AND T_RG1-h_menge > 0.
and it_j_1iexchdr-expind IS INITIAL.
IF it_j_1iexchdr-censtat = 'P'.
wa_j_1iexcdtl-ecs = it_j_1iexcdtl-ecs.
ENDIF.
IF it_j_1iexchdr-censtat = 'C'.
wa_j_1iexchdr-exbed = it_j_1iexchdr-exbed.
wa_j_1iexchdr-ecs = it_j_1iexchdr-ecs.
wa_j_1iexchdr-censtat = it_j_1iexchdr-censtat.
wa_j_1iexchdr-cpudt = it_j_1iexchdr-cpudt.
wa_j_1iexcdtl-rgplaser = it_j_1iexcdtl-rgplaser.
wa_j_1iexcdtl-rg23aser = it_j_1iexcdtl-rg23aser.
ENDIF.
ENDIF.
endif.
ENDIF.
PERFORM write_form USING element-d function-append
typ-body window-main .
CLEAR : wa_j_1iexchdr, wa_j_1iexcdtl.
ENDLOOP.
ENDFORM. " GET_DATA_AND_WRITE
*& Form GET_DATA_AND_WRITE_CONS
text *
--> p1 text
<-- p2 text
FORM get_data_and_write_cons.
DATA: save_chapid LIKE j_1iexcdtl-chapid.
CLEAR: j_1irg1, j_2icomp, save_chapid.
LOOP AT t_rg1_cons.
CLEAR: j_1irg1, j_2icomp.
assign header fields
j_2icomp-stdate = p_stdate.
j_2icomp-endate = p_endate.
IF save_chapid NE t_rg1_cons-chapid.
fill header line with chapterid
j_1irg1-chapid = t_rg1_cons-chapid.
save_chapid = t_rg1_cons-chapid.
IF sy-tabix NE 1.
j_2icomp-new_page = true.
ELSE.
j_2icomp-new_page = false.
ENDIF.
ELSE.
j_2icomp-new_page = false.
ENDIF.
PERFORM write_form USING element-spac function-set
typ-body window-main .
determine line to display viz. manufacture entry/removal entry
IF t_rg1_cons-matform = c_packed.
j_2icomp-rg1_p_l = c_packed.
ELSEIF t_rg1_cons-matform = c_loose.
j_2icomp-rg1_p_l = c_loose.
ENDIF.
j_1irg1-cpudt = t_rg1_cons-cpudt.
j_2icomp-op_qty = t_rg1_cons-op_bal.
j_2icomp-mf_qty = t_rg1_cons-qty_mfr.
j_2icomp-to_qty = t_rg1_cons-total.
j_2icomp-cl_fin = t_rg1_cons-cl_bal_fn.
j_2icomp-cl_bon = t_rg1_cons-cl_bal_bn.
j_2icomp-remarks = t_rg1_cons-remarks.
j_2icomp-h_menge = t_rg1_cons-h_menge.
j_2icomp-h_value = t_rg1_cons-h_value.
j_2icomp-e_menge = t_rg1_cons-e_menge.
j_2icomp-e_value = t_rg1_cons-e_value.
j_2icomp-e_menge_bn = t_rg1_cons-e_menge_bond.
j_2icomp-o_menge = t_rg1_cons-o_menge.
j_2icomp-o_purpose = t_rg1_cons-o_purpose.
j_2icomp-o_pur_meng = t_rg1_cons-o_pur_menge.
j_1irg1-bedrate = t_rg1_cons-bedrate.
j_1irg1-exbed = t_rg1_cons-bedamt.
j_2icomp-cl_fin = t_rg1_cons-cl_bal_fn.
j_2icomp-cl_bon = t_rg1_cons-cl_bal_bn.
j_2icomp-remarks = t_rg1_cons-remarks.
PERFORM write_form USING element-d function-append
typ-body window-main .
*for grand totals
tot_remv_hval = tot_remv_hval + t_rg1_cons-h_value.
tot_remv_eval = tot_remv_eval + t_rg1_cons-e_value.
tot_duty_amt = tot_duty_amt + t_rg1_cons-bedamt.
ENDLOOP.
*for grand totals
j_2icomp-amount1 = tot_remv_hval.
j_2icomp-amount2 = tot_remv_eval.
j_2icomp-amount3 = tot_duty_amt.
PERFORM write_form USING element-t function-append
typ-body window-footer.
ENDFORM. " GET_DATA_AND_WRITE_CONS
*& Form RG1_PRINT_CONS
text *
--> p1 text
<-- p2 text
FORM rg1_print_cons.
DATA : first_time VALUE on.
SORT t_rg1 BY chapid cpudt.
LOOP AT t_rg1.
IF first_time = on.
m_chapid = t_rg1-chapid.
m_date = t_rg1-cpudt.
m_matform = t_rg1-matform.
m_bedrate = t_rg1-bedrate.
first_time = off.
ENDIF.
IF m_chapid <> t_rg1-chapid.
PERFORM chapid_break.
ELSEIF m_date <> t_rg1-cpudt.
PERFORM date_break.
ENDIF.
Accumulate totals
tot_op_bal = tot_op_bal + t_rg1-op_bal.
tot_qty_mnfr = tot_qty_mnfr + t_rg1-qty_mfr.
tot_total_qty_mnfr = tot_total_qty_mnfr + t_rg1-total.
tot_remv_home = tot_remv_home + t_rg1-h_menge.
tot_remv_hval = tot_remv_hval + t_rg1-h_value.
tot_remv_expr = tot_remv_expr + t_rg1-e_menge.
tot_remv_eval = tot_remv_eval + t_rg1-e_value.
tot_remv_expb = tot_remv_expb + t_rg1-e_menge_bond.
tot_remv_othr = tot_remv_othr + t_rg1-o_menge.
tot_remv_opur = tot_remv_opur + t_rg1-o_pur_menge.
tot_duty_amt = tot_duty_amt + t_rg1-bedamt.
tot_cb_fr = tot_cb_fr + t_rg1-cl_bal_fn.
tot_cb_br = tot_cb_br + t_rg1-cl_bal_bn.
ENDLOOP.
PERFORM chapid_break.
ENDFORM. " RG1_PRINT_CONS
*& Form DATE_BREAK
text *
--> p1 text
<-- p2 text
FORM date_break.
CLEAR t_rg1_cons.
t_rg1_cons-chapid = m_chapid.
t_rg1_cons-cpudt = m_date.
t_rg1_cons-op_bal = tot_op_bal.
t_rg1_cons-qty_mfr = tot_qty_mnfr.
t_rg1_cons-total = tot_total_qty_mnfr.
t_rg1_cons-h_menge = tot_remv_home.
t_rg1_cons-h_value = tot_remv_hval.
t_rg1_cons-e_menge = tot_remv_expr.
t_rg1_cons-e_value = tot_remv_eval.
t_rg1_cons-e_menge_bond = tot_remv_expb.
t_rg1_cons-o_menge = tot_remv_othr.
t_rg1_cons-o_pur_menge = tot_remv_opur.
t_rg1_cons-bedamt = tot_duty_amt.
t_rg1_cons-cl_bal_fn = tot_cb_fr.
t_rg1_cons-cl_bal_bn = tot_cb_br.
t_rg1_cons-matform = m_matform.
t_rg1_cons-bedrate = m_bedrate.
APPEND t_rg1_cons.
tot_op_bal = 0.
tot_qty_mnfr = 0.
tot_total_qty_mnfr = 0.
tot_remv_home = 0.
tot_remv_hval = 0.
tot_remv_expr = 0.
tot_remv_eval = 0.
tot_remv_expb = 0.
tot_remv_othr = 0.
tot_remv_opur = 0.
tot_duty_amt = 0.
tot_cb_fr = 0.
tot_cb_br = 0.
m_date = t_rg1-cpudt.
m_matform = t_rg1-matform.
m_bedrate = t_rg1-bedrate.
ENDFORM. " DATE_BREAK
*& Form CHAPID_BREAK
text
--> p1 text
<-- p2 text
FORM chapid_break.
PERFORM date_break.
m_chapid = t_rg1-chapid.
ENDFORM. " CHAPID_BREAKhi rakesh,
in your first select single * statement you have given WHERE BUKRS = T001K-BUKRS..but at the point of execution, what will be the value stored in t001k-bukrs...i doubt it will be initial....so, store bukrs in a variable or hardcode it.....
in the second select, you hve not given any target work area for the into class...that's y your subrc is 4...specify a target area, where you want the data to be stored... -
What is the problem in this code
hi
im tring to ftech mutliple reords to tabuler form text item
i write this code but its only fetch values for first record in the text item and do not fetch to other records in the same text item
Declare
cursor c is
select distinct group_a from sc_mast; <here i select all values
in my database that they are 63 values>
begin
for r in c loop
next_record;
:visib_groups.group_a:=r.group_a;<it assign vakues only for first record>
end loop;
end;This?
Go_block('>your_block<')
first_record;
begin
for r in c loop
:visib_groups.group_a:=r.group_a;<it assign vakues only for first record>
next_record;
end loop;Ros -
Can you figure out what was the problem in this simple 3 liner code?
Hello, below is a class to demonstrate a problem I see that I can't understand. I create an instance of the enclosing
class at class level, another instance in static main method. Class below fails at run time with stack overflow exception. It's all fine if one of those two instantiation steps is removed, What is wrong can anyone any ideas?
public class App
// create instance of this class
App app = new App();
public static void main( String[] args )
// create instance of this class again.
App app2 = new App();
System.out.println( "Hello World!" );
}As soon as a new instance of 'App' is created, 'App app = new App();' is called, which calls 'App app = new App();' etc. Hence the stack overflow.
When you remove 'App app = new App();', obviously, the stack overflow does not occur. And when your remove 'App app2 = new App();' the 'App' class is never instantiated and therefore, the exception is also not thrown. -
What is the problem with this code?
dear sirs...
i have a page that does not contain any binding, it contains the following event:
public void onCheck(DataActionContext ctx)
ViewObject V=ctx.getBindingContext.findDataControl("AppModuleDataControl").getApplicationModule.findViewObject("empview1");
V.setWhereClause("");
V.executeQuery();
V.first();
note that the above code works if the table emp is on the page, however, if the page is not bound to the page (it does not contains the table) the statement in the bold will fire an exception saying that there is no binding. i am sure the V is not set to null.
another problem appears, if i put the table and execute it within jdeveloper, it works correctly, however, if i run if i deploy the application into application server, the code never runs as if there is some kind of an error.
i hope that you can anser me about the following;
1- if the code above correct?
2- how can i view the log for the application?
3- System.out.println("test"); in jdeveloper works okay, in the application server, does it cause some kind of an error?
thanks for any help & best regardsIf you don't close the ResultSet, different things happen based on which database you're running. You can keep read locks that you don't need. It wastes resources, and as different databases react differently to it, you might have weird bugs down the road that result from your practices of not properly closing ResultSets, PreparedStatements, and Connections. Put this in a loop like you've got here, and the effects may or may not get amplified.
I write a close() for a ResultSet just as soon as I open it, just to make sure I don't forget. In a situation like this one, I would write something like so:
for(int i = 0;i<someValue;i++)
try
//some code
rs = pstmt.executeQuery();
//some code that uses rs
catch(Exception e)
finally
if (rs != null)
rs.close();
if (pstmt != null)
pstmt.close();
} -
DECLARE
v_group_grade RECORDGROUP;
v_pop_group NUMBER;
BEGIN
v_group_grade := find_group('group_grade');
IF NOT id_null(v_group_grade) THEN
delete_group(v_group_grade);
END IF;
IF :CONTROL_LISTS.STAGE = 1 THEN
v_group_grade := create_group_from_query('group_grade', 'SELECT grade_name FROM grade WHERE grade_name LIKE ''KG%''');
v_pop_group := populate_group(v_group_grade);
populate_list('CONTROL_LISTS.GRADE', v_group_grade);
ELSIF :CONTROL_LISTS.STAGE = 2 THEN
v_group_grade := create_group_from_query('group_grade', 'SELECT grade_name FROM grade WHERE grade_name LIKE ''Prim%''');
v_pop_group := populate_group(v_group_grade);
populate_list('CONTROL_LISTS.GRADE', v_group_grade);
ELSIF:CONTROL_LISTS.STAGE = 3 THEN
v_group_grade := create_group_from_query('group_grade', 'SELECT grade_name FROM grade WHERE grade_name LIKE ''Prep%''');
v_pop_group := populate_group(v_group_grade);
populate_list('CONTROL_LISTS.GRADE', v_group_grade);
ELSE
NULL;
END IF;
END;
when I change the selection of the STAGE list in the runtime this error apear:
FRM-41334 invalid record group for list population.Thanks Faheem,
I got it it was in the select statement.
When I create poplist to fetch data from the database I should select at least two charachter columns. -
Can any one tell me the difference between VK11 and MR21
Hi Folks,
I have changed price of a material using VK12.
When I go to the transaction MR21, it is still showing the old price.
Can any one help what is the difference between VK11 and MR21.
And i which scenarios these two were used?
Thanks in Advance
Gopi KrishnaHii,
VK11: This is price master record to determine the sale price or discounts or freight or taxes which we going to charge to the final customer. Through this transaction we will determine the price automatically either in sales or billing document. These transaction is only applicable for sales & distribution module for determining the pricing for customers.
The price determined through this we use in revenue realisation.
MR21: Through this trnsaction Finance or Cost users upload the cost of the material. The cost is
Standard Cost or Moving average cost.
Cost= Raw Material CostProcessing Cost(product process cost )Overheads(employee salaries)
This cost is maintained at each material master in accounting view either standard cost or moving average cost.
These cost is determined for every material movement within the company.
Example: Production, transfer posting, goods issue- system post the quantity and at the same time system create an inventory entry i.e accounting entry for the transaction. In this accounting entries, system consider the values from material master for generating accounting entry.
If you upload production for 10 MT of material A and in material master if kept the cost of the material as 1000 then the accounting entry in production time as
Finish Goods Dr 10000
To Cost of Production Cr 10000
These cost also determined sales transaction through VPRS condition type.
Rewards if it helps
Regards
Goutham
Maybe you are looking for
-
My iphone 4 has mild water damage. As a result, it will not sync with it's former XP computer with the cable. I deleted the phone's data in the troubleshooting process. I want to get it back by syncing over wifi, but I did not set up this capability
-
Error installation oracle Hyperion interactive reporting web client
I can't install the web client through Hyperion workspace v11. My steps are: Workspace --> Tool --> Install --> Interactive Reporting Web Client Then error message is shown: unexpected status 400 (no host matches server name XXXXXX.com) returned on X
-
Amazon song IDs not showing up in iTunes
I've downloaded songs from Amazon. The Amazon song ID is stored in the MP3 'Comments' field, which I've confirmed through Windows Explorer. Yet in iTunes the Comments field is blank.
-
Export a Final Cut Pro XML file problem about translation issue
When I export the final cut pro xml file, there is always translation issue like that 'Transition <....> not translated, Cross Dissolve used instead.' Most of the transition type can cause the translation issues except the wipe and cross dissolve. Is
-
Hi Guys, I have a requirement at my client's place in which we have to do overtime based on 40 hours a week calculation, i have checked in IMG and tried to include TPOW but didnt calculate overtime on running time evaluation.We use Time evaluation fo