Get every update from standard transaction (PTMW)

Hi guys,
The main idea is to get an exit every time a user do updates or create new data.
any badi, rfc or something that can help me?
or do i need to search all the exits in the PTMW and search if the exit helps me?
tks in advance.

Hi,
For BADI definition use SE18 and for implementation SE19.
You want to check functionality of this BADI see documentaiton thru SE18.
BADI
aRs

Similar Messages

Is there any standard BAPI to update the standard transaction GS03 ?

Is there any standard BAPI to update the standard transaction GS03 ?
Moderator message: please do more research before asking, show what you have done yourself when asking.
[Rules of engagement|http://wiki.sdn.sap.com/wiki/display/HOME/RulesofEngagement]
[Asking Good Questions in the Forums to get Good Answers|/people/rob.burbank/blog/2010/05/12/asking-good-questions-in-the-forums-to-get-good-answers]
Edited by: Thomas Zloch on Jun 16, 2011 2:02 PM

hi,
I think this link will help you to find that.
list of all bapis:
http://www.planetsap.com/LIST_ALL_BAPIs.htm

How to get attribute value from standard page ?

Hi,
How to get attribute value from standard page ?
String str = (String)vo.getCurrentRow().getAttrbute("RunId");
But this value is returning a null value ....
Can anyone help me to get this attribute value which is actually having a actual value .

getCurrentRow() would always return null if no setCurrentRow() is used.
Please check the page design and understand how many rows of VO are there. You can also use the following to get the row:
vo.reset();
vo.next();
Regards
Sumit

Cannot get all updates from iTunes software

Hello. There is a strange problem.
Sometimes, when I open iTunes from my computer, a small number will be displayed after "Apps".
When I click the "Apps", I can also see that there are some updates available from the bottom link text.
But after I click that bottom link, I cannot get all programs which need to be update listed. When I update all listed, iTunes still says there are some apps to be updated, but when I click that bottom link, only a text "No updates are currently available. To check for updates for another Apple ID, sign in with that Apple ID."
At that time, I can get all updates from my iPhone - Apple Store. So all have to do, is update all apps from my iPhone and sync it back. But if some apps are not installed on this iPhone, I have no way to update it.
BTW, I've tried to click Store - Check for available downloads from iTunes on my computer. It's useless in this case.
Any solution? Thanks.

It think its a bug. I got the same results under MX 7.0.2.
The topic of maxrows recently came up on another thread. I
did some searching and according to TechNote 18339 there was a
change with maxrow
"<cfquery maxrows=N> bug. ColdFusion MX (until ColdFusion
MX 7.0.1 CHF2) didn't pass maxrows to the underlying driver
(statement.setMaxRows())"
Given the results you're getting, it sounds like CF is
applying the maxrow to all of the resultsets, not just the one
where maxrows was declared. I suspect cfstoredproc's usage of
statement.setMaxRows() is incorrect. Thats just a guess though.
Bottom line, I think you'll need handle it manually.
Personally, I would recommend placing the row count logic in the
stored procedure (if possible). The overall results will be more
consistent and you won't have to worry about this kind of issue
again.
http://www.adobe.com/cfusion/knowledgebase/index.cfm?id=tn_18339
http://livedocs.adobe.com/coldfusion/7/htmldocs/00000314.htm
http://www.remotesynthesis.com/blog/index.cfm/2006/3/23/Maxrows-Issue-in-CFQuery

If I reinstall my FCE 3.5 from the original discs, will I be able to get the updates from Apple?

System has begun crashing (dropping-windowshade, message to shut down computer) during attempted capture or render. Hardware has been checked out and is OK. Other OS functions seem to be working. I have a bootable clone from the most recent period of good function, and also my original install disc for FCE.
If I need to try reinstalling FCE, are the updates still available from Apple?
If I can't restore FCE 3.5, is there anything I can use with my OS 4.11 MBP that will be able to access my FCE 3.5 project files? My 3+TB of underwater clips, stored on external drives as QT movies?
Any guidance appreciated. This forum helped me out a lot when I first started - didn't expect the end to come so soon & hope there's a feasible workaround!
Thanks,
Sharron S.

If I reinstall my FCE 3.5 from the original discs, will I be able to get the updates from Apple?
Yes, via Software Update
Here is an article on how to Uninstall FCE HD You could also use FCS Remover (note there are different versions depending on what version of OS X you have - be sure to select the correct version)
If I can't restore FCE 3.5, is there anything I can use with my OS 4.11 MBP that will be able to access my FCE 3.5 project files?
- FCE project files - only usable with FCE or FCP. Not iMovie or FCP-X
- All your clips, however, can be used with almost anything including iMovie, FCP, FCP-X, QuickTime, etc.

After getting an update from 10.6.8 many of my programs were no longer able to open. How can I undo the update or solve this problem another way?

After getting an update from 10.6.8 many of my programs were no longer able to open. How can I undo the update or solve this problem another way?

Do you have a bootable clone from prior to the update? If so, roll back with that.
Are your apps that won't open PPC and do they need Rosetta? Do you need to activate Rosetta?
Have you considered reinstalling 10.6 from your install disc and then coming forward with the 10.6.8 Combo Updater, then doing software update and not including whatever it was you installed that caused this propblem?
By the way - what update was it that caused this problem?

Windows 2012 r2 not able to get windows updates from WSUS 2012 r2

