Spry fade loop - how to call properly?

Hey everyone, I just picked up Spry yesterday. I'm more of an
artist than a coder so I have a pretty basic question.
I have a shop that runs with php SMARTY templates, that is
why this code looks a little odd. I've simplified it here so that
basically {$product_counter} is a number from 1 to 10 that is
updated during a loop so that each product has a unique div ID. I
am using it here to multiply the delay so that each DIV will run
the productFade with an increasing delay.
<script type="text/javascript">
var productFade = new
Spry.Effect.Fade('dz_product{$product_counter}', {duration: 500,
from: '0%', to: '100%', toggle:true});
setTimeout(function() { window.onLoad = productFade.start();
}, {$product_counter}*200);
</script>
Currently it ends up working fine for the last div in the
list, but the preceeding ones don't fire.
Perhaps I shouldn't be using window.onLoad? I really don't
even know how to call these so that they fire in succession, would
it be better to have the loop in Spry instead of my template and
just call it once? Any help would be greatly appreciated! Feel free
to tell me how incredibly wrong I am on all fronts! Cheers,
-Andrew

...of course I get it ALMOST working right the second after I
post this. I had to create a new function for every instance. Now I
have productFade1.start(); productFade2.start(); etc etc.. this
seems to work but there must be a way that is better than 10 nearly
identical javascripts?

Similar Messages

How can call report 9i from form9i

i need to ask about report9i
i try to call report from form9i by button
from there but not success
i write the code blow
RUN_REPORT_OBJECT('c:\test.rdf','p1_id');
best regard

Hi ,
I am pasting an example of how to call the RUN_REPORT_OBJECT and what all need to be set for it to function properly. You can use the code, but remember to edit some of the details that you are supposed to fill before trying to run.
DECLARE
Report_Id REPORT_OBJECT;
Report_Job_Id VARCHAR2(20);
Report_Status VARCHAR2(80);
Report_Svr VARCHAR2(20);
BEGIN
Report_Id := FIND_REPORT_OBJECT('<your_report_object>');
Report_Svr := '<your_report_server>';
SET_REPORT_OBJECT_PROPERTY(Report_Id,REPORT_EXECUTION_MODE, BATCH);
SET_REPORT_OBJECT_PROPERTY(Report_Id,REPORT_FILENAME, '<your_report_file>');
SET_REPORT_OBJECT_PROPERTY(Report_Id,REPORT_COMM_MODE, SYNCHRONOUS);
SET_REPORT_OBJECT_PROPERTY(Report_Id,REPORT_DESTYPE, CACHE);
SET_REPORT_OBJECT_PROPERTY(Report_Id,REPORT_DESFORMAT,'PDF');
SET_REPORT_OBJECT_PROPERTY(Report_Id,REPORT_SERVER, Report_Svr);
SET_REPORT_OBJECT_PROPERTY(Report_Id,REPORT_OTHER, 'blankpages=no paramform=no ...');
Report_Job_Id := RUN_REPORT_OBJECT(Report_Id);
Report_Status := REPORT_OBJECT_STATUS(Report_Job_Id);
WHILE Report_Status IN ('RUNNING','OPENING_REPORT','ENQUEUED') LOOP
Report_Status := REPORT_OBJECT_STATUS(Report_Job_Id);
END LOOP;
IF Report_Status = 'FINISHED' then
WEB.SHOW_DOCUMENT('http://<machine>:<port>/reports/rwservlet/getjobid' || substr(Report_Job_Id, length(Report_Svr) + 2, length(Report_Job_Id)) || '?server=' || Report_Svr);
END IF;
Hope this helps.
Thanks,
Vinod.

How to call reports 6i or forms 6i directly from oracle procedure

Hi,
Hi,
Env: 6.0.8.25.2 (forms 6i/reports 6i)
Database: Oracle 10g r2
We are running a client server environment and not web based.
I want to run the forms 6i or reports 6i directly from a database procedure/function and not by creating a procedure inside a form and then call a report.
Looking for calling forms6i/reports 6i directly from sql*plus commands used inside the PLSQL database procedure/function. (Just like we create a stand alone package/procedure/function).
I have developed many forms and reports and very comfortable in calling reports from forms 6i.
My question was completely different but looks like i was not able to explain properly:
I want to call the forms 6i or reports 6i directly from sqlplus* prompt and through stand alone oracle database procedure/function (procedure created directly in database but not as a program unit within form or report).
There is a requirement to call the form through database scheduling by passing fixed parameters and then generate the report pdf and email automatically to various users.
Also, is there any way to schedule a report automatically so that the report runs automatically in the scheduled time and send out reports to the users. I have developed a email program but looking for scheduling the report or forms 6i.
Thanks,
Srinivas

