Post a mail on a particular date

We have developed a site for a greeting shop.. Here we have few sanple cards to be send on an occassion.
The problem here is, we need to send a mail on some other day(day selected by him - greater than today) automatically.
like in greetings.yahoo.com..
awaiting for your suggestions..

How about a class extended from java.lang.Thread or implementing java.lang.Runnable which stores "mails for future sending" and checks maybe every minute if a mail has to be sent...
Regards,
Schlunz

Similar Messages

How to send a mail on a particular date

hello everybody.
i am developing a greeting site.
where in i need to send a mail on a particular date, which is greater than today. how can i send mail on a pre selected date.
my server is IIS and i am using java servlets and java mail api.
please tell me if anybody having the solution.
or please mail me to [email protected]
thank you
sambareddy
hyderabad

As far as I know there is no method in JavaMail for sending a message on a particular date.
However you can use the Java.util.Timer and java.util.TimerTask class to do this.
In the class that you send your message from
public class SendMessage extends TimerTask{
public void run(){
//send message here
TimerTask implements Runnable so a thread can be created here.
To call the thread:
public class CallMessage{
public static void mail(String args[]){
SendMessage sm = new SendMessage();
Timer timer = new Timer();
timer.schedule(sm, 10000, 10000)
//wait for 10 seconds and repeat in 10 seconds
There are a number of different schedule methods available for whatever you need to do.
Hope this helps!

JavaMail - send mail on a specific date

Is it possible to send a mail on a particular date? Does JavaMail support this option?
My application has to send a mail to the recipients 24 hours after the user press the "send" button. I searched the forum and the only solution I found was to use threads. This solution isn't good for me (since the user can shutdown his computer during this time).
Does anyone know another solution? or has another idear?

I do not know of any feature in the e-mail protocol (not just Java's implementation of it) that would support this.
However, instead of sending the e-mail from the client, could you just send a request to a server and have the server send all e-mails when they are due? There would still be the problem of the server being down and any delay in the actual routing of the message but these issues will probably always exist due to the design.

Functional Specification For Opening And closing stock On Particular Date

Dear Gurus,
I am creating report for opening and closing stock on particular date in which batch and storage location should also be included. I want to know the tables and fields for the same.I have searched the forum and got report on month basis but I want this report on posting day basis.kindly suggest tables and fields. Thanks in Advance

Dear sir,
There are many other colums that client wants to add which are not present in MB5B transaction.columns which client wants to add are as follows...
Material Number
Material Description
Material Type
Material Group
External material Group
Movement Type
Plant
Storage Location
Customer Number
Customer Name
Vendor Number
Vendor Name
Posting Date     Receipt Doc. Number
Issue Doc. Number
Reference Issue Document Number
Opening Stock Quanity
Material Receipt Quantity
Material Issue Quantity
Material Closing Stock Quantity
Value Of Closing Stock
And for this I want tables and logic for the same. kindly provide the solution for the same.

Closing stock of a particular date

how to get plant wise material closing stock on any particular date. say previous months end date. I am calculating that from MSEG table with the help of MSEGINSMK and MSEGSHKZG field. (with date filtaration by joining MBLNR of MKPF table) But stock is showing different with the closing stock showing in MB5B report for that date. I don't know which BWART of MSEG table to be excluded. My email id is [email protected]

Hi,
This is a stock aging report, you can use this for reference.
Logic: Based on current stock and value from MBEW table. The latest receipt dates were taken till the qty tallies off.Rejections and reversals are considered.
The movement types considered are ('101','102','105','106','122','123','131','132','301','302','309','310','501','502','531','532','561','562','701','702').
*& Report ZMM03_TRY                                                 *
REPORT ZMM03 LINE-SIZE 226
               LINE-COUNT 35(2)
                NO STANDARD PAGE HEADING..
TABLES : S032, "Current Stock And Grouping Terms
         MBEW, "Material Valuation
         T023T, "Material Group Desc.
         MAKT, "Material Description
         EKPO. "Purchasing Document Item.
DATA : BEGIN OF T_HEADER OCCURS 0,
       MTART LIKE MARA-MTART,
       MATNR LIKE MBEW-MATNR,
       BWKEY LIKE MBEW-BWKEY,
       MATKL LIKE MARA-MATKL,
       MAKTX LIKE MAKT-MAKTX,
       MEINS LIKE MARA-MEINS,
       LBKUM LIKE MBEW-LBKUM,
       SALK3 LIKE MBEW-SALK3,
       VERPR LIKE MBEW-VERPR,
       CLSTK LIKE MBEW-LBKUM,
       CLVAL LIKE CKMLCR-SALK3,
       UNIT LIKE CKMLCR-PVPRS,
       END OF T_HEADER.
DATA : BEGIN OF T_MSEG OCCURS 0,
       MATNR LIKE MSEG-MATNR,
       WERKS LIKE MSEG-WERKS,
       BUDAT LIKE MKPF-BUDAT,
       MBLNR LIKE MKPF-MBLNR,
       MJAHR LIKE MKPF-MJAHR,
       ZEILE LIKE MSEG-ZEILE,
       LFBNR LIKE MSEG-LFBNR,
       LFBJA LIKE MSEG-LFBJA,
       LFPOS LIKE MSEG-LFPOS,
       BWART LIKE MSEG-BWART,
       MENGE LIKE MSEG-MENGE,
       EBELN LIKE MSEG-EBELN,
       EBELP LIKE MSEG-EBELP,
       XAUTO LIKE MSEG-XAUTO,
       UMMAT LIKE MSEG-UMMAT,
       UMWRK LIKE MSEG-UMWRK,
       MARK(1),
       END OF T_MSEG.
TYPE-POOLS : SLIS.
DATA : L_STOCK TYPE MSEG-MENGE.
DATA : WA_MSEG LIKE T_MSEG.
DATA : WA_MSEG1 LIKE T_MSEG.
DATA : T_ITEMS LIKE T_MSEG OCCURS 0 WITH HEADER LINE.
DATA : T_CUR_STOCK LIKE T_MSEG OCCURS 0 WITH HEADER LINE.
DATA : L_LBKUM TYPE MBEW-LBKUM.
DATA : BEGIN OF T_OUTPUT OCCURS 0,
         WERKS LIKE MSEG-WERKS,
         MATNR LIKE MSEG-MATNR,
         BUDAT LIKE MKPF-BUDAT,
         MENGE LIKE MSEG-MENGE,
         PDAYS TYPE I,
         PVAL TYPE MSEG-MENGE,
         MAKTX LIKE MAKT-MAKTX,
         CQTY LIKE MSEG-MENGE,
         CPRC LIKE MBEW-SALK3,
       END OF T_OUTPUT.
DATA: GRID_TAB TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE.
DATA : T_SORT TYPE SLIS_T_SORTINFO_ALV,
       WA_SORT TYPE SLIS_SORTINFO_ALV.
*AT SELECTION-SCREEN.
SELECTION-SCREEN BEGIN OF BLOCK 1 WITH FRAME TITLE TEXT-014.
SELECTION-SCREEN SKIP 1.
PARAMETERS : P_DATE LIKE S032-LETZTABG OBLIGATORY DEFAULT SY-DATUM.
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN END OF BLOCK 1.
SELECTION-SCREEN BEGIN OF BLOCK 2 WITH FRAME TITLE TEXT-015.
PARAMETERS     : P_WERKS    TYPE S032-WERKS OBLIGATORY.
SELECT-OPTIONS : S_LGORT    FOR S032-LGORT,
                 S_MATNR    FOR S032-MATNR.
SELECTION-SCREEN END OF BLOCK 2.
SELECTION-SCREEN BEGIN OF BLOCK 3 WITH FRAME TITLE TEXT-016.
SELECT-OPTIONS : S_MTART    FOR S032-MTART,
                 S_MATKL    FOR S032-MATKL.
SELECTION-SCREEN END OF BLOCK 3.
IF P_DATE IS INITIAL AND
    P_WERKS IS INITIAL AND
    S_LGORT IS INITIAL AND
    S_MATNR IS INITIAL AND
    S_MTART IS INITIAL AND
    S_MATKL IS INITIAL.
MESSAGE I398(00) WITH 'Enter Selection Critirea'(019).
SY-SUBRC = '1'.
ELSE.
SELECT AMATNR ABWKEY BMATKL BMTART CMAKTX BMEINS A~LBKUM
         A~SALK3
       INTO CORRESPONDING FIELDS OF TABLE T_HEADER
       FROM MBEW AS A INNER JOIN MARA AS B ON AMATNR = BMATNR
                      INNER JOIN MAKT AS C ON AMATNR = CMATNR
                                        WHERE A~MATNR IN S_MATNR
                                          AND A~BWKEY EQ P_WERKS
                                          AND MATKL IN S_MATKL
                                          AND MTART IN S_MTART
                                          AND BWTAR EQ ' '
                                          AND C~SPRAS = SY-LANGU.
IF SY-SUBRC EQ 0.
    SELECT ABUDAT AMBLNR AMJAHR BZEILE BMATNR BWERKS B~BWART
           BMENGE BLFBNR BLFBJA BLFPOS BEBELN BEBELP B~XAUTO
           BUMMAT BUMWRK
        INTO CORRESPONDING FIELDS OF TABLE T_MSEG
        FROM MKPF AS A INNER JOIN MSEG AS B ON AMBLNR = BMBLNR
                                           AND AMJAHR = BMJAHR
         FOR ALL ENTRIES IN T_HEADER
                                         WHERE A~BUDAT <= P_DATE
                                           AND B~MATNR = T_HEADER-MATNR
                                           AND B~WERKS = T_HEADER-BWKEY
                                           AND B~BWART IN ('101',
                                                           '102',
                                                           '105',
                                                           '106',
                                                           '122',
                                                           '123',
                                                           '301',
                                                           '302',
                                                           '701',
                                                           '702',
                                                           '131',
                                                           '132',
                                                           '309',
                                                           '310',
                                                           '501',
                                                           '502',
                                                           '531',
                                                           '532',
                                                           '561',
                                                           '562').
    PERFORM GET_DEAD_STOCK.
    PERFORM DISPLAY_OUTPUT.
ELSE.
    MESSAGE S398(00) WITH 'No Data found for'(013)
    'Given Selection Critirea'(017).
    LEAVE LIST-PROCESSING.
ENDIF.
ENDIF.
*&      Form get_dead_stock
      text
FORM GET_DEAD_STOCK .
LOOP AT T_HEADER.
    SORT T_MSEG BY MATNR WERKS BUDAT DESCENDING MBLNR DESCENDING.
    LOOP AT T_MSEG WHERE MATNR = T_HEADER-MATNR
                     AND WERKS = T_HEADER-BWKEY
                     AND ( BWART = '101' OR
                           BWART = '105' OR
                           BWART = '501' OR
                           BWART = '531' OR
                           BWART = '561' OR
                           BWART = '701' OR
                           BWART = '309' OR
                           BWART = '301' OR
                           BWART = '131' ).
      IF T_MSEG-BWART = 101.
        READ TABLE T_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
                                   LFBJA = T_MSEG-MJAHR
                                   LFPOS = T_MSEG-ZEILE
                                   BWART = 102.
        IF SY-SUBRC = 0.
          T_MSEG-MARK = 'X'.
          MODIFY T_MSEG.
          CONTINUE.
        ENDIF.
        READ TABLE T_MSEG INTO WA_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
                                   LFBJA = T_MSEG-MJAHR
                                   LFPOS = T_MSEG-ZEILE
                                   BWART = 122.
        IF SY-SUBRC = 0.
          READ TABLE T_MSEG INTO WA_MSEG1 WITH KEY LFBNR = WA_MSEG-MBLNR
                                     LFBJA = WA_MSEG-MJAHR
                                     LFPOS = WA_MSEG-ZEILE
                                     BWART = 123.
          IF SY-SUBRC EQ 0.
            WA_MSEG-MARK = 'X'.
            MODIFY T_MSEG FROM WA_MSEG.
            CONTINUE.
          ELSE.
            IF T_MSEG-MENGE EQ WA_MSEG-MENGE.
              T_MSEG-MARK = 'X'.
              MODIFY T_MSEG.
              CONTINUE.
            ELSE.
              T_MSEG-MENGE = T_MSEG-MENGE - WA_MSEG-MENGE.
              MODIFY T_MSEG.
            ENDIF.
          ENDIF.
        ENDIF.
      ELSEIF T_MSEG-BWART = 105.
        READ TABLE T_MSEG INTO WA_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
                                   LFBJA = T_MSEG-MJAHR
                                   LFPOS = T_MSEG-ZEILE
                                   BWART = 106.
        IF SY-SUBRC = 0.
          T_MSEG-MARK = 'X'.
          MODIFY T_MSEG.
          CONTINUE.
        ENDIF.
      ELSEIF T_MSEG-BWART = 131.
        READ TABLE T_MSEG INTO WA_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
                                   LFBJA = T_MSEG-MJAHR
                                   LFPOS = T_MSEG-ZEILE
                                   BWART = 132.
        IF SY-SUBRC = 0.
          T_MSEG-MARK = 'X'.
          MODIFY T_MSEG.
          CONTINUE.
        ENDIF.
      ELSEIF T_MSEG-BWART = 501.
        READ TABLE T_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
                                   LFBJA = T_MSEG-MJAHR
                                   LFPOS = T_MSEG-ZEILE
                                   BWART = 502.
        IF SY-SUBRC = 0.
          T_MSEG-MARK = 'X'.
          MODIFY T_MSEG.
          CONTINUE.
        ENDIF.
      ELSEIF T_MSEG-BWART = 301.
        READ TABLE T_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
                                   LFBJA = T_MSEG-MJAHR
                                   LFPOS = T_MSEG-ZEILE
                                   BWART = 302.
        IF SY-SUBRC = 0.
          T_MSEG-MARK = 'X'.
          MODIFY T_MSEG.
          CONTINUE.
        ENDIF.
      ELSEIF T_MSEG-BWART = 531.
        READ TABLE T_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
                                   LFBJA = T_MSEG-MJAHR
                                   LFPOS = T_MSEG-ZEILE
                                   BWART = 532.
        IF SY-SUBRC = 0.
          T_MSEG-MARK = 'X'.
          MODIFY T_MSEG.
          CONTINUE.
        ENDIF.
      ELSEIF T_MSEG-BWART = 561.
        READ TABLE T_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
                                   LFBJA = T_MSEG-MJAHR
                                   LFPOS = T_MSEG-ZEILE
                                   BWART = 562.
        IF SY-SUBRC = 0.
          T_MSEG-MARK = 'X'.
          MODIFY T_MSEG.
          CONTINUE.
        ENDIF.
      ELSEIF T_MSEG-BWART = 701.
        READ TABLE T_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
                                   LFBJA = T_MSEG-MJAHR
                                   LFPOS = T_MSEG-ZEILE
                                   BWART = 702.
        IF SY-SUBRC = 0.
          T_MSEG-MARK = 'X'.
          MODIFY T_MSEG.
          CONTINUE.
        ENDIF.
      ELSEIF T_MSEG-BWART = 309.
        READ TABLE T_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
                                   LFBJA = T_MSEG-MJAHR
                                   LFPOS = T_MSEG-ZEILE
                                   BWART = 310.
        IF SY-SUBRC = 0.
          T_MSEG-MARK = 'X'.
          MODIFY T_MSEG.
          CONTINUE.
        ELSEIF T_MSEG-XAUTO = ' '.
          T_MSEG-MARK = 'X'.
          MODIFY T_MSEG.
          CONTINUE.
        ELSEIF T_MSEG-MATNR EQ T_MSEG-UMMAT.
          T_MSEG-MARK = 'X'.
          MODIFY T_MSEG.
          CONTINUE.
        ENDIF.
      ENDIF.
      SELECT SINGLE EBELN INTO EKPO-EBELN FROM EKPO
                         WHERE EBELN = T_MSEG-EBELN
                           AND EBELP = T_MSEG-EBELP
                           AND KNTTP = 'K'.
      IF SY-SUBRC = 0.
        T_MSEG-MARK = 'X'.
        MODIFY T_MSEG.
        CONTINUE.
      ENDIF.
     TMENGE = TMENGE - t_mseg-MENGE.
    ENDLOOP.
ENDLOOP.
DELETE T_MSEG WHERE MARK = 'X'.
DELETE T_MSEG WHERE ( BWART = '102' OR
                        BWART = '106' OR
                        BWART = '502' OR
                        BWART = '532' OR
                        BWART = '562' OR
                        BWART = '702' OR
                        BWART = '310' OR
                        BWART = '302' OR
                        BWART = '123' OR
                        BWART = '122' OR
                        BWART = '132' ).
SORT T_HEADER BY MATNR BWKEY.
DELETE ADJACENT DUPLICATES FROM T_HEADER COMPARING MATNR BWKEY.
T_CUR_STOCK[] = T_MSEG[].
SORT T_CUR_STOCK BY MATNR WERKS.
LOOP AT T_CUR_STOCK.
    WA_MSEG = T_CUR_STOCK.
    AT END OF WERKS.
    ENDAT.
ENDLOOP.
LOOP AT T_HEADER.
    CLEAR L_LBKUM.
    L_LBKUM = T_HEADER-LBKUM.
    REFRESH T_ITEMS.
    CLEAR T_ITEMS.
    LOOP AT T_MSEG WHERE MATNR EQ T_HEADER-MATNR
                     AND WERKS EQ T_HEADER-BWKEY.
      T_ITEMS = T_MSEG.
      APPEND T_ITEMS.
      CLEAR T_ITEMS.
    ENDLOOP.
    SORT T_ITEMS BY BUDAT DESCENDING
                    MBLNR DESCENDING.
    CLEAR L_LBKUM.
    LOOP AT T_ITEMS.
      L_LBKUM = T_ITEMS-MENGE - T_HEADER-LBKUM.
      IF L_LBKUM GE 0.
        T_OUTPUT-MATNR = T_HEADER-MATNR.
        T_OUTPUT-WERKS = T_HEADER-BWKEY.
        T_OUTPUT-BUDAT = T_ITEMS-BUDAT.
        T_OUTPUT-MENGE = T_HEADER-LBKUM.
        APPEND T_OUTPUT.
        CLEAR T_OUTPUT.
        EXIT.
      ELSE.
        T_HEADER-LBKUM = T_HEADER-LBKUM - T_ITEMS-MENGE.
        T_OUTPUT-MATNR = T_HEADER-MATNR.
        T_OUTPUT-WERKS = T_HEADER-BWKEY.
        T_OUTPUT-BUDAT = T_ITEMS-BUDAT.
        T_OUTPUT-MENGE = T_ITEMS-MENGE.
        APPEND T_OUTPUT.
        CLEAR T_OUTPUT.
        CONTINUE.
      ENDIF.
    ENDLOOP.
ENDLOOP.
ENDFORM.                    " get_dead_stock
*&      Form DISPLAY_OUTPUT
      text
FORM DISPLAY_OUTPUT .
DATA: L_DAYS TYPE I.
DATA : WA_OUTPUT LIKE T_OUTPUT.
DATA : T_FINAL LIKE T_OUTPUT OCCURS 0 WITH HEADER LINE.
DATA : WA_FINAL LIKE T_OUTPUT.
DATA : L_CQTY TYPE MSEG-MENGE,
         L_CPRC TYPE MBEW-SALK3.
DATA : L_TITLE TYPE LVC_TITLE.
DATA : L_NAME1 TYPE T001W-NAME1.
*C-- Not to output when the quantity is zero.
DELETE T_OUTPUT WHERE MENGE EQ 0.
SORT T_OUTPUT BY WERKS MATNR BUDAT.
LOOP AT T_OUTPUT.
    T_FINAL = T_OUTPUT.
    AT NEW MATNR.
      CLEAR T_HEADER.
      READ TABLE T_HEADER WITH KEY MATNR = T_OUTPUT-MATNR
                                   BWKEY = T_OUTPUT-WERKS.
    ENDAT.
    T_FINAL-MAKTX = T_HEADER-MAKTX.
    IF T_HEADER-LBKUM GT 0.
      T_FINAL-PVAL = ( T_OUTPUT-MENGE * T_HEADER-SALK3 / T_HEADER-LBKUM ).
    ELSE.
      CLEAR T_FINAL-PVAL.
    ENDIF.
    L_CQTY = L_CQTY + T_OUTPUT-MENGE.
    IF T_HEADER-LBKUM GT 0.
      L_CPRC = L_CPRC + ( T_OUTPUT-MENGE * T_HEADER-SALK3 / T_HEADER-LBKUM ).
    ENDIF.
    CALL FUNCTION 'HR_SGPBS_YRS_MTHS_DAYS'
      EXPORTING
        BEG_DA        = T_OUTPUT-BUDAT
        END_DA        = P_DATE
      IMPORTING
        NO_CAL_DAY    = L_DAYS
      EXCEPTIONS
        DATEINT_ERROR = 1
        OTHERS        = 2.
    IF SY-SUBRC <> 0.
      WRITE : 70 'Error While Calculating days'(018) .
    ELSE.
      T_FINAL-PDAYS = L_DAYS.
    ENDIF.
    T_FINAL-CQTY = L_CQTY.
    T_FINAL-CPRC = L_CPRC.
    APPEND T_FINAL.
    AT END OF MATNR.
      CLEAR : L_CPRC, L_CQTY.
    ENDAT.
ENDLOOP.
PERFORM BUILD_FIELD_CATALOG.
WA_SORT-FIELDNAME = 'MATNR'.
WA_SORT-SPOS = '1'.
APPEND WA_SORT TO T_SORT.
SELECT SINGLE NAME1 FROM T001W INTO L_NAME1
WHERE WERKS = P_WERKS.
CONCATENATE 'Plant: ' P_WERKS ',' L_NAME1 INTO L_TITLE.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM = SY-CPROG
      I_GRID_TITLE       = L_TITLE
      IT_FIELDCAT        = GRID_TAB[]
      IT_SORT            = T_SORT
      I_SAVE             = 'A'
    TABLES
      T_OUTTAB           = T_FINAL[].
SORT T_FINAL BY WERKS MATNR BUDAT.
LOOP AT T_FINAL.
   WRITE : /10 T_FINAL-MATNR.
   WRITE : 30 T_FINAL-WERKS.
   WRITE : 40 T_FINAL-BUDAT.
   WRITE : 50 T_FINAL-MENGE.
**C-- FM to find the number of days between
**C-- todays date and the posting date
   CALL FUNCTION 'HR_SGPBS_YRS_MTHS_DAYS'
     EXPORTING
       BEG_DA        = T_FINAL-BUDAT
       END_DA        = P_DATE
     IMPORTING
       NO_CAL_DAY    = L_DAYS
     EXCEPTIONS
       DATEINT_ERROR = 1
       OTHERS        = 2.
   IF SY-SUBRC <> 0.
     WRITE : 70 'Error While Calculating days'(018) .
   ELSE.
     WRITE : 70 L_DAYS.
   ENDIF.
   AT END OF MATNR.
     ULINE.
     READ TABLE T_HEADER WITH KEY MATNR = T_FINAL-MATNR
                                  BWKEY = T_FINAL-WERKS.
     IF SY-SUBRC EQ 0.
       WRITE : /1 'Total Valuated Stock', T_HEADER-LBKUM.
       WRITE : /1 'Value of total valuated Stock', T_HEADER-SALK3.
       ULINE.
     ENDIF.
   ENDAT.
ENDLOOP.
ENDFORM.                    " DISPLAY_OUTPUT
*&      Form BUILD_FIELD_CATALOG
      text
--> p1        text
<-- p2        text
FORM BUILD_FIELD_CATALOG .
DATA : CNT1 TYPE I.
CNT1 = CNT1 + 1.
GRID_TAB-COL_POS = CNT1.
GRID_TAB-SELTEXT_L = 'Material'.
GRID_TAB-FIELDNAME = 'MATNR'.
GRID_TAB-KEY = 'X'.
GRID_TAB-NO_ZERO = 'X'.
GRID_TAB-TABNAME = 'T_FINAL'.
APPEND GRID_TAB.
CLEAR GRID_TAB.
CNT1 = CNT1 + 1.
GRID_TAB-COL_POS = CNT1.
GRID_TAB-SELTEXT_L = 'Material Description'.
GRID_TAB-FIELDNAME = 'MAKTX'.
GRID_TAB-OUTPUTLEN = '30'.
GRID_TAB-KEY = 'X'.
GRID_TAB-NO_ZERO = 'X'.
GRID_TAB-TABNAME = 'T_FINAL'.
APPEND GRID_TAB.
CLEAR GRID_TAB.
CNT1 = CNT1 + 1.
GRID_TAB-COL_POS = CNT1.
GRID_TAB-SELTEXT_L = 'Date of Reciept'.
GRID_TAB-FIELDNAME = 'BUDAT'.
GRID_TAB-KEY = 'X'.
GRID_TAB-NO_ZERO = 'X'.
GRID_TAB-TABNAME = 'T_FINAL'.
APPEND GRID_TAB.
CLEAR GRID_TAB.
CNT1 = CNT1 + 1.
GRID_TAB-COL_POS = CNT1.
GRID_TAB-SELTEXT_L = 'Quantity'.
GRID_TAB-FIELDNAME = 'MENGE'.
GRID_TAB-KEY = 'X'.
GRID_TAB-NO_ZERO = 'X'.
GRID_TAB-TABNAME = 'T_FINAL'.
APPEND GRID_TAB.
CLEAR GRID_TAB.
CNT1 = CNT1 + 1.
GRID_TAB-COL_POS = CNT1.
GRID_TAB-SELTEXT_L = 'Pending Days'.
GRID_TAB-FIELDNAME = 'PDAYS'.
GRID_TAB-KEY = 'X'.
GRID_TAB-NO_ZERO = 'X'.
GRID_TAB-TABNAME = 'T_FINAL'.
APPEND GRID_TAB.
CLEAR GRID_TAB.
CNT1 = CNT1 + 1.
GRID_TAB-COL_POS = CNT1.
GRID_TAB-SELTEXT_L = 'Value'.
GRID_TAB-FIELDNAME = 'PVAL'.
GRID_TAB-KEY = 'X'.
GRID_TAB-NO_ZERO = 'X'.
GRID_TAB-TABNAME = 'T_FINAL'.
APPEND GRID_TAB.
CLEAR GRID_TAB.
CNT1 = CNT1 + 1.
GRID_TAB-COL_POS = CNT1.
GRID_TAB-SELTEXT_L = 'Cumulative Quantity'.
GRID_TAB-FIELDNAME = 'CQTY'.
GRID_TAB-KEY = 'X'.
GRID_TAB-NO_ZERO = 'X'.
GRID_TAB-TABNAME = 'T_FINAL'.
APPEND GRID_TAB.
CLEAR GRID_TAB.
CNT1 = CNT1 + 1.
GRID_TAB-COL_POS = CNT1.
GRID_TAB-SELTEXT_L = 'Value of Cumulative Quantity'.
GRID_TAB-OUTPUTLEN = '30'.
GRID_TAB-FIELDNAME = 'CPRC'.
GRID_TAB-KEY = 'X'.
GRID_TAB-NO_ZERO = 'X'.
GRID_TAB-TABNAME = 'T_FINAL'.
APPEND GRID_TAB.
ENDFORM.                    " BUILD_FIELD_CATALOG

Closing stock as off a particular date

How to write a query for closing stock (in quantity) for all items by group by warehouse for a particular date?
Thank you.

the standard stock count in SAP B1 (Inventory>> Inventory Transaction >> Initital Quantity, Inventory Tracking, Stock Posting) is "real time" and not back-dated and the screen will display all items irrespective whether there is stock balance in the system. Anyone has a query where able to have the stock balance generated at any cut-off date, i.e. the stock count can be back-dated and only display those items with quantity (in the system) as at that cut-off date .
Thank you.

Valuated stock as on particular date such as end of the month

Dear Guru,
Can anyone help me out by telling me about "How to get periodic valuated stock quantity i.e. stock for particular plant , storage location as on end of particular month or as on particular date?"
Thanks in advance.
regards,
Manerkar Sameer
Moderator message: please do more research before posting, e.g. ask your functional contact person.
Edited by: Thomas Zloch on Nov 18, 2011 1:18 PM

Hi,
Material is valuated or not depends on Material Type. So, in your case you need to know which material types are valuated. In standard SAP system Material Type UNBW and NLAG are not valuated in term of price, generally others are!
For a particular material: MMBE(Standard report) or MM02 (Accounting view).
Hope helped
Reetesh

Storage location stock with value on a particular date

i m in search of a report or logic which can fetch stock as in mb5b on a particular date. mb5b shows sloc stock but without value and show valuated stock without sloc. can anyone help me out to find such report or give some logic or table from where it can fetch sloc stock with value.
Edited by: Husain Husain on Jan 28, 2010 4:00 PM

Hi,
All the stock related reports like MC.1,MC.5,MCBA etc will give you stock for a particular months range. he only report giving stock on a date is MB5B .However in this report you will not get the storage location stock value.
Now try the report in T Code J3RFLVMOBVED which will serve your purpose .Here in the material parameter tab give your storage location and the date range in the main tab Posting date range and than execute.
Dhruba

Stock Quantity & Stock Value at vendor on a Particular Date

HI,
My client requirement is to get a report for Stock Quantity & Stock Value at vendor on a Particular Date .
Please give suggestions to get the stock & value in tables or Any standard T.codes
Note : I am getting Stock qty on paricular date In MB5B & S_P00_07000140 , but not getting the values
Regards,
PR

HI,
we can get this report thru SAP standard without vendor selection, do the following steps
1. goto MB5B
2. Give plant /material details
3. give selection date
4. select stock type option as special stock
5. select special stoct indicator as "O" for material provided to vendor
excute the same , you will get a report with qty and value posted for the vendor from the plant
here by copying this standard program we can add one more input parameter as vendor, then we can get this report vendorwise also.
try this and let us know
Regards
Sridharan

Stock value and Quantity on a particular date

Hi all,
How to get the Stock value and Quantity on a particular date for the materials
is there any standard report available or from which tables the corresponding data can be fetched...
With Regards,
Vamsi.

Hi
MB5B - Stock on Posting Date
MMBE - Overview of the current stocks of a material at all places within plant
MB52 - Plant Stock availability
Regards
Anandh

Stock/requirement list at a particular date

MD04 gives current stock/requirement list and MD05 gives planning result of last MRP run.
Hoe to see stock/requirement of a particular date

Dear Harshad,
As explained there is no standard report to meet this requirement,but stock on a posting date is possible through MB5B.
If my understanding is correct then this stock/requirements list is a dynamic one(even on a particular date) this list gets updated
for each fixed/planned- receipts/issues.So on the same day there may be number of updated list.So there cant be only one
stock/requirements list on a given particular date.
Correct me if I'm wrong.
Regards
Mangalraj.S

GL balance reupload as of a particular date

Hi.
We need to zero all GL balances upto a certain date (31.03.2007). A certain number of entries have been done before this date but they are not complete. Hence the account balances are not correct. It is a lot of effort to do all those entries. Similarly it is not possible to pass reverse entries to make the balances zero.
Initialize the records so that we can do a fresh upload of balances on a particular date and do entries after that date.
Can anyone help with this? What would be a good way of doing this?
nms

HI,
I am working on FI report, where i need to calculate the G/L account closing balance on a daily basis, which will be used as the opening balance for the next day, please help me out with some sample report or logic to claculate the closing balance day wise.
u can mail me to :[email protected]
Regards
Soyunee.

GL Account balance as of a particular date

Hi,
Is there a report in SAP that gives GL account balances as of a particular date.
Thanks,
Ram

HI,
I am working on FI report, where i need to calculate the G/L account closing balance on a daily basis, which will be used as the opening balance for the next day, please help me out with some sample report or logic to claculate the closing balance day wise.
u can mail me to :[email protected]
Regards
Soyunee.

Restrict PR/PO/GR for a particular company code from particular date

Hi Experts
How we can restrict PR/PO/GR for a particular company code from a particular date?
I know PR is not directly linked with company code
PO can be restricted by deactivating the assignment between company code & plant
GR- we can use posting period option.?
Suggest me the best solution for the above requirment.
Thanks/karthik

hi
Obvoiyusly , you can stop the company code posting by not activating the month end closing of periods (MMPV) in MM and similarly in FI ( OB52).
By removing the assignment you can stop PO creation for the company code but you need to ensure that all the old, un-finished PO/SA and other related activities are taken care off before that.
Regards

Query for onhand qunatity with particular date for eam

hi all ,
following query are showing wrong value for on hand quantity with particular date mean work order issue date for quantity .
can u show me where is problem in this query.
SELECT   ood.organization_name, wrov.concatenated_segments item_number,
         wrov.item_description description, wrov.item_primary_uom_code uom,
        -- SUM (on_hand.on_hand) quantity_in_stock,
          SUM (on_hand.on_hand) + wrov.quantity_issued quantity_in_stock,
         we.wip_entity_name work_order_number,
         TRUNC (we.creation_date) work_order_date,
         fu.user_name work_order_made_by, wrov.quantity_issued,
         trunc(cic.material_cost,2) issue_rate_per_qty,
         wrov.quantity_issued * trunc(cic.material_cost,2) quantity_value,
         --SUM (on_hand.on_hand) - wrov.quantity_issued balace_qty,
         SUM (on_hand.on_hand) balace_qty,
           SUM (on_hand.on_hand)
         * trunc(cic.material_cost,2) COST,
         eam.ATTRIBUTE1 EQUIPEMENT_NO
        -- gcc.SEGMENT6 equipement_no
    FROM wip_entities we,
         wip_requirement_operations_v wrov,
         org_organization_definitions ood,
         mtl_onhand_total_mwb_v on_hand,
         fnd_user fu,
         cst_item_costs cic,
         eam_work_orders_v eam
--                    gl_code_combinations gcc,
--                    WIP_TRANSACTION_ACCOUNTS wta ,
--                    WIP_TRANSACTIONS wt
   WHERE wrov.wip_entity_id = we.wip_entity_id
     AND ood.organization_id = wrov.organization_id
     AND wrov.inventory_item_id = on_hand.inventory_item_id
     AND on_hand.organization_id = ood.organization_id
     AND we.created_by = fu.user_id(+)
     AND cic.inventory_item_id = wrov.inventory_item_id
     AND cic.organization_id = wrov.organization_id
     --AND we.wip_entity_name = '179542'
     AND wrov.organization_id = nvl(:organization_id,wrov.organization_id)
            AND (we.wip_entity_name = :job_order_No OR :job_order_No IS NULL)
            and trunc(we.creation_date) between nvl(:from_date ,trunc(we.creation_date)) and nvl(:too_date ,trunc(we.creation_date))
           and eam.WIP_ENTITY_NAME=we.wip_entity_name
           and eam.WORK_ORDER_STATUS in('Complete','Complete - No Charges' ,'Released')
--                 and gcc.CODE_COMBINATION_ID =wta.REFERENCE_ACCOUNT
--                 and wta.TRANSACTION_ID =wt.TRANSACTION_ID
--                 and we.wip_entity_id =wta.WIP_ENTITY_ID
GROUP BY ood.organization_name,
         wrov.concatenated_segments,
         wrov.item_description,
         wrov.item_primary_uom_code,
         we.wip_entity_name,
         we.creation_date,
         fu.user_name,
         wrov.quantity_issued,
         cic.material_cost,
          eam.ATTRIBUTE1
       -- gcc.SEGMENT6
       order by we.wip_entity_name

I don't think there is any special predicate to do that, Code is simply getting all children of given asset and returning them (Offcource there is some ordering logic). If You want exact informaiton I would suggest to use json call that DAM is making i.e.
HOST:POST/<PATH OF DAM>.assets.json
Or decompile AssetListServlet.java ans see how it is implemeted
Yogesh
www.wemblog.com

Post a mail on a particular date

Similar Messages

Maybe you are looking for