One of our windows 2012 R2 server is not getting windows updates from WSUS 2012 R2 but other 2012 R2 are getting updates.
I found on windowsupdate log on the server saying "WARNING: Failed to get Network Cost info from NLM, assuming network is NOT metered, error = 0x80240037"
Not sure what is the issue.

I believe the warning isn't really relevant in this case. Could you post a recent section from the windowsupdate.log from that machine?
0x80240037 WU_E_NOT_SUPPORTED The functionality for the operation is not supported.

I made a new apple id and after that i cant get my updates from my iTunes on my pc. How can I do to get it back

I made a new apple id and after that i cant get my updates from my iTunes on my pc. How can I do to get it back

Sign out from the new Apple ID with iTunes on your computer and sign in with your old iTunes account with iTunes.

I'm having problems getting my updates from the App Store. Nothing is showing up.

I can't get my updates from the App Store . The screen is completely blank . Anyone have a solution ?

The update server is down; try this temporary workaround
App Store>Purchased>Select "All"
Note: Look out for apps that have the word "Update"
http://i1224.photobucket.com/albums/ee374/Diavonex/9c256282736869f322d4b3071bbb2 a82_zps51a6f546.jpg

How do i get my norton toolbar with firefox 21, it has all my user names and passwords. I have downloaded every update from Norton. Can I go back to 20?

automatic update disables norton toolbar. it has all usernames and passwords saved in it. Every time Firefox updates it is not compatible with Norton Toolbar. When will this patch be available. If not in the next day, how do i go back to firefox 20 which is compatible

The problem with Firefox updates is that before Comcast or Norton get their ducks in a row and get the Norton Toolbar working, there's another update from Firefox and we're back in the same boat.
Why can't these people work together with every update? I realize the browser is free, but if you want us to use it, it would be nice to get everything ready to work properly with the Norton Toolbar prior to updates. Firefox is a great tool, as is the Norton Toolbar, but tools are no good if we don't have the right ones.

Data retrival from standard transaction with in a report

hi all,
i have a requirement like i need to pass the selection screen selections to a standard transaction ca80 and need to get the material list from there to my report for furthur processing. is it possible with bdc or a bapi for this.
can anyone please help urgent its eating my brain. points awarded for solution
thanks in advance
anupama

hi deep kammula,
this is a sample code for your query just check. it may help you.
all the best.
reward me points if usefull.
Sample HR Reports - Allocate Petrol Allowance
Two ABAP HR Programs, which are interconnected, the first takes employee numbers which should not be given Petrol allowance and the other program gives the petrol allowance to employees.
FIRST PRG
REPORT ZPETROL_EXCLUDE                         .
TABLES SSCRFIELDS.
SELECTION-SCREEN BEGIN OF SCREEN 100.
SELECTION-SCREEN SKIP 9.
PARAMETERS NUMBER(200) TYPE C.
SELECTION-SCREEN SKIP 2.
SELECTION-SCREEN:
BEGIN OF LINE,
PUSHBUTTON 2(10) TEXT-001 USER-COMMAND PROC,
END OF LINE.
SELECTION-SCREEN END OF SCREEN 100.
CALL SCREEN 100.
AT SELECTION-SCREEN.
CASE SSCRFIELDS.
WHEN 'PROC'.
SET PARAMETER ID: 'NUM' FIELD NUMBER.
CALL TRANSACTION 'ZP_PALLOWANCE'.
LEAVE TO SCREEN 0.
ENDCASE.
SECOND PRG
REPORT ZPR_PETROL_ALLOWANCE NO STANDARD PAGE
HEADING                   .
*-- Infotypes
INFOTYPES : 0000, "Actions
            0002, "Personal Data
            0008. "Basic pay details
*-- Tables
TABLES : PERNR,   "Standard Selections for HR Master Data Reporting
         PC207,   "Payroll Results: Results Table
         PCL1,    "HR Cluster 1
         PCL2,    "HR Cluster 2
         T510,    "Pay scales
         T549A,   "Payroll areas
         T549Q,   "Payroll Periods
         PA0002. "Personal details
*-- Internal Tables
*-- Internal Table Declaration For Holding The Data
DATA: BEGIN OF INT_PETROL OCCURS 0,
        PERNR LIKE PA0008-PERNR,      "Personnel Number
        TRFST LIKE PA0008-TRFST,      "Pay Scale Level
        NAME(40),                     "Name of Employee
        PALLOWANCE TYPE P DECIMALS 2, "Petrol Allowance Amount
      END OF INT_PETROL.
DATA: BEGIN OF PA0015_DATA OCCURS 0,
        PERNR LIKE PA0015-PERNR,
        BETRG LIKE PA0015-BETRG,
      END OF PA0015_DATA.
DATA:BEGIN OF INT_PETROL2 OCCURS 0,
      PERNR LIKE PA0008-PERNR,      "Personnel Number
      VORNA LIKE PA0002-VORNA,      "First Name
      NACHN LIKE PA0002-NACHN,      "Last Name
      TRFST LIKE PA0008-TRFST,      "Pay Scale Level
      NAME(40),                     "Name of Employee
      PALLOWANCE TYPE P DECIMALS 2, "Petrol Allowance Amount
     END OF INT_PETROL2.
DATA : TITLE TYPE LVC_TITLE.
DATA: BEGIN OF PER_NO OCCURS 0,
        PERNR LIKE PA0008-PERNR,
        TRFST LIKE PA0008-TRFST,
       END OF PER_NO.
