Archivado/LuisLeon_FactuGES
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Repaso

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@261 c93665c3-c93d-084d-9b98-7d5f4a9c3376
This commit is contained in:
David Arranz 2008-06-20 17:32:24 +00:00
parent a6c0447a65
commit 817c4fc88f
17 changed files with 133 additions and 660 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

546
Build/Build.fbp5
View File

@ -579,7 +579,7 @@ source_path
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property MultiValue="0" name="ProjectFile" type="WideString">%source_path%\Servidor\FactuGES_Server.dpr</Property>
<Property name="RegenerateResource" type="WordBool">True</Property>
<Property name="ReleaseVersion" type="Integer">0</Property>
<Property name="ReleaseVersion" type="Integer">2</Property>
<Property MultiValue="0" name="ResourceCompilerOptions" type="string"></Property>
<Property MultiValue="0" name="ResourceCompilerPath" type="string"></Property>
<Property name="ResourceCompilerType" type="TFBDelphiResourceCompiler">rcBorland</Property>
@ -594,15 +594,15 @@ source_path
<Property name="UseVersionFromDOF" type="Boolean">True</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=Rodax Software S.L.
FileDescription=
FileVersion=3.0.0.0
FileVersion=3.0.2.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=FactuGES Server
ProductVersion=3.0.0.0
ProductVersion=3.0.2.0
Comments=
CompileDate=jueves, 29 de mayo de 2008 19:41
CompileDate=
]]>
</Property>
<Property MultiValue="0" name="VersionInfoPropertySetName" type="string"></Property>
@ -20604,7 +20604,7 @@ Comments=
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property MultiValue="0" name="ProjectFile" type="WideString">%source_path%\Cliente\FactuGES.dpr</Property>
<Property name="RegenerateResource" type="WordBool">True</Property>
<Property name="ReleaseVersion" type="Integer">0</Property>
<Property name="ReleaseVersion" type="Integer">2</Property>
<Property MultiValue="0" name="ResourceCompilerOptions" type="string"></Property>
<Property MultiValue="0" name="ResourceCompilerPath" type="string"></Property>
<Property name="ResourceCompilerType" type="TFBDelphiResourceCompiler">rcBorland</Property>
@ -20619,13 +20619,13 @@ Comments=
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=Rodax Software S.L.
FileDescription=
FileVersion=3.0.0.0
FileVersion=3.0.2.0
InternalName=FactuGES
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=3.0.0.0
ProductVersion=3.0.2.0
Comments=
]]>
</Property>
@ -20697,7 +20697,7 @@ Comments=
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property MultiValue="1" name="Description" type="string"><![CDATA[Comprimir ejecutables]]>
</Property>
<Property name="Enabled" type="WordBool">False</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
@ -20786,7 +20786,7 @@ Comments=
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property MultiValue="1" name="Description" type="string"><![CDATA[Copiar informes]]>
</Property>
<Property name="Enabled" type="WordBool">False</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
@ -20847,534 +20847,6 @@ Comments=
<Property name="XCopyMode" type="TFBXCopyMode">mdNormal</Property>
</Object>
</Object>
<Object Class="TGroupAction" XMLID="{788E9270-2058-4F73-A546-7486FA812A7B}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Generar actualización]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property MultiValue="1" name="Description" type="string"><![CDATA[Generar actualización]]>
</Property>
<Property name="Enabled" type="WordBool">False</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Object Class="TDeleteFilesAction" XMLID="{7D26BBE2-283F-4139-9BD5-E8C09D3C4D80}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Borrar ficheros en el directorio Update]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property name="DeleteHidden" type="WordBool">True</Property>
<Property name="DeleteReadOnly" type="WordBool">True</Property>
<Property MultiValue="1" name="Description" type="string"><![CDATA[Borrar ficheros en el directorio Update]]>
</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="FailIfNoFile" type="WordBool">False</Property>
<Property MultiValue="0" name="FileSpec" type="string">%output_path%\Update\*.*</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
</Object>
<Object Class="TGroupAction" XMLID="{ADE0103F-8617-4F17-B806-3D100E95429C}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Copiar ficheros del cliente]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property MultiValue="1" name="Description" type="string"><![CDATA[Copiar ficheros del cliente]]>
</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Object Class="TCopyFilesAction" XMLID="{0F159B49-BB25-479C-A20C-73FCA2E4997B}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Copy File(s) [ %output_path%\Cliente\FactuGES.exe ]]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property name="ClearAttributes" type="WordBool">False</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="FailIfExists" type="WordBool">False</Property>
<Property name="FailIfZeroFiles" type="WordBool">True</Property>
<Property MultiValue="0" name="FileSpec" type="WideString">%output_path%\Cliente\FactuGES.exe</Property>
<Property name="Force" type="WordBool">True</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="OverwriteReadOnly" type="WordBool">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="Recurse" type="WordBool">False</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Property MultiValue="0" name="Target" type="WideString">%output_path%\Update\_factuges.exe</Property>
<Property name="TargetIsDir" type="WordBool">False</Property>
</Object>
<Object Class="TFBXCopyAction" XMLID="{1C12EC8F-2C07-4BA8-8775-5B17FB32B7E7}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Copy File(s) [ %output_path%\Cliente\*.bpl ]]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property name="ChangedAfterDate" type="TDate">39449</Property>
<Property name="CopyAttributes" type="Boolean">False</Property>
<Property name="CopyEmptyDirectories" type="Boolean">False</Property>
<Property name="CopyEncryptedIfNotSupportedInDest" type="Boolean">False</Property>
<Property name="CopyFileAuditSettings" type="Boolean">False</Property>
<Property name="CopyFilesChnagedAfter" type="Boolean">False</Property>
<Property name="CopyHiddenAndSys" type="Boolean">False</Property>
<Property name="CopyNetworkedFiles" type="Boolean">False</Property>
<Property name="CopyNewerFiles" type="Boolean">False</Property>
<Property name="CopyOwnershipAndACL" type="Boolean">False</Property>
<Property name="CopyUsingShortNames" type="Boolean">False</Property>
<Property MultiValue="1" name="Description" type="string"><![CDATA[Copy File(s) [ %output_path%\Cliente\*.bpl ]]]>
</Property>
<Property MultiValue="0" name="Destination" type="string">%output_path%\Update\</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="EnableTimeout" type="Boolean">False</Property>
<Property name="ExcludeFiles" type="TStrings"><![CDATA[]]>
</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property MultiValue="0" name="ExtraCmdLineParamsAtEnd" type="string"></Property>
<Property MultiValue="0" name="ExtraCmdLineParamsAtStart" type="string"></Property>
<Property name="IgnoreErrors" type="Boolean">False</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property MultiValue="0" name="ImpersonateToken" type="string"></Property>
<Property name="ImpersonateUser" type="Boolean">False</Property>
<Property MultiValue="0" name="ImpersonateUserName" type="string"></Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="OnlyArchiveFiles" type="Boolean">False</Property>
<Property name="OnlyFilesThatAlreadyExist" type="Boolean">False</Property>
<Property name="OverwriteReadOnly" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="ProcessorAffinity" type="Cardinal">0</Property>
<Property name="ProcessPriority" type="TFBExecuteThreadPriority">tpNormal</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property MultiValue="0" name="Source" type="string">%output_path%\Cliente\*.bpl</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Property name="TerminateOnTimeout" type="Boolean">True</Property>
<Property name="TimeoutLength" type="Cardinal">2</Property>
<Property name="TurnOffArchiveBit" type="Boolean">False</Property>
<Property name="Verify" type="Boolean">False</Property>
<Property name="XCopyLogMode" type="TFBXCopyLogMode">logQuiet</Property>
<Property name="XCopyMode" type="TFBXCopyMode">mdNormal</Property>
</Object>
<Object Class="TCopyFilesAction" XMLID="{53A07361-84A5-4181-9061-A11DAB42A367}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Copy File(s) [ %updater_path%\UpdateClient\FactuGES.exe ]]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property name="ClearAttributes" type="WordBool">False</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="FailIfExists" type="WordBool">False</Property>
<Property name="FailIfZeroFiles" type="WordBool">True</Property>
<Property MultiValue="0" name="FileSpec" type="WideString">%updater_path%\UpdateClient\FactuGES.exe</Property>
<Property name="Force" type="WordBool">True</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="OverwriteReadOnly" type="WordBool">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="Recurse" type="WordBool">False</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Property MultiValue="0" name="Target" type="WideString">%output_path%\Update\</Property>
<Property name="TargetIsDir" type="WordBool">True</Property>
</Object>
</Object>
<Object Class="TFBExtractFileVerInfoAction" XMLID="{18A1A7F9-AE18-4FEA-9D01-ADFC77249280}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Extract Version Info]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property MultiValue="0" name="FBVariable" type="string"></Property>
<Property MultiValue="0" name="FileName" type="string">%output_path%\Update\_factuges.exe</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Property name="VerInfoList" type="TStrings"><![CDATA[FileVersion=factugesupd_version
]]>
</Property>
</Object>
<Object Class="TGroupAction" XMLID="{EDDDD3ED-0D87-443E-8A44-0BF1B2ECD9AE}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Action Group]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property name="Enabled" type="WordBool">False</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Object Class="TGroupAction" XMLID="{905318FE-DE3A-4FD9-BDE8-5A03C053A509}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Crear fichero comprimido]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property MultiValue="1" name="Description" type="string"><![CDATA[Crear fichero comprimido]]>
</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Object Class="TFB7zipCreateArchiveAction" XMLID="{9B163D9F-3E99-4517-93CE-400F33C2ACCF}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Create 7-Zip Archive [ FactuGES_%factugesupd_version%.7zip ]]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property MultiValue="0" name="ArchiveName" type="string">FactuGES_%factugesupd_version%.7zip</Property>
<Property name="ArchiveType" type="T7ZipArchiveType">z7z</Property>
<Property name="CompressionLevel" type="T7ZipCompressLevel">clUltra</Property>
<Property name="CreateSFXArchive" type="Boolean">False</Property>
<Property MultiValue="1" name="Description" type="string"><![CDATA[Create 7-Zip Archive [ FactuGES_%factugesupd_version%.7zip ]]]>
</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="EnableTimeout" type="Boolean">False</Property>
<Property name="ExcludeFiles" type="TStrings"><![CDATA[]]>
</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property MultiValue="0" name="ExtraCmdLineParamsAtEnd" type="string"></Property>
<Property MultiValue="0" name="ExtraCmdLineParamsAtStart" type="string"></Property>
<Property name="FilesList" type="TStrings"><![CDATA[*.bpl
*.exe
]]>
</Property>
<Property name="IfArchiveExists" type="TIfArchiveExistsOption">exUpdate</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property MultiValue="0" name="ImpersonateToken" type="string"></Property>
<Property name="ImpersonateUser" type="Boolean">False</Property>
<Property MultiValue="0" name="ImpersonateUserName" type="string"></Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="Multithreaded" type="Boolean">True</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="ProcessorAffinity" type="Cardinal">0</Property>
<Property name="ProcessPriority" type="TFBExecuteThreadPriority">tpNormal</Property>
<Property name="Recurse" type="T7ZipRecurse">zrOn</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property MultiValue="0" name="RootDirectory" type="string">%output_path%\Update</Property>
<Property name="SolidMode" type="Boolean">True</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Property name="TerminateOnTimeout" type="Boolean">True</Property>
<Property name="TimeoutLength" type="Cardinal">2</Property>
<Property MultiValue="0" name="Token" type="string"></Property>
<Property MultiValue="0" name="WorkingDir" type="string">%TEMP%</Property>
</Object>
<Object Class="TDeleteFilesAction" XMLID="{4C4F0D0E-CB23-4C35-93E8-BB8636FC83D2}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Borrar *.exe en el directorio Update]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property name="DeleteHidden" type="WordBool">True</Property>
<Property name="DeleteReadOnly" type="WordBool">True</Property>
<Property MultiValue="1" name="Description" type="string"><![CDATA[Borrar *.exe en el directorio Update]]>
</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="FailIfNoFile" type="WordBool">False</Property>
<Property MultiValue="0" name="FileSpec" type="string">%output_path%\Update\*.exe</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
</Object>
<Object Class="TDeleteFilesAction" XMLID="{85CA0B10-DE6A-4F19-A003-0C5F155FD2D9}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Borrar *.bpl en el directorio Update]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property name="DeleteHidden" type="WordBool">True</Property>
<Property name="DeleteReadOnly" type="WordBool">True</Property>
<Property MultiValue="1" name="Description" type="string"><![CDATA[Borrar *.bpl en el directorio Update]]>
</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="FailIfNoFile" type="WordBool">False</Property>
<Property MultiValue="0" name="FileSpec" type="string">%output_path%\Update\*.bpl</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
</Object>
</Object>
<Object Class="TCopyFilesAction" XMLID="{415DCF86-C87F-4640-B9E2-A7CE2B29EDC2}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Copy File(s) [ %project_path%\Tools\7z.exe ]]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property name="ClearAttributes" type="WordBool">False</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="FailIfExists" type="WordBool">False</Property>
<Property name="FailIfZeroFiles" type="WordBool">True</Property>
<Property MultiValue="0" name="FileSpec" type="WideString">%project_path%\Tools\7z.exe</Property>
<Property name="Force" type="WordBool">True</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="OverwriteReadOnly" type="WordBool">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="Recurse" type="WordBool">False</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Property MultiValue="0" name="Target" type="WideString">%output_path%\Update\</Property>
<Property name="TargetIsDir" type="WordBool">True</Property>
</Object>
<Object Class="TFBCreateTextFileAction" XMLID="{AB493159-3049-429A-8645-E8C62FF28495}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Create Text File [ update.bat ]]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property name="CreateDirectory" type="Boolean">True</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property MultiValue="1" name="FileContents" type="string"><![CDATA[@"%output_path%\Update\7z.exe" x FactuGES_%factugesupd_version%.7zip -o.. -y]]>
</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property MultiValue="0" name="NewFileName" type="string">%output_path%\Update\update.bat</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="OverwriteExisting" type="Boolean">True</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
</Object>
<Object Class="TFBGetFileSizeAction" XMLID="{81AED9E6-FB62-4F69-9CA7-2B1D4A09215C}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Get File Size]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property MultiValue="0" name="FileName" type="string">%output_path%\Update\FactuGES_%factugesupd_version%.7zip</Property>
<Property MultiValue="0" name="FileSetName" type="string"></Property>
<Property MultiValue="0" name="FormattedSizeVariable" type="string"></Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Property name="UseFileSet" type="Boolean">False</Property>
<Property MultiValue="0" name="ValueInBytesVariable" type="string">factugesupd_size</Property>
</Object>
<Object Class="TFBGetFileSizeAction" XMLID="{7BF1804C-0F94-4277-BCAB-D9C9D9F47CDE}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Get File Size]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property MultiValue="0" name="FileName" type="string">%output_path%\Update\7z.exe</Property>
<Property MultiValue="0" name="FileSetName" type="string"></Property>
<Property MultiValue="0" name="FormattedSizeVariable" type="string"></Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Property name="UseFileSet" type="Boolean">False</Property>
<Property MultiValue="0" name="ValueInBytesVariable" type="string">7zipexe_size</Property>
</Object>
<Object Class="TFBGetFileSizeAction" XMLID="{D5F16D62-3F5A-47DB-91B5-3EDE1875EE78}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Get File Size]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property MultiValue="0" name="FileName" type="string">%output_path%\Update\update.bat</Property>
<Property MultiValue="0" name="FileSetName" type="string"></Property>
<Property MultiValue="0" name="FormattedSizeVariable" type="string"></Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Property name="UseFileSet" type="Boolean">False</Property>
<Property MultiValue="0" name="ValueInBytesVariable" type="string">updatebat_size</Property>
</Object>
<Object Class="TGroupAction" XMLID="{7A508BE7-D844-4776-BEFB-0605C5A7D755}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Generar XML de actualización]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property MultiValue="1" name="Description" type="string"><![CDATA[Generar XML de actualización]]>
</Property>
<Property name="Enabled" type="WordBool">False</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Object Class="TFBXMLDefineAction" XMLID="{4E5E7086-8375-41FF-88ED-74854E268016}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Define XML Document [UpdateConfig.xml]]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property MultiValue="0" name="DefaultNamespaceIdentifier" type="string"></Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="ExpandDocumentNodeNamespace" type="Boolean">False</Property>
<Property MultiValue="0" name="ExtraNamespaces" type="string"></Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="ParserVer" type="TParserVer">HighestMSXML</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="ResolveExternal" type="Boolean">True</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Property name="ValidateOnParse" type="Boolean">True</Property>
<Property name="XMLDocSource" type="TXMLDocSource">sxText</Property>
<Property MultiValue="0" name="XMLDocumentName" type="string">UpdateConfig.xml</Property>
<Property name="XMLObject" type="IFBXMLObject" XMLID="{067E46B1-7F23-4CD5-9766-EC75E9883AD8}"/>
<Property MultiValue="0" name="XMLSourceFile" type="string"></Property>
<Property MultiValue="1" name="XMLText" type="string"><![CDATA[&lt;UpdatePlus&gt;
&lt;FileList&gt;
&lt;Directory Name="&amp;lt;ApplicationDir&amp;gt;"&gt;
&lt;Directory Name="updates"&gt;
&lt;File Name="FactuGES_%factugesupd_version%.7zip" Size="%factugesupd_size%"/&gt;
&lt;File Name="7z.exe" Size="%7zipexe_size%"/&gt;
&lt;File Name="update.bat" Size="%updatebat_size%"/&gt;
&lt;/Directory&gt;
&lt;/Directory&gt;
&lt;/FileList&gt;
&lt;Execute&gt;
&lt;RunAt Name="OnUpdateProcessComplete"&gt;
&lt;Execute Name="&amp;lt;ApplicationDir&amp;gt;\updates\update.bat" WaitForProcess="True" /&gt;
&lt;/RunAt&gt;
&lt;/Execute&gt;
&lt;ShellExec purpose="Backwards compatibility only"&gt;
&lt;Execute Point="4" File="&amp;lt;ApplicationDir&amp;gt;\updates\update.bat" WaitForProcess="True" /&gt;
&lt;/ShellExec&gt;
&lt;CompanyEmail&gt;info@rodax-software.com&lt;/CompanyEmail&gt;
&lt;Restart&gt;Automatic&lt;/Restart&gt;
&lt;UpdateType&gt;Silent&lt;/UpdateType&gt;
&lt;UpdateVersion&gt;%factugesupd_version%&lt;/UpdateVersion&gt;
&lt;/UpdatePlus&gt;]]>
</Property>
<Object Class="TFBXMLObject" XMLID="{067E46B1-7F23-4CD5-9766-EC75E9883AD8}"><Property MultiValue="0" name="Name" type="string">UpdateConfig.xml</Property>
</Object>
</Object>
<Object Class="TFBXMLSaveDocumentAction" XMLID="{7C760B0A-8D49-4304-AB88-7EAEBE213A94}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Save XML Document [UpdateConfig.xml]]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property MultiValue="0" name="DefaultNamespaceIdentifier" type="string"></Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="ExpandDocumentNodeNamespace" type="Boolean">False</Property>
<Property MultiValue="0" name="ExtraNamespaces" type="string"></Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property MultiValue="0" name="OutputFile" type="string">%output_path%\Update\UpdateConfig.xml</Property>
<Property name="OverwriteOutputFile" type="Boolean">True</Property>
<Property name="ParserVer" type="TParserVer">HighestMSXML</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="ResolveExternal" type="Boolean">True</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Property name="ValidateOnParse" type="Boolean">True</Property>
<Property MultiValue="0" name="XMLDocumentObject" type="string">UpdateConfig.xml</Property>
</Object>
</Object>
</Object>
</Object>
</Object>
<Object Class="TFBActionListParametersCollection" XMLID="{DA68752A-A92E-47B7-A8DE-1B3E46E8D956}"/>
</Object>

