IPhoto '08 Experts apply within (HELP NEEDED!)

OK, after installing Leopard which I had difficulty with BSOD and other issues, my iPhoto is corrupt. When I try to create a new book I can not select the book type, all options are greyed out. When trying to modify a page layout in an existing book all options are greyed out. When trying to change a theme in an existing book all options are greyed out. Spoke with Apple for over three hours last night, completely uninstalled iPhoto and reinstalled with no success. Did an Archive & Install of Leopard again to no success, have done several permission and disk fixes with no success. At this point I'm looking for any and all options so that I don't have to wipe the disk clean and begin again.
If I were to make an appointment with a Mac Genius (something I've never done) can I take my iMac in and have them trouble shoot the issue with me at the store?
Thanks in advance, I'll mail a six pack to anyone that can help.
Jason

Before you reinstall iPhoto you'll need to delete the following folders/files:
HD/Library/Application Support/iPhoto/Themes
iPhoto application
All files with iPhoto in the file name that reside in the HD/Library/Receipts folder.
Do you Twango?
TIP: For insurance against the iPhoto database corruption that many users have experienced I recommend making a backup copy of the Library6.iPhoto database file and keep it current. If problems crop up where iPhoto suddenly can't see any photos or thinks there are no photos in the library, replacing the working Library6.iPhoto file with the backup will often get the library back. By keeping it current I mean backup after each import and/or any serious editing or work on books, slideshows, calendars, cards, etc. That insures that if a problem pops up and you do need to replace the database file, you'll retain all those efforts. It doesn't take long to make the backup and it's good insurance.
I've created an Automator workflow application (requires Tiger), iPhoto dB File Backup, that will copy the selected Library6.iPhoto file from your iPhoto Library folder to the Pictures folder, replacing any previous version of it. It's compatible with iPhoto 08 libraries and Leopard. iPhoto does not have to be closed to run the application, just idle. You can download it at Toad's Cellar. Be sure to read the Read Me pdf file.

Similar Messages

EXPERT socket programmers help needed please!

I basically have this very simple client/server app, where I can enter messages at the client to send to the server, and the server will display it on its screen.
But how would I extend it to support multi client? So when I send messages from different clients, the server will diplay the message on its screen and also send the message back to all connected clients? Here's my current code
Server:
import java.net.*;
import java.io.*;
public class Server {
    public static void main(String[] args) throws IOException {
     ServerSocket serverSocket = new ServerSocket(5432);
     for (;;) {
         Socket clientSocket = null;
         try {
          clientSocket = serverSocket.accept();
         } catch (IOException e) {
          System.err.println("Accept failed.");
          System.exit(1);
         BufferedReader in = new BufferedReader(new InputStreamReader(clientSocket.getInputStream()));
         String nextline;
         while ((nextline = in.readLine())!=null) {
          System.out.println(nextline);
         in.close();
         clientSocket.close();
}Client
import java.io.*;
import java.net.*;
public class Client {
    public static void main(String[] args) throws IOException {
     Socket csocket = null;
     PrintWriter out = null;
     try {
         csocket = new Socket("localhost", 5432);
         out = new PrintWriter(csocket.getOutputStream(), true);
     } catch (IOException e) { }
     BufferedReader stdIn = new BufferedReader(new InputStreamReader(System.in));
     String nextline;
     while ((nextline = stdIn.readLine()) != null) {
         out.println(nextline);
     out.close();
     csocket.close();
     stdIn.close();
}

jverd wrote:
javaguy86 wrote:
But how would I extend it to support multi client?Ever hear of collections? Loops?Hardly the answer of an expert in Socket programming!!!!

Expert SAMBA printing help needed

I have read every thread regarding SAMBA printing but am still having difficulties with Java applications.
I set up 2 kinds of printer queues.
1. No Password: Used the standard Add Printer dialog for Windows printing.
2. With Password: Used the Advanced Add Printer dialog and created a queue of this form: smb://username:password@server:port/printer.
Both queues work with regular applications. Queue 2 works in Java applications in an admin account. Neither queue works in Java applications from a standard account, I get a Printing Error dialog. Everything was working fine in Tiger. Leopard was installed via Archive + Install, network preferences were not copied.
Seems like some kind of permissions change relative to Tiger but I have no idea where to look.

What printer? What driver? What OS and Reader version?
Can you try to print as image?
The option is present under Advanced options in the print dialog.
Sometimes if you remove the printer driver and re-install it, you can
then print the pdf.

Please help needed os x lion I wish to transfer photos from the iPhoto library to a album or folder then delete them from the Library but when I do this it also deletes them from the album ? how do I do this please.

Please help needed os x lion I wish to transfer photos from the iPhoto library to a album or folder then delete them from the Library but when I do this it also deletes them from the album ? how do I do this please.

Albums are not places to store photos, they're more like "labels" you can apply to photos to better organize them. A single image file can be in multiple albums... they are not copies, it's simply been labelled as being in all those albums. So what you're trying to do doesn't make sense, because it's based on incorrect assumptions.
The iPhoto library will always show all photos that you have added to iPhoto.

I need a MacBook experts, master to help me!!! I just tried the craziest move on my mac! My dad's gonna kill me if he finds out!!!

I need a MacBook experts, master to help me!!! I just tried the craziest series of moves on my mac.
Begun when the mac hung for nearly an hour. I held the power key to force a shut off.
This made me think of erasing some things on my hard drive. I used cmd r for disk utility and begun erasing volumes.
Then, I thought instead, why not just reinstall OSX since nothing I wanted was on it.
I tried to reinstall OSX but this time it loaded then suddenly said, an error occurred.
I Went back to disk utility and cleared stuff I can't even remember.
Another unbelievable thing happened. The disk utility actually hung for a good ten minutes! i went and forced a shut off again.
Now, whenever I turn the mac on, a flashing folder appears.
at this point, I usually turn to the net for answers.
Greatest thing is, every cmd something I try doesn't even trigger a reaction. Only cmd opt showed my mouse cursor.
i Do not have the original OSX install disk for my mac. Any geniuses got any clues???

Your post somehow found its way to a low-traffic forum about technical issues with posting in Apple Support Communities. I have asked the Hosts to move you to a more appropriate hardware forum for your product.

My iPhoto Library won't open. Help needed!

Hello all. I'm hoping someone who has had a similar problem or someone who's great with stuff like this found a solution by now. I upgraded to iPhoto 9.6.1. Then as I proceeded to open up iPhoto, it told me that if needed to conduct repairs. After it finished the repairs, I tried to open it, but it gave me what I'll call the "just getting started screen" as if I had nothing in my iPhoto Library- which conflicts with the file size of 280+ GB.
The Library is on an external drive which I tried opening on a different Mac, but I get the same just getting started screen. Both my Macs are able to open other photo libraries. So from that I'm guessing the problem is the 280+GB library itself and not the application.
I've tried repairing again, but it doesn't find anything to repair. I've tried iPhoto Library manager, but it also thinks there are no photos in that large file.
I'd appreciate any help.
Cheers!

Terence,
I am connected to it via USB, and it's formatted for my Mac. There were no error messages from iPhoto Library Manager. I do have a backup of the Media file.
I also noticed you responded to other people who had similar problems and I tried what you suggested (which is how I had the idea to try iPhoto Library Manager). It didn't work. Do you know if there's a way to open up that Media file outside of iPhoto to view the folders individually?

Guys i need to get m itunes account unlocked its stopping mefor making in app purchases please help need to make a purchase within 30 minutes

guys i need to get my itunes account unlocked its stopping mefor making in app purchases please help need to make a purchase within 30 minutes

If you've tried to buy something and your've been charged for it (and it's not a temporary store holding charge) but haven't received it then try the 'report a problem' page to contact iTunes Support : http://reportaproblem.apple.com
If the 'report a problem' link doesn't work then you can try contacting iTunes support via this page : http://www.apple.com/support/itunes/contact/- click on Contact iTunes Store Support on the right-hand side of the page, then Purchases, Billing & Redemption

Iphoto help needed for transferring video to disk

I need to transfer photos and video to disk to move them to another computer. For some reason the photos will transfer but the videos will not. They appear in iphoto as photos. Please help.

If you have Firewire cable you can connect the two Macs with it and boot one into Target Disk Mode, Transferring files between two computers using FireWire, and just copy the files from Mac A to Mac B.
If you can do that insert a CD or DVD into the optical drive, drag the movied onto the disk image on the Desktop and then drag that disk image to the Trash bin on the dock to burn the file to the disk.
OT

HT5037 I am trying to open my iPhoto, but it tells me I need to upgrade. Help?

I can't opne my iPhotos. It tells me I need to upload using the Library Uploader. I download as instructed, but it doesn't seem to download. I can't open my iPhotos. Help!

Okay- so here's the long story!
Perhaps this will help.
My computer crashed a few months ago.
We got a new hard-drive.
I tried to open my iPhoto for the first time and go some message about it being "locked". I no longer get that message so I don't remember entirely what it said, but I followed to directions to "unlock" it.
Now, when I click 'iPhoto" on my dock, I get this message:
To open your library with this version of iPhoto, it first needs to be prepared.
To prepare the library, use the iPhoto Library Upgrader available from Apple.
then there is a "learn more" button.
When you select that, it takes me here and this is where my discussion started. http://support.apple.com/kb/HT5037
I followed the steps to upgrade from previous versions- see my comment above, but I get stuck from 8.1.2 version to what appears to be the next one up from there.
Does this help? I hate computers and simply want get my photos back from Carbonite before the crash happened. I'm freaking out because I have 4 years of photos from the birth of my son. If I can't get iPhoto working, I have no idea how to get my photos restored.
<sigh>

My MacBook Pro has problem in iphoto,, I cant open it,, I need help please,,,,

My MacBook Pro has problem in iphoto,, I cant open it,, I need help please,,,,

Last login: Sun Apr 22 19:11:11 on ttys000
Marlons-MacBook-Pro:~ ryanmnhs$ ls -la ~/Library/LaunchAgents
total 40
drwx------   7 ryanmnhs staff   238 5 Nov 23:09 .
drwx------@ 48 ryanmnhs staff 1632 13 Jan 09:53 ..
-rw-r--r--   1 ryanmnhs staff   574 24 Oct 22:29 com.adobe.ARM.202f4087f2bbde52e3ac2df389f53a4f123223c9cc56a8fd83a6f7ae.plist
-rw-r--r--   1 ryanmnhs staff   618 22 Oct 2011 com.apple.AddressBook.ScheduledSync.PHXCardDAVSource.BAF380D0-E780-4E82-86BF-77 2440AB4936.plist
-rw-r--r--   1 ryanmnhs staff   895 4 Sep 2011 [email protected].plist
-rw-r--r--   1 ryanmnhs staff   802 21 Mar 12:56 com.facebook.videochat.ryanmnhs.plist
-rw-r--r--@ 1 ryanmnhs staff   805 6 Sep 2011 com.google.keystone.agent.plist
Marlons-MacBook-Pro:~ ryanmnhs$
,,,,,,,,THIS IS THE RESULT,, WHAT DOES THIS MEAN? HOW CAN I FIX MY PROBLEM? UP TO THIS DATE MY WORD, EXCEL AND POWERPOINT STILL DONT WORK!!!!PLEASE HELP ME, ANYONE? THANK YOU...

Help needed with security scenario

Hello,
this is my first post in this section and I'm posting it because I have tried to make this scenario work for a few weeks and I still cannot do it. This is what I want to achieve:
I need to create safe communication channel through 4 different entities. Client -> Merchant -> Bank 1 -> Bank 2
This implies that I need to create 3 SSL servers (Merchant and two banks). OK, I have read a lot about creating SSL servers and I think they worked pretty good but now I'm getting problems with validating certificates and I got completely lost. Please answer me on the following questions:
1. Do I need to set "keyStore" AND (!) "trustedStore" system properties for EVERY entity?
I'm asking because I have found few examples when people set only keyStore for servers and trustedStore for client. I've been setting both and I think this was wrong. Am I right?
2. What happens if I set this property for each entity? After all, I need to do it at least 3 times (for servers) so will one change of system property affect the other?
3. Do I need to actually validate any certificates? I mean, in the example provided by my University someone was checking certificates in client class, but I haven't found anyone doing the same thing in web-tutorials. Shall I do it then, or not? Maybe it is done automatically by framework while accepting connections?
Please help me with this issues cause I don't have any more patience to do it myself.
Best regards,
Łukasz Bachman

1. Do I need to set "keyStore" AND (!) "trustedStore" system properties for EVERY entity?Only for the entities that have to authenticate themselves. This includes all SSL servers and it also includes any clients whose servers are set with needClientAuth=true, which is not the default. For most SSL clients you only need to set the truststore.
2. What happens if I set this property for each entity? After all, I need to do it at least 3 times (for servers) so will one change of system property affect the other?Presumably each entity occupies its own JVM. The system properties only apply within a single JVM.
3. Do I need to actually validate any certificates?SSL does most of that for you. You just (a) need to ensure that the appropriate server or CA certificates are in the clients' truststores: this 'authentication'; and (b) you also need to do an authorization step at each client, where you check the DN of the peer certificate to see if it is the expected entity. That's all.

Help needed in constructing a tree

Help needed in constructing a tree. I was wondering if some one can suggest me how to add messages in the second column for both the parent node and child elements.
I was able to create a tree succefully, but want to add some description in the second column for the first column elements, for both parent and child elements.
Please suggest me how to add the arrays to second column for parent and child nodes.
Solved!
Go to Solution.
Attachments:
Tree_fix.vi ‏15 KB

The Child Text parameter is the one you are searching for. It accepts a 1D string array for the following columns.
hope this helps,
Norbert
CEO: What exactly is stopping us from doing this?
Expert: Geometry
Marketing Manager: Just ignore it.

Help needed in PS module on CJ9ECP/CJ20N for revaluating CCR??

help needed in PS module on CJ9ECP/CJ20N for revaluating CCR??
How to handle method on_costing_component_to_outtab which belongs to badi gui_itemization_ck. This is to revaluate CCR in CJ20N.
From sale transaction(va01/va02) i need to call cj20n/cj9ecp for revaluating cost estimates. Can anyone say how to proceed with this thing.
Can any one say how to handle pop up window in CJ20N/CJ9ECP when clicked edit ecp button. Later how to revaluate cost estimates. For this should i need to go for call transaction or is there any method available. If so how to handle method for revaluating cost estimates for ECP of WBS elements

Thanks Amol for the advice.
My friend doesn't belong to an engineering background and had not worked in a manufacturing environment.
He holds an MBA degree specialised in systems and has worked in software companies supporting software projects and the functions(like HR,Procurement in the same setup) as a software quality guy.
Moreover the modules mentioned by you requires engineering background with manufacturing exposure.
He had enquired for the course at siemens and they said that he may not be suitable for any of the modules offered by them as per the above reasons.They also mentioned that they have to check with SAP Labs for expert opinion.
Please provide your inputs.
regards,
Zubair.

URGENT HELP NEEDED - iPhone 3Gs no longer detected or charged by MacBook

My iPhone 3Gs (3.1) has been running fine, until several hours ago today, when I plugged it to my MacBook, the iPhone is no longer detected - it doesn't show up in iTunes, nor it is charged. I tried opening iPhoto, and it wasn't there too. Not with Image Capture too. I tried charging it using the out-of-box wall charger using the same out-of-box USB cable I use for MacBook, and it can be charged without any problem. Then I put it into Recovery mode, and there iTunes can see it. I don't want to restore it before I figure out exactly what went wrong, as I don't want the restore process somehow gets stuck in the middle that the connection is lost again.
I've tried reinstalled iTunes, including completely removal of Apple Mobile Device Support, as instructed by Apple. But still no luck.
I've tried switching to another USB port of my MacBook. No luck.
My iTunes is the latest 9.0.1, and my Mac OSX is 10.6.1. My iPhone is on 3.1, upgraded from 3.0.
I've read from web that it seems I'm not the only one out there having this problem. But none of them seem having any real working solution.
Urgent help needed & appreciated. Millions of thanks in advance.
Gary

1. I used both cables - theirs & mine ... and on several macs
2. yes, same cable for wall & mac
3. as said, i did completely remove & install itunes (incl. apple mobile device support), as instructed on the apple webpage
anyway, did a restore just now. it seems okay now. but the problem is i have no idea what cause this, and i can't replicate the problem. so i don't know when it will happen again ... maybe a bug with os 3.1 ... others on web said os 3.1 is quite buggy ...

Help needed Displaying ALV Secondary list without using oops concept

Hi Experts
Help needed Displaying ALV Secondary list without using oops concept.
its urgent
regds
rajasekhar

hi chk this code
******************TABLES DECLARATION*****************
TABLES : VBAP,MARA.
*****************TYPE POOLS**************************
TYPE-POOLS : SLIS.
****************INTERNAL TABLES**********************
DATA : BEGIN OF IT_VBAP OCCURS 0,
VBELN LIKE VBAP-VBELN, "SALES DOCUMENT
POSNR LIKE VBAP-POSNR, "SALES DOCUMENT ITEM
MATNR LIKE VBAP-MATNR, "MATERIAL NUMBER
END OF IT_VBAP.
****************TEMPORARY VARIABLES******************
DATA : V_VBELN LIKE VBAP-VBELN."SALES DOCUMENT
DATA : V_MTART LIKE MARA-MTART. "MATERIAL TYPE
*****************FIELD CATALOG***********************
DATA : IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
       WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
****************LAYOUT*******************************
DATA : WA_LAYOUT TYPE SLIS_LAYOUT_ALV.
***************VARIANT*******************************
DATA : G_VARIANT LIKE DISVARIANT.
****************SAVE*********************************
DATA : G_SAVE(1) TYPE C.
*****************EVENTS******************************
DATA : XS_EVENTS TYPE SLIS_ALV_EVENT,
       G_EVENTS TYPE SLIS_T_EVENT.
******************PF STATUS**************************
DATA : PF_STATUS TYPE SLIS_FORMNAME VALUE 'SET_PF_STATUS'.
******************USER COMMAND************************
DATA : USER_COMMAND TYPE SLIS_FORMNAME VALUE 'SET_USER_COMMAND',
       R_UCOMM LIKE SY-UCOMM.
****************SELECTION SCREEN************************
SELECT-OPTIONS : S_VBELN FOR VBAP-VBELN.
***************AT SELECTION SCREEN*********************
AT SELECTION-SCREEN.
PERFORM VALIDATE.
**************START-OF-SELECTION**************************
START-OF-SELECTION.
PERFORM GET_DETAILS.
PERFORM FIELDCAT.
PERFORM LAYOUT.
PERFORM VARIANT.
PERFORM SAVE.
PERFORM EVENTS.
PERFORM ALV_DISPLAY.
*********************FORMS*******************************************
*&      Form validate
      text
--> p1        text
<-- p2        text
FORM VALIDATE .
SELECT SINGLE VBELN
                FROM VBAP
                INTO V_VBELN
                WHERE VBELN IN S_VBELN.
IF SY-SUBRC <> 0.
    MESSAGE E000 WITH 'enter valid vbeln'.
ENDIF.
ENDFORM.                    " validate
*&      Form get_details
      text
--> p1        text
<-- p2        text
FORM GET_DETAILS .
SELECT VBELN
         POSNR
         MATNR
         FROM VBAP
         INTO TABLE IT_VBAP
         WHERE VBELN IN S_VBELN.
IF SY-SUBRC <> 0.
    MESSAGE E000 WITH 'no details found'.
ENDIF.
ENDFORM.                    " get_details
*&      Form fieldcat
      text
--> p1        text
<-- p2        text
FORM FIELDCAT .
WA_FIELDCAT-TABNAME = 'IT_VBAP'.
WA_FIELDCAT-FIELDNAME = 'VBELN'.
WA_FIELDCAT-OUTPUTLEN = 10.
WA_FIELDCAT-SELTEXT_L = 'SALES DOC'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_VBAP'.
WA_FIELDCAT-FIELDNAME = 'POSNR'.
WA_FIELDCAT-OUTPUTLEN = 6.
WA_FIELDCAT-SELTEXT_L = 'ITEM'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_VBAP'.
WA_FIELDCAT-FIELDNAME = 'MATNR'.
WA_FIELDCAT-OUTPUTLEN = 18.
WA_FIELDCAT-SELTEXT_L = 'MATERIAL NO'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
ENDFORM.                    " fieldcat
*&      Form LAYOUT
      text
--> p1        text
<-- p2        text
FORM LAYOUT .
WA_LAYOUT-ZEBRA = 'X'.
ENDFORM.                    " LAYOUT
*&      Form VARIANT
      text
--> p1        text
<-- p2        text
FORM VARIANT .
CLEAR G_VARIANT.
G_VARIANT-REPORT = SY-REPID.
ENDFORM.                    " VARIANT
*&      Form SAVE
      text
--> p1        text
<-- p2        text
FORM SAVE .
CLEAR G_SAVE.
G_SAVE = 'A'.
ENDFORM.                    " SAVE
*&      Form EVENTS
      text
--> p1        text
<-- p2        text
FORM EVENTS .
CLEAR XS_EVENTS.
XS_EVENTS-NAME = SLIS_EV_TOP_OF_PAGE.
XS_EVENTS-FORM = 'TOP_OF_PAGE'.
APPEND XS_EVENTS TO G_EVENTS.
ENDFORM.                    " EVENTS
*&      Form TOP_OF_PAGE
      text
FORM TOP_OF_PAGE.
WRITE :/ ' INTELLI GROUP'.
ENDFORM.                    "TOP_OF_PAGE
*&      Form ALV_DISPLAY
      text
--> p1        text
<-- p2        text
FORM ALV_DISPLAY .
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
   EXPORTING
I_INTERFACE_CHECK              = ' '
I_BYPASSING_BUFFER             =
I_BUFFER_ACTIVE                = ' '
     I_CALLBACK_PROGRAM             = SY-REPID
     I_CALLBACK_PF_STATUS_SET       = PF_STATUS
     I_CALLBACK_USER_COMMAND        = USER_COMMAND
I_STRUCTURE_NAME               =
     IS_LAYOUT                      = WA_LAYOUT
     IT_FIELDCAT                    = IT_FIELDCAT
IT_EXCLUDING                   =
IT_SPECIAL_GROUPS              =
IT_SORT                        =
IT_FILTER                      =
IS_SEL_HIDE                    =
I_DEFAULT                      = 'X'
     I_SAVE                         = G_SAVE
     IS_VARIANT                     = G_VARIANT
     IT_EVENTS                      = G_EVENTS
IT_EVENT_EXIT                  =
IS_PRINT                       =
IS_REPREP_ID                   =
I_SCREEN_START_COLUMN          = 0
I_SCREEN_START_LINE            = 0
I_SCREEN_END_COLUMN            = 0
I_SCREEN_END_LINE              = 0
IMPORTING
E_EXIT_CAUSED_BY_CALLER        =
ES_EXIT_CAUSED_BY_USER         =
    TABLES
      T_OUTTAB                       = IT_VBAP
   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.                    " ALV_DISPLAY
*&      Form SET_PF_STATUS
      text
FORM SET_PF_STATUS USING EXTAB TYPE SLIS_T_EXTAB.
SET PF-STATUS 'Z50651_PFSTATUS' EXCLUDING EXTAB.
ENDFORM.                    "SET_PF_STATUS
*&      Form SET_USER_COMMAND
      text
FORM SET_USER_COMMAND USING R_UCOMM
                            RS_SELFIELD TYPE SLIS_SELFIELD.
CASE R_UCOMM.
    WHEN 'DC'.
      READ TABLE IT_VBAP INDEX RS_SELFIELD-TABINDEX.
      IF SY-SUBRC = 0.
        SELECT SINGLE MTART
                      FROM MARA
                      INTO V_MTART
                      WHERE MATNR = IT_VBAP-MATNR.
        IF SY-SUBRC <> 0.
   MESSAGE E000 WITH 'NO MATERIAL DESCRIPTION FOR SELECTED MATERIAL NO'.
        ELSE.
          WRITE :/ 'MATERIAL NO :',IT_VBAP-MATNR.
          WRITE :/ 'MATERIAL TYPE :' , V_MTART.
        ENDIF.
      ENDIF.
    WHEN 'BACK'.
      LEAVE TO SCREEN 0.
    WHEN 'EXIT'.
      LEAVE TO SCREEN 0.
    WHEN 'CLOSE'.
      CALL TRANSACTION 'SE38'.
ENDCASE.
REPORT Z_ALV_INTERACTIVE MESSAGE-ID ZMSG_50651
                                LINE-SIZE 100
                                LINE-COUNT 60
                                NO STANDARD PAGE HEADING.
******************TABLES DECLARATION*****************
TABLES : VBAP,MARA.
*****************TYPE POOLS**************************
TYPE-POOLS : SLIS.
****************INTERNAL TABLES**********************
DATA : BEGIN OF IT_VBAP OCCURS 0,
VBELN LIKE VBAP-VBELN, "SALES DOCUMENT
POSNR LIKE VBAP-POSNR, "SALES DOCUMENT ITEM
MATNR LIKE VBAP-MATNR, "MATERIAL NUMBER
END OF IT_VBAP.
****************TEMPORARY VARIABLES******************
DATA : V_VBELN LIKE VBAP-VBELN."SALES DOCUMENT
DATA : V_MTART LIKE MARA-MTART. "MATERIAL TYPE
*****************FIELD CATALOG***********************
DATA : IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
       WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
****************LAYOUT*******************************
DATA : WA_LAYOUT TYPE SLIS_LAYOUT_ALV.
***************VARIANT*******************************
DATA : G_VARIANT LIKE DISVARIANT.
****************SAVE*********************************
DATA : G_SAVE(1) TYPE C.
*****************EVENTS******************************
DATA : XS_EVENTS TYPE SLIS_ALV_EVENT,
       G_EVENTS TYPE SLIS_T_EVENT.
******************PF STATUS**************************
DATA : PF_STATUS TYPE SLIS_FORMNAME VALUE 'SET_PF_STATUS'.
******************USER COMMAND************************
DATA : USER_COMMAND TYPE SLIS_FORMNAME VALUE 'SET_USER_COMMAND',
       R_UCOMM LIKE SY-UCOMM.
****************SELECTION SCREEN************************
SELECT-OPTIONS : S_VBELN FOR VBAP-VBELN.
***************AT SELECTION SCREEN*********************
AT SELECTION-SCREEN.
PERFORM VALIDATE.
**************START-OF-SELECTION**************************
START-OF-SELECTION.
PERFORM GET_DETAILS.
PERFORM FIELDCAT.
PERFORM LAYOUT.
PERFORM VARIANT.
PERFORM SAVE.
PERFORM EVENTS.
PERFORM ALV_DISPLAY.
*********************FORMS*******************************************
*&      Form validate
      text
--> p1        text
<-- p2        text
FORM VALIDATE .
SELECT SINGLE VBELN
                FROM VBAP
                INTO V_VBELN
                WHERE VBELN IN S_VBELN.
IF SY-SUBRC <> 0.
    MESSAGE E000 WITH 'enter valid vbeln'.
ENDIF.
ENDFORM.                    " validate
*&      Form get_details
      text
--> p1        text
<-- p2        text
FORM GET_DETAILS .
SELECT VBELN
         POSNR
         MATNR
         FROM VBAP
         INTO TABLE IT_VBAP
         WHERE VBELN IN S_VBELN.
IF SY-SUBRC <> 0.
    MESSAGE E000 WITH 'no details found'.
ENDIF.
ENDFORM.                    " get_details
*&      Form fieldcat
      text
--> p1        text
<-- p2        text
FORM FIELDCAT .
WA_FIELDCAT-TABNAME = 'IT_VBAP'.
WA_FIELDCAT-FIELDNAME = 'VBELN'.
WA_FIELDCAT-OUTPUTLEN = 10.
WA_FIELDCAT-SELTEXT_L = 'SALES DOC'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_VBAP'.
WA_FIELDCAT-FIELDNAME = 'POSNR'.
WA_FIELDCAT-OUTPUTLEN = 6.
WA_FIELDCAT-SELTEXT_L = 'ITEM'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_VBAP'.
WA_FIELDCAT-FIELDNAME = 'MATNR'.
WA_FIELDCAT-OUTPUTLEN = 18.
WA_FIELDCAT-SELTEXT_L = 'MATERIAL NO'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
ENDFORM.                    " fieldcat
*&      Form LAYOUT
      text
--> p1        text
<-- p2        text
FORM LAYOUT .
WA_LAYOUT-ZEBRA = 'X'.
ENDFORM.                    " LAYOUT
*&      Form VARIANT
      text
--> p1        text
<-- p2        text
FORM VARIANT .
CLEAR G_VARIANT.
G_VARIANT-REPORT = SY-REPID.
ENDFORM.                    " VARIANT
*&      Form SAVE
      text
--> p1        text
<-- p2        text
FORM SAVE .
CLEAR G_SAVE.
G_SAVE = 'A'.
ENDFORM.                    " SAVE
*&      Form EVENTS
      text
--> p1        text
<-- p2        text
FORM EVENTS .
CLEAR XS_EVENTS.
XS_EVENTS-NAME = SLIS_EV_TOP_OF_PAGE.
XS_EVENTS-FORM = 'TOP_OF_PAGE'.
APPEND XS_EVENTS TO G_EVENTS.
ENDFORM.                    " EVENTS
*&      Form TOP_OF_PAGE
      text
FORM TOP_OF_PAGE.
WRITE :/ ' INTELLI GROUP'.
ENDFORM.                    "TOP_OF_PAGE
*&      Form ALV_DISPLAY
      text
--> p1        text
<-- p2        text
FORM ALV_DISPLAY .
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
   EXPORTING
I_INTERFACE_CHECK              = ' '
I_BYPASSING_BUFFER             =
I_BUFFER_ACTIVE                = ' '
     I_CALLBACK_PROGRAM             = SY-REPID
   I_CALLBACK_PF_STATUS_SET         = PF_STATUS
     I_CALLBACK_USER_COMMAND        = USER_COMMAND
I_STRUCTURE_NAME               =
     IS_LAYOUT                      = WA_LAYOUT
     IT_FIELDCAT                    = IT_FIELDCAT
IT_EXCLUDING                   =
IT_SPECIAL_GROUPS              =
IT_SORT                        =
IT_FILTER                      =
IS_SEL_HIDE                    =
I_DEFAULT                      = 'X'
     I_SAVE                         = G_SAVE
    IS_VARIANT                      = G_VARIANT
     IT_EVENTS                      = G_EVENTS
IT_EVENT_EXIT                  =
IS_PRINT                       =
IS_REPREP_ID                   =
I_SCREEN_START_COLUMN          = 0
I_SCREEN_START_LINE            = 0
I_SCREEN_END_COLUMN            = 0
I_SCREEN_END_LINE              = 0
IMPORTING
E_EXIT_CAUSED_BY_CALLER        =
ES_EXIT_CAUSED_BY_USER         =
    TABLES
      T_OUTTAB                       = IT_VBAP
   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.                    " ALV_DISPLAY
*&      Form SET_PF_STATUS
      text
FORM SET_PF_STATUS USING EXTAB TYPE SLIS_T_EXTAB.
SET PF-STATUS 'STANDARD' EXCLUDING EXTAB.
ENDFORM.                    "SET_PF_STATUS
*&      Form SET_USER_COMMAND
      text
FORM SET_USER_COMMAND USING R_UCOMM
                            RS_SELFIELD TYPE SLIS_SELFIELD.
CASE R_UCOMM.
    WHEN 'DC'.
      READ TABLE IT_VBAP INDEX RS_SELFIELD-TABINDEX.
      IF SY-SUBRC = 0.
        SELECT SINGLE MTART
                      FROM MARA
                      INTO V_MTART
                      WHERE MATNR = IT_VBAP-MATNR.
        IF SY-SUBRC <> 0.
   MESSAGE E000 WITH 'NO MATERIAL DESCRIPTION FOR SELECTED MATERIAL NO'.
        ELSE.
          WRITE :/ 'MATERIAL NO :',IT_VBAP-MATNR.
          WRITE :/ 'MATERIAL TYPE :' , V_MTART.
SUBMIT SLIS_DUMMY WITH P_MATNR EQ IT_VBAP-MATNR
                    WITH P_MTART EQ V_MTART.
        ENDIF.
      ENDIF.
    WHEN 'BACK'.
      LEAVE TO SCREEN 0.
    WHEN 'EXIT'.
      LEAVE TO SCREEN 0.
    WHEN 'CLOSE'.
      CALL TRANSACTION 'SE38'.
ENDCASE.
plz reward if useful

IPhoto '08 Experts apply within (HELP NEEDED!)

Similar Messages

Maybe you are looking for