DATA: BEGIN OF MSG OCCURS 0,
      MSG1(100) TYPE C,
      END OF MSG.
DATA: FLAG TYPE I VALUE '0',
      DIS_FLAG TYPE I VALUE '0'.
DATA: INT_PETROL3 LIKE STANDARD TABLE OF INT_PETROL2 INITIAL SIZE 0
WITH HEADER LINE.
DATA: INT_PETROL1 LIKE STANDARD TABLE OF INT_PETROL INITIAL SIZE 0 WITH
HEADER LINE.
DATA: WA_PET_ALLOWANCE TYPE ZBPETROL_ALL.    "WORKAREA FOR INSERTING
VALUES.
*DATA: P_LGART1 LIKE T512T-LGART VALUE '0010'. "CHANGE WAGE TYPE HERE
DATA: P_LGART1 LIKE T512T-LGART VALUE '0077'. "CHANGE WAGE TYPE HERE
DATA: BEGIN OF INT_0015 OCCURS 0,
        PERNR(038),
        BEGDA(010),
        BETRG(018),
      END OF INT_0015.
*-- Internal Table To Store Error Records.
DATA: E_INT_0015 LIKE INT_0015 OCCURS 0 WITH HEADER LINE.
*-- Batch Input Data of Single Transaction
DATA: BDCDATA LIKE BDCDATA OCCURS 0 WITH HEADER LINE.
*-- Internal Table For Export and Import Payroll Results
DATA: INT_RGDIR LIKE PC261 OCCURS 0 WITH HEADER LINE,
      LGTXT LIKE T512T-LGTXT.
DATA: BEGIN OF EMP_NO OCCURS 0,
        PERNR(4) TYPE C,
      END OF EMP_NO.
DATA: BEGIN OF EMP_NO1 OCCURS 0,
        PERNR TYPE I,
      END OF EMP_NO1.
DATA EMPNO LIKE STANDARD TABLE OF EMP_NO INITIAL SIZE 0.
DATA EMPNO1 LIKE STANDARD TABLE OF EMP_NO1 INITIAL SIZE 0 WITH HEADER
LINE.
DATA LEN1 TYPE I.
DATA: ERR LIKE MESSAGE.
DATA TEMP_NUM(200) TYPE C.
*-- Includes
*-- International Include
INCLUDE RPC2CD09. "Cluster CD data definition
INCLUDE RPC2CA00. "Cluster CA Data-Definition
INCLUDE RPPPXD00. "Data Definition buffer PCL1/PCL2 Buffer INCLUDE RPPPXD10.
"Common part buffer PCL1/PCL2 INCLUDE RPPPXM00. "Buffer Handling routine
*-- Country Specific Include
INCLUDE PC2RXIN0. "Cluster IN data definition
INCLUDE RPC2RX09.
*-- ALV Declaration
TYPE-POOLS : SLIS.
DATA: INT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
      INT_EVENTS TYPE SLIS_T_EVENT,
      INT_LAYOUT TYPE SLIS_LAYOUT_ALV,
      WS_EVENTS TYPE SLIS_ALV_EVENT,
      WS_REPID LIKE SY-REPID.
*-- Initialization
INITIALIZATION.
WS_REPID = SY-REPID.
*-- At Selection-Screen
START-OF-SELECTION.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(30) TEXT-002.
SELECTION-SCREEN POSITION 33.
PARAMETERS: P_RATE TYPE P DECIMALS 2.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-003.
SELECTION-SCREEN BEGIN OF BLOCK B3.
PARAMETERS: P_UPLOAD AS CHECKBOX,
              P_FG RADIOBUTTON GROUP G1,
              P_BG RADIOBUTTON GROUP G1.
SELECTION-SCREEN END OF BLOCK B3.
SELECTION-SCREEN BEGIN OF BLOCK B4.
PARAMETERS: P_DI AS CHECKBOX.
SELECTION-SCREEN END OF BLOCK B4.
SELECTION-SCREEN END OF BLOCK B2.
AT SELECTION-SCREEN.
*-- Wate Type Text
SELECT SINGLE LGTXT INTO LGTXT FROM T512T WHERE SPRSL = 'E' AND
                                  MOLGA = '40' AND LGART = P_LGART1 .
*-- Data Retrieval From Logical Database PNP
GET PERNR.
PROVIDE PERNR FROM P0000 VORNA NACHN FROM P0002 BETWEEN PN-BEGDA AND
PN-ENDDA.
    INT_PETROL1-PERNR = P0000-PERNR.
    CONCATENATE P0002-VORNA P0002-NACHN INTO INT_PETROL1-NAME SEPARATED
BY SPACE.
ENDPROVIDE.
*-- Clear Data
CLEAR: RGDIR, INT_RGDIR.
REFRESH: RGDIR, INT_RGDIR.
*-- Read All The Payroll Runs For An Employee
CD-KEY-PERNR = PERNR-PERNR.
RP-IMP-C2-CU.
CHECK RP-IMP-CD-SUBRC EQ 0.
*-- Clear Data
REFRESH: RT.
Read IN Cluster.
LOOP AT RGDIR WHERE FPBEG >= PN-BEGDA AND FPEND <= PN-ENDDA.
    MOVE-CORRESPONDING RGDIR TO INT_RGDIR.
    APPEND INT_RGDIR.
    CLEAR INT_RGDIR.
