no message

Committed on the Free edition of March Hare Software CVSNT Server.
Upgrade to CVS Suite for more features and support:
http://march-hare.com/cvsnt/

bin/VersionInfo.rc

+// Version Information Resource File
+1 VERSIONINFO
+FILEVERSION 1, 0, 2, 0
+
+
+PRODUCTVERSION 1, 0, 2, 0
+FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
+//FILEFLAGS VS_FF_DEBUG | VS_FF_PRERELEASE
+FILEOS VOS__WINDOWS32
+FILETYPE VFT_APP
+{
+BLOCK "StringFileInfo"
+{
+BLOCK "041604E4"
+{
+VALUE "CompanyName", "CONEXO Projetos e Sistemas Ltda\000"
+VALUE "FileVersion", "1.0.2.0\000"
+VALUE "ProductName", "Servidor Portal de Sistemas\000"
+VALUE "ProductVersion", "1.0.2.0\000"
+VALUE "LegalCopyright", "Copyright (C) CONEXO Projetos e Sistemas Ltda. Todos os direitos reservados\000"
+}
+}
+BLOCK "VarFileInfo"
+{
+VALUE "Translation", 1046, 1252
+}
+}

bin/cxIsapiClient.config.Template

+<?xml version="1.0" encoding="ISO-8859-1" ?>
+<Config>
+    <ConnectionPool MinConnections="0" MaxConnections="5" ExpireSeconds="30"/>
+    <UseCaseServers Action="Accept"> 
+	  <UseCaseServer SystemCode="48" Server="localhost" Port="10001" Enabled='Y'/>
+	  <UseCaseServer SystemCode="36" Server="localhost" Port="5355" Enabled='Y'/>
+	</UseCaseServers>
+</Config>
\ No newline at end of file

bin/portal_srv.config.template

+<?xml version="1.0" encoding="ISO-8859-1" ?>
+<Config>
+   <Application DefaultSecurityDriver="ConexoSecurityDriver">
+     <Service Name="svportal" DisplayName="CONEXO - PORTAL" Description="Portal de Sistemas" Port="10001"/>
+     <Database ActiveConnectionString="ConnectionString1">
+       <ConnectionString1>Provider=SQLOLEDB.1;Password=conexo;Persist Security Info=True;User ID=sa;Initial Catalog=SISCON_NOVO;Data Source=srp1vd1;Application Name=SISCON</ConnectionString1>
+     </Database>
+     <UseXMLEncode version="1"/>      
+     <Options SessionTimeout="3660" AllowPasswordChange="1" TestEnvironment="2" URL="http:\\www.conexops.com.br"/>
+   </Application>
+   <Systems DefaultSystemCode="">
+     <System Code="0" Name="SISCON Mdulo Framework"      SessionTimeout="1000" ServerName="desktop-07" ServicePort="7266" EnabledChannels="All" ClientBPLName="SisconModuloFramework_Pkg.bpl" />	 	 
+     <System Code="0" Name="SISCON Mdulo Ponto"          SessionTimeout="1000" ServerName="desktop-07" ServicePort="7266" EnabledChannels="All" ClientBPLName="SisconModuloPonto_Pkg.bpl" />	 	 
+     <System Code="0" Name="SISCON Mdulo Administrativo" SessionTimeout="1000" ServerName="desktop-07" ServicePort="7266" EnabledChannels="All" ClientBPLName="SisconModuloAdm.bpl" />	 	 
+   </Systems>	 
+</Config>

cli/cxuAguarde.dfm

+object cxAguarde: TcxAguarde
+  Left = 0
+  Top = 0
+  BorderIcons = []
+  BorderStyle = bsSingle
+  Caption = 'Aguarde'
+  ClientHeight = 76
+  ClientWidth = 413
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poMainFormCenter
+  Scaled = False
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object lblMensagem: TLabel
+    Left = 13
+    Top = 47
+    Width = 385
+    Height = 19
+    Alignment = taCenter
+    AutoSize = False
+    Caption = 'Aguarde, processando...'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clBlue
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object Animate1: TAnimate
+    Left = 112
+    Top = 8
+    Width = 189
+    Height = 29
+    AutoSize = False
+    CommonAVI = aviFindComputer
+    StopFrame = 8
+  end
+end

cli/deploy_cli.bat

@@ -12,9 +12,17 @@ xcopy /y %TEMP%\synacode.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
 xcopy /y %TEMP%\synaip.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
-xcopy /y %TEMP%\ituControlPanel.dcu .
+xcopy /y %TEMP%\httpsend.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
-xcopy /y %TEMP%\ituInterface.dcu .
+xcopy /y %TEMP%\ssl_openssl.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\ssl_openssl_lib.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\ituObjectSearchManager.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\ituVCLUIController.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\ituUIController.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
 xcopy /y %TEMP%\ituInterfaceFactory.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
@@ -42,6 +50,8 @@ xcopy /y %TEMP%\utuLinksManager.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
 xcopy /y %TEMP%\utuLinkSock.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\utuLinkHttp.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
 xcopy /y %TEMP%\utuProtectedList.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
 xcopy /y %TEMP%\mxuCommCenter.dcu .
@@ -66,6 +76,15 @@ xcopy /y %TEMP%\xmls.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
 xcopy /y %TEMP%\xsdins.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\acuRandomNumber.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+
+xcopy /y %TEMP%\KAZip.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+
+xcopy /y %TEMP%\acuVersionInfo.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+
 
 xcopy /y %TEMP%\xsdedit.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
@@ -73,7 +92,6 @@ xcopy /y %TEMP%\xsdedit.dfm .
 IF ERRORLEVEL 1 GOTO ENDERROR
 
 
-
 xcopy /y %TEMP%\ituExceptionDetailsDialog.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
 xcopy /y %TEMP%\ituExceptionDetailsDialog.dfm .
@@ -84,24 +102,35 @@ IF ERRORLEVEL 1 GOTO ENDERROR
 xcopy /y %TEMP%\ituMapeamentoExternoOperacoes.dfm .
 IF ERRORLEVEL 1 GOTO ENDERROR
 
+xcopy /y %TEMP%\siuBuscaObjetosBasicaPortal.pas .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\siuBuscaObjetosBasicaPortal.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\siuBuscaObjetosBasicaPortal.dfm .
+IF ERRORLEVEL 1 GOTO ENDERROR
+
+xcopy /y %TEMP%\siuBuscaObjetosBasicaV3.pas .
+IF ERRORLEVEL 1 GOTO ENDERROR
 xcopy /y %TEMP%\siuBuscaObjetosBasicaV3.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
 xcopy /y %TEMP%\siuBuscaObjetosBasicaV3.dfm .
 IF ERRORLEVEL 1 GOTO ENDERROR
 
-xcopy /y %TEMP%\ituLogin.dcu .
+xcopy /y %TEMP%\siuBuscaObjetos.pas .
 IF ERRORLEVEL 1 GOTO ENDERROR
