Where to add code to populate form parameters in forms 6i?

Hi everyone!!
I have the following scenario:
I have a form that has a button that takes the user to a new window which too contains a button to take the user to the third window. In the third window i have two t lists that show the database values for the selection that user has made (say selecting from and to destinations). Now i invoke two different windows using two buttons in the third window that contain shuttles and the user makes his selection there using the four shuttle buttons.
In the when button pressed trigger of the buttons that show the shuttle windows, i create record groups and populate the shuttles with the selected and available destinations on the right and left sides of shuttle respectively. Now when the user first comes to the form the shuttles display the selected and available destinations on its two sides correctly, but if the user makes some more selections, closes the shuttle windows and again goes to the shuttle windows, his selection's gone as i have the code to populate the shuttles on when button pressed.
to get rid of it i'm thinking of adding form parameters that'll contain 1 if the user has navigated to the shuttle windows and 2 if he hasent navigated yet or in other words after opening the form he's yet to use shuttles. now i plan to use the parameters to handle the population of the shuttles. if the parameter value is 2 only then i'll use the code that populates the shuttles using record groups.
Now my question's where should i initialize the parameters i.e. in which trigger. How about WHEN-NEW-FORM-INSTANCE?
Will appreciate your thoughts on it.
Thanks,
Abhishek.

Neways if at all i need to achieve (just for curiosity) the same thing which trigger should i put the code for the same?

Similar Messages

Where do I add code from an external source for forms?

I created a form on Jotform and it generated code to be placed on my site. Where is the code for my site so that I can paste it in? Is it better to embed or just paste it?

Found it. Object-Insert HTML

How and where to add code to login page

I have a login page which uses the Dreamweaver Login Behavior. I want to add code to:
     Check the status of the person loging in (status is the last field in the mySQL authentication table).
          a.     If the person is already logged in, display an error message, and reject the attempt.
          b.     If the person is NOT currently logged in, set his status accordingly, and log him in.