Hi,
There are couple of existing reports and forms developed in 6i and users are using them when required.
For certain MIS reports, management wants them to be generated on daily/weekly basis and email to be sent to them as PDF files.
Have a program which will convert to PDF and email to users but not able to trace on how to call the forms 6i or reports 6i and pass the report parameters so that the report is called directly through pl/sql so that i can schedule them.
All the forms and report executables are located on server1 and database server is located in server2 and running on client/server architecture.
Database version is 10g r2 and Forms/Reports version is 6i.
Any code samples would be of great use.
Srinivas

How to Call a Crystal Report from Form 6i?

Dear All,
Can anybody tell me how to call a crystal report, designed using Crystal Report 9, in form 6i? I tried one solution by using the host command but it was not working properly. The code I was tried is like:
     f_name varchar2(240);
     f_name :='C:\Program Files\Crystal Decisions\Crystal Reports 9\crw32.exe D:\Form16\Form16_Rep\bin\Debug\Form_16_character_emp.rpt';
               host(f_name);
This open the crystal report in design view. So how we call a report which run automatically like in .Net. How to pass the connection info of the database schema?
Thanks & Regards
Sunil

Hi
First see the built in run_product function.
You can create a parameter list, add the
"MAXIMIZE" paramter in it and then call your
report with run_product passing your parameter list in it.
hence the called report will be maximized.
null

How to call one procedure from another procedure

Hi all,
Could anyone give me clue how to call a procedure contains out parameters
from another procedure.
I had following procedures.
1)
create or replace procedure INS_PUR_ORDER
p_poamt in number,
p_podate in date,
p_poid out number
is
begin
select pkseq.nextval into p_poid from dual;
insert into pur_order(poamt,podate,poid)
values (p_poamt,p_podate,p_poid);
end;
2)
create or replace procedure INS_PUR_ORDER_DETAIL
p_pounits in number,
p_poddate in date,
p_poid in number)
is
begin
Insert into pur_order_detail(podid,pounits,poddate,poid)
values(pdseq.nextval,p_pounits,p_poddate,p_poid);
end;
I need to write a 3rd procedure which calls above two procedures.
like
call first procedure ,basing on the return value
i.e if p_poid != 0 then
we need to call second procedure
in the loop.
thanks in advance.
rampa.

Not sure what are you doing, you can not assign cursor to another cursor, may be you are looking for this?
SQL> create or replace procedure proc1 ( result out sys_refcursor)
2 is
3
4 begin
5     open result for
6       select 'HELLO WORLD' from dual ;
7 end proc1 ;
8 /
Procedure created.
Elapsed: 00:00:00.01
SQL> create or replace procedure proc2
2 is
3     l_cursor sys_refcursor ;
4 begin
5     l_cursor := proc1 ;
6
7
8     open l_cursor;
9     fetch l_cursor into l_text;
10     dbms_output.put_line(l_text);
11     close l_cursor;
12
13
14 end proc2 ;
15 /
Warning: Procedure created with compilation errors.
Elapsed: 00:00:00.01
SQL> show error;
Errors for PROCEDURE PROC2:
LINE/COL ERROR
5/4      PL/SQL: Statement ignored
5/16     PLS-00306: wrong number or types of arguments
         in call to 'PROC1'
6/4      PLS-00201: identifier 'L_TEXT' must be
         declared
6/4      PL/SQL: Statement ignored
8/4      PLS-00382: expression is of wrong type
8/4      PL/SQL: SQL Statement ignored
9/4      PL/SQL: SQL Statement ignored
9/24     PLS-00201: identifier 'L_TEXT' must be
         declared
10/4     PL/SQL: Statement ignored
10/25    PLS-00201: identifier 'L_TEXT' must be
         declared
---- this is the correct waySQL>ed
1 create or replace procedure proc2
2 is
3     l_cursor sys_refcursor ;
4     l_text varchar2(100);
5 begin
---- procedure call
6     proc1(l_cursor);
7    -- open l_cursor;
8     fetch l_cursor into l_text;
9     dbms_output.put_line(l_text);
10     close l_cursor;
11* end proc2 ;
SQL> /
Procedure created.
Elapsed: 00:00:00.01
SQL> set serveroutput on
SQL> execute proc2;
HELLO WORLD
PL/SQL procedure successfully completed.
Elapsed: 00:00:00.00
SQL>

How to call a jsp page from oaf and run in jDeveloper

Hi all,
I created sample jsp and then tried.
String temp = "sample.jsp?";
pageContext.setForwardURL(temp,
null,
OAWebBeanConstants.KEEP_MENU_CONTEXT,
null,
null,
true,
OAWebBeanConstants.ADD_BREAD_CRUMB_YES,
OAWebBeanConstants.IGNORE_MESSAGES);
It worked.
But when i tried with one of the custom page that i downloaded from server it is giving error.
But now i need to call that page.
Its Code is given on below link:
Re: how to call a jsp page from oaf
Please help me to do this.
Thanks in advance.
Regards,
Raj

Raj,
1. Hope you have placed the custom jsp page (which you have downloaded from server) under "jdevhome\jdev\myhtml\OA_HTML" directory ?
2. Try to run the custom jsp page from Jdeveloper directly and check whether its working properly or not ?
(i.e. add jsp page to any project in Jdeveloper then right click on jsp page and select Run xxx.jsp)
3. If page errors out then custom jsp page seems require few parameters to run it successfully. Pass all requied parameters and test.
4. There is no problem in the way you are calling jsp page from OAF page.
regards,
Anand

How to call BSP based iview using Parameters

Hi,
   i developed one BSP application which takes 2 input parameters 1. Document No 2. Item No.
   I created a iView based on this BSP Application. I would like to call this iView by hardcoding input parameters.
   Input: Document No, Item and Submit button. output displays some text based on input. which is working fine, No issues.
Now, i developed a iViews using these BSP application. If i call iViews, again no Issues. Which works great, we need to enter input manally.
I would like to call my iViews with document no = '0004000000' , Item No = '000001' and Submit = 'SET'. Which directly should display the data for above document item.
that means iView URL + Document = '0000400000' & Item = '000001' & submit = 'SET'.
how to call Parametrized iViews???
I'm talking about Application Parameters in documentation (http://help.sap.com/saphelp_nw04/Helpdata/EN/88/266a3e54a2e946e10000000a114084/content.htm).
ApplicationParameter
You can enter parameter values for certain screen fields for displaying a SAP transaction here.
This field is optional.
The parameter values are specified with the following syntax:
<Screen_field1>=<Parameter1>
&<Screen_field2>=<Parameter2>
&<...>=<...>,...
Thanks,
Ben.
Edited by: Nagesh Ganisetti on Jan 29, 2009 9:18 AM

I want to pass values dynamically? How to pass values dynamically using URL???
assume my BSP URL wiht parameters:
http://nwd2bw1.corp.analog.com:8001/sap(bD1lbiZjPTAwMQ==)/bc/bsp/sap/zzsdpra123/start.htm?gv_doc=0040013811&gv_item=000001 WORKING GREAT!!!
Developed an iView using ZZPRA123 BSP application in portal without APPLICATION PARAMETERS.
http://nwd2bw1.corp.analog.com:50100/irj/servlet/prt/portal/prtmode/preview/prtroot/pcd!3aportalcontent!2fcom.analog.analog!2fcom.analog.SD_BI_REPORTS!2fcom.analog.SD_iviews!2fcom.analog.z_quote_text?sap-config-mode=true&_gv_doc%3d0040013811&gv_item%3d000001 NOT WORKING.
Simple BSP application: ON INITIALIZATION Method
event handler for data retrieval
data: gv_name type thead-tdname.
data: lt_line1 type standard table of tline,
      lt_line2 type standard table of tline,
      lt_line3 type standard table of tline,
      lt_line4 type standard table of tline.
data: l_rfcwa type rfcdest.
data: event type ref to cl_htmlb_event,
      url type string,
      parameter type string,
      url_page type ref to if_bsp_page.
l_rfcwa = 'PRD_CLI002'.
if gv_doc is initial.
CALL METHOD request->get_form_field
EXPORTING
    name               = 'gv_doc'
   formfield_encoding = 0
receiving
    value              = gv_doc.
endif.
concatenate gv_doc gv_item into gv_name.
call function 'ZBI_STNDARD_TEXT'
    destination l_rfcwa
    exporting
      name   = gv_name
    tables
      lines1 = lt_line1
      lines2 = lt_line2
      lines3 = lt_line3
      lines4 = lt_line4.
gt_line1[] = lt_line1[]. "Internal Header Text
gt_line2[] = lt_line2[].
gt_line3[] = lt_line3[].
gt_line4[] = lt_line4[].
Layout:
<%@page language="abap" %>
<%@extension name="htmlb" prefix="htmlb" %>
<htmlb:content design="design2003" >
<htmlb:page title="Quote Texts " >
    <htmlb:form>
      <htmlb:inputField id            = "gv_sid"
                        value         = "<%= gv_doc %>"
                        visible       = "FALSE"
                        submitOnEnter = "TRUE" />
      <htmlb:inputField
                        id            = "gv_itm"
                        value         = "<%= gv_item %>"
                        visible       = "FALSE"
                        submitOnEnter = "TRUE" />
      <htmlb:textView text      = "Quote Texts for <%= gv_doc %> "
                      design    = "HEADER1"
                      layout    = "BLOCK"
                      textColor = "dark blue" />
      <%   if gt_line1 is INITIAL.       %>
      <htmlb:textView text   = "No Internal Header Text Found"
                      design = "HEADER2" />
      <% else. %>
      <htmlb:textView text   = "Internal Header Text"
                      design = "HEADER2" />
      <%   loop at gt_line1 into gs_line.    %>
      <htmlb:textView id     = "textEdit"
                      layout = "BLOCK"
                      text   = "<%= gs_line-tdline %>" />
      <%   endloop.       %>
      <%   ENDIF.       %>
