Update fields on a dynpro

hi guys,
I have an editable ALV where I need update a field on the same dynpro where is the ALV with the amount captured in the column(PRIM_NET), the field must be display the total sum of the column, some body could suggest me something, about how to do this?
regards
Marisol.

>
Marisol wrote:
> hi guys,
>
> I have an editable ALV where I need update a field on the same dynpro where is the ALV with the amount captured in the column(PRIM_NET), the field must be display the total sum of the column, some body could suggest me something, about how to do this?
>
> regards
> Marisol.
Check out this link...
http://abap-explorer.blogspot.com/2008/09/how-to-get-updated-data-from-editable.html
I hope you will hit the "Enter" button after editing the ALV fields.

Similar Messages

DYNP_VALUES_UPDATE not Updating the Field on my Dynpro

Hi.
I want to create a dynpro where two fields are. Field 1 allows the user to enter a customer number, field two shall come up with a number that is calculated somehow. The calculation can last up to 20 seconds, so I dont want to make the user waite for this number.. .he shall be able to work with the rest of the dynpro.
Therefore I called the function that does the calcuiation like that:
MODULE user_command_0100 INPUT.
DATA: lv_guid_16 TYPE guid_16.
IF kna1-kunnr IS NOT INITIAL AND kna1-kunnr <> gv_kunnr
    CALL FUNCTION 'GUID_CREATE'
      IMPORTING
        ev_guid_16 = lv_guid_16.
    gv_taskid = lv_guid_16+8(8).
    CALL FUNCTION 'YDETERMINE_DEPOTDISTANCE'
      STARTING NEW TASK gv_taskid
      PERFORMING receive_depent ON END OF TASK
      EXPORTING
        i_kunnr = kna1-kunnr.
ENDIF.
ENDMODULE.
The next piece of code shall get the returning value if the function wants to return its results.
FORM receive_depent USING i_task TYPE clike.
TABLES: d020s.
DATA: dyname LIKE d020s-prog,
        dynumb LIKE d020s-dnum.
DATA: BEGIN OF dynpfields OCCURS 1.
          INCLUDE STRUCTURE dynpread.
DATA: END OF dynpfields.
IF i_task = gv_taskid.
    RECEIVE RESULTS FROM FUNCTION 'YDETERMINE_DEPOTDISTANCE'
    IMPORTING
      e_depent         = kna1-yydepent
      e_accuracy       = gv_accuracy.
    MOVE 'KNA1-YYDEPENT' TO dynpfields-fieldname.
    MOVE kna1-yydepent TO dynpfields-fieldvalue.
    APPEND dynpfields.
    dyname = sy-cprog.
    dynumb = '0100'.
    CALL FUNCTION 'DYNP_VALUES_UPDATE'
      EXPORTING
        dyname               = dyname
        dynumb               = dynumb
      TABLES
        dynpfields           = dynpfields
      EXCEPTIONS
        invalid_abapworkarea = 01
        invalid_dynprofield = 02
        invalid_dynproname   = 03
        invalid_dynpronummer = 04
        invalid_request      = 05
        no_fielddescription = 06
        undefind_error       = 07.
    ASSERT sy-subrc = 0.
ENDIF.
Problem is: The DYNP_VALUES_UPDATE does not update the field on my dynpro at all. If I hit enter another time, then the field is provided by the value as another PBO will be processed. What is my mistake here?
Regards
Manfred
Edited by: Rob Burbank on Oct 29, 2010 12:07 PM

Hi Manfred,
Replace all the DYNP_VALUES_UPDATE-related content by the following statement:
SET USER-COMMAND 'xxx'.
While DYNP_VALUES_UPDATE does update the fields, a roundtrip is not triggered so the content of the fields will not be refreshed. The SET USER-COMMAND does that.
Hope this helps you!
Cheers, Roel

PHP Show if hides update fields, but they get overwritten with an empty string

I have an issue with a page where some update fields are displayed depending on who is logged, for example:
<?php if ($row_Users['UserID']=="101"){ ?>
<input <?php if (!(strcmp($row_lodges['101_finalist'],"Yes"))) {echo "checked=\"checked\"";} ?> type="checkbox" name="101_finalist" value="Yes"/>
<input type="text" class="rankfield" name="101_rank" value="<?php echo($row_lodges['101_rank']); ?>" />
<?php } ?>
<?php if ($row_Users['UserID']=="102"){ ?>
<input <?php if (!(strcmp($row_lodges['102_finalist'],"Yes"))) {echo "checked=\"checked\"";} ?> type="checkbox" name="102_finalist" value="Yes"/>
<input type="text" class="rankfield" name="102_rank" value="<?php echo($row_lodges['102_rank']); ?>" />
<?php } ?>
The issue I have is that if User101 is logged in and updates fields 101_finalist and 101_rank, it overwrites 102_finalist and 102_rank with an empty string.
Is it possible to prevent each user from seeing the other fields for other users, and prevent the existing values for those other users not be overwritten?
Hope that makes sense!
Thank you.

That would mean multiple nominations when really there only needs to be one nomination per category in any given country.
It would be:
1, 345, 101, Borana Lodge, 7, 2, Yes, 1
1, 345, 102, Borana Lodge, 7, 2, Yes, 3
1, 345, 103, Borana Lodge, 7, 2, No, NULL
Instead of:
1, 345, Borana Lodge, 7, 2, Yes, 1, Yes, 3, No, NULL
Sorry, Lodge isn't in the nominations table, the list above is what is displayed on the site. Lodge gets looked up in the Ldoges table.
At the moment it works like this:
People can visit a website and vote for lodges in different categories, giving them a score out of 10 for each.
If a lodge gets a vote in a particular category an admin person creates a nomination for that lodge, in that category.
And the last bit is where judges login and tag the ones they think should be finalists.

How to update fields in multiple tables ?

Dear all,
What is the fastest way to update fields in multiple tables... from a single change table...as below is my code to update the fields but it is taking long time to update as i need to keep log file if any one update fails....
CREATE OR REPLACE
package body DO_DC_NAME_UPDATE_OTHER_TAB
as
type rowidArray is table of rowid index by binary_integer;
type custRec is record
n_cust_ref_no dbms_sql.number_table,
v_name dbms_sql.varchar2_table,
v_name_chg dbms_sql.varchar2_table,
rowid rowidArray,
changed dbms_sql.varchar2_table
procedure VALIDATE_CUST_NAME( p_n_cust_ref_no in number,p_v_name_chg in out NOCOPY varchar2, p_changed in out NOCOPY varchar2 )
is
begin
FOR cr_cust IN (SELECT --a.n_cust_ref_no,a.v_name,UPD_V_NAME, a.n_weight,a.V_LASTUPD_INFTIM
from GNMT_CUSTOMER_MASTER_CHG where n_cust_ref_no=p_n_cust_ref_no)
     loop
-- v_name
if nvl(trim(cr_cust.v_name),0) != nvl(p_v_name_chg,0)
then
          p_v_name_chg := p_v_name_chg;
          --p_v_name := p_v_name;
          p_changed := 'Y';
end if;
     end loop;
end;
procedure DO_NAME_UPDATE_OTHER_TAB
is
l_record custRec;
l_array_size number default 20000;
l_done boolean;
l_cnt number default 1;
cursor c is select a.n_cust_ref_no, a.v_name,a.v_name_chg, a.rowid, 'N'
                    from GNMT_CUSTOMER_MASTER_CHG a--,GNMT_CUSTOMER_MASTER b
                    where a.v_name <> trim(a.v_name_chg); --and a.n_cust_ref_no in (1434775,1561181,1601870);
