Show list of OS files in Form

Hi
I have to show list of all files residing in a particular directory on DB server using a oracle forms 6i deployed on application server.How can I achive this .Please advise.
Thanks
Prashant

One solution would be to have a FTP link with this machine, but that also probably results in a security issue.
Another solution would be to use a small stored Java code in the database that would do the trick, assuming that the Java engine is configured on this database.
Francois

Similar Messages

List of all files in directory

Hi
I am trying to show list of all files in a directory on my pc.
Is there any way to this in webdynpro?
I can not use directory_list_files because I get dump.
Thanks nitsan

hi,
Please find this link on the same -
List of all files in a directory
Regards,
Lekha.

The firefox icon shows on my desk top and in my task bar, but why does it NOT show in my list of Program files?

My Firefox icons are showing and usable from the desktop and from the task bar; however, the Mozilla Firefox does not show in my list of program files. Why doesn't it show?

Hello,
Certain Firefox problems can be solved by performing a ''Clean reinstall''. This means you remove Firefox program files and then reinstall Firefox. Please follow these steps:
'''Note:''' You might want to print these steps or view them in another browser.
#Download the latest Desktop version of Firefox from http://www.mozilla.org and save the setup file to your computer.
#After the download finishes, close all Firefox windows (click Exit from the Firefox or File menu).
#Delete the Firefox installation folder, which is located in one of these locations, by default:
#*'''Windows:'''
#**C:\Program Files\Mozilla Firefox
#**C:\Program Files (x86)\Mozilla Firefox
#*'''Mac:''' Delete Firefox from the Applications folder.
#*'''Linux:''' If you installed Firefox with the distro-based package manager, you should use the same way to uninstall it - see [[Installing Firefox on Linux]]. If you downloaded and installed the binary package from the [http://www.mozilla.org/firefox#desktop Firefox download page], simply remove the folder ''firefox'' in your home directory.
#Now, go ahead and reinstall Firefox:
##Double-click the downloaded installation file and go through the steps of the installation wizard.
##Once the wizard is finished, choose to directly open Firefox after clicking the Finish button.
More information about reinstalling Firefox can be found [https://support.mozilla.org/en-US/kb/troubleshoot-and-diagnose-firefox-problems?esab=a&s=troubleshooting&r=3&as=s#w_5-reinstall-firefox here].
<b>WARNING:</b> Do not run Firefox's uninstaller or use a third party remover as part of this process, because that could permanently delete your Firefox data, including but not limited to, extensions, cache, cookies, bookmarks, personal settings and saved passwords. <u>These cannot be recovered unless they have been backed up to an external device!</u>
Please report back to see if this helped you!
Thank you.

Report Parameter form not showing list of values in Report svr

I was using reports 6i where I used to have list box in report parameter form. I now converted recompiled my reports in 10g and when I run I am not geting the list of values. I get the values as a list below the field
ex.
ITEM :___________
box,book,pencil,rubber,
dvd,floppy...
previously it was coming as a list in the item field
thanks
MG

Hello,
http://www.oracle.com/webapps/online-help/reports/10.1.2/topics/htmlhelp_rwbuild_hs/rwwhthow/howto/params/pmp_creating_list_of_values.htm?tp=true
If you run the report from a Web browser and the list of values is unrestricted, the HTML Parameter Form will display a text field instead of a combo box, and a list of static values that you can copy and paste into the text field.
Regards

PS CS4 "File Info" Forms - Clearing "Suggested Words"

My photographer friend uses PS CS4 on a Mac book.
She asked me if I knew how to clear the 'type-ahead' or 'suggested' words and phrases that show up in the PS CS4 'File Info' forms. She has some typos
in the list of suggested words and she would like to delete them.
I sat at her Mac for about an hour and I could find no way to get rid of unwanted suggested words in the File Info forms.
For example, in the Description Form, in the Author field, she types the first letter of her name and a list of suggested phrases comes up. She has misspelled her name several times and these mispellings are higher in the list than the correct spelling, so she has to go down the list to find her name spelled correctly.
Is it possible to delete or clear all the previously-entered words and phrases?
I have played around with my Win 7 CS4 and I tried renaming and then deleting one by one all the XMP files I find in my folder User/AppData/Adobe but the suggested words and phrases I have used previously still show up when I type something in a file Info form in a new image. I closed CS4 each time I renamed or deleted an .xmp file.
Thanks, Bill

Not sure if this might help, but try it and please report back (these steps fix problems in some odd situations.)
Open the fmb on a computer where it will open ok.
Do a pl/sql Replace All, replacing all semicolon with semicolon. (That just forces the Forms Builder to remove embedded compiled code.)
Save and close the form (without recompiling anything). You may notice the fmb size is reduced.
Then try opening the fmb on the other computer.

A List's New/Edit/Display Forms - are they ghosted or unghosted?

When you create a list, you automatically get a New Form, an Edit Form and a Display Form.
Let's say you want only certain fields to show up on that form, so, in SharePoint Designer, you create NewForm2, EditForm2, and DisplayForm2.
Are these files created in the file system or in the database? (ghosted or unghosted)

Hello,
When you create any list/library, all the default forms are ghosted until you modify them. Now if you create own custom forms then they will be unghostable and get saved in content database. So if you modify any default page in site, new modification get
saved in content DB.
Hope it could help
Hemendra:Yesterday is just a memory,Tomorrow we may never see
Please remember to mark the replies as answers if they help and unmark them if they provide no help

List Item problem in oracle forms

Hi,
I am using list item in oracle forms 6i and facing one problem. I am populating list using following built-in.
Clear_list()
Create_Group_From_Query( )
Populate_list()
The problem I am facing is when list gets populate it keep the cursor at last element of list with null value. I want cursor to go at first item in the list. Is this thing is possible. The list item I am using is pop-list. In combo its showing list perfectly but I have to use pop-list only. Please help to come out of this problem.
Thanks in advance
Shweta.

Hi Shweta,
Please post your query in Oracle Forms discussion forum.
Thanks,
Wilson.

List items problems in oracle forms 6i

Hello friends,
I am using list item in oracle forms 6i and facing one problem. I am populating list using following built-in.
Clear_list()
Create_Group_From_Query( )
Populate_list()
The problem I am facing is when list gets populate it keep the cursor at last element of list with null value. I want cursor to go at first item in the list. Is this thing is possible. The list item I am using is pop-list. In combo its showing list perfectly but I have to use pop-list only. Please help to come out of this problem.
Thanks in advance
Shweta.

I have a question related to this post...what if you want the first item on the list to be the null record - but have it at the top of the list - like all other drop downs I've seen? I'm running on forms 9i
Edited by: saburo on Mar 2, 2010 7:58 AM

ALV issue: when save list using Local File command will get run time error!

help!!!!
report list using ALV method when to save this list using Local File.
i will get GETWA_NOT_ASSIGNED run time error information.
how resolve it?
source code :
REPORT   ZIFT0103.
TABLES : MARA,MARC,CDHDR,CDPOS,MAKT.
******DEVK909212****************
****利用工厂来区分不同的SERVER的FTP ADDRESS ,user ,PASSWORD
DATA: FTP_WERKS LIKE MARC-WERKS.
********定义一个RANGE用来抓取MARC的信息
RANGES:R_MATNR FOR MARA-MATNR OCCURS 0.
********定义一个INTERNAL TABLE 来抓取MARC 的信息
DATA:BEGIN OF IT_MARC OCCURS 0,
      MATNR LIKE MARC-MATNR,
      WERKS LIKE MARC-WERKS,
      USERNAME TYPE CDHDR-USERNAME,
     UDATE    TYPE CDHDR-UDATE,
     FLAG_UI TYPE C,
     END OF IT_MARC.
*******定义存放北京的数据的变量
DATA : BEGIN OF FTP_BEIJING OCCURS 0 ,
              MATNR(25) ,
              MATNR1(25) ,
              MAKTX(30) ,
       END OF FTP_BEIJING .
******定义福清的数据变量
DATA : BEGIN OF FTP_FUQING OCCURS 0 ,
              MATNR(25) ,
              MATNR1(25) ,
              MAKTX(30) ,
       END OF FTP_FUQING .
*******DEVK909212*****************
DATA : BEGIN OF FTP_ITEMDOC1 OCCURS 0 ,
              MATNR(25) ,
              MAKTX(30) ,
       END OF FTP_ITEMDOC1 .
DATA : BEGIN OF FTP_ITEMDOC OCCURS 0 ,
              MATNR(25) ,
              MATNR1(25) ,
              MAKTX(30) ,
       END OF FTP_ITEMDOC .
DATA: WA_ZMSGTA TYPE ZMSGTA ,
      l_ersda like MARA-ERSDA .
***********DEVK909553********************
****用来决定执行FTP还是显示LIST**********
DATA:g_tcode_flag.
***********DEVK909553********************
Error message process ******************************
DEFINE EXPLAIN_MSG.
   break soe_richard.
CALL FUNCTION 'BAPI_MESSAGE_GETDETAIL'
    EXPORTING
      ID                = &1   "SY-MSGID
      NUMBER            = &2   "SY-MSGNO
      LANGUAGE          = SY-LANGU
      TEXTFORMAT        = &3
      LINKPATTERN       =
      MESSAGE_V1        = &4                                "SY-MSGV1
      MESSAGE_V2        = &5                                "SY-MSGV2
      MESSAGE_V3        = &6                                "SY-MSGV3
      MESSAGE_V4        = &7                                "SY-MSGV4
    IMPORTING
      MESSAGE           = &8   "WA_ZMSGTA-MSE1
      RETURN            =
    TABLES
      TEXT              =
END-OF-DEFINITION.
DEFINE ERROR_MSG_UPDATA.
CALL FUNCTION 'ZINSERT_MSG' "IN UPDATE TASK
    EXPORTING
      XZMSGTA      = &1    "WA_ZMSGTA
    EXCEPTIONS
      UPDATE_ERROR = 1
      OTHERS       = 2.
END-OF-DEFINITION.
IF SY-TCODE = 'ZIFT103' .
g_tcode_flag = 'L'.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
    EXPORTING
      PERCENTAGE = 0
      TEXT       = '请耐心等候,系统正在抓数据'.
ENDIF.
l_ersda = sy-datum - 1 . "取前一天产生的物料号码。
DATA:BEGIN OF it_change OCCURS 0,
     OBJECTID TYPE CDHDR-OBJECTID,
     USERNAME TYPE CDHDR-USERNAME,
     UDATE    TYPE CDHDR-UDATE,
     TABKEY   TYPE CDPOS-TABKEY,
     END OF it_change.
DATA:BEGIN OF it_cDhdr OCCURS 0,
     OBJECTID type CDHDR-OBJECTID,
     CHANGENR TYPE CDHDR-CHANGENR,
     USERNAME TYPE CDHDR-USERNAME,
     UDATE    TYPE CDHDR-UDATE,
     END OF it_cdhdr.
DATA:search_len TYPE I.
DATA:BEGIN of it_insert OCCURS 0,
     MATNR TYPE MARA-MATNR,
     WERKS TYPE MARC-WERKS,
     END OF it_insert.
DATA:BEGIN OF it_MAKT OCCURS 0,
     MATNR TYPE MAKT-MATNR,
     MAKTX TYPE MAKT-MAKTX,
     END OF it_makt.
DATA IT_MARA TYPE TABLE OF MARA WITH HEADER LINE.
DATA:BEGIN OF IT_OUT OCCURS 0,
     MATNR TYPE MARA-MATNR,
     WERKS TYPE MARC-WERKS,
     MTART TYPE MARA-MTART,
     MEINS TYPE MARA-MEINS,
     MATKL TYPE MARA-MATKL,
     MAKTX TYPE MAKT-MAKTX,
     PSTAT TYPE MARA-PSTAT,
     BRGEW TYPE MARA-BRGEW,
     NTGEW TYPE MARA-NTGEW,
     GEWEI TYPE MARA-GEWEI,
     FERTH TYPE MARA-FERTH,
     KZUMW TYPE MARA-KZUMW,
     ERNAM TYPE MARA-ERNAM,
     ERSDA TYPE MARA-ERSDA,
     END OF IT_OUT.
*-- DECLARE DATA FOR ALV
TYPE-POOLS: slis.
DATA : g_variant LIKE disvariant,
        g_save(1) TYPE c,
        g_exit(1) TYPE c,
        gx_variant LIKE disvariant.
DATA: gt_fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE, "
      gt_events   TYPE slis_t_event,
      gt_list_top_of_page TYPE slis_t_listheader,
      gs_print TYPE slis_print_alv,
      gs_layout         TYPE slis_layout_alv .
******只能抓出系统有做更改的数据***************
******而第一次INSERT MARA的数据抓不出来********
START-OF-SELECTION.
SELECT AOBJECTID AUSERNAME AUDATE BTABKEY
INTO TABLE it_change
FROM ( CDPOS AS B INNER JOIN CDHDR AS A ON
     AOBJECTCLAS = BOBJECTCLAS AND
     AOBJECTID   = BOBJECTID   AND
     ACHANGENR   = BCHANGENR )
WHERE A~OBJECTCLAS = 'MATERIAL'
AND   A~UDATE = l_ersda
AND   B~TABNAME = 'MARC'
AND   B~CHNGIND = 'I'.
LOOP AT it_change.
   search_len = STRLEN( it_change-TABKEY ).
   search_len = search_len - 4.
   IF search_len > 0.
     IT_MARC-WERKS = it_change-TABKEY+search_len(4).
   ENDIF.
   IT_MARC-MATNR = it_change-objectid+0(18).
   IT_MARC-USERNAME = it_change-username.
   IT_MARC-UDATE    = It_change-udate.
   IT_MARC-FLAG_UI = 'U'.
   APPEND IT_MARC.
   CLEAR IT_MARC.
   CLEAR R_MATNR.
   R_MATNR-SIGN = 'I'.
   R_MATNR-OPTION = 'EQ'.
   R_MATNR-LOW = IT_MARC-MATNR.
   APPEND R_MATNR.
ENDLOOP.
****CDPOS is Cluster TABLE 所以没有办法用INNER JOIN******
SELECT OBJECTID CHANGENR USERNAME UDATE
INTO TABLE it_cdhdr
FROM CDHDR
WHERE OBJECTCLAS = 'MATERIAL'
AND   UDATE = l_ersda.
AND   TCODE = 'MM02'.
LOOP AT IT_cdhdr.
    SELECT * FROM CDPOS
    WHERE OBJECTCLAS = 'MATERIAL'
    AND   OBJECTID = IT_CDHDR-OBJECTID
    AND   CHANGENR = IT_CDHDR-CHANGENR
    AND   TABNAME   = 'MARC'
    AND   CHNGIND = 'I'.
      search_len = STRLEN( CDPOS-TABKEY ).
      search_len = search_len - 4.
      IF search_len > 0.
        IT_MARC-WERKS = CDPOS-TABKEY+search_len(4).
      ENDIF.
      IT_MARC-MATNR = IT_cdhdr-objectid+0(18).
      IT_MARC-USERNAME = IT_cdhdr-username.
      IT_MARC-UDATE    = IT_cdhdr-udate.
      IT_MARC-FLAG_UI = 'U'.
      APPEND IT_MARC.
     CLEAR IT_MARC.
      CLEAR R_MATNR.
      R_MATNR-SIGN = 'I'.
      R_MATNR-OPTION = 'EQ'.
      R_MATNR-LOW = IT_MARC-MATNR.
      APPEND R_MATNR.
      CLEAR IT_MARC.
    ENDSELECT.
ENDLOOP.
IF g_tcode_flag = 'L'.
    CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
      EXPORTING
        PERCENTAGE = 20
        TEXT       = '处理好当天CHANGE的数据'.
ENDIF.
*******抓当天做了INSERT的数据*************
*******不需要***********************
SELECT BMATNR BWERKS INTO TABLE IT_INSERT
FROM MARC AS B JOIN MARA AS A
ON   AMATNR = BMATNR
WHERE A~ERSDA = l_ersda.
LOOP AT IT_INSERT.
   IT_MARC-MATNR = IT_INSERT-MATNR.
   IT_MARC-WERKS = IT_INSERT-WERKS.
   IT_MARC-FLAG_UI = 'I'.
   APPEND IT_MARC.
   CLEAR IT_MARC.
   CLEAR R_MATNR.
   R_MATNR-SIGN = 'I'.
   R_MATNR-OPTION = 'EQ'.
   R_MATNR-LOW = IT_MARC-MATNR.
   APPEND R_MATNR.
ENDLOOP.
IF g_tcode_flag = 'L'.
   CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
     EXPORTING
       PERCENTAGE = 40
       TEXT       = '处理好当天INSERT的数据'.
ENDIF.
IF g_tcode_flag = 'L'.
    PERFORM get_MAKTX.
    PERFORM get_mara.
    CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
      EXPORTING
        PERCENTAGE = 100
        TEXT       = '处理好数据,并开始显示数据'.
    PERFORM do_data.
    PERFORM display_alv.
ELSE.
    PERFORM get_MAKTX.
    PERFORM do_ftp.
ENDIF.
*&      Form get_marktx
      text
FORM get_maktx.
SELECT MATNR MAKTX INTO TABLE IT_MAKT FROM MAKT
WHERE MATNR IN R_MATNR AND SPRAS = '1'.
ENDFORM.                    "get_marktx
*&      Form get_mara
      text
FORM get_mara.
SELECT * INTO TABLE it_mara FROM MARA
WHERE MATNR IN R_MATNR.
ENDFORM.                    "get_mara
*&      Form do_data
      text
FORM do_data.
SORT IT_MARC BY MATNR WERKS.
DELETE ADJACENT DUPLICATES FROM IT_MARC COMPARING MATNR WERKS.
LOOP AT IT_MARC.
    CLEAR IT_MAKT.
    CLEAR IT_MARA.
    READ TABLE IT_MAKT WITH KEY MATNR = IT_MARC-MATNR.
    READ TABLE IT_MARA WITH KEY MATNR = IT_MARC-MATNR.
    MOVE-CORRESPONDING IT_MARA TO IT_OUT.
    IT_OUT-MAKTX = IT_MAKT-MAKTX.
    IT_OUT-WERKS = IT_MARC-WERKS.
    IF IT_MARC-FLAG_UI = 'U'.
      IT_OUT-ERNAM = IT_MARC-USERNAME.
    ENDIF.
    APPEND IT_OUT.
    CLEAR IT_OUT.
ENDLOOP.
ENDFORM.                    "do_data
*SELECT AMATNR BMAKTX INTO CORRESPONDING
*FIELDS OF FTP_ITEMDOC1 FROM MARA AS A JOIN MAKT AS B
*ON AMATNR = BMATNR WHERE A~ERSDA = l_ersda
*AND B~SPRAS = '1' . "代表为中文说明。
APPEND FTP_ITEMDOC1.
*******DEVK909212****************
*******添加RANGE*****************
CLEAR R_MATNR.
R_MATNR-SIGN = 'I'.
R_MATNR-OPTION = 'EQ'.
R_MATNR-LOW = FTP_ITEMDOC1-MATNR.
APPEND R_MATNR.
CLEAR FTP_ITEMDOC1.
*******DEVK909212****************
*ENDSELECT.
*******DEVK909212****************
****get WERKS information from MARC*******
*SELECT MATNR WERKS INTO TABLE IT_MARC
*FROM MARC
*WHERE MATNR IN R_MATNR.
*******DEVK909212****************
******DEVK909212****************
**MARK**************************
*LOOP AT FTP_ITEMDOC1 .
MOVE : FTP_ITEMDOC1-MATNR TO FTP_ITEMDOC-MATNR,
        FTP_ITEMDOC1-MATNR TO FTP_ITEMDOC-MATNR1,
        FTP_ITEMDOC1-MAKTX TO FTP_ITEMDOC-MAKTX.
APPEND FTP_ITEMDOC.
CLEAR FTP_ITEMDOC.
*ENDLOOP.
******DEVK909212****************
******DEVK909212***********************************
**根据IT_MARC中信息，往北京和福清的TABLE写数据*****
FORM do_ftp.
LOOP AT IT_MARC.
***福清的
    IF IT_MARC-WERKS = '1010' OR IT_MARC-WERKS = '1020'
       OR IT_MARC-WERKS = '1023' .
     READ TABLE FTP_ITEMDOC1 WITH KEY MATNR = IT_MARC-MATNR.
     MOVE : FTP_ITEMDOC1-MATNR TO FTP_FUQING-MATNR,
        FTP_ITEMDOC1-MATNR TO FTP_FUQING-MATNR1,
        FTP_ITEMDOC1-MAKTX TO FTP_FUQING-MAKTX.
      CLEAR IT_MAKT.
      READ TABLE IT_MAKT WITH KEY = IT_MARC-MATNR.
      MOVE : IT_MARC-MATNR TO FTP_FUQING-MATNR,
         IT_MARC-MATNR TO FTP_FUQING-MATNR1,
         IT_MAKT-MAKTX TO FTP_FUQING-MAKTX.
      APPEND FTP_FUQING.
      CLEAR FTP_FUQING.
    ENDIF.
***北京的
    IF IT_MARC-WERKS = '1041' OR IT_MARC-WERKS = '1042'.
     READ TABLE FTP_ITEMDOC1 WITH KEY MATNR = IT_MARC-MATNR.
     MOVE : FTP_ITEMDOC1-MATNR TO FTP_BEIJING-MATNR,
        FTP_ITEMDOC1-MATNR TO FTP_BEIJING-MATNR1,
        FTP_ITEMDOC1-MAKTX TO FTP_BEIJING-MAKTX.
      CLEAR IT_MAKT.
      READ TABLE IT_MAKT WITH KEY = IT_MARC-MATNR.
      MOVE : IT_MARC-MATNR TO FTP_BEIJING-MATNR,
             IT_MARC-MATNR TO FTP_BEIJING-MATNR1,
             IT_MAKT-MAKTX TO FTP_BEIJING-MAKTX.
      APPEND FTP_BEIJING.
      CLEAR FTP_BEIJING.
    ENDIF.
ENDLOOP.
****清楚重复的数据**********
SORT FTP_FUQING.
DELETE ADJACENT DUPLICATES FROM FTP_FUQING.
SORT FTP_BEIJING.
DELETE ADJACENT DUPLICATES FROM FTP_BEIJING.
***传送数据********
REFRESH FTP_ITEMDOC.
FTP_ITEMDOC[] = FTP_FUQING[].
FTP_WERKS = '1010'.
PERFORM ftp_work.
REFRESH FTP_ITEMDOC.
FTP_ITEMDOC[] = FTP_BEIJING[].
FTP_WERKS = '1041'.
PERFORM ftp_work.
******DEVK909212***********************************
ENDFORM.                    "do_ftp
*&      Form ftp_work
     把以前FTP的工作做一个FORM
*******DEVK909212**************************
FORM ftp_work.
*******DEVK909212**************************
CHECK FTP_ITEMDOC[] IS NOT INITIAL.
FTP function *****************************************************
DATA : HDL TYPE I,
         L_SLEN TYPE I ,
         ERROR,
         KEY TYPE I VALUE 26101957,
         DEST TYPE RFCDES-RFCDEST VALUE 'SAPFTPA'.
DATA: FTP_RESULT TYPE TABLE OF TEXT.
DATA: P_FILE TYPE RLGRAP-FILENAME.
DATA: L_USER(16) TYPE C VALUE 'SFIS',
        L_PWD(16) TYPE C VALUE 'SFIS',
        L_HOST(16) TYPE C VALUE '172.16.31.17'.
*******DEVK909212**************************
*****根据不同的工厂来抓FTP的信息
CALL FUNCTION 'Z_FTP_SFIS'
    EXPORTING
      BLART = 'S'
      WERKS = FTP_WERKS
    IMPORTING
      HOST = L_HOST
      USER1 = L_USER
      PASS1 = L_PWD.
*******DEVK909212**************************
CONCATENATE l_ersda '.KP' INTO P_FILE.
SET EXTENDED CHECK OFF.
ERROR = 0.
CHECK HDL IS INITIAL.
Connect to server
L_SLEN = STRLEN( L_PWD ).
CALL FUNCTION 'HTTP_SCRAMBLE'
    EXPORTING
      SOURCE      = L_PWD
      SOURCELEN   = L_SLEN
      KEY         = KEY
    IMPORTING
      DESTINATION = L_PWD.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
   EXPORTING
     TEXT = 'Connect to FTP Server'.
CALL FUNCTION 'FTP_CONNECT'
    EXPORTING
      USER            = L_USER
      PASSWORD        = L_PWD
      HOST            = L_HOST
      RFC_DESTINATION = DEST
    IMPORTING
      HANDLE          = HDL
    EXCEPTIONS
      NOT_CONNECTED   = 1
      OTHERS          = 2.
IF SY-SUBRC <> 0.
    MOVE: 'B' TO WA_ZMSGTA-BLART,
          l_ersda TO WA_ZMSGTA-REFNUMBER,
          SY-MSGTY TO WA_ZMSGTA-MSGTY,
          'MARA' TO WA_ZMSGTA-TBMA_VAL.
    EXPLAIN_MSG SY-MSGID SY-MSGNO ' ' SY-MSGV1 SY-MSGV2 SY-MSGV3
                SY-MSGV4 WA_ZMSGTA-MSE1.
    ERROR_MSG_UPDATA WA_ZMSGTA.
    EXIT.
ENDIF.
CALL FUNCTION 'FTP_COMMAND'
    EXPORTING
      HANDLE        = HDL
      COMMAND       = 'ascii'
    TABLES
      DATA          = FTP_RESULT
    EXCEPTIONS
      TCPIP_ERROR   = 1
      COMMAND_ERROR = 2
      DATA_ERROR    = 3.
IF SY-SUBRC <> 0.
    EXPLAIN_MSG SY-MSGID SY-MSGNO ' ' SY-MSGV1 SY-MSGV2 SY-MSGV3
                SY-MSGV4 WA_ZMSGTA-MSE1.
    MOVE: 'B' TO WA_ZMSGTA-BLART,
          l_ersda TO WA_ZMSGTA-REFNUMBER,
          SY-MSGTY TO WA_ZMSGTA-MSGTY,
          'MARA' TO WA_ZMSGTA-TBMA_VAL.
    ERROR_MSG_UPDATA WA_ZMSGTA.
    EXIT.
ENDIF.
CALL FUNCTION 'FTP_R3_TO_SERVER'
    EXPORTING
      HANDLE         = HDL
      FNAME          = P_FILE
      CHARACTER_MODE = 'X'
    TABLES
      TEXT           = FTP_ITEMDOC
    EXCEPTIONS
      TCPIP_ERROR    = 1
      COMMAND_ERROR = 2
      DATA_ERROR     = 3
      OTHERS         = 4.
IF SY-SUBRC <> 0.
    EXPLAIN_MSG SY-MSGID SY-MSGNO ' ' SY-MSGV1 SY-MSGV2 SY-MSGV3
                SY-MSGV4 WA_ZMSGTA-MSE1.
    MOVE: 'B' TO WA_ZMSGTA-BLART,
          l_ersda TO WA_ZMSGTA-REFNUMBER,
          SY-MSGTY TO WA_ZMSGTA-MSGTY,
          'MARA' TO WA_ZMSGTA-TBMA_VAL.
    ERROR_MSG_UPDATA WA_ZMSGTA.
    EXIT.
ENDIF.
*******DEVK909212**************************
*******CLOSE FTP******************
CHECK NOT HDL IS INITIAL.
CALL FUNCTION 'FTP_DISCONNECT'
    EXPORTING
      HANDLE = HDL.
CALL FUNCTION 'RFC_CONNECTION_CLOSE'
    EXPORTING
      DESTINATION = DEST
    EXCEPTIONS
      OTHERS      = 1.
CLEAR HDL.
ENDFORM.                    "ftp_work
*******DEVK909212**************************
FORM DISPLAY_ALV .
*-- PREPARE ALV DATA
PERFORM EVENTTAB_BUILD USING GT_EVENTS[].
PERFORM COMMENT_BUILD USING GT_LIST_TOP_OF_PAGE[].
*-- LAYOUT SETTING
PERFORM PREPARE_ALV_FIELD USING GT_FIELDCAT[].
*-- ALV DISPLAY
PERFORM CALL_REUSE_ALV_GRID_DISPLAY.
ENDFORM.                    " display_alv
*&      Form eventtab_build
      text
     -->P_GT_EVENTS[] text
FORM EVENTTAB_BUILD USING PT_EVENTS TYPE SLIS_T_EVENT.
DATA: LS_EVENT TYPE SLIS_ALV_EVENT.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      I_LIST_TYPE = 0
    IMPORTING
      ET_EVENTS   = PT_EVENTS.
READ TABLE PT_EVENTS WITH KEY NAME = SLIS_EV_TOP_OF_PAGE
                           INTO LS_EVENT.
IF SY-SUBRC = 0.
    LS_EVENT-FORM = 'TOP_OF_PAGE'.
    MODIFY PT_EVENTS FROM LS_EVENT INDEX SY-TABIX.
ENDIF.
ENDFORM.                    " eventtab_build
*&      Form comment_build
      text
     -->P_GT_LIST_TOP_OF_PAGE[] text
FORM COMMENT_BUILD USING PT_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER.
DATA: LS_LINE TYPE SLIS_LISTHEADER,
        L_DATE(30),
        l_v_BWKEY like T001W-BWKEY, "Valuation area
        l_v_BUKRS like T001K-BUKRS. "Firm/Company
Listenerschrift: Typ H
CLEAR LS_LINE.
LS_LINE-TYP = 'H'.
LS_LINE-KEY: not used for this type
select single BWKEY
   into l_v_BWKEY
   from t001w
   where WERKS IN s_WERKS.
select single BUKRS
   into l_v_BUKRS
   from t001k
   where BWKEY = l_v_BWKEY.
SELECT SINGLE butxt INTO LS_LINE-INFO
    FROM t001
   WHERE bukrs = l_v_BUKRS.
APPEND LS_LINE TO PT_TOP_OF_PAGE.
Kopfinfo: Typ S
CLEAR LS_LINE.
LS_LINE-TYP = 'S'.
LS_LINE-KEY = '报表名称：'.
LS_LINE-INFO = SY-TITLE.
APPEND LS_LINE TO PT_TOP_OF_PAGE.
CLEAR LS_LINE.
LS_LINE-TYP = 'S'.
LS_LINE-KEY = '打印日期：'.
WRITE SY-DATUM TO LS_LINE-INFO.
ls_line-info = sy-datum.
APPEND LS_LINE TO PT_TOP_OF_PAGE.
CLEAR LS_LINE.
LS_LINE-TYP = 'S'.
LS_LINE-KEY = '打印時間：'.
WRITE SY-UZEIT TO LS_LINE-INFO.
ls_line-info = sy-uzeit.
APPEND LS_LINE TO PT_TOP_OF_PAGE.
CLEAR LS_LINE.
LS_LINE-TYP = 'S'.
LS_LINE-KEY = '使用者：'.
LS_LINE-INFO = SY-UNAME.
APPEND LS_LINE TO PT_TOP_OF_PAGE.
ENDFORM.                    " comment_build
*&      Form prepare_alv_field
      text
     -->P_GT_FIELDCAT[] text
FORM PREPARE_ALV_FIELD USING P_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
DATA: LS_LINE TYPE SLIS_FIELDCAT_ALV.
*-- DEFINE MARCO
DEFINE APPEND_ALV_FIELD.
    CLEAR LS_LINE.
    LS_LINE-FIELDNAME = &1.
    LS_LINE-TABNAME = &2.
    LS_LINE-REPTEXT_DDIC = &3.
    LS_LINE-SELTEXT_L = &3.
    LS_LINE-SELTEXT_M = &3.
    LS_LINE-SELTEXT_S = &3.
    LS_LINE-QFIELDNAME = &4.
    LS_LINE-QTABNAME = &5.
    LS_LINE-NO_OUT    = &6.
    LS_LINE-NO_ZERO   = &7.
    LS_LINE-OUTPUTLEN = &8.
    APPEND LS_LINE TO P_FIELDCAT.
END-OF-DEFINITION.
APPEND_ALV_FIELD: 'MATNR' 'IT_OUT' '料号'
                  'O' 'X' ''.
APPEND_ALV_FIELD: 'WERKS' 'IT_OUT' '工厂'
                   'O' 'X' ''.
APPEND_ALV_FIELD: 'MTART' 'IT_OUT' 'MTyp'
                   'O' 'X' ''.
APPEND_ALV_FIELD: 'MEINS' 'IT_OUT' 'BUn'
                   'O' 'X' ''.
APPEND_ALV_FIELD: 'MATKL' 'IT_OUT' '物料组\分群码'
                   'O' 'X' ''.
APPEND_ALV_FIELD: 'MATKX' 'IT_OUT' '物料描述'
                    'O' 'X' ''.
APPEND_ALV_FIELD: 'PSTAT' 'IT_OUT' '维护状态'
                    'O' 'X' ''.
APPEND_ALV_FIELD: 'BRGEW' 'IT_OUT' '毛重'
                   'O' 'X' ''.
APPEND_ALV_FIELD: 'NTGEW' 'IT_OUT' '净重'
                   'O' 'X' ''.
APPEND_ALV_FIELD: 'GEWEI' 'IT_OUT' 'WUn'
                  'O' 'X' ''.
APPEND_ALV_FIELD: 'FERTH' 'IT_OUT' '对外机种名'
                 'O' 'X' ''.
APPEND_ALV_FIELD: 'KZUMW' 'IT_OUT' '高关税标识'
               'O' 'X' ''.
APPEND_ALV_FIELD: 'ERNAM' 'IT_OUT' '创建者'
             'O' 'X' ''.
APPEND_ALV_FIELD: 'ERSDA' 'IT_OUT' '创建日期'
          'O' 'X' ''.
ENDFORM.                    " prepare_alv_field
*&      Form call_reuse_alv_grid_display
      text
--> p1        text
<-- p2        text
FORM CALL_REUSE_ALV_GRID_DISPLAY .
gs_layout-f2code              = 'DISPLAY'.
gs_print-no_print_listinfos   = 'X'.
gs_layout-colwidth_optimize   = 'X'.       "列宽度自动根据内容优化
gs_layout-f2code              = '&ETA'.    "double check弹出详细信息
gs_layout-zebra               = 'X'.       "清单条纹显示
gs_layout-no_vline            = ''.        "是否显示列间隔线
gs_layout-box_fieldname       = ''.        "是否显示checkbox
gs_layout-confirmation_prompt = ''.        "推出清单是否提示
gs_layout-detail_titlebar     = '详细信息'."详细清单的标题
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM                = SY-CPROG
      I_BACKGROUND_ID                   = 'ALV_BACKGROUND'
     I_CALLBACK_PF_STATUS_SET          = 'ALV_PF_STATUS'
     I_CALLBACK_USER_COMMAND           = 'ALV_USER_COMMAND'
     I_CALLBACK_TOP_OF_PAGE            = GT_LIST_TOP_OF_PAGE[]
      IT_FIELDCAT                       = GT_FIELDCAT[]
      IT_EVENTS                         = GT_EVENTS[]
      I_STRUCTURE_NAME                  = 'IT_OUT'
      I_SAVE                            = 'A'
      IS_LAYOUT                         = GS_LAYOUT
      IS_PRINT                          = GS_PRINT
    TABLES
      T_OUTTAB                          = IT_OUT
    EXCEPTIONS
      PROGRAM_ERROR                     = 1
      OTHERS                            = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.                    " call_reuse_alv_grid_display
*&      Form PREPARE_ALV_FIELD
FORM TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      IT_LIST_COMMENTARY = GT_LIST_TOP_OF_PAGE.
ENDFORM.                    "TOP_OF_PAGE

Hi,
Please check your field catalog and refer field names once again.
Check spelling, or Check strucutre properly.
There are something wrong in your catalog definition
aRs.

How do I force Firefox (6v02) to stop showing thumbnails of existing file(s) in the save-as dialog box?

I save files associated with similar objects using similar names (just a different extension, or numeric sequence). The save-as dialog box shows a list of existing files. When I choose one, with the intention of changing the file extension or the numeric sequence (e.g., choose 'file001.jpg' in order to rename the new file to be saved 'file002.mpg') the thumbnail associated with the one I select is shown on the right. I neither want nor need this time-consuming & memory-consuming process to take place. I would like to be able to disable this feature in order to allow me to do what I want directly and faster (P3/866MHz/512MB).

Perhaps, but the problem is I don't really know what to look for. I've tried doing a keyword search of the AIprefs file to find where ICC profiles and compression could be located but I couldn't find anything. Does anyone know what they are called and what I should modify?

What is tthe Best practice for Variant List, Add, Edit and Display Forms?

Requirement:
I have single list. The list has a large number of columns and a large number of items (lets say 20,000).
I want to show users a different view of the list based on clicking on a different left-hand navigation option.
Lets say I have four types of users: Sales, Manufacturing, Shipping and Finance. I would like to have four options in the left-hand navigation.
All of them would be pointing at the same list, BUT, I want each of them to have a customer list form. The only difference between the custom list forms would be:
Each would have its own set of views, and hence its own default view.
Each would have its own New, Edit and Display Forms. The only difference between the forms in one variant list and another would be: The order of the columns and which columns are modifiable.
I would like to achieve this in SharePoint Designer in such a way that the "users" could still add/modify views and could even modify the forms from the SharePoint Menu. BTW, I don't want to use InfoPath for obvious reasons.
What is the best approach to meeting this requirement? I have at least 20 sites and 70 lists overall that need variant forms made.
HELP!!
Savin
BTW We are using SharePoint 2013 and I selected the wrong forum *sigh*. But I think its probably the same answer.
Cheers, Savin Smith

Hi,
I understand that you want to have different forms based on different view.
Per my knowledge, there are no out of box method to achieve it.
As a workaround, you can add the JavaScript code to the different view page.
For example, to open different new form based on different view, you can get the windows.location, and then judge the view, then change the onclick event of the "New item" button.
For more information, you can refer to:
http://css-tricks.com/snippets/javascript/get-url-and-url-parts-in-javascript/
http://samsharepoint.wordpress.com/2013/05/01/change-the-default-sharepoint-ok-and-cancel-button/
Thanks,
Linda
Forum Support
Please remember to mark the replies as answers if they help and unmark them if they provide no help. If you have feedback for TechNet Subscriber Support, contact
[email protected]
Linda Li
TechNet Community Support

CS6 Pshop - Alerts at startup; "All Readable Documents" not defaulting at opening; Format in file name not same as Format list when saving file

Just downloaded CS6 Design Standard. System - OS10.6.8 (about to upgrade to 10.8), iMac 27 i5Intel 4core 12GBram 2.66Ghz
As Pshop opens, I get three alerts...
1 - Could not load Enable Async I/O module because does not work with this version of Photoshop
2 - Could not load Multiprocessor Support module because does not work with this version of Photoshop
3 - Could not load FastCore Routines module because does not work with this version of Photoshop
Then asks if I want to be connected to internet or something like that. Then Pshop opens even before I click OK
None of these happened with CS5.5
I realize CS6 is 64bit. I have CS5.5 set at 32bit because of plugins.
Two issues I've noticed so far with CS6.
1 - As I open a document, the Enable selections drop down at bottom of window is not set on anything. I have to always select the All Readable Documents. Not the case in CS5.5 which was always default at All Readable Documents. Could not find anything in Prefs to this issue.
2 - When saving a document, whether RGB or CMYK, the drop down Format selections are not accurate. The first three or four do read correctly as correlating with the suffix (.jpg .tif etc) in the file name at top of window. But then the subsequent format selections below third or fourth one read as the one above it in the list.
eg: as RGB file: Saving through BMP indicates same in file name at top (.bmp). However, the next choice below that, Gif, still shows as .bmp in file name at top. And so on to bottom of list. Same with CMYK file.
Never saw this in CS5.5.
When I initially installed CS6, I noticed only item in the Plugins folder was Panels folder.... no other plugins. I thought this to be a download error of some sort and dragged basic plugins from 5.5 into 6 Plugins folder. Could this be the problem? Otherwise, I would have NO plugins in CS6
I have downloaded CS6 twice now thinking the first was corrupted. I used both download options on Adobe page - Akamai and standard
Same issues with both. One response stated this all to be a plugins problem. I have uninstalled "after market" plugins from both 5.5 & 6 SuperBladePro was the only one. Restarted CS6. Still same problems. Only items in Plugins are what came with program.

I owe an apology to the previous responder Chris C, to this issue. I misread his solution thinking he meant I needed to delete ONLY the "additional" plugins like SBPro. Which I did. But rereading, I see he meant ALL the plugins I dragged from 5.5 because the 6 plugins folder was empty.
I thought it was corrupted in download. So if you guys get points for solutions, be sure Chris gets a few since I responded saying it did not work.
In fact, after removing the 5.5 plugins from 6, everything is working fine.
Plus I didn't know the 6 plugin folder was for the "after markets" like SBPro which is good to know.
Also thanks for the fairly quick response. I'm typically dubious about forums as troubleshooting solutions.
Kinda like sending a message in a bottle out to sea. Never know when it's coming back.
Sometimes issues are urgent. Your response team has encouraged me greatly :-)
But still bummed that Chats do not support CS6 however.

