How to create input text of the node in AVL tree

Hi experts,
I create a simple AVL tree to display the sales order items, just two classes for one relationship. Like the left part on the screen in this program "DEMO_ABAP_OBJECTS_CONTROLS".
I want to let the node of the second class be maintained serial no., somthing like input field behind the node or double click the node, then show up the input field on another space on the same screen.
And there is a button on screen, I can do some check for the text of input field when pressing the button. If the input data is wrong , then show up the error message.
I have searched BCALV* in SE38, but i don't see anything helpful.
Plz give me some advice, thanks a lot!!
Regards,
Claire

To Kunjal and Uwe,
My AVL tree is declared like this:
Data: tree TYPE REF TO cl_gui_simple_tree.
The class is not "cl_gui_alv_tree" , so I can not use the code.
The code I create the node is the follwing:
CALL METHOD tree->add_nodes
EXPORTING table_structure_name = 'ABDEMONODE'
node_table = node_table.
And I looked the program that Uwe wrote, the tree is declared in class cl_gui_alv_tree, too.
I want to double click the node and appear a field that can be inputed text.
Is there any other way to do this with the class cl_gui_simple_tree?
Thanks for the advence help.
Claire

Similar Messages

How to create a text editor, the one like header text in PO

Dear Ones,
My requirement is that I want to create a text editor for storing terms and condition plant wise.
The editor should be the one like header text in PO. It can take end number of lines.
I created the text object ('TERMS') in table ttxob and text for it in table ttxot.
Also created text id ('L000' and 'L001') in table ttxid and text for it in table ttxit.
Now using FM read_text, save_text and edit_text, I have written a program but it does not save the data.
When I run the program initially it displays me blank, then I enter some data into it. Again when I come back it displays the data and also saves the edition. But if I close my session the data is gone.
It means it is not actually saving the data in database. My code is as below:
*& Report ZAK_TEXT_EDITOR
REPORT zak_text_editor.
DATA : head TYPE STANDARD TABLE OF thead WITH HEADER LINE,
       line TYPE STANDARD TABLE OF tline WITH HEADER LINE.
DATA : tdname TYPE thead-tdname.
SELECTION-SCREEN : BEGIN OF BLOCK blk WITH FRAME TITLE text-001.
SELECTION-SCREEN : SKIP 1.
PARAMETERS       : id TYPE thead-tdid OBLIGATORY
                           MATCHCODE OBJECT zak_textid.
SELECTION-SCREEN : SKIP 1.
SELECTION-SCREEN : END OF BLOCK blk.
START-OF-SELECTION.
CONCATENATE 'TERMS' id INTO tdname.
head-tdobject   = 'TERMS'.
head-tdname     = tdname.
head-tdid       = id.
head-tdspras    = sy-langu.
head-tdlinesize = 132.
APPEND head.
CALL FUNCTION 'READ_TEXT'
    EXPORTING
      client                        = sy-mandt
      id                            = id
      language                      = sy-langu
      name                          = tdname
      object                        = 'TERMS'
    ARCHIVE_HANDLE                = 0
    LOCAL_CAT                     = ' '
IMPORTING
    HEADER                        =
    TABLES
      lines                         = 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.
    CALL FUNCTION 'SAVE_TEXT'
      EXPORTING
        client                = sy-mandt
        header                = head
      INSERT                = ' '
      SAVEMODE_DIRECT       = ' '
      OWNER_SPECIFIED       = ' '
      LOCAL_CAT             = ' '
    IMPORTING
      FUNCTION              =
      NEWHEADER             =
      TABLES
        lines                 = line
     EXCEPTIONS
       id                    = 1
       language              = 2
       name                  = 3
       object                = 4
       OTHERS                = 5.
    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.
CALL FUNCTION 'EDIT_TEXT'
    EXPORTING
    DISPLAY             = ' '
    EDITOR_TITLE        = ' '
      header              = head
    PAGE                = ' '
    WINDOW              = ' '
      save                = 'X'
    LINE_EDITOR         = ' '
    CONTROL             = ' '
    PROGRAM             = ' '
    LOCAL_CAT           = ' '
IMPORTING
    FUNCTION            =
    NEWHEADER           =
    RESULT              =
    TABLES
      lines               = line
   EXCEPTIONS
     id                  = 1
     language            = 2
     linesize            = 3
     name                = 4
     object              = 5
     textformat          = 6
     communication       = 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.

CONSTANTS:
line_length TYPE i VALUE 254.
DATA: ok_code LIKE sy-ucomm.
DATA:
Create reference to the custom container
custom_container TYPE REF TO cl_gui_custom_container,
Create reference to the TextEdit control
editor TYPE REF TO cl_gui_textedit,
repid LIKE sy-repid.
START-OF-SELECTION.
SET SCREEN '100'.
      MODULE USER_COMMAND_0100 INPUT                                *
