Generación del paquete de instalación y actualización por Internet.

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@126 f4e31baf-9722-1c47-927c-6f952f962d4b

Build/Installer.fbv

@@ -0,0 +1 @@
+<variables><project_path><![CDATA[C:\Codigo Acana]]></project_path></variables>

Installer/factuges.iss

@@ -0,0 +1,62 @@
+[Setup]
+AppID={code:GetAppID|''}
+AppName=FactuGES2
+AppVerName=FactuGES2 v{code:GetAppVersion}
+AppPublisher=Rodax Software S.L.
+AppPublisherURL=http://www.rodax-software.com
+AppSupportURL=http://www.rodax-software.com
+AppUpdatesURL=http://www.rodax-software.com
+DefaultDirName={sd}\Rodax Software\FactuGES2
+DefaultGroupName=FactuGES2
+AllowNoIcons=true
+OutputDir=Output
+OutputBaseFilename=factuges2setup
+Compression=lzma
+SolidCompression=true
+InfoBeforeFile=
+InternalCompressLevel=ultra
+MinVersion=0,5.01.2600
+
+[Languages]
+Name: spanish; MessagesFile: compiler:Languages\Spanish.isl
+
+[Tasks]
+Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}
+Name: quicklaunchicon; Description: {cm:CreateQuickLaunchIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked
+
+[Files]
+Source: Input\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs; Excludes: version.dat
+Source: Input\update.ico; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs
+Source: Input\version.dat; DestDir: {tmp}; Flags: dontcopy
+; NOTE: Don't use "Flags: ignoreversion" on any shared system files
+
+[Icons]
+Name: {group}\FactuGES2; Filename: {app}\FactuGES.exe; WorkingDir: {app}
+Name: {userdesktop}\FactuGES2; Filename: {app}\FactuGES.exe; Tasks: desktopicon; WorkingDir: {app}; Languages: 
+Name: {group}\Comprobar actualizaciones; Filename: {app}\FactuGES.exe; WorkingDir: {app}; Parameters: CheckNow; Comment: Comprobar si hay nuevas actualizaciones de FactuGES2; IconFilename: {app}\update.ico
+Name: {group}\{cm:UninstallProgram,FactuGES2}; Filename: {uninstallexe}
+
+[Run]
+Filename: {app}\FactuGES.exe; Description: {cm:LaunchProgram,FactuGES2}; Flags: nowait postinstall skipifsilent
+
+[Registry]
+Root: HKLM; Subkey: Software\Rodax Software; ValueType: string; ValueName: Version; ValueData: {code:GetAppVersion|''}; Flags: uninsdeletekey
+
+[LangOptions]
+LanguageName=Spanish
+LanguageID=$0C0A
+
+[Code]
+function GetAppVersion(param: String): String;
+	var
+		AppVersion: String;
+	begin
+		ExtractTemporaryFile('version.dat');
+		LoadStringFromFile(ExpandConstant('{tmp}\version.dat'), AppVersion);
+		Result := AppVersion;
+	end;
+
+function GetAppID(param: String): String;
+	begin
+		Result := 'FactuGES2';
+	end;

Installer/librerias.txt

@@ -0,0 +1,75 @@
+ccpackD11.bpl
+cfpack_d11.bpl
+cxDataD11.bpl
+cxEditorsD11.bpl
+cxExportD11.bpl
+cxExtEditorsD11.bpl
+cxGridD11.bpl
+cxIntl6D11.bpl
+cxIntlPrintSys3D11.bpl
+cxLibraryD11.bpl
+cxPageControlD11.bpl
+DataAbstract_Core_D11.bpl
+dclcxLibraryD11.bpl
+dxBarD11.bpl
+dxBarExtItemsD11.bpl
+dxComnD11.bpl
+dxGDIPlusD11.bpl
+dxLayoutControlD11.bpl
+dxPSCoreD11.bpl
+dxPScxCommonD11.bpl
+dxPScxGrid6LnkD11.bpl
+dxPSLnksD11.bpl
+dxPsPrVwAdvD11.bpl
+dxThemeD11.bpl
+frx11.bpl
+frxe11.bpl
+frxTee11.bpl
+fs11.bpl
+fsTee11.bpl
+GUISDK_D11.bpl
+Jcl110.bpl
+JclVcl110.bpl
+JSDialog100.bpl
+JvAppFrmD11R.bpl
+JvCmpD11R.bpl
+JvCoreD11R.bpl
+JvCtrlsD11R.bpl
+JvCustomD11R.bpl
+JvDlgsD11R.bpl
+JvGlobusD11R.bpl
+JvJansD11R.bpl
+JvMMD11R.bpl
+JvPageCompsD11R.bpl
+JvStdCtrlsD11R.bpl
+JvSystemD11R.bpl
+pckMD5.bpl
+pckUCDataConnector.bpl
+pckUserControl_RT.bpl
+PluginSDK_D10R.bpl
+PngComponentsD10.bpl
+PNG_D10.bpl
+RemObjects_Core_D11.bpl
+tb2k_d10.bpl
+tbx_d10.bpl
+
+adortl100.bpl
+bdertl100.bpl
+dbrtl100.bpl
+dclIndyCore100.bpl
+designide100.bpl
+dsnap100.bpl
+IndyCore100.bpl
+IndyProtocols100.bpl
+IndySystem100.bpl
+rtl100.bpl
+tee7100.bpl
+teeUI7100.bpl
+vcl100.bpl
+vclactnband100.bpl
+vcldb100.bpl
+vcljpg100.bpl
+vclshlctrls100.bpl
+vclsmp100.bpl
+vclx100.bpl
+xmlrtl100.bpl

RodaxSoftware.FactuGES.proj

@@ -18,6 +18,7 @@
      <PropertyGroup>
 		<FBScriptFolder>$(MSBuildProjectDirectory)\Build</FBScriptFolder>
         <CodeFolder>$(MSBuildProjectDirectory)\Source</CodeFolder>
+        <InstallerFolder>$(MSBuildProjectDirectory)\Installer</InstallerFolder>
         <SqlFolder>$(MSBuildProjectDirectory)\Database</SqlFolder>
         <LibFolder>$(MSBuildProjectDirectory)\Lib</LibFolder>
         <InstallFolder>$(MSBuildProjectDirectory)\Install</InstallFolder>
@@ -127,13 +128,15 @@
      <PropertyGroup>
         <CleanDependsOn>
            $(CleanDependsOn);
-		    CleanDatabase
+		    	 CleanDatabase
            CleanCode
+           CleanInstaller
         </CleanDependsOn>
      </PropertyGroup>
   
      <ItemGroup>
-		<FBScriptFile Include="$(FBScriptFolder)\Build.fbp5" />
+		 		<FBBuildScriptFile Include="$(FBScriptFolder)\Build.fbp5" />
+		 		<FBInstallerScriptFile Include="$(FBScriptFolder)\Installer.fbp5" />
 		
         <SqlProjects Include="$(SqlFolder)\**\*.proj"/>
        
@@ -144,7 +147,7 @@
                     "tester1@sanlam.co.za;
                      tester2@sanlam.co.za" />
 					 
-		<FilesToDelete Include="$(CodeFolder)\**\*.dcu;
+		<BuildFilesToDelete Include="$(CodeFolder)\**\*.dcu;
 								$(CodeFolder)\**\*.dcp;
 								$(CodeFolder)\**\*.map;
 								$(CodeFolder)\**\*.dsk;
@@ -153,6 +156,10 @@
 								$(CodeFolder)\**\*.drc;
 								$(OutputPath)\**\*.*" 
 					   Exclude="$(OutputPath)\Database\*"/>
+					   
+		<InstallerFilesToDelete Include="$(InstallerFolder)\Input\*.*;
+								$(InstallerFolder)\Output\*.*"/>
+					   
 	</ItemGroup>
 
 
@@ -183,11 +190,19 @@
 
 	 
    <Target Name="BuildCode">
-	  <Exec Command="$(DOUBLE_QUOTES)$(FinalBuilderCmd)$(DOUBLE_QUOTES) /p$(DOUBLE_QUOTES)@(FBScriptFile)$(DOUBLE_QUOTES) /b /c /s" />
+	  <Exec Command="$(DOUBLE_QUOTES)$(FinalBuilderCmd)$(DOUBLE_QUOTES) /p$(DOUBLE_QUOTES)@(FBBuildScriptFile)$(DOUBLE_QUOTES) /b /c /s" />
+   </Target>
+
+   <Target Name="BuildInstaller">
+	  <Exec Command="$(DOUBLE_QUOTES)$(FinalBuilderCmd)$(DOUBLE_QUOTES) /p$(DOUBLE_QUOTES)@(FBInstallerScriptFile)$(DOUBLE_QUOTES) /b /c /s" />
    </Target>
 	
    <Target Name="CleanCode">
-		<Delete Files="@(FilesToDelete)" ContinueOnError="false" />
+		<Delete Files="@(BuildFilesToDelete)" ContinueOnError="false" />
+   </Target>
+
+   <Target Name="CleanInstaller">
+		<Delete Files="@(InstallerFilesToDelete)" ContinueOnError="false" />
    </Target>
 	
 	
@@ -207,10 +222,10 @@
 	</Target>	 
 	 
 	<Target Name="BuildAll"
-		DependsOnTargets="BuildDatabase;BuildCode;BuildTests"/>
+		DependsOnTargets="BuildDatabase;BuildCode;BuildTests;BuildInstaller"/>
 		
 	<Target Name="CleanAll"
-		DependsOnTargets="CleanDatabase;CleanCode"/>
+		DependsOnTargets="CleanDatabase;CleanCode;CleanInstaller"/>
 
 	<Target Name="Rebuild"
 		DependsOnTargets="CleanCode;BuildCode"/>
@@ -224,12 +239,14 @@
 	    <Message Text="$(TAB)-> BuildDatabase$(TAB) - Generar la base de datos" />
 	    <Message Text="$(TAB)-> BuildCode$(TAB)$(TAB) - Compilar el codigo" />
 	    <Message Text="$(TAB)-> BuildTests$(TAB)$(TAB) - Sin uso" />
+	    <Message Text="$(TAB)-> BuildInstaller$(TAB)$(TAB) - Generar programa de instalacion" />
 
 		<Message Text=" " />
 
 		<Message Text="-> CleanAll" />
 	    <Message Text="$(TAB)-> CleanDatabase$(TAB) - Borrar la base de datos" />
 	    <Message Text="$(TAB)-> CleanCode$(TAB)$(TAB) - Borrar todo el codigo compilado (dcu, dcp, bpl y exe)" />
+	    <Message Text="$(TAB)-> CleanInstaller$(TAB)$(TAB) - Borrar el instalador generado y todos los ficheros de la aplicacion que contiene" />    
 	 
 		<Message Text=" " />
 

Source/Cliente/Cliente_Group.groupproj

@@ -0,0 +1,44 @@
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{a42faab9-2ce3-4c59-ad73-1f00ceb51bad}</ProjectGuid>
+  </PropertyGroup>
+  <ItemGroup />
+  <ItemGroup>
+    <Projects Include="..\Base\Base.dproj" />
+    <Projects Include="FactuGES.dproj" />
+  </ItemGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Default.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+  <BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Target Name="Base">
+    <MSBuild Projects="..\Base\Base.dproj" Targets="" />
+  </Target>
+  <Target Name="Base:Clean">
+    <MSBuild Projects="..\Base\Base.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="Base:Make">
+    <MSBuild Projects="..\Base\Base.dproj" Targets="Make" />
+  </Target>
+  <Target Name="FactuGES">
+    <MSBuild Projects="FactuGES.dproj" Targets="" />
+  </Target>
+  <Target Name="FactuGES:Clean">
+    <MSBuild Projects="FactuGES.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="FactuGES:Make">
+    <MSBuild Projects="FactuGES.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Build">
+    <CallTarget Targets="Base;FactuGES" />
+  </Target>
+  <Target Name="Clean">
+    <CallTarget Targets="Base:Clean;FactuGES:Clean" />
+  </Target>
+  <Target Name="Make">
+    <CallTarget Targets="Base:Make;FactuGES:Make" />
+  </Target>
+  <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
+</Project>

Source/Cliente/FactuGES.dproj

@@ -53,7 +53,15 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType>VCLApplication</Borland.ProjectType>
     <BorlandProject>
-<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.1.4</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">4</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.1.4.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.1.4</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+      
+      
+      
+      
+      
+      
+      
+      
       <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD10.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
       <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\PluginSDK_D10R.bpl">PluginSDK for Delphi 10 (Runtime)</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>

Source/Cliente/FactuGES.rc

@@ -1,7 +1,7 @@
 MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico"
 1 VERSIONINFO
-FILEVERSION 1,0,0,0
+FILEVERSION 2,1,4,0
-PRODUCTVERSION 1,0,0,0
+PRODUCTVERSION 2,1,4,0
 FILEFLAGSMASK 0x3FL
 FILEFLAGS 0x00L
 FILEOS 0x40004L
@@ -13,7 +13,7 @@ BEGIN
          BLOCK "0C0A04E4"
          BEGIN
               VALUE "CompanyName", "Rodax Software S.L.\0"
-              VALUE "FileVersion", "1.0.0.0\0"
+              VALUE "FileVersion", "2.1.4.0\0"
               VALUE "InternalName", "FactuGES\0"
               VALUE "ProductName", "FactuGES\0"
               VALUE "ProductVersion", "2.1.4\0"

Source/Servidor/FactuGES_Server.rc

@@ -14,7 +14,7 @@ BEGIN
          BEGIN
               VALUE "FileVersion", "1.0.0.0\0"
               VALUE "ProductVersion", "1.0.0.0\0"
-              VALUE "CompileDate", "martes, 29 de enero de 2008 20:19\0"
+              VALUE "CompileDate", "viernes, 01 de febrero de 2008 18:40\0"
          END
     END
     BLOCK "VarFileInfo"