Any Function Module to Read Inspection Plan ?

Hi
Does anyone know any Function Module/BAPI to read the Insepction Plan( Or Inspection Plan Charecterstics) for a Meterial?
These inspection Palns will be created using Transaction QP01/QP02.
Thanks for your help.

Hi,
Pl check whether any of the below will meet your requirement:
QDTA_INSPECTION_STAGES_READ
QDTA_INSPECTION_STAGE_READ
QDTA_INSPECTION_ST_READ_NO_BUF
Regards
Muraleedharan.R

Similar Messages

Any function module to read all the values in Tcode-PPQD?

Hi all
Is there any function module to read all the values in Tcode-PPQD (Display Qualifiaction Catalog).
and any idea what tables are involved to get these values like parent and child relationship?
Thanks in advance.
Murali.

Murali,
you can use the following..
data: w_sobid type sobid, "Qualification ID
      w_objid type objid. "Qualification Catalog
select objid into w_objid
              up to 1 rows
              from HRP1001
             where otype = 'QK'
               and plvar = '01'
               and istat = 1
               and risgn = 'B'
               and relat = '030'
               and endda ge sy-datum
               and begda le sy-datum
               and sclas = 'Q'
               and sobid = w_sobid.
endselect.
if sy-subrc eq 0.
write: / w_objid,w_sobid.
endif.
Regards,
Suresh Datti

Can anybody send the function module to read inspection characteristics ?

Hi friends
can anybody send the function module to read inspection characteristics ?
(rate routings).
thanks in advance

Hi,
Use the BAPI,
BAPI_INSPCHAR_GETRESULT to get the deatils.
also look at this BAPI BAPI_INSPOPER_GETCHAR
Regards
Sudheer
Message was edited by:
Sudheer Junnuthula

QM : is there any function module to find inspection lot characterstics

Hi All,
is there any function module to find all characterstics for an inspection lot.
i need exact data which qe51n transaction is fetching .
thanks in adv ,
Varma

Hi uvs,
1. we can use the fm BAPI_INSPOPER_GETCHAR.
regards,
amit m.

Function module to download Inspection plan data

Is there any function module to downlaod the data of PLKO and PLMK tables data i.e. Inspection Plan data.
Thank you.

Hi,
To downlaod PLKO data use this FM CM_PLKO_READ
and for PLMK try this one QPAX_PLMKB_READ_FROM_PLKO.
Hope it helps.
Regards
Hiren K.Chitalia

Any Function Module to read last 3 years

Hi geeks,
My requirement i need to fetch sales order data of last 3 years, so is there any function module where i can pass todays date and get past 3 years date

I guess there is no fm related to ur requirement.
See the below program as per ur req.
Data Declaration Part
TYPE-POOLS
type-pools : slis.
Tables
tables : VBAK,
         VBAP.
Internal table for VBAK Table
data : begin of i_vbak occurs 0,
       vbeln like vbak-vbeln,
       bstnk like vbak-bstnk,
       vdatu like vbak-vdatu,
       end of i_vbak.
Internal table for VBAP and MATNR
data : begin of i_vbap occurs 0,
       vbeln like vbap-vbeln,
       matnr like vbap-matnr,
       kdmat like vbap-kdmat,
       kwmeng like vbap-kwmeng,
       netpr like vbap-netpr,
       maktx like makt-maktx,
       end of i_vbap.
Internal tables
data : begin of i_sales occurs 0,
       vdatu like vbak-vdatu,
       bstnk like vbak-bstnk,
       matnr like vbap-matnr,
       maktx like makt-maktx,
       kdmat like vbap-kdmat,
       kwmeng like vbap-kwmeng,
       netpr like vbap-netpr,
       end of i_sales.
Variable for ALV
data : v_repid like sy-repid,
       gt_fieldcat    type slis_t_fieldcat_alv.
Selection-screen
selection-screen : begin of block blk with frame title text-001.
select-options : s_vbeln for vbak-vbeln,
                 s_erdat for vbak-erdat,
                 s_ernam for vbak-ernam,
                 s_vdatu for vbak-vdatu obligatory,
                 s_BSTNK for vbak-BSTNK,
                 s_KUNNR for vbak-kunnr,
                 s_matnr for vbap-matnr,
                 s_KDMAT for vbap-KDMAT.
selection-screen : end of block blk.
Initilization
initialization.
v_repid = sy-repid.
S T A R T - O F - S E L E C T I O N ****************
start-of-selection.
Get the data from VBAK and VBAP Tables
perform get_vbak_vbap.
E N D - O F - S E L E C T I O N *****************
end-of-selection.
Display the data
perform dispolay_data.
*&      Form get_vbak_vbap
      Get the data from VBAK and VBAP Table
