Problem in the code while fetching records and displaying in the screen

Hi,
   I have developed a screen which is having various fields, all the records are stored in a ztable,when i enter the records into various i/o fields and press submit pushbutton they are stored in the table now, what i wont is when i enter one record the (primary one) and press enter the corresponding records of that record should be shown in the i/o fields means they should be fetched back from the d/b table and displayed on the screen. For this i Have written a code please see it once.
TABLES : ZFISALDT.
DATA ITAB LIKE ZFISALDT OCCURS 0 WITH HEADER LINE.
ZFISALDT-BILLINGDOCU = ITAB-BILLINGDOCU.
ZFISALDT-SALESDOCU = ITAB-SALESDOCU.
ZFISALDT-FORM402 = ITAB-FORM402.
ZFISALDT-SALESTAXFORM = ITAB-SALESTAXFORM.
ZFISALDT-FREIGHTDOCNO = ITAB-FREIGHTDOCNO.
ZFISALDT-FPARTYNAME = ITAB-FPARTYNAME.
*&      Module STATUS_5555 OUTPUT
      text
MODULE STATUS_5555 OUTPUT.
SET PF-STATUS 'SALALL'.
SET TITLEBAR 'SAL'.
ENDMODULE.                 " STATUS_5555 OUTPUT
*&      Module USER_COMMAND_5555 INPUT
      text
MODULE USER_COMMAND_5555 INPUT.
CASE SY-UCOMM.
WHEN 'BACK'.
LEAVE TO SCREEN 0.
WHEN 'SUB'.
IF ZFISALDT-BILLINGDOCU = ' '
OR ZFISALDT-SALESDOCU = ' '.
MESSAGE 'PLEASE FIRST SUBMIT THE BILLING DOCUMENT NO AND SALES DOCUMENT NO' TYPE 'E'.
ENDIF.
ZFISALDT-BILLINGDOCU = ZFISALDT-BILLINGDOCU.
ZFISALDT-SALESDOCU = ZFISALDT-SALESDOCU.
ZFISALDT-FORM402 = ZFISALDT-FORM402.
ZFISALDT-SALESTAXFORM = ZFISALDT-SALESTAXFORM.
*ZFISALDT-FREIGHTDOCNO = ZFISALDT-FREIGHTDOCNO.
*ZFISALDT-FPARTYNAME = ZFISALDT-FPARTYNAME.
*SUBMIT ITAB.
WHEN ' '.   (THIS THE PART OF CODE WHICH IS NOT WORKING)
SELECT * FROM ZFISALDT INTO corresponding fields of TABLE ITAB WHERE BILLINGDOCU = ZFISALDT-BILLINGDOCU.
ITAB-BILLINGDOCU = ZFISALDT-BILLINGDOCU.
ITAB-SALESDOCU = ZFISALDT-SALESDOCU.
ITAB-FORM402 = ZFISALDT-FORM402.
*ZFISALDT-BILLINGDOCU = ITAB-BILLINGDOCU.
*ZFISALDT-BILLINGDOCU = ITAB-BILLINGDOCU.
*ZFISALDT-SALESDOCU = ITAB-SALESDOCU.
*ZFISALDT-FORM402 = ITAB-FORM402.
*ZFISALDT-SALESTAXFORM = ITAB-SALESTAXFORM.
append ITAB.                                                      (ALSO USED INSERT BUT NOT WORKING)
WHEN 'ENTER'.
IF ZFISALDT-BILLINGDOCU = ' '
OR ZFISALDT-SALESDOCU = ' '.
MESSAGE 'PLEASE FIRST SUBMIT THE BILLING DOCUMENT NO AND SALES DOCUMENT NO' TYPE 'E'.
ENDIF.
ZFISALDT-FREIGHTDOCNO = ZFISALDT-FREIGHTDOCNO.
ZFISALDT-FPARTYNAME = ZFISALDT-FPARTYNAME.
ZFISALDT-FREIGHTBILLNO = ZFISALDT-FREIGHTBILLNO.
ZFISALDT-FREIGHTDATE = ZFISALDT-FREIGHTDATE.
ZFISALDT-TRUCKNO = ZFISALDT-TRUCKNO.
ZFISALDT-FREIGHTAMOUNT = ZFISALDT-FREIGHTAMOUNT.
ZFISALDT-COMNAGBILL = ZFISALDT-COMNAGBILL.
ZFISALDT-AGENTNAME = ZFISALDT-AGENTNAME.
ZFISALDT-CAGDATE = ZFISALDT-CAGDATE.
ZFISALDT-CMNAGAMOUNT = ZFISALDT-CMNAGAMOUNT.
ZFISALDT-SHIPMENTNAME = ZFISALDT-SHIPMENTNAME.
ZFISALDT-SHIPDOCUNO = ZFISALDT-SHIPDOCUNO.
ZFISALDT-SHIPBILLNO = ZFISALDT-SHIPBILLNO.
ZFISALDT-SHIPBILLDATE = ZFISALDT-SHIPBILLDATE.
ZFISALDT-BLNOGOV = ZFISALDT-BLNOGOV.
ZFISALDT-CHAAGENTNAME = ZFISALDT-CHAAGENTNAME.
ZFISALDT-CHABILL = ZFISALDT-CHABILL.
ZFISALDT-CHADATE = ZFISALDT-CHADATE.
ZFISALDT-CHAAMOUNT = ZFISALDT-CHAAMOUNT.
ZFISALDT-B_L_NO = ZFISALDT-B_L_NO.
ZFISALDT-B_L_NODATE = ZFISALDT-B_L_NODATE.
ZFISALDT-DEPBLICNO = ZFISALDT-DEPBLICNO.
ZFISALDT-LICENCE_DATE = ZFISALDT-LICENCE_DATE.
ZFISALDT-FOC_VALUE = ZFISALDT-FOC_VALUE.
ZFISALDT-DEPB_VALUE = ZFISALDT-DEPB_VALUE.
INSERT ZFISALDT.
CLEAR ZFISALDT.
ENDCASE.
ENDMODULE.                 " USER_COMMAND_5555 INPUT
This is the code please check it once.
Thanks in advance.