ENDLOOP.
Read the last record.
SORT INT_RGDIR BY SEQNR DESCENDING.
READ TABLE INT_RGDIR INDEX 1.
RX-KEY-SEQNO = INT_RGDIR-SEQNR.
RX-KEY-PERNR = PERNR-PERNR.
RP-IMP-C2-IN.
CHECK RP-IMP-IN-SUBRC EQ 0.
READ TABLE RT WITH KEY LGART = P_LGART1.
IF SY-SUBRC = 0.
    INT_PETROL1-PALLOWANCE = RT-BETRG.
ENDIF.
APPEND INT_PETROL1.
CLEAR INT_PETROL1.
SELECT TRFST PERNR
INTO CORRESPONDING FIELDS OF TABLE PER_NO
FROM PA0008
WHERE TRFST LIKE 'L%'
AND BET01 > 0.
SORT PER_NO.
DELETE ADJACENT DUPLICATES FROM PER_NO.
*-- END-OF-SELECTION.
END-OF-SELECTION.
LOOP AT INT_PETROL1.
    READ TABLE PER_NO WITH KEY PERNR = INT_PETROL1-PERNR.
    IF SY-SUBRC = 0.
      INT_PETROL-TRFST = PER_NO-TRFST.
      MODIFY INT_PETROL1 FROM INT_PETROL TRANSPORTING TRFST.
    ENDIF.
ENDLOOP.
SORT INT_PETROL1.
DELETE ADJACENT DUPLICATES FROM INT_PETROL1.
CONCATENATE 'From' ' : ' PN-BEGDA6(2) '.' PN-BEGDA4(2) '.' PN-
BEGDA+0(4)
'   To' ' : ' PN-ENDDA6(2) '.' PN-ENDDA4(2) '.' PN-ENDDA+0(4)
INTO TITLE.
IF P_DI = 'X'.    "TO DISPLAY PETROL ALLOWANCE ONLY
    IF PNPTIMRA = 'X'.      "CHECK OTHER PERIOD CHECKED
      DIS_FLAG = 1.
    ENDIF.
    IF PNPTIMR9 = 'X'.    "CHECK TO SEE CURRENT PERIOD SELECTED
CASES - NO RATE GIVEN, RATE GIVEN
CURRENT PERIOD UPLOADED BUT PAYROLL NOT WRITTEN SO NO RESULT FROM LDB
        SELECT RATE INTO P_RATE FROM ZBPETROL_ALL WHERE BEGDA = PN- BEGDA AND ENDDA = PN-ENDDA.
        ENDSELECT.
        IF SY-DBCNT = 0.
          MESSAGE I455(0) WITH 'NO PETROL RATE EXSISTS'.
        ELSE.
          FLAG = 1.
        ENDIF. "OF SY-DBCNT
      IF P_RATE > 0 AND FLAG = 1. " PETROL RATE EXSISTS.
        SELECT PERNR SUM( BETRG ) INTO TABLE PA0015_DATA
        FROM PA0015
        WHERE BEGDA BETWEEN PN-BEGDA AND PN-ENDDA
        GROUP BY PERNR.
        SELECT APERNR ATRFST BVORNA BNACHN
        INTO CORRESPONDING FIELDS OF TABLE INT_PETROL3
        FROM PA0008 AS A
        INNER JOIN PA0002 AS B ON BPERNR = APERNR
        WHERE A~TRFST LIKE 'L%'
        AND A~BET01 > 0.
        SORT INT_PETROL3.
        DELETE ADJACENT DUPLICATES FROM INT_PETROL3.
        REFRESH INT_PETROL1.
        LOOP AT INT_PETROL3 INTO INT_PETROL2.    "loop to transport
employee name
          CONCATENATE INT_PETROL2-VORNA INT_PETROL2-NACHN INTO
INT_PETROL2-NAME SEPARATED BY SPACE.
          MODIFY INT_PETROL3 FROM INT_PETROL2 TRANSPORTING NAME.
        ENDLOOP.
        LOOP AT INT_PETROL3 INTO INT_PETROL2.    "loop to transport
one
table to another table
          READ TABLE PA0015_DATA WITH KEY PERNR = INT_PETROL2-PERNR.
          IF SY-SUBRC = 0.
            INT_PETROL-PERNR = INT_PETROL2-PERNR.
            INT_PETROL-TRFST = INT_PETROL2-TRFST.
            INT_PETROL-NAME = INT_PETROL2-NAME.
            INT_PETROL-PALLOWANCE = PA0015_DATA-BETRG.
            APPEND INT_PETROL TO INT_PETROL1.
          ENDIF.
        ENDLOOP.
        DIS_FLAG = 1.
      ENDIF. "P_RATE > 0 AND FLAG = 1.
      IF P_RATE > 0 AND FLAG = 0. "CURRENT PERIOD AND DATA NOT UPLOADED
        SELECT APERNR ATRFST BVORNA BNACHN
        INTO CORRESPONDING FIELDS OF TABLE INT_PETROL3
        FROM PA0008 AS A
        INNER JOIN PA0002 AS B ON BPERNR = APERNR
        WHERE A~TRFST LIKE 'L%'
        AND A~BET01 > 0.
        SORT INT_PETROL3.
        DELETE ADJACENT DUPLICATES FROM INT_PETROL3.
        REFRESH INT_PETROL1.
        LOOP AT INT_PETROL3 INTO INT_PETROL2.    "loop to transport