"All My Files" doesn't show all of my files

When I select the "All My Files" view in a Finder window, it correctly shows my files sorted by file type "Presentations", "PDF documents", "Images", etcetera. The problem is that many, if not most, of my files aren't listed.
For example, on the "PDF documents" row, the right-hand side of the Finder window says "Show all (58)" when I in fact have over 700 .PDF files. Likewise, the Finder window only shows one file of the type "Presentations" and one file of the type "Spreadsheets", even though I have almost 150 of each. If I perform a Spotlight search on ".ppt" or ".xls", all of my files show up correctly and are identified correctly by type (i.e. "Microsoft Powerpoint Presentation" or "Microsoft Exel Workbook"), so I know that Lion knows what type of files these are. So why is only one of each showing up in the "All My Files" view?
I've also noticed that the only images that show up in "All My Files" are the ones that *aren't* in iPhoto. Likewise, the only music files that show up in "All My Files" are the ones that *aren't* in iTunes, but I'm guessing that this is because I'm supposed to access those files through iPhoto or iTunes rather than through the Finder?
Any help would be appreciated. I can actually see the "All My Files" view as being a useful feature, but only if it would in fact show all of my files.
Thanks,
Scott Gardner

I can help you.
but I am not good at english.
so I am sorry.
anyway,
the solution is that edit your file which path is "/System/Library/CoreServices/Finder.app/Contents/Resources/MyLibraries/myDocum ents.cannedSearch"
for example
I need to search my "data" partition.
it must be mounted in "/Volumes/data"
and do this
==========================
<dict>
                <key>FinderFilesOnly</key>
                <true/>
                <key>RawQuery</key>
                <string>(true) && (((kMDItemContentTypeTree = public.content)))</string>
                <key>SearchScopes</key>
                <array>
                  <string>~/</string>
                  <string>-Library</string>
                  <string>-Music/iTunes</string>
                  <string>-Documents/Steam Content</string>
                  <string>~/Library/Mobile Documents</string>
                  <string>/Volumes/data</string>            #############    Import this line    #############
                </array>
