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

Similar Messages

Field KZWI4 is not getting updated in table EKPO

I have a case where for two scheduling agreements the pricing procedure getting determined is the same, but the field KZWI4 (subtotal 4) in table EKPO is getting updated for one SA and not for the other. The only difference in the two SAs are the tax codes. Do tax codes have any bearing on the field KZWI4 getting updated in table EKPO?
Regards,
Pratima.

Hi Pratima,
unfortunately i can only write that I am facing the same challenge at the moment. I will update the discussion as soon as I have a solution.
Best regards
Bjoern

Some fields are getting hidden in contract..

Hi All,
I have a problem while creating contract in ME31K.
Start of Validity period validity period end fields are getting hidden in ME31k.
Field selection group for the contract document type is WKK and these fields in this group are 'required entries'.
I don't understand how come these fields are disapearing in contract..
Can anybody please figure out the problem...
Thanks in advance
Raju

Hi,
In ME31K, these date fields will be usually not showed on the initial screen. While creating contract, after entering vendor, agreement type, agreement date, organizational data, we will be taken to the next screen where in we need to fill validity start date and end date.
In ME33K we can see this information under Header - > Details menu path.
If these dates are not available in the details tab, you might need to create a transaction variant from "SHD0" transaction. Please check under details tab and if not available create try to create a transaction varaint.
Hope this helps you !!!
Regards,
Ganga

Want to pass STRS2 field into sales order and contract.

Hi Friends.
I am creating Sales order using function module IDOC_INPUT_ORDERS and Contract using SD_SALESDOCUMENT_CREATE.
Now I want to pass STRS2(House number field into Sales Order/Contract). In IDOC I tried to pass E1EDKA1-STRS2, but its not coming into Sales order output.But SD_SALESDOCUMENT_CREATE dont have an option to pass the field value.
So in that case how can I achieve the desired functionality, Is there any user exit or let me know the suitable method to achieve the functionality.
Thanks
Gowrishankar

Yes I tried that also.I passed the value from program to user exit MV45AFZZ and updated the structure XVBADR in USEREXIT_SAVE_DOCUMENT_PREPARE, but its not getting reflected in Sales Order/Contract.
Anyone have suggestion..plz let me know.
Thanks
Gowrishankar

How to Update Fields in ES20 through EC70

Hi,
I have displayed some customer fileds in accelarated move-in/Out transaction EC70.Once i create move in through EC70 these customer fields are updated in EC70 also it creates contarct in background.
My requirement is to display the same customer fields in ES20 as well and same is to be filled with values from EC70 when contarct gets created.
Can anyone please tell me how to acheve this is there any EXIT or BADI for the same or any case it cab be achieved through MASTER DATA generator.
Thanks & Regards

Hi rushikesh,
PLEASE do NEVER use ES20 to create a contract, please do always use EC50E or something alike. You can CHANGE any contract you like with ES21, but never create one with ES20.
As for the customer fields - please see note 152498 - it describes a bit the user exists within the contract and how to use those.
KR
Uwe

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.

Not able to find values in LOV of field "Help Desk" of Global contract

Not able to find values in LOV of field "Help Desk" of Global contract defaults.
This value should be coming from resource setup.
Resource is already created.

Issue resolved:
The resource should ahve valid Email id in HR People setup

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 use BAPI extension for updating field which is not in BAPI stracture

I am doing a conversion for control cycle create. The data is maintained in DB Table "PKHD". i have to update 12 fields threre through BAPI "BAPI_KANBANCC_CREATE". there are 11 fields in BAPI structure. but 1 field called"BERKZ" is not there . How can i update it through EXTENSION.

Hi ,
in the bapi extension check one structure with name BAPIPAREX will available..
you need to pass custom structure in that..
ands conactenate 12 field of your structure and pass in to value1 in bapirex structure and append.
go to se11 and enter >bapiparex> check where it is used -->see the zprogram and check how it is used the add your code according to that..
Regards,
Prabhudas

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

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

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

Similar Messages

Maybe you are looking for