ImportCMD in Delphi
type
//Event for importcmd inicialization to change atributes
TEventTarget=class(TObject)
public
procedure pOnInitDialog(Sender: TObject; var pMyInterface: OleVariant);
end;
function ImportWDoc()
var
oObject : TEventTarget;
begin
//Import configuration
pContextItems := TContextItems.Create(nil);
pContextItems.Add('IManDestinationObject' , vIManSubFolder );
pContextItems.Add('IManExt.Import.FileName' , plcArquivo );
pContextItems.Add('IManExt.Import.DocAuthor' , cUsuario );
pContextItems.Add('IManExt.NewProfile.ProfileNoUI', True {No Screen} );
//Prepare the event of inicialization to update the atributes/fields of importation
oObject := TEventTarget.Create();
//Comand of doc Importation
pImportCmd := TImportCmd.Create(nil);
pImportCmd.OnInitDialog := oObjeto.pOnInitDialog; //Event of inicialization
pImportCmd.Initialize(pContextItems.DefaultInterface);
pImportCmd.Update;
pImportCmd.Execute;
//Get Doc link in Worksite
If pContextItems.Item('IManExt.Refresh') then begin
vNRTDocument := pContextItems.Item('ImportedDocument');
cObjectID := vNRTDocument.ID;
cDescription := ReplaceSTR(vNRTDocument.Description);
cExtension := vNRTDocument.Extension;
nDocs := vNRTDocument.Number;
Result := cObjectID+' '+IntToStr(nDocs)+' '+cExtension+' '+cDescription;
End{If};
end;
procedure TEventTarget.pOnInitDialog(Sender: TObject; var pMyInterface: OleVariant);
begin
pMyInterface.SetAttributeValueByID(nrComment, 'This work fine in Delphi!!!', True);
end;
Holp this help!
Antonio C Ferreira
TOTVS S/A
Categories
- All Categories
- 107 Developer Announcements
- 53 Articles
- 104 General Questions
- 141 IM Services
- 43 OpenText Hackathon
- 32 Developer Tools
- 20.6K Analytics
- 4.1K AppWorks
- 8.9K Extended ECM
- 898 Cloud Fax and Notifications
- 76 Digital Asset Management
- 9.3K Documentum
- 29 eDOCS
- 118 Exstream
- 39.8K TeamSite
- 1.7K Web Experience Management
- Docker Automation
- LiveSite Content Services (LSCS) REST API
- Single Page Application (SPA) Modules
- TeamSite Add-ons
If you are interested in gaining full access to the content, you can register for a My Support account here.