MODULE user_command_0100 INPUT.
CASE ok_code.
    WHEN 'EXIT'.
      LEAVE TO SCREEN 0.
ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100 INPUT
*&      Module STATUS_0100 OUTPUT
MODULE status_0100 OUTPUT.
The TextEdit control should only be initialized the first time the
PBO module executes
IF editor IS INITIAL.
    repid = sy-repid.
Create obejct for custom container
    CREATE OBJECT custom_container
      EXPORTING
        container_name              = 'MYCONTAINER1'
      EXCEPTIONS
        cntl_error                  = 1
        cntl_system_error           = 2
        create_error                = 3
        lifetime_error              = 4
        lifetime_dynpro_dynpro_link = 5
        others                      = 6
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE 'I' NUMBER sy-msgno
                 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
Create obejct for the TextEditor control
    CREATE OBJECT editor
      EXPORTING
         wordwrap_mode          =
                cl_gui_textedit=>wordwrap_at_fixed_position
         wordwrap_position      = line_length
         wordwrap_to_linebreak_mode = cl_gui_textedit=>true
        parent                  = custom_container
      EXCEPTIONS
        error_cntl_create      = 1
        error_cntl_init        = 2
        error_cntl_link        = 3
        error_dp_create        = 4
        gui_type_not_supported = 5
        others                 = 6
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE 'I' NUMBER sy-msgno
                 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
ENDIF.
ENDMODULE.                 " STATUS_0100 OUTPUT

How to create clean text for the web in Photoshop/Illustrator

I am puzzled to death on how in the world to get clean text for the web in Photoshop/Illustrator, particularly white text. I want my text to turn out exactly like the text at this website: thepainteddoor.org
If you scroll down to the bottom of that page, notice the titles "Featured Media", "Social Networking", and "Contact Information". They are all .gif images. I have tried to replicate what these images look like for about 3 hours now to no avail. Can anyone tell me how to do this? It just looks like a simple outline or drop shadow, but I can't get it to show up like that. If someone could help me replicate that effect with text (aka make it show up clean as an image), I would graciously give them money through PayPal*.
* = I will only give cash if it will replicate it exactly (and I mean exactly)..and it won't be too much..I'm a poor college student. :-P
Thanks in advance!
Thomas

You would do it the way I created it:
Select the Text tool in Photoshop and set the font and parameters as I have listed. Then enter whatever text you like. It will be rendered over the top of the lower layers you may have in the document. Save as an image of the appropriate type and you're there.
Note that "lower layers you may have in the document" could conceivably be none at all (i.e., you render the text over a transparent document). You could imagine saving that as a .png with transparency and get light text in an image that could then be put over the top of anything else. The alpha mixing will see to it that the edges smoothly blend with the background. I haven't actually tried this (I usually do try my own suggestions) because of lack of time right now.
-Noel
Edit: Markerline and I seem to be on the same crystal-controlled wavelength.

How to give labels to all the nodes of a tree

I have an application in which I have written FTREE for a table ( Table A ) on a "col1" column which is of type NUMBER.
I have used direct query to show & create the hierarchy tree based on table A.
The query is like this:
SELECT 1,level,to_char(col1),null, to_char(col1)
from A,
start with col1= somevalue
connect by prior col1= parent_column
Another table ( Table B )has a description for the column "col1" in table A.
I would like to show the description from table B on the nodes instead of the number being shown from table A.
Any clues how I can do it. Using simple join in the above query is not possible.
Thanks
rg
null

I have an application in which I have written FTREE for a table ( Table A ) on a "col1" column which is of type NUMBER.
I have used direct query to show & create the hierarchy tree based on table A.
The query is like this:
SELECT 1,level,to_char(col1),null, to_char(col1)
from A,
start with col1= somevalue
connect by prior col1= parent_column
Another table ( Table B )has a description for the column "col1" in table A.
I would like to show the description from table B on the nodes instead of the number being shown from table A.
Any clues how I can do it. Using simple join in the above query is not possible.
Thanks
rg
null

How to Create Highlighted text through the API

I am trying to create a script that goes through a document and cut/pastes specific elements to another document in FrameMaker 7.1.
So far, I can open a document and if an element is already highlighted/selected, i can cut the whole element using F_ApiCut().
I am having problems programatically trying to highlight the element that I want to copy.
So far, I have tried using the exampe from the FDKRef:
        //grab the selected element and set it to the elementRange
        er = F_ApiGetElementRange(FV_SessionId, docId, FP_ElementSelection);
        parentId = F_ApiGetId(docId, er.beg.childId, FP_ParentElement);
        er.end.parentId = er.beg.parentId = F_ApiGetId(docId, parentId, FP_ParentElement);
        // if the selected element is a child of the highest level element, the client returns here
        if(!er.end.parentId) return;
        er.beg.childId = parentId;
        er.beg.offset = er.end.offset = 0;
        er.end.childId = F_ApiGetId(docId, parentId, FP_NextSiblingElement);
        F_ApiSetElementRange(0, docId, FP_ElementSelection, &er);
        F_ApiCut(docId, 0);
but this only grabs an element that is already selected. Is there a way to select an element through the API?
Thanks for any help!

TrainingDeveloper,
There most certainly is a way. You can set up any kind of selection that you want, although it is definately a tricky process that can throw off even an experienced FDK developer. Here are my observations based on the code you pasted...
If you want to select an element, the first thing is that you need to have the ID of that element. I don't see anywhere in your code where an element ID is retrieved. All I see is the F_ApiGetElementRange which is getting the current selection, which in turn is likely why you just keep cutting the currently-selected element. If you want to get a specific element, that function call is not applicable. You only need to set up the element range structure to reflect the proper selection and then cut.
With that, assume that "elemId" is the ID of the element you want to cut. To select an entire element, you would do this:
F_ObjHandleT elemId, docId;
F_ElementRangeT er;
/* . . .   code here to get elemId, docId, etc. . . . */
//set up the element range structure for whole-element selection
er.beg.childId = elemId;
er.beg.parentId = er.end.parentId = F_ApiGetId(docId, elemId, FP_ParentElement);
er.end.childId = F_ApiGetId(docId, elemId, FP_NextSiblingElement);
er.beg.offset = er.end.offset = 0;
//set the element selection in preparation for the cut
F_ApiSetElementRange(FV_SessionId, docId, FP_ElementSelection, &er);
//... and cut
F_ApiCut(docId, 0);
I'm not sure what the sample you pasted is meant to accomplish. It is somewhere along the right track but it won't get you exactly what you want.
Now, I should say that the process of retrieving the desired element ID is a whole different challenge. I'm not sure if you know how to do that or not so I'll defer any discussion on that until you ask.
Russ

How to pass input value to the IN parameter in a function

Hi ,
I'm new to pl/sql programming.
The below function is used inside a package and the package is invoked in visual studio.
The function uses 2 input parameters.
Out of which 'in_report_parameter_id' value comes thru job processor service 's job request.
The second IN paramter values are hard coded in the function.
I'm not able to understand this.
If the values are hard coded , how to make sure that only the hard coded values are the right ones?
Please anyone could explain to me?
I really dont have good idea about how to pass INPUT parameter to the functions or procedure
Is there any nice document which could give me good understanding about what are the ways or types we could pass values to the input parameter in subprograms?
thanks in advance.
CREATE OR REPLACE FUNCTION get_class_text_str
     in_report_parameter_id IN NUMBER,
     in_which                IN VARCHAR2 DEFAULT 'SELECT'
RETURN VARCHAR2
IS
         end_text            VARCHAR2 (50)   := '';
         my_class_text_str VARCHAR2(10000) := '';
         my_class_value_str VARCHAR2(10000) := '';
     CURSOR class_text(c_1_text VARCHAR2, c_2_text VARCHAR2) IS
     SELECT c_1_text || report_parameters.report_parameter_value
                           || c_2_text
                           || report_parameters.report_parameter_value
                           || '" '
      FROM report_parameters
     WHERE report_parameters.report_parameter_id     = 3690
       AND report_parameters.report_parameter_group = 'CLASS'
       AND report_parameters.report_parameter_name   = 'CLASS'
GROUP BY report_parameters.report_parameter_value
ORDER BY CAST(report_parameters.report_parameter_value AS NUMBER);
BEGIN
     IF (in_which = 'SUM') THEN
          OPEN class_text ( 'SUM(NVL("Class ', '", 0)) "Class ' );
     ELSIF (in_which = 'PERC')THEN
          OPEN class_text ( 'ROUND((("Class ', '" / "Total") * 100), 2) "Class ' );
          end_text := ', DECODE("Total", -1, 0, 100) "Total" ';
     ELSE
          OPEN class_text ( 'SUM(DECODE(bin_id, ', ', bin_value, 0)) "Class ' );
     END IF;
     LOOP
          FETCH class_text INTO my_class_value_str;
          EXIT WHEN class_text%NOTFOUND;
          my_class_text_str := my_class_text_str || ', ' || my_class_value_str;
     END LOOP;
     CLOSE class_text;
     my_class_text_str := my_class_text_str || end_text;
     RETURN my_class_text_str;
END get_class_text_str;
/Edited by: user10641405 on Nov 19, 2009 8:16 AM
Edited by: user10641405 on Nov 19, 2009 8:30 AM

This is not a design I would use, but should work if coded properly. I would probably build a reference cursor query as text and use one open fetch and close.
You have 2 input parameters, in_report_parameter_id and in_which. I could not find where in_report_parameter_id was used in the program, but the value passed in for in_which is being used in IF logic to decide how to open the cursor. After the cursor is open rows are being fetched and eventually the cursor is closed.
The values in_which are compared to are hard-coded. It is the programmer's job to make sure the values listed are the right values and the actions taken are also correct. Your program is assuming that if the first 2 values are not encountered the third one listed is the one you want.
To pass input values to a procedure you merely provide the values as a literal or variable in the call, something like
whatever := get_class_text_str(1,'SELECT');