FORM get_vbak_vbap.
Get the data from VBAK Table
select vbeln bstnk vdatu from vbak into table i_vbak
                     where vbeln in s_vbeln
                     and   bstnk in s_bstnk
                     and   vdatu in s_vdatu
                     and   kunnr in s_kunnr
                     and   erdat in s_erdat
                     and   ernam in s_ernam.
if sy-subrc ne 0.
    message e000(zwave) with 'No data found for given selection'.
endif.
Get the data from VBAP Table
select avbeln amatnr akdmat akwmeng a~netpr
         b~maktx into table i_vbap
         from vbap as a inner join makt as b on bmatnr = amatnr
         for all entries in i_vbak
         where a~vbeln in s_vbeln
         and   a~kdmat in s_kdmat
         and   a~abgru = space
         and   a~matnr in s_matnr
         and   a~matnr ne '000000000000009999'
         and   a~matnr ne '000000000000004444'
         and   a~matnr ne '000000000000008888'
         and   a~matnr ne '000000000000001111'
         and   a~werks = '1000'
         and   b~spras = 'E'
         and   a~vbeln = i_vbak-vbeln.
if sy-subrc ne 0.
    message e000(zwave) with 'No data found for given selection'.
endif.
sort i_vbak by vbeln.
sort i_vbap by vbeln matnr.
loop at i_vbap.
    read table i_vbak with key vbeln = i_vbap-vbeln
                            binary search.
    if sy-subrc eq 0.
      i_sales-bstnk = i_vbak-bstnk.
      i_sales-vdatu = i_vbak-vdatu.
      i_sales-matnr = i_vbap-matnr.
      i_sales-kdmat = i_vbap-kdmat.
      i_sales-maktx = i_vbap-maktx.
      i_sales-netpr = i_vbap-netpr.
      i_sales-kwmeng = i_vbap-kwmeng.
      append i_sales.
    else.
      continue.
    endif.
    clear : i_sales,
            i_vbap,
            i_vbak.
endloop.
sort i_sales by vdatu bstnk matnr.
refresh : i_vbap,
            i_vbak.
ENDFORM.                    " get_vbak_vbap
*&      Form dispolay_data
      Display the data
FORM dispolay_data.
Fill the Fiedlcat
PERFORM fieldcat_init using gt_fieldcat[].
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
I_INTERFACE_CHECK                 = ' '
I_BYPASSING_BUFFER                =
I_BUFFER_ACTIVE                   = ' '
      I_CALLBACK_PROGRAM                = v_repid
I_CALLBACK_PF_STATUS_SET          = ' '
I_CALLBACK_USER_COMMAND           = ' '
I_CALLBACK_TOP_OF_PAGE            = ' '
I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
I_CALLBACK_HTML_END_OF_LIST       = ' '
I_STRUCTURE_NAME                  =
I_BACKGROUND_ID                   = ' '
I_GRID_TITLE                      =
I_GRID_SETTINGS                   =
IS_LAYOUT                         =
      IT_FIELDCAT                       = gt_fieldcat[]
IT_EXCLUDING                      =
IT_SPECIAL_GROUPS                 =
IT_SORT                           =
IT_FILTER                         =
IS_SEL_HIDE                       =
I_DEFAULT                         = 'X'
I_SAVE                            = ' '
IS_VARIANT                        =
IT_EVENTS                         =
IT_EVENT_EXIT                     =
IS_PRINT                          =
IS_REPREP_ID                      =
I_SCREEN_START_COLUMN             = 0
I_SCREEN_START_LINE               = 0
I_SCREEN_END_COLUMN               = 0
I_SCREEN_END_LINE                 = 0
IT_ALV_GRAPHICS                   =
IT_ADD_FIELDCAT                   =
IT_HYPERLINK                      =
I_HTML_HEIGHT_TOP                 =
I_HTML_HEIGHT_END                 =
IT_EXCEPT_QINFO                   =
IMPORTING
E_EXIT_CAUSED_BY_CALLER           =
ES_EXIT_CAUSED_BY_USER            =
    TABLES
      T_OUTTAB                          = i_sales
EXCEPTIONS
PROGRAM_ERROR                     = 1
OTHERS                            = 2
ENDFORM.                    " dispolay_data
*&      Form fieldcat_init
      text
     -->P_GT_FIELDCAT[] text
