Histórico da Página
...
Painel | ||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
ViewApplySintaxe
|
Exemplo:
Bloco de código |
---|
#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 |
Exibir filhos |
---|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas