Capture, the AED is taking 100% value instead of 50% Import capital purchas

Hi,
Im doing Import po process for capital purchase, when I'm doing migo with excise invoice capture, the AED is taking 100% value instead of 50% , for the remaing its taking 50% only i.e BED, Ecess, Se cess.
So, can anyone tell me, how to rectify the issue???
Please guide me any config.
Thanks
Shital

manufacturer is entitled for 100 % AED set off in the same year for capital goods

Similar Messages

How to capture the entries based on filter values in oo alv..

Hi all,
I have a scenario in my oo alv report, when the user select the any column on report and selects the filter option. In that the user can enters required values. Based on filter values the output will be displayed. Now how can i capture currently displaying entries on report.
Thanks,
Ashok

Hi Jozef,
Is that GET_FILTERED_ENTRIES( ) reads the indexes or values from the entries..?
Thanks,
Ashok

IDOC capturing the old data from Vendor master instead of modified data

Hello Friends,
Could you please guide me on the below issue ?
Vendor master was changed with the address being modified at 1300 system time. => change log shows as 1300
Payment run and IDOC generation ( RFFOEDI1 ) was executed at 1400 system time. => IDOC created time as 1400
but , Still the IDOC captured the old vendor master address data onto the IDOC .
this is very strange to me and no idea how this can happen.
thanks
Raghu V
Edited by: Raghunandan Vasudevarao on Jan 27, 2011 11:29 AM

Moderator message: I am sorry but I had to remove the "correct answer" as it was not correct.
It is well possible to remove the purchasing view via archiving, since archiving of vendor masters is divided into 3 activities: archiving purchasing view, archiving company code views, archiving general data.
Of course there are preconditions: you cannot archive purchasing data view if you had already created orders. In that case you have to archive the orders first.
See the network graphic, in SARA enter object FI_ACCPAYB, then click the icon for network.
In that particular case you would even create inconsistencies if you delete a table entry.
And before you delete table entries you should in general know about the relationship of tables.
Just thinking that a vendor master is LFA1, LFB1 and LFM1 is much to short. Goto DB15, enter FI_ACCPAYB (this is the archiving object) in the lower part and see how much tables are returned. These are all tables that can have data if you maintain a vendor master.
Now check all those tables if they have a relation to LFM1 and if they contain data
what will happen if you delete the vendor despite of existing orders? you probably get a dump when you access the purchase order.

AED taking 100% in capital purchase

HI,
Im doing Import po process for capital purchase, when i'm doing migo with excise invoce capture, the AED is taking 100% value instead of 50% , for the remaing its taking 50% only i.e BED, Ecess, Se cess.
So, can anyone tell me, how to rectify the issue???

Hi Kunal,
FI guys wont tell anything.
If any business expert will tell you that 100% of ADC in case of capital items need to be taken credit in the current year itself.
regards
prasad

Why does my white balance temperature slider have 1-100 values?

Why does my white balance temperature slider have 1-100 values instead of a sliding Kelvin value?

Thanks Rob. I used two Mark III bodies on a job. One had just been sent back from being repaired by Canon and apparently they reset everything. I didn't even check the file type because I only ever shoot RAW.

Data Object Fields on MI Client 7.1: Null value instead of empty value

Hi,
We are migrating an application from Mobile 7.0 to 7.1 and we don´t know if our Data Objects are missing some configuration, but when a field is sent to MI Client with empty (blank) value, we get this field in the application with a null value instead of an empty value.
This same application works fine in Mobile 7.0 and when a field with empty value is sent to MI Client, a empty value is get by the application.
Has anyone any idea?
Thanks.

Hi,
SAP has solved the issue. They told us to add the following parameter in defaults.properties:
com.sap.tc.mobile.bc.string.trim=false
Thanks.

ADC Caluculating 100% for Import Capital Good in j1iex part2

Dear Gurus
Hello everyone
Now am facing a problem at the posting of Excise Invoice of Import Capital good where BED,ECESS,SCESS are picking 50% and the AED is picking 100% of the value in Part II entries.
but this is correct as per Standard SAP note 930756,my client requirement is to pick only 50% for AED also at the time of part II entires
Please help me

HI,
Its not possible in Std.SAP since it is legally allowed take 100% credit on ADC on capital goods in the current year itself.
Also it will reflect in J2I8 report or post to ONHOLD account since the code corrections in the SAP note - 930756 is already implemented in your system.
Thanks & Regards,

How to Capture the user command value instead of ucomm and pfkey from syst

Hi,
How to capture the value of enter key in the enhancements.
Iam getting the sy-ucomm value as space. Please let me know the better solution ASAP.
regards
Nagendra

Hello,
If is a module pool program, take a look to the variable defined to receive the user-command (you can see this in the screen painter).
Regards.

How to capture the value selected in the drop down box

Hi all,
I am populating values in drop down box by using FM vrm_set_values in module pool.
like below
01 ABC
02 ACB
03 BCA
04 CAB
in module pool drop down box element name is RQGM-VALUE.
Problem is what ever the value is select in the drop down box from above element RQGM-VALUE is not filling any value.
i need to capture the value selected in the drop down box and pass it to another variable.

Hi,
Refer this standard code. Your issue will be resolve.
REPORT demo_dynpro_dropdown_listbox.
TYPE-POOLS vrm.
DATA: name TYPE vrm_id,
      list TYPE vrm_values,
      value LIKE LINE OF list.
DATA: wa_spfli TYPE spfli,
      ok_code TYPE sy-ucomm,
      save_ok TYPE sy-ucomm.
