Function modules to create the relationship for Reference Personnel IT0031

I tried using BDC recording PA30 to create the relationship for reference personnel but it dun seems to work. Anyone knows of any standard function module to create that relationship instead.

I have tried both and it doesnt work. The behaviour of this reference personnel number is different from the normal object relationships. Does anyone have experience using function module to create reference personnel relationship instead of giving the stand FM to create the records.

Similar Messages

Function module to create Inbound delivery with reference to Purchase Order

Hi experts,
I want to create Inbound delivery with refernce to Purchase Order. But I want to create item wise. For example If one purchase order is there with 10 line items. 10, 20, 30, 40, 50......100.
If I am showing report for Purchase Order with select option and if I select first 5 line items 10, 20, 30, 40, 50 then my program should be create one Inbound delivery for selected line items only. I have tried BDC for Tcode VL31N, but its not worked. Is there any Function module to create Inbound delivery with reference to Purchase Order for selected line items????????

Hi,
Try FM RV_DELIVERY_CREATE or GN_DELIVERY_CREATE.
For creating a delivery wrt PO u 1st need to have a sales order i guess.
Regards,
Amit

I need to create RFC function module which creates the IDOC

Hi-
Any idea how to create RFC function module which creates the outbound IDOC. If you have any sample code please forward to me.
Thanks,
Sony

My Problem is
Whenever they create Invoice using T-code's like FV65(Parked Document), automatically should create IDOC's...
I have used message type FIDCC1 but this message type is usefull only for Posting documents.
1. Whenever they create parked document, entries will be stored in BKPF(Parked Document-Filed-BKPF-BSTAT = 'V') and Bseg....
2. I have to read entries from those tables and should create IDOC...
3. I checked FM's(FI_IDOC_CREATE_FIDCC1, FI_IDOC_PREPARE) but are not useful...
4. Now I need to write one RFC function module and that FM should create the IDOC's....
Can anyone please help me out?
Thanks,
Sony

Function module to choose the file for download and upload

what is the function module to choose the file for download and upload for presentation server.
give me with example

Please search in SCN.
This has been discussed so many times.

Function module to determine the date for the nth weekday of the mth month

Hey folks,
Is there a function module which determines the date for the mth weekday of the nth month in the pth year.
For instance, if I input 2nd thursday of the 4th month in 2008, it should return me, 04/10/2008 (MM/DD/YYYY).
Thanks and Best Regards,
Puja.

Hi Ravi,
Hadn't been able to work on this lately...You solution was quite close, but did not work for a few scenarios....I tweaked the logic a bit to take care of them as well...
So here goes the code:
================================================
DATA first_day_of_month TYPE datum.
DATA day TYPE p.
CONCATENATE year month '01' INTO first_day_of_month.
CALL FUNCTION 'DAY_IN_WEEK'
 EXPORTING
 datum = first_day_of_month
 IMPORTING
 wotnr = day.
DATA day_number TYPE numc2.
IF day = weekday.
 IF recur = 1.
 DATA ls_date(10) TYPE c.
 CONCATENATE month '/01/' year INTO ls_date.
 CALL FUNCTION 'CONVERT_DATE_TO_INTERNAL'
 EXPORTING
 date_external = ls_date
 IMPORTING
 date_internal = date.
 ELSE.
 day_number = ( ( recur - 1 ) * 7 ) + 1.
 ENDIF.
ELSEIF day < weekday.
 day_number = ( ( recur - 1 ) * 7 ) + ( weekday - day ) + 1.
ELSE.
 day_number = ( ( recur - 1 ) * 7 ) + ( 7 - day ) + weekday + 1.
ENDIF.
IF date IS INITIAL.
 CONCATENATE year month day_number INTO date.
ENDIF.
====================================
There still could be some loopholes in this....am not sure....but it sure did seem to work for a couple of random checks that I performed.
Brownie points to you for giving me a direction.
Thanks,
Puja.

Any BAPI Function Module To Create the Workcenter ?

Hi
Can any one can give the BAPI Function Module to Create the Workcenter ?
Regards,
N.L.

Hi NL,
Found FM CRAP_WORKCENTER_CREATE
See if this FM serves your purpose.
Regards,
Raj

Need a function module to create production order with reference

Hi
I need a function module to create a production order with reference to an existing order. There is no BAPI available for SAP 4.7 release. I found that the function module CO_ZF_PRODUCTIONORDER_CREATE does not create with reference to an existing order.
Any help will be rewarded.
Pavan

Dear Pavan,
Unfortunately there is no FM for this..
Cheers
Nitesh

Function module to predict the date for a given date

hi friends,
is there any function module to predict the date
means for example if i enter one date , what will be the date
after 4 months(say) to the given date.
my requirement is when a person is hired today (10.06.2008)
and if he is under probationary for 6 months, then on what date he comes into the permenant employee's list(predicted date after date 6 months)

