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/

cli/Form_basico.dfm

+object FormUC: TFormUC
+  Left = 181
+  Top = 204
+  Caption = 'Formul'#225'rio B'#225'sico'
+  ClientHeight = 285
+  ClientWidth = 465
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'MS Sans Serif'
+  Font.Style = []
+  OldCreateOrder = True
+  Position = poScreenCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+end

cli/acuApplicationConsole.dfm

+object acApplicationConsole: TacApplicationConsole
+  Left = 353
+  Top = 237
+  Caption = 'Sistema - Console'
+  ClientHeight = 194
+  ClientWidth = 517
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'MS Sans Serif'
+  Font.Style = []
+  OldCreateOrder = True
+  Position = poDesktopCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object ListView1: TListView
+    Left = 0
+    Top = 0
+    Width = 517
+    Height = 194
+    Align = alClient
+    Columns = <
+      item
+        Caption = 'Estado'
+        Width = 80
+      end
+      item
+        Caption = 'Tipo do Evento'
+        Width = 90
+      end
+      item
+        Caption = 'Data'
+        Width = 80
+      end
+      item
+        Caption = 'Origem'
+        Width = 100
+      end
+      item
+        Caption = 'Evento'
+        Width = 500
+      end>
+    TabOrder = 0
+    ViewStyle = vsReport
+  end
+end

cli/acuObjectExplorer.dfm

+object ObjectExplorer: TObjectExplorer
+  Left = 0
+  Top = 0
+  Width = 320
+  Height = 240
+  TabOrder = 0
+  TabStop = True
+  object tvExplorer: TElTree
+    Left = 0
+    Top = 0
+    Width = 320
+    Height = 240
+    Align = alClient
+    AlwaysKeepSelection = False
+    FullRowSelect = False
+    HeaderHeight = 21
+    HeaderSections.Data = {F4FFFFFF00000000}
+    HorzScrollBarStyles.ShowTrackHint = False
+    HorzScrollBarStyles.Width = 17
+    HorzScrollBarStyles.ButtonSize = 17
+    LineHeight = 17
+    MultiSelect = False
+    RowSelect = False
+    ShowLeafButton = True
+    ShowLines = False
+    ShowRoot = True
+    TabOrder = 0
+    TabStop = True
+    VertScrollBarStyles.ShowTrackHint = True
+    VertScrollBarStyles.Width = 17
+    VertScrollBarStyles.ButtonSize = 17
+    OnItemExpanding = tvExplorerItemExpanding
+  end
+end

cli/dbuDataModule.dfm

+object dbDataModule: TdbDataModule
+  OldCreateOrder = False
+  Height = 150
+  Width = 212
+  object dbSGIES: TDatabase
+    DatabaseName = 'dbSGIES'
+    DriverName = 'MSSQL'
+    LoginPrompt = False
+    Params.Strings = (
+      'DATABASE NAME=SISCON'
+      'SERVER NAME=mssql_prd_db'
+      'USER NAME=sisconuser'
+      'OPEN MODE=READ/WRITE'
+      'SCHEMA CACHE SIZE=8'
+      'BLOB EDIT LOGGING='
+      'LANGDRIVER='
+      'SQLQRYMODE='
+      'SQLPASSTHRU MODE=SHARED AUTOCOMMIT'
+      'DATE MODE=0'
+      'SCHEMA CACHE TIME=-1'
+      'MAX QUERY TIME=300'
+      'MAX ROWS=-1'
+      'BATCH COUNT=200'
+      'ENABLE SCHEMA CACHE=FALSE'
+      'SCHEMA CACHE DIR='
+      'HOST NAME='
+      'APPLICATION NAME=SISCON'
+      'NATIONAL LANG NAME='
+      'ENABLE BCD=FALSE'
+      'TDS PACKET SIZE=4096'
+      'BLOBS TO CACHE=256'
+      'BLOB SIZE=5000'
+      'PASSWORD=siscondbo')
+    SessionName = 'Default'
+    Left = 95
+    Top = 48
+  end
+  object dbModelo: TDatabase
+    DriverName = 'MSSQL'
+    LoginPrompt = False
+    Params.Strings = (
+      'DATABASE NAME=Sisac'
+      'SERVER NAME=sr01.conexops.com.br'
+      'USER NAME=sisacuser'
+      'OPEN MODE=READ/WRITE'
+      'SCHEMA CACHE SIZE=8'
+      'BLOB EDIT LOGGING='
+      'LANGDRIVER='
+      'SQLQRYMODE='
+      'SQLPASSTHRU MODE=SHARED AUTOCOMMIT'
+      'DATE MODE=0'
+      'SCHEMA CACHE TIME=-1'
+      'MAX QUERY TIME=300'
+      'MAX ROWS=-1'
+      'BATCH COUNT=200'
+      'ENABLE SCHEMA CACHE=FALSE'
+      'SCHEMA CACHE DIR='
+      'HOST NAME='
+      'APPLICATION NAME=SISCON'
+      'NATIONAL LANG NAME='
+      'ENABLE BCD=FALSE'
+      'TDS PACKET SIZE=4096'
+      'BLOBS TO CACHE=256'
+      'BLOB SIZE=256'
+      'PASSWORD=sisacdbo')
+    SessionName = 'Default'
+    Left = 23
+    Top = 8
+  end
+end