BIN
Database/FACTUGES.FDB
View File

Binary file not shown.

2
Source/Base/GUIBase/uEditorBase.dfm
View File

@ -1669,7 +1669,7 @@ object fEditorBase: TfEditorBase
object JvAppRegistryStorage: TJvAppRegistryStorage
StorageOptions.BooleanStringTrueValues = 'TRUE, YES, Y'
StorageOptions.BooleanStringFalseValues = 'FALSE, NO, N'
Root = 'Software\%APPL_NAME%'
Root = 'Software\FactuGES'
SubStorages = <>
Left = 424
Top = 120

2
Source/Base/Usuarios/uLoginForm.dfm
View File

@ -1076,7 +1076,7 @@ object fLoginForm: TfLoginForm
StorageOptions.BooleanStringTrueValues = 'TRUE, YES, Y'
StorageOptions.BooleanStringFalseValues = 'FALSE, NO, N'
StorageOptions.BooleanAsString = False
Root = 'Software\%APPL_NAME%'
Root = 'Software\FactuGES'
SubStorages = <>
Left = 14
Top = 168

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Factuges.ico"
1 VERSIONINFO
FILEVERSION 3,0,0,0
PRODUCTVERSION 3,0,0,0
FILEVERSION 3,0,2,0
PRODUCTVERSION 3,0,2,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,9 +13,9 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "3.0.0.0\0"
VALUE "FileVersion", "3.0.2.0\0"
VALUE "InternalName", "FactuGES\0"
VALUE "ProductVersion", "3.0.0.0\0"
VALUE "ProductVersion", "3.0.2.0\0"
END
END
BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