Date calculations
DATE_COMPUTE_DAY Returns a number indicating what day of the week the date falls on. Monday is returned as a 1, Tuesday as 2, etc.
DATE_IN_FUTURE Calculate a date N days in the future.
RP_CALC_DATE_IN_INTERVAL Add days/months to a date
RP_CALC_DATE_IN_INTERVAL Add/subtract years/months/days from a date
SD_DATETIME_DIFFERENCE Give the difference in Days and Time for 2 dates
MONTH_PLUS_DETERMINE Add or subtract months from a date. To subtract a month, enter a negative value for the 'months' parameter.
DATE_CREATE Calculates a date from the input parameters:
Example: DATE_CREATE
CALL FUNCTION 'DATE_CREATE'
EXPORTING
   anzahl_jahre = 1
   anzahl_monate = 2
   anzahl_tage   = 3
   datum_ein     = '20010101'
IMPORTING
   datum_aus     = l_new_date.
   Result:
   l_new_date = 20020304
Example: MONTH_PLUS_DETERMINE
data: new_date type d.
CALL FUNCTION 'MONTH_PLUS_DETERMINE'
EXPORTING
months = -5 " Negative to subtract from old date, positive to add
olddate = sy-datum
IMPORTING
NEWDATE = new_date.
write: / new_date.

BAPI or Function Module to create the Rebate Agreement

Hi All,
I have a requirement where I get the flat file which consists of the header and item level data. Using that I have to create the REBATE AGREEMENT. The transaction code to create the Rebate Agreement is VBO1 (Create Rebate Agreement).
Is there any BAPI or FUNCTION MODULE available in SAP to create the Rebate Agreement. Please tell me if you know any suitable BAPI or FM.
Thanks in advance.
Best Regards,
Paddu.

Hi Paddu
Were you able to find a BAPI or Function Module to create Rebate Agreement. We have a similar requirement where we have to create Rebate Agreements with Conditions.
If you have found a solution do share it with us.
Regards
Salil

Function module to change the value for pricing condition type

Hello experts,
I want to change the value for pricing condition type for an item in the transaction CRMD_ORDER.
I used many function modules but none are working.
Please kindly suggest a function module that will change the value for a condition type .
I have used the following function module but its not working, please correct the coding if anything needs to be changed or added. Please help me .
Thank you.
CLEAR PRCD_COND.
 SELECT SINGLE * FROM PRCD_COND WHERE KPOSN = WA_ORDERADM_I-GUID AND
 KSCHL = COND_TY.
IF SY-SUBRC = 0.
* MOVE-CORRESPONDING PRCD_COND TO L_COND_CHG.
* CLEAR L_COND_CHG-KBETR.
 L_COND_CHG-STUNR = PRCD_COND-STUNR.
 L_COND_CHG-KBETR = COND_PRC.
* L_COND_CHG-KSCHL = COND_TY.
 INSERT L_COND_CHG INTO TABLE T_COND_CHG.
L_HEAD_GUID = CRMD_ORDERADM_H-GUID.
L_ITEM_GUID = WA_ORDERADM_I-GUID.
INSERT L_HEAD_GUID INTO TABLE HEAD_GUID.
INSERT L_ITEM_GUID INTO TABLE ITEM_GUID.
 CALL FUNCTION 'CRM_ORDER_READ'
 EXPORTING
 IT_HEADER_GUID = HEAD_GUID
 IT_ITEM_GUID = ITEM_GUID
 IMPORTING
 ET_ORDERADM_H = LT_ORDERADM_H
 ET_ORDERADM_I = LT_ORDERADM_I
 ET_PRIDOC = IT_PRIDOC_RD
 ET_DOC_FLOW = T_DOC_FLOW
* CHANGING
* CV_LOG_HANDLE =
* EXCEPTIONS
* DOCUMENT_NOT_FOUND = 1
* ERROR_OCCURRED = 2
* DOCUMENT_LOCKED = 3
* NO_CHANGE_AUTHORITY = 4
* NO_DISPLAY_AUTHORITY = 5
* NO_CHANGE_ALLOWED = 6
* OTHERS = 7
 IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