TABLES demof4help.
name = 'DEMOF4HELP-CONNID'.
CALL SCREEN 100.
MODULE cancel INPUT.
LEAVE PROGRAM.
ENDMODULE.
MODULE init_listbox OUTPUT.
CLEAR demof4help-connid.
SELECT connid cityfrom cityto deptime
    FROM spfli
    INTO CORRESPONDING FIELDS OF wa_spfli
   WHERE carrid = demof4help-carrier2.
    value-key = wa_spfli-connid.
    WRITE wa_spfli-deptime TO value-text USING EDIT MASK '__:__:__'.
    CONCATENATE value-text
                wa_spfli-cityfrom
                wa_spfli-cityto
                INTO value-text SEPARATED BY space.
    APPEND value TO list.
ENDSELECT.
CALL FUNCTION 'VRM_SET_VALUES'
       EXPORTING
            id     = name
            values = list.
ENDMODULE.
MODULE user_command_100.
save_ok = ok_code.
CLEAR ok_code.
IF save_ok = 'CARRIER' AND NOT demof4help-carrier2 IS INITIAL.
    LEAVE TO SCREEN 200.
ELSE.
    SET SCREEN 100.
ENDIF.
ENDMODULE.
MODULE user_command_200.
save_ok = ok_code.
CLEAR ok_code.
IF save_ok = 'SELECTED'.
    MESSAGE i888(sabapdocu) WITH text-001 demof4help-carrier2
                                        demof4help-connid.
ENDIF.
ENDMODULE.

How to capture the record value, when an error occurs

Hi , can you please help us in achieving the below requirement.
i have source with 10 accounts , i have to update the 5 target tables for the 10 accounts, i am using a for loop to do insert/update operations.
when an primary key/unique constraint error occurs while doing the insert/update operations, i want to catpure that account number along with the
error message and store in a table.
right now i am using sqlerrm,sqlcode in my exception block to capture the oracle error code and error message,i need to capture the account number along with this message. please tell me how to achieve this ...
thanks

if you want to log the error in the table and keep going with the rest of them you might want to check out bulk collection exception handling.
http://psoug.org/reference/array_processing.html
CREATE OR REPLACE PROCEDURE forall_errors IS
TYPE myarray IS TABLE OF tmp_target%ROWTYPE;
l_data myarray;
CURSOR c IS
SELECT table_name, num_rows
FROM all_tables;
errors PLS_INTEGER;
dml_errors EXCEPTION;
PRAGMA EXCEPTION_INIT(dml_errors, -24381);
BEGIN
OPEN c;
LOOP
    FETCH c BULK COLLECT INTO l_data LIMIT 100;
    -- SAVE EXCEPTIONS means don't stop if some DELETES fail
    FORALL i IN 1..l_data.COUNT SAVE EXCEPTIONS
    INSERT INTO tmp_target VALUES l_data(i);
    -- If any errors occurred during the FORALL SAVE EXCEPTIONS,
    -- a single exception is raised when the statement completes.
    EXIT WHEN c%NOTFOUND;