<%--* External Header text      --%>
      <%   if gt_line2 is INITIAL.       %>
      <htmlb:textView text   = "No External Header Text Found"
                      layout = "BLOCK"
                      design = "HEADER2" />
      <%   else.       %>
      <htmlb:textView text   = "External Header Text"
                      layout = "BLOCK"
                      design = "HEADER2" />
      <%   clear gs_line.       %>
      <%   loop at gt_line2 into gs_line.       %>
      <htmlb:textView id     = "textEdit"
                      layout = "BLOCK"
                      text   = "<%= gs_line-tdline %>" />
      <%   endloop.       %>
      <%   ENDIF.       %>
<%Internal Item text%>
      <%   if gt_line3 is INITIAL.       %>
      <htmlb:textView text   = "No Internal Item Text Found"
                      layout = "BLOCK"
                      design = "HEADER2" />
      <%   else.       %>
      <htmlb:textView text   = "Internal Item Text"
                      layout = "BLOCK"
                      design = "HEADER2" />
      <%   clear gs_line.       %>
      <%   loop at gt_line3 into gs_line.       %>
      <htmlb:textView id     = "textEdit"
                      layout = "BLOCK"
                      text   = "<%= gs_line-tdline %>" />
      <%   endloop.       %>
      <%   ENDIF.       %>
<%External Item text%>
      <%   if gt_line4 is INITIAL.       %>
      <htmlb:textView text   = "No External Item Text Found"
                      layout = "BLOCK"
                      design = "HEADER2" />
      <%   else.       %>
      <htmlb:textView text   = "External Item Text"
                      layout = "BLOCK"
                      design = "HEADER2" />
      <%   clear gs_line.       %>
      <%   loop at gt_line4 into gs_line.       %>
      <htmlb:textView id     = "textEdit"
                      layout = "BLOCK"
                      text   = "<%= gs_line-tdline %>" />
      <%   endloop.       %>
      <%   ENDIF.       %>
    </htmlb:form>
</htmlb:page>
</htmlb:content>
Please guide me to call iview using dynamic parameters.
Thanks,
Ben.
Edited by: Nagesh Ganisetti on Feb 2, 2009 8:47 AM
Edited by: Nagesh Ganisetti on Feb 2, 2009 8:48 AM
Edited by: Nagesh Ganisetti on Feb 2, 2009 8:49 AM

How to call same vi for 4 times in a single vi?

Hi.. I ve one vi named 1D array Mult. I need to call this vi four times in another vi program. The problem i ve experienced is all the four vi outputs are same.
My question is: How to call the same vi for many number of times?
Thanks in advance
Solved!
Go to Solution.

There is no problem (programmatically) with calling the same VI by placing it 4 times onto the block diagram. You do not have to rename them VI1, VI2, VIn if they all do the same thing, as you have done here with 1D-arrayMult... It's just messy.
You may need to make re-entrant in certain cases.
A better way to do it would of course be to use a For loop as shown (I left what you did in tact).
Are the two formula nodes identical? I didn't check. If so, use a for loop there too. Build your A and B matrices to a 3D array and auto-index in For loop - single instance of your formula node.
It is quite concerning what you have done in your 1-D Array VI. I have no idea what it is supposed to be doing, but it appears to be nothing; it is completely wrong.
There are backwards wires, your While loop does nothing (there is not shift-register) - how will it Stop?!, your cases 0, 1 and 2 are all the same! Timer of 1000ms??! hmm..
If you are trying to multiply two matrices (arrays) together then just use the native LV function to do it and to add them at the end try this:
Hope this helps you!
Message Edited by battler. on 03-12-2010 03:49 AM

How to call a Method in a Program?

Hello,
I am very new to the ABAP world. I have been given a task to call a method if_hrbas_plain_infotype_access~read_single from the class CL_HRBAS_PLAIN_INFOTYPE_ACCESS in a program to see if we can use it to display some employee information. I don't know how to call a method in a program. Can somebody please provide me some pseudo code or instructions?
Thanks.

Hi Shan,
here is the code to call a method. while calling the method Instance as 'r_info' which is the type reference to class as specified.
pass the values to exporting parameters plvar,otype,objid...etc according to the requirement
infotypes: 0002.   " creates an internal table p0002.
data:
r_info type ref to CL_HRBAS_PLAIN_INFOTYPE_ACCESS.
TRY.
CALL METHOD r_info->if_hrbas_plain_infotype_access~read
   EXPORTING
     plvar           =
     otype           =
     objid           =
     istat           =
     infty           =
*     SUBTY           =
     begda           =
     endda           =
     no_auth_check   = 'X'
     message_handler =
   IMPORTING
     PNNNN_TAB       = P0002
*     HRTNNNN_TAB     =
*     IS_OK           =
CATCH CX_HRBAS_VIOLATED_ASSERTION .
ENDTRY.
LOOP AT P0002.
      WRITE:/
        P0002-VORNA,
        P0002-NCHMC,
        P0002-NACHN.
    ENDLOOP.
Regards

How to call Reports in oracle forms 10g