MOVE-CORRESPONDING LS_PRIDOC_RD TO L_PRI_COND.
INSERT L_PRI_COND INTO TABLE PRI_COND.
LOOP AT IT_PRIDOC_RD INTO LS_PRIDOC_RD.
MOVE-CORRESPONDING LS_PRIDOC_RD TO L_PRIDOC_CHG.
L_PRIDOC_CHG-PRIC_COND = PRI_COND.
L_PRIDOC_CHG-REF_GUID = LS_PRIDOC_RD-GUID.
L_PRIDOC_CHG-COND_CHANGE = T_COND_CHG.
INSERT L_PRIDOC_CHG INTO TABLE PRIDOC_CHG.
ENDLOOP.
LOOP AT LT_ORDERADM_H INTO LS_ORDERADM_H .
MOVE-CORRESPONDING LS_ORDERADM_H TO L_HEADER.
INSERT L_HEADER INTO TABLE HEADER.
ENDLOOP.
LOOP AT LT_ORDERADM_I INTO LS_ORDERADM_I.
MOVE-CORRESPONDING LS_ORDERADM_I TO L_ITEM.
INSERT L_ITEM INTO TABLE ITEM.
ENDLOOP.
L_FIELD-FIELDNAME = 'STUNR'.
INSERT L_FIELD INTO TABLE FIELD.
L_FIELD-FIELDNAME = 'KBETR'.
L_FIELD-CHANGEABLE = 'X'.
INSERT L_FIELD INTO TABLE FIELD.
L_INPUT-FIELD_NAMES = FIELD.
L_INPUT-REF_KIND = 'E'.
L_INPUT-REF_GUID = LS_PRIDOC_RD-GUID.
L_INPUT-OBJECTNAME = 'PRIDOC'.
INSERT L_INPUT INTO TABLE INPUT.
 CALL FUNCTION 'CRM_ORDER_MAINTAIN'
 EXPORTING
 IT_PRIDOC = PRIDOC_CHG
 IMPORTING
 ET_EXCEPTION = EXCEPT
 CHANGING
 CT_INPUT_FIELDS = INPUT.
 IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
REFRESH EXCEPT.
CALL FUNCTION 'CRM_ORDER_SAVE'
EXPORTING
 IT_OBJECTS_TO_SAVE = HEAD_GUID
* IV_UPDATE_TASK_LOCAL = FALSE
* IV_SAVE_FRAME_LOG = FALSE
* IV_NO_BDOC_SEND = FALSE
* IT_ACTIVE_SWITCH =
IMPORTING
 ET_SAVED_OBJECTS = SAVED
 ET_EXCEPTION = EXCEPT
 ET_OBJECTS_NOT_SAVED = UNSAVED
* CHANGING
* CV_LOG_HANDLE =
* EXCEPTIONS
* DOCUMENT_NOT_SAVED = 1
* OTHERS = 2
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
COMMIT WORK AND WAIT.

Hi,,
To be able to call a function module in an update work process, you must flag it in the Function Builder. When you create the function module, set the Process Type attribute to Update with immediate start
Alternatively u can use this function module.
CRM_STATUS_DATA_SAVE_DB
BAPI_CUSTOMERCRM_CHANGE (If u wish to use a bapi for this).
Also , Let me know what error you got when implementing other function module.Does the function module didnt return any error but still the value is not changed for pricing condition type?

Is there any Function Module to delete the Responsibility for buyer

Hi,
I am able to insert a responsibility for a buyer using the FM, BBP_UPDATE_ATTRIBUTES. Can any one can tell me is there any FM to delete the responsibity for buyer. The BBP_UPDATE_ATTRIBUTES is not working for deletion and It is taking lot of time when i am trying to delete rsponsibility by using the transactio code PPOSA_BBP .
I found one badi, HRBAS00INFTY but there are no exporting or changing parameters in that badi to write some logic to delete.
The FM ,RH_BASE_UPDATE_DB_DIALOG is getting executed and updating the data base tables after the above badi got executed. can i use this FM ,RH_BASE_UPDATE_DB_DIALOG directly to delete the responsibility?I think it is not recomended.
can any one give me some idea.

Hi. You can use transaction PP01 instead of PPOMA_BBP.
You might have to make some settings in table T777I to allow the responsibility to be maintained from PP01, but it it a lot faster than PPOMA_BBP, and you could use an ECATT or call transaction on PP01.
You can also delete all the infotype using PP01, basically delete all the responsibility in 1 go if that is any use? Try all this in a test system first toget used to it though.
Regards,
Dave.

Function module to find the attachment list for an accounting document?

Is there a function module to find the attachment list for an accounting document? Or which table stores such references?
I know I can find this info from the transaction FB03, but is there a function module to find the attachments for an accounting document? So far I only found the attachments are stored in the table SOOD, and archived documents in table TOA03, but I can't find the table that stores the links between the accounting document and its attachments?
<REMOVED BY MODERATOR>
Thanks,
Ning
Message was edited by:
 Alvaro Tejada Galindo

Hi,
i_object1-typeid = 'YARSATTA'. "<<< Give your Object id name
i_object1-catid = 'BO'.
i_object1-instid = i_yarsitem-docno. "<<<< Document Number
call method cl_gos_attachment_query=>count_for_object
 exporting
 is_object = i_object1
 ip_arl = space
 receiving
 rt_stat = i_stat1.
read table i_stat1 into wa_stat1 index 1.
if sy-subrc eq c_0.
 move wa_stat1-counter to v_attno1.
endif.
For link you need to check for table SRGBTBREL
and also please check class CL_GOS*
a®

Function module to display the card details for the tcode BCA_CN_card_03

HI all,
I need to know the function modules to create the card data and also to display the card details in accounts management in CRM.
Points will be awarded.
Thanks and regards,
vinoth.

1 BUPA_ADDRESS_GET_DETAIL
2 BUPA_IDENTIFICATION_GET_DETAIL
BUPA_IDENTIFICATIONDETAILS_GET
3 BUPA_TAX*
4,5 BUPA_PCARD*

