PRT Tools

[Former Member]

Please tell me the table or the function module where i can get the link between workcenter and PRT( Production Resources Tools )? Thanks in advance.

[Former Member]

Hi,

1. Fetch PRT assigned to work order from AFFH table

2. Fetch work center assigned to work order from AFVC, AFKO table.

Hope this helps.

Regards

[Former Member]

Thanks. But i want the data based on routing not with the work order. Plz tell me the link.

[Former Member]

Hi,

In my opinion PRT and work center are different objects which can be assigned to operation. Hence you will have to corelate to operation, it may be Production order operation in your case. Still the reply holds good.

Regards

[Former Member]

hi,

check this code .

***********************************************************

• this program extracts prt data for material master mm01 *

***********************************************************

TABLES : MARC, CRVM_B,CRFH.

DATA : BEGIN OF GI_MARC OCCURS 0,

MATNR LIKE MARA-MATNR,

WERKS LIKE MARC-WERKS,

mmsta like marc-mmsta,

mmstd like marc-mmstd,

ausme like marc-ausme,

END OF GI_MARC.

DATA : BEGIN OF GI_MAKT OCCURS 0,

MATNR LIKE MARA-MATNR,

MAKTX LIKE MAKT-MAKTX,

END OF GI_MAKT.

DATA : BEGIN OF GI_CRFH OCCURS 0.

INCLUDE STRUCTURE CRFH.

DATA : END OF GI_CRFH.

DATA : BEGIN OF GI_CRVM_B OCCURS 0.

INCLUDE STRUCTURE CRVM_B.

DATA : END OF GI_CRVM_B.

DATA : BEGIN OF GI_FINAL OCCURS 0,

MATNR LIKE MARA-MATNR,

WERKS LIKE MARC-WERKS,

MAKTX LIKE MAKT-MAKTX,

mmsta like marc-mmsta,

mmstd like marc-mmstd,

ausme like marc-ausme.

INCLUDE STRUCTURE CRFH.

DATA : END OF GI_FINAL.

DATA : BEGIN OF FIELDNAMES OCCURS 0,

FIELD(120),

END OF FIELDNAMES.

SELECTION-SCREEN : BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-102.

SELECTION-SCREEN : SKIP.

PARAMETER : PFNAME LIKE RLGRAP-FILENAME OBLIGATORY .

SELECTION-SCREEN : SKIP.

SELECTION-SCREEN : END OF BLOCK B1.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR PFNAME.

PERFORM SEARCH.

START-OF-SELECTION.

PERFORM FETCH_DATA.

PERFORM PROCESS.

PERFORM DOWNLOAD.

----

---

• FORM FETCH_DATA *

----

---

• ........ *

----

---

FORM FETCH_DATA.

SELECT MATNR WERKS mmsta mmstd ausme

FROM MARC INTO TABLE

GI_MARC WHERE PSTAT LIKE '%F%'.

SORT GI_MARC BY MATNR WERKS.

IF NOT GI_MARC[] IS INITIAL.

SELECT MATNR MAKTX

FROM MAKT INTO TABLE

GI_MAKT FOR ALL ENTRIES IN GI_MARC

WHERE MATNR = GI_MARC-MATNR

AND SPRAS = 'EN'.

SELECT * FROM CRVM_B INTO

CORRESPONDING FIELDS OF

TABLE GI_CRVM_B FOR ALL ENTRIES IN GI_MARC

WHERE MATNR = GI_MARC-MATNR

AND WERKS = GI_MARC-WERKS.

IF NOT GI_CRVM_B[] IS INITIAL.

SELECT * FROM CRFH INTO

CORRESPONDING FIELDS OF

TABLE GI_CRFH FOR ALL ENTRIES IN GI_CRVM_B

WHERE OBJTY = GI_CRVM_B-OBJTY

AND OBJID = GI_CRVM_B-OBJID

AND ZAEHL = '0000000'.

ENDIF.

ENDIF.

ENDFORM.

----

---

• FORM PROCESS *

----

---

• ........ *

----

---

FORM PROCESS.

IF NOT GI_CRFH[] IS INITIAL.

SORT GI_MAKT BY MATNR .

SORT GI_CRVM_B BY MATNR WERKS OBJTY OBJID.

SORT GI_CRFH BY OBJTY OBJID ZAEHL.

LOOP AT GI_MARC.

MOVE GI_MARC-MATNR TO GI_FINAL-MATNR.

MOVE GI_MARC-WERKS TO GI_FINAL-WERKS.

MOVE GI_MARC-mmsta TO GI_FINAL-mmsta.

