no message

cli/ituMain.dfm

@@ -218,7 +218,7 @@ object Main: TMain
     Left = 392
     Top = 16
     Bitmap = {
-      494C010101000400C00020002000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
+      494C010101000400C80020002000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
       0000000000003600000028000000800000002000000001002000000000000040
       000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF

cli/ituMainPortal.dfm

@@ -53,7 +53,7 @@ inherited MainPortal: TMainPortal
   end
   inherited imDefault: TImageList
     Bitmap = {
-      494C010101000400580020002000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
+      494C010101000400600020002000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
       0000000000003600000028000000800000002000000001002000000000000040
       000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF

cli/ituPropriedadesDoServico.dfm

@@ -3,8 +3,8 @@ object itPropriedadesDoServico: TitPropriedadesDoServico
   Top = 0
   BorderStyle = bsDialog
   Caption = 'Propriedades do Servi'#231'o'
-  ClientHeight = 349
-  ClientWidth = 428
+  ClientHeight = 531
+  ClientWidth = 701
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
@@ -17,14 +17,14 @@ object itPropriedadesDoServico: TitPropriedadesDoServico
   TextHeight = 13
   object Panel1: TPanel
     Left = 0
-    Top = 307
-    Width = 428
+    Top = 489
+    Width = 701
     Height = 42
     Align = alBottom
     TabOrder = 0
     object btnFechar: TSpeedButton
-      Left = 314
-      Top = 8
+      Left = 594
+      Top = 6
       Width = 95
       Height = 26
       Caption = 'Fechar'
@@ -61,14 +61,16 @@ object itPropriedadesDoServico: TitPropriedadesDoServico
   object Panel2: TPanel
     Left = 0
     Top = 0
-    Width = 428
-    Height = 307
+    Width = 701
+    Height = 489
     Align = alClient
+    Ctl3D = False
+    ParentCtl3D = False
     TabOrder = 1
     object GroupBox1: TGroupBox
       Left = 8
       Top = 4
-      Width = 409
+      Width = 681
       Height = 113
       Caption = 'Servi'#231'o'
       TabOrder = 0
@@ -96,8 +98,8 @@ object itPropriedadesDoServico: TitPropriedadesDoServico
       object edtArquivo: TEdit
         Left = 71
         Top = 24
-        Width = 322
-        Height = 21
+        Width = 593
+        Height = 19
         Color = 15132390
         ReadOnly = True
         TabOrder = 0
@@ -105,8 +107,8 @@ object itPropriedadesDoServico: TitPropriedadesDoServico
       object edtCaminho: TEdit
         Left = 71
         Top = 51
-        Width = 322
-        Height = 21
+        Width = 593
+        Height = 19
         Color = 15132390
         ReadOnly = True
         TabOrder = 1
@@ -114,8 +116,8 @@ object itPropriedadesDoServico: TitPropriedadesDoServico
       object edtVersao: TEdit
         Left = 71
         Top = 78
-        Width = 322
-        Height = 21
+        Width = 593
+        Height = 19
         Color = 15132390
         ReadOnly = True
         TabOrder = 2
@@ -124,17 +126,10 @@ object itPropriedadesDoServico: TitPropriedadesDoServico
     object gpbBancoDeDados: TGroupBox
       Left = 8
       Top = 123
-      Width = 409
+      Width = 337
       Height = 170
       Caption = 'Banco de dados (.config)'
       TabOrder = 1
-      object Label4: TLabel
-        Left = 13
-        Top = 56
-        Width = 101
-        Height = 13
-        Caption = 'Persist Security Info:'
-      end
       object Label5: TLabel
         Left = 70
         Top = 30
@@ -144,21 +139,21 @@ object itPropriedadesDoServico: TitPropriedadesDoServico
       end
       object Label6: TLabel
         Left = 74
-        Top = 82
+        Top = 56
         Width = 40
         Height = 13
         Caption = 'User ID:'
       end
       object Label7: TLabel
-        Left = 44
-        Top = 108
-        Width = 70
+        Left = 73
+        Top = 82
+        Width = 41
         Height = 13
-        Caption = 'Initial Catalog:'
+        Caption = 'Catalog:'
       end
       object Label8: TLabel
         Left = 55
-        Top = 135
+        Top = 108
         Width = 59
         Height = 13
         Caption = 'Datasource:'
@@ -166,45 +161,134 @@ object itPropriedadesDoServico: TitPropriedadesDoServico
       object edtProvider: TEdit
         Left = 120
         Top = 27
-        Width = 273
-        Height = 21
+        Width = 201
+        Height = 19
         Color = 15132390
         ReadOnly = True
         TabOrder = 0
       end
-      object edtSecurityInfo: TEdit
+      object edtUserID: TEdit
         Left = 120
         Top = 53
-        Width = 273
-        Height = 21
+        Width = 201
+        Height = 19
         Color = 15132390
         ReadOnly = True
         TabOrder = 1
       end
-      object edtUserID: TEdit
+      object edtInitialCatalog: TEdit
         Left = 120
         Top = 79
-        Width = 273
-        Height = 21
+        Width = 201
+        Height = 19
         Color = 15132390
         ReadOnly = True
         TabOrder = 2
       end
-      object edtInitialCatalog: TEdit
+      object edtDataSource: TEdit
         Left = 120
         Top = 105
-        Width = 273
-        Height = 21
+        Width = 201
+        Height = 19
         Color = 15132390
         ReadOnly = True
         TabOrder = 3
       end
-      object edtDataSource: TEdit
+    end
+    object grp1: TGroupBox
+      Left = 351
+      Top = 123
+      Width = 338
+      Height = 170
+      Caption = 'Uso da mem'#243'ria (KB)'
+      TabOrder = 2
+      object lbl1: TLabel
+        Left = 26
+        Top = 56
+        Width = 88
+        Height = 13
+        Caption = 'Peak Working Set:'
+      end
+      object lbl2: TLabel
+        Left = 52
+        Top = 30
+        Width = 62
+        Height = 13
+        Caption = 'Working Set:'
+      end
+      object lbl3: TLabel
+        Left = 36
+        Top = 82
+        Width = 78
+        Height = 13
+        Caption = 'Page file Usage:'
+      end
+      object lbl4: TLabel
+        Left = 10
+        Top = 108
+        Width = 104
+        Height = 13
+        Caption = 'Peak Page file Usage:'
+      end
+      object lbl5: TLabel
+        Left = 25
+        Top = 135
+        Width = 89
+        Height = 13
+        Caption = 'Allocated Memory:'
+      end
+      object edtWorkingSetSize: TEdit
+        Left = 120
+        Top = 27
+        Width = 201
+        Height = 19
+        BiDiMode = bdRightToLeft
+        Color = 15132390
+        ParentBiDiMode = False
+        ReadOnly = True
+        TabOrder = 0
+      end
+      object edtPeakWorkingSetSize: TEdit
+        Left = 120
+        Top = 53
+        Width = 201
+        Height = 19
+        BiDiMode = bdRightToLeft
+        Color = 15132390
+        ParentBiDiMode = False
+        ReadOnly = True
+        TabOrder = 1
+      end
+      object edtPagefileUsage: TEdit
+        Left = 120
+        Top = 79
+        Width = 201
+        Height = 19
+        BiDiMode = bdRightToLeft
+        Color = 15132390
+        ParentBiDiMode = False
+        ReadOnly = True
+        TabOrder = 2
+      end
+      object edtPeakPagefileUsage: TEdit
+        Left = 120
+        Top = 105
+        Width = 201
+        Height = 19
+        BiDiMode = bdRightToLeft
+        Color = 15132390
+        ParentBiDiMode = False
+        ReadOnly = True
+        TabOrder = 3
+      end
+      object edtAllocatedMemory: TEdit
         Left = 120
         Top = 132
-        Width = 273
-        Height = 21
+        Width = 201
+        Height = 19
+        BiDiMode = bdRightToLeft
         Color = 15132390
+        ParentBiDiMode = False
         ReadOnly = True
         TabOrder = 4
       end

cli/siuBuscaObjetosBasicaPortal.pas

@@ -25,6 +25,7 @@ type
     fEntityCode: string;
     FActionID: string;
     FNomeBuscador: string;
+    FHeadersInitialized: Boolean;
     function GetNivel: integer;
     procedure SetUseCaseActions(const Value: acObjectList);
     procedure SetNomeBuscador(const Value: string);
@@ -75,6 +76,7 @@ type
     property Nivel: integer read GetNivel;
     property ActionID: string read FActionID write FActionID;
     property NomeBuscador: string read FNomeBuscador write SetNomeBuscador;
+    property HeadersInitialized: Boolean read FHeadersInitialized write FHeadersInitialized;
     procedure PreencherGrid(piXML:string); overload; virtual;
     procedure PreencherGrid(piField:utField); overload; virtual;
     procedure SetLabelsInGrid(piNode: IXMLNode); overload; virtual;
@@ -395,7 +397,7 @@ begin
           begin
             while not lEnum.EOL do
             begin
-              if self.ListViewObj.Columns.Count = 0 then self.SetLabelsInGrid(piField);
+              self.SetLabelsInGrid(piField);
               lField := utField(lEnum.Current);
               ListItem := self.ListViewObj.Items.Add;
               ListItem.ImageIndex := -1;
@@ -517,35 +519,33 @@ var lEnum: acEnumerator;
     lAttributeEnum, lEnumUseCaseAction: acEnumerator;
     lListColumn: TListColumn;
 begin
-  LockWindowUpdate(self.ListViewObj.handle);
-  self.ListViewObj.Items.BeginUpdate;
-  try
-    self.ListViewObj.Columns.Clear;
-    begin
-      if piField.HasField('Objects') then
-      begin
-        lEnum := piField.FieldByName('Objects').GetFieldsEnumerator;
-        try
-          if not lEnum.EOL then
-          begin
-            lAttributeEnum := utField(lEnum.Current).GetAttibutesEnumerator;
-            try
-              if not lAttributeEnum.EOL then lAttributeEnum.MoveNext; // Ignora attributo OID que e sempre o primeiro
-              while not lAttributeEnum.EOL do
-              begin
-                lListColumn := Self.ListViewObj.Columns.Add;
-                lListColumn.Caption := utField(lAttributeEnum.Current).Name;
-                lListColumn.ImageIndex := -1;
-                FColumnsHint.Add('');
-                lAttributeEnum.MoveNext;
-              end;
-            finally
-              lAttributeEnum.Free;
+  if piField.HasField('Headers') then
+  begin
+    LockWindowUpdate(self.ListViewObj.handle);
+    self.ListViewObj.Items.BeginUpdate;
+    try
+      self.ListViewObj.Columns.Clear;
+      lEnum := piField.FieldByName('Headers').GetFieldsEnumerator;
+      try
+        if not lEnum.EOL then
+        begin
+          lAttributeEnum := utField(lEnum.Current).GetAttibutesEnumerator;
+          try
+            if not lAttributeEnum.EOL then lAttributeEnum.MoveNext; // Ignora attributo OID que e sempre o primeiro
+            while not lAttributeEnum.EOL do
+            begin
+              lListColumn := Self.ListViewObj.Columns.Add;
+              lListColumn.Caption := utField(lAttributeEnum.Current).Name;
+              lListColumn.ImageIndex := -1;
+              FColumnsHint.Add('');
+              lAttributeEnum.MoveNext;
             end;
+          finally
+            lAttributeEnum.Free;
           end;
-        finally
-          lEnum.Free
         end;
+      finally
+        lEnum.Free
       end;
 
       if assigned(FUseCaseActions) then
@@ -573,10 +573,77 @@ begin
           lEnumUseCaseAction.Free;
         end;
       end;
+    finally
+      self.ListViewObj.Items.EndUpdate;
+      LockWindowUpdate(0);
+    end;
+  end
+  else
+  begin
+    if (not FHeadersInitialized) and (self.ListViewObj.Columns.Count = 0) then
+    begin
+      LockWindowUpdate(self.ListViewObj.handle);
+      self.ListViewObj.Items.BeginUpdate;
+      try
+        self.ListViewObj.Columns.Clear;
+        begin
+          if piField.HasField('Objects') then
+          begin
+            lEnum := piField.FieldByName('Objects').GetFieldsEnumerator;
+            try
+              if not lEnum.EOL then
+              begin
+                lAttributeEnum := utField(lEnum.Current).GetAttibutesEnumerator;
+                try
+                  if not lAttributeEnum.EOL then lAttributeEnum.MoveNext; // Ignora attributo OID que e sempre o primeiro
+                  while not lAttributeEnum.EOL do
+                  begin
+                    lListColumn := Self.ListViewObj.Columns.Add;
+                    lListColumn.Caption := utField(lAttributeEnum.Current).Name;
+                    lListColumn.ImageIndex := -1;
+                    FColumnsHint.Add('');
+                    lAttributeEnum.MoveNext;
+                  end;
+                finally
+                  lAttributeEnum.Free;
+                end;
+              end;
+            finally
+              lEnum.Free
+            end;
+          end;
+
+          if assigned(FUseCaseActions) then
+          begin
+            lEnumUseCaseAction := FUseCaseActions.GetEnumerator;;
+            try
+              while not lEnumUseCaseAction.EOL do
+              begin
+                case TMenuActionUseCase(lEnumUseCaseAction.current).ViewUseCaseType of
+                  mavList:
+                  begin
+                    lListColumn := Self.ListViewObj.Columns.Add;
+    //                lListColumn.Caption := TMenuActionUseCase(lEnumUseCaseAction.current).Name;
+                    FColumnsHint.Add(TMenuActionUseCase(lEnumUseCaseAction.current).Hint);
+                    //Utiliza a tag da coluna como ponteiro, guardando qual o caso de uso que ser executado
+                    //ao clicar em um item desta coluna
+                    lListColumn.Tag := integer(TMenuActionUseCase(lEnumUseCaseAction.current));
+                    lListColumn.ImageIndex := -1;
+                  end;
+                end;
+                lEnumUseCaseAction.MoveNext;
+              end;
+              Self.ListViewObj.Columns.Add;
+            finally
+              lEnumUseCaseAction.Free;
+            end;
+          end;
+        end;
+      finally
+        self.ListViewObj.Items.EndUpdate;
+        LockWindowUpdate(0);
+      end;
     end;
-  finally
-    self.ListViewObj.Items.EndUpdate;
-    LockWindowUpdate(0);
   end;
 end;
 

srv/deploy.bat

@@ -244,8 +244,6 @@ xcopy /y %TEMP%\acuConexoSecurityDriver.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
 xcopy /y %TEMP%\acuConexoLDAPSecurityDriver.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
-xcopy /y %TEMP%\acuPdSeguSecurityDriver.dcu .
-IF ERRORLEVEL 1 GOTO ENDERROR
 xcopy /y %TEMP%\PdSeguWebServiceWrapper.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
 xcopy /y %TEMP%\acuSQLDialectManager.dcu .
@@ -270,13 +268,9 @@ IF ERRORLEVEL 1 GOTO ENDERROR
 
 xcopy /y %TEMP%\acuNativeSecurityDriver.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
-xcopy /y %TEMP%\acuBanestesLDAPSecurityDriver.dcu .
-IF ERRORLEVEL 1 GOTO ENDERROR
 
 xcopy /y %TEMP%\acuMd5.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
-xcopy /y %TEMP%\acuCorretorBansegSecurityDriver.dcu .
-IF ERRORLEVEL 1 GOTO ENDERROR
 xcopy /y %TEMP%\nguUsuarioInternet.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
 xcopy /y %TEMP%\nguUsuarioInternetMaster.dcu .