Tcode to comapre 2 programs
hi everybody
is there a transaction where 2 programs can be compared, not the versions but 2 separate programs?
Hi,
You can use ABAP Splitscreen Editor (SE39).
Also you can use remote comparison (version management) to compare two programs in two different clients.
Regards,
Ferry Lianto
Similar Messages
-
How to find out tcode from a program that can run the same report?
Hello all,
I have a program name and I can see it is successfully proccessed. Now if I want to get the report via a tcode, how can I get it?
How can I find the tcode from the program itself?
Regards,Hi,
1) Go into SE80, > Enter the name of the program, and press 'Enter'.
2) You will see a folder called 'Transactions' appearing in the object list on the bottom left.
3) Open the folder, and you'll find T.code of that program.
Thanks,
Nirav -
Is there any TCODE or Report Program or way to display the enterprise struc
Hi,
Is there any TCODE or Report Program or way to display the enterprise strucdture in a pictorial view.
I want to see like:
Financial Accounting
Company
Business Area
Functional Area
FM Area
Segment
Profit Center.
I will appreciate your help.
Thanks
Bashir AwanDid u checked thse reports
S_AHR_61016499 - Job Description
S_AHR_61016501 - Complete Job Description
S_AHR_61016498 - Job Index
S_AHR_61016497 - Existing Jobs -
VBUND(Trading Partner) field in BSEG from Tcode FB50 through programs
Dear Friends,
I am traying to update the VBUND(Trading Partner) field in BSEG from Tcode FB50 through programs....but its not updating in BSEG.
for that we have used substitution programs,
Did we have any other way to update the VBUND in BSEG from FB50?
I have debuged the Tcode FB50, and in there its updating the BSEG from internal table t_bseg, and passing the values to t_bseg from SACCIT, but SACCIT is not having the field VBUND. thats the reasone its failed in my case.
do we have any other better solutions and idea on this???
Thanks,
SridharRefer to the following trheads:
Change field bseg-vbund
Trading Partner field (VBUND) is left blank in EC-PCA historical data load
Validation document type
Field VBUND does not allow changes to the document ?
Regards,
Fernando Evangelista -
How to create tcode for modulepool program with selection screen?
hi,
How to create tcode for modulepool program with selection screen?
thanks,
sagarHi,
We need to goto SE80.
In our program we right click on object name and goto create
-> transaction. Enter the module pool program and screen number and save and activate.
Or by SE93 also we can create a transaction code for our program.
Hope ths helps.
plz reward if useful.
thanks,
dhanashri..
Edited by: Dhanashri Pawar on Jul 22, 2008 8:29 AM -
Hi all..
how to create Tcode for print program??? i did the usual way like went se 93 then chose 2nd option (with selection screen) asign the GUI also. but it not working...
without tcode it is working vrey fine..
thanks well in advance..
points will be rewarded..Hi Soumya,
It is normal way like how you create Tcode for executable programs.
But in real time we never creates TCodes for Print Programs, which will get triggered when you print the layout.
<b>Reward points if it useful,</b>
Satish -
How to call mmpv TCODE through BDC program.
Hi
In my requriment i have to create custom program through which i have to call mmpv TCODE, because mmpv closes period for indivisual company code and for large number of company code it is time cunsuming exercise. for that i that i have to creat custom program. it is having selection screen like below.
company code (marv-bukrs)
fiscal year of current period (marv-lfgja)
current posting period (marv-lfmon)
fiscal year of previous period (marv-vmgja)
month of previous period (marv-vmmon)
fiscal year of last periodof previous year (marv-vjgja)
last month of previoud year (marv-vjmon)
allow posting to previous year (marv-xruem)
disallow dack posting after a change of period (marv-xruev)
and output should show : company codes affected,the periods closed and the current period open for posting .and also show wheather back posting allowed / disallowed for the company code.CALL FUNCTION 'BDC_INSERT' "BDC_OBJECT_UPDATE
EXPORTING
TCODE = 'mmpv'
TABLES
DYNPROTAB = BDC_TAB.
hope this helps
Warren -
How to call the 2 Tcodes from single program.
Dear Friends,
I would like to call 2 tcodes form a single program based on some conditions like :
I have a program ZRR wich is madule pool report with selection screen and screen 100, 200.
If I excuted tcode ZXX then I need to call the report with selectin screen ( from there with giving some input data I will go to screen 100 ),
If I excuted tcode ZYY then I need to call the same report skiping the selection screen and need to go directly screen 200.
Pls help me on this if any bady is faced the similar problem.
Thanks,
Sridharhi,
yes you can do this..
try this
create a two screen suppose 9000 and 9001..
then right click on your program name...
create a TCODE say TONE..
in this give the screen number 9000..
now again right click on the program name
create a TCODE say Tsecond
in this give the screen number 9001...
hope this will help you..
Regards
Ritesh J -
How to get the Title and Tcode of a Program during run time
Hello,
I am new to abap and I have this question please. Is the a way to get the title, Tcode and Author of a program during run time? I would like to get the name and title of a program or a view or an include during run time.
Using table TADIR, you can only get the object_name and the author. Is the a way for me to get the Title of the repository object and any Tcode if any is available for the case of a program?
I loop forward for your respond.
Thank you.
SabinaYou can get it by accessing SYST.
SY-TITLE for Title
SY-TCODE for Tcode
I don't think there is any field in SYST for the Author.
To get the author name you can use the TRDIR table.
Regards,
Naimesh Patel -
Recording TCode for BDC program
Hi ALL,
I have a problem in recording GS01 tcode.
I have to a table control in GS01 tcode.
After some rows again i need to update the data.
How can i record this and write BDC program for the same.Hi
To uplaod the data using the table control,if number of line are more then screen.
Then use the P+ in u r code.
let assume that u can see 10 rows on screen.once the count reachs the 10 then do P+ then
new line will come and after P+ clear u r counter. -
Calling a tcode of a program instead of calling program through se38 in BDC
Hi ,
I want to call a BDC using tcode ,J4AB which is transaction for program J_3AARN5.
Actually my Zprogram is uploading data through se38. Here,i want to call the transaction code J4AB directly... instead of using J_3AARN5 program through se38 in my BDC.
Here I am in dilemma ...what to do ...
Do I need to ask my client for a new recording for this T-code J4AB or
what do i do??
Please suggest,
Thanks in advance.
HemaHi Bijay,
yes it is "call transaction J4AB". But my question is that do we need to create recording for that.Just giving "call transaction J4AB" is enough??if so, what do we give in perform generate bdc_data.
If we have to create recording, do we need to ask client for the data. please let me know.
Thanks,
Hema. -
How To call a Tcode From a Program and returning back ?
Dear All,
I have a requirement, i have to show all the open orders as in the the tcode va05 and return back to the my program. so how to display the tcode and getting back to my program. please help?Hi,
Basic syntax to call the transaction is:
SET PARAMETER ID <id name> FIELD <filedname>.
CALL TRANSACTION <TCOde> AND SKIP FIRST SCREEN.
If your are using ALV then snippet is :
FORM user_command USING okcode LIKE sy-ucomm
lselfield TYPE slis_selfield.
CASE okcode.
WHEN '&IC1'. " SAP standard code for double-clicking
CASE lselfield-sel_tab_field."check if double click is only on
WHEN 'ITAB-AUFNR'."aufnr not on any other field
SET PARAMETER ID 'ANR' FIELD lselfield-value.
CALL TRANSACTION 'IW32' AND SKIP FIRST SCREEN.
ENDCASE.
ENDCASE.
Endform.
Pooja -
HCP tcode PA40 Upload program failing to move to next record.
Dear All
I have written and upload program for HCM tcode PA40 and the program is fine but only inserting one record and is failing to pick the next records in a loop. I dont know whats the problem i know the process have many screens, please help me, i have tried to research not yet found the answer yet.
Thank you for your assistance
Here is my Upload program
*& Report ZUPLOADEMPHIRING
REPORT ZUPLOADEMPHIRING.
include bdcrecx1.
PARAMETERS: p_file TYPE rlgrap-filename.
x_endrow TYPE i .
DATA: xdate(10).
DATA: Fullname type string.
DATA: x_begrow TYPE i VALUE 2,
x_begcol TYPE i VALUE 1,
x_endcol TYPE i VALUE 17,
x_endrow TYPE i VALUE 3.
TYPES: BEGIN OF t_datatab ,
FromDate(10),
Reasonforaction(2),
Position(8),
PersonalArea(4),
EmployeeGroup(1),
EmployeeSubGroup(2),
SubArea(4),
PayrolArea(2),
Title(5),
Lastname(40),
Firstname(40),
BirtDate(10),
Nationality(3),
Group(1),
Level(1),
BankKey(15),
BankAccount(18),
END OF t_datatab.
DATA: BEGIN OF t_datatabfinal OCCURS 0,
FromDate(10),
Reasonforaction(2),
Position(8),
PersonalArea(4),
EmployeeGroup(1),
EmployeeSubGroup(2),
SubArea(4),
PayrolArea(2),
Title(5),
Lastname(40),
Firstname(40),
BirtDate(10),
Nationality(3),
Group(1),
Level(1),
BankKey(15),
BankAccount(18),
END OF t_datatabfinal.
DATA: BEGIN OF it_record OCCURS 0,
FromDate(10),
Reasonforaction(2),
Position(8),
PersonalArea(4),
EmployeeGroup(1),
EmployeeSubGroup(2),
SubArea(4),
PayrolArea(2),
Title(5),
Lastname(40),
Firstname(40),
BirtDate(10),
Nationality(3),
Group(1),
Level(1),
BankKey(15),
BankAccount(18),
END OF it_record.
DATA: itab LIKE alsmex_tabline OCCURS 0 WITH HEADER LINE,
gd_currentrow TYPE i,
it_datatab TYPE STANDARD TABLE OF t_datatab,
wa_datatab TYPE t_datatab.
AT SELECTION-SCREEN on VALUE-REQUEST FOR p_file.
CALL FUNCTION 'F4_FILENAME' "
EXPORTING
FIELD_NAME = 'P_FILE '
IMPORTING
FILE_NAME = p_file.
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
EXPORTING
PROGRAM_NAME = SYST-REPID
DYNPRO_NUMBER = SYST-DYNNR
FIELD_NAME = ' '
STATIC = ' '
MASK = ' '
CHANGING
FILE_NAME =
EXCEPTIONS
MASK_TOO_LONG = 1
OTHERS = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
START-OF-SELECTION.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
EXPORTING
filename = p_file
i_begin_col = x_begcol
i_begin_row = x_begrow "Column header not required
i_end_col = x_endcol
i_end_row = x_endrow
TABLES
intern = itab.
Sort table by rows and colums
SORT itab BY row col.
Get first row retrieved
READ TABLE itab INDEX 1.
Set first row retrieved to current row
gd_currentrow = itab-row.
clear: t_datatabfinal.
refresh t_datatabfinal.
LOOP AT itab.
Reset values for next row
IF itab-row NE gd_currentrow.
APPEND wa_datatab TO t_datatabfinal.
CLEAR wa_datatab.
gd_currentrow = itab-row.
ENDIF.
concatenate sy-datum6(2)'.' sy-datum4(2)'.' sy-datum+2(4) into xdate .
CASE itab-col.
WHEN '0001'.
wa_datatab-FromDate = itab-value.
concatenate wa_datatab-DocumentDate6(2)'.' wa_datatab-DocumentDate4(2)'.' wa_datatab-DocumentDate+2(4) into wa_datatab-DocumentDate.
WHEN '0002'.
wa_datatab-Reasonforaction = itab-value.
WHEN '0003'.
wa_datatab-Position = itab-value.
WHEN '0004'.
wa_datatab-PersonalArea = itab-value.
WHEN '0005'.
wa_datatab-EmployeeGroup = itab-value.
WHEN '0006'.
wa_datatab-EmployeeSubGroup = itab-value.
WHEN '0007'.
wa_datatab-SubArea = itab-value.
WHEN '0008'.
wa_datatab-PayrolArea = itab-value.
WHEN '0009'.
wa_datatab-Title = itab-value.
WHEN '0010'.
wa_datatab-Lastname = itab-value.
WHEN '0011'.
wa_datatab-Firstname = itab-value.
WHEN '0012'.
wa_datatab-BirtDate = itab-value.
WHEN '0013'.
wa_datatab-Nationality = itab-value.
WHEN '0014'.
wa_datatab-Group = itab-value.
WHEN '0015'.
wa_datatab-Level = itab-value.
WHEN '0016'.
wa_datatab-BankKey = itab-value.
WHEN '0017'.
wa_datatab-BankAccount = itab-value.
WHEN OTHERS.
ENDCASE.
APPEND wa_datatab to t_datatabfinal.
ENDLOOP.
clear: it_record.
refresh it_record.
loop at t_datatabfinal into it_record.
append it_record.
endloop.
perform open_group.
loop at it_record.
concatenate it_record-Firstname it_record-Lastname into Fullname separated by space.
perform bdc_dynpro using 'SAPMP50A' '2000'.
perform bdc_field using 'BDC_CURSOR'
'T529T-MNTXT(02)'.
perform bdc_field using 'BDC_OKCODE'
'=PICK'.
perform bdc_field using 'RP50G-EINDA'
it_record-FromDate. "" '01012012'.
perform bdc_field using 'RP50G-SELEC(02)'
'X'.
perform bdc_dynpro using 'MP000000' '2000'.
perform bdc_field using 'BDC_CURSOR'
'PSPAR-PERSG'.
perform bdc_field using 'BDC_OKCODE'
'=UPD'.
perform bdc_field using 'P0000-BEGDA'
it_record-FromDate. "" '01.01.2012'.
perform bdc_field using 'P0000-ENDDA'
'31.12.9999'.
perform bdc_field using 'P0000-MASSN'
'ZB'.
perform bdc_field using 'P0000-MASSG'
it_record-Reasonforaction. "" '01'.
perform bdc_field using 'PSPAR-PLANS'
it_record-Position. "" '99999999'.
perform bdc_field using 'PSPAR-WERKS'
it_record-PersonalArea. " 'm003'.
perform bdc_field using 'PSPAR-PERSG'
it_record-EmployeeGroup. "" 'a'.
perform bdc_field using 'PSPAR-PERSK'
it_record-EmployeeSubGroup. "" '02'.
perform bdc_dynpro using 'MP000100' '2000'.
perform bdc_field using 'BDC_CURSOR'
'P0001-BTRTL'.
perform bdc_field using 'BDC_OKCODE'
'=UPD'.
perform bdc_field using 'P0001-BEGDA'
it_record-FromDate. ""'01.01.2012'.
perform bdc_field using 'P0001-ENDDA'
'31.12.9999'.
perform bdc_field using 'P0001-BTRTL'
it_record-SubArea. "" 'mm01'.
perform bdc_field using 'P0001-ABKRS'
it_record-PayrolArea. "" 'Z2'.
perform bdc_field using 'P0001-PLANS'
it_record-Position. ""'99999999'.
perform bdc_dynpro using 'MP000200' '2000'.
perform bdc_field using 'BDC_CURSOR'
'P0002-NATIO'.
perform bdc_field using 'BDC_OKCODE'
'=UPD'.
perform bdc_field using 'P0002-BEGDA'
it_record-FromDate. ""'01.01.2012'.
perform bdc_field using 'P0002-ENDDA'
'31.12.9999'.
perform bdc_field using 'Q0002-ANREX'
it_record-Title. "" 'Mr'.
perform bdc_field using 'P0002-NACHN'
it_record-Lastname. " 'maxwel'.
perform bdc_field using 'P0002-VORNA'
it_record-Firstname. "" 'razaro'.
perform bdc_field using 'P0002-GBDAT'
it_record-BirtDate. "" '01011970'.
perform bdc_field using 'P0002-SPRSL'
'EN'.
perform bdc_field using 'P0002-NATIO'
it_record-Nationality. "" 'ZW'.
perform bdc_dynpro using 'MP000700' '2000'.
perform bdc_field using 'BDC_CURSOR'
'P0007-BEGDA'.
perform bdc_field using 'BDC_OKCODE'
'/00'.
perform bdc_field using 'P0007-BEGDA'
it_record-FromDate."" '01.01.2012'.
perform bdc_field using 'P0007-ENDDA'
'31.12.9999'.
perform bdc_field using 'P0007-SCHKZ'
'MANORM'.
perform bdc_field using 'P0007-ZTERF'
'9'.
perform bdc_field using 'P0007-EMPCT'
' 100,00'.
perform bdc_dynpro using 'MP000700' '2000'.
perform bdc_field using 'BDC_CURSOR'
'P0007-BEGDA'.
perform bdc_field using 'BDC_OKCODE'
'=UPD'.
perform bdc_field using 'P0007-BEGDA'
it_record-FromDate.""'01.01.2012'.
perform bdc_field using 'P0007-ENDDA'
'31.12.9999'.
perform bdc_field using 'P0007-SCHKZ'
'MANORM'.
perform bdc_field using 'P0007-ZTERF'
'9'.
perform bdc_field using 'P0007-EMPCT'
' 100,00'.
perform bdc_field using 'P0007-ARBST'
' 8,00'.
perform bdc_field using 'P0007-WKWDY'
' 5,00'.
perform bdc_dynpro using 'MP000800' '2000'.
perform bdc_field using 'BDC_CURSOR'
'P0008-TRFST'.
perform bdc_field using 'BDC_OKCODE'
'=UPD'.
perform bdc_field using 'P0008-BEGDA'
it_record-FromDate. "" '01.01.2012'.
perform bdc_field using 'P0008-ENDDA'
'31.12.9999'.
perform bdc_field using 'P0008-TRFAR'
'01'.
perform bdc_field using 'P0008-BSGRD'
'100,00'.
perform bdc_field using 'P0008-TRFGB'
'01'.
perform bdc_field using 'P0008-TRFGR'
it_record-Group. ""'a'.
perform bdc_field using 'P0008-TRFST'
it_record-Level. "" '1'.
perform bdc_field using 'P0008-DIVGV'
'173,00'.
perform bdc_field using 'P0008-ANCUR'
'USD'.
perform bdc_field using 'Q0008-IBBEG'
xdate.""'12.01.2012'.
perform bdc_field using 'P0008-WAERS'
'USD'.
perform bdc_dynpro using 'MP000900' '2000'.
perform bdc_field using 'BDC_CURSOR'
'P0009-ZLSCH'.
perform bdc_field using 'BDC_OKCODE'
'=UPD'.
perform bdc_field using 'P0009-BEGDA'
it_record-FromDate. ""'01.01.2012'.
perform bdc_field using 'P0009-ENDDA'
'31.12.9999'.
perform bdc_field using 'P0009-BNKSA'
'0'.
perform bdc_field using 'Q0009-EMFTX'
Fullname. "" 'maxwel razaro'.
perform bdc_field using 'P0009-BANKS'
'ZW'.
perform bdc_field using 'P0009-BANKL'
it_record-BankKey. ""'10351'.
perform bdc_field using 'P0009-BANKN'
it_record-BankAccount. "" '543234667778'.
perform bdc_field using 'P0009-ZLSCH'
'b'.
perform bdc_field using 'P0009-WAERS'
'USD'.
perform bdc_dynpro using 'SAPMP50A' '2000'.
perform bdc_field using 'BDC_OKCODE'
'/EBCK'.
perform bdc_field using 'BDC_CURSOR'
'RP50G-PERNR'.
perform bdc_transaction using 'PA40'.
endloop.
perform close_group.
Regards
WilliamHi,
It seems like you are uploading data to a screen that contains table control.just check the link below for your reference
[http://wiki.sdn.sap.com/wiki/display/ABAP/bdcontable+control]
Regards,
Vamshi
Edited by: vamshi reddy . ch on Jan 13, 2012 7:38 AM
Edited by: vamshi reddy . ch on Jan 13, 2012 7:39 AM -
Call a Tcode from different program
Hi frieds,
How to call a Tcode using a push button in another report.
Eg: Tcode = Ztest. (for invoice list report, using
the program zinvlist).
This Ztest should be called in another report
Zrep1 (program name Zsale) using the push button.
Regards,
A S VINCENTHai Vincent
*& Form DISPLAY_SEC1
TO CALL TRANSACTION ME23
form DISPLAY_SEC1.
<b> SET PARAMETER ID 'BES' FIELD IT_EKKO-EBELN.
CALL TRANSACTION 'ME23' AND SKIP FIRST SCREEN.</b>endform. " DISPLAY_SEC1
also I will send you Some Sample Code
*& Report ZSSSS1 *
REPORT ZSSSS1 LINE-SIZE 120
LINE-COUNT 25(3)
MESSAGE-ID ZSAN.
*Program Desc: INTERACTIVE REPORT FOR PURCHASE ORDER DETAILS
BASIC LIST CONTAINS HEADER DETAILS
SECONDARY LIST CONTAINS ITEM DETAILS
AND CONDETION RECORD DETAILS
T A B L E S U S E D *
TABLES: EKKO,EKPO,KONV,LFA1,T001.
S E L E C T I O N S C R E E N *
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-000.
SELECT-OPTIONS:
S_LIFNR FOR EKKO-LIFNR,
S_BUKRS FOR EKKO-BUKRS.
SELECTION-SCREEN END OF BLOCK B1.
D A T A D E C L A R A T I O N S *
DATA: BEGIN OF IT_EKKO OCCURS 0,
BUKRS LIKE EKKO-BUKRS,
LIFNR LIKE EKKO-LIFNR,
EBELN LIKE EKKO-EBELN,
KNUMV LIKE EKKO-KNUMV,
END OF IT_EKKO.
DATA: BEGIN OF IT_EKPO OCCURS 0,
EBELN LIKE EKPO-EBELN,
EBELP LIKE EKPO-EBELP,
MATNR LIKE EKPO-MATNR,
INFNR LIKE EKPO-INFNR,
MENGE LIKE EKPO-MENGE,
MEINS LIKE EKPO-MEINS,
NETPR LIKE EKPO-NETPR,
END OF IT_EKPO.
DATA: BEGIN OF IT_KONV OCCURS 0,
KNUMV LIKE KONV-KNUMV,
KSCHL LIKE KONV-KSCHL,
KAWRT LIKE KONV-KAWRT,
KBETR LIKE KONV-KBETR,
KPOSN LIKE KONV-KPOSN,
END OF IT_KONV.
DATA: BEGIN OF IT_LFA1 OCCURS 0,
LIFNR LIKE LFA1-LIFNR,
NAME1 LIKE LFA1-NAME1,
STRAS LIKE LFA1-STRAS,
ORT01 LIKE LFA1-ORT01,
PSTLZ LIKE LFA1-PSTLZ,
LAND1 LIKE LFA1-LAND1,
END OF IT_LFA1.
DATA: V_BUTXT LIKE T001-BUTXT,
FNAM(20) TYPE C,
FVAL(20) TYPE C.
A T S E L E C T I O N - S C R E E N O N <FIELD> *
AT SELECTION-SCREEN ON S_BUKRS.
PERFORM VALIDATE.
S T A R T - O F - S E L E C T I O N *
START-OF-SELECTION.
PERFORM SELECT_DATA. " SELECTION OF ALL DATA
PERFORM DISPLAY_DATA. " DISPLAY OF BASIC LIST
A T L I N E S E L E C T I O N *
AT LINE-SELECTION.
GET CURSOR FIELD FNAM VALUE FVAL.
CASE FNAM.
WHEN 'IT_EKKO-EBELN'.
PERFORM DISPLAY_SEC1.
WHEN 'IT_EKKO-LIFNR'.
PERFORM DISPLAY_SEC2.
WHEN OTHERS.
PERFORM DISPLAY_SEC3.
ENDCASE.
T O P - O F - P A G E *
TOP-OF-PAGE.
PERFORM WRITE_HEADER.
T O P - O F - P A G E D U R I N G L I N E S E L *
TOP-OF-PAGE DURING LINE-SELECTION.
PERFORM WRITE_HEADER2.
E N D - O F - P A G E *
END-OF-PAGE.
PERFORM WRITE_FOOTER.
*& Form SELECT_DATA
THIS FORM CONTAINS ALL SELECTION OF DATA STATEMENTS
form SELECT_DATA.
SELECT BUKRS LIFNR EBELN KNUMV
FROM EKKO
INTO TABLE IT_EKKO
WHERE LIFNR IN S_LIFNR
AND BUKRS IN S_BUKRS.
IF NOT IT_EKKO[] IS INITIAL.
SELECT EBELN EBELP MATNR INFNR MENGE MEINS NETPR
FROM EKPO
INTO TABLE IT_EKPO
FOR ALL ENTRIES IN IT_EKKO
WHERE EBELN = IT_EKKO-EBELN.
IF SY-SUBRC = 0.
LOOP AT IT_EKKO.
LOOP AT IT_EKPO.
SELECT KNUMV KSCHL KAWRT KBETR KPOSN
FROM KONV
INTO IT_KONV
WHERE KNUMV = IT_EKKO-KNUMV
AND KPOSN = IT_EKPO-EBELP.
APPEND IT_KONV.
ENDSELECT.
ENDLOOP.
ENDLOOP.
ENDIF." END OF IF FOR CHECK OF SY-SUBRC
SELECT LIFNR NAME1 STRAS ORT01 PSTLZ LAND1
INTO TABLE IT_LFA1
FROM LFA1
FOR ALL ENTRIES IN IT_EKKO
WHERE LIFNR = IT_EKKO-LIFNR.
ENDIF." END OF IF FOR IT_EKKO IS NOT INITIAL
endform. " SELECT_DATA
*& Form DISPLAY_DATA
DISPLAY THE BASIC DATA
form DISPLAY_DATA.
DATA: LINNO TYPE I.
SORT IT_EKKO BY BUKRS LIFNR EBELN.
LOOP AT IT_EKKO.
READ TABLE IT_LFA1 WITH KEY LIFNR = IT_EKKO-LIFNR.
SELECT SINGLE BUTXT
FROM T001
INTO (V_BUTXT)
WHERE BUKRS = IT_EKKO-BUKRS.
WRITE:/1 SY-VLINE,
(10) IT_EKKO-EBELN HOTSPOT ON,
SY-VLINE,
(10) IT_EKKO-LIFNR HOTSPOT ON,
SY-VLINE,
(15) IT_LFA1-NAME1 HOTSPOT ON,
SY-VLINE,
(10) IT_EKKO-BUKRS HOTSPOT ON,
SY-VLINE,
(15) V_BUTXT,
75 SY-VLINE.
HIDE: IT_EKKO-EBELN,
IT_EKKO-LIFNR.
WRITE:/1(75) SY-ULINE.
AT END OF LIFNR.
LINNO = SY-LINCT - SY-LINNO - 1.
SKIP LINNO.
ENDAT.
ENDLOOP.
endform. " DISPLAY_DATA
*& Form DISPLAY_SEC3
form DISPLAY_SEC3.
LOOP AT IT_EKPO.
CLEAR: IT_EKPO, IT_KONV.
READ TABLE IT_EKPO WITH KEY EBELN = IT_EKKO-EBELN.
IF SY-SUBRC = 0.
FORMAT COLOR 3.
WRITE:/1 SY-VLINE,
(10) IT_EKPO-EBELN,
SY-VLINE,
(10) IT_EKPO-EBELP,
SY-VLINE,
(18) IT_EKPO-MATNR,
SY-VLINE,
(10) IT_EKPO-INFNR,
SY-VLINE,
(15) IT_EKPO-MENGE,
SY-VLINE,
(10) IT_EKPO-MEINS,
SY-VLINE,
(12) IT_EKPO-NETPR,
105 SY-VLINE.
FORMAT COLOR OFF.
WRITE:/1(105) SY-ULINE.
FORMAT COLOR 4.
READ TABLE IT_KONV WITH KEY KPOSN = IT_EKPO-EBELP.
IF SY-SUBRC = 0.
WRITE:/1 SY-VLINE,
(10) IT_KONV-KNUMV,
SY-VLINE,
(10) IT_KONV-KSCHL,
SY-VLINE,
(15) IT_KONV-KAWRT,
SY-VLINE,
(12) IT_KONV-KBETR,
SY-VLINE.
WRITE:/1(95) SY-ULINE.
FORMAT COLOR OFF.
ENDIF.
ENDIF.
ENDLOOP.
endform. " DISPLAY_SEC3
*& Form DISPLAY_SEC1
TO CALL TRANSACTION ME23
form DISPLAY_SEC1.
SET PARAMETER ID 'BES' FIELD IT_EKKO-EBELN.
CALL TRANSACTION 'ME23' AND SKIP FIRST SCREEN.
endform. " DISPLAY_SEC1
*& Form WRITE_HEADER
HEADER DISPLAY
form WRITE_HEADER.
FORMAT COLOR 3.
WRITE:/1 SY-VLINE,
(10) 'PUR.ORDER',
SY-VLINE,
(10) 'VENDOR',
SY-VLINE,
(15) 'NAME',
SY-VLINE,
(10) 'COMP.CODE',
SY-VLINE,
(15) 'COMP.DESC',
75 SY-VLINE.
WRITE:/1(75) SY-ULINE.
FORMAT COLOR OFF.
endform. " WRITE_HEADER
*& Form WRITE_FOOTER
FOOTER OF LIST
form WRITE_FOOTER.
FORMAT COLOR 4.
WRITE: /1 'USER:',SY-UNAME,
45 'DATE:', SY-DATUM.
FORMAT COLOR OFF.
endform. " WRITE_FOOTER
*& Form WRITE_HEADER2
HEADER FOR SECONDARY LIST
form WRITE_HEADER2.
FORMAT COLOR 4.
WRITE: /30 'INTELLIGROUP ASIA PVT LTD' CENTERED.
WRITE:/50 'HYDERABAD' CENTERED.
FORMAT COLOR 5.
WRITE:/1 SY-VLINE,
(10) 'PUR.ORDR',
SY-VLINE,
(10) 'ITEM',
SY-VLINE,
(18) 'MATERIAL NUMBER',
SY-VLINE,
(10) 'INFO.RECD',
SY-VLINE,
(15) 'QUANTITY',
SY-VLINE,
(10) 'UNITS',
SY-VLINE,
(12) 'NETPRICE',
105 SY-VLINE.
FORMAT COLOR OFF.
WRITE:/1(105) SY-ULINE.
FORMAT COLOR 6.
WRITE:/1 SY-VLINE,
(10) 'COND.RECD',
SY-VLINE,
(10) 'TYPE',
SY-VLINE,
(15) 'BASE VALUE',
SY-VLINE,
(12) 'AMOUNT',
SY-VLINE.
FORMAT COLOR OFF.
WRITE:/1(95) SY-ULINE.
endform. " WRITE_HEADER2
*& Form DISPLAY_SEC2
TO DISPLAY VENDOR DETAILS IN POP UP WINDOW
form DISPLAY_SEC2.
READ TABLE IT_LFA1 WITH KEY LIFNR = IT_EKKO-LIFNR.
IF SY-SUBRC = 0.
WRITE:/ 'NAME IS:' , IT_LFA1-NAME1,
/ 'STREET IS:', IT_LFA1-STRAS,
/ 'CITY IS:', IT_LFA1-ORT01,
/ 'POSTEL CODE IS:',IT_LFA1-PSTLZ,
/ 'COUNTRY IS: ', IT_LFA1-LAND1.
WINDOW STARTING AT 1 15
ENDING AT 50 20.
ENDIF.
endform. " DISPLAY_SEC2
*& Form VALIDATE
VALIDATE BUKRS
form VALIDATE.
SELECT SINGLE *
FROM T001
WHERE BUKRS IN S_BUKRS.
IF SY-SUBRC <> 0.
MESSAGE E001.
ENDIF.
endform. " VALIDATE
Thanks & regards
Sreenivasulu P -
How can i give two tcode in same program
Hi all,
How can I give two tcode to the same program in which two conditions call in that two t codes
how can I do so please help me for that.
Ketan
ABAP consultanthi,
In your case, if the calling of the two transactions is mutually exclusive,
then
IF
call transaction 'A'.
else.
Call transaction 'B'.
endif.
else,
if you need to call the transactions one after the other,
CALL TRANSACTION 'A'.
CALL TRANSACTION 'B'.
Thanks
Sharath
Maybe you are looking for
-
Variable number of arguments in C functions
Hello. I know how to achieve creating a function that accepts a variable number of arguments. For example: #include <stdio.h> #include <stdarg.h> int add (int x, ...); int main (int argc, const char * argv[]) int result = add(3, 5, 3, 7); printf("%d"
-
Ok I just did the stupidest thing in a long time. To make a long story short I placed a bunch of pictures (2071 to be exact) into the trash. And with out thinking I choose empty. So my pictures are gone. But are they truly gone or can they be recover
-
Extend System Simple Volume to Non-Contiguous Unallocated Space
Hi: I have a Windows Server 2008 R2 virtual machine for which I need to extend the system simple volume on a dynamic disk to non-contiguous unallocated space. I realize 2008 Disk Manager and diskpart cannot accomplish this but that some 3rd party to
-
Can I zoom into a picture and save it at that close up view?
-
Dear All, What are the steps to create the workflow for Goods Receipt notification without approval. How we can assign the standard WS10400010 -- Goods Receipt Workflow Without Approval. Regards, Rahul Singh