Message "Enter Batch" in Fuel Consumption-Measurement Transaction (IFCU)

Dear Expert,
Lately I activate EA-PLM ECC extention in my sandbox to simulate IFCU transaction for entry Fuel Consumption. After all config is being done, in IFCU transaction there still problem, It rise a pop-up to "Enter Batch" when saving this transaction. Indeed We are using Batch Management for our Fuel material, but where we can input this batch parameter in IFCU transaction ?
Please advice...Thank U

I don't think batch managed materials are supported for this transaction.You may have to develop your own transaction by copying the same and adding the batch information. All you may have to do is pass the batch number to the Goods movement BAPI BAPI_GOODSMVT_CREATE  in the program.
Regards
Narasimhan

Similar Messages

  • Enter batch number - No Automatic Batch Number assignment allowed for plant

    Hi SAP Gurus,
    Upon checking the created new Goods receipt for Purchasing Order in tcode migo_gr, checking with the Batch tab, we can't see a batch number, then clicking the classification tab showing the message Enter batch number - No Automatic Batch Number assignment allowed for plant - XXXX
    the question is there any missing configuration based for this kind of error? ive checked the availability check for the plant and it already setup. Hope for your kind responses.
    Thanks

    HI,
    Kindy check the below configuratoin
    Logistics - General>Batch Management>Creation of New Batches>Define Batch Creation for Goods Movements
    for your movement type check what is the Strategy for the new batches.
    here you should assigne only automatic.
    Also let me know what is the level of batch mgt> is it at client level, Plant level, Material level.?
    reg
    Dsk

  • Creatin of PO: Need to enter batch?

    I tried to post GR and it was succesful. But when I used BAPI_GOODSMVT_CREATE in my program it prompted me to enter batch. though in my previous transaction( mb01) it didn't asked me to specify it. I have compared and checked the parameters.
    Is it mandatory?
    Points for helpful answers. Thanks!

    u need to give bcoz .........
    if u r assigning storage location at header level  u have option to change the batch at itemlevel......... if u r not assigning storage location at header level u can assign the both storage location and batch at item level based on the relevance ............
    so check out  u r test data that u have assigned the batch at headerlevel.....or itemlevel .....
    reward points if helpful.

  • Error message: "Enter valid currency [Message 173-57]" during Deposit transaction

    Hi All,
    Is there a specific reason why can't I deposit from a "Multi-currency" cash account to a "specific (i.e., USD)" cash account using the Banking> Deposits> Deposit module.
    I have already read below threads related to this issue.
    Error message "Enter valid currency [Message 173-57]" during cash deposit
    Can't Create Cash Deposit of Journal Entry due to "Invalid Currency" Error
    Transfer Between bank accounts in different currencies
    GL Postings between different currency accounts
    foreign currency transactions
    SAP Business One Note: 1260658 - Transfer monies between different monocurrency accounts
    I have posted successfully e  cash transfer from multicurrency to monocurrency cash account thru Journal Entry, However, I wanted to know the reason why it is not possible to post this transaction thru the Banking> Deposit module.
    Appreciate your feedback on this matter.
    Thanks!

    Hi,
    Same error message is appeared in 8.81 PL10. So this is not due to PL. If you select other than local currency at deposit currency, this error appears.
    Let me check and update.
    Thanks & Regards,
    Nagarajan

  • Message no. AK005 - Asset is investment measure, transaction type not allow

    Dear All,
    I am getting following error while transfering Investment AuC to Main Asset.
    Message no. AK005 - Asset is investment measure, transaction type not allow
    I searched the Forum and got some input.., but in that I have a clarification.
    Please see my doubt and the forum input.
    Internal Order as Investment Measure:
    Can you explain me Step 10. Settle the amounts to Main Asset from AuC(Prcg type: Full) - KO88 once again.
    How we can give the Receiver Main Asset master in KO88. In KO88 we can only provide the Internal Order. But that Internal Order is already settled to AuC in Step 8.
    Please guide me.
    Thanks.
    Regards,
    nms
    Re: Settlement of cost center to final asset ?
    Posted: Oct 27, 2009 11:40 AM
    Hi,
    Are you doing any settlement using the AUC asset ?
    Normal practice is to Create an Auc Asset and settle cost to Auc. Once the asset is ready for use, finally settle the Auc to final asset.
    This can be done in two ways like - line item settlement / investment measure.
    Below are steps in two scenarios :
    Internal Order as Investment Measure:
    1. Define the AuC Asset Class (with investment measure) - OAOA
    2. Define the Asset Class u2013 for Main Asset - OAOA
    3. Define Investment Profile - OITA
    a. Assign the AuC Asset Class (Step-1) in the investment profile
    4. Assign Investment Profile to Model Order - OITA
    5. Define Order Type (Investment) - KOT2
    a. Settlement Profile - OKO7
    b. Maintain Allocation Structures - OKO6
    c. Planning Profile - OKOS
    d. Budget Profile - OKOB
    6. Create an Internal Order - KO01
    a. With the Investment Profile (Step-2)
    b. AuC automatically created by the system using Asset Class given in the Investment Profile
    7. Post the amounts to IO - FB01
    8. Settle the amounts to AuC from IO (Prcg type: Automatic) - KO88
    9. Create the Main Asset - AS01
    10. Settle the amounts to Main Asset from AuC(Prcg type: Full) - KO88
    AuC using Line Item Settlement:
    1. Define the AuC Asset Class (with Line Item Settlement) - OAOA
    2. Define the Asset Class u2013 for Main Asset - OAOA
    3. Define Order Type (Overhead) - KOT2
    4. Create an AuC-Asset (using Step-1 Asset Class) - AS01
    5. Create an Internal Order - KO01
    a. Assign the AuC u2013 Asset in Settlement Rule in IO
    6. Post the amounts to IO - FB01
    7. Settle the amounts to AuC from IO - KO88
    8. Create Main Asset (using Step-2 Asset Class) - AS01
    9. Assign the Main Asset in IO (Step-5) - KO02
    10. Settlement AuC u2013 Line Item List - AIAB
    11. Settlement AuC - Receiver - AIBU
    VVR

    nms,
    Your message is not very clear - while you have mentioned at what stage are you getting the above-mentioned error message, you haven't mentioned exactly what you were trying to do. The fact that you are getting this error is a straight-forward indication that you are attempting to do something that SAP does expect.
    However, answering your query about how to use KO88, you have to settle the AuC to a FA (fixed asset, with asset class other than AuC ), as that will close the open AuC, transfer the value from the AuC to the FA and from this point onwards, all transactions will happen to this FA. Your statement "in KO88, we can only provide the Internal Order" is incorrect.
    Hope this helps.
    Regards
    Gulshan

  • Error Message " Enter a Vendor Number "?

    Hi,
    When we are executing MIGO 411 K transaction we are getting error message 'Enter Vendor Number'. My requirement is populate vendor dynamically based on combination of Material, Plant, Storage location and Batch. I got user exit for this User-exit (EXIT_SAPMM07M_001) when click on check button.
    We found a User-exit (EXIT_SAPMM07M_001) triggered when User clicks on 'CHECK' button. But since the vendor field (LIFNR) is a mandatory field in MIGO 411 K transaction, its throwing an error message 'Enter Vendor Number'.
    SO we are not able to populate the vendor number dynamically in user exit.
    Can any one help on this ..how to proceed further...
    Thanks
    Edited by: Venkatesh Padarti on Jan 2, 2008 11:21 PM

    All mandatory fields are checked before any processing happens.
    The simplest way is to enter a dummy vendor number (create a one-time or a dummy vendor for this purpose)
    Hope this helps,
    Lakshman

  • Error at the time of PO creation - Asset is investment measure, transaction

    Hi all,
    When am assigning the Investment Order (order for AUC) against Asset at the time of creation of Asset PO, the system throws the following error:
    Asset is investment measure, transaction type not allowed
    Message no. AK005
    Diagnosis
    Asset 1700000 0 that is to be posted is an investment measure. You are not allowed to post transactions that affect acquisition value using the current transaction.
    Procedure
    Check the asset and transaction type 120.

    System expects you to enter the Investment Order rather than the asset as account assignment object in the PO.
    Regards
    Sreenivas

  • Fuel Consumption Report Modification - 2

    Hi Experts
    I am working on fuel consumption modification. can anyone help me how to get max and min value for this program
    I am getting one row correct with equipment no is enter but when I enter the range of equipment no it is taking long time and the result is repeating for each row
    please correct my report
    Thnaks in advanced
    Piroz
    REPORT Z_FUEL2 LINE-SIZE  232 LINE-COUNT 75
             NO STANDARD PAGE HEADING.
    TABLES : equi,
             equz,
             imptt,
             imrg,
             eqkt,
             iloa.
    TYPES: BEGIN OF ty_equi," occurs 0,
           equnr type equi-equnr,
           END OF ty_equi.
    TYPES: BEGIN of ty_eqkt," occurs 0,
           equnr type eqkt-equnr,
           eqktx type eqkt-eqktx,
           END OF ty_eqkt.
    TYPES: BEGIN of ty_iloa ,"occurs 0,
           iloan type iloa-iloan,
           eqfnr type iloa-eqfnr,
           END OF ty_iloa.
    TYPES: BEGIN of ty_imptt," occurs 0,
           mpobj type imptt-mpobj,
           END of ty_imptt.
    TYPES: BEGIN of ty_imrg ,"occurs 0,
           idate type imrg-idate,
           recdv type imrg-recdv,
           recdu type imrg-recdu,
           END of ty_imrg.
    TYPES: BEGIN OF ty_data  ,
           equnr      type equnr,         " Euipment no
           eqktx      type eqkt-eqktx,    " Equipment Text
           eqfnr       type iloa-eqfnr,     " Equipment Sort field
           idate      type imrg-idate,    " Measuring Date
           recdu      type imrg-recdu,    " Unit of measuring ='KM','L','H'
           recdv      type imrg-recdv,    " Counter reading data
           END OF ty_data.
    TYPES: BEGIN OF ty_final,
           equnr           type equnr,            "  Equipment no
           eqktx           type eqkt-eqktx,       "  Equipment Text
           eqfnr           type iloa-eqfnr,       "  Equipment Sort field
           min_date        type imrg-idate,       "  Min Date
           min_km          type imrg-recdv,       "  Max Km
           max_date        type imrg-idate,       "  Max Date
           max_km          type imrg-recdv,       "  Min km
           t_max_min_km    type i,                "  Total min_km-max_km
           min_hr          type imrg-recdv,       "  Max hr
           max_hr          type imrg-recdv,       "  Min hr
           t_max_min_hr    type i,                "  Total min_hr-max_hr
           min_lit         type imrg-recdv,       "  Max lit
           max_lit         type imrg-recdv,       "  Min lit
           t_max_min_lit    type i,                "  Total min_lit-max_lit
           T_fuel_con        type p decimals 2,     "  Total_hrs / t_max_min_hr
           T_km_l            type p decimals 2,     "  km / L
           lit_per_hr      type i           ,     "  fuel comsumed / t_max_min_hr
           END OF ty_final.
    DATA: i_equi TYPE TABLE OF ty_equi,   "internal table
          wa_equi TYPE ty_equi, " work area
          i_eqkt TYPE TABLE OF ty_eqkt,   "internal table
          wa_eqkt TYPE ty_eqkt, " work area
          i_iloa TYPE TABLE of ty_iloa,   "internal table
          wa_iloa TYPE ty_iloa, " work area
          i_imptt TYPE TABLE of ty_imptt, "internal table
          wa_imptt TYPE ty_imptt,
          i_imrg  TYPE TABLE of ty_imrg,  "internal table
          wa_imrg TYPE ty_imrg,
          i_data TYPE TABLE OF ty_data,   "internal table
          wa_data TYPE ty_data, " work area
          i_final TYPE TABLE OF ty_final, " internal table
          wa_final TYPE ty_final. " work area
    DATA :  max_date type date ,
             min_date type date,
             max_km TYPE p DECIMALS 2,
             min_km TYPE p DECIMALS 2,
             max_hr TYPE p DECIMALS 2,
             min_hr TYPE p DECIMALS 2,
             max_lit TYPE p DECIMALS 2,
             min_lit TYPE p DECIMALS 2,
             t_max_min_km  TYPE p DECIMALS 2,
             t_max_min_hr TYPE p DECIMALS 2,
             t_max_min_lit TYPE p DECIMALS 2.
    SELECTION-SCREEN BEGIN OF BLOCK blk WITH FRAME.
    SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001.
    SELECT-OPTIONS: p_equnr FOR equi-equnr, "no-extension no intervals,
                    p_idate FOR imrg-idate.  "NO-EXTENSION NO INTERVALS OBLIGATORY,
                   " p_recdu FOR imrg-recdu." NO-EXTENSION NO INTERVALS ."default 'M3'" OBLIGATORY.
    SELECTION-SCREEN END OF BLOCK blk1.
    SELECTION-SCREEN BEGIN OF BLOCK blk2 WITH FRAME TITLE text-002.
    SELECTION-SCREEN END OF BLOCK blk2.
    SELECTION-SCREEN END OF BLOCK blk.
    TOP-OF-PAGE.
      FORMAT INTENSIFIED ON.
      WRITE:/1(40) ' INVESTMENT LIMITED  '.
      WRITE:/50(40) ' FUEL CONSUMPTION REPORT ' CENTERED   ,
              2 'Page', sy-pagno.
      FORMAT INTENSIFIED OFF.
      WRITE:/50(40) '----
    ' CENTERED .
      FORMAT INTENSIFIED ON.
      WRITE:/2 sy-datum COLOR 3, sy-uzeit .
      "WRITE:/1 S903-SPMON ."p_yearf.
      ULINE.
      "CENTERED.
      write: /2 'Date From     :'.
      write: /2 'Equipment No  :'.
      write: /2 'Unit          :'.
      SKIP.
      ULINE.
      WRITE:/1 sy-vline,
        2   'EQUIP NO',              10 sy-vline,
        11  'NAME',                  40 sy-vline,
        41  'SORT',                  60 sy-vline,
        61  'MIN DATE',              74 sy-vline,
        75  'MIN KM',                87 sy-vline,
        88  'MAX DATE',              100 sy-vline,
        101 'MAX KM' ,               113 sy-vline,
        114 'TOTAL KM',              126 sy-vline COLOR 2,
        127 'MIN HR',                139 sy-vline,
        140 'MAX HR',                152 sy-vline,
        153 'TOTAL HR' ,             167 sy-vline COLOR 2,
        168 'MIN LIT',               180 sy-vline,
        181 'MAX LIT',               193 sy-vline,
        194 'FUEL CON',              206 sy-vline  COLOR 2,
        207 'KM L',                  219 sy-vline,
        220 'LIT PER HR',            232 sy-vline.
      FORMAT COLOR 3 ON.
      ULINE.
    END-OF-PAGE.
    START-OF-SELECTION.
    select a~equnr d~eqktx f~eqfnr e~idate e~recdu e~recdv
    into corresponding fields of table i_data
    from equi AS a
    inner join equz as b
    on a~equnr = b~equnr
    inner join iloa as f
    on b~iloan = f~iloan
    inner join imptt as c
    on a~objnr = c~mpobj
    inner join eqkt as d
    on a~equnr = d~equnr
    inner join imrg as e
    on e~point = c~point
    where a~equnr in p_equnr
    and
    e~idate in p_idate and
    e~recdu in ('KM','L','H').
    "e~recdu in p_recdu.
    equi
    *select equnr from equi into table i_equi
    *for all entries in I_DATA
    **where objnr = i_equnr-mpobj.
    *where equnr = i_data-equnr.
    *endselect.
    eqkt
    *select equnr eqktx into table I_eqkt
    *from eqkt
    *FOR ALL ENTRIES IN I_DATA
    *where equnr = i_data-Equnr.
    *endselect.
    iloa
    *select eqfnr into table I_iloa
    *from equz
    *FOR ALL ENTRIES IN I_DATA
    *on equziloan = iloailoan
    *where iloan = i_data-iloan .
    *endselect.
    imrg
    *select idate recdv recdu into table I_imrg
    *from imrg
    *FOR ALL ENTRIES IN I_DATA
    *where imrg~objnr = i_date-mpobj.
    *endselect.
    loop  at i_data into wa_data.
    CLEAR: wa_final.
      READ TABLE i_final into wa_final
               with key equnr = wa_data-equnr.
        if sy-subrc EQ 0.
         PERFORM prepare_get_equi.
         PERFORM prepare_get_eqkt.
         PERFORM prepare_get_iloa.
         PERFORM prepare_get_imptt.
         PERFORM prepare_get_imrg.
          PERFORM prepare_final_rec USING'M'. " Modify Existing Record
          ElSE.
          PERFORM prepare_final_rec USING'A'. " Append New Record.
        ENDIF.
        ENDLOOP.
        LOOP AT i_final into wa_final.
         SORT i_final by equnr  descending.
          at new equnr.
            read table i_final into wa_final index sy-tabix.
                WRITE:/1 sy-vline,
    2  wa_final-equnr                                                 , 10 sy-vline,
    11 wa_final-eqktx                                                 , 40 sy-vline,
    41 wa_final-eqfnr                                                 , 60 sy-vline,
    61 wa_final-min_date                                              , 74 sy-vline,
    75 wa_final-min_km EXPONENT 0 DECIMALS 2   LEFT-JUSTIFIED           , 87 sy-vline,
    88 wa_final-max_date EXPONENT 0 DECIMALS 2   LEFT-JUSTIFIED         , 100 sy-vline,
    101 wa_final-max_km EXPONENT 0 DECIMALS 2   LEFT-JUSTIFIED          , 113 sy-vline,
    114 wa_final-t_max_min_km EXPONENT 0 DECIMALS 2 color 3 LEFT-JUSTIFIED    , 126 sy-vline COLOR 2,
    127 wa_final-min_hr EXPONENT 0 DECIMALS 2   LEFT-JUSTIFIED          , 139 sy-vline,
    140 wa_final-max_hr EXPONENT 0 DECIMALS 2 LEFT-JUSTIFIED          , 152 sy-vline,
    153 wa_final-t_max_min_hr EXPONENT 0 DECIMALS 2 color 3 LEFT-JUSTIFIED   , 167 sy-vline COLOR 2,
    168 wa_final-min_lit EXPONENT 0 DECIMALS 2  LEFT-JUSTIFIED         , 180 sy-vline,
    181 wa_final-max_lit EXPONENT 0 DECIMALS 2 LEFT-JUSTIFIED         , 193 sy-vline,
    *194 wa_final-t_max_min_lit EXPONENT 0 DECIMALS 2 color 3 LEFT-JUSTIFIED   , 206 sy-vline COLOR 2,
    194 wa_final-T_fuel_con EXPONENT 0 DECIMALS 2 LEFT-JUSTIFIED        , 206 sy-vline,
    207 wa_final-t_km_l EXPONENT 0 DECIMALS 2 LEFT-JUSTIFIED            , 219 sy-vline,
    220 wa_final-lit_per_hr EXPONENT 0 DECIMALS 2 LEFT-JUSTIFIED      , 232 sy-vline.
    *168 wa_final-min_lit EXPONENT 0 DECIMALS 2  LEFT-JUSTIFIED         , 180 sy-vline,
    *194 wa_final-t_max_min_lit EXPONENT 0 DECIMALS 2 LEFT-JUSTIFIED   , 206 sy-vline COLOR 2,
    *207 wa_final-fuel_con EXPONENT 0 DECIMALS 2 LEFT-JUSTIFIED        , 219 sy-vline,
    *220 wa_final-km_l EXPONENT 0 DECIMALS 2 LEFT-JUSTIFIED            , 232 sy-vline,
    *233 wa_final-lit_per_hr EXPONENT 0 DECIMALS 2 LEFT-JUSTIFIED      , 246 sy-vline.
    *207 wa_final-T_fuel_con EXPONENT 0 DECIMALS 2 LEFT-JUSTIFIED        , 219 sy-vline,
    *220 wa_final-t_km_l EXPONENT 0 DECIMALS 2 LEFT-JUSTIFIED            , 232 sy-vline,
    *233 wa_final-lit_per_hr EXPONENT 0 DECIMALS 2 LEFT-JUSTIFIED      , 246 sy-vline.
    uline.
        "endat.
    *at end of equnr.
           read table i_final into wa_final index sy-tabix.
              WRITE:/1 sy-vline,
    *2  wa_final-equnr                                                 , 10 sy-vline,
    *11 wa_final-eqktx                                                 , 40 sy-vline,
    *41 wa_final-eqfnr                                                 , 60 sy-vline,
    *88 wa_final-max_date EXPONENT 0 DECIMALS 2   LEFT-JUSTIFIED         , 100 sy-vline,
    *101 wa_final-max_km EXPONENT 0 DECIMALS 2   LEFT-JUSTIFIED          , 113 sy-vline,
    *140 wa_final-max_hr EXPONENT 0 DECIMALS 2 LEFT-JUSTIFIED          , 152 sy-vline.
    **181 wa_final-max_lit EXPONENT 0 DECIMALS 2 LEFT-JUSTIFIED         , 193 sy-vline.
    *114 wa_final-t_max_min_km EXPONENT 0 DECIMALS 2   LEFT-JUSTIFIED    , 126 sy-vline COLOR 2,
    *140 wa_final-max_hr EXPONENT 0 DECIMALS 2 LEFT-JUSTIFIED          , 152 sy-vline.
    *153 wa_final-t_max_min_hr EXPONENT 0 DECIMALS 2  LEFT-JUSTIFIED   , 167 sy-vline COLOR 2,
    *181 wa_final-max_lit EXPONENT 0 DECIMALS 2 LEFT-JUSTIFIED         , 193 sy-vline,
    *194 wa_final-t_max_min_lit EXPONENT 0 DECIMALS 2 LEFT-JUSTIFIED   , 206 sy-vline COLOR 2,
    *207 wa_final-fuel_con EXPONENT 0 DECIMALS 2 LEFT-JUSTIFIED        , 219 sy-vline,
    *220 wa_final-km_l EXPONENT 0 DECIMALS 2 LEFT-JUSTIFIED            , 232 sy-vline,
    *233 wa_final-lit_per_hr EXPONENT 0 DECIMALS 2 LEFT-JUSTIFIED      , 246 sy-vline.
    uline .
       WRITE:/1 sy-vline,
    *2  wa_final-equnr                                                 , 10 sy-vline,
    *11 wa_final-eqktx                                                 , 40 sy-vline,
    *41 wa_final-eqfnr                                                 , 60 sy-vline,
    *61 wa_final-min_date                                              , 74 sy-vline,
    *75 wa_final-min_km EXPONENT 0 DECIMALS 2 LEFT-JUSTIFIED           , 87 sy-vline,
    *88 wa_final-max_date EXPONENT 0 DECIMALS 2 LEFT-JUSTIFIED         , 100 sy-vline,
    *101 wa_final-max_km EXPONENT 0 DECIMALS 2 LEFT-JUSTIFIED          , 113 sy-vline,
    *114 wa_final-t_max_min_km EXPONENT 0 DECIMALS 2 LEFT-JUSTIFIED    , 126 sy-vline COLOR 2,
    *127 wa_final-min_hr EXPONENT 0 DECIMALS 2 LEFT-JUSTIFIED          , 139 sy-vline,
    *140 wa_final-max_hr EXPONENT 0 DECIMALS 2 LEFT-JUSTIFIED          , 152 sy-vline,
    *153 wa_final-t_max_min_hr EXPONENT 0 DECIMALS 2  LEFT-JUSTIFIED   , 167 sy-vline COLOR 2,
    *168 wa_final-min_lit EXPONENT 0 DECIMALS 2 LEFT-JUSTIFIED         , 180 sy-vline,
    *181 wa_final-max_lit EXPONENT 0 DECIMALS 2 LEFT-JUSTIFIED         , 193 sy-vline,
    *194 wa_final-t_max_min_lit EXPONENT 0 DECIMALS 2 LEFT-JUSTIFIED   , 206 sy-vline COLOR 2,
    *207 wa_final-fuel_con EXPONENT 0 DECIMALS 2 LEFT-JUSTIFIED        , 219 sy-vline,
    *220 wa_final-km_l EXPONENT 0 DECIMALS 2 LEFT-JUSTIFIED            , 232 sy-vline,
    *233 wa_final-lit_per_hr EXPONENT 0 DECIMALS 2 LEFT-JUSTIFIED      , 246 sy-vline.
    *ULINE.
    endloop.
    FORM prepare_final_rec  USING    p_mode TYPE char1.
    KM
    select MAX( eidate ) Min( eidate ) MAX( erecdv ) MIN( erecdv )
    into  corresponding fields of (wa_final-max_date,wa_final-min_date, wa_final-max_km , wa_final-min_km)
    from equi AS a
    inner join equz as b
    on aequnr = bequnr
    inner join iloa as f
    on biloan = filoan
    inner join imptt as c
    on aobjnr = cmpobj
    inner join eqkt as d
    on aequnr = dequnr
    inner join imrg as e
    on epoint = cpoint
    where a~equnr in p_equnr
    and
    e~idate in p_idate and
    e~recdu =  'KM' .
    "group by aequnr deqktx feqfnr eidate erecdu erecdv.
    "endselect.
    HOUR
    select MAX( eidate ) Min( eidate ) MAX( erecdv ) MIN( erecdv )
    into corresponding fields of (wa_final-max_date, wa_final-min_date, wa_final-max_hr, wa_final-min_hr)
    from equi AS a
    inner join equz as b
    on aequnr = bequnr
    inner join iloa as f
    on biloan = filoan
    inner join imptt as c
    on aobjnr = cmpobj
    inner join eqkt as d
    on aequnr = dequnr
    inner join imrg as e
    on epoint = cpoint
    where a~equnr in p_equnr
    and
    e~idate in p_idate and
    e~recdu =  'H'.
    "group by aequnr deqktx feqfnr eidate erecdu erecdv.
    "endselect.
    LIT
    select MAX( eidate ) Min( eidate ) MAX( erecdv ) MIN( erecdv ) SUM( e~recdv )
    into (wa_final-max_date,wa_final-min_date, wa_final-max_lit, wa_final-min_lit ,  wa_final-t_max_min_lit )
    from equi AS a
    inner join equz as b
    on aequnr = bequnr
    inner join iloa as f
    on biloan = filoan
    inner join imptt as c
    on aobjnr = cmpobj
    inner join eqkt as d
    on aequnr = dequnr
    inner join imrg as e
    on epoint = cpoint
    where a~equnr in p_equnr
    and
    e~idate in p_idate and
    e~recdu =  'L' .
    "group by aequnr deqktx feqfnr eidate erecdu erecdv.
    "endselect.
            wa_final-max_date = wa_final-max_date + wa_data-idate .
            wa_final-min_date  = wa_final-min_date + wa_data-idate .
            wa_final-max_km  = wa_final-max_km + wa_data-recdv.
            wa_final-min_km  = wa_final-min_km + wa_data-recdv.
            wa_final-max_hR  = wa_final-max_hr + wa_data-recdv.
            wa_final-min_hR  = wa_final-min_hr + wa_data-recdv.
            wa_final-max_lit = wa_final-max_lit + wa_data-recdv.
             wa_final-t_max_min_km   = ( wa_final-max_km - wa_final-min_km ).
             wa_final-t_max_min_hr  =  ( wa_final-max_hr - wa_final-min_hr ).
             "wa_final-t_max_min_lit   = ( wa_final-max_lit - wa_final-min_lit ).
              wa_final-t_fuel_con = wa_final-t_max_min_lit.
              wa_final-t_km_l = wa_final-t_max_min_km / wa_final-t_max_min_lit.
              wa_final-lit_per_hr  = wa_final-t_max_min_lit / wa_final-t_max_min_hr .    "  fuel comsumed / t_max_min_hr
      IF p_mode = 'A'.
        wa_final-equnr = wa_data-equnr.
        wa_final-eqktx = wa_data-eqktx.
        wa_final-eqfnr = wa_data-eqfnr.
        APPEND wa_final TO i_final.
      ELSE.
        MODIFY i_final FROM wa_final
          TRANSPORTING
              max_date
              min_date
              max_km
              min_km
              max_hr
              min_hr
              max_lit
              min_lit
              t_max_min_km
              t_max_min_hr
              where equnr = wa_data-equnr.
      ENDIF.
    "endselect.
    ENDFORM.                    " PREPARE_FINAL_REC

    Hi Ankit,
    If your quantity depends on your material movement type, then you can create a condition in Calculated Keyfig / Formula.
    That means as per your situation if the material movement type is 101 then quantity is incoming(+) and if the material movement type is 120 then outgoing(-).This can be done if the material movement type is fixed.
    Correct the logic if it is not right.
    Rgs,
    I.R.K

  • Fuel Consumption Report Modification - 21

    Hi Experts
    I am working on fuel consumption modification. can anyone help me how to get max and min value for this program
    I am getting one row correct with equipment no is enter but when I enter the range of equipment no it is taking long time and the result is repeating for each row
    please correct my report
    Thnaks in advanced
    Piroz
    REPORT Z_ESLP_FUEL2 LINE-SIZE  250 LINE-COUNT 75
             NO STANDARD PAGE HEADING.
    TABLES : equi,
             equz,
             imptt,
             imrg,
             eqkt,
             iloa.
    TYPES: BEGIN OF ty_equi," occurs 0,
           equnr type equi-equnr,
           END OF ty_equi.
    TYPES: BEGIN of ty_eqkt," occurs 0,
           equnr type eqkt-equnr,
           eqktx type eqkt-eqktx,
           END OF ty_eqkt.
    TYPES: BEGIN of ty_iloa ,"occurs 0,
           iloan type iloa-iloan,
           eqfnr type iloa-eqfnr,
           END OF ty_iloa.
    TYPES: BEGIN of ty_imptt," occurs 0,
           mpobj type imptt-mpobj,
           END of ty_imptt.
    TYPES: BEGIN of ty_imrg ,"occurs 0,
           idate type imrg-idate,
           recdv type imrg-recdv,
           recdu type imrg-recdu,
           END of ty_imrg.
    TYPES: BEGIN OF ty_data  ,
           equnr      type equnr,         " Euipment no
           eqktx      type eqkt-eqktx,    " Equipment Text
           eqfnr       type iloa-eqfnr,     " Equipment Sort field
           idate      type imrg-idate,    " Measuring Date
           recdu      type imrg-recdu,    " Unit of measuring ='KM','L','H'
           recdv      type imrg-recdv,    " Counter reading data
           END OF ty_data.
    TYPES: BEGIN OF ty_final,
           equnr           type equnr,            "  Equipment no
           eqktx           type eqkt-eqktx,       "  Equipment Text
           eqfnr           type iloa-eqfnr,       "  Equipment Sort field
           min_date        type imrg-idate,       "  Min Date
           min_km          type imrg-recdv,       "  Max Km
           max_km          type imrg-recdv,       "  Min km
           t_max_min_km    type i,                "  Total min_km-max_km
           max_date        type imrg-idate,       "  Max Date
           min_hr          type imrg-recdv,       "  Max hr
           max_hr          type imrg-recdv,       "  Min hr
           t_max_min_hr    type i,                "  Total min_hr-max_hr
           min_lit         type imrg-recdv,       "  Max lit
           max_lit         type imrg-recdv,       "  Min lit
           t_max_min_lit    type i,                "  Total min_lit-max_lit
           fuel_con        type p decimals 2,     "  Total_hrs / t_max_min_hr
           km_l            type p decimals 2,     "  km / L
           lit_per_hr      type i           ,     "  fuel comsumed / t_max_min_hr
           END OF ty_final.
    DATA: i_equi TYPE TABLE OF ty_equi,   "internal table
          wa_equi TYPE ty_equi, " work area
          i_eqkt TYPE TABLE OF ty_eqkt,   "internal table
          wa_eqkt TYPE ty_eqkt, " work area
          i_iloa TYPE TABLE of ty_iloa,   "internal table
          wa_iloa TYPE ty_iloa, " work area
          i_imptt TYPE TABLE of ty_imptt, "internal table
          wa_imptt TYPE ty_imptt,
          i_imrg  TYPE TABLE of ty_imrg,  "internal table
          wa_imrg TYPE ty_imrg,
          i_data TYPE TABLE OF ty_data,   "internal table
          wa_data TYPE ty_data, " work area
          i_final TYPE TABLE OF ty_final, " internal table
          wa_final TYPE ty_final. " work area
    DATA :  max_date type date ,
             min_date type date,
             max_km TYPE p DECIMALS 2,
             min_km TYPE p DECIMALS 2,
             max_hr TYPE p DECIMALS 2,
             min_hr TYPE p DECIMALS 2,
             max_lit TYPE p DECIMALS 2,
             min_lit TYPE p DECIMALS 2,
             t_max_min_km  TYPE p DECIMALS 2,
             t_max_min_hr TYPE p DECIMALS 2,
             t_max_min_lit TYPE p DECIMALS 2.
    SELECTION-SCREEN BEGIN OF BLOCK blk WITH FRAME.
    SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001.
    SELECT-OPTIONS: p_equnr FOR equi-equnr, "no-extension no intervals,
                    p_idate FOR imrg-idate.  "NO-EXTENSION NO INTERVALS OBLIGATORY,
                   " p_recdu FOR imrg-recdu." NO-EXTENSION NO INTERVALS ."default 'M3'" OBLIGATORY.
    SELECTION-SCREEN END OF BLOCK blk1.
    SELECTION-SCREEN BEGIN OF BLOCK blk2 WITH FRAME TITLE text-002.
    SELECTION-SCREEN END OF BLOCK blk2.
    SELECTION-SCREEN END OF BLOCK blk.
    TOP-OF-PAGE.
      FORMAT INTENSIFIED ON.
      WRITE:/1(40) ' INVESTMENT LIMITED  '.
      WRITE:/50(40) ' FUEL CONSUMPTION REPORT ' CENTERED   ,
              2 'Page', sy-pagno.
      FORMAT INTENSIFIED OFF.
      WRITE:/50(40) '----
    ' CENTERED .
      FORMAT INTENSIFIED ON.
      WRITE:/2 sy-datum COLOR 3, sy-uzeit .
      "WRITE:/1 S903-SPMON ."p_yearf.
      ULINE.
      "CENTERED.
      write: /2 'Date From     :'.
      write: /2 'Equipment No  :'.
      write: /2 'Unit          :'.
      SKIP.
      ULINE.
      WRITE:/1 sy-vline,
        2   'EQUIP NO',              10 sy-vline,
        11  'NAME',                  40 sy-vline,
        41  'SORT',                  60 sy-vline,
        61  'MIN DATE',              74 sy-vline,
        75  'MIN KM',                87 sy-vline,
        88  'MAX DATE',                100 sy-vline,
        101  'MAX KM' ,              113 sy-vline,
        114 'TOTAL MAX-MIN',                126 sy-vline,
        127  'MIN HR',               139 sy-vline,
        140 'MAX HR',                152 sy-vline,
        153 'TOTAL MAX-MIN' ,               167 sy-vline,
        168 'MIN LIT',               180 sy-vline,
        181 'MAX LIT',               193 sy-vline,
        194 'TOTAL LIT',             206 sy-vline,
        207 'FUEL CON',              219 sy-vline,
        220 'KM L',                  232 sy-vline,
        233 'LIT PER KM',            246 sy-vline.
      FORMAT COLOR 3 ON.
      ULINE.
    END-OF-PAGE.
    START-OF-SELECTION.
    select a~equnr d~eqktx f~eqfnr e~idate e~recdu e~recdv
    into corresponding fields of table i_data
    from equi AS a
    inner join equz as b
    on a~equnr = b~equnr
    inner join iloa as f
    on b~iloan = f~iloan
    inner join imptt as c
    on a~objnr = c~mpobj
    inner join eqkt as d
    on a~equnr = d~equnr
    inner join imrg as e
    on e~point = c~point
    where a~equnr in p_equnr
    and
    e~idate in p_idate and
    e~recdu in ('KM','L','H').
    "e~recdu in p_recdu.
    equi
    *select equnr from equi into table i_equi
    *for all entries in I_DATA
    **where objnr = i_equnr-mpobj.
    *where equnr = i_data-equnr.
    *endselect.
    eqkt
    *select equnr eqktx into table I_eqkt
    *from eqkt
    *FOR ALL ENTRIES IN I_DATA
    *where equnr = i_data-Equnr.
    *endselect.
    iloa
    *select eqfnr into table I_iloa
    *from equz
    *FOR ALL ENTRIES IN I_DATA
    *on equziloan = iloailoan
    *where iloan = i_data-iloan .
    *endselect.
    imrg
    *select idate recdv recdu into table I_imrg
    *from imrg
    *FOR ALL ENTRIES IN I_DATA
    *where imrg~objnr = i_date-mpobj.
    *endselect.
    loop  at i_data into wa_data.
    CLEAR: wa_final.
      READ TABLE i_final into wa_final
               with key equnr = wa_data-equnr.
        if sy-subrc EQ 0.
         PERFORM prepare_get_equi.
         PERFORM prepare_get_eqkt.
         PERFORM prepare_get_iloa.
         PERFORM prepare_get_imptt.
         PERFORM prepare_get_imrg.
          PERFORM prepare_final_rec USING'M'. " Modify Existing Record
          ElSE.
          PERFORM prepare_final_rec USING'A'. " Append New Record.
        ENDIF.
        ENDLOOP.
        LOOP AT i_final into wa_final.
          SORT i_final by equnr  descending.
        at new equnr.
        read table i_final into wa_final index sy-tabix.
    WRITE:/1 sy-vline,
    2  wa_final-equnr                                                 , 10 sy-vline,
    11 wa_final-eqktx                                                 , 40 sy-vline,
    41 wa_final-eqfnr                                                 , 60 sy-vline,
    61 wa_final-min_date                                              , 74 sy-vline,
    75 wa_final-min_km EXPONENT 0 DECIMALS 2   LEFT-JUSTIFIED           , 87 sy-vline,
    88 wa_final-max_date EXPONENT 0 DECIMALS 2   LEFT-JUSTIFIED         , 100 sy-vline,
    101 wa_final-max_km EXPONENT 0 DECIMALS 2   LEFT-JUSTIFIED          , 113 sy-vline,
    114 wa_final-t_max_min_km EXPONENT 0 DECIMALS 2 LEFT-JUSTIFIED    , 126 sy-vline COLOR 2,
    127 wa_final-min_hr EXPONENT 0 DECIMALS 2   LEFT-JUSTIFIED          , 139 sy-vline,
    140 wa_final-max_hr EXPONENT 0 DECIMALS 2 LEFT-JUSTIFIED          , 152 sy-vline,
    168 wa_final-min_lit EXPONENT 0 DECIMALS 2  LEFT-JUSTIFIED         , 180 sy-vline,
    181 wa_final-max_lit EXPONENT 0 DECIMALS 2 LEFT-JUSTIFIED         , 193 sy-vline,
    194 wa_final-t_max_min_lit EXPONENT 0 DECIMALS 2 LEFT-JUSTIFIED   , 206 sy-vline COLOR 2.
    *168 wa_final-min_lit EXPONENT 0 DECIMALS 2  LEFT-JUSTIFIED         , 180 sy-vline,
    *194 wa_final-t_max_min_lit EXPONENT 0 DECIMALS 2 LEFT-JUSTIFIED   , 206 sy-vline COLOR 2,
    *207 wa_final-fuel_con EXPONENT 0 DECIMALS 2 LEFT-JUSTIFIED        , 219 sy-vline,
    *220 wa_final-km_l EXPONENT 0 DECIMALS 2 LEFT-JUSTIFIED            , 232 sy-vline,
    *233 wa_final-lit_per_hr EXPONENT 0 DECIMALS 2 LEFT-JUSTIFIED      , 246 sy-vline.
    uline.
    uline .
    endloop.
    FORM prepare_final_rec  USING    p_mode TYPE char1.
    select MAX( eidate ) Min( eidate ) MAX( erecdv ) MIN( erecdv )
    into  corresponding fields of (wa_final-max_date,wa_final-min_date, wa_final-max_km , wa_final-min_km)
    from equi AS a
    inner join equz as b
    on aequnr = bequnr
    inner join iloa as f
    on biloan = filoan
    inner join imptt as c
    on aobjnr = cmpobj
    inner join eqkt as d
    on aequnr = dequnr
    inner join imrg as e
    on epoint = cpoint
    where a~equnr in p_equnr
    and
    e~idate in p_idate and
    e~recdu =  'KM' .
    "group by aequnr deqktx feqfnr eidate erecdu erecdv.
    "endselect.
    select MAX( eidate ) Min( eidate ) MAX( erecdv ) MIN( erecdv )
    into corresponding fields of (wa_final-max_date, wa_final-min_date, wa_final-max_hr, wa_final-min_hr)
    from equi AS a
    inner join equz as b
    on aequnr = bequnr
    inner join iloa as f
    on biloan = filoan
    inner join imptt as c
    on aobjnr = cmpobj
    inner join eqkt as d
    on aequnr = dequnr
    inner join imrg as e
    on epoint = cpoint
    where a~equnr in p_equnr
    and
    e~idate in p_idate and
    e~recdu =  'H'.
    "group by aequnr deqktx feqfnr eidate erecdu erecdv.
    "endselect.
    select MAX( eidate ) Min( eidate ) MAX( erecdv ) MIN( erecdv ) SUM( e~recdv )
    into (wa_final-max_date,wa_final-min_date, wa_final-max_lit, wa_final-min_lit ,  wa_final-t_max_min_lit )
    from equi AS a
    inner join equz as b
    on aequnr = bequnr
    inner join iloa as f
    on biloan = filoan
    inner join imptt as c
    on aobjnr = cmpobj
    inner join eqkt as d
    on aequnr = dequnr
    inner join imrg as e
    on epoint = cpoint
    where a~equnr in p_equnr
    and
    e~idate in p_idate and
    e~recdu =  'L' .
    "group by aequnr deqktx feqfnr eidate erecdu erecdv.
    "endselect.
             wa_final-t_max_min_km   = ( wa_final-max_km - wa_final-min_km ).
             wa_final-t_max_min_hr  =  ( wa_final-max_hr - wa_final-min_hr ).
             "wa_final-t_max_min_lit   = ( wa_final-max_lit - wa_final-min_lit ).
            wa_final-fuel_con =
            fuel_con        type p decimals 2,     "  Total_hrs / t_max_min_hr
            km_l            type p decimals 2,     "  km / L
            lit_per_hr      type i           ,     "  fuel comsumed / t_max_min_hr
      IF p_mode = 'A'.
        wa_final-equnr = wa_data-equnr.
        wa_final-eqktx = wa_data-eqktx.
        wa_final-eqfnr = wa_data-eqfnr.
        APPEND wa_final TO i_final.
      ELSE.
        MODIFY i_final FROM wa_final
          TRANSPORTING
              max_date
              min_date
              max_km
              min_km
              max_hr
              min_hr
              max_lit
              min_lit
              t_max_min_km
              t_max_min_hr
              where equnr = wa_data-equnr.
      ENDIF.
    "endselect.
    ENDFORM.                    " PREPARE_FINAL_REC

    Hi,
      I don't think so that there is such report which will give you operation wise consumption but you can make that fuel consumption as a activity type in ur standard value key and make some std value to put it in the routing, then if you go for operation wise confirmation then in that screen you will be able to put the consumption details in it.
    you can take a report of that also in COOIS.
    order wise consumption you can get from order report itself
    reward poits if you find it useful.

  • Error in Batch Specific Unit of Measure

    Dear Friends,
    I am maintaining Batch Specific Unit of Measure with Usage as Product Unit for a Raw Material.
    Base Unit of Measure : NOS
    PO Unit : KG
    Batch Specific Unit of Measure : KGP (KG Per Piece)
    When I am doing GRN, I am entering
    Quantity in Unit of Entry = 7181.7 KG
    Quantity in Stock Keeping Unit = 6704 NOS
    The System is giving an error:
    The qty stored that was entered is adjusted
    Message no. XU040
    Plese Help me.
    Thanks
    Prashant Atri

    Hello,
    As you have different units of measure, review information on  conversion with proportion/product unit in note 362932.
    See also notes 312510 and  515187
    Regards

  • FBCJ Error - Enter a vendor for this accounting transaction

    Dear Experts,
    I am trying to enter expenses and I have mentioned Vendor Account No. in the Vendor field using splitting option with combination of Vendor Pay/Rec and All Expenses Business Transaction. But the document is not getting posted and giving the error - "Enter a vendor for this accounting transaction". But if I dont use split option it saves.
    This problem I am facing for the last 2 days only. Can you suggest what could be the reason for this error.
    Thanks,
    Deb

    Dear !!!
    I have done everything as you suggested, but it is still showing the same message. Can you please look in to this again.
    Thanks in advance !!!!
    Deb

  • Batch specific unit of measure in process order

    Hello,
    I have a BOM with a component with active ingredient.
    Batches are classified and transaction MMBE shown stock correctly in both units.
    But when creating the process order I get two items with same item numer in the material list.
    One for batch specifiv unit of measure which is fine.
    I also get another line in the base unit of measure.
    In table RESB both records have movement allowed so they show up in MIGO.
    This increases the total requirements for the component.
    What is happening??
    Best regards,
    TOr

    Thanks for caring!
    As for transaction MMBE it all looks fine. So basic definitions must be OK up to that point.
    I think the point is to set requirement for the amount of active ingredient.
    Do the batch determination for this.
    Do the goods issue in physcial quantity which is the base unit of measure.
    I did try now with KG in the BOM. I still get  double items in the process order. Now both in KG.
    One line is correclty copied.
    The incorrect line which is the same in both cases says 1 KG. which is the correct conversion from  0,01KAI.
    Regards,
    Tor

  • Batch-specific Unit of Measures

    Hi,
    1. I have activating batch-specific Unit of Measures, but in MIGO don't show me field for input batch unit. Can you tell me how and where set up - for working with batch-specific Unit of measures.
    2. Which tables link is between batch and classification, where I use class type 023-batch. (which fields can I join).
    Thanks for your advice.

    Batch Specific Unit of measures is what was originally called Active Ingredients Management.
    You need to set up QM and classification for this, MIGO will not give you additional field for entering quantity in separate UOM
    Lakshman

  • FB70 why does system show warning message "enter true account assignment" ?

    FB70 why does system show warning message "enter a true account assignment object with revenues" ?
    i enter profit center but i still get warning message "enter a true account assignment object with revenues" 
    what should i do ?
    my  system have CO-PA .

    Dear,
    Please see that the profit center which you are entering in FB70 must have segment.
    still it gives warning message do worry enter it will post the transaction.
    bsrao

  • Error Message "No batch input data for screen SAPMF05A 0700" for FV60&FB60

    Dear All,
      I doing a BDC Upload program for Create Vendor Invoice and Park using FV60 ,But i can't upload successfully by Batch Input method and i am gettin the Error Message "No batch input data for screen SAPMF05A 0700'.I tried using FB60 and got the same error message. When i do in the direct method i can able to do it ,But can't park the document successfully and can do it untill sumilate only.
    How to overcome this issue and if you already encounter this kind of problem please advice me.
    Thanks in Advance.
    Deesanth

    Hi,
      Below is my recording.
        perform bdc_dynpro      using 'SAPMF05A'     '1100'.
        perform bdc_field       using 'INVFO-ACCNT'  gwa_inv_up-lifnr.
        perform bdc_field       using 'INVFO-BLDAT'  gwa_inv_up-bldat.
        perform bdc_field       using 'INVFO-XBLNR'  gwa_inv_up-xblnr.
        perform bdc_field       using 'INVFO-BUDAT'  gwa_inv_up-budat.
        perform bdc_field       using 'INVFO-MONAT'  '9'.
        perform bdc_field       using 'INVFO-BLART'  gwa_inv_up-blart.
        perform bdc_field       using 'INVFO-WRBTR'  gwa_inv_up-dmbtr.
        perform bdc_field       using 'INVFO-WAERS'  gwa_inv_up-waers.
        perform bdc_field       using 'INVFO-XMWST'  gwa_inv_up-xmwst.
        perform bdc_field       using 'INVFO-MWSKZ'  'P0'.
        perform bdc_field       using 'INVFO-SGTXT'  gwa_inv_up-sgtxt.
        perform bdc_dynpro      using 'SAPMF05A'     '1100'.
        perform bdc_field       using 'BDC_OKCODE'   '=PAYM'.
        perform bdc_field       using 'INVFO-GSBER'  gwa_inv_up-gsber.
        perform bdc_dynpro      using 'SAPMF05A'     '1100'.
        perform bdc_field       using 'BDC_OKCODE'   '=BS'.
        perform bdc_field       using 'INVFO-ZLSCH'  gwa_inv_up-zlsch.
        cnt = 1.
        cnt1 = 1.
        clear gwa_inv_line.
        loop at gt_inv_up  into gwa_inv_line  where indic = 'D'
                                       and count = gwa_inv_up-count.
          if cnt1 gt 1.
            concatenate 'ACGL_ITEM-MARKSP(' cnt ')' into fld.
            perform bdc_field using fld 'X'.
            perform bdc_dynpro using 'SAPMF05A' '1100'.
            perform bdc_field using 'BDC_OKCODE' '=0005'.
          endif.
          concatenate 'ACGL_ITEM-HKONT(' cnt ')' into fld.
          perform bdc_field       using fld gwa_inv_line-lifnr.
          concatenate 'ACGL_ITEM-SHKZG(' cnt ')' into fld.
          perform bdc_field       using fld gwa_inv_line-shkzg.
          concatenate 'ACGL_ITEM-WRBTR(' cnt ')' into fld.
          perform bdc_field       using fld gwa_inv_line-dmbtr.
          concatenate 'ACGL_ITEM-MWSKZ(' cnt ')' into fld.
          perform bdc_field       using fld gwa_inv_line-mwskz.
          concatenate 'ACGL_ITEM-SGTXT(' cnt ')' into fld.
          perform bdc_field       using fld gwa_inv_line-sgtxt.
          concatenate 'ACGL_ITEM-GSBER(' cnt ')' into fld.
          perform bdc_field       using fld gwa_inv_line-gsber.
          concatenate 'ACGL_ITEM-KOSTL(' cnt ')' into fld.
          perform bdc_field       using fld gwa_inv_line-kostl.
          concatenate 'ACGL_ITEM-PROJK(' cnt ')' into fld.
          perform bdc_field       using fld gwa_inv_line-posid.
          concatenate 'ACGL_ITEM-FISTL(' cnt ')' into fld.
          perform bdc_field       using fld gwa_inv_line-fistl.
          concatenate 'ACGL_ITEM-FIPOS(' cnt ')' into fld.
          perform bdc_field       using fld gwa_inv_line-fipos.
          concatenate 'ACGL_ITEM-GEBER(' cnt ')' into fld.
          perform bdc_field       using fld gwa_inv_line-geber.
          perform bdc_field       using 'BDC_CURSOR' fld.
          cnt1 = cnt1 + 1.
        endloop.
        perform bdc_dynpro using 'SAPMF05A' '1100'.
        perform bdc_field  using 'BDC_OKCODE' '=BS'.
        perform bdc_dynpro      using 'SAPMSSY0' '0120'.
        perform bdc_field       using 'BDC_OKCODE' '=BP'.
        call transaction 'FB60' using gt_bdcdata mode 'N' pdate 'S'
                                        messages into gt_bdc_messages.
    Thanks,
    Deesanth

Maybe you are looking for