2
Source/Cliente/uPantallaPrincipal.dfm
View File

@ -494,7 +494,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
object JvAppRegistryStorage: TJvAppRegistryStorage
StorageOptions.BooleanStringTrueValues = 'TRUE, YES, Y'
StorageOptions.BooleanStringFalseValues = 'FALSE, NO, N'
Root = 'Software\%APPL_NAME%'
Root = 'Software\FactuGES'
SubStorages = <>
Left = 504
Top = 128

2
Source/Modulos/Banca electronica/Views/uEditorExportacionNorma19.dfm
View File

@ -241,7 +241,7 @@ object fEditorExportacionNorma19: TfEditorExportacionNorma19
object JvAppRegistryStorage: TJvAppRegistryStorage
StorageOptions.BooleanStringTrueValues = 'TRUE, YES, Y'
StorageOptions.BooleanStringFalseValues = 'FALSE, NO, N'
Root = 'Software\%APPL_NAME%'
Root = 'Software\FactuGES'
SubStorages = <>
Left = 112
Top = 64

2
Source/Modulos/Banca electronica/Views/uEditorExportacionNorma32.dfm
View File

@ -316,7 +316,7 @@ object fEditorExportacionNorma32: TfEditorExportacionNorma32
object JvAppRegistryStorage: TJvAppRegistryStorage
StorageOptions.BooleanStringTrueValues = 'TRUE, YES, Y'
StorageOptions.BooleanStringFalseValues = 'FALSE, NO, N'
Root = 'Software\%APPL_NAME%'
Root = 'Software\FactuGES'
SubStorages = <>
Left = 112
Top = 32

