What bean for date selection should I choose?

I need bean for date selection with folowing features:
1) Period selection
2) Internatioanization
I foung some components:
1) http://www.java-calendar.com/
(+) supports all need features
(-) 50$ :(
2) http://www.toedter.com/
(+) free, interationalization
(-) no period selection
3) http://sourceforge.net/projects/jdatechooser
(+) free, supports all need features
(-) project is too young, i'm searching more mature project
I have no time for long searches, so advise me component please.

From your own findings it's between 1 and 3, but 3 is "too young" so it looks like 1. Spend the 50.

Similar Messages

What AIR for android version should I choose to publish Flash game on Google play store ?

My team and I are almost done whith our mobile game development using Flash professional CS6.
We wonder what version of AIR for Android we should publish for as a target (in publish settings)???
because we will publish it on play store and we want it to be compatible with largest number of android phones.
knowing that users have different versions of AIRs, different Flash Players and different OS versions on their phones.
and are there any useful points we should take into consideration when publshing flash game on play store??
thanks,
Abeer

The current version of AIR (version 13) is still compatible with the same set of Android devices as version 3 was, and there no doubt have been a lot of things fixed over the last two years. So, just use AIR 13. It’s currently compatible with over 4000 devices, which should be enough I think!

Can i have html code for date select options (SEARCH HELP)

Hi frinds,
I have a BSP Page with input as date.
Can i have html code for date select options (SEARCH HELP)
Moosa

Hi
Please find the sample code below.
FROM DATE
      <htmlb:inputField id        = "dd"
                        width     = "45%"
                        type      = "DATE"
                        showHelp = "X" <- Search help
                        alignment = "CENTER"
                        maxlength = "10"
                        disabled = "TRUE"
                        value     = "<%= w_FROMDATE %>" />
TO DATE
      <htmlb:inputField id        = "dd"
                        width     = "45%"
                        type      = "DATE"
                        showHelp = "X"
                        alignment = "CENTER"
                        maxlength = "10"
                        disabled = "TRUE"
value     = "<%= w_TODATE %>" />
Thanks
kalyan

How to put up a calendar in VI for date selection?

Hi all,
I need to put up a calendar in my VI for date selection to view historical data like we find on websites of travel agents?
& also guide me how to get this kind of calendar.....
please guide me...
Thanking You,
Vaibhav Gandhi
B.E. Instrumentation & Control,
INDIA
Solved!
Go to Solution.

Thank you so much GURU for your very quick & accurate reply.
Further I need to know, that how I can remove the word 'value' from indicator? i.e. it is giving "Value -> 6/1/2009" on indicator.. I just need '6/1/2009' on indicator...
Can it be possible?
Thanks,
Vaibhav Gandhi
B.E. Instrumentation & Control,
INDIA

Abap Routine for Date selection in Infopackage

Hi
I have to write an abap routine for date selections in the infopackage,
There are two date begda and enda.
Do i code for BEGDA and fill in the begin date using routine and use another routine to fill the ENDA.
JPJP

Hi JP,
If you have two info objects BEGDA and ENDA in the Info package for selection
then you will have to write seperate routine for each of them.
If you want to give single value for each date field then update only the field l_t_range- low otherwise if you want to give range then you can update the internal table fields l_t_range-low and l_t_range-high .
Regards,
Prakash

Popup window for data selection in maintenance view

Hi,
How to create popup window for data selection in maintenance view. For example when you go to view v_t510 in se16, there you will see a popup window to enter values. after you enter the values in that window, then data related to those values that you entered in the popup window will displayed.
How can we do that for the custom maintenance view?
Thanks in advance for your help guys.
Regards,
Srinivas.

In your custom maintainace view, if you select the Data browser / Table view maintainace under the tab "Maint Status" as "Dispaly maintanence allowed with restriction" than system will give you popup to restrict by selection.
Regards,
Naimesh Patel

OLAP variable for data selection

hi all ,
can any own explain how the OLAP variable is used for data selection in the info package. how the value is changing in the Variable.
thanks in advance
rajan

Hi Rajan,
You will not be entering any date value. As Dirk mentions, the value will be filled into the variable by way of an exit, i.e. automatic processing according to some code.
Like your date variable can get you the first of the previous month from the exit processing.
Hope this helps...