Function module to read the the idoc

Hi abap gurus,
 I have an inbound idoc coming form a wms system .The IDOC is for goods recieved . how can I read the idoc to update the inbound delivery data in the sap system ? Is there any function module to read the data from teh inbound idoc ?

Hi Gaurab,
Creating a Function Module (Direct Inbound Processing)
This step describes how to create a function module which is identified by the IDoc Interface using a new process code and called from ALE (field TBD52-FUNCNAME). Direct inbound processing using a function module (not using a workflow) always includes the ALE layer. This setting (processing with function module and ALE layer) is identified by the value 6 in the field TEDE2-EDIVRS, which is read by the function module IDOC_START_INBOUND. IDOC_START_INBOUND then calls ALE.
Prerequisites
You must have completed the required steps in Defining and Using a Basic Type .
Procedure
Choose Tools ® ABAP Workbench ® Development ® Function Builder, and create a new function module.
Create the segments as global data in your function group. The function module should copy the application data from the segments into the corresponding application tables and modify the IDoc status accordingly. If an error occurs, the function module must set the corresponding workflow parameters for exception handling.
Activate the function module: From the initial screen of the Function Builder select .
In the example, create the function module IDOC_INPUT_TESTER with a global interface. The function module is called when an IDoc of type TESTER01 is received for inbound processing. You will assign an application object ("standard order") to this IDoc type and therefore maintain tables from SD. To do this, call transaction VA01 using the command CALL TRANSACTION. Please note that the intention here is not to simulate a realistic standard order, but only to illustrate how data reaches application tables from an IDoc table via segment structures (form routine READ_IDOC_TESTER) and how the function module triggers an event for exception handling (by returning suitable return variables to the ALE layer in the FORM routine RETURN_VARIABLES_FILL).
A comprehensive example of the code for an inbound function module is provided in the ALE documentation in the SAP Library under Example Program to Generate an IDoc. This function module, for example, also checks whether the logical message is correct and calls a (fictitious) second function module which first writes the application data and then returns the number of the generated document. In addition, status 53 is only set if the application document was posted correctly.
Administration parameters for IDOC_INPUT_TESTER
Application abbreviation
V (Sales and Distribution)
Processing type
Normal, start immediately
Interface for IDOC_INPUT_TESTER (global interface)
Formal parameters
Reference structure
Explanation
Import parameters
INPUT_METHOD
BDWFAP_PAR-INPUTMETHD
Describes how the function module is to be processed (example: in the background)
MASS_PROCESSING
BDWFAP_PAR-MASS_PROC
Mass inbound processing? (indicator)
Export parameters
WORKFLOW_RESULT
BDWFAP_PAR-RESULT
Set to 99999 if an event is to be triggered for error handling.
APPLICATION_VARIABLE
BDWFAP_PAR-APPL_VAR
Variable freely available from application for workflow
IN_UPDATE_TASK
BDWFAP_PAR-UPDATETASK
Asynchronous update? (indicator is not set in example)
CALL_TRANSACTION_DONE
BDWFAP_PAR-CALLTRANS
Transaction called? (indicator is not set in example)
Table
IDOC_CONTRL
EDIDC
IDoc control record
IDOC_DATA
EDIDD
IDoc data records
IDOC_STATUS
BDIDOCSTAT
IDoc status records for ALE
RETURN_VARIABLES
BDWFRETVAR
IDoc assigned to Object type method parameters.
SERIALIZATION_INFO
BDI_SER
If several IDocs are to be processed in a certain sequence: this structure contains the necessary information
Example
FUNCTION IDOC_INPUT_TESTER.
""Globale Schnittstelle:
*" IMPORTING
*" VALUE(INPUT_METHOD) LIKE BDWFAP_PAR-INPUTMETHD
*" VALUE(MASS_PROCESSING) LIKE BDWFAP_PAR-MASS_PROC
*" EXPORTING
*" VALUE(WORKFLOW_RESULT) LIKE BDWFAP_PAR-RESULT
*" VALUE(APPLICATION_VARIABLE) LIKE BDWFAP_PAR-APPL_VAR
*" VALUE(IN_UPDATE_TASK) LIKE BDWFAP_PAR-UPDATETASK
*" VALUE(CALL_TRANSACTION_DONE) LIKE BDWFAP_PAR-CALLTRANS
*" TABLES
*" IDOC_CONTRL STRUCTURE EDIDC OPTIONAL
*" IDOC_DATA STRUCTURE EDIDD
*" IDOC_STATUS STRUCTURE BDIDOCSTAT
*" RETURN_VARIABLES STRUCTURE BDWFRETVAR
*" SERIALIZATION_INFO STRUCTURE BDI_SER
initialize SET/GET Parameter and internal tables
PERFORM INITIALIZE_ORGANIZATIONAL_DATA.
Move IDOC to internal tables of application
PERFORM READ_IDOC_TESTER.
call transaction Order Entry VA01
PERFORM CALL_VA01_IDOC_ORDERS USING ERRORCODE.
set status value
perform write_status_record using errorcode.
return values of function module
PERFORM RETURN_VARIABLES_FILL USING ERRORCODE.
ENDFUNCTION.
FORM INITIALIZE_ORGANIZATIONAL_DATA.
initialize SET/GET parameters
 SET PARAMETER ID 'VKO' FIELD SPACE.
 SET PARAMETER ID 'VTW' FIELD SPACE.
 SET PARAMETER ID 'SPA' FIELD SPACE.
 SET PARAMETER ID 'VKB' FIELD SPACE.
 SET PARAMETER ID 'VKG' FIELD SPACE.
