BIP Word Run Time Error: File or assemby name XDOUtilities not found

Running BIP with Oracle Business Intelligence EE. When I try to log into BIP from MSFT Work via the BI Publisher Menu, I get the following error.
File or assemby name XDOUtilities, or one of its dependencies, was not found.
Run-time error '2147024894 (80070002)':
File or assemby name XDOUtilities, or one of its dependencies, was not found.
I'm running BIP 10.1.3.2.1 Build 87
Thanks in advance for any assistance.

The issue is caused by a bug in Microsoft Visual Studio.
http://support.microsoft.com/kb/908002
Unforatunately, we were not aware of this issue, and our build system did not have this patch installed. As it seems all our test environments worked correctly with BI Publisher Desktop. We are checking if we can release a patch or find another work around.
The Microsoft site mentions the following work around:
Note This problem does not occur when you log on by using a Microsoft Windows user account that has restricted permission.
Sorry for the inconvenience.
Klaus

Similar Messages

Run-time error '429':Active X component can not create an object

Hi Folks,
I am using some VBA code to run logic in BPC for Excel. When i try to click on VBA button, It's giving the below error.However when i am trying to execute same from server it is working fine. Accessing from BPC client only we are facing this problem.
Code have no issues. Is there any specific thing need to mentioned in client when we use VBA programming? Basically we used the VBA program to create the id's in BPC for Excel. So that it will automatically created on fly. Testing was fine interms of working in Server.
" Run-time error '429':Active X component can not create an object ."

Hi,
Are you trying to add a member into the dimension from excel? As you said that this has been already tested in the server and is working fine, I believe, you have taken care of everything.
Now, coming to the point, when you are adding a member in the membersheet, you need to process the dimension. This requires the admin rights. So, please check the task profile of the user ID, with which you are trying from your system. This user ID should be the primary admin.
Hope this helps.
Additionally, can you please elaborate on the steps on what you followed for adding a member from the excel directly?

MS Word run-time error '13'

Hi
Please Help. I'm getting ( run-time error '13'; type mismatch) when I'm trying to login to BI Publisher thru Oracle BI Publisher  Log on in MS Word.
Thanks
Ribhi

I'm still searching for a solution to this problem. Based on suggested solutions to similar threads in the past, I have uninstalled and reinstalled BI Publisher, I have uninstalled Visual Studio and I have the patches installed that appeared to resolve other people's issues (from threads 2 years ago). I am at a loss on what to try next.
BIP experts, any ideas??

Error: initialization error: file java\lang\Object.class not found

when the error listed my classpath's its not the same list that is in my Windows XP environment variable list?
I am on 9.0.3
I am assuming I have to set some varible to my new jdk\bin directory. I reinstalled it. I have set it to use jdk 1.4 using the ojvm tool a while back.

Please help!!
I did change the jdev.conf file setting:
SetJavaHome /System/Library/Frameworks/JavaVM.framework/Versions/1.4.2/Home
and I still get this error:
initiallization erro: file java/lang/Object.class not found in classpath
I am usgin Oracle JDeveloper 10g 10.1.2 on a Mac OS X Tiger
Could someone please help?
thanks a bunch!!!

Error:"The specified tag name was not found"

Hello:
My problem is the FieldPoint error message in LabWindows/CVI v6.0.
When hook up with Ethernet module(FP-1600), NO Problem on the source code, specially item Name "All". See the actual code.
if(status = FP_CreateTagIOPoint (ServerHandle, resourceName, deviceName, "All",&IOPointHandle))
But When hook up with RS-232C Module(FP-1000), occured error. The error code is 32812, that means "The Specified tag name was not found."
What makes this error? Why item name "All" makes the error when using FP-1000?
Please help me.
Thank You.

Make sure the resourceName and deviceName match what is in FieldPoint Explorer. See the following KB:
http://digital.ni.com/public.nsf/websearch/02EB73D02715981A8625682B00774F8F?OpenDocument
Also, I have seen this error when targetting serial modules with FieldPoint Explorer open. Make sure FP Explorer is closed.