2
Source/Servidor con DBSesiones/Configuracion/uConfiguracion.dfm
View File

@ -111,7 +111,7 @@ object fConfiguracion: TfConfiguracion
object JvAppRegistryStorage1: TJvAppRegistryStorage
StorageOptions.BooleanStringTrueValues = 'TRUE, YES, Y'
StorageOptions.BooleanStringFalseValues = 'FALSE, NO, N'
Root = 'Software\%APPL_NAME%'
Root = 'Software\FactuGES'
SubStorages = <>
Left = 48
Top = 400

2
Source/Servidor con DBSesiones/uDataModuleServer.dfm
View File

@ -67,7 +67,7 @@ object dmServer: TdmServer
StorageOptions.BooleanStringTrueValues = 'TRUE, YES, Y'
StorageOptions.BooleanStringFalseValues = 'FALSE, NO, N'
RegRoot = hkLocalMachine
Root = 'Software\%APPL_NAME%'
Root = 'Software\FactuGES'
SubStorages = <>
Left = 304
Top = 208

2
Source/Servidor/Configuracion/uConfiguracion.dfm
View File

@ -125,7 +125,7 @@ object fConfiguracion: TfConfiguracion
object JvAppRegistryStorage1: TJvAppRegistryStorage
StorageOptions.BooleanStringTrueValues = 'TRUE, YES, Y'
StorageOptions.BooleanStringFalseValues = 'FALSE, NO, N'
Root = 'Software\%APPL_NAME%'
Root = 'Software\FactuGES'
SubStorages = <>
Left = 40
Top = 304