employee name
          CONCATENATE INT_PETROL2-VORNA INT_PETROL2-NACHN INTO
INT_PETROL2-NAME SEPARATED BY SPACE.
          MODIFY INT_PETROL3 FROM INT_PETROL2 TRANSPORTING NAME.
        ENDLOOP.
        PERFORM GET_VALUE. "TO CONVERT THE FIRST SCREEN PERNR INTO
NUMBER FORMATE
        LOOP AT INT_PETROL3 INTO INT_PETROL2.    "loop to transport
one
table to another table
          READ TABLE EMPNO1 WITH KEY PERNR = INT_PETROL2-PERNR.
          IF SY-SUBRC <> 0.
            INT_PETROL-PERNR = INT_PETROL2-PERNR.
            INT_PETROL-TRFST = INT_PETROL2-TRFST.
            INT_PETROL-NAME = INT_PETROL2-NAME.
            APPEND INT_PETROL TO INT_PETROL1.
          ENDIF.
        ENDLOOP.
        PERFORM CAL_ALLOWANCE.
      ENDIF. " OF P_RATE > 0
      DIS_FLAG = 1.
    ENDIF. " OF CURRENT PERIOD CHECK.
ENDIF. " OF CHECK DISPLAY.
*----BDC
IF P_UPLOAD = 'X'.
    IF PNPTIMRA = 'X'.      "CHECK OTHER PERIOD CHECKED
      MESSAGE I455(0) WITH 'Petrol Allowance cannot be uploaded'.
      LEAVE SCREEN.
    ENDIF.
    IF P_RATE > 0.
     IF P_RATE > 0 OR P_RATE = 0.
      IF PNPTIMR9 = 'X'.    "CHECK TO SEE CURRENT PERIOD SELECTED
        WA_PET_ALLOWANCE-BEGDA = PN-BEGDA.
        WA_PET_ALLOWANCE-ENDDA = PN-ENDDA.
        WA_PET_ALLOWANCE-RATE = P_RATE.
        WA_PET_ALLOWANCE-CURR = 'INR'.
        INSERT INTO ZBPETROL_ALL VALUES WA_PET_ALLOWANCE.
        SELECT A~PERNR A~TRFST B~VORNA B~NACHN
        INTO CORRESPONDING FIELDS OF TABLE INT_PETROL3
        FROM PA0008 AS A
        INNER JOIN PA0002 AS B ON B~PERNR = A~PERNR
        WHERE A~TRFST IN ('L1' , 'L2' , 'L3')
        AND A~BET01 > 0.
        SORT INT_PETROL3.
        DELETE ADJACENT DUPLICATES FROM INT_PETROL3.
        REFRESH INT_PETROL1.
        LOOP AT INT_PETROL3 INTO INT_PETROL2.    "loop to transport
employee name
          CONCATENATE INT_PETROL2-VORNA INT_PETROL2-NACHN INTO
INT_PETROL2-NAME SEPARATED BY SPACE.
          MODIFY INT_PETROL3 FROM INT_PETROL2 TRANSPORTING NAME.
        ENDLOOP.
        PERFORM GET_VALUE. "TO CONVERT THE FIRST SCREEN PERNR INTO
NUMBER FORMATE
        LOOP AT INT_PETROL3 INTO INT_PETROL2.    "loop to transport
one
table to another table
          READ TABLE EMPNO1 WITH KEY PERNR = INT_PETROL2-PERNR.
          IF SY-SUBRC <> 0.
            INT_PETROL-PERNR = INT_PETROL2-PERNR.
            INT_PETROL-TRFST = INT_PETROL2-TRFST.
            INT_PETROL-NAME = INT_PETROL2-NAME.
            APPEND INT_PETROL TO INT_PETROL1.
          ENDIF.
        ENDLOOP.
        PERFORM CAL_ALLOWANCE.
        DIS_FLAG = 1.
        SORT INT_PETROL1.
        LOOP AT INT_PETROL1.
          MOVE: INT_PETROL1-PERNR TO INT_0015-PERNR,
          INT_PETROL1-PALLOWANCE TO INT_0015-BETRG.
          CONCATENATE PN-ENDDA6(2) PN-ENDDA4(2) PN-ENDDA+0(4) INTO
INT_0015-BEGDA SEPARATED BY '.'.
          APPEND INT_0015.
          CLEAR INT_0015.
        ENDLOOP.
        LOOP AT INT_0015.
          PERFORM F_BDCDATA.
          IF P_FG = 'X'.
            CALL TRANSACTION 'PA30' USING BDCDATA MODE 'A' UPDATE 'S'.
          ELSE.
            CALL TRANSACTION 'PA30' USING BDCDATA MODE 'N' UPDATE 'S'.
          ENDIF.
*-- Handling Error records.
          IF SY-SUBRC <> 0.
*-- Handling Error Messages
            PERFORM ERROR_MSG.
            MOVE-CORRESPONDING INT_0015 TO E_INT_0015.
            APPEND E_INT_0015.
            CLEAR E_INT_0015.
          ENDIF.
          REFRESH BDCDATA.
        ENDLOOP.
*-- Downloading Error Records.
        CALL FUNCTION 'GUI_DOWNLOAD'
          EXPORTING
            FILENAME = 'C:\Errors.Txt'
            FILETYPE = 'ASC'
          TABLES
            DATA_TAB = E_INT_0015.