Outlook Contacts sync Run Time Error

Desktop 4.7.0.25 returns the following error when trying to sync Contacts in Outlook 2003:
RUN TIME ERROR: "The Application's Section is not File-Based."
Any fixes here?
Solved!
Go to Solution.

Hi Mikim and welcome to the Blackberry Forums
Here is the link to the procedure to solve your problem
http://www.blackberry.com/btsc/search.do?cmd=displayKC&docType=kc&externalId=KB15303&sliceId=1&docTy...
Thanks
If I help you with any inquire, thank you for click kudos in my post.
If your issue has been solved, please mark the post was solved.

FILE specified in CFHTTPPARAM tag not found

everything was working before, now i keep getting the following error:
FILE specified in CFHTTPPARAM tag not found
someone please help.
my code looks like this:
<cfhttp url="http://www.xxx.com/admin/upload-size.php" method="post">
<cfhttpparam type="formfield" name="bThumb" value="2" >
<cfhttpparam type="file" name="imgfile" file="#CFFILE.ServerDirectory#/#CFFILE.ServerFile#" >
</cfhttp>

What's the value of #CFFILE.ServerDirectory#/#CFFILE.ServerFile#?
What does fileExists("#CFFILE.ServerDirectory#/#CFFILE.ServerFile#") return?
Is the file actually there?
Adam

Run time error when Combining PDF or WORD files

Good morning everyone
I have a client who is trying to merge two files either word or PDF files and every time she does this she is getting a run time error on the process.
the Machine is a Lenevo Desktop with Xp SP3 on the machine
Running Office 2007 with SP 3 now on the machine
Adobe Pro X with the latest and current updates Licnesed
I have done the repair on this unit several times as well as repair of the Office.
We can convert the Word files no problem but i get a an error on the merging of the files
has anyone seen this problem before?
what do i need to do to resolve this issue?

Operating system is Windows Vista Home Premium..
Version of Adobe Reader is 10.1.13.
Any thoughts on what the issue is?

Run-time error '-2147024894 (80070002)': in Word 2003

After installing Oracle BIP and attempting to use the add-in to login I get the following message: Run-time error '-2147024894 (80070002)': File or assembly name TBXDOUtilities, or one of its dependencies, was not found. I found another discussion about this from the past, and the general concept to fix this problem is to reinstall office, BIP, or .net framework 2.0. I first tried reinstalling BIP. No luck. I then tried repairing office, then uninstall/reinstall BIP again. No luck. I then removed office/rebooted/reinstalled office 2003 from the source disk (not our corporate package). I then removed dot net 3.5, 3.0, 2.0, and reinstalled dot net 2.0sp2. (It required me to remove all new versions to remove 2.0 to reinstall it). I tried BIP and then reinstalled it again. Still getting the same exact error. When I choose the log on option from BI pblisher I do have "starting .Net runtime" dialogue with a progress bar that sits at about 35% complete before I get the error. Is there anything else I could/should try to get this installed and working?

This problem is specific to word 2003. I installed word 2007 on an affected machine and it works fine. I had found an article that indicated an particular ms-office patch, kb907417, was required, but it is already installed on my machine. Another one indicated KB921566 was required, which was not on my machine, and I did install it. After rebooting I'm still getting the message.

BIP Desktop Install Problem: Run-time error '9' Subscript out of range

Hi All,
I am trying to get my BIP Desktop to work. I have notice previous threads regarding the internet explorer security patches affecting BIP Desktop and my problem is similar. Here is my problem:
1. I installed BIP Desktop 5.7.146.
2. I start Template Builder for Word Language by selecting Start>Programs>Oracle BI Publisher Desktop.
3. A dialog box prompts for UI Language and I select English
In the midst of the Template Builder for Word Language attempting to initiate/change the user interface language to English, it throws the following error:
Run-time error '9' Subscript out of range
Here are some details regarding my PC:
XP sp2, MSXML6, jre1.5.0_15
Also, my CPU performance hits it maximum while I am doing this
Any thoughts on how to correct this?
Thanks,
Patrick