begin
open c;
loop
dbms_application_info.set_client_info
( 'processing ' || l_cnt || ' thru ' || (l_cnt+l_array_size-1) );
fetch c bulk collect into l_record.n_cust_ref_no, l_record.v_name,l_record.v_name_chg,l_record.rowid, l_record.changed
LIMIT l_array_size;
l_done := c%notfound;
--dbms_output.put_line ('message10');
for i in 1 .. l_record.n_cust_ref_no.count
loop
VALIDATE_CUST_NAME(l_record.n_cust_ref_no(i),l_record.v_name_chg(i),l_record.changed(i) );
end loop;
--dbms_output.put_line (l_record.n_cust_ref_no(i)||','||l_record.V_OCCUP_CODE(i)||','||l_record.CHANGED(i));
/*forall i in 1 .. l_record.n_cust_ref_no.count
update GNMT_CUSTOMER_MASTER q
set q.v_name = l_record.v_name_chg(i)
where q.n_cust_ref_no = l_record.n_cust_ref_no(i)
and trim(q.v_name) = l_record.v_name(i)
and l_record.changed(i) = 'Y';*/
-- update v_name in all the related tables
forall i in 1 .. l_record.n_cust_ref_no.count
update ADE_CUSTOMER_MASTER q
set q.v_NAME = l_record.v_name_chg(i)
where q.n_cust_ref_no = l_record.n_cust_ref_no(i)
and trim(q.v_name) = l_record.v_name(i)
and l_record.changed(i) = 'Y'
and q.v_NAME is not null;
forall i in 1 .. l_record.n_cust_ref_no.count
update GNMT_POLICY_DETAIL q
set q.v_NAME = l_record.v_name_chg(i)
where q.n_cust_ref_no = l_record.n_cust_ref_no(i)
and trim(q.v_name) = l_record.v_name(i)
and l_record.changed(i) = 'Y'
and q.v_NAME is not null;
forall i in 1 .. l_record.n_cust_ref_no.count
update GNMT_QUOTATION_DETAIL q
set q.v_NAME =l_record.v_name_chg(i)
where q.n_cust_ref_no = l_record.n_cust_ref_no(i)
and trim(q.v_name) = l_record.v_name(i)
and l_record.changed(i) = 'Y'
and q.v_NAME is not null;
forall i in 1 .. l_record.n_cust_ref_no.count
update NBDT_BENEFICIARY q
set q.V_NAME = l_record.v_name_chg(i)
where q.n_cust_ref_no = l_record.n_cust_ref_no(i)
and trim(q.V_NAME) = l_record.v_name(i)
and l_record.changed(i) = 'Y'
and q.v_NAME is not null;
forall i in 1 .. l_record.n_cust_ref_no.count
update PSDT_NOMINATION_TRANSACTION q
set q.V_NAME = l_record.v_name_chg(i)
where q.n_cust_ref_no = l_record.n_cust_ref_no(i)
and trim(q.V_NAME) = l_record.v_name(i)
and l_record.changed(i) = 'Y'
and q.v_NAME is not null;
forall i in 1 .. l_record.n_cust_ref_no.count
update PSMT_POLICY_BENEFICIARY q
set q.V_NAME = l_record.v_name_chg(i)
where q.n_cust_ref_no = l_record.n_cust_ref_no(i)
and trim(q.V_NAME) = l_record.v_name(i)
and l_record.changed(i) = 'Y'
and q.v_NAME is not null;
commit;
forall i in 1 .. l_record.n_cust_ref_no.count
update PSMT_POLICY_TRUSTEE q
set q.V_NAME = l_record.v_name_chg(i)
where q.n_cust_ref_no = l_record.n_cust_ref_no(i)
and trim(q.V_NAME) = l_record.v_name(i)
and l_record.changed(i) = 'Y'
and q.v_NAME is not null;
forall i in 1 .. l_record.n_cust_ref_no.count
update PSMT_QUOTATION_BENEFICIARY q
set q.V_NAME = l_record.v_name_chg(i)
where q.n_cust_ref_no = l_record.n_cust_ref_no(i)
and trim(q.V_NAME) = l_record.v_name(i)
and l_record.changed(i) = 'Y'
and q.v_NAME is not null;
forall i in 1 .. l_record.n_cust_ref_no.count
update PSMT_QUOTATION_TRUSTEE q
set q.V_NAME = l_record.v_name_chg(i)
where q.n_cust_ref_no = l_record.n_cust_ref_no(i)
and trim(q.V_NAME) = l_record.v_name(i)
and l_record.changed(i) = 'Y'
and q.v_NAME is not null;
commit;
forall i in 1 .. l_record.n_cust_ref_no.count
update GNDT_BLACKLIST_DETAIL q
set q.v_FNAME = l_record.v_name_chg(i)
where q.n_cust_ref_no = l_record.n_cust_ref_no(i)
and trim(q.v_FNAME) = l_record.v_name(i)
and l_record.changed(i) = 'Y'
and q.v_FNAME is not null;
forall i in 1 .. l_record.n_cust_ref_no.count
update INDT_LIAM_DETAIL q
set q.v_FNAME = l_record.v_name_chg(i)
where q.n_cust_ref_no = l_record.n_cust_ref_no(i)
and trim(q.v_FNAME) = l_record.v_name(i)
and l_record.changed(i) = 'Y'
and q.v_FNAME is not null;
commit;
forall i in 1 .. l_record.n_cust_ref_no.count
update GNMT_POLICY q
set q.V_PAYER_NAME = l_record.v_name_chg(i)
where q.N_PAYER_REF_NO = l_record.n_cust_ref_no(i)
and trim(q.V_PAYER_NAME) = l_record.v_name(i)
and l_record.changed(i) = 'Y'
and q.V_PAYER_NAME is not null;
commit;
forall i in 1 .. l_record.n_cust_ref_no.count
update GNMT_QUOTATION q
set q.V_PAYER_NAME = l_record.v_name_chg(i)
where q.N_PAYER_REF_NO = l_record.n_cust_ref_no(i)
and trim(q.V_PAYER_NAME) = l_record.v_name(i)
and l_record.changed(i) = 'Y'
and q.V_PAYER_NAME is not null;
commit;
forall i in 1 .. l_record.n_cust_ref_no.count
update GNMT_QUOTATION q
set q.V_PROPOSER_NAME = l_record.v_name_chg(i)
where q.N_PROPOSER_REF_NO = l_record.n_cust_ref_no(i)
and trim(q.V_PROPOSER_NAME) = l_record.v_name(i)
and l_record.changed(i) = 'Y'
and q.V_PROPOSER_NAME is not null;
forall i in 1 .. l_record.n_cust_ref_no.count
update GNMT_POLICY q
set q.V_PROPOSER_NAME = l_record.v_name_chg(i)
where q.N_PROPOSER_REF_NO = l_record.n_cust_ref_no(i)
and trim(q.V_PROPOSER_NAME) = l_record.v_name(i)
and l_record.changed(i) = 'Y'
and q.V_PROPOSER_NAME is not null;
forall i in 1 .. l_record.n_cust_ref_no.count
update CLMT_CLAIM_MASTER q
set q.V_CLIENT_NAME = l_record.v_name_chg(i)
where q.N_CLIENT_REF_NO = l_record.n_cust_ref_no(i)
and trim(q.V_CLIENT_NAME) = l_record.v_name(i)
and l_record.changed(i) = 'Y'
and q.V_CLIENT_NAME is not null;
forall i in 1 .. l_record.n_cust_ref_no.count
update CLMT_CLAIM_MASTER q
set q.V_INTIMATOR_NAME = l_record.v_name_chg(i)
where q.N_CLIENT_REF_NO = l_record.n_cust_ref_no(i)
and trim(q.V_INTIMATOR_NAME) = l_record.v_name(i)
and l_record.changed(i) = 'Y'
and q.V_INTIMATOR_NAME is not null;
forall i in 1 .. l_record.n_cust_ref_no.count
update PYMT_VOU_MASTER q
set q.V_PAYEE_NAME = l_record.v_name_chg(i)
where q.n_cust_ref_no = l_record.n_cust_ref_no(i)
and trim(q.V_PAYEE_NAME) = l_record.v_name(i)
and l_record.changed(i) = 'Y'
and q.V_PAYEE_NAME is not null;
/*forall i in 1 .. l_record.n_cust_ref_no.count
     INSERT INTO GNMT_CUSTOMER_MASTER_LOG
          (N_CUST_REF_NO, V_TITLE_CODE, V_NAME, D_BIRTH_DATE, V_SEX, V_RELIGION_CODE, V_NATION_CODE, V_OCCUP_CODE, V_ALIVE, V_SMOKER,
          N_NO_STICKS, D_DEATH_DATE, V_BUMI_NON_BUMI, V_AGE_ADMITTED, V_SHORT_NAME, V_FIRST_NAME, V_LAST_NAME, V_EMAIL, V_DESIGNATION,
          N_HEIGHT,N_WEIGHT,V_TITLE_CODE_CHG, V_NAME_CHG, D_BIRTH_DATE_CHG, V_SEX_CHG,V_RELIGION_CODE_CHG,V_NATION_CODE_CHG, V_OCCUP_CODE_CHG, V_ALIVE_CHG,
          V_SMOKER_CHG, N_NO_STICKS_CHG, D_DEATH_DATE_CHG,V_BUMI_NON_BUMI_CHG, V_AGE_ADMITTED_CHG, V_SHORT_NAME_Chg, V_FIRST_NAME_Chg,
          V_LAST_NAME_Chg, V_EMAIL_Chg, V_DESIGNATION_Chg,N_HEIGHT_Chg,N_WEIGHT_Chg, V_UPD_STATUS_DC,-- V_LASTUPD_PROG, V_LASTUPD_INFTIM,
          V_LASTUPD_USER_DC, V_LASTUPD_PROG_DC,V_LASTUPD_INFTIM_DC
          SELECT N_CUST_REF_NO, V_TITLE_CODE, V_NAME, D_BIRTH_DATE, V_SEX, V_RELIGION_CODE, V_NATION_CODE, V_OCCUP_CODE, V_ALIVE, V_SMOKER,
          N_NO_STICKS, D_DEATH_DATE, V_BUMI_NON_BUMI, V_AGE_ADMITTED, V_SHORT_NAME, V_FIRST_NAME, V_LAST_NAME, V_EMAIL, V_DESIGNATION,
          N_HEIGHT,N_WEIGHT,V_TITLE_CODE_CHG, V_NAME_CHG, d_birth_date_chg, V_SEX_CHG, V_RELIGION_CODE_CHG,V_NATION_CODE_CHG, V_OCCUP_CODE_CHG, V_ALIVE_CHG,
          V_SMOKER_CHG, N_NO_STICKS_CHG, D_DEATH_DATE_CHG, V_BUMI_NON_BUMI_CHG, V_AGE_ADMITTED_CHG, V_SHORT_NAME_Chg, V_FIRST_NAME_Chg,
          V_LAST_NAME_Chg, V_EMAIL_Chg, V_DESIGNATION_Chg,N_HEIGHT_Chg,N_WEIGHT_Chg--, V_LASTUPD_USER, V_LASTUPD_PROG, V_LASTUPD_INFTIM
          ,'PROCESSED'
          ,user,--P_USER,
          'DC_PAKAGE',
          sysdate--P_DATE
          FROM GNMT_CUSTOMER_MASTER_CHG where n_cust_ref_no =l_record.n_cust_ref_no(i)
          --and n_cust_ref_no not in (select n_cust_ref_no from GNMT_CUSTOMER_MASTER_LOG);*/
