UCLand template files

.gitignore

+# Delphi compiler-generated binaries (safe to delete)
+*.bpl
+*.bpi
+*.dcp
+*.so
+*.apk
+*.drc
+*.map
+*.dres
+*.rsm
+*.tds
+*.lib
+*.a
+*.o
+*.ocx
+*.res
+*.dcu
+*.identcache
+*.local
+
+# Delphi autogenerated files (duplicated info)
+*.cfg
+*.hpp
+
+# Delphi history and backups
+__history/
+__recovery/
+*.~*
+
+# Other generated files

Agiliza.dpr

+program Agiliza;
+
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ELSE}
+  {$APPTYPE CONSOLE}
+{$ENDIF}
+
+
+uses
+  ActiveX,
+  acuRegisterModelMappings in 'srv\src\lib\acuRegisterModelMappings.pas',
+  ucuAgilizaMain in 'srv\src\ucu\ucuAgilizaMain.pas',
+  svuAgiliza in 'svuAgiliza.pas';
+
+begin
+  {$if declared(UseHeapTrace)}
+  if UseHeaptrace then
+  begin
+    GlobalSkipIfNoLeaks := True;
+    DeleteFile('leak.trc');
+    SetHeapTraceOutput('leak.trc');
+  end;
+  {$ifend}
+
+  CoInitialize(Nil);
+  Application.Initialize;
+  Application.Run;
+  CoUninitialize;
+end.

VersionInfo.rc

+// Version Information Resource File
+1 VERSIONINFO
+FILEVERSION 1, 0, 0, 0
+
+
+PRODUCTVERSION 1, 0, 0, 0
+//FILEFLAGS VS_FF_DEBUG | VS_FF_PRERELEASE
+FILEOS VOS__WINDOWS32
+FILETYPE VFT_APP
+{
+BLOCK "StringFileInfo"
+{
+BLOCK "041604E4"
+{
+VALUE "CompanyName", "Evológica Tecnologia e Pesquisa Ltda\000"
+VALUE "FileVersion", "1.0.0.0\000"
+VALUE "ProductName", "Agiliza\000"
+VALUE "ProductVersion", "1.0.0.0\000"
+VALUE "FrameworkVersion", "1.8.6.10\000"
+VALUE "LegalCopyright", "Copyright (C) Evológica Tecnologia e Pesquisa Ltda. Todos os direitos reservados\000"
+}
+}
+BLOCK "VarFileInfo"
+{
+VALUE "Translation", 1046, 1252
+}
+}

bin/Agiliza.config

+<?xml version="1.0" encoding="UTF-8" ?>
+<Config>
+   <Application DefaultSecurityDriver="NativeSecurityDriver" EnabledChannels="All">
+    	<Service Name="svAgiliza" DisplayName="EVOLOGICA - Agiliza" Description="Agiliza" Port="9801"/>
+      <Database ActiveConnectionString="ConnectionString1">
+        <ConnectionString1>Provider=SQLOLEDB.1;Password=conexo;Persist Security Info=True;User ID=sa;Initial Catalog=BD_CURIO_DEMO;Data Source=srvd1;Application Name=Produto;cxsqldialect=SQLServer</ConnectionString1>
+      </Database>
+      <UseXMLEncode version="1"/>
+   </Application>
+</Config>

cli/win/Agiliza_cli.dpk

+package Agiliza_cli;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO OFF}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS OFF}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO OFF}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'Evologica Agiliza'}
+{$RUNONLY}
+{$IMPLICITBUILD ON}
+{$DEFINE RELEASE}
+{$DEFINE DEBUG}
+
+requires
+  rtl,
+  CXClient,
+  vcl,
+  JvCore,
+  dbrtl,
+  vcljpg,
+  vclx,
+  JclVcl,
+  Jcl,
+  vclimg,
+  JvStdCtrls,
+  JvSystem,
+  JvMM,
+  JvControls,
+  elpackD11,
+  tee,
+  teeUI,
+  teedb,
+  vcldb,
+  JvDB,
+  JvDlgs,
+  JvCustom,
+  JvGlobus,
+  bdertl,
+  xmlrtl,
+  vclie,
+  VclSmp,
+  JvWizards;
+
+contains
+  ituAgilizaMain in 'itu\ituAgilizaMain.pas';
+
+end.