-xcopy /y %TEMP%\ituLogin.dfm .
+xcopy /y %TEMP%\siuBuscaObjetos.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\siuBuscaObjetos.dfm .
 IF ERRORLEVEL 1 GOTO ENDERROR
 
-xcopy /y %TEMP%\ituLoginPortal.dcu .
+xcopy /y %TEMP%\ituLogin.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
-xcopy /y %TEMP%\ituLoginPortal.dfm .
+xcopy /y %TEMP%\ituLogin.dfm .
 IF ERRORLEVEL 1 GOTO ENDERROR
 
-xcopy /y %TEMP%\Form_basico.dcu .
+xcopy /y %TEMP%\ituLoginPortalStd.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
-xcopy /y %TEMP%\Form_basico.dfm .
+xcopy /y %TEMP%\ituLoginPortalStd.dfm .
 IF ERRORLEVEL 1 GOTO ENDERROR
 
 xcopy /y %TEMP%\ituMain.dcu .
@@ -114,11 +143,15 @@ IF ERRORLEVEL 1 GOTO ENDERROR
 xcopy /y %TEMP%\ituMainPortal.dfm .
 IF ERRORLEVEL 1 GOTO ENDERROR
 
+xcopy /y %TEMP%\ituCadastroBasicoV4.pas .
+IF ERRORLEVEL 1 GOTO ENDERROR
 xcopy /y %TEMP%\ituCadastroBasicoV4.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
 xcopy /y %TEMP%\ituCadastroBasicoV4.dfm .
 IF ERRORLEVEL 1 GOTO ENDERROR
 
+xcopy /y %TEMP%\ituCadastroBasicoV41.pas .
+IF ERRORLEVEL 1 GOTO ENDERROR
 xcopy /y %TEMP%\ituCadastroBasicoV41.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
 xcopy /y %TEMP%\ituCadastroBasicoV41.dfm .
@@ -145,7 +178,6 @@ IF ERRORLEVEL 1 GOTO ENDERROR
 xcopy /y %TEMP%\ituExplorerV4.dfm .
 IF ERRORLEVEL 1 GOTO ENDERROR
 
-
 xcopy /y %TEMP%\ituPropriedadesDoServico.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
 xcopy /y %TEMP%\ituPropriedadesDoServico.dfm .
@@ -159,8 +191,47 @@ IF ERRORLEVEL 1 GOTO ENDERROR
 xcopy /y %TEMP%\acuMenuManager.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
 
-xcopy /y %TEMP%\acuRandomNumber.dcu .
+xcopy /y %TEMP%\ituCadastroPerfil.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\ituCadastroPerfil.dfm .
+IF ERRORLEVEL 1 GOTO ENDERROR
+
+xcopy /y %TEMP%\siuBuscaObjetosPerfil.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\siuBuscaObjetosPerfil.dfm .
+
+xcopy /y %TEMP%\fruReport.pas .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\fruReport.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\fruReport.DFM .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\ituReport.pas .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\ituReport.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\ituReport.DFM .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\acExcelExport.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\cxuAguarde.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\cxuAguarde.DFM .
+IF ERRORLEVEL 1 GOTO ENDERROR
+
+xcopy /y %TEMP%\cxuPortalMain.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\cxuUseCaseDll.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\cxuUseCase.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\acuVersionInfo.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\cxuGUIHelper.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\cxuGUIActivator.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+
 
 
 GOTO ENDOK

cli/fruReport.dfm

+object frReport: TfrReport
+  Left = 0
+  Top = 0
+  Width = 451
+  Height = 304
+  Margins.Left = 0
+  Margins.Top = 0
+  Margins.Right = 0
+  Margins.Bottom = 0
+  Align = alClient
+  TabOrder = 0
+  object WebBrowser: TWebBrowser
+    Left = 0
+    Top = 0
+    Width = 451
+    Height = 304
+    Margins.Left = 0
+    Margins.Top = 0
+    Margins.Right = 0
+    Margins.Bottom = 0
+    Align = alClient
+    TabOrder = 0
+    ExplicitWidth = 225
+    ExplicitHeight = 240
+    ControlData = {
+      4C0000009D2E00006B1F00000000000000000000000000000000000000000000
+      000000004C000000000000000000000001000000E0D057007335CF11AE690800
+      2B2E126208000000000000004C0000000114020000000000C000000000000046
+      8000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000100000000000000000000000000000000000000}
+  end
+end

cli/fruReport.pas