How 2 creat report for displaying the details of a Delivery Document using

how to create report for displaying the details of a Delivery Document using the tables LIKP, LIPS
thank you
regards,
jagrut bharatkumar shukla
points will be rewarded

HI
I AM GIVING YOU MY DELIVERY DOCUMENT CODE...MODIFY IT ACCORDING TO YOUR REQUIREMENT
*& Report ZDELIVERY                                *
report zdelivery message-id z9bhu          .
types: begin of t_likp,
           vbeln type likp-vbeln,      "Delivery
           erdat type likp-erdat,      "Date for rec creation
*           LFDAT TYPE LIKP-LFDAT,      "Delevery Date
*           WAERK TYPE LIKP-WAERK,      "Currency
           kunnr type likp-kunnr,      "Ship-To Party
           kunag type likp-kunag,      "Sold-to party
           traty type likp-traty,      "Means-of-Transport
       end of t_likp.
types: begin of t_lips,
           vbeln type lips-vbeln,      "Delivery
           posnr type lips-posnr,      "Delivery item
           matnr type lips-matnr,      "Material Number
           arktx type lips-arktx,      "Short Text for Sales Order Item
           lfimg type lips-lfimg,      "Actual quantity delivered
           netpr type lips-netpr,
*           MEINS TYPE LIPS-MEINS,      "Base Unit of Measure
           vgbel type lips-vgbel,      "Doc no of the reference document
        end of t_lips.
types: begin of t_vbpa,
           vbeln type vbpa-vbeln,      "SD DocumenT Number
           posnr type vbpa-posnr,      "Item number
           parvw type vbpa-parvw,      "Partner function
           kunnrb type vbpa-kunnr,      "Customer Number 1
       end of t_vbpa.
types: begin of t_kna1,
           kunnr type kna1-kunnr,      "Customer Number 1
           name1 type kna1-name1,      "Name 1
           ort01 type kna1-ort01,      "City
           adrnr type kna1-adrnr,      "Address
       end of t_kna1.
types: begin of t_li_vbpa,
           vbeln type likp-vbeln,      "Delivery
           erdat type likp-erdat,      "Date for rec creation
*           LFDAT TYPE LIKP-LFDAT,      "Delevery Date
*           WAERK TYPE LIKP-WAERK,      "Currency
           kunnr type likp-kunnr,      "Ship-To Party
           kunag type likp-kunag,      "Sold-to party
           traty type likp-traty,      "Means-of-Transport
           vbeln1 type lips-vbeln,      "Delivery
           posnr type lips-posnr,      "Delivery item
           matnr type lips-matnr,      "Material Number
           arktx type lips-arktx,      "Short Text for Sales Order Item
           lfimg type lips-lfimg,      "Actual quantity delivered
           netpr type lips-netpr,      "Net Price
*           MEINS TYPE LIPS-MEINS,      "Base Unit of Measure
           vgbel type lips-vgbel,      "Doc no of the reference document
           vbeln3 type vbpa-vbeln,     "SD DocumenT Number
           parvw type vbpa-parvw,      "Partner function
           kunnrb type vbpa-kunnr,      "Customer Number 1
       end of t_li_vbpa.
types: begin of t_final,
           vbeln type likp-vbeln,      "Delivery
           erdat type likp-erdat,      "Date for rec creation
           kunnr type likp-kunnr,      "Ship-To Party
           kunag type likp-kunag,      "Sold-to party
           traty type likp-traty,      "Means-of-Transport
           vbeln1 type lips-vbeln,      "Delivery
           posnr type lips-posnr,      "Delivery item
           matnr type lips-matnr,      "Material Number
           arktx type lips-arktx,      "Short Text for Sales Order Item
           lfimg type lips-lfimg,      "Actual quantity delivered
           netpr type lips-netpr,      "Net Price
           vgbel type lips-vgbel,      "Doc no of the reference document
           vbeln3 type vbpa-vbeln,     "SD DocumenT Number
           parvw type vbpa-parvw,      "Partner function
           kunnrb type vbpa-kunnr,     "Customer Number 1
           name1 type kna1-name1,      "Name 1
           ort01 type kna1-ort01,      "City
           adrnr1 type kna1-adrnr,     "Address
           name2 type kna1-name1,      "Name 1
           ort02 type kna1-ort01,      "City
           adrnr2 type kna1-adrnr,     "Address
           name3 type kna1-name1,      "Name 1
           ort03 type kna1-ort01,      "City
           adrnr3 type kna1-adrnr,     "Address
       end of t_final.