exit when (l_done);
l_cnt := l_cnt + l_array_size;
end loop;
commit;
end;
end;
thank You

Dear SeánMacGC thanks for reply,
But "a.changed" is not a field in GNMT_CUSTOMER_MASTER_CHG. what i am doing in this procedure is i am collecting bulck data and validating field by field from GNMT_CUSTOMER_MASTER_CHG with GNMT_CUSTOMER_MASTER table as their structure is same.. if v_name is not same as v_name_chg then i am setting changed flag to "Y" changed is "changed dbms_sql.varchar2_table" and updating GNMT_CUSTOMER_MASTER in bluck where changed flag ='Y'...
type custRec is record
n_cust_ref_no dbms_sql.number_table,
v_name dbms_sql.varchar2_table,
v_name_chg dbms_sql.varchar2_table,
rowid rowidArray,
*changed dbms_sql.varchar2_table*
i cannot use simple SQL as i need to validate field for each records with GNMT_CUSTOMER_MASTER_CHG and insert into log file as well.....
to run this procedure:
execute DO_DC_NAME_UPDATE_OTHER_TAB.DO_NAME_UPDATE_OTHER_TAB;
Thanks...

Updated field in IC Agent Inbox

Hi Forum,
What is the "Updated" field in agent inbox? Am not able to see any values in that when I search for service requests. Please help me on how to show the updated date in that.
Regards,
Shridhar

Hi Shridhar,
I am afraid the "Updated" field is not managed at all.
If you look at workbench component ICCMP_INBOX, view InboxItems, context > context nodes > tree structure > tree node proxy > double-clic on class CL_ICCMP_IN_INBOXITEMS_CN02, double-clic on method GET_LASTUPDATE. Statement "clear value." indicates no value is returned.
Now you could enhance view ICCMP_INBOX,/InboxItems with custom code, and set your own content into method CL_ICCMP_IN_INBOXITEMS_CN02->GET_LASTUPDATE.
Do not count on reporting framework to provide the value for that field. Although structure CRMT_REPORT_LOCATORLIST foresees it, it is not filled with value by search query: see method CL_CRM_QUERYAUI_RUN_BTIL->GET_RESULT_LIST to get exact list of fields returned. CREATED_AT_DATE field is part of it, but not CHANGED_AT_DATE.
But you may perform the re-read of last change date even in CL_ICCMP_IN_INBOXITEMS_CN02->GET_LASTUPDATE method, because SAP already takes advantage of user-buffering in function CRM_ORDER_READ.
So adding following code to CL_ICCMP_IN_INBOXITEMS_CN02->GET_LASTUPDATE should show you correct last update
data:
lv_header_guid type crmt_object_guid,
lt_guids       type crmt_object_guid_tab,
ls_req_obj     type crmt_object_name,
lt_req_obj     type crmt_object_name_tab,
lt_orderadm_h type crmt_orderadm_h_wrkt,
lv_date        type sydatum,
lv_time        type syuzeit.
lv_header_guid ?= me->bo->get_property( 'GUID' ).
check lv_header_guid is not initial.
insert lv_header_guid into table lt_guids.
ls_req_obj = 'ORDERADM_H'.
insert ls_req_obj into table lt_req_obj.
call function 'CRM_ORDER_READ'
exporting
    it_header_guid       = lt_guids
    it_requested_objects = lt_req_obj
