#include 'protheus.ch'
#include 'mproject.ch'
function u_PjSample()
If ! ApOleClient( 'MsProject' )
MsgStop( 'MsProject nao instalado' )
Return
EndIf
ConOut( '... PjSample ...' )
oProject := MsProject():New()
ConOut( 'New()')
If ( ! oProject:GetVisible() )
ConOut( 'GetVisible()')
oProject:SetVisible(.T.)
ConOut( 'SetVisible()')
EndIf
// MsgSTop('Inicio')
oProject:Top := 0
oProject:Left := 200
oProject:Height := 555
oProject:Width := 570
oProject:FileNew()
x := oProject:Left
oProject:SetLeft(x-100)
oProject:TableEdit( 'TableView1', .T., .T., .T., , 'ID', , '', 6, PJCENTER, .T., .T., PJDATEDEFAULT, 1, ,PJCENTER )
oProject:TableEdit( 'TableView1', .T., , .T., , , 'Name', 'Task Name', 24, PJLEFT, .T., .T., PJDATEDEFAULT, 1, ,PJCENTER )
oProject:TableEdit( 'TableView1', .T., , .T., , , 'Text1', 'Our Field 1', 15, PJLEFT, .T., .T., PJDATEDEFAULT, 1, ,PJCENTER )
oProject:TableEdit( 'TableView1', .T., , .T., , , 'Text2', 'Our Field 2', 15, PJLEFT, .T., .T., PJDATEDEFAULT, 1, ,PJCENTER )
oProject:TableEdit( 'TableView1', .T., , .T., , , 'Text2', 'Our Field 3', 15, PJLEFT, .T., .T., PJDATEDEFAULT, 1, ,PJCENTER )
oProject:TableEdit( 'TableView1', .T., , .T., , , 'Duration', , 9, PJRIGHT, .T., .T., PJDATEDEFAULT, 1, ,PJCENTER )
oProject:TableEdit( 'TableView1', .T., , .T., , , 'Start', , 12, PJRIGHT, .T., .T., PJDATEDEFAULT, 1, ,PJCENTER )
oProject:TableEdit( 'TableView1', .T., , .T., , , 'Finish', , 12, PJRIGHT, .T., .T., PJDATEDEFAULT, 1, ,PJCENTER )
oProject:TableApply( 'TableView1' )
x := oProject:Projects:Count
// MsgStop('Total de projetos : ' + Str(x))
oProject:Projects(1):Activate()
oProject:Projects(1):Tasks:Add( 'Task 01' )
oProject:Projects(1):Tasks(1):SetDuration( 1 )
oProject:Projects(1):Tasks:Add( 'Task 02' )
oProject:Projects(1):Tasks(2):SetDuration( 3 )
oProject:Projects(1):Resources:Add( 'Resource 01' )
oProject:Projects(1):Resources:Add( 'Resource 02' )
oProject:Projects(1):Resources:Add( 'Resource 03' )
oProject:Projects(1):Resources:Add( 'Resource 04' )
oProject:Projects(1):Resources:Add( 'Resource 05' )
x := oProject:Projects(1):Tasks:Count
y := oProject:Projects(1):Resources:Count
oProject:FileSaveAs('pjsample')
oProject:Quit( 0 )
oProject:Destroy()
Return |