FORM fieldcat_init USING e01_lt_fieldcat type slis_t_fieldcat_alv.
DATA: LS_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
Delivery Date
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME    = 'VDATU'.
LS_FIELDCAT-OUTPUTLEN    = 12.
LS_FIELDCAT-TABNAME    = 'I_SALES'.
ls_fieldcat-seltext_L = 'Delivery Date'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT.
Purchase Order #Material Description
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME    = 'BSTNK'.
LS_FIELDCAT-OUTPUTLEN    = 25.
LS_FIELDCAT-TABNAME    = 'I_SALES'.
ls_fieldcat-seltext_L = 'Purchase Order #'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT.
Material
CLEAR LS_FIELDCAT.
LS_FIELDCAT-REF_FIELDNAME    = 'MATNR'.
LS_FIELDCAT-REF_TABNAME    = 'MARA'.
LS_FIELDCAT-FIELDNAME    = 'MATNR'.
LS_FIELDCAT-TABNAME    = 'I_SALES'.
ls_fieldcat-seltext_L = 'Material #'.
ls_fieldcat-seltext_M = 'Material #'.
ls_fieldcat-seltext_S = 'Material #'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT.
Material Description
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME    = 'MAKTX'.
LS_FIELDCAT-OUTPUTLEN    = 40.
LS_FIELDCAT-TABNAME    = 'I_SALES'.
ls_fieldcat-seltext_L = 'Material Description'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT.
Customer Material #
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME    = 'KDMAT'.
LS_FIELDCAT-OUTPUTLEN    = 35.
LS_FIELDCAT-TABNAME    = 'I_SALES'.
ls_fieldcat-seltext_L = 'Customer material no.'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT.
Quantity
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME    = 'KWMENG'.
LS_FIELDCAT-OUTPUTLEN    = 15.
LS_FIELDCAT-TABNAME    = 'I_SALES'.
ls_fieldcat-seltext_L = 'Quantity'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT.
Net Price
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME    = 'NETPR'.
LS_FIELDCAT-OUTPUTLEN    = 15.
LS_FIELDCAT-TABNAME    = 'I_SALES'.
ls_fieldcat-seltext_L = 'Net Price'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT.
ENDFORM.                    " fieldcat_init
Thanks
Seshu

Function modules to read ibase at runtime

Hi guru's,
Is there any function modules to read ibase at run time if yes please send those function modules its urgent please please.
regards
naveen kumar

answered

Function module to read Comma Seperated File (CSV)

Hi,
Is there any Function module to read CSV file from presentation server or Application server?
Regards,
Madhu

Hi madhukeshwar,
1. Exactly for this purpose,
i have developed an independent FORM
where we give inputs
a) file name (eg. abcd.txt)
b) separator (eg , COMMA in your case)
c) internal table (eg. t001)
2. It will provide the data
in proper format
(no matter what the separator)
(it can work with any kind of separator)
3. just copy paste in new program.
REPORT abc.
change your table declaration and file name
DATA : t001 LIKE TABLE OF t001 WITH HEADER LINE.
PERFORM myupload TABLES t001 USING 'd:\t001.txt' ','.
BREAK-POINT.
in debug see t001
INDEPENDENT FORM
FORM myupload TABLES orgtab
USING filename separator.
Data
DATA : BEGIN OF itab OCCURS 0,
myline(1000) TYPE c,
END OF itab.
DATA : extension(5) TYPE c.
DATA : name(100) TYPE c.
DATA : newfilename TYPE string.
Step 1
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
filename = filename
TABLES
data_tab = itab.
Step 2
LOOP AT itab.
REPLACE ALL OCCURRENCES OF separator IN itab-myline WITH
cl_abap_char_utilities=>horizontal_tab.
MODIFY itab.
ENDLOOP.
Step 3
DATA : path LIKE pcfile-path.
path = filename.
CALL FUNCTION 'PC_SPLIT_COMPLETE_FILENAME'
EXPORTING
complete_filename = path
CHECK_DOS_FORMAT =
IMPORTING
DRIVE =
extension = extension
name = name
NAME_WITH_EXT =
PATH =
EXCEPTIONS
invalid_drive = 1
invalid_extension = 2
invalid_name = 3
invalid_path = 4
OTHERS = 5
Step 4
newfilename = filename.
REPLACE name IN newfilename WITH 'temp'.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
BIN_FILESIZE =
filename = newfilename
TABLES
data_tab = itab
FIELDNAMES =
Step 5
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
filename = newfilename
has_field_separator = 'X'
TABLES
data_tab = orgtab.
ENDFORM. "myupload
3.
regards,
amit m.

