I need help in tabstrip control....helpful answers will be rewarded....
Hi All,
I am finding difficulty with the tabstrip control.i have created 3 tabs one for mara,marc and mard tables.i have to display few fields of these tables in their respective subscreens.using the material number i have to get the values from the table and display it in the respective subscreens.i am getting the output.but if i try to give another value for the material number it is not accepting...it holds the same value i gave before.i tried to use refresh,clear to clear the internal tabes i am using to fetch data.but i am not getting it....also
i want to use f3 function key to go back even if i havent given the value for mandatory fields. can u help me?helpful answers will be rewarded....
regards,
sheeba.
Hi,
http://help.sap.com/saphelp_nw70/helpdata/en/04/10f2469e0811d1b4700000e8a52bed/content.htm
http://help.sap.com/saphelp_sm32/helpdata/en/d1/801bd2454211d189710000e8322d00/content.htm
Check think link:
http://www.****************/Tutorials/ABAP/Tabstrips/page1.htm
http://www.sapdevelopment.co.uk/dialog/tabcontrol/tc_basic.htm
Regards,
Priyanka.
Similar Messages
-
Copy Material Master Record -- All Answers will be rewarded
Hello All,
I need to copy the set of materials from one plant to another plant.
Say I need to copy Materials from plant 1123 to 1128.
Say some 10000 materials approximately.
one way is to create using MM01 with the reference Material. However this is not possible as different material numbers can have different Views.
Is there a smart way to do this.
Please let me know Marting...I will Reward all Answers
Regards
Martingtry this sample program in which it will copy one material to another material it will work
REPORT ZM_MAT_EXT_TO_PLANT
NO STANDARD PAGE HEADING
LINE-SIZE 255
MESSAGE-ID ZI.
Program : ZM_MAT_EXT_TO_PLANT *
Author : warun kumar todimala P *
Type : Extend Material from one plant to another using BDC *
Description : The program will use BDC CALL TRANSACTION to extend *
material from one plant to another plant. If error *
occurs, an error session will be created with name *
given on selection screen. So that it can be manually *
processed using SM35 *
TCODE used : MM01 - Create Material *
SAP Request : D51K912730 *
Date : 13SEP2006 *
C H A N G E L O G *
Date | Req No | Initial | Description
14SEP06 D51K912772 Plant validation from T001W *
Warehouse view validation *
18SEP06 D51K912817 Change for xl file *
Tables Declaration
TABLES: MARA, "General Material Data
MARC, "Plant Data for Material
MVKE, "Sales Data for Material
MBEW, "Material Valuation
MARD, "Storage Location Data for Material
MAKT, "Material Descriptions
T100, "Messages
T130M, "Transaction control parameters: mat. master maintenance
MLGN. "Material Data for Each Warehouse Number
Internal table declaration
*--Internal table for Sales data for material
DATA: BEGIN OF INT_MVKE OCCURS 0,
MATNR LIKE MVKE-MATNR,
VKORG LIKE MVKE-VKORG,
VTWEG LIKE MVKE-VTWEG,
VMSTA LIKE MVKE-VMSTA,
VMSTD LIKE MVKE-VMSTD,
DWERK LIKE MVKE-DWERK,
KONDM LIKE MVKE-KONDM,
PRODH LIKE MVKE-PRODH,
MTPOS LIKE MVKE-MTPOS,
END OF INT_MVKE.
*--Internal table for material if input file is given
TYPES: BEGIN OF T_MAT,
MATNR LIKE MATERIALID-MATNR_EXT,
SLGORT LIKE MARD-LGORT,
TLGORT LIKE MARD-LGORT,
END OF T_MAT.
TYPES: BEGIN OF T_VALID_MAT,
MATNR LIKE MATERIALID-MATNR_EXT,
END OF T_VALID_MAT.
DATA: BEGIN OF IT_RMAT OCCURS 0,
MATNR LIKE MARA-MATNR,
TLGORT LIKE MARD-LGORT,
SLGORT LIKE MARD-LGORT,
END OF IT_RMAT.
*--Warehouse data
DATA: BEGIN OF INT_WAREH OCCURS 0,
MATNR LIKE MLGN-MATNR,
LGNUM LIKE MLGN-LGNUM,
LTKZA LIKE MLGN-LTKZA,
LTKZE LIKE MLGN-LTKZE,
LGBKZ LIKE MLGN-LGBKZ,
END OF INT_WAREH.
*--Marked for deletion
TYPES: BEGIN OF T_MAR_DEL,
MATNR LIKE MARA-MATNR,
LVORM LIKE MARA-LVORM,
END OF T_MAR_DEL.
*--Range for material FOR input file in
in internal format
RANGES: R_MATNR FOR MARA-MATNR.
*--Internal table for Material Valuation
DATA: BEGIN OF INT_MBEW OCCURS 0,
MATNR LIKE MBEW-MATNR,
VPRSV LIKE MBEW-VPRSV,
STPRS LIKE MBEW-STPRS,
BKLAS LIKE MBEW-BKLAS,
ZPLD1 LIKE MBEW-ZPLD1,
ZPLD2 LIKE MBEW-ZPLD2,
END OF INT_MBEW.
*--Types for inal internal table contains all the data used to extend
*--the material(s)
TYPES: BEGIN OF T_FINAL,
MATNR LIKE MARA-MATNR,
MTART LIKE MARA-MTART,
VPSTA LIKE MARA-VPSTA,
MBRSH LIKE MARA-MBRSH,
MEINS LIKE MARA-MEINS,
MATKL LIKE MARA-MATKL,
GEWEI LIKE MARA-GEWEI,
RAUBE LIKE MARA-RAUBE,
SPART LIKE MARA-SPART,
PRDHA LIKE MARA-PRDHA,
MAGRV LIKE MARA-MAGRV,
WERKS LIKE MARC-WERKS,
PSTAT LIKE MARC-PSTAT,
PLIFZ LIKE MARC-PLIFZ,
SSQSS LIKE MARC-SSQSS,
LADGR LIKE MARC-LADGR,
SERNP LIKE MARC-SERNP,
PERIV LIKE MARC-PERIV,
STAWN LIKE MARC-STAWN,
HERKL LIKE MARC-HERKL,
EKGRP LIKE MARC-EKGRP,
DISMM LIKE MARC-DISMM,
DISPO LIKE MARC-DISPO,
DISLS LIKE MARC-DISLS,
LGPRO LIKE MARC-LGPRO,
FHORI LIKE MARC-FHORI,
DZEIT LIKE MARC-DZEIT,
BWSCL LIKE MARC-BWSCL,
AWSLS LIKE MARC-AWSLS,
LGFSB LIKE MARC-LGFSB,
MAKTX LIKE MAKT-MAKTX,
TLGORT LIKE MARD-LGORT,
SLGORT LIKE MARD-LGORT,
VKORG LIKE MVKE-VKORG,
VTWEG LIKE MVKE-VTWEG,
VMSTA LIKE MVKE-VMSTA,
VMSTD LIKE MVKE-VMSTD,
DWERK LIKE MVKE-DWERK,
KONDM LIKE MVKE-KONDM,
PRODH LIKE MVKE-PRODH,
MTPOS LIKE MVKE-MTPOS,
VPRSV LIKE MBEW-VPRSV,
STPRS LIKE MBEW-STPRS,
BKLAS LIKE MBEW-BKLAS,
ZPLD1 LIKE MBEW-ZPLD1,
ZPLD2 LIKE MBEW-ZPLD2,
LGNUM LIKE MLGN-LGNUM,
LTKZA LIKE MLGN-LTKZA,
LTKZE LIKE MLGN-LTKZE,
LGBKZ LIKE MLGN-LGBKZ,
END OF T_FINAL.
TYPES: BEGIN OF T_LOG,
MATNR LIKE MATERIALID-MATNR_EXT,
MTART LIKE MARA-MTART,
WERKS LIKE MARC-WERKS,
MSG(480),
MSGTYP TYPE C,
END OF T_LOG.
TYPES: BEGIN OF T_INVALID,
MATNR LIKE MATERIALID-MATNR_EXT,
WERKS LIKE MARC-WERKS,
MSG(100),
END OF T_INVALID.
*--Internal to for mateial descriptions
*DATA: BEGIN OF INT_MAT_DES OCCURS 0,
MATNR LIKE MAKT-MATNR,
MAKTX LIKE MAKT-MAKTX,
END OF INT_MAT_DES.
DATA: BEGIN OF IT_FINAL1 OCCURS 0,
MATNR LIKE MATERIALID-MATNR_EXT,
MTART LIKE MARA-MTART,
MBRSH LIKE MARA-MBRSH,
WERKS LIKE MARC-WERKS,
PSTAT LIKE MARC-PSTAT,
LGPRO LIKE MARC-LGPRO,
LGFSB LIKE MARC-LGFSB,
TLGORT LIKE MARD-LGORT,
SLGORT LIKE MARD-LGORT,
END OF IT_FINAL1.
*--Internal table for Storage Location Data
DATA : BEGIN OF INT_MARD OCCURS 0,
MATNR LIKE MARD-MATNR,
WERKS LIKE MARD-WERKS,
LGORT LIKE MARD-LGORT,
END OF INT_MARD.
*--For Views
TYPES: BEGIN OF T_XBILDTAB.
INCLUDE STRUCTURE MBILDTAB.
TYPES: END OF T_XBILDTAB.
*--Internal table for VIEWS
DATA: IT_XBILDTAB TYPE STANDARD TABLE OF T_XBILDTAB WITH HEADER LINE.
*--Final internal table contains all the data used to extend the
material(s)
DATA: IT_FINAL TYPE STANDARD TABLE OF T_FINAL WITH HEADER LINE,
IT_TPLANT TYPE STANDARD TABLE OF T_FINAL WITH HEADER LINE,
int_fplant TYPE STANDARD TABLE OF t_final WITH HEADER LINE,
IT_TOTAL TYPE STANDARD TABLE OF T_FINAL WITH HEADER LINE,
WA_FINAL TYPE T_FINAL,
WA_TPLANT TYPE T_FINAL,
INT_TEST TYPE STANDARD TABLE OF T_FINAL WITH HEADER LINE,
WA_T130M LIKE T130M,
*--table for bdcdata to store the bdc data
IT_BDCDATA TYPE STANDARD TABLE OF BDCDATA WITH HEADER LINE,
*--table for messages come from the 'CALL TRANSACTION'
IT_MESSTAB LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE,
IT_SREP TYPE STANDARD TABLE OF T_LOG WITH HEADER LINE,
IT_EREP TYPE STANDARD TABLE OF T_LOG WITH HEADER LINE,
IT_AVL TYPE STANDARD TABLE OF T_LOG WITH HEADER LINE,
IT_ERR TYPE STANDARD TABLE OF T_LOG WITH HEADER LINE,
IT_DUPREC TYPE STANDARD TABLE OF T_MAT WITH HEADER LINE,
IT_MAT TYPE STANDARD TABLE OF T_MAT WITH HEADER LINE,
IT_MAT1 TYPE STANDARD TABLE OF T_MAT WITH HEADER LINE,
IT_DELREC TYPE STANDARD TABLE OF T_MAT WITH HEADER LINE,
IT_MAR_DEL TYPE STANDARD TABLE OF T_MAR_DEL WITH HEADER LINE,
IT_DELREC35 TYPE STANDARD TABLE OF T_MAT WITH HEADER LINE,
IT_VALID_REC TYPE STANDARD TABLE OF T_VALID_MAT WITH HEADER LINE,
IT_IN_VALID TYPE STANDARD TABLE OF T_VALID_MAT WITH HEADER LINE,
IT_INVALID TYPE STANDARD TABLE OF T_INVALID WITH HEADER LINE,
IT_INVALID1 TYPE STANDARD TABLE OF T_INVALID WITH HEADER LINE,
*--Standard views
IT_T133A TYPE STANDARD TABLE OF T133A WITH HEADER LINE,
IT_T134 TYPE STANDARD TABLE OF T_XBILDTAB WITH HEADER LINE.
Global variables declaration
DATA:
GV_TRANS_CODE TYPE SY-TCODE VALUE 'MM01',"Tcode
GV_MTART LIKE MARA-MTART, "Material type
GV_MATNR LIKE MATERIALID-MATNR_EXT, "40 char material
HOLDDATE LIKE SY-DATUM, "Holdate for session
GV_SES_OPEN, "Session open check
GV_LAST LIKE MBILDTAB-GUIFU, "View code
GV_VIEW_CODE LIKE MBILDTAB-GUIFU, "Function code
GV_PURCH_VIEW TYPE I, "Purch view
GV_FIRST_VIEW(2) TYPE N, "First view
GV_OKCODE TYPE SY-UCOMM, "Ok code
GV_MSG1(150), "Message
GV_CNTR TYPE I VALUE '1', "Counter
GV_VIEW_CNT LIKE SY-TABIX, "View count
GV_NXT_VIEW LIKE MBILDTAB-GUIFU, "Function code
GV_ERCNT TYPE I, "Error records count
GV_SCNT TYPE I, "Success records count
GV_VALIDREC TYPE I, "Valid record count
GV_DUPREC TYPE I, "Duplicate record count
GV_AVL TYPE I, "Available records count
GV_MSG(120), "Message
GV_INREC TYPE I, "Input records count
GV_MAR_DEL TYPE I, "Marked for deletion
GV_FILE_STR TYPE STRING, "Hold file name except 'txt'
GV_LAST_4_CHARS TYPE STRING, "To hold '.txt' from inpfile
GV_TCNT TYPE I, "Total record count
GV_INVALID_REC TYPE I, "Invalide record count
GV_FILE_CRT_Y_OR_NO TYPE C. "file created or not
CONSTANTS
CONSTANTS:
TCODE_MM01 LIKE TSTC-TCODE VALUE 'MM01',
C_UPDATE TYPE C VALUE 'A'.
S E L E C T - O P T I O N S
SELECTION-SCREEN : BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN: COMMENT 1(25) TEXT-009.
SELECTION-SCREEN: POSITION 33.
PARAMETER P_WH AS CHECKBOX DEFAULT 'X'.
SELECTION-SCREEN: END OF LINE.
SELECT-OPTIONS : S_MATNR FOR MARA-MATNR.
PARAMETERS : P_FWERKS LIKE MARC-WERKS OBLIGATORY,
P_TWERKS LIKE MARC-WERKS OBLIGATORY.
SELECTION-SCREEN : END OF BLOCK B1.
SELECTION-SCREEN : BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-002.
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN: COMMENT 1(25) TEXT-004.
SELECTION-SCREEN: POSITION 32.
*--Input file
PARAMETERS: P_IFILE LIKE RLGRAP-FILENAME. "input file
SELECTION-SCREEN: END OF LINE.
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN: COMMENT 1(25) TEXT-005.
SELECTION-SCREEN: POSITION 32.
*--Unix output file
PARAMETERS: P_OFILE LIKE RLGRAP-FILENAME LOWER CASE DEFAULT
'./sap_out/matextplnt'. "Output file in UNIX
SELECTION-SCREEN: END OF LINE.
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN: COMMENT 1(25) TEXT-012.
SELECTION-SCREEN: POSITION 32.
*--PC file ( used to create the files from internal tables)
PARAMETERS: P_PCFILE LIKE RLGRAP-FILENAME LOWER CASE OBLIGATORY
DEFAULT 'C:\'.
SELECTION-SCREEN: END OF LINE.
SELECTION-SCREEN : END OF BLOCK B2.
SELECTION-SCREEN : BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-003.
*--Session Name
PARAMETERS : P_GROUP LIKE APQI-GROUPID DEFAULT 'MAT_Extension'.
*--Mode (like All Screen - A)
PARAMETERS P_MODE LIKE CTU_PARAMS-DISMODE DEFAULT 'N'.
SELECTION-SCREEN: END OF BLOCK B3.
*- A T S E L E C T I O N S C R E E N
AT SELECTION-SCREEN.
IF ( P_IFILE = ' ' ) AND ( S_MATNR[] IS INITIAL ).
MESSAGE E000(ZI) WITH 'Please Enter the Material or Input file'.
ENDIF.
*--download the data from pc file
IF P_IFILE NE ' '.
PERFORM VALIDATE_IN_FILE.
PERFORM GET_DATA_FRM_FILE.
ENDIF.
Validate selection screen entries
PERFORM VALIDATE_SEL_SCREEN_ENTRIES.
*- A T S E L E C T I O N S C R E E N --- Value Request
*--F4 help for input flie
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_IFILE.
PERFORM VALUE_REQUEST_FOR_PC_FILE USING P_IFILE.
*--F4 help for pc file
*AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_PCFILE.
PERFORM VALUE_REQUEST_FOR_PC_FILE USING P_PCFILE.
*--F4 help for Unix file
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_OFILE.
PERFORM VALUE_REQ_FOR_UNIX_FILE USING P_OFILE.
T O P O F P A G E
TOP-OF-PAGE.
PERFORM TOP_OF_PAGE.
S E L E C T - O P T I O N S
START-OF-SELECTION.
*--Fecth the data from the Data Base tables
PERFORM GET_DATA.
*--Process the above data to create the final internal table
PERFORM PROCESS_DATA.
*--Extend the data to plant
PERFORM EXTEND_DATA_2_PLANT.
end of selection
END-OF-SELECTION.
PERFORM MAT_CONV_FOR_ALL_INT_TABLES.
*--Success
DESCRIBE TABLE IT_SREP LINES GV_SCNT.
*--Error
DESCRIBE TABLE IT_EREP LINES GV_ERCNT.
*--Already existing
DESCRIBE TABLE IT_AVL LINES GV_AVL.
*--Input
DESCRIBE TABLE IT_MAT LINES GV_INREC.
*--Valid
DESCRIBE TABLE IT_FINAL1 LINES GV_VALIDREC.
*--Duplicate
DESCRIBE TABLE IT_DUPREC LINES GV_DUPREC.
*--Marked for deletion
DESCRIBE TABLE IT_DELREC LINES GV_MAR_DEL.
*--Invalid
DESCRIBE TABLE IT_INVALID LINES GV_INVALID_REC.
GV_TCNT =
GV_ERCNT + GV_SCNT + GV_AVL + GV_INVALID_REC + GV_DUPREC +
GV_MAR_DEL + GV_VALIDREC + GV_INREC.
IF GV_TCNT NE 0.
*--create output PC files for each internal table
PERFORM PC_FILES_CREATION.
*--Create Unix file all internal tables
PERFORM OUT_UNIX_FILE. "create unix file for output.
*--Create the report
PERFORM REPORT_DIS.
*--Clear the contents
CLEAR: IT_SREP,
IT_EREP,
IT_AVL,
IT_MAT,
IT_FINAL1,
IT_DUPREC,
IT_DELREC,
IT_INVALID.
REFRESH:
IT_SREP,
IT_EREP,
IT_AVL,
IT_MAT,
IT_FINAL1,
IT_DUPREC,
IT_DELREC,
IT_INVALID.
ELSE.
FORMAT COLOR 6 INTENSIFIED ON.
WRITE:/ 'No Data found for the Selection Criteria'(007).
FORMAT RESET.
ENDIF.
*& Form get_data
*--Fetch the data from required data base tables
FORM GET_DATA .
DATA: LV_TABIX LIKE SY-TABIX.
**--Material type is in BAPI structures filling.
IF P_IFILE NE ' '.
PERFORM CONVERT_MAT_FRM_FILE.
ENDIF.
*--Ranges for the plants
RANGES:R_WERKS FOR MARC-WERKS.
R_WERKS-SIGN = 'I'.
R_WERKS-OPTION = 'EQ'.
R_WERKS-LOW = P_FWERKS.
APPEND R_WERKS.
R_WERKS-SIGN = 'I'.
R_WERKS-OPTION = 'EQ'.
R_WERKS-LOW = P_TWERKS.
APPEND R_WERKS.
CLEAR R_WERKS.
*--Fetch the data for the given selection from the DB table MARA & MARC
(General Material Data)
IF P_IFILE NE ' '.
SELECT R~MATNR "R = MARA
R~VPSTA
R~MTART
R~MATKL
R~MBRSH
R~MEINS
R~GEWEI
R~RAUBE
R~SPART
R~PRDHA
R~MAGRV
C~MATNR "C = MARC
C~WERKS
C~PSTAT
C~PLIFZ
C~SSQSS
C~LADGR
C~SERNP
C~PERIV
C~STAWN
C~HERKL
C~EKGRP
C~DISMM
C~DISPO
C~DISLS
C~LGPRO
C~FHORI
C~DZEIT
C~BWSCL
C~AWSLS
C~LGFSB
INTO CORRESPONDING FIELDS OF TABLE IT_TOTAL
FROM ( MARA AS R
INNER JOIN MARC AS C ON CMATNR = RMATNR )
WHERE R~MATNR IN R_MATNR AND
R~MTART IN S_MTART AND
C~WERKS IN R_WERKS .
LOOP AT IT_TOTAL.
LV_TABIX = SY-TABIX.
READ TABLE IT_RMAT WITH KEY MATNR = IT_TOTAL-MATNR.
IF SY-SUBRC = 0.
IT_TOTAL-TLGORT = IT_RMAT-TLGORT.
IT_TOTAL-SLGORT = IT_RMAT-SLGORT.
MODIFY IT_TOTAL INDEX LV_TABIX.
ENDIF.
ENDLOOP.
ELSE.
SELECT R~MATNR "R = MARA
R~VPSTA
R~MTART
R~MATKL
R~MBRSH
R~MEINS
R~GEWEI
R~RAUBE
R~SPART
R~PRDHA
R~MAGRV
C~MATNR "C = MARC
C~WERKS
C~PSTAT
C~PLIFZ
C~SSQSS
C~LADGR
C~SERNP
C~PERIV
C~STAWN
C~HERKL
C~EKGRP
C~DISMM
C~DISPO
C~DISLS
C~LGPRO
C~FHORI
C~DZEIT
C~BWSCL
C~AWSLS
C~LGFSB
INTO CORRESPONDING FIELDS OF TABLE IT_TOTAL
FROM ( MARA AS R
INNER JOIN MARC AS C ON CMATNR = RMATNR )
WHERE R~MATNR IN S_MATNR AND
R~MTART IN S_MTART AND
C~WERKS IN R_WERKS .
ENDIF. " if P_IFILE ne ' '.
IF NOT IT_TOTAL[] IS INITIAL.
SORT IT_TOTAL BY WERKS.
IT_FINAL[] = IT_TOTAL[].
IT_TPLANT[] = IT_TOTAL[].
SORT IT_FINAL BY WERKS.
SORT IT_TPLANT BY WERKS.
*Logic 1
*--Delete all entries having the plant value equal to 'to plant' value
*--So, IT_FINAL have only from plant data. But in which some data
*--already in 'to plant'
DELETE IT_FINAL WHERE WERKS = P_TWERKS.
*Logic 2
*--Delete all entries having the plant value equal to 'from plant' value
DELETE IT_TPLANT WHERE WERKS = P_FWERKS.
IF NOT IT_FINAL[] IS INITIAL.
SORT IT_FINAL BY MATNR WERKS.
SORT IT_TPLANT BY MATNR WERKS.
*Logic 3
*--Delete all the material from the 'IT_FINAL', which is already
extended to 'to plnat'.
In Logic 1 and Logic 2, just deleted the materials having the plant
value equal same. Here 'IT_FINAL' contains materials of 'from plant'
only,because 'to plant' materials have been deleted in the 'Logic1'.
But it contains the materials already extended to 'to plant', So we
Need to delete those. And it is done in the below Logic. From now
'IT_FINAL table contains materials that are to be extended.
(Already extended materials have been deleted)
LOOP AT IT_TPLANT.
READ TABLE IT_FINAL
WITH KEY MATNR = IT_TPLANT-MATNR
WERKS = P_FWERKS
BINARY SEARCH.
LV_TABIX = SY-TABIX.
IF SY-SUBRC EQ 0.
*--continue the process. This materil to be extend for other views
IF IT_FINAL-PSTAT = IT_TPLANT-PSTAT.
IT_AVL-MATNR = IT_TPLANT-MATNR.
IT_AVL-WERKS = P_TWERKS.
IT_AVL-MTART = IT_TPLANT-MTART.
IT_AVL-MSG = 'Material already in plant'.
IT_AVL-MSGTYP = 'E'.
APPEND IT_AVL.
CLEAR IT_AVL.
DELETE IT_FINAL INDEX LV_TABIX.
CLEAR IT_FINAL.
*--If the material already exist in the target plant, check for the
*--warehouse view. If only warehoues view does not exist and checked
warehouse not required, then consider that the record is exist
in target plant
ELSEIF IT_FINAL-PSTAT CA 'S' AND IT_TPLANT-PSTAT NA 'S'.
If warehouse view does not require, then no need to copy again
IF P_WH = 'X'.
IT_AVL-MATNR = IT_TPLANT-MATNR.
IT_AVL-WERKS = P_TWERKS.
IT_AVL-MTART = IT_TPLANT-MTART.
IT_AVL-MSG = 'Material already in plant'.
IT_AVL-MSGTYP = 'E'.
APPEND IT_AVL.
CLEAR IT_AVL.
DELETE IT_FINAL INDEX LV_TABIX.
CLEAR IT_FINAL.
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
*--Logic 4 ( Get the data from MARD, MVKE, MBEW and MAKT)
IF NOT IT_FINAL[] IS INITIAL.
*--Get the data from DB tabel MVKE (Sales Data for Material)
for all the materials in 'IT_FINAL'.
SELECT
MATNR
VKORG
VTWEG
VMSTA
VMSTD
DWERK
KONDM
PRODH
MTPOS
FROM MVKE
INTO TABLE INT_MVKE
FOR ALL ENTRIES IN IT_FINAL
WHERE MATNR = IT_FINAL-MATNR.
*--Get the data from DB table MBEW (Material Valuation)
for all the materials in 'IT_FINAL'.
SELECT
MATNR
VPRSV
STPRS
BKLAS
ZPLD1
ZPLD2
FROM MBEW
INTO TABLE INT_MBEW
FOR ALL ENTRIES IN IT_FINAL
WHERE MATNR = IT_FINAL-MATNR AND
BWKEY = IT_FINAL-WERKS.
Start of change by Hema on 09/21/06
Since basic view is not required to copy, no need description also
*--Get the data from DB table MAKT (Material Descriptions)
for all the materials in 'IT_FINAL'.
SELECT MATNR
MAKTX
FROM MAKT
INTO CORRESPONDING FIELDS OF TABLE INT_MAT_DES
FOR ALL ENTRIES IN IT_FINAL
WHERE MATNR = IT_FINAL-MATNR AND
SPRAS = SY-LANGU.
End of change by Hema on 09/21/06
*--Get the warehouse data.
SELECT MATNR
LTKZA
LTKZE
LGBKZ
INTO CORRESPONDING FIELDS OF TABLE INT_WAREH
FROM MLGN
FOR ALL ENTRIES IN IT_FINAL
WHERE MATNR = IT_FINAL-MATNR.
SELECT SINGLE * FROM T130M
INTO WA_T130M
WHERE TCODE = GV_TRANS_CODE.
*--Sort the internal table by material
SORT INT_MARD BY MATNR WERKS.
SORT INT_MVKE BY MATNR.
SORT INT_MBEW BY MATNR.
SORT INT_MAT_DES BY MATNR.
SORT INT_WAREH BY MATNR.
ENDIF.
ENDFORM. " get_data
*& Form process_data
*--Fill the final internal with data from all the internal tables
FORM PROCESS_DATA .
DATA: LV_LINES TYPE I.
*--Logic 5: Fill the 'IT_FINAL' table from the 'int_mard', 'int_mvke'
'int_mat_des' and int_mbew' as follows.
LOOP AT IT_FINAL.
*--Copy Target storage locaction to Prod.Stor.Loc and stor.Loc.for EP
IT_FINAL-LGPRO = IT_FINAL-TLGORT.
IT_FINAL-LGFSB = IT_FINAL-TLGORT.
READ TABLE INT_MVKE WITH KEY MATNR = IT_FINAL-MATNR
BINARY SEARCH.
IF SY-SUBRC EQ 0.
IT_FINAL-VKORG = INT_MVKE-VKORG.
IT_FINAL-VTWEG = INT_MVKE-VTWEG.
IT_FINAL-VMSTA = INT_MVKE-VMSTA.
IT_FINAL-VMSTD = INT_MVKE-VMSTD.
IT_FINAL-DWERK = INT_MVKE-DWERK.
IT_FINAL-KONDM = INT_MVKE-KONDM.
IT_FINAL-PRODH = INT_MVKE-PRODH.
IT_FINAL-MTPOS = INT_MVKE-MTPOS.
ENDIF.
READ TABLE INT_MAT_DES WITH KEY MATNR = IT_FINAL-MATNR
BINARY SEARCH.
IF SY-SUBRC EQ 0.
IT_FINAL-MAKTX = INT_MAT_DES-MAKTX.
ENDIF.
READ TABLE INT_MBEW WITH KEY MATNR = IT_FINAL-MATNR
BINARY SEARCH.
IF SY-SUBRC EQ 0.
IT_FINAL-VPRSV = INT_MBEW-VPRSV.
IT_FINAL-STPRS = INT_MBEW-STPRS.
IT_FINAL-BKLAS = INT_MBEW-BKLAS.
IT_FINAL-ZPLD1 = INT_MBEW-ZPLD1.
IT_FINAL-ZPLD2 = INT_MBEW-ZPLD2.
ENDIF.
READ TABLE INT_WAREH WITH KEY MATNR = IT_FINAL-MATNR
BINARY SEARCH.
IF SY-SUBRC EQ 0.
IT_FINAL-LGNUM = INT_WAREH-LGNUM.
IT_FINAL-LTKZA = INT_WAREH-LTKZA.
IT_FINAL-LTKZE = INT_WAREH-LTKZE.
IT_FINAL-LGBKZ = INT_WAREH-LGBKZ.
ENDIF.
MODIFY IT_FINAL
TRANSPORTING
VKORG
VTWEG
VMSTA
VMSTD
LGPRO
LGFSB
DWERK
KONDM
PRODH
MTPOS
MAKTX
VPRSV
STPRS
BKLAS
ZPLD1
ZPLD2
LGNUM
LTKZA
LTKZE
LGBKZ.
ENDLOOP.
ENDFORM. " process_data
*& Form value_request_for_pc_file
*--F4 help for the file names.
FORM VALUE_REQUEST_FOR_PC_FILE USING P_FILE.
CALL FUNCTION 'F4_FILENAME'
EXPORTING
PROGRAM_NAME = SY-CPROG
DYNPRO_NUMBER = SY-DYNNR
FIELD_NAME = ' '
IMPORTING
FILE_NAME = P_FILE.
ENDFORM. " value_request_for_pc_file
*& Form extend_data_2_plant
*--Use the final internal table to extend the material from one plant 2
*--another using the following logic which involved in 'four performs'
FORM EXTEND_DATA_2_PLANT .
DATA: BEGIN OF INT_VIEWS OCCURS 0.
INCLUDE STRUCTURE MBILDTAB.
DATA END OF INT_VIEWS.
IF NOT IT_FINAL[] IS INITIAL.
LOOP AT IT_FINAL.
GV_MTART = IT_FINAL-MTART.
*--Get the 32 char Lenth Material number
PERFORM MATERIAL_CON USING IT_FINAL-MATNR.
CALL FUNCTION 'CONVERSION_EXIT_MATN2_OUTPUT'
EXPORTING
INPUT = IT_FINAL-MATNR
IMPORTING
OUTPUT = GV_MATNR.
*--Get the views for the current material
PERFORM GET_THE_VIEWS_4_MAT.
*--Fill bdctable for all view available in 'copy from material'
PERFORM CREATE_DATA_FOR_VIEWS.
*--Use the above structures and call the 'MM01' to extend the material
PERFORM EXTEND_MAT_2_PLANT.
CLEAR: GV_FIRST_VIEW, GV_NXT_VIEW, GV_MATNR.
ENDLOOP.
*--close the session if open
IF GV_SES_OPEN EQ 'X'.
PERFORM CLOSE_GRP.
SKIP 1.
WRITE:/5 'Session Created', 40 P_GROUP COLOR 4.
ENDIF.
ELSE.
SKIP 2.
WRITE:/5 TEXT-010 COLOR 4.
'No Data exists for the given selection'.
ENDIF.
IF NOT IT_EREP[] IS INITIAL.
LOOP AT IT_EREP.
CALL FUNCTION 'CONVERSION_EXIT_MATN2_OUTPUT'
EXPORTING
INPUT = IT_EREP-MATNR
IMPORTING
OUTPUT = IT_EREP-MATNR.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ELSE.
MODIFY IT_EREP.
ENDIF.
ENDLOOP.
ENDIF.
ENDFORM. " extend_data_2_plant
*& Form get_the_views_4_mat
*--Get the views for current material
FORM GET_THE_VIEWS_4_MAT .
DATA: LV_BILDSEQUENZ TYPE T133A-BILDS,
LV_PSTAT LIKE T134-PSTAT.
CLEAR: T130M,
LV_BILDSEQUENZ,
IT_XBILDTAB.
REFRESH IT_XBILDTAB.
*--Get the Build sequece for particular Material type
CALL FUNCTION 'BILDSEQUENZ_IDENTIFY'
EXPORTING
BRANCHE = IT_FINAL-MBRSH
MATERIALART = IT_FINAL-MTART
TCODE_REF = WA_T130M-TRREF
KZRFB = ' '
IMPORTING
BILDSEQUENZ = LV_BILDSEQUENZ
KZ_BILDS_CHANGED =
EXCEPTIONS
WRONG_CALL = 1
NOT_FOUND = 2
OTHERS = 3
*--Get the actual number views for the current material will stored
*--in the internal table 'IT_XBILDTAB'.
IF SY-SUBRC = 0.
CALL FUNCTION 'SELECTION_VIEWS_FIND'
EXPORTING
BILDSEQUENZ = LV_BILDSEQUENZ
PFLEGESTATUS = IT_FINAL-VPSTA
PFLEGESTATUS = IT_FINAL-PSTAT
TABLES
BILDTAB = IT_XBILDTAB
EXCEPTIONS
CALL_WRONG = 1
EMPTY_SELECTION = 2
OTHERS = 3.
ENDIF.
*--Build actual table for view sequence
SELECT SINGLE PSTAT FROM T134
INTO LV_PSTAT
WHERE MTART = GV_MTART.
CALL FUNCTION 'SELECTION_VIEWS_FIND'
EXPORTING
BILDSEQUENZ = '01'
PFLEGESTATUS = LV_PSTAT
TABLES
BILDTAB = IT_T134
EXCEPTIONS
CALL_WRONG = 1
EMPTY_SELECTION = 2
OTHERS = 3.
IF NOT IT_XBILDTAB[] IS INITIAL.
*--Delete the Basic(SP01),
*--Classification(SP02)
*--Sales: Sales Organization Data(SP03)
*--Sales: General/Plant Data(SP04)
*--Sales Text(SP05)
*--Production Resources and Tools(SP12) which are not required
LOOP AT IT_XBILDTAB.
CASE IT_XBILDTAB-GUIFU.
WHEN 'SP01'.
DELETE IT_XBILDTAB." WITH KEY GUIFU = 'SP01'.
WHEN 'SP02'.
DELETE IT_XBILDTAB." WITH KEY GUIFU = 'SP02'.
WHEN 'SP03'.
DELETE IT_XBILDTAB." WITH KEY GUIFU = 'SP03'.
WHEN 'SP04'.
DELETE IT_XBILDTAB." WITH KEY GUIFU = 'SP04'.
WHEN 'SP05'.
DELETE IT_XBILDTAB." WITH KEY GUIFU = 'SP05'.
WHEN 'SP12'.
DELETE IT_XBILDTAB." WITH KEY GUIFU = 'SP12'.
WHEN 'SP14'.
*--If 'do not copy warehouse' is ticked, delete the view from table.
*--problem is, if that view is last view then Save problem will
*--come in the BDC.
IF P_WH EQ 'X'.
DELETE IT_XBILDTAB.
ENDIF.
ENDCASE.
ENDLOOP.
ENDIF.
*--Get the first view of the material to select that view from Views
*-- List of the MM01
LOOP AT IT_XBILDTAB.
READ TABLE IT_T134 WITH KEY GUIFU = IT_XBILDTAB-GUIFU.
IF SY-SUBRC EQ 0.
GV_FIRST_VIEW = SY-TABIX.
GV_NXT_VIEW = IT_XBILDTAB-GUIFU.
EXIT.
ENDIF.
ENDLOOP.
ENDFORM. " get_the_views_4_mat
*& Form CREATE_DATA_FOR_VIEWS
text
--> p1 text
<-- p2 text
FORM CREATE_DATA_FOR_VIEWS .
DATA: LV_LAST_VIEW_NO TYPE I.
DESCRIBE TABLE IT_XBILDTAB LINES LV_LAST_VIEW_NO.
LOOP AT IT_XBILDTAB.
IF LV_LAST_VIEW_NO EQ SY-TABIX.
MOVE IT_XBILDTAB-GUIFU TO GV_LAST.
ENDIF.
ENDLOOP.
*--Hit the Basic view in the 'View selection Pop up', i.e very beginning
*--in Tcode: MM01. So that, only views which already in (Copy from)
*--Material can extend to the Target Plant. Int.,table IT_XBILDTAB
*--contains these views. Here flexibilty is that, not all views are
*--extended, whether the 'copy from material' contains or not.
*--i.e Dynamic selection of views.
*--So in order to ease the Dynamic selection (of views), first
*--Hit the Basic view in the 'View selection Pop up'.
PERFORM FILL_BASIC_VIEW.
PERFORM FILL_ORG_DATA USING GV_VIEW_CODE.
LOOP AT IT_XBILDTAB.
MOVE IT_XBILDTAB-GUIFU TO GV_VIEW_CODE.
CASE IT_XBILDTAB-GUIFU.
--Purchasing view
WHEN 'SP06'.
PERFORM FILL_PURCH_VIEW USING GV_VIEW_CODE.
--Purchase Order Text View
WHEN 'SP07'.
PERFORM FILL_PURCH_ORD_TEXT USING GV_VIEW_CODE.
--MRP1 View
WHEN 'SP08'.
PERFORM FILL_MRP1_VIEW USING GV_VIEW_CODE.
--MRP2 View
WHEN 'SP09'.
PERFORM FILL_MRP2_VIEW USING GV_VIEW_CODE.
--Forecast View
WHEN 'SP10'.
PERFORM FILL_FORECAST_VIEW USING GV_VIEW_CODE.
WHEN 'SP11'.
IF GV_FLG NE 'Y'.
PERFORM FILL_WORKSCHED_VIEW USING GV_VIEW_CODE.
ENDIF.
--General Plant Data / Storage View
WHEN 'SP13'.
PERFORM FILL_PLANT_STRGE_VIEW USING GV_VIEW_CODE.
--Warehouse Management View
WHEN 'SP14'.
IF P_WH <> 'X'.
-- If the 'do not warehouse' check box unchecked on sele screen
PERFORM FILL_WAREHOUSE_VIEW USING GV_VIEW_CODE.
ENDIF.
--Quality Management View
WHEN 'SP15'.
PERFORM FILL_QUALITY_VIEW USING GV_VIEW_CODE.
-- Accounting View
WHEN 'SP16'.
PERFORM FILL_ACCOUNTING_VIEW USING GV_VIEW_CODE.
--Costing View
WHEN 'SP17'.
PERFORM FILL_COSTING_VIEW USING GV_VIEW_CODE.
--Plant/Storage Location Stock View
WHEN 'SP18'.
PERFORM FILL_PLANT_ST_LOC_STK_VIEW USING GV_VIEW_CODE.
ENDCASE.
CLEAR GV_OKCODE.
ENDLOOP.
ENDFORM. " CREATE_DATA_FOR_VIEWS
*& Form fill_basic_view
text
--> p1 text
<-- p2 text
FORM FILL_BASIC_VIEW .
DATA FIELD_STR(40).
PERFORM BDC_DYNPRO USING 'SAPLMGMM' '0060'.
PERFORM BDC_FIELD USING 'BDC_CURSOR'
'RMMG1-MATNR'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'/00'.
PERFORM BDC_FIELD USING 'RMMG1-MATNR'
GV_MATNR."nt_final-matnr.
PERFORM BDC_FIELD USING 'RMMG1_REF-MATNR'
GV_MATNR."IT_FINAL-matnr.
PERFORM BDC_DYNPRO USING 'SAPLMGMM' '0070'.
PERFORM BDC_FIELD USING 'BDC_CURSOR'
'MSICHTAUSW-DYTXT(01)'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'=ENTR'.
CONCATENATE 'MSICHTAUSW-KZSEL(' GV_FIRST_VIEW ')' INTO FIELD_STR.
PERFORM BDC_FIELD USING FIELD_STR 'X'.
ENDFORM. " fill_basic_view
*& Form fill_purch_view
Purchasing view
FORM FILL_ORG_DATA USING GV_VIEW_CODE.
PERFORM BDC_DYNPRO USING 'SAPLMGMM' '0080'.
PERFORM BDC_FIELD USING 'BDC_CURSOR'
'RMMG1_REF-WERKS'.
PERFORM BDC_FIELD USING 'RMMG1-WERKS'
P_TWERKS.
PERFORM BDC_FIELD USING 'RMMG1_REF-WERKS'
P_FWERKS.
IF GV_NXT_VIEW EQ 'SP08'.
PERFORM BDC_FIELD USING 'RMMG1-LGORT'
IT_FINAL-TLGORT.
PERFORM BDC_FIELD USING 'RMMG1_REF-LGORT'
IT_FINAL-SLGORT.
ENDIF.
ENDFORM. " fill_org_data
*& Form fill_purch_ord_text
Purchase order text
FORM FILL_PURCH_ORD_TEXT USING GV_VIEW_CODE.
CONCATENATE '=' GV_VIEW_CODE INTO GV_OKCODE.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'=SP07'.
PERFORM BDC_DYNPRO USING 'SAPLMGMM' '3050'.
IF GV_VIEW_CODE EQ GV_LAST.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'=BU'.
ENDIF.
ENDFORM. " fill_purch_ord_text
*& Form fill_MRP1_view
MRP1
FORM FILL_MRP1_VIEW USING GV_VIEW_CODE.
CONCATENATE '=' GV_VIEW_CODE INTO GV_OKCODE.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'=SP08'.
IF GV_NXT_VIEW EQ 'SP06'.
PERFORM BDC_DYNPRO USING 'SAPLMGMM' '0081'.
PERFORM BDC_FIELD USING 'RMMG1-LGORT'
IT_FINAL-TLGORT.
PERFORM BDC_FIELD USING 'RMMG1_REF-LGORT'
IT_FINAL-SLGORT.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'=ENTR'.
CLEAR GV_NXT_VIEW.
ENDIF.
PERFORM BDC_DYNPRO USING 'SAPLMGMM' '3006'.
PERFORM BDC_FIELD USING 'MARC-LGPRO'
IT_FINAL-LGPRO.
PERFORM BDC_FIELD USING 'MARC-LGFSB'
IT_FINAL-LGFSB.
IF GV_VIEW_COD -
F4 help in table control. - Urgent Please
Hi all,
Iam using F4 help in table control. when the user selects the data in F4 values 4 more fields that are displayed in the F4 has to be updated in the table control
What function modules should I use to capture the f4 values and keep in the current table control record. Please help by sending some code.
Helpful answers will be rewarded.
Thankhs
AdityaHi ,
Check out the follwing Eg.
To read the remaining fields in the corresponding row use <b>dynpfld_mapping</b> parameters in Table option of F4 help Function Module.And then use <b>DYNP_VALUES_UPDATE </b> FM to populate into the screen fields.
MODULE shlpcntno INPUT.
DATA : BEGIN OF i_cntno OCCURS 0,
contnum LIKE zmps_veh_entry-contnum,
contsl LIKE zmps_veh_entry-contsl,
END OF i_cntno.
CLEAR: i_cntno,i_cntno[],i_return,i_return[],i_map,i_map[].
SELECT contnum contsl FROM zmps_veh_entry INTO TABLE i_cntno.
i_map-fldname = 'F0001'.
i_map-dyfldname = 'I_CNTNO-CONTNUM'.
APPEND i_map.
CLEAR i_map.
i_map-fldname = 'F0002'.
i_map-dyfldname = 'I_CNTNO-CONSTL'.
APPEND i_map.
CLEAR i_map.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'CONTNUM'
dynpprog = sy-repid
dynpnr = sy-dynnr
dynprofield = 'W_CONTNUM'
value_org = 'S'
TABLES
value_tab = i_cntno
dynpfld_mapping = i_map
return_tab = i_return.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
LOOP AT i_return.
IF i_return-fieldname = 'F0001'.
w_contnum = i_return-fieldval.
ELSEIF i_return-fieldname = 'F0002' AND flag = 3.
w_slno = i_return-fieldval.
CLEAR: i_dynread, i_dynread[].
i_dynread-fieldname = 'W_SLNO'.
i_dynread-fieldvalue = w_slno.
APPEND i_dynread.
CLEAR i_dynread.
CALL FUNCTION 'DYNP_VALUES_UPDATE'
EXPORTING
dyname = sy-repid
dynumb = sy-dynnr
TABLES
dynpfields = i_dynread
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDIF.
ENDLOOP.
ENDMODULE. -
Need Help in Crating SEARCH HELP
Dear All,
I want to create a search help for displayiing only srvice Purchase requisition along with date, name of requisitionar & mtext from table EBAN, which i want to use in my report.\
can anybody send me the detailed steps for this.
Help is appricited.
Appropriate points will be rewarded.
Regards
arunHi,
Please check this link.
http://www.sapdevelopment.co.uk/dictionary/shelp/shelphome.htm
Regards,
Ferry Lianto -
I actually need help but cannot find the answer.
Please.......Lately when open a new tab it does not open with a blank page. I don't want to set my homepage as blank as when I first open Firefox, it automatically loads my hotmail page. But then if I open other pages I don't get a blank page. Help, please?
Thank you.
''[Personal information removed by moderator. Please read [[Forum and chat rules and guidelines]], thanks.]''hello, please refer to [[New Tab Page – show, hide and customize top sites]] in order to switch the feature off.
-
hi
i need help please . when i want to buy app from store ask me the security question
but i forgot the answer
so i need to the link to rest answer of security questionThe Best Alternatives for Security Questions and Rescue Mail
a. Send Apple an email request at: Apple - Support - iTunes Store - Contact Us.
b. Call Apple Support in your country: Customer Service: Contact Apple support.
c. Rescue email address and how to reset Apple ID security questions. -
I am using a Papst servo motor and I need to know where to start and what to purchase to get this motor to spin. I am using visual basic and in my program I calculate the direction and RPM's needed from the motor. It will spin anywhere from 1 to 10000 RPM's. It seems rather easy, but I have no idea on how to spin the motor at the specific RPM, and stop it with a command stop in the program. Please help.
We really should know a little more about your intended uses for this system, but assuming you want to do relatively simple (or even not so simple!) motion, you'll need a few components...
A motion controller, such as the PCI-7342, can take your VB commands and turn them into the commands needed to "run" the motor. Next you'll need a drive, such as the MID-7342. This includes the servo amplifier that actually powers the motor. It also has connections to "pass through" the encoder signals from the motor back to the motion controller.
The above-named pieces assume one or two axes of motion. You'll also need a cable to connect the two (can't remember the model right now). You can use MAX to configure the motion controller, and there are just a few VB calls you
'll need to make using NI-Motion functions to define the motion and get it going.
Hope this helps! -
I forget the answers for the secret questions,, i need to reset them,,any help please
You need to ask Apple to reset your security questions; ways of contacting them include clicking here and picking a method for your country, phoning AppleCare and asking for the Account Security team, and filling out and submitting this form.
(97479) -
Need to include Table Control in Tabstrip (which is present in selection sc
Hi Friends,
I have a tab strip in my selection screen. I need to include a Table control in one of the tab of the tab strip. Is it possible? If yes How to do that?
Note: I cant use a module pool program.
Regards,
SudheerHi ,
We can do that.
You have created the Tab strips in Module Pool program.Select that tab Place the table control in your tabstrips.Assign the Table control name to the table control.
In this program We have a field in selection screen When we submit the screen the tabstrip will come and using with in that we table controls.we filled that table controls.
include zsalesordertop . " global Data
tables: zstr_vbak,zstr_vbap,zstr_vbep.
data:ok_code type sy-ucomm,
ok_cod type sy-ucomm,
l_vbeln type vbak-vbeln,
no_rows1 type i,
no_rows2 type i,
no_rows3 type i.
data: itab1 type table of zstr_vbak,
wa1 type zstr_vbak,
itab2 type table of zstr_vbap,
wa2 type zstr_vbap,
itab3 type table of zstr_vbep,
wa3 type zstr_vbep.
*& Module STATUS_0100 OUTPUT
text
module status_0100 output.
set pf-status 'BACK'.
SET TITLEBAR 'xxx'.
case ok_code.
when 'BACK'.
leave program.
endcase.
endmodule. " STATUS_0100 OUTPUT
*& Module STATUS_0101 OUTPUT
text
module status_0101 output.
set pf-status 'EXIT'.
SET TITLEBAR 'xxx'.
case ok_cod.
when 'EXIT'.
leave program.
when 'TAB1'.
tabstrip-activetab = 'TAB1'.
when 'TAB2'.
tabstrip-activetab = 'TAB2'.
when 'TAB3'.
tabstrip-activetab = 'TAB3'.
endcase.
endmodule. " STATUS_0101 OUTPUT
*& Module USER_COMMAND_0100 INPUT
text
module user_command_0100 input.
case ok_code.
when 'SUBMIT'.
if l_vbeln is not initial .
select vbeln erdat erzet ernam angdt bnddt audat vbtyp trvog auart from vbak into table itab1 where vbeln = l_vbeln.
if itab1 is not initial.
select vbeln posnr matnr matwa pmatn charg matkl arktx pstyv posar from vbap into table itab2 for all entries in itab1 where vbeln = itab1-vbeln.
select vbeln posnr etenr ettyp lfrel edatu ezeit vrkme from vbep into table itab3 for all entries in itab1 where vbeln = itab1-vbeln.
else.
message i000(000) with 'no data in item and schedule information table'.
endif.
else.
message i000(000) with 'not allowed'.
endif.
endcase.
endmodule. " USER_COMMAND_0100 INPUT
*& Module STATUS_1101 OUTPUT
text
module status_1101 output.
SET PF-STATUS 'xxxxxxxx'.
SET TITLEBAR 'xxx'.
describe table itab1 lines no_rows1.
tablecontrol1-lines = no_rows1.
endmodule. " STATUS_1101 OUTPUT
*& Module STATUS_2101 OUTPUT
text
module status_2101 output.
SET PF-STATUS 'xxxxxxxx'.
SET TITLEBAR 'xxx'.
describe table itab2 lines no_rows2.
tablecontrol2-lines = no_rows2.
endmodule. " STATUS_2101 OUTPUT
*& Module STATUS_3101 OUTPUT
text
module status_3101 output.
SET PF-STATUS 'xxxxxxxx'.
SET TITLEBAR 'xxx'.
describe table itab3 lines no_rows3.
tablecontrol3-lines = no_rows3.
endmodule. " STATUS_3101 OUTPUT
*& Module FILL_TABLECONTROL1 OUTPUT
text
module fill_tablecontrol1 output.
read table itab1 into zstr_vbak index tablecontrol1-current_line.
endmodule. " FILL_TABLECONTROL1 OUTPUT
*& Module FILL_TABLECONTROL2 OUTPUT
text
module fill_tablecontrol2 output.
read table itab2 into zstr_vbap index tablecontrol2-current_line.
endmodule. " FILL_TABLECONTROL2 OUTPUT
*& Module FILL_TABLECONTROL3 OUTPUT
text
module fill_tablecontrol3 output.
read table itab3 into zstr_vbep index tablecontrol3-current_line.
endmodule. " FILL_TABLECONTROL3 OUTPUT
Include zsalesordertop
program zmodule_pool_salesorder.
controls tabstrip type tabstrip.
controls tablecontrol1 type tableview using screen '1101'.
controls tablecontrol2 type tableview using screen '2101'.
controls tablecontrol3 type tableview using screen '3101'.
Sure this will help you.
Please reward points if it helps to you.
Thanks,
Swapna. -
How to implement F4 help in table control
Hi all,
I am working on a table control in a module pool program. I have three fields in table control , material no. , material description and quantity. my requirement is , in table control , i need to provide the F4 help for material no. and material description, in a way, if i select material no. using F4, the corresponding material description field would be entered automatically in the table control field.
Pls suggest me on this , if possible pls give me code or logic to do this.
Thanks
Saravan
Moderator message: please don't post the identical question again after the first attempt was locked for good reasons. Search for available information before asking.
Edited by: Thomas Zloch on Mar 3, 2011 11:54 AMHi Saravana,
Please search in SCN before posting. You will find many threads related to this question. The basic logic is you have to get the selected row of table control using DYNP_GET_STEPL function in your POV. Then using function DYNP_VALUES_READ read the material and create the description to be displayed. You have use function F4IF_INT_TABLE_VALUE_REQUEST to display search help. -
Need some help in creating Search Help for standard screen/field
I need some help in adding a search-help to a standard screen-field.
Transaction Code - PP01,
Plan Version - Current Plan (PLVAR = '01'),
Object Type - Position ( OTYPE = 'S'),
Click on Infotype Name - Object ( Infotype 1000) and Create.
I need to add search help to fields Object Abbr (P1000-SHORT) / Object Name (P1000-STEXT).
I want to create one custom table with fields, Position Abb, Position Name, Job. Position Abb should be Primary Key. And when object type is Position (S), I should be able to press F4 for Object Abb/Object Name fields and should return Position Abbr and Position Name.
I specify again, I have to add a new search help to standard screen/field and not to enhance it.
This is HR specific transaction. If someone has done similar thing with some other transation, please let me know.
There is no existing search help for these fields. If sm1 ever tried or has an idea how to add new search help to a standard screen/field.
It's urgent.
Thanks in advace. Suitable answers will be rewardedHi Pradeep,
Please have a look into the below site which might be useful
Enhancing a Standard Search Help
https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/daeda0d7-0701-0010-8caa-
edc983384237
http://help.sap.com/saphelp_nw04/helpdata/en/cf/21ee93446011d189700000e8322d00/frameset.htm
A search help exit is a function module for making the input help process described by the search help more flexible than possible with the standard version.
This function module must have the same interface as function module F4IF_SHLP_EXIT_EXAMPLE. The search help exit may also have further optional parameters (in particular any EXPORTING parameters).
A search help exit is called at certain timepoints in the input help process.
Note: The source text and long documentation of the above-specified function module (including the long documentation about the parameters) contain information about using search help exits.
Function modules are provided in the function library for operations that are frequently executed in search help exits. The names of these function modules begin with the prefix F4UT_. These function modules can either be used directly as search help exits or used within other search help exits. You can find precise instructions for use in the long documentation for the corresponding function module.
During the input help process, a number of timepoints are defined that each define the beginning of an important operation of the input help process.
If the input help process is defined with a search help having a search help exit, this search help exit is called at each of these timepoints. If required, the search help exit can also influence the process and even determine that the process should be continued at a different timepoint.
timepoints
The following timepoints are defined:
1. SELONE
Call before selecting an elementary search help. The possible elementary search helps are already in SHLP_TAB. This timepoint can be used in a search help exit of a collective search help to restrict the selection possibilities for the elementary search helps.
Entries that are deleted from SHLP_TAB in this step are not offered in the elementary search help selection. If there is only one entry remaining in SHLP_TAB, the dialog box for selecting elementary search helps is skipped. You may not change the next timepoint.
The timepoint is not accessed again if another elementary search help is to be selected during the dialog.
2. PRESEL1
After selecting an elementary search help. Table INTERFACE has not yet been copied to table SELOPT at this timepoint in the definition of the search help (type SHLP_DESCR_T). This means that you can still influence the attachment of the search help to the screen here. (Table INTERFACE contains the information about how the search help parameters are related to the screen fields).
3. PRESEL
Before sending the dialog box for restricting values. This timepoint is suitable for predefining the value restriction or for completely suppressing or copying the dialog.
4. SELECT
Before selecting the values. If you do not want the default selection, you should copy this timepoint with a search help exit. DISP should be set as the next timepoint.
5. DISP
Before displaying the hit list. This timepoint is suitable for restricting the values to be displayed, e.g. depending on authorizations.
6. RETURN (usually as return value for the next timepoint)
The RETURN timepoint should be returned as the next step if a single hit was selected in a search help exit.
It can make sense to change the F4 flow at this timepoint if control of the process sequence of the Transaction should depend on the selected value (typical example: setting SET/GET parameters). However, you should note that the process will then depend on whether a value was entered manually or with an input help.
7. RETTOP
You only go to this timepoint if the input help is controlled by a collective search help. It directly follows the timepoint RETURN. The search help exit of the collective search help, however, is called at timepoint RETTOP.
8. EXIT (only for return as next timepoint)
The EXIT timepoint should be returned as the next step if the user had the opportunity to terminate the dialog within the search help exit.
9. CREATE
The CREATE timepoint is only accessed if the user selects the function "Create new values". This function is only available if field CUSTTAB of the control string CALLCONTROL was given a value not equal to SPACE earlier on.
The name of the (customizing) table to be maintained is normally entered there. The next step returned after CREATE should be SELECT so that the newly entered value can be selected and then displayed.
10. APP1, APP2, APP3
If further pushbuttons are introduced in the hit list with function module F4UT_LIST_EXIT, these timepoints are introduced. They are accessed when the user presses the corresponding pushbutton.
Note: If the F4 help is controlled by a collective search help, the search help exit of the collective search help is called at timepoints SELONE and RETTOP. (RETTOP only if the user selects a value.) At all other timepoints the search help exit of the selected elementary search help is called.
If the F4 help is controlled by an elementary search help, timepoint RETTOP is not executed. The search help exit of the elementary search help is called at timepoint SELONE (at the
F4IF_SHLP_EXIT_EXAMPLE
This module has been created as an example for the interface and design of Search help exits in Search help.
All the interface parameters defined here are mandatory for a function module to be used as a search help exit, because the calling program does not know which parameters are actually used internally.
A search help exit is called repeatedly in connection with several
events during the F4 process. The relevant step of the process is passed on in the CALLCONTROL step. If the module is intended to perform only a few modifications before the step, CALLCONTROL-STEP should remain unchanged.
However, if the step is performed completely by the module, the following step must be returned in CALLCONTROL-STEP.
The module must react with an immediate EXIT to all steps that it does not know or does not want to handle.
Hope this info will help you.
***Reward points if found useful
Regards,
Naresh -
Search Help on Table Control - Fill more than one field in the table?
Hey everyone,
I have built a screen with a Table Control on it... the fields of the table control are linked to an internal table... The internal table has the line type of a structure I've defined in the data dictionary. Within that structure in the data dictionary, I've linked some fields to search helps (For example, a MATNR and CUSTOMER search help)... I've defined in the structure definition which fields from the search help are to be returned to which fields in the structure.
The problem is, even though I have the search help set to export both the customer number and location when using the search help on the customer field, it still does not fill the location field within the table. Is this a limitation of using search helps within table controls?
I'm also finding that by defining the search help through the structure, instead of directly within the screen, the search help round button does not show up on the field, yet I can still press F4 to bring up the search help. Is there a reason why it's not showing the search help clickable button even though it works fine using F4?
For doing search helps in Table Controls, is it better to just build the search help, attach it directly to the field in the table, and then after the user picks the single field, use the PAI to run a select and fill the rest of the fields required?
Thanks,
DallasHi Dallas,
(1)
What i understood is that you added a search help by defining it in the internal table type for a field customer number..in the search help you have 2 fields customer number and location...user press the search help ..then you need to fill 2 different fields or 1 field?
if you need to fill the customer location or location (only one) then you need to set the "import" in the search help for whichever is required.....
if you need to fill 2 or more different fields..then you can use the technique you have mentioned last , to do a select in PAI and fill the fields....but this you can use if the combination for the fields is unique...eg: u have customer number and location..if customer X can be mapped to location X and location Y..when a select statement is done there are 2 options..so in such cases it is better to leave the option to the user otherwise if there is a clear mapping like customer X can be mapped only to location X then you can use the select..
(2)
usually when you define it as a type in the internal table the icon doesn't show up..but you can do alternative like mentioned..go to the table,find the search help for the required field if present or create a new one if required and place the search help mentioned in the screen itself..so as to see the icon...sometimes users are adamant that they need the search help icon to be seen..so it depends on if your user
(3)
as in the example of customer number and location mentioned we can provide them different search helps and do the needful processing in PAI to fill the fields
Table controls may be used for different purposes and requirements....even a checkbox,push button can be placed as a field in table control and used,but yes most of the time requirements are like what is mentioned in your case...
Regards
Byju -
Search help in table control using attributes window in layout
Hi.
I am trying to use search help for my table control fields. the table control basically displays product details.
I have a name field, description field and price field. I have named my field to match the the structure of my search help (stProducts-name, stProducts-description and stProducts-price respectfully). then for each i entered shProducts (my search help) in the search help field.
However, upon running the program, in the name, description and price field, by clicking f4 the name of the product is displayed in the field irrespective to which column I am selecting. Also the values in the other fields are not affected.
Any help would be appreciated
Thank youHi Charla,
<li> Here is a sample program how to update other fields when you select f4 help for one field.
<li> Need to apply in module pool program..
REPORT zvenkat_f4_for_parameters MESSAGE-ID zmsg .
TYPES:
BEGIN OF t_t001w,
werks TYPE t001w-werks,
name1 TYPE t001w-name1,
END OF t_t001w,
t_return_tab TYPE ddshretval.
DATA:w_t001w TYPE t_t001w,
w_return_tab TYPE t_return_tab.
DATA:i_t001w TYPE STANDARD TABLE OF t_t001w,
i_return_tab TYPE STANDARD TABLE OF t_return_tab.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
PARAMETERS :p_werks TYPE t001w-werks,
p_name1 TYPE t001w-name1.
SELECTION-SCREEN END OF BLOCK b1.
" AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_werks
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_werks.
PERFORM f4_help_for_palant.
*& Form f4_help_for_palant
FORM f4_help_for_palant.
DATA:
w_dynpfields TYPE dynpread,
i_dynpfields LIKE STANDARD TABLE OF dynpread.
IF i_t001w[] IS INITIAL.
SELECT werks name1
FROM t001w
INTO TABLE i_t001w.
ENDIF.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'WERKS'
dynpprog = sy-repid
dynpnr = sy-dynnr
dynprofield = 'P_WERKS'
value_org = 'S'
TABLES
value_tab = i_t001w
return_tab = i_return_tab.
READ TABLE i_return_tab INTO w_return_tab INDEX 1.
p_werks = w_return_tab-fieldval.
READ TABLE i_t001w INTO w_t001w WITH KEY werks = p_werks.
IF sy-subrc = 0.
w_dynpfields-fieldname = 'P_NAME1'.
w_dynpfields-fieldvalue = w_t001w-name1.
APPEND w_dynpfields TO i_dynpfields.
CLEAR w_dynpfields.
CALL FUNCTION 'DYNP_VALUES_UPDATE'
EXPORTING
dyname = sy-repid
dynumb = sy-dynnr
TABLES
dynpfields = i_dynpfields.
ENDIF.
ENDFORM. " f4_help_for_palant
Thanks
Venkat.O -
My MacAir is great except for a problem i have. Keys F1, F2,F5,F6,F7,F8,F9,F10,F11,F12 and the power button are unresponsive. These are keys i frequently use and i have searched the whole apple help centre. Anyone got answers for me? Please helP!!!
Some keys don't work as expected
From the Apple menu, choose System Preferences.
From the View menu, choose Speech.
Click the Text to Speech tab.
If "Speak selected text when the key is pressed" is enabled, the key or key combination set to speak text cannot be used for other purposes or used to type text--click Set Key and change it to a less-commonly used key combination (try to use modifier keys such as Shift, Command, Option, and Control). Or, disable the "Speak selected text when the key is pressed" option.
Click the Universal Access pane in System Preferences, click the Keyboard tab.
Make sure that Slow Keys is turned off. With Slow Keys on, you need to press a key for a longer period of time for it to be recognized.
In the Universal Access pane, click the Mouse tab, and make sure Mouse Keys is turned off. With Mouse Keys enabled, you cannot use the Numeric Keypad to enter numbers--instead the keypad moves the pointer (cursor). (There is an option to enable Mouse Keys with five presses of the Option key; you may want to turn that option off to avoid accidentally enabling it.) If Mouse Keys is enabled and you are using a keyboard with no numeric keypad or Num Lock function, see Unable to type while Mouse Keys is enabled in Mac OS X.
If the function keys on the top row of the keyboard are not working as expected, see Mac OS X: How to change the behavior of function keys.
If the issue persists, use Keyboard Viewer to help isolate the issue:
Click the Language & Text pane (Mac OS X v10.6) or International pane (Mac OS X v10.5.8 or earlier) in System Preferences.
Click the Input Sources tab (or Input Menu tab in Mac OS X 10.5.8 or earlier).
Click the Keyboard & Character Viewer "On" checkbox to select it (click the Keyboard Viewer "On" checkbox in Mac OS X 10.5.8 or earlier).
From the Input (flag) menu, choose Show Keyboard Viewer.
If the keyboard is connected and detected by Mac OS X, the keys you type will highlight in the Keyboard Viewer window. Open TextEdit (or any text application), and try to type something using the keys that were previously not responding to see if they highlight in Keyboard Viewer.
Start from the Mac OS X Install Disc, choose Terminal from the Utilities menu and test the keys which were previously not working. If the keys work while started from the Install disc, then the keyboard itself is working correctly. Use Mac OS X: How to troubleshoot a software issue to isolate the software issue that may be causing the keys to not respond.
http://support.apple.com/kb/TS1381 -
How can I reference an external help file from context sensitive help at the control level?
My goal is to provide context sensitive help for each control displayed on the front panel using a help file created externally. I know that at the VI level I can specify a Help Path; I want the same behaviour for each control inside a VI. I also know about creating a custom control and specifying the Help Path in there, but it doesn't help in this situation, for I have hundreds of controls in my application and I cannot go back and replace each one with a unique .ctl. If I could override each instance of the custom control with unique path data that would do the trick, but that's not how it works.
Is there a way to add the Help Path information to regualr controls?
-euge
neThis functionality is not yet built into LabVIEW.
About all you can do is cut and paste the help for each control into the description for the control. It is tedius but a finite task.
Maybe you are looking for
-
Video playback to TV on older iPod
I have an older iPod, Gen 2 or 3 (bought Spring '04). Can I move a file recorded by my PC (a TV show) via Windows Media Player onto my iPod, then take the iPod on the road, use video cables from www.speckproducts.com (which I know would work with new
-
Two-page layout for scrapbooking
How do I put two 12x12 scrapbooking layouts next to each other on photoshop elements 12? I want to line up a picture that spans the gap in the middle of the photo book. I have a laptop with windows 8.
-
Alert system for chain process
Hello, I want to configure the alert system for when an error occurs in processing chains. I followed the steps in the forum THROUGH ALRTCATDEF transaction, but I can not do the following, which is what I really need; That the key responsibility for
-
Why doesn't stop button always stop my VI?
We are using the default "Continuous Acquisition to Spreadsheet" VI that came with Labview. Our application is recording 32 temperature readings to a text file, and displaying them simultaneously to the monitor. The scan rate is one per minute, the b
-
Hi, We are having issue in locking "Error locking table TBTCO" at our SM12 statics Maximum Number of Lock Owners 3603 Even on increasing the enque/table_size it not effecting the lock owner. Our environment having enq replication server. The prof