cli/deploy_cli.bat

+@ECHO OFF
+
+xcopy /y %TEMP%\acuApplicationConsole.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\acuObjectExplorer.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\Form_basico.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\ituControlPanel.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\ituExceptionDetailsDialog.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\ituInterface.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\ituInterfaceFactory.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\ituLogin.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\ituMain.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\mxuConnectionClient.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\mxuInterfaceCommCenter.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\Sisparam.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\siuBuscaObjetosBasicaV3.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\utuField.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\utuFields.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\utuMessage.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\utuMessageQueue.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\utuWinMessagesHook.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\acuContainers.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\acuObject.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\utuLink.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\utuLinksManager.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\utuLinkSock.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\blcksock.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\utuProtectedList.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\mxuCommCenter.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\utuFactory.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\acuCollection.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\utuSysUtil.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\acOQL.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\cxuSession.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\acuSystem.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\ituCadastroBasicoV4.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\acuLocale.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\utuSysUtils.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\synsock.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\blcksock.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+
+xcopy /y %TEMP%\ituExceptionDetailsDialog.dfm .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\siuBuscaObjetosBasicaV3.dfm .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\ituLogin.dfm .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\Form_basico.dfm .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\ituMain.dfm .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\ituCadastroBasicoV4.dfm .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\acuApplicationConsole.dfm .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\acuObjectExplorer.dfm .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\dbuDataModule.dfm .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\siuBuscaLogAtualizacaoSistema.dfm .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\siuBuscaNaturezas.dfm .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\siuBuscaObjetosUsuarioV4.dfm .
+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 .
+IF ERRORLEVEL 1 GOTO ENDERROR
+
+
+GOTO ENDOK
+
+
+:ENDERROR
+ECHO .
+ECHO ================================================================
+ECHO ERRO NA EXECUCAO
+ECHO ================================================================
+ECHO . 
+GOTO END
+
+:ENDOK
+ECHO .
+ECHO ================================================================
+ECHO PROCESSO EXECUTADO COM SUCESSO
+ECHO ================================================================
+ECHO . 
+GOTO END
+
+
+:END
+pause
\ No newline at end of file

cli/ituExceptionDetailsDialog.dfm

+object itExceptionDetailsDialog: TitExceptionDetailsDialog
+  Left = 0
+  Top = 0
+  Caption = 'Erro'
+  ClientHeight = 162
+  ClientWidth = 294
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poOwnerFormCenter
+  OnClose = FormClose
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Panel1: TPanel
+    Left = 0
+    Top = 0
+    Width = 294
+    Height = 89
+    Align = alTop
+    TabOrder = 0
+    DesignSize = (
+      294
+      89)
+    object Image1: TImage
+      Left = 8
+      Top = 4
+      Width = 57
+      Height = 81
+      Center = True
+    end
+    object BitBtn2: TBitBtn
+      Left = 205
+      Top = 55
+      Width = 80
+      Height = 25
+      Hint = 'Fechar'
+      Anchors = [akTop, akRight, akBottom]
+      Caption = 'Fechar'
+      TabOrder = 1
+      OnClick = BitBtn2Click
+    end
+    object BitBtn1: TBitBtn
+      Left = 117
+      Top = 55
+      Width = 80
+      Height = 25
+      Hint = 'Exibir detalhes...'
+      Anchors = [akTop, akRight, akBottom]
+      Caption = 'Detalhes >>'
+      Enabled = False
+      TabOrder = 0
+      OnClick = BitBtn1Click
+    end
+    object Memo2: TMemo
+      Left = 65
+      Top = 16
+      Width = 218
+      Height = 33
+      TabStop = False
+      Anchors = [akLeft, akTop, akRight, akBottom]
+      BevelEdges = []
+      BevelInner = bvNone
+      BevelOuter = bvNone
+      BorderStyle = bsNone
+      Color = clBtnFace
+      ReadOnly = True
+      TabOrder = 2
+    end
+  end
+  object Memo1: TMemo
+    Left = 0
+    Top = 89
+    Width = 294
+    Height = 73
+    TabStop = False
+    Align = alClient
+    Color = clBtnFace
+    ReadOnly = True
+    ScrollBars = ssVertical
+    TabOrder = 1
+    Visible = False
+  end
+end

