Release 9.7.222

.gitignore

@@ -0,0 +1,6 @@
+*.dof
+*.dcu
+*.ddp
+*.identcache
+*.otares
+*.~*~

.gitmodules

@@ -0,0 +1,3 @@
+[submodule "Lib/delphi-php-serializer"]
+	path = Lib/delphi-php-serializer
+	url = https://github.com/kingkellogg/delphi-php-serializer.git

Datamodules/FilterDefDataUn.dfm

@@ -1,8 +1,6 @@
 object FilterDefData: TFilterDefData
   OldCreateOrder = False
   OnCreate = DataModuleCreate
-  Left = 379
-  Top = 262
   Height = 376
   Width = 569
   object MasterDatasource: TDataSource
@@ -19,7 +17,7 @@ object FilterDefData: TFilterDefData
   object MasterDataset: TosSQLDataSet
     CommandText = 
       'SELECT'#13#10'  IDXFilterDef,'#13#10'  Name,'#13#10'  FilterType,'#13#10'  Titulo'#13#10'FROM'#13 +
-      #10'  XFilterDef'#13#10'WHERE'#13#10'  IDXFilterDef = :ID'#13#10
+      #10'  XFilterDef'#13#10'WHERE'#13#10'  IDXFilterDef = :ID'
     MaxBlobSize = 32
     Params = <
       item
@@ -37,7 +35,7 @@ object FilterDefData: TFilterDefData
       'SELECT'#13#10'  IDXFilterDefDetail,'#13#10'  IDXFilterDef,'#13#10'  Number,'#13#10'  Des' +
       'cription,'#13#10'  QueryText,'#13#10'  AttributeList,'#13#10'  ExpressionList,'#13#10'  ' +
       'ConstraintList,'#13#10'  OrderList,'#13#10'  OrderColumn,'#13#10'  OrderType'#13#10'FROM' +
-      #13#10'  XFilterDefDetail'#13#10'WHERE'#13#10'  IDXFilterDef = :IDXFilterDef'#13#10
+      #13#10'  XFilterDefDetail'#13#10'WHERE'#13#10'  IDXFilterDef = :IDXFilterDef'
     DataSource = MasterDatasource
     MaxBlobSize = 32
     Params = <

Datamodules/FilterDefDataUn.pas

@@ -4,7 +4,7 @@ interface
 
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  Provider, Db, DBTables, FMTBcd, SqlExpr,
+  Provider, Db, FMTBcd, SqlExpr,
   osSQLDataSetProvider, osCustomDataSetProvider, osUtils, osSQLDataSet;
 
 type

Datamodules/RecursoDataUn.dfm

@@ -1,8 +1,6 @@
 object RecursoData: TRecursoData
   OldCreateOrder = False
   OnCreate = DataModuleCreate
-  Left = 674
-  Top = 148
   Height = 491
   Width = 305
   object MasterDataSet: TosSQLDataSet
@@ -11,7 +9,7 @@ object RecursoData: TRecursoData
       ' Descricao,'#13#10'  FilterDefName,'#13#10'  DataClassName,'#13#10'  ResClassName,' +
       #13#10'  ReportClassName,'#13#10'  IndiceImagem,'#13#10'  NumOrdem,'#13#10'  habilitaEd' +
       'itarTodos,'#13#10'  forcaReExecucaoFiltro'#13#10'FROM '#13#10'  Recurso'#13#10'WHERE'#13#10'  ' +
-      'IDRecurso=:ID'#13#10
+      'IDRecurso=:ID'
     MaxBlobSize = 32
     Params = <
       item
@@ -109,7 +107,7 @@ object RecursoData: TRecursoData
       '.IdGrupo'#13#10'  INNER JOIN Recurso R'#13#10'    ON D.IdRecurso = R.IdRecur' +
       'so'#13#10'  INNER JOIN Dominio Dom'#13#10'    ON R.IdDominio = Dom.IdDominio' +
       #13#10'WHERE'#13#10'   UPPER(U.Apelido) LIKE UPPER(:UserName)'#13#10'ORDER BY'#13#10'  ' +
-      'Dom.Descricao,'#13#10'  R.Nome'#13#10
+      'Dom.Descricao,'#13#10'  R.Nome'
     MaxBlobSize = 32
     Params = <
       item
@@ -131,7 +129,7 @@ object RecursoData: TRecursoData
     CommandText = 
       'select'#13#10'  DESCRICAO,'#13#10'  IDACAO,'#13#10'  IDRECURSO,'#13#10'  INDICEIMAGEM,'#13#10 +
       '  NOME,'#13#10'  NOMECOMPONENTE'#13#10'from'#13#10'  ACAO'#13#10'where'#13#10'  IDRECURSO = :I' +
-      'DRECURSO'#13#10
+      'DRECURSO'
     DataSource = MasterDataSource
     MaxBlobSize = 32
     Params = <
@@ -175,7 +173,7 @@ object RecursoData: TRecursoData
       'IdGrupo = D.IdGrupo'#13#10'  JOIN Recurso R'#13#10'    ON D.IdRecurso = R.Id' +
       'Recurso'#13#10'  JOIN Acao A'#13#10'    ON D.IdAcao = A.IdAcao'#13#10'WHERE'#13#10'  UPP' +
       'ER(U.Apelido) LIKE UPPER(:UserName)'#13#10'  AND UPPER(R.Nome) = UPPER' +
-      '(:NomeRecurso)'#13#10
+      '(:NomeRecurso)'
     MaxBlobSize = 32
     Params = <
       item
@@ -204,8 +202,8 @@ object RecursoData: TRecursoData
   end
   object UsuarioDataSet: TosSQLDataSet
     CommandText = 