*            D A T A D E C L A R A T I O N
*&*********Internal Table Declaration****************&*
data: it_likp type standard table of t_likp.
data: it_lips type standard table of t_lips.
data: it_vbpa type standard table of t_vbpa.
data: it_kna1 type standard table of t_kna1.
data: it_li_vbpa type standard table of t_li_vbpa.
data: it_li_vbpa_temp type standard table of t_li_vbpa.
data: it_final type standard table of t_final.
*&*********Work Area Declaration********************&*
data: wa_likp type t_likp.
data: wa_lips type t_lips.
data: wa_vbpa type t_vbpa.
data: wa_kna1 type t_kna1.
data: wa_li_vbpa type t_li_vbpa.
data: wa_li_vbpa_temp type t_li_vbpa.
data: wa_final type t_final.
*&*********Data Declaration************************&*
data: d_vbeln type likp-vbeln.
data: flag type i value 0.
*           S E L E C T I O N S C R E E N   D E C L A R A T I O N
selection-screen begin of block block2 with frame title text-001.
select-options: s_vbeln for d_vbeln obligatory.    "Delivery no
selection-screen end of block block2.
*            A T S E L E C T I O N - S C R E E N   E V E N T S
*AT SELECTION-SCREEN.
*PERFORM VALIDATE_DATA.
*            S T A R T   O F S E L E C T I O N     E V E N T S
start-of-selection.
perform fetch_data.
perform merge_data_kna1.
*INCLUDE Z9BT_SH_***4_FORMS.
call function 'OPEN_FORM'
exporting
*   APPLICATION                       = 'TX'
*   ARCHIVE_INDEX                     =
*   ARCHIVE_PARAMS                    =
    device                            = 'PRINTER'
*   DIALOG                            = 'X'
*   FORM                              = ' '
   language                          = sy-langu
*   OPTIONS                           =
*   MAIL_SENDER                       =
*   MAIL_RECIPIENT                    =
*   MAIL_APPL_OBJECT                  =
*   RAW_DATA_INTERFACE                = '*'
*   SPONUMIV                          =
* IMPORTING
*   LANGUAGE                          =
*   NEW_ARCHIVE_PARAMS                =
*   RESULT                            =
exceptions
   canceled                          = 1
   device                            = 2
   form                              = 3
   options                           = 4
   unclosed                          = 5
   mail_options                      = 6
   archive_error                     = 7
   invalid_fax_number                = 8
   more_params_needed_in_batch       = 9
   spool_error                       = 10
   codepage                          = 11
   others                            = 12
if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
sort it_final by vbeln.
loop at it_final into wa_final.
call function 'START_FORM'
exporting
*   ARCHIVE_INDEX          =
   form                   = 'Z9BT_DELIVERY'
   language               = sy-langu
*   STARTPAGE              = ' '
*   PROGRAM                = ' '
*   MAIL_APPL_OBJECT       =
* IMPORTING
*   LANGUAGE               =
exceptions
   form                   = 1
   format                 = 2
   unended                = 3
   unopened               = 4
   unused                 = 5
   spool_error            = 6
   codepage               = 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.
call function 'WRITE_FORM'
exporting
   element                        = 'ITEM_LIST'
   function                       = 'SET'
   type                           = 'BODY'
   window                         = 'MAIN'
* IMPORTING
*   PENDING_LINES                  =
* EXCEPTIONS
*   ELEMENT                        = 1
*   FUNCTION                       = 2
*   TYPE                           = 3
*   UNOPENED                       = 4
*   UNSTARTED                      = 5
*   WINDOW                         = 6
*   BAD_PAGEFORMAT_FOR_PRINT       = 7
*   SPOOL_ERROR                    = 8
*   CODEPAGE                       = 9
*   OTHERS                         = 10
if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
call function 'END_FORM'
* IMPORTING
*   RESULT                         =
exceptions
   unopened                       = 1
   bad_pageformat_for_print       = 2
   spool_error                    = 3
   codepage                       = 4
   others                         = 5
if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
endloop.
call function 'CLOSE_FORM'
* IMPORTING
*   RESULT                         =
*   RDI_RESULT                     =
* TABLES
*   OTFDATA                        =
exceptions
   unopened                       = 1
   bad_pageformat_for_print       = 2
   send_error                     = 3
   spool_error                    = 4
   codepage                       = 5
   others                         = 6
if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
*&      Form VALIDATE_DATA
*       text
* --> p1        text
* <-- p2        text
form validate_data .
select single vbeln into wa_likp-vbeln
                    from likp where vbeln in s_vbeln.
append wa_likp to it_likp.
if sy-subrc <> 0.
flag = 1.
endif.
endform.                    " VALIDATE_DATA
*&      Form FETCH_DATA
*       text
* --> p1        text
* <-- p2        text
form fetch_data .
select a~vbeln
       a~erdat
       a~kunnr
       a~kunag
       a~traty
       b~vbeln
       b~posnr
       b~matnr
       b~arktx
       b~lfimg
       b~netpr
       b~vgbel
       c~vbeln
       c~parvw
       c~kunnr
         into table it_li_vbpa
                from likp as a
                left outer join lips as b on a~vbeln = b~vbeln
                inner join vbpa as c on b~vgbel = c~vbeln
                where a~vbeln in s_vbeln and
                c~parvw = 'RE'.
