Problem in BAPI_BUSPROCESSND_CREATEMULTI
Dear Gurus,
I am trying to create a service order from WEB channel through the BAPI BAPI_BUSPROCESSND_CREATEMULTI.
I wanted to ask is this the best apporach to proceed??
as in would it take care of the Billing and posting entries to FI also??
and i am not able to find out where to provide bill to party and ship to party data.
can any1 please help me with this as in which tables parameter would be having bill to party and ship to party data???
Definite reward points for helpful answers.
Cheers,
Deepthee Kasal
Hi Dear,
My problem has been solved.I cannot paste the code here it would be against policies.But u can check the program
CRM_CALL_ACTIVITY_INTERFACE
I used this program for reference.Activate Debuggin mode and check the values of all the parameters it would be haelpful.
Cheers,
Deephee
Similar Messages
-
Problem with status of header in BAPI_BUSPROCESSND_CREATEMULTI
Hi All,
I start by shortly describing the situation of the problem.
We have CRM linked to R/3 (IS-U (energy products) and SD (home assistance products)).
We created a bsp application for the IC Winclient (integrated in a workspace) which makes it possible to create a contract easily. When I create a contract with 3 items (10 = Electricity; 20 = Home Assistance; 30 = Gas) then replication of item 20 to SD is not done. the status of the header does not change to 'to be distributed'...
And since I use the BAPI 'BAPI_BUSPROCESSND_CREATEMULTI' it is possible to change the user status (works fine) but still it doesn't replicate.
Since the BAPI does a CRM_ORDER_SAVE, afterwards I can't change it directly because it is still locked...
Does anybody know how I can fix this???
thanx in advance!!
MichaHi Kapil,
I totally agree with you that in the normal circumstances the replication is complete. And it is the case if I create a contract where the Home Assistance is the last item...
But when I create a contract with 3 items (10 = Electricity (new customer so a workflow is started and no replication is needed yet); 20 = Home Assistance (should be replicated to SD); 30 = Gas (new customer so a workflow is started and no replication is needed yet)) then the item 20 is not replicated...
I changed the order of the contract (within the program) and if I create the contract with the following order (10 = Electricity (new customer so a workflow is started and no replication is needed yet); 20 = Gas (new customer so a workflow is started and no replication is needed yet); 30 = Home Assistance (should be replicated to SD)), then the Home Assistance is replicated fine...
It is a very strange problem... replication works fine in all cases, just not in this order....
Thanks for the tip anyhow!!
Micha -
Problem in creating complain with BAPI_BUSPROCESSND_CREATEMULTI
*& Report YTEST2
REPORT ytest2.
DATA: lv_header_guid TYPE guid_32,
ls_orderadm_h TYPE TABLE OF bapibus20001_header_ins WITH HEADER LINE,
ls_input_fields TYPE TABLE OF bapibus20001_input_fields WITH HEADER LINE,
lt_created_process TYPE TABLE OF bapibus20001_header_ins WITH HEADER LINE,
lt_return TYPE TABLE OF bapiret2 WITH HEADER LINE ,
lt_objects_to_save TYPE TABLE OF bapibus20001_guid_dis WITH HEADER LINE,
lt_saved_objects TYPE TABLE OF bapibus20001_object_id WITH HEADER LINE,
lt_log TYPE bapibus20001_control-log_handle,
ls_objects_to_save TYPE bapibus20001_guid_dis,
lt_orgman TYPE TABLE OF bapibus20001_orgman_ins WITH HEADER LINE,
lt_partner TYPE TABLE OF bapibus20001_partner_ins WITH HEADER LINE,
lt_service TYPE TABLE OF bapibus20001_service_os_ins WITH HEADER LINE .
CALL FUNCTION 'GUID_CREATE'
IMPORTING
ev_guid_32 = lv_header_guid.
*CONCATENATE text-d01 is_import-complt_id i
*INTO ls_orderadm_h-description SEPARATED BY space.
PERFORM orderadm_h.
PERFORM orgman.
PERFORM partner.
PERFORM lt_service.
CLEAR: lt_created_process, lt_return.
CALL FUNCTION 'BAPI_BUSPROCESSND_CREATEMULTI'
TABLES
header = ls_orderadm_h
item =
activity =
sales =
artner = lt_partner
organisation = lt_orgman
shipping =
appointment = lt_appointment
text = lt_text
service_os = lt_service
status =lt_status
input_fields = ls_input_fields
created_process = lt_created_process
return = lt_return.
lead =
opportunity =
product =
scheduleline =
customer_head =
customer_item =
pricing =
pricing_item =
condition_create =
billing = *
config_cfg =
Config_blb =
config_ins =
config_prt =
config_val = .
CLEAR ls_objects_to_save.
ls_objects_to_save-guid = lv_header_guid.
APPEND ls_objects_to_save TO lt_objects_to_save.
CLEAR lt_return.
CALL FUNCTION 'BAPI_BUSPROCESSND_SAVE'
* EXPORTING
* update_task_local = false
* save_frame_log = false
IMPORTING
log_handle = lt_log
TABLES
objects_to_save = lt_objects_to_save
saved_objects = lt_saved_objects
return = lt_return .
REFRESH lt_return.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'
IMPORTING
return = lt_return.
BREAK-POINT.
*& Form ORDERADM_H
text
--> p1 text
<-- p2 text
FORM orderadm_h .
ls_orderadm_h-guid = lv_header_guid.
ls_orderadm_h-process_type = 'ZCRM'.
ls_orderadm_h-created_by = 'IBM_ABAP'.
ls_orderadm_h-description = 'SMS COMPLAIN'.
APPEND ls_orderadm_h TO ls_orderadm_h.
CLEAR ls_input_fields.
ls_input_fields-ref_guid = lv_header_guid.
ls_input_fields-ref_kind = 'A'.
ls_input_fields-logical_key = '1'.
ls_input_fields-objectname ='ORDERADM_H'.
ls_input_fields-fieldname = 'GUID'.
ls_input_fields-changeable = ' '.
APPEND ls_input_fields TO ls_input_fields.
*ls_input_fields-fieldname = 'HANDLE'.
*APPEND ls_input_fields TO lS_input_fields.
ls_input_fields-fieldname = 'PROCESS_TYPE'.
APPEND ls_input_fields TO ls_input_fields.
ls_input_fields-fieldname = 'DESCRIPTION'.
APPEND ls_input_fields TO ls_input_fields.
ls_input_fields-fieldname = 'CREATED_BY'.
APPEND ls_input_fields TO ls_input_fields.
ENDFORM. " ORDERADM_H
*& Form ORGMAN
text
--> p1 text
<-- p2 text
FORM orgman .
CALL FUNCTION 'GUID_CREATE'
IMPORTING
ev_guid_32 = lv_header_guid.
lt_orgman-ref_guid = lv_header_guid.
lt_orgman-dis_channel = 10.
lt_orgman-division = 10.
lt_orgman-sales_org = 'O 50000649'.
lt_orgman-sales_office = 'O 50000650'.
lt_orgman-service_org = 'O 50000649'.
lt_orgman-mode = 'A'.
APPEND lt_orgman TO lt_orgman.
CLEAR ls_input_fields.
ls_input_fields-ref_guid = lv_header_guid.
ls_input_fields-ref_kind = 'A'.
ls_input_fields-logical_key = '2'.
ls_input_fields-objectname ='ORGMAN'.
ls_input_fields-fieldname = 'REF_GUID'.
APPEND ls_input_fields TO ls_input_fields.
ls_input_fields-fieldname = 'DIS_CHANNEL'.
APPEND ls_input_fields TO ls_input_fields.
ls_input_fields-fieldname = 'DIVISION'.
APPEND ls_input_fields TO ls_input_fields.
ls_input_fields-fieldname = 'SALES_ORG'.
APPEND ls_input_fields TO ls_input_fields.
ls_input_fields-fieldname = 'SALES_OFFICE'.
APPEND ls_input_fields TO ls_input_fields.
ls_input_fields-fieldname = 'SERVICE_ORG'.
APPEND ls_input_fields TO ls_input_fields.
ENDFORM. " ORGMAN
*& Form PARTNER
text
--> p1 text
<-- p2 text
FORM partner .
CALL FUNCTION 'GUID_CREATE'
IMPORTING
ev_guid_32 = lv_header_guid.
lt_partner-MODE = 'A'.
lt_partner-ref_guid = lv_header_guid.
lt_partner-partner_fct = '00000014'.
lt_partner-partner_no = 'EM00000022'.
APPEND lt_partner TO lt_partner.
lt_partner-partner_fct = '00000004'.
lt_partner-partner_no = '415'.
APPEND lt_partner TO lt_partner.
lt_partner-partner_fct = '00000003'.
lt_partner-partner_no = '415'.
APPEND lt_partner TO lt_partner.
lt_partner-partner_fct = '00000002'.
lt_partner-partner_no = '415'.
APPEND lt_partner TO lt_partner.
lt_partner-partner_fct = '00000001'.
lt_partner-partner_no = '415'.
APPEND lt_partner TO lt_partner.
CLEAR ls_input_fields.
ls_input_fields-ref_guid = lv_header_guid.
ls_input_fields-ref_kind = 'A'.
ls_input_fields-logical_key = '3'.
ls_input_fields-objectname ='PARTNER'.
ls_input_fields-fieldname = 'PARTNER_FCT'.
APPEND ls_input_fields TO ls_input_fields.
ls_input_fields-fieldname = 'PARTNER_NO'.
APPEND ls_input_fields TO ls_input_fields.
ENDFORM. " PARTNER
*& Form LT_SERVICE
text
--> p1 text
<-- p2 text
FORM lt_service .
CALL FUNCTION 'GUID_CREATE'
IMPORTING
ev_guid_32 = lv_header_guid.
lt_service-ref_guid = lv_header_guid.
lt_service-subject_profile = ' ' .
lt_service-cat_type = 'A1'.
lt_service-code_group = 'ZCODEGR1'.
lt_service-code = '0001'.
lt_service-mode = 'A'.
APPEND lt_service TO lt_service.
CLEAR ls_input_fields.
ls_input_fields-ref_guid = lv_header_guid.
ls_input_fields-ref_kind = 'A'.
ls_input_fields-logical_key = '4'.
ls_input_fields-objectname ='SERVICE_OS'.
ls_input_fields-fieldname = 'REF_GUID'.
APPEND ls_input_fields TO ls_input_fields.
ls_input_fields-fieldname = 'SUBJECT_PROFILE'.
APPEND ls_input_fields TO ls_input_fields.
ls_input_fields-fieldname = 'CAT_TYPE'.
APPEND ls_input_fields TO ls_input_fields.
ls_input_fields-fieldname = 'CODE_GROUP'.
APPEND ls_input_fields TO ls_input_fields.
ls_input_fields-fieldname = 'CODE'.
APPEND ls_input_fields TO ls_input_fields.
ls_input_fields-fieldname = 'MODE'.
APPEND ls_input_fields TO ls_input_fields.
ENDFORM. " LT_SERVICEFORM partner .
* CALL FUNCTION 'GUID_CREATE'
* IMPORTING
* ev_guid_32 = lv_header_guid.
* lt_partner-MODE = 'A'.
lt_partner-ref_guid = lv_header_guid.
lt_partner-partner_fct = '00000014'.
lt_partner-partner_no = 'EM00000022'.
lt_partner-REF_HANDLE = '0000000002'.
APPEND lt_partner TO lt_partner.
lt_partner-partner_fct = '00000004'.
lt_partner-partner_no = '415'.
APPEND lt_partner TO lt_partner.
lt_partner-partner_fct = '00000003'.
lt_partner-partner_no = '415'.
APPEND lt_partner TO lt_partner.
lt_partner-partner_fct = '00000002'.
lt_partner-partner_no = '415'.
APPEND lt_partner TO lt_partner.
lt_partner-partner_fct = '00000001'.
lt_partner-partner_no = '415'.
APPEND lt_partner TO lt_partner.
CLEAR ls_input_fields.
ls_input_fields-ref_guid = lv_header_guid.
ls_input_fields-ref_kind = 'A'.
ls_input_fields-logical_key = '3'.
ls_input_fields-objectname ='PARTNER'.
ls_input_fields-REF_HANDLE = '0000000002'.
ls_input_fields-fieldname = 'PARTNER_FCT'.
APPEND ls_input_fields TO ls_input_fields.
ls_input_fields-fieldname = 'PARTNER_NO'.
APPEND ls_input_fields TO ls_input_fields.
ENDFORM.
FORM lt_service .
* CALL FUNCTION 'GUID_CREATE'
* IMPORTING
* ev_guid_32 = lv_header_guid.
lt_service-ref_guid = lv_header_guid.
lt_service-REF_HANDLE = '0000000002'.
lt_service-subject_profile = ' ' .
lt_service-cat_type = 'A1'.
lt_service-code_group = 'ZCODEGR1'.
lt_service-code = '0001'.
lt_service-mode = 'A'.
APPEND lt_service TO lt_service.
CLEAR ls_input_fields.
ls_input_fields-ref_guid = lv_header_guid.
ls_input_fields-ref_kind = 'A'.
ls_input_fields-logical_key = '4'.
ls_input_fields-objectname ='SERVICE_OS'.
ls_input_fields-REF_HANDLE = '0000000002'.
ls_input_fields-fieldname = 'REF_GUID'.
APPEND ls_input_fields TO ls_input_fields.
ls_input_fields-fieldname = 'SUBJECT_PROFILE'.
APPEND ls_input_fields TO ls_input_fields.
ls_input_fields-fieldname = 'CAT_TYPE'.
APPEND ls_input_fields TO ls_input_fields.
ls_input_fields-fieldname = 'CODE_GROUP'.
APPEND ls_input_fields TO ls_input_fields.
ls_input_fields-fieldname = 'CODE'.
APPEND ls_input_fields TO ls_input_fields.
ls_input_fields-fieldname = 'MODE'.
APPEND ls_input_fields TO ls_input_fields.
ENDFORM. -
Creating service order using BAPI_BUSPROCESSND_CREATEMULTI
Hi Experts,
I have a requirement to create a Service order using a BAPI.
I'm trying to use the BAPI BAPI_BUSPROCESSND_CREATEMULTI. I found some code related to this BAPI on this forum and and I've written my code based on that and while executing it i'm getting a short dump. Could anyone please help me figure out what the problem is.
My code is as follows:
data: lv_header_guid type guid_32.
data: begin of lit_header occurs 0,
include type BAPIBUS20001_HEADER_INS,
end of lit_header.
data: wa_header type BAPIBUS20001_HEADER_INS.
data: begin of lit_inputfields occurs 0,
include type BAPIBUS20001_INPUT_FIELDS,
end of lit_inputfields.
data: wa_inputfields type BAPIBUS20001_INPUT_FIELDS.
data: begin of lit_partner occurs 0,
include type BAPIBUS20001_PARTNER_INS,
end of lit_partner.
data: wa_partner type BAPIBUS20001_PARTNER_INS.
Create Contract header guid
CALL FUNCTION 'GUID_CREATE'
IMPORTING
ev_guid_32 = lv_header_guid.
Fill orderadm_h
wa_header-guid = lv_header_guid.
wa_header-process_type = 'YSC'.
APPEND wa_header TO lit_header.
Fill input fields
MOVE: lv_header_guid TO wa_inputfields-ref_guid,
'A' TO wa_inputfields-ref_kind,
'0001' TO wa_partner-ref_partner_handle,
'ORDERADM_H' TO wa_inputfields-objectname,
'PROCESS_TYPE' TO wa_inputfields-fieldname.
APPEND wa_inputfields TO lit_inputfields.
CLEAR wa_inputfields.
Fill PARTNER DETAILS
Sold to Party
MOVE: lv_header_guid TO wa_partner-ref_guid,
'A' TO wa_partner-ref_kind,
'0001' TO wa_partner-ref_partner_handle,
'CRM000' TO wa_partner-partner_fct,
'5000000288' TO wa_partner-partner_no,
'BP' TO wa_partner-no_type,
'BP' TO wa_partner-display_type,
'X' TO wa_partner-mainpartner.
APPEND wa_partner TO lit_partner.
CLEAR wa_partner.
Fill input fields
MOVE: lv_header_guid TO wa_inputfields-ref_guid,
'A' TO wa_inputfields-ref_kind,
'0001' TO wa_inputfields-logical_key,
'PARTNER' TO wa_inputfields-objectname.
MOVE 'PARTNER_FCT' TO wa_inputfields-fieldname.
APPEND wa_inputfields TO lit_inputfields.
MOVE 'PARTNER_NO' TO wa_inputfields-fieldname.
APPEND wa_inputfields TO lit_inputfields.
MOVE 'NO_TYPE' TO wa_inputfields-fieldname.
APPEND wa_inputfields TO lit_inputfields.
MOVE 'DISPLAY_TYPE' TO wa_inputfields-fieldname.
APPEND wa_inputfields TO lit_inputfields.
CLEAR wa_inputfields.
CALL FUNCTION 'BAPI_BUSPROCESSND_CREATEMULTI'
TABLES
HEADER = lit_header
ITEM =
ACTIVITY =
SALES =
PARTNER = lit_partner
ORGANISATION =
SHIPPING =
APPOINTMENT =
TEXT =
SERVICE_OS =
STATUS =
INPUT_FIELDS = lit_inputfields
CREATED_PROCESS =
RETURN =
LEAD =
OPPORTUNITY =
PRODUCT =
SCHEDULELINE =
CUSTOMER_HEAD =
CUSTOMER_ITEM =
PRICING =
PRICING_ITEM =
CONDITION_CREATE =
BILLING =
CONFIG_CFG =
CONFIG_BLB =
CONFIG_INS =
CONFIG_PRT =
CONFIG_VAL =
CONFIG_VK =
CONFIG_REF =
ADDRESS =
BILLPLAN =
BILLPLAN_DATE =
EXTENSIONIN =
DOCUMENT_FLOW =
BATCH =
PRICING_AGR_CRM =
FINPROD_ITEM =
CANCEL =
CANCEL_IR =
PRODUCT_LIST =
PRODUCTS =
OBJECTS =
PAYPLAN =
PAYPLAN_DATE =
CONFIG_FILTER_CFG =
CONFIG_FILTER_INS =
CONFIG_FILTER_PRT =
CONFIG_FILTER_VAL =
ACTIVITY_I =
EXT_REF =
ENDFUNCTION.
I'm getting the following dump.
Runtime Errors ITAB_ILLEGAL_COMPONENT
Date and Time 07.09.2006 21:29:03
Short dump has not been completely stored (too big)
Short text
Invalid line component &V2 in "... KEY k1 = v1 ... kn = vn".
Error analysis
When the ABAP/4 program "SAPLCRM_BUSPROCESSND_BAPI" attempted to process the
internal table "HEADER[]"
with "... KEY k1 = v1 ... kn = vn", a component "HANDLE " was specified
dynamically as the contents
of the field "LV_STR_HANDLE". However, the line type "u" of the internal table
"HEADER[]"
contains no component "HANDLE ".
| -
Information on where terminated
Termination occurred in the ABAP program "SAPLCRM_BUSPROCESSND_BAPI" - in
"SET_RETURN_VALUES".
The main program was "RS_TESTFRAME_CALL ".
In the source code you have the termination point in line 36
of the (Include) program "LCRM_BUSPROCESSND_BAPIF80".
Source Code Extract
Line
SourceCde
6
7
text
8
9
-->P_LT_ORDERADM_H_COM text
10
-->P_LT_ORDERADM_I_COM text
11
<--P_HEADER text
12
<--P_ITEM text
13
14
form set_return_values tables header structure BAPIBUS20001_HEADER_INS
15
item structure BAPIBUS20001_item
16
using p_lt_orderadm_h_com type any table
17
p_lt_orderadm_i_com type any table
18
19
20
data: lv_str_handle type fieldname,
21
lv_str_headerhandle type fieldname,
22
lv_str_objectid type fieldname.
23
24
25
field-symbols: <ls_orderadm_h> type crmt_orderadm_h_com,
26
<ls_orderadm_i> type crmt_orderadm_i_com,
27
<ls_header> type BAPIBUS20001_HEADER_INS,
28
<ls_item> type BAPIBUS20001_item.
29
30
31
lv_str_handle = 'HANDLE'.
32
lv_str_headerhandle = 'HEADER_HANDLE'.
33
lv_str_objectid = 'OBJECT_ID'.
34
35
loop at p_lt_orderadm_h_com assigning <ls_orderadm_h>.
>>>>>
read table header with key (lv_str_handle) = <ls_orderadm_h>-handle
37
(lv_str_objectid) = <ls_orderadm_h>-object_id
38
assigning <ls_header>.
39
if sy-subrc = 0.
40
<ls_header>-guid = <ls_orderadm_h>-guid.
41
endif.
42
endloop.
| 43|
Could anyone please help me with this.
Thanks,
Preethi
Message was edited by: Preethi SoothFirst off. Debug.
Put a break point on the line that is generating the short dump and run your code. The ABAP debugger should display before the dump...now....
The error specifies that the line type of the table HEADER (which is the internal representation of your lit_header table and has line type BAPIBUS20001_HEADER_INS ) doesn't have a field called HANDLE.
Check if it does (it should have or something is very wrong, and you should report a bug to SAP).
Check all runtime variables for that command. See if the table has any values in it. Try using your lit_header table with header-line or not.
Your in a far better position to determine what the error is then me. Right now, I don't have access to a CRM server.
From my experience that BAPI is a piece of .... It is hard finding functions in CRM that actually do what you want...properly...Try using CRM_ORDER_CREATE (i think it's called like that). Much better, and if you need RFC capability just write a wrapper RFC.
Message was edited by: João Sousa -
Problem using BAPI to create Service Confirmation in CRM
Good afternoon all.
I have raised this is CRM forum too, just thought it best to ask the broader ABAP community the question too.
We are encountering a problem using a BAPI to create a transaction in CRM, specifically:
I am trying to create a Service Confirmation (BUS2000117) in a CRM system using the BAPI BAPI_BUSPROCESSND_CREATEMULTI.
The BAPI succeeds in creating the header of the transaction, but I cannot make the BAPI create any other data in the transaction such as partners or items.
Just want to be sure that I am not being foolish...has anyone succeeded in using this BAPI to create an error-free Service Confirmation?
Regards
NickI am going to pop this thread into General ABAP forum too.
Nick -
How to Generate sales orders with custom Fields using BAPI_BUSPROCESSND_CREATEMULTI
Hi,
I need to generate sales orders with custom fields on table CRMD_ORDERADM_H using BAPI_BUSPROCESSND_CREATEMULTI, after changing the structure BAPI_TE_CRMD_ORDERADM_H, and feed the EXTENSIONIN table of the BAPI with data, the order is created, but any value on custom fields.
After debuging, I saw that the BAPI search for structure conversion in table CRMC_OBJECTS_GEN, but we haven't entry with BAPI_TE_CRMD_ORDERADM_H in this table. is that the problem ?, Is there any way to fix it?
Best Regards,
Salah.That depends on where do you have the customer fields, check the table CRMD_CUSTOMER_H, if your custom fields are there, you need to use the changing parameter CUSTOMER_HEAD, I guess your already checked that one, right? but there's no custom fields, well...AET/EEWB doesn't enhance the strcuture of the BAPI, so you should do it manually, check the note following note for further details.
988410 - FAQ: User-defined fields in the BAPI
If you don't have access to the SAP Marketplace, in resume you should create an append on the structure BAPIBUS20001_CUSTOMER_H and include the following strcutrue CI_EEW_CUSTOMER_H
Cheers!
Luis -
Service order creation problem
Hi Experts, I have a requirement to create a Service order using a BAPI. I'm trying to use the BAPI BAPI_BUSPROCESSND_CREATEMULTI. I found some code related to this BAPI on this forum . THE service order is created
but ibase / component is not filled . How can i give the Ibase through the bapi and in which parameter of the bapi i have to fil this. Could anyone please help me figure out what the problem is . my code is as follows.Please find the code current thread and below thread.
FUNCTION ZBAPI_SERVICE_SORDER2.
DATA : IS_HEADER TYPE TABLE OF BAPIBUS20001_HEADER_INS,
WA_HDR TYPE BAPIBUS20001_HEADER_INS,
IS_ITEM TYPE TABLE OF BAPIBUS20001_ITEM,
WA_ITEM TYPE BAPIBUS20001_ITEM,
IT_ACTIVITY TYPE TABLE OF BAPIBUS20001_ACTIVITY_INS,
WA_ACTIVITY TYPE BAPIBUS20001_ACTIVITY_INS,
IT_PARTNER TYPE TABLE OF BAPIBUS20001_PARTNER_INS,
WA_PARTNER TYPE BAPIBUS20001_PARTNER_INS,
IT_SALES TYPE TABLE OF BAPIBUS20001_SALES,
WA_SALES TYPE BAPIBUS20001_SALES,
IT_ORG TYPE TABLE OF BAPIBUS20001_ORGMAN_INS,
WA_ORG TYPE BAPIBUS20001_ORGMAN_INS,
IT_PRICING TYPE TABLE OF BAPIBUS20001_PRICING,
WA_PRICING TYPE BAPIBUS20001_PRICING,
IT_SERVICE TYPE TABLE OF BAPIBUS20001_SERVICE_OS_INS,
WA_SERVICE TYPE BAPIBUS20001_SERVICE_OS_INS,
IT_RETURN TYPE TABLE OF BAPIRET2,
WA_RET TYPE BAPIRET2,
IT_PROD TYPE TABLE OF BAPIBUS20001_PRODUCT,
WA_PROD TYPE BAPIBUS20001_PRODUCT,"PROCESS_QTY_UNIT -EA
* IT_SCHED TYPE TABLE OF BAPIBUS20001_SCHEDLIN, "QUANTITY
* WA_SCHED TYPE BAPIBUS20001_SCHEDLIN,
IT_SCHEDLINEs TYPE TABLE OF BAPIBUS20001_SCHEDLIN,
WA_SCHEDLINEs TYPE BAPIBUS20001_SCHEDLIN,
lv_partner_fct1 TYPE crmt_partner_fct,
lv_partner_fct2 TYPE crmt_partner_fct,
lv_partner_fct3 TYPE crmt_partner_fct,
lv_partner_fct4 TYPE crmt_partner_fct,
LV_HANDLE TYPE CRMT_PRP_HANDLE,
t_object_to_save TYPE crmt_object_guid_tab,
IT_OBJECT_TO_SAVE TYPE TABLE OF crmt_object_guid_tab,
ts_object type CRMT_OBJECT_GUID,
It1_object_to_save TYPE TABLE OF BAPIBUS20001_GUID_DIS,
W_OBJECT_TO_SAVE TYPE BAPIBUS20001_GUID_DIS,
LV_LOG_HANDLE TYPE BALLOGHNDL,
IT_RETURN1 TYPE TABLE OF BAPIRET2,
it_saved_objects type crmt_return_objects,
t_exceptions type CRMT_EXCEPTION_T,
t_objects_not_saved type CRMT_OBJECT_GUID_TAB,
WA_INPUT_FIELDS TYPE BAPIBUS20001_INPUT_FIELDS,
IT_INPUT_FIELDS TYPE TABLE OF BAPIBUS20001_INPUT_FIELDS,
ITAB_CREATED_PROCESS TYPE STANDARD TABLE OF BAPIBUS20001_HEADER_INS,
WA_CREATED_PROCESS TYPE BAPIBUS20001_HEADER_INS,
IT_OBJECTS TYPE TABLE OF BAPIBUS20001_OBJECTS,
WA_OBJECTS TYPE BAPIBUS20001_OBJECTS.
DATA: CV_LOG_HANDLE TYPE BALLOGHNDL,
i_saved_objects type table of BAPIBUS20001_OBJECT_ID,
IT_RET2 TYPE TABLE OF BAPIRET2,
WA_SAVed_objects type BAPIBUS20001_OBJECT_ID,
g_objnr type CRMT_OBJECT_ID.
DATA :
LV_GUID1 TYPE GUID_32,
LV_GUID2 TYPE GUID_32,
LV_GUID3 TYPE GUID_32,
V_OBJNR22 TYPE IBIN-OBJNR,
V_GUID16 TYPE COMT_PRODUCT_GUID,
V_OBJID TYPE COMT_PRODUCT_ID.
*************HEADER-GUID**********
CALL FUNCTION 'GUID_CREATE'
IMPORTING
EV_GUID_32 = LV_GUID1.
***********ITEM-GUID************
CALL FUNCTION 'GUID_CREATE'
IMPORTING
EV_GUID_32 = LV_GUID2
*********SCHEDULELINE********
CALL FUNCTION 'GUID_CREATE'
IMPORTING
EV_GUID_32 = LV_GUID3
************DATA IN HEADER**********
WA_HDR-GUID = LV_GUID1.
WA_HDR-PROCESS_TYPE = 'YESV'.
WA_HDR-DESCRIPTION = PROCESS_DESCRIPTION.
APPEND WA_HDR TO IS_HEADER.
*************** INPUT FIELDS HEADER**************
CLEAR WA_INPUT_FIELDS.
CLEAR IT_INPUT_FIELDS.
WA_INPUT_FIELDS-REF_GUID = LV_GUID1.
WA_INPUT_FIELDS-REF_KIND = 'A'.
WA_INPUT_FIELDS-OBJECTNAME = 'ORDERADM_H'.
WA_INPUT_FIELDS-FIELDNAME = 'GUID'.
wa_input_fields-fieldname = 'MODE'.
APPEND WA_INPUT_FIELDS TO IT_INPUT_FIELDS.
WA_INPUT_FIELDS-REF_GUID = LV_GUID1.
WA_INPUT_FIELDS-REF_KIND = 'A'.
WA_INPUT_FIELDS-OBJECTNAME = 'ORDERADM_H'.
WA_INPUT_FIELDS-FIELDNAME = 'PROCESS_TYPE'.
APPEND WA_INPUT_FIELDS TO IT_INPUT_FIELDS.
WA_INPUT_FIELDS-REF_GUID = LV_GUID1.
WA_INPUT_FIELDS-REF_KIND = 'A'.
WA_INPUT_FIELDS-OBJECTNAME = 'ORDERADM_H'.
WA_INPUT_FIELDS-FIELDNAME = 'DESCRIPTION '.
APPEND WA_INPUT_FIELDS TO IT_INPUT_FIELDS.
************DATA IN ITEM**********
WA_ITEM-GUID = LV_GUID2.
WA_ITEM-HEADER = LV_GUID1.
WA_ITEM-ORDERED_PROD = PRODUCT.
WA_ITEM-DESCRIPTION = PROD_DESCRIPTION. "product name
WA_ITEM-ITM_LANGUAGE = 'EN'.
WA_ITEM-ITM_TYPE = ITEM_CAT.
WA_ITEM-NUMBER_INT = ITEM_NO.
WA_ITEM-MODE = 'A'.
INSERT WA_ITEM INTO TABLE IS_ITEM.
*******INPUT FIELDS ITEM*****************
CLEAR WA_INPUT_FIELDS.
WA_INPUT_FIELDS-REF_GUID = LV_GUID2.
WA_INPUT_FIELDS-REF_KIND = 'B'.
WA_INPUT_FIELDS-OBJECTNAME = 'ORDERADM_I'.
WA_INPUT_FIELDS-FIELDNAME = 'ORDERED_PROD'.
APPEND WA_INPUT_FIELDS TO IT_INPUT_FIELDS.
WA_INPUT_FIELDS-REF_GUID = LV_GUID2.
WA_INPUT_FIELDS-REF_KIND = 'B'.
WA_INPUT_FIELDS-OBJECTNAME = 'ORDERADM_I'.
WA_INPUT_FIELDS-FIELDNAME = 'DESCRIPTION '.
APPEND WA_INPUT_FIELDS TO IT_INPUT_FIELDS.
WA_INPUT_FIELDS-REF_GUID = LV_GUID2.
WA_INPUT_FIELDS-REF_KIND = 'B'.
WA_INPUT_FIELDS-OBJECTNAME = 'ORDERADM_I'.
WA_INPUT_FIELDS-FIELDNAME = 'ITM_LANGUAGE'.
APPEND WA_INPUT_FIELDS TO IT_INPUT_FIELDS.
WA_INPUT_FIELDS-REF_GUID = LV_GUID2.
WA_INPUT_FIELDS-REF_KIND = 'B'.
WA_INPUT_FIELDS-OBJECTNAME = 'ORDERADM_I'.
WA_INPUT_FIELDS-FIELDNAME = 'ITM_TYPE'.
APPEND WA_INPUT_FIELDS TO IT_INPUT_FIELDS.
WA_INPUT_FIELDS-REF_GUID = LV_GUID2.
WA_INPUT_FIELDS-REF_KIND = 'B'.
WA_INPUT_FIELDS-OBJECTNAME = 'ORDERADM_I'.
WA_INPUT_FIELDS-FIELDNAME = 'NUMBER_INT'.
APPEND WA_INPUT_FIELDS TO IT_INPUT_FIELDS.
************DATA IN ACTIVITY**********
WA_ACTIVITY-REF_GUID = LV_GUID1.
WA_ACTIVITY-PRIORITY = PRIORITY.
APPEND WA_ACTIVITY TO IT_ACTIVITY.
*************INPUT FIELDS SALES*************
CLEAR WA_INPUT_FIELDS.
WA_INPUT_FIELDS-REF_GUID = LV_GUID1.
WA_INPUT_FIELDS-REF_KIND = 'C'.
WA_INPUT_FIELDS-OBJECTNAME = 'ACTIVITY_H'.
WA_INPUT_FIELDS-FIELDNAME = ' PRIORITY'.
APPEND WA_INPUT_FIELDS TO IT_INPUT_FIELDS.
************DATA IN SALES**********
WA_SALES-REF_GUID = LV_GUID1.
WA_SALES-PO_NUMBER_SOLD = SOLD_T0_PARTY.
wa_sales-ref_kind = 'A'.
APPEND WA_SALES TO It_SALES.
*************INPUT FIELDS SALES*************
CLEAR WA_INPUT_FIELDS.
WA_INPUT_FIELDS-REF_GUID = LV_GUID1.
WA_INPUT_FIELDS-REF_KIND = 'E'.
WA_INPUT_FIELDS-OBJECTNAME = 'SALES'.
WA_INPUT_FIELDS-FIELDNAME = 'PO_NUMBER_SOLD'.
APPEND WA_INPUT_FIELDS TO IT_INPUT_FIELDS.
************DATA IN PARTNER *********
WA_PARTNER-REF_GUID = LV_GUID1.
WA_PARTNER-REF_KIND = 'A'.
WA_PARTNER-PARTNER_FCT = '00000001'.
WA_PARTNER-PARTNER_NO = SOLD_T0_PARTY .
wa_partner-ref_partner_handle = '0001'.
wa_partner-display_type = 'BP'. "Business Partner Number
wa_partner-no_type = 'BP'. "Business Partner Number
wa_partner-kind_of_entry = 'C'. "entered manually
APPEND WA_PARTNER TO IT_PARTNER.
WA_PARTNER-REF_GUID = LV_GUID1.
WA_PARTNER-REF_KIND = 'A'.
WA_PARTNER-PARTNER_FCT = '00000014'.
WA_PARTNER-PARTNER_NO = EMPLOYEE_RESPONSIBLE .
wa_partner-ref_partner_handle = '0001'.
wa_partner-display_type = 'BP'. "Business Partner Number
wa_partner-no_type = 'BP'. "Business Partner Number
wa_partner-kind_of_entry = 'C'. "entered manually
APPEND WA_PARTNER TO IT_PARTNER.
WA_PARTNER-REF_GUID = LV_GUID1.
WA_PARTNER-REF_KIND = 'A'.
WA_PARTNER-PARTNER_FCT = '00000056'.
WA_PARTNER-PARTNER_NO = SERVICE_EMPLOYEE_GROUP.
wa_partner-ref_partner_handle = '0001'.
wa_partner-display_type = 'BP'. "Business Partner Number
wa_partner-no_type = 'BP'. "Business Partner Number
wa_partner-kind_of_entry = 'C'. "entered manually
APPEND WA_PARTNER TO IT_PARTNER.
WA_PARTNER-REF_GUID = LV_GUID1.
WA_PARTNER-REF_KIND = 'A'.
WA_PARTNER-PARTNER_FCT = '00000003'.
WA_PARTNER-PARTNER_NO = BILL_TO_PARTY.
wa_partner-ref_partner_handle = '0001'.
wa_partner-display_type = 'BP'. "Business Partner Number
wa_partner-no_type = 'BP'. "Business Partner Number
wa_partner-kind_of_entry = 'C'. "entered manually
APPEND WA_PARTNER TO IT_PARTNER.
*INPUT FIELDS PARTENER
CLEAR WA_INPUT_FIELDS.
WA_INPUT_FIELDS-REF_GUID = LV_GUID1.
WA_INPUT_FIELDS-REF_KIND = 'A'.
WA_INPUT_FIELDS-OBJECTNAME = 'PARTNER'.
WA_INPUT_FIELDS-FIELDNAME = 'PARTNER_FCT'.
wa_input_fields-logical_key = '0001'.
APPEND WA_INPUT_FIELDS TO IT_INPUT_FIELDS.
WA_INPUT_FIELDS-REF_GUID = LV_GUID1.
WA_INPUT_FIELDS-REF_KIND = 'A'.
WA_INPUT_FIELDS-OBJECTNAME = 'PARTNER'.
WA_INPUT_FIELDS-FIELDNAME = 'PARTNER_NO '.
wa_input_fields-logical_key = '0001'.
APPEND WA_INPUT_FIELDS TO IT_INPUT_FIELDS.
WA_INPUT_FIELDS-REF_GUID = LV_GUID1.
WA_INPUT_FIELDS-REF_KIND = 'A'.
WA_INPUT_FIELDS-OBJECTNAME = 'PARTNER'.
WA_INPUT_FIELDS-FIELDNAME = 'PARTNER_FCT'.
wa_input_fields-logical_key = '0001'.
APPEND WA_INPUT_FIELDS TO IT_INPUT_FIELDS.
WA_INPUT_FIELDS-REF_GUID = LV_GUID1.
WA_INPUT_FIELDS-REF_KIND = 'A'.
WA_INPUT_FIELDS-OBJECTNAME = 'PARTNER'.
WA_INPUT_FIELDS-FIELDNAME = 'PARTNER_NO '.
wa_input_fields-logical_key = '0001'.
APPEND WA_INPUT_FIELDS TO IT_INPUT_FIELDS.
WA_INPUT_FIELDS-REF_GUID = LV_GUID1.
WA_INPUT_FIELDS-REF_KIND = 'A'.
WA_INPUT_FIELDS-OBJECTNAME = 'PARTNER'.
WA_INPUT_FIELDS-FIELDNAME = 'PARTNER_FCT'.
wa_input_fields-logical_key = '0001'.
APPEND WA_INPUT_FIELDS TO IT_INPUT_FIELDS.
WA_INPUT_FIELDS-REF_GUID = LV_GUID1.
WA_INPUT_FIELDS-REF_KIND = 'A'.
WA_INPUT_FIELDS-OBJECTNAME = 'PARTNER'.
WA_INPUT_FIELDS-FIELDNAME = 'PARTNER_NO '.
wa_input_fields-logical_key = '0001'.
APPEND WA_INPUT_FIELDS TO IT_INPUT_FIELDS.
WA_INPUT_FIELDS-REF_GUID = LV_GUID1.
WA_INPUT_FIELDS-REF_KIND = 'A'.
WA_INPUT_FIELDS-OBJECTNAME = 'PARTNER'.
WA_INPUT_FIELDS-FIELDNAME = 'PARTNER_FCT'.
wa_input_fields-logical_key = '0001'.
APPEND WA_INPUT_FIELDS TO IT_INPUT_FIELDS.
WA_INPUT_FIELDS-REF_GUID = LV_GUID1.
WA_INPUT_FIELDS-REF_KIND = 'A'.
WA_INPUT_FIELDS-OBJECTNAME = 'PARTNER'.
WA_INPUT_FIELDS-FIELDNAME = 'PARTNER_NO '.
wa_input_fields-logical_key = '0001'.
APPEND WA_INPUT_FIELDS TO IT_INPUT_FIELDS.
wa_input_fields-ref_guid = lv_guid1.
wa_input_fields-ref_kind = 'A'.
wa_input_fields-objectname = 'PARTNER'.
wa_input_fields-fieldname = 'KIND_OF_ENTRY '.
wa_input_fields-logical_key = '0001'.
APPEND wa_input_fields TO it_input_fields.
wa_input_fields-ref_guid = lv_guid1.
wa_input_fields-ref_kind = 'A'.
wa_input_fields-objectname = 'PARTNER'.
wa_input_fields-fieldname = 'NO_TYPE '.
wa_input_fields-logical_key = '0001'.
APPEND wa_input_fields TO it_input_fields.
wa_input_fields-ref_guid = lv_guid1.
wa_input_fields-ref_kind = 'A'.
wa_input_fields-objectname = 'PARTNER'.
wa_input_fields-fieldname = 'DISPLAY_TYPE '.
wa_input_fields-logical_key = '0001'.
APPEND wa_input_fields TO it_input_fields.
as follows.
please find below thread.
Edited by: venkatrao veeramaneni on Nov 4, 2011 3:54 PM
Edited by: venkatrao veeramaneni on Nov 4, 2011 3:57 PM -
Payment Card Info for sale order with BAPI_BUSPROCESSND_CREATEMULTI
hi all
i am trying to create a sales order using BAPI_BUSPROCESSND_CREATEMULTI
and i am able to create an order successfully without any problem.
the order is being generated. I am trying to input
the payment card details to the BAPI_BUSPROCESSND_CREATEMULTI in
PAYPLAN & PAYPLAN_DATE tables of the BAPI.
I also used CRM_ORDER_READ report to see how these tables are being filled
and based on that i had filled the payment card details in BAPI_BUSPROCESSND_CREATEMULTI
but still ..i see the order being generated but dont see any payment card information
being poulated in it.
If you have any idea how i should fill the PAYPLAN, PAYPLAN_DATE
tables and their respective input fields..please kindly help
i tried all possible ways and could not get a solution
Regards,
Jessica SamHi Richard,
So does this mean that i'd be able to capture all the data that is being determined after i make the call to this BAPI whithout saving it. Well.. I just want to simulate as it is happening in SAP.. i.e we enter the sold to party and hit 'enter' and all the data should be determined..and at this point i should read this data.
Could you let me know if this could be done.
Thanks,
Sahil -
BAPI_BUSPROCESSND_CREATEMULTI how to use the activity-category parameter
Hi all,
I am trying to use BAPI_BUSPROCESSND_CREATEMULTI to create purchase orders.
I am having problems to use the Activity (header) Category field.
Among other parameters, in the INPUT_FIELDS table I have added a line for the field CATEGORY as follows:
REF_HANDLE = 0000000001
REF_KIND = A
OBJECTNAME = ACTIVITY
FIELDNAME = CATEGORY
Then I have added a line in the ACTIVITY table with:
REF_HANDLE = 0000000001
CATEGORY= ZSB
PRIORITY=5
But no results. The field is not entered in the purchase order I create.
Anybody could point out how to use this parameter in this BAPI?
Many thanks,
AldoPlease fill category on order and after Enter debug crm_order_maintain function module.
This should help you to see where in function module this field should be filled.
you can also use crm_order_maintain for documents creation.
Regards
Radek -
BAPI_BUSPROCESSND_CREATEMULTI - Regdg ?
Hi,
I am using BAPI_BUSPROCESSND_CREATEMULTI to create service contracts. Kindly let me know how to populate partner, schedule line, objects structures. I am able to create a contract successfully with header details. But when i pass partner, schedule line, these details doesnt get reflected in the contract.
Provide some sample code if possible.
Thanks & Regards,
Ramasubrmanian G.Hi,
Were you able to figure out your problem. I am facing similar problem here of not able to populate the partners information to the complaint though I am passing the needed partner info to the bapi. Can you please help me out?
Thanks,
Suneetha -
IBASE WITH BAPI_BUSPROCESSND_CREATEMULTI
Hello,
Can someone help me with this problem ?
I use the bapi BAPI_BUSPROCESSND_CREATEMULTI to create a service order.
The service order is created but the item IBASE is not fillled.
How can i give the Ibase thru the bapi and in which parameter of the bapi i have to fil this.
may someone has an example of an abap which create a serviceorder by calling the function BAPI_BUSPROCESSND_CREATEMULTI
I used this below code but the item IBASE IS not filled
Objects
wa_objects-ibase_component = wa_ibin-instance.
wa_objects-ibase-header = wa_ibin-ibase.
wa_objects-ref_handle = '0000000002'.
APPEND wa_objects TO INT_objects.
iBase OBJECTS
Input fields
wa_input_fields-objectname = 'ORDPRP_I'.
wa_input_fields-ref_kind = 'D'.
wa_input_fields-ref_handle = '0000000002'.
wa_input_fields-fieldname = 'IBASE_COMPONENT'.
APPEND wa_input_fields TO int_input_fields.
wa_input_fields-fieldname = 'IBASE_HEADER'.
APPEND wa_input_fields TO int_input_fields.
wa_input_fields-fieldname = 'PRODUCT_ID'.
APPEND wa_input_fields TO int_input_fields.
Can any of you tell me why is my service order being created with no IBASE ?
THANKS
VENKATHI
You can put a breakpoint in BAPI_BUSPROCESSND_CREATEMULTI and try creating a service order from the transaction crmd_order and fill in the field ibase. On doing this BAPI_BUSPROCESSND_CREATEMULTI would get triggered. crm_order_maintain also will get called in it. Just check out what all fields are being filled and cross check with the fields that you have filled.
this should help.
Regards
Preeti Viswanath -
Purpose of EXTENSIONIN - structure in BAPI_BUSPROCESSND_CREATEMULTI
Hi,
Could anyone please explain the purpose of the structure EXTENSIONIN - ( Reference Structure for BAPI Parameters EXTENSIONIN/EXTENSIONOUT ) in the BAPI BAPI_BUSPROCESSND_CREATEMULTI.
I was under the impression that this structure could be used to populate any Z fields that might have been created using EEWB. But going through some of the threads in this forum, I understand that to populate the custom fields created using EEWB, we use certain function modules such as CRM_CUSTOMER_H_MAINTAIN_OW .. etc.
I'm still confused as to how we go about populating the custom fields created using EEWB. I'd greatly appreciate if anyone could explain me the process in breif.
Thanks,
SahilHi Kapil,
I totally agree with you that in the normal circumstances the replication is complete. And it is the case if I create a contract where the Home Assistance is the last item...
But when I create a contract with 3 items (10 = Electricity (new customer so a workflow is started and no replication is needed yet); 20 = Home Assistance (should be replicated to SD); 30 = Gas (new customer so a workflow is started and no replication is needed yet)) then the item 20 is not replicated...
I changed the order of the contract (within the program) and if I create the contract with the following order (10 = Electricity (new customer so a workflow is started and no replication is needed yet); 20 = Gas (new customer so a workflow is started and no replication is needed yet); 30 = Home Assistance (should be replicated to SD)), then the Home Assistance is replicated fine...
It is a very strange problem... replication works fine in all cases, just not in this order....
Thanks for the tip anyhow!!
Micha -
Creating opportunities using BAPI_BUSPROCESSND_CREATEMULTI
Hi,
Could you please help explain the process required to load customer fields when using BAPI_BUSPROCESSND_CREATEMULTI. I am trying to maintain EXTENSIONIN and CUSTOMER_HEAD parameters but I am strugling to get it to work. Could you please help.
Thanks,
ArchyHi Sudarsana,
I am too facing the same problem, can you help?
thanks
Hardik Parikh -
I am trying to implement some kind of a server listening for requests. The listener part of the app, is a daemon thread that listens for connections and instantiates a handling daemon thread once it gets some. However, my problem is that i must be able to kill the listening thread at the user's will (say via a sto button). I have done this via the Sun's proposed way, by testing a boolean flag in the loop, which is set to false when i wish to kill the thread. The problem with this thing is the following...
Once the thread starts excecuting, it will test the flag, find it true and enter the loop. At some point it will LOCK on the server socket waiting for connection. Unless some client actually connects, it will keep on listening indefinatelly whithought ever bothering to check for the flag again (no matter how many times you set the damn thing to false).
My question is this: Is there any real, non-theoretical, applied way to stop thread in java safely?
Thank you in advance,
LeftyThis was one solution from the socket programming forum, have you tried this??
public Thread MyThread extends Thread{
boolean active = true;
public void run(){
ss.setSoTimeout(90);
while (active){
try{
serverSocket = ss.accept();
catch (SocketTimeoutException ste){
// do nothing
// interrupt thread
public void deactivate(){
active = false;
// you gotta sleep for a time longer than the
// accept() timeout to make sure that timeout is finished.
try{
sleep(91);
}catch (InterruptedException ie){
interrupt();
} -
A problem with Threads and MMapi
I am tring to execute a class based on Game canvas.
The problem begin when I try to Play both a MIDI tone and to run an infinit Thread loop.
The MIDI tone "Stammers".
How to over come the problem?
Thanks in advance
Kobi
See Code example below:
import java.io.IOException;
import java.io.InputStream;
import javax.microedition.lcdui.Graphics;
import javax.microedition.lcdui.Image;
import javax.microedition.lcdui.game.GameCanvas;
import javax.microedition.media.Manager;
import javax.microedition.media.MediaException;
import javax.microedition.media.Player;
public class MainScreenCanvas extends GameCanvas implements Runnable {
private MainMIDlet parent;
private boolean mTrucking = false;
Image imgBackgound = null;
int imgBackgoundX = 0, imgBackgoundY = 0;
Player player;
public MainScreenCanvas(MainMIDlet parent)
super(true);
this.parent = parent;
try
imgBackgound = Image.createImage("/images/area03_bkg0.png");
imgBackgoundX = this.getWidth() - imgBackgound.getWidth();
imgBackgoundY = this.getHeight() - imgBackgound.getHeight();
catch(Exception e)
System.out.println(e.getMessage());
* starts thread
public void start()
mTrucking = true;
Thread t = new Thread(this);
t.start();
* stops thread
public void stop()
mTrucking = false;
public void play()
try
InputStream is = getClass().getResourceAsStream("/sounds/scale.mid");
player = Manager.createPlayer(is, "audio/midi");
player.setLoopCount(-1);
player.prefetch();
player.start();
catch(Exception e)
System.out.println(e.getMessage());
public void run()
Graphics g = getGraphics();
play();
while (true)
tick();
input();
render(g);
* responsible for object movements
private void tick()
* response to key input
private void input()
int keyStates = getKeyStates();
if ((keyStates & LEFT_PRESSED) != 0)
imgBackgoundX++;
if (imgBackgoundX > 0)
imgBackgoundX = 0;
if ((keyStates & RIGHT_PRESSED) != 0)
imgBackgoundX--;
if (imgBackgoundX < this.getWidth() - imgBackgound.getWidth())
imgBackgoundX = this.getWidth() - imgBackgound.getWidth();
* Responsible for the drawing
* @param g
private void render(Graphics g)
g.drawImage(imgBackgound, imgBackgoundX, imgBackgoundY, Graphics.TOP | Graphics.LEFT);
this.flushGraphics();
}You can also try to provide a greater Priority to your player thread so that it gains the CPU time when ever it needs it and don't harm the playback.
However a loop in a Thread and that to an infinite loop is one kind of very bad programming, 'cuz the loop eats up most of your CPU time which in turn adds up more delays of the execution of other tasks (just as in your case it is the playback). By witting codes bit efficiently and planning out the architectural execution flow of the app before start writing the code helps solve these kind of issues.
You can go through [this simple tutorial|http://oreilly.com/catalog/expjava/excerpt/index.html] about Basics of Java and Threads to know more about threads.
Regds,
SD
N.B. And yes there are more articles and tutorials available but much of them targets the Java SE / EE, but if you want to read them here is [another great one straight from SUN|http://java.sun.com/docs/books/tutorial/essential/concurrency/index.html] .
Edited by: find_suvro@SDN on 7 Nov, 2008 12:00 PM
Maybe you are looking for
-
Hi All BW gurus , i want a clear picture how to create an infoset query and when to go for infoset and infoset query in GENERIC Extaction . anyone pls send the screen shots how to create and extract data to bw side from infoset query , my email is
-
Xorg 1.8 and Genius UC-LOGIC Tablet WP5540U
Hello, work someone with type tablet type on xorg 1.8? I follow this instructions (http://bbs.archlinux.org/viewtopic.php?pid=786420), but this don't help me. Xorg hot-plug feature have be on, or off ? Thanks for any help!
-
The UniquekeyValidator Rule is not working in the EO edit dialog.
The UniquekeyValidator Rule is not working in the EO edit dialog. We have Jdeveloper9i V. 9.0.3.2. The unique flags are checked in the primary key attribute and the custom message is never showed. Is there a Known bug about that? if yes.. does exist
-
IPad Air to projector cord choice-sound airport Express?
Ok so I'm looking to use my ipad to play movies in the back yard for the kiddos. The projector I am going to order has VGA and HDMI ports. I am looking to project the movie to the screen/projector through one of these ports and then stream the sound
-
IPhone screen flashing white/black/blue
I have a 64GB iPhone 6 Plus, the phone is running the most recent version of iOS 8. I didn't drop the phone, get it wet or anything. All of sudden the screen started flashing black and white, and blue. I can still send receive texts, calls etc, sound