Hi Sumeet.
WHEN ' '. " (THIS THE PART OF CODE WHICH IS NOT WORKING)
SELECT * FROM ZFISALDT INTO corresponding fields of TABLE ITAB WHERE BILLINGDOCU = ZFISALDT-BILLINGDOCU.
" here in where condition u r checking with ZFISALDT-BILLINGDOCU, i guess there is no value in that, Once check in debugging mode and proceed further.
Regards,
Aby

Similar Messages

Reading the record and displaying when u select it using checkbox

hi,
       how to read the particilar record and display it in a popup screen when u select it using checkbox and then press 'DISP' button in alv(normal alv not with oops concepts).
like i select a row which is checked (checkbox) it and i have to read that particular record and display (value of keyfield say vbeln) details in a popup screen.

hi,
go through the faloowing code.
this for normal popup.
*& Report ZGS_ALV_POPUP_2_SELECT
REPORT ZGS_ALV_POPUP_2_SELECT.
TYPE-POOLS: slis.
PARAMETERS: p_title TYPE sy-title default 'Sales Document:item data'.
DATA: itab TYPE vbap OCCURS 0 WITH HEADER LINE,
      selfield TYPE slis_selfield.
START-OF-SELECTION.
SELECT *
    FROM vbap
    INTO TABLE itab
    UP TO 20 ROWS.
CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'
       EXPORTING
            i_title                 = p_title
*           I_SELECTION             = 'X'
           I_ZEBRA                 = 'X '
*           I_SCREEN_START_COLUMN   = 0
*           I_SCREEN_START_LINE     = 0
*           I_SCREEN_END_COLUMN     = 0
*           I_SCREEN_END_LINE       = 0
*           I_CHECKBOX_FIELDNAME    =
*           I_LINEMARK_FIELDNAME    =
*           I_SCROLL_TO_SEL_LINE    = 'X'
            i_tabname               = 'ITAB'
            i_structure_name        = 'VBAP'
*           IT_FIELDCAT             =
*           IT_EXCLUDING            =
*           I_CALLBACK_PROGRAM      =
*           I_CALLBACK_USER_COMMAND =
*            is_private              =
     IMPORTING
            es_selfield             = selfield