+unit fruReport;
+
+interface
+
+uses
+  utuMessage,
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, SHDocVw,
+  Dialogs, OleCtrls, Menus, AppEvnts, StrUtils, cxuAguarde, ExtCtrls;
+
+type
+  TPrintOption = (poShowConfig, poShowPreview, poMinimalMargins, poWithHeader, poWithFooter);
+  TPrintOptions = set of TPrintOption;
+
+  TfrReport = class(TFrame)
+    WebBrowser: TWebBrowser;
+    procedure FrameResize(Sender: TObject);
+  private
+    fXML: string;
+    fXMLField: utField;
+    fArquivosTemp : TStringList;
+    fHandlerMessage : TMessageEvent;
+    fParentFormOnResize: TNotifyEvent;
+    fParentFormOnResizeSeted: Boolean;
+    procedure CarregarStream(const piStream : TStream);
+    function GerarArquivoTemporario: string;
+    procedure AguardarProcessamentoWebBrowser(const piExibirJanelaProgresso : Boolean);
+  public
+    constructor Create(AOwner: TComponent) ; override;
+    destructor Destroy; override;
+    procedure LoadHTML(const piHtml : string; const piExibirJanelaProgresso : Boolean = True);
+    procedure LoadHTMLFile(const piHtmlFileName : string; const piExibirJanelaProgresso : Boolean = True);
+    procedure LoadXML(const piXML : string; const piExibirJanelaProgresso : Boolean = True);
+    procedure LoadFile(const piFileName : string; const piExibirJanelaProgresso : Boolean = True);
+    procedure LoadFromMessage(const piMessage : utField; const piExibirJanelaProgresso : Boolean = True);
+    procedure PrintReport(const piOptions : TPrintOptions = []);
+    procedure PageSetup;
+    property XML: string read fXML write fXML;
+    property XMLField: utField read fXMLField write fXMLField;
+  end;
+
+implementation
+
+{$R *.dfm}
+
+uses
+  ActiveX, UrlMon, MSHtml, Registry;
+
+{ TfrReport }
+
+procedure TfrReport.AguardarProcessamentoWebBrowser(const piExibirJanelaProgresso : Boolean);
+var
+  lFormAguarde: TcxAguarde;
+begin
+  if piExibirJanelaProgresso
+    then lFormAguarde := TcxAguarde.Create(Application)
+    else lFormAguarde := Nil;
+  self.WebBrowser.Align := alNone;
+  if (not fParentFormOnResizeSeted) then
+  begin
+    fParentFormOnResize := (GetParentForm(self) as TForm).OnResize;
+    (GetParentForm(self) as TForm).OnResize := FrameResize;
+    fParentFormOnResizeSeted := True;
+    FrameResize(self);
+  end
+  else
+  begin
+  end;
+  try
+    if piExibirJanelaProgresso then lFormAguarde.Show;
+    Application.ProcessMessages;
+    while WebBrowser.ReadyState <> READYSTATE_COMPLETE do
+    begin
+      Application.ProcessMessages;
+      Sleep(5);
+    end;
+  finally
+    if Assigned(lFormAguarde) then lFormAguarde.Free;
+  end;
+end;
+
+procedure TfrReport.CarregarStream(const piStream: TStream);
+var
+  PersistStreamInit: IPersistStreamInit;
+  StreamAdapter: IStream;
+begin
+  if not Assigned(WebBrowser.Document) then
+    Exit;
+  // Get IPersistStreamInit interface on document object
+  if WebBrowser.Document.QueryInterface(IPersistStreamInit, PersistStreamInit) = S_OK then
+  begin
+    // Clear document
+    if PersistStreamInit.InitNew = S_OK then
+    begin
+      // Get IStream interface on stream
+      StreamAdapter:= TStreamAdapter.Create(piStream);
+      // Load data from Stream into WebBrowser
+      PersistStreamInit.Load(StreamAdapter);
+    end;
+  end;
+end;
+
+constructor TfrReport.Create(AOwner: TComponent);
+begin
+  inherited;
+  fArquivosTemp:=TStringList.Create;
+  fHandlerMessage:=Application.OnMessage;
+end;
+
+destructor TfrReport.Destroy;
+begin
+  while fArquivosTemp.Count > 0 do
+  begin
+    DeleteFile(fArquivosTemp[0]);
+    fArquivosTemp.Delete(0);
+  end;
+  fArquivosTemp.Free;
+  fXMLField.Free;
+  inherited;
+end;
+
+procedure TfrReport.FrameResize(Sender: TObject);
+var lParentForm: TCustomForm;
+begin
+  lParentForm := GetParentForm(self);
+  if assigned(self.fParentFormOnResize) then self.fParentFormOnResize(lParentForm);
+  self.SetBounds(0, 0, self.ClientWidth, self.ClientHeight);
+  self.WebBrowser.SetBounds(0, 0, self.ClientWidth, self.ClientHeight);
+  if self.Showing then
+  begin
+    lParentForm.FocusControl(nil);
+    if assigned(self.WebBrowser.Document) then
+    (self.WebBrowser.Application as IOleobject).DoVerb(OLEIVERB_UIACTIVATE, nil, self.WebBrowser, 0, Handle, self.GetClientRect);
+  end;
+end;
+
+function TfrReport.GerarArquivoTemporario: string;
+const
+  lPrefixo = 'cnx';
+var
+  lPastaTemp : array[0..MAX_PATH] of Char;
+  lNomeArq   : array[0..MAX_PATH] of Char;
+begin
+  if GetTempPath(MAX_PATH, @lPastaTemp) = 0 then
+    raise Exception.Create ('GetTempPath error');
+  if GetTempFileName(@lPastaTemp, lPrefixo, 0, @lNomeArq) = 0 then
+    raise Exception.Create ('GetTempFileName error');
+  Result := StrPas(lNomeArq);
+  Result := StrUtils.ReplaceStr(Result, ExtractFileExt(Result), '.xml');
+  fArquivosTemp.Add(Result);
+end;
+
+procedure TfrReport.LoadFile(const piFileName: string; const piExibirJanelaProgresso : Boolean = True);
+begin
+  WebBrowser.Navigate('file://'+piFileName);
+  AguardarProcessamentoWebBrowser(piExibirJanelaProgresso);
+end;
+
+procedure TfrReport.LoadFromMessage(const piMessage: utField; const piExibirJanelaProgresso : Boolean = True);
+var
+  lStyleSheet : string;
+begin
+  if not piMessage.HasAttribute('StyleSheet') then raise Exception.Create('The StyleSheet attribute was not found.');
+  lStyleSheet:=piMessage.AttributeByName('StyleSheet').AsString;
+  //fXMLField := utField.Create;
+  //fXMLField.Assign(piMessage);
+  fXML := piMessage.GetXMLString([xoLegible], xeISO_8859_1, lStyleSheet);
+  LoadXML(fXML, piExibirJanelaProgresso);
+end;
+
+procedure TfrReport.LoadHTML(const piHtml: string; const piExibirJanelaProgresso : Boolean = True);
+var
+  lStream : TStringStream;
+begin
+  WebBrowser.Navigate('about:blank');
+  lStream:=TStringStream.Create(piHtml);
+  try
+    CarregarStream(lStream);
+  finally
+    lStream.Free;
+  end;
+  AguardarProcessamentoWebBrowser(piExibirJanelaProgresso);
+end;
+
+procedure TfrReport.LoadHTMLFile(const piHtmlFileName: string; const piExibirJanelaProgresso: Boolean);
+var
+  lStream : TFileStream;
+begin
+  WebBrowser.Navigate('about:blank');
+  lStream:=TFileStream.Create(piHtmlFileName, fmOpenRead);
+  try
+    CarregarStream(lStream);
+  finally
+    lStream.Free;
+  end;
+  AguardarProcessamentoWebBrowser(piExibirJanelaProgresso);
+end;
+
+procedure TfrReport.LoadXML(const piXML: string; const piExibirJanelaProgresso : Boolean = True);
+var
+  lArq : TStringList;
+  lNomeArq : string;
+begin
+  lNomeArq:=Self.GerarArquivoTemporario;
+  lArq:=TStringList.Create;
+  try
+    lArq.Text:=piXML;
+    lArq.SaveToFile(lNomeArq);
+  finally
+    lArq.Free;
+  end;
+  LoadFile(lNomeArq, piExibirJanelaProgresso);
+end;
+
+procedure TfrReport.PageSetup;
+var
+  vaIn, vaOut: OleVariant;
+begin
+  WebBrowser.ControlInterface.ExecWB(OLECMDID_PAGESETUP, OLECMDEXECOPT_PROMPTUSER, vaIn, vaOut);
+end;
+
+procedure TfrReport.PrintReport(const piOptions : TPrintOptions = []);
+var
+  vaIn, vaOut: OleVariant;
+  lReg: TRegistry;
+begin
+  if (poShowConfig in piOptions) and (poShowPreview in piOptions) then
+    raise Exception.Create('Using poShowConfig and poShowPreview at the same time is not allowed.');
+
+  lReg := TRegistry.Create;
+  try
+    lReg.LazyWrite := False;
+    lReg.RootKey := HKEY_CURRENT_USER;
+    if lReg.OpenKey('\Software\Microsoft\Internet Explorer\PageSetup', False) then
+    begin
+      try
+        if (poMinimalMargins in piOptions) then
+        begin
+          lReg.WriteString('margin_bottom', '0.20667');
+          lReg.WriteString('margin_left', '0.25333');
+          lReg.WriteString('margin_right', '0.24667');
+          lReg.WriteString('margin_top', '0.25333');
+        end;
+        if (poMinimalMargins in piOptions) or (not (poWithHeader in piOptions)) then
+        begin
+          lReg.WriteString('header', '');
+        end;
+        if (poMinimalMargins in piOptions) or (not (poWithFooter in piOptions)) then
+        begin
+          lReg.WriteString('footer', '');
+        end;
+      finally
+        lReg.CloseKey;
+      end;
+    end;
+  finally
+    lReg.free;
+  end;
+
+  if poShowConfig in piOptions then
+    WebBrowser.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER, vaIn, vaOut)
+  else if poShowPreview in piOptions then
+    WebBrowser.ControlInterface.ExecWB(OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut)
+  else
+    WebBrowser.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);
+end;
+
+end.