initialize internal tables
 REFRESH BDCDATA.
 CLEAR BDCDATA.
 CLEAR BELEGNUMMER.
 CLEAR ERRTAB.
 REFRESH ERRTAB.
 REFRESH XBDCMSGCOLL.
 CLEAR XBDCMSGCOLL.
ENDFORM. " INITIALIZE_ORGANIZATIONAL_DATA
FORM READ_IDOC_TESTER.
PERFORM INITIALIZE_IDOC.
LOOP AT IDOC_DATA
 WHERE DOCNUM = IDOC_CONTRL-DOCNUM.
 CASE IDOC_DATA-SEGNAM.
header data
 WHEN 'E1HEAD'.
 MOVE IDOC_DATA-SDATA TO E1HEAD.
 PERFORM PROCESS_SEGMENT_E1HEAD.
position data
 WHEN 'E1ITEM'.
 MOVE IDOC_DATA-SDATA TO E1ITEM.
 PERFORM PROCESS_SEGMENT_E1ITEM.
 ENDCASE.
ENDLOOP.
only when there were one or more items
CHECK FIRST NE 'X'.
APPEND XVBAP. "last one
ENDFORM. " READ_IDOC_TESTER
FORM INITIALIZE_IDOC.
CLEAR XVBAK.
REFRESH XVBAP.
CLEAR XVBAP.
POSNR = 0.
FIRST = 'X'.
ENDFORM. " INITIALIZE_IDOC
FORM PROCESS_SEGMENT_E1HEAD.
requested date of delivery
WLDAT = E1HEAD-WLDAT.
delivery date
XVBAK-BSTDK = E1HEAD-BSTDK.
customer number
XVBAK-KUNNR = E1HEAD-AUGEB.
order number
XVBAK-BSTNK = E1HEAD-BELNR.
division
XVBAK-SPART = E1HEAD-SPART.
distribution channel
XVBAK-VTWEG = E1HEAD-VTWEG.
sales organization
XVBAK-VKORG = E1HEAD-VKORG.
order type
XVBAK-AUART = E1HEAD-AUART.
do not fill incoterms (inco1, inco2)
customer function
CALL CUSTOMER-FUNCTION '001'
 EXPORTING
 PI_VBAK621 = XVBAK
 IMPORTING
 PE_VBAK621 = XVBAK
 TABLES
 PT_IDOC_DATA_RECORDS = IDOC_DATA.
ENDFORM. " PROCESS_SEGMENT_E1HEAD
FORM PROCESS_SEGMENT_E1ITEM.
position number
XVBAP-POSNR = XVBAP-POSNR + 1.
amount
XVBAP-WMENG = E1ITEM-MENGE.
unit
CALL FUNCTION 'ISO_TO_SAP_MEASURE_UNIT_CODE'
 EXPORTING
 ISO_CODE = E1ITEM-BMEINH
 IMPORTING
 SAP_CODE = XVBAP-VRKME
 EXCEPTIONS
 OTHERS = 0.
material number
XVBAP-MATNR = E1ITEM-LMATNR.
CALL CUSTOMER-FUNCTION '002'
 EXPORTING
 PI_VBAP621 = XVBAP
 IMPORTING
 PE_VBAP621 = XVBAP
 TABLES
 PT_IDOC_DATA_RECORDS = IDOC_DATA.
APPEND XVBAP.
ENDFORM. " PROCESS_SEGMENT_E1ITEM
FORM CALL_VA01_IDOC_ORDERS USING ERRORCODE.
call transaction first dynpro
PERFORM DYNPRO_START.
call transaction double-line entry
PERFORM DYNPRO_DETAIL2.
incoterms
PERFORM DYNPRO_HEAD_300.
call transaction item datas
PERFORM DYNPRO_POSITION.
PERFORM DYNPRO_SET USING 'BDC_OKCODE' 'SICH'.
determine input method
IF INPUT_METHOD IS INITIAL.
 INPUT_METHOD = 'N'.
ENDIF.
call transaction VA01
CALL TRANSACTION 'VA01' USING BDCDATA
 MODE INPUT_METHOD
 UPDATE 'S'
 MESSAGES INTO XBDCMSGCOLL.