endform.                    " FETCH_DATA
*&      Form MERGE_DATA_KNA1
*       text
* --> p1        text
* <-- p2        text
form merge_data_kna1 .
if it_li_vbpa[] is not initial.
it_li_vbpa_temp[] = it_li_vbpa[].
sort it_li_vbpa_temp by kunnr.
delete adjacent duplicates from it_li_vbpa_temp comparing kunnr.
loop at it_li_vbpa into wa_li_vbpa.
read table it_li_vbpa_temp into wa_li_vbpa_temp with key kunnr =
wa_li_vbpa-kunag.
if sy-subrc <> 0.
wa_li_vbpa_temp = wa_li_vbpa.
append wa_li_vbpa_temp to it_li_vbpa_temp.
endif.
read table it_li_vbpa_temp into wa_li_vbpa_temp with key kunnr =
wa_li_vbpa-kunnrb.
if sy-subrc <> 0.
wa_li_vbpa_temp = wa_li_vbpa.
append wa_li_vbpa_temp to it_li_vbpa_temp.
endif.
endloop.
endif.
if it_li_vbpa_temp[] is not initial.
select kunnr
        name1
        ort01
        adrnr into table it_kna1 from kna1
                    for all entries in it_li_vbpa_temp
                    where kunnr = it_li_vbpa_temp-kunnr.
endif.
loop at it_li_vbpa into wa_li_vbpa .
wa_final-vbeln = wa_li_vbpa-vbeln.
wa_final-erdat = wa_li_vbpa-erdat.
*it_final-LFART = it_li_vbpa-LFART.
wa_final-kunnr = wa_li_vbpa-kunnr.
wa_final-kunag = wa_li_vbpa-kunag.
*it_final-VSTEL = it_li_vbpa-VSTEL.
wa_final-traty = wa_li_vbpa-traty.
wa_final-vbeln1 = wa_li_vbpa-vbeln.
wa_final-posnr = wa_li_vbpa-posnr.
wa_final-matnr = wa_li_vbpa-matnr.
wa_final-arktx = wa_li_vbpa-arktx.
wa_final-lfimg = wa_li_vbpa-lfimg.
wa_final-netpr = wa_li_vbpa-netpr.
*wa_final-GEWEI = it_li_vbpa-GEWEI.
*it_final-VOLUM = it_li_vbpa-VOLUM.
*it_final-VOLEH = it_li_vbpa-VOLEH.
wa_final-vgbel = wa_li_vbpa-vgbel.
wa_final-vbeln3 = wa_li_vbpa-vbeln.
*wa_final-PARVW = wa_li_vbpa-PARVW.
wa_final-kunnrb = wa_li_vbpa-kunnrb.
read table it_kna1 into wa_kna1 with key kunnr = wa_li_vbpa-kunnr.
if sy-subrc = 0.
wa_final-name1 = wa_kna1-name1.
wa_final-ort01 = wa_kna1-ort01.
wa_final-adrnr1 = wa_kna1-adrnr.
endif.
read table it_kna1 into wa_kna1 with key kunnr = wa_li_vbpa-kunag.
if sy-subrc = 0.
wa_final-name2 = wa_kna1-name1.
wa_final-ort02 = wa_kna1-ort01.
wa_final-adrnr2 = wa_kna1-adrnr.
endif.
read table it_kna1 into wa_kna1 with key kunnr = wa_li_vbpa-kunnrb.
if sy-subrc = 0.
wa_final-name3 = wa_kna1-name1.
wa_final-ort03 = wa_kna1-ort01.
wa_final-adrnr3 = wa_kna1-adrnr.
endif.
append wa_final to it_final.
clear wa_final.
endloop.
endform.

How to attach a text in the center of the Ellipse using JXML ?

How to attach a text in the center of the Ellipse using JXML ? Can we use labelFor="$topEllipse" ?
<StackPane fx:controller="myfxml.ArchiveLogsController" id="Login" xmlns:fx="http://javafx.com/fxml">
<children>
<AnchorPane>

<maxWidth><Double fx:value="-Infinity"/></maxWidth>
<maxHeight><Double fx:value="-Infinity"/></maxHeight>
<children>
<Ellipse fx:id="topEllipse" centerX="100" centerY="100" radiusX="50" radiusY="10" strokeWidth="2" stroke="#FF0000" style="-fx-fill: linear-gradient(to right, white 0%, red 100%);"/>
*<Label fx:id="ArchLogs_lb" text="My Ellipse Label" />*
</children>
<properties>
<backgroundColor>
<Color blue="1.0" green="1.0" red="1.0" />
</backgroundColor>
<elementLockSel>
<Boolean fx:value="true" />
</elementLockSel>
</properties>
</AnchorPane>
</children>
</StackPane>