*            e_exit                  =
       TABLES
            t_outtab                = itab
       EXCEPTIONS
            program_error           = 1
            OTHERS                  = 2.
IF sy-subrc <> 0.
    MESSAGE i000(8I) WITH sy-subrc.
ENDIF.
WRITE:
         / 'Table Index : ', 20 selfield-tabindex,
        / 'Table Name : ', 15 selfield-tabname,
        / 'Field Name : ', 15 selfield-fieldname,
        / 'Table-Field : ', 15 selfield-sel_tab_field,
        / 'Field Value : ', 15 selfield-value.
the falowing code is for how to put checkbox and how to display the selected recods.you combine both codes.
*& Report ZRP_SALES
REPORT ZRP_SALES NO STANDARD PAGE HEADING.
DATA: TEMP_DATE_STR TYPE STRING.
*DATA: TEMP_NETP LIKE VBAK-NETWR.
DATA: TEMP_NETWR(10).
*DATA: TEMP_VBELN LIKE VBAK-VBELN.
DATA: CHECK TYPE C VALUE ' '.
*DATA: WA_VBELN LIKE VBAK-VBELN.
DATA: TEMP_DATE LIKE VBAK-ERDAT.
*DATA: TEMP_NETP_STR TYPE STRING.
DATA:FNAM(20), FVAL(20).
TYPES: BEGIN OF MY_VBAK,
       VTWEG TYPE VTWEG,
       VKORG TYPE VKORG,
       SPART TYPE SPART,
       NETWR TYPE NETWR_AK,
       VBELN TYPE VBELN_VA,
       ERDAT TYPE ERDAT,
       END OF MY_VBAK.
DATA: IT_VBAK TYPE MY_VBAK OCCURS 0 WITH HEADER LINE.
DATA: WA_VBAK TYPE MY_VBAK.
DATA: V_VBELN TYPE VBELN,
      V_ERDAT TYPE ERDAT.
SELECT-OPTIONS:S_VBELN FOR V_VBELN,
               S_ERDAT FOR V_ERDAT.
AT SELECTION-SCREEN.
*Check for Sales Order number to be non-initial.
IF S_VBELN IS INITIAL.
*Checking for Date to be non-nitial.
    IF S_ERDAT IS INITIAL.
      MESSAGE E003(ZRP_MSG). " Please enter either SO number or Date.
    ELSE.
*Validating the right low values for Date select option
      SELECT SINGLE ERDAT
             FROM VBAK INTO TEMP_DATE
             WHERE VBELN EQ S_VBELN-LOW OR ERDAT EQ S_ERDAT-LOW.
      IF SY-SUBRC NE 0.
        MESSAGE E004(ZRP_MSG).
      ENDIF.
*Validating the right high values for Date select option
      SELECT SINGLE ERDAT
              FROM VBAK INTO TEMP_DATE
              WHERE ERDAT EQ S_ERDAT-HIGH OR VBELN EQ S_VBELN-HIGH.
      IF SY-SUBRC NE 0.
        MESSAGE E005(ZRP_MSG).
      ENDIF.
    ENDIF.
ELSE.
*Checking for Date to be non-nitial.
    IF S_ERDAT IS NOT INITIAL.
      MESSAGE E003(ZRP_MSG). " Please enter either SO number or Date.
    ENDIF.
*Validating the right low values
    SELECT SINGLE VBELN
           FROM VBAK INTO S_VBELN
           WHERE VBELN EQ S_VBELN-LOW.
    IF SY-SUBRC NE 0.
      MESSAGE E001(ZRP_MSG).
    ENDIF.
*Validating the right high values
    IF S_VBELN-HIGH IS NOT INITIAL.
      SELECT SINGLE VBELN
              FROM VBAK INTO S_VBELN
              WHERE VBELN EQ S_VBELN-HIGH.
      IF SY-SUBRC NE 0.
        MESSAGE E002(ZRP_MSG).
      ENDIF.
    ENDIF.
ENDIF.
START-OF-SELECTION.
*First Screen.
SET PF-STATUS 'DISP'.
IF S_VBELN IS NOT INITIAL.
    SELECT   VTWEG VKORG SPART NETWR VBELN ERDAT
           FROM VBAK
           INTO TABLE IT_VBAK
           WHERE VBELN IN S_VBELN.