Dear All,
How to call Reports in oracle forms 10g.
I am using Oracle Forms 10g Reports 10g and Database 10 and and Operating system Windows XP.
Please give me the Solution.
Thanks and Regards,
Faziludeen

Hi Omkar,
Please check the following code.
DECLARE
repid REPORT_OBJECT;
v_rep VARCHAR2(100);
rep_status VARCHAR2(20);
plid ParamList;
BEGIN
plid := Get_parameter_List('tmp');
IF NOT Id_Null(plid) THEN
Destroy_parameter_List( plid );
END IF;
plid := Create_parameter_List('tmp');
add_parameter(plid,'p_parameter',text_parameter,to_char(:POLICY.POLICY_NO));
Add_parameter(plid, 'PARAMFORM', TEXT_parameter, 'NO');
repid := FIND_REPORT_OBJECT('POL_REP');
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_COMM_MODE,SYNCHRONOUS);
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_DESTYPE,cache);
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_DESFORMAT,'PDF');
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_OTHER, 'paramform=no');
v_rep := RUN_REPORT_OBJECT(repid,plid);
rep_status := REPORT_OBJECT_STATUS(v_rep);
WHILE rep_status in ('RUNNING','OPENING_REPORT','ENQUEUED')
LOOP
rep_status := report_object_status(v_rep);
END LOOP;
WEB.SHOW_DOCUMENT('http://'||'LENOVO-428E9E41'||'8889'||'/reports/rwservlet/getjobid'||substr(v_rep,instr(v_rep,'_',-1)+1)||'?
'||'server=prod_report_server&P_parameter='||:POLICY.POLICY_NO||
'&paramform=no');
END;
I am used to Start the Report sever   'Rwserver Server=prod_Report_Server Start'
OracleAS Report Services
Version :-   10.1.2.0.2
Name    :-   prod_report_server
Status :-   Server is Shutting down
Jobs in Queue 0
Active Engines 0
I got the Following Error when I trying to run the Report
FRM-41211: Integration error:SSL failure running another product
Thanks and Regards,
Faziludeen

How to Call Java from ABAP

Hi all,
I have installed JCO & created the RFC in SAP. i have used below code to test my RFC connection & it's working fine.
But In the below report, where to call the JAVA Program & what code i should use to call java code .
Actually my ABAP requirement is to download a file. Then i need to call JAVA program, inside ABAP, to encrypt the downloaded file. Here, Java program is used to encrypt the file. Now question is, how to call the Java program inside the ABAP code. Please advice with the code sample. Thanks a lot.
REPORT z_jco_test.
PARAMETERS: requtext LIKE sy-lisel.
DATA: echotext LIKE sy-lisel,
      resptext LIKE sy-lisel,
      rfctest TYPE TABLE OF rfctest,
      wa_rfctest TYPE rfctest.
wa_rfctest-rfcdata1 = requtext.
wa_rfctest-rfcdata2 = 'Hello World'.
APPEND wa_rfctest TO rfctest.
CALL FUNCTION 'RFC_PING'
DESTINATION 'JCO'.
CALL FUNCTION 'STFC_CONNECTION'
DESTINATION 'JCO'
EXPORTING
    requtext = requtext
IMPORTING
    echotext = echotext
    resptext = resptext
TABLES
    rfctest = rfctest.
WRITE: 'Echo Text: ', echotext.
WRITE: 'Response Text: ', resptext.
LOOP AT rfctest INTO wa_rfctest.
WRITE: / 'rfcdata1: ', wa_rfctest-rfcdata1.
WRITE: / 'rfcdata2: ', wa_rfctest-rfcdata2.
ENDLOOP.

Hi,
You might accomplish your goal using external operating system commands.
1) Define in SM69 an external command, letu2019s say ZJAVA. This command will execute a script on the operating system, letu2019s call it calljava.sh.
2) In script calljava.sh you just call java, passing some parameters. For example, java $1 $2 $3 $4 $5 $6 $7
3) In your ABAP program you call the ZJAVA external command and pass parameters to it. Of course, one of the parameters must be your Java program name.
CALL FUNCTION 'SXPG_COMMAND_EXECUTE'
    EXPORTING
      commandname                   = l_command
      additional_parameters         = l_param
      trace                         = 'X'
    IMPORTING
      status                        = l_status
      exitcode                      = l_exitcode
    TABLES
      exec_protocol                 = l_exec_protocol_itab
    EXCEPTIONS
      no_permission                 = 1u2026

How to call BAPI in a ABAP prog

Hi All
I have a concern regarding the usuage of BAPI in the ABAP program.
i have successfully created a BAPI and i have implemented a method as well using ADD API Method button.
Now after doin all the things in SWO1.
I wanted to know how to call this BAPI method in se38.
CAn anyone throw some light on this ?
Regards
Gaurav

