Read standard mesage with value

hi frnd.
         i have a requirement.After a standard trnsaction 'tm_51' data save to standard table VTBFHAZU with unique field RFHA FIELD(FINANCIAL TRANSACTION).I have to store the uniue field's value after each transaction to ztable.As there is no effective exit /badi. so i need to capture the data from message genarated after standard transaction.
ex.message showing :-- transaction 10000011 created.
                                                                          i need to capture '10000011' value. Is it possible to capture messge value genarated after transaction.
                PLS HELP ME
                REGARD SUDIP.

I CREATED A REPORT WHERE I CALL STANDARD TRANSACTION 'TM_51'.AFTER THAT I HAVE TO COLLECT THE MESSAGE VALUE..BUT WHEN I USING ; format_message' fm for sy-msgid,sy-msgnr,sy-msgtyp,sy-msgv1,v2,v3,v4..it gives the details of my zreport not for standard transaction 'TM_51'...
....HOW TO GET details for 'tm_51'.

Similar Messages

How to read a file with value of RAW data type? Please help

Hi Experts,
   I have a file with RAW data like DE864E48833BFFF1B805001CC4EF4BFA
   I am using GUI_UPLOAD.
   But this FM is throwing error.
   I tried by giving FILETYPE as ASC. The output internal table for this FM contains a field of type c size 32.
   Now it is able to read the file but I want to assign this value to a RAW data type variable.
   This it is unable to do. How to convert the char value to RAW data type?
Please help!
Thanks
Gopal

Hi,
The documentation for the function module contains an example for RAW upload.
            begin of itab,
                  raw(255) type x,
            end of itab occurs 0.
           CALL FUNCTION 'GUI_UPLOAD'
           exporting
              filetype = 'BIN'
              filename = 'C:\DOWNLOAD.BIN'
           tables
             data_tab = itab.

CO-PA Cost Component do not match with Standard Cost Component Values

Dear Members,
The CO-PA Cost Components (as mapped through KE4R), do not match with Standard Cost Component values for the Group Currency. In local currency the values match.
System is correctly picking up VPRS value, both in local currency and Group Currency, which is equal to the total of Standard Cost Components however, it is the Value Fields linked to the Standard Cost Components in Group Currency that do not match.
In KE40, the Indicator is 4:Released Standard Cost Estimate matching Goods issue Date.
I have verified KEPH/CKMLPKEPH tables. The values are same as that of VPRS.
Any help/clues?
Regards
Satya

Hi,
In case of billing documents the group valuation approach is managed in the data structures of the legal valuation in additional value fields. To control costs and revenues in the different views separately, you must create additional value fields and assign them to the data structures.
The field contents must be filled via the CO-PA user exit, they cannot be entered by assigning conditions to value fields. The profit center valuation is updated in a separate ledger. No separate value fields are necessary.
The exit to be used is function module 'EXIT_SAPLKEII_002' ( enhancement COPA0005 ). Within the exit you have the complete SD data avaialble in the tables 'T_ACCIT' and 'T_ACCCR'. The conditions can be found in T_ACCIT and the corresponding values ( linked via 'POSNR' ) in table T_ACCCR. The PA line item and the corresponding SD item in table ACCIT
can be mapped via the line item field 'RPOSN' and the field 'POSNR_SD' in table ACCIT.
regards
Waman

I would like to know how i can create a bell graph with out using sub VIs, the data that i created consists in 500 readings with values of 0 to 100, i calculated the mean value and standard diviation. I hope some one can help me

I would like to know how i can create a bell graph with out using sub VIs, the data that i created consists in 500 readings with values of 0 to 100, i calculated the mean value and standard diviation. I hope some one can help me

Here's a quick example I threw together that generates a sort-of-bell-curve shaped data distribution, then performs the binning and plotting.
-Kevin P.
Message Edited by Kevin Price on 12-01-2006 02:42 PM
Attachments:
Binning example.vi ‏51 KB
Binning example.png ‏12 KB

XML FORM - How to save read-only controls with a default value

Hello everybody,
I have a 3 xml forms, each one to create one type of news. I need to use 3 because each of this forms has their own controls. But the control which indicates the type of news (asociated with a KM Predefined Property) must be common in the 3 forms, in order to use it on searches.
The question is, how can I include in this forms a control:
- Visible for the user
- With a default value defined in the control properties (each form has a different value, corresponding with the type of news)
- Read-only mode
- The value showed in the control must be saved in the associated KM Predefined Property when the user clicks the Save button.
Anyone knows how to do this?
What control can I use?
I was thinking of trying with text boxes, but I don't find the way to make them unwritable (Read only mode).
It is posible using labels?
Thanks.
Kind regards

