How to restore the "Linked" attribute of a picture to "false"?

Just after importing a picture, the "linked" attribute of the
picture member is "false". When distributed, the data of picture is
packed in the DCR file.
If some lingo code changed the "filename" of the member,
like follow:
member("MyPicMember").filename = ".\NewPicture.jpg"
The content of the picture would be changed. And as a
result, the "linked" attribute of the member would be changed to
"true" at the same time. A triangle appears on top right conner of
the icon of the picture member. If distributed again at this time,
the data of picture is not packed in DCR file. Picture file must
exist beside the DCR.
Now I want to restore the "linked" to "false" (because I
want to write new projects based on the old, I want to let the
picture data in the DCR again). I found it is difficult to restore
it. The "linked" attribute can not be modified, whether in Property
Inspector or in code. I found the only method is delete the member
and import again, manually, one by one. But there are many pictures
in my program, so it makes me tired.
Anyone tell me a good method to restore them? I hope it can
use code to do it.

put the following handler in a movie script:
on mUnlinkBitmaps
cl = the activecastlib
sel = the selection of castlib cl
anz = sel.count
repeat with n = 1 to anz
repeat with m = sel[n][1] to sel[n][2]
memref = member(m, cl)
if memref.type = #bitmap then
fname = memref.filename
if fname.length then
memref.importfileinto(fname, [#trimwhitespace:0])
put "imported:"&&memref
end if
end if
end repeat
end repeat
end
select the members you want to import (or "select all" to
import all linked bitmaps) and type
mUnlinkBitmaps
into the message window and press return.
you can also take a look at my handlermenu tool:
http://www.farbflash.de/cgi-bin/blosxom.cgi/Dokumente/Director/Tools/handlermenu.html
which has this among other authoring utilities in the
utilities menu.

Similar Messages

  • How to restore the link between on screen library item and audio file?

    Do you have a BORKEN LINKS problem?
    I'd like to share a useful discovery.
    I have read a number of posts both here and other forums concerning 'broken links' problem after moving iTunes music folder to an external drive.
    ie. In the iTunes window you see a long list of playlists on the left (blue tinted) column and song names and details in the other columns but when you try to play a song a message tells you the link is broken and ! appears to the left of song name.
    Broken links can easily be restored if you use SMART PLAYLISTS.
    Note: I'm not sure about manually created playlists, so take care.
    How to repair the broken links:
    Step one:
    Make a back up copy of 2 important files,
    the current iTunes library and iTunes Music Library.xml files
    place copies somewhere away from the iTunes folder.
    Preparation:
    first go to iTunes Preferences and in the advanced settings page, uncheck the two boxes, Keep iTunes Music folder organsied : and Copy files to files to iTunes Music Folder when adding to library.
    Method A. only some links broken.
    Within iTunes highlight each of your playlists in turn**, highlight all the songs listed and hit the delete key on the keypad. Don't worry all the category info will not be lost, keep the playlist window open so you can monitor the link repair progress.
    In the FILE menu, click on 'add to library', and select the artist folder containing the songs you just deleted. Click on the choose button, and soon all the songs will appear once more in the song list window complete with all associated info that you have previously added like genre, comments, grouping.
    Method B. all links broken.
    If your entire song list has broken links like mine did (ie when you try to play the song a ! appears to the left of song name, restoring the entire list is easy, having made the settings mentioned above, click on 'add to library' then select the iTunes Music folder itself, in a short time all the songs will appear on screen as before you deleted them with links restored.
    NOTE
    **For this reason it is a good idea to create a smart playlist corresponding to every Artist folder that appears in Finder, this greatly facilitates any future repairs of broken links in batches. In fact there is an advantage in making all the playlists of the 'Smart' type and taking the time to fill in fields like Genre, Comments, and Grouping as this information allows the application to place every song into at least one category which can be named when setting up the smart playlist.
    CE
    Message was edited by: Colin Edwards

    Replying to my own post here
    Apologies, this question should have been placed in Apple Mac users section.
    If you are a windows user please ignore unless you use iTunes also on a Mac :o)

  • How to restore visited link state to unvisited

    Hi all -
    I have a pseudoclass which nicely shows a gray background
    after being
    visited.
    After clicking in ie6 browser, the links remain gray forever!
    I am unable to view in the pre-visited state to show a client
    sitting next
    to me.
    I am viewing on my local machine
    There are no cookies being set
    Flushing cache doesn't do it
    Closing browser doesn't do it
    Even rebooting the machine doesn't do it
    I guess my question is, "where is my WinXP machine
    remembering the visited
    state?"
    Anybody know this one? Many thanks
    CSS follows
    a.inactive
    {border: 1px solid #000000;color: #000000;text-decoration:
    none;padding: 4px
    7px
    a.inactive:visited
    {border-color: #000000; text-decoration: none;background:
    #CCCCCC; color:
    #000
    a.inactive:hover
    {border-color: #000000; text-decoration: none;background:
    #B30000; color:
    #fff

A: How to restore visited link state to unvisited

Michael
Many thanks for the browser information and for polishing the
CSS
It is indeed appreciated.
"Michael Fesser" <[email protected]> wrote in message
news:[email protected]..
> .oO(Ken Binney)
>
>>I have a pseudoclass which nicely shows a gray
background after being
>>visited.
>>After clicking in ie6 browser, the links remain gray
forever!
>>I am unable to view in the pre-visited state to show
a client sitting next
>>to me.
>>
>>I am viewing on my local machine
>>There are no cookies being set
>>Flushing cache doesn't do it
>>Closing browser doesn't do it
>>Even rebooting the machine doesn't do it
>
> Clear the browser history.
>
>>I guess my question is, "where is my WinXP machine
remembering the visited
>>state?"
>>Anybody know this one? Many thanks
>>
>>CSS follows
>>
>>a.inactive
>>{border: 1px solid #000000;color:
#000000;text-decoration: none;padding:
>>4px
>>7px
>>}
>>a.inactive:visited
>>{border-color: #000000; text-decoration:
none;background: #CCCCCC; color:
>>#000
>>}
>>a.inactive:hover
>>{border-color: #000000; text-decoration:
none;background: #B30000; color:
>>#fff
>>}
>
> A bit shorter:
>
> a.inactive {border: 1px solid #000; color: #000;
text-decoration: none;
> padding: 4px 7px}
> a.inactive:visited {background: #CCC}
> a.inactive:hover {background: #B30000; color: #FFF}
>
> should do the same.
>
> Micha

Michael
Many thanks for the browser information and for polishing the
CSS
It is indeed appreciated.
"Michael Fesser" <[email protected]> wrote in message
news:[email protected]..
> .oO(Ken Binney)
>
>>I have a pseudoclass which nicely shows a gray
background after being
>>visited.
>>After clicking in ie6 browser, the links remain gray
forever!
>>I am unable to view in the pre-visited state to show
a client sitting next
>>to me.
>>
>>I am viewing on my local machine
>>There are no cookies being set
>>Flushing cache doesn't do it
>>Closing browser doesn't do it
>>Even rebooting the machine doesn't do it
>
> Clear the browser history.
>
>>I guess my question is, "where is my WinXP machine
remembering the visited
>>state?"
>>Anybody know this one? Many thanks
>>
>>CSS follows
>>
>>a.inactive
>>{border: 1px solid #000000;color:
#000000;text-decoration: none;padding:
>>4px
>>7px
>>}
>>a.inactive:visited
>>{border-color: #000000; text-decoration:
none;background: #CCCCCC; color:
>>#000
>>}
>>a.inactive:hover
>>{border-color: #000000; text-decoration:
none;background: #B30000; color:
>>#fff
>>}
>
> A bit shorter:
>
> a.inactive {border: 1px solid #000; color: #000;
text-decoration: none;
> padding: 4px 7px}
> a.inactive:visited {background: #CCC}
> a.inactive:hover {background: #B30000; color: #FFF}
>
> should do the same.
>
> Micha

  • How to retrieve the link's label with HTML Editor kit?

    Hi all,
    I need to retrieve the label that is on a HREF html attribute.
    In other words I need to retreive the words "Home Page" from
    this snippet:
    <b>Home Page</b>
    I have found tutorials that show how to extract the link itself
    but not the label ....:-(
    can anybody help me?
    Thanks
    Francesco

    Hi,
    if you have a HTMLDocument you can look into the element structure of this document to find a certain A tag as follows   /**
       * find the next link attribute from a given element upwards
       * through the element hierarchy
       * @param elem  the element to start looking at
       * @return the link attribute found, or null, if none was found
      public static Element findLinkElementUp(Element elem) {
        Element e = null;
        Object linkAttr = null;
        Object href = null;
        while((elem != null) && (linkAttr == null)) {
          e = elem;
          linkAttr = elem.getAttributes().getAttribute(HTML.Tag.A);
          if(linkAttr != null) {
            href = ((AttributeSet) linkAttr).getAttribute(HTML.Attribute.HREF);
          elem = elem.getParentElement();
        if(linkAttr != null && href != null) {
          return e;
        else {
          return null;
      }When this method returns an element, its start and end can be used to extract the link text.
    Ulrich

  • How to restore the contacts from iPad 2 to iPhone 5? I lost some of my contacts after deleting a closed email account; however I have them all in my iPad!

    How to restore the contacts from iPad 2 to iPhone 5? I lost some of my contacts after deleting a closed email account; however I have them all in my iPad!

    Do you see those in www.icloud.com? Yes- sign in to icloud on the phone.
    No- how did you get those to the ipad?

  • How to delete the links in the reading list

    How to delete the links in the reading list

    and if they don't delete, what's the next step?  I've stopped sync to iCloud for my iPad, but all of the articles say that they are "Waiting", and won't delete.

  • I forgot my passcode for the ipad and i can't connect to iTunes because it keeps giving me error message that i have to unlcok the ipad first... any advice on how to restore the ipad or unlock it?

    i forgot my passcode for the ipad and i can't connect to iTunes because it keeps giving me error message that i have to unlcok the ipad first... any advice on how to restore the ipad or unlock it?

    You have to restore the device within iTunes. You want to use the same computer that you always sync with so that you can restore your app data and settings. You can restore with any other computer, but you will lose everything on the iPad.
    This will tell you how to restore
    http://support.apple.com/kb/HT1414
    You will probably need to use recovery mode
    http://support.apple.com/kb/ht4097

  • How to deactivate the marketting attributes for BP in CRM

    Hi,
    how to deactivate the marketting attributes for BP in CRM
    I can add and maintain the same using tcode crmd_prof_char
    But how do I deactivate.
    Points will be rewarded
    Thanks

    .

  • How to restore the original copy of OS.

    The hard disk of my notebook got damaged and now I have installed new hard disk but since I didnt had any backup the windows 8.1 OS also got lost. Now I have installed trial version, can anyone let me know how to restore the original copy of OS. 

    If you did not make your Recovery Media set call HP Support to order one.
    If you live in the US/CA, contact HP info Here.
    If you live in another part of the world, start here>>Contact HP
    ******Clicking the Thumbs-Up button is a way to say -Thanks!.******
    **Click Accept as Solution on a Reply that solves your issue to help others**

  • How to get the link of already archived document

    Dear all,
    How to get the link of already archivied document. for example i have a sales order for which subsequent documents have been archived. now i want to get the link of subsequent document.
    please give some solution
    Thanks in advance
    Thanks,
    Hemachandran.

    Hemachandran,
                The archiving object for sales order is SD_VBAK. If you run the program S3VBAKAU by transaction se38 and search based on the document numbers ( as you mentioned it is the preceeding document numbers to the current document), you will be able to retrieve the information regarding the previous sales orders.
    More information on the sales order archiving object can be found at,
    http://help.sap.com/saphelp_45b/helpdata/en/a9/55c7b690a111d1a5510000e82deaaa/content.htm
    Sojan
    <<text removed by moderator>>
    Edited by: Matt on Nov 16, 2008 5:08 PM - Do not request points

  • How to get the link report of a swf file to the set of clases

    He  But How to get the link Report of the SwF File

    Here are some links with additional information:
    http://stackoverflow.com/questions/185252/optimizing-flex-when-multiple-modules-are-used
    http://livedocs.adobe.com/flex/3/html/help.html?content=modular_4.html
    http://livedocs.adobe.com/flex/3/html/help.html?content=controls_15.html
    http://livedocs.adobe.com/flex/3/html/help.html?content=compilers_14.html
    If this post answers your question or helps, please mark it as such.

  • How to find the link between strcture and query technical name

    Hi Guru's
    How to find the link between Strcture in the query and query technical name. In other way where used list of the structure  used in queries?
    I know we have table called RSZELTDIR which have the values of strcuture name. from here i do not find any link to query technical name.
    Please can anyone help me?
    Regards,
    Sirisha

    Hi ,
    For structure and query relationship, the structure has to be a reusable structure( a global one). Then you can right click in on the structure name (in BEX query designer) and select the where used list. You will find all the query names where it is being used.
    U can also check out tables RSRREPDIR and RSZCOMPDIR for other query properties.
    Thanks,
    Amit

  • How to get the link of the WDA application dynamically

    Hi,
       I have created one web dynpro application. when it is saved the approver get a work item in his inbox.The work item should have the link to the web dynpro application.So that when the user clicks the link,He should able to view the web dynpro screen.
       My question is how to get the link of the web dynpro application dynamicaly . I want to know whether it is stored in any DB tables or is there any function modules to call the web dynpro application ?
    Regards,
    Charumathi.B

    Hi,
    use
    cl_wd_utilities=>construct_wd_url(
    EXPORTING  application_name = <name_of_your_application>
    IMPORTING  out_absolute_url = lv_url.
    Best Regards,
    Anika

  • How to get the link

    hello ABAPERS
    i have got a requiremet in that i have to get the relation .
    how to get the link between mara, ausp, cawn and cawnt tables and also type how can we get link between char value and char description in cawn and cawnt tables through ausp and mara tables  and also want to know if  there is any function module to find all these things
    I would be very thankful for ur help in advance.
    Thanks & Regards.
    soni

    hi thax for ur ans but dat did not help to solve my problem

  • How to get the link between mara, ausp, cawn and cawnt tables

    hello ABAPERS
    i have got a requiremet in that i have to get the relation .
    how to get the link between mara, ausp, cawn and cawnt tables and also type how can we get link between  char value and char description in cawn and cawnt tables through ausp and mara tables.
    I would be very thankful  for ur help in advance.
    Thanks & Regards.
    soni

    Hi,
    Sample report using the linkage between tables;
    report batch_char no standard page heading
                              line-size  132
                              line-count 58(1)
                              message-id mm.
           Report by Batch Characteristic                                *
    Description          : Report by Batch Characteristic                *
    Declaration for Tables
    tables: mara,    " Material Master
            mard,    " Storage Location Data for Material
            t001w,   " Plants/Branches
            t001l,   " Storage Locations
            cabn,    " Characteristics
            inob.    " Link between Internal Number and Object
    Declaration for Constants
    constants : c_klart like ausp-klart value '023',     " Class Type
                c_obtab like inob-obtab value 'MCH1',    " Database Table
                c_flag  type c          value 'X',       " Flag
                c_c23   type i          value '23',      " Ratio
    Constants for Ratio Categories
                c_13    type p decimals 2 value '13.00', " For Ratio 13
                c_1499  type p decimals 2 value '14.99', " For Ratio 14.99
                c_15    type p decimals 2 value '15.00', " For Ratio 15
                c_1699  type p decimals 2 value '16.99', " For Ratio  16.99
                c_17    type p decimals 2 value '17.00', " For Ratio 17
                c_1899  type p decimals 2 value '18.99', " For Ratio 18.99
                c_19    type p decimals 2 value '19.00', " For Ratio 19
                c_2099  type p decimals 2 value '20.99', " For Ratio 20.99
                c_21    type p decimals 2 value '21.00', " For Ratio 21
                c_2299  type p decimals 2 value '22.99', " For Ratio 22.99
                c_23    type p decimals 2 value '23.00', " For Ratio 23
                c_g23(4) type c value '>=23',            " For Ratio >=23
                c_ratio(5) value 'RATIO',                  " For Ratio
    Constants for Storing Selected item field information
                c_cursor1(15) value 'I_OUTPUT1-MEINS',   " For Selected Base
                                                         " Unit of Measure
                c_cursor2(15) value 'I_OUTPUT1-MATNR',   " For Selected Base
                                                         " Material Number
                c_cursor3(15) value 'I_OUTPUT1-MAKTX',   " For Selected Base
                                                         " Material Des.
                c_cursor4(15) value 'I_OUTPUT1-CLABS',   "For Selected Base
                                                         " Stock Value
                c_cursor5(15) value 'I_OUTPUT1-ATFLV',   " For Selected Base
                                                        " Char.Value (Ratio)
                c_cursor6(5) value 'C_G23'.
    Declaration for Global Variables
    data : g_exit  type c,                            " Flag
           g_clabs1(16) type c,                       " Quantity
           g_clabs(18)  type c,                       " Quantity
           g_cursor(15) type c,                       " Cursor field name
           g_matnr     type mara-matnr,               " Material Number
           g_werks     type mchb-werks,               " Plant
           g_atinn(30) type c.                        " Character.
    Declaration for Internal tables
    Internal table to hold Batch Stock data
    data : begin of i_mchb occurs 0,
             matnr like mchb-matnr,      " Material Number
             werks like mchb-werks,      " Plant
             lgort like mchb-lgort,      " Storage Location
             charg like mchb-charg,      " Batch Number
             clabs like mchb-clabs,      " Stock Value
             meins like mara-meins,      " Unit of measure
             atflo like ausp-atflv,      " Char.Value (Ratio)
             atflv like ausp-atflv,      " Char.Value (Ratio)
           end of i_mchb.
    Internal table to hold Secondary List data
    data : begin of i_mchb1 occurs 0,
             werks like mchb-werks,      " Plant
             matnr like mchb-matnr,      " Material Number
             lgort like mchb-lgort,      " Storage Location
             charg like mchb-charg,      " Batch Number
             atinn like ausp-atinn,      " Char.Value
             clabs like mchb-clabs,      " Stock Value
             atflo like ausp-atflv,      " Char.Value (Ratio)
             atflv like ausp-atflv,      " Char.Value (Ratio)
           end of i_mchb1.
    Internal table to get the Plant Name
    data : begin of i_plant occurs 0,
             werks like t001w-werks,     " Plant
             name1 like t001w-name1,     " Name
           end of i_plant.
    Internal table to get the Material Description
    data : begin of i_makt occurs 0,
             matnr like makt-matnr,      " Material
             maktx like makt-maktx,     " Description
           end of i_makt.
    Internal table to hold AUSP data
    data : begin of i_ausp occurs 0,
             objek like ausp-objek,      " Object No
             atinn like cabn-atinn,      " Characteric value
             atflv like ausp-atflv,      " Characteristic Value
           end of i_ausp.
    Internal table to hold output data
    data : begin of i_output occurs 0,
             atinn like cabn-atinn,      " Characteric value
             werks like mchb-werks,      " Plant
             matnr like mchb-matnr,      " Material Number
             atnam like cabn-atnam,      " Characteristic
             atflv like ausp-atflv,      " Char.Value (Ratio)
             name1 like t001w-name1,     " Plant Description
             maktx like makt-maktx,      " Material Description
             clabs like mchb-clabs,      " Stock Value
             meins like mara-meins,      " Base Unit of Measure
           end of i_output.
    Internal table to hold final Output data
    data : begin of i_output1 occurs 0,
             atinn like cabn-atinn,      " Characteric value
             werks like mchb-werks,      " Plant
             matnr like mchb-matnr,      " Material Number
             atnam like cabn-atnam,      " Characteristic
             atflv(32) type c,           " Char.Value (Ratio)
             name1 like t001w-name1,     " Plant Description
             maktx like makt-maktx,      " Material Description
             clabs like mchb-clabs,      " Stock Value
             meins like mara-meins,      " Base Unit of Measure
           end of i_output1.
           Selection screen
    selection-screen begin of block b1 with frame title text-001.
    select-options: s_werks for t001w-werks obligatory,  " Plant
                    s_lgort for t001l-lgort,             " Stor.Location
                    s_matnr for mara-matnr  obligatory,  " Material No
                    s_atinn for cabn-atinn.              " Character.
    selection-screen end of block b1.
    At selection screen
    at selection-screen.
    Validation of Selection Screen Fields
      perform validate_screen.
    Start of selection
    start-of-selection.
    Get the Material and Batch Stock data from MARA and MCHB Tables
      perform get_mat_stock_data.
    Get the Material Group Text and Plant Name from T023T and T001W Tables
      perform get_plant_grp_data.
    Append the data into final Output Internal Table after getting the
    Characteristic Values data from INOB and AUSP Tables
      perform append_final_data.
    Processing if the Characteristics contain 'RATIO'
      perform collect_ratio.
    End-of-Page
    end-of-page.
      write /1(125) sy-uline.
    End of selection
    end-of-selection.
      if g_exit <> c_flag.
    Display the Report Output data
        perform display_report.
      endif.
    Top-of-Page
    top-of-page.
    Write the Report and Column Headings
      perform get_headings.
    at line-selection
    at line-selection.
      if sy-lsind = 1.
        perform display_batch.
      endif.
    Top of page during line-selection
    top-of-page during line-selection.
      perform heading_seclist.
          Form validate_screen
    Validation of Selection Screen fields
    form validate_screen.
    Validation of Plant
      clear t001w.
      if not s_werks[] is initial.
        select werks
          into t001w-werks
          from t001w
          up to 1 rows
          where werks in s_werks.
        endselect.
        if sy-subrc <> 0.
          message e899 with 'Enter Valid Plant'(002).
        endif.
      endif.
    Validation of Material Number
      clear mara.
      if not s_matnr[] is initial.
        select matnr
          into mara-matnr
          from mara
          up to 1 rows
          where matnr in s_matnr.
        endselect.
        if sy-subrc <> 0.
          message e899 with 'Enter Valid Material'(003).
        endif.
      endif.
    Validation of Storage Location
      clear t001l.
      if not s_lgort[] is initial.
        select lgort
          into t001l-lgort
          from t001l
          up to 1 rows
          where lgort in s_lgort.
        endselect.
        if sy-subrc <> 0.
          message e899 with 'Enter Valid Storage Location'(004).
        endif.
      endif.
    Validation of Characteristic Value
      clear cabn.
      if not s_atinn[] is initial.
        select atinn
          into cabn-atinn
          from cabn
          up to 1 rows
          where atinn in s_atinn.
        endselect.
        if sy-subrc <> 0.
          message e899 with 'Enter Valid Characteristic Value'(005).
        endif.
      endif.
    Validation of Plant, Material and Storage Location
      clear mard.
      select matnr werks lgort
        into (mard-matnr, mard-werks, mard-lgort)
        from mard
        up to 1 rows
        where matnr in s_matnr and
              werks in s_werks and
              lgort in s_lgort.
      endselect.
      if sy-subrc <> 0.
        message e899 with 'No Data found for the Selection Criteria'(006).
      endif.
    endform.                          "validate_screen
    *&      Form  get_headings
    Write the Report and Column Headings
    form get_headings.
      data: l_repid type sy-repid.
      l_repid =  sy-repid.
      call function 'Y_STANDARD_HEADING'
           exporting
                repid    = l_repid
                heading1 = sy-title.
      write:/1(125) sy-uline.
      format color col_heading on.
      write : /1  sy-vline,  2(18)   'Material Number'(008) centered,
              20  sy-vline,  21(40)  'Material Description'(011) centered,
              61  sy-vline,  62(22)  'Ratio'(009) centered,
              84  sy-vline,  85(18)  'Quantity'(010) centered,
             103  sy-vline, 104(20)  'Base Unit of Measure'(015) centered,
             125  sy-vline.
      write:/1(125) sy-uline.
      format color off.
    endform.                    "get_headings
    *&      Form  get_mat_stock_data
    Get the Material and Batch Stock data from MARA and MCHB Tables
    form get_mat_stock_data.
      clear: i_mchb,i_output, i_output1.
      refresh: i_mchb,i_output, i_output1.
      select a~matnr       " Material Number
             b~werks       " Plant
             b~lgort       " Storage Location
             b~charg       " Batch Number
             b~clabs       " Stock Value
             a~meins       " Base Unit of Measure
          into table i_mchb
          from mara as a inner join mchb as b
          on amatnr eq bmatnr
          where b~matnr in s_matnr and
                b~werks in s_werks and
                b~lgort in s_lgort.
      if sy-subrc <> 0.
        g_exit = c_flag.
        message s899 with 'No Data found for the Selection Criteria'(006).
        stop.
      endif.
      sort i_mchb by matnr werks lgort charg.
    endform.                    " get_mat_stock_data
    *&      Form  get_plant_grp_data
    Get the Material Group Text and Plant Name from T023T and T001W
    form get_plant_grp_data.
      if not i_mchb[] is initial.
    Get the Plant Description from t001w Table
        clear i_plant.
        refresh i_plant.
        select werks      " Plant
               name1      " Name
          into table i_plant
          from t001w
          for all entries in i_mchb
          where werks = i_mchb-werks.
    Get the Material Description from MAKT Table
        clear i_makt.
        refresh i_makt.
        select matnr      " Material number
               maktx      " Material Description
          into table i_makt
          from makt
          for all entries in i_mchb
          where matnr = i_mchb-matnr and
                spras = sy-langu.
        sort i_plant by werks.
        delete adjacent duplicates from i_plant comparing werks.
        sort i_makt by matnr.
        delete adjacent duplicates from i_makt comparing matnr.
      endif.
    endform.                   "form get_plant_grp_data.
    *&      Form  append_final_data
    Append the data into final Internal Table
    form append_final_data.
      data : l_matbatch(28),
             l_tabix like sy-tabix.
      if not i_mchb[] is initial.
        loop at i_mchb.
          l_tabix = sy-tabix.
          clear l_matbatch.
          concatenate i_mchb-matnr i_mchb-charg into l_matbatch.
          move-corresponding i_mchb to i_output.
    Get the Plant Description from i_plant Table
            read table i_plant with key werks = i_mchb-werks binary search.
            if sy-subrc = 0.
              i_output-name1 = i_plant-name1.
            endif.
    Get the Material Description from i_makt Table
          read table i_makt with key matnr = i_mchb-matnr binary search.
          if sy-subrc = 0.
            i_output-maktx = i_makt-maktx.
          endif.
    Get the Characteristic Values data from INOB and AUSP Tables
          clear inob.
          select single cuobj from inob
              into inob-cuobj
              where klart = c_klart and
                    obtab = c_obtab and
                    objek = l_matbatch.
          if sy-subrc = 0.
            select objek
                   atinn
                   atflv
               from ausp
               into table i_ausp
               where objek = inob-cuobj and
                     atinn in s_atinn   and
                     klart = c_klart.
            sort i_ausp by objek atinn.
            loop at i_ausp.
              clear cabn.
              select single atinn atnam from cabn
                         into (cabn-atinn,cabn-atnam)
                         where atinn = i_ausp-atinn.
              if sy-subrc = 0.
    If the ratio value is between 13-14.99, display 13
                if cabn-atnam cs c_ratio.
                  if i_ausp-atflv between c_13 and c_1499.
                    i_mchb-atflo = i_ausp-atflv.
                    i_mchb-atflv = c_13.
    If the ratio value is between 15-16.99, display 15
                  elseif i_ausp-atflv between c_15 and c_1699.
                    i_mchb-atflo = i_ausp-atflv.
                    i_mchb-atflv = c_15.
    If the ratio value is between 17-18.99, display 17
                  elseif i_ausp-atflv between c_17 and c_1899.
                    i_mchb-atflo = i_ausp-atflv.
                    i_mchb-atflv = c_17.
    If the ratio value is between 19-20.99, display 19
                  elseif i_ausp-atflv between c_19 and c_2099.
                    i_mchb-atflo = i_ausp-atflv.
                    i_mchb-atflv = c_19.
    If the ratio value is between 21-22.99, display 21
                  elseif i_ausp-atflv between c_21 and c_2299.
                    i_mchb-atflo = i_ausp-atflv.
                    i_mchb-atflv = c_21.
    If the ratio value is greater than or equal to 23, display 23
                  elseif i_ausp-atflv >= c_23.
                    i_mchb-atflo = i_ausp-atflv.
                    i_mchb-atflv = c_23.
                  endif.           " Condition for RATIO values
                else.              " If characteristic does contain RATIO
                  i_mchb-atflv = i_ausp-atflv.
                endif.
                i_output-atinn = cabn-atinn.
                i_output-atnam = cabn-atnam.
                i_output-atflv = i_ausp-atflv.
                i_mchb1-matnr = i_mchb-matnr.
                i_mchb1-werks = i_mchb-werks.
                i_mchb1-lgort = i_mchb-lgort.
                i_mchb1-charg = i_mchb-charg.
                i_mchb1-clabs = i_mchb-clabs.
                i_mchb1-atinn = i_ausp-atinn.
                i_mchb1-atflo = i_mchb-atflv.
                i_mchb1-atflv = i_ausp-atflv.
                append : i_output, i_mchb1.
                clear i_mchb1.
                modify i_mchb index l_tabix transporting atflo atflv .
              endif.
            endloop.
          endif.
        endloop.
      endif.
    Checking whether the table is filled or not
      if not i_output[] is initial.
        sort i_output by atinn werks matnr atflv.
      else.
        g_exit = c_flag.
        message s899 with 'No Data found for the Selection Criteria'(006).
      endif.
    Delete the records where RATIO is less than 13.
      delete i_output where atnam cs c_ratio and atflv lt c_13.
    endform.                    "append_final_data
    *&      Form  display_report
    Display the Report Output data
    form display_report.
    data: l_tabix like sy-tabix.
      loop at i_output1.
        l_tabix = sy-tabix.
    At new Characteristic
         at new atinn.
          read table i_output1 index l_tabix.
          format color 1 intensified on.
          write: /1 sy-vline, 2(20) 'Characteristic Name:'(007),
                 23(40) i_output1-atnam,
                 125 sy-vline.
          format color off.
          format color 4 intensified on.
          write: /1 sy-vline, 2(20) 'Plant Name         :'(022),
                 23(4) i_output1-werks, 29(30) i_output1-name1,
                 125 sy-vline.
          format color off.
          write /1(125) sy-uline.
        endat.
        clear: g_clabs, g_clabs1.
        format color col_normal.
        write :/1 sy-vline,  2(18)   i_output1-matnr,
               20 sy-vline,  21(40)  i_output1-maktx,
               61 sy-vline.
        if i_output1-atflv = c_c23.
          write: 62(22)  c_g23 centered.
        else.
          shift i_output1-atflv left deleting leading space.
          write: 62(22)  i_output1-atflv centered.
        endif.
        write:  84     sy-vline,
               103     sy-vline,
               110(5)  i_output1-meins.
    If the quantity value is negative
        if i_output1-clabs ge 0.
          write: 85(18) i_output1-clabs unit i_mchb-meins,
                125     sy-vline.
        else.
          i_output1-clabs = - i_output1-clabs.
          write i_output1-clabs unit i_mchb-meins to g_clabs1.
          condense g_clabs1.
          concatenate '(' g_clabs1 ')' into g_clabs separated by space.
          write: 85(18) g_clabs right-justified,
               125 sy-vline.
        endif.
        format color off.
        hide : i_output1.
        new-line.
    At end of material
        at end of matnr.
          sum.
          move : i_output1-matnr to g_matnr.
          format color 3 intensified on.
          write /1(125) sy-uline.
          write :/1 sy-vline,  2(25) 'Total for Material      :'(012),
                 28(18) g_matnr.
          if i_output1-clabs ge 0.
            write: 85(18) i_output1-clabs  unit i_mchb-meins,
            125 sy-vline.
          else.
            i_output1-clabs = - i_output1-clabs.
            write i_output1-clabs unit i_mchb-meins to g_clabs1.
            condense g_clabs1.
            concatenate '(' g_clabs1 ')' into g_clabs separated by space.
            write: 85(18) g_clabs right-justified,
                 125 sy-vline.
          endif.
          write: 125 sy-vline.
          format color off.
          write /1(125) sy-uline.
        endat.
    At end of plant
        at end of werks.
          sum.
          move : i_output1-werks to g_werks.
          format color 3 intensified off.
          write :/1 sy-vline,  2(25) 'Total for Plant          :'(013),
                 28(4) g_werks.
          if i_output1-clabs ge 0.
            write:  85(18) i_output1-clabs  unit i_mchb-meins,
            125 sy-vline.
          else.
            i_output1-clabs = - i_output1-clabs.
            write i_output1-clabs unit i_mchb-meins to g_clabs1.
            condense g_clabs1.
            concatenate '(' g_clabs1 ')' into g_clabs separated by space.
            write: 85(18) g_clabs right-justified,
                 125 sy-vline.
          endif.
          format color off.
          write /1(125) sy-uline.
        endat.
    At end of  characteristic
        at end of atinn.
          read table i_output1 index l_tabix.
          sum.
          format color 3 intensified on.
          write :/1 sy-vline,  2(25) 'Total for Characteristic:'(014),
                 28(25) i_output1-atnam.
          if i_output1-clabs ge 0.
            write:  85(18) i_output1-clabs  unit i_mchb-meins,
            125 sy-vline.
          else.
            i_output1-clabs = - i_output1-clabs.
            write i_output1-clabs unit i_mchb-meins to g_clabs1.
            condense g_clabs1.
            concatenate '(' g_clabs1 ')' into g_clabs separated by space.
            write: 85(18) g_clabs right-justified,
                 125 sy-vline.
          endif.
          format color off.
          write /1(125) sy-uline.
        endat.
      endloop.
    endform.                    " display_report
    *&      Form  DISPLAY_BATCH
         Display the batch details for the seclected material            *
    form display_batch.
    Get the batch details for the selected material
      get cursor field g_cursor.
      if g_cursor = c_cursor1 or
         g_cursor = c_cursor2 or
         g_cursor = c_cursor3 or
         g_cursor = c_cursor4 or
         g_cursor = c_cursor5 or
         g_cursor = c_cursor6.
        format color 3.
        write: /1 sy-vline,
                2(17) 'Material Number :'(020),
               20(17) i_output1-matnr,
               94 sy-vline.
        format color off.
        write /1(94) sy-uline.
        loop at i_mchb1 where matnr = i_output1-matnr and
                              atinn = i_output1-atinn and
                              atflo = i_output1-atflv.
          format color col_normal.
          shift i_mchb1-charg left deleting leading '0'.
          write :/1 sy-vline,  2(16) i_mchb1-lgort centered,
                 18 sy-vline, 19(17) i_mchb1-charg centered,
                 36 sy-vline.
          if i_output1-atnam cs c_ratio.
            write: 37(29) i_mchb1-atflv
                           exponent 0 decimals 2 centered.
          else.
            write : 37(29) i_mchb1-atflv
                          exponent 0 decimals 0 centered.
          endif.
          write : 66 sy-vline, 67(27) i_mchb1-clabs unit i_mchb-meins,
                  94 sy-vline.
          format color off.
        endloop.
        write /1(94) sy-uline.
      else.
        message s899 with 'Invalid cursor position'(016).
        exit.
      endif.
    endform.                    " DISPLAY_BATCH
    *&      Form  HEADING_SECLIST
          Write the Column Headings for Interactive Report
    form heading_seclist.
      write /1(94) sy-uline.
      format color col_heading on.
      write :/1 sy-vline,  2(16) 'Storage Location'(021),
             18 sy-vline, 19(17) 'Batch Number'(017) centered,
             36 sy-vline, 37(29) 'Characteristic Value'(018) centered,
             66 sy-vline, 67(27) 'Quantity'(019) centered,
             94 sy-vline.
      write /1(94) sy-uline.
      format color off.
    endform.                    " HEADING_SECLIST
    *&      Form  COLLECT_RATIO
          Display the Characteristic ratio data
    form collect_ratio.
      loop at i_output.
        clear g_atinn.
        i_output1-atinn = i_output-atinn.
        i_output1-atnam = i_output-atnam .
        i_output1-werks = i_output-werks.
        i_output1-name1 = i_output-name1.
        i_output1-matnr = i_output-matnr.
        i_output1-maktx = i_output-maktx.
        i_output1-clabs = i_output-clabs.
        i_output1-meins = i_output-meins.
        call function 'CONVERSION_EXIT_ATINN_OUTPUT'
             exporting
                  input  = i_output-atinn
             importing
                  output = g_atinn.
        if g_atinn cs c_ratio.
    If the ratio value is between 13-14.99, display 13
          if i_output-atflv between c_13 and c_1499.
            i_output1-atflv = c_13.
    If the ratio value is between 15-16.99, display 15
          elseif i_output-atflv between c_15 and c_1699.
            i_output1-atflv = c_15.
    If the ratio value is between 17-18.99, display 17
          elseif i_output-atflv between c_17 and c_1899.
            i_output1-atflv = c_17.
    If the ratio value is between 19-20.99, display 19
          elseif i_output-atflv between c_19 and c_2099.
            i_output1-atflv = c_19.
    If the ratio value is between 21-22.99, display 21
          elseif i_output-atflv between c_21 and c_2299.
            i_output1-atflv = c_21.
    If the ratio value is greater than or equal to 23, display 23
          elseif i_output-atflv >= c_23.
            i_output1-atflv = c_23.
          endif.
          write i_output1-atflv to i_output1-atflv .
        else.
          write i_output-atflv to i_output1-atflv exponent 0 decimals 0.
        endif.
        collect i_output1.
        clear   i_output1.
      endloop.
      sort i_output1 by atinn werks matnr atflv.
    endform.                    " COLLECT_RATIO
    Reward if useful..
    Regards,
    Anji

  • Maybe you are looking for