Hi,
try this
*& Report ZKAR_MATMAS_BAPI
*& This program demonstrates how easy it is to create Material master
*& data using BAPI_MATERIAL_SAVEDATA
*& The program also generates a report post-execution displaying errors
*& as well as successful uploads
REPORT ZKAR_MATMAS_BAPI.
* TABLES
* FLAGS *
DATA: F_STOP. " Flag used to stop processing
* DATA DECLARATIONS *
DATA : V_EMPTY TYPE I, " No. of empty records
V_TOTAL TYPE I. " Total no. of records.
* STRUCTURES & INTERNAL TABLES
*BAPI structures
DATA: BAPI_HEAD LIKE BAPIMATHEAD, " Header Segment with Control Information
BAPI_MAKT LIKE BAPI_MAKT, " Material Description
BAPI_MARA1 LIKE BAPI_MARA, " Client Data
BAPI_MARAX LIKE BAPI_MARAX, " Checkbox Structure for BAPI_MARA
BAPI_MARC1 LIKE BAPI_MARC, " Plant View
BAPI_MARCX LIKE BAPI_MARCX, " Checkbox Structure for BAPI_MARC
BAPI_MBEW1 LIKE BAPI_MBEW, " Accounting View
BAPI_MBEWX LIKE BAPI_MBEWX, " Checkbox Structure for BAPI_MBEW
BAPI_RETURN LIKE BAPIRET2. " Return Parameter
*--- Internal table to hold excel file data
DATA: IT_INTERN TYPE ALSMEX_TABLINE OCCURS 0 WITH HEADER LINE.
*--- Internal table to hold Matetrial descriptions
DATA: BEGIN OF IT_MAKT OCCURS 100.
        INCLUDE STRUCTURE BAPI_MAKT.
DATA: END OF IT_MAKT.
*--- Internal to hold the records in the text file
DATA : BEGIN OF IT_DATA OCCURS 100,
            WERKS(4), " Plant
            MTART(4), " Material type
            MATNR(18), " Material number
            MATKL(9) , " Material group
            MBRSH(1), " Industry sector
            MEINS(3), " Base unit of measure
            GEWEI(3), " Weight Unit
            SPART(2), " Division
            EKGRP(3), " Purchasing group
            VPRSV(1), " Price control indicator
            STPRS(12), " Standard price
            PEINH(3), " Price unit
            SPRAS(2), " Language key
            MAKTX(40), " Material description
            END OF IT_DATA.
* SELECTION SCREEN. *
SELECTION-SCREEN BEGIN OF BLOCK SCR1 WITH FRAME TITLE TEXT-111.
PARAMETER : P_FILE TYPE RLGRAP-FILENAME OBLIGATORY DEFAULT " Input File
'C:\Material_master.XLS'.
PARAMETER : P_MAX(4) OBLIGATORY DEFAULT '100'. " no.of recs in a session
PARAMETERS: P_HEADER TYPE I DEFAULT 0. " Header Lines
PARAMETERS: P_BEGCOL TYPE I DEFAULT 1 NO-DISPLAY,
P_BEGROW TYPE I DEFAULT 1 NO-DISPLAY,
P_ENDCOL TYPE I DEFAULT 100 NO-DISPLAY,
P_ENDROW TYPE I DEFAULT 32000 NO-DISPLAY.
SELECTION-SCREEN END OF BLOCK SCR1.
* AT SELECTION-SCREEN *
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.
*--- Validating file
PERFORM VALIDATE_FILE USING P_FILE.
* START-OF-SELECTION
START-OF-SELECTION.
*--- Perform to convert the Excel data into an internal table
PERFORM CONVERT_XLS_ITAB.
IF NOT IT_DATA[] IS INITIAL.
*--- Perform to delete Header lines
    PERFORM DELETE_HEADER_EMPTY_RECS.
ENDIF.
* END OF SELECTION. *
END-OF-SELECTION.
*--- Perform to upload Material Master data
PERFORM UPLOAD_MATMAS.
* Form : validate_input_file
* Description : To provide F4 help for file if read from PC
FORM VALIDATE_FILE USING F_FILE TYPE RLGRAP-FILENAME.
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
    CHANGING
      FILE_NAME     = F_FILE
    EXCEPTIONS
      MASK_TOO_LONG = 1
      OTHERS        = 2.
IF SY-SUBRC <> 0.
    MESSAGE S010(ZLKPL_MSGCLASS). " 'Error in getting filename'.
ENDIF.
ENDFORM. " validate_input_file
*& Form CONVER_XLS_ITAB
* text
FORM CONVERT_XLS_ITAB.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
    EXPORTING
      FILENAME    = P_FILE
      I_BEGIN_COL = P_BEGCOL
      I_BEGIN_ROW = P_BEGROW
      I_END_COL   = P_ENDCOL
      I_END_ROW   = P_ENDROW
    TABLES
      INTERN      = IT_INTERN.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
*--- Perform to move the data into an internal data
PERFORM MOVE_DATA.
ENDFORM. " CONVERT_XLS_ITAB
*& Form MOVE_DATA
* text
FORM MOVE_DATA.
DATA : LV_INDEX TYPE I.
FIELD-SYMBOLS <FS>.
*--- Sorting the internal table
SORT IT_INTERN BY ROW COL.
CLEAR IT_INTERN.
LOOP AT IT_INTERN.
    MOVE IT_INTERN-COL TO LV_INDEX.