<integer>1396925814</integer>
                <key>FXScopeArrayOfPaths</key>
                <array>
                  <string>~/</string>
                  <string>-Library</string>
                  <string>-Music/iTunes</string>
                  <string>-Documents/Steam Content</string>
                  <string>~/Library/Mobile Documents</string>
                  <string>/Volumes/data</string>
                  <string>/Volumes/data</string>            #############    Import this line    #############
                </array>
        </dict>
==================================
and you can find what you want to look in you "all my files".
I am sorry that I am not good at english.

XMLForm Service message keep showing in the log file

Hello,
The message below keeps showing in the log file when the form is opening in Workspace ES. It keeps repeating like hundred times in the log file when the form is launching.
It just happen to some forms but not to all forms. I tried to see if there is any thing strange in the form but could not find any thing wrong in the form nor any explaination about this error on Adobe site or Internet. Note that I am still using LiveCycle ES 8.2.1 with SP3.
=============
[10/18/11 13:46:22:644 CDT] 0000003e XMLFormServic W com.adobe.service.ProcessResource$ManagerImpl log ALC-XTG-102-001: [1712] Bad value: 'designer__defaultHyphenation.para.hyphenation' of the 'use' attribute of 'hyphenation' element ''. Default will be used instead.
============
Can any one please advise.
Thanks in advance,
Han