errorcode = SY-SUBRC. " remember returncode for status update
ENDFORM. " CALL_VA01_IDOC_ORDERS
form write_status_record using errorcode.
FILL IDOC_STATUS
IDOC_STATUS-DOCNUM = IDOC_CONTRL-DOCNUM.
IF ERRORCODE = 0.
IDOC_STATUS-STATUS = BELEG_GEBUCHT. "value 53
 GET PARAMETER ID 'AUN' FIELD BELEGNUMMER.
 IDOC_STATUS-MSGID = 'V1'.
 IDOC_STATUS-MSGNO = '311'.
 IDOC_STATUS-MSGV1 = 'Terminauftrag'.
 IDOC_STATUS-MSGV2 = BELEGNUMMER.
ELSE.
 IDOC_STATUS-STATUS = BELEG_NICHT_GEBUCHT. "value 51
 IDOC_STATUS-MSGID = SY-MSwGID.
 IDOC_STATUS-MSGNO = SY-MSGNO.
 IDOC_STATUS-MSGV1 = SY-MSGV1.
 IDOC_STATUS-MSGV2 = SY-MSGV2.
 IDOC_STATUS-MSGV3 = SY-MSGV3.
 IDOC_STATUS-MSGV4 = SY-MSGV4.
ENDIF.
APPEND IDOC_STATUS.
ENDFORM.
FORM DYNPRO_START.
PERFORM DYNPRO_NEW USING PROGRAMM_AUFTRAG
 DYNPRO-EINSTIEG
 CHANGING LAST_DYNPRO.
ordertype
PERFORM DYNPRO_SET USING 'VBAK-AUART' XVBAK-AUART.
sales organization
PERFORM DYNPRO_SET USING 'VBAK-VKORG' XVBAK-VKORG.
Distribution channel
PERFORM DYNPRO_SET USING 'VBAK-VTWEG' XVBAK-VTWEG.
Division
PERFORM DYNPRO_SET USING 'VBAK-SPART' XVBAK-SPART.
Sales office
PERFORM DYNPRO_SET USING 'VBAK-VKBUR' XVBAK-VKBUR.
Sales group
PERFORM DYNPRO_SET USING 'VBAK-VKGRP' XVBAK-VKGRP.
ENDFORM. " DYNPRO_START
FORM DYNPRO_NEW USING PROGNAME
 DYNPRONR
 CHANGING LAST_DYNPRO.
CLEAR BDCDATA.
BDCDATA-PROGRAM = PROGNAME.
BDCDATA-DYNPRO = DYNPRONR.
BDCDATA-DYNBEGIN = 'X'.
APPEND BDCDATA.
LAST_DYNPRO = DYNPRONR.
ENDFORM. " DYNPRO_NEW
FORM DYNPRO_SET USING FELDNAME
 FELDINHALT.
CLEAR BDCDATA.
CHECK FELDINHALT NE SPACE.
dynpro field name
BDCDATA-FNAM = FELDNAME.
contents
BDCDATA-FVAL = FELDINHALT.
APPEND BDCDATA.
ENDFORM. " DYNPRO_SET
FORM DYNPRO_DETAIL2.
okcode
PERFORM DYNPRO_SET USING 'BDC_OKCODE' PANEL-UER2.
fix dynpro number 4001
PERFORM DYNPRO_NEW USING PROGRAMM_AUFTRAG
 '4001'
 CHANGING LAST_DYNPRO.
order party
PERFORM DYNPRO_SET USING 'KUAGV-KUNNR' XVBAK-KUNNR.
purchase order number
PERFORM DYNPRO_SET USING 'VBKD-BSTKD' XVBAK-BSTNK.
requested delivery date
PERFORM DYNPRO_DATE_SET USING 'VBKD-BSTDK' XVBAK-BSTDK.
purchase order date
PERFORM DYNPRO_DATE_SET USING 'RV45A-KETDAT' WLDAT.
ENDFORM. " DYNPRO_DETAIL2
FORM DYNPRO_DATE_SET USING FELDNAME
 FELDINHALT.
DATA: DATE TYPE D.
CLEAR BDCDATA.
CHECK FELDINHALT NE SPACE.
BDCDATA-FNAM = FELDNAME.
WRITE FELDINHALT TO DATE.
BDCDATA-FVAL = DATE.
APPEND BDCDATA.
ENDFORM. " DYNPRO_DATE_SET
FORM DYNPRO_HEAD_300.
PERFORM DYNPRO_SET USING 'BDC_OKCODE' PANEL-KKAU.
incoterms part 1
IF NOT XVBAK-INCO1 IS INITIAL.
 PERFORM DYNPRO_SET USING 'VBKD-INCO1' XVBAK-INCO1.
ENDIF.
incoterms part 2
IF NOT XVBAK-INCO2 IS INITIAL.
 PERFORM DYNPRO_SET USING 'VBKD-INCO2' XVBAK-INCO2.