ENDIF.
IF S_ERDAT IS NOT INITIAL.
    SELECT VTWEG VKORG SPART NETWR VBELN ERDAT
           FROM VBAK
           INTO TABLE IT_VBAK
           WHERE ERDAT IN S_ERDAT.
ENDIF.
SORT IT_VBAK BY VKORG VTWEG SPART.
END-OF-SELECTION.
LOOP AT IT_VBAK.
    MOVE IT_VBAK-NETWR TO TEMP_NETWR.
    MOVE IT_VBAK-ERDAT TO TEMP_DATE.
    WRITE:/6 CHECK AS CHECKBOX.
    FORMAT COLOR 1.
    WRITE: IT_VBAK-VBELN UNDER 'SALES ORDER NO.' .
    WRITE: IT_VBAK-ERDAT UNDER 'DATE'.
    FORMAT COLOR OFF.
    FORMAT COLOR 2.
    WRITE: TEMP_NETWR UNDER 'NET PRICE'.
    FORMAT COLOR OFF."TEMP_NETWR,
    FORMAT COLOR 3.
    WRITE:IT_VBAK-VKORG UNDER 'SALES ORG',
          IT_VBAK-VTWEG UNDER 'DIST CHANNEL',
          IT_VBAK-SPART UNDER 'DIVISION'.
    FORMAT COLOR OFF.
    SKIP 1.
*FOR SUBTOTALS
    AT END OF SPART.
      SUM.
      FORMAT COLOR 5.
      WRITE:/6 'SUB TOTOAL OF NET PRICE IS : '.
      WRITE: 32 IT_VBAK-NETWR CURRENCY 'INR'.
      FORMAT COLOR OFF.
      SKIP 2.
    ENDAT.
*FOR GRAND TOTALS
    AT LAST.
      SUM.
      FORMAT COLOR 6.
      WRITE:/6 'GRAND TOTOAL OF NET PRICE IS : ',
      32 IT_VBAK-NETWR CURRENCY 'INR'.
      FORMAT COLOR 6.
    ENDAT.
ENDLOOP.
TOP-OF-PAGE.
FORMAT COLOR 6.
WRITE:/8    'SALES ORDER NO.',
       27   'DATE',
       42   'NET PRICE',
       57   'SALES ORG',
       70   'DIST CHANNEL',
       87   'DIVISION'.
FORMAT COLOR OFF.
SKIP 1.
*WHEN SALES ORDER IS SELECTED
AT LINE-SELECTION.
CASE :SY-LSIND.
    WHEN '2'.
      GET CURSOR FIELD FNAM VALUE FVAL.
      IF FNAM <> 'WA_VBAK-VBELN'.
        MESSAGE E006(ZRP_MSG).
      ELSE.
        SET PARAMETER ID 'MAT' FIELD FVAL.
        CALL TRANSACTION 'MM02' AND SKIP FIRST SCREEN.
ENDIF.
    ENDCASE.
*WHEN CLICKED ON PUSH BUTTON IN THE APPLICATION BAR
AT USER-COMMAND.
CASE:SY-UCOMM.
    WHEN 'DISP'.
      DO.
        CLEAR CHECK.
        CLEAR: WA_VBAK,TEMP_DATE_STR.
        READ LINE SY-INDEX FIELD VALUE CHECK
           IT_VBAK-VTWEG INTO WA_VBAK-VTWEG
*           IT_VBAK-NETWR INTO TEMP_NETP_STR
           IT_VBAK-VBELN INTO WA_VBAK-VBELN
           IT_VBAK-ERDAT INTO TEMP_DATE_STR
           IT_VBAK-VKORG INTO WA_VBAK-VKORG
           IT_VBAK-SPART INTO WA_VBAK-SPART.
        IF SY-SUBRC <> 0.
          EXIT.
        ELSEIF CHECK = 'X'.
          FORMAT COLOR 1.
          WRITE: 8 WA_VBAK-VBELN HOTSPOT. "UNDER 'SALES ORDER NO'
          WRITE: 25 TEMP_DATE_STR." UNDER 'DATE'.
          FORMAT COLOR OFF.