Function module to read error message provided message class and mssg no.

Hi experts,
I am trying to populate my database table with the error message.
The error message as comming form standard code in an ITAB.
I am getting the error class and message number.
Can any body please tell me any function module to read the error.
Or is there any way to populate the database table with the error message.
Regards,
Sandipan.

Hi,
 You can use the Function module mentioned below.
call transaction 'VA42' using bdcdata mode w_mode
 update w_synch
 messages into it_mesgtab.
 loop at it_mesgtab into wa_mesgtab where msgtyp ca 'EA'.
 endloop.
 if sy-subrc <> 0.
 read table it_mesgtab into wa_mesgtab index 1.
 endif.
 call function 'MESSAGE_TEXT_BUILD'
 exporting
 msgid = wa_mesgtab-msgid "Messg class
 msgnr = wa_mesgtab-msgnr "Messg No.
 msgv1 = wa_mesgtab-msgv1
 msgv2 = wa_mesgtab-msgv2
 msgv3 = wa_mesgtab-msgv3
 msgv4 = wa_mesgtab-msgv4
 importing
 message_text_output = it_err-sapmessage.
 Append it_err.
Regards,
 Srinivas

Function module to read Lock objects

Hi all,
I'm doing a generic search program for all the objects..
Is there any function module to read Lock objects....
that is to know wat r all the tables and Lock parameters are there in a lock object

Hi Gayathri
Please read the table DD25L with AGGTYPE = 'E' to get all the lock object names in the field VIEWNAME. Use these lock object to read the table DD27S to get the fields present in these lock objects.
Hope this helps !
Regards
Ranganath
PS : Reward points for all useful answers !

Function Module to Read Hierarchy Node

Hi,
Is there is any function module to read from existing Node of Hierarchy (includes sub Nodes, including all its children) similar to RRH1_HIERARCHY_HELP_VALUES_GET.
Requirement is to create custom Hierarchy from existing Hierarchy (eg: 0WBSELMNT - has XXX Hierarchy, In there is (2nd level) HIER_NODE say yyy. Now read yyy node and create custom Hierarchy to 0WBSELMNT ).
If we know the Functional modules if any then we can manipulate in ABAP code and write to flat file and upload same file with different Hierarchy Name.
Thanks in Advance,
Madhu

Hi,
Pls try this:
RSNDI_SHIE_STRUCTURE_GET3
RSSH_HIERARCHY_READ
RSAR_HIERARCHY_GET
Looking up BW-Hierarchy with ABAP
Regards
CSM Reddy

Function Module to read stack values.

Hello,
Is there is any function module to read the stack values.
My requirement is
I have 3 FM modules say FM_A, FM_B & FM_C.
FM_A will call FM_C.
FM_B will call FM_C.
In FM_C, I need to identify whether the call has been made from FM_A or FM_B without changing these two function modules and by changing only FM_C.
Please help me out.
Thx.

...without changing these two function modules ...
If FM_A & FM_B in ont functional group - no way.
If functional groups of these FM is defferent you can try get any variable from top include.
Need add procedure in FM_C
ASSIGN ('(SAPLxxxx)yyyy') TO <FS>, where
xxxx - function group name
yyyy - variable from top include
IF field-symbol is assigned - FM from this group started our FM.
That's will worked only if new LUW started and modules called by once. Very ugly method and not 100% garanty, but I don't know any else.

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'.

Function module to read all the views of material data

Dear all ,
 Is there any function module to read all the views of material data ?
 Like we have MATERIAL_MAINTAIN_DARK for updating all the views of material data , I need a function module to read all the views of material master.
Thanks & Regards
Shivanand

Hello,
Check these BAPI'S
BAPI_MATERIAL_DISPLAY Display Material
BAPI_MATERIAL_GET_DETAIL Determine Details for a Material
Regards,
Vasanth

Any function module to change the mode in Planning board

Hi guys,
Is there any function module to change the mode in Planning board?
I would like to call a custom screen to to chagne the mode since the strandard function cannot show enough info.
Thanks.

Thanks Bhanu for ur quick reply.
Is that enough to change the technical name in the table RSZCOMPDIR.
Let me give some more information, idea is to change the technical name of all the queries present in a system based on a new naming conventions.
Eg.
Change all the technical name of queries ZQSAP to ZQXYZ.
If there is function module which allows to change the technical name of the queries that not only updates the table RSZCOMPDIR but also all the interlinked tables.

Any Function Module to Read Inspection Plan ?

Similar Messages

Maybe you are looking for