I'd suggest putting the Ellipse and the Label in a StackPane.
I wonder why so many people call it JXML?
It is so strange - I guess the JXML name just seems more natural to some people, though I don't know why.
I think Greg is right and that labelFor is not what you want:
http://docs.oracle.com/javafx/2.0/api/javafx/scene/control/Label.html
"Labels also are useful in that they can have mnemonics which, if used, will send focus to the Control listed as the target of the labelFor property . . . A Label can act as a label for a different Control or Node. This is used for Mnemonics and Accelerator parsing. This allows setting of the target Node."

How to create a text file or XML file and add content through code into it...

Hi Everyone,
How to create a text file and add content through the code to the text file eform javascript ......orelse can we create a text file in life cycle designer...
Else say how to create a new XML file through the code and how some content like Example "Hello World".

You can create a text file as a file attachment (data object) using the doc.createDataObject and doc.setDataObjectContents:
http://livedocs.adobe.com/acrobat_sdk/9.1/Acrobat9_1_HTMLHelp/JS_API_AcroJS.88.450.html
http://livedocs.adobe.com/acrobat_sdk/9.1/Acrobat9_1_HTMLHelp/JS_API_AcroJS.88.528.html
You can then export the file with the doc.exportDataObject method:
http://livedocs.adobe.com/acrobat_sdk/9.1/Acrobat9_1_HTMLHelp/JS_API_AcroJS.88.463.html
This won't work with Reader if it hasn't been given the file attachment usage right with LiveCycle Reader Extensions.

How to create a text box in ascreen painter?

HI friends can anyone tell me how to create a text box in a screen painter?
And attachment BROWSER like what we attach for any documents in over mail.
Example when we click on browser the path of the computer has to be opened and by giving the document name attach and the document will be attached. Please tell me the procedure....
Thks

To get the best answers, I think you probably need to break down your post into several different one with a separate question in each, along with the business problem you are trying to solve... but here's a few pointers for you to research...
Textbox - there's plenty of info in SDN on creating a custom control with a textbox e.g. Re: Text Editor on modulepool Screen and sample code in SAP too.
Attachments - If this is for an email, then GUI_UPLOAD might help and the BCS class is the newer way to send messages... check out Re: Offline Approval: RBBP_NOTIFICATION_OFFAPP Vs RSWUWFMLEC for example... if this is an attachment for an SAP object such as an FI Document or Purchase Order, then the Generic Object Services (GOS) could be what you want e.g. https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/0e6b0d95-0a01-0010-4696-ca0a48de5fb3
Jonathan

How to create new or delete the existing row in the grid....

hi my friends...
i am developing report using Reuse_alv_grid_display...
my requirement is... At runtime
          1. i may create new row on the grid (empty row inwhich i may enter the data).
          2. i may delete a existing row in the grid
          3. i may edit the existing data...
then i have to trace the modification in the grid in one internal table...
how can i get into this.....
note:
i have some idea to edit the existing record in the grid and trace those modification,
but i don't know abt how to create new or delete the existing row....
can you give me some idea...

Hi deva,
write a class which implemets these methods
CLASS lcl_event_receiver DEFINITION.
PUBLIC SECTION.
    METHODS:
To handle the toolbar on alv
     handle_toolbar
       FOR EVENT toolbar OF cl_gui_alv_grid
          IMPORTING e_object e_interactive,
To handle the buttons on the alv grid
     handle_user_command
       FOR EVENT user_command OF cl_gui_alv_grid
       IMPORTING e_ucomm.
endclass.
Now Implement these methods.
CLASS lcl_event_receiver IMPLEMENTATION.
To handle the toolbar on alv
METHOD handle_toolbar.
   DATA ls_toolbar TYPE stb_button.
    CLEAR gs_toolbar.
    MOVE 3 TO gs_toolbar-butn_type.
    APPEND gs_toolbar TO e_object->mt_toolbar.
    CLEAR gs_toolbar.
    PERFORM icon_create USING 'ICON_INSERT_ROW' gs_toolbar-icon.
    MOVE text-010 TO gs_toolbar-function.
    MOVE text-012 TO gs_toolbar-quickinfo.
    MOVE ' ' TO gs_toolbar-disabled.
    APPEND gs_toolbar TO e_object->mt_toolbar.
    CLEAR gs_toolbar.
    PERFORM icon_create USING 'ICON_DELETE_ROW' gs_toolbar-icon.
    MOVE text-011 TO gs_toolbar-function.
    MOVE text-013 TO gs_toolbar-quickinfo.
    MOVE ' ' TO gs_toolbar-disabled.
    APPEND gs_toolbar TO e_object->mt_toolbar.
ENDMETHOD.
   METHOD handle_user_command.
In this form, check the function code(e_ucomm has the function code), based on that do the required action.
as i said yesterday(i.e for appending a row, deleting a row, modifying a row)
    PERFORM user_command USING e_ucomm.