importing
    et_orderadm_h        = lt_orderadm_h
exceptions
    others               = 4.
if sy-subrc is initial.
read table lt_orderadm_h into crmt_orderadm_h_wrk index 1.
if sy-subrc is initial.
    CONVERT TIME STAMP crmt_orderadm_h_wrk-changed_at TIME ZONE sy-zonlo
        INTO DATE lv_date TIME lv_time.
may need to convert first to strings
    concatenate lv_date lv_time into value separated by space.
endif.
endif.
Hope you can use these ideas
Kind regards
Walter

How to make a Password Field in a Dynpro?

Hi Folks,
as the subject says i need to make a password field in my dynpro. i know how to do it with parameters but thats not what i need. i made a dynpro with a field in which Users can type a Password and i need it to be shown like this "********".
how can i do this?
thanks in advance.

heh... its really annoying that i just can't find such easy things with google and have to post it in the forums -.-
anyway. thanks a lot.

How to update field values in a database table using module pool prg?

hi
how to update field values in a database table using module pool prg?
we created a customized table, and we put 2 push buttons in screen painter update and display.
but update is not working?
data is enter into screen fields and to internal table, but it is not updated in database table.
thanks in adv
vidya

HI,
we already used the update statement. but its not working.
plz check this.
*& Module Pool       ZCUST_CALL_REC
PROGRAM ZCUST_CALL_REC.
TABLES: ZCUST_CALL_REC,ZREMARKS.
data: v_kun_low like ZCUST_CALL_REC-kunnr ,
       v_kun_high like ZCUST_CALL_REC-kunnr,
       v_bud_low like ZCUST_CALL_REC-budat,
       v_bud_high like ZCUST_CALL_REC-budat.
ranges r_kunnr for ZCUST_CALL_REC-kunnr .
ranges r_budat for zcust_call_rec-budat.
DATA: ITAB TYPE STANDARD TABLE OF ZCUST_CALL_REC WITH HEADER LINE,
      JTAB TYPE STANDARD TABLE OF ZREMARKS WITH HEADER LINE.
*data:begin of itab occurs 0,
    MANDT LIKE ZCUST_CALL_REC-MANDT,
    kunnr like ZCUST_CALL_REC-kunnr,
    budat like ZCUST_CALL_REC-budat,
    code like ZCUST_CALL_REC-code,
    remarks like ZCUST_CALL_REC-remarks,
    end of itab.
*data:begin of Jtab occurs 0,
    MANDT LIKE ZCUST_CALL_REC-MANDT,
    kunnr like ZCUST_CALL_REC-kunnr,
    budat like ZCUST_CALL_REC-budat,
    code like ZCUST_CALL_REC-code,
    remarks like ZCUST_CALL_REC-remarks,
    end of Jtab.
CONTROLS:vcontrol TYPE TABLEVIEW USING SCREEN '9001'.
CONTROLS:vcontrol1 TYPE TABLEVIEW USING SCREEN '9002'.
*start-of-selection.
*&      Module USER_COMMAND_9000 INPUT
      text
MODULE USER_COMMAND_9000 INPUT.
CASE sy-ucomm.
WHEN 'BACK' OR 'EXIT' OR 'CANCEL'.
SET SCREEN 0.
LEAVE SCREEN.
CLEAR sy-ucomm.
WHEN 'ENQUIRY'.
perform multiple_selection.
perform append_CUSTOMER_code.
PERFORM SELECT_DATA.
call screen '9001'.
WHEN 'UPDATE'.
      perform append_CUSTOMER_code.
      PERFORM SELECT_DATA.
      call screen '9002'.
      perform update on commit.
WHEN 'DELETE'.
      perform append_CUSTOMER_code.
      PERFORM SELECT_DATA.
      call screen '9002'.
ENDCASE.
ENDMODULE.                 " USER_COMMAND_9000 INPUT
*&      Module STATUS_9000 OUTPUT
      text
MODULE STATUS_9000 OUTPUT.
SET PF-STATUS 'ZCUSTOMER'.
SET TITLEBAR 'xxx'.
ENDMODULE.                 " STATUS_9000 OUTPUT
*&      Module USER_COMMAND_9001 INPUT
      text
MODULE USER_COMMAND_9001 INPUT.
CASE sy-ucomm.
WHEN 'BACK' OR 'EXIT' OR 'CANCEL'.
SET SCREEN 0.
LEAVE SCREEN.
CLEAR sy-ucomm.
endcase.
ENDMODULE.                 " USER_COMMAND_9001 INPUT
*&      Module STATUS_9001 OUTPUT
      text
MODULE STATUS_9001 OUTPUT.
SET PF-STATUS 'ZCUSTOMER'.
SET TITLEBAR 'xxx'.
move itab-MANDT   to zcust_call_rec-MANDT.
move itab-kunnr   to zcust_call_rec-kunnr.
move itab-budat   to zcust_call_rec-budat.
move itab-code    to zcust_call_rec-code.
move itab-remarks to zcust_call_rec-remarks.
vcontrol-lines = sy-dbcnt.
ENDMODULE.                 " STATUS_9001 OUTPUT
*&      Module USER_COMMAND_9002 INPUT
      text