ENDIF.
PERFORM DYNPRO_SET USING 'BDC_OKCODE' 'BACK'.
ENDFORM. " DYNPRO_HEAD_300
FORM DYNPRO_POSITION.
LOOP AT XVBAP.
dynpro item double line entry
PERFORM DYNPRO_SET USING 'BDC_OKCODE' 'UER2'.
 IF XVBAP-POSNR = 1.
material number
 PERFORM DYNPRO_SET USING 'VBAP-MATNR(01)' XVBAP-MATNR.
order quantity
 PERFORM DYNPRO_SET USING 'RV45A-KWMENG(01)' XVBAP-WMENG.
desired delivery date
 PERFORM DYNPRO_DATE_SET USING 'RV45A-ETDAT(1)' WLDAT.
sales unit
 PERFORM DYNPRO_SET USING 'VBAP-VRKME(1)' XVBAP-VRKME.
 ELSE.
 PERFORM DYNPRO_SET USING 'BDC_OKCODE' 'POAN'.
material number
 PERFORM DYNPRO_SET USING 'VBAP-MATNR(02)' XVBAP-MATNR.
order quantity
 PERFORM DYNPRO_SET USING 'RV45A-KWMENG(02)' XVBAP-WMENG.
desired delivery date
 PERFORM DYNPRO_DATE_SET USING 'RV45A-ETDAT(02)' WLDAT.
sales unit
 PERFORM DYNPRO_SET USING 'VBAP-VRKME(02)' XVBAP-VRKME.
 ENDIF.
ENDLOOP.
ENDFORM. " DYNPRO_POSITION
FORM RETURN_VARIABLES_FILL USING ERRORCODE.
allocate IDOC numbers to Workflow output parameters
IF MASS_PROCESSING <> SPACE.
 IF ERRORCODE = 0.
 RETURN_VARIABLES-WF_PARAM = PID.
 RETURN_VARIABLES-DOC_NUMBER = IDOC_CONTRL-DOCNUM.
 APPEND RETURN_VARIABLES.
 RETURN_VARIABLES-WF_PARAM = APO.
 RETURN_VARIABLES-DOC_NUMBER = BELEGNUMMER.
 APPEND RETURN_VARIABLES.
 WORKFLOW_RESULT = C_WF_RESULT_OK.
 ELSE.
 RETURN_VARIABLES-WF_PARAM = EID.
 RETURN_VARIABLES-DOC_NUMBER = IDOC_CONTRL-DOCNUM.
 APPEND RETURN_VARIABLES.
 WORKFLOW_RESULT = C_WF_RESULT_ERROR.
 ENDIF.
ELSE.
 IF ERRORCODE = 0.
 RETURN_VARIABLES-WF_PARAM = APE.
 RETURN_VARIABLES-DOC_NUMBER = BELEGNUMMER.
 APPEND RETURN_VARIABLES.
 WORKFLOW_RESULT = C_WF_RESULT_OK.
 ELSE.
 WORKFLOW_RESULT = C_WF_RESULT_ERROR.
 ENDIF.
ENDIF.
ENDFORM. " RETURN_VARIABLES_FILL
Globale Daten von IDOC_INPUT_TESTER
TABLES: E1HEAD, E1ITEM.
DATA: BEGIN OF BDCDATA OCCURS 500.
 INCLUDE STRUCTURE BDCDATA.
DATA: END OF BDCDATA.
DATA: BEGIN OF XVBAK. "Kopfdaten
 INCLUDE STRUCTURE VBAK621.
DATA: END OF XVBAK.
DATA: BEGIN OF XVBAP OCCURS 50. "Position
 INCLUDE STRUCTURE VBAP.
DATA: WMENG(18) TYPE C.
DATA: LFDAT LIKE VBAP-ABDAT.
DATA: KSCHL LIKE KOMV-KSCHL.
DATA: KBTRG(16) TYPE C.
DATA: KSCHL_NETWR LIKE KOMV-KSCHL.
DATA: KBTRG_NETWR(16) TYPE C.
DATA: INCO1 LIKE VBKD-INCO1.
DATA: INCO2 LIKE VBKD-INCO2.
DATA: YANTLF(1) TYPE C.
DATA: PRSDT LIKE VBKD-PRSDT.
DATA: HPRSFD LIKE TVAP-PRSFD.
DATA: END OF XVBAP.
DATA: BEGIN OF DYNPRO,
 EINSTIEG LIKE T185V-DYNNR VALUE 101,
 KKAU LIKE T185V-DYNNR,
 UER2 LIKE T185V-DYNNR,
 KBES LIKE T185V-DYNNR,
 ERF1 LIKE T185V-DYNNR,
 PBES LIKE T185V-DYNNR,
 PKAU LIKE T185V-DYNNR,
 PEIN LIKE T185V-DYNNR,
 EID1 LIKE T185V-DYNNR,
 POPO LIKE T185V-DYNNR,
 EIPO LIKE T185V-DYNNR,
 KPAR LIKE T185V-DYNNR,
 PSDE LIKE T185V-DYNNR,
 PPAR LIKE T185V-DYNNR,
 KDE1 LIKE T185V-DYNNR,
 KDE2 LIKE T185V-DYNNR,
 PDE1 LIKE T185V-DYNNR,
 PDE2 LIKE T185V-DYNNR,
 PKON LIKE T185V-DYNNR,
 END OF DYNPRO.