cli/ituPropriedadesDoServico.dfm

+object itPropriedadesDoServico: TitPropriedadesDoServico
+  Left = 0
+  Top = 0
+  BorderStyle = bsDialog
+  Caption = 'Propriedades do Servi'#231'o'
+  ClientHeight = 349
+  ClientWidth = 428
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poDesktopCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Panel1: TPanel
+    Left = 0
+    Top = 307
+    Width = 428
+    Height = 42
+    Align = alBottom
+    TabOrder = 0
+    object btnFechar: TSpeedButton
+      Left = 314
+      Top = 8
+      Width = 95
+      Height = 26
+      Caption = 'Fechar'
+      Glyph.Data = {
+        36030000424D3603000000000000360000002800000010000000100000000100
+        18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FF0005B70005B7FF00FF0005B70005B7FF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FF0005B70005B7FF00FFFF00FF0005B7
+        0005B70005B7FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0005
+        B70005B7FF00FFFF00FFFF00FF0005B70005B60005B70005B7FF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FF0005B70005B7FF00FFFF00FFFF00FFFF00FFFF00FF
+        0006D70005BA0005B70005B7FF00FFFF00FFFF00FFFF00FF0005B70005B7FF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0005B70005B70005B6FF
+        00FF0005B60005B70005B7FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FF0005B60006C70006C70006CE0005B4FF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0006C100
+        05C10006DAFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FF0005B60006D70006CE0006DA0006E9FF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0006E50006DA0006D3FF
+        00FFFF00FF0006E50006EFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF0006F80006DA0006EFFF00FFFF00FFFF00FFFF00FF0006F80006F6FF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FF0006F60006F60006F8FF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FF0006F60006F6FF00FFFF00FFFF00FFFF00FF0006F6
+        0006F60006F6FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FF0006F6FF00FFFF00FF0006F60006F60006F6FF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0006F60006F6
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+      OnClick = btnFecharClick
+    end
+  end
+  object Panel2: TPanel
+    Left = 0
+    Top = 0
+    Width = 428
+    Height = 307
+    Align = alClient
+    TabOrder = 1
+    object GroupBox1: TGroupBox
+      Left = 8
+      Top = 4
+      Width = 409
+      Height = 113
+      Caption = 'Servi'#231'o'
+      TabOrder = 0
+      object Label1: TLabel
+        Left = 20
+        Top = 54
+        Width = 45
+        Height = 13
+        Caption = 'Caminho:'
+      end
+      object Label2: TLabel
+        Left = 24
+        Top = 27
+        Width = 41
+        Height = 13
+        Caption = 'Arquivo:'
+      end
+      object Label3: TLabel
+        Left = 28
+        Top = 81
+        Width = 37
+        Height = 13
+        Caption = 'Vers'#227'o:'
+      end
+      object edtArquivo: TEdit
+        Left = 71
+        Top = 24
+        Width = 322
+        Height = 21
+        Color = 15132390
+        ReadOnly = True
+        TabOrder = 0
+      end
+      object edtCaminho: TEdit
+        Left = 71
+        Top = 51
+        Width = 322
+        Height = 21
+        Color = 15132390
+        ReadOnly = True
+        TabOrder = 1
+      end
+      object edtVersao: TEdit
+        Left = 71
+        Top = 78
+        Width = 322
+        Height = 21
+        Color = 15132390
+        ReadOnly = True
+        TabOrder = 2
+      end
+    end
+    object gpbBancoDeDados: TGroupBox
+      Left = 8
+      Top = 123
+      Width = 409
+      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
+        Width = 44
+        Height = 13
+        Caption = 'Provider:'
+      end
+      object Label6: TLabel
+        Left = 74
+        Top = 82
+        Width = 40
+        Height = 13
+        Caption = 'User ID:'
+      end
+      object Label7: TLabel
+        Left = 44
+        Top = 108
+        Width = 70
+        Height = 13
+        Caption = 'Initial Catalog:'
+      end
+      object Label8: TLabel
+        Left = 55
+        Top = 135
+        Width = 59
+        Height = 13
+        Caption = 'Datasource:'
+      end
+      object edtProvider: TEdit
+        Left = 120
+        Top = 27
+        Width = 273
+        Height = 21
+        Color = 15132390
+        ReadOnly = True
+        TabOrder = 0
+      end
+      object edtSecurityInfo: TEdit
+        Left = 120
+        Top = 53
+        Width = 273
+        Height = 21
+        Color = 15132390
+        ReadOnly = True
+        TabOrder = 1
+      end
+      object edtUserID: TEdit
+        Left = 120
+        Top = 79
+        Width = 273
+        Height = 21
+        Color = 15132390
+        ReadOnly = True
+        TabOrder = 2
+      end
+      object edtInitialCatalog: TEdit
+        Left = 120
+        Top = 105
+        Width = 273
+        Height = 21
+        Color = 15132390
+        ReadOnly = True
+        TabOrder = 3
+      end
+      object edtDataSource: TEdit
+        Left = 120
+        Top = 132
+        Width = 273
+        Height = 21
+        Color = 15132390
+        ReadOnly = True
+        TabOrder = 4
+      end
+    end
+  end
+end

cli/siuBuscaLogAtualizacaoSistema.dfm

+inherited siBuscaLogAtualizacaoSistema: TsiBuscaLogAtualizacaoSistema
+  object Label1: TLabel [0]
+    Left = 24
+    Top = 28
+    Width = 40
+    Height = 13
+    Caption = 'Per'#237'odo:'
+  end
+  object Label2: TLabel [1]
+    Left = 183
+    Top = 28
+    Width = 6
+    Height = 13
+    Caption = 'a'
+  end
+  object mskDtInicio: TMaskEdit
+    Left = 80
+    Top = 25
+    Width = 89
+    Height = 21
+    EditMask = '99/99/9999;1;_'
+    MaxLength = 10
+    TabOrder = 1
+    Text = '  /  /    '
+  end
+  object mskDtFinal: TMaskEdit
+    Left = 200
+    Top = 25
+    Width = 89
+    Height = 21
+    EditMask = '99/99/9999;1;_'
+    MaxLength = 10
+    TabOrder = 2
+    Text = '  /  /    '
+  end
+end

cli/siuBuscaNaturezas.dfm

+inherited siBuscaNaturezas: TsiBuscaNaturezas
+  object Label1: TLabel [0]
+    Left = 17
+    Top = 29
+    Width = 50
+    Height = 13
+    Caption = 'Descri'#231#227'o:'
+  end
+  object edtNatureza: TEdit
+    Left = 76
+    Top = 26
+    Width = 184
+    Height = 21
+    TabOrder = 1
+  end
+end

cli/siuBuscaObjetosBasicaV3.dfm

+object siBuscaObjetosBasicaV3: TsiBuscaObjetosBasicaV3
+  Left = 0
+  Top = 0
+  Width = 572
+  Height = 69
+  TabOrder = 0
+  TabStop = True
+  object Button1: TButton
+    Left = 5
+    Top = 8
+    Width = 0
+    Height = 25
+    Caption = 'Button1'
+    Default = True
+    TabOrder = 0
+    OnClick = Button1Click
+  end
+end

cli/siuBuscaObjetosUsuarioV4.dfm

+inherited siBuscaObjetosUsuarioV4: TsiBuscaObjetosUsuarioV4
+  Width = 634
+  Height = 93
+  ExplicitWidth = 634
+  ExplicitHeight = 93
+  object Label18: TLabel [0]
+    Left = 28
+    Top = 13
+    Width = 25
+    Height = 13
+    Caption = 'Login'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object lblNatureza: TLabel [1]
+    Left = 9
+    Top = 40
+    Width = 44
+    Height = 13
+    Caption = 'Natureza'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object Label1: TLabel [2]
+    Left = 12
+    Top = 67
+    Width = 41
+    Height = 13
+    Caption = 'Situa'#231#227'o'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object meUsuario: TEdit
+    Left = 59
+    Top = 9
+    Width = 296
+    Height = 22
+    CharCase = ecUpperCase
+    Font.Charset = ANSI_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -11
+    Font.Name = 'Arial'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 1
+  end
+  object cbSituacao: TComboBox
+    Left = 59
+    Top = 64
+    Width = 145
+    Height = 21
+    ItemHeight = 13
+    TabOrder = 2
+    Items.Strings = (
+      'Ativo'
+      'Inativo'
+      'Todos')
+  end
+  object cbNatureza: TComboBox
+    Left = 59
+    Top = 37
+    Width = 145
+    Height = 21
+    ItemHeight = 13
+    TabOrder = 3
+  end
+end

srv/deploy.bat

+@ECHO OFF
+
+xcopy /y %TEMP%\utuSysUtil.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\utuSysUtils.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\blcksock.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\synsock.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\acuObject.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\acuframework.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\acuRepositorySQL.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\acOQL.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\acuQuerySQLADO.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\acuCollection.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\utuFactory.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\acuEvaluate.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\ucuManager.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\utuLinksManager.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\utuLink.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\utuLinkSock.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\utuMessage.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\utuRequest.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\utuRequestQueue.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\utuProtectedList.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\utuParamFields.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\mxuCommCenter.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\mxuConnectionServer.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\mxuUseCaseCommCenter.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\acuUseCaseServer.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\ucuUseCase.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\ucuUseCaseFactory.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\dbuDataModule.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\nguCategory.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\nguEntity.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\nguEvent.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\nguIcon.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\nguLevel.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\nguOperation.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\nguPermission.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\nguSystem.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\nguUseCaseTicket.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\nguUseCaseTicketOperation.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\nguUser.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\nguGUITicket.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\nguSystemGUITickets.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\ucuControlPanel.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\sucuBuscaObjetosBasica.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\ucuSecurityManager.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\ucuMain.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\acuContainers.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\acuApplicationLog.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\acuPersistenceLog.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\acuPersistenceEventsToApplicationLogSubscriber.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\NGUNatureza.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\acuSystem.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\ucuProfiler.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\ucuControlPanelConsole.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\utuStateMachine.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\nguAuditEventData.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\nguAuditEvent.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\sucuBuscaObjetosServidores.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\nguServer.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\nguUserMessage.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\nguBusinessEvent.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\nguBusinessEventType.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\nguBusinessEventSubscriber.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\nguSystemConfigUpdateLog.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\NGUSystemUseCaseTicket.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\ucuCadastroBasicoV4.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\utuLinkSharedMemory.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\nguMensagem.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\nguMessage.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\utuApplicationMessages.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\sucuBuscaObjetosUsuarioV4.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\sucuBuscaLogAtualizacaoSistema.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\sucuBuscaNaturezas.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\ucuCadastroNatureza.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\ucuCadastroUsuarioSistema.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\ucuControleAcesso.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\ucuDetalhesAtualizacaoSistema.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\ucuImportaConfiguracaoSistema.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\ucuExplorerV4.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\acuThreadPool.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\acuLocale.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\Variables.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\fasTATE.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\GOLDParser.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\GrammarReader.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\LRAction.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\Rule.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\SourceFeeder.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\Symbol.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\Token.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\acuOQLtoSQLTranslator.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\acuOQL.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\acuOQLPath.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\OQLGRAMMARTABLE.RES .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\ucuObjectExplorer.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\ucuPropriedadesDoServico.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+
+
+GOTO ENDOK
+
+:ENDERROR
+ECHO .
+ECHO ================================================================
+ECHO ERRO NA EXECUCAO
+ECHO ================================================================
+ECHO . 
+GOTO END
+
+:ENDOK
+ECHO .
+ECHO ================================================================
+ECHO PROCESSO EXECUTADO COM SUCESSO
+ECHO ================================================================
+ECHO . 
+GOTO END
+
+:END
+pause
\ No newline at end of file