Linking two JFrames using JButton-very,very urgent
Hello,
I have two JFrames I created using javax.swing.I am new to ActionListener.The two classes are the frames.Could someone please link them for me?Their code is as follows:-
1.
import java.awt.*;
import javax.swing.*;
import java.awt.event.*;
public class rr extends JFrame
JButton rest=new JButton("Ground Chilli-Restaurant");
JButton spa=new JButton("Carribean Spa");
JButton gift =new JButton("Antiquo-Gift Shop");
JButton pool=new JButton("Poolside Parlour");
JButton recep=new JButton("Reception");
JButton th=new JButton("Travel House");
public rr()
super( "Welcome");
setSize(370,270);
setBackground(Color.RED);
setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
JPanel pane=new JPanel();
pane.setBackground(Color.MAGENTA);
GridLayout family=new GridLayout(3,3,10,10);
pane.setLayout(family);
pane.add(rest);
pane.add(spa);
pane.add(gift);
pane.add(pool);
pane.add(recep);
pane.add(th);
getContentPane().add(pane);
setVisible(true);
public static void main(String[] args)
rr frame=new rr();
and the others are:-
2.
import javax.swing.*;
import java.awt.*;
import java.awt.event.MouseEvent;
import javax.swing.event.MouseInputListener;
public class spa extends JFrame
String[] subs={"Welcome Cocktail","Body Massage","Steam Room","Children's Pool"};
JList subList=new JList(subs);
JRadioButton li=new JRadioButton("Executive service");
JRadioButton oi=new JRadioButton("Economic Service");
JButton ok=new JButton("Back");
JButton can=new JButton("Continue");
public spa()
super("The Carribean Spa");
setBackground(Color.RED);
setSize(230,400);
JPanel panel=new JPanel();
panel.setBackground(Color.PINK);
JLabel label1=new JLabel("Kindly select from our services :-");
JLabel label2=new JLabel("Which type of service would you like?");
panel.add(label1);
subList.setVisibleRowCount(8);
JScrollPane scroller=new JScrollPane(subList);
panel.add(scroller);
panel.add(label2);
panel.add(li);
panel.add(oi);
panel.add(ok);
panel.add(can);
getContentPane().add(panel);
setVisible(true);
public static void main(String[] arguments)
spa app=new spa();
3.
import java.awt.*;
import java.awt.event.*;
import javax.swing.*;
public class op extends JFrame
JProgressBar current;
JTextArea out;
JButton ok=new JButton("OK");
JButton con=new JButton("View our Credits Board.");
JButton find;
Thread runner;
int num=0;
public op()
super("Calculatiing your Hotel Bill.Please wait.");
setSize(222,500);
setBackground(Color.PINK);
setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
getContentPane().setLayout(new FlowLayout());
current=new JProgressBar(2,2000);
current.setValue(0);
getContentPane().add(ok);
getContentPane().add(con);
current.setStringPainted(true);
getContentPane().add(current);
public void iterate()
while(num<2000)
current.setValue(num);
try{
Thread.sleep(1200);
}catch(InterruptedException e){}
num+=95;
public static void main(String[] arg)
op frame=new op();
frame.pack();
frame.setVisible(true);
frame.iterate();
and so on......
Please link these frames for me as I am not fully familiar with ActionListener () and WindowListener().
Thanks,
Bala
If you have work you urgently need done then you should pay someone to do it.
This is not a charity work forum. This is a forum for getting guidance and advice.
So you are in the wrong place. Go elsewhere.
Similar Messages
-
Link two reports using parameters
Hi,
We are using business object XI.
I am trying to link two reports using parameters. I cannot use subreport option becuase inside the subreport I should link another report too. So,
Report 1(High level summary)
Report 2(Middle level summary)
Report 3(Detail level)
I tried to use hyperlink option and used following string.
http://<server_name>/<Virtual Directory>/object.rpt?prompt0={?param1}&prompt1={?param2}
Here is my question.
1. Server name: Does it include port number??
2. Virtual Directory: I am absolutely lost. I tried the "frsinput" directory the actual rpt file is storing. It is not working.
Do you have general path??
3. Parameters: I have 5 parameters to pass. 3 of them are Strings and the rest are DateTime.
Basically, I need any tutorial about this kinds of things. The tutorial I have got only discribe link like "www.yahoo.com"
BTW, is this even possible solution??Hi,
I am trying to link two reports in the crystal report designer->deploy to the server->show in the DHTML viewer.
When I create a URL from report A, it looks like "&" disapears. For example, I created a hyper link from report A using formula,
http://server:port/........openDocument.jsp?sDocName=reportB&sType=rpt¶mName1="Trim(ToText({?param1},"#####"))"¶mName2="+Trim(ToText ({?param2},"#######"))
But when I see the actual URL, all the "&" disappears so it looks like
http://server:port/........openDocument.jsp?sDocName=reportBsType=rptparamName1="Trim(ToText({?param1},"#####"))"paramName2="+Trim(ToText ({?param2},"#######"))
No wonder it is not working.
I guess I need special protection for "&" sign. Do you know any? -
Mail with PO doc and link document iwhile using output type 7 - Urgent
Hi all,
I'm facing a problem for my customer.
I need to send a mail with the PO forms and all link document of each item .
This mail have to be send to several user maintain with transaction MN05 and user want to change the recipient of the mail in MESSAGE Screen of PO so we try to use output type 7 which allow this modification .
Unfortunatly, with this output type i can't add by abap code document in the mail .
Does somebody face the same problem or add a solution to retrieve all recipient define by the user ?
Best regards.Requirement Cancel
-
Linking two DCs using interface views and return the value
Hi,
I have two webdynpro DCs. DC1 & DC2, each contains one view.
Point 1: From the DC1-->DC1View1 ,when I click a button , It should call DC2(This is happening).
Point2: When the DC2 is executed it should return to DC1-->DC1View1, value from DC2 need to be passed to DC1 also.
How to acheive point2. How anyone help on this .
Regards,
Muhammed Nishad J.Hi,
You would have created a inbound and outbound plug between DC1-->DC1View1 and DC2 ->View.
Now you will have to create the same for DC2 ->View and DC1-->DC1View1
1) create an inbound plug on DC1-->DC1View1 and outbound plug on DC2->view.
2) Now create a link as you would have in the first case.
3) create a parameter in DC2->view for outbound plug, and also the same in inbound plug of the DC1->view
4) Now in the method that was created for the outbound(public void onPlug<name of plug> )pass the value into the parameter created
5) in the inbound method(public void onPlug<name of inbound> get the value of the parameter in a variable.
I hope this solves your problem.
Thanks and Regards,
Narayani -
How to use a DropDownList in Java Swing.Its very very Urgent
Hi Sir,
Here i need to know how to do (or) create a dropdownlist by using Java Swing.I know that there is JMenuBar & JMenuItems without using that when i click a JButton for example the dropdownlist should come from the top to bottom.I have already posted this quesion once.And i found that it has been removed.So i hope that this time i will get a better answer.Pls.do provide the code as well sir.So that i will be very thankful to u.Since i am involved in a project which contains this
feature.It is very very Urgent.So pls.do provide the code i will be waiting for the reply.
Thanx,
m.ananthuuse JComboBox
JComboBox liste = new JComboBox(new Object[]{"azerty","qwerty});the api documentation :
http://java.sun.com/j2se/1.4.2/docs/api/javax/swing/JComboBox.html
the turotial on combobox :
http://java.sun.com/docs/books/tutorial/uiswing/components/combobox.html -
UPDATE ROUTINE --- CUBE --- ODS Very Very URGENT
Hi Collegues/Friends ,
First I need to thank for the intiators of this site , as I came to know that for many
problems we will get different best solutions ... Hoping the same I am posting a question
which is very very very urgent as the client is running after me for this .
My Requirement is as Follows. ..
I Moving the data from Cube to ODS . While i need to write a routine for an extra field in
ODS based on Billing Quantity in Base Unit of Measure . The Key Field in the ODS Is UNIQKEY
Transaction and It is a Characterstic in the Cube and we have MAterial as another
Characteristic and core element as navigational attribute .
In the Cube for every UNIQKEY transaction- there are more than One line items.
My data fields in the ODS are Billing Quantity in Base Unit of MEasure and and EXTRA FIELD
: No of Items in Transaction . But the thing is that I have only Billing Quantity in Base
Unit of Measure in cube as a key figure
BAsing on the UNIQKEY transcation and Billing Quantity In Base Unit Of Measure I need to
populate the No of Items in Transaction... For this i need to write a routine .
Let suppose say that for the Materials the core elements are as follows
Material Core element
10 1 -- fuel -- In liters
20 2 -- Cigar - in PAck
30 3 -- Coke - in Cans
Now Lets see how the records are there in InfoCUbe
Uniqkey / Material / Core element /Billin Quantiy
A / 10 / 1 / 22
B / 30 / 3 / 2
C / 10 / 1 / 15
C / 30 / 3 / 2
D / 20 / 2 / 10
D / 30 / 3 / 2
And IN the ODS -- I need to Populate the No OF items in Transaction.
the Logic behind this as follows .
1.if Materail is of type 1(Mean if the core element - 1)
I need to Populate the No of items in tnx = 1
2.If Material id of type 2 or 3 I need to populate the billing quantity to the no of
transcations.
3. If the Uniqkey tanscation contains two line items as suppose that you have 20 litres of
fuel and 2 cans of coke, then No of Items in the transaction should be 3 and Billing
Quantity in BUoM 22
billing quantity in BUoM = 20 litres for the first line item and 2 for the second line
item...
then as the first line item is fuel, field No OF Items in the Transcation should be 1
(replacing the 20) + 2 = 3
so the final result in the ODS should be billing quantity in BUoM = 22 and The Items in the
Transcation = 3
For this I have Written a Rouinte like this for that field
PROGRAM UPDATE_ROUTINE.
$$ begin of global - insert your declaration only below this line -
TABLES: /BI0/PMATERIAL.
DATA: TITEMS LIKE /BIC/AZPOCODS00-/BIC/ZTITEMS,
CORE_ELEMENT like /BI0/PMATERIAL-RPA_WGH1.
$$ end of global - insert your declaration only before this line -
FORM compute_data_field
TABLES MONITOR STRUCTURE RSMONITOR "user defined monitoring
USING COMM_STRUCTURE LIKE /BIC/CS8ZPOCTUS04
RECORD_NO LIKE SY-TABIX
RECORD_ALL LIKE SY-TABIX
SOURCE_SYSTEM LIKE RSUPDSIMULH-LOGSYS
CHANGING RESULT LIKE /BIC/AZPOCODS00-/BIC/ZTITEMS
RETURNCODE LIKE SY-SUBRC "Do not use!
ABORT LIKE SY-SUBRC. "set ABORT <> 0 to cancel update
$$ begin of routine - insert your code only below this line -
fill the internal table "MONITOR", to make monitor entries
check not COMM_STRUCTURE-material is initial.
select SINGLE RPA_WGH1
INTO CORE_ELEMENT
from /BI0/PMATERIAL
where
material = COMM_STRUCTURE-material
and OBJVERS <>'D'.
IF CORE_ELEMENT EQ '1'.
TITEMS = '1'.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
EXPORTING
input = titems
IMPORTING
OUTPUT = titems
ELSE.
TITEMS = COMM_STRUCTURE-BILL_QTY.
ENDIF.
result value of the routine
RESULT = TITEMS..
if abort is not equal zero, the update process will be canceled
ABORT = 0.
$$ end of routine - insert your code only before this line -
Does it satisfy all the conditions ?? mentioned above if . As far As i know as the only key
field in the transcation it will satisfy the first two conditions .
I want to know or If possioble anybody pls take some pain for me to send the code or any
Ideas for satisfying all the conditions.
Hope I will get immediate replies....
Mail me to [email protected]Reddy,
Please do not post in all sections ... makes it hard to follow up on posts..
Arun -
Hi All,
We have provided the partner details like AS2ID,URL,Port and certificates.
They ask me to do some sample testing whether files are reaching to partner system or not.
I done all the required steps in IR and ID...
1. Can anyone suggest me how to do the testing
2. Where to monitor for AS2 messges?
3. How to see the our output files whether we are sending the correct files or not?
4. Outbound -- How we will come to know whether file reached to partner or not?If we set sync Mdn.. where we can see the MDN..?
5. Inbound-- How we will come to know whether file has sent to us or not?
Someone pls explain step by step how to do the testing using AS2 adapters for both Outbound and Inbound.
Its Very Very urgent.
Waiting for your replys..
Regards
Deepthi.Hi Deepthi,
1. Can anyone suggest me how to do the testing
A) Like message monitoring in RWB we have a particular link to monitor the message through differnt seeburger adapter.
I dont remember the link right now.
2. Where to monitor for AS2 messges?
A) Through the same link.
3. How to see the our output files whether we are sending the correct files or not?
A) u mean to check the output file data or strucutre if strucutre is not proper then u will get the error message and ur mapping fails.
4. Outbound -- How we will come to know whether file reached to partner or not?If we set sync Mdn.. where we can see the MDN..?
I have no idea.
5. Inbound-- How we will come to know whether file has sent to us or not?
File is sent over wan so when it will be pickd up by XI.
Thnx
Chirag -
Hi AS2 experts,
Regarding AS2 sender adapter:
We will provide the details
TP: HTTP
MP: AS2
*Message Subject = **
1. Can anyone please clarify what is this message subject ??
Its the incoming file name we need to provide?
According to few blogs,
2. We will be providing the below URl to the partner system to send there messages.
HTTP://<your-xi-server>:50000/SeeburgerAS2/AS2Server
Consider im having partner systems A,B,C .
and we will be creating 3 communication channels(CC1 ,CC2 ,CC3) to three partner systems.
If i provide same URL to all the three partner systems.
Then how it will differentiate like which file is belongs to which interface (from which partner it is coming)?
And im not providing anything specific in all the AS2 sender comunication channels to differentiate these files.
What is this AS2ID which we will provide in Party Configuration.
WIll it makes any difference to above problem?
Kindly suggest me if anyone has idea about this asap.
Its Very very urgent.
ThankYou.
Regards
Deepthi.Hi,
>>>>1. We need to provide the below URl and Port to the partner to receive the messages?? HTTP://<your-xi-server>:50000/SeeburgerAS2/AS2Server
I guess yes . you need to provide this URI.
>>>>>2.Is it possible to do content based routing by using Message Subject?
yes it is possible to determine the receiver depending upon ur condition. Please provide the context object at design time and at the time of Configuration , using XPATH you can determine conditional receiver.
please look in to this links u will come to know about seeburger adapter.
/people/bla.suranyi/blog/2006/06/08/sap-xi-supports-edifact
/people/william.li/blog/2006/03/17/how-to-get-started-using-conversion-agent-from-itemfield
/people/paul.medaille/blog/2005/11/17/more-on-the-sap-conversion-agent-by-itemfield
http://www.stylusstudio.com/edi/XML_to_X12.html
https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/docs/library/uuid/b0b355ae-0501-0010-3b83-8f2bb566fa47
Details on XI EDI adapter from seeburger
/people/bla.suranyi/blog/2006/06/08/sap-xi-supports-edifact
http://www.seeburger.it/fileadmin/it/pdf/2005_04_sapphire_Ferrero_transcript.pdf
http://www.seeburger.com/fileadmin/com/pdf/Butler_Group_SEEBURGER_Technology_Audit.pdf
http://www.seeburger.com/fileadmin/com/pdf/AS2_General_Overview.pdf
SAP Adapters
EDI with XI
http://www.seeburger.com
http://www.seeburger.com/fileadmin/com/pdf/AS2_General_Overview.pdf
http://www.seeburger.it/fileadmin/it/pdf/2005_04_sapphire_Ferrero_transcript.pdf
http://www.seeburger.com/fileadmin/com/pdf/SEEBURGER_SAP_Adapter_engl.pdf
http://www.seeburger.com/fileadmin/com/pdf/Butler_Group_SEEBURGER_Technology_Audit.pdf
http://www.sap.com/france/company/events/2006/02-01-Automotive-Seeburger.pdf
http://h41123.www4.hp.com/presentations/ISUG/XISeeBurger.ppt
http://www.sap.com/asia/company/events/nwtechdays/presentation/australia-slides/Pre-Built_Integration.pdf
http://www.seeburger.com
http://www.seeburger.it/fileadmin/it/pdf/2005_04_sapphire_Ferrero_transcript.pdf
http://www.seeburger.com/fileadmin/com/pdf/Butler_Group_SEEBURGER_Technology_Audit.pdf
http://www.sap.com/france/company/events/2006/02-01-Automotive-Seeburger.pdf
http://h41123.www4.hp.com/presentations/ISUG/XISeeBurger.ppt
Hope this will help you.
Regards
Aashish Sinha
PS : reward points if helpful -
Very very urgent Discoverer reports for non oracle applications
Hi,
My client is using discoverer 10g with R12.He is using different non oracle applications like BRM Application (database is oracle only) for that they wants to develop discoverer reports.It is possible to integrate with non oracle applications with discoverer.
Can you please suggest me.It is very very urgent.
Thanks & Regards.Hi
You're really not supposed to manage a non-Apps mode EUL and an Apps mode data within the same URL. Having said that, I have a hunch you just might be able to do it and there are 2 ways. You can either make the data available to user who login using E-Business Suite credentials or you can make it available to users who have database credentials. The first one is straightforward and you do it just like any other data. Let me give you some hints regarding the second method.
First of all I ahve not personally tried this and you may find that because Discoverer was initially set up in Apps mode that somewhere down the line it will make the suers connect this way. However, the following is worth a try.
I would a new schema in the Oracle E-Business database to manage the link to BRM and create a database link from this user to a user in the BRM database. You will also need to create user accounts within the database for anyone who needs to login and run BRM reports.
Next, I would create views in this new schema pointing at data across the BRM link, thus allowing Discoverer to think these are local objects.
In Discoverer Administrator, you would need to log in to Discoverer using the owner of the EUL - NOT using SYSADMIN or any of the other E-Business Suite accounts. You should log in with the Oracle Applications checkbox unchecked. You can now create new business areas on the BRM data. You should also be able to assign users to Discoverer privileges and users to business areas.
Using the same URL you would have Apps users connect using the E-Business Suite item on the drop-down for logging in and you would have BPM users choose the Business Intelligence Discoverer item.
Let me know how you get on
Michael -
i have an old ipod touch that i have not used in a very long time, and im having trouble gettign it to turn on. ive had it on a charger for over an hour now and still nothing hs changed. i just updated my itunes to the current version they haev so i know its not an itunes problem its rather a problem with the old ipod touch itself. im leaving for deployment soon and im trying to get this fixed without having to send it in. If anyone has any ideas on how to get this thing turned on it would be greatly appreciated.
Well, two thoughts.
The battery has completely discharged and will take overnight to recharge, so don't expect much in an hour.
The battery has deep discharged and is now dead. It will never recharge and should be replaced.
If your iPod Touch, iPhone, or iPad is Broken
Apple does not fix iDevices. Instead they exchange yours for a refurbished or new replacement depending upon the age of your device and refurbished inventories. On rare occasions when there are no longer refurbished units for your older model, they may replace it with the next newer model.
You may take your device to an Apple retailer for help or you may call Customer Service and arrange to send your device to Apple:
Apple Store Customer Service at 1-800-676-2775 or visit online Help for more information.
To contact product and tech support: Contacting Apple for support and service - this includes international calling numbers.
iPod Service Support and Costs
iPhone Service Support and Costs
iPad Service Support and Costs
There are third-party firms that do repairs on iDevices, and there are places where you can order parts to DIY if you feel up to the task. Start with Google to search for these.
The flat fee for a battery exchange is, I believe, $99.00 USD. -
Linking two ODS objects using a multiprovider
Hello Gurus,
I need to link two ODS objects and both are having 3 common characteristics and the relationship between the two objects are one to many.
My questions would be....
1)When the relationship is one to many can I set it up in the multiprovider to sum it up and show in the report?
2)I have 5 other charaterstics that I need to report(Slice and dice) on, but these are not common ones to both ODS objects. Is it possible for the user to get the report based on these charaterstics also? Or do I need to make sure that these 5 also exist in both DOS objects?
Thank you,
DMHi Sh,
Thank you very much for your reply. But I have few concerns.
1)One to many relationship will not have any effect on the data linking since the multiprovider clubs the key figures on common characteristics. I tried this on the system and it worked.
2)The problem would be not having similar characteristics on both infoproviders. So if I want to report on the chars individually it will have a problem( Will come as non assigned values)
But the documentation says the multiprovider supports Homogenous and Heterogeneous cases. Please refer the following link.
http://help.sap.com/saphelp_nw04/helpdata/en/52/1ddc37a3f57a07e10000009b38f889/frameset.htm
I am not sure what I can do now....whether to get all the characteristics in both infoproviders by enhancing the them. Or is there another way?
And lastly the scenario I am looking at is billing and cost of goods. So I might find records in cost of goods which may not have corresponding records in billing.(There can be goods in stock which need to be billed)The problem would be the way multiprovider link records(union) so it will have all the records from both sides even if they do not correspond to each other.
Let me know what you think.
Cheers,
DM -
Error during GR(very very urgent)
Hi all,
i am using a developed program for GR.i used this program before.there was no error.but now i am facing error like
<b>PO ordered quqntity exceeded by 18,000 EA.</b>.i am using <b>BAPI_GOODSMVT_CREATE</b> for goods transfer.
In the selection screen, i am putting
PO number- PO1
material number- MAT
GR quantity- 18,000
delivery order-111
i want to receive the material MAT of quantity 18,000 from that PO.initially i have ordered PO quntity as 1 lakh. Till now i have received 42,000 materials,now i try to receive 18,000 materials.but it is showing this type of error.
This error is fired from the return parameter of that BAPI only.error having message class-M7 & error no-022
is comming.
i am giving my coding below.plz suggest where is the problem.it is very very urgent.recently my company has added some patches to update the SAP.is this the cause for that error.plz suggest.
any idea will be highly appreaciated.
Regards
REPORT zmui001
LINE-SIZE 140
LINE-COUNT 65
NO STANDARD PAGE HEADING.
*-- DATA DECLARATION--
*-- tables
TABLES : ekpo,
ekbe,
marv.
*--Includes
INCLUDE : <icon>. " Include for Icons
*-- Types
TYPES : BEGIN OF t_mseg,
ebeln LIKE ekko-ebeln,
name1 LIKE lfa1-name1,
lifnr LIKE lfa1-lifnr,
eknam LIKE t024-eknam,
mblnr LIKE mkpf-mblnr,
matnr LIKE ekpo-matnr,
maktx LIKE makt-maktx,
lgort LIKE mseg-lgort,
charg LIKE mseg-charg, "chg: 10/17/2005
menge LIKE mseg-menge,
budat LIKE mkpf-budat,
bldat LIKE mkpf-bldat, " chg : 08/18/2003
xblnr LIKE mkpf-xblnr,
END OF t_mseg.
DATA: BEGIN OF t_ekbe,
ebeln LIKE ekbe-ebeln,
ebelp LIKE ekbe-ebelp,
bwart LIKE ekbe-bwart,
matnr LIKE ekbe-matnr,
menge LIKE ekbe-menge,
END OF t_ekbe,
BEGIN OF t_ekpo,
ebeln LIKE ekpo-ebeln,
ebelp LIKE ekpo-ebelp,
matnr LIKE ekpo-matnr,
menge LIKE ekpo-menge,
END OF t_ekpo.
TYPES : BEGIN OF t_options.
INCLUDE STRUCTURE itcpo.
TYPES : END OF t_options.
*--Internal tables
DATA: BEGIN OF i_item OCCURS 50. "Create Material Document Item
INCLUDE STRUCTURE bapi2017_gm_item_create.
DATA: END OF i_item .
DATA: BEGIN OF i_return OCCURS 20. "Return parameter
INCLUDE STRUCTURE bapiret2.
DATA: END OF i_return.
DATA: BEGIN OF i_part OCCURS 0, " Internal table for split data
part(20),
END OF i_part.
DATA: BEGIN OF i_return1 OCCURS 20. "Return parameter
INCLUDE STRUCTURE bapiret1.
DATA: END OF i_return1.
*-- Work areas
DATA: BEGIN OF wa_header . "Material Document Header Data
INCLUDE STRUCTURE bapi2017_gm_head_01.
DATA: END OF wa_header .
DATA: BEGIN OF wa_return . "Output Structure
INCLUDE STRUCTURE bapi2017_gm_head_ret.
DATA: END OF wa_return .
*-- Work areas
DATA: wa_mseg TYPE t_mseg,
wa_ekbe LIKE t_ekbe,
wa_ekpo LIKE t_ekpo,
wa_options TYPE t_options,
i_ekbe LIKE STANDARD TABLE OF t_ekbe,
i_ekbe2 LIKE STANDARD TABLE OF t_ekbe,
i_ekpo LIKE STANDARD TABLE OF t_ekpo.
*---Variables
DATA: v_first, " variable to get first digit
v_set TYPE c,
v_found TYPE p,
v_menge TYPE p,
v_ebeln LIKE ekko-ebeln,
v_lifnr LIKE ekko-lifnr,
v_belnr LIKE ekbe-belnr,
v_postdate LIKE mkpf-budat,
v_bukrs LIKE marv-bukrs,
v_datum LIKE sy-datum,
v_lgort LIKE mard-lgort, " Stge. location
v_bwart LIKE mseg-bwart, " Movement type
v_infnr LIKE eina-infnr, " Info record no.
v_ltsnr LIKE eina-ltsnr.
*---Constants
CONSTANTS: c_comma TYPE c VALUE ',', " For splitting data at commas
c_01(2) TYPE c VALUE '01', " For movement code in Bapi
c_b TYPE c VALUE 'B', " For mvt. Indicator in Bapi
c_save(4) TYPE c VALUE 'SAVE', " For button text
c_clear(5) TYPE c VALUE 'CLEAR', " For clear button
c_mvmt(4) TYPE c VALUE 'MVMT',
c_ok(2) TYPE c VALUE 'OK',
c_error(5) TYPE c VALUE 'Error'.
*--SELECTION SCREEN DESIGN--
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME.
PARAMETERS: p_bar(75) , " Scanned data from barcode
p_ebeln LIKE ekko-ebeln, " PO number
p_matnr LIKE ekpo-matnr, " Material number
p_menge LIKE ekpo-menge, " Quantity
p_lifnr LIKE ekko-lifnr, " Vendor code
p_frbnr LIKE mkpf-frbnr, " Reference doc for goods mvt
p_status(5) TYPE c.
SELECTION-SCREEN END OF BLOCK blk1.
SELECTION-SCREEN PUSHBUTTON 15(10) v_save USER-COMMAND mvmt.
SELECTION-SCREEN PUSHBUTTON 40(10) v_clear USER-COMMAND clear.
INITIALIZATION -
INITIALIZATION.
v_save = c_save .
v_clear = c_clear.
*--AT SELECTION_SCREEN--
AT SELECTION-SCREEN .
IF sy-ucomm = c_clear.
PERFORM f_clear.
ELSE.
IF sy-ucomm <> c_mvmt.
if not sy-tabix is initial and sy-ucomm <> c_mvmt.
*--- Extracting the data by splitting the scanned values.
PERFORM f_get_split_data.
*--- Validating the input data.
PERFORM f_check_inputs.
ELSE .
*--- Validating the input data.
PERFORM f_check_inputs.
*-- Determining the posting date and period check.
PERFORM f_get_posting_date.
*---Post goods movement
PERFORM f_post_receipt.
ENDIF.
ENDIF.
SUBROUTINES *
*& Form f_check_inputs
Validating the input parameters
FORM f_check_inputs.
*-- Validating material no.
SELECT SINGLE matnr INTO p_matnr
FROM mara
WHERE matnr = p_matnr.
IF sy-subrc = 4.
p_status = c_error.
MESSAGE e003(zm) WITH 'Material no.'.
ENDIF.
*-- Validating JHT reference no.
SELECT SINGLE ebeln
lifnr
bukrs
INTO (p_ebeln, v_lifnr , v_bukrs)
FROM ekko
where unsez = p_unsez. chg:07072003
WHERE ebeln = p_ebeln.
IF sy-subrc = 4.
p_status = c_error.
MESSAGE e003(zm) WITH 'Purchase order no.'.
ENDIF.
*-- Validating material po combination
SELECT SINGLE *
FROM ekpo
WHERE ebeln = p_ebeln
AND matnr = p_matnr.
IF sy-subrc = 4.
p_status = c_error.
MESSAGE e003(zm) WITH 'Purchase order no.' ' and Material no.'.
ENDIF.
*--- Checking for DO entry . (chng : 30/06/2003)
IF p_frbnr IS INITIAL.
MESSAGE e018(m7) WITH 'Delivery no.'.
p_status = c_error.
PERFORM f_clear.
ENDIF.
*-- Validating material po do combination
SELECT SINGLE a~belnr
INTO v_belnr
FROM ekbe AS a
INNER JOIN mkpf AS b
ON abelnr = bmblnr
AND agjahr = bmjahr
WHERE a~ebeln = ekpo-ebeln
AND a~ebelp = ekpo-ebelp
AND b~xblnr = p_frbnr.
IF sy-subrc = 0.
MESSAGE e019(zm) WITH v_belnr.
p_status = c_error.
PERFORM f_clear.
ENDIF.
p_status = c_ok.
ENDFORM. " f_check_inputs
*& Form f_get_split_data
Extracting the data by splitting the Scanned data
FORM f_get_split_data.
*-- Splitting the data at commas
SPLIT p_bar AT c_comma INTO TABLE i_part.
*-- Assigning the parts to variables.
LOOP AT i_part.
v_first = i_part-part+0(1).
TRANSLATE v_first TO UPPER CASE.
CASE v_first .
WHEN 'V'.
p_lifnr = i_part-part+1(10).
WHEN 'P'.
p_matnr = i_part-part+1(18).
WHEN 'Q'.
p_menge = i_part-part+1(13).
WHEN 'K'.
p_ebeln = i_part-part+1(10).
WHEN 'D'.
p_frbnr = i_part-part+2(16).
WHEN OTHERS.
CONTINUE.
ENDCASE.
ENDLOOP.
ENDFORM. " f_get_split_data
*& Form f_get_posting_date
Determing the posting date for document
FORM f_get_posting_date.
*-- get the current period for todays date.
DATA: l_period LIKE t009b-poper.
CALL FUNCTION 'DATE_TO_PERIOD_CONVERT'
EXPORTING
i_date = sy-datum
i_periv = 'K4'
IMPORTING
e_buper = l_period
E_GJAHR =
EXCEPTIONS
input_false = 1
t009_notfound = 2
t009b_notfound = 3
OTHERS = 4
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
*-- Determining whether the open period
SELECT SINGLE *
FROM marv
WHERE bukrs = v_bukrs.
IF sy-subrc = 0.
IF l_period = marv-lfmon .
v_postdate = sy-datum.
ELSE.
CALL FUNCTION 'BAPI_CCODE_GET_FIRSTDAY_PERIOD'
EXPORTING
companycodeid = v_bukrs
fiscal_period = marv-lfmon
fiscal_year = marv-lfgja
IMPORTING
first_day_of_period = v_postdate
return = i_return1.
IF NOT i_return[] IS INITIAL.
LOOP AT i_return1.
MESSAGE i016(zm) WITH i_return-message.
ENDLOOP.
ENDIF.
ENDIF.
ENDIF.
ENDFORM. " f_get_posting_date
*& Form f_post_receipt
Post the goods receipt for entered data.
FORM f_post_receipt.
PERFORM f_fill_item.
PERFORM f_fill_header.
PERFORM f_execute_transfer.
PERFORM f_clear.
ENDFORM. " f_post_receipt
*& Form f_fill_item
Updating the item data for the GR
FORM f_fill_item.
Checking for IQC cycle is done here.(chng : 23/07/2003)
PERFORM f_check_iqc.
*---- Assigning movement type as per IQC cycle.(chng : 23/07/2003)
IF v_lgort IS INITIAL.
MOVE '101' TO i_item-move_type.
SELECT SINGLE lgort INTO i_item-stge_loc
FROM ekpo
where ebeln = v_ebeln and " chg :07/07/2003
WHERE ebeln = p_ebeln AND
matnr = p_matnr .
ELSE.
MOVE v_lgort TO i_item-stge_loc.
MOVE v_bwart TO i_item-move_type.
ENDIF.
MOVE p_matnr TO i_item-material.
MOVE p_menge TO i_item-entry_qnt.
move v_ebeln to i_item-po_number. " 07/07/2003
MOVE p_ebeln TO i_item-po_number.
MOVE v_lifnr TO i_item-vendor.
MOVE c_b TO i_item-mvt_ind.
select single ebelp into i_item-po_item " chg :29/07/2003
from ekpo
where ebeln = p_ebeln
and matnr = p_matnr
and elikz = ''.
SELECT ebeln
ebelp
matnr
menge
INTO CORRESPONDING FIELDS OF TABLE i_ekpo
FROM ekpo
WHERE ebeln = p_ebeln
AND matnr = p_matnr
AND loekz = '' .
SORT i_ekpo BY ebeln ebelp matnr.
LOOP AT i_ekpo INTO wa_ekpo.
IF v_found = 0.
SELECT ebeln ebelp
bwart menge
INTO CORRESPONDING FIELDS OF TABLE i_ekbe
FROM ekbe
WHERE ebeln = p_ebeln
AND ebelp = wa_ekpo-ebelp
AND matnr = p_matnr.
and elikz = '' . CHG -- 03/19/2004
IF sy-subrc = 0.
LOOP AT i_ekbe INTO wa_ekbe .
IF wa_ekbe-bwart = '101'.
v_menge = v_menge + wa_ekbe-menge.
ENDIF.
IF wa_ekbe-bwart = '102'.
v_menge = v_menge - wa_ekbe-menge.
ENDIF.
IF wa_ekbe-bwart = '122'.
v_menge = v_menge - wa_ekbe-menge.
ENDIF.
ENDLOOP.
chng: 03/19/2004 compare po qty against receipt
v_menge = v_menge + p_menge .
IF wa_ekpo-menge >= v_menge .
v_found = 1.
MOVE wa_ekpo-ebelp TO i_item-po_item.
ENDIF.
ELSE .
v_found = 1.
MOVE wa_ekpo-ebelp TO i_item-po_item.
ENDIF.
ENDIF.
CLEAR : wa_ekbe, i_ekbe, v_menge.
ENDLOOP.
IF v_found = 0 .
MESSAGE e003(zm) WITH ' delivery items'.
ENDIF.
APPEND i_item.
CLEAR : i_item, v_found .
ENDFORM. " f_fill_item
*& Form f_check_iqc
Checking the storage location for the (chng : 23/07/2003)
FORM f_check_iqc.
CALL FUNCTION 'Z_M_GET_IQC_STATUS'
EXPORTING
matnr = p_matnr
lifnr = v_lifnr
IMPORTING
lgort = v_lgort
bwart = v_bwart
ltsnr = v_ltsnr
infnr = v_infnr
EXCEPTIONS
non_iqc_vendor = 1
OTHERS = 2.
IF sy-subrc <> 0.
CLEAR : v_lgort , v_bwart , v_ltsnr.
ENDIF.
ENDFORM. " f_check_iqc
*& Form f_fill_header
Updating data in the header
FORM f_fill_header.
MOVE v_postdate TO wa_header-pstng_date.
MOVE sy-datum TO wa_header-doc_date.
MOVE p_frbnr TO wa_header-ref_doc_no.
ENDFORM. " f_fill_header
*& Form f_execute_transfer
Executing the goods movement.
FORM f_execute_transfer.
CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
EXPORTING
goodsmvt_header = wa_header
goodsmvt_code = c_01
IMPORTING
goodsmvt_headret = wa_return
TABLES
goodsmvt_item = i_item
return = i_return.
IF i_return[] IS INITIAL .
COMMIT WORK.
*--- UPdating Info record for IQC cycle ind.(chng : 23/07/2003)
IF NOT v_ltsnr IS INITIAL.
UPDATE eina SET ltsnr = v_ltsnr
WHERE infnr = v_infnr.
ENDIF.
REFRESH : i_item.
CLEAR : wa_header,v_ltsnr , v_infnr,v_bwart,v_lifnr.
MESSAGE i012(migo) WITH wa_return-mat_doc.
PERFORM f_do_print.
ELSE.
REFRESH : i_item.
CLEAR : wa_header,v_ltsnr , v_infnr,v_bwart,v_lifnr.
PERFORM write_errors.
ENDIF.
ENDFORM. " f_execute_transfer
FORM write_errors.
WRITE: 0(90) sy-uline ,
/0'|',
3 'System messages for GR posting',
90 '|',
/0(90) sy-uline .
LOOP AT i_return.
CASE i_return-type.
WHEN 'E'.
MESSAGE i016(zm) WITH i_return-message.
WHEN 'W'.
MESSAGE i017(zm) WITH i_return-message.
WHEN 'I'.
WRITE: /0'|',
icon_yellow_light AS ICON ,
'|',
10 i_return-message,
90 '|'.
MESSAGE i018(zm) WITH i_return-message.
WHEN 'S'.
WRITE: /0'|',
icon_green_light AS ICON ,
'|',
10 i_return-message,
90 '|'.
MESSAGE i018(zm) WITH i_return-message.
WHEN OTHERS.
WRITE: /0'|',
icon_red_light AS ICON ,
'|',
10 i_return-message,
90 '|'.
MESSAGE e016(zm) WITH i_return-message.
ENDCASE.
AT LAST .
WRITE:/0(90) sy-uline .
ENDAT.
ENDLOOP.
ENDFORM. " write_errors
*& Form f_clear
Clearing the input parameters
FORM f_clear.
CLEAR : p_ebeln ,
p_bar,
p_matnr,
p_frbnr,
v_lifnr,
p_menge,
p_status.Hi all,
can anyone suggest any idea?
Regrds
pabitra -
is apple product going down hill it seems their updates are creating a lot of problem now the wifi connection is really ******* me off it doesnt connect or even if it does its very very slow i used to love using iphone but i think its time to move on to something else they have taken everyone for granted
Welcome to Apple Discussions, Mark.
I've never come across your first problem on any of the Apple notebooks I currently own (or have owned in the past). Then again, perhaps I'm not looking close enough.
Have you compared it with any other 12" PowerBook? If not, perhaps you might be able to try that at a local store with units on display.
Otherwise you might want to give AppleCare a call. Alternatively, if you have an Apple Store or Apple Authorised Service Provider near you (I don't know where you are located) then you can take it in to be checked.
As for your second problem (uneven illumination), that has been known to afflict other notebooks. My own 15" PB has had its screen replaced on two occasions because of this. Depending on the severity, you might be able to get it replaced. Mine became so bad that the screen was effectively unusable.
To be honest, here in the UK, I would actually try for a replacement PowerBook - if the problems were severe enough and also because your PB is still very new. However the consumer laws in your country (wherever that may be) might be very different to mine. -
Please can any one tell me how to use a downloaded tune as a ring tone as, I want to use one that is not available as a ring tone. I would like to use it as a person ringing ID tone. Please can you tell me in very very simplitic way with an idiots guide for a two year old as I am not good with difficult intructions. Thanks for any help .
Google will find several free ways to create ringtones.
I am sure you can find instructions that you can understand. -
Consignment price (very very urgent)
Hi all,
i am writting a report on consignment stock.i am taking material from MKOL table where as i am taking consignment price from MKOP(konpr) table if TCURM-konsi = ''.
that means if tcurm-konsi is initial then it will extract the pricing data from MKOP.
i checked the TCURM table in which konsi field is 'X'.that means tcurm-konsi is not initial.so it will not go for MKOP data.
IN the mean while , i checked MKOP table but there is no records present at all.it is fully empty.
Now, if not TCURM-konsi is initial.
then from which tables, i will get the related pricing data for consignment.
so, from which table i have to take the consignment price & per unit price as well.
any idea will be highly appreaciated.
it is very urgent.plz advice me on this.
Thanks & regards
pabitraHi ravi kanth,
Thank u very much.i have already used that FM ME_READ_INFORECORD to get the price.but the price is comming wrongly.The price for all the materials are same.i am getting same price for every material but in MB54, the price is different.
can u plz provide some code for the condition
if tcurm-konsi = 'x'.
i am really confused. i have already followed the steps ,what the program RM07MKBS is doing. but getting the same price for every material.plz suggest.
it is very very urgent.
Regards
pabitra
Maybe you are looking for
-
I have tried to disable all my add-on modules but it doesn't make a difference. I have run chrome alongside Firefox and can open all the tabs fine, and I can watch Firefox just spin the processing icon and never load. I can hit the reload tab a bunch
-
Is it possible to triple display a new macbook pro with retina display?
I'm looking to triple screen a new retina display macbook pro 15". I have a desktop iMac sansung external monitor soon macbook pro 15" with retina display. is it possible to connect all 3? ... or at least use my macbook pro as the base (lid closed),
-
Hi, i created one transaction "ZPNUM",it has one parameter in selection screen PERNR(personal Number) i want to set parameter from another program i am using this code,but it does not works.any body can help me DATA : PERNR TYPE PA0001-PERNR VALUE '1
-
Where can I download an archived version of Premiere CS6?
I've been using Premiere for a couple months now, and I'm in the middle of a project and I uninstalled Premiere CS6 to install the new CC version, but what I didn't know is that Encore was not included in the new CC version, and I still need that for
-
Which camera raw update do I download using a Canon SL1 and PE11?
I've looked at the camera raw update list and it tells me for my camera (Canon SL1) the minimun raw plugin I need is 7.4 It then says that PE11 came with version 7.1 and with my camera it's compatible with camera raw plug-in through version 8.0. W