module USER_COMMAND_9002 input.
CASE sy-ucomm.
   WHEN 'BACK' OR 'EXIT' OR 'CANCEL'.
      SET SCREEN 0.
      LEAVE SCREEN.
      CLEAR sy-ucomm.
   WHEN 'UPDATE'.
         perform move_data.
     UPDATE ZCUST_CALL_REC FROM TABLE ITAB.
        IF SY-SUBRC = 0.
           MESSAGE I000(0) WITH 'RECORDS ARE UPDATED'.
         ELSE.
           MESSAGE E001(0) WITH 'RECORDS ARE NOT UPDATED'.
        ENDIF.
WHEN 'DELETE'.
         perform move_data.
         DELETE ZCUST_CALL_REC FROM TABLE ITAB.
          IF SY-SUBRC = 0.
           MESSAGE I000(0) WITH 'RECORDS ARE DELETED'.
         ELSE.
           MESSAGE E001(0) WITH 'RECORDS ARE NOT DELETED'.
        ENDIF.
endcase.
endmodule.                 " USER_COMMAND_9002 INPUT
*&      Module STATUS_9002 OUTPUT
      text
module STATUS_9002 output.
SET PF-STATUS 'ZCUSTOMER1'.
SET TITLEBAR 'xxx'.
endmodule.                 " STATUS_9002 OUTPUT
*&      Module update_table OUTPUT
      text
module update_table output.
     move itab-MANDT   to zcust_call_rec-MANDT.
     move itab-kunnr   to zcust_call_rec-kunnr.
     move itab-budat   to zcust_call_rec-budat.
     move itab-code    to zcust_call_rec-code.
     move itab-remarks to zcust_call_rec-remarks.
vcontrol-lines = sy-dbcnt.
endmodule.                 " update_table OUTPUT
***Selection Data
FORM SELECT_DATA.
SELECT mandt kunnr budat code remarks FROM zcust_call_rec INTO
                        table itab
                         WHERE kunnr IN r_kunnr AND BUDAT IN R_BUDAT.
ENDFORM.
****append vendor code
FORM APPEND_CUSTOMER_CODE.
clear r_kunnr.
clear itab.
clear r_budat.
refresh r_kunnr.
refresh itab.
refresh r_kunnr.
IF r_kunnr IS INITIAL
              AND NOT v_kun_low IS INITIAL
               AND NOT v_kun_high IS INITIAL.
                    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
                                EXPORTING
                                   input         = v_kun_low
                                IMPORTING
                                   OUTPUT        = r_kunnr-low.
                   CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
                              EXPORTING
                                  input         = v_kun_high
                              IMPORTING
                                  OUTPUT        = r_kunnr-high.
                 r_kunnr-option = 'BT'.
                 r_kunnr-sign = 'I'.
                 append r_kunnr.
   PERFORM V_BUDAT.
ELSEIF r_kunnr IS INITIAL
              AND NOT v_kun_low IS INITIAL
               AND v_kun_high IS INITIAL.
                    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
                                EXPORTING
                                   input         = v_kun_low
                                IMPORTING
                                   OUTPUT        = r_kunnr-low.
                r_kunnr-SIGN = 'I'.
                r_kunnr-OPTION = 'EQ'.
                APPEND r_kunnr.
   PERFORM V_BUDAT.
ELSEIF r_kunnr IS INITIAL
              AND v_kun_low IS INITIAL
               AND NOT v_kun_high IS INITIAL.
                    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
                                EXPORTING
                                   input         = v_kun_low
                                IMPORTING
                                   OUTPUT        = r_kunnr-low.
                r_kunnr-SIGN = 'I'.
                r_kunnr-OPTION = 'EQ'.
                APPEND r_kunnr.
      PERFORM V_BUDAT.
ELSEIF r_kunnr IS INITIAL
              AND v_kun_low IS INITIAL
               AND v_kun_high IS INITIAL.
                    IF SY-SUBRC = 0.
                         MESSAGE I003(0) WITH 'ENTER CUSTOMER NUMBER'.
                          CALL SCREEN '9000'.
                    ENDIF.
PERFORM V_BUDAT.
ENDIF.
ENDFORM.
FORM V_BUDAT.
IF R_BUDAT IS INITIAL
               AND NOT v_BUD_low IS INITIAL
               AND NOT v_BUD_high IS INITIAL.
                 r_budat-low = v_bud_low.
                 r_budat-high = v_bud_high.
                 r_budat-option = 'BT'.
                 r_budat-sign = 'I'.
                 append r_budat.
         ELSEIF R_BUDAT IS INITIAL
               AND NOT v_BUD_low IS INITIAL
               AND v_BUD_high IS INITIAL.
                 r_budat-low = v_bud_low.
                 r_budat-high = v_bud_high.
                 r_budat-option = 'EQ'.
                 r_budat-sign = 'I'.
                 append r_budat.
         ELSEIF R_BUDAT IS INITIAL
               AND v_BUD_low IS INITIAL
               AND NOT v_BUD_high IS INITIAL.
                 r_budat-HIGH = v_bud_HIGH.
                 r_budat-option = 'EQ'.
                 r_budat-sign = 'I'.
                 append r_budat.
          ELSEIF R_BUDAT IS INITIAL
               AND v_BUD_low IS INITIAL
               AND v_BUD_high IS INITIAL.
               IF SY-SUBRC = 0.
                   MESSAGE I002(0) WITH 'ENTER POSTING DATE'.
                  CALL SCREEN '9000'.
                r_budat-low = ''.
                r_budat-option = ''.
                r_budat-sign = ''.
                ENDIF.
        ENDIF.