Calendar...list function shows only events for date select instead of events from that date forward.

Calendar list function shows only events for date selected....instead of events for date selected and events forward from that date. Is there a setting change needed? Help!

Hi,
Did you check that your universe object referring "Date of Completion" has Date data type?
Can you also provide the BOE verson you are using?
I remembered that the calendars were not displayed in XIR2 version.
Didier

What type of Container Persistence should I choose �?

Hi,
I would like to know... what type of persistence should I choose to manage the entities bean.
At first I choose CMP because it seems to be much easy to understood and maintain, and it seems to work fine with small queries...
Every record of a table of muy RDBMS is represented by CMP Bean... �? is it true �?
What happens if i will like to extract a big table with thousands and thousands records �? does this, affects to the performance of my server �? how can i control...�?
Can I make complex queries with the CMP beans or should i use BMP beans in this case �?
I do not know if the ejb-ql language will result helpful to perform complex queries...
Can you help me �?
Thank you....

Hi,
I would like to know... what type of persistence
should I choose to manage the entities bean.CMP or BMP - those are the two choices.
>
At first I choose CMP because it seems to be much easy
to understood and maintain, and it seems to work fine
with small queries...
Every record of a table of muy RDBMS is represented
by CMP Bean... �? is it true �?True.
>
What happens if i will like to extract a big table
with thousands and thousands records �? does this,
affects to the performance of my server �? how can i
control...�?Yes, indeed, it does affect performance.
One way to handle that is to use a session bean to access all the data at once and then send back a collection of objects. There's a Core J2EE pattern called session facade that can help:
http://java.sun.com/blueprints/corej2eepatterns/Patterns/SessionFacade.html

Rotuine in Infopackage for Data Selection---- Urgent

Hi All,
I have a requirement such that i need to select only balnk Values from cube and send it to another cube .
lets say that in CUBE A is the one cube from which i need to extract the data and send it to CUBE B.(data mart).
In CUBE A , I have field Plant , for this field in CUBE A there are values for it and also with no value i.e ' ' (space).
Now my requirement is I need to extract the data from CUBE A for only those records for the field Plant value is ' ' (blank/space).
For this if we give in the infopackage selection if you give space , it is getting all the records.. and If you go for f4 and select Filter symbol and give single value as ' ' (Space or blank) it is taking as value # , but with zero records.
And one more way is writing a Routine for the data selection..
Can anybody guide me how to write a routine for that or send me the code for the above purpose.
As it is a matter of urgency please help me guys.
mail me to [email protected]

hi,
I have an idea, I do not know will it works. I based on Pradeep code:
data: l_idx like sy-tabix.
read table l_t_range with key
fieldname = 'Zfield'.
l_idx = sy-tabix.
l_t_range-SIGN = 'I'.
l_t_range-OPTION = 'NE'.
l_t_range-low = 'A'.
l_t_range-high = 'ZZZZZZZZZZZZZZ'.
modify l_t_range index l_idx.
p_subrc = 0.
Idea is to exclude all posible strings so maybe l_t_range-high should be '99999999999'. I do not know lenght of your plant characteristic as well so remember about this
Regards,
Andrzej

Using ABAP routines for data selection

Hello,
I want to use ABAP routine to determine value range of data selection in Data Package but when I use routine for one field, selection criterias for other fields are ignored, e.g.:
in Data Package I have two selection fields:
CPUDT Accounting Document Entry Date
AEDAT Date of the Last Document Change by Transaction
For CPUDT I wrote ABAP routine
and for AEDAT I have just typed in period of time.
I started data extraction and open Monitor for this Data Package.
At Header tag I checked selections info and there is selection only for CPUDT.
Could somebody explain me is it normal system behaviour?
Thanks
Andrzej

Thanks for reply but that would be too easy...
I have tried your advice but nothing changed.
I think this is data extraction configuration problem.
Andrzej

What kind of data structure should I use?

I have a user input dialog basically like following which need user input the sample number to specifiy each file belongs to which sample:
user input the sample number in the following dialog:
file name             sample
test 1                  1
test2                   2
test3                   1
test4                   2In another words, each sample could include multiple files, each file has a column of data. I tried to get
a data structure which specifies the sample and file relationship, to get an idea of what kind of files are in
one sample. I tried to use hashmap or hashtable, but they ask the key must be unique. What I need is to get the sample data structure for the later data processing.
thanks in advance!