Hello Jose,
I know you responded with a question... I see it in the email, but I don't see it here! Very odd... but in response:
The first thing I do when I open the Edit.xsl file is do a 'find' for the name of the text field that I want to be read-only (in my test case, it's 'location'). Repeat the find until you see something like:
[code][/code]
Below there is where I put the new code. Mine looks like this:
[code]- <xsl:choose>
- <xsl:when test="location='' and ($editmode='create')">
- <xsl:choose>
- <xsl:when test="./xf:ValidationError/@tagname='location'">
- <input name="location" size="30" type="text" class="urEdfiTxtEnbl" id="field_1157467268006">
- <xsl:attribute name="tabindex">
- <xsl:choose>
<xsl:when test="$accessibilitymode='true'">21</xsl:when>
<xsl:otherwise>3792</xsl:otherwise>
</xsl:choose>
</xsl:attribute>
- <xsl:attribute name="value">
<xsl:value-of select="''" />
</xsl:attribute>
- <xsl:attribute name="readonly">true</xsl:attribute>
</input>
</xsl:when>
- <xsl:otherwise>
- <input name="location" size="30" type="text" tabindex="3792" class="urEdfTxtEnbl" id="field_1157467268006">
- <xsl:attribute name="value">
<xsl:value-of select="''" />
</xsl:attribute>
- <xsl:attribute name="readonly">true</xsl:attribute>
</input>
</xsl:otherwise>
</xsl:choose>[/code]
I put the <xsl:attribute name="readonly"> in both places (when test, and when not test). I'm not entirely sure if that's necessary, but that worked for me.
Hope this helps,
Fallon

Will Adobe Acrobat 8.0 Standard Work With Adobe Reader 8.2.4?

Hello,
I have a question, but haven't found an answer to this yet.
Can anyone tell me please: Will Adobe Acrobat 8.0 Standard work with Adobe Reader 8.2.4?
I had Adobe Acrobat 6.0 Standard on my computer & it was working with Adobe Reader 8, but don't remember what the version it was.
I was using Adobe Acrobat 6.0 Standard to scan very old family pictures & documents & I realize that this version of Acrobat is outdated.
To make a long story short, my computer had crashed, so we built another computer & just replaced the hard drive. When I went to Adobe, I had to download the newer version of Reader 9.0 & it didn't work with Acrobat 6.0., so I removed Adobe Reader 9 & I found Adobe Reader 8.0 & have downloaded the patches, so now I have Adobe Reader 8.2.4 back on board.
Thank you.

Adobe doesn't recommend any version of Reader with any version of Acrobat on Windows. It will cause problems. It just is a matter of how and when. The problem has to do with shared resources causing conflicts. If you have Acrobat 8, you can update it to Acrobat 8.2.4. You must apply the updates sequentially.
http://www.adobe.com/support/downloads/product.jsp?product=1&platform=Windows

Read Table ITAB with key Dynamic Value = Value

Here is sample Intenral table
Columnname-C01 / C02 / C03
Value-123 / 456 /789
I would like to search value of the internal table according to dynamic value given by the code.
i.e.
read table ITAB with key <Dynamic Value> index 1.

Hi Rupesh,
Just try the following piece of code:
TYPES: BEGIN OF str,
        A TYPE C,
        B TYPE I,
        C(2) TYPE C,
       END OF STR.
DATA itab TYPE TABLE OF str WITH HEADER LINE.
itab-A = 'X'.
itab-B = '100'.
itab-C = 'YZ'.
APPEND itab.
PERFORM c_itab_read USING 'A' 'X'.
PERFORM c_itab_read USING 'B' '100'.
PERFORM c_itab_read USING 'C' 'YZ'.
FORM c_itab_read USING key TYPE ANY val TYPE ANY.
READ TABLE itab WITH KEY (KEY) = val.
IF SY-SUBRC IS INITIAL.
    WRITE: 'Hurray!'.
ENDIF.
ENDFORM.
Hope this helps.
Reqard points if query answered.
Cheers,
~i1

Read Table ITAB with key Dynamic Value index 1

Here is sample Intenral table
Columnname-C01 / C02 / C03
Value-123 / 456 /789
I would like to search value of the internal table according to dynamic value given by the code.
i.e.
read table ITAB with key <Dynamic Value> index 1.

Hi,
Apart from read, you can also use <b>SEARCH</b> statement.
Syntax
SEARCH
Searches for strings.
Syntax
SEARCH <f>|<itab> FOR <g> [ABBREVIATED]
                          [STARTING AT <n1>]
                          [ENDING AT <n2>]
                          [AND MARK]
                          [IN BYTE MODE|IN CHARACTER MODE].
Searches the field <f> or table <itab> for the string in the field <g>. The result is stored in SY-FDPOS. The additions let you hide intermediate characters, search from and to a particular position, and convert the found string into uppercase. In Unicode programs, you must specify whether the statement is a character or byte operation, using the IN BYTE MODE or IN CHARACTER MODE (default) additions.
Hope this information is useful to you.
Regards,
Saumya

Reading POST-Request-Parameter-Values from WebDynPro now possible?

Hello,
in the past I always was disappointed that in WebDynPro there was no way to read POST-request-parameter-values directly after the call of a WebDynPro-Application.
The only (documented) way to read / transfer request-data into an WebDynPro-application was via "URL query string parameters" in the request URL.
The last week I forgot this restriction. I called my WebDynPro-application using a POST-Request-Parameter (cookie_guid) instead of an URL-parameter.
After noticing my mistake, I was really surprised that the WebDynPro could read / shows the the POST-Request-Value.
I didn't make any changes in the coding of my WebDynPro-Application (zvis_show_sso_cookie).
After this cognition I built the following simple HTML-formular to analyse the behavior of the WebyDynPro by calling it with an URL-Parameter (cookie_guid=Url-GUID) together with the POST-Parameter (cookie_guid = Post-Value-GUID).
After calling the WebyDynPro it reads / shows the "POST-Value" of the request !!!
(Remark: If I made a simple refresh or type directly the URL "http://hg10762.vis-extranet.de:1080/sap/bc/webdynpro/sap/zvis_show_sso_cookie?sap-language=DE&cookie_guid=Url-GUID" in the browser, the same webdynpro reads / shows the URL-Parameter-Value).
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
       "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
</head>
<body>
<form method="post" action="http://hg10762.vis-extranet.de:1080/sap/bc/webdynpro/sap/zvis_show_sso_cookie?sap-language=DE&cookie_guid=Url-GUID">
<table border="0" cellpadding="5" cellspacing="0" bgcolor="#E0E0E0">
    <tr>
      <td align="right">Cookie_GUID:</td>
      <td><input name="cookie_guid" type="text" size="30" maxlength="30" value="Post-Value-GUID"></td>
    </tr>
    <tr>
      <td>
        <input type="submit" value=" Absenden ">
        <input type="reset" value=" Abbrechen">
      </td>
    </tr>
</table>
</form>
</body>
</html>
My questions:
I there any documentation that describes the behavior of WebDynPro after calling it by using POST-Parameter values?
I believe in the past it wasn't possible to read POST-request-parameter-values in WD. Has SAP changed the functionality?
Is the behavior I described in my example above mandatory?
Regards
Steffen

As far as i know in general HTTP request GET method is standard but in SAP POST is standard. All the client request is passed as POST to the server in order to avoid the URL parameter length restriction in GET method.

Create xml file with values from context

Hi experts!
I am trying to implement a WD application that will have some input fields, the value of those input fields will be used to create an xml file with a certain format and then sent to a certain application.
Apart from this i want to read an xml file back from the application and then fill some other context nodes with values from the xml file.
Is there any standard used code to do this??
If not how can i do this???
Thanx in advance!!!
P.S. Points will be rewarded to all usefull answers.
Edited by: Armin Reichert on Jun 30, 2008 6:12 PM
Please stop this P.S. nonsense!

Hi,
you need to create three util class for that:-
XMLHandler
XMLParser
XMLBuilder
for example in my XML two tag item will be there e.g. Title and Organizer,and from ur WebDynpro view you need to pass value for the XML tag.
And u need to call buildXML()function of builder class to generate XML, in that i have passed bean object to get the values of tags. you need to set the value in bean from the view ui context.
Code for XMLBuilder:-
Created on Apr 4, 2006
Author-Anish
This class is to created for having function for to build XML
and to get EncodedXML
and to get formated date
package com.idb.events.util;
import java.text.SimpleDateFormat;
import java.util.Date;
import com.idb.events.Event;
public class XMLBuilder {
This attribute represents the XML version
     private static final double VERSION_NUMBER = 1.0;
This attribute represents the encoding
     private static final String ENCODING_TYPE = "UTF-16";
     /*Begin of Function to buildXML
return: String
input: Event
     public String buildXML(Event event) {
          StringBuffer xmlBuilder = new StringBuffer("<?xml version=\"");
          xmlBuilder.append(VERSION_NUMBER);
          xmlBuilder.append("\" encoding=\"");
          xmlBuilder.append(ENCODING_TYPE);
          xmlBuilder.append("\" ?>");
          xmlBuilder.append("<event>");
          xmlBuilder.append(getEncodedXML(event.getTitle(), "title"));
          xmlBuilder.append(getEncodedXML(event.getOrganizer(), "organizer"));
          xmlBuilder.append("</event>");
          return xmlBuilder.toString();
     /End of Function to buildXML/
     /*Begin of Function to get EncodedXML
return: String
input: String,String
     public String getEncodedXML(String xmlString, String tag) {
          StringBuffer begin = new StringBuffer("");
          if ((tag != null) || (!tag.equalsIgnoreCase("null"))) {
               begin.append("<").append(tag).append(">");
               begin.append("<![CDATA[");
               begin.append(xmlString).append("]]>").append("</").append(
                    tag).append(
                    ">");
          return begin.toString();
     /End of Function to get EncodedXML/
     /*Begin of Function to get formated date
return: String
input: Date
     private final String formatDate(Date inputDateStr) {
          String date;
          try {
               SimpleDateFormat simpleDateFormat =
                    new SimpleDateFormat("yyyy-MM-dd");
               date = simpleDateFormat.format(inputDateStr);
          } catch (Exception e) {
               return "";
          return date;
     /End of Function to get formated date/
Code for XMLParser:-
Created on Apr 12, 2006
Author-Anish
This is a parser class
package com.idb.events.util;
import java.io.ByteArrayInputStream;
import java.io.IOException;
import javax.xml.parsers.ParserConfigurationException;
import javax.xml.parsers.SAXParser;
import javax.xml.parsers.SAXParserFactory;
import org.xml.sax.InputSource;
import org.xml.sax.SAXException;
import org.xml.sax.XMLReader;
import com.idb.events.Event;
import com.sap.tc.webdynpro.progmodel.api.IWDMessageManager;
public class XMLParser {
Enables namespace functionality in parser
     private final boolean isNameSpaceAware = true;
Enables validation in parser
     private final boolean isValidating = true;
The SAX parser used to parse the xml
     private SAXParser parser;
The XML reader used by the SAX parser
     private XMLReader reader;
This method creates the parser to parse the user details xml.
     private void createParser()
          throws SAXException, ParserConfigurationException {
          // Create a JAXP SAXParserFactory and configure it
          SAXParserFactory saxFactory = SAXParserFactory.newInstance();
          saxFactory.setNamespaceAware(isNameSpaceAware);
          saxFactory.setValidating(isValidating);
          // Create a JAXP SAXParser
          parser = saxFactory.newSAXParser();
          // Get the encapsulated SAX XMLReader
          reader = parser.getXMLReader();
          // Set the ErrorHandler
This method is used to collect the user details.
     public Event getEvent(
          String newsXML,
          XMLHandler xmlHandler,
          IWDMessageManager mgr)
          throws SAXException, ParserConfigurationException, IOException {
          //create the parser, if not already done
          if (parser == null) {
               this.createParser();
          //set the parser handler to extract the
          reader.setErrorHandler(xmlHandler);
          reader.setContentHandler(xmlHandler);
          InputSource source =
               new InputSource(new ByteArrayInputStream(newsXML.getBytes()));
          reader.parse(source);
          //return the results of the parse
          return xmlHandler.getEvent(mgr);
Code for XMLHandler:-
Created on Apr 12, 2006
Author-Anish
This is a parser class
package com.idb.events.util;
import java.io.ByteArrayInputStream;
import java.io.IOException;
import javax.xml.parsers.ParserConfigurationException;
import javax.xml.parsers.SAXParser;
import javax.xml.parsers.SAXParserFactory;
import org.xml.sax.InputSource;
import org.xml.sax.SAXException;
import org.xml.sax.XMLReader;
import com.idb.events.Event;
Created on Apr 12, 2006
Author-Anish
*This handler class is created to have constant value for variables and function for get events,
    character values for bean variable,
    parsing thr date ......etc
package com.idb.events.util;
import java.sql.Timestamp;
import java.text.SimpleDateFormat;
import java.util.Date;
import java.util.Locale;
import org.xml.sax.Attributes;
import org.xml.sax.SAXException;
import org.xml.sax.SAXParseException;
import org.xml.sax.helpers.DefaultHandler;
import java.util.*;
import com.idb.events.Event;
import com.sap.tc.webdynpro.progmodel.api.IWDMessageManager;
public class XMLHandler extends DefaultHandler {
     private static final String TITLE = "title";
     private static final String ORGANIZER = "organizer";
     IWDMessageManager manager;
     private Event events;
     private String tagName;
     public void setManager(IWDMessageManager mgr) {
          manager = mgr;
This function is created to get events
     public Event getEvent(IWDMessageManager mgr) {
          manager = mgr;
          return this.events;
This function is created to get character for setting values through event's bean setter method
     public void characters(char[] charArray, int startVal, int length)
          throws SAXException {
          String tagValue = new String(charArray, startVal, length);
          if (TITLE.equals(this.tagName)) {
               this.events.setTitle(tagValue);
          if (ORGANIZER.equals(this.tagName)) {
               String orgName = tagValue;
               try {
                    orgName = getOrgName(orgName);
               } catch (Exception ex) {
               this.events.setOrganizer(orgName);
This function is created to parse boolean.
     private final boolean parseBoolean(String inputBooleanStr) {
          boolean b;
          if (inputBooleanStr.equals("true")) {
               b = true;
          } else {
               b = false;
          return b;
This function is used to call the super constructor.
     public void endElement(String uri, String localName, String qName)
          throws SAXException {
          super.endElement(uri, localName, qName);
     /* (non-Javadoc)
@see org.xml.sax.ErrorHandler#fatalError(org.xml.sax.SAXParseException)
This function is used to call the super constructor.
     public void fatalError(SAXParseException e) throws SAXException {
          super.fatalError(e);
This function is created to set the elements base on the tag name.
     public void startElement(
          String uri,
          String localName,
          String qName,
          Attributes attributes)
          throws SAXException {
          this.tagName = localName;
          if (ROOT.equals(tagName)) {
               this.events = new Event();
     public static void main(String a[]) {
          String cntry = "Nigeria";
          XMLHandler xml = new XMLHandler();
          ArrayList engList = new ArrayList();
          engList = xml.getCountries();
          ArrayList arList = xml.getArabicCountries();
          int engIndex = engList.indexOf(cntry);
          System.out.println("engIndex :: " + engIndex);
          String arCntryName = (String) arList.get(engIndex);
          System.out.println(
               ">>>>>>>>>>>>>>>>>>>>" + xml.getArabicCountryName(cntry));
Hope that may help you.
If need any help , you are most welcome.
Regards,
Deepak

Standardizing "From" Field Value of an SAP Generated Email

Hi Experts,
I understand that standard behavior dictates that the "From" field of an email SMTP emails generated by SAP is populated with value stored in the "Email Address" field of the triggering users' SAP account (tcode SU01). In the case where this email address field is empty, the system concatenates the triggering user's ID with the value stored in "Default Domain" (tcode SCOT).
However, I would like to know if there is a SAP configuration that allows me to specify a standard system email address in the "From" field for ALL SMTP emails originating from the system and NOT to use the triggering users' email address as described in the previous paragraph.
Any help on this query is very much appreciated. Thanks.
Regards,
Lionel

Hi Macy Lo,
Check the <b>Data types</b> of BDCMSGCOLL-MSGID &
BDCMSGCOLL-MSGNR.
It fails because the datatypes doesn't matches.
You can check this with <i>sy-subrc</i> statement after the read statement.
Hope it helps.
Regards,
Maheswaran.B

I have an "Command set ID" with value "A" in SPAD tansx with com. to transf

Hello
Does anyone knows how a device in "spad" transaction functions (in Unix)
Under Access method"L:Print Locally Using LP/LPR") I have an Command set ID with value "A" .
Under mentioned "command set" I have :
"command to transfer data " set to " /usr/bin/cat &F >/usr/sap/planning/REMINDER&N.txt". What does that means.
Does it mean any printout is copied to "/usr/sap/planning/REMINDER&N.txt" file? Also corrupted (not finished...) ones?
what is the name of file under "/usr/bin/cat ". Is it always the same? is it copied in same format (what
"&F >/" means?)?
Thx in advance

Hai,
Command set id option in SAP helps to override the DEFAULT SAP parameter for the command that a print program should use to have a host spooler perform an output request.
Default parameter is rspo/host_spool/print.
You can specifically give a command to your printer through this option, COMMAND SET ID.
Here " /usr/bin/cat &F >/usr/sap/planning/REMINDER&N.txt" is the command which helps thr spooler to direct your output.
/usr/bin -- is the directory under which it has all the commands for UNIX.
/usr/bin/cat -- where 'cat' is a command, cat command reads one or more files and prints them to standard output. The operator > can be used to combine multiple files into one.
&F Name of the file to be printed (with path specification).
/usr/sap/planning/REMINDER&N.txt -- is where you can find your output.
You can even use /usr/bin/cp instead of usr/bin/cat here the former command copies to another file after the &F option.
You can use any type of commands, please check the below link.
Also you can use this command set option for Null printers were you dont need the printouts but only the spool. Here you can set the command as 'cp &F /dev/null' were the output is redireted to /dev/null path at the OS level.
http://help.sap.com/saphelp_nw04/helpdata/EN/d9/4a8eb751ea11d189570000e829fbbd/frameset.htm
Regards,
Yoganand.V

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

Difference between J_3AMADKA and MBEW / Update SKU standard prices with AFS

Dear reader,
Environement: ECC 6 with AFS 6.3
In a first step,I am trying to create, and in a second step, to update the SKU standard prices using FM: BAPI_MATERIAL_SAVEDATA.
It is really strange the way it performs changes on table MBEW and J_3AMADKA.
Can anyone explain to me the different use of those two tables? I thought that the J_3AMADKA was dedicated to SKU level, but finally, the TA: /n/afs/conv1 create the SKU standard prices only in MBEW !? But BAPI_MATERIAL_SAVEDATA.
just create ONE entree in MBEW (?!?) while all SKU entree but without prices in J_3AMADKA.
In FM: BAPI_MATERIAL_SAVEDATA., I mainly filled structure VALUATIONDATA (=> MBEW) and SKU_PLANTDATA_VALUATION, where surprisingly, there is no standard price field for the SKU !?
Any link or remarks about this topice will be most apprecitaed,
Thanks,
Daniel

Hi Kalias,
Many thanks for your fats reply.
I had a look to the (really old) SAP notes and after some few researches, it seems that AFS 6.3 insert the PRICE and ZKPRS columns again into table J_3AMADKA.
Those columns are even populated with values So it means that they are required by some SAP standard programms.
Maybe you have another clue about this topic?
Thanks again for your help,
Daniel

ADD A line in alv with values

Hi Experts,
When clicking the button 'append row', I want to add a line filled with some values in selection screen.
I work with OO.
need help please.
Mohamed

Hello Mohamed
The logic is the same as before. Search for $MODFIED to detect the changes in the sample report.
However, I do not think that these requirements make any sense because if you re-implement the Copy function you obviously have to re-implement the Paste function (and perhaps Undo function as well), too.
So basically you reinvent the wheel again.
*& Report ZUS_SDN_ALV_GRID_EDITABLE
*& Thread: ADD A line in alv with values
*& <a class="jive_macro jive_macro_thread" href="" __jive_macro_name="thread" modifiedtitle="true" __default_attr="974654"></a>
REPORT zus_sdn_alv_grid_editable_1x.
TYPE-POOLS: abap.
DATA:
gd_okcode        TYPE ui_func,
gd_repid         TYPE syst-repid,
gif_adapter      TYPE REF TO if_salv_adapter,
go_docking       TYPE REF TO cl_gui_docking_container,
go_grid1         TYPE REF TO cl_gui_alv_grid,
gt_fcat          TYPE lvc_t_fcat,
gs_layout        TYPE lvc_s_layo.
DATA:
gt_outtab        TYPE STANDARD TABLE OF knb1.
*       CLASS lcl_eventhandler DEFINITION
CLASS lcl_eventhandler DEFINITION.
PUBLIC SECTION.
    CLASS-DATA:
      md_function    TYPE ui_func   READ-ONLY,
      ms_row         TYPE lvc_s_row READ-ONLY,
      ms_outtab      LIKE LINE OF gt_outtab. "$MODIFIED
    CLASS-METHODS:
      handle_double_click FOR EVENT double_click OF cl_gui_alv_grid
        IMPORTING
          e_row
          e_column
          es_row_no
          sender,
       handle_toolbar FOR EVENT toolbar OF cl_gui_alv_grid
         IMPORTING
           e_object
           sender,
       handle_user_command FOR EVENT user_command OF cl_gui_alv_grid
         IMPORTING
           e_ucomm
           sender,
       handle_data_changed FOR EVENT data_changed OF cl_gui_alv_grid
         IMPORTING
          er_data_changed
          e_onf4
          e_onf4_before
          e_onf4_after
          e_ucomm
          sender.
ENDCLASS.                    "lcl_eventhandler DEFINITION
*       CLASS lcl_eventhandler IMPLEMENTATION
CLASS lcl_eventhandler IMPLEMENTATION.
METHOD handle_double_click.
ENDMETHOD.                    "handle_double_click
METHOD handle_toolbar.
    " define local data
    DATA: ls_button   TYPE stb_button.
    " Redefine toolbar button functions in order to be able to
    " handle them in event USER_COMMAND (standard toolbar functions
    " do NOT raise event USER_COMMAND !!!)
    LOOP AT e_object->mt_toolbar INTO ls_button.
      CASE ls_button-function.
        WHEN cl_gui_alv_grid=>mc_fc_loc_append_row.
          ls_button-function = 'APPEND_ROW'.
        WHEN cl_gui_alv_grid=>mc_fc_loc_insert_row.
          ls_button-function = 'INSERT_ROW'.
        WHEN cl_gui_alv_grid=>mc_fc_loc_copy. "$MODIFIED
          ls_button-function = 'COPY'.
        WHEN OTHERS.
          CONTINUE.
      ENDCASE.
      MODIFY e_object->mt_toolbar FROM ls_button INDEX syst-tabix.
    ENDLOOP.
ENDMETHOD.                    "handle_toolbar
METHOD handle_user_command.
    " Get current row for function 'Insert Row'
    CALL METHOD sender->get_current_cell
      IMPORTING
*        e_row     =
*        e_value   =
*        e_col     =
        es_row_id = ms_row
*        es_col_id =
*        es_row_no =
    " Store redefined function code
    md_function = e_ucomm.
    CASE e_ucomm.
      WHEN 'APPEND_ROW' OR
           'INSERT_ROW'.
        " Just trigger PAI
        CALL METHOD cl_gui_cfw=>set_new_ok_code
          EXPORTING
            new_code = 'NEW_ROW'
*          IMPORTING
*            rc       =
      WHEN 'COPY'. "$MODIFIED
        READ TABLE gt_outtab INTO ms_outtab INDEX ms_row-index.
      WHEN OTHERS.
    ENDCASE.
ENDMETHOD.                    "handle_user_command
METHOD handle_data_changed.
*   define local data
    DATA: ls_outtab        LIKE LINE OF gt_outtab,
          ls_good          TYPE lvc_s_modi.
    BREAK-POINT.
    LOOP AT er_data_changed->mt_good_cells INTO ls_good
            WHERE ( fieldname = 'ERDAT' ).
**      CALL METHOD er_data_changed->get_cell_value
**        EXPORTING
**          i_row_id    = ls_good-row_id
**          i_fieldname = ls_good-fieldname
**        IMPORTING
**          e_value     = ls_outtab-erdat.
      ls_outtab-erdat = ls_good-value.
      IF ( ls_outtab-erdat < '20070101' ).
        CALL METHOD er_data_changed->add_protocol_entry
          EXPORTING
            i_msgid     = '00'
            i_msgty     = 'E'
            i_msgno     = '398'
            i_msgv1     = 'Date must be >= 01.01.2007'
*          i_msgv2     =
*          i_msgv3     =
*          i_msgv4     =
            i_fieldname = ls_good-fieldname
            i_row_id    = ls_good-row_id
            i_tabix     = ls_good-tabix.
      ENDIF.
    ENDLOOP.
    er_data_changed->display_protocol( ).
    " Not really required (only for validations)
ENDMETHOD.                    "handle_data_changed
ENDCLASS.                    "lcl_eventhandler IMPLEMENTATION
START-OF-SELECTION.
SELECT * FROM knb1 INTO TABLE gt_outtab UP TO 10 ROWS.
PERFORM init_controls.
* Link the docking container to the target dynpro
gd_repid = syst-repid.
CALL METHOD go_docking->link
    EXPORTING
      repid                       = gd_repid
      dynnr                       = '0100'
*      CONTAINER                   =
    EXCEPTIONS
      OTHERS                      = 4.
IF sy-subrc NE 0.
*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
* NOTE: dynpro does not contain any elements
CALL SCREEN '0100'.
* Flow logic of dynpro (does not contain any dynpro elements):
*PROCESS BEFORE OUTPUT.
* MODULE STATUS_0100.
*PROCESS AFTER INPUT.
* MODULE USER_COMMAND_0100.
END-OF-SELECTION.
*&      Module STATUS_0100 OUTPUT
*       text
MODULE status_0100 OUTPUT.
SET PF-STATUS 'STATUS_0100'. " contains push button "DETAIL"
* SET TITLEBAR 'xxx'.
ENDMODULE.                 " STATUS_0100 OUTPUT
*&      Module USER_COMMAND_0100 INPUT
*       text
MODULE user_command_0100 INPUT.
CASE gd_okcode.
    WHEN 'BACK' OR
         'EXIT' OR
         'CANC'.
      SET SCREEN 0. LEAVE SCREEN.
    WHEN 'NEW_ROW'.
      PERFORM add_new_row.
    WHEN OTHERS.
ENDCASE.
CLEAR: gd_okcode.
ENDMODULE.                 " USER_COMMAND_0100 INPUT
*&      Form ADD_NEW_ROW
*       text
* --> p1        text
* <-- p2        text
FORM add_new_row .
* define local data
DATA: ls_outtab   LIKE LINE OF gt_outtab,
        ls_stable   TYPE lvc_s_stbl,
        ld_idx      TYPE i.
ls_outtab-bukrs = '1000'.
ls_outtab-ernam = syst-uname.
CASE lcl_eventhandler=>md_function.
    WHEN 'APPEND_ROW'.
      APPEND ls_outtab TO gt_outtab.
    WHEN 'INSERT_ROW'.
      ld_idx = lcl_eventhandler=>ms_row-index + 1.
      INSERT ls_outtab INTO gt_outtab INDEX ld_idx.
    WHEN OTHERS.
ENDCASE.
" Refresh ALV list display
ls_stable-row = abap_true.
ls_stable-col = abap_true.
CALL METHOD go_grid1->refresh_table_display
     EXPORTING
       is_stable      = ls_stable
*      i_soft_refresh =
     EXCEPTIONS
       finished       = 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.
ENDFORM.                    " ADD_NEW_ROW
*&      Form INIT_CONTROLS
*       text
* --> p1        text
* <-- p2        text
FORM init_controls .
* Create docking container
CREATE OBJECT go_docking
    EXPORTING
      parent = cl_gui_container=>screen0
      ratio = 90
    EXCEPTIONS
      OTHERS = 6.
IF sy-subrc NE 0.
*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
* Create ALV grids
CREATE OBJECT go_grid1
    EXPORTING
      i_parent = go_docking " go_cell_top
    EXCEPTIONS
      OTHERS   = 5.
IF sy-subrc NE 0.
*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
" ENTER trigger event DATA_CHANGED
CALL METHOD go_grid1->register_edit_event
    EXPORTING
      i_event_id = cl_gui_alv_grid=>mc_evt_enter
    EXCEPTIONS
      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.
* Set event handler
SET HANDLER:
    lcl_eventhandler=>handle_double_click FOR go_grid1,
    lcl_eventhandler=>handle_toolbar      FOR go_grid1,
    lcl_eventhandler=>handle_user_command FOR go_grid1,
    lcl_eventhandler=>handle_data_changed FOR go_grid1.
PERFORM build_fieldcatalog.
* Display data
gs_layout-grid_title = 'Customers'.
gs_layout-smalltitle = abap_true.
CALL METHOD go_grid1->set_table_for_first_display
    EXPORTING
**      i_structure_name = 'KNB1'
      is_layout        = gs_layout
      ir_salv_adapter = gif_adapter
    CHANGING
      it_outtab        = gt_outtab
      it_fieldcatalog = gt_fcat
    EXCEPTIONS
      OTHERS           = 4.
IF sy-subrc NE 0.
*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.                    " INIT_CONTROLS
*&      Form BUILD_FIELDCATALOG
*       text
* --> p1        text
* <-- p2        text
FORM build_fieldcatalog .
* define local data
DATA: ls_fcat   TYPE lvc_s_fcat.
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
    EXPORTING
      i_structure_name       = 'KNB1'
    CHANGING
      ct_fieldcat            = gt_fcat
    EXCEPTIONS
      inconsistent_interface = 1
      program_error          = 2
      OTHERS                 = 3.
ls_fcat-edit = abap_true.
MODIFY gt_fcat FROM ls_fcat
    TRANSPORTING edit
    WHERE ( key NE abap_true ).
ENDFORM.                    " BUILD_FIELDCATALOG
Regards
Uwe

Read standard mesage with value

Similar Messages

Maybe you are looking for