*--- Assigning the each record to an internal table row
    ASSIGN COMPONENT LV_INDEX OF STRUCTURE IT_DATA TO <FS>.
*--- Asigning the field value to a field symbol
    MOVE IT_INTERN-VALUE TO <FS>.
    AT END OF ROW.
      APPEND IT_DATA.
      CLEAR IT_DATA.
    ENDAT.
ENDLOOP.
ENDFORM. " MOVE_DATA
*& Form DELETE_HEADER_EMPTY_RECS
* To delete the Header and empty records
FORM DELETE_HEADER_EMPTY_RECS.
DATA: LV_TABIX LIKE SY-TABIX.
IF NOT P_HEADER IS INITIAL.
    LOOP AT IT_DATA.
      IF P_HEADER > 0 AND NOT IT_DATA IS INITIAL.
        DELETE IT_DATA FROM 1 TO P_HEADER.
* P_HEADER = 0.
        EXIT.
      ENDIF.
    ENDLOOP.
ENDIF.
CLEAR IT_DATA.
*--- To delete the empty lines from internal table
LOOP AT IT_DATA.
    LV_TABIX = SY-TABIX.
    IF IT_DATA IS INITIAL.
      V_EMPTY = V_EMPTY + 1.
      DELETE IT_DATA INDEX LV_TABIX..
    ENDIF.
ENDLOOP.
CLEAR IT_DATA.
*--- Total no of recs in file
DESCRIBE TABLE IT_DATA LINES V_TOTAL.
IF V_TOTAL = 0.
    MESSAGE I013(ZLKPL_MSGCLASS). " No records in the file
    F_STOP = 'X'.
    STOP.
ENDIF.
ENDFORM. " DELETE_HEADER_EMPTY_RECS
*& Form UPLOAD_MATMAS
* to upload Material Master data
FORM UPLOAD_MATMAS .
LOOP AT IT_DATA.
* Header
    UNPACK IT_DATA-MATNR TO IT_DATA-MATNR.
    BAPI_HEAD-MATERIAL = IT_DATA-MATNR.
    BAPI_HEAD-IND_SECTOR = IT_DATA-MBRSH.
    BAPI_HEAD-MATL_TYPE = IT_DATA-MTART.
    BAPI_HEAD-BASIC_VIEW = 'X'.
    BAPI_HEAD-PURCHASE_VIEW = 'X'.
    BAPI_HEAD-ACCOUNT_VIEW = 'X'.
* Material Description
    REFRESH IT_MAKT.
    IT_MAKT-LANGU = IT_DATA-SPRAS.
    IT_MAKT-MATL_DESC = IT_DATA-MAKTX.
    APPEND IT_MAKT.
* Client Data - Basic
    BAPI_MARA1-MATL_GROUP = IT_DATA-MATKL.
    BAPI_MARA1-BASE_UOM = IT_DATA-MEINS.
    BAPI_MARA1-UNIT_OF_WT = IT_DATA-GEWEI.
    BAPI_MARA1-DIVISION = IT_DATA-SPART.
    BAPI_MARAX-MATL_GROUP = 'X'.
    BAPI_MARAX-BASE_UOM = 'X'.
    BAPI_MARAX-UNIT_OF_WT = 'X'.
    BAPI_MARAX-DIVISION = 'X'.
* Plant - Purchasing
    BAPI_MARC1-PLANT = IT_DATA-WERKS.
    BAPI_MARC1-PUR_GROUP = IT_DATA-EKGRP.
    BAPI_MARCX-PLANT = IT_DATA-WERKS.
    BAPI_MARCX-PUR_GROUP = 'X'.
* Accounting
    BAPI_MBEW1-VAL_AREA = IT_DATA-WERKS.
    BAPI_MBEW1-PRICE_CTRL = IT_DATA-VPRSV.
    BAPI_MBEW1-STD_PRICE = IT_DATA-STPRS.
    BAPI_MBEW1-PRICE_UNIT = IT_DATA-PEINH.
    BAPI_MBEWX-VAL_AREA = IT_DATA-WERKS.
    BAPI_MBEWX-PRICE_CTRL = 'X'.
    BAPI_MBEWX-STD_PRICE = 'X'.
    BAPI_MBEWX-PRICE_UNIT = 'X'.
*--- BAPI to create material
    CALL FUNCTION 'BAPI_MATERIAL_SAVEDATA'
    EXPORTING
    HEADDATA = BAPI_HEAD
    CLIENTDATA = BAPI_MARA1
    CLIENTDATAX = BAPI_MARAX
    PLANTDATA = BAPI_MARC1
    PLANTDATAX = BAPI_MARCX