cli/win/VersionInfo.rc

+// Version Information Resource File
+1 VERSIONINFO
+FILEVERSION 1, 0, 0, 0
+
+
+PRODUCTVERSION 1, 0, 0, 0
+//FILEFLAGS VS_FF_DEBUG | VS_FF_PRERELEASE
+FILEOS VOS__WINDOWS32
+FILETYPE VFT_APP
+{
+BLOCK "StringFileInfo"
+{
+BLOCK "041604E4"
+{
+VALUE "CompanyName", "Evológica Tecnologia e Pesquisa Ltda\000"
+VALUE "FileVersion", "1.0.0.0\000"
+VALUE "ProductName", "Agiliza\000"
+VALUE "ProductVersion", "1.0.0.0\000"
+VALUE "FrameworkVersion", "1.8.6.10\000"
+VALUE "LegalCopyright", "Copyright (C) Evológica Tecnologia e Pesquisa Ltda. Todos os direitos reservados\000"
+}
+}
+BLOCK "VarFileInfo"
+{
+VALUE "Translation", 1046, 1252
+}
+}

cli/win/itu/ituAgilizaMain.pas

+unit ituAgilizaMain;
+
+interface
+
+uses
+  ituInterfaceFactory, ituMain, ituMainPortal;
+
+type
+  itAgilizaMain = class(itMainPortal)
+  protected
+    function InitialLevel: integer; override;
+  public
+    procedure Initialize; override;
+  end;
+
+var
+  gAgilizaMain: itAgilizaMain;
+
+implementation
+
+procedure itAgilizaMain.Initialize;
+begin
+  MainPortal := TMainPortal.Create(nil);
+  gAgilizaMain := Self;
+  inherited;
+end;
+
+function itAgilizaMain.InitialLevel: integer;
+begin
+  result := 0;
+end;
+
+initialization
+  gInterfaceFactory.RegisterClass(ITCTLMAIN, itAgilizaMain);
+
+finalization
+  gInterfaceFactory.UnregisterClass(ITCTLMAIN);
+
+end.

mainmenu.xml

+<?xml version="1.0" encoding="iso-8859-1"?>
+<SYSMSG>
+  <System Name="Agiliza">
+	<Menu>
+		
+	</Menu>
+  </System>
+</SYSMSG>
\ No newline at end of file

mmenu.rc

+mmenu RCDATA mainmenu.xml
\ No newline at end of file

sql/MSSQL/deploy/sql_01.sql

+-- INSERIR CODIGO SQL GERADO PELO FRAMEWORK NO STARUML
+
+

sql/MSSQL/deploy/sql_02.sql

+IF  EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID('SISBTNUMER') AND type in ('U'))
+    DROP TABLE SISBTNUMER
+
+CREATE TABLE SISBTNUMER(
+	SISBDSNUME varchar(50) PRIMARY KEY,
+	SISBNONUME int NOT NULL,
+)
+
+IF  EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID('VERSAO_BANCO') AND type in ('U'))
+    DROP TABLE VERSAO_BANCO
+
+CREATE TABLE VERSAO_BANCO (
+	ID_VERSAO_BANCO int NOT NULL PRIMARY KEY,
+	VERSAO INT NOT NULL,
+	BRANCH varchar(50) NOT NULL,
+	NOME_ARQUIVO varchar(50) NOT NULL,
+	DATA_ATUALIZACAO datetime NOT NULL,
+)

sql/MSSQL/deploy/sql_03.sql

