Very urgent purchase register

HI Gurus
Their is any reports available like purchase register? In vendor register we have the following fields
1. Purchase material
2. ED
3. Service Tax
4. Vat
in one report or which report this fields will available.
To reconcil the vendors account we are facing this problem.
Anybody can help me in this issue,
Sure will assign points
Thanks
jaya

Dear ,
SAP standard purchase reg is not available
u have to develop it through ABAP
(i am sure vendor reg ur using it is also a ABAP dev check it out )
regards,
snb
Edited by: SNB on Feb 21, 2008 7:54 AM

Similar Messages

  • Very very urgent ( RG1 register )

    Dear All,
    My client was updating the rg1 register through the standard process, but the entries that were updated were wrong .
    Now I want to revamp the register and delete all the entries in the J_1irg1 register and also the J_21bal register. and start the process frsh for this financial year.
    My question is is it possible to do the same and if yes can you give me the detailed procedure.
    you will be rewared with maximum points for your valuable answers.
    deepak

    hii,
    go in SE16,put table-J_2IRG1BAL
    execute then select entries and delete all
    then for fresh entry,again go in SE16,then go in same table---click on table entry
    then put carry forward balance and initial balance---save it.
    then extract register by j2i5---then go in j2i6 for print
    hope it will help you
    DD

  • Very urgent purchase requisition workflow

    Hi,
      I have been asked to develop a pr workflow,here i have to capture the tracking number along with the pr no and based on the trancking number it should go to the respective department person to release it.How can I do it.
    Regards,
    Latha prabhu.

    Hi Latha,
    You could do you agent assignment using Rules (Called Role Resolution in 4.6C and below). You can create a Rule using Txn PFAC. Create a rule of category F (Agent Determination: Function to be executed). You will have to develop a function module which must adhere to a predefined interface. You can either extend the PR object to have Tracking Number as an attribute and pass it on to the FM or pass the PR to the FM and determine the tracking number in the FM. You can then determine the User or Org Object responsible. Please read the documentation and see some of the standard rules available in the system.
    Cheers,
    Ramki Maley.

  • Very urgent vendor (Purchase register) - FI Module

    HI Gurus
    In SAP FI module their is any reports available like purchase register?  In vendor register we have the following fields
    1. Purchase material
    2. ED
    3. Service Tax
    4. Vat
    in one report or which report this fields will available.
    To reconcil the vendors account we are facing this problem.
    Anybody can help me in this issue,
    Sure will assign points
    Thanks
    jaya

    hi,
    pls check this Tcode j1iln
    Ranjit

  • Open items for purchase order its very urgent

    hi
    my requirement is to write extract program for purchase order(me21) to extract only open items.
    please provide sample code its very urgent.
    thanks in advance.
    points will be rewarded.
    thanks
    hari prasad reddy

    check the below report :
    REPORT ZMM_OPEN_PO_REPORT no standard page heading
                              line-size 255
                              message-id zwave.
    ======================================================================
    Program Name : ZMM_OPEN_PO_REPORT                                    *
    Description  : This report displays all Open PO Items and output     *
                   would be PO Number,Material number and so on          *
    Author       : Seshu                                                 *
    Date         : 01/24/2007                                            *
    MODIFICATION HISTORY                                                 *
    DATE    | AUTHOR   | CHANGE #   | DESCRIPTION OF MODIFICATION        *
    --|||--
    01/24/07| Seshu    | DEVK921979 | Initial                            *
    D A T A  D E C L A R A T I O N   P A R T                         ***
    type-pools
    type-pools : slis.
    Tables
    tables : ekko, " Purchase order Header
             ekpo, " Purchase order Item
             marc. " Material with Plant data
    Internal table for output.
    data : begin of i_output occurs 0,
           ebeln like ekko-ebeln,
           matnr like ekpo-matnr,
           end of i_output.
    ALV Data declaration.
    data : v_repid like sy-repid.
      ALV Function Module Variables
    DATA: gs_layout type slis_layout_alv,
          g_exit_caused_by_caller,
          gs_exit_caused_by_user type slis_exit_by_user.
    DATA: gt_fieldcat    type slis_t_fieldcat_alv,
          gs_print       type slis_print_alv,
          gt_events      type slis_t_event,
          gt_list_top_of_page type slis_t_listheader,
          g_status_set   type slis_formname value 'PF_STATUS_SET',
          g_user_command type slis_formname value 'USER_COMMAND',
          g_top_of_page  type slis_formname value 'TOP_OF_PAGE',
          g_top_of_list  type slis_formname value 'TOP_OF_LIST',
          g_end_of_list  type slis_formname value 'END_OF_LIST',
          g_variant LIKE disvariant,
          g_save(1) TYPE c,
          g_tabname_header TYPE slis_tabname,
          g_tabname_item   TYPE slis_tabname,
          g_exit(1) TYPE c,
          gx_variant LIKE disvariant.
    data : gr_layout_bck type slis_layout_alv.
    Ranges
    ranges r_eindt for eket-eindt.
    initialization.
    v_repid = sy-repid.
    start-of-selection.
    Get the data from EKKO ,EKPO and MARC Table
    perform get_data_tables.
    end-of-selection.
    display the data in the form of ALV
    perform display_data.
    *&      Form  get_data_tables
          Get the data from EKKO,EKPO and MARC Table
    FORM get_data_tables.
    clear : i_output.
    refresh : i_output.
    fill the dates in ranges
    r_eindt-low = sy-datum - 7.
    r_eindt-high = sy-datum + 14.
    r_eindt-option = 'BT'.
    r_eindt-sign = 'I'.
    append r_eindt.
    Get the data from EKKO,EKPO and EKET Tables
    select aebeln bmatnr into table i_output
                           from ekko as a inner join
                                ekpo as b on aebeln = bebeln
                                inner join marc as c on cmatnr = bmatnr
                                inner join mara as d on dmatnr = bmatnr
                                inner join eket as e on eebeln = aebeln
                                               and   eebelp = bebelp
                                where c~beskz = 'E'
                                and   c~werks = '1000'
                                and   d~mtart = 'FERT'
                                and   b~loekz = space
                                and   b~elikz = space
                                and   e~eindt in r_eindt.
    if sy-subrc ne 0.
    message e000(zwave) with 'No open purchase order found'.
    endif.
    ENDFORM.                    " get_data_tables
    *&      Form  display_data
          text
    FORM display_data.
    Fill the Fiedlcat
      PERFORM fieldcat_init  using gt_fieldcat[].
      CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
       EXPORTING
       I_INTERFACE_CHECK                 = ' '
       I_BYPASSING_BUFFER                =
       I_BUFFER_ACTIVE                   = ' '
         I_CALLBACK_PROGRAM                = v_repid
       I_CALLBACK_PF_STATUS_SET          = ' '
        I_CALLBACK_USER_COMMAND           = g_user_command
       I_CALLBACK_TOP_OF_PAGE            = ' '
       I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
       I_CALLBACK_HTML_END_OF_LIST       = ' '
       I_STRUCTURE_NAME                  =
       I_BACKGROUND_ID                   = ' '
       I_GRID_TITLE                      =
       I_GRID_SETTINGS                   =
       IS_LAYOUT                         = gr_layout_bck
          IT_FIELDCAT                       = gt_fieldcat[]
       IT_EXCLUDING                      =
       IT_SPECIAL_GROUPS                 =
       IT_SORT                           =
       IT_FILTER                         =
       IS_SEL_HIDE                       =
       I_DEFAULT                         = 'X'
        I_SAVE                            = g_save
        IS_VARIANT                        =
       IT_EVENTS                         =
       IT_EVENT_EXIT                     =
       IS_PRINT                          =
       IS_REPREP_ID                      =
       I_SCREEN_START_COLUMN             = 0
       I_SCREEN_START_LINE               = 0
       I_SCREEN_END_COLUMN               = 0
       I_SCREEN_END_LINE                 = 0
       IT_ALV_GRAPHICS                   =
       IT_ADD_FIELDCAT                   =
       IT_HYPERLINK                      =
       I_HTML_HEIGHT_TOP                 =
       I_HTML_HEIGHT_END                 =
       IT_EXCEPT_QINFO                   =
    IMPORTING
       E_EXIT_CAUSED_BY_CALLER           =
       ES_EXIT_CAUSED_BY_USER            =
        TABLES
          T_OUTTAB                          = i_output
       EXCEPTIONS
         PROGRAM_ERROR                     = 1
         OTHERS                            = 2
      IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
    ENDFORM.                    " display_data
    *&      Form  fieldcat_init
          text
         -->P_GT_FIELDCAT[]  text
    FORM fieldcat_init USING  e01_lt_fieldcat type slis_t_fieldcat_alv.
      DATA: LS_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
    Purchase order number
      CLEAR LS_FIELDCAT.
      LS_FIELDCAT-FIELDNAME    = 'EBELN'.
      LS_FIELDCAT-ref_fieldname = 'EBELN'.
      LS_FIELDCAT-ref_tabname = 'EKKO'.
      LS_FIELDCAT-TABNAME    = 'I_OUTPUT'.
      ls_fieldcat-seltext_L = 'Purchase Order'.
      ls_fieldcat-seltext_M = 'Purchase Order'.
      ls_fieldcat-seltext_S = 'Purchase Order'.
      APPEND LS_FIELDCAT TO E01_LT_FIELDCAT.
    Material #
      CLEAR LS_FIELDCAT.
      LS_FIELDCAT-FIELDNAME    = 'MATNR'.
      LS_FIELDCAT-ref_fieldname = 'MATNR'.
      LS_FIELDCAT-ref_tabname = 'EKPO'.
      LS_FIELDCAT-TABNAME    = 'I_OUTPUT'.
      ls_fieldcat-seltext_L = 'Material'.
      ls_fieldcat-seltext_M = 'Material'.
      ls_fieldcat-seltext_S = 'Material'.
      APPEND LS_FIELDCAT TO E01_LT_FIELDCAT.
    ENDFORM.                    " fieldcat_init

  • Vendor Master - Purchasing Data Uploading...very...very urgent.

    Dear sapians,
    Is there any tcode for uploading the vendor master purchasing data (only)? like FK15 and FK16 for uploading company code data and general data in Vendor master.
    Please it is very urgent.....
    Thanks to advance
    Senthil

    hi
    go for LSMW , there is no TCODE for uploading data .
    regards
    ravikant dewangan

  • Retrieving the Change Texts per Line Item (Purchase Order) - Very urgent

    Hi,
    How do you retrieve the Change Texts per Line Item (Purchase Order).
    Table T166T does not list these values per line item.
    Please help. This is very urgent & important.
    Best Regards,
    John

    if you are lookin out for change of item texts ...
    then use the function module ... READ_TEXT.
    and 2 tables r used ... STXH and TLINE ....
    double click on item data ...
    goto PO TEXT tab ....
    double click on text ...
    from menu ...
    goto header ... u'll get 4 fields that u need to consider ...
    TDID
    TDOBJECT
    TDHEAD
    TDNAME
    ALL THESE U'LL FIND IN  STXH
    ITEM TEXT is stored in TLINE
    Edited by: anjali rana on Mar 5, 2008 4:55 AM

  • Purchase Register Program

    Hi Gurus,
    Can anyone send me the code for purchase register program.
    I am unable to extract data from bset table .
    its very urgent.
    thanks in advance.
    Edited by: Alvaro Tejada Galindo on Apr 14, 2008 5:22 PM

    Purchase Register Report
    Purchase Register
    Reward points..

  • In purchase register i need material wise gl wise amount

    In Miro transaction when i see line items
    I.e i can display Material, PO number and amount.
    If i click on follow on documents i can display GL wise amount.
    Now my requirement is for each material what is the
    GR/IR Gl and its amount.
    Cenvat GL and its amount
    Vat receivable and its amount. ETC.
    material wise i need to display all this information.
    Format
    IV NO    GR NO        GR/IR  GL Code GL desc
                                   material code                                  amount
                                   cenvat GL code
                                   material code                                  amount
                                   vat rece GL
                                   material code                                  amount.
    In this way i need to display that in Purchase register.
    So can any one help me how to related material GL code and its amount.
    for GR/IR i can find val class and against its GL but for cenvat and
    vat receivable how can i do that.
    Requirement is very urgent.

    Hi,
    Standard reports not avialbale for your requirment but Try with T.codes,
    1.MB5L,
    2.ME80FN,
    3.MB5S
    Regards,
    Biju K
    Edited by: Bijay Kumar Barik on Apr 16, 2008 3:12 PM

  • In purchase register i need material wise Gl wise amount in amount

    In Miro transaction when i see line items
    I.e i can display Material, PO number and amount.
    If i click on follow on documents i can display GL wise amount.
    Now my requirement is for each material what is the
    GR/IR Gl and its amount.
    Cenvat GL and its amount
    Vat receivable and its amount. ETC.
    material wise i need to display all this information.
    Format
    IV NO    GR NO        GR/IR  GL Code GL desc
                                   material code                                  amount
                                   cenvat GL code
                                   material code                                  amount
                                   vat rece GL
                                   material code                                  amount.
    In this way i need to display that in Purchase register.
    So can any one help me how to related material GL code and its amount.
    for GR/IR i can find val class and against its GL but for cenvat and
    vat receivable how can i do that.
    Requirement is very urgent.

    There is no standard report to suit your requirement. You have to go for development report in ABAP

  • CAN ANY BODY EXPLAIN THESE QUESTIONS, VERY URGENT

    WHAT IS THE USE OF CHAPTER ID, IN CHAPTER ID RATES    WILL  BE   DETERMINES.
    HOW MANY TAX CODES NEED CST, LST.
    WHERE CAN I SEE EXCISE REGISTER
    WHAT IS MEANT BY RG1 CAN ANY BODY EXPLAIN BRIEFLY, WHAT IS THE USE OF RG1
    HOW DO I GET OPENING BALANCE FOR EVERY MONTH.
    IN DEPOT SALES, IF CREATING  EXCISE INVOICE A CERTIFICATED WILL ISSUE, IN A CERTIFICATE WHICH FIELDS WILL BE THERE.
    WHAT IS MEANT BY JURISDICTION CODE & COUNTY CODE.
    IN SD FACTORY SALES WHICH A/C ENTERIES GENERATED.
    CAN ANY BODY EXPLAIN THESE FORMS, WHICH SITUATION THESE FORMS WE ARE USING.  I NEED VERY URGENT.
    a) A form
    b) D form
    c) C form
    d) H form
    e) DDP form
    f) TR6 form
    g) D3 form.
    H) ARE.
    I) ARE 1
    j) ARE 2
    IN DEPOT SALES PRICING PROCEDURE JFACT, WHICH CONDITION TYPES  WILL COME,
    IN FACTORY SALES PRICING PROCEDURE JFACT, WHICH CONDITION TYPES WILL COME
    NOW WHAT IS THE VAT TAX.
    what is the use of common distribution channel and common divisions
    PLS FORWARD ANSWERS TO THIS MAIL ID.
    i hope that definitely people will help
    thanks every body.

    Dear vara prasad
    You can take it for granted if you post so much questions in one thread like this, nobody will answer / clarify you.
    So please make one thread per question.
    Meanwhile, just I would like to clarify for few questions
    1)  The most important feature of chapter id is that based on this chapter id which you maintain in "Excise Tax Rate",  all your excise tax rates will be flowing into your sale order / billing
    2) If the rate of tax differs, then you need to maintain a separate tax code.  For example, the LST / VAT in some state is 4%, and in some state it is 12%.  So in this case, you need to maintain two tax codes
    thanks
    G. Lakshmipathi

  • Excise Duty Value in Export Invoice - Very Urgent

    Hi Gurus,
    I have created a Export delivery & Billing Documents. I am trying to create Excise Invoice in which Excise Duty values are coming as "0". We are using TAXINN Procedure ,  ECC 6.0
    Is there any specific note or any customization required for this ?
    Due to this ARE1 is also giving "0" values & subsequent "0" value in Bond Register.
    Can anybody help me on this ?  It is very urgent.
    Thanks in advance
    Vikas

    Hi Vikas,
    Could you help yaar ...if you got solution for it ..I am facing  same problem..We are going  live very soon,
    help of ur's could help me lot  ..My mail id [email protected]
    Thanks in advanec in for your help.
    regards,
    Vijay Khochare

  • Error during GR(very very urgent)

    Hi all,
    i am using a developed program for GR.i used this program before.there was no error.but now i am facing error like
    <b>PO ordered quqntity exceeded by 18,000 EA.</b>.i am using <b>BAPI_GOODSMVT_CREATE</b> for goods transfer.
    In the selection screen, i am putting
    PO number- PO1
    material number- MAT
    GR quantity- 18,000
    delivery order-111
    i want to receive the material MAT of quantity 18,000 from that PO.initially i have ordered PO quntity as 1 lakh. Till now i have received 42,000 materials,now i try to receive 18,000 materials.but it is showing this type of error.
    This error is fired from the return parameter of that BAPI only.error having message class-M7 & error no-022
    is comming.
    i am giving my coding below.plz suggest where is the problem.it is very very urgent.recently my company has added some patches to update the SAP.is this the cause for that error.plz suggest.
    any idea will be highly appreaciated.
    Regards
    REPORT zmui001
           LINE-SIZE 140
           LINE-COUNT 65
           NO STANDARD PAGE HEADING.
    *-- DATA DECLARATION--
    *-- tables
    TABLES : ekpo,
                ekbe,
             marv.
    *--Includes
    INCLUDE : <icon>.                   " Include for Icons
    *-- Types
    TYPES : BEGIN OF t_mseg,
              ebeln LIKE ekko-ebeln,
              name1 LIKE lfa1-name1,
              lifnr LIKE lfa1-lifnr,
              eknam LIKE t024-eknam,
              mblnr LIKE mkpf-mblnr,
              matnr LIKE ekpo-matnr,
              maktx LIKE makt-maktx,
              lgort LIKE mseg-lgort,
              charg LIKE mseg-charg, "chg: 10/17/2005
              menge LIKE mseg-menge,
              budat LIKE mkpf-budat,
              bldat LIKE mkpf-bldat, " chg : 08/18/2003
              xblnr LIKE mkpf-xblnr,
              END OF t_mseg.
    DATA:  BEGIN OF t_ekbe,
              ebeln LIKE ekbe-ebeln,
              ebelp LIKE ekbe-ebelp,
              bwart LIKE ekbe-bwart,
              matnr LIKE ekbe-matnr,
              menge LIKE ekbe-menge,
              END OF t_ekbe,
              BEGIN OF t_ekpo,
              ebeln LIKE ekpo-ebeln,
              ebelp LIKE ekpo-ebelp,
              matnr LIKE ekpo-matnr,
              menge LIKE ekpo-menge,
              END OF t_ekpo.
    TYPES : BEGIN OF t_options.
            INCLUDE STRUCTURE itcpo.
    TYPES : END OF t_options.
    *--Internal tables
    DATA: BEGIN OF i_item OCCURS 50.    "Create Material Document Item
            INCLUDE STRUCTURE bapi2017_gm_item_create.
    DATA: END OF i_item .
    DATA: BEGIN OF i_return OCCURS 20.  "Return parameter
            INCLUDE STRUCTURE bapiret2.
    DATA: END OF i_return.
    DATA: BEGIN OF i_part OCCURS 0,     " Internal table for split data
            part(20),
          END OF i_part.
    DATA: BEGIN OF i_return1 OCCURS 20.  "Return parameter
            INCLUDE STRUCTURE bapiret1.
    DATA: END OF i_return1.
    *-- Work areas
    DATA: BEGIN OF wa_header .       "Material Document Header Data
            INCLUDE STRUCTURE bapi2017_gm_head_01.
    DATA: END OF wa_header .
    DATA: BEGIN OF wa_return .       "Output Structure
            INCLUDE STRUCTURE bapi2017_gm_head_ret.
    DATA: END OF wa_return .
    *-- Work areas
    DATA: wa_mseg TYPE t_mseg,
             wa_ekbe LIKE t_ekbe,
             wa_ekpo  LIKE t_ekpo,
          wa_options TYPE t_options,
           i_ekbe LIKE STANDARD TABLE OF  t_ekbe,
            i_ekbe2 LIKE STANDARD TABLE OF  t_ekbe,
           i_ekpo  LIKE STANDARD TABLE OF  t_ekpo.
    *---Variables
    DATA: v_first,         " variable to get first digit
          v_set TYPE c,
          v_found TYPE p,
          v_menge TYPE p,
          v_ebeln LIKE ekko-ebeln,
          v_lifnr LIKE ekko-lifnr,
          v_belnr LIKE ekbe-belnr,
          v_postdate LIKE mkpf-budat,
          v_bukrs LIKE marv-bukrs,
          v_datum LIKE sy-datum,
          v_lgort LIKE mard-lgort,   " Stge. location
          v_bwart LIKE mseg-bwart,   " Movement type
          v_infnr LIKE eina-infnr,   " Info record no.
          v_ltsnr LIKE eina-ltsnr.
    *---Constants
    CONSTANTS: c_comma TYPE c VALUE ',',   " For splitting data at commas
               c_01(2) TYPE c VALUE '01',  " For movement code in Bapi
               c_b     TYPE c VALUE 'B',   " For mvt. Indicator in Bapi
               c_save(4) TYPE c VALUE 'SAVE', " For button text
               c_clear(5) TYPE c VALUE 'CLEAR', " For clear button
               c_mvmt(4) TYPE c VALUE 'MVMT',
               c_ok(2)   TYPE c VALUE 'OK',
               c_error(5) TYPE c VALUE 'Error'.
    *--SELECTION SCREEN DESIGN--
    SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME.
    PARAMETERS:     p_bar(75) ,  " Scanned data from barcode
                p_ebeln LIKE ekko-ebeln, " PO number
                p_matnr LIKE ekpo-matnr, " Material number
                p_menge LIKE ekpo-menge, " Quantity
               p_lifnr LIKE ekko-lifnr, " Vendor code
                p_frbnr LIKE mkpf-frbnr, " Reference doc for goods mvt
                p_status(5) TYPE c.
    SELECTION-SCREEN END OF BLOCK blk1.
    SELECTION-SCREEN PUSHBUTTON 15(10) v_save USER-COMMAND mvmt.
    SELECTION-SCREEN PUSHBUTTON 40(10) v_clear USER-COMMAND clear.
      INITIALIZATION -
    INITIALIZATION.
      v_save = c_save .
      v_clear = c_clear.
    *--AT SELECTION_SCREEN--
    AT SELECTION-SCREEN .
      IF sy-ucomm = c_clear.
        PERFORM f_clear.
      ELSE.
        IF sy-ucomm <> c_mvmt.
           if not  sy-tabix is initial and  sy-ucomm <> c_mvmt.
    *--- Extracting the data by splitting the scanned values.
          PERFORM f_get_split_data.
    *--- Validating the input data.
          PERFORM f_check_inputs.
        ELSE .
    *--- Validating the input data.
          PERFORM f_check_inputs.
    *-- Determining the posting date and period check.
          PERFORM f_get_posting_date.
    *---Post goods movement
          PERFORM f_post_receipt.
        ENDIF.
      ENDIF.
               SUBROUTINES                                               *
    *&      Form  f_check_inputs
        Validating the input parameters
    FORM f_check_inputs.
    *-- Validating material no.
      SELECT SINGLE matnr INTO p_matnr
        FROM mara
          WHERE matnr = p_matnr.
      IF sy-subrc = 4.
        p_status =  c_error.
        MESSAGE e003(zm) WITH 'Material no.'.
      ENDIF.
    *-- Validating JHT reference no.
      SELECT SINGLE ebeln
                    lifnr
                    bukrs
                    INTO (p_ebeln, v_lifnr , v_bukrs)
                    FROM ekko
            where unsez = p_unsez. chg:07072003
              WHERE ebeln = p_ebeln.
      IF sy-subrc = 4.
        p_status =  c_error.
        MESSAGE e003(zm) WITH 'Purchase order no.'.
      ENDIF.
    *-- Validating material po combination
      SELECT SINGLE *
           FROM ekpo
             WHERE ebeln = p_ebeln
               AND matnr = p_matnr.
      IF sy-subrc = 4.
        p_status =  c_error.
        MESSAGE e003(zm) WITH 'Purchase order no.' ' and Material no.'.
      ENDIF.
    *--- Checking for DO entry . (chng : 30/06/2003)
      IF  p_frbnr IS INITIAL.
        MESSAGE e018(m7) WITH 'Delivery no.'.
        p_status =  c_error.
        PERFORM f_clear.
      ENDIF.
    *-- Validating material po do combination
      SELECT SINGLE a~belnr
                    INTO v_belnr
                    FROM ekbe AS a
                      INNER JOIN mkpf AS b
                       ON   abelnr = bmblnr
                       AND agjahr = bmjahr
                      WHERE a~ebeln = ekpo-ebeln
                        AND  a~ebelp = ekpo-ebelp
                        AND  b~xblnr = p_frbnr.
      IF sy-subrc = 0.
        MESSAGE e019(zm) WITH v_belnr.
        p_status = c_error.
        PERFORM f_clear.
      ENDIF.
      p_status =  c_ok.
    ENDFORM.                    " f_check_inputs
    *&      Form  f_get_split_data
       Extracting the data by splitting the Scanned data
    FORM f_get_split_data.
    *-- Splitting the data at commas
      SPLIT p_bar AT c_comma INTO TABLE i_part.
    *-- Assigning the parts to variables.
      LOOP AT i_part.
        v_first = i_part-part+0(1).
        TRANSLATE  v_first TO UPPER CASE.
        CASE v_first .
         WHEN 'V'.
           p_lifnr =  i_part-part+1(10).
          WHEN 'P'.
            p_matnr = i_part-part+1(18).
          WHEN 'Q'.
            p_menge = i_part-part+1(13).
          WHEN 'K'.
            p_ebeln = i_part-part+1(10).
          WHEN 'D'.
            p_frbnr = i_part-part+2(16).
          WHEN OTHERS.
            CONTINUE.
        ENDCASE.
      ENDLOOP.
    ENDFORM.                    " f_get_split_data
    *&      Form  f_get_posting_date
    Determing the posting date for document
    FORM f_get_posting_date.
    *-- get the current period for todays date.
      DATA: l_period LIKE t009b-poper.
      CALL FUNCTION 'DATE_TO_PERIOD_CONVERT'
        EXPORTING
          i_date               = sy-datum
          i_periv              = 'K4'
       IMPORTING
         e_buper               = l_period
      E_GJAHR              =
       EXCEPTIONS
         input_false          = 1
         t009_notfound        = 2
         t009b_notfound       = 3
         OTHERS               = 4
      IF sy-subrc <> 0.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      ENDIF.
    *-- Determining whether the open period
      SELECT SINGLE *
                    FROM marv
                    WHERE bukrs = v_bukrs.
      IF sy-subrc = 0.
        IF l_period = marv-lfmon .
          v_postdate = sy-datum.
        ELSE.
          CALL FUNCTION 'BAPI_CCODE_GET_FIRSTDAY_PERIOD'
               EXPORTING
                    companycodeid       = v_bukrs
                    fiscal_period       = marv-lfmon
                    fiscal_year         = marv-lfgja
               IMPORTING
                    first_day_of_period = v_postdate
                    return              = i_return1.
          IF NOT i_return[] IS INITIAL.
            LOOP AT i_return1.
              MESSAGE i016(zm) WITH i_return-message.
            ENDLOOP.
          ENDIF.
        ENDIF.
      ENDIF.
    ENDFORM.                    " f_get_posting_date
    *&      Form  f_post_receipt
    Post the goods receipt for entered data.
    FORM f_post_receipt.
      PERFORM f_fill_item.
      PERFORM f_fill_header.
      PERFORM f_execute_transfer.
      PERFORM f_clear.
    ENDFORM.                    " f_post_receipt
    *&      Form  f_fill_item
      Updating the item data for the GR
    FORM f_fill_item.
    Checking for IQC cycle is done here.(chng : 23/07/2003)
      PERFORM f_check_iqc.
    *---- Assigning movement type as per IQC cycle.(chng : 23/07/2003)
      IF v_lgort IS INITIAL.
        MOVE '101'   TO i_item-move_type.
        SELECT SINGLE lgort INTO i_item-stge_loc
        FROM ekpo
         where ebeln  = v_ebeln and  " chg :07/07/2003
           WHERE ebeln  = p_ebeln AND
               matnr = p_matnr .
      ELSE.
        MOVE v_lgort TO i_item-stge_loc.
        MOVE v_bwart TO i_item-move_type.
      ENDIF.
      MOVE p_matnr TO i_item-material.
      MOVE p_menge TO i_item-entry_qnt.
    move v_ebeln to i_item-po_number. " 07/07/2003
      MOVE p_ebeln TO i_item-po_number.
      MOVE v_lifnr TO i_item-vendor.
      MOVE c_b TO i_item-mvt_ind.
    select single ebelp into i_item-po_item " chg :29/07/2003
       from ekpo
          where ebeln  = p_ebeln
            and   matnr = p_matnr
           and elikz = ''.
      SELECT ebeln
                ebelp
                matnr
                menge
                INTO CORRESPONDING FIELDS OF TABLE i_ekpo
                FROM ekpo
                WHERE ebeln = p_ebeln
                   AND matnr = p_matnr
                   AND loekz = '' .
      SORT i_ekpo BY ebeln ebelp matnr.
      LOOP AT i_ekpo INTO wa_ekpo.
        IF v_found = 0.
          SELECT ebeln  ebelp
                bwart  menge
                INTO CORRESPONDING FIELDS OF TABLE i_ekbe
                FROM ekbe
                WHERE ebeln = p_ebeln
                AND ebelp = wa_ekpo-ebelp
                AND matnr = p_matnr.
                          and elikz = '' .  CHG -- 03/19/2004
          IF sy-subrc = 0.
            LOOP AT i_ekbe INTO wa_ekbe .
              IF wa_ekbe-bwart = '101'.
                v_menge = v_menge + wa_ekbe-menge.
              ENDIF.
              IF wa_ekbe-bwart = '102'.
                v_menge = v_menge - wa_ekbe-menge.
              ENDIF.
              IF wa_ekbe-bwart = '122'.
                v_menge = v_menge - wa_ekbe-menge.
              ENDIF.
            ENDLOOP.
    chng: 03/19/2004 compare po qty against receipt
            v_menge = v_menge + p_menge .
            IF wa_ekpo-menge >= v_menge .
              v_found = 1.
              MOVE wa_ekpo-ebelp TO i_item-po_item.
            ENDIF.
          ELSE .
            v_found = 1.
            MOVE wa_ekpo-ebelp TO i_item-po_item.
          ENDIF.
        ENDIF.
        CLEAR : wa_ekbe, i_ekbe, v_menge.
      ENDLOOP.
      IF v_found = 0 .
        MESSAGE e003(zm) WITH ' delivery items'.
      ENDIF.
      APPEND i_item.
      CLEAR : i_item, v_found .
    ENDFORM.                    " f_fill_item
    *&      Form  f_check_iqc
    Checking the storage location for the (chng : 23/07/2003)
    FORM f_check_iqc.
      CALL FUNCTION 'Z_M_GET_IQC_STATUS'
           EXPORTING
                matnr          = p_matnr
                lifnr          = v_lifnr
           IMPORTING
                lgort          = v_lgort
                bwart          = v_bwart
                ltsnr          = v_ltsnr
                infnr          = v_infnr
           EXCEPTIONS
                non_iqc_vendor = 1
                OTHERS         = 2.
      IF sy-subrc <> 0.
        CLEAR : v_lgort , v_bwart , v_ltsnr.
      ENDIF.
    ENDFORM.                    " f_check_iqc
    *&      Form  f_fill_header
      Updating data in the header
    FORM f_fill_header.
      MOVE v_postdate TO wa_header-pstng_date.
      MOVE sy-datum TO wa_header-doc_date.
      MOVE p_frbnr TO wa_header-ref_doc_no.
    ENDFORM.                    " f_fill_header
    *&      Form  f_execute_transfer
          Executing the goods movement.
    FORM f_execute_transfer.
      CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
           EXPORTING
                goodsmvt_header  = wa_header
                goodsmvt_code    = c_01
           IMPORTING
                goodsmvt_headret = wa_return
           TABLES
                goodsmvt_item    = i_item
                return           = i_return.
      IF i_return[] IS INITIAL .
        COMMIT WORK.
    *---  UPdating Info record for IQC cycle ind.(chng : 23/07/2003)
        IF NOT v_ltsnr IS INITIAL.
          UPDATE eina SET ltsnr = v_ltsnr
          WHERE infnr = v_infnr.
        ENDIF.
        REFRESH : i_item.
        CLEAR : wa_header,v_ltsnr , v_infnr,v_bwart,v_lifnr.
        MESSAGE i012(migo) WITH wa_return-mat_doc.
        PERFORM f_do_print.
      ELSE.
        REFRESH : i_item.
        CLEAR : wa_header,v_ltsnr , v_infnr,v_bwart,v_lifnr.
        PERFORM write_errors.
      ENDIF.
    ENDFORM.                    " f_execute_transfer
    FORM write_errors.
      WRITE: 0(90) sy-uline ,
             /0'|',
              3 'System messages for GR posting',
              90 '|',
             /0(90) sy-uline .
      LOOP AT i_return.
        CASE  i_return-type.
          WHEN 'E'.
            MESSAGE i016(zm) WITH i_return-message.
          WHEN 'W'.
            MESSAGE i017(zm) WITH i_return-message.
          WHEN 'I'.
           WRITE: /0'|',
                  icon_yellow_light AS ICON ,
                  '|',
                  10 i_return-message,
                  90 '|'.
            MESSAGE i018(zm) WITH i_return-message.
          WHEN 'S'.
           WRITE: /0'|',
                  icon_green_light AS ICON ,
                  '|',
                  10 i_return-message,
                  90 '|'.
            MESSAGE i018(zm) WITH i_return-message.
          WHEN OTHERS.
           WRITE: /0'|',
                  icon_red_light AS ICON ,
                  '|',
                  10 i_return-message,
                  90 '|'.
            MESSAGE e016(zm) WITH i_return-message.
        ENDCASE.
       AT LAST .
         WRITE:/0(90) sy-uline .
       ENDAT.
      ENDLOOP.
    ENDFORM.                    " write_errors
    *&      Form  f_clear
    Clearing the input parameters
    FORM f_clear.
      CLEAR : p_ebeln ,
              p_bar,
              p_matnr,
              p_frbnr,
              v_lifnr,
              p_menge,
              p_status.

    Hi all,
    can anyone suggest any idea?
    Regrds
    pabitra

  • How to Activate a Condition Type in the Tax OCde for A/P  -- Very Urgent

    Hi  Peers
    I'm creating a new Tax Code in T.Code FTXP, while creating, One Condition Type is Deactivated, say JM01, How to activate that condition Type. I know how to activate the Condition Type in A/R side but I want to know it in A/P side.  Plz help. Its very urgent. 
    Regards
    Rajaram

    Hi Rajaram,
    U pls Check ur configuration. First u check the calculation procedure (F.A- Tax on sales & purchase-Basic setting-Check calculation procedure _ Define procedure) In the procedure field u  check JM01 is activated or deactivated otherwise u created in condition Type.
    I think its usefull otherwise u let me know
    Thanks
    R.Manigandan

  • Default GL Assignment to Tax Code -  Very Urgent

    Dear Friends,
    When I am doing the T. Code MIRO, the Service tax receivables and Education cess receivables are automatically coming in the accounting entry.
    The entry is as follows :
    GR / IR A/c                    Dr     10500
    Service Tax Receivables          Dr         315
    Education Cess Receivables          Dr             6. 30
         To Vendor Account                         10821.30
    Actually this is Service vendor transaction. So, I did the following transactions in MM.
    1.     Created  Purchase order u2013 I gave Tax code as S6 in that.
    2.     Created Service sheet through T. Code u2013 ML81N u2013 in this I gave the cost center and GL A/c ( GL A/c is --  Lease Rentals )
    3.     Invoice Posting through T.Codeu2013MIRO u2013 in this also mentioned the Tax Code-S6
    Note : As per MM Consultant we should not do the MIGO because this is service vendor and when we release the service sheet then automatically MIGO entry will post.
    So, in the above 3 transactions ( MM ), Any where I did not mentioned the Service tax recv and Education cess recv GL accounts manually.
    Our client is following the CIN u2013 TAX INN procedure.
    Account keys u2013 ESA and ESE are updating in the above transaction.
    I checked the following T. Codes for automatic assignment of GL accounts to the Tax Code.
    1.     OBYC
    2.     OB40
    3.     OBQ3
    4.     FTXP
    5.     FV 11 & 12 & 13
    6.     OKB9
    7.     Validations and Substitutions
    8.     User Exists
    9.     spro u2013 Logistics general u2013 Tax on goods movement u2013 India u2013
    10.     FBKP
    11.     OB28, OBBH , OBCN , GGB0, GBB1 , GBX2.3
    So, In all the above T. Codes I did not find any assignment of GL Accounts to the above said Tax Code u2013 S6.
    Now  problem is My client is saying that the 2 GL accounts i.e. Service tax recv and Education cess recv GL accounts should not effect when they use Tax Code S6.
    I am not able to find where these GL accounts are assigned to the Tax Code u2013 S6.
    SO , KINDLY EXPLAIN ME WHERE THESE 2 GL ACCOUNTS ARE ASSIGNED TO THE TAX CODE .
    Its very urgent, looking forward for  an early and  positive reply.
    Thanking You,
    Regards,
    K. S. Sai Kumar
    09930870886
    Hyderabad.

    Dear All,
    I checked the following T. Codes for automatic assignment of GL accounts to the Tax Code.
    1. OBYC
    2. OB40
    3. OBQ3
    4. FTXP
    5. FV 11 & 12 & 13
    6. OKB9
    7. Validations and Substitutions
    8. User Exists
    9. spro u2013 Logistics general u2013 Tax on goods movement u2013 India u2013
    10. FBKP
    11. OB28, OBBH , OBCN , GGB0, GBB1 , GBX2.3
    So, In all the above T. Codes I did not find any assignment of GL Accounts to the above said Tax Code u2013 S6.
    Thanking You,
    Regards,
    K. S.Sai Kumar

