Saludos amigos y disculpen de antemano lo largo del mensaje; Estoy
tratando de llevar una tabla de VFP hacia MS Project 2000 ó 2003 a través
de MS Access 97, la tabla en cuestión, - llamada "k2Project.DBF" -,
presenta la siguiente estructura:
Campo # Nombre Campo Tipo
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(10)
Y una vez creada la tabla incluí los siguientes campos:
Field1 = " "
Task_Name = "Construcción de una casa"
Duration = "60d"
Start = 03/04/2006 - Date
Finish = " "
Pred = " "
Resource_n = "Constructora Venezuela,ca"
Una vez hecho esto, anexé el siguiente código, el cual estaría en
capacidad de imprimir un diagrama de Gabbt y un gráfico PERT
(
http://support.microsoft.com/defaul...s%3B143297):
Clear
Set Safety Off
Set Century On
Set Date French
Set Talk Off
Close Databases
Clear All
Release All
Set Safety Off
On Error DO OleError
Public x
If File('Saltbox.mpp')
Erase Saltbox.mpp
Erase Saltbox.mpx
EndIf
If File('XProj.DBF')
Erase XProj.DBF
EndIf
IF Used('k2project')
Use In k2Project
EndIf
Use k2project In 0
***********
*
* Rutina para convertir de .DBF(VFP) a .MDB (Access)
* de forma transparente para el usuario
*
***********
Use In K2Project
MyFile = "xProj.mdb"
x = CreateObject("MSProject.Application")
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("Desea imprimir la Carta Grant?",4+32,"Impresión")
If MyAns = 6
x.Application.FilePrint(1,4)
EndIf
x.Application.AppRestore
x.Application.ViewApply("Pert Chart")
x.Application.AppMinimize
MyAns =MessageBox("Desea imprimir la carta PERT?",4+32,"Impresión...")
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 "Precausión..., ha ocurrido un error...!"
=aError(myerror)
Clear
? 'El error ha preentado la siguiente información...' && 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
**Eof()
El problema se me presenta es cuando trato de llamar a mi base de datos de
Access creada desde VFP, ya que el project no me la reconcoce, presenta el
siguiente mensaje:
Se que Access tiene formato diferente en sus bases de datos según su
versión (97-98-2000-2003), así que mis preguntas son:
1. Cuál es la versión del Access (97-98-2000-2003) que leería el MS
Project 2000 y/o MS Project 2003
2. Como haría para convertir de .DBF(VFP) a .MDB(Access) de forma
transparente para el usuario y evidentemente que la tabla resultante pueda
ser leida por el MS Project 2000 y/o MS Project 2003
Saludos cordiales y mil disculpas nuevamente por lo largo del contenido...
Jorge Martínez
jmartinez@venezuelasite.com
Jorge Martínez M
<a
href="mailto:Jorge35@venezuelasite.com">Jorge35@venezuelasite.com</a>
PortalFox :: Nada corre como un zorro
http://www.portalfox.com
PortalFox - NNTP Forum Gateway
Leer las respuestas