DATA: BEGIN OF PANEL,
 KKAU LIKE T185V-PANEL VALUE 'KKAU',
 UER2 LIKE T185V-PANEL VALUE 'UER2',
 KBES LIKE T185V-PANEL VALUE 'KBES',
 ERF1 LIKE T185V-PANEL VALUE 'ERF1',
 PBES LIKE T185V-PANEL VALUE 'PBES',
 PKAU LIKE T185V-PANEL VALUE 'PKAU',
 PEIN LIKE T185V-PANEL VALUE 'PEIN',
 EID1 LIKE T185V-PANEL VALUE 'EID1',
 EIAN LIKE T185V-PANEL VALUE 'EIAN',
 POPO LIKE T185V-PANEL VALUE 'POPO',
 EIPO LIKE T185V-PANEL VALUE 'EIPO',
 KPAR LIKE T185V-PANEL VALUE 'KPAR',
 PSDE LIKE T185V-PANEL VALUE 'PSDE',
 POAN LIKE T185V-PANEL VALUE 'POAN',
 PPAR LIKE T185V-PANEL VALUE 'PPAR',
 KDE1 LIKE T185V-PANEL VALUE 'KDE1',
 KDE2 LIKE T185V-PANEL VALUE 'KDE2',
 PDE1 LIKE T185V-PANEL VALUE 'PDE1',
 PDE2 LIKE T185V-PANEL VALUE 'PDE2',
 PKON LIKE T185V-PANEL VALUE 'PKON',
 KOAN LIKE T185V-PANEL VALUE 'KOAN',
 END OF PANEL.
DATA: BEGIN OF ERRTAB OCCURS 20,
 TRANS LIKE TSTC-TCODE,
 ARBGB LIKE T100-ARBGB,
 CLASS(1) TYPE C,
 MSGNR LIKE T100-MSGNR,
 TEXT LIKE T100-TEXT,
 TEXT(123) TYPE C,
 MSGV1 LIKE SY-MSGV1,
 MSGV2 LIKE SY-MSGV2,
 MSGV3 LIKE SY-MSGV3,
 MSGV4 LIKE SY-MSGV4,
 END OF ERRTAB.
*---- Hilfsfelder -
DATA: PROGRAMM_AUFTRAG LIKE T185V-AGIDV VALUE 'SAPMV45A'.
DATA: LAST_DYNPRO LIKE T185V-DYNNR,
 WLDAT LIKE VBAK-BSTDK,
 POSNR LIKE VBAP-POSNR,
 FIRST(1) TYPE C VALUE 'X'.
DATA: BEGIN OF XBDCMSGCOLL OCCURS 10.
 INCLUDE STRUCTURE BDCMSGCOLL.
DATA: END OF XBDCMSGCOLL.
Terminauftrag ( Auftragsart wird fest gesetzt !)
DATA: BELEGNUMMER LIKE VBAK-VBELN.
DATA: ERRORCODE LIKE SY-SUBRC.
Statuswerte fuer IDOC-Status
DATA: BELEG_NICHT_GEBUCHT LIKE TEDS1-STATUS VALUE '51'.
DATA: BELEG_GEBUCHT LIKE TEDS1-STATUS VALUE '53'.
*- Direktwerte für Return_variables -
data:
 eid like bdwfretvar-wf_param value 'Error_IDOCs',
 pid like bdwfretvar-wf_param value 'Processed_IDOCs',
 apo like bdwfretvar-wf_param value 'Appl_Objects',
 ape like bdwfretvar-wf_param value 'Appl_Object'.
*- Direktwerte für Workflow_Result -
DATA: C_WF_RESULT_ERROR LIKE BDWFAP_PAR-RESULT VALUE '99999'.
thanks
karthik
DATA: C_WF_RESULT_OK LIKE BDWFAP_PAR-RESULT VALUE '0'.

CRM - function module to create card account in deposit mangement

Hi All,
I need to function module to display the details of business patner in CRM sytem
1. Function module to display address details of Business patner
2. FM to display details of Identification number and identification type of Business patner.
3. FM to display tax details of business patner.
4. FM to display card details of Business patner
5.) Fm to create card account in deposit Mangement.
what is the transaction code to create card account in deposit management.
Points will be awarded.
Regards,
vinoth.

Hi Stefan,
Thanks for the quick response.
As you have suggested i am using the same set of Function Modules to create the service contracts.
However can you please suggest how can i also change the address of the business partners i.e ship-to-party, sold-to-party, payee etc..
And can you also suggest how to upload the header status of the service contract. (the value is getting set to default 'open')
Thanks in advance

Function modules to create the relationship for Reference Personnel IT0031

Similar Messages

Maybe you are looking for