+INSERT IESATSISTE (IESAIDSIST, IESANMSIST, IESADSSIST, IESAVERSAO, IESACDSIST, IESACDSITU) 
+VALUES (1, 'SISEG', 'Sistema de Seguranca', '1.0', 19, 'A')
+
+INSERT IESDTCATEG (IESDIDCATE, IESDNMCATE, IESDCDCATE, IESDCDSITU)
+VALUES (1, 'Processos', 1, 'A')
+
+INSERT IESOTINTER (IESOIDINTE, IESONMINTE, IESOCDINTE, IESODSINTE, IESOCDSITU)
+VALUES (1, 'itImportaConfiguracaoSistema', 183, 'itImportaConfiguracaoSistema', 'A')
+
+
+INSERT IESCTENTID (IESCIDENTI, IESCNMENTI, IESCCDENTI, IESCTIENTI, IESCCDSITU)
+VALUES (1, 'Configuracoes', 168, 'Configuracoes', 'A')
+
+INSERT IESFTCUICO (IESFIDCUIC, IESFDSCUIC, IESFCDCUIC, IESFIMCUIC, IESFCDSITU)
+VALUES (1, 'Processo', 1, null,'A')
+
+INSERT IESBTCASOU (IESBIDCASO, IESBDSCASO, IESBNMCASO, IESBCDCASO, IESBTPCASO, IESBIDCUIC, IESBIDENTI, IESBIDCATE, IESBCDSITU)
+VALUES (1, 'Importa configuracao sistema', 'Importa configuracao sistema', 1327, NULL, 1, 1, 1, 'A')
+
+INSERT IESETSISCU (IESEIDSIST, IESEIDCASO, IESEIDSISC, IESECDSITU)
+VALUES (1, 1, 1, 'A')
+
+INSERT IESJTOPERA (IESJIDOPER, IESJDSOPER, IESJCDOPER, IESJCDSITU)
+VALUES (1, 'Executar', 5, 'A')
+
+INSERT IESPTSISIN (IESPIDSISI, IESPIDCASO, IESPIDSIST, IESPIDINTE, IESPCDSITU) 
+VALUES (1, 1, 1, 1, 'A')
+
+INSERT IESGTCUOPE (IESGIDCUOP, IESGIDCASO, IESGIDOPER, IESGCDSITU) 
+VALUES (1, 1, 1, 'A')
+
+INSERT SEGDTNAUSU (SEGDIDNAUS, SEGDCDNAUS, SEGDDSNAUS) 
+VALUES (1, 0, 'ADMINISTRADOR')
+
+INSERT SEGDTNAUSU (SEGDIDNAUS, SEGDCDNAUS, SEGDDSNAUS)
+VALUES (2, 3, 'OUTROS')
+
+INSERT SEGETSINAU (SEGEIDSIST, SEGEIDNAUS)
+VALUES (1, 1)
+
+INSERT SEGATUSUAR (SEGAIDUSUA, SEGACDUSUA, SEGASENHAU, SEGADTULSE, SEGADTCADU, SEGAINCANC, SEGACDHERA, SEGACDREFE, SEGAIDNAUS, SEGAFORMSE, SEGASALTSE, SEGAMOBILE, SEGAEEMAIL, SEGALEMAIL, SEGASENHAQ, SEGASENHAA, SEGABLOQUE, SEGAULTLGN, SEGAULTBLQ, SEGAFSACOU, SEGAFSAWST, SEGAFSAACO, SEGAFSAAWS, SEGACOMMEN, SEGAULTACT, SEGAPRSETC) 
+VALUES (1, 'Administrador', '', NULL, CAST(0x00009BBE00000000 AS DateTime), 'N', -6, NULL, 1, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL)
\ No newline at end of file

srv/src/ucu/ucuAgilizaMain.pas