ENDMETHOD
endclass.
Before calling the alv method, create a object of this class.
DATA :
      gref_event_receiver TYPE REF TO lcl_event_receiver,
      gv_tables_alv          TYPE REF TO cl_gui_alv_grid.
      CREATE OBJECT gref_event_receiver.
      SET HANDLER   gref_event_receiver->handle_user_command
                    FOR gv_tables_alv.
      SET HANDLER   gref_event_receiver->handle_toolbar
                    FOR gv_tables_alv.
check this program for event handling, it is the similar way
demo_abap_objects_events
Hope u understood this.
Regards,
Prasant
reward if helpful

How to create a text item dynamically

Greetings to All Expert,
Could anyone please tell me how i create a text item with code.The scenario is like this....
Suppose there is a text item corresponding to department_id=10 and i dont know how many employees r there in this department.Now if the query returns 10 employee then how do i display these 10 employees name.....it may be 20 employees also...i dont know the actual number before executing the query..
Regards,
Wel
Edited by: 787312 on Aug 15, 2010 1:03 AM
Edited by: 787312 on Aug 15, 2010 4:19 AM

Hi,
You can create two blocks for this. One is an unbound block which consist of a text box with a command button. Other block is a bound block from your table(multiple rows block). In hierarchical, unbound block should above above bound block, which makes the focus control goes first to the text box. When the user type the dept code and click on the button it goes to bound block and execute the query.
you can write code in the command block as below
set_block_property('<boundblockname>',default_where,'deptno = '||:ti_DEPTNO);
go_block('<boundblockname>');
execute_query;Best Regards
MP

How to Create a text frame?

Hai
i'm senthil....
i'm just now started working with Adobe Indesign plugin's..
Can anyone tell me how to create a text frame...
wat r the steps for creating a text frame?
what are the Interface pointers used for creating a text frame...
plzz reply me who knows...
bye.

See SDKLayoutHelper::CreateTextFrame.
You can also look at SnpCreateFrame::CreateTextFrame in SnippetRunner.
Regards,
Narayan

How to Create a Text Variable

Hi Experts...
Can you please explain me how to create a Text variable...
In my Cube i had 3 different date fields....
and as per my requirment i need to create a rolling report for which will display data for 6 months rolling.
As the date field which i need to use is not mapped to Time Char's (Cal Year,Cal Month...etc)
For that reason i created below customer exit variable and used offset variables to achieve the rolling 6 months report
Code used for Customer Exit VAriable:
WHEN 'ZC_Cmonth1'. " Current Cal Month Car Expiry
IF i_step = 2.
      CLEAR l_s_range.
determine date
    LV_SYDAT     = SY-DATUM.
    LV_YEAR_ACT = SY-DATUM+0(4).
    LV_MONTH_ACT = SY-DATUM+4(2).
Set begin date of intervall
CONCATENATE LV_YEAR_ACT LV_MONTH_ACT '01' INTO LV_DATE_LOW.
Set end date of intervall
CONCATENATE LV_YEAR_ACT LV_MONTH_ACT '31' INTO LV_DATE_HIGH.
Fill ranges-tab with: include all values between beginning of year
and actual date
CLEAR E_T_RANGE.
CLEAR L_S_RANGE.
L_S_RANGE-SIGN = 'I'.
L_S_RANGE-OPT = 'BT'.
L_S_RANGE-LOW = LV_DATE_LOW.
L_S_RANGE-HIGH = LV_DATE_HIGH.
APPEND L_S_RANGE TO E_T_RANGE.
ENDIF.
Now i need to create TEXT VARIABLE that will display the Month Name in the column name
Please update in detail step how to create a Text Variable

In your specific requirement select the which ever the keyfigure you want to analyse, go to edit mode of keyfigure propeties there select the newvariable type and create the Text variable by maintaining the proper offset start and length and also maintain the in whcih format u want see the month name in column headers. Maintain the Text format or key format. it totally depends on u r requirement.
Hope it will help ful for u.
Bye,
Chandu.

Wondering how to create a text box with variables...

Hi everyone,
I was wondering how to create a text box, that at the beginning of the presentation, the audience fills in regarding what they think constitutes the role they have been chosen for.
I would like that same box to then appear at the end of the presentation, with the text they typed in at the beginning, so they can reflect on what they think now, and what they thought then. I understand this is done using variables, but i'm not 100% sure.
I hope I've worded this okay!

This screenshot shows the properties panel, Style tab for the TEB. I relabeled it to My_TEB, used the X button to create a user variable v_choice that will replace the generic Text_Entry_Box_1/
This is the properties panel of a Shape, I went in Edit mode (double clicking)to make the Character section appear, where you find the X button. It opens the dialog box 'Insert Variable' and you can choose the var associated with the TEB. The Maximum Length will define how many characters will be displayed, the value of a variable has maximum 256 characters.

How to create input text of the node in AVL tree

Similar Messages

Maybe you are looking for