11
Source/Servidor/FactuGES_Server.bdsproj
View File

@ -1,4 +1,4 @@
<?xml version="1.0" encoding="utf-8"?>
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<PersonalityInfo>
<Option>
@ -175,10 +175,11 @@
<VersionInfoKeys Name="ProductName">FactuGES Server</VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">3.0.2.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
<VersionInfoKeys Name="CompileDate"></VersionInfoKeys></VersionInfoKeys> <Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
</Excluded_Packages>
</Delphi.Personality>
<VersionInfoKeys Name="CompileDate"></VersionInfoKeys></VersionInfoKeys>
<Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
</Excluded_Packages>
</Delphi.Personality>
<ModelSupport>False</ModelSupport>
<!-- EurekaLog First Line
[Exception Log]

200
Source/Servidor/FactuGES_Server.drc
View File

@ -911,11 +911,11 @@
#define IdResourceStrings_RSMIMEMIMEExtAlreadyExists 65181
#define IdResourceStrings_RSStatusResolving 65182
#define IdResourceStrings_RSStatusConnecting 65183
#define uRORes_err_MessageNotAssigned 65184
#define ComConst_SOleError 65185
#define ComConst_SNoMethod 65186
#define ComConst_SVarNotObject 65187
#define ComConst_STooManyParams 65188
#define uRODECConst_sFMT_MIME64 65184
#define uRODECConst_sFMT_UU 65185
#define uRODECConst_sFMT_XX 65186
#define uRODECConst_sInvalidKeySize 65187
#define uRODECConst_sNotInitialized 65188
#define IdResourceStrings_RSCannotAllocateSocket 65189
#define IdResourceStrings_RSConnectionClosedGracefully 65190
#define IdResourceStrings_RSCouldNotBindSocket 65191
@ -927,70 +927,70 @@
#define IdResourceStrings_RSFileNotFound 65197
#define IdResourceStrings_RSOnlyOneAntiFreeze 65198
#define IdResourceStrings_RSNotConnected 65199
#define uRORes_err_ChannelBusy 65200
#define uRORes_err_ArrayIndexOutOfBounds 65201
#define uRORes_err_InvalidHeader 65202
#define uRORes_err_UnknownClassInStream 65203
#define uRORes_err_UnexpectedClassInStream 65204
#define uRORes_err_SessionNotFound 65205
#define uRORes_err_ChannelDoesntSupportIROMetadataReader 65206
#define uRORes_err_TooManySessions 65207
#define uRORes_err_DOMElementIsNIL 65208
#define uRORes_err_CannotLoadXMLDocument 65209
#define uRORes_err_ErrorCreatingMsXmlDoc 65210
#define uRORes_err_NoXMLParsersAvailable 65211
#define uRORes_err_IDispatchMarshalingNotSupported 65212
#define uRORes_err_UnsupportedVariantType 65213
#define uRORes_err_VariantIsNotArray 65214
#define uRORes_err_InvalidVarArrayDimCount 65215
#define uRORes_err_AssignError 65216
#define uRORes_err_InvalidRequestStream 65217
#define uRORes_err_NILMessage 65218
#define uRORes_err_UnspecifiedInterface 65219
#define uRORes_err_UnspecifiedMessage 65220
#define uRORes_err_UnknownMethod 65221
#define uRORes_err_ClassFactoryDidNotReturnInstance 65222
#define uRORes_err_TypeNotSupported 65223
#define uRORes_err_ClassFactoryNotFound 65224
#define uRORes_err_IROMessageNotSupported 65225
#define uRORes_err_ClassAlreadyRegistered 65226
#define uRORes_err_UnknownProxyInterface 65227
#define uRORes_err_DispatcherAlreadyAssigned 65228
#define uRORes_err_CannotFindMessageDispatcher 65229
#define uRORes_err_ServerOnlySupportsOneDispatcher 65230
#define uRORes_err_UnhandledException 65231
#define uRORes_err_InvalidStream 65232
#define uRORes_err_InvalidParamFlag 65233
#define uRORes_err_InvalidStringLength 65234
#define uRORes_str_InvalidClassTypeInStream 65235
#define uRORes_err_UnexpectedEndOfStream 65236
#define uRORes_err_RodlDuplicateName 65237
#define uRORes_err_RodlNoDataTypeSpecified 65238
#define uRORes_err_RodlNoEnumValues 65239
#define uRORes_err_RodlNoStructElementsDefined 65240
#define uRORes_err_RodlNoOperationsDefined 65241
#define uRORes_err_RodlUsedFileDoesNotExist 65242
#define uRORes_err_RodlInvalidDataType 65243
#define uRORes_err_RodlStructCannotBeNested 65244
#define uRORes_err_RodlInvalidAncestorType 65245
#define uRORes_str_ExceptionOnServer 65246
#define uRORes_str_ExceptionReraisedFromServer 65247
#define uRORes_err_IDispatchMarshalingNotSupported 65200
#define uRORes_err_UnsupportedVariantType 65201
#define uRORes_err_VariantIsNotArray 65202
#define uRORes_err_InvalidVarArrayDimCount 65203
#define uRORes_err_MessageNotAssigned 65204
#define ComConst_SOleError 65205
#define ComConst_SNoMethod 65206
#define ComConst_SVarNotObject 65207
#define ComConst_STooManyParams 65208
#define uRODECConst_sProtectionCircular 65209
#define uRODECConst_sStringFormatExists 65210
#define uRODECConst_sInvalidStringFormat 65211
#define uRODECConst_sInvalidFormatString 65212
#define uRODECConst_sFMT_COPY 65213
#define uRODECConst_sFMT_HEX 65214
#define uRODECConst_sFMT_HEXL 65215
#define uRORes_err_DispatcherAlreadyAssigned 65216
#define uRORes_err_CannotFindMessageDispatcher 65217
#define uRORes_err_ServerOnlySupportsOneDispatcher 65218
#define uRORes_err_UnhandledException 65219
#define uRORes_err_ChannelBusy 65220
#define uRORes_err_ArrayIndexOutOfBounds 65221
#define uRORes_err_InvalidHeader 65222
#define uRORes_err_UnknownClassInStream 65223
#define uRORes_err_UnexpectedClassInStream 65224
#define uRORes_err_SessionNotFound 65225
#define uRORes_err_ChannelDoesntSupportIROMetadataReader 65226
#define uRORes_err_TooManySessions 65227
#define uRORes_err_DOMElementIsNIL 65228
#define uRORes_err_CannotLoadXMLDocument 65229
#define uRORes_err_ErrorCreatingMsXmlDoc 65230
#define uRORes_err_NoXMLParsersAvailable 65231
#define uRORes_err_RodlStructCannotBeNested 65232
#define uRORes_err_RodlInvalidAncestorType 65233
#define uRORes_str_ExceptionOnServer 65234
#define uRORes_str_ExceptionReraisedFromServer 65235
#define uRORes_err_AssignError 65236
#define uRORes_err_InvalidRequestStream 65237
#define uRORes_err_NILMessage 65238
#define uRORes_err_UnspecifiedInterface 65239
#define uRORes_err_UnspecifiedMessage 65240
#define uRORes_err_UnknownMethod 65241
#define uRORes_err_ClassFactoryDidNotReturnInstance 65242
#define uRORes_err_TypeNotSupported 65243
#define uRORes_err_ClassFactoryNotFound 65244
#define uRORes_err_IROMessageNotSupported 65245
#define uRORes_err_ClassAlreadyRegistered 65246
#define uRORes_err_UnknownProxyInterface 65247
#define Consts_SUTF7Encoding 65248
#define Consts_SPageControlNotSet 65249
#define uRODECConst_sProtectionCircular 65250
#define uRODECConst_sStringFormatExists 65251
#define uRODECConst_sInvalidStringFormat 65252
#define uRODECConst_sInvalidFormatString 65253
#define uRODECConst_sFMT_COPY 65254
#define uRODECConst_sFMT_HEX 65255
#define uRODECConst_sFMT_HEXL 65256
#define uRODECConst_sFMT_MIME64 65257
#define uRODECConst_sFMT_UU 65258
#define uRODECConst_sFMT_XX 65259
#define uRODECConst_sInvalidKeySize 65260
#define uRODECConst_sNotInitialized 65261
#define uRORes_err_InvalidIndex 65262
#define uRORes_err_InvalidType 65263
#define uRORes_err_InvalidIndex 65250
#define uRORes_err_InvalidType 65251
#define uRORes_err_InvalidStream 65252
#define uRORes_err_InvalidParamFlag 65253
#define uRORes_err_InvalidStringLength 65254
#define uRORes_str_InvalidClassTypeInStream 65255
#define uRORes_err_UnexpectedEndOfStream 65256
#define uRORes_err_RodlDuplicateName 65257
#define uRORes_err_RodlNoDataTypeSpecified 65258
#define uRORes_err_RodlNoEnumValues 65259
#define uRORes_err_RodlNoStructElementsDefined 65260
#define uRORes_err_RodlNoOperationsDefined 65261
#define uRORes_err_RodlUsedFileDoesNotExist 65262
#define uRORes_err_RodlInvalidDataType 65263
#define Consts_SPictureDesc 65264
#define Consts_SPreviewLabel 65265
#define Consts_SDockedCtlNeedsName 65266
@ -2168,11 +2168,11 @@ BEGIN
IdResourceStrings_RSMIMEMIMEExtAlreadyExists, "Extension already exits"
IdResourceStrings_RSStatusResolving, "Resolving hostname %s."
IdResourceStrings_RSStatusConnecting, "Connecting to %s."
uRORes_err_MessageNotAssigned, "Message is NIL"
ComConst_SOleError, "OLE error %.8x"
ComConst_SNoMethod, "Method '%s' not supported by automation object"
ComConst_SVarNotObject, "Variant does not reference an automation object"
ComConst_STooManyParams, "Dispatch methods do not support more than 64 parameters"
uRODECConst_sFMT_MIME64, "MIME Base 64"
uRODECConst_sFMT_UU, "UU Coding"
uRODECConst_sFMT_XX, "XX Coding"
uRODECConst_sInvalidKeySize, "Length from Encryptionkey is invalid.\r\nKeysize for %s must be to %d-%d bytes"
uRODECConst_sNotInitialized, "%s is not initialized call Init() or InitKey() before."
IdResourceStrings_RSCannotAllocateSocket, "Cannot allocate socket."
IdResourceStrings_RSConnectionClosedGracefully, "Connection Closed Gracefully."
IdResourceStrings_RSCouldNotBindSocket, "Could not bind socket. Address and port are already in use."
@ -2184,6 +2184,26 @@ BEGIN
IdResourceStrings_RSFileNotFound, "File \"%s\" not found"
IdResourceStrings_RSOnlyOneAntiFreeze, "Only one TIdAntiFreeze can exist per application."
IdResourceStrings_RSNotConnected, "Not Connected"
uRORes_err_IDispatchMarshalingNotSupported, "Marshaling of IDispatch (%d) type variants is not supported."
uRORes_err_UnsupportedVariantType, "Unsupported variant type \"%d\""
uRORes_err_VariantIsNotArray, "Variant must be Array, but is %d"
uRORes_err_InvalidVarArrayDimCount, "Variant Array DimCount must be 1 but is %d"
uRORes_err_MessageNotAssigned, "Message is NIL"
ComConst_SOleError, "OLE error %.8x"
ComConst_SNoMethod, "Method '%s' not supported by automation object"
ComConst_SVarNotObject, "Variant does not reference an automation object"
ComConst_STooManyParams, "Dispatch methods do not support more than 64 parameters"
uRODECConst_sProtectionCircular, "Circular Protection detected, Protection Object is invalid."
uRODECConst_sStringFormatExists, "String Format \"%d\" not exists."
uRODECConst_sInvalidStringFormat, "Input is not an valid %s Format."
uRODECConst_sInvalidFormatString, "Input can not be convert to %s Format."
uRODECConst_sFMT_COPY, "copy Input to Output"
uRODECConst_sFMT_HEX, "Hexadecimal"
uRODECConst_sFMT_HEXL, "Hexadecimal lowercase"
uRORes_err_DispatcherAlreadyAssigned, "Dispatcher for %s already assigned"
uRORes_err_CannotFindMessageDispatcher, "Cannot find message dispatcher. Maybe there is no message component configured for for the requested path?"
uRORes_err_ServerOnlySupportsOneDispatcher, "%s servers only support one dispatcher"
uRORes_err_UnhandledException, "Unhandled exception"
uRORes_err_ChannelBusy, "Channel is busy. Try again later."
uRORes_err_ArrayIndexOutOfBounds, "Array index out of bounds (%d)."
uRORes_err_InvalidHeader, "Invalid binary header. Either incompatible or not a binary message."
@ -2196,10 +2216,10 @@ BEGIN
uRORes_err_CannotLoadXMLDocument, "Cannot load XML document.\rReason: %s\rLine: %d\rPosition: %d"
uRORes_err_ErrorCreatingMsXmlDoc, "Error creating MSXML Document class\r\r%s: %s"
uRORes_err_NoXMLParsersAvailable, "MSXML is not installed"
uRORes_err_IDispatchMarshalingNotSupported, "Marshaling of IDispatch (%d) type variants is not supported."
uRORes_err_UnsupportedVariantType, "Unsupported variant type \"%d\""
uRORes_err_VariantIsNotArray, "Variant must be Array, but is %d"
uRORes_err_InvalidVarArrayDimCount, "Variant Array DimCount must be 1 but is %d"
uRORes_err_RodlStructCannotBeNested, "Structs cannot recursively contain themselves."
uRORes_err_RodlInvalidAncestorType, "Invalid or undefined ancestor type \"%s\"."
uRORes_str_ExceptionOnServer, "An exception of type %s was raised on the server: %s"
uRORes_str_ExceptionReraisedFromServer, "An exception was raised on the server: %s"
uRORes_err_AssignError, "Cannot assign a \"%s\" to a \"%s\"."
uRORes_err_InvalidRequestStream, "Invalid request stream (%d bytes)"
uRORes_err_NILMessage, "Message is NIL"
@ -2212,10 +2232,10 @@ BEGIN
uRORes_err_IROMessageNotSupported, "Class \"%s\" does not support IROMessage"
uRORes_err_ClassAlreadyRegistered, "Class \"%s\" is already registered"
uRORes_err_UnknownProxyInterface, "Unknown proxy interface \"%s\""
uRORes_err_DispatcherAlreadyAssigned, "Dispatcher for %s already assigned"
uRORes_err_CannotFindMessageDispatcher, "Cannot find message dispatcher. Maybe there is no message component configured for for the requested path?"
uRORes_err_ServerOnlySupportsOneDispatcher, "%s servers only support one dispatcher"
uRORes_err_UnhandledException, "Unhandled exception"
Consts_SUTF7Encoding, "UTF-7"
Consts_SPageControlNotSet, "PageControl must first be assigned"
uRORes_err_InvalidIndex, "Invalid index %d"
uRORes_err_InvalidType, "Invalid type \"%s. Expected \"%s\"\""
uRORes_err_InvalidStream, "Invalid stream"
uRORes_err_InvalidParamFlag, "Invalid Parameter Flag \"%s\""
uRORes_err_InvalidStringLength, "Stream read error: Invalid string length \"%d\""
@ -2228,26 +2248,6 @@ BEGIN
uRORes_err_RodlNoOperationsDefined, "Service interface does not contain any elements."
uRORes_err_RodlUsedFileDoesNotExist, "The referenced RODL file \"%s\" could not be found."
uRORes_err_RodlInvalidDataType, "Invalid or undefined data type \"%s\"."
uRORes_err_RodlStructCannotBeNested, "Structs cannot recursively contain themselves."
uRORes_err_RodlInvalidAncestorType, "Invalid or undefined ancestor type \"%s\"."
uRORes_str_ExceptionOnServer, "An exception of type %s was raised on the server: %s"
uRORes_str_ExceptionReraisedFromServer, "An exception was raised on the server: %s"
Consts_SUTF7Encoding, "UTF-7"
Consts_SPageControlNotSet, "PageControl must first be assigned"
uRODECConst_sProtectionCircular, "Circular Protection detected, Protection Object is invalid."
uRODECConst_sStringFormatExists, "String Format \"%d\" not exists."
uRODECConst_sInvalidStringFormat, "Input is not an valid %s Format."
uRODECConst_sInvalidFormatString, "Input can not be convert to %s Format."
uRODECConst_sFMT_COPY, "copy Input to Output"
uRODECConst_sFMT_HEX, "Hexadecimal"
uRODECConst_sFMT_HEXL, "Hexadecimal lowercase"
uRODECConst_sFMT_MIME64, "MIME Base 64"
uRODECConst_sFMT_UU, "UU Coding"
uRODECConst_sFMT_XX, "XX Coding"
uRODECConst_sInvalidKeySize, "Length from Encryptionkey is invalid.\r\nKeysize for %s must be to %d-%d bytes"
uRODECConst_sNotInitialized, "%s is not initialized call Init() or InitKey() before."
uRORes_err_InvalidIndex, "Invalid index %d"
uRORes_err_InvalidType, "Invalid type \"%s. Expected \"%s\"\""
Consts_SPictureDesc, " (%dx%d)"
Consts_SPreviewLabel, "Preview"
Consts_SDockedCtlNeedsName, "Docked control must have a name"

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Servidor.ico"
1 VERSIONINFO
FILEVERSION 3,0,0,0
PRODUCTVERSION 3,0,0,0
FILEVERSION 3,0,2,0
PRODUCTVERSION 3,0,2,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "3.0.0.0\0"
VALUE "FileVersion", "3.0.2.0\0"
VALUE "ProductName", "FactuGES Server\0"
VALUE "ProductVersion", "3.0.0.0\0"
VALUE "CompileDate", "lunes, 16 de junio de 2008 19:42\0"
VALUE "ProductVersion", "3.0.2.0\0"
VALUE "CompileDate", "viernes, 20 de junio de 2008 18:16\0"
END
END
BLOCK "VarFileInfo"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.

2
Source/Servidor/uDataModuleServer.dfm
View File

@ -71,7 +71,7 @@ object dmServer: TdmServer
StorageOptions.BooleanStringTrueValues = 'TRUE, YES, Y'
StorageOptions.BooleanStringFalseValues = 'FALSE, NO, N'
RegRoot = hkLocalMachine
Root = 'Software\%APPL_NAME%'
Root = 'Software\FactuGES'
SubStorages = <>
Left = 136
Top = 208