*-- Downloading Error Messages.
        CALL FUNCTION 'GUI_DOWNLOAD'
          EXPORTING
            FILENAME = 'C:\Err_Msg.Txt'
            FILETYPE = 'ASC'
          TABLES
            DATA_TAB = MSG.
      ENDIF. " FOR CURRENT PERIOD
ENDIF.
    ELSE.
      MESSAGE I455(0) WITH 'Enter Petrol Rate'.
      LEAVE TO SCREEN 0.
    ENDIF.    " FOR PETROL RATE
ENDIF.    " FOR UPLOAD
IF DIS_FLAG = 1.
    INT_LAYOUT-SUBTOTALS_TEXT = TEXT-004.
    INT_LAYOUT-TOTALS_TEXT = TEXT-004.
    INT_LAYOUT-ZEBRA = 'X'.
    PERFORM FILL_FIELDCAT.
    PERFORM GET_EVENTS_ALV.
    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
      EXPORTING
        I_CALLBACK_PROGRAM = WS_REPID
        IS_LAYOUT          = INT_LAYOUT
        IT_FIELDCAT        = INT_FIELDCAT[]
        I_DEFAULT          = 'X'
        I_SAVE             = 'X'
        IT_EVENTS          = INT_EVENTS
      TABLES
        T_OUTTAB           = INT_PETROL1
      EXCEPTIONS
        PROGRAM_ERROR      = 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.
ENDIF.
*&      Form GET_VALUE
      text
FORM GET_VALUE.
GET PARAMETER ID: 'NUM' FIELD TEMP_NUM.
IF TEMP_NUM <> ''.
    LEN1 = STRLEN( TEMP_NUM ).
    PERFORM GET_PERNR.
    APPEND TEMP_NUM TO EMPNO.
    LOOP AT EMPNO INTO EMP_NO.
      CALL FUNCTION 'CHECK_AND_CONVERT_NUMERICS'
      EXPORTING
    DFELD              = ' '
        DMZEI              = ','
        DTYPE              = 'STRING'
    DYPNO              = ' '
        EFELD              = EMP_NO-PERNR
    FNAME              = ' '
    PROGR              = ' '
    IMP_DECIMALS       = '0'
      IMPORTING
    ERROR              =
       IFELD              = EMP_NO1-PERNR
       MESSG              = ERR
    MSGLN              =
      IF ( ERR-MSGID = '' ).
        APPEND EMP_NO1 TO EMPNO1.
        CLEAR EMP_NO1-PERNR.
      ELSE.
        MESSAGE I455(0) WITH 'Could not convert employee number'.
        LEAVE TO SCREEN 0.
      ENDIF.
    ENDLOOP.
ENDIF.
ENDFORM.                    "GET_VALUE
*&      Form GET_PERNR
      text
FORM GET_PERNR.
SPLIT TEMP_NUM AT ',' INTO EMP_NO TEMP_NUM.
APPEND EMP_NO TO EMPNO.
CLEAR EMP_NO.
SEARCH TEMP_NUM FOR ','.
IF SY-SUBRC = 0.
    PERFORM GET_PERNR.
ENDIF.
ENDFORM.                    "GET_PERNR
*&      Form ERROR_MSG
      text
--> p1        text
<-- p2        text
FORM ERROR_MSG.
IF SY-SUBRC <> 0.
    CALL FUNCTION 'FORMAT_MESSAGE'
      EXPORTING
        LANG = SY-LANGU
      IMPORTING
        MSG = MSG-MSG1.
    APPEND MSG.
    CLEAR MSG.
ENDIF.
ENDFORM.                    "ERROR_MSG
*&      Form F_BDCDATA
      text
FORM F_BDCDATA.
PERFORM BDC_DYNPRO      USING 'SAPMP50A' '1000'.
PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                '=INS'.
PERFORM BDC_FIELD       USING 'RP50G-PERNR'
                                INT_0015-PERNR.
PERFORM BDC_FIELD       USING 'RP50G-TIMR6'
                                'X'.
PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                'RP50G-CHOIC'.
PERFORM BDC_FIELD       USING 'RP50G-CHOIC'
                                '0015'.
PERFORM BDC_DYNPRO      USING 'MP001500' '2000'.
PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                'Q0015-BETRG'.
PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                '/00'.
PERFORM BDC_FIELD       USING 'P0015-LGART'
                                '0077'.        "CHANGE WAGE TYPE HERE
ALSO
PERFORM BDC_FIELD       USING 'Q0015-BETRG'
                                INT_0015-BETRG.
PERFORM BDC_FIELD       USING 'P0015-WAERS'
                                'INR'.
PERFORM BDC_FIELD       USING 'P0015-BEGDA'
                                 INT_0015-BEGDA.
PERFORM BDC_DYNPRO      USING 'MP001500' '2000'.
PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                'P0015-LGART'.
PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                '=UPD'.
PERFORM BDC_FIELD       USING 'P0015-LGART'
                                '0077'.       "CHANGE WAGE TYPE HERE
ALSO
PERFORM BDC_FIELD       USING 'Q0015-BETRG'
                                INT_0015-BETRG.
PERFORM BDC_FIELD       USING 'P0015-WAERS'
                                'INR'.
PERFORM BDC_FIELD       USING 'P0015-BEGDA'
                                INT_0015-BEGDA.
ENDFORM.                    "F_BDCDATA
*&      Form BDC_DYNPRO
      text
     -->P_0732   text
     -->P_0733   text
