DOCUMENT:Q143297  08-FEB-2000  [foxpro]
TITLE   :How to Use OLE Automation with Microsoft Project 4.1
PRODUCT :Microsoft FoxPro
PROD/VER:WINDOWS:3.0,3.0b
OPER/SYS:
KEYWORDS:kbcode

======================================================================
-------------------------------------------------------------------------------
The information in this article applies to:

 - Microsoft Visual FoxPro for Windows, versions 3.0, 3.0b 
-------------------------------------------------------------------------------

SUMMARY
=======

This article shows by example how to create a new project in Microsoft Project
4.1 by using Visual FoxPro and OLE Automation.

MORE INFORMATION
================

The following code sets up a Microsoft Project called Saltbox. This project
consists of tasks necessary to build a house.

Step-by-Step Example
--------------------

1. Create a table in Visual FoxPro called k2project that has the following
   structure. This structure follows the task structure of Microsoft Project.

   Field#  Name       Type
   1. field1     - Character(10)
   2. task_name  - Character(25)
   3. duration   - Character(5)
   4. start      - date
   5. finish     - date
   6. pred       - Character(10)
   7. resource_n - Character(20)

2. Populate the table with data. Each record consists of a task to build a
   house. for example:

   field1    = " "
   task_name = "Build House"
   duration  = "60d"
   start     = 03/01/96
   finish    = " "
   pred      = " "
   resource_n = "Ace Builders"

   NOTE: Assign a start date to the first task only. Assign all tasks a duration.
   For example, 30d = thirty days. Microsoft Project will calculate the finish
   dates based upon the duration of each task.

3. Enter the following code in a program file, and then run it to create a
   project, link the tasks, and calculate the length of the project. This
   program will print a Gantt Chart and Pert Chart.

      CLEAR
      SET SAFETY OFF
      ON ERROR DO OLERROR
      SET DEFAULT TO "C:\VFP Files"
      PUBLIC x

      IF FILE('Saltbox.mpp')
        ERASE Saltbox.mpp
        ERASE Saltbox.mpx
      ENDIF

      IF USED('k2project')
        USE IN k2Project
      ENDIF

      USE k2project IN 0
      * Microsoft Project will only accept FOX2 TYPE FILES
      COPY TO xproj TYPE FOX2
      USE IN k2project
      Myfile = "xproj.dbf"

      x=CreateObject("MSProject.Project.4_1")
      x.application.Visible=.t.
      x.application.FileNew
      x.application.FileSaveAs("SaltBox")
      * Append Entry table from Myfile
      x.application.FileOpen(Myfile,0,1,1,'Entry')
      x.application.SelectAll
      * Link the tasks together
      x.application.LinkTasks
      x.application.AppMinimize

      Myans =MessageBox("Print Gantt Chart?",4+32,"Print Report")
      IF Myans = 6
        x.application.FilePrint(1,4)
      ENDIF

      x.application.AppRestore
      x.application.ViewApply("Pert Chart")
      x.application.AppMinimize

      Myans =MessageBox("Print Pert Chart?",4+32,"Print Report")
      IF Myans = 6
        x.application.FilePrint(1,2)
      ENDIF

      x.application.ViewApply("Gantt Chart")
      x.application.FileSave
      x.application.FileQuit

      RELEASE x
      RETURN

      PROCEDURE OLERROR
      ON ERROR
      WAIT WINDOW "An error occurred!"
      =AERROR(myerror)
      CLEAR
      ? 'The error provided the following information'  && Display message
      FOR n = 1 TO 7  && Display all elements of the array
       ? myerror(n)
      ENDFOR

      IF TYPE("X") = "O"
        x.application.Quit
        RELEASE X
        CANCEL
      ENDIF
      RETURN

Additional query words: VFoxWin

======================================================================
Keywords          : kbcode 
Technology        : kbVFPsearch kbAudDeveloper kbVFP300 kbVFP300b
Version           : WINDOWS:3.0,3.0b

=============================================================================

THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS
PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND.  MICROSOFT DISCLAIMS
ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES
OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  IN NO
EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR
ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL,
CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF
MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.  SOME STATES DO NOT ALLOW THE EXCLUSION
OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES
SO THE FOREGOING LIMITATION MAY NOT APPLY.

Copyright Microsoft Corporation 2000.