cli/ituCadastroBasicoV4.pas

+unit ituCadastroBasicoV4;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, ExtCtrls, Buttons, JvGradient, utuFactory,
+  StdCtrls, ActnList, JvExControls, JvComponent, JvSpeedButton,
+  TypInfo, ComCtrls, ituExceptionDetailsDialog, ituInterfaceFactory, ituVCLUIController,
+  utuMessage, utuMessageQueue, XMLIntf, msxmldom, XMLDoc, ituUIController;
+
+type
+  TStatus = (StInsert, StDelete, StUpdate, StSelect, StBrowse);
+
+  TPermissao = set of (AcInsert, AcUpdate, AcDelete);
+
+  TitCadastroBasicoV4 = class(itInterfaceForm)
+    pnPrincipal: TPanel;
+    pnMenuSuperior: TPanel;
+    jvGradientSuperior: TJvGradient;
+    sbNovo: TJvSpeedButton;
+    sbSalvar: TJvSpeedButton;
+    sbExcluir: TJvSpeedButton;
+    sbSair: TJvSpeedButton;
+    shSeparador1: TShape;
+    pnDivisor: TPanel;
+    sbEditar: TJvSpeedButton;
+    procedure sbSairClick(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure FormCreate(Sender: TObject);
+    procedure sbEditarClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure sbSalvarClick(Sender: TObject);
+    procedure sbExcluirClick(Sender: TObject);
+    procedure sbNovoClick(Sender: TObject);
+  private
+    { Private declarations }
+  protected
+    hasSearchBeforeNewObject: boolean;
+    procedure SetReadOnly(Control: TWinControl; value: Boolean);
+    procedure HabilitaEdicao; virtual;
+    procedure DesabilitaEdicao; virtual;
+    procedure LimpaCampos(Control: TWinControl);
+  public
+    { Public declarations }
+    permissao: TPermissao;
+    status: TStatus;
+    procedure VerificaPermissoes();
+    procedure CadastrarNovoObjeto; virtual;
+  end;
+
+  itCadastroBasicoV4 = class(itInterface)
+  protected
+    procedure SetPermissionsToInteraface(piOperationsNode: utField);
+    procedure SendToInterface(piRequest: acRequest);virtual; abstract;
+    procedure SaveFromInterface(piRequest: acRequest);virtual; abstract;
+    procedure SalvaObjeto(piRequest: acRequest);virtual;
+    procedure ExcluirObjeto(piRequest: acRequest);virtual;
+    procedure EditaObjeto(piRequest: acRequest);virtual;
+    procedure Delete;
+    procedure Edita;
+  public
+    procedure Save;
+  end;
+
+implementation
+uses acuObject;
+
+{$R *.dfm}
+
+procedure TitCadastroBasicoV4.HabilitaEdicao;
+begin
+  SetReadOnly(self,false);
+end;
+
+procedure TitCadastroBasicoV4.SetReadOnly(Control: TWinControl; value: Boolean);
+var
+  I: Integer;
+begin
+  for I := 0 to Control.ControlCount - 1 do
+  begin
+    if (Control.Controls[i] <> pnMenuSuperior) then
+    begin
+      try
+        if IsPublishedProp(Control.Controls[i],'ReadOnly') then
+          SetPropValue(Control.Controls[i],'ReadOnly', value)
+        else if //not(control is TPanel)
+                not(Control.Controls[i] is TLabel)
+                and not(Control.Controls[i] is TPanel)
+                and not(Control.Controls[i] is TGroupBox)
+                and not(Control.Controls[i] is TPageControl)
+                and not(Control.Controls[i] is TTabSheet) then
+          Control.Controls[i].Enabled := not value;
+      except
+        raise;
+      end;
+      if (Control.Controls[i] is TWinControl)
+         and (TWinControl(Control.Controls[i]).ControlCount > 0) then
+             SetReadOnly(TWinControl(Control.Controls[i]),value);
+    end;
+  end;
+end;
+
+procedure TitCadastroBasicoV4.DesabilitaEdicao;
+begin
+  SetReadOnly(self,true);
+end;
+
+procedure TitCadastroBasicoV4.LimpaCampos(Control: TWinControl);
+var
+  I: Integer;
+begin
+  for I := 0 to Control.ControlCount - 1 do
+  begin
+    if (Control.Controls[i] <> pnMenuSuperior) then
+    begin
+      try
+        if IsPublishedProp(Control.Controls[i],'Text') then
+          SetPropValue(Control.Controls[i],'Text', '');
+        if IsPublishedProp(Control.Controls[i],'ItemIndex') then
+          SetPropValue(Control.Controls[i],'ItemIndex', -1);
+        if IsPublishedProp(Control.Controls[i],'Checked') then
+          SetPropValue(Control.Controls[i],'Checked', false)
+      except
+        raise;
+      end;
+      if (Control.Controls[i] is TWinControl)
+         and (TWinControl(Control.Controls[i]).ControlCount > 0) then
+             LimpaCampos(TWinControl(Control.Controls[i]));
+    end;
+  end;
+end;
+
+procedure TitCadastroBasicoV4.VerificaPermissoes();
+begin
+  if ((status = stInsert) and (AcInsert in permissao))
+     or ((status = stUpdate) and (AcUpdate in permissao)) then
+  begin
+    sbNovo.Enabled := False;
+    sbEditar.Enabled := False;
+    sbExcluir.Enabled := status = stUpdate;
+    sbSalvar.Enabled := True;
+    HabilitaEdicao;
+  end
+  else if (status = stBrowse) then
+  begin
+    if AcInsert in permissao then
+    begin
+      sbNovo.Enabled := True;
+    end;
+    if AcUpdate in permissao then
+    begin
+      sbEditar.Enabled := True;
+    end;
+    if AcDelete in permissao then
+    begin
+      sbExcluir.Enabled := True;
+      sbNovo.Enabled := True;
+    end;
+  end
+  else if(status = StDelete)  then
+  begin
+    sbNovo.Enabled := True;
+    sbEditar.Enabled := False;
+    sbExcluir.Enabled := False;
+    sbSalvar.Enabled := False;
+  end
+  else
+  begin
+    sbNovo.Enabled := False;
+    sbEditar.Enabled := False;
+    sbExcluir.Enabled := False;
+    sbSalvar.Enabled := False;
+  end;
+end;
+
+
+procedure TitCadastroBasicoV4.sbEditarClick(Sender: TObject);
+begin
+  inherited;
+ (self.Controller as itCadastroBasicoV4).Edita;
+
+end;
+
+procedure TitCadastroBasicoV4.sbExcluirClick(Sender: TObject);
+begin
+  if MessageDlg('Confirma a excluso do objeto?', mtConfirmation, [mbYes,mbNo], 0) = mrYes then
+  begin
+    (self.Controller as itCadastroBasicoV4).Delete;
+    status := stDelete;
+    VerificaPermissoes;
+  end;
+end;
+
+procedure TitCadastroBasicoV4.sbNovoClick(Sender: TObject);
+begin
+  with (self.Controller as itCadastroBasicoV4)  do
+    NewRequest('RM_INCLUI_OBJETO',SendToInterface).Post;
+end;
+
+procedure TitCadastroBasicoV4.FormShow(Sender: TObject);
+begin
+  inherited;
+//  if SISAC_Util.GetDisplayColors <= 8 then
+  jvGradientSuperior.Visible := false;
+  if (status <> stInsert) and (status <> StUpdate) then DesabilitaEdicao
+  else HabilitaEdicao;
+end;
+
+procedure TitCadastroBasicoV4.CadastrarNovoObjeto;
+begin
+  status := stInsert;
+  VerificaPermissoes;
+  LimpaCampos(self);
+  HabilitaEdicao;
+end;
+
+
+
+
+
+procedure TitCadastroBasicoV4.FormCreate(Sender: TObject);
+begin
+  status := StBrowse;
+  hasSearchBeforeNewObject := False;
+end;
+
+procedure TitCadastroBasicoV4.FormClose(Sender: TObject; var Action: TCloseAction);
+const
+  NOT_SAVED_MSG = 'Existem dados que ainda no foram salvos.' + #13 +
+                  'Deseja realmente sair?';
+begin
+  if ((status = stInsert) or (status = stUpdate)) and
+     (MessageDlg(NOT_SAVED_MSG, mtConfirmation, [mbYes, mbNo], 0) = mrNo)
+    then Action := caNone
+    else Action := caFree;
+end;
+
+procedure TitCadastroBasicoV4.sbSairClick(Sender: TObject);
+begin
+  Close;
+end;
+
+procedure TitCadastroBasicoV4.sbSalvarClick(Sender: TObject);
+begin
+  (self.Controller as itCadastroBasicoV4).Save;
+end;
+
+{ itCadastroBasicoV4 }
+
+
+
+procedure itCadastroBasicoV4.Delete;
+begin
+  self.NewRequest('RM_EXCLUI_OBJETO',ExcluirObjeto).Post;
+end;
+
+procedure itCadastroBasicoV4.Edita;
+begin
+  Screen.Cursor := crHourGlass;
+  self.NewRequest('RM_EDITA_OBJETO',EditaObjeto).Post;
+end;
+
+procedure itCadastroBasicoV4.EditaObjeto(piRequest: acRequest);
+begin
+  with self.InterfaceForm as TitCadastroBasicoV4 do
+  begin
+    status := stUpdate;
+    VerificaPermissoes;
+    HabilitaEdicao;
+  end;
+  Screen.Cursor := crDefault;
+
+end;
+
+procedure itCadastroBasicoV4.ExcluirObjeto(piRequest: acRequest);
+begin
+  ShowMessage('Registro excludo.');
+end;
+
+procedure itCadastroBasicoV4.SalvaObjeto(piRequest: acRequest);
+begin
+  with self.InterfaceForm as TitCadastroBasicoV4 do
+  begin
+    sbNovo.Enabled := true;
+    sbEditar.Enabled := true;
+    sbExcluir.Enabled := true;
+    sbSalvar.Enabled := false;
+    status := StBrowse;
+    DesabilitaEdicao;
+  end;
+end;
+
+procedure itCadastroBasicoV4.Save;
+var lMessage: acRequest;
+begin
+  lMessage := self.NewRequest('RM_SALVA_OBJETO', SalvaObjeto);
+  Self.SaveFromInterface(lMessage);
+  lMessage.Post;
+end;
+
+procedure itCadastroBasicoV4.SetPermissionsToInteraface(
+  piOperationsNode: utField);
+var lTitCadastroBasico: TitCadastroBasicoV4;
+    lOperationNode: utField;
+    lCode: integer;
+    lmarc : acEnumerator;
+begin
+  lTitCadastroBasico := self.InterfaceForm as TitCadastroBasicoV4;
+  if piOperationsNode.AttributeByName('NewTarget').AsBoolean then
+     lTitCadastroBasico.status := StInsert
+  else
+     lTitCadastroBasico.status := stUpdate;
+
+  lTitCadastroBasico.permissao := [];
+  lmarc  := piOperationsNode.GetFieldsEnumerator;
+  try
+    while not lmarc.EOL  do
+    begin
+      lOperationNode := utField(lmarc.Current);
+      lCode := lOperationNode.AttributeByName('Code').AsInteger;
+      case lCode of
+        1: lTitCadastroBasico.permissao := lTitCadastroBasico.permissao + [acInsert];
+        3: lTitCadastroBasico.permissao := lTitCadastroBasico.permissao + [acUpdate];
+        4: lTitCadastroBasico.permissao := lTitCadastroBasico.permissao + [acDelete];
+      end;
+      lmarc.MoveNext;
+    end;
+  finally
+    lmarc.Free;
+  end;
+  lTitCadastroBasico.VerificaPermissoes;
+end;
+
+
+end.

cli/ituCadastroPerfil.dfm

+inherited itCadastroPerfil: TitCadastroPerfil
+  Caption = 'Cadastro de Perfil'
+  ClientHeight = 594
+  ClientWidth = 984
+  ExplicitWidth = 1000
+  ExplicitHeight = 632
+  PixelsPerInch = 96
+  TextHeight = 13
+  inherited pnPrincipal: TPanel
+    Width = 984
+    Height = 537
+    ExplicitWidth = 984
+    ExplicitHeight = 537
+    object Panel1: TPanel
+      Left = 1
+      Top = 57
+      Width = 982
+      Height = 479
+      Align = alClient
+      Caption = 'Panel1'
+      TabOrder = 0
+      object treeOperacoes: TElTree
+        Left = 1
+        Top = 1
+        Width = 544
+        Height = 477
+        Align = alLeft
+        HeaderHeight = 21
+        HeaderSections.Data = {F4FFFFFF00000000}
+        HorzScrollBarStyles.ShowTrackHint = False
+        HorzScrollBarStyles.Width = 17
+        HorzScrollBarStyles.ButtonSize = 17
+        LineHeight = 17
+        PopupMenu = ppmOperacoes
+        ShowCheckboxes = True
+        ShowLeafButton = False
+        TabOrder = 0
+        TabStop = True
+        VertScrollBarStyles.ShowTrackHint = True
+        VertScrollBarStyles.Width = 17
+        VertScrollBarStyles.ButtonSize = 17
+        OnItemChecked = treeOperacoesItemChecked
+      end
+      object ltvOperacoes: TListView
+        Left = 545
+        Top = 1
+        Width = 432
+        Height = 477
+        Align = alLeft
+        Color = 16119285
+        Columns = <
+          item
+            Caption = 'Sistema'
+            Width = 100
+          end
+          item
+            Caption = 'Caso de uso'
+            Width = 200
+          end
+          item
+            Caption = 'Opera'#231#227'o'
+            Width = 100
+          end>
+        ReadOnly = True
+        TabOrder = 1
+        ViewStyle = vsReport
+      end
+    end
+    object Panel2: TPanel
+      Left = 1
+      Top = 1
+      Width = 982
+      Height = 56
+      Align = alTop
+      TabOrder = 1
+      ExplicitWidth = 759
+      object lblNome: TLabel
+        Left = 72
+        Top = 6
+        Width = 32
+        Height = 13
+        Caption = 'Nome'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
+      object lblCodigo: TLabel
+        Left = 8
+        Top = 6
+        Width = 38
+        Height = 13
+        Caption = 'C'#243'digo'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
+      object lblDescricao: TLabel
+        Left = 366
+        Top = 6
+        Width = 55
+        Height = 13
+        Caption = 'Descri'#231#227'o'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
+      object lblValorCodigo: TLabel
+        Left = 8
+        Top = 24
+        Width = 47
+        Height = 13
+        Caption = '<c'#243'digo>'
+        Layout = tlCenter
+      end
+      object edtNome: TEdit
+        Left = 72
+        Top = 21
+        Width = 280
+        Height = 21
+        ReadOnly = True
+        TabOrder = 0
+      end
+      object edtDescricao: TEdit
+        Left = 366
+        Top = 21
+        Width = 369
+        Height = 21
+        ReadOnly = True
+        TabOrder = 1
+      end
+    end
+  end
+  inherited pnMenuSuperior: TPanel
+    Width = 984
+    ExplicitWidth = 761
+    inherited jvGradientSuperior: TJvGradient
+      Width = 984
+      ExplicitWidth = 526
+    end
+    inherited FlowPanel1: TFlowPanel
+      Width = 984
+      ExplicitWidth = 761
+    end
+  end
+  inherited pnDivisor: TPanel
+    Width = 984
+    ExplicitWidth = 761
+  end
+  object ppmOperacoes: TPopupMenu
+    OnPopup = ppmOperacoesPopup
+    Left = 520
+    Top = 128
+    object MarcarInserir: TMenuItem
+      Caption = 'Marcar opera'#231#245'es "Inserir"'
+      OnClick = MarcarInserirClick
+    end
+    object MarcarConsultar: TMenuItem
+      Caption = 'Marcar opera'#231#245'es "Consultar"'
+      OnClick = MarcarConsultarClick
+    end
+    object MarcarAtualizar: TMenuItem
+      Caption = 'Marcar opera'#231#245'es "Atualizar"'
+      OnClick = MarcarAtualizarClick
+    end
+    object MarcarExcluir: TMenuItem
+      Caption = 'Marcar opera'#231#245'es "Excluir"'
+      OnClick = MarcarExcluirClick
+    end
+    object MarcarExecutar: TMenuItem
+      Caption = 'Marcar opera'#231#245'es "Executar"'
+      OnClick = MarcarExecutarClick
+    end
+    object MarcarProcessar: TMenuItem
+      Caption = 'Marcar opera'#231#245'es "Processar"'
+      OnClick = MarcarProcessarClick
+    end
+  end
+end

cli/ituExplorerV4.dfm

@@ -36,6 +36,10 @@ object itExplorerV4: TitExplorerV4
       ImageIndex = 1
       ParentFont = False
       OnShow = tsOQLSQLShow
+      ExplicitLeft = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
       object Splitter1: TSplitter
         Left = 257
         Top = 24
@@ -53,9 +57,9 @@ object itExplorerV4: TitExplorerV4
         Height = 24
         ActionManager = ActionManager1
         Caption = 'ActionToolBar1'
-        ColorMap.HighlightColor = 15660791
+        ColorMap.HighlightColor = clWhite
         ColorMap.BtnSelectedColor = clBtnFace
-        ColorMap.UnusedColor = 15660791
+        ColorMap.UnusedColor = clWhite
         HorzMargin = 0
         ParentBackground = True
         ParentShowHint = False
@@ -126,29 +130,24 @@ object itExplorerV4: TitExplorerV4
             Align = alClient
             TabOrder = 0
             TabWidth = 50
-            ExplicitHeight = 205
             object tsOQL: TTabSheet
               Caption = 'OQL'
-              ExplicitHeight = 174
+              ExplicitLeft = 0
+              ExplicitTop = 0
+              ExplicitWidth = 0
+              ExplicitHeight = 0
               object OQLQuery: TJvHLEditor
                 Left = 0
                 Top = 0
                 Width = 688
                 Height = 187
                 Cursor = crIBeam
-                GutterWidth = 0
                 RightMargin = 120
-                RightMarginColor = clSilver
                 Completion.ItemHeight = 13
-                Completion.Interval = 800
-                Completion.ListBoxStyle = lbStandard
-                Completion.CaretChar = '|'
                 Completion.CRLF = '/n'
                 Completion.Separator = '='
                 TabStops = '3 5'
                 BracketHighlighting.StringEscape = #39#39
-                SelForeColor = clHighlightText
-                SelBackColor = clHighlight
                 OnDragOver = OQLQueryDragOver
                 OnDragDrop = OQLQueryDragDrop
                 Align = alClient
@@ -157,10 +156,6 @@ object itExplorerV4: TitExplorerV4
                 Font.Height = -13
                 Font.Name = 'Courier New'
                 Font.Style = []
-                ParentColor = False
-                ParentFont = False
-                TabStop = True
-                UseDockManager = False
                 Highlighter = hlSql
                 Colors.Comment.Style = [fsItalic]
                 Colors.Comment.ForeColor = clNavy
@@ -187,43 +182,35 @@ object itExplorerV4: TitExplorerV4
                 Colors.Statement.BackColor = clWindow
                 Colors.PlainText.ForeColor = clWindowText
                 Colors.PlainText.BackColor = clWindow
-                ExplicitWidth = 672
-                ExplicitHeight = 174
               end
             end
             object tsSQL: TTabSheet
               Caption = 'SQL'
               ImageIndex = 1
-              ExplicitHeight = 174
+              ExplicitLeft = 0
+              ExplicitTop = 0
+              ExplicitWidth = 0
+              ExplicitHeight = 0
               object SQLQuery: TJvHLEditor
                 Left = 0
                 Top = 0
                 Width = 688
                 Height = 187
                 Cursor = crIBeam
-                GutterWidth = 0
+                RightMarginVisible = False
                 RightMargin = 120
-                RightMarginColor = clSilver
                 Completion.ItemHeight = 13
-                Completion.Interval = 800
-                Completion.ListBoxStyle = lbStandard
-                Completion.CaretChar = '|'
                 Completion.CRLF = '/n'
                 Completion.Separator = '='
                 TabStops = '3 5'
                 BracketHighlighting.StringEscape = #39#39
                 SelForeColor = clInfoBk
-                SelBackColor = clHighlight
                 Align = alClient
                 Font.Charset = DEFAULT_CHARSET
                 Font.Color = clWindowText
                 Font.Height = -13
                 Font.Name = 'Courier New'
                 Font.Style = []
-                ParentColor = False
-                ParentFont = False
-                TabStop = True
-                UseDockManager = False
                 Highlighter = hlSql
                 Colors.Comment.Style = [fsItalic]
                 Colors.Comment.ForeColor = clNavy
@@ -250,7 +237,6 @@ object itExplorerV4: TitExplorerV4
                 Colors.Statement.BackColor = clWindow
                 Colors.PlainText.ForeColor = clWindowText
                 Colors.PlainText.BackColor = clWindow
-                ExplicitHeight = 174
               end
             end
           end
@@ -263,8 +249,6 @@ object itExplorerV4: TitExplorerV4
           Align = alClient
           BevelInner = bvLowered
           TabOrder = 1
-          ExplicitTop = 211
-          ExplicitHeight = 329
           object pcResult: TPageControl
             Left = 2
             Top = 2
@@ -275,10 +259,8 @@ object itExplorerV4: TitExplorerV4
             RaggedRight = True
             Style = tsFlatButtons
             TabOrder = 0
-            ExplicitHeight = 325
             object tsObjectResults: TTabSheet
               Caption = 'Objects'
-              ExplicitHeight = 291
               object pbObjects: TProgressBar
                 Left = 0
                 Top = 272
@@ -288,7 +270,6 @@ object itExplorerV4: TitExplorerV4
                 Smooth = True
                 Step = 1
                 TabOrder = 0
-                ExplicitTop = 285
               end
               object tvObjects: TElTree
                 Left = 0
@@ -304,21 +285,21 @@ object itExplorerV4: TitExplorerV4
                 Font.Style = []
                 HeaderHeight = 22
                 HeaderSections.Data = {
-                  F4FFFFFF030000000000000000000000FFFFFFFF000001010100000077010000
-                  00000000102700000001000020A77A130000000001000000FFFFFFFF00000100
-                  0000000000000000000100000000000008000000080000000800000008000000
-                  0800000008000000080000000800000008000000080000000800000008000000
-                  08000000080000000800000008000000080000000900000050726F7065727479
+                  F4FFFFFF030000000000000000000000FFFFFFFF000001010100616E4E000000
+                  00000000102700000001006D20A77A130000000001006F74FFFFFFFF00000137
+                  00000000000000000001000100000000636C695C7372635C6974755C69747565
+                  76656E746C6F67616E616C797365725C6974756576656E746C6F67616E616C79
+                  7365726E6577616E616C797369732E70617300000900000050726F7065727479
                   00010000000000000000000000000000000000000000FFFFFFFF000001010100
-                  00004A01000000000000102700000001000010B47A130100000001000000FFFF
-                  FFFF000001000000000000000000000100000000000008000000080000000800
-                  0000080000000800000008000000080000000800000008000000080000000800
-                  0000080000000800000008000000080000000800000008000000060000005661
+                  616E3900000000000000102700000001006D10B47A130100000001006F74FFFF
+                  FFFF0000013700000000000000000001000100000000636C695C7372635C6974
+                  755C6974756576656E746C6F67616E616C797365725C6974756576656E746C6F
+                  67616E616C797365726E6577616E616C797369732E7061730000060000005661
                   6C756500010000000000000000000000000000000000000000FFFFFFFF000001
-                  0101000000F7000000000000001027000000010000A0997A1302000000010000
-                  00FFFFFFFF000001000000000000000000000100000000000008000000080000
-                  0008000000080000000800000008000000080000000800000008000000080000
-                  0008000000080000000800000008000000080000000800000008000000050000
+                  010100616E3200000000000000102700000001006DA0997A130200000001006F
+                  74FFFFFFFF0000013700000000000000000001000100000000636C695C737263
+                  5C6974755C6974756576656E746C6F67616E616C797365725C6974756576656E
+                  746C6F67616E616C797365726E6577616E616C797369732E7061730000050000
                   00547970650001000000000000000000000000}
                 HorzScrollBarStyles.ShowTrackHint = False
                 HorzScrollBarStyles.Width = 17
@@ -340,14 +321,16 @@ object itExplorerV4: TitExplorerV4
                 VertScrollBarStyles.Width = 17
                 VertScrollBarStyles.ButtonSize = 17
                 OnDblClick = tvObjectsDblClick
-                ExplicitHeight = 291
               end
             end
             object tsTextResults: TTabSheet
               Caption = 'Results'
               ImageIndex = 1
               TabVisible = False
-              ExplicitHeight = 291
+              ExplicitLeft = 0
+              ExplicitTop = 0
+              ExplicitWidth = 0
+              ExplicitHeight = 0
               object TextResults: TMemo
                 Left = 0
                 Top = 0
@@ -358,7 +341,6 @@ object itExplorerV4: TitExplorerV4
                 ScrollBars = ssBoth
                 TabOrder = 0
                 WordWrap = False
-                ExplicitHeight = 291
               end
             end
           end
@@ -593,15 +575,11 @@ object itExplorerV4: TitExplorerV4
       OnExecute = ResultsPanelExecute
     end
   end
-  object XPManifest1: TXPManifest
-    Left = 480
-    Top = 8
-  end
   object ImageList1: TImageList
     Left = 520
     Top = 8
     Bitmap = {
-      494C01010C000E00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
+      494C01010C000E000C0010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
       0000000000003600000028000000400000004000000001002000000000000040
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000

cli/ituLogin.dfm

@@ -12,6 +12,7 @@ object itLogin: TitLogin
   Font.Height = -11
   Font.Name = 'MS Sans Serif'
   Font.Style = []
+  KeyPreview = True
   OldCreateOrder = True
   Position = poScreenCenter
   OnClose = FormClose
@@ -1422,6 +1423,7 @@ object itLogin: TitLogin
             Width = 185
             Height = 21
             TabOrder = 0
+            OnKeyDown = LoginKeyDown
           end
         end
         object Panel5: TPanel

cli/ituReport.dfm

+object itReport: TitReport
+  Left = 0
+  Top = 0
+  Width = 716
+  Height = 509
+  Margins.Left = 0
+  Margins.Top = 0
+  Margins.Right = 0
+  Margins.Bottom = 0
+  AutoScroll = True
+  Caption = 'itReport'
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  KeyPreview = True
+  OldCreateOrder = False
+  Position = poDefault
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  OnKeyUp = FormKeyUp
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 13
+  object pnBotoes: TPanel
+    Left = 0
+    Top = 436
+    Width = 700
+    Height = 35
+    Align = alBottom
+    BevelOuter = bvNone
+    TabOrder = 0
+    DesignSize = (
+      700
+      35)
+    object btImprimir: TBitBtn
+      Left = 8
+      Top = 4
+      Width = 75
+      Height = 25
+      Caption = 'Imprimir'
+      TabOrder = 0
+      OnClick = btImprimirClick
+    end
+    object btConfigurarImprimir: TBitBtn
+      Left = 89
+      Top = 4
+      Width = 160
+      Height = 25
+      Caption = 'Configurar e Imprimir'
+      TabOrder = 1
+      OnClick = btImprimirClick
+    end
+    object btVisualizarImpressao: TBitBtn
+      Left = 255
+      Top = 4
+      Width = 160
+      Height = 25
+      Caption = 'Visualizar Impress'#227'o'
+      TabOrder = 2
+      OnClick = btImprimirClick
+    end
+    object btExportarXLS: TButton
+      Left = 421
+      Top = 4
+      Width = 132
+      Height = 25
+      Anchors = [akTop, akRight]
+      Caption = 'Exportar para XLS'
+      TabOrder = 3
+      Visible = False
+      OnClick = btExportarXLSClick
+    end
+    object btExportarPDF: TButton
+      Left = 559
+      Top = 4
+      Width = 132
+      Height = 25
+      Anchors = [akTop, akRight]
+      Caption = 'Exportar para PDF'
+      TabOrder = 4
+      Visible = False
+      OnClick = btExportarXLSClick
+    end
+  end
+  inline frReport1: TfrReport
+    Left = 0
+    Top = 0
+    Width = 700
+    Height = 436
+    Margins.Left = 0
+    Margins.Top = 0
+    Margins.Right = 0
+    Margins.Bottom = 0
+    Align = alClient
+    ParentBackground = False
+    TabOrder = 1
+    ExplicitWidth = 700
+    ExplicitHeight = 436
+    inherited WebBrowser: TWebBrowser
+      Width = 700
+      Height = 436
+      ExplicitWidth = 700
+      ExplicitHeight = 436
+      ControlData = {
+        4C00000041170000CE1800000000000000000000000000000000000000000000
+        000000004C000000000000000000000001000000E0D057007335CF11AE690800
+        2B2E126208000000000000004C0000000114020000000000C000000000000046
+        8000000000000000000000000000000000000000000000000000000000000000
+        00000000000000000100000000000000000000000000000000000000}
+    end
+  end
+  object SaveDialog1: TSaveDialog
+    Left = 640
+  end
+  object itSelecionarArquivoExportacao: TSaveDialog
+    DefaultExt = 'xls'
+    Filter = 'Planilhas do Excel (*.xls)|*.xls'
+    FilterIndex = 0
+    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
+    Title = 'Informe o Caminho e o Nome do arquivo para exportar...'
+    Left = 671
+    Top = 3
+  end
+end

cli/siuBuscaObjetos.dfm

+object siBuscaObjetos: TsiBuscaObjetos
+  Left = 0
+  Top = 0
+  Width = 527
+  Height = 71
+  AutoScroll = True
+  TabOrder = 0
+end

cli/siuBuscaObjetos.pas

+unit siuBuscaObjetos;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, itumain, ComCtrls;
+
+type
+  TsiBuscaObjetos = class(TFrame)
+  private
+    { Private declarations }
+  protected
+    FListViewObj: TListView;
+    procedure setListViewObj(const Value: TListView); virtual;    
+
+  public
+    { Public declarations }
+    constructor Create(aowner:TComponent); overload; override;
+    constructor Create(aowner:TComponent; piInterfaceController: itMain; piEntityCode: string); reintroduce; overload; virtual;
+    procedure BuscaObjetosInicializacaoInterface; virtual; abstract;    
+    function Version: integer; virtual; abstract;
+    property ListViewObj: TListView read FListViewObj write setListViewObj;
+  end;
+
+  TsiBuscaObjetosClass = class of TsiBuscaObjetos;
+
+var
+  siBuscaObjetos: TsiBuscaObjetos;
+
+implementation
+
+{$R *.dfm}
+
+{ TsiBuscaObjetosBasicaPortal1 }
+
+
+{ TsiBuscaObjetos }
+
+constructor TsiBuscaObjetos.Create(aowner: TComponent);
+begin
+  inherited;
+
+end;
+
+constructor TsiBuscaObjetos.Create(aowner: TComponent; piInterfaceController: itMain; piEntityCode: string);
+begin
+  self.Create(aowner);
+end;
+
+procedure TsiBuscaObjetos.setListViewObj(const Value: TListView);
+begin
+  FListViewObj := Value;
+end;
+
+end.

cli/siuBuscaObjetosBasicaPortal.dfm

+inherited siBuscaObjetosBasicaPortal: TsiBuscaObjetosBasicaPortal
+  Width = 521
+  Height = 68
+  ParentFont = False
+  ExplicitWidth = 521
+  ExplicitHeight = 68
+  object Button1: TButton
+    Left = 5
+    Top = 8
+    Width = 0
+    Height = 25
+    Caption = 'Button1'
+    Default = True
+    TabOrder = 0
+    OnClick = Button1Click
+  end
+end

cli/siuBuscaObjetosBasicaV3.dfm

-object siBuscaObjetosBasicaV3: TsiBuscaObjetosBasicaV3
-  Left = 0
-  Top = 0
+inherited siBuscaObjetosBasicaV3: TsiBuscaObjetosBasicaV3
   Width = 572
   Height = 69
-  TabOrder = 0
   TabStop = True
+  ExplicitWidth = 572
+  ExplicitHeight = 69
   object Button1: TButton
     Left = 5
     Top = 8

cli/siuBuscaObjetosPerfil.dfm

+inherited siBuscaObjetosPerfil: TsiBuscaObjetosPerfil
+  Width = 651
+  Height = 56
+  ExplicitWidth = 651
+  ExplicitHeight = 56
+  object Label1: TLabel [0]
+    Left = 11
+    Top = 20
+    Width = 31
+    Height = 13
+    Caption = 'Name:'
+  end
+  object edtName: TEdit
+    Left = 64
+    Top = 17
+    Width = 385
+    Height = 21
+    TabOrder = 1
+  end
+end