You could make a Sample object, which creates a List of file names. Then put SampleNumber and SampleObject into a Map...
class Sample {
    java.util.List fileNames;
    Sample()
    { fileNames = java.util.ArrayList(5); }
    addFile(String fName)
    { fileNames.add(fName); }
    String[] getFileNames()
      String[] names = new String[fileNames.size()];
      for (int a = 0; a < names.length; a++)
      { names[a] = fileNames.get(a).toString(); }
      return names;
Map samples = new HashMap();
Sample samp1 = new Sample();
samp1.addFile("Test1"); samp1.addFile("Test3");
Sample samp2 = new Sample();
samp2.addFile("Test2"); samp2.addFile("Test4");
samples.add("1", samp1);
samples.add("2", samp2);
String selected = //String user selects...
Sample sampNeeded = (Sample)samples.get(selected);
String[] files = sampNeeded.getFileNames();

How debug a routine created in InfoPackage for Data selection ?

Hi everybody,
I decide to debug a routine create in InfoPackage.
Here, the name of my ABAP routine:
program conversion_routine
form compute_TREATMENT_DATE
When i execute the "/h" command to launch debugger, i don't see this routine in Call Stack...
How i can debbug ?
Any suggestions ?
Thanks in advance,
Best regards,
Rodolphe.

Debug ABAP Routine in InfoPackage:
Put a loop on the routine,
data : debug(1).
do.
if debug = 'X'.
exit.
endif.
enddo.
And when run infopackage, go to sm50.
On that process, menu program->debug program.
In debug screen, type in debug, and fill with X and click 'edit'-pencil icon.
F5 to next step.
hope this helps...

How debug a routine create in InfoPackage for Data selection ?

Hi everybody,
I decide to debug a routine create in InfoPackage.
Here, the name of my ABAP routine:
program conversion_routine
form compute_TREATMENT_DATE
When i execute the "/h" command to launch debugger, i don't see this routine in Call Stack...
How i can debbug ?
Any suggestions ?
Thanks in advance,
Best regards,
Rodolphe.

Debug ABAP Routine in InfoPackage:
Put a loop on the routine,
data : debug(1).
do.
if debug = 'X'.
exit.
endif.
enddo.
And when run infopackage, go to sm50.
On that process, menu program->debug program.
In debug screen, type in debug, and fill with X and click 'edit'-pencil icon.
F5 to next step.
hope this helps...

How to populate the ranges using FM for the SELECTs

Hi,
I am still working on the FM to create a generic extractor. I went through the debugger but I am still unable to determine how the ranges are populated. RSA3 always gives me zero values for the results.
There is a RANGE statement in the sample FM and the following statements for SELECTs
RANGES: L_R_CARRID FOR SFLIGHT-CARRID,
          L_R_CONNID FOR SFLIGHT-CONNID.
and...
      LOOP AT S_S_IF-T_SELECT INTO L_S_SELECT WHERE FIELDNM = 'CARRID'.
        MOVE-CORRESPONDING L_S_SELECT TO L_R_CARRID.
        APPEND L_R_CARRID.
      ENDLOOP.
      LOOP AT S_S_IF-T_SELECT INTO L_S_SELECT WHERE FIELDNM = 'CONNID'.
        MOVE-CORRESPONDING L_S_SELECT TO L_R_CONNID.
        APPEND L_R_CONNID.
      ENDLOOP.
My question is how is L_R_CONNID and L_R_CARRID populated with low and high values for the SELECT statements? I tried to find the DS 0SAPI_SFLIGHT_SIMPLE to run and see how it is set up but there is no such DS.
Would someone take the time to say something about this in several sentences? I have my own code and it seems that it is not populating the values for the SELECTs when I debug from RSA3 when I provide the low and high values.
Would I normally populate the low and high values from the InfoPackage 'Data Selection' tab once I have implemented in BW or ready to test in BW? That would mean I have to choose those fields as selections from RSO2. Anyway, I think I have asked about this but I am hoping to get an answer to get this going...
Appreciate any replies.

Hi
Here is an example of an extractor that uses
both method's, if the InfoPackage selection exist's
it overrides the TVARV selection (which is the default).
FUNCTION ZBW_TC_FORECAST_SO_EXTRACTOR.
""Local interface:
*" IMPORTING
*"     VALUE(I_REQUNR) TYPE SBIWA_S_INTERFACE-REQUNR
*"     VALUE(I_DSOURCE) TYPE SBIWA_S_INTERFACE-ISOURCE OPTIONAL
*"     VALUE(I_CHABASNM) TYPE SBIWA_S_INTERFACE-CHABASNM OPTIONAL
*"     VALUE(I_MAXSIZE) TYPE SBIWA_S_INTERFACE-MAXSIZE OPTIONAL
*"     VALUE(I_INITFLAG) TYPE SBIWA_S_INTERFACE-INITFLAG OPTIONAL
*"     VALUE(I_UPDMODE) TYPE SBIWA_S_INTERFACE-UPDMODE OPTIONAL
*"     VALUE(I_DATAPAKID) TYPE SBIWA_S_INTERFACE-DATAPAKID OPTIONAL
*"     VALUE(I_PRIVATE_MODE) OPTIONAL
*"     VALUE(I_CALLMODE) TYPE ROARCHD200-CALLMODE OPTIONAL
*" TABLES
*"      I_T_SELECT TYPE SBIWA_T_SELECT OPTIONAL
*"      I_T_FIELDS TYPE SBIWA_T_FIELDS OPTIONAL
*"      E_T_DATA STRUCTURE ZBW_TC_FORECASTING_EXT_STR OPTIONAL
*" EXCEPTIONS
*"      NO_MORE_DATA
*"      ERROR_PASSED_TO_MESS_HANDLER
*"      HIERARCHY_NOT_FOUND
Change History                                                      *
Mod. # | Date    | Developer     | Description                  *
*RD3K915762|06/21/2005| SRangaraj      | Change selection of open SO   *
         |          |                | data to include deleted matls *
         |          |                | and obsolete items too        *
RD3K915888|06/29/2005| SRANGARAJ      | Add ext matl grp and lab offce
         |          |                | filters for data-selection    *
The input parameter I_DATAPAKID is not supported yet !
Auxiliary Selection criteria structure
DATA: L_S_SELECT TYPE SBIWA_S_SELECT.
Maximum number of lines for DB table
STATICS L_MAXSIZE TYPE SBIWA_S_INTERFACE-MAXSIZE.
Parameter I_PRIVATE_MODE:
Some applications might want to use this function module for other
purposes as well (e.g. data supply for OLTP reporting tools). If the
processing logic has to be different in this case, use the optional
parameter I_PRIVATE_MODE (not supplied by BIW !) to distinguish
between BIW calls (I_PRIVATE_MODE = SPACE) and other calls
(I_PRIVATE_MODE = X).
If the message handling has to be different as well, define Your own
messaging macro which interprets parameter I_PRIVATE_MODE. When
called by BIW, it should use the LOG_WRITE macro, otherwise do what
You want.
Initialization mode (first call by SAPI) or data transfer mode
(following calls) ?
IF I_INITFLAG = SBIWA_C_FLAG_ON.
Initialization: check input parameters
                buffer input parameters
                prepare data selection
The input parameter I_DATAPAKID is not supported yet !
Invalid second initialization call -> error exit
    IF NOT G_FLAG_INTERFACE_INITIALIZED IS INITIAL.
      IF 1 = 2. MESSAGE E008(R3). ENDIF.
      LOG_WRITE 'E'                    "message type
                'R3'                   "message class
                '008'                  "message number
                ' '                    "message variable 1
                ' '.                   "message variable 2
      RAISE ERROR_PASSED_TO_MESS_HANDLER.
    ENDIF.
Check InfoSource validity
    CASE I_DSOURCE.
      WHEN 'ZBW_TC_SO_EXTRACT'.
      WHEN OTHERS.
        IF 1 = 2. MESSAGE E009(R3). ENDIF.
        LOG_WRITE 'E'                  "message type
                  'R3'                 "message class
                  '009'                "message number
                  I_DSOURCE            "message variable 1
                  ' '.                 "message variable 2
        RAISE ERROR_PASSED_TO_MESS_HANDLER.
    ENDCASE.
Check for supported update mode
   CASE I_UPDMODE.
     WHEN 'F'.
     WHEN OTHERS.
       IF 1 = 2. MESSAGE E011(R3). ENDIF.
       LOG_WRITE 'E'                  "message type
                 'R3'                 "message class
                 '011'                "message number
                 I_UPDMODE            "message variable 1
                 ' '.                 "message variable 2
       RAISE ERROR_PASSED_TO_MESS_HANDLER.
   ENDCASE.
Check for obligatory selection criteria
   READ TABLE I_T_SELECT INTO L_S_SELECT WITH KEY FIELDNM = 'PGMID'.
   IF SY-SUBRC <> 0.
     IF 1 = 2. MESSAGE E010(R3). ENDIF.
     LOG_WRITE 'E'                    "message type
               'R3'                   "message class
               '010'                  "message number
               'PGMID'                "message variable 1
               ' '.                   "message variable 2
     RAISE ERROR_PASSED_TO_MESS_HANDLER.
   ENDIF.
    APPEND LINES OF I_T_SELECT TO G_T_SELECT.
Fill parameter buffer for data extraction calls
    G_S_INTERFACE-REQUNR    = I_REQUNR.
    G_S_INTERFACE-ISOURCE   = I_DSOURCE.
    G_S_INTERFACE-MAXSIZE   = I_MAXSIZE.
    G_S_INTERFACE-INITFLAG = I_INITFLAG.
    G_S_INTERFACE-UPDMODE   = I_UPDMODE.
    G_S_INTERFACE-DATAPAKID = I_DATAPAKID.
    G_FLAG_INTERFACE_INITIALIZED = SBIWA_C_FLAG_ON.
Fill field list table for an optimized select statement
(in case that there is no 1:1 relation between InfoSource fields
and database table fields this may be far from beeing trivial)
    APPEND LINES OF I_T_FIELDS TO G_T_FIELDS.
Fill range tables for fixed InfoSources. In the case of generated
InfoSources, the usage of a dynamical SELECT statement might be
more reasonable. BIW will only pass down simple selection criteria
of the type SIGN = 'I' and OPTION = 'EQ' or OPTION = 'BT'.
    LOOP AT G_T_SELECT INTO L_S_SELECT.
      CASE L_S_SELECT-FIELDNM.
        WHEN 'PRDHA'.
          WGF_PRDHA_LENGTH = STRLEN( L_S_SELECT-LOW ).
          IF WGF_PRDHA_LENGTH = 6. "PARTIAL PRDHA
             WGF_PRDHA = L_S_SELECT-LOW.
             CONCATENATE WGF_PRDHA '%' INTO WGF_PRDHA.
          ELSEIF WGF_PRDHA_LENGTH = 12. "FULL PRDHA
          MOVE-CORRESPONDING L_S_SELECT TO L_R_PRDHA.
          APPEND L_R_PRDHA.
          ENDIF.
        WHEN 'MATKL'.
          MOVE-CORRESPONDING L_S_SELECT TO L_R_MATKL.
          APPEND L_R_MATKL.
      ENDCASE.
    ENDLOOP.
reset the index of where we are in the gt_header table
g_tabix = 0.
perform populate_default_variables.
perform get_data.
perform build_detail.
    EXIT.
ENDIF.                 "Initialization mode or data extraction ?
Data transfer: First Call      OPEN CURSOR + FETCH
               Following Calls FETCH only
First data package -> OPEN CURSOR
   IF G_COUNTER_DATAPAKID = 0.
Determine number of database records to be read per FETCH statement
from input parameter I_MAXSIZE. If there is a one to one relation
between InfoSource table lines and database entries, this is trivial.
In other cases, it may be impossible and some estimated value has to
be determined.
DESCRIBE TABLE LT_DATA LINES l_count.
IF g_tabix GE l_count.
    RAISE no_more_data.
ENDIF.
*CLEAN UP THE OUTPUT TABLE
refresh E_T_DATA.
LOOP AT LT_DATA FROM G_TABIX INTO LS_DATA.
    APPEND LS_DATA TO E_T_DATA.
Set global counter
    g_tabix = g_tabix + 1.
ENDLOOP.
   G_COUNTER_DATAPAKID = G_COUNTER_DATAPAKID + 1.
ENDIF.              "Initialization mode or data extraction ?
ENDFUNCTION.
Forms
***INCLUDE LZBW_TC_FORECAST_SO_EXTF01 .
*&      Form populate_default_variables
      text
--> p1        text
<-- p2        text
FORM populate_default_variables.
data: wlf_name like tvarv-name.
clear: R_prdh3[], wlf_name.
*get the exclusion range from tvarv for the product hierarchy in
*question
concatenate 'ZBW_EXL_' WGF_PRDHA(6) INTO WLF_NAME.
SELECT LOW FROM TVARV INTO R_prdh3-low WHERE
                             NAME = WLF_NAME.
move: 'I'    to R_prdh3-sign,
         'EQ'   to R_prdh3-option.
append R_prdh3.
clear R_prdh3.
ENDSELECT.
{Start of insert by SRangaraj on June 29, 2005 >>RD3K915888
CLEAR L_R_LABOR[].
SELECT LOW FROM TVARV INTO L_R_LABOR-Low WHERE
                             NAME = 'ZBW_TC_FORECAST_LAB_OFF'.
move: 'I'    to L_R_LABOR-sign,
         'EQ'   to L_R_LABOR-option.
append L_R_LABOR.
clear L_R_LABOR.
ENDSELECT.
}End of insert by SRangaraj on June 29, 2005 >>RD3K915888
ENDFORM.                    " populate_default_variables
*&      Form get_data
      text
--> p1        text
<-- p2        text
FORM get_data.
data: wlf_lmeng like vbep-lmeng.
*get all deliveries for date range for either a range of product hrchy
*or a like value
refresh int_records1.
if wgf_prdha ne space.
    select ivbeln iposnr iKLMENG jvkorg i~werks
           imatnr imeins mprdha mmatkl
    from vbap as i
       INNER JOIN VBAK AS j
       ON ( jvbeln = ivbeln
            and j~vbtyp = 'C' )
       INNER JOIN vbuk AS k
       ON ( kvbeln = ivbeln
            and k~lfgsk <> 'C'
            and k~gbstk <> 'C' )
       INNER JOIN vbup AS l
       ON ( lvbeln = ivbeln and
            lposnr = iposnr
            and l~lfgsa <> 'C'
            and l~gbsta <> 'C' )
       INNER JOIN mara AS m
       ON ( mmatnr = imatnr
{Start of insert by SRangaraj on June 21, 2005 >>RD3K915762
            and m~lvorm eq ' '
            and m~mstae ne '99'
{Start of insert by SRangaraj on June 29, 2005 >>RD3K915888
            and m~extwg = '080' )
}End of insert by SRangaraj on June 29, 2005 >>RD3K915888
       INNER JOIN marc AS n
       ON ( nmatnr = imatnr
            and nwerks = iwerks
            and n~lvorm eq ' ' )
}End of insert by SRangaraj on June 21, 2005 >>RD3K915762
    into table int_records1 where ( i~abgru = ' '
                                 and i~klmeng > 0
                                 and m~prdha like wgf_prdha
                                 and m~matkl in l_r_matkl
{Start of insert by SRangaraj on June 29, 2005 >>RD3K915888
                                 and m~labor in l_r_labor ).
}End of insert by SRangaraj on June 29, 2005 >>RD3K915888
elseif not l_r_prdha[] is initial and wgf_prdha = space.
    select ivbeln iposnr iKLMENG jvkorg i~werks
           imatnr imeins mprdha mmatkl
    from vbap as i
       INNER JOIN VBAK AS j
       ON ( jvbeln = ivbeln
            and j~vbtyp = 'C' )
       INNER JOIN vbuk AS k
       ON ( kvbeln = ivbeln
            and k~lfgsk <> 'C'
            and k~gbstk <> 'C' )
       INNER JOIN vbup AS l
       ON ( lvbeln = ivbeln and
            lposnr = iposnr
            and l~lfgsa <> 'C'
            and l~gbsta <> 'C' )
       INNER JOIN mara AS m
       ON ( mmatnr = imatnr
{Start of insert by SRangaraj on June 21, 2005 >>RD3K915762
            and m~lvorm eq ' '
            and m~mstae ne '99'
{Start of insert by SRangaraj on June 29, 2005 >>RD3K915888
            and m~extwg = '080' )
}End of insert by SRangaraj on June 29, 2005 >>RD3K915888
       INNER JOIN marc AS n
       ON ( nmatnr = imatnr
            and nwerks = iwerks
            and n~lvorm eq ' ' )
}End of insert by SRangaraj on June 21, 2005 >>RD3K915762
    into table int_records1 where ( i~abgru = ' '
                                 and i~klmeng > 0
                                 and m~prdha in l_r_prdha
                                 and m~matkl in l_r_matkl
{Start of insert by SRangaraj on June 29, 2005 >>RD3K915888
                                 and m~labor in l_r_labor ).
}End of insert by SRangaraj on June 29, 2005 >>RD3K915888
endif.
    sort int_records1 by vbeln posnr.
    delete adjacent duplicates from int_records1 comparing
    vbeln posnr.
*remove unnecessary records
    if not r_prdh3[] is initial.
    DELETE INT_RECORDS1 WHERE PRDHA+6(3) IN r_prdh3.
    endif.
*get the schedule lines for all of the above records and
*get the lowest schedule line date per so line item
     if not int_records1[] is initial.
     refresh int_records3.
     select vbeln posnr etenr mbdat into table int_records3
     from vbep for all entries in int_records1
                       where vbeln = int_records1-vbeln and
                             posnr = int_records1-posnr and
                             lmeng > 0.
     sort int_records3 by vbeln posnr etenr mbdat ascending.
     loop at int_Records1.
       loop at int_records3 where vbeln = int_records1-vbeln
                              and posnr = int_records1-posnr.
         int_records1-mbdat = int_records3-mbdat.
         modify int_records1.
         exit.
        endloop.
     endloop.
     refresh int_records3. free int_records3.
     refresh int_records2.
*get the deliveries and calculate the open quantities
    select vbelv posnv vbeln posnn rfmng plmin
                from vbfa into table int_records2
                              for all entries in int_Records1
                              where vbelv = int_records1-vbeln
                                and posnv = int_records1-posnr
                                and VBTYP_N = 'J'. "Dels
*calculate open quantities next
     loop at int_records1.
       clear wlf_lmeng.
       clear int_records2.
       loop at int_records2 where vbelv = int_records1-vbeln
                                and posnv = int_records1-posnr.
       case int_records2-plmin.
         when '-'.
          wlf_lmeng = wlf_lmeng - int_records2-rfmng.
         when others. "just add
          wlf_lmeng = wlf_lmeng + int_records2-rfmng.
        endcase.
       endloop.
       int_records1-klmeng = int_records1-klmeng - wlf_lmeng.
       int_records1-vbeln_dl = int_records2-vbeln.
       int_records1-posnr_dl = int_records2-posnn.
       modify int_records1.
    endloop.
    endif.
    delete int_records1 where klmeng le 0.
    refresh int_records2. free int_Records2.
ENDFORM.                    " get_data
*&      Form build_detail
      text
--> p1        text
<-- p2        text
FORM build_detail.
    LOOP AT int_records1.
*DO INDIVIDUAL MOVES - ITS FASTER THAN MOVE-CORRESPONDING
    move: int_records1-vkorg    to LS_DATA-VKORG,
          int_records1-werks    to LS_DATA-WERKS,
          int_records1-matnr    to LS_DATA-MATNR,
          int_records1-klmeng   to LS_DATA-KLMENG,
          int_records1-mbdat(6) to LS_DATA-YEARMONTH,
          int_records1-meins    TO LS_DATA-MEINS,
          int_records1-vbeln    TO LS_DATA-VGBEL,
          int_records1-posnr    TO LS_DATA-VGPOS,
          int_records1-vbeln_dl TO LS_DATA-VBELN,
          int_records1-posnr_dl TO LS_DATA-POSNR,
          int_records1-mbdat    to LS_DATA-WADAT_IST,
          int_records1-PRDHA    to LS_DATA-PRDHA,
          int_records1-matkl    to LS_DATA-MATKL.
    APPEND LS_DATA TO LT_DATA.
    clear: LS_DATA.
    ENDLOOP.
ENDFORM.                    " build_detail

What bean for date selection should I choose?

Similar Messages

Maybe you are looking for