FORM BDC_DYNPRO USING    VALUE(P_0732) TYPE C
                          VALUE(P_0733) TYPE C.
CLEAR BDCDATA.
BDCDATA-PROGRAM = P_0732.
BDCDATA-DYNPRO   = P_0733.
BDCDATA-DYNBEGIN = 'X'.
APPEND BDCDATA.
ENDFORM.                    " BDC_DYNPRO
*&      Form BDC_FIELD
      text
     -->P_0755   text
     -->P_0756   text
FORM BDC_FIELD USING    VALUE(P_0755) TYPE C
                         VALUE(P_0756) TYPE C.
CLEAR BDCDATA.
BDCDATA-FNAM = P_0755.
BDCDATA-FVAL = P_0756.
APPEND BDCDATA.
ENDFORM.                    " BDC_FIELD
*&      Form CAL_ALLOWANCE
      text
FORM CAL_ALLOWANCE.
LOOP AT INT_PETROL1 INTO INT_PETROL.
    IF INT_PETROL-TRFST = 'L1'.
      INT_PETROL-PALLOWANCE = P_RATE * 100.   "CHANGE TO SELECT WHEN
DISPLAY
    ELSEIF INT_PETROL-TRFST = 'L2'.
      INT_PETROL-PALLOWANCE = P_RATE * 150.
    ELSEIF INT_PETROL-TRFST = 'L3'.
      INT_PETROL-PALLOWANCE = P_RATE * 150.
    ELSEIF INT_PETROL-TRFST = 'L4'.
INT_PETROL-PALLOWANCE = P_RATE * 200.
    ELSEIF INT_PETROL-TRFST = 'L5'.
INT_PETROL-PALLOWANCE = P_RATE * 250.
    ENDIF.
    MODIFY INT_PETROL1 FROM INT_PETROL TRANSPORTING PALLOWANCE.
ENDLOOP.
ENDFORM.                    "CAL_ALLOWANCE
*&      Form FILL_FIELDCAT
      text
--> p1        text
<-- p2        text
FORM FILL_FIELDCAT.
INT_FIELDCAT-COL_POS = 1.
INT_FIELDCAT-TABNAME = 'INT_PETROL1'.
INT_FIELDCAT-FIELDNAME = 'PERNR'.
INT_FIELDCAT-SELTEXT_L = TEXT-005.
INT_FIELDCAT-OUTPUTLEN = 10.
INT_FIELDCAT-KEY = 'X'.
APPEND INT_FIELDCAT.
CLEAR INT_FIELDCAT.
INT_FIELDCAT-COL_POS = 2.
INT_FIELDCAT-TABNAME = 'INT_PETROL1'.
INT_FIELDCAT-FIELDNAME = 'NAME'.
INT_FIELDCAT-SELTEXT_L = TEXT-006.
INT_FIELDCAT-OUTPUTLEN = 25.
INT_FIELDCAT-KEY = 'X'.
APPEND INT_FIELDCAT.
CLEAR INT_FIELDCAT.
INT_FIELDCAT-COL_POS = 3.
INT_FIELDCAT-TABNAME = 'INT_PETROL1'.
INT_FIELDCAT-FIELDNAME = 'TRFST'.
INT_FIELDCAT-SELTEXT_L = TEXT-007.
INT_FIELDCAT-OUTPUTLEN = 5.
INT_FIELDCAT-KEY = 'X'.
APPEND INT_FIELDCAT.
CLEAR INT_FIELDCAT.
INT_FIELDCAT-COL_POS = 4.
INT_FIELDCAT-TABNAME = 'INT_PETROL1'.
INT_FIELDCAT-FIELDNAME = 'PALLOWANCE'.
INT_FIELDCAT-SELTEXT_L = TEXT-008.
INT_FIELDCAT-OUTPUTLEN = 16.
INT_FIELDCAT-KEY = 'X'.
APPEND INT_FIELDCAT.
CLEAR INT_FIELDCAT.
ENDFORM.                    " FILL_FIELDCAT
*&      Form GET_EVENTS_ALV
      text
--> p1        text
<-- p2        text
FORM GET_EVENTS_ALV.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      I_LIST_TYPE     = 1
    IMPORTING
      ET_EVENTS       = INT_EVENTS[]
    EXCEPTIONS
      LIST_TYPE_WRONG = 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.
READ TABLE INT_EVENTS INTO WS_EVENTS WITH KEY NAME =
SLIS_EV_TOP_OF_PAGE.
IF SY-SUBRC = 0.
    WS_EVENTS-FORM = 'TOP'.
    MODIFY INT_EVENTS FROM WS_EVENTS INDEX SY-TABIX.
ENDIF.
ENDFORM.                    " GET_EVENTS_ALV
*&      Form TOP-OF-PAGE
      text
FORM TOP.
*-- ALV Declarations
DATA: WS_HEADER TYPE SLIS_T_LISTHEADER,
        WA_HEADER TYPE SLIS_LISTHEADER.
*-- Title
WA_HEADER-TYP = 'H'.
WA_HEADER-INFO = TEXT-009.
APPEND WA_HEADER TO WS_HEADER.
CLEAR WA_HEADER.
WA_HEADER-TYP = 'H'.
WA_HEADER-INFO = TITLE.
APPEND WA_HEADER TO WS_HEADER.
CLEAR WA_HEADER.
WA_HEADER-TYP = 'H'.
WA_HEADER-INFO = ' '.
APPEND WA_HEADER TO WS_HEADER.
CLEAR WA_HEADER.
WA_HEADER-TYP = 'H'.
WA_HEADER-INFO = ' '.
APPEND WA_HEADER TO WS_HEADER.
CLEAR WA_HEADER.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      IT_LIST_COMMENTARY = WS_HEADER
      I_LOGO             = 'LOGO'.
