ALV codeing...plz help urgent

Hi Experts,
                     I am new to Abap.i hav a simple spec but i need to do it in ALV so plz help me.
   Sales organization                    LIKP     VKORG
Shipping point/receiving pt     LIKP     VSTEL
Delivery                                      LIKP     VBELN
Delivery date                    LIKP     LFDAT
Delivery type                    LIKP     LFART
Pland gds mvmnt date     LIKP     WADAT
Actual gds mvmet date     LIKP     WADAT_IST
Ship-to party                        LIKP     KUNNR
Sold-to party                        LIKP     KUNAG
Posting Status Customized fields     ZCHK
If LIKP-WADAT = WADAT_IST, then print "OK", else " Posting Error"
this is a small requirment.plz help me in this it should be in ALV format.
correct answers will will given full points.
Thnaks & Regards
Sunita.
PLz Experts plz help me.

Hi,
First get the a data into internal table first then fill the field catalog and give it to FM.
For futher reference Goto to se80 and givepackage slis and see the programs in
slis.type-pools: slis.
data:
 i_fieldcat TYPE slis_t_fieldcat_alv,
 wa_fieldcat LIKE LINE OF i_fieldcat.
 CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'MATNR'.----
> internal-table fieldaname
wa_fieldcat-tabname = 'I_MARA'.-------> Internal table name
wa_fieldcat-reptext_ddic = 'Material no.'.
wa_fieldcat-outputlen = '18'.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'ERSDA'.
wa_fieldcat-tabname = 'I_MARA'.
wa_fieldcat-reptext_ddic = 'Creation date'.
wa_fieldcat-outputlen = '10'.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'ERNAM'.
wa_fieldcat-tabname = 'I_MARA'.
wa_fieldcat-reptext_ddic = 'Name of Person'.
wa_fieldcat-outputlen = '10'.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'LAEDA'.
wa_fieldcat-tabname = 'I_MARA'.
wa_fieldcat-reptext_ddic = ' Last Change'.
wa_fieldcat-outputlen = '10'.
APPEND wa_fieldcat TO i_fieldcat.
ENDFORM. " prepare_fieldcatalog
*& Form display_alv
 text
--> p1 text
<-- p2 text
FORM display_alv .
Call ABAP List Viewer (ALV)
call function 'REUSE_ALV_GRID_DISPLAY'
 exporting
 it_fieldcat = i_fieldcat----->fieldcat name
 tables
 t_outtab = i_mara.------> internal table
ENDFORM. " display_alv
 plzzzz reward points if it is useful.

Similar Messages

Well i set a passcode on my iphone 4 and ive forgotten it i have no idea what to do and i only just got this phone plus i dont want to do these bypassing with emergancy call just in case i get it wrong plz help (urgent)

well i set a passcode on my iphone 4 and ive forgotten it i have no idea what to do and i only just got this phone plus i dont want to do these bypassing with emergancy call just in case i get it wrong plz help (urgent)

If you set the phone to erase on 10 failed passcodes - then just keep typing and it will wipe itself.
Otherwise I believe you can set it to recovery mode and restore etc.. via iTunes... There is no easy way as the passcode is designed to protect the phone exactly against what you are trying to do now...
http://osxdaily.com/2011/01/08/iphone-recovery-mode/
Others may have some additional tips !
Sorry for the probs you are having...
Regs Neil

Binary addition,subtraction and modulus...plz help urgent