Since the behavior is generated code, and well above my head, I don't know what code to enter, and where to enter it. Here's the code for the form:
<?php require_once('Connections/login.php'); ?>
<?php
if (!function_exists("GetSQLValueString")) {
function GetSQLValueString($theValue, $theType, $theDefinedValue = "", $theNotDefinedValue = "")
if (PHP_VERSION < 6) {
    $theValue = get_magic_quotes_gpc() ? stripslashes($theValue) : $theValue;
$theValue = function_exists("mysql_real_escape_string") ? mysql_real_escape_string($theValue) : mysql_escape_string($theValue);
switch ($theType) {
    case "text":
      $theValue = ($theValue != "") ? "'" . $theValue . "'" : "NULL";
      break;
    case "long":
    case "int":
      $theValue = ($theValue != "") ? intval($theValue) : "NULL";
      break;
    case "double":
      $theValue = ($theValue != "") ? doubleval($theValue) : "NULL";
      break;
    case "date":
      $theValue = ($theValue != "") ? "'" . $theValue . "'" : "NULL";
      break;
    case "defined":
      $theValue = ($theValue != "") ? $theDefinedValue : $theNotDefinedValue;
      break;
return $theValue;
?>
<?php
// *** Validate request to login to this site.
if (!isset($_SESSION)) {
session_start();
$loginFormAction = $_SERVER['PHP_SELF'];
if (isset($_GET['accesscheck'])) {
$_SESSION['PrevUrl'] = $_GET['accesscheck'];
if (isset($_POST['username'])) {
$loginUsername=$_POST['username'];
$password=$_POST['password'];
$MM_fldUserAuthorization = "";
$MM_redirectLoginSuccess = "WOTCPg1.php";
$MM_redirectLoginFailed = "loginerror.php";
$MM_redirecttoReferrer = false;
mysql_select_db($database_login, $login);
$LoginRS__query=sprintf("SELECT UserID, Password FROM authentication WHERE UserID=%s AND Password=%s",
    GetSQLValueString($loginUsername, "text"), GetSQLValueString($password, "text"));
$LoginRS = mysql_query($LoginRS__query, $login) or die(mysql_error());
$loginFoundUser = mysql_num_rows($LoginRS);
if ($loginFoundUser) {
     $loginStrGroup = "";
    //declare two session variables and assign them
    $_SESSION['MM_Username'] = $loginUsername;
    $_SESSION['MM_UserGroup'] = $loginStrGroup;
    if (isset($_SESSION['PrevUrl']) && false) {
      $MM_redirectLoginSuccess = $_SESSION['PrevUrl'];
    header("Location: " . $MM_redirectLoginSuccess );
else {
    header("Location: ". $MM_redirectLoginFailed );
?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<script type="text/javascript">
function setFocus()
document.getElementById("username").focus();
</script>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Log-in to IOD</title>
<style type="text/css">

</style>
</head>
<body onLoad="setFocus()" >
<span style="position:absolute; left:3px; top:2px; width:758; height:89;"><img src="sitebuilder/preview/sitebuilder/clipart/bars/regular/horizontal/sleekLines_blue.gif" width="760" height="90" alt="" /></span>
<div id="e2" style="position:absolute; left:13px; top:14px; width:670px; height:32;"><span class="text"><b><span style="font-size: 22px"><font color="#FFFFFF">Sign-in to Information On Demand</font></span><font color="#FFFFFF" size="4"><span style="font-size:22px;line-height:26px;"><br soft="soft" />
</span></font></b></span></div>
<div id="apDiv3">
<p><span style="text-align: center; text-decoration: underline; color: #009; text-transform: capitalize; font-variant: normal; font-weight: bold; line-height: normal; font-style: normal; font-size: 18pt; font-family: Arial, Helvetica, sans-serif;">Customer Sign-In</span><span style="position:absolute; left:12px; top:23px; width:151px; height:65;"><img src="sitebuilder/images/redInfoOnDemandLogo-150x65.jpg" width="149" height="65" alt="" /></span></p>
</div>
<div id="apDiv4">
<form ACTION="<?php echo $loginFormAction; ?>" id="login" name="login" method="POST">
    <p>     </p>
    <p>User Name:<br /><input name="username" type="text" id="username" tabindex="1" size="30" maxlength="30" />
    </p>
    <p>User's Password:<br />
      <input type="password" name="password" id="password" tabindex="2" />
    </p>
    <p>
      <input name="submit" type="submit" class="SubmitButton" id="submit" tabindex="3" style="color:#009; font-weight:bold" value="Sign-in" />
   <input type="reset" name="reset" id="reset" value="Reset" tabindex="4" style="color:#009; font-weight:bold">
    </p>
</form>
</div>
<br />
</div>
</body>
</html>
Here's the code for the script "included" in the first line of the page:
<?php
# FileName="Connection_php_mysql.htm"
# Type="MYSQL"
# HTTP="true"
$hostname_login = "localhost"; // Change to "mysql" when uploaded to Yahoo
$database_login = "infoondemand";
$username_login = "root";   // Change to "creacontech" when uploaded to Yahoo
$password_login = "raisin4312";
$login = mysql_pconnect($hostname_login, $username_login, $password_login) or trigger_error(mysql_error(),E_USER_ERROR);
?>
Could someone help me with this? I'd very much appreciate any assistance.

I should have warned you ealier that I don't know PHP very well, but if I can help nail down the process then hopefully one of the PHP experts can jump in.
I'm still a little fuzzy on what is going on. If Susie and Rodunda both have their own UserIDs and Passwords, then they can both be logged in at the same time, insert records til their hearts content and there will be abolutely no confict at all. The only issue here that may present a problem is if one of them attameps to update a record while the other one is looking at it, or getting ready to make their own modifications.
Also, if Susie and Rodunda have their own user accounts with their own credentials, how is it that one would try to log in using the others' credentials?
At any rate, and hopefully to get closer to a solutions for you, When a user is successfully authenticated, the session variable MM_Username is created. So, simpy by checking for the existence of this session variable can tell you if that use is logged in or not. This check can be placed before any of the login script so that it doesn't interfere with the behavior generated code. And you can choose what to do depending on the condition that exists - such as redirecting immediately to another page, or displaying or hiding a certain region on the page.
Keep in mind that when the page first loads, thel login code is placed in an IF statement that checks the form action, so at first it's ignored and loads the form. When the form is submitted, the IF conditino is met and the code executes. To update the database with a "Logged in or out" value, you first have to place a recordset just after the IF statement that checks the form action, wirte another IF statement to check the value of the field, and then redirect to a logout page or continue with the login.
If you continue with the login, you'll need an Update statement to change the field in the database just before the successful redirect. If you've redirected to a log out page, you'll also need s similar update statement there.
To write the recordset code, you can use DW's wizard and just move the code to where it needs to go. But the DW's update code depend on predeifned recordsets and form actions, so you'll need to find a script or hand code it, I wouldn't recommend trying to use DW's code and then modify it.
So, what do you think, are we getting closer?

Add code to a button?

Hi friends,
[Apps R12]
If I add a button to an OAF screen :
I have no idea of how :
- to add code when it's clicked... The idea would be to call a database procedure that receives,as parameters, certain values of that OAF screen and that returns, in an output parameter, a value to be posted in a screen field.
Any example would be appreciated
Thanks!
Jose L.

Hi
Please first go through with OADEVGUIDE,u can download the same form meta link (Note.730053.1). and haave practice seesion with labsolutions excercise . please find a sample code below for the problem
package oracle.apps.fnd.framework.toolbox.labsolutions.webui;
import oracle.apps.fnd.common.VersionInfo;
import oracle.apps.fnd.framework.webui.OAControllerImpl;
import oracle.apps.fnd.framework.webui.OAPageContext;
import oracle.apps.fnd.framework.webui.beans.OAWebBean;
import oracle.apps.fnd.framework.webui.beans.OABodyBean;
import oracle.apps.fnd.framework.webui.beans.layout.OAPageLayoutBean;
import oracle.apps.fnd.framework.server.OADBTransaction;
import oracle.apps.fnd.framework.OAApplicationModule;
import java.sql.CallableStatement;
import java.sql.ResultSet;
import java.sql.SQLException;
import oracle.apps.fnd.framework.webui.beans.message.OAMessageLovInputBean;
import java.util.Enumeration;
import oracle.apps.fnd.framework.webui.beans.message.OAMessageTextInputBean;
import oracle.apps.fnd.framework.webui.OAWebBeanConstants;
* Controller for ...
public class EmpSearchPGLayOutRNCO extends OAControllerImpl
public static final String RCS_ID="$Header$";
public static final boolean RCS_ID_RECORDED =
VersionInfo.recordClassVersion(RCS_ID, "%packagename%");
* Layout and page setup logic for a region.
* @param pageContext the current OA page context
* @param webBean the web bean corresponding to the region
public void processRequest(OAPageContext pageContext, OAWebBean webBean)
super.processRequest(pageContext, webBean);
* Procedure to handle form submissions for form elements in
* a region.
* @param pageContext the current OA page context
* @param webBean the web bean corresponding to the region
public void processFormRequest(OAPageContext pageContext, OAWebBean webBean)
super.processFormRequest(pageContext, webBean);
if (pageContext.getParameter("clearclearButton")!=null)
OADBTransaction txn = getDBTransaction();
CallableStatement cs =
txn.createCallableStatement("begin dbms_application_info.set_module(:1, :2);
end;");
try{
cs.setString(1, module);
cs.setString(2, action);
cs.execute();
cs.close();
catch (SQLException e)
try { cs.close } catch (Exception(e) {}
throw OAException.wrapperException(sqle); }
}

Is it possible to add an 'Upload Image' option to a form in Muse CC 2014

Hi,
Im building a website via Muse and BC for a movie star client who has images of herself tattooed by ardent fans. Basically, the website is a gallery for fans showcasing the very best in inked images of herself on their skin. On the contact form in Muse, I'd like to add an option somewhere for the client to upload an image of their own tattoo to be included in the gallery (which will be added/edited manually in PS).
Is this possible without too much xtra code? Or, will I need a single page where folks can upload their image to us which will include some sort of widget? I'd like to be able to manage it though without giving out an email address if possible?
Any help most appreciated.
Cheers

Hi Rohit, thank you for that.
I do have a FormsCentral account and notice on a tutorial I found on AdobeTV, that you can specify file types. This is something I'd like to be able to do as they will be images so PSD, png, jpg etc. But just looking over on BC I see that you can add 'Attach File 250mb limit' to a form (as you advised) but I can't see where you can limit to type? Is it in there?
Finally, will the image be uploaded to the BC server-side (if I use BC form creation method and not FormsCentral) in some type of assets folder or, will the form simply send any clients uploaded images to the specified email account within the form?
Whoops, final finally: Do you think that it is better to use FormsCentral for this or BC? I want the page to be customised so the form sits on some b-ground artwork. The client has a famous image where she is holding a burning card invite. I have already used this and overlaid a contact form in Muse which has worked really well, so I want to create a (hidden from menu) uploaded page looking exactly the same and this page will be linked directly from the other Contact page, driving any fans there who wish to then upload an image rather than just send a general contact. I hope that makes sense?
I guess what Im trying to find out is wether FormsCentral data gets fed back to BC in the same way a BC-created form would be seen in the dashboard area.
Thanks Rohit

How to process (populate & merge) XFA PDF Forms using Adobe library in Java

We have the XFA Forms (.pdf) created in Adobe LiveCycle designer 8.2 ES. We have the following requirement :
1. We need to populate data in those forms using standalone Java programs.
2. We need to merge the populated forms and create a single PDF out of these forms, using standalone Java programs.
Can both of these be done using Adobe PDF Library or Acrobat SDK?
What is the difference between Adobe PDF Library or Acrobat SDK?
We already have the licensed version of Adobe Acrobat Professional 9 with LiveCycle Designer 8.2 ES. Where can I get the relevant Adobe Java APIs from?
Can someone provide some sample code that could be used for the above requirements?
Please provide your inputs on these. We have been using IText, but facing some limitations in that recently.

The answer looks quite clear, and the conclusion is essentially simple: Don't use LiveCycle Designer.
Keep in mind that LiveCycle Designer originated as design tool for the according servers (that's way back in JetForms's days). For reasons I still can follow, Adobe decided to thow this design tool after any Acrobat Pro for Windows buyer. And the forms industry is now suffering from the mess that created.
Also, keep in mind that the term "Server" is used here as "service providing application".
Rants aside, was there a specific feature making you chose XFA (aka LiveCycle Designer)? Knowing these reasons can help us finding suitable workarounds.
HTH.
Max Wyss.

Generate PDF file using form parameters

how to generate output file like PDF while parameters pass thru form builder. i dont want output on screen.
i just want to pass parameters thru form builder and report builder will automatically generate output file like PDF onto my hard drive.

Dear all,am new to oracle report and oracle forms and i know the
basics how to generate the report and to create the form, Now my doubt is, like generating report
from oracle report how to generate the report from oracle from,should i add any command button? and where
to add the coding and what coding ? when i click that command button the report should be generated like oracle
report,what should i do?Please help me to learn.
my table name is 'student' and it has the following columns,
sid,sname,grade,result.
Am using oracle from 10.1.2.0.2 version and
oracle report version is 10.1.2.0.2.
Please give step by step procss.
Thank you.

Syntax error in form parameters

HI,
In ECC 6.0, LIKE is obsolete , so I want to change it to TYPE. I replaced all LIKE to TYPE. In my code I call a form subroutine and in the changing parameter i have two internal tables passed. Earlier the statement was
PERFORM zz_routine USING I_VBAK
                                CHANGING T_VBUK[]
                                                  T_VBAP[].
where I_VBAK TYPE VBAK and
T_VBUK     TYPE STANDARD TABLE OF VBUKVB.
T_VBAP     TYPE STANDARD TABLE OF VBAPVB.
Now in the recieving paramters how do I mention these using TYPE
I did as follows
Form zz_routine USING value(ss_vbak) TYPE VBAK
     CHANGING xt_vbuk TYPE STAnDARD TABLE OF VBUKVB
           xt_vbap TYPE STAnDARD TABLE OF VBAPVB
Now, I get the syntax error
"OF" has already been declared.
What does that mean ? what is the correct way to say that I need to receive a table type data in the form ?
thnks

Declare a Table Type which you can use to reference in your Form Parameters.
Like:
types: ty_t_vbap type standard table of VBAPVB.
data: t_vbap type ty_t_vbap.
PERFORM zz_routine using ia_vbak
changing t_vbap.
Form zz_routine USING value(ss_vbak) TYPE VBAK
CHANGING xt_vbap type ty_t_vbap.
ENDFORM.
Regards,
Naimesh Patel

Where to get detail information of OLE2 parameters?

I need to use ole2 to call Words and Excel from Forms 6i, however, I found that it is difficult to found detail parameters about OLE in Words and Excel, even sample code too....
Can anyone teach me where can I find the sample codes and parameters of Forms 6i call Words and Excel....
Thanks

email me at [email protected] and i'll send you a reference guide of forms 6i built-in packages which incude the OLE2.
cris

Add row not working when creating tabular form manually

Hi friends,
I am trying to create a manual tabular form( with the help of Denes's example). When adding a new row by clicking
the add button new row is added and i can enter data in that row. This works fine when there is only one page.
Now i have 30 rows in 2 pages. Now when i tried to add a new row by pressing the add button nothing is happening.
In my add button i have given redirect to the same page and request as ADD and the report query is as below.
SELECT apex_item.checkbox (1,
                           EQUIPMENT_ID,
                           'onclick="highlight_row(this,' || ROWNUM || ')"',
                           NULL,
                           'f01_' || LPAD (ROWNUM, 4, '0')
                          )Tick,
   EQUIPMENT_ID,
          apex_item.hidden (2,EQUIPMENT_ID)
||apex_item.text (3,
                          EQUIPMENT_ROLE,
                          80,
                          100,
                          'style="width:170px"',
                          'f03_' || LPAD (ROWNUM, 4, '0')
                         )|| apex_item.hidden (4, wwv_flow_item.md5(EQUIPMENT_ID,EQUIPMENT_ROLE,EQUIPMENT_VERSION,
                         SNMP_PORT,RO_COMMUNITY_STRING ,RW_COMMUNITY_STRING,COMMISIONED_STATE,CUSTOMER_ID,
                         SITE_ID
                         ))EQUIPMENT_ROLE,
apex_item.text (5,
                         EQUIPMENT_VERSION,
                          80,
                          100,
                          'style="width:170px"',
                          'f05_' || LPAD (ROWNUM, 4, '0')
                         ) EQUIPMENT_VERSION,
apex_item.text (6,
                         SNMP_PORT,
                          80,
                          100,
                          'style="width:170px"',
                          'f06_' || LPAD (ROWNUM, 4, '0')
                         ) SNMP_PORT,
apex_item.text (7,
                         RO_COMMUNITY_STRING,
                          80,
                          100,
                          'style="width:170px"',
                          'f07_' || LPAD (ROWNUM, 4, '0')
                         ) RO_COMMUNITY_STRING,
apex_item.text (8,
                         RW_COMMUNITY_STRING,
                          80,
                          100,
                          'style="width:170px" ',
                          'f08_' || LPAD (ROWNUM, 4, '0')
                         ) RW_COMMUNITY_STRING,
apex_item.text (9,
                         COMMISIONED_STATE,
                          80,
                          100,
                          'style="width:170px" ',
                          'f09_' || LPAD (ROWNUM, 4, '0')
                         ) COMMISIONED_STATE,
apex_item.text (10,
                         CUSTOMER_ID,
                          80,
                          100,
                          'style="width:170px" ',
                          'f10_' || LPAD (ROWNUM, 4, '0')
                         ) CUSTOMER_ID,
apex_item.text (11,
                         SITE_ID,
                          80,
                          100,
                          'style="width:170px"',
                          'f11_' || LPAD (ROWNUM, 4, '0')
                         ) SITE_ID
      FROM EQUIPMENTS_FEAT_MVIEW
      UNION ALL
      SELECT     apex_item.checkbox
                                (1,
                                 NULL,
                                 'onclick="highlight_row(this,' || ROWNUM || ')"',
                                 NULL,
                                 'f1_' || LPAD (9900 + LEVEL, 4, '0')
                                ) delete_checkbox,
                 NULL,
                    apex_item.hidden (2, NULL)
                 ||apex_item.text (3,
                                    NULL,
                                    80,
                                    100,
                                    'style="width:170px"',
                                    'f3_' || LPAD (9900 + LEVEL, 4, '0')
                             ) || apex_item.hidden (4, NULL)EQUIPMENT_ROLE ,
                  apex_item.text (5,
                             NULL,
                             80,
                             100,
                             'style="width:170px"',
                             'f05_' || LPAD (9900 + LEVEL, 4, '0')
                             )EQUIPMENT_VERSION,
                  apex_item.text (6,
                              NULL,
                              80,
                              100,
                              'style="width:170px"',
                              'f06_' || LPAD (9900 + LEVEL, 4, '0')
                             )SNMP_PORT,
                 apex_item.text (7,
                            NULL,
                           80,
                            100,
                            'style="width:170px"',
                           'f07_' || LPAD (9900 + LEVEL, 4, '0')
                             ) RO_COMMUNITY_STRING,
                  apex_item.text (8,
                              NULL,
                              80,
                              100,
                              'style="width:170px"',
                              'f08_' || LPAD (9900 + LEVEL, 4, '0')
                             )RW_COMMUNITY_STRING,
                 apex_item.text (9,
                              NULL,
                              80,
                              100,
                              'style="width:170px"',
                              'f09_' || LPAD (9900 + LEVEL, 4, '0')
                             )COMMISIONED_STATE,
                   apex_item.text (10,
                              NULL,
                              80,
                              100,
                              'style="width:170px"',
                              'f10_' || LPAD (9900 + LEVEL, 4, '0')
                             )CUSTOMER_ID,
                 apex_item.text (11,
                              NULL,
                              80,
                              100,
                              'style="width:170px"',
                              'f11_' || LPAD (9900 + LEVEL, 4, '0')
                             )SITE_ID
                     FROM DUAL
                    WHERE :request = 'ADD'
CONNECT BY LEVEL <= 1How can i solve this problem . Please help,
Thanks,
Jeev

Hi,
The blank row that you get from your second select statement would appear at the end of the report. Put that statement first and it should be at the top of the first page
Andy

APEX_COLLECTION - where does the code go?

I am trying to create my first APEX collection.
Where does the code go?
Do I create a region as a PL/SQL anonymous block?
Please advise -
Regards,
Stan

Hi,
I think best is create page process where you create/populate collection
Br,Jari

Passing parameters between form portlets on two different pages ...

Here is a brief summary of our problem.
We have one master form and a detail form which are published as portlets and placed in two different pages.
Now i want to pass parameters from master form portlet resides on one page to detail form portlet resides on another page.
Say for example, when i invoke master form (created based on demo DEPT table), enter values on fields then invoke another page
on which the second form portlet (say form based on EMP demo table) resides. Now i want to pass deptno to second form and
get displayed in deptno field of second form.
I was looking at the following posting, but how to do this when forms are published as portlets and placed on two different pages ?
http://forums.oracle.com/forums/message.jsp?id=997683
Customer actually want to pass a parameter from master form to 5 detail form portlets resides on different pages.
This is bit urgent as it is the only problem stopping the customer go live.
Thanks in advance.

Please refer to post Re: session state security
It tells you how to populate a form portlet in a page by clicking on a link in a report portlet.
You can use the wwsto_api_session objects to store data submitted by the master and let the detail form pick it up and proceed with the query.

Where are Cost Codes attached to a Project Number in Financials?

Where are Cost Codes attached to a Project Number in Financials?
Don't know where to start looking in the documentation..
I need to know where I can add GL Cost Codes to a particular Project number for our testing of i-Expenses.
anybody know?
many thanks,
Steven

Well, not sure what you mean by "cost codes". Normally when I see that wording I think of work breakdowns within a project. I don't think of cost codes as being general ledger numbers. But maybe you are meaning to say general ledger number? I see "Project Number" though, which makes me think you are talking about project accounting. You set up your projects in project accounting and create what Oracle calls Tasks (I like to them of them as cost codes) that you can assign to your projects. So this would all be in Project Accounting. You may want to download the various user guides for Oracle Projects to start learning about this application. You must be running project accounting, correct? So maybe you need to find the person in your company who knows this application and start to get educated on it. There is a separate forum for Projects where this may be a better place to ask this question. You may need to provide more detail on what you are trying to do if you are not involved with project accounting.
John Dickey

Code to populate a zzfield in extract structure

Hi Guru's
I am enhancing a zfield in extract structure for 2lis_13_vditm. I have added the zfield in the append struture & activated it.
Zfield is populated from the table VBAP. I wanted to write an User Exit (EXIT_SAPLRSAP_001) to populate this zfield at CMOD.
As I am not well versed in ABAP,I would really appreciate if you can help me to write a code to populate this zfield from VBAP.
Thank you,
Neel

Hi,
Check for the sample code for 2LIS_13_VDITM.
For 2LIS_13_VDITM Billing item Data
TYPES: BEGIN OF ty_vbak,
         vbeln TYPE vbeln_va,
         vgbel TYPE vgbel,
       END OF ty_vbak.
DATA: lx_vbak TYPE ty_vbak,
      lt_vbak TYPE TABLE OF ty_vbak.
TYPES: BEGIN OF ty_vbrp,
         vbeln TYPE vbeln_va,
         vgbel TYPE vgbel,
       END OF ty_vbrp.
DATA: lx_vbrp TYPE ty_vbrp,
      lt_vbrp TYPE TABLE OF ty_vbrp.
DATA: lx_billitem TYPE mc13vd0itm.
DATA: lt_billitem TYPE TABLE OF mc13vd0itm .
DATA: lt_billitem_tmp TYPE TABLE OF mc13vd0itm .
For 2LIS_13_VDITM item data
WHEN '2LIS_13_VDITM'.
    lt_billitem[] = c_t_data[].
    lt_billitem_tmp[] = c_t_data[].
    IF NOT lt_billitem_tmp[] IS INITIAL.
      SORT lt_billitem_tmp BY aubel.
      DELETE ADJACENT DUPLICATES FROM lt_billitem_tmp COMPARING aubel.
      SELECT vbeln
             vgbel
        FROM vbak
        INTO TABLE lt_vbak
         FOR ALL ENTRIES IN lt_billitem_tmp
       WHERE vbeln = lt_billitem_tmp-aubel
         AND vgtyp = 'G'.
      IF sy-subrc EQ 0.
        SORT lt_vbak BY vbeln.
      ENDIF.
    ENDIF.
Populate the added fields
    LOOP AT lt_billitem INTO lx_billitem.
      l_index = sy-tabix.
      MOVE lx_billitem-vbeln TO l_name.
Internal Text
      CLEAR lt_line.
      REFRESH lt_line.
      CALL FUNCTION 'READ_TEXT'
        EXPORTING
         CLIENT                        = SY-MANDT
          id                            = 'Z010'
          language                      = sy-langu
          name                          = l_name
          object                        = 'VBBK'
        ARCHIVE_HANDLE                = 0
        LOCAL_CAT                     = ' '
      IMPORTING
        HEADER                        =
        TABLES
          lines                         = lt_line
       EXCEPTIONS
         id                            = 1
         language                      = 2
         name                          = 3
         not_found                     = 4
         object                        = 5
         reference_check               = 6
         wrong_access_to_archive       = 7
         OTHERS                        = 8
      IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
      IF NOT lt_line[] IS INITIAL.
        CLEAR lx_line.
        READ TABLE lt_line INTO lx_line INDEX 1.
        lx_billitem-zitext = lx_line-tdline.
      ENDIF.
      CLEAR lt_line.
      REFRESH lt_line.
External Text
      CALL FUNCTION 'READ_TEXT'
        EXPORTING
         CLIENT                        = SY-MANDT
          id                            = 'Z011'
          language                      = sy-langu
          name                          = l_name
          object                        = 'VBBK'
        ARCHIVE_HANDLE                = 0
        LOCAL_CAT                     = ' '
      IMPORTING
        HEADER                        =
        TABLES
          lines                         = lt_line
       EXCEPTIONS
         id                            = 1
         language                      = 2
         name                          = 3
         not_found                     = 4
         object                        = 5
         reference_check               = 6
         wrong_access_to_archive       = 7
         OTHERS                        = 8
      IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
      IF NOT lt_line[] IS INITIAL.
        CLEAR lx_line.
        READ TABLE lt_line INTO lx_line INDEX 1.
        lx_billitem-zetext = lx_line-tdline.
      ENDIF.
      CLEAR lx_vbak.
      READ TABLE lt_vbak INTO lx_vbak
                 WITH KEY vbeln = lx_billitem-aubel.
      IF sy-subrc EQ 0.
        lx_billitem-zcontract = lx_vbak-vgbel.
      ENDIF.
      IF lx_billitem-aubel EQ lx_billitem-vgbel.
        lx_billitem-vgbel = space.
      ENDIF.
      MODIFY lt_billitem FROM lx_billitem INDEX l_index.
    ENDLOOP.
    CLEAR c_t_data.
    REFRESH c_t_data.
    c_t_data[] = lt_billitem[].
Thanks,
Debasish

Code to populate fields

Hi gurus,
I have 2 Z-fields in VBRP table.I have appended these fields to the extract structure(2LIS_13_VDITM).I need to write a code to populate these fields with Data.As i am new to ABAP,can anyone help me with the code.Very much appreciated,also it would be great if you could just write in comments for what each line of code does.
Thanks in advance

Hi ,
      This is just a sample,
TABLES: vbak,
        ekkn,
        vbap,
        ekpo.
DATA: o_ekko LIKE ekko,
      i_t_ekpo LIKE ekpo   OCCURS 1 WITH HEADER LINE.
DATA: BEGIN OF lt_custmat OCCURS 0,
             kunnr LIKE vbak-kunnr,
             matnr LIKE vbap-matnr,
      END OF lt_custmat.
DATA: ld_distributionfactor LIKE mcekpo-abcposo,
      ebeln LIKE ekpo-ebeln,
      ebelp LIKE ekpo-ebelp,
      it_ekpo TYPE TABLE OF ekpo WITH HEADER LINE,
      old_val(50) TYPE c.               "For storing the value from the
             style='mso-tab-count:3'>                                          "Field Symbol
FIELD-SYMBOLS <fs> TYPE ANY TABLE.
CASE zeitp.
WHEN 'MA'.                            "When creating a purchase order
    MOVE '(SAPLEINS)T_EKPO[]' TO old_val.
    ASSIGN (old_val) TO <fs>.
    i_t_ekpo[] = <fs>.
    LOOP AT xmcekpo.
      ebeln = xmcekpo-ebeln.
      ebelp = xmcekpo-ebelp.
      IF xmcekpo-supkz = '1'.            "Old Value ?
        SELECT SINGLE * FROM ekpo INTO it_ekpo WHERE ebeln = ebeln AND
     ebelp = ebelp.
        xmcekpo-zkopprctr = it_ekpo-kopprctr.
      ELSE.                              "New Value ?
        READ TABLE i_t_ekpo WITH KEY ebeln = ebeln
                                     ebelp = ebelp.
        xmcekpo-zkopprctr = i_t_ekpo-kopprctr.
      ENDIF.
      MODIFY xmcekpo .
    ENDLOOP.
hope it helps,

Where to add code to populate form parameters in forms 6i?

Similar Messages

Maybe you are looking for