ENDFORM.                    "TOP-OF-PAGE
regards
karthik
Edited by: KARTIKEYA (EDS-VZG) on May 5, 2008 1:41 PM

Data retrival from standard transaction

hi all,
i have to get the material list from stadard t-code ca80 i have debugged the program and the whole material list is in tmapl internal table so if any one can find me a solution thats ll be very helpful. and points are rewarded
thanks in advance
anupama

hi,
You can call transaction and send the data to it.
call transaction mm01 and skip first screen.
set parameter ID 'MAT' FIELD P_matnr.
Here you are passin gthe selection screen parameters to the standard transaction MM01 and skip the screen..
you start recording like in BDC and execute it here.
so you will be having the data in the internal table that you can update in the Database table.
Regards,
Madhavi

Calling custom dialog screen from Standard Transaction(user Exit)

Hi, I'm calling Standard Transaction from a Custom Screen. I'm calling a custom screen again with in standard transaction (implemented custom screen thru user exits using macros). But when I click 'continue/cancel' in the custom screen, control is going back to main cutom screen rather go back to standard transaction. Could anyone please help me out how to come back to standard transaction from custom screen rather going back to main cutom screen.
***INCLUDE LZ_R_FORWARD_FORWARD_LOADI01 .
*&      Module USER_COMMAND_9000 INPUT
MODULE user_command_9000 INPUT.
CASE sy-ucomm.
    WHEN 'EXEC'.
      PERFORM validate_popup_data.
      IF flag_error_screen NE 'X'.
        MOVE-CORRESPONDING ZFFL_POPUP to var_ZFFL_POPUP.
        clear flag_return.
        SET SCREEN 0.
        LEAVE SCREEN.
      ENDIF.
    WHEN 'CANC'.
      flag_return = 'X'.
      SET SCREEN 0.
      LEAVE SCREEN.
    WHEN OTHERS.
ENDCASE.
ENDMODULE.                 " USER_COMMAND_9000 INPUT
*&      Module exit_9000 INPUT
MODULE exit_9000 INPUT.
CASE sy-ucomm.
    WHEN 'CANC'.
*      MOVE perf_flag TO lbpla_exist_flag.
      flag_return = 'X'.
      SET SCREEN 0.
      LEAVE SCREEN.
ENDCASE.
ENDMODULE.                 " exit_9000 INPUT
Thanks in advance.

Hi
So the command SET SCREEN 0. LEAVE SCREEN. should "place" the program just after the calling of the popup so here:
FUNCTION z_call_screen.
* Call the Pop up screen
    CALL SCREEN 9000 STARTING AT 35 05.
"<------------------------- The program should be here after going back from popup 9000
ENDFUNCTION.
Is it true?
Max

COPY INFORMATION BUTTON FROM STANDARD TRANSACTION

Hi!
I want to copy the selection screen from the standard transaction QA07, and also I want to copy the information button that appers next to the excecution button.
How can I copy that information button????
Thanks a lot!!!!

The report RQAAAS10 has the documentation and because of that documentation, the information button is coming on the QA07.
To copy this documentation:
Go to SE63
R3 Objects > Long Texts
Select the L5 > RE ( Reports, Function Groups, Logical Databases) node form the popup
Enter Report RQAAAS10
Select your languages and press Edit.
Select the Fullscreen Button.
Form the Fullscreen.. Text > Download.
Now, in your program upload this documentation.
By selecting the Text > Upload in the documentation section.
Regards,
Naimesh Patel

Point a client to get software updates from the local OS X Server

I have an OS X Server that's serving only clients as a File Share device that I would like to use for Software Updates. There are three Mac Clients and a bunch of iOS clients. How do I use Software updates from the Server? I read the instructions on configuration but have the following questions:
Where do I find the correct port and catalog file name?
The instruction specify a port of 8088 and a catalog of 'index.sucatalog" in the example. Is this always the case?
I can write to the .plist specified but cannot read from it (get an error). I can see that the file has been written and the data is correct. What's wrong?

Apple's Software Update Server only provides updates for Apple Mac software. It does not provide updates for Mac Applications via the AppStore nor does it provide any updates for iOS devices.
Apple's Caching Server works differently. When a Mac or iOS device on your network requests an update from either the Mac AppStore or the iOS AppStore this will then be 'cached' on the server so that next time a device requests the same update it is available locally.
The URL for a local Software Update Server would be of the form
http://server.domain.com:8088/index.sucatalog
This would be written on a client Mac as follows
sudo defaults write /Library/Preferences/com.apple.SoftwareUpdate CatalogURL http://server.domain.com:8088/index.sucatalog
It would be read on a client Mac as follows
defaults read /Library/Preferences/com.apple.SoftwareUpdate CatalogURL
Note: Older versions of OS X had a version of the defaults command which did not like you including the file extension of the plist file so in the past the following would fail.
defaults read /Library/Preferences/com.apple.SoftwareUpdate.plist CatalogURL

Get every update from standard transaction (PTMW)

Similar Messages

Maybe you are looking for