MOVE GI_MARC-mmstd TO GI_FINAL-mmstd.

MOVE GI_MARC-ausme TO GI_FINAL-ausme.

READ TABLE GI_MAKT WITH KEY MATNR = GI_MARC-MATNR.

IF SY-SUBRC = 0.

MOVE GI_MAKT-MAKTX TO GI_FINAL-MAKTX.

ENDIF.

READ TABLE GI_CRVM_B WITH KEY MATNR = GI_MARC-MATNR

WERKS = GI_MARC-WERKS.

IF SY-SUBRC = 0.

READ TABLE GI_CRFH WITH KEY OBJTY = GI_CRVM_B-OBJTY

OBJID = GI_CRVM_B-OBJID

ZAEHL = '0000000'.

IF SY-SUBRC = 0.

MOVE-CORRESPONDING GI_CRFH TO GI_FINAL.

ENDIF.

ENDIF.

APPEND GI_FINAL.

CLEAR GI_FINAL.

ENDLOOP.

ENDIF.

ENDFORM.

----

---

• FORM DOWNLOAD *

----

---

• ........ *

----

---

FORM DOWNLOAD.

perFORM SALES_PLANT_FIELDNAMES.

CALL FUNCTION 'WS_DOWNLOAD'

EXPORTING

• BIN_FILESIZE = ' '

• CODEPAGE = ' '

FILENAME = PFNAME

FILETYPE = 'DAT'

• MODE = ' '

• WK1_N_FORMAT = ' '

• WK1_N_SIZE = ' '

• WK1_T_FORMAT = ' '

• WK1_T_SIZE = ' '

• COL_SELECT = ' '

• COL_SELECTMASK = ' '

• NO_AUTH_CHECK = ' '

• IMPORTING

• FILELENGTH =

TABLES

DATA_TAB = GI_FINAL

FIELDNAMES = fieldnames

• EXCEPTIONS

• FILE_OPEN_ERROR = 1

• FILE_WRITE_ERROR = 2

• INVALID_FILESIZE = 3

• INVALID_TYPE = 4

• NO_BATCH = 5

• UNKNOWN_ERROR = 6

• INVALID_TABLE_WIDTH = 7

• GUI_REFUSE_FILETRANSFER = 8

• CUSTOMER_ERROR = 9

• OTHERS = 10

.

IF SY-SUBRC = 0.

WRITE : /10 'DOWN LOADED SUCCESSFULLY'.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDFORM.

FORM SEARCH.

CALL FUNCTION 'KD_GET_FILENAME_ON_F4'

EXPORTING

STATIC = 'X'

CHANGING

FILE_NAME = PFNAME.

ENDFORM. "search

FORM SALES_PLANT_FIELDNAMES.

FIELDNAMES-FIELD = 'Material Number'.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Material Description'.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'PLANT.'.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Plant-Specific Material Status.'.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Date from which plant-spec mat status is valid'.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'unit of issue'.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'CLIENT '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = ' OBJECT ID'.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Object ID of the resource '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Internal counter '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Production resources/tools category '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Object types of the CIM resource '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Object ID of the resource '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Deletion indicator master '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Valid-from date '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Valid-to date '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Change number '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'User who created record '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Date record created on '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Name of person who changed object '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Last changed on '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Authorization group '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Production resources/tools master: Status '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Indi Create load records for prd resources/tools '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Plant location of the production resource/tool '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Location of a production resource or tool '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Base unit of measure for prod resources/tools '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Control key for managt of prod resources/tools '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Control key cannot be changed '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Grouping key 1 for production resources/tools '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = ' Grouping key 2 for production resources/tools '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Production resource/tool usage '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Standard text key for production resources/tools '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Reference key cannot be changed. '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = ' Reference date to start prod resource/tool usage '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = ' Start reference date cannot be changed '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = ' Offset to start of production resource/tool usage'.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Offset unit for start of prod resource/tool usage '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = ' Offset to start cannot be changed '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = ' Ref date for end of prod resource/tool usage '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = ' End reference date cannot be changed '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Offset to finish of prod resource/tool usage '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = ' Offset unit for end of prod resource/tool usage '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = ' Offset to end cannot be changed '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = ' Formula for calculating total quantity of PRT '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = ' Formul calcul the total quantity cannot changed '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = ' Formula for calcul the total usage value of PRT '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Formula to calcul usage value cannot be changed '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = ' First parameter (for formulas) '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Second parameter (for formulas) '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Third parameter (for formulas) '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = ' Fourth parameter (for formulas) '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = ' Fifth parameter (for formulas) '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Sixth parameter (for formulas) '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

endform.

regards

siva