Patrick,
Were you able to find a solution to this problem?
One of my colleagues is having the same issue.
Regards,
Srini

Run time error '9' while installing BIP Desktop 10.1.3.4.1 for Windows

Hi,
I've been getting 'run time error '9' Subscript out of range error while installing BIP Desktop.
I have MS Word 2003 and the laptop's OS is Windows XP SP3. I have searched the net and this forum for suggestions
and followed what was recommended (install .NET framework 2.0, make sure no MS Office processes are not running while
installing the software, Admin rights at Registry level on BI Publisher folder etc..) but no use.
This is a new laptop which I just received. On my existing laptop (which has similar configuration), I've installed BIP long time
ago and do not remember facing this error. If any one has come across this problem recently and was able to trouble shoot it,
please share with me how you were able to overcome the problem.
Thanks and Regards,
Srini

Hello,
Since I haven't heard from any one, I have opened a service request with Oracle support.
Support recommended that I down load a desktop publisher from edelivery.oracle.com but even that didn't help.
Will keep you posted.
Regards,
Srini

Run-time error 53 File not found (makes BI Publisher quite unuseable!)

Upgraded to BIP v 10.1.3.3.2
Open a template with the template builder
Load a source XML file
Proceed to choose Insert-> Field....
Microsoft message pops up:
Microsoft Visual Basic
Run-time error '53':
File Not Found.
This error, according to Microsoft and other technical sources SHOULD actually tell you what the file is that isn't found, however when run through the template builder, it never tells you any file name, just the above error message!
I saw one other post on this forum about this problem, and it was related to the Java Home, so I went to TOOLS-> OPTIONS and my java home there is:
C:\Program Files\Java\jre1.5.0_12
So this should be high enough JRE version.
ANy suggestions? What file or *.DLL can it not find? We have many people at a client (and me!) that have this issue.
-Greg

Pradeep,
I am not trying to utilize the desktop template builder to log onto BIP enterprise.
I am using it in an E-business suite environment, not a standalone BIP enterprise reporting environment. I simply use it right now to develop templates when I have valid XML to work with.
Many other features are working, but any features that seem to be new such as repeating group, conditional region, conditional format, the insert field palet, among others.
ANY feature that requires a .net service to be kicked off works only 10% of the time.

Run-time error 5097 on Selection.InsertFile in Word 2013 macro

We have been running Word 2003 macros to generate large volumes of document files for 10+ years.
Now running the same code using Word 2013, we are getting Run-time error '5097' on this line of code:
Selection.InsertFile filename:=pFileName
We have over 40 code sets that potentially call in 20,000+ Word document files. 98% of the time this code will work; but several files will not insert when this code attempts to execute.
Any ideas?
Thanks,
Dawn Cox

Hi Dawn,
Thanks for the detail information for this issue.
Since the file even can't be inserted manually, this issue is not relative to the code. To get more effective response, I would suggest that you reopen a new thread in
Microsoft Community- Word or
TechNet- Word forum.
And to help other communities to narrow this issue, I also suggest that you provide a sample file for testing.
Hope it is helpful.
Regards & Fei
We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click
HERE to participate the survey.

Portal Run time error after deploying custom logon page par file in portal

Hi Experts,
We have customized the standard portal logon par file for client XYZ and imported it with the same name (com.sap.portal.runtime.logon.par) in portal.
It is working fine for XYZ . And another client ABC wants the same customization for them also. So we took the par file from XYZ and imported it in ABC system. But in ABC system, we are getting Portal Run time Error. When we checked the logs, it is showing error in LogonBean class.Wwe have included the necesary jar files. Could anyone help us in identifying what is missing?
Thanks
VJ

Hello Vijay,
Please paste or attach the error log.
Regards,
Haseena

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.

BIP Word Run Time Error: File or assemby name XDOUtilities not found

Similar Messages

Maybe you are looking for