END LOOP;
EXCEPTION
WHEN dml_errors THEN
    errors := SQL%BULK_EXCEPTIONS.COUNT;
    dbms_output.put_line('Number of DELETE statements that
    failed: ' || errors);
    FOR i IN 1 .. errors
    LOOP
      dbms_output.put_line('Error #' || i || ' at '|| 'iteration
      #' || SQL%BULK_EXCEPTIONS(i).ERROR_INDEX);
      dbms_output.put_line('Error message is ' ||
      SQLERRM(-SQL%BULK_EXCEPTIONS(i).ERROR_CODE));
    END LOOP;
WHEN OTHERS THEN
    RAISE;
END forall_errors;
/

Multiple line selection and then capturing the selected values

Dear all
in my alv program ,i need to capture multiple line selections using checkboxes.
I have appended check boxes by adding it in the internal table & filling in field catalog.
but problem is i'm not able to capture multiple selected check boxes dynamically,
i could capture only the last selected check box,
option i found was to use class method get-selected-rows,but i'm unable to use it properly, could anyone explain in detail
i have already gone through the various examples in sdn but i am not able to work out.
like using parameters etc....
CAN ANY ONE HELP ME WITH THE CODE
help reqired immediately,
Thanks in advance.

Hi Ankur,
In the PAI, just after the selection of your user event, button or menu,
add this code before getting the selected records.
<b>CALL METHOD grid1->check_changed_data
             IMPORTING
               e_valid = ws_x.</b>
where    grid1 TYPE REF TO cl_gui_alv_grid,
Now fetch the selected records.
Check this code for reference
            C O M P A N Y   C O N F I D E N T I A L                **
       Care should be taken to prevent its unauthorized use.       **
REPORT zfipost MESSAGE-ID f4 NO STANDARD PAGE HEADING .
AUTHOR   : Susmitha Susan Thomas
DATE     : August 18, 2005
*Abridged Version : This report generates a list in Abap List Viewer of
                  all the selected records in VBKPF/VBSEG. * *
                  (TRANSACTION ZPPD:Modified from transaction FBV0)
-- Class definition--
CLASS lcl_event_receiver DEFINITION DEFERRED.
--Tables--
TABLES: vbkpf. " Belegkopf
TABLES: tsp1d, pri_params, spopli.
TYPE-POOLS slis.
---- Global Variables -
DATA:    anzkr(6)     TYPE n,
         lsind        LIKE sy-lsind,
         no_output(1) TYPE c,
         records(1) TYPE c,
         xpick(1)     TYPE c,
         xpickc(1)    TYPE c,
         xbinp(1)     TYPE c,
         rc           LIKE syst-subrc,
         ok_code LIKE sy-ucomm,
         index TYPE i,
         char_x(1)    TYPE c VALUE 'X',
         post         TYPE c,
         ans          TYPE n,
         user(40) TYPE c.
DATA :BEGIN OF i_doctype OCCURS 0,
         blart LIKE vbkpf-blart,
      END OF i_doctype.
--AlV Initialization--
DATA: gs_layout TYPE lvc_s_layo,
       gt_fieldcat TYPE lvc_t_fcat,
       gs_fieldcat TYPE lvc_s_fcat,
       gs_index_rows TYPE lvc_t_row,
       l_layout TYPE disvariant,
       g_repid LIKE sy-repid,
       g_max TYPE i VALUE 100,
       ws_row_idx TYPE lvc_t_row ,
       ws_row_no TYPE lvc_t_roid,
       i_excl_func TYPE ui_functions,
       ls_prnt TYPE lvc_s_prnt,
       refresh TYPE c,
       i_fieldcat TYPE lvc_t_fcat,
      post(1) TYPE c,
       accr_def(1) TYPE c,
       rev_cd(3) TYPE c,
       ch(1) TYPE c.
DATA: list_index LIKE sy-lsind,
      flag TYPE n VALUE 0,
      fl TYPE n VALUE 0,
      g_container TYPE scrfname VALUE 'GRID_CONTAINER',
      grid_container TYPE REF TO cl_gui_docking_container,
      grid1 TYPE REF TO cl_gui_alv_grid,
      custom_container1 TYPE REF TO cl_gui_custom_container,
      event_receiver TYPE REF TO lcl_event_receiver,
      gt_vbkpf1 TYPE STANDARD TABLE OF vbkpf WITH HEADER LINE,
      i_vbkpf TYPE TABLE OF vbkpf WITH HEADER LINE,
      i_ws_row_idx LIKE ws_row_idx WITH HEADER LINE.
---Internal table containing details of selected documents--
DATA : BEGIN OF gt_vbkpf OCCURS 0,
         xpick(1) TYPE c,
         belnr LIKE vbkpf-belnr,
         gjahr LIKE vbkpf-gjahr,
         bukrs LIKE vbkpf-bukrs,
         blart LIKE vbkpf-blart,
         budat LIKE vbkpf-budat,
         bldat LIKE vbkpf-bldat,
         bktxt LIKE vbkpf-bktxt,
         waers LIKE vbkpf-waers,
         usnam LIKE vbkpf-usnam,
         xblnr LIKE vbkpf-xblnr,
         rev_code(3) TYPE c,
         rev_rsn(15) TYPE c,
         rev_date(10) TYPE c,
         linecolor(4) TYPE c,
       END OF gt_vbkpf.
--Table to store long text--
DATA : BEGIN OF inline OCCURS 0,
tdformat TYPE tdformat,
tdline TYPE tdline,
END OF inline.
DATA: thead LIKE thead OCCURS 0 WITH HEADER LINE.
-- Records to be posted--
DATA:   BEGIN OF tbkpf OCCURS 5.
        INCLUDE STRUCTURE vbkpf.
DATA:   END   OF tbkpf.
---- Constants -
CONSTANTS: awtyp_bkpf TYPE awtyp VALUE 'BKPF '.
CONSTANTS: awtyp_space TYPE awtyp VALUE '     '.
Selection Screen
PARAMETER: funcl   LIKE t020-funcl NO-DISPLAY.   "P(ost),D(isplay),U(pd)
SELECTION-SCREEN SKIP 2.
SELECT-OPTIONS:
         p_bukrs     FOR vbkpf-bukrs,
         p_belnr     FOR vbkpf-belnr,
         p_gjahr     FOR vbkpf-gjahr,
         p_budat     FOR vbkpf-budat,
         p_bldat     FOR vbkpf-bldat,
         p_blart     FOR vbkpf-blart,
         p_xblnr     FOR vbkpf-xblnr,
         p_bktxt     FOR vbkpf-bktxt,
         p_usnam     FOR vbkpf-usnam.
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN BEGIN OF BLOCK blk
            WITH FRAME TITLE text-010 NO INTERVALS.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(35) text-002.
PARAMETER norm_doc    TYPE c
          RADIOBUTTON GROUP doc DEFAULT 'X' .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(35) text-001.
PARAMETER ad_doc       TYPE c
           RADIOBUTTON GROUP doc .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(35) text-003.
PARAMETER all_doc       TYPE c
            RADIOBUTTON GROUP doc .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK blk.
      CLASS lcl_event_receiver DEFINITION
      For capturing events on the ALV                               *
CLASS lcl_event_receiver DEFINITION.
PUBLIC SECTION.
    METHODS:
to capture all recently changed data.
      handle_data_changed      FOR EVENT data_changed OF
                                       cl_gui_alv_grid
                                       IMPORTING er_data_changed,
for hot spot
      handle_hotspot           FOR EVENT hotspot_click OF
                                       cl_gui_alv_grid
                                       IMPORTING e_column_id e_row_id.
ENDCLASS.   " lcl_event_receiver (Definition)
      CLASS lcl_event_receiver (Implementation)
      For capturing events on the ALV                               *
CLASS lcl_event_receiver IMPLEMENTATION.
METHOD handle_data_changed.
    PERFORM f2200_handle_data_changed USING er_data_changed.
ENDMETHOD.
METHOD handle_hotspot.
    PERFORM f2201_handle_hotspot USING e_column_id e_row_id .
ENDMETHOD.
ENDCLASS. " lcl_event_receiver (Implementation)
AT SELECTION-SCREEN
AT SELECTION-SCREEN.
START-OF-SELECTION
START-OF-SELECTION.
---- Colors -
FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
-------------------- Status und Title Bar----------------------------*
SET PF-STATUS funcl.
SET TITLEBAR funcl.
-- Read Records--
SELECT * FROM vbkpf INTO TABLE gt_vbkpf1
      WHERE bukrs IN p_bukrs
        AND ausbk IN p_bukrs
        AND belnr IN p_belnr
        AND gjahr IN p_gjahr
        AND budat IN p_budat
        AND bldat IN p_bldat
        AND blart IN p_blart
        AND bktxt IN p_bktxt
        AND xblnr IN p_xblnr
        AND usnam IN p_usnam
        AND bstat EQ 'V'
      AND ( awtyp IN (awtyp_bkpf, awtyp_space) OR
            awtyp IS null )
      ORDER BY PRIMARY KEY.
----Call the ALV Screen -
PERFORM alv_display.
END-OF-SELECTION.
                     FORM BELEG_PICKUP                              *
      Indicate changing of the selected external record             *
FORM beleg_pickup.
SET PARAMETER ID 'BUK' FIELD vbkpf-bukrs.
SET PARAMETER ID 'GJR' FIELD vbkpf-gjahr.
SET PARAMETER ID 'BLP' FIELD vbkpf-belnr.
CASE funcl.
     WHEN 'P'.
      IF anzkr IS INITIAL.
        CALL FUNCTION 'ZPRELIMINARY_POSTING_POST_D'
             EXPORTING
                  bukrs = vbkpf-bukrs
                  belnr = vbkpf-belnr
                  gjahr = vbkpf-gjahr.
      ELSE.
        IF sy-ucomm EQ 'BUCH'.
          CALL FUNCTION 'ZPRELIMINARY_POSTING_POST_ALL'
               EXPORTING
                    synch   = char_x
                    bupbi   = xbinp
               TABLES
                    t_vbkpf = tbkpf.
        ELSE.
          CALL FUNCTION 'ZPRELIMINARY_POSTING_POST_ALL'
               EXPORTING
                    bupbi   = xbinp
               TABLES
                    t_vbkpf = tbkpf.
         wait up to 3 seconds.
         commit work.
        ENDIF.
      ENDIF.
    WHEN OTHERS.
      IF sy-tcode = 'ZPPD'.
        funcl = 'P'.
      ENDIF.
      CALL FUNCTION 'ZPRELIMINARY_POSTING_DISPLAY'
           EXPORTING
                bukrs = vbkpf-bukrs
                belnr = vbkpf-belnr
                gjahr = vbkpf-gjahr.
ENDCASE.
ENDFORM.
                    FORM TBKPF_FUELLEN                              *
            Include records for posting in TBKPF                   *
FORM tbkpf_fuellen.
records = 'X'.
LOOP AT gt_vbkpf.
    IF gt_vbkpf-xpick = 'X'.
      CLEAR anzkr.
      CLEAR records.
      IF sy-subrc = 0.
        anzkr = anzkr + 1.
        MOVE-CORRESPONDING gt_vbkpf TO tbkpf.
        APPEND tbkpf.
      ELSE.
        EXIT.
      ENDIF.
    ENDIF.
ENDLOOP.
ENDFORM.
                          FORM MALL                                 *
                     Select All documents                           *
FORM mall.
LOOP AT gt_vbkpf.
    gt_vbkpf-xpick = 'X'.
    MODIFY gt_vbkpf.
ENDLOOP.
refresh = 'X'.
CALL METHOD grid1->refresh_table_display.
ENDFORM.
                         FORM EMAL                                  *
                   Unselect all documents                           *
FORM emal.
LOOP AT gt_vbkpf.
    gt_vbkpf-xpick = ' '.
    MODIFY gt_vbkpf.
ENDLOOP.
refresh = 'X'.
CALL METHOD grid1->refresh_table_display.
ENDFORM.
                     Form alv_display                               *
              To display the details on an ALV.                      *
FORM alv_display.
CALL SCREEN 100.
ENDFORM.                    " alv_display
*&      Module PB0_100 OUTPUT
MODULE pb0_100 OUTPUT.
SET PF-STATUS 'MAIN100'.
SET TITLEBAR 'POSTDOC'.
--To verify that posting is complete.--
---- Setting the layout -
IF grid1 IS INITIAL.
    PERFORM fill_table.
-- Initializing the field catalog--
    PERFORM fieldcat_init CHANGING i_fieldcat.
-- Initializing the ALV GRID and CONTAINER--
    CLEAR gs_layout.
    gs_layout-info_fname = 'linecolor'.
    gs_layout-grid_title = 'Parked Documents'(100).
    gs_layout-zebra               = 'X'.
    gs_layout-cwidth_opt   = 'X'.
    gs_layout-sel_mode = 'A'.
    gs_layout-edit                = 'X'.
    l_layout-report = sy-repid.
------ Create a custom container control for ALV Control----
    IF cl_gui_alv_grid=>offline( ) IS INITIAL.
      CREATE OBJECT grid_container
         EXPORTING
           dynnr                     = '100'
           ratio                     = '100'
        EXCEPTIONS
         cntl_error                  = 1
         cntl_system_error           = 2
         create_error                = 3
         lifetime_error              = 4
         lifetime_dynpro_dynpro_link = 5
         others                      = 6.
      IF sy-subrc NE 0.
     MESSAGE i000 WITH text-007. " Error in object creation
        LEAVE LIST-PROCESSING.
      ENDIF.
-- Create an instance of alv control--
      CREATE OBJECT grid1
             EXPORTING
                i_lifetime = 1
                i_parent = grid_container.
---- Disable all unwanted button in the ALV grid -
      PERFORM disable_functions TABLES i_excl_func.
---- Call the display function of ALV grid -
      CALL METHOD grid1->set_table_for_first_display
           EXPORTING
                     is_variant       = l_layout
                     i_save           = 'A'
                     is_layout        = gs_layout
                     is_print         = ls_prnt
                     it_toolbar_excluding          = i_excl_func
           CHANGING it_outtab        = gt_vbkpf[]
                     it_fieldcatalog = i_fieldcat.
    ENDIF.                  " IF cl_gui_alv_grid=>offline IS INITIAL
    CALL METHOD grid1->register_edit_event
        EXPORTING
         i_event_id = cl_gui_alv_grid=>mc_evt_enter.
    CALL METHOD grid1->register_edit_event
      EXPORTING
        i_event_id = cl_gui_alv_grid=>mc_evt_modified.
---- Create a reciever object to handle events -
    CREATE OBJECT event_receiver.
    SET HANDLER event_receiver->handle_data_changed FOR grid1.
    SET HANDLER event_receiver->handle_hotspot FOR grid1.
    CALL METHOD cl_gui_control=>set_focus EXPORTING control = grid1.
ENDIF.                   " IF grid1 IS INITIAL.
ENDMODULE.                 " PB0_100 OUTPUT
*&      Form fill_table
     Fills the data table to be passed to the ALV grid.
FORM fill_table.
LOOP AT gt_vbkpf1.
    MOVE-CORRESPONDING gt_vbkpf1 TO gt_vbkpf.
    IF ad_doc = 'X' OR all_doc = 'X'.
      thead-tdobject = 'BELEG'.
      CONCATENATE gt_vbkpf1-bukrs
                  gt_vbkpf1-belnr
                  gt_vbkpf1-gjahr INTO thead-tdname.
      thead-tdspras = sy-langu.
      thead-tdid = '0004'.
      PERFORM read_text.
      READ TABLE inline INDEX 1.
      gt_vbkpf-rev_code = inline-tdline.
      REFRESH inline.
      CLEAR inline.
      thead-tdid = '0005'.
      PERFORM read_text.
      READ TABLE inline INDEX 1.
      gt_vbkpf-rev_rsn = inline-tdline.
      REFRESH inline.
      CLEAR inline.
      thead-tdid = '0006'.
      PERFORM read_text.
      READ TABLE inline INDEX 1.
      gt_vbkpf-rev_date = inline-tdline.
      REFRESH inline.
      CLEAR inline.
      REFRESH inline.
      CLEAR inline.
    ENDIF.
    APPEND gt_vbkpf.
    CLEAR gt_vbkpf.
ENDLOOP.
ENDLOOP.
ENDFORM.
*&      Form fieldcat_init
     Initialize the field catalog
FORM fieldcat_init CHANGING i_fieldcat TYPE lvc_t_fcat.
DATA: i_fldcat TYPE lvc_t_fcat WITH HEADER LINE.
CHECKBOX
CLEAR i_fldcat.
i_fldcat-fieldname = 'XPICK'.
i_fldcat-checkbox = 'X'.
i_fldcat-key       = 'X'.
i_fldcat-tabname   = 'GT_VBKPF'.
i_fldcat-outputlen   = '4'.
i_fldcat-scrtext_l = 'ChkB'.
   APPEND i_fldcat TO i_fieldcat.
CLEAR i_fldcat.
i_fldcat-fieldname = 'BELNR'.
i_fldcat-tabname   = 'GT_VBKPF'.
i_fldcat-key       = 'X'.
i_fldcat-hotspot   = 'X'.
i_fldcat-outputlen   = '15'.
i_fldcat-scrtext_l = 'Document Number'.
APPEND i_fldcat TO i_fieldcat.
CLEAR i_fldcat.
i_fldcat-fieldname = 'GJAHR'.
i_fldcat-tabname   = 'GT_VBKPF'.
i_fldcat-key       = 'X'.
i_fldcat-scrtext_l = 'FYear'.
i_fldcat-outputlen   = '5'.
APPEND i_fldcat TO i_fieldcat.
CLEAR i_fldcat.
i_fldcat-fieldname = 'BUKRS'.
i_fldcat-tabname   = 'GT_VBKPF'.
i_fldcat-key       = 'X'.
i_fldcat-scrtext_l = 'CCode'.
i_fldcat-outputlen   = '5'.
APPEND i_fldcat TO i_fieldcat.
CLEAR i_fldcat.
i_fldcat-fieldname = 'BLART'.
i_fldcat-tabname   = 'GT_VBKPF'.
i_fldcat-key       = 'X'.
i_fldcat-scrtext_l = 'Type'.
i_fldcat-outputlen   = '6'.
APPEND i_fldcat TO i_fieldcat.
CLEAR i_fldcat.
i_fldcat-fieldname = 'BLDAT'.
i_fldcat-tabname = 'GT_VBKPF'.
i_fldcat-key      = 'X'.
i_fldcat-scrtext_l = 'Doc Date'.
i_fldcat-outputlen   = '12'.
APPEND i_fldcat TO i_fieldcat.
CLEAR i_fldcat.
i_fldcat-fieldname = 'BUDAT'.
i_fldcat-tabname = 'GT_VBKPF'.
i_fldcat-key      = 'X'.
i_fldcat-scrtext_l = 'Park Date'.
i_fldcat-outputlen   = '12'.
APPEND i_fldcat TO i_fieldcat.
CLEAR i_fldcat.
i_fldcat-fieldname = 'BKTXT'.
i_fldcat-tabname = 'GT_VBKPF'.
i_fldcat-key      = 'X'.
i_fldcat-scrtext_l = 'Document Header Text'.
i_fldcat-outputlen   = '25'.
APPEND i_fldcat TO i_fieldcat.
CLEAR i_fldcat.
i_fldcat-fieldname = 'WAERS'.
i_fldcat-tabname = 'GT_VBKPF'.
i_fldcat-key      = 'X'.
i_fldcat-scrtext_l = 'Curr'.
i_fldcat-outputlen   = '7'.
APPEND i_fldcat TO i_fieldcat.
CLEAR i_fldcat.
i_fldcat-fieldname = 'USNAM'.
i_fldcat-tabname   = 'GT_VBKPF'.
i_fldcat-key       = 'X'.
i_fldcat-scrtext_l = 'Parked By'.
i_fldcat-outputlen   = '13'.
APPEND i_fldcat TO i_fieldcat.
CLEAR i_fldcat.
i_fldcat-fieldname = 'XBLNR'.
i_fldcat-tabname   = 'GT_VBKPF'.
i_fldcat-key       = 'X'.
i_fldcat-scrtext_l = 'Reference Text'.
i_fldcat-outputlen   = '19'.
APPEND i_fldcat TO i_fieldcat.
IF ad_doc = 'X' OR all_doc = 'X'.
    CLEAR i_fldcat.
    i_fldcat-fieldname = 'REV_CODE'.
    i_fldcat-tabname   = 'GT_VBKPF'.
   i_fldcat-key       = 'X'.
    i_fldcat-scrtext_l = 'RC'.
    i_fldcat-outputlen   = '2'.
    APPEND i_fldcat TO i_fieldcat.
    CLEAR i_fldcat.
    i_fldcat-fieldname = 'REV_RSN'.
    i_fldcat-tabname   = 'GT_VBKPF'.
   i_fldcat-key       = 'X'.
    i_fldcat-scrtext_l = 'Rev Reason'.
    i_fldcat-outputlen   = '15'.
    APPEND i_fldcat TO i_fieldcat.
    CLEAR i_fldcat.
    i_fldcat-fieldname = 'REV_DATE'.
    i_fldcat-tabname   = 'GT_VBKPF'.
   i_fldcat-key       = 'X'.
    i_fldcat-scrtext_l = 'Rev Date'.
    i_fldcat-outputlen   = '10'.
    APPEND i_fldcat TO i_fieldcat.
ENDIF.
ENDFORM.                    " fieldcat_init
*&      Module PAI_100 INPUT
MODULE pai_100 INPUT.
CASE ok_code.
    WHEN 'BACK'.
      IF sy-dynnr = '1000'.
        PERFORM exit_program.
      ELSEIF sy-dynnr = '0100'.
        LEAVE TO TRANSACTION 'ZPPD'.
      ENDIF.
    WHEN 'EXIT'.
      IF sy-dynnr = '1000'.
        PERFORM exit_program.
      ELSEIF sy-dynnr = '0100'.
        LEAVE TO TRANSACTION 'ZPPD'.
      ENDIF.
    WHEN '%EX'.
      IF sy-dynnr = '1000'.
        PERFORM exit_program.
      ELSEIF sy-dynnr = '0100'.
        LEAVE TO TRANSACTION 'ZPPD'.
      ENDIF.
    WHEN 'BINP'.
      DATA : ws_x TYPE c VALUE 'X'.
      CALL FUNCTION 'POPUP_TO_CONFIRM'
          EXPORTING
               titlebar      = 'Posting Documents Via Batch Input'
               text_question =
           'Are you sure you want to post all the selected documents?'
               text_button_1 = 'Yes'
               text_button_2 = 'No'
               start_column = 25
               start_row     = 6
          IMPORTING
               answer        = ans.
      IF ans = '1'.
        CALL METHOD grid1->check_changed_data
             IMPORTING
               e_valid = ws_x.
        xbinp = 'X'.
        PERFORM tbkpf_fuellen.
        IF records = 'X'.
          MESSAGE s999(zv) WITH text-007.
        ELSE.
          PERFORM beleg_pickup.
        ENDIF.
      ENDIF.
    WHEN 'MALL'.
      PERFORM mall.
    WHEN 'EMAL'.
      PERFORM emal.
    WHEN 'RW'.
      IF sy-dynnr = '1000'.
        PERFORM exit_program.
      ELSEIF sy-dynnr = '0100'.
        LEAVE TO TRANSACTION 'ZPPD'.
      ENDIF.
    WHEN 'BUCH'.
      CALL FUNCTION 'POPUP_TO_CONFIRM'
           EXPORTING
                titlebar      = 'Posting Document'
                text_question =
            'Are you sure you want to post all documents selected?'
                text_button_1 = 'Yes'
                text_button_2 = 'No'
                start_column = 25
                start_row     = 6
           IMPORTING
                answer        = ans.
      IF ans = '1'.
        CALL METHOD grid1->check_changed_data
          IMPORTING
            e_valid = ws_x.
            perform tbkpf_fuellen.
        IF records = 'X'.
          MESSAGE s999(zv) WITH text-007.
        ELSE.
          PERFORM beleg_pickup.
        ENDIF.
      ENDIF.
    WHEN 'PICK'.
      DATA : check TYPE n,
             no_rec TYPE c.
      check = 0.
      no_rec = 'X'.
      CALL METHOD grid1->check_changed_data
        IMPORTING
          e_valid = ws_x.
      index = 0.
      LOOP AT gt_vbkpf.
        funcl = 'D'.
        index = index + 1.
        IF gt_vbkpf-xpick = 'X'.
          check = 1.
          CLEAR no_rec.
          READ TABLE gt_vbkpf1 INDEX index INTO vbkpf.
          PERFORM beleg_pickup.
        ENDIF.
      ENDLOOP.
      IF check = 0.
        CALL METHOD grid1->get_selected_rows
          IMPORTING
            et_index_rows = ws_row_idx.
        IF NOT ws_row_idx IS INITIAL.
          CLEAR no_rec.
        ENDIF.
        LOOP AT ws_row_idx INTO i_ws_row_idx.
          READ TABLE gt_vbkpf1 INDEX i_ws_row_idx-index INTO vbkpf.
          PERFORM beleg_pickup.
        ENDLOOP.
        IF no_rec = 'X'.
          MESSAGE s999(zv) WITH text-007.
        ENDIF.
      ENDIF.
    WHEN '&RNT_PREV'.
      CALL METHOD grid1->set_function_code
      CHANGING c_ucomm = ok_code.
    WHEN '&RNT'.
      CALL METHOD grid1->set_function_code
      CHANGING c_ucomm = ok_code.
    WHEN '%SC'.
      CALL METHOD grid1->set_function_code
      CHANGING c_ucomm = ok_code.
    WHEN '&OL0'.
      CALL METHOD grid1->set_function_code
     CHANGING c_ucomm = ok_code.
    WHEN '&OAD'.
      CALL METHOD grid1->set_function_code
      CHANGING c_ucomm = ok_code.
    WHEN '&AVE'.
      CALL METHOD grid1->set_function_code
     CHANGING c_ucomm = ok_code.
    WHEN '&AQW'.
      CALL METHOD grid1->set_function_code
     CHANGING c_ucomm = ok_code.
    WHEN '&XXL'.
      CALL METHOD grid1->set_function_code
     CHANGING c_ucomm = ok_code.
    WHEN '%PC'.
      CALL METHOD grid1->set_function_code
     CHANGING c_ucomm = ok_code.
    WHEN '&CRTEMPL'.
      CALL METHOD grid1->set_function_code
     CHANGING c_ucomm = ok_code.
    WHEN OTHERS.
     do nothing.
ENDCASE.
CLEAR ok_code.
ENDMODULE.                 " PAI_100 INPUT
*&      Form exit_program
     Exits from the program after freeing the grid and container     *
FORM exit_program.
IF NOT grid_container IS INITIAL.
    CALL METHOD grid_container->free.
ENDIF.
IF NOT grid1 IS INITIAL.
    CALL METHOD grid1->free
       EXCEPTIONS
         cntl_error        = 1
         cntl_system_error = 2
         OTHERS            = 3.
ENDIF.
LEAVE PROGRAM.
ENDFORM.                    " exit_program
*&      Form f2200_handle_data_changed
      To handle event of change in data in ALV.
     -->P_ER_DATA_CHANGED text
FORM f2200_handle_data_changed USING    ir_data_changed
                                         TYPE REF TO
                                         cl_alv_changed_data_protocol.
DATA : ls_mod_cell TYPE lvc_s_modi ,
         lv_value TYPE lvc_value,
         lflg_check TYPE i.
DATA : wa_vbkpf LIKE LINE OF gt_vbkpf.
SORT ir_data_changed->mt_mod_cells BY row_id .
LOOP AT ir_data_changed->mt_mod_cells
                     INTO ls_mod_cell
                     WHERE fieldname = 'I_PICK'.
    IF NOT ls_mod_cell-value IS INITIAL .
      CALL METHOD ir_data_changed->modify_cell
        EXPORTING
          i_row_id    = ls_mod_cell-row_id
          i_fieldname = ls_mod_cell-fieldname
          i_value     = ls_mod_cell-value.
      READ TABLE gt_vbkpf INTO wa_vbkpf
                 INDEX ls_mod_cell-row_id.
      IF ls_mod_cell-fieldname = 'I_PICK'.
        wa_vbkpf-xpick = ls_mod_cell-value.
      ENDIF.
      MODIFY gt_vbkpf FROM wa_vbkpf
                          INDEX ls_mod_cell-row_id.
    ENDIF .
ENDLOOP .
ENDFORM.                    " f2200_handle_data_changed
*&      Form f2201_handle_hotspot
            To handle event of clicking on hyperlink
     -->P_E_COLUMN_ID text
FORM f2201_handle_hotspot USING    p_e_column_id p_e_row_id.
READ TABLE gt_vbkpf1 INDEX p_e_row_id INTO vbkpf.
funcl = 'D'.
PERFORM beleg_pickup.
PERFORM exit_program.
ENDFORM.                    " f2201_handle_hotspot
Regards,
Susmitha
Dont forget to reward points for useful answers

Unable to capture the parameter values from a PL/SQL procedure

hi.
i'm trying to capture the parameter values of a PL/SQL procedure by calling inside a anonymous block but i'm getting a "reference to uninitialized collection error" ORA-06531.
Please help me regarding.
i'm using following block for calling the procedure.
declare
err_cd varchar2(1000);
err_txt VARCHAR2(5000);
no_of_recs number;
out_sign_tab search_sign_tab_type:=search_sign_tab_type(search_sign_type(NULL,NULL,NULL,NULL,NULL));
cntr_var number:=0;
begin
     rt843pq('DWS','3000552485',out_sign_tab,no_of_recs,err_cd,err_txt);
     dbms_output.put_line('The error is ' ||err_cd);
     dbms_output.put_line('The error is ' ||err_txt);
     dbms_output.put_line('The cntr is ' ||cntr_var);
     for incr in 1 .. OUT_SIGN_TAB.count
     loop
     cntr_var := cntr_var + 1 ;
Dbms_output.put_line(OUT_SIGN_TAB(incr).ref_no||','||OUT_SIGN_TAB(incr).ciref_no||','||OUT_SIGN_TAB(incr).ac_no||','||OUT_SIGN_TAB(incr).txn_type||','||OUT_SIGN_TAB(incr).objid);
end loop;
end;
Error is thrown on "for incr in 1 .. OUT_SIGN_TAB.count" this line
Following is some related information.
the 3rd parameter of the procedure is a out parameter. it is a type of a PL/SQL table (SEARCH_SIGN_TAB_TYPE) which is available in database as follows.
TYPE "SEARCH_SIGN_TAB_TYPE" IS TABLE OF SEARCH_SIGN_TYPE
TYPE "SEARCH_SIGN_TYPE" AS OBJECT
(ref_no VARCHAR2(22),
ciref_no VARCHAR2(352),
ac_no VARCHAR2(22),
txn_type VARCHAR2(301),
objid VARCHAR2(1024))............

We don't have your rt843pq procedure, but when commenting that line out, everything works:
SQL> create TYPE "SEARCH_SIGN_TYPE" AS OBJECT
2 (ref_no VARCHAR2(22),
3 ciref_no VARCHAR2(352),
4 ac_no VARCHAR2(22),
5 txn_type VARCHAR2(301),
6 objid VARCHAR2(1024))
7 /
Type is aangemaakt.
SQL> create type "SEARCH_SIGN_TAB_TYPE" IS TABLE OF SEARCH_SIGN_TYPE
2 /
Type is aangemaakt.
SQL> declare
2    err_cd varchar2(1000);
3    err_txt VARCHAR2(5000);
4    no_of_recs number;
5    out_sign_tab search_sign_tab_type:=search_sign_tab_type(search_sign_type(NULL,NULL,NULL,NULL,NULL));
6    cntr_var number:=0;
7 begin
8    -- rt843pq('DWS','3000552485',out_sign_tab,no_of_recs,err_cd,err_txt);
9    dbms_output.put_line('The error is ' ||err_cd);
10    dbms_output.put_line('The error is ' ||err_txt);
11    dbms_output.put_line('The cntr is ' ||cntr_var);
12    for incr in 1 .. OUT_SIGN_TAB.count
13    loop
14      cntr_var := cntr_var + 1 ;
15      Dbms_output.put_line(OUT_SIGN_TAB(incr).ref_no||','||OUT_SIGN_TAB(incr).ciref_no||','||OUT_SIGN_TAB(incr).ac_no||','||OUT_SIGN
TAB(incr).txntype||','||OUT_SIGN_TAB(incr).objid);
16    end loop;
17 end;
18 /
The error is
The error is
The cntr is 0
PL/SQL-procedure is geslaagd.Regards,
Rob.

Unable to capture the value of vbrk-vbeln value from VF02

Hi All,
am printing form from VF02 ,,,once i execute the VF02 , and select Billing Document -> Issue Output to option .., my printi program gets triggered ,......,
but in my print program am unable to capture the value of VBRK-VBELN which i have entered in the VF02 tcode..
any other table the value of VBELN is stored???
pls help me out with the alternatives...
thanks
john

Hi Dhiraj
One doubt how the value is populating in the NAST in the Print Program . While debugging i'm getting the Values from NAST but i want to know from where NAST is loading with these data.
Thanks
Bintu

Capturing the Value in the Variable

Dear Friends,
There is a requirement to capture the value of the document date while the report is getting executed. i.e., for each and every record in my report has different dates, my variable should get populated with the document date for every record.......How can i achieve the same.
Thanks
Prem

Hi Prem,
You need to crate a user exit varable in your query and write a abap code to capture value and fill it.
Thanks,
Ravi

How to capture the selected values from module pool dialog list box !

Hi experts,
Can anyone help me out in capturing the values from the list box.
i am able to set the values in the list box.But i am not able to capture the selected value from the list box. Always the list box name is getting as "space"
I also tried in using the FM "VRM_GET_VALUES" but it is retireving all the values. Is there is any flag for filttering out the selected value.
Your inputs are appreciated.
Thanks,
Vijay.

Along with the PBO and PAI event, add a POV event in the flow logic of the screen
DEMO_DROPDOWN_LIST_BOX -is a good demo example.
PROCESS ON VALUE-REQUEST.
FIELD structure_name-field_name MODULE create_dropdown_box.
In the report :
MODULE create_dropdown_box INPUT.
SELECT carrid carrname
                FROM scarr
                INTO CORRESPONDING FIELDS OF TABLE itab_carrid.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
       EXPORTING
            retfield        = 'CARRID'
            value_org       = 'S'
       TABLES
            value_tab       = itab_carrid
       EXCEPTIONS
            parameter_error = 1
            no_values_found = 2
            OTHERS          = 3.
IF sy-subrc <> 0.
ENDIF.
ENDMODULE.
In the layout, assign a Function Code , for eg : 'SELECTED' to the listbox and lets say name of the field is SDYN_CONN-CARRID. So in the PAI module,
MODULE user_command_0100 INPUT.
CASE ok_code.
    WHEN 'SELECTED'.
      MESSAGE i888(sabapdocu) WITH sdyn_conn-carrid.
ENDCASE.
ENDMODULE.
sdyb_conn-carrid will contain your selected field

Capture, the AED is taking 100% value instead of 50% Import capital purchas

Similar Messages

Maybe you are looking for