Maybe you are looking for

  • Please Please help me I need to get this!!

    How can I set a Timestamp to null- I want it to be all zeros- and not a null value to be recorded in the database at the moment I have it just like this Timestamp NewDayTotal = null ; which is just empting the DB of an value - not leaving zeros. Any

  • Calculating the length of the longest side of a polygon

    If you want to calculate the length of the longest side of a polygon -- for example a rectangle -- how can that be done using the standard geometrical functions of spatial in an oracle 10g2 database? SDO_LENGHT delivers the outline of the polygon. If

  • Deleting row of zero in one dim array

    In my application, I am using the first column of the table as a selection from the combo box. The table is converted to one dimension array of 200 rows and 1 column, Some of the rows have zero value which is visible in the combo box selection , I ne

  • OIM11gR2 Setting Multiple Parameters in Timestamp field of DBAT GTC

    Hi Experts, I am using DBAT (database App Tables) for running GTC for trusted Recon. While setting parameters, I want to set 2 values for time stamp parameters. Please share your ideas if i can do this on a single connector instance only or require t

  • Can't connect to more then one server in a java appl.

    Hi: I'm connecting to OCS via java as the administrator without problems. But, even if I close the first connection I can't open the second one without getting an user unknown error. If I connect only to one or the other everything works. Here's part