plz help me on this query...
i need to pass two 512 bit number as string,then convert them to binary and
then perform binary addition,subtraction,modulus operations on those two numbers.finally convert result to integer.
i designed a code which doesnt work correct.it is:
* To change this template, choose Tools | Templates
* and open the template in the editor.
package bytearrayopeations;
import java.math.BigInteger;
* @author sheetalb
public class binaryadding {
 public static void main(String[] args) {
 BigInteger a = new BigInteger("123456");
 BigInteger b = new BigInteger("5121");
 String bb1 = a.toString(2);
 String bb2 = b.toString(2);
 String ss1 = null;
 String ss2 = null;
 String result = "";
 String carry="0";
 System.out.println("first value=" +bb1);
 System.out.println("second value=" +bb2);
 int k=bb1.length();
 int h=bb2.length();
 System.out.println("length 1="+ k);
 System.out.println("length 2=" +h);
 int p=h-k;
 //System.out.println("difference=" +p);
 int q=k-h;
 //System.out.println("difference 2=" +q);
 if(h==k)
 else if(h>k)
 for(int i=0;i<p;i++)
 bb1="0"+bb1;
 System.out.println("new value of first=" +bb1);
 else if(h<k)
 for(int i=0;i<q;i++)
 bb2="0"+bb2;
 System.out.println("new value of second=" +bb2);
 StringBuffer sb1=new StringBuffer(bb1);
 StringBuffer sb2=new StringBuffer(bb2);
 bb1=sb1.reverse().toString();
 bb2=sb2.reverse().toString();
 //System.out.println("rev. buffer1=" +bb1);
 //System.out.println("rev. buffer2=" +bb2);
 for(int i=0;i<bb1.length();i++)
 ss1=bb1.substring(i,i+1);
 ss2=bb2.substring(i,i+1);
 System.out.println("value1=" + ss1 + " " + "value2=" + ss2);
 if (ss1.equals("0") && ss2.equals("0"))
 if (carry.equals("0"))
 result+="0";
 else
 result+="1";
 else if (ss1.equals("1") && ss2.equals("1"))
 if (carry.equals("0"))
 result+="0";
 carry="1";
 else
 result+="1";
 carry="1";
 else if (ss1.equals("0") && ss2.equals("1"))
 if (carry.equals("0"))
 result+="1";
 carry="0";
 else
 result+="0";
 carry="1";
 else if (ss1.equals("1") && ss2.equals("0"))
 if (carry.equals("0"))
 result+="1";
 carry="0";
 else
 result+="0";
 carry="1";
 System.out.println("sum=" +result + " " + "carry" + carry);
 result+=carry;
 StringBuffer sb3=new StringBuffer(result);
 result=sb3.reverse().toString();
 System.out.println("result is " +result);
 System.out.println("Binary = "+ result + ", Decimal = "+Integer.parseInt(result,2));
}plz provide me or email me if possible java coding for all three operations as soon.
[email protected]

One thread is enough. Continue here:[http://forums.sun.com/thread.jspa?threadID=5373720&messageID=10643157#10643157]

Ip to location ......plz help urgent

Hi all,
i need a code which finds out/tracks IP address of a machine and based on that it helps to find out which country it is.i mean based on specific IP ,i get to know country and on that basis Locale can be set.Ultimately when the page renders it shows that county language.
Plz help me out to solve out this issue and its urgent.
Any materials(tutorials,sample code) would be quite helpful for me.
Thanks in advance.

Hi Frank
Thanks for ur reply.
Yes its a web application but as i had described above i need to set locale/multilingual on the basis of users ip.ip will tell the location and after that locale can be set.
Plz tell me desired sol.
Thnks

UTL_FILE help..Plz Help urgently

CREATE OR REPLACE PROCEDURE test_file
AS
n_output_file_handle UTL_FILE.file_type;
/**************************Beginning of the procedure **********************/
BEGIN
--DBMS_OUTPUT.ENABLE(2000000);
DBMS_OUTPUT.put_line('p_utl_dir:');
DBMS_OUTPUT.put_line('c_output_file_name:'|| 'test.txt' );
n_output_file_handle := UTL_FILE.fopen ('C:\MPPI','test.txt','w');
UTL_FILE.put_line (n_output_file_handle, 'test1');
UTL_FILE.fclose(n_output_file_handle);
I have this procedure to write text to a file. I execute this on my own machine but it does not write to the file.I exceute it from SQLPlus by execute test_file();.It says proc successfully completed but nothing is written to text file.
Could somone plz help me with this urgently.

Hi, what is the value for the parameter UTL_FILE?
You use an absolute path for the directory to write to in you r procedure.
If you would use a directory object in the database to specify where to write to you would not need to set UL_FILE parameter.
Regards,
Lutz

Tabs in JSP- Plz help-Urgent

I want to have 3 tabs say Tab1, tab2, tab3 in my page and based on which tab is clicked , I have to display the contents of a table.
Ex: if Tab1 is clicked, i have to display contents of Table1 and tab2,table2 and so ...
Plz help with how to link the click on the tab to calling of the JSP file which retrives and displays the data???....
Its urgent ;plz help

dnamiot ,
I'm also looking for similar funcitonality.
the URL mentioned in your reply is not free ware. you know, it is tough to convince management to buy a software for the project even it is $1.
So if you know any taglibrary which is free ware , which generates maximum of 4 tabs and dynamic in nature, please let me know.
Thanks in advance
tekbond

ALV issue plz help

Hi experts
plz help
i have createed an alv using slis method
in the output there must come a header
in this header i ill have to show som details
like on the left side of the header i want to show the details of the user and on the right side i want to show he data of vendor .
i am able to get the data in the left side but i am not able to show the data of vendor on the right side
the data of vendor is by default coming on left side only just below the details of user but i want to show those details on the right side of the header .
plz tell me how to do it .
thanx in advance.

Hi Anit,
I am attaching here the whole Code. It is somewhat big code so go through it thoroughly.If you still face problem reply this thread otherwise REWARD POINT.
REPORT test
 MESSAGE-ID zzrefn01
 NO STANDARD PAGE HEADING
 *** Portrait: 93x80
 LINE-SIZE 150
 LINE-COUNT 80.
 *** Landscape: 132x65
 LINE-SIZE 132
 LINE-COUNT 65.
 INCLUDES **
INCLUDE zbc_i00. "Customer Standard Include
INCLUDE <icon>. "For Button on the ALV Tool Bar
INCLUDE yyef_check_isp_top.
INCLUDE yyef_check_isp_f01.
INCLUDE yyef_check_isp_o01.
INCLUDE yyef_check_isp_i01.
 CLASS zcl_event_handler IMPLEMENTATION
CLASS zcl_event_handler IMPLEMENTATION.
Top-of-page event
METHOD top_of_page.
 PERFORM event_top_of_page
 USING z_dyndoc_id.
ENDMETHOD. "METHOD top_of_page
Change Status Button
METHOD handle_toolbar.
 IF NOT pa_prodr IS INITIAL.
 DATA: lz_toolbar TYPE stb_button.
 CLEAR lz_toolbar.
 MOVE 'CHANGE_STATUS' TO lz_toolbar-function.
 MOVE text-001 TO lz_toolbar-text.
 APPEND lz_toolbar TO e_object->mt_toolbar.
 ENDIF. "IF NOT pa_prodr IS INITIAL
ENDMETHOD. "METHOD handle_toolbar
Handle User Command
METHOD handle_user_command.
 CASE e_ucomm.
 WHEN 'CHANGE_STATUS'.
 LOOP AT it_output
 INTO wa_output.
 IF wa_output-chk_box EQ kc_x.
 z_flag = 1.
 EXIT.
 ENDIF. "IF wa_output-chk_box EQ kc_x
 ENDLOOP. "LOOP AT it_output INTO wa_output
 IF z_flag EQ 1.
 PERFORM display_selected_data.
 ELSE.
 MESSAGE i001(zzrefn01)
 WITH text-023.
 ENDIF. "IF z_flag EQ 1
 ENDCASE. "CASE e_ucomm
ENDMETHOD. "METHOD handle_user_command
ENDCLASS. "zcl_event_handler IMPLEMENTATION
 Processing of selection screen **
 First time initialization *
 Get Default variant *
INITIALIZATION.
z_repid = sy-repid.
PERFORM variant_init.
zx_variant = z_variant.
CALL FUNCTION 'LVC_VARIANT_DEFAULT_GET'
 EXPORTING
 i_save = kc_u
 CHANGING
 cs_variant = zx_variant
 EXCEPTIONS
 wrong_input = 1
 not_found = 2
 program_error = 3
 OTHERS = 4.
IF sy-subrc EQ 0.
 pa_vari = zx_variant-variant.
ELSE.
 MESSAGE i001(zzrefn01)
 WITH text-021.
ENDIF. "IF sy-subrc EQ 0
*** First time initialization in online mode except calls with variant
*** (is not processed on return from prog to selection screen)
pa_xyz = ....
so_xyz.....
SET PF-STATUS 'STAT1000'.
*** An example for select options restrictions is available
*** in TT1/YYKA_EXPORT_START_HOST (remove comment)
 Selection screen PBO *
 Comment........ *
AT SELECTION-SCREEN OUTPUT.
*** Init selection screen, also on variants
*** (only for online reports)
IF NOT zn_init_seldynp IS INITIAL
AND sy-batch IS INITIAL "Not on batch calls (e.g. AutoSys)
AND sy-slset IS INITIAL. "Not on calls with variant
 IF NOT pa_prodr IS INITIAL.
 CLEAR: pa_prodr.
 MESSAGE w999(zbcc). "Flag prod.run reseted
 ENDIF.
 CLEAR: pa_start.
ENDIF.
CLEAR: zn_init_seldynp.
*** Process dynpro fields
LOOP AT SCREEN.
*** --> Read-Only fields
 IF screen-group1 EQ 'RDO'
 AND screen-input NE '0'
 AND screen-group3 NE 'VPU'.
 screen-input = '0'.
 MODIFY SCREEN.
 ENDIF.
ENDLOOP.
 Selection screen PAI *
 Comment........ *
*AT SELECTION-SCREEN ON so_xyz.
AT SELECTION-SCREEN.
PERFORM pai_of_selection_screen.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR pa_vari.
PERFORM f4_for_variant.
PERFORM btci_at_sel_screen. "Call BTCI checks (optional)
 Program **
 Main routine *
START-OF-SELECTION.
PERFORM fetch_data.
PERFORM build_data.
PERFORM prepare_field_catalog
 CHANGING it_fieldcat.
CALL SCREEN 100.
 End routine *
END-OF-SELECTION.
 Interactive Reporting **
 Comment........ *
AT LINE-SELECTION.
*** Good example in TT1/YIIHART (remove comment)
 Comment........ *
AT USER-COMMAND.
PERFORM handle_user_command.
 Comment........ *
AT PFN.
iNCLUDE YYEF_CHECK_ISP_F01
*& Include YYEF_CHECK_ISP_F01 *
*& Form pai_of_selection_screen
 Check Variant Exist or not
FORM pai_of_selection_screen .
IF NOT pa_vari IS INITIAL.
 MOVE z_variant TO zx_variant.
 MOVE pa_vari TO zx_variant-variant.
 CALL FUNCTION 'LVC_VARIANT_EXISTENCE_CHECK'
 EXPORTING
 i_save = kc_u
 CHANGING
 cs_variant = zx_variant
 EXCEPTIONS
 wrong_input = 1
 not_found = 2
 program_error = 3
 OTHERS = 4.
 IF sy-subrc EQ 2.
 MESSAGE i001(zzrefn01)
 WITH text-024.
 ENDIF. "IF sy-subrc EQ 2
 z_variant = zx_variant.
ELSE.
 PERFORM variant_init.
ENDIF. "IF NOT pa_vari IS INITIAL
ENDFORM. "pai_of_selection_screen
*& Form variant_init
 Initialization of Variant
FORM variant_init .
CLEAR z_variant.
z_variant-report = z_repid.
ENDFORM. " variant_init
*& Form f4_for_variant
 F4 Help for Layout
FORM f4_for_variant .
CALL FUNCTION 'LVC_VARIANT_F4'
 EXPORTING
 is_variant = z_variant
 i_save = kc_u
 IMPORTING
 e_exit = z_exit
 es_variant = zx_variant
 EXCEPTIONS
 not_found = 1
 program_error = 2
 OTHERS = 3.
IF sy-subrc EQ 1.
 MESSAGE i001(zzrefn01)
 WITH text-022.
ELSE.
 IF z_exit = space.
 pa_vari = zx_variant-variant.
 ENDIF. "IF z_exit = space
ENDIF. "IF sy-subrc EQ 1
ENDFORM. "f4_for_variant
*& Form fetch_data
 Fetch data from DB tables.
FORM fetch_data .
SELECT *
 FROM yyeft1200
 INTO TABLE it_yyeft1200
 WHERE id_rech IN so_idrec
 AND fnumkred IN so_fnumk
 AND status IN so_stat
 AND erdat IN so_erdat
 ORDER BY PRIMARY KEY.
IF sy-subrc EQ 0.
 SELECT *
 FROM yyeft1201
 INTO TABLE it_yyeft1201
 FOR ALL ENTRIES IN it_yyeft1200
 WHERE id_rech EQ it_yyeft1200-id_rech
 AND artnr_bp IN so_artnr
 ORDER BY PRIMARY KEY.
 IF sy-subrc EQ 0.
 SELECT *
 FROM yyeft1008
 INTO TABLE it_yyeft1008
 FOR ALL ENTRIES IN it_yyeft1201
 WHERE bp_refnr EQ it_yyeft1201-bprefnr.
 IF sy-subrc EQ 0.
 SORT it_yyeft1008[] BY bp_refnr.
 ENDIF. "IF sy-subrc EQ 0.
 ENDIF. "IF sy-subrc EQ 0.
ELSE.
 zn_cancel = kc_x.
ENDIF. "IF sy-subrc EQ 0.
ENDFORM. " fetch_data
*& Form build_data
 Gather the data from all the internal tables into one.
FORM build_data .
LOOP AT it_yyeft1200
 INTO wa_yyeft1200.
 CLEAR wa_output.
 wa_output-id_rech = wa_yyeft1200-id_rech.
 wa_output-fnumkred = wa_yyeft1200-fnumkred.
 wa_output-status = wa_yyeft1200-status.
 wa_output-erdat = wa_yyeft1200-erdat.
 wa_output-bukrs = wa_yyeft1200-bukrs.
 wa_output-belnr = wa_yyeft1200-belnr.
 wa_output-gjahr = wa_yyeft1200-gjahr.
 IF wa_yyeft1200-status GE kc_status10
 AND wa_yyeft1200-belnr IS INITIAL.
 wa_output-com_delfnd = 'FI Doc NOT found'(t03).
 ENDIF.
 IF wa_yyeft1200-status LT kc_status10
 AND NOT wa_yyeft1200-belnr IS INITIAL
 AND wa_output-com_delfnd IS INITIAL
 AND NOT pa_det IS INITIAL.
 wa_output-com_delfnd = 'FI Doc should be empty'(t01).
 ENDIF.
 LOOP AT it_yyeft1201
 INTO wa_yyeft1201
 WHERE id_rech EQ wa_yyeft1200-id_rech.
 wa_output-bprefnr = wa_yyeft1201-bprefnr.
 wa_output-lfdat = wa_yyeft1201-lfdat.
 wa_output-artnr_bp = wa_yyeft1201-artnr_bp.
 READ TABLE it_yyeft1008
 WITH KEY bp_refnr = wa_yyeft1201-bprefnr
 BINARY SEARCH
 TRANSPORTING NO FIELDS.
 IF sy-subrc EQ 0.
 LOOP AT it_yyeft1008
 INTO wa_yyeft1008
 FROM sy-tabix.
 IF wa_yyeft1008-bp_refnr NE wa_yyeft1201-bprefnr.
 EXIT.
 ENDIF.
 wa_output-id_anlief = wa_yyeft1008-id_anlief.
 IF NOT pa_det IS INITIAL
 OR NOT wa_output-com_delfnd IS INITIAL.
 APPEND wa_output TO it_output.
 ENDIF.
 ENDLOOP. "LOOP AT it_yyeft1008
 ELSE.
 CLEAR wa_output-id_anlief.
 wa_output-com_delfnd = 'Deliv. NOT found'(t06).
 APPEND wa_output TO it_output.
 ENDIF.
 ENDLOOP. "LOOP AT it_yyeft1201
 IF sy-subrc NE 0.
 wa_output-com_delfnd = 'No Detail records in YYEFT1201'(e01).
 APPEND wa_output TO it_output.
 ENDIF. "IF sy-subrc NE 0.
ENDLOOP. "LOOP AT it_yyeft1200
Checkbox Editable for Production Run
IF pa_prodr IS INITIAL.
 LOOP AT it_output
 INTO wa_output.
 zs_style-fieldname = 'CHK_BOX'.
 zs_style-style = cl_gui_alv_grid=>mc_style_disabled.
 INSERT zs_style INTO TABLE wa_output-celltab.
 MODIFY it_output FROM wa_output
 TRANSPORTING celltab.
 ENDLOOP. "LOOP AT it_output INTO wa_output.
ENDIF. "IF pa_prodr IS INITIAL
LOOP AT it_output
 INTO wa_output.
 IF wa_output-status GE kc_status10
 AND wa_output-belnr IS INITIAL
 AND NOT pa_prodr IS INITIAL.
 zs_style-fieldname = 'CHK_BOX'.
 zs_style-style = cl_gui_alv_grid=>mc_style_enabled.
 INSERT zs_style INTO TABLE wa_output-celltab.
 MODIFY it_output FROM wa_output
 TRANSPORTING celltab.
 ENDIF. "IF wa_output-status GE kc_status10
ENDLOOP. "LOOP AT it_output INTO wa_output
ENDFORM. "build_data
*& Form prepare_field_catalog
 Field Catalog Preparation
 <--PIT_FIELDCAT Field catalog
FORM prepare_field_catalog
 CHANGING pit_fieldcat TYPE lvc_t_fcat.
DATA: ls_fcat TYPE lvc_s_fcat.
IF it_output1 IS INITIAL.
Check Box
 CLEAR ls_fcat.
 ls_fcat-fieldname = 'CHK_BOX'.
 ls_fcat-datatype = 'CHAR'.
 ls_fcat-intlen = '1'.
 ls_fcat-edit = kc_x.
 ls_fcat-coltext = text-014.
 ls_fcat-checkbox = kc_x.
 ls_fcat-outputlen = '5'.
 APPEND ls_fcat TO pit_fieldcat.
ENDIF. "IF it_output1 IS INITIAL
ID RECH
CLEAR ls_fcat.
ls_fcat-fieldname = 'ID_RECH'.
ls_fcat-outputlen = '10'.
ls_fcat-coltext = text-002.
APPEND ls_fcat TO pit_fieldcat.
BP Reference
CLEAR ls_fcat.
ls_fcat-fieldname = 'BPREFNR'.
ls_fcat-outputlen = '15'.
ls_fcat-coltext = text-003.
APPEND ls_fcat TO pit_fieldcat.
Delivery date
CLEAR ls_fcat.
ls_fcat-fieldname = 'LFDAT'.
ls_fcat-outputlen = '10'.
ls_fcat-coltext = text-004.
APPEND ls_fcat TO pit_fieldcat.
Article
CLEAR ls_fcat.
ls_fcat-fieldname = 'ARTNR_BP'.
ls_fcat-outputlen = '18'.
ls_fcat-coltext = text-005.
APPEND ls_fcat TO pit_fieldcat.
Account Payable invoice
CLEAR ls_fcat.
ls_fcat-fieldname = 'FNUMKRED'.
ls_fcat-outputlen = '16'.
ls_fcat-coltext = text-006.
APPEND ls_fcat TO pit_fieldcat.
Status
CLEAR ls_fcat.
ls_fcat-fieldname = 'STATUS'.
ls_fcat-outputlen = '2'.
ls_fcat-coltext = text-007.
APPEND ls_fcat TO pit_fieldcat.
Create date
CLEAR ls_fcat.
ls_fcat-fieldname = 'ERDAT'.
ls_fcat-outputlen = '10'.
ls_fcat-coltext = text-008.
APPEND ls_fcat TO pit_fieldcat.
Comment
CLEAR ls_fcat.
ls_fcat-fieldname = 'COM_DELFND'.
ls_fcat-outputlen = '25'.
ls_fcat-coltext = text-009.
APPEND ls_fcat TO pit_fieldcat.
Delivery ID
CLEAR ls_fcat.
ls_fcat-fieldname = 'ID_ANLIEF'.
ls_fcat-outputlen = '10'.
ls_fcat-coltext = text-010.
APPEND ls_fcat TO pit_fieldcat.
Company Code
CLEAR ls_fcat.
ls_fcat-fieldname = 'BUKRS'.
ls_fcat-outputlen = '4'.
ls_fcat-coltext = text-011.
APPEND ls_fcat TO pit_fieldcat.
Accounting Document Number
CLEAR ls_fcat.
ls_fcat-fieldname = 'BELNR'.
ls_fcat-outputlen = '10'.
ls_fcat-coltext = text-012.
APPEND ls_fcat TO pit_fieldcat.
Financial Year
CLEAR ls_fcat.
ls_fcat-fieldname = 'GJAHR'.
ls_fcat-outputlen = '4'.
ls_fcat-coltext = text-013.
APPEND ls_fcat TO pit_fieldcat.
ENDFORM. " prepare_field_catalog
*& Form EVENT_TOP_OF_PAGE
 TOP-OF-PAGE Preparation
 -->z_dyndoc_id Text of TOP-OF-PAGE
FORM event_top_of_page
 USING z_dyndoc_id TYPE REF TO cl_dd_document.
DATA : lz_text(255) TYPE c.
System ID
CLEAR : lz_text.
CONCATENATE text-015
 sy-sysid
 INTO lz_text
 SEPARATED BY space.
PERFORM add_text
 USING lz_text.
CALL METHOD z_dyndoc_id->new_line.
Title
CLEAR : lz_text.
CONCATENATE text-016
 sy-title
 INTO lz_text
 SEPARATED BY space.
PERFORM add_text
 USING lz_text.
CALL METHOD z_dyndoc_id->new_line.
Date
CLEAR : lz_text.
WRITE sy-datum TO lz_text.
CONCATENATE text-017
 lz_text
 INTO lz_text
 SEPARATED BY space.
PERFORM add_text
 USING lz_text.
CALL METHOD z_dyndoc_id->new_line.
User ID
CLEAR : lz_text.
CONCATENATE text-018
 sy-uname
 INTO lz_text
 SEPARATED BY space.
PERFORM add_text
 USING lz_text.
CALL METHOD z_dyndoc_id->new_line.
Time
CLEAR : lz_text.
WRITE sy-uzeit TO lz_text.
CONCATENATE text-019
 lz_text
 INTO lz_text
 SEPARATED BY space.
PERFORM add_text
 USING lz_text.
CALL METHOD z_dyndoc_id->new_line.
Program Name
CLEAR : lz_text.
WRITE sy-repid TO lz_text.
CONCATENATE text-020
 lz_text
 INTO lz_text
 SEPARATED BY space.
PERFORM add_text
 USING lz_text.
CALL METHOD z_dyndoc_id->new_line.
Populating data to TOP-OF-PAGE
PERFORM top-of-page.
ENDFORM. " EVENT_TOP_OF_PAGE
*& Form ADD_TEXT
 Add Text To TOP-OF-PAGE
FORM add_text
 USING p_text TYPE sdydo_text_element.
CALL METHOD z_dyndoc_id->add_text
 EXPORTING
 text = p_text.
ENDFORM. " ADD_TEXT
*& Form TOP-OF-PAGE
 TOP-OF-PAGE
FORM top-of-page.
CALL METHOD z_dyndoc_id->display_document
 EXPORTING
 reuse_control = kc_x
 parent = z_parent_top
 EXCEPTIONS
 html_display_error = 1.
IF sy-subrc NE 0.
 MESSAGE i001(zzrefn01)
 WITH text-036 ' '.
ENDIF. "IF sy-subrc NE 0
ENDFORM. "TOP-OF-PAGE
*& Form handle_user_command
 Handle the user command
FORM handle_user_command .
DATA lzi_lin TYPE i.
REFRESH ra_id_rech[].
CLEAR ra_id_rech.
ra_id_rech-sign = kc_include.
ra_id_rech-option = kc_equal.
CASE sy-ucomm.
 WHEN kc_ucomm-upd.
 DESCRIBE LIST NUMBER OF LINES lzi_lin.
 DO lzi_lin TIMES.
 CLEAR wa_output.
 READ LINE sy-index
 FIELD VALUE wa_output-chk_box
 wa_output-id_rech.
 IF sy-subrc NE 0.
 EXIT.
 ELSE.
 IF wa_output-chk_box EQ kc_x.
 ra_id_rech-low = wa_output-id_rech.
 APPEND ra_id_rech.
 ENDIF.
 ENDIF.
 ENDDO.
 IF NOT ra_id_rech IS INITIAL.
 SORT ra_id_rech BY low.
 DELETE ADJACENT DUPLICATES FROM ra_id_rech
 COMPARING low.
 IF NOT pa_prodr IS INITIAL.
 UPDATE yyeft1200
 SET status = kc_status00
 WHERE id_rech IN ra_id_rech.
 IF sy-subrc EQ 0.
 MESSAGE s900(zbcc)
 WITH 'Status change successful'(m08)
 space
 space
 space.
 ELSE.
 MESSAGE i900(zbcc)
 WITH 'Status change failed'(m09)
 space
 space
 space.
 ENDIF. "IF sy-subrc EQ 0.
 ELSE.
 MESSAGE i900(zbcc)
 WITH 'TEST RUN: NO databases will be changed'(m03)
 space
 space
 space.
 ENDIF. "IF NOT pa_prodr IS INITIAL.
 ELSE.
 MESSAGE i900(zbcc)
 WITH 'Atleast one line should be selected'(m01)
 'in order to update.'(m02)
 space
 space.
 ENDIF. "IF NOT ra_id_rech IS INITIAL
 WHEN kc_ucomm-back
 OR kc_ucomm-exit
 OR kc_ucomm-cancel.
 LEAVE TO SCREEN 0.
 WHEN OTHERS.
ENDCASE. "CASE sy-ucomm
ENDFORM. " handle_user_command
*& Form display_selected_data
 Display Selected Data
FORM display_selected_data.
LOOP AT it_output
 INTO wa_output
 WHERE chk_box EQ kc_x.
 MOVE-CORRESPONDING wa_output TO wa_output1.
 APPEND wa_output1 TO it_output1.
ENDLOOP. "LOOP AT it_output
call dialog screen and display new alv control
IF NOT it_output1[] IS INITIAL.
 CALL SCREEN 101 STARTING AT 10 5.
ENDIF. "IF NOT it_output1[] IS INITIAL
ENDFORM. " change_status
iNCLUDE YYEF_CHECK_ISP_I01
*& Include YYEF_CHECK_ISP_I01 *
*& Module USER_COMMAND_0100 INPUT
 Handle user command for screen 0100
MODULE user_command_0100 INPUT.
CASE sy-ucomm.
 WHEN kc_ucomm-back.
 LEAVE TO SCREEN 0.
 WHEN kc_ucomm-exit.
 LEAVE TO SCREEN 0.
ENDCASE. "CASE sy-ucomm.
ENDMODULE. "USER_COMMAND_0100 INPUT
*& Module USER_COMMAND_0101 INPUT
 Handle User Command for screen 0101
MODULE user_command_0101 INPUT.
CASE sy-ucomm.
 WHEN kc_ucomm-back.
 LEAVE TO SCREEN 0.
ENDCASE. "CASE sy-ucomm
ENDMODULE. " USER_COMMAND_0101 INPUT
Include YYEF_CHECK_ISP_O01
*& Include YYEF_CHECK_ISP_O01 *
*& Module PBO OUTPUT
 OO ALV Display
MODULE pbo OUTPUT.
CREATE OBJECT z_container
 EXPORTING container_name = kc_container.
Create TOP-Document
CREATE OBJECT z_dyndoc_id
 EXPORTING style = kc_alv.
Create Splitter for custom_container
CREATE OBJECT z_splitter
 EXPORTING parent = z_container
 rows = 2
 columns = 1.
For TOP-OF-PAGE
CALL METHOD z_splitter->get_container
 EXPORTING
 row = 1
 column = 1
 RECEIVING
 container = z_parent_top.
For ALV Display
CALL METHOD z_splitter->get_container
 EXPORTING
 row = 2
 column = 1
 RECEIVING
 container = z_parent_grid.
Set height for g_parent_html
CALL METHOD z_splitter->set_row_height
 EXPORTING
 id = 1
 height = 20.
CREATE OBJECT z_grid
 EXPORTING i_parent = z_parent_grid.
Set Handler for TOP-OF-PAGE
CREATE OBJECT z_handler.
SET HANDLER z_handler->top_of_page FOR z_grid.
z_repid = sy-repid.
z_variant-report = z_repid.
Display ALV
zs_layout-stylefname = kc_style.
CALL METHOD z_grid->set_table_for_first_display
 EXPORTING
 is_layout = zs_layout
 i_save = kc_u
 is_variant = z_variant
 CHANGING
 it_outtab = it_output[]
 it_fieldcatalog = it_fieldcat.
Processing TOP-OF-PAGE Event
CALL METHOD z_grid->list_processing_events
 EXPORTING
 i_event_name = kc_top
 i_dyndoc_id = z_dyndoc_id.
Set handler for ALV Tool Bar
SET HANDLER z_handler->handle_toolbar FOR z_grid.
SET HANDLER z_handler->handle_user_command FOR z_grid.
CALL METHOD z_grid->set_toolbar_interactive.
ENDMODULE. " PBO OUTPUT
*& Module STATUS_0100 OUTPUT
 Set the GUI status
MODULE status_0100 OUTPUT.
SET PF-STATUS kc_status.
ENDMODULE. " STATUS_0100 OUTPUT
*& Module STATUS_0101 OUTPUT
 Display selected records on screen 0101
MODULE status_0101 OUTPUT.
SET TITLEBAR kc_title.
CREATE OBJECT z_container1
 EXPORTING container_name = kc_container1.
CREATE OBJECT z_grid1
 EXPORTING i_parent = z_container1.
PERFORM prepare_field_catalog
 CHANGING it_fieldcat1.
Display ALV
CALL METHOD z_grid1->set_table_for_first_display
 EXPORTING
 is_layout = zs_layout
 CHANGING
 it_outtab = it_output1[]
 it_fieldcatalog = it_fieldcat1.
ENDMODULE. " STATUS_0101 OUTPUT
INCLUDE YYEF_CHECK_ISP_TOP
*& Include YYEF_CHECK_ISP_TOP *
 DATA DEFINITIONS **
 Class declarations *
*class zcl_xyz definition deferred.
CLASS :cl_gui_alv_grid DEFINITION LOAD,
 cl_gui_custom_container DEFINITION LOAD.
 Tables (old SAP style, please avoid and use workareas instead) *
TABLES: yyeft1200,
 yyeft1201.
*tables: xyz.
 Controls *
*controls: ctrl_xyz.
 Types *
TYPES: BEGIN OF ty_output,
 chk_box(1) TYPE c,
 celltab TYPE lvc_t_styl,
 id_rech TYPE yyeft1200-id_rech,
 bprefnr TYPE yyeft1201-bprefnr,
 lfdat TYPE yyeft1201-lfdat,
 artnr_bp TYPE yyeft1201-artnr_bp,
 fnumkred TYPE yyeft1200-fnumkred,
 status TYPE yyeft1200-status,
 erdat TYPE yyeft1200-erdat,
 com_delfnd TYPE char25,
 id_anlief TYPE yyeft1008-id_anlief,
 bukrs TYPE yyeft1200-bukrs,
 belnr TYPE yyeft1200-belnr,
 gjahr TYPE yyeft1200-gjahr,
 END OF ty_output.
TYPES: BEGIN OF ty_output1,
 celltab TYPE lvc_t_styl,
 id_rech TYPE yyeft1200-id_rech,
 bprefnr TYPE yyeft1201-bprefnr,
 lfdat TYPE yyeft1201-lfdat,
 artnr_bp TYPE yyeft1201-artnr_bp,
 fnumkred TYPE yyeft1200-fnumkred,
 status TYPE yyeft1200-status,
 erdat TYPE yyeft1200-erdat,
 com_delfnd TYPE char25,
 id_anlief TYPE yyeft1008-id_anlief,
 bukrs TYPE yyeft1200-bukrs,
 belnr TYPE yyeft1200-belnr,
 gjahr TYPE yyeft1200-gjahr,
 END OF ty_output1.
TYPES: BEGIN OF ty_status,
 id_rech TYPE yyeft1200-id_rech,
 END OF ty_status.
*TYPES-POOLS: xyz.
*TYPES: ty_xyz.
 Internal tables *
*DATA: it_xyz.
DATA: it_yyeft1200 TYPE STANDARD TABLE OF yyeft1200,
 it_yyeft1201 TYPE SORTED TABLE OF yyeft1201
 WITH UNIQUE KEY id_rech posnr,
 it_yyeft1008 TYPE STANDARD TABLE OF yyeft1008,
 it_output TYPE STANDARD TABLE OF ty_output,
 it_output1 TYPE STANDARD TABLE OF ty_output1,
 it_fieldcat TYPE lvc_t_fcat,
 it_fieldcat1 TYPE lvc_t_fcat.
 Workareas *
*DATA: wa_xyz.
DATA: wa_yyeft1200 TYPE yyeft1200,
 wa_yyeft1201 TYPE yyeft1201,
 wa_yyeft1008 TYPE yyeft1008,
 wa_output TYPE ty_output,
 wa_output1 TYPE ty_output1.
*****OO ALV DATA DECLARATION
DATA: zs_style TYPE lvc_s_styl,
 zs_layout TYPE lvc_s_layo,
 z_container TYPE REF TO cl_gui_custom_container,
 z_container1 TYPE REF TO cl_gui_custom_container,
 z_grid TYPE REF TO cl_gui_alv_grid,
 z_grid1 TYPE REF TO cl_gui_alv_grid,
 z_dyndoc_id TYPE REF TO cl_dd_document,
 z_splitter TYPE REF TO cl_gui_splitter_container,
 z_parent_grid TYPE REF TO cl_gui_container,
 z_parent_top TYPE REF TO cl_gui_container.
 Constants *
*constants: kc_xyz value ... "character
*constants: kn_xyz value ... "numeric
*constants: ki_xyz value ... "integer
*constants: kp_xyz value ... "packed
*constants: kx_xyz value ... "hex
CONSTANTS: kc_status00 TYPE yyeft1200-status VALUE '00',
 kc_status10 TYPE yyeft1200-status VALUE '10',
 kc_x TYPE char01 VALUE 'X',
 kc_include TYPE char01 VALUE 'I',
 kc_equal(2) TYPE c VALUE 'EQ',
 kc_status(11) TYPE c VALUE 'ZGUI_STATUS',
 kc_container TYPE char10 VALUE 'ZCONTAINER',
 kc_container1 TYPE char11 VALUE 'ZCONTAINER1',
 kc_u TYPE char01 VALUE 'U',
 kc_top TYPE char30 VALUE 'TOP_OF_PAGE',
 kc_alv TYPE char50 VALUE 'ALV_GRID',
 kc_style TYPE char07 VALUE 'CELLTAB',
 kc_title TYPE char07 VALUE 'ZTITLE'.
CONSTANTS: BEGIN OF kc_ucomm,
 upd TYPE sy-ucomm VALUE 'UPD',
 back TYPE sy-ucomm VALUE 'BACK',
 exit TYPE sy-ucomm VALUE 'EXIT',
 cancel TYPE sy-ucomm VALUE 'CANCEL',
 END OF kc_ucomm.
 Sentence counters *
*data: cnt_xyz type i value 0.
 Calculation variables (Rechenfelder) *
*data: r_xyz.
 Switches *
*data: sw_xyz(1) type n value 0.
 Misc variables *
*DATA: z_xyz.
*** Initialization of parameters at call of/return to
*** selection dynpro (for Online-only-reports)
DATA: zn_init_seldynp(1) TYPE n
 VALUE 1.

Sto scenario plz help urgent

Under company code 7245 I m doing stock transfer from 7245 plant to 7246 plant
supplying plant 7245 recieving plant 7246 ccode 7245
n sales area in supplying plant is 7245-7a-7a
now in this sales area ive created a customer 7246 to represent recieving plant
on the oher side in 7246 ive created vendor 7245
now in
SPROMMPO-SET UP STOSHIPPING DATA
for plant 7246 ive given cust num plant:7246 sales area 72457a7a
and
for plant 7245 ive kept cust num plant blank
and sales area 72457a7a
n shipping point det in 7246 cust mast shipping cond is 7a
loading group in material is 7245 for plant 7245
and for material in 7246 the lopading group is 7246
the shipping pt det is as follows
7a-724572457245(shipping cond-loading group-plant-shipping point)
now when i m creating po in me21n
i m getting warning message
ship point 7245 not allowed for ship cond 7a loading group 7245 plant 7245
its only a warning
but it is picking up 7245 as shipping point
now vl10g is also fine
i m getting the delivery doc number
n vl02n and migo is fine
now
my doubt is
wat r the settings so that i can do both ways
see with the above setting i m able to send stock frm 7245 plant to 7246
but i m not able to configure stock transfer from 7246 to 7245
mainly i wan settings @ SPROMMPO-SET UP STOSHIPPING DATA
i ve created customer 7245 in 7246-7a-7a
and vendor 7245 in purch org 7246
cant be both settings be standard
so that stock can be sent any ways
because both plants belong to same ccode and stock can be ransfered both ways,is this scenario possible??/
or sto is only one way ??
plz clarify
i ve already spent a lot of time on this plz help me out.
anil
Edited by: anil singh on Mar 12, 2008 5:37 PM

Hi,
Create the customer in the delivering Sales Area/Plant/CC and assign this customer to the recieving plant in the MM> purchasing> STO> Setup STO> Shipping data for plants.
Assign the delivering plant's salea area also here. So you need to create a customer in 7245 and assigne it in 7246.
Create the vendor in the purchase organisation of the receiving plant and assgin the delivering plant in the vendor master. Maintain the document types correctly and define whether you require one step or two step procedure.
hope this will help.
Prase

Oh man i dont know whats wrong.... plz help urgent...

i dont know whats wrong with my n900.... a couple of weeks before i tried to install nitroid gingerbread on my n900.... i did exactly what it said it was almost complete but the last step didnt complete so i left it like that..... i was using my mobile fine until one day i restarted my phone... when it started it showed me 2 options (dont remember what the options were) although the 2nd one was power kernel something like that.... i chose 1st option after that it turned off when i startit again only nokia logo comes and it turns off by himself.... i thinki bricked my fone... but y didnt it happen when i was trying to install nitroid... plz help any way to fix it....
P.S. I cant flash it either.. it doesnt go to usb mode anymore neither does it charge....
Solved!
Go to Solution.

you could try to do the commands in flasher, connect the device while it is off and holding the U button down and see if the flasher will see it.

Ora - 00600 error plz help urgent

hello all sir plz. help would should i do.
by mistake i made changes in spfile file.... after that i got this error
any solution ?
plz. help sir
SQL> create pfile from spfile;
create pfile from spfile
ERROR at line 1:
ORA-00600: internal error code, arguments: [733], [538970164], [pga heap], [],
help sir
waiting for reply

first of all
thanx for my reply
sir i have bkp through rman but when i am connect to rman it give me error
2. i have no pfile<sid>.ora file
3. i try to start my database through pfile text file i got error..
plz. reply sir what should i do.....
how can i connect rman....
C:\>set oracle_sid=db01
C:\>rman target sys/oracle@db01
Recovery Manager: Release 10.1.0.2.0 - Production
Copyright (c) 1995, 2004, Oracle. All rights reserved.
RMAN-00571: ===========================================================
RMAN-00569: =============== ERROR MESSAGE STACK FOLLOWS ===============
RMAN-00571: ===========================================================
RMAN-00554: initialization of internal recovery manager package failed
RMAN-04005: error from target database:
ORA-12514: TNS:listener does not currently know of service requested in connect
descriptor
C:\>
again thanx.
i have full database bkp through rman.

Related to Pl/SQL Coding plz help me its Urgent.

A recordset depends on date range -
1 week : approx 1000 records
1 month : approx 5000 records
1 year : approx 50000 records.
Need to perform calculations on each of the row in the recordset.
For each row recurrsive function is called to reach at the end product. (i.e for each of the 50000 rows)
This function keeps on inserting rows in a temporary table against the data generated in the recurrsive function call.
Hence Takes lots of time and the temp_table goes in increasing, creating performance issue.
The session at user end becomes inactive....but at server side it remains active and the insertion of records is going on.
Logic is working fine. But for limited date range (i.e a day or two)
For a month processing or a year processing it fails....
What would be the optimized soln on the above prob.?

It's a bit difficult to give advice without knowing precisely what it is you're doing. What is the point of the recursive function? Why are you inserting into a temporary table? Does the recursive function do something with the records in the temporary table? If so then presumably your problem stems from the fact that a week only has to do 1000 * 1000 actions whereas a year has to undertake 50000 * 50000 actions.
Have you traced these sessions to see what is going on?
Cheers, APC

MM to FI plz Help Urgent

Hi,
I want to see Purchase order wise report. The report should show PO wise payment in FI.
PO field is EBLEN and i am unable to find its link to BSIK or BSAK. The reason is that they are not maintaining EBELN in both these table. I tried on LIFNR but LIFNR is for Vendor only and the requirement is for EBELN means in PO.
Please anyone help me out in this regard and also plz tell me any detail tables hierarchy of all modules.
Thanks in advance too all the people and gurus.
Usman Malik

Hi,
Check the table BSEG for PO.
Regards,
Sridevi
* Pls. assign points, if useful

Guys Plz help urgent Phone memory is 0

i recievd a song from bluetooth and it has been saved but it reduced phone memory i tried to fing that song inthe phone memory but not found in phone memory plz tell me the locations so i can transfer to mass memory or bluetooth and can u plz tell me how to change the path of recieving anything means i received from bluetooth i want that it should be go to directly to massmemory folder .
OR
any one can tell me how to transfer the song from phone memory to mass memory
Solved!
Go to Solution.

1) For your phone memory to be 0 you must have apps and everything stored there on C: and not utilising the mass storage E:.
I agree with matt_t that is how it is done when using bluetooth so havent a clue whats going on there.
2) Have you tried plugging your phone into your PC via USB and exploring your N97 throught my computer if using windows and double clicking the N97 icon.
Looking for the C: Phone folder and finding the song and dragging and dropping into E:mass memory music folder????
OR drag from your C: to your PC and dragging back to E:mass memory Music Foler if the above doesnt work.
BUT 1 song is usually on around 3MB so you still have issues with 0 memory.
3) If all your apps are stored on C: why dont you uninstall them and install onto your E:mass memory.
4) Internet i havent a clue about but with your memory so so low thats the least of your problems at the moment.
Thats all i have to help with i hope you find your song and your memory increases.
Message Edited by matto73 on 17-Oct-2009 05:45 PM
Nokia N97 Unbranded RM-505 [0585162]
Firmware 21.0.045
It's NOT about the Kudos they just make my day, hit the Star if I Helped.