*       FORMAT COLOR 2.
*                   WRITE: 44 TEMP_NETP_STR." UNDER 'NET PRICE'.
*       FORMAT COLOR OFF.
          FORMAT COLOR 3.
          WRITE:44 WA_VBAK-VKORG," UNDER 'SALES ORG',
         59 WA_VBAK-VTWEG," UNDER 'DIST CHANNEL',
         72 WA_VBAK-SPART." UNDER 'DIVISION'.
          FORMAT COLOR OFF.
          SKIP 1.
        ENDIF.
      ENDDO.
ENDCASE.
TOP-OF-PAGE DURING LINE-SELECTION.
CASE:SY-LSIND.
    WHEN 1.
      FORMAT COLOR 6.
      WRITE:/8    'SALES ORDER NO.',
             25   'DATE',
*       44   'NET PRICE',
             44   'SALES ORG',
             58   'DIST CHANNEL',
             72   'DIVISION'.
      SKIP 1.
      FORMAT COLOR OFF.
<b>if helpful reward some points.</b>
Message was edited by:
        suredarreddy pulimamidi

Does anyone has a problem with the screen of the new ipad? (there's a part of the screen which the color in it is "very" bright) and when I move the aluminium part of the smart cover when it's attached to the ipad the colors change!! Help!!!

Does anyone has a problem with the screen of the new ipad? (there's a part of the screen which the color in it is "very" bright) and when I move the aluminium part of the smart cover when it's attached to the ipad the colors change!! Help!!!

I'd take it into my local APple store and have them look at it. There may be something wrong inside your device.

I bought an new ipad 3rd gen 16 gb wifi cellular in may 2012. I hv a unique problem wherein the screen of ipad is not as smooth as what is general experience. Its not buggy but lacks smoothness and finger doesnot glide as smoothly . Can anybody help.

i bought an new ipad 3rd gen 16 gb wifi cellular in may 2012. I hv a unique problem wherein the screen of ipad is not as smooth as what is general experience. Its not buggy but lacks smoothness and finger doesnot glide as smoothly .Can anybody help.

Do you clean your iPad screen? Do not use standard window cleaners, with ammonia or alcohol, like Windex, but a damp towel, followed by a micro-fibre cloth is recommended. There are also cleaners you can buy which are specifically designed for iPad/iPhone devices, such as iClean from Monster.

Hello! My iMac frozed and I had to switch the electricty supply off and on in order to start again the system, with the problem that the screen looks wierd, I tried to calibrate it... doesnt works any suggestion?

hello! My iMac frozed and I had to switch the electricty supply off and on in order to start again the system, with the problem that the screen looks wierd, I tried to calibrate it... doesnt works any suggestion?

Dear Paul, thank you very much for your time and answer, I followed those steps, somehow it helped the performance of my Imac, is faster now, but the screen issue about the very High contrast colours is still there. Since I am a photographer I am very depending on the screen calibration. I am worried that I came to damage the video card when I shut down the computer from the swicth when It was frozed.

With the new IOS 7 mi iPhone has problems with the screen, I go out once stripes, and Apple told me it is the software. help when there is a new update?????

with the new IOS 7 mi iPhone has problems with the screen, I go out once stripes, and Apple told me it is the software. help when there is a new update?????

We are users here. We cannot possibly know when a new update will be available.

Hello , i have a problem,,, yesterday the screen of my ipad 2 was broken (the glass only) and i do not know were to fix it in U.A.E

hello , i have a problem,,, yesterday the screen of my ipad 2 was broken (the glass only) and i do not know were to fix it in U.A.E
need help ASAP

I'd start looking here
https://expresslane.apple.com/ProductSelector.action
It should work no matter where you are in the world. At the very least it can show you if there are any authorized repair places near to you

I have a problem with the screen. my cat pressed a few buttons and everything is displayed in reverse. What shall I do?

I have a problem with the screen. my cat pressed a few buttons and everything is displayed in reverse. What shall I do?

Pick up Garfield and quickly swing him/her over the keyboard once or twice.
Set the cat down.
Try the keyboard.
If no luck, then the catscan failed.
I couldn't resist...............

Problem with two monitors while using Photoshop, windows move from 2nd screen to 1st screen.

Problem with two monitors while using Photoshop, windows move from 2nd screen to 1st screen.
I saved a new workspace and it did not help.
No problem before I went to Maverick.

I found the fix, go to System Preferences and open Mission Control and uncheck the box to keep monitors as they were (When switching to an application...........)

Record and display data

What I would like to do is: display a data point every 1 sec but record the a data point every 10 sec.
I have been playing with the event case and loops to achive these but no mather what I get one or the other; I either record and display every sec or every 10 sec.
Thanks...

Guru,
why doesn't it stop?
The timeout is connected with 1000ms so it will stop after 1 sec, doesn't it?
roddy,
it's right that the event-structure does not execute if you connect the control directly (as you did).
Try to connect the control using a property node and its property value (changed).
This will trigger the event-structure.
(Maybe you should use the LabVIEW help. I'm pretty much sure there is an example in it how to programatically trigger event structures)
IMHO it's not a smart solution anyways. The idea of a event structure is to capture user events (i.e. the frontpanel activities).
In your case it'maybe better to use a timed loop with 1000ms loop time, replace the event-structure with a case-structure, take the Rest from your modulo division and connect "Sine2" inside the case "0" of the case-structure.
When the Rest of your modulo division is != 0 then nothing happens.
Best regards,
Rainer
Message Edited by Balze on 12-18-2009 03:43 AM

I am having problemas with the screen. The graphics look like taken with infrarred, i am having problemas with the screen. The graphics look like taken with infrarred

I am having problems with the screen. the graphics look like infrarred and there are stripes in the Blue screen i am using now.

If Demo's suggestions don't help, and the iPad is out of warranty, try giving it a solid smack or two on the back with your knuckles or your palm. Hit where the Apple logo is or just above it, and be firm but not harsh.
Something internal might be a touch loose and a good smack or two may sort things out
~Lyssa

Problem with the screen

Hello everyone,
I've recently updated the firmware for my MacBook Pro (Early-2011) along with the iTunes update. Since yesterday, I've been experiencing problem with the screen. When the screen dims, it doesn't come back to normal when I move the cursor or type on the keyboard. Instead, it takes about 25 seconds to come back to normal.
Same thing when the screen goes to sleep, it doesn't come back to normal instantaneously when the cursor is moved!
This problem only started to occur after the latest firmware update. What is the problem and is there is solution?

Sam,
The AppleCare warranty does not cover accidental damage, including dropping. You can try resetting, or restoring, but I think you'll need to try a 3rd party iPod repair service (www.ipodresq.com, for example).

A problem on the screen

My computer has a problem on the screen. After half an hour of use strange white glare that remain in the bottom begins to appear.
When disconnecting the unit from one day to the next, but these glosses disappear within a half hour of use reappear.
Why does it happen? Will it be a failure of manufacture?
The device is 2013
What should I do

Hi Jaimistik,
Welcome to the Apple Support Communities!
I know it is concerning when you have display issues on your MacBook Pro. In this situation, I would recommend the troubleshooting steps located in the attached article. If your issue remains unresolved, it may be necessary to contact Apple support by following the links at the bottom of the article.
Apple computers: Troubleshooting issues with video on internal or external displays
http://support.apple.com/kb/HT1573
Have a great day,
Joe

TS3274 words w/friends has frozen up and displays a white screen.

words with friends froze up after a play and displays a white screen. Other apps working ok.

See if you can force quit the app. Double tap the home button. Flick sideways if needed to get the preview up on your screen. Flick that preview up and off the screen then single tap the home button to exit the mode. Then try your app again.

HT201412 my ipod is frozen, and displays a white screen. It won't turn off; I've tried restarting with on/off and sleep/wake buttons.. Nothing happens

Our i{POD touch is frozen, and displays a white screen. I can't turn it off, and it is unresponsive when trying the on/off, sleep/wake buttons.

Let the battery fully drain. After charging for at least an hour try:
V
If not successful time for an appointment at the Genius Bar of an Apple store.

Problem in the code while fetching records and displaying in the screen

Similar Messages

Maybe you are looking for