* FORECASTPARAMETERS =
* FORECASTPARAMETERSX =
* PLANNINGDATA =
* PLANNINGDATAX =
* STORAGELOCATIONDATA =
* STORAGELOCATIONDATAX =
* VALUATIONDATA = BAPI_MBEW1
* VALUATIONDATAX = BAPI_MBEWX
* WAREHOUSENUMBERDATA =
* WAREHOUSENUMBERDATAX =
* SALESDATA = BAPI_MVKE1
* SALESDATAX = BAPI_MVKEX
* STORAGETYPEDATA =
* STORAGETYPEDATAX =
    IMPORTING
    RETURN = BAPI_RETURN
    TABLES
    MATERIALDESCRIPTION = IT_MAKT
* UNITSOFMEASURE =
* UNITSOFMEASUREX =
* INTERNATIONALARTNOS =
* MATERIALLONGTEXT =
* TAXCLASSIFICATIONS =
* RETURNMESSAGES =
* PRTDATA =
* PRTDATAX =
* EXTENSIONIN =
* EXTENSIONINX =
    IF BAPI_RETURN-TYPE = 'E'.
      WRITE:/ 'Error:' ,BAPI_RETURN-MESSAGE ,'for material:' ,IT_DATA-MATNR.
    ELSEIF BAPI_RETURN-TYPE = 'S'.
      WRITE: 'Successfully created material' ,IT_DATA-MATNR.
    ENDIF.
ENDLOOP.
ENDFORM. " UPLOAD_MATMAS
Regards,
V.Balaji
Reward if Usefull...

How to call webservice application using Browser

Hi Everybody,
Synchronous Scenario: Calling XI Server using WebServices( Sending the Customer no through Soap and from there the receiver adapter RFC is picking that no and it will send it to R/3 using BAPI and getting the Customer Details from R/3.
I followed the below two blogs and I created the complete scenario. And I deployed the ear file in WebAs in xi server.
Now the question is how to run this program using the browser. That is how to call.
Message Interface Name: CDWS_MI
Service Name : Soap_Service
Namespace : urn:xiwebservicesusingwebdynpro.com
Can you tell me how to call through the browser?
https://www.sdn.sap.com/irj/sdn/weblogs?blog=/pub/wlg/3592---- [original link is broken] [original link is broken] [original link is broken] [original link is broken]
>1
https://www.sdn.sap.com/irj/sdn/weblogs?blog=/pub/wlg/3593---- [original link is broken] [original link is broken] [original link is broken] [original link is broken]
>2
Advance thanks,
Abdullah Shaik.

Hi,
It's not clear to me what you did. Have you exposed an XI Message Interface through a Web Service? Or have you developed a Web Service in the other way? What is the "ear" that you said? Is an webdynpro app? If it is, I think your question would be properly answered at WebDynpro forum
cheers!
roberti

How to call javascript function from PL/SQL procedure

Can anybody advice me how to call javascript function from PL/SQL procedure in APEX?

Hi,
I have a requirement to call Javascript function inside a After Submit Process.
clear requirement below:
1. User selects set of check boxes [ say user want to save 10 files and ticks 10 checkboxes]
2. user clicks on "save files" button
3. Inside a After submit process, in a loop, i want to call a javascript function for each of the file user want to save with the filename as a parameter.
Hope this clarify U.
Krishna.

How to call a Oracle Proc,which contains Object Type as in Param, from java

Hi
Would like to know how to call a Oracle Procedure which contains the Object Type Parameter from java.
Here is my code will look like...
1. CREATE OR REPLACE TYPE emp AS OBJECT
Empno NUMBER,
Ename VARCHAR2(50)
[COLOR=royalblue]In step1 I have created object type.[COLOR]
2.CREATE OR REPLACE PACKAGE ref_pkg IS
TYPE tab_emp IS TABLE OF emp;
END ref_pkg;
[COLOR=royalblue]In step2,I have created a table type which is of type emp;[COLOR]
3. CREATE OR REPLACE PROCEDURE p_emp(p_emptab IN ref_pkg.tab_emp) as
BEGIN
FOR I IN 1..p_emptab.COUNT
LOOP
Some code written here
END LOOP;
END;
[COLOR=royalblue]In step3 I have passed tabletype which is of type emp as argument.[COLOR]
Now I need to invoke this procedure from JAVA.
Calling a procedure doesn�t matter.
But how I can map objecttype ? how will java recognize oracle object ?
How can I implement this ?
Any Help/Clues is Appreciated.
Thanks
Krishna

Hi Bob
You can call a stored proc from a database control with the jc:sql annotation itself.
Assume a stored proc taking one In parameter
* @jc:sql statement="call sp_updateData({id})"
void call_sp_updateCust(int id);
You can even call stored proc with OUT parameters using
* @jc:sql statement="{call sp_MyProc(?, ?)}"
void call_sp_MyProc(SQLParameter[] params)
You can also call stored functions via db control.
More info and diff ways to call at
http://e-docs.bea.com/workshop/docs81/doc/en/workshop/guide/controls/database/conStoredProcedures.html
Thanks
Vimala

Spry fade loop - how to call properly?

Similar Messages

Maybe you are looking for