+unit ucuAgilizaMain;
+
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
+interface
+
+uses
+  ucuMain;
+
+type
+  ucAgilizaMain = class(ucMain)
+  protected
+   function GetGUIXML(piLevel: Integer): string; override;
+  private
+end;
+
+implementation
+
+uses
+  SysUtils, ucuManager, Classes;
+
+function ucAgilizaMain.GetGUIXML(piLevel: Integer): string;
+var
+  lStream: TResourceStream;
+  lResult: TStringStream;
+begin
+  lStream := TResourceStream.Create(HInstance, 'mmenu', PChar(10));
+  try
+    lResult := TStringStream.Create('');
+    try
+      lResult.CopyFrom(lStream, lStream.Size);
+      Result := lResult.DataString;
+    finally
+      lResult.Free;
+    end;
+  finally
+    lStream.Free;
+  end;
+end;
+
+initialization
+
+  gucManager.RegisterClass(1, ucAgilizaMain);
+
+end.
+

svuAgiliza.pas

+unit svuAgiliza;
+
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
+interface
+
+uses acuServiceApplication, acuRepositorySQL, acuModel;
+
+type
+  svAgiliza = class(acServiceApplication)
+  private
+    fModel: acMetaModel;
+    fMetaModelPersistenceMap: acMetaModelPersistenceMapSQL;
+
+  protected
+    procedure DoInitialize; override;
+    procedure DoStart; override;
+    procedure DoStop; override;
+    procedure DoPause; override;
+    procedure DoContinue; override;
+    procedure DoCheck; override;
+  end;
+
+  function Application: svAgiliza;
+
+implementation
+
+uses
+  {$IFDEF FPC} acuQuerySQLODBC, {$ELSE} acuQuerySQLADO, {$ENDIF}
+  acuObject, acuSystemConfig, acuRegisterModelMappings,
+  acuFramework, acuSystemCurrentConfig;
+
+var
+  FApplication: svAgiliza;
+
+function Application: svAgiliza;
+begin
+  if not Assigned(FApplication)
+    then FApplication := svAgiliza.Create(Nil);
+  Result := FApplication;
+end;
+
+
+{ svAgiliza }
+
+procedure svAgiliza.DoCheck;
+const INCOSISTENCIA: String = 'Inconsistência(s) encontrada(s) na implementação do modelo:';
+begin
+  inherited;
+end;
+
+procedure svAgiliza.DoContinue;
+begin
+  inherited;
+end;
+
+procedure svAgiliza.DoInitialize;
+begin
+  inherited;
+
+  acSystemConfig.Instance.Load(acUtils.ChangeFileExt(ParamStr(0), '.config'));
+  acSystemCurrentConfig.Instance.LoadFrom(acSystemConfig.Instance);
+
+  fModel := acuModel.acMetaModel.Create(PersistenceManager.ModelImplementation);
+  fMetaModelPersistenceMap := acMetaModelPersistenceMapSQL.Create(fModel);
+
+  acRepositorySQL.DefaultDatabaseDriver := typeof({$IFDEF FPC} acuQuerySQLODBC.acDatabaseSQLODBC {$ELSE} acuQuerySQLADO.acDatabaseSQLADO {$ENDIF});
+
+  PersistenceManager.RegisterModelMapping(fMetaModelPersistenceMap);
+
+  acuRegisterModelMappings.RegisterModelMappings(fMetaModelPersistenceMap);
+  PersistenceManager.Initialize;
+
+  acPersistenceManager.Instance.DefaultConnetionString := acSystemConfig.Instance.ParamByName('Application.Database.' + acSystemConfig.Instance.ParamByName('Application.Database.@ActiveConnectionString'));
+end;
+
+procedure svAgiliza.DoPause;
+begin
+  inherited;
+
+end;
+
+procedure svAgiliza.DoStart;
+begin
+  inherited;
+
+end;
+
+procedure svAgiliza.DoStop;
+begin
+  inherited;
+end;
+
+initialization
+
+finalization
+  Application.Free;
+
+end.

testeObjPascalAgiliza.txt

+Teste do UCLand
+
+Agiliza
+
+Agiliza
+
+9801
+