-      'SELECT'#13#10'  Apelido,'#13#10'  Nome,'#13#10'  Senha,'#13#10'  Status'#13#10'FROM'#13#10'  Usuario' +
-      #13#10'WHERE'#13#10'  UPPER(Apelido) = UPPER(:Username)'#13#10
+      'SELECT'#13#10'  Apelido,'#13#10'  Nome,'#13#10'  Senha,'#13#10'  Status,'#13#10'  DataSenha'#13#10'F' +
+      'ROM'#13#10'  Usuario'#13#10'WHERE'#13#10'  UPPER(Apelido) = UPPER(:Username)'
     MaxBlobSize = 32
     Params = <
       item
@@ -234,6 +232,9 @@ object RecursoData: TRecursoData
       FixedChar = True
       Size = 1
     end
+    object UsuarioDataSetDATASENHA: TDateField
+      FieldName = 'DATASENHA'
+    end
   end
   object UsuarioProvider: TosSQLDataSetProvider
     DataSet = UsuarioDataSet

Datamodules/RecursoDataUn.pas

@@ -42,6 +42,7 @@   TRecursoData = class(TDataModule)
     MasterDataSetHABILITAEDITARTODOS: TStringField;
     MasterDataSetFORCAREEXECUCAOFILTRO: TStringField;
     UsuarioDataSetSTATUS: TStringField;
+    UsuarioDataSetDATASENHA: TDateField;
     procedure DataModuleCreate(Sender: TObject);
   private
 

Datamodules/acCustomSQLMainDataUn.dfm

@@ -3,53 +3,31 @@ object acCustomSQLMainData: TacCustomSQLMainData
   OnCreate = DataModuleCreate
   Height = 365
   Width = 631
-  object spGetNewSequence: TStoredProc
-    StoredProcName = 'dbo.cc_GetNewSequence'
-    Left = 100
-    Top = 200
-    ParamData = <
-      item
-        DataType = ftInteger
-        Name = 'Result'
-        ParamType = ptResult
-      end
-      item
-        DataType = ftString
-        Name = '@Name'
-        ParamType = ptInput
-      end
-      item
-        DataType = ftInteger
-        Name = '@Value'
-        ParamType = ptOutput
-      end>
-  end
   object prvFilter: TosSQLDataSetProvider
     DataSet = FilterQuery
     Options = [poReadOnly, poNoReset, poAllowCommandText]
     Left = 348
     Top = 96
   end
   object SQLConnection: TosSQLConnection
-    ConnectionName = 'IBLocal'
+    ConnectionName = 'IBConnection'
     DriverName = 'Interbase'
     LoginPrompt = False
     Params.Strings = (
-      'BlobSize=32'
-      'CommitRetain='
-
-        'Database=localhost:C:\projetos\clientes\labmaster\DB\cli\LabMast' +
-        'er.GDB'
       'DriverName=Interbase'
-      'ErrorResourceFile='
-      'LocaleCode='
+      'Database=database.gdb'
+      'RoleName=RoleName'
+      'User_Name=sysdba'
       'Password=masterkey'
-      'RoleName='
       'ServerCharSet='
       'SQLDialect=3'
-      'Interbase TransIsolation='
-      'User_Name=SYSDBA'
-      'WaitOnLocks=')
+      'ErrorResourceFile='
+      'LocaleCode=0000'
+      'BlobSize=-1'
+      'CommitRetain=False'
+      'WaitOnLocks=True'
+      'IsolationLevel=ReadCommitted'
+      'Trim Char=False')
     Left = 100
     Top = 80
   end
@@ -89,4 +67,49 @@ object acCustomSQLMainData: TacCustomSQLMainData
     Left = 100
     Top = 152
   end
+  object SQLConnectionArquivos: TSQLConnection
+    ConnectionName = 'IBArquivos'
+    DriverName = 'Firebird'
+    LoginPrompt = False
+    Params.Strings = (
+      'DriverUnit=Data.DBXFirebird'
+
+        'DriverPackageLoader=TDBXDynalinkDriverLoader,DbxCommonDriver180.' +
+        'bpl'
+
+        'DriverAssemblyLoader=Borland.Data.TDBXDynalinkDriverLoader,Borla' +
+        'nd.Data.DbxCommonDriver,Version=18.0.0.0,Culture=neutral,PublicK' +
+        'eyToken=91d62ebb5b0d1b1b'
+
+        'MetaDataPackageLoader=TDBXFirebirdMetaDataCommandFactory,DbxFire' +
+        'birdDriver180.bpl'
+
+        'MetaDataAssemblyLoader=Borland.Data.TDBXFirebirdMetaDataCommandF' +
+        'actory,Borland.Data.DbxFirebirdDriver,Version=18.0.0.0,Culture=n' +
+        'eutral,PublicKeyToken=91d62ebb5b0d1b1b'
+      'GetDriverFunc=getSQLDriverINTERBASE'
+      'LibraryName=dbxfb.dll'
+      'LibraryNameOsx=libsqlfb.dylib'
+      'VendorLib=fbclient.dll'
+      'VendorLibWin64=fbclient.dll'
+      'VendorLibOsx=/Library/Frameworks/Firebird.framework/Firebird'
+      'Database=c:\db\arquivos.fdb'
+      'User_Name=sysdba'
+      'Password=masterkey'
+      'Role=RoleName'
+      'MaxBlobSize=-1'
+      'LocaleCode=0000'
+      'IsolationLevel=ReadCommitted'
+      'SQLDialect=3'
+      'CommitRetain=False'
+      'WaitOnLocks=True'
+      'TrimChar=False'
+      'BlobSize=-1'
+      'ErrorResourceFile='
+      'RoleName=RoleName'
+      'ServerCharSet='
+      'Trim Char=False')
+    Left = 100
+    Top = 225
+  end
 end