Acessing windows through Solaris10 via ftp...Plz help urgent!!!!!!!!!!!

Hello Forum,
I am a newbee to Solaris 10. I have set up a ftp server on Windows.Now I have Solaris installed through VMware On the same Windows on which I have ftp server. I added
192.168.1.5 win2k
in my /etc/hosts file on Solaris 10.
Now when I do
# ftp win2k It says Network unreachable.
Please give me Step by Step details on how I can acess my windows through Solaris. I am really on deadline in here.
Please help me.
Step by step method of setting ftp so that I can acess windows .
Cheers
Somil

Don't rely on /etc/hosts for remote adresses; I strongly recommend setting up a DNS-server/service.
Programs linked with libresolve ignores /etc/nsswitch.conf /etc/hosts and resolves directly as configured in /etc/resolve.conf.
I suggest checking out:
# PATH=/usr/sbin:$PATH;export PATH
# ping -s -n 192.168.1.5
# ping -s -n win2k
# traceroute -I 192.168.1.5
# telnet 192.168.1.5 21
# ftp 192.168.1.5
# dig win2k
# dig -x 192.168.1.5
# ifconfig -a
# netstat -nrv
# route get 192.168.1.5
# snoop -r 192.168.1.5
# man ping ftp telnet dig ifconfig netstat route snoop nsswitch.conf resolve.conf ...

Complete forms execution path plz help URGENT

Hi all,
How can i know the entire path of my current form being executed.
I want a complete path of my form eg:
c:\abc\form.fmx or d:\abc\form.fmx and so on.
whether the form is being executed from hard disk,floppy or cd.
I am using forms 5.0
Can anyone give me an idea plz.
navneet jain
[email protected]

use:
Get_application_property(current_form) for this
Good luck,
J

ALV codeing...plz help urgent

Similar Messages

Maybe you are looking for