Yes,
Upgrade it to SP1 with hot-fix. SUN has a very big bug in the 4.16 SP1 software . u have to apply that hot-fix otherwise you will in big bug in userpassword attribute and some other security issues.

Saving List as Local File

hi
How to save Report output (i.e.,list) as local file that is Excel or Word Document to the system.
   Is there any std procedure to save or we have to write logic using module pool by placing Save button(pushbutton).
Thanks & Regards ,
sandhya

Hi Sandhya,
Try the following code.
You can do it this way :
You call the report whose list you want, in another program, exporting list to memory.
Then get that list and write it to file.
DATA : list LIKE TABLE OF abaplist WITH HEADER LINE.
DATA : BEGIN OF list_asc OCCURS 0,
msg(300) TYPE c,
END OF list_asc.
DATA : wa_c_filename(30) TYPE c.
wa_c_filename = '/data/ftp/out/rep.txt'.
data fname type RLGRAP-FILENAME value 'c:\audit_report.xls'.
data ftype type RLGRAP-FILETYPE value 'DAT'.
SUBMIT pgm_xyz EXPORTING LIST TO MEMORY
AND RETURN.
CALL FUNCTION 'LIST_FROM_MEMORY'
TABLES
listobject = list
EXCEPTIONS
not_found = 1.
CALL FUNCTION 'LIST_TO_ASCI'
EXPORTING
LIST_INDEX = -1 "LIST_INDEX SY-LSIND.
TABLES
listasci = list_asc
listobject = list.
/* To download data to the system as excel file.
perform download_file.
/* To store as a file in the SAP server . This is not required for your case. The list contents will be in the file in the server, filename and file path as specified in wa_c_filename.*/
OPEN DATASET wa_c_filename FOR OUTPUT in text mode.
IF sy-subrc NE 0.
WRITE : / 'The file could not be created'.
ELSE.
LOOP AT list_asc.
TRANSFER list_asc TO wa_c_filename.
ENDLOOP.
CLOSE DATASET wa_c_filename.
ENDIF.
/You can download this file to the system using the following function module/
FORM download_file.
data fname type RLGRAP-FILENAME value 'c:\audit_report.xls'.
data ftype type RLGRAP-FILETYPE value 'DAT'.
/*Table structure should match with list output.
DATA: BEGIN OF INFILE OCCURS 0,
       ORDER(10)       TYPE C,
       COST_CTR(6)     TYPE C,
       PCT_1(8)        TYPE C,
       PCT_2(8)        TYPE C,
       PCT_3(8)        TYPE C,
       PCT_4(8)        TYPE C,
       PCT_5(8)        TYPE C,
       PCT_6(8)        TYPE C,
       PCT_7(8)        TYPE C,
       PCT_8(8)        TYPE C,
       PCT_9(8)        TYPE C,
       PCT_10(8)       TYPE C,
       PCT_11(8)       TYPE C,
       PCT_12(8)       TYPE C,
END OF INFILE.
loop at list_asc.
infile = list_asc .
append infile.
endloop.
CALL FUNCTION 'DOWNLOAD'
   EXPORTING
BIN_FILESIZE                  = ' '
CODEPAGE                      = ' '
Changed by sthomas
     filename                 = fname
     filetype                 = ftype
End of change
ITEM                          = ' '
MODE                          = 'A'
WK1_N_FORMAT                  = ' '
WK1_N_SIZE                    = ' '
WK1_T_FORMAT                  = ' '
WK1_T_SIZE                    = ' '
FILEMASK_MASK                 = ' '
FILEMASK_TEXT                 = ' '
FILETYPE_NO_CHANGE            = ' '
FILEMASK_ALL                  = ' '
FILETYPE_NO_SHOW              = ' '
SILENT                        = 'S'
COL_SELECT                    = ' '
COL_SELECTMASK                = ' '
NO_AUTH_CHECK                 = ' '
IMPORTING
ACT_FILENAME                  =
ACT_FILETYPE                  =
FILESIZE                      =
CANCEL                        =
    TABLES
      data_tab                   = infile.
endform.
Regards,
Susmitha

Show list of OS files in Form

Similar Messages

Maybe you are looking for