Get Valuation Type (BWTAR) of the last material movements (MM)

Question

Hi people,
My requirement is to create a program to make negative adjustments to material stocks (using BAPI_GOODSMVT_CREATE). As incoming data I have the material along with the quantity to be adjusted. Plant (WERKS) and Storage location (LGORT) are fixed. If the adjustment quantity is inferior to the total stocks on all the batches (I'll get the values from MCHB table and sum them up - Batch and Valuation type in this cases are considered the same, so field CHARG = BWTAR), then I need to know which where the lastly adjusted valuation types, and then make the adjustments on that valuation types.
Which leads me to my question: How do I know which were the latest valuation types for a given movement (101 or 311 in this case) and material? Is the only option to search in tables MSEG/MKPF ordering by date (getting the latest material documents? Do I have other options?
Thanks for your help.

Answer 1

Hi Sai, many thanks for your reply.
But don't think your suggestion would work, because this batches are already created. Besides if I enter to MSEG table only with movement and batch as keys, i'll get thousands of records since this batches are not unique as in other cases.
I don't only need the latest batch, i need the latest batches till the quantity is
covered. Because the quantity to adjust can be greater than that of the latest batch.
I'll give you an example: suppose the actual stocks for a given material in a plant/stge.Loc. are like this:
Batch1 = 30,0
Batch2 = 30,0
Batch3 = 30,0
and they were entered in that order. So my program receives a negative adjustment of 45,0: I need to adjust Batch3 to 0,0 and Batch2 to 15,0.
The problem lies in: how do i know i need to adjust Batch3 first, then Batch2 (and go on till there's nothing to adjust)?
I've been thinking in doing something like this (after verifying that MCHB stocks are greater):
DATA:
  BEGIN OF i_movs OCCURS 0,
    mblnr LIKE mkpf-mblnr,
    mjahr LIKE mkpf-mjahr,
    bldat LIKE mkpf-bldat,
    cputm LIKE mkpf-cputm,
    bwtar LIKE mseg-bwtar,
    menge LIKE mseg-menge,
    meins LIKE mseg-meins,
  END OF i_movs.
SELECT
  a~mblnr a~mjahr a~bldat a~cputm
  b~bwtar b~menge b~meins
INTO TABLE i_movs
FROM mseg AS b
  INNER JOIN mkpf AS a ON
    a~mjahr = b~mjahr AND
    a~mblnr = b~mblnr
WHERE
*-There's an index to this four fields so access should be quick
  b~matnr = 'A1111111111' AND
  b~werks = k_werks AND
  b~lgort = k_lgort AND
  b~bwart IN ('101', '311') AND
  NOT bwtar = ' '.
SORT i_movs DESCENDING BY mblnr mjahr bldat cputm.
And then loop and take the valuation types from my internal table...but i'm not quite satisfied with that because i'll get ALL movements for the material, so the program will grow slower with time as new GM documents are created...
Any other ideas?
Thanks again.