Very very desperate newbie

Hello everyone here....I am now stuck in some apparently simple code, but still cannot solve them....
My purpose is trying to resize the width of a column in jTable
(1) I try to resize the table column width in Design view in jBuilder, but it doesn't work
(2) Then i try this piece of code:
import java.swing.table.*;
public class ABC extends jFrame {
TableColumn column = null;
for (int i=0; i < 7; i++) // a 6x7 grid
{    column = jTable1.getColumnModel().getColumn(i);
if i == 2 {
column.setPreferredWidth(40);
} else {
column.setPreferredWidth(80);
(This piece of code is just copied down from somewhere in this site)
However it doesn't work again.
So finally everything is not working!! Anyone to tell me the secret of this little but despairing question??

I forgot to say that the purpose to resize column width is that I want a 'zero' width column in the rightmost side. The reason behind is that I've created a table inside a scrollPane and when i try to retrieve data from it....it's not totally working
e.g. there are 6x7 column in my table
value at (0,0) is "Monday" (preset)
now i've entered "abcd" in (0,1)
"bcd" in (0,2)
then when i want to retrieve the data in table, using
System.out.println(jTable.getValueAt(0,0));
System.out.println(jTable.getValueAt(0,1));
System.out.println(jTable.getValueAt(0,2));
then the output is
Monday
abcd
Apparently the (0,2) is not shown. Finally i realise that when i entered data in location (0,0) ....(0, n) , it always show (0,0) to (0, n-1) only. That's why i need a so-called hidden column....anyone can solve it for me?

Similar Messages

  • Mac booting problem - Please help! very, very desperate!

    My mac was being very, very slow so I turned it off, then as it it was booting it was taking ages so i restared in safe mode. While booting in safe mode the black bar at the bottom goes around 2/5 of the way across and then my macbook just switches off.
    Ive tried:
    fsck
    disk utility repair/verify
    reinstalling OS X Lion
    When i tried to repair, it said i needed to erase everything and reinstall the OS. Last night when i tried to it said both drives are locked so i couldnt. And now when i just tried again, neither drivers are appearing; the box is just blank.
    Let alone my livelyhood on the laptop, i have thousands and thousands pictures which if lost, would genuinley heartbreak me. I have much valuable data on my laptop and i really dont want to erase all data, because me being the gigantic fool that i am, i only have one time machine back up from about a year and a half ago.
    Please, please help.
    Thank you!

    humzasadique,
    unfortunately you’ve now discovered where the value proposition lies in making regular backups — if your livelihood depends upon your laptop, that lack of due diligence is rather baffling.
    Which model MacBook Pro do you have, and which version of OS X is installed on it? Do you have an external bootable drive?

  • Macbook Air - Bluetooth PAN - Very Very Slow

    I am desperate for a solution. I am trying to use Bluetooth PAN with my HTC Touch Dual and my MacBook Air. It works with my MacBook Pro. It works with my Windows XP machine.
    The whole purpose of getting the MBA was to lighten my load when I am on the road (all day). Now, I have to switch back to the MBP. I have tried everything, and my connection to the MBA is very, very slowwww.
    Help!

    I might have a solution for you, but its a crappy one.
    I have the exact same problem with this phone and my new 17 Inch Macbook Pro.
    What fixed it for me was using a Bluetooth Dongle instead of the built in Bluetooth. You need to add a second PAN connection in the Network Prefs and repair everything, but when you get it all configured correctly and use the Dongle instead of the built in Bluetooth, I bet it works flawlessly.
    There is something wrong with how Apples newer Bluetooth hardware is interacting with this phone. I even went to an Apple Store and tested on another 17 inch Macbook to make sure it wasent just my computer. The older Macbooks worked fine, so its something in the newer hardware.
    Call Apple, make them aware that this is an issue with all their newer stuff. Let them (and me) know if using an external bluetooth adapter fixed the issue for you.

  • Exchange 2013 CU5 , Exchange Power Shell very very very slow reasponse when using get command.

    Exchange 2013 CU5 , Exchange Power Shell very very very slow reasponse when using get command.
    First my organize has Exchange on 2 site like
    site A (internet facing) : 2CAS 2 MB all are Services pack1
    site B (DR Site , no user active on this site) : 2CAS 2MB all are Services pack 1
    so today I upgrade Exchange 2013 from SP1 to CU5 start on "site B" and I found this issue and the details is....
    When I open EMS on any CU5 for query something (like get-mailboxdatabasecopystatus) the response return very slow and some query will not return at all (like get-owavirtualdirectory).
    But If I using EMS on SP1. Everything is ok then I try to use EMS on SP1 connect to CU5 and try to query something. the result is
    some query command cannot return for any result that are server on siteB (just some query command)
    Problem
    EMS on CU5 return very slow result.
    EMS on SP1 still ok.
    Does anyone face this problem before for CU5??? Please help me figure this out. Thank you
    reply from Social.technet

    Hi,
    Have you used the above cmdlets to check your Exchange server health?
    "all other command that I ran on EMS didn't logged on event viewer.", my environment is the same with you. I use Exchange 2013, only errors will be displayed in MSExchange Management. Actually, it is not related to slow EMS response.
    Hope it helps.
    Best regards,
    Amy Wang
    TechNet Community Support

  • 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

  • Since updating my iPad 2 to ios8, it safari has been slow and crashing and some of the apps acting wierd. The password app doesn't work at all so had to find another way of retrieving all my passwords. Very very dissapointing

    Since updating my iPad 2 to ios8, it safari has been slow and crashing and some of the apps acting wierd. The password app doesn't work at all so had to find another way of retrieving all my passwords. Very very dissapointing. It appears from these forums that a lot of people are having the same problems wit this latest update.

    Hi erastyle,
    Actually the Licensing information for the package is missing hence it is not launching any applications. You need to Reserialize the products using APTEE which you can find it on the Machine where you have created the package. If you dont have the access to that Machine then please download and install Creative Cloud Packager and it will download APTEE in the below mentioned location.
    Windows:
    C:\Program Files (x86)\Common Files\Adobe\OOBE\PDApp\CCP\utilities
    Once downloaded please follow this KB article to use the Tool.
    http://helpx.adobe.com/creative-cloud/packager/provisioning-toolkit-enterprise.html
    Please let us know if it helps.
    Regards,
    Abhijit

  • My macbook pro is running very slow and very very hot

    hi everyone I have a 13 inch mid 2012 MacBook pro,
    it is running very very slow and extremely hot, I downloaded a program called smc fan control and it is reading the internal temperature of my computer as 80 degrees Celsius. I was looking on the forums and saw that I should run an apple hardware test. which I have done and it is coming up with Error 4/MOT/4/40000002: EXHAUST-2003
    what does this mean? is it something to do with my fan?
    also there is a very strange clicking noise when I lift the mac up or if its on its side and sometimes it just randomly freezes,  the computer does not respond and then it restarts.
    what do I do?
    please help!

    " the fan didn't seem congested with dust, at least not enough to cause any malfunction."
    The lint and crap builds up in the heat exchanger radiator. It's the grilled thing at the output of the fan.
    https://www.ifixit.com/Guide/MacBook+Pro+13-Inch+Unibody+Mid+2012+Fan+Replacemen t/10367
    Look at step 6. It's that grilled thing at the top of the fan. If you remove the fan that radiator is probably clogged with lint. Brush it all away and if possible blow out the fan with compressed air. Make sure the fan turns freely and doesn't feel stiff.
    http://s291.photobucket.com/user/spudnuty/media/13%20inch%20MacBook%20Core%202%2 05-2007%20dirty%20rainstrm/MacBookHeatsinkinlet.jpg.html?filters[user]=68196367& filters[recent]=1&sort=1&o=21
    This isn't a MBP radiator but the problem will look like this.

  • How do i turn off the STUPID gestures? every time i quickly scroll a large page i get switched to previous sites i've been at, very, very annoying! i hate gestures!

    i'm using firefox 4.0 on an amd cpu running suse linux 11.4. i've completely turned off the gestures in suse (one of the first things i do, i can move a mouse very quickly and i like it to be a mouse!), i can't find a plugin or setting to turn these damn things off. the main problem is when i use the scroll wheel to rapidly move up or down a long web page and wind up on another page suddenly, very, very annoying! i really, really HATE gestures! then again i know how to use buttons etc. and i do mouse very quickly and creatively ( i also turn off several other "conveniances" like automatic window resizing, i know how to manage windows.....) thanks, i really, really hate these "features" being on by default, people with certain disabilites are probably also highly annoyed by the lack of choice in some procucts.
    you really, really need to provide easy access to more settings, as evidenced by the number of extensions aimed at providing control to users. thanks

    You can set all the mousewheel.with*.action prefs to 0 to perform a scroll.
    mousewheel.withnokey.action
    mousewheel.withaltkey.action
    mousewheel.withcontrolkey.action
    mousewheel.withmetakey.action
    mousewheel.withshiftkey.action
    To open the <i>about:config</i> page, type <b>about:config</b> in the location (address) bar and press the "<i>Enter</i>" key, just like you type the url of a website to open a website.<br />
    If you see a warning then you can confirm that you want to access that page.<br />
    If necessary then you can also set all the browser.gesture prefs to empty String values.

  • Searching for the fields of a table(very very urgent)

    Hi all,
    i am in graet trouble now.i am searching for the fields like
    1)country of origin where the finished good is created.
    2) customer sales order number
    3)customer sales order line number
    i am writing a report for delivery order.in this report i have to refer customer PO & customer SO .
      i mean, my company has a customer ( seagate) & seagate has a customer (let maxtor).initially maxtor will give a PO to seagate then seagate will raise a SO againest maxtor.
       Then seagate will send PO number(of maxtor), PO line number,SO number(seagate), SO line number(seagate) to our company.
       Then i have to write a report for sales order & delivery order.in these reports i have to refer seagate PO number & seagate SO number for reference.
    i got PO number as vbkd-bstkd but not getting any field for reference Sales order.plz advice me on this. it is very very urgent.
    ur idea is highly appreaciated.
    Thank u very much.
    Regards
    pabitra

    check out tables VBAK(sales order header), VBAP(sales items)

  • I went to use my ipod touch 8GB but it wasn't working, when i looked closer it was on just very very dim. The brightness is turned up all the way and the screen is practically black.. does anyone know how to fix it?

    I went to use my ipod touch 8GB but it wasn't working, when i looked closer it was on just very very dim. The brightness is turned up all the way and the screen is practically black.. does anyone know how to fix it?

    Try:
    - Reset the iOS device. Nothing will be lost
    Reset iOS device: Hold down the On/Off button and the Home button at the same time for at
    least ten seconds, until the Apple logo appears.
    - Reset all settings If yu can see the screen enough to do it)
    Go to Settings > General > Reset and tap Reset All Settings.
    All your preferences and settings are reset. Information (such as contacts and calendars) and media (such as songs and videos) aren’t affected.
    - Restore from backup
    - Restore to factory settings/new iOS device.
    - Make an appointment at the Genius Bar of an Apple store since you have a hardware problem.
    Apple Retail Store - Genius Bar

  • How do I enlarge the font in messages received and sent?  I have it set at "13", but it is very, very small on my screen.  I can't seem to change the appearance of the tool bar even when I try to "customize".

    How do I enlarge the font in messages received and sent?  I have the font set at "13", but the appearance on my screen is very, very small.  When I try to "customize the toolbar" to look like the tool bar above this message, I am unable to do so.  Please advise.  Thank you.

    Thanks MartinR, yes the Toggle bars can be adjusted so that I can see all the tracks - just in the smallest setting - however this also creates a huge area of grey which serves no other purpose than to "use up screen space". If this is deliberate then there is nothing one can do - since presumably the additional profit made on screen sales is more important to Apple, than the combined annoyance to those working on a 13" laptop. Of course a 15" screen or even 17" screen may make this wastage less obvious. Please indicate that this is all incorrect and explain why it is important to have space waiting "for additional tracks", even if I have no intention of making additional tracks. If that is the answer then perhaps additional space to the left and right of the timeline would be useful in case I wish to make a 30 minute film, so that it could be placed there without having to drag anything. It may be that I am expecting software than can be tailor adjusted, each parameter to the desired level as in professional items and since this is a cheap consumer program it is not possible.
    I bought Final Cut Pro for a lot of money (when it first appeared it was thousands and not just hundreds) but never used it since it was too complicated and tedious, but maybe there, this problem of screen wastage does not occurr, perhaps someone can advise! I could go back and reinstall it, but it was made for 10.2.8 and not 10.6.8 so it would not run on this macbook. I recently bought an old 15" TitaniumPowerbook (from 2005) and despite running at 1MHz the response time on it is "instantaneous" - amazing to not have the almost half second delay on many commands - graphics appear nearly immediately (just 5 milliseconds delay) and this makes working so much more enjoyable, not having the (350ms) stutter of 10.6.8 which we all get used to after our initial disappointment.
    Thanks for your help!

  • When I phone people can hear me without any problem, but I hear very very bad. The sounds is metallic and it is very difficult to understand. Have anyone idea of what is it about. I guess is not a software problem but I am not an expert. Thanks in advance

    When I phone people can hear me without any problem, but I hear very very bad. The sounds is metallic and it is very difficult to understand. Have anyone idea of what is it about. I guess is not a software problem but I am not an expert. Thanks in advance

    Make sure that you allow pages to choose their colors and that you haven't enabled High Contrast in the Accessibility settings.
    *Firefox > Preferences > Content : Fonts & Colors > Colors : [X] "Allow pages to choose their own colors, instead of my selections above"
    See also:
    *http://kb.mozillazine.org/Images_or_animations_do_not_load
    *https://support.mozilla.org/kb/Images+or+animations+do+not+show

  • 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

  • Adapter doesn't light up bright...just very very dim. No power on macbook

    I got my macbook from a friend about 3 months ago (he purchase it about a year and a hlaf ago.) He spilled a beverage on it and it fried the battery but it still worked without battery.
    About a week ago it wouldn't power on with the adapter, I purchased a new adapter assuming that was the problem. When I plugged it in to the macbook the LED is very very dim green and the macbook still won't power.
    Last night it all of a sudden turned bright green and powered on and this morning it was back to dim and I can't get it to power for anything.
    Do you think it is because of the liquid even having worked for 3 months after the spill...Would you have any tips to getting this to power on?

    Try here >  Troubleshooting: My computer won't turn on
    There's information for troubleshooting the magsafe power adapter at that link also.

  • TS1398 since i have updated the latest software i am facing problem using wifi which is very very slow most of the time or wont connect at all was that update supposed to be for better or worse

    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.

  • Regarding drop down list,  any body help me plz.. very very urgent

    i have to create a drop down list and in that if i select a value it should go to select query and display hte result in the output
    for example if i select open in the inout list. that should go to a partiucular query which i write and after that when i process the report that option open should be displayed in the output
    any body help me plz.. very very urgent

    Check  code below..
    TYPE-POOLS:  vrm.
    CONSTANTS: c_pgp_cmd(20) TYPE c VALUE '/opt/pgp/bin/pgp'.
    DATA : droplist TYPE vrm_values,
           dropval LIKE LINE OF droplist,
           w_command(2000) TYPE c VALUE '/usr/local/bin/ssh'.
    DATA:  BEGIN OF t_cmdres OCCURS 0,
             line(500),
           END OF t_cmdres.
    SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-005.
    PARAMETERS:  tar_sys(10) TYPE c AS LISTBOX VISIBLE LENGTH 20 LOWER CASE,
                 filepath TYPE esefilepath,
                 pgpkey(1000) TYPE c LOWER CASE,
                 option(25) TYPE c AS LISTBOX VISIBLE LENGTH 15 LOWER CASE,
                 pass(100) TYPE c.
    SELECTION-SCREEN END OF BLOCK b1.
    INITIALIZATION.
      PERFORM set_screen.
    AT SELECTION-SCREEN OUTPUT.
      IF option EQ 'encrypt'(000).
        LOOP AT SCREEN.
          IF screen-name = 'PASS'.
            screen-input = 0.
            MODIFY SCREEN.
            EXIT.
          ENDIF.
        ENDLOOP.
      ELSEIF option EQ 'set-preferred-ciphers'(001).
        LOOP AT SCREEN.
          IF screen-name = 'FILEPATH'.
            screen-input = 0.
            MODIFY SCREEN.
            EXIT.
          ENDIF.
        ENDLOOP.
      ENDIF.
    START-OF-SELECTION.
    write:/ 'Done'
    *&      Form  set_screen
    FORM set_screen .
      dropval-key = 'oapg18dv'(002).
      dropval-text = 'oapg18dv : DEV'.
      APPEND dropval TO droplist.
      dropval-key = 'oapg18te'(003).
      dropval-text = 'oapg18te : TEST'.
      APPEND dropval TO droplist.
      dropval-key = 'oapg18pr'(004).
      dropval-text = 'oapg18pr : PRD'.
      APPEND dropval TO droplist.
      CALL FUNCTION 'VRM_SET_VALUES'
        EXPORTING
          id              = 'TAR_SYS'
          values          = droplist
        EXCEPTIONS
          id_illegal_name = 1
          OTHERS          = 2.
      CLEAR:  dropval,
              droplist[].
      dropval-key = 'encrypt'(000).
      dropval-text = 'Encrypt'.
      APPEND dropval TO droplist.
      dropval-key = 'set-preferred-ciphers'(001).
      dropval-text = 'Set cipher'.
      APPEND dropval TO droplist.
      CALL FUNCTION 'VRM_SET_VALUES'
        EXPORTING
          id              = 'OPTION'
          values          = droplist
        EXCEPTIONS
          id_illegal_name = 1
          OTHERS          = 2.
      CLEAR:  dropval,
              droplist[].
    ENDFORM.                    " set_screen
    Reward if useful
    Function Module <b>VRM_SET_VALUES</b> is used to set values for droplsit..
    and be careful about Text Elements in this report.
    Regards
    Prax

Maybe you are looking for