Lock current date after save

In the form I am working on I have a current date field. When the user saves the form I would like that date to be locked so when the form gets emailed to me and I open it, I can see whent the user sent it.
Is this possible? Any help would be great.

Still having a problem....not working. Next time I open the form (I've forced a date change on my pc) and it changes to the current date. Is this correct?
form1.#subform[0].CurrentDate::preSave - (JavaScript, both)
if(this.value!=null)
this.access="readOnly";

Similar Messages

Is there any way to save my data after i have updated my phone and backed it up first

Is there any way to retrive or save my data after updating my phone and its locked, asking to restore to original settings in itunes.

If there is a passcode on your iPhone, which you don't know, there is no way around it. You'll have to restore factory settings. The passport is meant to protect sensitive data, and that is, what it does.

How to save data after clicking checkbox stored in databasetable

TYPE-pools: slis.
tables:mkpf,mseg,mard.
TYPES: BEGIN OF tp_data,
      mblnr LIKE mseg-mblnr,
     matnr LIKE mseg-matnr,
     werks LIKE mard-werks,
     lgort LIKE mard-lgort,
     lgpbe LIKE mard-lgpbe,
     charg LIKE mseg-charg,
     bwart LIKE mseg-bwart,
     budat LIKE mkpf-budat,
     menge LIKE mseg-menge,
     meins LIKE mseg-meins,
     kostl LIKE mseg-kostl,
     aufnr LIKE mseg-aufnr,
     rsnum LIKE mseg-rsnum,
     checkbox TYPE c,
__mark,
END OF tp_data,
tp_tbl_data TYPE STANDARD TABLE OF tp_data.
Constants
Data objects (variable declarations and definitions)
Report data to be shown.
DATA: it_data TYPE STANDARD TABLE OF tp_data.
Heading of the report.
DATA: t_heading TYPE slis_t_listheader.
========================== Selection Screen ==========================
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS:smblnr FOR mseg-mblnr MODIF ID m1,
               smatnr FOR mseg-matnr MODIF ID m2,
               swerks FOR mard-werks MODIF ID m3,
               slgort FOR mard-lgort MODIF ID m4,
               slgpbe FOR mard-lgpbe MODIF ID m5,
               scharg FOR mseg-charg MODIF ID m6,
               sbwart FOR mseg-bwart MODIF ID m7,
               skostl FOR mseg-kostl MODIF ID m8,
               saufnr FOR mseg-aufnr MODIF ID m9,
               srsnum FOR mseg-rsnum MODIF ID m10.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
PARAMETERS:pre RADIOBUTTON GROUP radi USER-COMMAND ucomm DEFAULT 'X',
           pse RADIOBUTTON GROUP radi,
           bps RADIOBUTTON GROUP radi.
SELECTION-SCREEN END OF BLOCK b2.
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-003.
PARAMETER:layout TYPE i.
SELECTION-SCREEN END OF BLOCK b3.
=========================== Event Blocks =============================
AT selection-SCREEN.
start-OF-selection.
PERFORM get_data USING it_data.
END-OF-selection.
PERFORM build_alv USING it_data t_heading.
=========================== Subroutines ==============================
*&      Form get_data
      Gets the information to be shown in the report.
FORM get_data USING t_data TYPE tp_tbl_data.
SELECT msegmblnr msegmatnr mardwerks mardlgort mardlgpbe msegcharg msegbwart mkpfbudat
    msegmenge msegmeins msegkostl msegaufnr mseg~rsnum
INTO CORRESPONDING FIELDS OF TABLE t_data
FROM mseg
JOIN mard ON mardmatnr EQ msegmatnr
               JOIN mkpf ON msegmblnr EQ mkpfmblnr
               WHERE mseg~matnr IN smatnr.
ENDFORM.                    " get_data
*&      Form build_alv
      Builds and display the ALV Grid.
FORM build_alv USING t_data TYPE tp_tbl_data
      t_heading TYPE slis_t_listheader.
ALV required data objects.
DATA: w_title   TYPE lvc_title,
        w_comm    TYPE slis_formname,
        w_status TYPE slis_formname,
        x_layout TYPE slis_layout_alv,
        t_event    TYPE slis_t_event,
        t_fieldcat TYPE slis_t_fieldcat_alv,
        t_sort     TYPE slis_t_sortinfo_alv.
REFRESH t_fieldcat.
REFRESH t_event.
REFRESH t_sort.
CLEAR x_layout.
CLEAR w_title.
Field Catalog
PERFORM set_fieldcat2 USING:
        1 'MBLNR' 'MBLNR' 'MSEG' space space space space space space space space space space space space t_fieldcat ,
        2 'MATNR' 'MATNR' 'MSEG' space space space space space space space space space space space space t_fieldcat ,
        3 'WERKS' 'WERKS' 'MARD' space space space space space space space space space space space space t_fieldcat,
        4 'LGORT' 'LGORT' 'MARD' space space space space space space space space space space space space t_fieldcat ,
        5 'LGPBE' 'LGPBE' 'MARD' space space space space space space space space space space space space t_fieldcat ,
        6 'CHARG' 'CHARG' 'MSEG' space space space space space space space space space space space space t_fieldcat ,
        7 'BWART' 'BWART' 'MSEG' space space space space space space space space space space space space t_fieldcat,
        8 'BUDAT' 'BUDAT' 'MKPF' space space space space space space space space space space space space t_fieldcat,
        9 'MENGE' 'MENGE' 'MSEG' space space space space space space space space space space space space t_fieldcat,
        10 'MEINS' 'MEINS' 'MSEG' space space space space space space space space space space space space t_fieldcat,
        11 'KOSTL' 'KOSTL' 'MSEG' space space space space space space space space space space space space t_fieldcat,
        12 'AUFNR' 'AUFNR' 'MSEG' space space space space space space space space space space space space t_fieldcat,
        13 'RSNUM' 'RSNUM' 'MSEG' space space space space space space space space space space space space t_fieldcat,
        14 '__MARK' 'XFELD' space space space 'Select' 'Select this row' 'Sel' 'Select this row' space space space 'X' 'X' space t_fieldcat.
Layout
x_layout-zebra = 'X'.
Top of page heading
PERFORM set_top_page_heading USING t_heading t_event.
Events
PERFORM set_events USING t_event.
GUI Status
w_status = ''.
User commands
w_comm   = 'USER_COMMAND'.
Order
Example
PERFORM set_order USING '<field>' 'IT_DATA' 'X' space space t_sort.
PERFORM set_order USING 'LIFNR' 'IT_DATA' 'X' space 'X' t_sort.
PERFORM set_order USING 'EBELN' 'IT_DATA' 'X' space 'X' t_sort.
PERFORM set_order USING 'EBELP' 'IT_DATA' 'X' space space t_sort.
Displays the ALV grid
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
    i_callback_program       = sy-repid
    it_fieldcat              = t_fieldcat
    is_layout                = x_layout
    it_sort                  = t_sort
    i_callback_pf_status_set = w_status
    i_callback_user_command = w_comm
    i_save                   = 'X'
    it_events                = t_event
    i_grid_title             = w_title
TABLES
    t_outtab                 = t_data
EXCEPTIONS
    program_error            = 1
    OTHERS                   = 2.
IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM.                    " build_alv.
*&      Form set_top_page_heading
      Creates the report headings.
FORM set_top_page_heading USING t_heading TYPE slis_t_listheader
      t_events TYPE slis_t_event.
DATA: x_heading TYPE slis_listheader,
        x_event   TYPE LINE OF slis_t_event.
Report title
CLEAR t_heading[].
CLEAR x_heading.
x_heading-typ = 'H'.
x_heading-info = 'Reporte Prueba'(001).
APPEND x_heading TO t_heading.
Program name
CLEAR x_heading.
x_heading-typ = 'S'.
x_heading-KEY = 'Program: '.
x_heading-info = sy-repid.
APPEND x_heading TO t_heading.
User who is running the report
CLEAR x_heading.
x_heading-typ = 'S'.
x_heading-KEY = 'User: '.
x_heading-info = sy-uname.
APPEND x_heading TO t_heading.
Date of execution
CLEAR x_heading.
x_heading-typ = 'S'.
x_heading-KEY = 'Date: '.
WRITE sy-datum TO x_heading-info.
APPEND x_heading TO t_heading.
Time of execution
CLEAR x_heading.
x_heading-typ = 'S'.
x_heading-KEY = 'Time: '.
WRITE sy-uzeit TO x_heading-info.
APPEND x_heading TO t_heading.
Top of page event
x_event-name = slis_ev_top_of_page.
x_event-FORM = 'TOP_OF_PAGE'.
APPEND x_event TO t_events.
ENDFORM.
*&      Form set_events
      Sets the events for ALV.
      The TOP_OF_PAGE event is alredy being registered in
      the set_top_page_heading subroutine.
FORM set_events USING t_events TYPE slis_t_event.
DATA: x_event   TYPE LINE OF slis_t_event.
Example
clear x_event.
x_event-name = .
x_event-form = .
append x_event to t_event.
ENDFORM.
*&      Form set_order
      Adds an entry to the order table.
FORM set_order USING p_fieldname p_tabname p_up p_down p_subtot
      t_sort TYPE slis_t_sortinfo_alv.
DATA: x_sort TYPE slis_sortinfo_alv.
CLEAR x_sort.
x_sort-fieldname = p_fieldname.
x_sort-tabname   = p_tabname.
x_sort-UP = p_up.
x_sort-down = p_down.
x_sort-subtot = p_subtot.
APPEND x_sort TO t_sort.
ENDFORM.                    "set_order
*&      Form set_fieldcat2
      Adds an entry to the field catalog.
FORM set_fieldcat2 USING p_colpos p_fieldname p_ref_fieldname p_ref_tabname
      p_outputlen p_noout
      p_seltext_m p_seltext_l p_seltext_s p_reptext_ddic p_ddictxt
      p_hotspot p_showasicon p_checkbox p_edit
      p_dosum
      t_fieldcat TYPE slis_t_fieldcat_alv.
DATA: wa_fieldcat TYPE slis_fieldcat_alv.
CLEAR wa_fieldcat.
General settings
wa_fieldcat-fieldname = p_fieldname.
wa_fieldcat-col_pos = p_colpos.
wa_fieldcat-no_out = p_noout.
wa_fieldcat-HOTSPOT = p_hotspot.
wa_fieldcat-CHECKBOX = p_checkbox.
wa_fieldcat-ICON = p_showasicon.
wa_fieldcat-do_sum = p_dosum.
Set reference fieldname, tablenam and rollname.
If p_ref_tabname is not given, the ref_fieldname given is a data element.
If p_ref_tabname is given, the ref_fieldname given is a field of a table. In case ref_fieldname is not given, it is copied from the fieldname.
IF p_ref_tabname IS INITIAL.
    wa_fieldcat-rollname =   p_ref_fieldname.
ELSE.
    wa_fieldcat-ref_tabname = p_ref_tabname.
    IF p_ref_fieldname EQ space.
      wa_fieldcat-ref_fieldname =   wa_fieldcat-fieldname.
    ELSE.
      wa_fieldcat-ref_fieldname =   p_ref_fieldname.
    ENDIF.
ENDIF.
Set output length.
IF NOT p_outputlen IS INITIAL.
    wa_fieldcat-outputlen = p_outputlen.
ENDIF.
Set text headers.
IF NOT p_seltext_m IS INITIAL.
    wa_fieldcat-seltext_m = p_seltext_m.
ENDIF.
IF NOT p_seltext_l IS INITIAL.
    wa_fieldcat-seltext_l = p_seltext_l.
ENDIF.
IF NOT p_seltext_s IS INITIAL.
    wa_fieldcat-seltext_s = p_seltext_s.
ENDIF.
IF NOT p_reptext_ddic IS INITIAL.
    wa_fieldcat-reptext_ddic = p_reptext_ddic.
ENDIF.
IF NOT p_ddictxt IS INITIAL.
    wa_fieldcat-ddictxt = p_ddictxt.
ENDIF.
Set as editable or not.
IF p_edit IS NOT INITIAL.
    wa_fieldcat-INPUT     = 'X'.
    wa_fieldcat-EDIT     = 'X'.
ENDIF.
APPEND wa_fieldcat TO t_fieldcat.
ENDFORM.                   "set_fieldcat2
=========================== Subroutines called by ALV ================
*&      Form top_of_page
      Called on top_of_page ALV event.
      Prints the heading.
FORM top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
    i_logo             = 'XXXXX'
    it_list_commentary = t_heading.
ENDFORM.                    " alv_top_of_page
*&      Form user_command
      Called on user_command ALV event.
      Executes custom commands.
FORM user_command USING r_ucomm     LIKE sy-ucomm
      rs_selfield TYPE slis_selfield.
Example Code
Executes a command considering the sy-ucomm.
CASE r_ucomm.
   WHEN '&IC1'.
     Set your "double click action" response here.
     Example code: Create and display a status message.
     DATA: w_msg TYPE string,
           w_row(4) TYPE n.
     w_row = rs_selfield-tabindex.
     CONCATENATE 'You have clicked row' w_row
                 'field' rs_s lfield-fieldname
                 'with value' rs_selfield-value
                 INTO w_msg SEPARATED BY space.
     MESSAGE w_msg TYPE 'S'.
ENDCASE.
End of example code.
ENDFORM.                    "user_command
this is mycode,mblnr, matnr and checkbox both field had created in database table
then save data after clicking checkbox data stored in database table,and next clickin checkboxes are no change. this my requirment.
plz send me code .

Try this
In user_command form...
LOOP AT IT_DATA.
IF CHECKBOX __MARK EQ 'X'.
write logic wht u want....
ENDIF.
ENDLOOP.

After backup Restore in 2.2 - no current Data visible!!!

Hello!
I´ve spent the last few days trying to get the 2.2 up and running. After multiple re do´s I´m at a loss how to further proceed.
I took a backup from our existing vmbased 2.1.2 (backup ... application NCS..) and then restored it to the new 2.2 VMWARE installation.
the log says that everything worked:
Started at : Tue Feb 10 16:44:34 2015
Initiating restore. Please wait...
Restore Started at 02/10/15 16:44:34
Stage 1 of 9: Transferring backup file ...
-- completed at 02/10/15 16:45:43
Stage 2 of 9: Decrypting backup file ...
-- completed at 02/10/15 16:50:41
Stage 3 of 9: Unpacking backup file ...
-- completed at 02/10/15 16:50:48
Stage 4 of 9: Decompressing backup ...
-- completed at 02/10/15 16:55:17
Stage 5 of 9: Restoring Support Files ...
-- completed at 02/10/15 16:55:19
Stage 6 of 9: Restoring Database Files ...
-- completed at 02/10/15 16:56:49
Stage 7 of 9: Recovering Database ...
-- completed at 02/10/15 17:25:38
Stage 8 of 9: Updating Database Schema ...
Stage 1 of 5: Pre Migration Schema Upgrade ...
-- completed at: 2015-02-10 17:45:05.653, Time Taken : 0 hr, 14 min, 22 sec
Stage 2 of 5: Schema Upgrade ...
: This could take long time based on the existing data size.
-- completed at: 2015-02-10 17:55:02.82, Time Taken : 0 hr, 9 min, 57 sec
Stage 3 of 5: Post Migration Schema Upgrade ...
-- completed at: 2015-02-10 18:04:55.583, Time Taken : 0 hr, 9 min, 52 sec
Stage 4 of 5: Enabling DB Constraints ...
-- completed at: 2015-02-10 18:06:04.474, Time Taken : 0 hr, 1 min, 4 sec
Stage 5 of 5: Finishing Up ...
-- completed at: 2015-02-10 18:06:15.352, Time Taken : 0 hr, 0 min, 10 sec
-- completed at 02/10/15 18:06:46
Stage 9 of 9: Re-enabling Database Settings ...
-- completed at 02/10/15 18:06:46
Total Restore duration is: 01h:22m:12s
INFO: Restore completed successfully.
Starting PI Server... This may take some time
Starting Prime Infrastructure...
This may take a while (10 minutes or more) ...
Prime Infrastructure started successfully.
Finished at : Tue Feb 10 18:30:53 2015
then I Resynced everything, wlc config, switch config, cleared browser cache, And restarted. The good point: The data is all there! Everything! Maps, ap locations, everything! I was baffeled. I wasn´t really used for restores on NCS/Prime going so well :D Thinking all is well, I started furthur in. And noticed that every client. Every 7300 of them was disassociated. If I choose a client that I know is on the network (my laptop..) it always says disassociated, and the last time seen was the time of the backup. Ok might need a while. Let it sit over night. STILL NOTHING.. If you click on the check box to show the client details, troubleshoot or anything - you just get the spinning cursor and nothing shows up. If you go in the maps, and click on a ap, then click on the client count - spinning cursor. Everything that has to do with current data - spinning cursor.
Then I restarted. Fresh 2.2 installation. Added a few devices, just to see that the data collection really works. And YEAH it did! So I thought it might be a problem with maybe the devices not being in the database, jada jada jada. So I imported a 100 devices with the discovery function. Which is working really well. And THEN I restored the backup, again all successful, and all data is there.
and this morning - still no current data available.
Has anybody come across this? and how do I solve this? I will be opening a tac too, but I was hoping you guys are faster :D
thanks alot for your help!

I love to see that 2.2 has been granted mind reading abilities. After I complained here, I restarted and resynced again.. and now.. ehm. it works. No Idea what I did different this time :(( But it seems to be working now.
The last attempt was to add devices before the restore.. and then 3-4 resyncs, and 2 restarts..

How to check the date with current day after 5 days

Hello,
I need to make the visible of delete button in my struts application. I've application in which user can be deactivated. If the user is deactivated and the admin can't delete the user for the specific period of time (set in property file). while deactivating the user, system time is set. and 5 days after the system time's set, i need to make the button visible.
This is my code.
Calendar cal = Calendar.getInstance();
Date deActivatedDate = null;
deActivatedDate =new Date(userData.getDeActivatedTime().getTime());// Set it in the Calendar object
cal.setTime(deActivatedDate); // Add 5 days
cal.add(Calendar.DATE, 5);// get the current date
Calendar currentCal = Calendar.getInstance();
Date currentDate = new Date();
currentCal.setTime(currentDate);// check if the de-activation time is over.
if (cal.get(Calendar.DATE) < currentCal.get(Calendar.DATE)) {
userData.setDeletionAllowed(true);}
can anyone help to solve this issue?

What's the problem with the code that you posted?

The date and time is not working after setting it to current date and goes back to may,26 2011

the date and time is not working after setting it to current date and goes back to may,26 2011; 2 PM . I bought my ipod tocuh 4th gen on july 18th

On the iPod, make sure your Calendar is set to Gregorian (Settings > General > International > Calendar). Also make sure your date and time on your computer is correct as well as the Time Zones on both.

Lock Automatic Date Field after Submit

I have a form that generates the current date when the form is open. Once the user complete the form I have a submit button that will flatten the file and submit the completed PDF. All this works great.
The challenge I have is even though the form is flattened, when a user opens the flattened PDF in a PDF Reader the date displays the current date. Is there a way to set this field to update only once when the form is initially opened?
I am currently using the following function to generate the date in the field.
var f = this.getField("OpenDate");
f.value = util.printd("yyyy/mm/dd", new Date());
I am running Adobe Acrobat X Pro.
Regards,
Robert

To test the form, you need to close the saved form and reopen it. Because the field is empty it should populate. If you save, close the form, and reopen the form the date should not change.
Note the PDF needs to be opened before a document level function will execute and it will only execute once.
If you want the form to work for others, it needs to be saved with the date field empty because when the form is opened and the document level script runs it will only populate an empty date field and if the field has any non-null value in it the field will not update.
For testing you could change the script to include an alert to tell you if the date field is being updated or not.
A "flattened" PDF has no form fields.

How do i save data after daughter forgetting her pass code without backing up???

How do I save data after 12 year old daughter forgot pass code before any back up???

Then there is no way, a reminder why passwords (and backups) matter. Sorry.

Contract getting locked forever after save

Hi Gurus ,
This problem is happening only in our production system with some contracts only when we save a contract through VA42.
contract is getting locked forever. when we see lock entries from SM12, it shows us entries for that contracts in blue. VBLOG table also have some entries for this lock entry. How could i identify that where the problem has occured. from blue entries we can say that it has been locked by some call to function module in update task. is there any way to find out which function module is causing the problem.
thanks
Rajpal Sehrawat

Hi Max,
thanks for the reply.
the lock entries in SM12 are in blue which means main program has submitted some function modules in update task and those tasks have not finished. that is why i am able to see entries in VBLOG. why these entries are not getting deleted. and VBLOG table is not showing any error also.
user comes out of the contract imidiately after save. even he kills his session also.

Customizing Calendar to disable all dates After Sysdate (Current Date)

Hi All,
I have a Requirement In OAF to Disable All Dates in the Calendar After the Sysdate
Ex: In Air Ticket Booking We can't Enter Previous Dates in the Calendar Like that I need to make the
my calendar dates after Sysdate Non Entarable
Please let me know if you have any sample code or We can fire any action before selecting a date to disable a particular set of Dates
Thanks,
Krishna

Hi ,
As per my opinion ,u shud put a check in PFR method at select event fire of date field ,capture the selected date anc check it shud be <= sysdate else throw a message using
throw new OAException ("this date should not exceed current date", OAException.ERROR);
Thanks
Pratap

My ibook keeps shutting down completely with the date to reverting back to 1969. i restart only after i plug in charger it lets me, then change date and save. the next time i use same thing happens, safari, iphoto, email are the only ones i have used.

my ibook keeps shutting down completely with the date to reverting back to 1969. i restart only after i plug in charger it lets me, then change date and save. the next time i use same thing happens, safari, iphoto, email are the only ones i have used.
please help! i am at a loss here.
thank you, movie lady
ibook g4

The iBook does not have a backup (PRAM) battery. It only has the main battery and a small capacitor which maintains the settings long enough to do a battery swap. If the battery is dead, what you are seeing can happen.
If the battery is not a problem (or even if it is), you could try resetting the PMU and see if that helps.

Commit/save the data after copy in custom.pll

Hi All,
In custom.pll added code to populate data based on other fields. Its copying successfully, but not able to save the record to database.
when user goes to field, form is asking for update, correction.
Can some one please tell me how to commit data to database once it is copied?.
what built in should be use to commit data after copying?.
Thanks to all in advance...

Hi Asif,
Thanks for the reply, that didn't help me.
fields which populated are into key flexfield segments, how to save the key flexfield, this is a TAB.
I am not able to find any where on this. In form I have a block1 based on data in fields in this block1, key flexfield in a tab should be populated, here we are successful by copy built in function.
Next is how to save keyflex data in TAB after populating.
can someone help me please...

How to save current date into a veriable

I am using Cisco Unity Express Editor 3.2.1
I want get the current date, today, from the ssytem and then save into a "date" veriable.
How can I do that?

options (skip=2)
load data
badfile 'C:\CAP_SPS\Batchscripts\psafixbad.txt'
discardfile 'C:\CAP_SPS\Batchscripts\psafixdiscard.txt'
append
into table sps_psafix
when record_layer='Project'
fields terminated by ','
trailing nullcols
record_layer position(1),
file_name,
attr1,
attr2 filler,
attr3 filler,
attr4 filler,
attr5 filler,
attr6 filler,
attr7 filler,
attr8 filler,
read_flag constant '0',
date_column_name SYSDATE
)SY.

How to stored data after clicking checkbox save in database table

TYPE-pools: slis.
tables:mkpf,mseg,mard,COWB_COMP.
TYPES: BEGIN OF tp_data,
      mblnr LIKE mseg-mblnr,
     matnr LIKE mseg-matnr,
     werks LIKE mard-werks,
     lgort LIKE mard-lgort,
     lgpbe LIKE mard-lgpbe,
     charg LIKE mseg-charg,
     bwart LIKE mseg-bwart,
     budat LIKE mkpf-budat,
     menge LIKE mseg-menge,
     meins LIKE mseg-meins,
     kostl LIKE mseg-kostl,
     aufnr LIKE mseg-aufnr,
     rsnum LIKE mseg-rsnum,
     endkz like COWB_COMP-endkz,
END OF tp_data,
tp_tbl_data TYPE STANDARD TABLE OF tp_data.
*data: t_data like ztable occurs 0 with header line.
Constants
Data objects (variable declarations and definitions)
Report data to be shown.
DATA: it_data TYPE STANDARD TABLE OF tp_data.
Heading of the report.
DATA: t_heading TYPE slis_t_listheader.
========================== Selection Screen ==========================
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS:smblnr FOR mseg-mblnr MODIF ID m1,
               smatnr FOR mseg-matnr MODIF ID m2,
               swerks FOR mard-werks MODIF ID m3,
               slgort FOR mard-lgort MODIF ID m4,
               slgpbe FOR mard-lgpbe MODIF ID m5,
               scharg FOR mseg-charg MODIF ID m6,
               sbwart FOR mseg-bwart MODIF ID m7,
               skostl FOR mseg-kostl MODIF ID m8,
               saufnr FOR mseg-aufnr MODIF ID m9,
               srsnum FOR mseg-rsnum MODIF ID m10.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
PARAMETERS:pre RADIOBUTTON GROUP radi USER-COMMAND ucomm DEFAULT 'X',
           pse RADIOBUTTON GROUP radi,
           bps RADIOBUTTON GROUP radi.
SELECTION-SCREEN END OF BLOCK b2.
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-003.
PARAMETER:layout TYPE i.
SELECTION-SCREEN END OF BLOCK b3.
=========================== Event Blocks =============================
AT selection-SCREEN.
start-OF-selection.
PERFORM get_data USING it_data.
END-OF-selection.
PERFORM build_alv USING it_data t_heading.
=========================== Subroutines ==============================
*&      Form get_data
      Gets the information to be shown in the report.
FORM get_data USING t_data TYPE tp_tbl_data.
SELECT msegmblnr msegmatnr mardwerks mardlgort mardlgpbe msegcharg msegbwart mkpfbudat
    msegmenge msegmeins msegkostl msegaufnr mseg~rsnum
INTO CORRESPONDING FIELDS OF TABLE t_data
FROM mseg
JOIN mard ON mardmatnr EQ msegmatnr
               JOIN mkpf ON msegmblnr EQ mkpfmblnr
               WHERE mseg~matnr IN smatnr.
ENDFORM.                    " get_data
*&      Form build_alv
      Builds and display the ALV Grid.
FORM build_alv USING t_data TYPE tp_tbl_data
      t_heading TYPE slis_t_listheader.
ALV required data objects.
DATA: w_title   TYPE lvc_title,
        w_comm    TYPE slis_formname,
        w_status TYPE slis_formname,
        x_layout TYPE slis_layout_alv,
        t_event    TYPE slis_t_event,
        t_fieldcat TYPE slis_t_fieldcat_alv,
        t_sort     TYPE slis_t_sortinfo_alv.
REFRESH t_fieldcat.
REFRESH t_event.
REFRESH t_sort.
CLEAR x_layout.
CLEAR w_title.
Field Catalog
PERFORM set_fieldcat2 USING:
        1 'MBLNR' 'MBLNR' 'MSEG' space space space space space space space space space space space space t_fieldcat ,
        2 'MATNR' 'MATNR' 'MSEG' space space space space space space space space space space space space t_fieldcat ,
        3 'WERKS' 'WERKS' 'MARD' space space space space space space space space space space space space t_fieldcat,
        4 'LGORT' 'LGORT' 'MARD' space space space space space space space space space space space space t_fieldcat ,
        5 'LGPBE' 'LGPBE' 'MARD' space space space space space space space space space space space space t_fieldcat ,
        6 'CHARG' 'CHARG' 'MSEG' space space space space space space space space space space space space t_fieldcat ,
        7 'BWART' 'BWART' 'MSEG' space space space space space space space space space space space space t_fieldcat,
        8 'BUDAT' 'BUDAT' 'MKPF' space space space space space space space space space space space space t_fieldcat,
        9 'MENGE' 'MENGE' 'MSEG' space space space space space space space space space space space space t_fieldcat,
        10 'MEINS' 'MEINS' 'MSEG' space space space space space space space space space space space space t_fieldcat,
        11 'KOSTL' 'KOSTL' 'MSEG' space space space space space space space space space space space space t_fieldcat,
        12 'AUFNR' 'AUFNR' 'MSEG' space space space space space space space space space space space space t_fieldcat,
        13 'RSNUM' 'RSNUM' 'MSEG' space space space space space space space space space space space space t_fieldcat,
    14 'ENDKZ' 'ENDKZ' 'COWB_COMP' space space 'select' 'Select this row' 'Sel' 'Select this row' space space space 'X' 'X' space t_fieldcat.
Layout
x_layout-zebra = 'X'.
Top of page heading
PERFORM set_top_page_heading USING t_heading t_event.
Events
PERFORM set_events USING t_event.
GUI Status
w_status = ''.
User commands
w_comm   = 'USER_COMMAND'.
Order
Example
PERFORM set_order USING '<field>' 'IT_DATA' 'X' space space t_sort.
PERFORM set_order USING 'MBLNR' 'IT_DATA' 'X' space 'X' t_sort.
PERFORM set_order USING 'EBELN' 'IT_DATA' 'X' space 'X' t_sort.
PERFORM set_order USING 'EBELP' 'IT_DATA' 'X' space space t_sort.
Displays the ALV grid
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
    i_callback_program       = sy-repid
    it_fieldcat              = t_fieldcat
    is_layout                = x_layout
    it_sort                  = t_sort
    i_callback_pf_status_set = w_status
    i_callback_user_command = w_comm
    i_save                   = 'X'
    it_events                = t_event
    i_grid_title             = w_title
TABLES
    t_outtab                 = t_data
EXCEPTIONS
    program_error            = 1
    OTHERS                   = 2.
IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM.                    " build_alv.
*&      Form set_top_page_heading
      Creates the report headings.
FORM set_top_page_heading USING t_heading TYPE slis_t_listheader
      t_events TYPE slis_t_event.
DATA: x_heading TYPE slis_listheader,
        x_event   TYPE LINE OF slis_t_event.
Report title
CLEAR t_heading[].
CLEAR x_heading.
x_heading-typ = 'H'.
x_heading-info = 'Reporte Prueba'(001).
APPEND x_heading TO t_heading.
Program name
CLEAR x_heading.
x_heading-typ = 'S'.
x_heading-KEY = 'Program: '.
x_heading-info = sy-repid.
APPEND x_heading TO t_heading.
User who is running the report
CLEAR x_heading.
x_heading-typ = 'S'.
x_heading-KEY = 'User: '.
x_heading-info = sy-uname.
APPEND x_heading TO t_heading.
Date of execution
CLEAR x_heading.
x_heading-typ = 'S'.
x_heading-KEY = 'Date: '.
WRITE sy-datum TO x_heading-info.
APPEND x_heading TO t_heading.
Time of execution
CLEAR x_heading.
x_heading-typ = 'S'.
x_heading-KEY = 'Time: '.
WRITE sy-uzeit TO x_heading-info.
APPEND x_heading TO t_heading.
Top of page event
x_event-name = slis_ev_top_of_page.
x_event-FORM = 'TOP_OF_PAGE'.
APPEND x_event TO t_events.
ENDFORM.
*&      Form set_events
      Sets the events for ALV.
      The TOP_OF_PAGE event is alredy being registered in
      the set_top_page_heading subroutine.
FORM set_events USING t_events TYPE slis_t_event.
DATA: x_event   TYPE LINE OF slis_t_event.
Example
clear x_event.
x_event-name = .
x_event-form = .
append x_event to t_event.
ENDFORM.
*&      Form set_order
      Adds an entry to the order table.
FORM set_order USING p_fieldname p_tabname p_up p_down p_subtot
      t_sort TYPE slis_t_sortinfo_alv.
DATA: x_sort TYPE slis_sortinfo_alv.
CLEAR x_sort.
x_sort-fieldname = p_fieldname.
x_sort-tabname   = p_tabname.
x_sort-UP = p_up.
x_sort-down = p_down.
x_sort-subtot = p_subtot.
APPEND x_sort TO t_sort.
ENDFORM.                    "set_order
*&      Form set_fieldcat2
      Adds an entry to the field catalog.
FORM set_fieldcat2 USING p_colpos p_fieldname p_ref_fieldname p_ref_tabname
      p_outputlen p_noout
      p_seltext_m p_seltext_l p_seltext_s p_reptext_ddic p_ddictxt
      p_hotspot p_showasicon p_checkbox p_edit
      p_dosum
      t_fieldcat TYPE slis_t_fieldcat_alv.
DATA: wa_fieldcat TYPE slis_fieldcat_alv.
CLEAR wa_fieldcat.
General settings
wa_fieldcat-fieldname = p_fieldname.
wa_fieldcat-col_pos = p_colpos.
wa_fieldcat-no_out = p_noout.
wa_fieldcat-HOTSPOT = p_hotspot.
wa_fieldcat-CHECKBOX = p_checkbox.
wa_fieldcat-ICON = p_showasicon.
wa_fieldcat-do_sum = p_dosum.
Set reference fieldname, tablenam and rollname.
If p_ref_tabname is not given, the ref_fieldname given is a data element.
If p_ref_tabname is given, the ref_fieldname given is a field of a table. In case ref_fieldname is not given, it is copied from the fieldname.
IF p_ref_tabname IS INITIAL.
    wa_fieldcat-rollname =   p_ref_fieldname.
ELSE.
    wa_fieldcat-ref_tabname = p_ref_tabname.
    IF p_ref_fieldname EQ space.
      wa_fieldcat-ref_fieldname =   wa_fieldcat-fieldname.
    ELSE.
      wa_fieldcat-ref_fieldname =   p_ref_fieldname.
    ENDIF.
ENDIF.
Set output length.
IF NOT p_outputlen IS INITIAL.
    wa_fieldcat-outputlen = p_outputlen.
ENDIF.
Set text headers.
IF NOT p_seltext_m IS INITIAL.
    wa_fieldcat-seltext_m = p_seltext_m.
ENDIF.
IF NOT p_seltext_l IS INITIAL.
    wa_fieldcat-seltext_l = p_seltext_l.
ENDIF.
IF NOT p_seltext_s IS INITIAL.
    wa_fieldcat-seltext_s = p_seltext_s.
ENDIF.
IF NOT p_reptext_ddic IS INITIAL.
    wa_fieldcat-reptext_ddic = p_reptext_ddic.
ENDIF.
IF NOT p_ddictxt IS INITIAL.
    wa_fieldcat-ddictxt = p_ddictxt.
ENDIF.
Set as editable or not.
IF p_edit IS NOT INITIAL.
    wa_fieldcat-INPUT     = 'X'.
    wa_fieldcat-EDIT     = 'X'.
ENDIF.
APPEND wa_fieldcat TO t_fieldcat.
ENDFORM.                   "set_fieldcat2
=========================== Subroutines called by ALV ================
*&      Form top_of_page
      Called on top_of_page ALV event.
      Prints the heading.
FORM top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
    i_logo             = 'XXXXX'
    it_list_commentary = t_heading.
ENDFORM.                    " alv_top_of_page
*&      Form user_command
      Called on user_command ALV event.
      Executes custom commands.
FORM user_command USING r_ucomm     LIKE sy-ucomm
      rs_selfield TYPE slis_selfield.
ENDFORM.                    "user_command
this is my code, how to store data after clicking checkbox in databasetable,
how to write that cide.
plz send me code.

hi!,
use MODIFY to update data into the data base table.
regards
anjali

Future Date Script in Acrobat, 6 months after current date

Hey guys I have been working on this for hours and I am not sure why I cannot figure this out. I am looking to have 1 field box in the form auto populate the current date and another field box to auto populate a date 6 months from the current date. My current date code is attached, I have been playing around with so many variations that I do not want to confuse anyone with my other ugly code fragments.
var bFirstTime=1;
var f=this.getField("todaysDate");
if (bFirstTime=1) {
f.value=util.printd("mm/dd/yyyy",new Date());
bFirstTime=0;
//app.bFirstTime);

Have you tried a document level funtction that runs when the PDF is opened. The following script fills in today's date if the field has not been field in and computes the date in 5 months using the parts of the date and the value of today's date.
// one time use document level function
( function () {
// update fields only if balnk
if(this.getField('todaysDate').defaultValue == '') {
// get current date time object
var oNow = new Date();
// get some date parts
var fYear = oNow.getFullYear(); // 4 digit year
var fMonth = oNow.getMonth(); // get zero based month
var fDate = oNow.getDate(); // get date of month
var sFormat = '%,302.0f/%,302.0f/%,304.0f';
// fill in field
this.getField('todaysDate').value = util.printf(sFormat, (fMonth + 1), fDate, fYear);
// make permanent
this.getField('todaysDate').defaultValue = this.getField('todaysDate').value;
// compute date 6 months from today
fMonth += 6;
var oNew = new Date(fYear, fMonth, fDate);
// get some date parts
fYear = oNew.getFullYear(); // 4 digit year
fMonth = oNew.getMonth(); // get zero based month
fDate = oNew.getDate(); // get date of month
// fill in field
this.getField('newDate').value = util.printf(sFormat, (fMonth + 1), fDate, fYear);
// make permanent
this.getField('newDate').defaultValue = this.getField('newDate').value;
// debugging aid
app.alert('dates updated', 2, 0);
} else {
app.alert('dates not updated', 1, 0);
} // end not empty
return;
} // end function
() // call funtion
); // end document level function

Lock current date after save

Similar Messages

Maybe you are looking for