ENDFORM.
*&      Form update
      text
--> p1        text
<-- p2        text
form update .
commit work.
endform.                    " update
*&      Form move_data
      text
--> p1        text
<-- p2        text
form move_data .
   clear itab.
refresh itab.
       move-corresponding zcust_call_rec to itab.
       MOVE ZCUST_CALL_REC-MANDT   TO ITAB-MANDT.
       MOVE ZCUST_CALL_REC-KUNNR   TO ITAB-KUNNR.
       MOVE ZCUST_CALL_REC-BUDAT   TO ITAB-BUDAT.
       MOVE ZCUST_CALL_REC-CODE    TO ITAB-CODE.
       MOVE ZCUST_CALL_REC-REMARKS TO ITAB-REMARKS.
     APPEND ITAB.
     delete itab where kunnr is initial.
endform.                    " move_data
thanks in adv
vidya

Issue with field data type NUMBER(22,5) while updating field data.

Hi,
I have a field with data type NUMBER(22,5).
While inserting or updating field data it should take 17 digit and after decimal point 5 digit total 22 digit.
I set 22 for maximumLength property of messageTextInput field.
While updating field I am getting following problems,
1) I provide the value as 1234567890123456789012 (22 digit) and click apply button.
then I got error message as
Error
मैकेनाइजड दो पहिया/तीन पहिया वाहन - Value 1234567890123460000000 exceeds the maximum allowed value (NUMERIC (22, 5))
2)then I insert 12345678901234567.1234 (17 digit before decimal point and 4 digit after decimal point and it didn't accept 5 digit after decimal point) and click apply button.
It insert the value as 12345678901234600 (value changed after Apply)
The I tried with simple SQL insert statement to insert data and it successfully insert 12345678901234567.12345 value.
Any item property I missed here to set?
Please suggest.
Thanks & Regards,
Sagarika

hi
according to
" then I insert 12345678901234567.1234 (17 digit before decimal point and 4 digit after decimal point and it didn't accept 5 digit after decimal point) and click apply button.
It insert the value as 12345678901234600 (value changed after Apply)"
this statement ,it seems that it is definitely applying round or somthing like that function in the code before inserting value in the table("try with select round(12345678901234567.1234 ) from dual u will get the same result = 123456789012345600 ") ,
bcz u r able to insert the same directely into the table using insert statement so kindely have look on the code if something like this is not happening there.try to check code in related EOimpl class
try to to use debugging mode ,and the 23 char problem is related to maximum lenghth of text box make it 23 it will get resolved and u will be able to enter 17 digits with 5 digits after decimal point
thanx pratap

Adding a field in Web dynpro java in Travel Request application

Hi All,
How to add a field in Web dynpro java in Travel Request application or can we copy the Web dynpro java application to Web dynpro ABAP and add a field. Experts, Can you please suggest me step by step in resolving the problem.
Thanks & Regards,
Kumar

Hi Kumar,
First, in order to customise the ESS webdynpro Java iViews you need to be aware that, you are about to change the SAP standard iviews. In order to avoid this you can make a copy of the SAP standard one's and then try to customise the copied one's.
Now, you should have NetWeaver Development Infrastructure(NWDI) installed. Once it is installed you should also install the Netweaver Developer Studio (NWDS) on your computer.
Once you have these two installed, you should deploy the ESS Business Package onto the NWDI by creating tracks. There is a cookbook available on SAP Service Marketplace for configuring NWDI for ESS.
Once you have all the above mentioned tools, have a look at the following blog which clearly explains about the procedure of customising ESS iviews.
/people/vinoth.murugaiyan/blog/2007/08/24/essmss-customization-150-make-it-simple
Also check the following Wiki, this might be useful!
https://www.sdn.sap.com/irj/scn/wiki?path=/display/erphcm/employee%252bself%252bservice
I hope this helps. Let me know if you have any issues.
Dont forgett to contribute points if this is useful! All the Best.
Regards,
PG

Clear/refresh(F5) fields in web dynpro application view

How to clear or refresh(F5) fields in web dynpro application abap while redirecting to another view? I have tried using "context_node->invalidate()" but it's not working for all the fields, some are getting initialised and some not. Is there any other method to refresh all the fields in the view all at once. Please guide.

Hi,
For the Context node( to which the drop down is bound) create a supply function as shown below:
Now populate the drop down in supply function method instead of WDDOINIT method.
Go to methods tab and write the below code in supply function method:
DATA lo_nd_drop TYPE REF TO if_wd_context_node.
    DATA lt_drop TYPE wd_this->elements_drop.
    DATA ls_drop TYPE wd_this->element_drop.
*Fill Drop down
    ls_drop-val = 'ABC'.
    APPEND ls_drop to lt_drop.
    ls_drop-val = 'DEF'.
    APPEND ls_drop to lt_drop.
* bind all the elements
   node->bind_table(
     new_items            = lt_drop
     set_initial_elements = abap_true ).
Now once you call invalidate( ) the drop down will automatically be initialized( since the supply function will be called again) And you don't have to write the code again to populate the drop down.
hope it's clear now.
Regards,
Kiran

Start Routine Logic Updating Field in Target ODS

Hi,
I am creating a Start Routine to Update Field (date) from one ODS to another based on the Key Structure: Document Number, Line Item Number.
I am encountering a situation as follows:
Source
Doc Num 1 Line Item 10 Date 1/1/1
Target
Doc Num 1 Line Item 10 Date 1/1/1
DocNum 1 Line Item 20
DocNum 1 Line Item 30
DocNum 1 Line Item 40
The Routine I have now correctly updates line item 10 with the date 1/1/1.
I am trying to modify the code to only update the target ods if all of the line items are in the source. In this example Line Item 10 would not get updated since Line Items 20,30,40 are not in the Source ODS.
Has anyone encountered something like this.
Thanks for any help.

Hi,
If you have all the line items in target for which you want to do updates you can do this in transformation start routine.
Try this first hand logic :
1. Create a internal tables(say SOURCE_INTERNAL_TABLE and TARGET_INTERNAL_TABLE)
    with fields document number and another field integer say COUNTER
2. Read active table of source for all the document numbers in source package.
3. Update the SOURCE_INTERNAL_TABLE for all the document number with appropriate counts
    (All the records of same document number should be in same data package)
4. Update the TARGET_INTERNAL_TABLE by reading the target ODS as done for source.
5. LOOP AT SOURCE_PACKAGE
     if COUNTER in SOURCE_INTERNAL_TABLE and TARGET_INTERNAL_TABLE is not same
     then delete the record from source package itself
   END LOOP
6. Your next code
    (Please take care that you are not referring the deleted records otherwise it will through a dump)
If you don't have all the line items in target then you need to bring them somewhere in BI (document number and item number only sufficient with both as a key fields) so as to refer them in your start routine.
Please update me if anything is wrong or if any corrections in logic.
Thanks and Regards,
Prashant Vankudre.

How to update field in table FAGLFLEXA/FAGLFLEXT

Hi Gurus,
     we are stay in ECC 5.00. The new g/l have activated but we have not assigned the relevant scenario to the ledger (Refer note no 990612)
     now we have assinged following field:
     FIN_CCA: RCNTR (Cost center), SCNTR (Sender cost center)
     FIN_CONS: RASSC (Trading partner), RMVCT (Transaction Type)
     FIN_GSBER: RBUSA (Business area), SBUSA (Trading partner's business area)
     FIN_PCA: PRCTR (Profit Center), PPRCTR (Partner Profit Ctr)
     FIN_SEGM: SEGMENT (Segment), PSEGMENT (Partner segment)
     FIN_UKV: RFAREA (Functional Area), SFAREA (Partner Functional Area)
     our problem is the data was posted before that does not update fields in table FAGLFLEXA/FAGLFLEXT,How to update field in table FAGLFLEXA/FAGLFLEXT?
Thanks,

Hello Jenjira,
Since this was a question asked few years back, I think you can share your experience with activation of a Scenario subsequent to Go-Live of new GL functionality (We are contemplating activation of one more scenario for Functional Area updation in new GL. 4 update scenarios were activated at time of New GL Implementation 4 years ago).
Please share following:
1. Impact of this subsequent activation on Open documents in the live system.
2. How you addressed the issues arising on Point 1.
3. Any support that you got from SAP Support Team on issues thereof.
Any inputs will be of great help.

Read from database (Access) and update fields using MS ADODB

Hello,
I am trying to get records from database using MS ADODB._connection & ADODB._Recordset objects (from LabVIEW 6)
I can:
1. open connection (with ADODB._connection)
2. write into tables (with ADODB._command)
I can not: gets records and update fields using ADODB._connection & ADODB._Recordset.
I do not know:
1. how to connect between the connection that was opened and the recordset object
2. where I can write the SQL text as input to the recordset
Attached is DataBase.llb with DB_read.vi that display my steps.
Thanks.
Attachments:
DataBase.llb ‏40 KB

Try this one, after updating the names for database and the table you want.
Let me know if it's working.
p.s.: if you have problems, it could be a different adodb version ... but the sequence of methods is the same
Attachments:
EditdatabaseMe.vi ‏57 KB

Update field LSMNG in MIGO transaction using bapi bapi_goodsmvt_create

Hi ,
I am using bapi bapi_goodsmvt_create for creating goods receipt against purchase order in which I have to update field LSMNG i.e. Del. Note Qty. But this field is not there in BAPI input parameters/table fields.
How i can update this field using the same bapi
Thanks and regards
Deepak Sharma

Hi,
Can I update this field using BAPI bapi_goodsmvt_create.
thanks
Deepak

Updating field ELIKZ EKPO on a CONTRACT(me33k) - how ?

I am updating field ELIKZ EKPO on a CONTRACT(me33k) using BAPI: BAPI_CONTRACT_CHANGE in my report program.
This BAPi give a message 'Change ELIKZ could not be effected'
MEssage ID of this message is I ME 664.
So, Is there any otherbapi or other solution to update this field.
Your help is highly appreciated.
Thanks in ADV.

Basically this is specific to AFS contract.
My requirement is : When I check the 'AFS Contract close' in tcode ME32K and press 'save' button, it updates table fields ekpo-elikz & eket-j_3acci(though ME23K does other things...my requirement is to check ekpo-elikz & eket-j_3acci get updated ).
I need to do the above using my report program.
1). So inorder to achive the above, I am calling a BAPI : BAPI_CONTRACT_CHANGE in which I am setting item-no_more_del = 'X' for the contract number.
However, the field 'AFS Contract close' is specific to AFS, this BAPI_CONTRACT_CHANGE bapi does not work. It only updates ekpo-elikz and but not eket-j_3acci. So my question is BAPI_CONTRACT_CHANGE is the solution for this ?
2). Is there any other way to achieve the above using my program other than BDC ?
Your help will be highly appreciated.
Thanks in advance

Update fields on a dynpro

Similar Messages

Maybe you are looking for