Histórico da Página

#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