Se incluyen los informes de presupuestos, facturas y recibos de cliente y el módulo de gestion de informes a la aplicacion.
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@331 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
parent
852e9b3a39
commit
59cea237a6
652
Build/Build.fbp5
652
Build/Build.fbp5
@ -1269,7 +1269,7 @@ Comments=
|
||||
<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="NodeCollapsed" 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>
|
||||
@ -7199,6 +7199,656 @@ Comments=
|
||||
</Object>
|
||||
</Object>
|
||||
</Object>
|
||||
<Object Class="TGroupAction" XMLID="{17EE2A6C-859E-497F-9E7D-B0636F0D801F}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
|
||||
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Gestor de informes]]>
|
||||
</Property>
|
||||
<Property name="ActionTextColor" type="Cardinal">0</Property>
|
||||
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
|
||||
<Property MultiValue="1" name="Description" type="string"><![CDATA[Gestor de informes]]>
|
||||
</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="TDelphiCompilerAction" XMLID="{305B58D6-DE9E-48A4-BB41-E3AD65918ECB}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
|
||||
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Compile Modulos\Gestor de informes\Model\GestorInformes_model.dpk]]>
|
||||
</Property>
|
||||
<Property name="ActionTextColor" type="Cardinal">0</Property>
|
||||
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
|
||||
<Property name="AllowImplicitImport" type="Boolean">True</Property>
|
||||
<Property name="AlwaysUseConditionalsFromDOF" type="WordBool">False</Property>
|
||||
<Property name="AutoIncBuild" type="WordBool">False</Property>
|
||||
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
|
||||
<Property name="BuildAll" type="WordBool">True</Property>
|
||||
<Property name="BuildVersion" type="Integer">0</Property>
|
||||
<Property name="CodePage" type="Integer">1252</Property>
|
||||
<Property name="CompilerVersion" type="Integer">12</Property>
|
||||
<Property MultiValue="0" name="ConfigName" type="string">Release</Property>
|
||||
<Property name="DebugVersionNumbers" type="Boolean">False</Property>
|
||||
<Property MultiValue="1" name="Description" type="string"><![CDATA[Compile Modulos\Gestor de informes\Model\GestorInformes_model.dpk]]>
|
||||
</Property>
|
||||
<Property name="Enabled" type="WordBool">True</Property>
|
||||
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
|
||||
<Property MultiValue="0" name="ExtraCommandline" type="WideString"></Property>
|
||||
<Property name="HintsAsError" type="Boolean">False</Property>
|
||||
<Property MultiValue="0" name="IconFile" type="WideString"></Property>
|
||||
<Property name="IgnoreFailure" type="WordBool">False</Property>
|
||||
<Property name="IncludeCompileDate" type="WordBool">False</Property>
|
||||
<Property name="IncludeManifest" type="Boolean">False</Property>
|
||||
<Property name="IncludeVerInfo" type="WordBool">True</Property>
|
||||
<Property name="IsAction" type="Boolean">True</Property>
|
||||
<Property name="IsBreakPoint" type="WordBool">False</Property>
|
||||
<Property name="IsDebug" type="WordBool">False</Property>
|
||||
<Property name="IsDLL" type="WordBool">False</Property>
|
||||
<Property name="IsPreRelease" type="WordBool">False</Property>
|
||||
<Property name="IsPrivate" type="WordBool">False</Property>
|
||||
<Property name="IsSpecial" type="WordBool">False</Property>
|
||||
<Property name="KeepCFG" type="Boolean">False</Property>
|
||||
<Property name="LinkProductVersionToFileVersion" type="Boolean">False</Property>
|
||||
<Property name="Locale" type="Integer">3082</Property>
|
||||
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
|
||||
<Property name="MajorVersion" type="Integer">1</Property>
|
||||
<Property MultiValue="0" name="ManifestFile" type="string"></Property>
|
||||
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
|
||||
<Property name="MinorVersion" type="Integer">0</Property>
|
||||
<Property name="NodeCollapsed" type="Boolean">False</Property>
|
||||
<Property name="PauseInterval" type="Cardinal">0</Property>
|
||||
<Property MultiValue="1" name="ProjectFile" type="WideString"><![CDATA[%source_path%\Modulos\Gestor de informes\Model\GestorInformes_model.dpk]]>
|
||||
</Property>
|
||||
<Property name="RegenerateResource" type="WordBool">True</Property>
|
||||
<Property name="ReleaseVersion" type="Integer">0</Property>
|
||||
<Property MultiValue="0" name="ResourceCompilerOptions" type="string"></Property>
|
||||
<Property MultiValue="0" name="ResourceCompilerPath" type="string"></Property>
|
||||
<Property name="ResourceCompilerType" type="TFBDelphiResourceCompiler">rcBorland</Property>
|
||||
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
|
||||
<Property MultiValue="0" name="StartingDir" type="WideString"></Property>
|
||||
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
|
||||
<Property name="UpdateDofFile" type="Boolean">False</Property>
|
||||
<Property name="UpdatePackageSource" type="Boolean">False</Property>
|
||||
<Property name="UseEurekaLogCompiler" type="Boolean">False</Property>
|
||||
<Property name="UseProjectSettings" type="TFBUseProjectSettings">[usPackages,usCompiler,usLinker,usVersionInfo]</Property>
|
||||
<Property name="UsePropertySet" type="Boolean">False</Property>
|
||||
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
|
||||
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=
|
||||
FileDescription=
|
||||
FileVersion=1.0.0.0
|
||||
InternalName=
|
||||
LegalCopyright=
|
||||
LegalTrademarks=
|
||||
OriginalFilename=
|
||||
ProductName=
|
||||
ProductVersion=1.0.0.0
|
||||
Comments=
|
||||
]]>
|
||||
</Property>
|
||||
<Property MultiValue="0" name="VersionInfoPropertySetName" type="string"></Property>
|
||||
<Property name="WarningsAsError" type="Boolean">False</Property>
|
||||
<Property name="WorkAroundD5Bug" type="WordBool">False</Property>
|
||||
<Object Class="TDelphiCompilerOptions" XMLID="{F386810E-813F-465A-AAB4-7C396D136B00}"><Property name="AlwaysUseConditionalsFromDOF" type="WordBool">False</Property>
|
||||
<Property name="AlwaysUseDelphiLibraryPath" type="WordBool">False</Property>
|
||||
<Property name="AlwaysUseDOFSearchPath" type="WordBool">True</Property>
|
||||
<Property name="Assertions" type="WordBool">True</Property>
|
||||
<Property name="AssignableConst" type="WordBool">False</Property>
|
||||
<Property name="BoolEval" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="BPLOutputDir" type="WideString">%package_path%</Property>
|
||||
<Property name="CompilerWarnings" type="TStrings"><![CDATA[]]>
|
||||
</Property>
|
||||
<Property MultiValue="0" name="Conditionals" type="WideString"></Property>
|
||||
<Property name="ConsoleApp" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="DCPOutputDir" type="WideString">%modules_dcp_path%</Property>
|
||||
<Property name="DebugInfo" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="DefaultNamespace" type="string"></Property>
|
||||
<Property name="DefinitionsOnly" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="ExeDescription" type="WideString"></Property>
|
||||
<Property name="ExportAllSymbols" type="WordBool">False</Property>
|
||||
<Property name="ExtendedSyntax" type="WordBool">True</Property>
|
||||
<Property name="GenerateDocumentation" type="Boolean">False</Property>
|
||||
<Property name="GenerateHPP" type="WordBool">False</Property>
|
||||
<Property name="HugeStrings" type="WordBool">True</Property>
|
||||
<Property name="ImageBase" type="Cardinal">4194304</Property>
|
||||
<Property name="IncludeNamespaces" type="WordBool">False</Property>
|
||||
<Property name="IncludeRemoteSymbols" type="WordBool">False</Property>
|
||||
<Property name="IncludeTD32" type="WordBool">False</Property>
|
||||
<Property name="IOChecking" type="WordBool">True</Property>
|
||||
<Property MultiValue="0" name="LibraryPath" type="WideString">%library_path%</Property>
|
||||
<Property name="LinkerOutput" type="Integer">0</Property>
|
||||
<Property name="LocalSymbols" type="WordBool">False</Property>
|
||||
<Property name="Mapfile" type="Integer">0</Property>
|
||||
<Property name="MaxStackSize" type="Cardinal">1048576</Property>
|
||||
<Property name="MinStackSize" type="Cardinal">16384</Property>
|
||||
<Property MultiValue="0" name="NamespacePrefixes" type="string"></Property>
|
||||
<Property name="OpenStrings" type="WordBool">True</Property>
|
||||
<Property name="Optimisation" type="WordBool">True</Property>
|
||||
<Property MultiValue="0" name="OutputDir" type="WideString">%output_path%</Property>
|
||||
<Property name="OverflowChecking" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="Packages" type="WideString"></Property>
|
||||
<Property name="RangeChecking" type="WordBool">False</Property>
|
||||
<Property name="RecordFieldAlign" type="TFieldAlign">fa8</Property>
|
||||
<Property name="ReferenceInfo" type="WordBool">False</Property>
|
||||
<Property name="SafeDivide" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="SearchPath" type="WideString"></Property>
|
||||
<Property name="ShowHints" type="WordBool">True</Property>
|
||||
<Property name="ShowWarnings" type="WordBool">True</Property>
|
||||
<Property name="StackFrames" type="WordBool">False</Property>
|
||||
<Property name="TypedPointers" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="UnitAliases" type="WideString">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Property>
|
||||
<Property MultiValue="0" name="UnitOutputDir" type="WideString"></Property>
|
||||
<Property name="UseDebugDCU" type="WordBool">False</Property>
|
||||
<Property name="UsePackages" type="WordBool">False</Property>
|
||||
<Property name="VarStringChecks" type="WordBool">True</Property>
|
||||
</Object>
|
||||
</Object>
|
||||
<Object Class="TDelphiCompilerAction" XMLID="{5AA41A42-AF54-4C41-8182-D974D7DE9129}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
|
||||
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Compile Modulos\Gestor de informes\Data\GestorInformes_data.dpk]]>
|
||||
</Property>
|
||||
<Property name="ActionTextColor" type="Cardinal">0</Property>
|
||||
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
|
||||
<Property name="AllowImplicitImport" type="Boolean">True</Property>
|
||||
<Property name="AlwaysUseConditionalsFromDOF" type="WordBool">False</Property>
|
||||
<Property name="AutoIncBuild" type="WordBool">False</Property>
|
||||
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
|
||||
<Property name="BuildAll" type="WordBool">True</Property>
|
||||
<Property name="BuildVersion" type="Integer">0</Property>
|
||||
<Property name="CodePage" type="Integer">1252</Property>
|
||||
<Property name="CompilerVersion" type="Integer">12</Property>
|
||||
<Property MultiValue="0" name="ConfigName" type="string">Release</Property>
|
||||
<Property name="DebugVersionNumbers" type="Boolean">False</Property>
|
||||
<Property MultiValue="1" name="Description" type="string"><![CDATA[Compile Modulos\Gestor de informes\Data\GestorInformes_data.dpk]]>
|
||||
</Property>
|
||||
<Property name="Enabled" type="WordBool">True</Property>
|
||||
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
|
||||
<Property MultiValue="0" name="ExtraCommandline" type="WideString"></Property>
|
||||
<Property name="HintsAsError" type="Boolean">False</Property>
|
||||
<Property MultiValue="0" name="IconFile" type="WideString"></Property>
|
||||
<Property name="IgnoreFailure" type="WordBool">False</Property>
|
||||
<Property name="IncludeCompileDate" type="WordBool">False</Property>
|
||||
<Property name="IncludeManifest" type="Boolean">False</Property>
|
||||
<Property name="IncludeVerInfo" type="WordBool">True</Property>
|
||||
<Property name="IsAction" type="Boolean">True</Property>
|
||||
<Property name="IsBreakPoint" type="WordBool">False</Property>
|
||||
<Property name="IsDebug" type="WordBool">False</Property>
|
||||
<Property name="IsDLL" type="WordBool">False</Property>
|
||||
<Property name="IsPreRelease" type="WordBool">False</Property>
|
||||
<Property name="IsPrivate" type="WordBool">False</Property>
|
||||
<Property name="IsSpecial" type="WordBool">False</Property>
|
||||
<Property name="KeepCFG" type="Boolean">False</Property>
|
||||
<Property name="LinkProductVersionToFileVersion" type="Boolean">False</Property>
|
||||
<Property name="Locale" type="Integer">3082</Property>
|
||||
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
|
||||
<Property name="MajorVersion" type="Integer">1</Property>
|
||||
<Property MultiValue="0" name="ManifestFile" type="string"></Property>
|
||||
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
|
||||
<Property name="MinorVersion" type="Integer">0</Property>
|
||||
<Property name="NodeCollapsed" type="Boolean">False</Property>
|
||||
<Property name="PauseInterval" type="Cardinal">0</Property>
|
||||
<Property MultiValue="1" name="ProjectFile" type="WideString"><![CDATA[%source_path%\Modulos\Gestor de informes\Data\GestorInformes_data.dpk]]>
|
||||
</Property>
|
||||
<Property name="RegenerateResource" type="WordBool">True</Property>
|
||||
<Property name="ReleaseVersion" type="Integer">0</Property>
|
||||
<Property MultiValue="0" name="ResourceCompilerOptions" type="string"></Property>
|
||||
<Property MultiValue="0" name="ResourceCompilerPath" type="string"></Property>
|
||||
<Property name="ResourceCompilerType" type="TFBDelphiResourceCompiler">rcBorland</Property>
|
||||
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
|
||||
<Property MultiValue="0" name="StartingDir" type="WideString"></Property>
|
||||
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
|
||||
<Property name="UpdateDofFile" type="Boolean">False</Property>
|
||||
<Property name="UpdatePackageSource" type="Boolean">False</Property>
|
||||
<Property name="UseEurekaLogCompiler" type="Boolean">False</Property>
|
||||
<Property name="UseProjectSettings" type="TFBUseProjectSettings">[usPackages,usCompiler,usLinker,usVersionInfo]</Property>
|
||||
<Property name="UsePropertySet" type="Boolean">False</Property>
|
||||
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
|
||||
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=
|
||||
FileDescription=
|
||||
FileVersion=1.0.0.0
|
||||
InternalName=
|
||||
LegalCopyright=
|
||||
LegalTrademarks=
|
||||
OriginalFilename=
|
||||
ProductName=
|
||||
ProductVersion=1.0.0.0
|
||||
Comments=
|
||||
]]>
|
||||
</Property>
|
||||
<Property MultiValue="0" name="VersionInfoPropertySetName" type="string"></Property>
|
||||
<Property name="WarningsAsError" type="Boolean">False</Property>
|
||||
<Property name="WorkAroundD5Bug" type="WordBool">False</Property>
|
||||
<Object Class="TDelphiCompilerOptions" XMLID="{E282D570-6F17-42DC-86BA-7BD3050E5E49}"><Property name="AlwaysUseConditionalsFromDOF" type="WordBool">False</Property>
|
||||
<Property name="AlwaysUseDelphiLibraryPath" type="WordBool">False</Property>
|
||||
<Property name="AlwaysUseDOFSearchPath" type="WordBool">True</Property>
|
||||
<Property name="Assertions" type="WordBool">True</Property>
|
||||
<Property name="AssignableConst" type="WordBool">False</Property>
|
||||
<Property name="BoolEval" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="BPLOutputDir" type="WideString">%package_path%</Property>
|
||||
<Property name="CompilerWarnings" type="TStrings"><![CDATA[]]>
|
||||
</Property>
|
||||
<Property MultiValue="0" name="Conditionals" type="WideString"></Property>
|
||||
<Property name="ConsoleApp" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="DCPOutputDir" type="WideString">%modules_dcp_path%</Property>
|
||||
<Property name="DebugInfo" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="DefaultNamespace" type="string"></Property>
|
||||
<Property name="DefinitionsOnly" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="ExeDescription" type="WideString"></Property>
|
||||
<Property name="ExportAllSymbols" type="WordBool">False</Property>
|
||||
<Property name="ExtendedSyntax" type="WordBool">True</Property>
|
||||
<Property name="GenerateDocumentation" type="Boolean">False</Property>
|
||||
<Property name="GenerateHPP" type="WordBool">False</Property>
|
||||
<Property name="HugeStrings" type="WordBool">True</Property>
|
||||
<Property name="ImageBase" type="Cardinal">4194304</Property>
|
||||
<Property name="IncludeNamespaces" type="WordBool">False</Property>
|
||||
<Property name="IncludeRemoteSymbols" type="WordBool">False</Property>
|
||||
<Property name="IncludeTD32" type="WordBool">False</Property>
|
||||
<Property name="IOChecking" type="WordBool">True</Property>
|
||||
<Property MultiValue="0" name="LibraryPath" type="WideString">%library_path%</Property>
|
||||
<Property name="LinkerOutput" type="Integer">0</Property>
|
||||
<Property name="LocalSymbols" type="WordBool">False</Property>
|
||||
<Property name="Mapfile" type="Integer">0</Property>
|
||||
<Property name="MaxStackSize" type="Cardinal">1048576</Property>
|
||||
<Property name="MinStackSize" type="Cardinal">16384</Property>
|
||||
<Property MultiValue="0" name="NamespacePrefixes" type="string"></Property>
|
||||
<Property name="OpenStrings" type="WordBool">True</Property>
|
||||
<Property name="Optimisation" type="WordBool">True</Property>
|
||||
<Property MultiValue="0" name="OutputDir" type="WideString">%output_path%</Property>
|
||||
<Property name="OverflowChecking" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="Packages" type="WideString"></Property>
|
||||
<Property name="RangeChecking" type="WordBool">False</Property>
|
||||
<Property name="RecordFieldAlign" type="TFieldAlign">fa8</Property>
|
||||
<Property name="ReferenceInfo" type="WordBool">False</Property>
|
||||
<Property name="SafeDivide" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="SearchPath" type="WideString"></Property>
|
||||
<Property name="ShowHints" type="WordBool">True</Property>
|
||||
<Property name="ShowWarnings" type="WordBool">True</Property>
|
||||
<Property name="StackFrames" type="WordBool">False</Property>
|
||||
<Property name="TypedPointers" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="UnitAliases" type="WideString">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Property>
|
||||
<Property MultiValue="0" name="UnitOutputDir" type="WideString"></Property>
|
||||
<Property name="UseDebugDCU" type="WordBool">False</Property>
|
||||
<Property name="UsePackages" type="WordBool">False</Property>
|
||||
<Property name="VarStringChecks" type="WordBool">True</Property>
|
||||
</Object>
|
||||
</Object>
|
||||
<Object Class="TDelphiCompilerAction" XMLID="{FF22B45B-4907-4CF3-83A8-9171D582A0E7}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
|
||||
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Compile Modulos\Gestor de informes\Controller\GestorInformes_controller.dpk]]>
|
||||
</Property>
|
||||
<Property name="ActionTextColor" type="Cardinal">0</Property>
|
||||
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
|
||||
<Property name="AllowImplicitImport" type="Boolean">True</Property>
|
||||
<Property name="AlwaysUseConditionalsFromDOF" type="WordBool">False</Property>
|
||||
<Property name="AutoIncBuild" type="WordBool">False</Property>
|
||||
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
|
||||
<Property name="BuildAll" type="WordBool">True</Property>
|
||||
<Property name="BuildVersion" type="Integer">0</Property>
|
||||
<Property name="CodePage" type="Integer">1252</Property>
|
||||
<Property name="CompilerVersion" type="Integer">12</Property>
|
||||
<Property MultiValue="0" name="ConfigName" type="string">Release</Property>
|
||||
<Property name="DebugVersionNumbers" type="Boolean">False</Property>
|
||||
<Property MultiValue="1" name="Description" type="string"><![CDATA[Compile Modulos\Gestor de informes\Controller\GestorInformes_controller.dpk]]>
|
||||
</Property>
|
||||
<Property name="Enabled" type="WordBool">True</Property>
|
||||
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
|
||||
<Property MultiValue="0" name="ExtraCommandline" type="WideString"></Property>
|
||||
<Property name="HintsAsError" type="Boolean">False</Property>
|
||||
<Property MultiValue="0" name="IconFile" type="WideString"></Property>
|
||||
<Property name="IgnoreFailure" type="WordBool">False</Property>
|
||||
<Property name="IncludeCompileDate" type="WordBool">False</Property>
|
||||
<Property name="IncludeManifest" type="Boolean">False</Property>
|
||||
<Property name="IncludeVerInfo" type="WordBool">True</Property>
|
||||
<Property name="IsAction" type="Boolean">True</Property>
|
||||
<Property name="IsBreakPoint" type="WordBool">False</Property>
|
||||
<Property name="IsDebug" type="WordBool">False</Property>
|
||||
<Property name="IsDLL" type="WordBool">False</Property>
|
||||
<Property name="IsPreRelease" type="WordBool">False</Property>
|
||||
<Property name="IsPrivate" type="WordBool">False</Property>
|
||||
<Property name="IsSpecial" type="WordBool">False</Property>
|
||||
<Property name="KeepCFG" type="Boolean">False</Property>
|
||||
<Property name="LinkProductVersionToFileVersion" type="Boolean">False</Property>
|
||||
<Property name="Locale" type="Integer">3082</Property>
|
||||
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
|
||||
<Property name="MajorVersion" type="Integer">1</Property>
|
||||
<Property MultiValue="0" name="ManifestFile" type="string"></Property>
|
||||
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
|
||||
<Property name="MinorVersion" type="Integer">0</Property>
|
||||
<Property name="NodeCollapsed" type="Boolean">False</Property>
|
||||
<Property name="PauseInterval" type="Cardinal">0</Property>
|
||||
<Property MultiValue="1" name="ProjectFile" type="WideString"><![CDATA[%source_path%\Modulos\Gestor de informes\Controller\GestorInformes_controller.dpk]]>
|
||||
</Property>
|
||||
<Property name="RegenerateResource" type="WordBool">True</Property>
|
||||
<Property name="ReleaseVersion" type="Integer">0</Property>
|
||||
<Property MultiValue="0" name="ResourceCompilerOptions" type="string"></Property>
|
||||
<Property MultiValue="0" name="ResourceCompilerPath" type="string"></Property>
|
||||
<Property name="ResourceCompilerType" type="TFBDelphiResourceCompiler">rcBorland</Property>
|
||||
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
|
||||
<Property MultiValue="0" name="StartingDir" type="WideString"></Property>
|
||||
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
|
||||
<Property name="UpdateDofFile" type="Boolean">False</Property>
|
||||
<Property name="UpdatePackageSource" type="Boolean">False</Property>
|
||||
<Property name="UseEurekaLogCompiler" type="Boolean">False</Property>
|
||||
<Property name="UseProjectSettings" type="TFBUseProjectSettings">[usPackages,usCompiler,usLinker,usVersionInfo]</Property>
|
||||
<Property name="UsePropertySet" type="Boolean">False</Property>
|
||||
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
|
||||
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=
|
||||
FileDescription=
|
||||
FileVersion=1.0.0.0
|
||||
InternalName=
|
||||
LegalCopyright=
|
||||
LegalTrademarks=
|
||||
OriginalFilename=
|
||||
ProductName=
|
||||
ProductVersion=1.0.0.0
|
||||
Comments=
|
||||
]]>
|
||||
</Property>
|
||||
<Property MultiValue="0" name="VersionInfoPropertySetName" type="string"></Property>
|
||||
<Property name="WarningsAsError" type="Boolean">False</Property>
|
||||
<Property name="WorkAroundD5Bug" type="WordBool">False</Property>
|
||||
<Object Class="TDelphiCompilerOptions" XMLID="{A323F595-258D-4AA9-8330-7F6DA82B2872}"><Property name="AlwaysUseConditionalsFromDOF" type="WordBool">False</Property>
|
||||
<Property name="AlwaysUseDelphiLibraryPath" type="WordBool">False</Property>
|
||||
<Property name="AlwaysUseDOFSearchPath" type="WordBool">True</Property>
|
||||
<Property name="Assertions" type="WordBool">True</Property>
|
||||
<Property name="AssignableConst" type="WordBool">False</Property>
|
||||
<Property name="BoolEval" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="BPLOutputDir" type="WideString">%package_path%</Property>
|
||||
<Property name="CompilerWarnings" type="TStrings"><![CDATA[]]>
|
||||
</Property>
|
||||
<Property MultiValue="0" name="Conditionals" type="WideString"></Property>
|
||||
<Property name="ConsoleApp" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="DCPOutputDir" type="WideString">%modules_dcp_path%</Property>
|
||||
<Property name="DebugInfo" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="DefaultNamespace" type="string"></Property>
|
||||
<Property name="DefinitionsOnly" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="ExeDescription" type="WideString"></Property>
|
||||
<Property name="ExportAllSymbols" type="WordBool">False</Property>
|
||||
<Property name="ExtendedSyntax" type="WordBool">True</Property>
|
||||
<Property name="GenerateDocumentation" type="Boolean">False</Property>
|
||||
<Property name="GenerateHPP" type="WordBool">False</Property>
|
||||
<Property name="HugeStrings" type="WordBool">True</Property>
|
||||
<Property name="ImageBase" type="Cardinal">4194304</Property>
|
||||
<Property name="IncludeNamespaces" type="WordBool">False</Property>
|
||||
<Property name="IncludeRemoteSymbols" type="WordBool">False</Property>
|
||||
<Property name="IncludeTD32" type="WordBool">False</Property>
|
||||
<Property name="IOChecking" type="WordBool">True</Property>
|
||||
<Property MultiValue="0" name="LibraryPath" type="WideString">%library_path%</Property>
|
||||
<Property name="LinkerOutput" type="Integer">0</Property>
|
||||
<Property name="LocalSymbols" type="WordBool">False</Property>
|
||||
<Property name="Mapfile" type="Integer">0</Property>
|
||||
<Property name="MaxStackSize" type="Cardinal">1048576</Property>
|
||||
<Property name="MinStackSize" type="Cardinal">16384</Property>
|
||||
<Property MultiValue="0" name="NamespacePrefixes" type="string"></Property>
|
||||
<Property name="OpenStrings" type="WordBool">True</Property>
|
||||
<Property name="Optimisation" type="WordBool">True</Property>
|
||||
<Property MultiValue="0" name="OutputDir" type="WideString">%output_path%</Property>
|
||||
<Property name="OverflowChecking" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="Packages" type="WideString"></Property>
|
||||
<Property name="RangeChecking" type="WordBool">False</Property>
|
||||
<Property name="RecordFieldAlign" type="TFieldAlign">fa8</Property>
|
||||
<Property name="ReferenceInfo" type="WordBool">False</Property>
|
||||
<Property name="SafeDivide" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="SearchPath" type="WideString"></Property>
|
||||
<Property name="ShowHints" type="WordBool">True</Property>
|
||||
<Property name="ShowWarnings" type="WordBool">True</Property>
|
||||
<Property name="StackFrames" type="WordBool">False</Property>
|
||||
<Property name="TypedPointers" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="UnitAliases" type="WideString">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Property>
|
||||
<Property MultiValue="0" name="UnitOutputDir" type="WideString"></Property>
|
||||
<Property name="UseDebugDCU" type="WordBool">False</Property>
|
||||
<Property name="UsePackages" type="WordBool">False</Property>
|
||||
<Property name="VarStringChecks" type="WordBool">True</Property>
|
||||
</Object>
|
||||
</Object>
|
||||
<Object Class="TDelphiCompilerAction" XMLID="{A473598C-C378-47C1-A379-103F019BFEFC}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
|
||||
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Compile Modulos\Gestor de informes\Views\GestorInformes_view.dpk]]>
|
||||
</Property>
|
||||
<Property name="ActionTextColor" type="Cardinal">0</Property>
|
||||
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
|
||||
<Property name="AllowImplicitImport" type="Boolean">True</Property>
|
||||
<Property name="AlwaysUseConditionalsFromDOF" type="WordBool">False</Property>
|
||||
<Property name="AutoIncBuild" type="WordBool">False</Property>
|
||||
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
|
||||
<Property name="BuildAll" type="WordBool">True</Property>
|
||||
<Property name="BuildVersion" type="Integer">0</Property>
|
||||
<Property name="CodePage" type="Integer">1252</Property>
|
||||
<Property name="CompilerVersion" type="Integer">12</Property>
|
||||
<Property MultiValue="0" name="ConfigName" type="string">Release</Property>
|
||||
<Property name="DebugVersionNumbers" type="Boolean">False</Property>
|
||||
<Property MultiValue="1" name="Description" type="string"><![CDATA[Compile Modulos\Gestor de informes\Views\GestorInformes_view.dpk]]>
|
||||
</Property>
|
||||
<Property name="Enabled" type="WordBool">True</Property>
|
||||
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
|
||||
<Property MultiValue="0" name="ExtraCommandline" type="WideString"></Property>
|
||||
<Property name="HintsAsError" type="Boolean">False</Property>
|
||||
<Property MultiValue="0" name="IconFile" type="WideString"></Property>
|
||||
<Property name="IgnoreFailure" type="WordBool">False</Property>
|
||||
<Property name="IncludeCompileDate" type="WordBool">False</Property>
|
||||
<Property name="IncludeManifest" type="Boolean">False</Property>
|
||||
<Property name="IncludeVerInfo" type="WordBool">True</Property>
|
||||
<Property name="IsAction" type="Boolean">True</Property>
|
||||
<Property name="IsBreakPoint" type="WordBool">False</Property>
|
||||
<Property name="IsDebug" type="WordBool">False</Property>
|
||||
<Property name="IsDLL" type="WordBool">False</Property>
|
||||
<Property name="IsPreRelease" type="WordBool">False</Property>
|
||||
<Property name="IsPrivate" type="WordBool">False</Property>
|
||||
<Property name="IsSpecial" type="WordBool">False</Property>
|
||||
<Property name="KeepCFG" type="Boolean">False</Property>
|
||||
<Property name="LinkProductVersionToFileVersion" type="Boolean">False</Property>
|
||||
<Property name="Locale" type="Integer">3082</Property>
|
||||
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
|
||||
<Property name="MajorVersion" type="Integer">1</Property>
|
||||
<Property MultiValue="0" name="ManifestFile" type="string"></Property>
|
||||
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
|
||||
<Property name="MinorVersion" type="Integer">0</Property>
|
||||
<Property name="NodeCollapsed" type="Boolean">False</Property>
|
||||
<Property name="PauseInterval" type="Cardinal">0</Property>
|
||||
<Property MultiValue="1" name="ProjectFile" type="WideString"><![CDATA[%source_path%\Modulos\Gestor de informes\Views\GestorInformes_view.dpk]]>
|
||||
</Property>
|
||||
<Property name="RegenerateResource" type="WordBool">True</Property>
|
||||
<Property name="ReleaseVersion" type="Integer">0</Property>
|
||||
<Property MultiValue="0" name="ResourceCompilerOptions" type="string"></Property>
|
||||
<Property MultiValue="0" name="ResourceCompilerPath" type="string"></Property>
|
||||
<Property name="ResourceCompilerType" type="TFBDelphiResourceCompiler">rcBorland</Property>
|
||||
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
|
||||
<Property MultiValue="0" name="StartingDir" type="WideString"></Property>
|
||||
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
|
||||
<Property name="UpdateDofFile" type="Boolean">False</Property>
|
||||
<Property name="UpdatePackageSource" type="Boolean">False</Property>
|
||||
<Property name="UseEurekaLogCompiler" type="Boolean">False</Property>
|
||||
<Property name="UseProjectSettings" type="TFBUseProjectSettings">[usPackages,usCompiler,usLinker,usVersionInfo]</Property>
|
||||
<Property name="UsePropertySet" type="Boolean">False</Property>
|
||||
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
|
||||
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=
|
||||
FileDescription=
|
||||
FileVersion=1.0.0.0
|
||||
InternalName=
|
||||
LegalCopyright=
|
||||
LegalTrademarks=
|
||||
OriginalFilename=
|
||||
ProductName=
|
||||
ProductVersion=1.0.0.0
|
||||
Comments=
|
||||
]]>
|
||||
</Property>
|
||||
<Property MultiValue="0" name="VersionInfoPropertySetName" type="string"></Property>
|
||||
<Property name="WarningsAsError" type="Boolean">False</Property>
|
||||
<Property name="WorkAroundD5Bug" type="WordBool">False</Property>
|
||||
<Object Class="TDelphiCompilerOptions" XMLID="{CBD04F8D-7B18-4046-85D4-39EEA388EB97}"><Property name="AlwaysUseConditionalsFromDOF" type="WordBool">False</Property>
|
||||
<Property name="AlwaysUseDelphiLibraryPath" type="WordBool">False</Property>
|
||||
<Property name="AlwaysUseDOFSearchPath" type="WordBool">True</Property>
|
||||
<Property name="Assertions" type="WordBool">True</Property>
|
||||
<Property name="AssignableConst" type="WordBool">False</Property>
|
||||
<Property name="BoolEval" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="BPLOutputDir" type="WideString">%package_path%</Property>
|
||||
<Property name="CompilerWarnings" type="TStrings"><![CDATA[]]>
|
||||
</Property>
|
||||
<Property MultiValue="0" name="Conditionals" type="WideString"></Property>
|
||||
<Property name="ConsoleApp" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="DCPOutputDir" type="WideString">%modules_dcp_path%</Property>
|
||||
<Property name="DebugInfo" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="DefaultNamespace" type="string"></Property>
|
||||
<Property name="DefinitionsOnly" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="ExeDescription" type="WideString"></Property>
|
||||
<Property name="ExportAllSymbols" type="WordBool">False</Property>
|
||||
<Property name="ExtendedSyntax" type="WordBool">True</Property>
|
||||
<Property name="GenerateDocumentation" type="Boolean">False</Property>
|
||||
<Property name="GenerateHPP" type="WordBool">False</Property>
|
||||
<Property name="HugeStrings" type="WordBool">True</Property>
|
||||
<Property name="ImageBase" type="Cardinal">4194304</Property>
|
||||
<Property name="IncludeNamespaces" type="WordBool">False</Property>
|
||||
<Property name="IncludeRemoteSymbols" type="WordBool">False</Property>
|
||||
<Property name="IncludeTD32" type="WordBool">False</Property>
|
||||
<Property name="IOChecking" type="WordBool">True</Property>
|
||||
<Property MultiValue="0" name="LibraryPath" type="WideString">%library_path%</Property>
|
||||
<Property name="LinkerOutput" type="Integer">0</Property>
|
||||
<Property name="LocalSymbols" type="WordBool">False</Property>
|
||||
<Property name="Mapfile" type="Integer">0</Property>
|
||||
<Property name="MaxStackSize" type="Cardinal">1048576</Property>
|
||||
<Property name="MinStackSize" type="Cardinal">16384</Property>
|
||||
<Property MultiValue="0" name="NamespacePrefixes" type="string"></Property>
|
||||
<Property name="OpenStrings" type="WordBool">True</Property>
|
||||
<Property name="Optimisation" type="WordBool">True</Property>
|
||||
<Property MultiValue="0" name="OutputDir" type="WideString">%output_path%</Property>
|
||||
<Property name="OverflowChecking" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="Packages" type="WideString"></Property>
|
||||
<Property name="RangeChecking" type="WordBool">False</Property>
|
||||
<Property name="RecordFieldAlign" type="TFieldAlign">fa8</Property>
|
||||
<Property name="ReferenceInfo" type="WordBool">False</Property>
|
||||
<Property name="SafeDivide" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="SearchPath" type="WideString"></Property>
|
||||
<Property name="ShowHints" type="WordBool">True</Property>
|
||||
<Property name="ShowWarnings" type="WordBool">True</Property>
|
||||
<Property name="StackFrames" type="WordBool">False</Property>
|
||||
<Property name="TypedPointers" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="UnitAliases" type="WideString">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Property>
|
||||
<Property MultiValue="0" name="UnitOutputDir" type="WideString"></Property>
|
||||
<Property name="UseDebugDCU" type="WordBool">False</Property>
|
||||
<Property name="UsePackages" type="WordBool">False</Property>
|
||||
<Property name="VarStringChecks" type="WordBool">True</Property>
|
||||
</Object>
|
||||
</Object>
|
||||
<Object Class="TDelphiCompilerAction" XMLID="{1E697B28-F0C9-4410-9170-68353D0854BC}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
|
||||
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Compile Modulos\Gestor de informes\Plugin\GestorInformes_plugin.dpk]]>
|
||||
</Property>
|
||||
<Property name="ActionTextColor" type="Cardinal">0</Property>
|
||||
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
|
||||
<Property name="AllowImplicitImport" type="Boolean">True</Property>
|
||||
<Property name="AlwaysUseConditionalsFromDOF" type="WordBool">False</Property>
|
||||
<Property name="AutoIncBuild" type="WordBool">False</Property>
|
||||
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
|
||||
<Property name="BuildAll" type="WordBool">True</Property>
|
||||
<Property name="BuildVersion" type="Integer">0</Property>
|
||||
<Property name="CodePage" type="Integer">1252</Property>
|
||||
<Property name="CompilerVersion" type="Integer">12</Property>
|
||||
<Property MultiValue="0" name="ConfigName" type="string">Release</Property>
|
||||
<Property name="DebugVersionNumbers" type="Boolean">False</Property>
|
||||
<Property MultiValue="1" name="Description" type="string"><![CDATA[Compile Modulos\Gestor de informes\Plugin\GestorInformes_plugin.dpk]]>
|
||||
</Property>
|
||||
<Property name="Enabled" type="WordBool">True</Property>
|
||||
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
|
||||
<Property MultiValue="0" name="ExtraCommandline" type="WideString"></Property>
|
||||
<Property name="HintsAsError" type="Boolean">False</Property>
|
||||
<Property MultiValue="0" name="IconFile" type="WideString"></Property>
|
||||
<Property name="IgnoreFailure" type="WordBool">False</Property>
|
||||
<Property name="IncludeCompileDate" type="WordBool">False</Property>
|
||||
<Property name="IncludeManifest" type="Boolean">False</Property>
|
||||
<Property name="IncludeVerInfo" type="WordBool">False</Property>
|
||||
<Property name="IsAction" type="Boolean">True</Property>
|
||||
<Property name="IsBreakPoint" type="WordBool">False</Property>
|
||||
<Property name="IsDebug" type="WordBool">False</Property>
|
||||
<Property name="IsDLL" type="WordBool">False</Property>
|
||||
<Property name="IsPreRelease" type="WordBool">False</Property>
|
||||
<Property name="IsPrivate" type="WordBool">False</Property>
|
||||
<Property name="IsSpecial" type="WordBool">False</Property>
|
||||
<Property name="KeepCFG" type="Boolean">False</Property>
|
||||
<Property name="LinkProductVersionToFileVersion" type="Boolean">False</Property>
|
||||
<Property name="Locale" type="Integer">3081</Property>
|
||||
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
|
||||
<Property name="MajorVersion" type="Integer">1</Property>
|
||||
<Property MultiValue="0" name="ManifestFile" type="string"></Property>
|
||||
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
|
||||
<Property name="MinorVersion" type="Integer">0</Property>
|
||||
<Property name="NodeCollapsed" type="Boolean">False</Property>
|
||||
<Property name="PauseInterval" type="Cardinal">0</Property>
|
||||
<Property MultiValue="1" name="ProjectFile" type="WideString"><![CDATA[%source_path%\Modulos\Gestor de informes\Plugin\GestorInformes_plugin.dpk]]>
|
||||
</Property>
|
||||
<Property name="RegenerateResource" type="WordBool">True</Property>
|
||||
<Property name="ReleaseVersion" type="Integer">0</Property>
|
||||
<Property MultiValue="0" name="ResourceCompilerOptions" type="string"></Property>
|
||||
<Property MultiValue="0" name="ResourceCompilerPath" type="string"></Property>
|
||||
<Property name="ResourceCompilerType" type="TFBDelphiResourceCompiler">rcBorland</Property>
|
||||
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
|
||||
<Property MultiValue="0" name="StartingDir" type="WideString"></Property>
|
||||
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
|
||||
<Property name="UpdateDofFile" type="Boolean">False</Property>
|
||||
<Property name="UpdatePackageSource" type="Boolean">False</Property>
|
||||
<Property name="UseEurekaLogCompiler" type="Boolean">False</Property>
|
||||
<Property name="UseProjectSettings" type="TFBUseProjectSettings">[usPackages,usCompiler,usLinker,usVersionInfo]</Property>
|
||||
<Property name="UsePropertySet" type="Boolean">False</Property>
|
||||
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
|
||||
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[FileVersion=1.0.0.0
|
||||
]]>
|
||||
</Property>
|
||||
<Property MultiValue="0" name="VersionInfoPropertySetName" type="string"></Property>
|
||||
<Property name="WarningsAsError" type="Boolean">False</Property>
|
||||
<Property name="WorkAroundD5Bug" type="WordBool">False</Property>
|
||||
<Object Class="TDelphiCompilerOptions" XMLID="{15A44DBC-C615-4B88-9F95-43350E0B5538}"><Property name="AlwaysUseConditionalsFromDOF" type="WordBool">False</Property>
|
||||
<Property name="AlwaysUseDelphiLibraryPath" type="WordBool">False</Property>
|
||||
<Property name="AlwaysUseDOFSearchPath" type="WordBool">True</Property>
|
||||
<Property name="Assertions" type="WordBool">True</Property>
|
||||
<Property name="AssignableConst" type="WordBool">False</Property>
|
||||
<Property name="BoolEval" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="BPLOutputDir" type="WideString">%package_path%</Property>
|
||||
<Property name="CompilerWarnings" type="TStrings"><![CDATA[]]>
|
||||
</Property>
|
||||
<Property MultiValue="0" name="Conditionals" type="WideString"></Property>
|
||||
<Property name="ConsoleApp" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="DCPOutputDir" type="WideString">%modules_dcp_path%</Property>
|
||||
<Property name="DebugInfo" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="DefaultNamespace" type="string"></Property>
|
||||
<Property name="DefinitionsOnly" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="ExeDescription" type="WideString"></Property>
|
||||
<Property name="ExportAllSymbols" type="WordBool">False</Property>
|
||||
<Property name="ExtendedSyntax" type="WordBool">True</Property>
|
||||
<Property name="GenerateDocumentation" type="Boolean">False</Property>
|
||||
<Property name="GenerateHPP" type="WordBool">False</Property>
|
||||
<Property name="HugeStrings" type="WordBool">True</Property>
|
||||
<Property name="ImageBase" type="Cardinal">4194304</Property>
|
||||
<Property name="IncludeNamespaces" type="WordBool">False</Property>
|
||||
<Property name="IncludeRemoteSymbols" type="WordBool">False</Property>
|
||||
<Property name="IncludeTD32" type="WordBool">False</Property>
|
||||
<Property name="IOChecking" type="WordBool">True</Property>
|
||||
<Property MultiValue="0" name="LibraryPath" type="WideString">%library_path%</Property>
|
||||
<Property name="LinkerOutput" type="Integer">0</Property>
|
||||
<Property name="LocalSymbols" type="WordBool">False</Property>
|
||||
<Property name="Mapfile" type="Integer">0</Property>
|
||||
<Property name="MaxStackSize" type="Cardinal">1048576</Property>
|
||||
<Property name="MinStackSize" type="Cardinal">16384</Property>
|
||||
<Property MultiValue="0" name="NamespacePrefixes" type="string"></Property>
|
||||
<Property name="OpenStrings" type="WordBool">True</Property>
|
||||
<Property name="Optimisation" type="WordBool">True</Property>
|
||||
<Property MultiValue="0" name="OutputDir" type="WideString">%output_path%</Property>
|
||||
<Property name="OverflowChecking" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="Packages" type="WideString"></Property>
|
||||
<Property name="RangeChecking" type="WordBool">False</Property>
|
||||
<Property name="RecordFieldAlign" type="TFieldAlign">fa8</Property>
|
||||
<Property name="ReferenceInfo" type="WordBool">False</Property>
|
||||
<Property name="SafeDivide" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="SearchPath" type="WideString"></Property>
|
||||
<Property name="ShowHints" type="WordBool">True</Property>
|
||||
<Property name="ShowWarnings" type="WordBool">True</Property>
|
||||
<Property name="StackFrames" type="WordBool">False</Property>
|
||||
<Property name="TypedPointers" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="UnitAliases" type="WideString">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Property>
|
||||
<Property MultiValue="0" name="UnitOutputDir" type="WideString"></Property>
|
||||
<Property name="UseDebugDCU" type="WordBool">False</Property>
|
||||
<Property name="UsePackages" type="WordBool">False</Property>
|
||||
<Property name="VarStringChecks" type="WordBool">True</Property>
|
||||
</Object>
|
||||
</Object>
|
||||
</Object>
|
||||
<Object Class="TGroupAction" XMLID="{AD23CE23-8728-48FA-84FD-264E27BA8F46}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
|
||||
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Almacenes MDC]]>
|
||||
</Property>
|
||||
|
||||
@ -58,52 +58,52 @@
|
||||
<DelphiCompile Include="Base.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\adortl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxIntl6D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxIntlPrintSys3D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\designide.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\dsnap.dcp" />
|
||||
<DCCReference Include="..\Modulos\Lib\adortl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Lib\cxIntl6D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Lib\cxIntlPrintSys3D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Lib\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Lib\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Lib\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Lib\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Lib\designide.dcp" />
|
||||
<DCCReference Include="..\Modulos\Lib\dsnap.dcp" />
|
||||
<DCCReference Include="..\Modulos\Lib\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Lib\dxNavBarD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Lib\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Lib\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Lib\IndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Lib\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\Modulos\Lib\IndySystem.dcp" />
|
||||
<DCCReference Include="..\Modulos\Lib\Jcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Lib\JclVcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Lib\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\Modulos\Lib\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Lib\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Lib\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Lib\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Lib\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Lib\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Lib\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Lib\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Lib\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Lib\pckMD5.dcp" />
|
||||
<DCCReference Include="..\Modulos\Lib\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\Modulos\Lib\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\Modulos\Lib\PluginSDK_D10R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Lib\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Lib\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Lib\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Lib\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Lib\TB2k_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Lib\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Lib\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Lib\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Modulos\Lib\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Lib\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Lib\VclSmp.dcp" />
|
||||
<DCCReference Include="..\Modulos\Lib\vclx.dcp" />
|
||||
<DCCReference Include="..\Modulos\Lib\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxDockingD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxNavBarD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\IndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\IndySystem.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Jcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\JclVcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\pckMD5.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\PluginSDK_D10R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\TB2k_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\VclSmp.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\vclx.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||
<DCCReference Include="Conexion\uConfigurarConexion.pas">
|
||||
<Form>fConfigurarConexion</Form>
|
||||
|
||||
@ -61,6 +61,8 @@ begin
|
||||
LoadModule('Ejercicios_plugin.bpl');
|
||||
LoadModule('Contabilidad_plugin.bpl');
|
||||
{$ENDIF}
|
||||
|
||||
LoadModule('GestorInformes_plugin.bpl');
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
@ -58,32 +58,37 @@
|
||||
<DelphiCompile Include="GUIBase.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="Base.dcp" />
|
||||
<DCCReference Include="cxDataD11.dcp" />
|
||||
<DCCReference Include="cxEditorsD11.dcp" />
|
||||
<DCCReference Include="cxExportD11.dcp" />
|
||||
<DCCReference Include="cxLibraryD11.dcp" />
|
||||
<DCCReference Include="cxTreeListD11.dcp" />
|
||||
<DCCReference Include="dbrtl.dcp" />
|
||||
<DCCReference Include="dxBarD11.dcp" />
|
||||
<DCCReference Include="dxBarExtItemsD11.dcp" />
|
||||
<DCCReference Include="dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="dxPsPrVwAdvD11.dcp" />
|
||||
<DCCReference Include="dxThemeD11.dcp" />
|
||||
<DCCReference Include="frx11.dcp" />
|
||||
<DCCReference Include="frxe11.dcp" />
|
||||
<DCCReference Include="fs11.dcp" />
|
||||
<DCCReference Include="JvAppFrmD11R.dcp" />
|
||||
<DCCReference Include="JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="JvGlobusD11R.dcp" />
|
||||
<DCCReference Include="PngComponentsD10.dcp" />
|
||||
<DCCReference Include="PNG_D10.dcp" />
|
||||
<DCCReference Include="rtl.dcp" />
|
||||
<DCCReference Include="tb2k_d10.dcp" />
|
||||
<DCCReference Include="tbx_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Base.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxTreeListD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxBarD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxBarExtItemsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxPsPrVwAdvD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\frx11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\frxe11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\fs11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvAppFrmD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvGlobusD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\tb2k_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\vclx.dcp" />
|
||||
<DCCReference Include="uDialogBase.pas">
|
||||
<Form>fDialogBase</Form>
|
||||
</DCCReference>
|
||||
@ -175,11 +180,6 @@
|
||||
<Form>frViewTotales</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="vcl.dcp" />
|
||||
<DCCReference Include="vclactnband.dcp" />
|
||||
<DCCReference Include="vcldb.dcp" />
|
||||
<DCCReference Include="vcljpg.dcp" />
|
||||
<DCCReference Include="vclx.dcp" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
|
||||
46
Source/Informes/InformeIVAClientes.fr3
Normal file
46
Source/Informes/InformeIVAClientes.fr3
Normal file
File diff suppressed because one or more lines are too long
50
Source/Informes/InformeIVAClientesDesglosado.fr3
Normal file
50
Source/Informes/InformeIVAClientesDesglosado.fr3
Normal file
File diff suppressed because one or more lines are too long
46
Source/Informes/InformeIVAProveedores.fr3
Normal file
46
Source/Informes/InformeIVAProveedores.fr3
Normal file
File diff suppressed because one or more lines are too long
50
Source/Informes/InformeIVAProveedoresDesglosado.fr3
Normal file
50
Source/Informes/InformeIVAProveedoresDesglosado.fr3
Normal file
File diff suppressed because one or more lines are too long
46
Source/Informes/InformeListadoFacturasCliente.fr3
Normal file
46
Source/Informes/InformeListadoFacturasCliente.fr3
Normal file
File diff suppressed because one or more lines are too long
50
Source/Informes/InformeListadoFacturasClienteDesglosado.fr3
Normal file
50
Source/Informes/InformeListadoFacturasClienteDesglosado.fr3
Normal file
File diff suppressed because one or more lines are too long
41
Source/Informes/InformeListadoFacturasClientePendientes.fr3
Normal file
41
Source/Informes/InformeListadoFacturasClientePendientes.fr3
Normal file
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
46
Source/Informes/InformeListadoFacturasProveedor.fr3
Normal file
46
Source/Informes/InformeListadoFacturasProveedor.fr3
Normal file
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
44
Source/Informes/InformeListadoPresupuestos.fr3
Normal file
44
Source/Informes/InformeListadoPresupuestos.fr3
Normal file
File diff suppressed because one or more lines are too long
48
Source/Informes/InformeListadoPresupuestosDesglosado.fr3
Normal file
48
Source/Informes/InformeListadoPresupuestosDesglosado.fr3
Normal file
File diff suppressed because one or more lines are too long
42
Source/Informes/InformeListadoRecibosCliPendientes.fr3
Normal file
42
Source/Informes/InformeListadoRecibosCliPendientes.fr3
Normal file
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
42
Source/Informes/InformeListadoRecibosCliente.fr3
Normal file
42
Source/Informes/InformeListadoRecibosCliente.fr3
Normal file
File diff suppressed because one or more lines are too long
46
Source/Informes/InformeListadoRecibosClienteDesglosado.fr3
Normal file
46
Source/Informes/InformeListadoRecibosClienteDesglosado.fr3
Normal file
File diff suppressed because one or more lines are too long
42
Source/Informes/InformeListadoRecibosProvPendientes.fr3
Normal file
42
Source/Informes/InformeListadoRecibosProvPendientes.fr3
Normal file
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
42
Source/Informes/InformeListadoRecibosProveedor.fr3
Normal file
42
Source/Informes/InformeListadoRecibosProveedor.fr3
Normal file
File diff suppressed because one or more lines are too long
46
Source/Informes/InformeListadoRecibosProveedorDesglosado.fr3
Normal file
46
Source/Informes/InformeListadoRecibosProveedorDesglosado.fr3
Normal file
File diff suppressed because one or more lines are too long
Binary file not shown.
@ -49,23 +49,27 @@
|
||||
<DelphiCompile Include="Contactos_model.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\..\Cliente\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\..\..\Cliente\Base.dcp" />
|
||||
<DCCReference Include="..\..\..\Cliente\FormasPago_controller.dcp" />
|
||||
<DCCReference Include="..\..\..\Cliente\FormasPago_model.dcp" />
|
||||
<DCCReference Include="..\..\..\Cliente\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\..\Cliente\rtl.dcp" />
|
||||
<DCCReference Include="..\..\..\Cliente\TiposIVA_controller.dcp" />
|
||||
<DCCReference Include="..\..\..\Cliente\TiposIVA_model.dcp" />
|
||||
<DCCReference Include="..\..\..\Cliente\vcl.dcp" />
|
||||
<DCCReference Include="..\Utiles\uRegimenIVAUtils.pas" />
|
||||
<DCCReference Include="adortl.dcp" />
|
||||
<DCCReference Include="ApplicationBase.dcp" />
|
||||
<DCCReference Include="Base.dcp" />
|
||||
<DCCReference Include="DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="Data\uIDataModuleClientes.pas" />
|
||||
<DCCReference Include="Data\uIDataModuleContactos.pas" />
|
||||
<DCCReference Include="Data\uIDataModuleEtiquetasContactosReport.pas" />
|
||||
<DCCReference Include="Data\uIDataModuleProveedores.pas" />
|
||||
<DCCReference Include="Data\uIDataModuleVendedores.pas" />
|
||||
<DCCReference Include="dbrtl.dcp" />
|
||||
<DCCReference Include="dsnap.dcp" />
|
||||
<DCCReference Include="FormasPago_controller.dcp" />
|
||||
<DCCReference Include="FormasPago_model.dcp" />
|
||||
<DCCReference Include="GUIBase.dcp" />
|
||||
<DCCReference Include="RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="rtl.dcp" />
|
||||
<DCCReference Include="schContactosClient_Intf.pas" />
|
||||
<DCCReference Include="schContactosServer_Intf.pas" />
|
||||
<DCCReference Include="TiposIVA_controller.dcp" />
|
||||
<DCCReference Include="TiposIVA_model.dcp" />
|
||||
<DCCReference Include="uBizClientesDescuentos.pas" />
|
||||
<DCCReference Include="uBizContactos.pas" />
|
||||
<DCCReference Include="uBizContactosDatosBancarios.pas" />
|
||||
@ -74,6 +78,8 @@
|
||||
<DCCReference Include="uBizGruposProveedor.pas" />
|
||||
<DCCReference Include="uBizProcedenciasCliente.pas" />
|
||||
<DCCReference Include="uBizSubCuentasContacto.pas" />
|
||||
<DCCReference Include="vcl.dcp" />
|
||||
<DCCReference Include="vcldb.dcp" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
|
||||
@ -71,7 +71,8 @@ requires
|
||||
dxLayoutControlD11,
|
||||
dxComnD11,
|
||||
JvMMD11R,
|
||||
JvCtrlsD11R;
|
||||
JvCtrlsD11R,
|
||||
cxExtEditorsD11;
|
||||
|
||||
contains
|
||||
uContactosViewRegister in 'uContactosViewRegister.pas',
|
||||
|
||||
@ -49,53 +49,54 @@
|
||||
<DelphiCompile Include="Contactos_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Recibos de proveedor\adortl.dcp" />
|
||||
<DCCReference Include="..\..\Recibos de proveedor\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\..\Recibos de proveedor\Base.dcp" />
|
||||
<DCCReference Include="..\..\Recibos de proveedor\bdertl.dcp" />
|
||||
<DCCReference Include="..\..\Recibos de proveedor\ccpackD11.dcp" />
|
||||
<DCCReference Include="..\..\Recibos de proveedor\cfpack_d11.dcp" />
|
||||
<DCCReference Include="..\..\Recibos de proveedor\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\..\Recibos de proveedor\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\..\Recibos de proveedor\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\..\Recibos de proveedor\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\..\Recibos de proveedor\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\..\Recibos de proveedor\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Recibos de proveedor\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\Recibos de proveedor\designide.dcp" />
|
||||
<DCCReference Include="..\..\Recibos de proveedor\dsnap.dcp" />
|
||||
<DCCReference Include="..\..\Recibos de proveedor\dxComnD11.dcp" />
|
||||
<DCCReference Include="..\..\Recibos de proveedor\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\..\Recibos de proveedor\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\..\Recibos de proveedor\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\..\Recibos de proveedor\FormasPago_controller.dcp" />
|
||||
<DCCReference Include="..\..\Recibos de proveedor\FormasPago_model.dcp" />
|
||||
<DCCReference Include="..\..\Recibos de proveedor\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Recibos de proveedor\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="..\..\Recibos de proveedor\Jcl.dcp" />
|
||||
<DCCReference Include="..\..\Recibos de proveedor\JclVcl.dcp" />
|
||||
<DCCReference Include="..\..\Recibos de proveedor\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\..\Recibos de proveedor\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\..\Recibos de proveedor\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\..\Recibos de proveedor\JvGlobusD11R.dcp" />
|
||||
<DCCReference Include="..\..\Recibos de proveedor\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\..\Recibos de proveedor\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\..\Recibos de proveedor\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\..\Recibos de proveedor\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\..\Recibos de proveedor\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\..\Recibos de proveedor\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\..\Recibos de proveedor\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Recibos de proveedor\rtl.dcp" />
|
||||
<DCCReference Include="..\..\Recibos de proveedor\tb2k_d10.dcp" />
|
||||
<DCCReference Include="..\..\Recibos de proveedor\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\..\Recibos de proveedor\TiposIVA_controller.dcp" />
|
||||
<DCCReference Include="..\..\Recibos de proveedor\TiposIVA_model.dcp" />
|
||||
<DCCReference Include="..\..\Recibos de proveedor\vcl.dcp" />
|
||||
<DCCReference Include="..\..\Recibos de proveedor\vclactnband.dcp" />
|
||||
<DCCReference Include="..\..\Recibos de proveedor\vcldb.dcp" />
|
||||
<DCCReference Include="..\..\Recibos de proveedor\vcljpg.dcp" />
|
||||
<DCCReference Include="..\..\Recibos de proveedor\vclx.dcp" />
|
||||
<DCCReference Include="..\..\Recibos de proveedor\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\Data\adortl.dcp" />
|
||||
<DCCReference Include="..\Data\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\Data\Base.dcp" />
|
||||
<DCCReference Include="..\Data\bdertl.dcp" />
|
||||
<DCCReference Include="..\Data\ccpackD11.dcp" />
|
||||
<DCCReference Include="..\Data\cfpack_d11.dcp" />
|
||||
<DCCReference Include="..\Data\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\Data\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\Data\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\Data\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Data\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Data\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Data\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Data\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Data\designide.dcp" />
|
||||
<DCCReference Include="..\Data\dsnap.dcp" />
|
||||
<DCCReference Include="..\Data\dxComnD11.dcp" />
|
||||
<DCCReference Include="..\Data\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Data\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\Data\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Data\FormasPago_controller.dcp" />
|
||||
<DCCReference Include="..\Data\FormasPago_model.dcp" />
|
||||
<DCCReference Include="..\Data\GUIBase.dcp" />
|
||||
<DCCReference Include="..\Data\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="..\Data\Jcl.dcp" />
|
||||
<DCCReference Include="..\Data\JclVcl.dcp" />
|
||||
<DCCReference Include="..\Data\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\Data\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\Data\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Data\JvGlobusD11R.dcp" />
|
||||
<DCCReference Include="..\Data\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\Data\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\Data\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Data\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\Data\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Data\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Data\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Data\rtl.dcp" />
|
||||
<DCCReference Include="..\Data\tb2k_d10.dcp" />
|
||||
<DCCReference Include="..\Data\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\Data\TiposIVA_controller.dcp" />
|
||||
<DCCReference Include="..\Data\TiposIVA_model.dcp" />
|
||||
<DCCReference Include="..\Data\vcl.dcp" />
|
||||
<DCCReference Include="..\Data\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Data\vcldb.dcp" />
|
||||
<DCCReference Include="..\Data\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Data\vclx.dcp" />
|
||||
<DCCReference Include="..\Data\xmlrtl.dcp" />
|
||||
<DCCReference Include="uContactosViewRegister.pas" />
|
||||
<DCCReference Include="uEditorCliente.pas">
|
||||
<Form>fEditorCliente</Form>
|
||||
|
||||
@ -126,7 +126,7 @@ uses
|
||||
uAlbaranesClienteController, schAlbaranesClienteClient_Intf, uROTypes, uDetallesAlbaranClienteController,
|
||||
uBizDetallesAlbaranCliente, uFacturasClienteReportController,
|
||||
// uBizPedidosCliente, uPedidosClienteController, uBizDetallesPedidoCliente,
|
||||
DateUtils, Forms, Dialogs, Variants,
|
||||
DateUtils, Forms, Dialogs, Variants, uIntegerListUtils,
|
||||
uFormasPagoController, uBizFormasPago, uIEditorElegirFacturasCliente,
|
||||
uRecibosClienteController, uBizRecibosCliente;
|
||||
|
||||
@ -1015,13 +1015,13 @@ end;
|
||||
procedure TFacturasClienteController.Preview(AFactura: IBizFacturaCliente; AllItems: Boolean = false);
|
||||
var
|
||||
AReportController : IFacturasClienteReportController;
|
||||
ID_Facturas: TStringList;
|
||||
ID_Facturas: TIntegerList;
|
||||
|
||||
begin
|
||||
AReportController := TFacturasClienteReportController.Create;
|
||||
try
|
||||
ID_Facturas := TStringList.Create;
|
||||
ID_Facturas := TIntegerList.Create;
|
||||
|
||||
try
|
||||
//Si deseamos previsualizar todos los items del objeto albaran
|
||||
if AllItems then
|
||||
begin
|
||||
@ -1030,33 +1030,33 @@ begin
|
||||
First;
|
||||
while not EOF do
|
||||
begin
|
||||
ID_Facturas.Add(IntToStr(AFactura.ID));
|
||||
ID_Facturas.Add(AFactura.ID);
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
end
|
||||
//Solo previsualizamos el item seleccionado
|
||||
else
|
||||
ID_Facturas.Add(IntToStr(AFactura.ID));
|
||||
ID_Facturas.Add(AFactura.ID);
|
||||
|
||||
AReportController.Preview(ID_Facturas.CommaText);
|
||||
AReportController.Preview(ID_Facturas);
|
||||
|
||||
finally
|
||||
AReportController := NIL;
|
||||
ID_Facturas.Free;
|
||||
FreeANDNIL(ID_Facturas);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteController.Print(AFactura: IBizFacturaCliente; AllItems: Boolean = false);
|
||||
var
|
||||
AReportController : IFacturasClienteReportController;
|
||||
ID_Facturas: TStringList;
|
||||
ID_Facturas: TIntegerList;
|
||||
|
||||
begin
|
||||
AReportController := TFacturasClienteReportController.Create;
|
||||
try
|
||||
ID_Facturas := TStringList.Create;
|
||||
ID_Facturas := TIntegerList.Create;
|
||||
|
||||
try
|
||||
//Si deseamos previsualizar todos los items del objeto albaran
|
||||
if AllItems then
|
||||
begin
|
||||
@ -1065,20 +1065,20 @@ begin
|
||||
First;
|
||||
while not EOF do
|
||||
begin
|
||||
ID_Facturas.Add(IntToStr(AFactura.ID));
|
||||
ID_Facturas.Add(AFactura.ID);
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
end
|
||||
//Solo previsualizamos el item seleccionado
|
||||
else
|
||||
ID_Facturas.Add(IntToStr(AFactura.ID));
|
||||
ID_Facturas.Add(AFactura.ID);
|
||||
|
||||
AReportController.Print(ID_Facturas.CommaText);
|
||||
AReportController.Print(ID_Facturas);
|
||||
|
||||
finally
|
||||
AReportController := NIL;
|
||||
ID_Facturas.Free;
|
||||
FreeANDNIL(ID_Facturas);
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
@ -4,14 +4,14 @@ interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, uDADataTable, uControllerBase, uIDataModuleFacturasClienteReport,
|
||||
uClientesController, uDetallesFacturaClienteController,
|
||||
uClientesController, uDetallesFacturaClienteController, uIntegerListUtils,
|
||||
uBizFacturasCliente;
|
||||
|
||||
type
|
||||
IFacturasClienteReportController = interface(IControllerBase)
|
||||
['{A0F41767-4FF6-4BAE-9FC9-894DD721D756}']
|
||||
procedure Preview(const AFacturaID : String);
|
||||
procedure Print(const AFacturaID : String);
|
||||
procedure Preview(const AListaID : TIntegerList);
|
||||
procedure Print(const AListaID : TIntegerList);
|
||||
end;
|
||||
|
||||
TFacturasClienteReportController = class(TControllerBase, IFacturasClienteReportController)
|
||||
@ -22,8 +22,8 @@ type
|
||||
constructor Create; override;
|
||||
destructor Destroy; override;
|
||||
|
||||
procedure Preview(const AFacturaID : String);
|
||||
procedure Print(const AFacturaID : String);
|
||||
procedure Preview(const AListaID : TIntegerList);
|
||||
procedure Print(const AListaID : TIntegerList);
|
||||
end;
|
||||
|
||||
|
||||
@ -54,30 +54,32 @@ begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteReportController.Preview(const AFacturaID : String);
|
||||
procedure TFacturasClienteReportController.Preview(const AListaID : TIntegerList);
|
||||
var
|
||||
AStream: Binary;
|
||||
AEditor : IEditorFacturasClientePreview;
|
||||
begin
|
||||
AEditor := NIL;
|
||||
|
||||
AStream := FDataModule.GetReport(AFacturaID);
|
||||
AStream := FDataModule.GetReport(AListaID);
|
||||
try
|
||||
CreateEditor('EditorFacturasClientePreview', IEditorFacturasClientePreview, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
try
|
||||
AEditor.Controller := Self;
|
||||
AEditor.ListaID := AListaID;
|
||||
AEditor.LoadFromStream(AStream);
|
||||
AEditor.Preview;
|
||||
finally
|
||||
AEditor.Release;
|
||||
AEditor := Nil;
|
||||
end;
|
||||
finally
|
||||
FreeAndNil(AStream);
|
||||
AEditor := Nil;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteReportController.Print(const AFacturaID : String);
|
||||
procedure TFacturasClienteReportController.Print(const AListaID : TIntegerList);
|
||||
var
|
||||
AStream: Binary;
|
||||
AEditor : IEditorFacturasClientePreview;
|
||||
@ -85,19 +87,20 @@ begin
|
||||
AEditor := NIL;
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AStream := FDataModule.GetReport(AFacturaID);
|
||||
AStream := FDataModule.GetReport(AListaID);
|
||||
try
|
||||
CreateEditor('EditorFacturasClientePreview', IEditorFacturasClientePreview, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
try
|
||||
AEditor.Controller := Self;
|
||||
AEditor.LoadFromStream(AStream);
|
||||
AEditor.Print;
|
||||
finally
|
||||
AEditor.Release;
|
||||
AEditor := Nil;
|
||||
end;
|
||||
finally
|
||||
FreeAndNil(AStream);
|
||||
AEditor := Nil;
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
|
||||
@ -10,7 +10,7 @@ uses
|
||||
uIDataModuleFacturasCliente, uBizFacturasCliente, uBizDetallesFacturaCliente,
|
||||
uDADesigntimeCall, uIDataModuleFacturasClienteReport, uDataModuleBase,
|
||||
uDAInterfaces, uDAMemDataTable, uDADataStreamer, uDABin2DataStreamer,
|
||||
uDARemoteDataAdapter;
|
||||
uDARemoteDataAdapter, uIntegerListUtils;
|
||||
|
||||
type
|
||||
TDataModuleFacturasCliente = class(TDataModuleBase, IDataModuleFacturasCliente, IDataModuleFacturasClienteReport)
|
||||
@ -30,7 +30,7 @@ type
|
||||
function NewItem : IBizFacturaCliente;
|
||||
|
||||
// Report
|
||||
function GetReport(const AFacturaID: String): Binary;
|
||||
function GetReport(const AListaID: TIntegerList): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -49,9 +49,16 @@ begin
|
||||
RORemoteService.Message := dmConexion.Message;
|
||||
end;
|
||||
|
||||
function TDataModuleFacturasCliente.GetReport(const AFacturaID: String): Binary;
|
||||
function TDataModuleFacturasCliente.GetReport(const AListaID: TIntegerList): Binary;
|
||||
var
|
||||
AParam : TIntegerArray;
|
||||
begin
|
||||
Result := (RORemoteService as IsrvFacturasCliente).GenerateReport(AFacturaID)
|
||||
AParam := AListaID.ToIntegerArray;
|
||||
try
|
||||
Result := (RORemoteService as IsrvFacturasCliente).GenerateReport(AParam);
|
||||
finally
|
||||
FreeANDNIL(AParam);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleFacturasCliente.NewItem: IBizFacturaCliente;
|
||||
|
||||
@ -14,8 +14,15 @@
|
||||
<Projects Include="..\Contabilidad\Controller\Contabilidad_controller.dproj" />
|
||||
<Projects Include="..\Contabilidad\Views\Contabilidad_view.dproj" />
|
||||
<Projects Include="..\Contactos\Controller\Contactos_controller.dproj" />
|
||||
<Projects Include="..\Contactos\Data\Contactos_data.dproj" />
|
||||
<Projects Include="..\Contactos\Model\Contactos_model.dproj" />
|
||||
<Projects Include="..\Contactos\Views\Contactos_view.dproj" />
|
||||
<Projects Include="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" />
|
||||
<Projects Include="..\Gestor de informes\Controller\GestorInformes_controller.dproj" />
|
||||
<Projects Include="..\Gestor de informes\Data\GestorInformes_data.dproj" />
|
||||
<Projects Include="..\Gestor de informes\Model\GestorInformes_model.dproj" />
|
||||
<Projects Include="..\Gestor de informes\Plugin\GestorInformes_plugin.dproj" />
|
||||
<Projects Include="..\Gestor de informes\Views\GestorInformes_view.dproj" />
|
||||
<Projects Include="Controller\FacturasCliente_controller.dproj" />
|
||||
<Projects Include="Data\FacturasCliente_data.dproj" />
|
||||
<Projects Include="Model\FacturasCliente_model.dproj" />
|
||||
@ -55,6 +62,24 @@
|
||||
<Target Name="ApplicationBase:Make">
|
||||
<MSBuild Projects="..\..\ApplicationBase\ApplicationBase.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Contactos_model">
|
||||
<MSBuild Projects="..\Contactos\Model\Contactos_model.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="Contactos_model:Clean">
|
||||
<MSBuild Projects="..\Contactos\Model\Contactos_model.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="Contactos_model:Make">
|
||||
<MSBuild Projects="..\Contactos\Model\Contactos_model.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Contactos_data">
|
||||
<MSBuild Projects="..\Contactos\Data\Contactos_data.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="Contactos_data:Clean">
|
||||
<MSBuild Projects="..\Contactos\Data\Contactos_data.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="Contactos_data:Make">
|
||||
<MSBuild Projects="..\Contactos\Data\Contactos_data.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Contactos_controller">
|
||||
<MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="" />
|
||||
</Target>
|
||||
@ -91,6 +116,51 @@
|
||||
<Target Name="Articulos_view:Make">
|
||||
<MSBuild Projects="..\Articulos\Views\Articulos_view.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="GestorInformes_model">
|
||||
<MSBuild Projects="..\Gestor de informes\Model\GestorInformes_model.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="GestorInformes_model:Clean">
|
||||
<MSBuild Projects="..\Gestor de informes\Model\GestorInformes_model.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="GestorInformes_model:Make">
|
||||
<MSBuild Projects="..\Gestor de informes\Model\GestorInformes_model.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="GestorInformes_data">
|
||||
<MSBuild Projects="..\Gestor de informes\Data\GestorInformes_data.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="GestorInformes_data:Clean">
|
||||
<MSBuild Projects="..\Gestor de informes\Data\GestorInformes_data.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="GestorInformes_data:Make">
|
||||
<MSBuild Projects="..\Gestor de informes\Data\GestorInformes_data.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="GestorInformes_controller">
|
||||
<MSBuild Projects="..\Gestor de informes\Controller\GestorInformes_controller.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="GestorInformes_controller:Clean">
|
||||
<MSBuild Projects="..\Gestor de informes\Controller\GestorInformes_controller.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="GestorInformes_controller:Make">
|
||||
<MSBuild Projects="..\Gestor de informes\Controller\GestorInformes_controller.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="GestorInformes_view">
|
||||
<MSBuild Projects="..\Gestor de informes\Views\GestorInformes_view.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="GestorInformes_view:Clean">
|
||||
<MSBuild Projects="..\Gestor de informes\Views\GestorInformes_view.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="GestorInformes_view:Make">
|
||||
<MSBuild Projects="..\Gestor de informes\Views\GestorInformes_view.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="GestorInformes_plugin">
|
||||
<MSBuild Projects="..\Gestor de informes\Plugin\GestorInformes_plugin.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="GestorInformes_plugin:Clean">
|
||||
<MSBuild Projects="..\Gestor de informes\Plugin\GestorInformes_plugin.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="GestorInformes_plugin:Make">
|
||||
<MSBuild Projects="..\Gestor de informes\Plugin\GestorInformes_plugin.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="FacturasCliente_model">
|
||||
<MSBuild Projects="Model\FacturasCliente_model.dproj" Targets="" />
|
||||
</Target>
|
||||
@ -182,13 +252,13 @@
|
||||
<MSBuild Projects="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_controller;Contactos_view;Articulos_controller;Articulos_view;FacturasCliente_model;FacturasCliente_data;FacturasCliente_controller;FacturasCliente_view;FacturasCliente_plugin;FactuGES;FactuGES_Server;Contabilidad_controller;Contabilidad_view;FacturasProveedor_view" />
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_controller;Articulos_view;GestorInformes_model;GestorInformes_data;GestorInformes_controller;GestorInformes_view;GestorInformes_plugin;FacturasCliente_model;FacturasCliente_data;FacturasCliente_controller;FacturasCliente_view;FacturasCliente_plugin;FactuGES;FactuGES_Server;Contabilidad_controller;Contabilidad_view;FacturasProveedor_view" />
|
||||
</Target>
|
||||
<Target Name="Clean">
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;FacturasCliente_model:Clean;FacturasCliente_data:Clean;FacturasCliente_controller:Clean;FacturasCliente_view:Clean;FacturasCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;Contabilidad_controller:Clean;Contabilidad_view:Clean;FacturasProveedor_view:Clean" />
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;GestorInformes_model:Clean;GestorInformes_data:Clean;GestorInformes_controller:Clean;GestorInformes_view:Clean;GestorInformes_plugin:Clean;FacturasCliente_model:Clean;FacturasCliente_data:Clean;FacturasCliente_controller:Clean;FacturasCliente_view:Clean;FacturasCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;Contabilidad_controller:Clean;Contabilidad_view:Clean;FacturasProveedor_view:Clean" />
|
||||
</Target>
|
||||
<Target Name="Make">
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;FacturasCliente_model:Make;FacturasCliente_data:Make;FacturasCliente_controller:Make;FacturasCliente_view:Make;FacturasCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;Contabilidad_controller:Make;Contabilidad_view:Make;FacturasProveedor_view:Make" />
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;GestorInformes_model:Make;GestorInformes_data:Make;GestorInformes_controller:Make;GestorInformes_view:Make;GestorInformes_plugin:Make;FacturasCliente_model:Make;FacturasCliente_data:Make;FacturasCliente_controller:Make;FacturasCliente_view:Make;FacturasCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;Contabilidad_controller:Make;Contabilidad_view:Make;FacturasProveedor_view:Make" />
|
||||
</Target>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -3,12 +3,12 @@ unit uIDataModuleFacturasClienteReport;
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, Classes, uROTypes;
|
||||
SysUtils, uROTypes, uIntegerListUtils;
|
||||
|
||||
type
|
||||
IDataModuleFacturasClienteReport = interface
|
||||
['{F498AC70-AA38-4C06-B301-85A4AC0B210B}']
|
||||
function GetReport(const AFacturaID: String): Binary;
|
||||
function GetReport(const AListaID: TIntegerList): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
@ -2,20 +2,20 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
OldCreateOrder = True
|
||||
OnCreate = DataModuleCreate
|
||||
Height = 464
|
||||
Width = 589
|
||||
Width = 688
|
||||
object DADataCabecera: TDADataSource
|
||||
DataSet = tbl_FacturaCliente.Dataset
|
||||
DataTable = tbl_FacturaCliente
|
||||
DataSet = tbl_Cabecera.Dataset
|
||||
DataTable = tbl_Cabecera
|
||||
Left = 264
|
||||
Top = 72
|
||||
end
|
||||
object DADataDetalles: TDADataSource
|
||||
DataSet = tbl_DetallesFacturaCliente.Dataset
|
||||
DataTable = tbl_DetallesFacturaCliente
|
||||
DataSet = tbl_Detalles.Dataset
|
||||
DataTable = tbl_Detalles
|
||||
Left = 344
|
||||
Top = 72
|
||||
end
|
||||
object tbl_FacturaCliente: TDAMemDataTable
|
||||
object tbl_Cabecera: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
@ -252,7 +252,7 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
Left = 264
|
||||
Top = 128
|
||||
end
|
||||
object tbl_DetallesFacturaCliente: TDAMemDataTable
|
||||
object tbl_Detalles: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
@ -354,6 +354,145 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
object schReport: TDASchema
|
||||
ConnectionManager = dmServer.ConnectionManager
|
||||
Datasets = <
|
||||
item
|
||||
Params = <>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
Name = 'IBX'
|
||||
SQL =
|
||||
'select ID_EMPRESA,'#10'extract (month from fecha_factura) as MES,'#10'ca' +
|
||||
'se'#10'when extract (month from fecha_factura) = 1 then '#39'ENERO - '#39' |' +
|
||||
'| extract (year from fecha_factura)'#10'when extract (month from fec' +
|
||||
'ha_factura) = 2 then '#39'FEBRERO - '#39' || extract (year from fecha_fa' +
|
||||
'ctura)'#10'when extract (month from fecha_factura) = 3 then '#39'MARZO -' +
|
||||
' '#39' || extract (year from fecha_factura)'#10'when extract (month from' +
|
||||
' fecha_factura) = 4 then '#39'ABRIL - '#39' || extract (year from fecha_' +
|
||||
'factura)'#10'when extract (month from fecha_factura) = 5 then '#39'MAYO ' +
|
||||
'- '#39' || extract (year from fecha_factura)'#10'when extract (month fro' +
|
||||
'm fecha_factura) = 6 then '#39'JUNIO - '#39' || extract (year from fecha' +
|
||||
'_factura)'#10'when extract (month from fecha_factura) = 7 then '#39'JULI' +
|
||||
'O - '#39' || extract (year from fecha_factura)'#10'when extract (month f' +
|
||||
'rom fecha_factura) = 8 then '#39'AGOSTO - '#39' || extract (year from fe' +
|
||||
'cha_factura)'#10'when extract (month from fecha_factura) = 9 then '#39'S' +
|
||||
'EPTIEMBRE - '#39' || extract (year from fecha_factura)'#10'when extract ' +
|
||||
'(month from fecha_factura) = 10 then '#39'OCTUBRE - '#39' || extract (ye' +
|
||||
'ar from fecha_factura)'#10'when extract (month from fecha_factura) =' +
|
||||
' 11 then '#39'NOVIEMBRE - '#39' || extract (year from fecha_factura)'#10'whe' +
|
||||
'n extract (month from fecha_factura) = 12 then '#39'DICIEMBRE - '#39' ||' +
|
||||
' extract (year from fecha_factura)'#10'end as TITULO,'#10'REFERENCIA, I' +
|
||||
'D_CLIENTE, NOMBRE, SITUACION, NIF_CIF, FECHA_FACTURA, BASE_IMPON' +
|
||||
'IBLE, IMPORTE_IVA, IMPORTE_TOTAL'#10#10'from V_facturas_cliente'#10'where ' +
|
||||
'{where}'#10'order by FECHA_FACTURA'#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
DatasetField = 'ID_EMPRESA'
|
||||
TableField = 'ID_EMPRESA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'MES'
|
||||
TableField = 'MES'
|
||||
end
|
||||
item
|
||||
DatasetField = 'TITULO'
|
||||
TableField = 'TITULO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'REFERENCIA'
|
||||
TableField = 'REFERENCIA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_CLIENTE'
|
||||
TableField = 'ID_CLIENTE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'NOMBRE'
|
||||
TableField = 'NOMBRE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'SITUACION'
|
||||
TableField = 'SITUACION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'NIF_CIF'
|
||||
TableField = 'NIF_CIF'
|
||||
end
|
||||
item
|
||||
DatasetField = 'FECHA_FACTURA'
|
||||
TableField = 'FECHA_FACTURA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'BASE_IMPONIBLE'
|
||||
TableField = 'BASE_IMPONIBLE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_IVA'
|
||||
TableField = 'IMPORTE_IVA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_TOTAL'
|
||||
TableField = 'IMPORTE_TOTAL'
|
||||
end>
|
||||
end>
|
||||
Name = 'ListadoFacturas'
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'MES'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'TITULO'
|
||||
DataType = datString
|
||||
Size = 19
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'ID_CLIENTE'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'SITUACION'
|
||||
DataType = datString
|
||||
Size = 19
|
||||
end
|
||||
item
|
||||
Name = 'NIF_CIF'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_FACTURA'
|
||||
DataType = datDateTime
|
||||
end
|
||||
item
|
||||
Name = 'BASE_IMPONIBLE'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_IVA'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
end>
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
@ -1410,4 +1549,86 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
Left = 48
|
||||
Top = 80
|
||||
end
|
||||
object tbl_InformeListadoFacturas: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'MES'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'TITULO'
|
||||
DataType = datString
|
||||
Size = 19
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'ID_CLIENTE'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'SITUACION'
|
||||
DataType = datString
|
||||
Size = 19
|
||||
end
|
||||
item
|
||||
Name = 'NIF_CIF'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_FACTURA'
|
||||
DataType = datDateTime
|
||||
end
|
||||
item
|
||||
Name = 'BASE_IMPONIBLE'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_IVA'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
end>
|
||||
Params = <>
|
||||
LogChanges = False
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteFetchEnabled = False
|
||||
LocalSchema = schReport
|
||||
LocalDataStreamer = Bin2DataStreamer
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'ListadoFacturas'
|
||||
IndexDefs = <>
|
||||
Left = 576
|
||||
Top = 128
|
||||
end
|
||||
object DADSInformeListadoFacturas: TDADataSource
|
||||
DataSet = tbl_InformeListadoFacturas.Dataset
|
||||
DataTable = tbl_InformeListadoFacturas
|
||||
Left = 576
|
||||
Top = 72
|
||||
end
|
||||
object frxDBInformeListadoFacturas: TfrxDBDataset
|
||||
UserName = 'frxDBInformeListadoFacturas'
|
||||
CloseDataSource = True
|
||||
DataSource = DADSInformeListadoFacturas
|
||||
Left = 576
|
||||
Top = 16
|
||||
end
|
||||
end
|
||||
|
||||
@ -7,14 +7,15 @@ uses
|
||||
Dialogs, frxClass, frxDBSet, uDAScriptingProvider,
|
||||
uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient,
|
||||
frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes,
|
||||
uDAInterfaces, uDADataStreamer, uDABin2DataStreamer, uDAMemDataTable;
|
||||
uDAInterfaces, uDADataStreamer, uDABin2DataStreamer, uDAMemDataTable,
|
||||
FactuGES_Intf;
|
||||
|
||||
type
|
||||
TRptFacturasCliente = class(TDataModule)
|
||||
DADataCabecera: TDADataSource;
|
||||
DADataDetalles: TDADataSource;
|
||||
tbl_FacturaCliente: TDAMemDataTable;
|
||||
tbl_DetallesFacturaCliente: TDAMemDataTable;
|
||||
tbl_Cabecera: TDAMemDataTable;
|
||||
tbl_Detalles: TDAMemDataTable;
|
||||
frxRichObject1: TfrxRichObject;
|
||||
frxBarCodeObject1: TfrxBarCodeObject;
|
||||
frxOLEObject1: TfrxOLEObject;
|
||||
@ -30,13 +31,20 @@ type
|
||||
frxReport: TfrxReport;
|
||||
Bin2DataStreamer: TDABin2DataStreamer;
|
||||
schReport: TDASchema;
|
||||
tbl_InformeListadoFacturas: TDAMemDataTable;
|
||||
DADSInformeListadoFacturas: TDADataSource;
|
||||
frxDBInformeListadoFacturas: TfrxDBDataset;
|
||||
procedure DataModuleCreate(Sender: TObject);
|
||||
private
|
||||
FConnection: IDAConnection;
|
||||
//Genera cada uno de los albaranes a imprimir
|
||||
procedure GenerarFactura(const ID: integer); overload;
|
||||
procedure _GenerarFactura(const ID: integer); overload;
|
||||
function _GenerarInforme(const TipoInforme: String; const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const ImporteMinimo: Currency): Binary;
|
||||
public
|
||||
function GenerarFactura(const AFacturaID : String): Binary; overload;
|
||||
function GenerarFactura(const ListaID : TIntegerArray): Binary; overload;
|
||||
function GenerarInformeIVA(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeListadoFacturas(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeListadoFacturasPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -51,14 +59,21 @@ const
|
||||
rptFacturaClienteAbeto = 'InfFacturaClienteAbeto.fr3';
|
||||
|
||||
{ Dataset names for schReport }
|
||||
ds_InformeFacturasCliente = 'InformeFacturasCliente';
|
||||
ds_InformeFacturasCliente_Detalles = 'InformeFacturasCliente_Detalles';
|
||||
ds_InformeFacturasCliente_Vencimientos = 'InformeFacturasCliente_Vencimientos';
|
||||
// ds_InformeFacturasCliente = 'InformeFacturasCliente';
|
||||
// ds_InformeFacturasCliente_Detalles = 'InformeFacturasCliente_Detalles';
|
||||
// ds_InformeFacturasCliente_Vencimientos = 'InformeFacturasCliente_Vencimientos';
|
||||
|
||||
rptInformeIVA = 'InformeIVAClientes.fr3';
|
||||
rptInformeIVADesglosado = 'InformeIVAClientesDesglosado.fr3';
|
||||
rptInformeListadoFacturasCliente = 'InformeListadoFacturasCliente.fr3';
|
||||
rptInformeListadoFacturasClienteDesglosado = 'InformeListadoFacturasClienteDesglosado.fr3';
|
||||
rptInformeListadoFactuasClientePendiente = 'InformeListadoFacturasClientePendientes.fr3';
|
||||
rptInformeListadoFactuasClientePendienteDesglosado = 'InformeListadoFacturasClientePendientesDesglosado.fr3';
|
||||
|
||||
|
||||
|
||||
{ TRptFacturasCliente }
|
||||
|
||||
|
||||
procedure TRptFacturasCliente.DataModuleCreate(Sender: TObject);
|
||||
begin
|
||||
schReport.ConnectionManager := dmServer.ConnectionManager;
|
||||
@ -66,41 +81,204 @@ begin
|
||||
frxReport.EngineOptions.NewSilentMode := simReThrow;
|
||||
end;
|
||||
|
||||
function TRptFacturasCliente.GenerarFactura(const AFacturaID: String): Binary;
|
||||
function TRptFacturasCliente.GenerarFactura(const ListaID: TIntegerArray): Binary;
|
||||
var
|
||||
ID_Facturas: TStringList;
|
||||
i: Integer;
|
||||
begin
|
||||
Result := Binary.Create;
|
||||
ID_Facturas := TStringList.Create;
|
||||
ID_Facturas.CommaText := AFacturaID;
|
||||
try
|
||||
//Vamos generando todos y cada una de las facturas recibidas
|
||||
for i := 0 to ListaID.Count - 1 do
|
||||
_GenerarFactura(ListaID.Items[i]);
|
||||
|
||||
//Vamos generando todos y cada uno de los albaranes recibidos
|
||||
for i := 0 to ID_Facturas.Count - 1 do
|
||||
GenerarFactura(StrToInt(ID_Facturas.Strings[i]));
|
||||
|
||||
frxReport.PreviewPages.SaveToStream(Result);
|
||||
frxReport.PreviewPages.SaveToStream(Result);
|
||||
finally
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TRptFacturasCliente.GenerarFactura(const ID: integer);
|
||||
begin
|
||||
FConnection.BeginTransaction;
|
||||
function TRptFacturasCliente.GenerarInformeIVA(const IdEmpresa: Integer; const FechaInicio,
|
||||
FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
var
|
||||
ATipoInforme: String;
|
||||
|
||||
begin
|
||||
//DESGLOSADO POR CLIENTE EN ESTE INFORME NO SE DESGLOSARÁ POR CLIENTE
|
||||
if Desglosado then
|
||||
ATipoInforme := rptInformeIVADesglosado
|
||||
else
|
||||
ATipoInforme := rptInformeIVA;
|
||||
|
||||
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, ImporteMinimo);
|
||||
end;
|
||||
|
||||
function TRptFacturasCliente.GenerarInformeListadoFacturas(const IdEmpresa: Integer;
|
||||
const FechaInicio, FechaFin: DateTime; const ListaIDClientes: TIntegerArray;
|
||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
var
|
||||
ATipoInforme: String;
|
||||
|
||||
begin
|
||||
|
||||
//DESGLOSADO POR CLIENTE EN ESTE INFORME NO SE DESGLOSARÁ POR CLIENTE
|
||||
if Desglosado then
|
||||
ATipoInforme := rptInformeListadoFacturasClienteDesglosado
|
||||
else
|
||||
ATipoInforme := rptInformeListadoFacturasCliente;
|
||||
|
||||
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, ImporteMinimo);
|
||||
end;
|
||||
|
||||
function TRptFacturasCliente.GenerarInformeListadoFacturasPendientes(
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime;
|
||||
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
ATipoInforme: String;
|
||||
|
||||
begin
|
||||
if tbl_InformeListadoFacturas.Active then
|
||||
tbl_InformeListadoFacturas.Active := False;
|
||||
|
||||
// Filtrar el informe por situacion
|
||||
with tbl_InformeListadoFacturas.DynamicWhere do
|
||||
begin
|
||||
// (ID_EMPRESA >= ID)
|
||||
Condicion := NewBinaryExpression(NewField('', fld_FacturasClienteSITUACION), NewConstant('PAGADA', datString), dboNotEqual);
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
|
||||
|
||||
//DESGLOSADO POR CLIENTE EN ESTE INFORME NO SE DESGLOSARÁ POR CLIENTE
|
||||
if Desglosado then
|
||||
ATipoInforme := rptInformeListadoFactuasClientePendienteDesglosado
|
||||
else
|
||||
ATipoInforme := rptInformeListadoFactuasClientePendiente;
|
||||
|
||||
|
||||
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, ImporteMinimo);
|
||||
end;
|
||||
|
||||
procedure TRptFacturasCliente._GenerarFactura(const ID: integer);
|
||||
begin
|
||||
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
try
|
||||
tbl_FacturaCliente.ParamByName('ID').AsInteger := ID;
|
||||
tbl_DetallesFacturaCliente.ParamByName('ID_FACTURA').AsInteger := ID;
|
||||
tbl_Cabecera.Active := False;
|
||||
tbl_Detalles.Active := False;
|
||||
tbl_Vencimientos.Active := False;
|
||||
|
||||
tbl_Cabecera.ParamByName('ID').AsInteger := ID;
|
||||
tbl_Detalles.ParamByName('ID_FACTURA').AsInteger := ID;
|
||||
tbl_Vencimientos.ParamByName('ID_FACTURA').AsInteger := ID;
|
||||
tbl_FacturaCliente.Active := True;
|
||||
tbl_DetallesFacturaCliente.Active := True;
|
||||
|
||||
tbl_Cabecera.Active := True;
|
||||
tbl_Detalles.Active := True;
|
||||
tbl_Vencimientos.Active := True;
|
||||
|
||||
if (tbl_FacturaCliente.FieldByName('ID_TIENDA').AsInteger <> 3) then
|
||||
// frxReport.LoadFromFile(DarRutaInformes + tbl_Cabecera.FieldByName('ID_EMPRESA').AsString + '\' + rptFacturaCliente, True);
|
||||
if (tbl_Cabecera.FieldByName('ID_TIENDA').AsInteger <> 3) then
|
||||
frxReport.LoadFromFile(DarRutaInformes + rptFacturaCliente, True)
|
||||
else
|
||||
frxReport.LoadFromFile(DarRutaInformes + rptFacturaClienteAbeto, True);
|
||||
|
||||
frxReport.PrepareReport(False);
|
||||
finally
|
||||
FConnection.RollbackTransaction;
|
||||
FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
end;
|
||||
end;
|
||||
|
||||
function TRptFacturasCliente._GenerarInforme(const TipoInforme: String;
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime;
|
||||
const ListaIDClientes: TIntegerArray; const ImporteMinimo: Currency): Binary;
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
i: Integer;
|
||||
|
||||
begin
|
||||
Result := Binary.Create;
|
||||
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
|
||||
try
|
||||
|
||||
if tbl_InformeListadoFacturas.Active then
|
||||
tbl_InformeListadoFacturas.Active := False;
|
||||
|
||||
// Filtrar el informe por empresa
|
||||
with tbl_InformeListadoFacturas.DynamicWhere do
|
||||
begin
|
||||
// (ID_EMPRESA >= ID)
|
||||
Condicion := NewBinaryExpression(NewField('', fld_FacturasClienteID_EMPRESA), NewConstant(IdEmpresa, datInteger), dboEqual);
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
|
||||
// Filtrar el informe por fechas
|
||||
if not VarIsNull(FechaInicio)
|
||||
and not VarIsNull(FechaFin) then
|
||||
begin
|
||||
with tbl_InformeListadoFacturas.DynamicWhere do
|
||||
begin
|
||||
// (FECHA_INICIO between FECHA_FIN)
|
||||
Condicion := NewBinaryExpression(NewField('', fld_FacturasClienteFECHA_FACTURA), NewConstant(FechaInicio, datDateTime), dboGreaterOrEqual);
|
||||
Condicion := NewBinaryExpression(NewBinaryExpression(NewField('', fld_FacturasClienteFECHA_FACTURA), NewConstant(FechaFin, datDateTime), dboLessOrEqual), Condicion, dboAnd);
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
end;
|
||||
|
||||
// Filtrar el informe por cliente
|
||||
if Assigned(ListaIDClientes) then
|
||||
begin
|
||||
with tbl_InformeListadoFacturas.DynamicWhere do
|
||||
begin
|
||||
for i := 0 to ListaIDClientes.Count - 1 do
|
||||
begin
|
||||
|
||||
// (ID_CLIENTE = ID)
|
||||
Condicion := NewBinaryExpression(NewField('', fld_FacturasClienteID_CLIENTE), NewConstant(ListaIDClientes.Items[i], datInteger), dboEqual);
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
// Filtrar el informe por importe minimo
|
||||
if (ImporteMinimo > 0) then
|
||||
begin
|
||||
with tbl_InformeListadoFacturas.DynamicWhere do
|
||||
begin
|
||||
// (IMPORTE_TOTAL > ImporteMinimo)
|
||||
Condicion := NewBinaryExpression(NewField('', fld_FacturasClienteIMPORTE_TOTAL), NewConstant(ImporteMinimo, datCurrency), dboGreaterOrEqual);
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
tbl_InformeListadoFacturas.Active := True;
|
||||
|
||||
frxReport.LoadFromFile(DarRutaInformes + TipoInforme, True);
|
||||
// frxReport.LoadFromFile(DarRutaInformes + IntToStr(IdEmpresa) + '\' + TipoInforme, True);
|
||||
frxReport.Variables.Variables['FechaInicio'] := FechaInicio;
|
||||
frxReport.Variables.Variables['FechaFin'] := FechaFin;
|
||||
|
||||
frxReport.PrepareReport(False);
|
||||
frxReport.PreviewPages.SaveToStream(Result);
|
||||
|
||||
finally
|
||||
FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
@ -35,7 +35,7 @@ type
|
||||
private
|
||||
protected
|
||||
{ IsrvFacturasCliente methods }
|
||||
function GenerateReport(const FacturaID: String): Binary;
|
||||
function GenerateReport(const FacturaID: TIntegerArray): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -77,7 +77,7 @@ begin
|
||||
ConnectionName := dmServer.ConnectionName;
|
||||
end;
|
||||
|
||||
function TsrvFacturasCliente.GenerateReport(const FacturaID: String): Binary;
|
||||
function TsrvFacturasCliente.GenerateReport(const FacturaID: TIntegerArray): Binary;
|
||||
var
|
||||
AReportGenerator : TRptFacturasCliente;
|
||||
begin
|
||||
|
||||
Binary file not shown.
@ -42,41 +42,42 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><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"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">FacturasCliente_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><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"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">FacturasCliente_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="FacturasCliente_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\adortl.dcp" />
|
||||
<DCCReference Include="..\AlbCli_FacCli_relation.dcp" />
|
||||
<DCCReference Include="..\Articulos_view.dcp" />
|
||||
<DCCReference Include="..\Contabilidad_controller.dcp" />
|
||||
<DCCReference Include="..\Contabilidad_view.dcp" />
|
||||
<DCCReference Include="..\Contactos_view.dcp" />
|
||||
<DCCReference Include="..\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\dbrtl.dcp" />
|
||||
<DCCReference Include="..\dsnap.dcp" />
|
||||
<DCCReference Include="..\dxComnD11.dcp" />
|
||||
<DCCReference Include="..\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\FacturasCliente_controller.dcp" />
|
||||
<DCCReference Include="..\FacturasCliente_model.dcp" />
|
||||
<DCCReference Include="..\GUIBase.dcp" />
|
||||
<DCCReference Include="..\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\rtl.dcp" />
|
||||
<DCCReference Include="..\vcl.dcp" />
|
||||
<DCCReference Include="..\vclactnband.dcp" />
|
||||
<DCCReference Include="..\vcldb.dcp" />
|
||||
<DCCReference Include="..\vcljpg.dcp" />
|
||||
<DCCReference Include="..\vclx.dcp" />
|
||||
<DCCReference Include="..\..\Lib\adortl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\AlbCli_FacCli_relation.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Articulos_view.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Contabilidad_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Contabilidad_view.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Contactos_view.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dsnap.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxComnD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\FacturasCliente_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\FacturasCliente_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\GestorInformes_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\..\Lib\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\rtl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vcl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vclactnband.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vcldb.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vcljpg.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vclx.dcp" />
|
||||
<DCCReference Include="uEditorElegirArticulosFacturaCliente.pas">
|
||||
<Form>fEditorElegirArticulosFacturaCliente</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
|
||||
@ -60,6 +60,13 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
ExplicitWidth = 640
|
||||
end
|
||||
inherited TBXTMain2: TTBXToolbar
|
||||
Visible = True
|
||||
ExplicitWidth = 66
|
||||
object TBXItem40: TTBXItem
|
||||
Action = actInformes
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Top = 647
|
||||
@ -133,15 +140,27 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
|
||||
Width = 640
|
||||
ExplicitWidth = 640
|
||||
inherited txtFiltroTodo: TcxTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 543
|
||||
Width = 543
|
||||
end
|
||||
inherited edtFechaIniFiltro: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 263
|
||||
Width = 263
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 367
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 367
|
||||
ExplicitWidth = 263
|
||||
Width = 263
|
||||
@ -212,6 +231,11 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
|
||||
ImageIndex = 24
|
||||
OnExecute = actNuevoAbonoExecute
|
||||
end
|
||||
object actInformes: TAction
|
||||
Category = 'Archivo'
|
||||
Caption = 'Informes'
|
||||
OnExecute = actInformesExecute
|
||||
end
|
||||
end
|
||||
inherited SmallImages: TPngImageList [5]
|
||||
PngImages = <
|
||||
@ -3626,4 +3650,319 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
|
||||
Left = 184
|
||||
Top = 112
|
||||
end
|
||||
object JSInformesDialog: TJSDialog
|
||||
Content.Strings = (
|
||||
'Seleccione el informe que desea realizar')
|
||||
DialogOptions = [doCommandLinks, doModal]
|
||||
Glyph.Data = {
|
||||
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
|
||||
00001C0806000000720DDF940000000970485973000017120000171201679FD2
|
||||
520000000467414D410000B18E7CFB5193000003104944415478DAAD96FB4B14
|
||||
5114C7CFE463DC1E606444BFF54424D3DC55CA52B1CCD7165A219905054182FD
|
||||
1452FD5810FD100406610A669A998FC4F5BDB6266265DAB60F5DD15E58FE03B2
|
||||
3F99D29ABBA7B9779C71C61D9D6177CFCE70CFDCB97B3EF7DCF3BD33C38082FD
|
||||
B502B2B300CC656020048688A24F036233A0671F40D43160BA87BF62AEEE1010
|
||||
60D7AE293AD8B835815E9B625C80DC8F1E88D4A7C1E8C1FB8F9FD6C3C44035B3
|
||||
21500A65F6D700FE2EA580A5EC551F4A50359316B31D76EFDC0EE5F72A645045
|
||||
A067AE0623074B8140891108F1057064CC0D556053DF173812B707E6DCF332A8
|
||||
225080D201DB4AF99BF335B4D502F371415BCC364833C4C29F458F0C2A031281
|
||||
081734AB0B3C88403C1E6E3E2E7960F6A8FFD27A7D3EF07A11DA2C76C84A8D87
|
||||
A57FCB32E8B8A54A4C8C21B59365C9015996EF2240B6634DF435B51460A46D1F
|
||||
70C093AA46BF09C980C12CA914E6F371ADD707EF1DB3B0B0B8006EB79B8EA96B
|
||||
EA5106121851245129118FD8BFA2DC5C53C6BAF5EBBBBA97C2D64EC064195B1F
|
||||
286C76E956A0EA5C51AEB4764A9929F5750D5A9581D2274B9B651C0BA2F514A8
|
||||
6F28E36B70AD9A4253EF97A9AA55B0CEBA87D03B645B3F43C1DE589C58186D10
|
||||
81150FCAC57B11E161B04517099BB953C78643141B01BA28EEE4DAB0B04DE2B8
|
||||
CA460B9C399902E661BB3AB0F5AD038BF30CD4D7E7DD14815A61023027DD00EF
|
||||
469C1A80FD1C307F1578FD4A81E665945AD68924181A9D5007B6F4DBF1527E32
|
||||
F5C9D3632351F8F549AEE916B14EAA039BCD362C31A6040D23E7887D4A03B0CF
|
||||
86C5C6641A24BB7646D3F2D51A77F8C1BCDCFFC79CD3EAC0D7BD56AE86294165
|
||||
4660CB5C6B737DD3062CCA31D00069E76E05241862CF1EDD05E7D40F756063CF
|
||||
673C7F5A4F679A59541EF03E4C8C3B0893DF67D481AFBAC7B0F05412CD30EBE2
|
||||
ED80F7617CEC0198FEF94B1BF06C6622AD4B4EC99D80F7A1666043D7281A3312
|
||||
FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312
|
||||
82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA
|
||||
1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082}
|
||||
Instruction.Text = 'Nuevo informe'
|
||||
Instruction.Glyph.Data = {
|
||||
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
|
||||
00001C0806000000720DDF940000000970485973000017120000171201679FD2
|
||||
520000000467414D410000B18E7CFB5193000003104944415478DAAD96FB4B14
|
||||
5114C7CFE463DC1E606444BFF54424D3DC55CA52B1CCD7165A219905054182FD
|
||||
1452FD5810FD100406610A669A998FC4F5BDB6266265DAB60F5DD15E58FE03B2
|
||||
3F99D29ABBA7B9779C71C61D9D6177CFCE70CFDCB97B3EF7DCF3BD33C38082FD
|
||||
B502B2B300CC656020048688A24F036233A0671F40D43160BA87BF62AEEE1010
|
||||
60D7AE293AD8B835815E9B625C80DC8F1E88D4A7C1E8C1FB8F9FD6C3C44035B3
|
||||
21500A65F6D700FE2EA580A5EC551F4A50359316B31D76EFDC0EE5F72A645045
|
||||
A067AE0623074B8140891108F1057064CC0D556053DF173812B707E6DCF332A8
|
||||
225080D201DB4AF99BF335B4D502F371415BCC364833C4C29F458F0C2A031281
|
||||
081734AB0B3C88403C1E6E3E2E7960F6A8FFD27A7D3EF07A11DA2C76C84A8D87
|
||||
A57FCB32E8B8A54A4C8C21B59365C9015996EF2240B6634DF435B51460A46D1F
|
||||
70C093AA46BF09C980C12CA914E6F371ADD707EF1DB3B0B0B8006EB79B8EA96B
|
||||
EA5106121851245129118FD8BFA2DC5C53C6BAF5EBBBBA97C2D64EC064195B1F
|
||||
286C76E956A0EA5C51AEB4764A9929F5750D5A9581D2274B9B651C0BA2F514A8
|
||||
6F28E36B70AD9A4253EF97A9AA55B0CEBA87D03B645B3F43C1DE589C58186D10
|
||||
81150FCAC57B11E161B04517099BB953C78643141B01BA28EEE4DAB0B04DE2B8
|
||||
CA460B9C399902E661BB3AB0F5AD038BF30CD4D7E7DD14815A61023027DD00EF
|
||||
469C1A80FD1C307F1578FD4A81E665945AD68924181A9D5007B6F4DBF1527E32
|
||||
F5C9D3632351F8F549AEE916B14EAA039BCD362C31A6040D23E7887D4A03B0CF
|
||||
86C5C6641A24BB7646D3F2D51A77F8C1BCDCFFC79CD3EAC0D7BD56AE86294165
|
||||
4660CB5C6B737DD3062CCA31D00069E76E05241862CF1EDD05E7D40F756063CF
|
||||
673C7F5A4F679A59541EF03E4C8C3B0893DF67D481AFBAC7B0F05412CD30EBE2
|
||||
ED80F7617CEC0198FEF94B1BF06C6622AD4B4EC99D80F7A1666043D7281A3312
|
||||
FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312
|
||||
82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA
|
||||
1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082}
|
||||
Instruction.Icon = tdiCustom
|
||||
CustomButtons = <
|
||||
item
|
||||
Caption = 'Listado de facturas pendientes.'
|
||||
Value = 100
|
||||
Default = True
|
||||
end
|
||||
item
|
||||
Caption = 'Listado de IVA.'
|
||||
Value = 200
|
||||
end
|
||||
item
|
||||
Caption = 'Listado de facturas'
|
||||
Value = 300
|
||||
end>
|
||||
ButtonBar.Buttons = [cbCancel]
|
||||
MainIcon = tdiCustom
|
||||
Title = 'FactuGES'
|
||||
Position = dpMainFormCenter
|
||||
Icon.Data = {
|
||||
0000010003002020100001000400E8020000360000002020000001000800A808
|
||||
00001E0300002020000001002000A8100000C60B000028000000200000004000
|
||||
0000010004000000000000020000000000000000000000000000000000000000
|
||||
000000008000008000000080800080000000800080008080000080808000C0C0
|
||||
C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
|
||||
0000000000000000000000000000000008777777777777777777777700000000
|
||||
0877767777677776777767760000000008F88888888888888888888700000000
|
||||
08F8FF8F8F888888888888860000000008FF8F8F88F8F8888888888C00000000
|
||||
08F88888F8888888888888860000000008F8688878E8888E88E8788700000000
|
||||
08F8688888F8F8FFFFFF88760000000008FF4888888F8FFFFFFF788700000000
|
||||
08F8676767677677677658E50000000008FF8888888887878787888700000000
|
||||
08FF8887887E8888888888860000000008FFE8E8E788C8E8FF8F8F8600000000
|
||||
08FFF8F8F8F8FF8F88F8F8870000000008FFFFFF8FF8F8F8F88F888600000000
|
||||
0FF8477878787878788788860000000008FF68888888F8FF8F8F788700000000
|
||||
08B7588888FF8FFFFFFF78860000083008BB47887776777777776F86000000B7
|
||||
8B9B73BB88788787E87878870000008BB8B9BB78888888EFF8F8FF8600000087
|
||||
B8BB8B888E8E8E88FFF8F886000000088BBB888FFFFFFFFFF8F877770000B9BB
|
||||
B8FFBB9B9BFFFFFFF87466460000BBB9BB8FBBBBB8FFFFFFF88F888700000008
|
||||
B8BB88888FFFFFFFF88F8F7700000008BBBBBB8FFFFFFFFFFF8887700000007B
|
||||
B7B98BB8FFFFFFFFF8887700000000B78B9B87B888F88F88F8877000000007B0
|
||||
08BB883B78888788787700000000000000B9000000000000000000000000FFFF
|
||||
FFFFF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
|
||||
000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
|
||||
000FF800000FF800000F9800000FC000000FC000000FC000000FE000000F0000
|
||||
000F0000000FE000000FE000001FC000003FC000007F980000FFFCFFFFFF2800
|
||||
0000200000004000000001000800000000000004000000000000000000000001
|
||||
00000001000000000000694731007C5D49007E604C0081635000826451008567
|
||||
540085685500886B5900896D5B008A6E5D008B705F008E715F008B7260008C72
|
||||
61008E74640084766C00957A6900977D6D00887B72009A8171009D8272009C84
|
||||
76009D8778009F897B00A28A7900A08B7D00A18C7E00E1B06E00E1B67D003E7A
|
||||
970073A0A5007AA2B70074AFBD007BB2BB003CAACE0028A5DB0020ADDF000D9A
|
||||
E500209EE3000DA6E2001AA4EF0000A6FF000CABFE0009ACFE0010A4F10015AC
|
||||
FA0000B5FB0000B0FD000CB6FC0000BFF90000BAFD0004BAFD0009BBFB0013B6
|
||||
F40015BFFA001CBDFB0026B7FD00589EC50040A4CD0040ABCC0050A2C7005DAE
|
||||
C00060A3C20062A4C60060B7CB006AB0CD007BB6C80077BAC80061BADD0044AD
|
||||
E50000C3F80007C6FB0000CAF80000CFFB0000D4F90026C8FA0026CDF8002BCC
|
||||
F90039C4FB0039C2FC0039CAFA003FCFFB0024D6F80030D2F80039D5F80000F8
|
||||
F8001FF8F8002CF6F8003EF4F8005AC6DC0070CDDF0052C0E40054C9E3004DCE
|
||||
FA005FC7FF004FD2FB004DD9F8005FD9FB006ED3E70063CDFE0060D1FB0060D8
|
||||
F90060DDF80046F8F90056F0F8005FFAFA0073E3F80073E4F90073EEF80060F1
|
||||
F800958A84009A918C0081999500A68F8200AD968500A3968C00AE988900AD9A
|
||||
8D00B19A8B00AF9C9000B09E9200B59F9200B7A29300B2A19600B5A19400B7A4
|
||||
9700BDA79700B4A39800B1A59D00B4A79F00BAA69800BCA79900B4A89F00BCA8
|
||||
9900BAA89C00BDAA9D00BEAC9E0083ADBD00B5A9A100BDABA000BEADA100BFAF
|
||||
A500A0BABE00C0AB9E00C1AC9E00C6AE9F00E2B98100E4BA8300E4BB8400E5BC
|
||||
8500E1BD8E00E3BF9000C0ADA000C2B0A300C2B1A500C4B2A600C1B2A800C3B5
|
||||
AB00C8B4A800CCB9AD00CEBCB100D0BEB200D1BFB400E4C19300E5C29400E6C4
|
||||
9600E8C69900D0C9A300CFC1B800D2C1B600D3C3B800D5C4B900D6C6BC00D8C6
|
||||
BC00D6C8BE00DAC9BF00ECD3B000EDD4B200EFD6B500E7D1B800E7D3BD00F0D8
|
||||
B6008CB7C40080BEC70097C3C70099C3C900ABD7CF00AFD9DD0086E3F90086E7
|
||||
F90086ECF8009EE5FB0090E8F900ACEDFC00BCEAFD00BCF1FB00BFF1FD00D7C9
|
||||
C000D9CAC100DCCBC200DACCC200DDCCC300DACCC400DDCEC400DED0C600DED1
|
||||
C900DED3CC00DFD4CD00E1D1C900E2D5CD00F0DCC200E3D8D200E5D9D200E2DA
|
||||
D500E6DBD400E5DCD500E8DDD600E6DDD800E9DFD900E6E0DB00EAE0DA00EAE2
|
||||
DD00ECE3DE00EBE4DE00ECE4DE00F3E7D900C6E1EF00C9EFFD00D7F6FD00DFF3
|
||||
FF00DFFEFE00EBE7E300EDE6E100EFE7E400EEE8E400F0EAE600F2EDE900F2EE
|
||||
EC00F4EFEC00F5F0EE00F9F4ED00E7FAFD00EBF8FF00F6F2F000F7F4F100F8F4
|
||||
F200F9F7F500FAF8F600FBF9F900FCFBFA00FCFCFB00FEFEFE00000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000007D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
|
||||
0D0D0000000000000000009C9C19191919191919191919191919191919191919
|
||||
1903000000000000000000ABDECBCBC7C7AFABABABABAAA3A2A2A0A0A0A0A0A0
|
||||
8607000000000000000000ABECEAE9DEDEDEDED7D5D2D2D2CBCBCBCBB0CBB0CB
|
||||
9007000000000000000000ABEDECEAE9DEDEDBD7D7D5D2D2D2CDCDCBB0B0B0B0
|
||||
9007000000000000000000AFEDE9A9CFD2CFD2CDCBCBCBB0B0ABACA3A3A3A3B0
|
||||
9007000000000000000000AFF0D5017783838386868686869099909999907BB0
|
||||
9007000000000000000000B0F4D501A0B0CBD2D5DEECEDF7FAFAFAFAFAF77BAA
|
||||
9007000000000000000000CBF4DC01A0B0B0B0D2D5DBEAEDF7FAFAFAFAF47BB0
|
||||
9007000000000000000000CBF8DC010404070604090909090D0D110D110D02A3
|
||||
9007000000000000000000CBFAED9E9E9E9C999E8C8C8C868683837E7D7D7ACB
|
||||
9007000000000000000000CBFAF1A7A7A6A6A6A69898989898B5DBDBD5D5D2D2
|
||||
9907000000000000000000CDFAF796969696961D961D931D1DB4DEDBD7D5D5D2
|
||||
9C07000000000000000000CFFAFAFAFAF8F7F0F0EDEDEDECE9E9DEDEDED7D5D5
|
||||
9907000000000000000000CDFAFAEAF0EDEDECEAEAE9DEDEDBDCD5D5D5D5D2D5
|
||||
9C07000000000000000000D2FAEC01737D7D7B7D7D7B7D7B7D7B7B7B7D7B7DD2
|
||||
9907000000000000000000CFFAEC019EABB0CBD2D5DCDEECEDF4F4F4F4EA7BD2
|
||||
9C07000000000000000000B9524601A0B0B0CBB5D5DEEAEDF7FAFAFAFAF47DD5
|
||||
9C070000000000213F0000B83226010C3F5C1F111214141616191B1B1B1807D2
|
||||
9C07000000000000253D8A5B322D711E2860BA7E7E7A7E797A797979767676D5
|
||||
9E0700000000000041375E662F2B65314EBBB6B6B6B6B4B4B1E2F4EDEDEDECEA
|
||||
9C070000000000008F5D66663232394EC1A81C1C1C1C1C1C1CD3F7F4EDDED7D5
|
||||
9C0700000000000000B7BE6E5758BEBDE4E6E6F3FAFAFAFAFAFAF7F4D5928675
|
||||
7304000000002A2A2A2A4A6AFAE7562F2A2A2A5FFAFAFAFAFAFAF8D577010101
|
||||
0101000000004747472F4A59C5E7564A32474766FAFAFAFAFAFAFADCA0D2CFB0
|
||||
A20C00000000000000436C6958686D6BC2C5C5E7FAFAFAFAFAFAFADEAADEDBCB
|
||||
1470000000000000004551534A4A5250C0E7FAFAFAFAFAFAFAFAFADEAAD7B514
|
||||
700000000000000042384C54472B613550C3FAFAFAFAFAFAFAFAFADEA1B0196F
|
||||
000000000000000024234463322EBC5A3664E3ECE9E9E9E9E9E9E9CF90731300
|
||||
000000000000003A3C00002232298B8B3E3B207E8B7E8B7E827E817E74100000
|
||||
0000000000000000000000003227000000000000000000000000000000000000
|
||||
000000000000FFFFFFFFF800000FF800000FF800000FF800000FF800000FF800
|
||||
000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
|
||||
000FF800000FF800000FF800000FF800000F9800000FC000000FC000000FC000
|
||||
000FE000000F0000000F0000000FE000000FE000001FC000003FC000007F9800
|
||||
00FFFCFFFFFF2800000020000000400000000100200000000000801000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000007067
|
||||
5F70AA9382E570513CE3735540E3735540E3735540E3735540E3735540E37355
|
||||
40E3735540E3735540E3735540E3735540E3735540E3735540E3735540E37355
|
||||
40E3735540E3735540E3735540E3735540E3735540E3735540E372533EE5BAAB
|
||||
A070000000000000000000000000000000000000000000000000000000005E54
|
||||
4C7FCAB7ABFFC5B5AAFFA18877FFA28A78FFA28A79FFA28A79FFA28A79FFA28A
|
||||
79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A
|
||||
79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA58D7CFF7A5B46FFB2A1
|
||||
967F000000000000000000000000000000000000000000000000000000006055
|
||||
4D7ED7C6BBFFEDE4E0FFD9CCC4FFD9CCC4FFD9CBC3FFD8CAC1FFD7C9BFFFD6C7
|
||||
BDFFD5C6BBFFD4C4BAFFD3C3B8FFD2C1B7FFD1C0B5FFD0BEB3FFCFBDB2FFCEBC
|
||||
B0FFCEBBAFFFCEBBAFFFCEBBAFFFCEBBAFFFCEBCB0FFBEAA9CFF82644FFFB2A1
|
||||
967E000000000000000000000000000000000000000000000000000000006056
|
||||
4D7ED7C8BCFFF2EBE8FFEFE9E5FFEEE7E2FFECE5E0FFEBE2DEFFEAE0DBFFE9DE
|
||||
D8FFE7DBD4FFE5D9D1FFE3D7CFFFE2D4CCFFE1D2C9FFDFD0C7FFDDCDC4FFDCCB
|
||||
C2FFDBC9BFFFDBC9BFFFDBC9BFFFDBC9BFFFDCCAC1FFC1AC9FFF81634FFFB2A1
|
||||
967E000000000000000000000000000000000000000000000000000000006155
|
||||
4E7ED8C9BDFFF3EDE9FFF1EAE6FFF0E9E6FFEEE6E1FFECE4DFFFEBE2DDFFEAE0
|
||||
DAFFE9DED7FFE7DBD4FFE5D9D1FFE3D7CFFFE2D4CCFFE1D2C9FFDFD0C7FFDDCD
|
||||
C4FFDCCBC2FFDBC9BFFFDBC9BFFFDBC9BFFFDCCAC0FFC1AC9FFF81634FFFB2A1
|
||||
967E000000000000000000000000000000000000000000000000000000006157
|
||||
4E7ED9C9BFFFF4EFEDFFEFE8E3FFD0C2B9FFDFD5CEFFE0D5CEFFE0D4CCFFDED3
|
||||
CBFFDDD1C8FFDCCFC6FFDACCC4FFD9CBC1FFD8C9BFFFD7C7BDFFD6C5BBFFD5C4
|
||||
B9FFD3C2B7FFD2C0B5FFD2BFB4FFD2BFB4FFDAC8BEFFC1AC9FFF81634FFFB2A1
|
||||
967E000000000000000000000000000000000000000000000000000000006256
|
||||
4F7EDACCC0FFF5F2EFFFE5DDD9FF5C3821FFB0998AFFB8A394FFB8A394FFB9A3
|
||||
94FFB8A495FFB9A597FFB9A698FFBAA698FFBBA799FFBBA89AFFBBA89BFFBCA8
|
||||
9BFFBCA89BFFBCA89BFFBBA89AFFB49E8FFFD8C6BBFFC1AC9FFF81634FFFB2A1
|
||||
967E000000000000000000000000000000000000000000000000000000006256
|
||||
4F7EDBCBC1FFF8F4F3FFE7E0DBFF5F3C24FFD0BDB2FFDCCBC1FFDDCCC3FFE2D2
|
||||
CBFFE7DBD4FFEDE2DEFFF0E8E6FFF5F0EDFFF9F7F4FFFDFDFDFFFFFFFFFFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFAF8F7FFB39D8DFFD8C6BBFFC1AC9FFF81634FFFB2A1
|
||||
967E000000000000000000000000000000000000000000000000000000006256
|
||||
4F7EDCCEC3FFFAF6F5FFE9E2DDFF5F3C24FFD2BFB5FFDFCDC4FFDECCC3FFE0CE
|
||||
C6FFE4D4CDFFE9DDD6FFEFE4E0FFF1EAE8FFF7F1EFFFFBF8F6FFFFFEFFFFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFCFBFAFFB5A090FFD9C7BEFFC1AD9FFF81634FFFB2A1
|
||||
967E000000000000000000000000000000000000000000000000000000006257
|
||||
4F7EDDCFC4FFFCF9F9FFE9E4E0FF5F3A23FF7C5D49FF7F5F4CFF7E5F4CFF7E60
|
||||
4DFF7F614DFF816350FF826552FF836654FF846856FF856A57FF866B59FF876C
|
||||
5BFF876D5BFF876D5BFF866B59FF72523DFFD5C3B9FFC1AFA1FF81634FFFB2A1
|
||||
967E000000000000000000000000000000000000000000000000000000006357
|
||||
507EDECFC6FFFCFCFBFFF4F1F0FFC3B6AEFFC3B5ADFFC1B4ACFFC0B3AAFFBFB1
|
||||
A9FFBEB0A6FFBDAEA5FFBDACA3FFBCABA2FFBBAAA0FFBAA99FFFB8A69AFFB8A4
|
||||
98FFB6A396FFB5A194FFB49F93FFB39D90FFDCCDC4FFC2AEA1FF81634FFFB2A1
|
||||
967E000000000000000000000000000000000000000000000000000000006357
|
||||
507EDFD2C7FFFEFEFDFFF9F5EFFFE8C696FFE9C799FFE8C697FFE7C596FFE7C4
|
||||
95FFE6C394FFE5C293FFE4C091FFE4C090FFE3BF8FFFE2BD8CFFE9D5BFFFEBE1
|
||||
DCFFEADFD8FFE7DCD5FFE5DAD3FFE4D8D0FFE3D4CCFFC2AFA2FF81634FFFB2A1
|
||||
967E000000000000000000000000000000000000000000000000000000006458
|
||||
517EE0D3C8FFFFFFFFFFFAF5EFFFE3B77CFFE4B97FFFE2B87EFFE3B77DFFE2B7
|
||||
7CFFE2B67BFFE1B57AFFE1B479FFE0B478FFE0B377FFDFB174FFE6D0B7FFEBE1
|
||||
DCFFE8DFD9FFE8DDD6FFE6D9D2FFE3D8D1FFE4D7CFFFC3AFA2FF81634FFFB2A1
|
||||
967E000000000000000000000000000000000000000000000000000000006458
|
||||
517EE1D2C9FFFFFFFFFFFEFEFDFFFEFFFFFFFCFDFEFFFBFBFBFFF9F7F8FFF8F5
|
||||
F6FFF7F3F2FFF5F1F0FFF4EFEEFFF1EDEBFFF0EBE9FFEEE9E6FFEDE6E2FFECE3
|
||||
DEFFEBE1DBFFE9DFD9FFE8DDD6FFE6DAD3FFE5D9D2FFC3B0A3FF81634FFFB2A1
|
||||
967E000000000000000000000000000000000000000000000000000000006459
|
||||
517EE1D4CAFFFFFFFFFFFDFDFCFFEEEBE8FFF5F2F0FFF4F0EFFFF3EFECFFF2ED
|
||||
EAFFF1EBE8FFEEE9E5FFEFE7E3FFECE5E1FFEAE4DEFFEAE1DCFFE8E0DAFFE7DE
|
||||
D8FFE6DDD6FFE5DBD4FFE4D8D1FFE2D6CEFFE6DBD4FFC3B1A4FF81634EFFB2A1
|
||||
967E000000000000000000000000000000000000000000000000000000006559
|
||||
527EE2D4CAFFFFFFFFFFF0ECEAFF5B361EFFAB9383FFB39D8EFFB39D8DFFB39D
|
||||
8DFFB29D8DFFB29C8DFFB29C8CFFB29C8CFFB29C8CFFB29C8CFFB29C8CFFB29C
|
||||
8CFFB29C8CFFB29C8CFFB29C8DFFB39D8EFFE3D8D0FFC4B1A4FF81634EFFB2A1
|
||||
967E000000000000000000000000000000000000000000000000000000006559
|
||||
527EE5D4CAFFFFFFFFFFF7F0EBFF5F3B24FFCCB8ADFFD7C5BAFFD9C7BDFFDCCC
|
||||
C3FFE1D4CCFFE5DAD4FFE8E0DBFFEDE5E1FFF1EBE9FFF5F2EFFFF7F5F3FFF8F6
|
||||
F4FFF8F5F4FFF8F6F4FFF1EEEAFFB29C8DFFE6DAD3FFC4B2A5FF81634EFFB2A1
|
||||
967E00000000000000000000000000000000000000000000000000000000685A
|
||||
527E9AC6C9FF35CFFEFF3DAEEBFF663E24FFD2BFB4FFE0CBBFFFE0C9BDFFE1CD
|
||||
C4FFE4D5CDFFE9DED7FFEEE5E0FFF2EBE8FFF6F2F0FFFCF8F8FFFFFFFEFFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFCFAF9FFB49E8FFFE7DED7FFC5B3A6FF81634EFFB2A1
|
||||
967E00000000000000000000000000000000007792910072A7A3001E33366957
|
||||
4C7C86C1C8FF00BFFBFF079AEBFF6A3E23FF926D57FF5FA3C8FF4AC1E8FF6C9C
|
||||
A2FF917260FF927767FF947A69FF957C6CFF977E6FFF998171FF9A8374FF9B85
|
||||
76FF9C8678FF9C8678FF998274FF7D5E49FFE3D9D4FFC5B3A7FF81634EFFB2A1
|
||||
967E00000000000000000000000000000000005A6F7000A9E5E40075AEAE5C90
|
||||
A5BD75D0E0FF00BFFAFF0CA3F4FF8A9A91FF3C7492FF03A4E4FF4AD5FFFF98C4
|
||||
CBFFB3A196FFB1A197FFB0A096FFB09F95FFAF9D92FFAF9C91FFAD9A8EFFAC99
|
||||
8CFFAB988AFFAB9789FFAA9688FFA99386FFE8E0DAFFC5B4A7FF81634EFFB2A1
|
||||
967E00000000000000000000000000000000000000002DA5BFC110C2FFFF4DD0
|
||||
FDFF64DBF9FF00B3FAFF09A8FEFF68D7FFFF04B5FFFF24CCFBFFAFD8CEFFF7DA
|
||||
B8FFF3DBBBFFF3DBBAFFF2D9B9FFF1D8B7FFF0D7B4FFEED5B2FFF6EADDFFF9F6
|
||||
F4FFF7F3F1FFF5F1EEFFF5EFECFFF4EDEAFFF1EBE7FFC6B4A8FF81634EFFB2A1
|
||||
967E00000000000000000000000000000000000000005F8A909142C7E4E960DE
|
||||
F8FF64D7FAFF00B6FDFF00B8FDFF21B2FDFF1ECCF7FF93EBFCFFD2C69BFFE1AB
|
||||
63FFDFAC66FFDFAC66FFDFAC66FFDFAC66FFDFAC66FFDEA961FFEFDBC0FFF8F6
|
||||
F5FFF6F2F0FFF3EDEBFFECE2DCFFE9DFD9FFE5DBD6FFC2B1A4FF81634FFFB2A1
|
||||
967E000000000000000000000000000E171A000E171A00040B145994A4A990EB
|
||||
FCFF61F1F7FF13FAF7FF23F9F7FF93EDF7FF8CE5F8FFD5F2FDFFE9F8FFFFE7F8
|
||||
FFFFF0FCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFFFFFFFDFEFFFFFAFAF9FFF9F7
|
||||
F5FFF7F2F0FFE8DFD8FFC7AE9FFFBEA998FFAF9888FFB09A8AFF7F604DFFB2A1
|
||||
967E00000000000000000000000000AAFFFF00AAFFFF00AAFFFF00A4FFFF00CD
|
||||
FAFF5DFCF9FFFFFFFFFFEEFEFEFF00FBF7FF00AAFEFF00A1FFFF00A1FFFF00A0
|
||||
FFFF56C3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCFDFBFFFCFBFAFFFBFA
|
||||
F8FFE6DDD6FFAA9180FF5D3922FF603D26FF613E27FF613E28FF634029FFB4A3
|
||||
987E00000000000000000000000000CAFFFF00CAFFFF00CBFFFF00B0FFFF00CD
|
||||
FBFF38F5F7FFC3EFFAFFF0FFFEFF00FAF7FF00C8F7FF00C2F7FF00C2F7FF00C1
|
||||
F7FF57D7FAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFFFDFDFCFFFCFC
|
||||
FBFFE7DED8FFCCB9ACFFE6DBD5FFE2D7D0FFDCCFC5FFD7C5BBFF8E705DFFB4A2
|
||||
9680000000000000000000000000002E383C002E383C00252F364C99B0B57DE8
|
||||
FBFF59F1F7FF25F7F7FF41FAF8FF7CEEF7FF77E4F7FFB5EFFCFFC6F2FDFFC3F2
|
||||
FDFFD9F6FCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDFEFEFFFEFE
|
||||
FEFFE9E1DAFFCEBCAFFFF1E9E3FFEADFD8FFE4D5CCFF9D816FFF3A291F868985
|
||||
831C00000000000000000000000000000000000000004E7073774AB0DADC37C9
|
||||
FBFF22D5F7FF00D3F9FF02C3FBFF37D5F7FF34BEFCFFA2E6FAFFECFBFDFFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFF
|
||||
FFFFEAE2DCFFCDBBADFFEADFD8FFE3D5CBFF9F8271FF3E2D2386050100200000
|
||||
000000000000000000000000000000000000000000003E9CC4C219C0FFFF23C9
|
||||
FCFF30D3F8FF00BEF8FF06A8FEFF4FDCF8FF00B8FCFF32C2FBFFC0EBFCFFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFFEAE3DEFFCDB9ABFFDDCEC4FFA58979FF3E2C1F8F0905041B000000000000
|
||||
000000000000000000000000000000000000003451510099DDDB0091C0C35DAD
|
||||
BCCF76D7E9FF00BEF9FF10A9FBFFBDDEDEFF5AC8DDFF0AB5F7FF62CEFFFFCBE4
|
||||
F1FFF1E7E0FFEFE7E1FFEEE6E1FFEEE6E1FFEEE6E0FFEDE6E0FFEDE5E0FFEEE6
|
||||
E1FFE1D4CCFFC5AE9FFFA68D7FF53E2718A10402000E00000000000000000000
|
||||
0000000000000000000000000000000000000075B7AF0099C7C500323E425442
|
||||
3B5C6BA8B1DA00C1FCFF0EA1F3F8A98E80C0AB9081C12698B1C10088C4C14C85
|
||||
A3C1A18D80C19E8D81C19E8B81C19D8C80C19B8C7FC19B8A7FC19C897FC19A89
|
||||
7EC19B8B7EC1897769C2432B1BAC000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
00000045565A00C5FFFF0094E6E2000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000FFFFFFFFF0000007F0000007F0000007F000
|
||||
0007F0000007F0000007F0000007F0000007F0000007F0000007F0000007F000
|
||||
0007F0000007F0000007F0000007F0000007F0000007F0000007800000078000
|
||||
0007C0000007C000000700000007000000070000000700000007C000000FC000
|
||||
001F8000003F800000FFF8FFFFFF}
|
||||
Width = 450
|
||||
Left = 408
|
||||
Top = 80
|
||||
end
|
||||
end
|
||||
|
||||
@ -31,10 +31,14 @@ type
|
||||
actNuevoAbono: TAction;
|
||||
JsNuevoAbonoDialog: TJSDialog;
|
||||
JsListaFacturasNoEliminadas: TJSDialog;
|
||||
actInformes: TAction;
|
||||
JSInformesDialog: TJSDialog;
|
||||
TBXItem40: TTBXItem;
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure actEliminarUpdate(Sender: TObject);
|
||||
procedure actNuevaFacturaExecute(Sender: TObject);
|
||||
procedure actNuevoAbonoExecute(Sender: TObject);
|
||||
procedure actInformesExecute(Sender: TObject);
|
||||
private
|
||||
FFacturas: IBizFacturaCliente;
|
||||
FController : IFacturasClienteController;
|
||||
@ -65,7 +69,7 @@ uses
|
||||
uDataModuleFacturasCliente, uDataModuleUsuarios, uAlbaranesClienteController, uFactuGES_App,
|
||||
// uPedidosClienteController, uBizPedidosCliente,
|
||||
uGenerarFacturasCliAlbCliUtils,
|
||||
uBizAlbaranesCliente,
|
||||
uBizAlbaranesCliente, uGestorInformesController,
|
||||
uEditorBase, uGridUtils, uDBSelectionListUtils;
|
||||
|
||||
{$R *.dfm}
|
||||
@ -80,6 +84,38 @@ begin
|
||||
(Sender as TAction).Enabled := (FFacturas.SITUACION = 'PENDIENTE');
|
||||
end;
|
||||
|
||||
procedure TfEditorFacturasCliente.actInformesExecute(Sender: TObject);
|
||||
var
|
||||
Respuesta : Integer;
|
||||
AGestorInformesController : IGestorInformesController;
|
||||
|
||||
begin
|
||||
AGestorInformesController := TGestorInformesController.Create;
|
||||
try
|
||||
|
||||
Respuesta := JsInformesDialog.Execute;
|
||||
|
||||
if Respuesta <> IDCANCEL then
|
||||
begin
|
||||
case JsInformesDialog.CustomButtonResult of
|
||||
100 : begin // Listado de facturas pendientes
|
||||
AGestorInformesController.VerInformeListadoFacturasCliPendientes;
|
||||
end;
|
||||
200 : begin // Listado de IVA
|
||||
AGestorInformesController.VerInformeIVAClientes;
|
||||
end;
|
||||
300 : begin // Listado de facturas de cliente
|
||||
AGestorInformesController.VerInformeListadoFacturasCli;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
finally
|
||||
AGestorInformesController := NIL;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfEditorFacturasCliente.actNuevaFacturaExecute(Sender: TObject);
|
||||
begin
|
||||
actNuevo.Execute;
|
||||
|
||||
@ -0,0 +1,48 @@
|
||||
package GestorInformes_controller;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
Base,
|
||||
ApplicationBase,
|
||||
GestorInformes_data;
|
||||
|
||||
contains
|
||||
uGestorInformesController in 'uGestorInformesController.pas',
|
||||
uIEditorInformeFacturasClienteReport in 'View\uIEditorInformeFacturasClienteReport.pas',
|
||||
uIEditorInformeBase in 'View\uIEditorInformeBase.pas',
|
||||
uIEditorInformeIVAClientesReport in 'View\uIEditorInformeIVAClientesReport.pas',
|
||||
uIEditorInformeFacturasClientePendientesReport in 'View\uIEditorInformeFacturasClientePendientesReport.pas',
|
||||
uIEditorInformeRecibosClienteReport in 'View\uIEditorInformeRecibosClienteReport.pas',
|
||||
uIEditorInformeRecibosCliPendientesReport in 'View\uIEditorInformeRecibosCliPendientesReport.pas',
|
||||
uIEditorInformeIVAProveedoresReport in 'View\uIEditorInformeIVAProveedoresReport.pas',
|
||||
uIEditorInformeRecibosProvPendientesReport in 'View\uIEditorInformeRecibosProvPendientesReport.pas',
|
||||
uIEditorInformeFacturasProveedorPendientesReport in 'View\uIEditorInformeFacturasProveedorPendientesReport.pas',
|
||||
uIEditorInformeFacturasProveedorReport in 'View\uIEditorInformeFacturasProveedorReport.pas',
|
||||
uIEditorInformePresupuestosReport in 'View\uIEditorInformePresupuestosReport.pas',
|
||||
uIEditorInformeRecibosProveedorReport in 'View\uIEditorInformeRecibosProveedorReport.pas',
|
||||
uIEditorInformePedidosReport in 'View\uIEditorInformePedidosReport.pas';
|
||||
|
||||
end.
|
||||
@ -0,0 +1,542 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{276cb891-ed7d-4234-bff6-f7ffd1682ac9}</ProjectGuid>
|
||||
<MainSource>GestorInformes_controller.dpk</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\GestorInformes_controller.bpl</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><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"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">GestorInformes_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="GestorInformes_controller.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="uGestorInformesController.pas" />
|
||||
<DCCReference Include="View\ApplicationBase.dcp" />
|
||||
<DCCReference Include="View\Base.dcp" />
|
||||
<DCCReference Include="View\GestorInformes_data.dcp" />
|
||||
<DCCReference Include="View\uIEditorInformeBase.pas" />
|
||||
<DCCReference Include="View\uIEditorInformeFacturasClientePendientesReport.pas" />
|
||||
<DCCReference Include="View\uIEditorInformeFacturasClienteReport.pas" />
|
||||
<DCCReference Include="View\uIEditorInformeFacturasProveedorPendientesReport.pas" />
|
||||
<DCCReference Include="View\uIEditorInformeFacturasProveedorReport.pas" />
|
||||
<DCCReference Include="View\uIEditorInformeIVAClientesReport.pas" />
|
||||
<DCCReference Include="View\uIEditorInformeIVAProveedoresReport.pas" />
|
||||
<DCCReference Include="View\uIEditorInformePedidosReport.pas" />
|
||||
<DCCReference Include="View\uIEditorInformePresupuestosReport.pas" />
|
||||
<DCCReference Include="View\uIEditorInformeRecibosClienteReport.pas" />
|
||||
<DCCReference Include="View\uIEditorInformeRecibosCliPendientesReport.pas" />
|
||||
<DCCReference Include="View\uIEditorInformeRecibosProveedorReport.pas" />
|
||||
<DCCReference Include="View\uIEditorInformeRecibosProvPendientesReport.pas" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=6011
|
||||
Activate=0
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
Foreground Tab=0
|
||||
Freeze Activate=0
|
||||
Freeze Timeout=60
|
||||
SMTP From=eurekalog@email.com
|
||||
SMTP Host=
|
||||
SMTP Port=25
|
||||
SMTP UserID=
|
||||
SMTP Password=
|
||||
Append to Log=0
|
||||
TerminateBtn Operation=2
|
||||
Errors Number=32
|
||||
Errors Terminate=3
|
||||
Email Address=
|
||||
Email Object=
|
||||
Email Send Options=0
|
||||
Output Path=
|
||||
Encrypt Password=
|
||||
AutoCloseDialogSecs=0
|
||||
WebSendMode=0
|
||||
SupportULR=
|
||||
HTMLLayout Count=15
|
||||
HTMLLine0="%3Chtml%3E"
|
||||
HTMLLine1=" %3Chead%3E"
|
||||
HTMLLine2=" %3C/head%3E"
|
||||
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
|
||||
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
|
||||
HTMLLine5=" %3Ctr%3E"
|
||||
HTMLLine6=" %3Ctd nowrap%3E"
|
||||
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
|
||||
HTMLLine8=" %3C%%HTML_TAG%%%3E"
|
||||
HTMLLine9=" %3C/font%3E"
|
||||
HTMLLine10=" %3C/td%3E"
|
||||
HTMLLine11=" %3C/tr%3E"
|
||||
HTMLLine12=" %3C/table%3E"
|
||||
HTMLLine13=" %3C/body%3E"
|
||||
HTMLLine14="%3C/html%3E"
|
||||
AutoCrashOperation=2
|
||||
AutoCrashNumber=10
|
||||
AutoCrashMinutes=1
|
||||
WebURL=
|
||||
WebUserID=
|
||||
WebPassword=
|
||||
WebPort=0
|
||||
AttachedFiles=
|
||||
ProxyURL=
|
||||
ProxyUser=
|
||||
ProxyPassword=
|
||||
ProxyPort=8080
|
||||
TrakerUser=
|
||||
TrakerPassword=
|
||||
TrakerAssignTo=
|
||||
TrakerProject=
|
||||
TrakerCategory=
|
||||
TrakerTrialID=
|
||||
ZipPassword=
|
||||
PreBuildEvent=
|
||||
PostSuccessfulBuildEvent=
|
||||
PostFailureBuildEvent=
|
||||
ExceptionDialogType=2
|
||||
Count=0
|
||||
EMail Message Line Count=0
|
||||
loNoDuplicateErrors=0
|
||||
loAppendReproduceText=0
|
||||
loDeleteLogAtVersionChange=0
|
||||
loAddComputerNameInLogFileName=0
|
||||
loSaveModulesAndProcessesSections=1
|
||||
loSaveAssemblerAndCPUSections=1
|
||||
soAppStartDate=1
|
||||
soAppName=1
|
||||
soAppVersionNumber=1
|
||||
soAppParameters=1
|
||||
soAppCompilationDate=1
|
||||
soAppUpTime=1
|
||||
soExcDate=1
|
||||
soExcAddress=1
|
||||
soExcModuleName=1
|
||||
soExcModuleVersion=1
|
||||
soExcType=1
|
||||
soExcMessage=1
|
||||
soExcID=1
|
||||
soExcCount=1
|
||||
soExcStatus=1
|
||||
soExcNote=1
|
||||
soUserID=1
|
||||
soUserName=1
|
||||
soUserEmail=1
|
||||
soUserPrivileges=1
|
||||
soUserCompany=1
|
||||
soActCtlsFormClass=1
|
||||
soActCtlsFormText=1
|
||||
soActCtlsControlClass=1
|
||||
soActCtlsControlText=1
|
||||
soCmpName=1
|
||||
soCmpTotalMemory=1
|
||||
soCmpFreeMemory=1
|
||||
soCmpTotalDisk=1
|
||||
soCmpFreeDisk=1
|
||||
soCmpSysUpTime=1
|
||||
soCmpProcessor=1
|
||||
soCmpDisplayMode=1
|
||||
soCmpDisplayDPI=1
|
||||
soCmpVideoCard=1
|
||||
soCmpPrinter=1
|
||||
soOSType=1
|
||||
soOSBuildN=1
|
||||
soOSUpdate=1
|
||||
soOSLanguage=1
|
||||
soOSCharset=1
|
||||
soNetIP=1
|
||||
soNetSubmask=1
|
||||
soNetGateway=1
|
||||
soNetDNS1=1
|
||||
soNetDNS2=1
|
||||
soNetDHCP=1
|
||||
soCustomData=1
|
||||
sndShowSendDialog=1
|
||||
sndShowSuccessFailureMsg=0
|
||||
sndSendEntireLog=0
|
||||
sndSendXMLLogCopy=0
|
||||
sndSendScreenshot=1
|
||||
sndUseOnlyActiveWindow=0
|
||||
sndSendLastHTMLPage=1
|
||||
sndSendInSeparatedThread=0
|
||||
sndAddDateInFileName=0
|
||||
sndAddComputerNameInFileName=0
|
||||
edoSendErrorReportChecked=1
|
||||
edoAttachScreenshotChecked=1
|
||||
edoShowCopyToClipOption=1
|
||||
edoShowDetailsButton=1
|
||||
edoShowInDetailedMode=0
|
||||
edoShowInTopMostMode=0
|
||||
edoUseEurekaLogLookAndFeel=0
|
||||
edoShowSendErrorReportOption=1
|
||||
edoShowAttachScreenshotOption=1
|
||||
edoShowCustomButton=0
|
||||
csoShowDLLs=1
|
||||
csoShowBPLs=1
|
||||
csoShowBorlandThreads=1
|
||||
csoShowWindowsThreads=1
|
||||
csoDoNotStoreProcNames=0
|
||||
boPauseBorlandThreads=0
|
||||
boDoNotPauseMainThread=0
|
||||
boPauseWindowsThreads=0
|
||||
boUseMainModuleOptions=1
|
||||
boCopyLogInCaseOfError=1
|
||||
boSaveCompressedCopyInCaseOfError=0
|
||||
boHandleSafeCallExceptions=1
|
||||
boCallRTLExceptionEvent=0
|
||||
boCatchHandledExceptions=0
|
||||
loCatchLeaks=0
|
||||
loGroupsSonLeaks=1
|
||||
loHideBorlandLeaks=1
|
||||
loFreeAllLeaks=1
|
||||
loCatchLeaksExceptions=1
|
||||
cfoReduceFileSize=1
|
||||
cfoCheckFileCorruption=0
|
||||
Count mtInformationMsgCaption=1
|
||||
mtInformationMsgCaption0="Information."
|
||||
Count mtQuestionMsgCaption=1
|
||||
mtQuestionMsgCaption0="Question."
|
||||
Count mtErrorMsgCaption=1
|
||||
mtErrorMsgCaption0="Error."
|
||||
Count mtDialog_Caption=1
|
||||
mtDialog_Caption0="Error occurred"
|
||||
Count mtDialog_ErrorMsgCaption=2
|
||||
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
|
||||
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
|
||||
Count mtDialog_GeneralCaption=1
|
||||
mtDialog_GeneralCaption0="General"
|
||||
Count mtDialog_GeneralHeader=1
|
||||
mtDialog_GeneralHeader0="General Information"
|
||||
Count mtDialog_CallStackCaption=1
|
||||
mtDialog_CallStackCaption0="Call Stack"
|
||||
Count mtDialog_CallStackHeader=1
|
||||
mtDialog_CallStackHeader0="Call Stack Information"
|
||||
Count mtDialog_ModulesCaption=1
|
||||
mtDialog_ModulesCaption0="Modules"
|
||||
Count mtDialog_ModulesHeader=1
|
||||
mtDialog_ModulesHeader0="Modules Information"
|
||||
Count mtDialog_ProcessesCaption=1
|
||||
mtDialog_ProcessesCaption0="Processes"
|
||||
Count mtDialog_ProcessesHeader=1
|
||||
mtDialog_ProcessesHeader0="Processes Information"
|
||||
Count mtDialog_AsmCaption=1
|
||||
mtDialog_AsmCaption0="Assembler"
|
||||
Count mtDialog_AsmHeader=1
|
||||
mtDialog_AsmHeader0="Assembler Information"
|
||||
Count mtDialog_CPUCaption=1
|
||||
mtDialog_CPUCaption0="CPU"
|
||||
Count mtDialog_CPUHeader=1
|
||||
mtDialog_CPUHeader0="CPU Information"
|
||||
Count mtDialog_OKButtonCaption=1
|
||||
mtDialog_OKButtonCaption0="%26OK"
|
||||
Count mtDialog_TerminateButtonCaption=1
|
||||
mtDialog_TerminateButtonCaption0="%26Terminate"
|
||||
Count mtDialog_RestartButtonCaption=1
|
||||
mtDialog_RestartButtonCaption0="%26Restart"
|
||||
Count mtDialog_DetailsButtonCaption=1
|
||||
mtDialog_DetailsButtonCaption0="%26Details"
|
||||
Count mtDialog_CustomButtonCaption=1
|
||||
mtDialog_CustomButtonCaption0="%26Help"
|
||||
Count mtDialog_SendMessage=1
|
||||
mtDialog_SendMessage0="%26Send this error via Internet"
|
||||
Count mtDialog_ScreenshotMessage=1
|
||||
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
|
||||
Count mtDialog_CopyMessage=1
|
||||
mtDialog_CopyMessage0="%26Copy to Clipboard"
|
||||
Count mtDialog_SupportMessage=1
|
||||
mtDialog_SupportMessage0="Go to the Support Page"
|
||||
Count mtMSDialog_ErrorMsgCaption=1
|
||||
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
|
||||
Count mtMSDialog_RestartCaption=1
|
||||
mtMSDialog_RestartCaption0="Restart application."
|
||||
Count mtMSDialog_TerminateCaption=1
|
||||
mtMSDialog_TerminateCaption0="Terminate application."
|
||||
Count mtMSDialog_PleaseCaption=1
|
||||
mtMSDialog_PleaseCaption0="Please tell us about this problem."
|
||||
Count mtMSDialog_DescriptionCaption=1
|
||||
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
|
||||
Count mtMSDialog_SeeDetailsCaption=1
|
||||
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
|
||||
Count mtMSDialog_SeeClickCaption=1
|
||||
mtMSDialog_SeeClickCaption0="click here."
|
||||
Count mtMSDialog_HowToReproduceCaption=1
|
||||
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
|
||||
Count mtMSDialog_EmailCaption=1
|
||||
mtMSDialog_EmailCaption0="Email address (optional):"
|
||||
Count mtMSDialog_SendButtonCaption=1
|
||||
mtMSDialog_SendButtonCaption0="%26Send Error Report"
|
||||
Count mtMSDialog_NoSendButtonCaption=1
|
||||
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
|
||||
Count mtLog_AppHeader=1
|
||||
mtLog_AppHeader0="Application"
|
||||
Count mtLog_AppStartDate=1
|
||||
mtLog_AppStartDate0="Start Date"
|
||||
Count mtLog_AppName=1
|
||||
mtLog_AppName0="Name/Description"
|
||||
Count mtLog_AppVersionNumber=1
|
||||
mtLog_AppVersionNumber0="Version Number"
|
||||
Count mtLog_AppParameters=1
|
||||
mtLog_AppParameters0="Parameters"
|
||||
Count mtLog_AppCompilationDate=1
|
||||
mtLog_AppCompilationDate0="Compilation Date"
|
||||
Count mtLog_AppUpTime=1
|
||||
mtLog_AppUpTime0="Up Time"
|
||||
Count mtLog_ExcHeader=1
|
||||
mtLog_ExcHeader0="Exception"
|
||||
Count mtLog_ExcDate=1
|
||||
mtLog_ExcDate0="Date"
|
||||
Count mtLog_ExcAddress=1
|
||||
mtLog_ExcAddress0="Address"
|
||||
Count mtLog_ExcModuleName=1
|
||||
mtLog_ExcModuleName0="Module Name"
|
||||
Count mtLog_ExcModuleVersion=1
|
||||
mtLog_ExcModuleVersion0="Module Version"
|
||||
Count mtLog_ExcType=1
|
||||
mtLog_ExcType0="Type"
|
||||
Count mtLog_ExcMessage=1
|
||||
mtLog_ExcMessage0="Message"
|
||||
Count mtLog_ExcID=1
|
||||
mtLog_ExcID0="ID"
|
||||
Count mtLog_ExcCount=1
|
||||
mtLog_ExcCount0="Count"
|
||||
Count mtLog_ExcStatus=1
|
||||
mtLog_ExcStatus0="Status"
|
||||
Count mtLog_ExcNote=1
|
||||
mtLog_ExcNote0="Note"
|
||||
Count mtLog_UserHeader=1
|
||||
mtLog_UserHeader0="User"
|
||||
Count mtLog_UserID=1
|
||||
mtLog_UserID0="ID"
|
||||
Count mtLog_UserName=1
|
||||
mtLog_UserName0="Name"
|
||||
Count mtLog_UserEmail=1
|
||||
mtLog_UserEmail0="Email"
|
||||
Count mtLog_UserCompany=1
|
||||
mtLog_UserCompany0="Company"
|
||||
Count mtLog_UserPrivileges=1
|
||||
mtLog_UserPrivileges0="Privileges"
|
||||
Count mtLog_ActCtrlsHeader=1
|
||||
mtLog_ActCtrlsHeader0="Active Controls"
|
||||
Count mtLog_ActCtrlsFormClass=1
|
||||
mtLog_ActCtrlsFormClass0="Form Class"
|
||||
Count mtLog_ActCtrlsFormText=1
|
||||
mtLog_ActCtrlsFormText0="Form Text"
|
||||
Count mtLog_ActCtrlsControlClass=1
|
||||
mtLog_ActCtrlsControlClass0="Control Class"
|
||||
Count mtLog_ActCtrlsControlText=1
|
||||
mtLog_ActCtrlsControlText0="Control Text"
|
||||
Count mtLog_CmpHeader=1
|
||||
mtLog_CmpHeader0="Computer"
|
||||
Count mtLog_CmpName=1
|
||||
mtLog_CmpName0="Name"
|
||||
Count mtLog_CmpTotalMemory=1
|
||||
mtLog_CmpTotalMemory0="Total Memory"
|
||||
Count mtLog_CmpFreeMemory=1
|
||||
mtLog_CmpFreeMemory0="Free Memory"
|
||||
Count mtLog_CmpTotalDisk=1
|
||||
mtLog_CmpTotalDisk0="Total Disk"
|
||||
Count mtLog_CmpFreeDisk=1
|
||||
mtLog_CmpFreeDisk0="Free Disk"
|
||||
Count mtLog_CmpSystemUpTime=1
|
||||
mtLog_CmpSystemUpTime0="System Up Time"
|
||||
Count mtLog_CmpProcessor=1
|
||||
mtLog_CmpProcessor0="Processor"
|
||||
Count mtLog_CmpDisplayMode=1
|
||||
mtLog_CmpDisplayMode0="Display Mode"
|
||||
Count mtLog_CmpDisplayDPI=1
|
||||
mtLog_CmpDisplayDPI0="Display DPI"
|
||||
Count mtLog_CmpVideoCard=1
|
||||
mtLog_CmpVideoCard0="Video Card"
|
||||
Count mtLog_CmpPrinter=1
|
||||
mtLog_CmpPrinter0="Printer"
|
||||
Count mtLog_OSHeader=1
|
||||
mtLog_OSHeader0="Operating System"
|
||||
Count mtLog_OSType=1
|
||||
mtLog_OSType0="Type"
|
||||
Count mtLog_OSBuildN=1
|
||||
mtLog_OSBuildN0="Build #"
|
||||
Count mtLog_OSUpdate=1
|
||||
mtLog_OSUpdate0="Update"
|
||||
Count mtLog_OSLanguage=1
|
||||
mtLog_OSLanguage0="Language"
|
||||
Count mtLog_OSCharset=1
|
||||
mtLog_OSCharset0="Charset"
|
||||
Count mtLog_NetHeader=1
|
||||
mtLog_NetHeader0="Network"
|
||||
Count mtLog_NetIP=1
|
||||
mtLog_NetIP0="IP Address"
|
||||
Count mtLog_NetSubmask=1
|
||||
mtLog_NetSubmask0="Submask"
|
||||
Count mtLog_NetGateway=1
|
||||
mtLog_NetGateway0="Gateway"
|
||||
Count mtLog_NetDNS1=1
|
||||
mtLog_NetDNS10="DNS 1"
|
||||
Count mtLog_NetDNS2=1
|
||||
mtLog_NetDNS20="DNS 2"
|
||||
Count mtLog_NetDHCP=1
|
||||
mtLog_NetDHCP0="DHCP"
|
||||
Count mtLog_CustInfoHeader=1
|
||||
mtLog_CustInfoHeader0="Custom Information"
|
||||
Count mtCallStack_Address=1
|
||||
mtCallStack_Address0="Address"
|
||||
Count mtCallStack_Name=1
|
||||
mtCallStack_Name0="Module"
|
||||
Count mtCallStack_Unit=1
|
||||
mtCallStack_Unit0="Unit"
|
||||
Count mtCallStack_Class=1
|
||||
mtCallStack_Class0="Class"
|
||||
Count mtCallStack_Procedure=1
|
||||
mtCallStack_Procedure0="Procedure/Method"
|
||||
Count mtCallStack_Line=1
|
||||
mtCallStack_Line0="Line"
|
||||
Count mtCallStack_MainThread=1
|
||||
mtCallStack_MainThread0="Main"
|
||||
Count mtCallStack_ExceptionThread=1
|
||||
mtCallStack_ExceptionThread0="Exception Thread"
|
||||
Count mtCallStack_RunningThread=1
|
||||
mtCallStack_RunningThread0="Running Thread"
|
||||
Count mtCallStack_CallingThread=1
|
||||
mtCallStack_CallingThread0="Calling Thread"
|
||||
Count mtCallStack_ThreadID=1
|
||||
mtCallStack_ThreadID0="ID"
|
||||
Count mtCallStack_ThreadPriority=1
|
||||
mtCallStack_ThreadPriority0="Priority"
|
||||
Count mtCallStack_ThreadClass=1
|
||||
mtCallStack_ThreadClass0="Class"
|
||||
Count mtCallStack_LeakCaption=1
|
||||
mtCallStack_LeakCaption0="Memory Leak"
|
||||
Count mtCallStack_LeakData=1
|
||||
mtCallStack_LeakData0="Data"
|
||||
Count mtCallStack_LeakType=1
|
||||
mtCallStack_LeakType0="Type"
|
||||
Count mtCallStack_LeakSize=1
|
||||
mtCallStack_LeakSize0="Total size"
|
||||
Count mtCallStack_LeakCount=1
|
||||
mtCallStack_LeakCount0="Count"
|
||||
Count mtSendDialog_Caption=1
|
||||
mtSendDialog_Caption0="Send."
|
||||
Count mtSendDialog_Message=1
|
||||
mtSendDialog_Message0="Message"
|
||||
Count mtSendDialog_Resolving=1
|
||||
mtSendDialog_Resolving0="Resolving DNS..."
|
||||
Count mtSendDialog_Login=1
|
||||
mtSendDialog_Login0="Login..."
|
||||
Count mtSendDialog_Connecting=1
|
||||
mtSendDialog_Connecting0="Connecting with server..."
|
||||
Count mtSendDialog_Connected=1
|
||||
mtSendDialog_Connected0="Connected with server."
|
||||
Count mtSendDialog_Sending=1
|
||||
mtSendDialog_Sending0="Sending message..."
|
||||
Count mtSendDialog_Sent=1
|
||||
mtSendDialog_Sent0="Message sent."
|
||||
Count mtSendDialog_SelectProject=1
|
||||
mtSendDialog_SelectProject0="Select project..."
|
||||
Count mtSendDialog_Searching=1
|
||||
mtSendDialog_Searching0="Searching..."
|
||||
Count mtSendDialog_Modifying=1
|
||||
mtSendDialog_Modifying0="Modifying..."
|
||||
Count mtSendDialog_Disconnecting=1
|
||||
mtSendDialog_Disconnecting0="Disconnecting..."
|
||||
Count mtSendDialog_Disconnected=1
|
||||
mtSendDialog_Disconnected0="Disconnected."
|
||||
Count mtReproduceDialog_Caption=1
|
||||
mtReproduceDialog_Caption0="Request"
|
||||
Count mtReproduceDialog_Request=1
|
||||
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
|
||||
Count mtReproduceDialog_OKButtonCaption=1
|
||||
mtReproduceDialog_OKButtonCaption0="%26OK"
|
||||
Count mtModules_Handle=1
|
||||
mtModules_Handle0="Handle"
|
||||
Count mtModules_Name=1
|
||||
mtModules_Name0="Name"
|
||||
Count mtModules_Description=1
|
||||
mtModules_Description0="Description"
|
||||
Count mtModules_Version=1
|
||||
mtModules_Version0="Version"
|
||||
Count mtModules_Size=1
|
||||
mtModules_Size0="Size"
|
||||
Count mtModules_LastModified=1
|
||||
mtModules_LastModified0="Modified"
|
||||
Count mtModules_Path=1
|
||||
mtModules_Path0="Path"
|
||||
Count mtProcesses_ID=1
|
||||
mtProcesses_ID0="ID"
|
||||
Count mtProcesses_Name=1
|
||||
mtProcesses_Name0="Name"
|
||||
Count mtProcesses_Description=1
|
||||
mtProcesses_Description0="Description"
|
||||
Count mtProcesses_Version=1
|
||||
mtProcesses_Version0="Version"
|
||||
Count mtProcesses_Memory=1
|
||||
mtProcesses_Memory0="Memory"
|
||||
Count mtProcesses_Priority=1
|
||||
mtProcesses_Priority0="Priority"
|
||||
Count mtProcesses_Threads=1
|
||||
mtProcesses_Threads0="Threads"
|
||||
Count mtProcesses_Path=1
|
||||
mtProcesses_Path0="Path"
|
||||
Count mtCPU_Registers=1
|
||||
mtCPU_Registers0="Registers"
|
||||
Count mtCPU_Stack=1
|
||||
mtCPU_Stack0="Stack"
|
||||
Count mtCPU_MemoryDump=1
|
||||
mtCPU_MemoryDump0="Memory Dump"
|
||||
Count mtSend_SuccessMsg=1
|
||||
mtSend_SuccessMsg0="The message was sent successfully."
|
||||
Count mtSend_FailureMsg=1
|
||||
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
||||
Count mtSend_BugClosedMsg=2
|
||||
mtSend_BugClosedMsg0="These BUG is just closed."
|
||||
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
|
||||
Count mtSend_UnknownErrorMsg=1
|
||||
mtSend_UnknownErrorMsg0="Unknown error."
|
||||
Count mtSend_InvalidLoginMsg=1
|
||||
mtSend_InvalidLoginMsg0="Invalid login request."
|
||||
Count mtSend_InvalidSearchMsg=1
|
||||
mtSend_InvalidSearchMsg0="Invalid search request."
|
||||
Count mtSend_InvalidSelectionMsg=1
|
||||
mtSend_InvalidSelectionMsg0="Invalid selection request."
|
||||
Count mtSend_InvalidInsertMsg=1
|
||||
mtSend_InvalidInsertMsg0="Invalid insert request."
|
||||
Count mtSend_InvalidModifyMsg=1
|
||||
mtSend_InvalidModifyMsg0="Invalid modify request."
|
||||
Count mtFileCrackedMsg=2
|
||||
mtFileCrackedMsg0="This file is cracked."
|
||||
mtFileCrackedMsg1="The application will be closed."
|
||||
Count mtException_LeakMultiFree=1
|
||||
mtException_LeakMultiFree0="Multi Free memory leak."
|
||||
Count mtException_LeakMemoryOverrun=1
|
||||
mtException_LeakMemoryOverrun0="Memory Overrun leak."
|
||||
Count mtException_AntiFreeze=1
|
||||
mtException_AntiFreeze0="The application seems to be frozen."
|
||||
Count mtInvalidEmailMsg=1
|
||||
mtInvalidEmailMsg0="Invalid email."
|
||||
TextsCollection=English
|
||||
EurekaLog Last Line -->
|
||||
@ -0,0 +1,22 @@
|
||||
1 VERSIONINFO
|
||||
FILEVERSION 1,0,0,0
|
||||
PRODUCTVERSION 1,0,0,0
|
||||
FILEFLAGSMASK 0x3FL
|
||||
FILEFLAGS 0x00L
|
||||
FILEOS 0x40004L
|
||||
FILETYPE 0x1L
|
||||
FILESUBTYPE 0x0L
|
||||
BEGIN
|
||||
BLOCK "StringFileInfo"
|
||||
BEGIN
|
||||
BLOCK "0C0A04E4"
|
||||
BEGIN
|
||||
VALUE "FileVersion", "1.0.0.0\0"
|
||||
VALUE "ProductVersion", "1.0.0.0\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
BEGIN
|
||||
VALUE "Translation", 0x0C0A, 1252
|
||||
END
|
||||
END
|
||||
Binary file not shown.
@ -0,0 +1,16 @@
|
||||
unit uIEditorInformeBase;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uEditorPreview;
|
||||
|
||||
type
|
||||
IEditorInformeBase = interface(IEditorPreview)
|
||||
['{5D57EB76-FD78-4B7E-BBC9-DE1AB5DFECCB}']
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
@ -0,0 +1,26 @@
|
||||
unit uIEditorInformeFacturasClientePendientesReport;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
FactuGES_Intf, uIEditorInformeBase;
|
||||
|
||||
type
|
||||
IEditorInformeFacturasClientePendientesReport = interface(IEditorInformeBase)
|
||||
['{6ADD8C8B-34D8-4F51-9C9C-4A9ED54DDE34}']
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetListaIDClientes: TIntegerArray;
|
||||
function GetDesglosadoCliente: Boolean;
|
||||
function GetImporteMinimo: Currency;
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||
property ImporteMinimo: Currency read getImporteMinimo;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
@ -0,0 +1,26 @@
|
||||
unit uIEditorInformeFacturasClienteReport;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
FactuGES_Intf, uIEditorInformeBase;
|
||||
|
||||
type
|
||||
IEditorInformeFacturasClienteReport = interface(IEditorInformeBase)
|
||||
['{AE5DD69C-6360-4A6A-A764-C0DAF5B5A948}']
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetListaIDClientes: TIntegerArray;
|
||||
function GetDesglosadoCliente: Boolean;
|
||||
function GetImporteMinimo: Currency;
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||
property ImporteMinimo: Currency read getImporteMinimo;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
@ -0,0 +1,26 @@
|
||||
unit uIEditorInformeFacturasProveedorPendientesReport;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
FactuGES_Intf, uIEditorInformeBase;
|
||||
|
||||
type
|
||||
IEditorInformeFacturasProveedorPendientesReport = interface(IEditorInformeBase)
|
||||
['{C0EFEC01-BF2C-4B56-9876-2818892FABFA}']
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetListaIDProveedores: TIntegerArray;
|
||||
function GetDesglosadoProveedor: Boolean;
|
||||
function GetImporteMinimo: Currency;
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
||||
property ImporteMinimo: Currency read getImporteMinimo;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
@ -0,0 +1,26 @@
|
||||
unit uIEditorInformeFacturasProveedorReport;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
FactuGES_Intf, uIEditorInformeBase;
|
||||
|
||||
type
|
||||
IEditorInformeFacturasProveedorReport = interface(IEditorInformeBase)
|
||||
['{0E60C309-336C-455D-825B-7E4892A6CBC5}']
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetListaIDProveedores: TIntegerArray;
|
||||
function GetDesglosadoProveedor: Boolean;
|
||||
function GetImporteMinimo: Currency;
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
||||
property ImporteMinimo: Currency read getImporteMinimo;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
@ -0,0 +1,26 @@
|
||||
unit uIEditorInformeIVAClientesReport;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
FactuGES_Intf, uIEditorInformeBase;
|
||||
|
||||
type
|
||||
IEditorInformeIVAClientesReport = interface(IEditorInformeBase)
|
||||
['{66F6F909-B1EC-4117-A115-12DFB62E6120}']
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetListaIDClientes: TIntegerArray;
|
||||
function GetDesglosadoCliente: Boolean;
|
||||
function GetImporteMinimo: Currency;
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||
property ImporteMinimo: Currency read getImporteMinimo;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
@ -0,0 +1,26 @@
|
||||
unit uIEditorInformeIVAProveedoresReport;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
FactuGES_Intf, uIEditorInformeBase;
|
||||
|
||||
type
|
||||
IEditorInformeIVAProveedoresReport = interface(IEditorInformeBase)
|
||||
['{1EC723DF-B7F7-49F9-83FA-DF628FEF4B26}']
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetListaIDProveedores: TIntegerArray;
|
||||
function GetDesglosadoProveedor: Boolean;
|
||||
function GetImporteMinimo: Currency;
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
||||
property ImporteMinimo: Currency read getImporteMinimo;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
@ -0,0 +1,26 @@
|
||||
unit uIEditorInformePedidosReport;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
FactuGES_Intf, uIEditorInformeBase;
|
||||
|
||||
type
|
||||
IEditorInformePedidosReport = interface(IEditorInformeBase)
|
||||
['{70B07429-BCB2-416F-8C42-6D7BFFA152D5}']
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetListaIDProveedores: TIntegerArray;
|
||||
function GetDesglosadoProveedor: Boolean;
|
||||
function GetImporteMinimo: Currency;
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
||||
property ImporteMinimo: Currency read getImporteMinimo;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
@ -0,0 +1,26 @@
|
||||
unit uIEditorInformePresupuestosReport;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
FactuGES_Intf, uIEditorInformeBase;
|
||||
|
||||
type
|
||||
IEditorInformePresupuestosReport = interface(IEditorInformeBase)
|
||||
['{99BBD05C-8AEF-4BA7-83C6-FC467F14488C}']
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetListaIDClientes: TIntegerArray;
|
||||
function GetDesglosadoCliente: Boolean;
|
||||
function GetImporteMinimo: Currency;
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||
property ImporteMinimo: Currency read getImporteMinimo;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
@ -0,0 +1,26 @@
|
||||
unit uIEditorInformeRecibosCliPendientesReport;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
FactuGES_Intf, uIEditorInformeBase;
|
||||
|
||||
type
|
||||
IEditorInformeRecibosCliPendientesReport = interface(IEditorInformeBase)
|
||||
['{BD1EA0DE-B610-4170-9BFC-4A7C0F7ABF0E}']
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetListaIDClientes: TIntegerArray;
|
||||
function GetDesglosadoCliente: Boolean;
|
||||
function GetImporteMinimo: Currency;
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||
property ImporteMinimo: Currency read getImporteMinimo;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
@ -0,0 +1,26 @@
|
||||
unit uIEditorInformeRecibosClienteReport;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
FactuGES_Intf, uIEditorInformeBase;
|
||||
|
||||
type
|
||||
IEditorInformeRecibosClienteReport = interface(IEditorInformeBase)
|
||||
['{F0DAD68E-198D-41BE-B04E-C76486208631}']
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetListaIDClientes: TIntegerArray;
|
||||
function GetDesglosadoCliente: Boolean;
|
||||
function GetImporteMinimo: Currency;
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||
property ImporteMinimo: Currency read getImporteMinimo;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
@ -0,0 +1,26 @@
|
||||
unit uIEditorInformeRecibosProvPendientesReport;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
FactuGES_Intf, uIEditorInformeBase;
|
||||
|
||||
type
|
||||
IEditorInformeRecibosProvPendientesReport = interface(IEditorInformeBase)
|
||||
['{DC6AA05C-24F5-4F2A-BCB7-625629BF4297}']
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetListaIDProveedores: TIntegerArray;
|
||||
function GetDesglosadoProveedor: Boolean;
|
||||
function GetImporteMinimo: Currency;
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
||||
property ImporteMinimo: Currency read getImporteMinimo;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
@ -0,0 +1,26 @@
|
||||
unit uIEditorInformeRecibosProveedorReport;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
FactuGES_Intf, uIEditorInformeBase;
|
||||
|
||||
type
|
||||
IEditorInformeRecibosProveedorReport = interface(IEditorInformeBase)
|
||||
['{63D1B0D1-9BDD-48B6-BD3B-C05AC6B49C9C}']
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetListaIDProveedores: TIntegerArray;
|
||||
function GetDesglosadoProveedor: Boolean;
|
||||
function GetImporteMinimo: Currency;
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
||||
property ImporteMinimo: Currency read getImporteMinimo;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
@ -0,0 +1,700 @@
|
||||
unit uGestorInformesController;
|
||||
|
||||
interface
|
||||
|
||||
|
||||
uses
|
||||
Classes, SysUtils, uDADataTable, uControllerBase, uROTypes, uIDataModuleGestorInformes,
|
||||
uIEditorInformeBase;
|
||||
|
||||
type
|
||||
IGestorInformesController = interface(IControllerBase)
|
||||
['{5A556B66-AF8F-46F7-B12E-B8336CE07F6D}']
|
||||
function GetDataModule: IDataModuleGestorInformes;
|
||||
property DataModule: IDataModuleGestorInformes read GetDataModule;
|
||||
// procedure Preview(AFactura : IBizFacturaCliente; AllItems: Boolean = false);
|
||||
// procedure Print(AFactura : IBizFacturaCliente; AllItems: Boolean = false);
|
||||
|
||||
//MODULO PRESUPUESTOS DE CLIENTE
|
||||
procedure VerInformeListadoPresupuestos;
|
||||
|
||||
//MODULO FACTURAS DE CLIENTE
|
||||
procedure VerInformeIVAClientes;
|
||||
procedure VerInformeListadoFacturasCli;
|
||||
procedure VerInformeListadoFacturasCliPendientes;
|
||||
|
||||
//MODULO RECIBOS DE CLIENTE
|
||||
procedure VerInformeListadoRecibosCliPendientes;
|
||||
procedure VerInformeListadoRecibosCliente;
|
||||
|
||||
//MODULO FACTURAS DE PROVEEDOR
|
||||
procedure VerInformeIVAProveedores;
|
||||
procedure VerInformeListadoFacturasProv;
|
||||
procedure VerInformeListadoFacturasProvPendientes;
|
||||
|
||||
//MODULO RECIBOS DE PROVEEDOR
|
||||
procedure VerInformeListadoRecibosProvPendientes;
|
||||
procedure VerInformeListadoRecibosProveedor;
|
||||
end;
|
||||
|
||||
TGestorInformesController = class(TControllerBase, IGestorInformesController)
|
||||
private
|
||||
FDataModule : IDataModuleGestorInformes;
|
||||
|
||||
function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;
|
||||
function GetDataModule: IDataModuleGestorInformes;
|
||||
|
||||
// procedure FiltrarEmpresa(AFactura: IBizFacturaCliente);
|
||||
|
||||
public
|
||||
constructor Create; override;
|
||||
destructor Destroy; override;
|
||||
{
|
||||
function Buscar(const ID: Integer): IBizFacturaCliente;
|
||||
function BuscarTodos: IBizFacturaCliente;
|
||||
function BuscarTodasPendientesComision(IdAgente: Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizFacturaCliente;
|
||||
procedure Ver(AFactura : IBizFacturaCliente);
|
||||
procedure VerTodos(AFacturas: IBizFacturaCliente);
|
||||
|
||||
procedure Preview(AFactura : IBizFacturaCliente; AllItems: Boolean = false);
|
||||
procedure Print(AFactura : IBizFacturaCliente; AllItems: Boolean = false);
|
||||
}
|
||||
property DataModule: IDataModuleGestorInformes read GetDataModule;
|
||||
|
||||
//MODULO PRESUPUESTOS DE CLIENTE
|
||||
procedure VerInformeListadoPresupuestos;
|
||||
|
||||
//MODULO FACTURAS DE CLIENTE
|
||||
procedure VerInformeIVAClientes;
|
||||
procedure VerInformeListadoFacturasCli;
|
||||
procedure VerInformeListadoFacturasCliPendientes;
|
||||
|
||||
//MODULO RECIBOS DE CLIENTE
|
||||
procedure VerInformeListadoRecibosCliPendientes;
|
||||
procedure VerInformeListadoRecibosCliente;
|
||||
|
||||
//MODULO FACTURAS DE PROVEEDOR
|
||||
procedure VerInformeIVAProveedores;
|
||||
procedure VerInformeListadoFacturasProv;
|
||||
procedure VerInformeListadoFacturasProvPendientes;
|
||||
|
||||
//MODULO RECIBOS DE PROVEEDOR
|
||||
procedure VerInformeListadoRecibosProvPendientes;
|
||||
procedure VerInformeListadoRecibosProveedor;
|
||||
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
Windows, Controls, cxControls, DB, uEditorRegistryUtils, uFactuGES_App,
|
||||
uDAInterfaces, uDataTableUtils, uDateUtils, uNumUtils,
|
||||
DateUtils, Forms, uIntegerListUtils, uDataModuleGestorInformes,
|
||||
uSistemaFunc, uDialogElegirEMail, uEMailUtils, Dialogs,
|
||||
uIEditorInformePresupuestosReport,
|
||||
uIEditorInformeIVAClientesReport, uIEditorInformeFacturasClienteReport,
|
||||
uIEditorInformeFacturasClientePendientesReport, uIEditorInformeRecibosClienteReport,
|
||||
uIEditorInformeRecibosCliPendientesReport,
|
||||
uIEditorInformeIVAProveedoresReport, uIEditorInformeFacturasProveedorReport,
|
||||
uIEditorInformeFacturasProveedorPendientesReport, uIEditorInformeRecibosProveedorReport,
|
||||
uIEditorInformeRecibosProvPendientesReport,
|
||||
uIEditorInformePedidosReport;
|
||||
|
||||
|
||||
{procedure CopiarArticulosPedido(AOrigen: IBizDetallesPedidoCliente;
|
||||
ADestino : IBizDetallesFacturaCliente);
|
||||
var
|
||||
i : integer;
|
||||
ADetallesController : IDetallesFacturaClienteController;
|
||||
begin
|
||||
if not Assigned(AOrigen) then
|
||||
raise Exception.Create ('Origen no asignado (CopiarArticulosPedido)');
|
||||
|
||||
if not Assigned(ADestino) then
|
||||
raise Exception.Create ('Destino no asignado (CopiarArticulosPedido)');
|
||||
|
||||
if not AOrigen.DataTable.Active then
|
||||
AOrigen.DataTable.Active := True;
|
||||
|
||||
if not ADestino.DataTable.Active then
|
||||
ADestino.DataTable.Active := True;
|
||||
|
||||
ADetallesController := TDetallesFacturaClienteController.Create;
|
||||
try
|
||||
//OJO IMPORTANTE
|
||||
//Siempre que vayamos a trabajar con los detalles debemos hacer un beginupdate de los mismos y un endupdate para
|
||||
//obligarle siempre a recalcular los detalles una sola vez
|
||||
ADetallesController.BeginUpdate(ADestino);
|
||||
|
||||
AOrigen.DataTable.First;
|
||||
for i := 0 to AOrigen.DataTable.RecordCount - 1 do
|
||||
begin
|
||||
ADetallesController.Add(ADestino, TIPO_DETALLE_CONCEPTO);
|
||||
ADestino.Edit;
|
||||
ADestino.REFERENCIA := AOrigen.REFERENCIA;
|
||||
if AOrigen.ID_ARTICULO > 0 then
|
||||
ADestino.ID_ARTICULO := AOrigen.ID_ARTICULO;
|
||||
ADestino.CONCEPTO := AOrigen.CONCEPTO;
|
||||
ADestino.CANTIDAD := AOrigen.CANTIDAD;
|
||||
ADestino.IMPORTE_UNIDAD := AOrigen.IMPORTE_UNIDAD;
|
||||
ADestino.IMPORTE_TOTAL := AOrigen.IMPORTE_TOTAL;
|
||||
ADestino.DESCUENTO := AOrigen.DESCUENTO;
|
||||
ADestino.IMPORTE_PORTE := AOrigen.IMPORTE_PORTE;
|
||||
ADestino.VISIBLE := AOrigen.VISIBLE;
|
||||
ADestino.REFERENCIA_PROVEEDOR := AOrigen.REFERENCIA_PROVEEDOR;
|
||||
ADestino.Post;
|
||||
AOrigen.Next;
|
||||
end;
|
||||
finally
|
||||
ADetallesController.EndUpdate(ADestino);
|
||||
ADetallesController := NIL;
|
||||
end;
|
||||
end;}
|
||||
|
||||
|
||||
|
||||
{ TGestorInformesController }
|
||||
|
||||
|
||||
{
|
||||
function TGestorInformesController.Buscar(const ID: Integer): IBizFacturaCliente;
|
||||
begin
|
||||
// Result := (FDataModule as IDataModuleFacturasCliente).GetItem(ID);
|
||||
// FiltrarEmpresa(Result);
|
||||
end;
|
||||
|
||||
function TGestorInformesController.BuscarTodasPendientesComision(IdAgente:Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizFacturaCliente;
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
begin
|
||||
{ ShowHourglassCursor;
|
||||
try
|
||||
Result := BuscarTodos;
|
||||
with Result.DataTable.DynamicWhere do
|
||||
begin
|
||||
//Todas las facturas de un agente determinado
|
||||
Condicion := NewBinaryExpression(NewField('', fld_FacturasClienteID_AGENTE), NewConstant(IdAgente, datInteger), dboEqual);
|
||||
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
|
||||
with Result.DataTable.DynamicWhere do
|
||||
begin
|
||||
//Todas aquellas que no esten asociadas a ninguna comisión o asociadas a la comisión,
|
||||
//pero no asociadas en el editor de la comision, esto es porque se puede agregar y quitar
|
||||
//facturas y todos los cambios estan el cache y por lo tanto al pedir las facturas a seleccionar
|
||||
//debemos tener en cuenta dichso cambios en cache
|
||||
Condicion := NewBinaryExpression(NewField('', fld_FacturasClienteID_COMISION_LIQUIDADA), NewNull(), dboEqual);
|
||||
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
|
||||
{REPASARRRRRRR
|
||||
//Quitamos aquellas que ya están asociadas
|
||||
if length(IdFacturasAsociadas) > 0 then
|
||||
with Result.DataTable.DynamicWhere do
|
||||
begin
|
||||
Condicion := NewBinaryExpression(NewField('', fld_FacturasClienteID), ' not in (' + IdFacturasAsociadas + ')');, dboEqual);
|
||||
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
|
||||
with Result.DataTable.Where do
|
||||
begin
|
||||
|
||||
CLOSEBraket;
|
||||
AddOperator(opOR);
|
||||
|
||||
OpenBraket;
|
||||
//En caso de ser facturas ya asociadas lo limitamos a la comision actual
|
||||
//ya que no debemos poder elegir facturas asociadas a otras comisiones
|
||||
OpenBraket;
|
||||
AddText(fld_FacturasClienteID_COMISION_LIQUIDADA + ' = ' + IntToStr(IdComision));
|
||||
CloseBraket;
|
||||
//En el caso de que halla facturas asociadas
|
||||
if length(IdFacturasAsociadas) > 0 then
|
||||
begin
|
||||
AddOperator(opAND);
|
||||
OpenBraket;
|
||||
AddText(fld_FacturasClienteID + ' not in (' + IdFacturasAsociadas + ')');
|
||||
CloseBraket;
|
||||
end;
|
||||
CloseBraket;
|
||||
|
||||
CloseBraket;
|
||||
end;
|
||||
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TGestorInformesController.BuscarTodos: IBizFacturaCliente;
|
||||
begin
|
||||
// Result := FDataModule.GetItems;
|
||||
// FiltrarEmpresa(Result);
|
||||
end;
|
||||
}
|
||||
|
||||
constructor TGestorInformesController.Create;
|
||||
begin
|
||||
inherited;
|
||||
FDataModule := TDataModuleGestorInformes.Create(Nil);
|
||||
end;
|
||||
|
||||
|
||||
function TGestorInformesController.CreateEditor(const AName: String;
|
||||
const IID: TGUID; out Intf): Boolean;
|
||||
begin
|
||||
Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
|
||||
end;
|
||||
|
||||
destructor TGestorInformesController.Destroy;
|
||||
begin
|
||||
FDataModule := Nil;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TGestorInformesController.GetDataModule: IDataModuleGestorInformes;
|
||||
begin
|
||||
Result := FDataModule;
|
||||
end;
|
||||
|
||||
procedure TGestorInformesController.VerInformeIVAClientes;
|
||||
var
|
||||
AStream: Binary;
|
||||
AEditor : IEditorInformeIVAClientesReport;
|
||||
begin
|
||||
AEditor := NIL;
|
||||
CreateEditor('EditorInformeIVAClientesReport', IEditorInformeIVAClientesReport, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
try
|
||||
AEditor.Controller := Self;
|
||||
AEditor.Title := 'Listado de IVA de facturas de cliente';
|
||||
AStream := FDataModule.GenerarInformeIVAClientes(AppFactuGES.EmpresaActiva.ID,
|
||||
AEditor.FechaInicio, AEditor.FechaFin, AEditor.ListaIDClientes,
|
||||
AEditor.DesglosadoCliente, AEditor.ImporteMinimo);
|
||||
AEditor.LoadFromStream(AStream);
|
||||
AEditor.Preview;
|
||||
finally
|
||||
AEditor.Release;
|
||||
AEditor := Nil;
|
||||
FreeAndNil(AStream);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TGestorInformesController.VerInformeIVAProveedores;
|
||||
var
|
||||
AStream: Binary;
|
||||
AEditor : IEditorInformeIVAProveedoresReport;
|
||||
begin
|
||||
AEditor := NIL;
|
||||
|
||||
CreateEditor('EditorInformeIVAProveedoresReport', IEditorInformeIVAProveedoresReport, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
try
|
||||
AEditor.Controller := Self;
|
||||
AEditor.Title := 'Listado de IVA de facturas de proveedor';
|
||||
AStream := FDataModule.GenerarInformeIVAProveedores(AppFactuGES.EmpresaActiva.ID,
|
||||
AEditor.FechaInicio, AEditor.FechaFin,
|
||||
AEditor.ListaIDProveedores, AEditor.DesglosadoProveedor,
|
||||
AEditor.ImporteMinimo);
|
||||
AEditor.LoadFromStream(AStream);
|
||||
AEditor.Preview;
|
||||
finally
|
||||
AEditor.Release;
|
||||
AEditor := Nil;
|
||||
FreeAndNil(AStream);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TGestorInformesController.VerInformeListadoFacturasCli;
|
||||
var
|
||||
AStream: Binary;
|
||||
AEditor : IEditorInformeFacturasClienteReport;
|
||||
begin
|
||||
AEditor := NIL;
|
||||
|
||||
CreateEditor('EditorInformeFacturasClienteReport', IEditorInformeFacturasClienteReport, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
try
|
||||
AEditor.Controller := Self;
|
||||
AEditor.Title := 'Listado de facturas de cliente';
|
||||
AStream := FDataModule.GenerarInformeListadoFacturasCli(AppFactuGES.EmpresaActiva.ID,
|
||||
AEditor.FechaInicio, AEditor.FechaFin, AEditor.ListaIDClientes,
|
||||
AEditor.DesglosadoCliente, AEditor.ImporteMinimo);
|
||||
AEditor.LoadFromStream(AStream);
|
||||
AEditor.Preview;
|
||||
finally
|
||||
AEditor.Release;
|
||||
AEditor := Nil;
|
||||
FreeAndNil(AStream);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TGestorInformesController.VerInformeListadoFacturasCliPendientes;
|
||||
var
|
||||
AStream: Binary;
|
||||
AEditor : IEditorInformeFacturasClientePendientesReport;
|
||||
begin
|
||||
AEditor := NIL;
|
||||
|
||||
CreateEditor('EditorInformeFacturasClientePendientesReport', IEditorInformeFacturasClientePendientesReport, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
try
|
||||
AEditor.Controller := Self;
|
||||
AEditor.Title := 'Listado de facturas de cliente pendientes';
|
||||
AStream := FDataModule.GenerarInformeListadoFacturasCliPendientes(AppFactuGES.EmpresaActiva.ID,
|
||||
AEditor.FechaInicio, AEditor.FechaFin, AEditor.ListaIDClientes,
|
||||
AEditor.DesglosadoCliente, AEditor.ImporteMinimo);
|
||||
AEditor.LoadFromStream(AStream);
|
||||
AEditor.Preview;
|
||||
finally
|
||||
AEditor.Release;
|
||||
AEditor := Nil;
|
||||
FreeAndNil(AStream);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TGestorInformesController.VerInformeListadoFacturasProv;
|
||||
var
|
||||
AStream: Binary;
|
||||
AEditor : IEditorInformeFacturasProveedorReport;
|
||||
begin
|
||||
AEditor := NIL;
|
||||
CreateEditor('EditorInformeFacturasProveedorReport', IEditorInformeFacturasProveedorReport, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
try
|
||||
AEditor.Controller := Self;
|
||||
AEditor.Title := 'Listado de facturas de proveedor';
|
||||
AStream := FDataModule.GenerarInformeListadoFacturasProv(AppFactuGES.EmpresaActiva.ID,
|
||||
AEditor.FechaInicio, AEditor.FechaFin, AEditor.ListaIDProveedores,
|
||||
AEditor.DesglosadoProveedor, AEditor.ImporteMinimo);
|
||||
AEditor.LoadFromStream(AStream);
|
||||
AEditor.Preview;
|
||||
finally
|
||||
AEditor.Release;
|
||||
AEditor := Nil;
|
||||
FreeAndNil(AStream);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TGestorInformesController.VerInformeListadoFacturasProvPendientes;
|
||||
var
|
||||
AStream: Binary;
|
||||
AEditor : IEditorInformeFacturasProveedorPendientesReport;
|
||||
begin
|
||||
AEditor := NIL;
|
||||
CreateEditor('EditorInformeFacturasProveedorPendientesReport', IEditorInformeFacturasProveedorPendientesReport, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
try
|
||||
AEditor.Controller := Self;
|
||||
AEditor.Title := 'Listado de facturas de proveedor pendientes';
|
||||
AStream := FDataModule.GenerarInformeListadoFacturasProvPendientes(AppFactuGES.EmpresaActiva.ID,
|
||||
AEditor.FechaInicio, AEditor.FechaFin, AEditor.ListaIDProveedores,
|
||||
AEditor.DesglosadoProveedor, AEditor.ImporteMinimo);
|
||||
AEditor.LoadFromStream(AStream);
|
||||
AEditor.Preview;
|
||||
finally
|
||||
AEditor.Release;
|
||||
AEditor := Nil;
|
||||
FreeAndNil(AStream);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TGestorInformesController.VerInformeListadoPresupuestos;
|
||||
var
|
||||
AStream: Binary;
|
||||
AEditor : IEditorInformePresupuestosReport;
|
||||
begin
|
||||
AEditor := NIL;
|
||||
|
||||
CreateEditor('EditorInformePresupuestosReport', IEditorInformePresupuestosReport, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
try
|
||||
AEditor.Controller := Self;
|
||||
AEditor.Title := 'Listado de presupuestos de cliente';
|
||||
AStream := FDataModule.GenerarInformeListadoPresupuestos(AppFactuGES.EmpresaActiva.ID,
|
||||
AEditor.FechaInicio, AEditor.FechaFin, AEditor.ListaIDClientes,
|
||||
AEditor.DesglosadoCliente, AEditor.ImporteMinimo);
|
||||
AEditor.LoadFromStream(AStream);
|
||||
AEditor.Preview;
|
||||
finally
|
||||
AEditor.Release;
|
||||
AEditor := Nil;
|
||||
FreeAndNil(AStream);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TGestorInformesController.VerInformeListadoRecibosCliente;
|
||||
var
|
||||
AStream: Binary;
|
||||
AEditor : IEditorInformeRecibosClienteReport;
|
||||
begin
|
||||
AEditor := NIL;
|
||||
CreateEditor('EditorInformeRecibosClienteReport', IEditorInformeRecibosClienteReport, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
try
|
||||
AEditor.Controller := Self;
|
||||
AStream := FDataModule.GenerarInformeListadoRecibosCliente(AppFactuGES.EmpresaActiva.ID,
|
||||
AEditor.FechaInicio, AEditor.FechaFin, AEditor.ListaIDClientes,
|
||||
AEditor.DesglosadoCliente, AEditor.ImporteMinimo);
|
||||
AEditor.LoadFromStream(AStream);
|
||||
AEditor.Preview;
|
||||
finally
|
||||
AEditor.Release;
|
||||
AEditor := Nil;
|
||||
FreeAndNil(AStream);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TGestorInformesController.VerInformeListadoRecibosCliPendientes;
|
||||
var
|
||||
AStream: Binary;
|
||||
AEditor : IEditorInformeRecibosCliPendientesReport;
|
||||
begin
|
||||
AEditor := NIL;
|
||||
|
||||
CreateEditor('EditorInformeRecibosCliPendientesReport', IEditorInformeRecibosCliPendientesReport, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
try
|
||||
AEditor.Controller := Self;
|
||||
AStream := FDataModule.GenerarInformeListadoRecibosCliPendientes(AppFactuGES.EmpresaActiva.ID,
|
||||
AEditor.FechaInicio, AEditor.FechaFin, AEditor.ListaIDClientes,
|
||||
AEditor.DesglosadoCliente, AEditor.ImporteMinimo);
|
||||
AEditor.LoadFromStream(AStream);
|
||||
AEditor.Preview;
|
||||
finally
|
||||
AEditor.Release;
|
||||
AEditor := Nil;
|
||||
FreeAndNil(AStream);
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
procedure TGestorInformesController.VerInformeListadoRecibosProveedor;
|
||||
var
|
||||
AStream: Binary;
|
||||
AEditor : IEditorInformeRecibosProveedorReport;
|
||||
begin
|
||||
AEditor := NIL;
|
||||
|
||||
CreateEditor('EditorInformeRecibosProveedorReport', IEditorInformeRecibosProveedorReport, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
try
|
||||
AEditor.Controller := Self;
|
||||
AStream := FDataModule.GenerarInformeListadoRecibosProveedor(AppFactuGES.EmpresaActiva.ID,
|
||||
AEditor.FechaInicio, AEditor.FechaFin, AEditor.ListaIDProveedores,
|
||||
AEditor.DesglosadoProveedor, AEditor.ImporteMinimo);
|
||||
AEditor.LoadFromStream(AStream);
|
||||
AEditor.Preview;
|
||||
finally
|
||||
AEditor.Release;
|
||||
AEditor := Nil;
|
||||
FreeAndNil(AStream);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TGestorInformesController.VerInformeListadoRecibosProvPendientes;
|
||||
var
|
||||
AStream: Binary;
|
||||
AEditor : IEditorInformeRecibosProvPendientesReport;
|
||||
begin
|
||||
AEditor := NIL;
|
||||
|
||||
CreateEditor('EditorInformeRecibosProvPendientesReport', IEditorInformeRecibosProvPendientesReport, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
try
|
||||
AEditor.Controller := Self;
|
||||
AStream := FDataModule.GenerarInformeListadoRecibosProvPendientes(AppFactuGES.EmpresaActiva.ID,
|
||||
AEditor.FechaInicio, AEditor.FechaFin, AEditor.ListaIDProveedores,
|
||||
AEditor.DesglosadoProveedor, AEditor.ImporteMinimo);
|
||||
AEditor.LoadFromStream(AStream);
|
||||
AEditor.Preview;
|
||||
finally
|
||||
AEditor.Release;
|
||||
AEditor := Nil;
|
||||
FreeAndNil(AStream);
|
||||
end;
|
||||
end;
|
||||
|
||||
{
|
||||
procedure TGestorInformesController.Ver(AFactura: IBizFacturaCliente);
|
||||
var
|
||||
AEditor : IEditorFacturaCliente;
|
||||
begin
|
||||
AEditor := NIL;
|
||||
{ ShowHourglassCursor;
|
||||
try
|
||||
RecuperarCliente(AFactura);
|
||||
CreateEditor('EditorFacturaCliente', IEditorFacturaCliente, AEditor);
|
||||
|
||||
if Assigned(AEditor) then
|
||||
with AEditor do
|
||||
begin
|
||||
try
|
||||
Controller := Self; //OJO ORDEN MUY IMPORTANTE
|
||||
Factura := AFactura;
|
||||
|
||||
//MODO CONSULTAR
|
||||
if not EsModificable(AFactura) then
|
||||
begin
|
||||
SetDataTableReadOnly(AFactura.DataTable, True);
|
||||
ReadOnly := True;
|
||||
end;
|
||||
|
||||
ShowModal;
|
||||
|
||||
//MODO CONSULTAR (Se deja la tabla como estaba)
|
||||
if ReadOnly then
|
||||
SetDataTableReadOnly(AFactura.DataTable, False);
|
||||
finally
|
||||
AEditor.Release;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TGestorInformesController.VerTodos(AFacturas: IBizFacturaCliente);
|
||||
var
|
||||
AEditor : IEditorFacturasCliente;
|
||||
begin
|
||||
AEditor := NIL;
|
||||
{
|
||||
CreateEditor('EditorFacturasCliente', IEditorFacturasCliente, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
with AEditor do
|
||||
begin
|
||||
Controller := Self; //OJO ORDEN MUY IMPORTANTE
|
||||
Facturas := AFacturas;
|
||||
MultiSelect := True;
|
||||
ShowEmbedded;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
procedure TGestorInformesController.FiltrarEmpresa(AFactura: IBizFacturaCliente);
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
begin
|
||||
{ if AFactura.DataTable.Active then
|
||||
AFactura.DataTable.Active := False;
|
||||
|
||||
// Filtrar las facturas actuales por empresa
|
||||
with AFactura.DataTable.DynamicWhere do
|
||||
begin
|
||||
// (ID_EMPRESA >= ID)
|
||||
Condicion := NewBinaryExpression(NewField('', fld_FacturasClienteID_EMPRESA), NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual);
|
||||
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TGestorInformesController.SetClienteController(const Value: IClientesController);
|
||||
begin
|
||||
FClienteController := Value;
|
||||
end;
|
||||
|
||||
procedure TGestorInformesController.SetDetallesController(const Value: IDetallesFacturaClienteController);
|
||||
begin
|
||||
FDetallesController := Value;
|
||||
end;
|
||||
}
|
||||
{
|
||||
procedure TGestorInformesController.informe;
|
||||
begin
|
||||
|
||||
FDataModule.getInforme;
|
||||
//showmessage('alla voy')
|
||||
end;
|
||||
|
||||
{
|
||||
procedure TGestorInformesController.Preview(AFactura: IBizFacturaCliente; AllItems: Boolean = false);
|
||||
var
|
||||
// AReportController : IFacturasClienteReportController;
|
||||
ID_Facturas: TIntegerList;
|
||||
|
||||
begin
|
||||
{
|
||||
AReportController := TFacturasClienteReportController.Create;
|
||||
ID_Facturas := TIntegerList.Create;
|
||||
|
||||
try
|
||||
//Si deseamos previsualizar todos los items del objeto albaran
|
||||
if AllItems then
|
||||
begin
|
||||
with AFactura.DataTable do
|
||||
begin
|
||||
First;
|
||||
while not EOF do
|
||||
begin
|
||||
ID_Facturas.Add(AFactura.ID);
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
end
|
||||
//Solo previsualizamos el item seleccionado
|
||||
else
|
||||
ID_Facturas.Add(AFactura.ID);
|
||||
|
||||
AReportController.Preview(ID_Facturas);
|
||||
|
||||
finally
|
||||
AReportController := NIL;
|
||||
FreeANDNIL(ID_Facturas);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TGestorInformesController.Print(AFactura: IBizFacturaCliente; AllItems: Boolean = false);
|
||||
var
|
||||
// AReportController : IFacturasClienteReportController;
|
||||
ID_Facturas: TIntegerList;
|
||||
|
||||
begin
|
||||
{
|
||||
AReportController := TFacturasClienteReportController.Create;
|
||||
ID_Facturas := TIntegerList.Create;
|
||||
|
||||
try
|
||||
//Si deseamos previsualizar todos los items del objeto albaran
|
||||
if AllItems then
|
||||
begin
|
||||
with AFactura.DataTable do
|
||||
begin
|
||||
First;
|
||||
while not EOF do
|
||||
begin
|
||||
ID_Facturas.Add(AFactura.ID);
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
end
|
||||
//Solo previsualizamos el item seleccionado
|
||||
else
|
||||
ID_Facturas.Add(AFactura.ID);
|
||||
|
||||
AReportController.Print(ID_Facturas);
|
||||
|
||||
finally
|
||||
AReportController := NIL;
|
||||
FreeANDNIL(ID_Facturas);
|
||||
end;
|
||||
end;
|
||||
}
|
||||
|
||||
end.
|
||||
@ -0,0 +1,34 @@
|
||||
package GestorInformes_data;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
Base,
|
||||
GestorInformes_model;
|
||||
|
||||
contains
|
||||
uDataModuleGestorInformes in 'uDataModuleGestorInformes.pas';
|
||||
|
||||
end.
|
||||
528
Source/Modulos/Gestor de informes/Data/GestorInformes_data.dproj
Normal file
528
Source/Modulos/Gestor de informes/Data/GestorInformes_data.dproj
Normal file
@ -0,0 +1,528 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{45f3d725-bfc7-4084-afb2-6032ebaddc4a}</ProjectGuid>
|
||||
<MainSource>GestorInformes_data.dpk</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\GestorInformes_data.bpl</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><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"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">GestorInformes_data.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="GestorInformes_data.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Plugin\Base.dcp" />
|
||||
<DCCReference Include="..\Plugin\GestorInformes_model.dcp" />
|
||||
<DCCReference Include="uDataModuleGestorInformes.pas" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=6011
|
||||
Activate=0
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
Foreground Tab=0
|
||||
Freeze Activate=0
|
||||
Freeze Timeout=60
|
||||
SMTP From=eurekalog@email.com
|
||||
SMTP Host=
|
||||
SMTP Port=25
|
||||
SMTP UserID=
|
||||
SMTP Password=
|
||||
Append to Log=0
|
||||
TerminateBtn Operation=2
|
||||
Errors Number=32
|
||||
Errors Terminate=3
|
||||
Email Address=
|
||||
Email Object=
|
||||
Email Send Options=0
|
||||
Output Path=
|
||||
Encrypt Password=
|
||||
AutoCloseDialogSecs=0
|
||||
WebSendMode=0
|
||||
SupportULR=
|
||||
HTMLLayout Count=15
|
||||
HTMLLine0="%3Chtml%3E"
|
||||
HTMLLine1=" %3Chead%3E"
|
||||
HTMLLine2=" %3C/head%3E"
|
||||
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
|
||||
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
|
||||
HTMLLine5=" %3Ctr%3E"
|
||||
HTMLLine6=" %3Ctd nowrap%3E"
|
||||
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
|
||||
HTMLLine8=" %3C%%HTML_TAG%%%3E"
|
||||
HTMLLine9=" %3C/font%3E"
|
||||
HTMLLine10=" %3C/td%3E"
|
||||
HTMLLine11=" %3C/tr%3E"
|
||||
HTMLLine12=" %3C/table%3E"
|
||||
HTMLLine13=" %3C/body%3E"
|
||||
HTMLLine14="%3C/html%3E"
|
||||
AutoCrashOperation=2
|
||||
AutoCrashNumber=10
|
||||
AutoCrashMinutes=1
|
||||
WebURL=
|
||||
WebUserID=
|
||||
WebPassword=
|
||||
WebPort=0
|
||||
AttachedFiles=
|
||||
ProxyURL=
|
||||
ProxyUser=
|
||||
ProxyPassword=
|
||||
ProxyPort=8080
|
||||
TrakerUser=
|
||||
TrakerPassword=
|
||||
TrakerAssignTo=
|
||||
TrakerProject=
|
||||
TrakerCategory=
|
||||
TrakerTrialID=
|
||||
ZipPassword=
|
||||
PreBuildEvent=
|
||||
PostSuccessfulBuildEvent=
|
||||
PostFailureBuildEvent=
|
||||
ExceptionDialogType=2
|
||||
Count=0
|
||||
EMail Message Line Count=0
|
||||
loNoDuplicateErrors=0
|
||||
loAppendReproduceText=0
|
||||
loDeleteLogAtVersionChange=0
|
||||
loAddComputerNameInLogFileName=0
|
||||
loSaveModulesAndProcessesSections=1
|
||||
loSaveAssemblerAndCPUSections=1
|
||||
soAppStartDate=1
|
||||
soAppName=1
|
||||
soAppVersionNumber=1
|
||||
soAppParameters=1
|
||||
soAppCompilationDate=1
|
||||
soAppUpTime=1
|
||||
soExcDate=1
|
||||
soExcAddress=1
|
||||
soExcModuleName=1
|
||||
soExcModuleVersion=1
|
||||
soExcType=1
|
||||
soExcMessage=1
|
||||
soExcID=1
|
||||
soExcCount=1
|
||||
soExcStatus=1
|
||||
soExcNote=1
|
||||
soUserID=1
|
||||
soUserName=1
|
||||
soUserEmail=1
|
||||
soUserPrivileges=1
|
||||
soUserCompany=1
|
||||
soActCtlsFormClass=1
|
||||
soActCtlsFormText=1
|
||||
soActCtlsControlClass=1
|
||||
soActCtlsControlText=1
|
||||
soCmpName=1
|
||||
soCmpTotalMemory=1
|
||||
soCmpFreeMemory=1
|
||||
soCmpTotalDisk=1
|
||||
soCmpFreeDisk=1
|
||||
soCmpSysUpTime=1
|
||||
soCmpProcessor=1
|
||||
soCmpDisplayMode=1
|
||||
soCmpDisplayDPI=1
|
||||
soCmpVideoCard=1
|
||||
soCmpPrinter=1
|
||||
soOSType=1
|
||||
soOSBuildN=1
|
||||
soOSUpdate=1
|
||||
soOSLanguage=1
|
||||
soOSCharset=1
|
||||
soNetIP=1
|
||||
soNetSubmask=1
|
||||
soNetGateway=1
|
||||
soNetDNS1=1
|
||||
soNetDNS2=1
|
||||
soNetDHCP=1
|
||||
soCustomData=1
|
||||
sndShowSendDialog=1
|
||||
sndShowSuccessFailureMsg=0
|
||||
sndSendEntireLog=0
|
||||
sndSendXMLLogCopy=0
|
||||
sndSendScreenshot=1
|
||||
sndUseOnlyActiveWindow=0
|
||||
sndSendLastHTMLPage=1
|
||||
sndSendInSeparatedThread=0
|
||||
sndAddDateInFileName=0
|
||||
sndAddComputerNameInFileName=0
|
||||
edoSendErrorReportChecked=1
|
||||
edoAttachScreenshotChecked=1
|
||||
edoShowCopyToClipOption=1
|
||||
edoShowDetailsButton=1
|
||||
edoShowInDetailedMode=0
|
||||
edoShowInTopMostMode=0
|
||||
edoUseEurekaLogLookAndFeel=0
|
||||
edoShowSendErrorReportOption=1
|
||||
edoShowAttachScreenshotOption=1
|
||||
edoShowCustomButton=0
|
||||
csoShowDLLs=1
|
||||
csoShowBPLs=1
|
||||
csoShowBorlandThreads=1
|
||||
csoShowWindowsThreads=1
|
||||
csoDoNotStoreProcNames=0
|
||||
boPauseBorlandThreads=0
|
||||
boDoNotPauseMainThread=0
|
||||
boPauseWindowsThreads=0
|
||||
boUseMainModuleOptions=1
|
||||
boCopyLogInCaseOfError=1
|
||||
boSaveCompressedCopyInCaseOfError=0
|
||||
boHandleSafeCallExceptions=1
|
||||
boCallRTLExceptionEvent=0
|
||||
boCatchHandledExceptions=0
|
||||
loCatchLeaks=0
|
||||
loGroupsSonLeaks=1
|
||||
loHideBorlandLeaks=1
|
||||
loFreeAllLeaks=1
|
||||
loCatchLeaksExceptions=1
|
||||
cfoReduceFileSize=1
|
||||
cfoCheckFileCorruption=0
|
||||
Count mtInformationMsgCaption=1
|
||||
mtInformationMsgCaption0="Information."
|
||||
Count mtQuestionMsgCaption=1
|
||||
mtQuestionMsgCaption0="Question."
|
||||
Count mtErrorMsgCaption=1
|
||||
mtErrorMsgCaption0="Error."
|
||||
Count mtDialog_Caption=1
|
||||
mtDialog_Caption0="Error occurred"
|
||||
Count mtDialog_ErrorMsgCaption=2
|
||||
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
|
||||
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
|
||||
Count mtDialog_GeneralCaption=1
|
||||
mtDialog_GeneralCaption0="General"
|
||||
Count mtDialog_GeneralHeader=1
|
||||
mtDialog_GeneralHeader0="General Information"
|
||||
Count mtDialog_CallStackCaption=1
|
||||
mtDialog_CallStackCaption0="Call Stack"
|
||||
Count mtDialog_CallStackHeader=1
|
||||
mtDialog_CallStackHeader0="Call Stack Information"
|
||||
Count mtDialog_ModulesCaption=1
|
||||
mtDialog_ModulesCaption0="Modules"
|
||||
Count mtDialog_ModulesHeader=1
|
||||
mtDialog_ModulesHeader0="Modules Information"
|
||||
Count mtDialog_ProcessesCaption=1
|
||||
mtDialog_ProcessesCaption0="Processes"
|
||||
Count mtDialog_ProcessesHeader=1
|
||||
mtDialog_ProcessesHeader0="Processes Information"
|
||||
Count mtDialog_AsmCaption=1
|
||||
mtDialog_AsmCaption0="Assembler"
|
||||
Count mtDialog_AsmHeader=1
|
||||
mtDialog_AsmHeader0="Assembler Information"
|
||||
Count mtDialog_CPUCaption=1
|
||||
mtDialog_CPUCaption0="CPU"
|
||||
Count mtDialog_CPUHeader=1
|
||||
mtDialog_CPUHeader0="CPU Information"
|
||||
Count mtDialog_OKButtonCaption=1
|
||||
mtDialog_OKButtonCaption0="%26OK"
|
||||
Count mtDialog_TerminateButtonCaption=1
|
||||
mtDialog_TerminateButtonCaption0="%26Terminate"
|
||||
Count mtDialog_RestartButtonCaption=1
|
||||
mtDialog_RestartButtonCaption0="%26Restart"
|
||||
Count mtDialog_DetailsButtonCaption=1
|
||||
mtDialog_DetailsButtonCaption0="%26Details"
|
||||
Count mtDialog_CustomButtonCaption=1
|
||||
mtDialog_CustomButtonCaption0="%26Help"
|
||||
Count mtDialog_SendMessage=1
|
||||
mtDialog_SendMessage0="%26Send this error via Internet"
|
||||
Count mtDialog_ScreenshotMessage=1
|
||||
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
|
||||
Count mtDialog_CopyMessage=1
|
||||
mtDialog_CopyMessage0="%26Copy to Clipboard"
|
||||
Count mtDialog_SupportMessage=1
|
||||
mtDialog_SupportMessage0="Go to the Support Page"
|
||||
Count mtMSDialog_ErrorMsgCaption=1
|
||||
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
|
||||
Count mtMSDialog_RestartCaption=1
|
||||
mtMSDialog_RestartCaption0="Restart application."
|
||||
Count mtMSDialog_TerminateCaption=1
|
||||
mtMSDialog_TerminateCaption0="Terminate application."
|
||||
Count mtMSDialog_PleaseCaption=1
|
||||
mtMSDialog_PleaseCaption0="Please tell us about this problem."
|
||||
Count mtMSDialog_DescriptionCaption=1
|
||||
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
|
||||
Count mtMSDialog_SeeDetailsCaption=1
|
||||
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
|
||||
Count mtMSDialog_SeeClickCaption=1
|
||||
mtMSDialog_SeeClickCaption0="click here."
|
||||
Count mtMSDialog_HowToReproduceCaption=1
|
||||
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
|
||||
Count mtMSDialog_EmailCaption=1
|
||||
mtMSDialog_EmailCaption0="Email address (optional):"
|
||||
Count mtMSDialog_SendButtonCaption=1
|
||||
mtMSDialog_SendButtonCaption0="%26Send Error Report"
|
||||
Count mtMSDialog_NoSendButtonCaption=1
|
||||
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
|
||||
Count mtLog_AppHeader=1
|
||||
mtLog_AppHeader0="Application"
|
||||
Count mtLog_AppStartDate=1
|
||||
mtLog_AppStartDate0="Start Date"
|
||||
Count mtLog_AppName=1
|
||||
mtLog_AppName0="Name/Description"
|
||||
Count mtLog_AppVersionNumber=1
|
||||
mtLog_AppVersionNumber0="Version Number"
|
||||
Count mtLog_AppParameters=1
|
||||
mtLog_AppParameters0="Parameters"
|
||||
Count mtLog_AppCompilationDate=1
|
||||
mtLog_AppCompilationDate0="Compilation Date"
|
||||
Count mtLog_AppUpTime=1
|
||||
mtLog_AppUpTime0="Up Time"
|
||||
Count mtLog_ExcHeader=1
|
||||
mtLog_ExcHeader0="Exception"
|
||||
Count mtLog_ExcDate=1
|
||||
mtLog_ExcDate0="Date"
|
||||
Count mtLog_ExcAddress=1
|
||||
mtLog_ExcAddress0="Address"
|
||||
Count mtLog_ExcModuleName=1
|
||||
mtLog_ExcModuleName0="Module Name"
|
||||
Count mtLog_ExcModuleVersion=1
|
||||
mtLog_ExcModuleVersion0="Module Version"
|
||||
Count mtLog_ExcType=1
|
||||
mtLog_ExcType0="Type"
|
||||
Count mtLog_ExcMessage=1
|
||||
mtLog_ExcMessage0="Message"
|
||||
Count mtLog_ExcID=1
|
||||
mtLog_ExcID0="ID"
|
||||
Count mtLog_ExcCount=1
|
||||
mtLog_ExcCount0="Count"
|
||||
Count mtLog_ExcStatus=1
|
||||
mtLog_ExcStatus0="Status"
|
||||
Count mtLog_ExcNote=1
|
||||
mtLog_ExcNote0="Note"
|
||||
Count mtLog_UserHeader=1
|
||||
mtLog_UserHeader0="User"
|
||||
Count mtLog_UserID=1
|
||||
mtLog_UserID0="ID"
|
||||
Count mtLog_UserName=1
|
||||
mtLog_UserName0="Name"
|
||||
Count mtLog_UserEmail=1
|
||||
mtLog_UserEmail0="Email"
|
||||
Count mtLog_UserCompany=1
|
||||
mtLog_UserCompany0="Company"
|
||||
Count mtLog_UserPrivileges=1
|
||||
mtLog_UserPrivileges0="Privileges"
|
||||
Count mtLog_ActCtrlsHeader=1
|
||||
mtLog_ActCtrlsHeader0="Active Controls"
|
||||
Count mtLog_ActCtrlsFormClass=1
|
||||
mtLog_ActCtrlsFormClass0="Form Class"
|
||||
Count mtLog_ActCtrlsFormText=1
|
||||
mtLog_ActCtrlsFormText0="Form Text"
|
||||
Count mtLog_ActCtrlsControlClass=1
|
||||
mtLog_ActCtrlsControlClass0="Control Class"
|
||||
Count mtLog_ActCtrlsControlText=1
|
||||
mtLog_ActCtrlsControlText0="Control Text"
|
||||
Count mtLog_CmpHeader=1
|
||||
mtLog_CmpHeader0="Computer"
|
||||
Count mtLog_CmpName=1
|
||||
mtLog_CmpName0="Name"
|
||||
Count mtLog_CmpTotalMemory=1
|
||||
mtLog_CmpTotalMemory0="Total Memory"
|
||||
Count mtLog_CmpFreeMemory=1
|
||||
mtLog_CmpFreeMemory0="Free Memory"
|
||||
Count mtLog_CmpTotalDisk=1
|
||||
mtLog_CmpTotalDisk0="Total Disk"
|
||||
Count mtLog_CmpFreeDisk=1
|
||||
mtLog_CmpFreeDisk0="Free Disk"
|
||||
Count mtLog_CmpSystemUpTime=1
|
||||
mtLog_CmpSystemUpTime0="System Up Time"
|
||||
Count mtLog_CmpProcessor=1
|
||||
mtLog_CmpProcessor0="Processor"
|
||||
Count mtLog_CmpDisplayMode=1
|
||||
mtLog_CmpDisplayMode0="Display Mode"
|
||||
Count mtLog_CmpDisplayDPI=1
|
||||
mtLog_CmpDisplayDPI0="Display DPI"
|
||||
Count mtLog_CmpVideoCard=1
|
||||
mtLog_CmpVideoCard0="Video Card"
|
||||
Count mtLog_CmpPrinter=1
|
||||
mtLog_CmpPrinter0="Printer"
|
||||
Count mtLog_OSHeader=1
|
||||
mtLog_OSHeader0="Operating System"
|
||||
Count mtLog_OSType=1
|
||||
mtLog_OSType0="Type"
|
||||
Count mtLog_OSBuildN=1
|
||||
mtLog_OSBuildN0="Build #"
|
||||
Count mtLog_OSUpdate=1
|
||||
mtLog_OSUpdate0="Update"
|
||||
Count mtLog_OSLanguage=1
|
||||
mtLog_OSLanguage0="Language"
|
||||
Count mtLog_OSCharset=1
|
||||
mtLog_OSCharset0="Charset"
|
||||
Count mtLog_NetHeader=1
|
||||
mtLog_NetHeader0="Network"
|
||||
Count mtLog_NetIP=1
|
||||
mtLog_NetIP0="IP Address"
|
||||
Count mtLog_NetSubmask=1
|
||||
mtLog_NetSubmask0="Submask"
|
||||
Count mtLog_NetGateway=1
|
||||
mtLog_NetGateway0="Gateway"
|
||||
Count mtLog_NetDNS1=1
|
||||
mtLog_NetDNS10="DNS 1"
|
||||
Count mtLog_NetDNS2=1
|
||||
mtLog_NetDNS20="DNS 2"
|
||||
Count mtLog_NetDHCP=1
|
||||
mtLog_NetDHCP0="DHCP"
|
||||
Count mtLog_CustInfoHeader=1
|
||||
mtLog_CustInfoHeader0="Custom Information"
|
||||
Count mtCallStack_Address=1
|
||||
mtCallStack_Address0="Address"
|
||||
Count mtCallStack_Name=1
|
||||
mtCallStack_Name0="Module"
|
||||
Count mtCallStack_Unit=1
|
||||
mtCallStack_Unit0="Unit"
|
||||
Count mtCallStack_Class=1
|
||||
mtCallStack_Class0="Class"
|
||||
Count mtCallStack_Procedure=1
|
||||
mtCallStack_Procedure0="Procedure/Method"
|
||||
Count mtCallStack_Line=1
|
||||
mtCallStack_Line0="Line"
|
||||
Count mtCallStack_MainThread=1
|
||||
mtCallStack_MainThread0="Main"
|
||||
Count mtCallStack_ExceptionThread=1
|
||||
mtCallStack_ExceptionThread0="Exception Thread"
|
||||
Count mtCallStack_RunningThread=1
|
||||
mtCallStack_RunningThread0="Running Thread"
|
||||
Count mtCallStack_CallingThread=1
|
||||
mtCallStack_CallingThread0="Calling Thread"
|
||||
Count mtCallStack_ThreadID=1
|
||||
mtCallStack_ThreadID0="ID"
|
||||
Count mtCallStack_ThreadPriority=1
|
||||
mtCallStack_ThreadPriority0="Priority"
|
||||
Count mtCallStack_ThreadClass=1
|
||||
mtCallStack_ThreadClass0="Class"
|
||||
Count mtCallStack_LeakCaption=1
|
||||
mtCallStack_LeakCaption0="Memory Leak"
|
||||
Count mtCallStack_LeakData=1
|
||||
mtCallStack_LeakData0="Data"
|
||||
Count mtCallStack_LeakType=1
|
||||
mtCallStack_LeakType0="Type"
|
||||
Count mtCallStack_LeakSize=1
|
||||
mtCallStack_LeakSize0="Total size"
|
||||
Count mtCallStack_LeakCount=1
|
||||
mtCallStack_LeakCount0="Count"
|
||||
Count mtSendDialog_Caption=1
|
||||
mtSendDialog_Caption0="Send."
|
||||
Count mtSendDialog_Message=1
|
||||
mtSendDialog_Message0="Message"
|
||||
Count mtSendDialog_Resolving=1
|
||||
mtSendDialog_Resolving0="Resolving DNS..."
|
||||
Count mtSendDialog_Login=1
|
||||
mtSendDialog_Login0="Login..."
|
||||
Count mtSendDialog_Connecting=1
|
||||
mtSendDialog_Connecting0="Connecting with server..."
|
||||
Count mtSendDialog_Connected=1
|
||||
mtSendDialog_Connected0="Connected with server."
|
||||
Count mtSendDialog_Sending=1
|
||||
mtSendDialog_Sending0="Sending message..."
|
||||
Count mtSendDialog_Sent=1
|
||||
mtSendDialog_Sent0="Message sent."
|
||||
Count mtSendDialog_SelectProject=1
|
||||
mtSendDialog_SelectProject0="Select project..."
|
||||
Count mtSendDialog_Searching=1
|
||||
mtSendDialog_Searching0="Searching..."
|
||||
Count mtSendDialog_Modifying=1
|
||||
mtSendDialog_Modifying0="Modifying..."
|
||||
Count mtSendDialog_Disconnecting=1
|
||||
mtSendDialog_Disconnecting0="Disconnecting..."
|
||||
Count mtSendDialog_Disconnected=1
|
||||
mtSendDialog_Disconnected0="Disconnected."
|
||||
Count mtReproduceDialog_Caption=1
|
||||
mtReproduceDialog_Caption0="Request"
|
||||
Count mtReproduceDialog_Request=1
|
||||
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
|
||||
Count mtReproduceDialog_OKButtonCaption=1
|
||||
mtReproduceDialog_OKButtonCaption0="%26OK"
|
||||
Count mtModules_Handle=1
|
||||
mtModules_Handle0="Handle"
|
||||
Count mtModules_Name=1
|
||||
mtModules_Name0="Name"
|
||||
Count mtModules_Description=1
|
||||
mtModules_Description0="Description"
|
||||
Count mtModules_Version=1
|
||||
mtModules_Version0="Version"
|
||||
Count mtModules_Size=1
|
||||
mtModules_Size0="Size"
|
||||
Count mtModules_LastModified=1
|
||||
mtModules_LastModified0="Modified"
|
||||
Count mtModules_Path=1
|
||||
mtModules_Path0="Path"
|
||||
Count mtProcesses_ID=1
|
||||
mtProcesses_ID0="ID"
|
||||
Count mtProcesses_Name=1
|
||||
mtProcesses_Name0="Name"
|
||||
Count mtProcesses_Description=1
|
||||
mtProcesses_Description0="Description"
|
||||
Count mtProcesses_Version=1
|
||||
mtProcesses_Version0="Version"
|
||||
Count mtProcesses_Memory=1
|
||||
mtProcesses_Memory0="Memory"
|
||||
Count mtProcesses_Priority=1
|
||||
mtProcesses_Priority0="Priority"
|
||||
Count mtProcesses_Threads=1
|
||||
mtProcesses_Threads0="Threads"
|
||||
Count mtProcesses_Path=1
|
||||
mtProcesses_Path0="Path"
|
||||
Count mtCPU_Registers=1
|
||||
mtCPU_Registers0="Registers"
|
||||
Count mtCPU_Stack=1
|
||||
mtCPU_Stack0="Stack"
|
||||
Count mtCPU_MemoryDump=1
|
||||
mtCPU_MemoryDump0="Memory Dump"
|
||||
Count mtSend_SuccessMsg=1
|
||||
mtSend_SuccessMsg0="The message was sent successfully."
|
||||
Count mtSend_FailureMsg=1
|
||||
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
||||
Count mtSend_BugClosedMsg=2
|
||||
mtSend_BugClosedMsg0="These BUG is just closed."
|
||||
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
|
||||
Count mtSend_UnknownErrorMsg=1
|
||||
mtSend_UnknownErrorMsg0="Unknown error."
|
||||
Count mtSend_InvalidLoginMsg=1
|
||||
mtSend_InvalidLoginMsg0="Invalid login request."
|
||||
Count mtSend_InvalidSearchMsg=1
|
||||
mtSend_InvalidSearchMsg0="Invalid search request."
|
||||
Count mtSend_InvalidSelectionMsg=1
|
||||
mtSend_InvalidSelectionMsg0="Invalid selection request."
|
||||
Count mtSend_InvalidInsertMsg=1
|
||||
mtSend_InvalidInsertMsg0="Invalid insert request."
|
||||
Count mtSend_InvalidModifyMsg=1
|
||||
mtSend_InvalidModifyMsg0="Invalid modify request."
|
||||
Count mtFileCrackedMsg=2
|
||||
mtFileCrackedMsg0="This file is cracked."
|
||||
mtFileCrackedMsg1="The application will be closed."
|
||||
Count mtException_LeakMultiFree=1
|
||||
mtException_LeakMultiFree0="Multi Free memory leak."
|
||||
Count mtException_LeakMemoryOverrun=1
|
||||
mtException_LeakMemoryOverrun0="Memory Overrun leak."
|
||||
Count mtException_AntiFreeze=1
|
||||
mtException_AntiFreeze0="The application seems to be frozen."
|
||||
Count mtInvalidEmailMsg=1
|
||||
mtInvalidEmailMsg0="Invalid email."
|
||||
TextsCollection=English
|
||||
EurekaLog Last Line -->
|
||||
@ -0,0 +1,22 @@
|
||||
1 VERSIONINFO
|
||||
FILEVERSION 1,0,0,0
|
||||
PRODUCTVERSION 1,0,0,0
|
||||
FILEFLAGSMASK 0x3FL
|
||||
FILEFLAGS 0x00L
|
||||
FILEOS 0x40004L
|
||||
FILETYPE 0x1L
|
||||
FILESUBTYPE 0x0L
|
||||
BEGIN
|
||||
BLOCK "StringFileInfo"
|
||||
BEGIN
|
||||
BLOCK "0C0A04E4"
|
||||
BEGIN
|
||||
VALUE "FileVersion", "1.0.0.0\0"
|
||||
VALUE "ProductVersion", "1.0.0.0\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
BEGIN
|
||||
VALUE "Translation", 0x0C0A, 1252
|
||||
END
|
||||
END
|
||||
BIN
Source/Modulos/Gestor de informes/Data/GestorInformes_data.res
Normal file
BIN
Source/Modulos/Gestor de informes/Data/GestorInformes_data.res
Normal file
Binary file not shown.
@ -0,0 +1,63 @@
|
||||
inherited DataModuleGestorInformes: TDataModuleGestorInformes
|
||||
OnCreate = DAClientDataModuleCreate
|
||||
Height = 207
|
||||
Width = 518
|
||||
object RORemoteService: TRORemoteService
|
||||
Message = dmConexion.ROMessage
|
||||
Channel = dmConexion.ROChannel
|
||||
ServiceName = 'srvGestorInformes'
|
||||
Left = 40
|
||||
Top = 16
|
||||
end
|
||||
object rda_GestorInformes: TDARemoteDataAdapter
|
||||
GetSchemaCall.RemoteService = RORemoteService
|
||||
GetDataCall.RemoteService = RORemoteService
|
||||
UpdateDataCall.RemoteService = RORemoteService
|
||||
GetScriptsCall.RemoteService = RORemoteService
|
||||
RemoteService = RORemoteService
|
||||
DataStreamer = Bin2DataStreamer
|
||||
Left = 43
|
||||
Top = 135
|
||||
end
|
||||
object Bin2DataStreamer: TDABin2DataStreamer
|
||||
Left = 40
|
||||
Top = 72
|
||||
end
|
||||
object tbl_DirectoryData: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'FileName'
|
||||
DataType = datString
|
||||
Size = 200
|
||||
DisplayWidth = 50
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'FileSize'
|
||||
DataType = datInteger
|
||||
end>
|
||||
Params = <
|
||||
item
|
||||
Name = 'Directory'
|
||||
DataType = datString
|
||||
Size = 200
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteDataAdapter = rda_GestorInformes
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'DirectoryData'
|
||||
IndexDefs = <>
|
||||
Left = 184
|
||||
Top = 40
|
||||
end
|
||||
object ds_DirectoryData: TDADataSource
|
||||
DataSet = tbl_DirectoryData.Dataset
|
||||
DataTable = tbl_DirectoryData
|
||||
Left = 184
|
||||
Top = 104
|
||||
end
|
||||
end
|
||||
@ -0,0 +1,218 @@
|
||||
unit uDataModuleGestorInformes;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, Classes, DB, uDADataTable, uDABINAdapter,
|
||||
uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes,
|
||||
uRORemoteService, uROClient, uROBinMessage,
|
||||
|
||||
uIDataModuleGestorInformes, uDADesigntimeCall, uDataModuleBase,
|
||||
uDAInterfaces, uDAMemDataTable, uDADataStreamer, uDABin2DataStreamer,
|
||||
uDARemoteDataAdapter, uIntegerListUtils, FactuGES_Intf;
|
||||
|
||||
type
|
||||
TDataModuleGestorInformes = class(TDataModuleBase, IDataModuleGestorInformes)
|
||||
RORemoteService: TRORemoteService;
|
||||
rda_GestorInformes: TDARemoteDataAdapter;
|
||||
Bin2DataStreamer: TDABin2DataStreamer;
|
||||
tbl_DirectoryData: TDAMemDataTable;
|
||||
ds_DirectoryData: TDADataSource;
|
||||
procedure DAClientDataModuleCreate(Sender: TObject);
|
||||
public
|
||||
// function GetItems : IBizFacturaCliente;
|
||||
|
||||
//MODULO PRESUPUESTOS DE CLIENTE
|
||||
function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
|
||||
//MODULO FACTURAS DE CLIENTE
|
||||
function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
|
||||
//MODULO RECIBOS DE CLIENTE
|
||||
function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
|
||||
//MODULO FACTURAS DE PROVEEDOR
|
||||
function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
|
||||
//MODULO RECIBOS DE CLIENTE
|
||||
function GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
|
||||
procedure getInforme;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.DFM}
|
||||
|
||||
uses
|
||||
uDataModuleConexion, uDataTableUtils, cxControls,
|
||||
Dialogs;
|
||||
|
||||
{ TdmPresupuestos }
|
||||
|
||||
procedure TDataModuleGestorInformes.DAClientDataModuleCreate(Sender: TObject);
|
||||
begin
|
||||
RORemoteService.Channel := dmConexion.Channel;
|
||||
RORemoteService.Message := dmConexion.Message;
|
||||
end;
|
||||
|
||||
function TDataModuleGestorInformes.GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
begin
|
||||
try
|
||||
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeIVAClientes(IdEmpresa, FechaInicio, FechaFin, ListaIdClientes, Desglosado, ImporteMinimo);
|
||||
finally
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleGestorInformes.GenerarInformeIVAProveedores(
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime;
|
||||
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
begin
|
||||
try
|
||||
// Result := (RORemoteService as IsrvGestorInformes).GenerarInformeIVAProveedores(IdEmpresa, FechaInicio, FechaFin, ListaIdProveedores, Desglosado, ImporteMinimo);
|
||||
finally
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleGestorInformes.GenerarInformeListadoFacturasCli(
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime;
|
||||
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
begin
|
||||
try
|
||||
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoFacturasCli(IdEmpresa, FechaInicio, FechaFin, ListaIdClientes, Desglosado, ImporteMinimo);
|
||||
finally
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleGestorInformes.GenerarInformeListadoFacturasCliPendientes(
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime;
|
||||
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
begin
|
||||
try
|
||||
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoFacturasCliPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIdClientes, Desglosado, ImporteMinimo);
|
||||
finally
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleGestorInformes.GenerarInformeListadoFacturasProv(
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime;
|
||||
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
begin
|
||||
try
|
||||
// Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoFacturasProv(IdEmpresa, FechaInicio, FechaFin, ListaIdProveedores, Desglosado, ImporteMinimo);
|
||||
finally
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleGestorInformes.GenerarInformeListadoFacturasProvPendientes(
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime;
|
||||
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
begin
|
||||
try
|
||||
// Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoFacturasProvPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIdProveedores, Desglosado, ImporteMinimo);
|
||||
finally
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleGestorInformes.GenerarInformeListadoPresupuestos(
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime;
|
||||
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
begin
|
||||
try
|
||||
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoPresupuestos(IdEmpresa, FechaInicio, FechaFin, ListaIdClientes, Desglosado, ImporteMinimo);
|
||||
finally
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleGestorInformes.GenerarInformeListadoRecibosCliente(
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime;
|
||||
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
begin
|
||||
try
|
||||
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoRecibosCliente(IdEmpresa, FechaInicio, FechaFin, ListaIdClientes, Desglosado, ImporteMinimo);
|
||||
finally
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleGestorInformes.GenerarInformeListadoRecibosCliPendientes(
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime;
|
||||
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
begin
|
||||
try
|
||||
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoRecibosCliPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIdClientes, Desglosado, ImporteMinimo);
|
||||
finally
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleGestorInformes.GenerarInformeListadoRecibosProveedor(
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime;
|
||||
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
begin
|
||||
try
|
||||
// Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoRecibosProveedor(IdEmpresa, FechaInicio, FechaFin, ListaIdProveedores, Desglosado, ImporteMinimo);
|
||||
finally
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleGestorInformes.GenerarInformeListadoRecibosProvPendientes(
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime;
|
||||
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
begin
|
||||
try
|
||||
// Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoRecibosProvPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIdProveedores, Desglosado, ImporteMinimo);
|
||||
finally
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TDataModuleGestorInformes.getInforme;
|
||||
begin
|
||||
tbl_DirectoryData.close;
|
||||
tbl_DirectoryData.ParamByName('Directory').AsString := 'ddddd';
|
||||
tbl_DirectoryData.Open;
|
||||
showmessage(tbl_DirectoryData.FieldByName('filename').asstring)
|
||||
end;
|
||||
{
|
||||
function TDataModuleGestorInformes.GetItems: IBizFacturaCliente;
|
||||
var
|
||||
AFactura : TDAMemDataTable;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
|
||||
AFactura := CloneDataTable(tbl_FacturasCliente);
|
||||
|
||||
// EL CAMPO REFERENCIA TIENE QUE SER AUTOREFRESH!!!!!
|
||||
AFactura.FieldByName(fld_FacturasClienteREFERENCIA).ServerAutoRefresh := TRUE;
|
||||
|
||||
AFactura.BusinessRulesID := BIZ_CLIENT_FACTURA_CLIENTE;
|
||||
|
||||
with TBizFacturaCliente(AFactura.BusinessEventsObj) do
|
||||
begin
|
||||
Detalles := _GetDetalles;
|
||||
end;
|
||||
|
||||
Result := (AFactura as IBizFacturaCliente);
|
||||
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
}
|
||||
|
||||
end.
|
||||
134
Source/Modulos/Gestor de informes/GestorInformes_Group.groupproj
Normal file
134
Source/Modulos/Gestor de informes/GestorInformes_Group.groupproj
Normal file
@ -0,0 +1,134 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{d51b0489-bd4f-4ed4-a8cc-05ea2af327dd}</ProjectGuid>
|
||||
</PropertyGroup>
|
||||
<ItemGroup />
|
||||
<ItemGroup>
|
||||
<Projects Include="..\..\ApplicationBase\ApplicationBase.dproj" />
|
||||
<Projects Include="..\..\Base\Base.dproj" />
|
||||
<Projects Include="..\..\Cliente\FactuGES.dproj" />
|
||||
<Projects Include="..\..\GUIBase\GUIBase.dproj" />
|
||||
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
|
||||
<Projects Include="..\Contactos\Model\Contactos_model.dproj" />
|
||||
<Projects Include="Controller\GestorInformes_controller.dproj" />
|
||||
<Projects Include="Data\GestorInformes_data.dproj" />
|
||||
<Projects Include="Model\GestorInformes_model.dproj" />
|
||||
<Projects Include="Plugin\GestorInformes_plugin.dproj" />
|
||||
<Projects Include="Views\GestorInformes_view.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="GUIBase">
|
||||
<MSBuild Projects="..\..\GUIBase\GUIBase.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="GUIBase:Clean">
|
||||
<MSBuild Projects="..\..\GUIBase\GUIBase.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="GUIBase:Make">
|
||||
<MSBuild Projects="..\..\GUIBase\GUIBase.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="ApplicationBase">
|
||||
<MSBuild Projects="..\..\ApplicationBase\ApplicationBase.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="ApplicationBase:Clean">
|
||||
<MSBuild Projects="..\..\ApplicationBase\ApplicationBase.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="ApplicationBase:Make">
|
||||
<MSBuild Projects="..\..\ApplicationBase\ApplicationBase.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Contactos_model">
|
||||
<MSBuild Projects="..\Contactos\Model\Contactos_model.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="Contactos_model:Clean">
|
||||
<MSBuild Projects="..\Contactos\Model\Contactos_model.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="Contactos_model:Make">
|
||||
<MSBuild Projects="..\Contactos\Model\Contactos_model.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="GestorInformes_model">
|
||||
<MSBuild Projects="Model\GestorInformes_model.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="GestorInformes_model:Clean">
|
||||
<MSBuild Projects="Model\GestorInformes_model.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="GestorInformes_model:Make">
|
||||
<MSBuild Projects="Model\GestorInformes_model.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="GestorInformes_data">
|
||||
<MSBuild Projects="Data\GestorInformes_data.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="GestorInformes_data:Clean">
|
||||
<MSBuild Projects="Data\GestorInformes_data.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="GestorInformes_data:Make">
|
||||
<MSBuild Projects="Data\GestorInformes_data.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="GestorInformes_controller">
|
||||
<MSBuild Projects="Controller\GestorInformes_controller.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="GestorInformes_controller:Clean">
|
||||
<MSBuild Projects="Controller\GestorInformes_controller.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="GestorInformes_controller:Make">
|
||||
<MSBuild Projects="Controller\GestorInformes_controller.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="GestorInformes_view">
|
||||
<MSBuild Projects="Views\GestorInformes_view.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="GestorInformes_view:Clean">
|
||||
<MSBuild Projects="Views\GestorInformes_view.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="GestorInformes_view:Make">
|
||||
<MSBuild Projects="Views\GestorInformes_view.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="GestorInformes_plugin">
|
||||
<MSBuild Projects="Plugin\GestorInformes_plugin.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="GestorInformes_plugin:Clean">
|
||||
<MSBuild Projects="Plugin\GestorInformes_plugin.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="GestorInformes_plugin:Make">
|
||||
<MSBuild Projects="Plugin\GestorInformes_plugin.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="FactuGES">
|
||||
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="FactuGES:Clean">
|
||||
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="FactuGES:Make">
|
||||
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="FactuGES_Server">
|
||||
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="FactuGES_Server:Clean">
|
||||
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="FactuGES_Server:Make">
|
||||
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;GestorInformes_model;GestorInformes_data;GestorInformes_controller;GestorInformes_view;GestorInformes_plugin;FactuGES;FactuGES_Server" />
|
||||
</Target>
|
||||
<Target Name="Clean">
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;GestorInformes_model:Clean;GestorInformes_data:Clean;GestorInformes_controller:Clean;GestorInformes_view:Clean;GestorInformes_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
|
||||
</Target>
|
||||
<Target Name="Make">
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;GestorInformes_model:Make;GestorInformes_data:Make;GestorInformes_controller:Make;GestorInformes_view:Make;GestorInformes_plugin:Make;FactuGES:Make;FactuGES_Server:Make" />
|
||||
</Target>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -0,0 +1,39 @@
|
||||
unit uIDataModuleGestorInformes;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uROTypes, FactuGES_Intf;
|
||||
|
||||
type
|
||||
IDataModuleGestorInformes = interface
|
||||
['{65FB8E9E-5218-43DC-80AD-BDB4383B7064}']
|
||||
// function GetItems: IBizFacturaCliente;
|
||||
procedure getInforme;
|
||||
|
||||
//MODULO PRESUPUESTOS DE CLIENTE
|
||||
function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
|
||||
//MODULO FACTURAS DE CLIENTE
|
||||
function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
|
||||
//MODULO RECIBOS DE CLIENTE
|
||||
function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
|
||||
//MODULO FACTURAS DE PROVEEDOR
|
||||
function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
|
||||
//MODULO RECIBOS DE CLIENTE
|
||||
function GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
@ -0,0 +1,33 @@
|
||||
package GestorInformes_model;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
Base;
|
||||
|
||||
contains
|
||||
uIDataModuleGestorInformes in 'Data\uIDataModuleGestorInformes.pas';
|
||||
|
||||
end.
|
||||
@ -0,0 +1,527 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{e8b638a4-6653-49db-9d4d-557579466934}</ProjectGuid>
|
||||
<MainSource>GestorInformes_model.dpk</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\GestorInformes_model.bpl</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><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"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">GestorInformes_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="GestorInformes_model.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\..\Servidor\Base.dcp" />
|
||||
<DCCReference Include="Data\uIDataModuleGestorInformes.pas" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=6011
|
||||
Activate=0
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
Foreground Tab=0
|
||||
Freeze Activate=0
|
||||
Freeze Timeout=60
|
||||
SMTP From=eurekalog@email.com
|
||||
SMTP Host=
|
||||
SMTP Port=25
|
||||
SMTP UserID=
|
||||
SMTP Password=
|
||||
Append to Log=0
|
||||
TerminateBtn Operation=2
|
||||
Errors Number=32
|
||||
Errors Terminate=3
|
||||
Email Address=
|
||||
Email Object=
|
||||
Email Send Options=0
|
||||
Output Path=
|
||||
Encrypt Password=
|
||||
AutoCloseDialogSecs=0
|
||||
WebSendMode=0
|
||||
SupportULR=
|
||||
HTMLLayout Count=15
|
||||
HTMLLine0="%3Chtml%3E"
|
||||
HTMLLine1=" %3Chead%3E"
|
||||
HTMLLine2=" %3C/head%3E"
|
||||
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
|
||||
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
|
||||
HTMLLine5=" %3Ctr%3E"
|
||||
HTMLLine6=" %3Ctd nowrap%3E"
|
||||
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
|
||||
HTMLLine8=" %3C%%HTML_TAG%%%3E"
|
||||
HTMLLine9=" %3C/font%3E"
|
||||
HTMLLine10=" %3C/td%3E"
|
||||
HTMLLine11=" %3C/tr%3E"
|
||||
HTMLLine12=" %3C/table%3E"
|
||||
HTMLLine13=" %3C/body%3E"
|
||||
HTMLLine14="%3C/html%3E"
|
||||
AutoCrashOperation=2
|
||||
AutoCrashNumber=10
|
||||
AutoCrashMinutes=1
|
||||
WebURL=
|
||||
WebUserID=
|
||||
WebPassword=
|
||||
WebPort=0
|
||||
AttachedFiles=
|
||||
ProxyURL=
|
||||
ProxyUser=
|
||||
ProxyPassword=
|
||||
ProxyPort=8080
|
||||
TrakerUser=
|
||||
TrakerPassword=
|
||||
TrakerAssignTo=
|
||||
TrakerProject=
|
||||
TrakerCategory=
|
||||
TrakerTrialID=
|
||||
ZipPassword=
|
||||
PreBuildEvent=
|
||||
PostSuccessfulBuildEvent=
|
||||
PostFailureBuildEvent=
|
||||
ExceptionDialogType=2
|
||||
Count=0
|
||||
EMail Message Line Count=0
|
||||
loNoDuplicateErrors=0
|
||||
loAppendReproduceText=0
|
||||
loDeleteLogAtVersionChange=0
|
||||
loAddComputerNameInLogFileName=0
|
||||
loSaveModulesAndProcessesSections=1
|
||||
loSaveAssemblerAndCPUSections=1
|
||||
soAppStartDate=1
|
||||
soAppName=1
|
||||
soAppVersionNumber=1
|
||||
soAppParameters=1
|
||||
soAppCompilationDate=1
|
||||
soAppUpTime=1
|
||||
soExcDate=1
|
||||
soExcAddress=1
|
||||
soExcModuleName=1
|
||||
soExcModuleVersion=1
|
||||
soExcType=1
|
||||
soExcMessage=1
|
||||
soExcID=1
|
||||
soExcCount=1
|
||||
soExcStatus=1
|
||||
soExcNote=1
|
||||
soUserID=1
|
||||
soUserName=1
|
||||
soUserEmail=1
|
||||
soUserPrivileges=1
|
||||
soUserCompany=1
|
||||
soActCtlsFormClass=1
|
||||
soActCtlsFormText=1
|
||||
soActCtlsControlClass=1
|
||||
soActCtlsControlText=1
|
||||
soCmpName=1
|
||||
soCmpTotalMemory=1
|
||||
soCmpFreeMemory=1
|
||||
soCmpTotalDisk=1
|
||||
soCmpFreeDisk=1
|
||||
soCmpSysUpTime=1
|
||||
soCmpProcessor=1
|
||||
soCmpDisplayMode=1
|
||||
soCmpDisplayDPI=1
|
||||
soCmpVideoCard=1
|
||||
soCmpPrinter=1
|
||||
soOSType=1
|
||||
soOSBuildN=1
|
||||
soOSUpdate=1
|
||||
soOSLanguage=1
|
||||
soOSCharset=1
|
||||
soNetIP=1
|
||||
soNetSubmask=1
|
||||
soNetGateway=1
|
||||
soNetDNS1=1
|
||||
soNetDNS2=1
|
||||
soNetDHCP=1
|
||||
soCustomData=1
|
||||
sndShowSendDialog=1
|
||||
sndShowSuccessFailureMsg=0
|
||||
sndSendEntireLog=0
|
||||
sndSendXMLLogCopy=0
|
||||
sndSendScreenshot=1
|
||||
sndUseOnlyActiveWindow=0
|
||||
sndSendLastHTMLPage=1
|
||||
sndSendInSeparatedThread=0
|
||||
sndAddDateInFileName=0
|
||||
sndAddComputerNameInFileName=0
|
||||
edoSendErrorReportChecked=1
|
||||
edoAttachScreenshotChecked=1
|
||||
edoShowCopyToClipOption=1
|
||||
edoShowDetailsButton=1
|
||||
edoShowInDetailedMode=0
|
||||
edoShowInTopMostMode=0
|
||||
edoUseEurekaLogLookAndFeel=0
|
||||
edoShowSendErrorReportOption=1
|
||||
edoShowAttachScreenshotOption=1
|
||||
edoShowCustomButton=0
|
||||
csoShowDLLs=1
|
||||
csoShowBPLs=1
|
||||
csoShowBorlandThreads=1
|
||||
csoShowWindowsThreads=1
|
||||
csoDoNotStoreProcNames=0
|
||||
boPauseBorlandThreads=0
|
||||
boDoNotPauseMainThread=0
|
||||
boPauseWindowsThreads=0
|
||||
boUseMainModuleOptions=1
|
||||
boCopyLogInCaseOfError=1
|
||||
boSaveCompressedCopyInCaseOfError=0
|
||||
boHandleSafeCallExceptions=1
|
||||
boCallRTLExceptionEvent=0
|
||||
boCatchHandledExceptions=0
|
||||
loCatchLeaks=0
|
||||
loGroupsSonLeaks=1
|
||||
loHideBorlandLeaks=1
|
||||
loFreeAllLeaks=1
|
||||
loCatchLeaksExceptions=1
|
||||
cfoReduceFileSize=1
|
||||
cfoCheckFileCorruption=0
|
||||
Count mtInformationMsgCaption=1
|
||||
mtInformationMsgCaption0="Information."
|
||||
Count mtQuestionMsgCaption=1
|
||||
mtQuestionMsgCaption0="Question."
|
||||
Count mtErrorMsgCaption=1
|
||||
mtErrorMsgCaption0="Error."
|
||||
Count mtDialog_Caption=1
|
||||
mtDialog_Caption0="Error occurred"
|
||||
Count mtDialog_ErrorMsgCaption=2
|
||||
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
|
||||
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
|
||||
Count mtDialog_GeneralCaption=1
|
||||
mtDialog_GeneralCaption0="General"
|
||||
Count mtDialog_GeneralHeader=1
|
||||
mtDialog_GeneralHeader0="General Information"
|
||||
Count mtDialog_CallStackCaption=1
|
||||
mtDialog_CallStackCaption0="Call Stack"
|
||||
Count mtDialog_CallStackHeader=1
|
||||
mtDialog_CallStackHeader0="Call Stack Information"
|
||||
Count mtDialog_ModulesCaption=1
|
||||
mtDialog_ModulesCaption0="Modules"
|
||||
Count mtDialog_ModulesHeader=1
|
||||
mtDialog_ModulesHeader0="Modules Information"
|
||||
Count mtDialog_ProcessesCaption=1
|
||||
mtDialog_ProcessesCaption0="Processes"
|
||||
Count mtDialog_ProcessesHeader=1
|
||||
mtDialog_ProcessesHeader0="Processes Information"
|
||||
Count mtDialog_AsmCaption=1
|
||||
mtDialog_AsmCaption0="Assembler"
|
||||
Count mtDialog_AsmHeader=1
|
||||
mtDialog_AsmHeader0="Assembler Information"
|
||||
Count mtDialog_CPUCaption=1
|
||||
mtDialog_CPUCaption0="CPU"
|
||||
Count mtDialog_CPUHeader=1
|
||||
mtDialog_CPUHeader0="CPU Information"
|
||||
Count mtDialog_OKButtonCaption=1
|
||||
mtDialog_OKButtonCaption0="%26OK"
|
||||
Count mtDialog_TerminateButtonCaption=1
|
||||
mtDialog_TerminateButtonCaption0="%26Terminate"
|
||||
Count mtDialog_RestartButtonCaption=1
|
||||
mtDialog_RestartButtonCaption0="%26Restart"
|
||||
Count mtDialog_DetailsButtonCaption=1
|
||||
mtDialog_DetailsButtonCaption0="%26Details"
|
||||
Count mtDialog_CustomButtonCaption=1
|
||||
mtDialog_CustomButtonCaption0="%26Help"
|
||||
Count mtDialog_SendMessage=1
|
||||
mtDialog_SendMessage0="%26Send this error via Internet"
|
||||
Count mtDialog_ScreenshotMessage=1
|
||||
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
|
||||
Count mtDialog_CopyMessage=1
|
||||
mtDialog_CopyMessage0="%26Copy to Clipboard"
|
||||
Count mtDialog_SupportMessage=1
|
||||
mtDialog_SupportMessage0="Go to the Support Page"
|
||||
Count mtMSDialog_ErrorMsgCaption=1
|
||||
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
|
||||
Count mtMSDialog_RestartCaption=1
|
||||
mtMSDialog_RestartCaption0="Restart application."
|
||||
Count mtMSDialog_TerminateCaption=1
|
||||
mtMSDialog_TerminateCaption0="Terminate application."
|
||||
Count mtMSDialog_PleaseCaption=1
|
||||
mtMSDialog_PleaseCaption0="Please tell us about this problem."
|
||||
Count mtMSDialog_DescriptionCaption=1
|
||||
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
|
||||
Count mtMSDialog_SeeDetailsCaption=1
|
||||
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
|
||||
Count mtMSDialog_SeeClickCaption=1
|
||||
mtMSDialog_SeeClickCaption0="click here."
|
||||
Count mtMSDialog_HowToReproduceCaption=1
|
||||
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
|
||||
Count mtMSDialog_EmailCaption=1
|
||||
mtMSDialog_EmailCaption0="Email address (optional):"
|
||||
Count mtMSDialog_SendButtonCaption=1
|
||||
mtMSDialog_SendButtonCaption0="%26Send Error Report"
|
||||
Count mtMSDialog_NoSendButtonCaption=1
|
||||
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
|
||||
Count mtLog_AppHeader=1
|
||||
mtLog_AppHeader0="Application"
|
||||
Count mtLog_AppStartDate=1
|
||||
mtLog_AppStartDate0="Start Date"
|
||||
Count mtLog_AppName=1
|
||||
mtLog_AppName0="Name/Description"
|
||||
Count mtLog_AppVersionNumber=1
|
||||
mtLog_AppVersionNumber0="Version Number"
|
||||
Count mtLog_AppParameters=1
|
||||
mtLog_AppParameters0="Parameters"
|
||||
Count mtLog_AppCompilationDate=1
|
||||
mtLog_AppCompilationDate0="Compilation Date"
|
||||
Count mtLog_AppUpTime=1
|
||||
mtLog_AppUpTime0="Up Time"
|
||||
Count mtLog_ExcHeader=1
|
||||
mtLog_ExcHeader0="Exception"
|
||||
Count mtLog_ExcDate=1
|
||||
mtLog_ExcDate0="Date"
|
||||
Count mtLog_ExcAddress=1
|
||||
mtLog_ExcAddress0="Address"
|
||||
Count mtLog_ExcModuleName=1
|
||||
mtLog_ExcModuleName0="Module Name"
|
||||
Count mtLog_ExcModuleVersion=1
|
||||
mtLog_ExcModuleVersion0="Module Version"
|
||||
Count mtLog_ExcType=1
|
||||
mtLog_ExcType0="Type"
|
||||
Count mtLog_ExcMessage=1
|
||||
mtLog_ExcMessage0="Message"
|
||||
Count mtLog_ExcID=1
|
||||
mtLog_ExcID0="ID"
|
||||
Count mtLog_ExcCount=1
|
||||
mtLog_ExcCount0="Count"
|
||||
Count mtLog_ExcStatus=1
|
||||
mtLog_ExcStatus0="Status"
|
||||
Count mtLog_ExcNote=1
|
||||
mtLog_ExcNote0="Note"
|
||||
Count mtLog_UserHeader=1
|
||||
mtLog_UserHeader0="User"
|
||||
Count mtLog_UserID=1
|
||||
mtLog_UserID0="ID"
|
||||
Count mtLog_UserName=1
|
||||
mtLog_UserName0="Name"
|
||||
Count mtLog_UserEmail=1
|
||||
mtLog_UserEmail0="Email"
|
||||
Count mtLog_UserCompany=1
|
||||
mtLog_UserCompany0="Company"
|
||||
Count mtLog_UserPrivileges=1
|
||||
mtLog_UserPrivileges0="Privileges"
|
||||
Count mtLog_ActCtrlsHeader=1
|
||||
mtLog_ActCtrlsHeader0="Active Controls"
|
||||
Count mtLog_ActCtrlsFormClass=1
|
||||
mtLog_ActCtrlsFormClass0="Form Class"
|
||||
Count mtLog_ActCtrlsFormText=1
|
||||
mtLog_ActCtrlsFormText0="Form Text"
|
||||
Count mtLog_ActCtrlsControlClass=1
|
||||
mtLog_ActCtrlsControlClass0="Control Class"
|
||||
Count mtLog_ActCtrlsControlText=1
|
||||
mtLog_ActCtrlsControlText0="Control Text"
|
||||
Count mtLog_CmpHeader=1
|
||||
mtLog_CmpHeader0="Computer"
|
||||
Count mtLog_CmpName=1
|
||||
mtLog_CmpName0="Name"
|
||||
Count mtLog_CmpTotalMemory=1
|
||||
mtLog_CmpTotalMemory0="Total Memory"
|
||||
Count mtLog_CmpFreeMemory=1
|
||||
mtLog_CmpFreeMemory0="Free Memory"
|
||||
Count mtLog_CmpTotalDisk=1
|
||||
mtLog_CmpTotalDisk0="Total Disk"
|
||||
Count mtLog_CmpFreeDisk=1
|
||||
mtLog_CmpFreeDisk0="Free Disk"
|
||||
Count mtLog_CmpSystemUpTime=1
|
||||
mtLog_CmpSystemUpTime0="System Up Time"
|
||||
Count mtLog_CmpProcessor=1
|
||||
mtLog_CmpProcessor0="Processor"
|
||||
Count mtLog_CmpDisplayMode=1
|
||||
mtLog_CmpDisplayMode0="Display Mode"
|
||||
Count mtLog_CmpDisplayDPI=1
|
||||
mtLog_CmpDisplayDPI0="Display DPI"
|
||||
Count mtLog_CmpVideoCard=1
|
||||
mtLog_CmpVideoCard0="Video Card"
|
||||
Count mtLog_CmpPrinter=1
|
||||
mtLog_CmpPrinter0="Printer"
|
||||
Count mtLog_OSHeader=1
|
||||
mtLog_OSHeader0="Operating System"
|
||||
Count mtLog_OSType=1
|
||||
mtLog_OSType0="Type"
|
||||
Count mtLog_OSBuildN=1
|
||||
mtLog_OSBuildN0="Build #"
|
||||
Count mtLog_OSUpdate=1
|
||||
mtLog_OSUpdate0="Update"
|
||||
Count mtLog_OSLanguage=1
|
||||
mtLog_OSLanguage0="Language"
|
||||
Count mtLog_OSCharset=1
|
||||
mtLog_OSCharset0="Charset"
|
||||
Count mtLog_NetHeader=1
|
||||
mtLog_NetHeader0="Network"
|
||||
Count mtLog_NetIP=1
|
||||
mtLog_NetIP0="IP Address"
|
||||
Count mtLog_NetSubmask=1
|
||||
mtLog_NetSubmask0="Submask"
|
||||
Count mtLog_NetGateway=1
|
||||
mtLog_NetGateway0="Gateway"
|
||||
Count mtLog_NetDNS1=1
|
||||
mtLog_NetDNS10="DNS 1"
|
||||
Count mtLog_NetDNS2=1
|
||||
mtLog_NetDNS20="DNS 2"
|
||||
Count mtLog_NetDHCP=1
|
||||
mtLog_NetDHCP0="DHCP"
|
||||
Count mtLog_CustInfoHeader=1
|
||||
mtLog_CustInfoHeader0="Custom Information"
|
||||
Count mtCallStack_Address=1
|
||||
mtCallStack_Address0="Address"
|
||||
Count mtCallStack_Name=1
|
||||
mtCallStack_Name0="Module"
|
||||
Count mtCallStack_Unit=1
|
||||
mtCallStack_Unit0="Unit"
|
||||
Count mtCallStack_Class=1
|
||||
mtCallStack_Class0="Class"
|
||||
Count mtCallStack_Procedure=1
|
||||
mtCallStack_Procedure0="Procedure/Method"
|
||||
Count mtCallStack_Line=1
|
||||
mtCallStack_Line0="Line"
|
||||
Count mtCallStack_MainThread=1
|
||||
mtCallStack_MainThread0="Main"
|
||||
Count mtCallStack_ExceptionThread=1
|
||||
mtCallStack_ExceptionThread0="Exception Thread"
|
||||
Count mtCallStack_RunningThread=1
|
||||
mtCallStack_RunningThread0="Running Thread"
|
||||
Count mtCallStack_CallingThread=1
|
||||
mtCallStack_CallingThread0="Calling Thread"
|
||||
Count mtCallStack_ThreadID=1
|
||||
mtCallStack_ThreadID0="ID"
|
||||
Count mtCallStack_ThreadPriority=1
|
||||
mtCallStack_ThreadPriority0="Priority"
|
||||
Count mtCallStack_ThreadClass=1
|
||||
mtCallStack_ThreadClass0="Class"
|
||||
Count mtCallStack_LeakCaption=1
|
||||
mtCallStack_LeakCaption0="Memory Leak"
|
||||
Count mtCallStack_LeakData=1
|
||||
mtCallStack_LeakData0="Data"
|
||||
Count mtCallStack_LeakType=1
|
||||
mtCallStack_LeakType0="Type"
|
||||
Count mtCallStack_LeakSize=1
|
||||
mtCallStack_LeakSize0="Total size"
|
||||
Count mtCallStack_LeakCount=1
|
||||
mtCallStack_LeakCount0="Count"
|
||||
Count mtSendDialog_Caption=1
|
||||
mtSendDialog_Caption0="Send."
|
||||
Count mtSendDialog_Message=1
|
||||
mtSendDialog_Message0="Message"
|
||||
Count mtSendDialog_Resolving=1
|
||||
mtSendDialog_Resolving0="Resolving DNS..."
|
||||
Count mtSendDialog_Login=1
|
||||
mtSendDialog_Login0="Login..."
|
||||
Count mtSendDialog_Connecting=1
|
||||
mtSendDialog_Connecting0="Connecting with server..."
|
||||
Count mtSendDialog_Connected=1
|
||||
mtSendDialog_Connected0="Connected with server."
|
||||
Count mtSendDialog_Sending=1
|
||||
mtSendDialog_Sending0="Sending message..."
|
||||
Count mtSendDialog_Sent=1
|
||||
mtSendDialog_Sent0="Message sent."
|
||||
Count mtSendDialog_SelectProject=1
|
||||
mtSendDialog_SelectProject0="Select project..."
|
||||
Count mtSendDialog_Searching=1
|
||||
mtSendDialog_Searching0="Searching..."
|
||||
Count mtSendDialog_Modifying=1
|
||||
mtSendDialog_Modifying0="Modifying..."
|
||||
Count mtSendDialog_Disconnecting=1
|
||||
mtSendDialog_Disconnecting0="Disconnecting..."
|
||||
Count mtSendDialog_Disconnected=1
|
||||
mtSendDialog_Disconnected0="Disconnected."
|
||||
Count mtReproduceDialog_Caption=1
|
||||
mtReproduceDialog_Caption0="Request"
|
||||
Count mtReproduceDialog_Request=1
|
||||
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
|
||||
Count mtReproduceDialog_OKButtonCaption=1
|
||||
mtReproduceDialog_OKButtonCaption0="%26OK"
|
||||
Count mtModules_Handle=1
|
||||
mtModules_Handle0="Handle"
|
||||
Count mtModules_Name=1
|
||||
mtModules_Name0="Name"
|
||||
Count mtModules_Description=1
|
||||
mtModules_Description0="Description"
|
||||
Count mtModules_Version=1
|
||||
mtModules_Version0="Version"
|
||||
Count mtModules_Size=1
|
||||
mtModules_Size0="Size"
|
||||
Count mtModules_LastModified=1
|
||||
mtModules_LastModified0="Modified"
|
||||
Count mtModules_Path=1
|
||||
mtModules_Path0="Path"
|
||||
Count mtProcesses_ID=1
|
||||
mtProcesses_ID0="ID"
|
||||
Count mtProcesses_Name=1
|
||||
mtProcesses_Name0="Name"
|
||||
Count mtProcesses_Description=1
|
||||
mtProcesses_Description0="Description"
|
||||
Count mtProcesses_Version=1
|
||||
mtProcesses_Version0="Version"
|
||||
Count mtProcesses_Memory=1
|
||||
mtProcesses_Memory0="Memory"
|
||||
Count mtProcesses_Priority=1
|
||||
mtProcesses_Priority0="Priority"
|
||||
Count mtProcesses_Threads=1
|
||||
mtProcesses_Threads0="Threads"
|
||||
Count mtProcesses_Path=1
|
||||
mtProcesses_Path0="Path"
|
||||
Count mtCPU_Registers=1
|
||||
mtCPU_Registers0="Registers"
|
||||
Count mtCPU_Stack=1
|
||||
mtCPU_Stack0="Stack"
|
||||
Count mtCPU_MemoryDump=1
|
||||
mtCPU_MemoryDump0="Memory Dump"
|
||||
Count mtSend_SuccessMsg=1
|
||||
mtSend_SuccessMsg0="The message was sent successfully."
|
||||
Count mtSend_FailureMsg=1
|
||||
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
||||
Count mtSend_BugClosedMsg=2
|
||||
mtSend_BugClosedMsg0="These BUG is just closed."
|
||||
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
|
||||
Count mtSend_UnknownErrorMsg=1
|
||||
mtSend_UnknownErrorMsg0="Unknown error."
|
||||
Count mtSend_InvalidLoginMsg=1
|
||||
mtSend_InvalidLoginMsg0="Invalid login request."
|
||||
Count mtSend_InvalidSearchMsg=1
|
||||
mtSend_InvalidSearchMsg0="Invalid search request."
|
||||
Count mtSend_InvalidSelectionMsg=1
|
||||
mtSend_InvalidSelectionMsg0="Invalid selection request."
|
||||
Count mtSend_InvalidInsertMsg=1
|
||||
mtSend_InvalidInsertMsg0="Invalid insert request."
|
||||
Count mtSend_InvalidModifyMsg=1
|
||||
mtSend_InvalidModifyMsg0="Invalid modify request."
|
||||
Count mtFileCrackedMsg=2
|
||||
mtFileCrackedMsg0="This file is cracked."
|
||||
mtFileCrackedMsg1="The application will be closed."
|
||||
Count mtException_LeakMultiFree=1
|
||||
mtException_LeakMultiFree0="Multi Free memory leak."
|
||||
Count mtException_LeakMemoryOverrun=1
|
||||
mtException_LeakMemoryOverrun0="Memory Overrun leak."
|
||||
Count mtException_AntiFreeze=1
|
||||
mtException_AntiFreeze0="The application seems to be frozen."
|
||||
Count mtInvalidEmailMsg=1
|
||||
mtInvalidEmailMsg0="Invalid email."
|
||||
TextsCollection=English
|
||||
EurekaLog Last Line -->
|
||||
@ -0,0 +1,22 @@
|
||||
1 VERSIONINFO
|
||||
FILEVERSION 1,0,0,0
|
||||
PRODUCTVERSION 1,0,0,0
|
||||
FILEFLAGSMASK 0x3FL
|
||||
FILEFLAGS 0x00L
|
||||
FILEOS 0x40004L
|
||||
FILETYPE 0x1L
|
||||
FILESUBTYPE 0x0L
|
||||
BEGIN
|
||||
BLOCK "StringFileInfo"
|
||||
BEGIN
|
||||
BLOCK "0C0A04E4"
|
||||
BEGIN
|
||||
VALUE "FileVersion", "1.0.0.0\0"
|
||||
VALUE "ProductVersion", "1.0.0.0\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
BEGIN
|
||||
VALUE "Translation", 0x0C0A, 1252
|
||||
END
|
||||
END
|
||||
BIN
Source/Modulos/Gestor de informes/Model/GestorInformes_model.res
Normal file
BIN
Source/Modulos/Gestor de informes/Model/GestorInformes_model.res
Normal file
Binary file not shown.
@ -0,0 +1,37 @@
|
||||
package GestorInformes_plugin;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
Base,
|
||||
GUIBase,
|
||||
ApplicationBase,
|
||||
GestorInformes_controller,
|
||||
GestorInformes_view;
|
||||
|
||||
contains
|
||||
uPluginGestorInformes in 'uPluginGestorInformes.pas';
|
||||
|
||||
end.
|
||||
@ -0,0 +1,531 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{ba7a4052-3c4c-401c-bae5-3701abd24fc1}</ProjectGuid>
|
||||
<MainSource>GestorInformes_plugin.dpk</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\GestorInformes_plugin.bpl</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><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"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">GestorInformes_plugin.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="GestorInformes_plugin.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\Base.dcp" />
|
||||
<DCCReference Include="..\GestorInformes_controller.dcp" />
|
||||
<DCCReference Include="..\GestorInformes_view.dcp" />
|
||||
<DCCReference Include="..\GUIBase.dcp" />
|
||||
<DCCReference Include="uPluginGestorInformes.pas" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=6011
|
||||
Activate=0
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
Foreground Tab=0
|
||||
Freeze Activate=0
|
||||
Freeze Timeout=60
|
||||
SMTP From=eurekalog@email.com
|
||||
SMTP Host=
|
||||
SMTP Port=25
|
||||
SMTP UserID=
|
||||
SMTP Password=
|
||||
Append to Log=0
|
||||
TerminateBtn Operation=2
|
||||
Errors Number=32
|
||||
Errors Terminate=3
|
||||
Email Address=
|
||||
Email Object=
|
||||
Email Send Options=0
|
||||
Output Path=
|
||||
Encrypt Password=
|
||||
AutoCloseDialogSecs=0
|
||||
WebSendMode=0
|
||||
SupportULR=
|
||||
HTMLLayout Count=15
|
||||
HTMLLine0="%3Chtml%3E"
|
||||
HTMLLine1=" %3Chead%3E"
|
||||
HTMLLine2=" %3C/head%3E"
|
||||
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
|
||||
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
|
||||
HTMLLine5=" %3Ctr%3E"
|
||||
HTMLLine6=" %3Ctd nowrap%3E"
|
||||
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
|
||||
HTMLLine8=" %3C%%HTML_TAG%%%3E"
|
||||
HTMLLine9=" %3C/font%3E"
|
||||
HTMLLine10=" %3C/td%3E"
|
||||
HTMLLine11=" %3C/tr%3E"
|
||||
HTMLLine12=" %3C/table%3E"
|
||||
HTMLLine13=" %3C/body%3E"
|
||||
HTMLLine14="%3C/html%3E"
|
||||
AutoCrashOperation=2
|
||||
AutoCrashNumber=10
|
||||
AutoCrashMinutes=1
|
||||
WebURL=
|
||||
WebUserID=
|
||||
WebPassword=
|
||||
WebPort=0
|
||||
AttachedFiles=
|
||||
ProxyURL=
|
||||
ProxyUser=
|
||||
ProxyPassword=
|
||||
ProxyPort=8080
|
||||
TrakerUser=
|
||||
TrakerPassword=
|
||||
TrakerAssignTo=
|
||||
TrakerProject=
|
||||
TrakerCategory=
|
||||
TrakerTrialID=
|
||||
ZipPassword=
|
||||
PreBuildEvent=
|
||||
PostSuccessfulBuildEvent=
|
||||
PostFailureBuildEvent=
|
||||
ExceptionDialogType=2
|
||||
Count=0
|
||||
EMail Message Line Count=0
|
||||
loNoDuplicateErrors=0
|
||||
loAppendReproduceText=0
|
||||
loDeleteLogAtVersionChange=0
|
||||
loAddComputerNameInLogFileName=0
|
||||
loSaveModulesAndProcessesSections=1
|
||||
loSaveAssemblerAndCPUSections=1
|
||||
soAppStartDate=1
|
||||
soAppName=1
|
||||
soAppVersionNumber=1
|
||||
soAppParameters=1
|
||||
soAppCompilationDate=1
|
||||
soAppUpTime=1
|
||||
soExcDate=1
|
||||
soExcAddress=1
|
||||
soExcModuleName=1
|
||||
soExcModuleVersion=1
|
||||
soExcType=1
|
||||
soExcMessage=1
|
||||
soExcID=1
|
||||
soExcCount=1
|
||||
soExcStatus=1
|
||||
soExcNote=1
|
||||
soUserID=1
|
||||
soUserName=1
|
||||
soUserEmail=1
|
||||
soUserPrivileges=1
|
||||
soUserCompany=1
|
||||
soActCtlsFormClass=1
|
||||
soActCtlsFormText=1
|
||||
soActCtlsControlClass=1
|
||||
soActCtlsControlText=1
|
||||
soCmpName=1
|
||||
soCmpTotalMemory=1
|
||||
soCmpFreeMemory=1
|
||||
soCmpTotalDisk=1
|
||||
soCmpFreeDisk=1
|
||||
soCmpSysUpTime=1
|
||||
soCmpProcessor=1
|
||||
soCmpDisplayMode=1
|
||||
soCmpDisplayDPI=1
|
||||
soCmpVideoCard=1
|
||||
soCmpPrinter=1
|
||||
soOSType=1
|
||||
soOSBuildN=1
|
||||
soOSUpdate=1
|
||||
soOSLanguage=1
|
||||
soOSCharset=1
|
||||
soNetIP=1
|
||||
soNetSubmask=1
|
||||
soNetGateway=1
|
||||
soNetDNS1=1
|
||||
soNetDNS2=1
|
||||
soNetDHCP=1
|
||||
soCustomData=1
|
||||
sndShowSendDialog=1
|
||||
sndShowSuccessFailureMsg=0
|
||||
sndSendEntireLog=0
|
||||
sndSendXMLLogCopy=0
|
||||
sndSendScreenshot=1
|
||||
sndUseOnlyActiveWindow=0
|
||||
sndSendLastHTMLPage=1
|
||||
sndSendInSeparatedThread=0
|
||||
sndAddDateInFileName=0
|
||||
sndAddComputerNameInFileName=0
|
||||
edoSendErrorReportChecked=1
|
||||
edoAttachScreenshotChecked=1
|
||||
edoShowCopyToClipOption=1
|
||||
edoShowDetailsButton=1
|
||||
edoShowInDetailedMode=0
|
||||
edoShowInTopMostMode=0
|
||||
edoUseEurekaLogLookAndFeel=0
|
||||
edoShowSendErrorReportOption=1
|
||||
edoShowAttachScreenshotOption=1
|
||||
edoShowCustomButton=0
|
||||
csoShowDLLs=1
|
||||
csoShowBPLs=1
|
||||
csoShowBorlandThreads=1
|
||||
csoShowWindowsThreads=1
|
||||
csoDoNotStoreProcNames=0
|
||||
boPauseBorlandThreads=0
|
||||
boDoNotPauseMainThread=0
|
||||
boPauseWindowsThreads=0
|
||||
boUseMainModuleOptions=1
|
||||
boCopyLogInCaseOfError=1
|
||||
boSaveCompressedCopyInCaseOfError=0
|
||||
boHandleSafeCallExceptions=1
|
||||
boCallRTLExceptionEvent=0
|
||||
boCatchHandledExceptions=0
|
||||
loCatchLeaks=0
|
||||
loGroupsSonLeaks=1
|
||||
loHideBorlandLeaks=1
|
||||
loFreeAllLeaks=1
|
||||
loCatchLeaksExceptions=1
|
||||
cfoReduceFileSize=1
|
||||
cfoCheckFileCorruption=0
|
||||
Count mtInformationMsgCaption=1
|
||||
mtInformationMsgCaption0="Information."
|
||||
Count mtQuestionMsgCaption=1
|
||||
mtQuestionMsgCaption0="Question."
|
||||
Count mtErrorMsgCaption=1
|
||||
mtErrorMsgCaption0="Error."
|
||||
Count mtDialog_Caption=1
|
||||
mtDialog_Caption0="Error occurred"
|
||||
Count mtDialog_ErrorMsgCaption=2
|
||||
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
|
||||
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
|
||||
Count mtDialog_GeneralCaption=1
|
||||
mtDialog_GeneralCaption0="General"
|
||||
Count mtDialog_GeneralHeader=1
|
||||
mtDialog_GeneralHeader0="General Information"
|
||||
Count mtDialog_CallStackCaption=1
|
||||
mtDialog_CallStackCaption0="Call Stack"
|
||||
Count mtDialog_CallStackHeader=1
|
||||
mtDialog_CallStackHeader0="Call Stack Information"
|
||||
Count mtDialog_ModulesCaption=1
|
||||
mtDialog_ModulesCaption0="Modules"
|
||||
Count mtDialog_ModulesHeader=1
|
||||
mtDialog_ModulesHeader0="Modules Information"
|
||||
Count mtDialog_ProcessesCaption=1
|
||||
mtDialog_ProcessesCaption0="Processes"
|
||||
Count mtDialog_ProcessesHeader=1
|
||||
mtDialog_ProcessesHeader0="Processes Information"
|
||||
Count mtDialog_AsmCaption=1
|
||||
mtDialog_AsmCaption0="Assembler"
|
||||
Count mtDialog_AsmHeader=1
|
||||
mtDialog_AsmHeader0="Assembler Information"
|
||||
Count mtDialog_CPUCaption=1
|
||||
mtDialog_CPUCaption0="CPU"
|
||||
Count mtDialog_CPUHeader=1
|
||||
mtDialog_CPUHeader0="CPU Information"
|
||||
Count mtDialog_OKButtonCaption=1
|
||||
mtDialog_OKButtonCaption0="%26OK"
|
||||
Count mtDialog_TerminateButtonCaption=1
|
||||
mtDialog_TerminateButtonCaption0="%26Terminate"
|
||||
Count mtDialog_RestartButtonCaption=1
|
||||
mtDialog_RestartButtonCaption0="%26Restart"
|
||||
Count mtDialog_DetailsButtonCaption=1
|
||||
mtDialog_DetailsButtonCaption0="%26Details"
|
||||
Count mtDialog_CustomButtonCaption=1
|
||||
mtDialog_CustomButtonCaption0="%26Help"
|
||||
Count mtDialog_SendMessage=1
|
||||
mtDialog_SendMessage0="%26Send this error via Internet"
|
||||
Count mtDialog_ScreenshotMessage=1
|
||||
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
|
||||
Count mtDialog_CopyMessage=1
|
||||
mtDialog_CopyMessage0="%26Copy to Clipboard"
|
||||
Count mtDialog_SupportMessage=1
|
||||
mtDialog_SupportMessage0="Go to the Support Page"
|
||||
Count mtMSDialog_ErrorMsgCaption=1
|
||||
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
|
||||
Count mtMSDialog_RestartCaption=1
|
||||
mtMSDialog_RestartCaption0="Restart application."
|
||||
Count mtMSDialog_TerminateCaption=1
|
||||
mtMSDialog_TerminateCaption0="Terminate application."
|
||||
Count mtMSDialog_PleaseCaption=1
|
||||
mtMSDialog_PleaseCaption0="Please tell us about this problem."
|
||||
Count mtMSDialog_DescriptionCaption=1
|
||||
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
|
||||
Count mtMSDialog_SeeDetailsCaption=1
|
||||
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
|
||||
Count mtMSDialog_SeeClickCaption=1
|
||||
mtMSDialog_SeeClickCaption0="click here."
|
||||
Count mtMSDialog_HowToReproduceCaption=1
|
||||
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
|
||||
Count mtMSDialog_EmailCaption=1
|
||||
mtMSDialog_EmailCaption0="Email address (optional):"
|
||||
Count mtMSDialog_SendButtonCaption=1
|
||||
mtMSDialog_SendButtonCaption0="%26Send Error Report"
|
||||
Count mtMSDialog_NoSendButtonCaption=1
|
||||
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
|
||||
Count mtLog_AppHeader=1
|
||||
mtLog_AppHeader0="Application"
|
||||
Count mtLog_AppStartDate=1
|
||||
mtLog_AppStartDate0="Start Date"
|
||||
Count mtLog_AppName=1
|
||||
mtLog_AppName0="Name/Description"
|
||||
Count mtLog_AppVersionNumber=1
|
||||
mtLog_AppVersionNumber0="Version Number"
|
||||
Count mtLog_AppParameters=1
|
||||
mtLog_AppParameters0="Parameters"
|
||||
Count mtLog_AppCompilationDate=1
|
||||
mtLog_AppCompilationDate0="Compilation Date"
|
||||
Count mtLog_AppUpTime=1
|
||||
mtLog_AppUpTime0="Up Time"
|
||||
Count mtLog_ExcHeader=1
|
||||
mtLog_ExcHeader0="Exception"
|
||||
Count mtLog_ExcDate=1
|
||||
mtLog_ExcDate0="Date"
|
||||
Count mtLog_ExcAddress=1
|
||||
mtLog_ExcAddress0="Address"
|
||||
Count mtLog_ExcModuleName=1
|
||||
mtLog_ExcModuleName0="Module Name"
|
||||
Count mtLog_ExcModuleVersion=1
|
||||
mtLog_ExcModuleVersion0="Module Version"
|
||||
Count mtLog_ExcType=1
|
||||
mtLog_ExcType0="Type"
|
||||
Count mtLog_ExcMessage=1
|
||||
mtLog_ExcMessage0="Message"
|
||||
Count mtLog_ExcID=1
|
||||
mtLog_ExcID0="ID"
|
||||
Count mtLog_ExcCount=1
|
||||
mtLog_ExcCount0="Count"
|
||||
Count mtLog_ExcStatus=1
|
||||
mtLog_ExcStatus0="Status"
|
||||
Count mtLog_ExcNote=1
|
||||
mtLog_ExcNote0="Note"
|
||||
Count mtLog_UserHeader=1
|
||||
mtLog_UserHeader0="User"
|
||||
Count mtLog_UserID=1
|
||||
mtLog_UserID0="ID"
|
||||
Count mtLog_UserName=1
|
||||
mtLog_UserName0="Name"
|
||||
Count mtLog_UserEmail=1
|
||||
mtLog_UserEmail0="Email"
|
||||
Count mtLog_UserCompany=1
|
||||
mtLog_UserCompany0="Company"
|
||||
Count mtLog_UserPrivileges=1
|
||||
mtLog_UserPrivileges0="Privileges"
|
||||
Count mtLog_ActCtrlsHeader=1
|
||||
mtLog_ActCtrlsHeader0="Active Controls"
|
||||
Count mtLog_ActCtrlsFormClass=1
|
||||
mtLog_ActCtrlsFormClass0="Form Class"
|
||||
Count mtLog_ActCtrlsFormText=1
|
||||
mtLog_ActCtrlsFormText0="Form Text"
|
||||
Count mtLog_ActCtrlsControlClass=1
|
||||
mtLog_ActCtrlsControlClass0="Control Class"
|
||||
Count mtLog_ActCtrlsControlText=1
|
||||
mtLog_ActCtrlsControlText0="Control Text"
|
||||
Count mtLog_CmpHeader=1
|
||||
mtLog_CmpHeader0="Computer"
|
||||
Count mtLog_CmpName=1
|
||||
mtLog_CmpName0="Name"
|
||||
Count mtLog_CmpTotalMemory=1
|
||||
mtLog_CmpTotalMemory0="Total Memory"
|
||||
Count mtLog_CmpFreeMemory=1
|
||||
mtLog_CmpFreeMemory0="Free Memory"
|
||||
Count mtLog_CmpTotalDisk=1
|
||||
mtLog_CmpTotalDisk0="Total Disk"
|
||||
Count mtLog_CmpFreeDisk=1
|
||||
mtLog_CmpFreeDisk0="Free Disk"
|
||||
Count mtLog_CmpSystemUpTime=1
|
||||
mtLog_CmpSystemUpTime0="System Up Time"
|
||||
Count mtLog_CmpProcessor=1
|
||||
mtLog_CmpProcessor0="Processor"
|
||||
Count mtLog_CmpDisplayMode=1
|
||||
mtLog_CmpDisplayMode0="Display Mode"
|
||||
Count mtLog_CmpDisplayDPI=1
|
||||
mtLog_CmpDisplayDPI0="Display DPI"
|
||||
Count mtLog_CmpVideoCard=1
|
||||
mtLog_CmpVideoCard0="Video Card"
|
||||
Count mtLog_CmpPrinter=1
|
||||
mtLog_CmpPrinter0="Printer"
|
||||
Count mtLog_OSHeader=1
|
||||
mtLog_OSHeader0="Operating System"
|
||||
Count mtLog_OSType=1
|
||||
mtLog_OSType0="Type"
|
||||
Count mtLog_OSBuildN=1
|
||||
mtLog_OSBuildN0="Build #"
|
||||
Count mtLog_OSUpdate=1
|
||||
mtLog_OSUpdate0="Update"
|
||||
Count mtLog_OSLanguage=1
|
||||
mtLog_OSLanguage0="Language"
|
||||
Count mtLog_OSCharset=1
|
||||
mtLog_OSCharset0="Charset"
|
||||
Count mtLog_NetHeader=1
|
||||
mtLog_NetHeader0="Network"
|
||||
Count mtLog_NetIP=1
|
||||
mtLog_NetIP0="IP Address"
|
||||
Count mtLog_NetSubmask=1
|
||||
mtLog_NetSubmask0="Submask"
|
||||
Count mtLog_NetGateway=1
|
||||
mtLog_NetGateway0="Gateway"
|
||||
Count mtLog_NetDNS1=1
|
||||
mtLog_NetDNS10="DNS 1"
|
||||
Count mtLog_NetDNS2=1
|
||||
mtLog_NetDNS20="DNS 2"
|
||||
Count mtLog_NetDHCP=1
|
||||
mtLog_NetDHCP0="DHCP"
|
||||
Count mtLog_CustInfoHeader=1
|
||||
mtLog_CustInfoHeader0="Custom Information"
|
||||
Count mtCallStack_Address=1
|
||||
mtCallStack_Address0="Address"
|
||||
Count mtCallStack_Name=1
|
||||
mtCallStack_Name0="Module"
|
||||
Count mtCallStack_Unit=1
|
||||
mtCallStack_Unit0="Unit"
|
||||
Count mtCallStack_Class=1
|
||||
mtCallStack_Class0="Class"
|
||||
Count mtCallStack_Procedure=1
|
||||
mtCallStack_Procedure0="Procedure/Method"
|
||||
Count mtCallStack_Line=1
|
||||
mtCallStack_Line0="Line"
|
||||
Count mtCallStack_MainThread=1
|
||||
mtCallStack_MainThread0="Main"
|
||||
Count mtCallStack_ExceptionThread=1
|
||||
mtCallStack_ExceptionThread0="Exception Thread"
|
||||
Count mtCallStack_RunningThread=1
|
||||
mtCallStack_RunningThread0="Running Thread"
|
||||
Count mtCallStack_CallingThread=1
|
||||
mtCallStack_CallingThread0="Calling Thread"
|
||||
Count mtCallStack_ThreadID=1
|
||||
mtCallStack_ThreadID0="ID"
|
||||
Count mtCallStack_ThreadPriority=1
|
||||
mtCallStack_ThreadPriority0="Priority"
|
||||
Count mtCallStack_ThreadClass=1
|
||||
mtCallStack_ThreadClass0="Class"
|
||||
Count mtCallStack_LeakCaption=1
|
||||
mtCallStack_LeakCaption0="Memory Leak"
|
||||
Count mtCallStack_LeakData=1
|
||||
mtCallStack_LeakData0="Data"
|
||||
Count mtCallStack_LeakType=1
|
||||
mtCallStack_LeakType0="Type"
|
||||
Count mtCallStack_LeakSize=1
|
||||
mtCallStack_LeakSize0="Total size"
|
||||
Count mtCallStack_LeakCount=1
|
||||
mtCallStack_LeakCount0="Count"
|
||||
Count mtSendDialog_Caption=1
|
||||
mtSendDialog_Caption0="Send."
|
||||
Count mtSendDialog_Message=1
|
||||
mtSendDialog_Message0="Message"
|
||||
Count mtSendDialog_Resolving=1
|
||||
mtSendDialog_Resolving0="Resolving DNS..."
|
||||
Count mtSendDialog_Login=1
|
||||
mtSendDialog_Login0="Login..."
|
||||
Count mtSendDialog_Connecting=1
|
||||
mtSendDialog_Connecting0="Connecting with server..."
|
||||
Count mtSendDialog_Connected=1
|
||||
mtSendDialog_Connected0="Connected with server."
|
||||
Count mtSendDialog_Sending=1
|
||||
mtSendDialog_Sending0="Sending message..."
|
||||
Count mtSendDialog_Sent=1
|
||||
mtSendDialog_Sent0="Message sent."
|
||||
Count mtSendDialog_SelectProject=1
|
||||
mtSendDialog_SelectProject0="Select project..."
|
||||
Count mtSendDialog_Searching=1
|
||||
mtSendDialog_Searching0="Searching..."
|
||||
Count mtSendDialog_Modifying=1
|
||||
mtSendDialog_Modifying0="Modifying..."
|
||||
Count mtSendDialog_Disconnecting=1
|
||||
mtSendDialog_Disconnecting0="Disconnecting..."
|
||||
Count mtSendDialog_Disconnected=1
|
||||
mtSendDialog_Disconnected0="Disconnected."
|
||||
Count mtReproduceDialog_Caption=1
|
||||
mtReproduceDialog_Caption0="Request"
|
||||
Count mtReproduceDialog_Request=1
|
||||
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
|
||||
Count mtReproduceDialog_OKButtonCaption=1
|
||||
mtReproduceDialog_OKButtonCaption0="%26OK"
|
||||
Count mtModules_Handle=1
|
||||
mtModules_Handle0="Handle"
|
||||
Count mtModules_Name=1
|
||||
mtModules_Name0="Name"
|
||||
Count mtModules_Description=1
|
||||
mtModules_Description0="Description"
|
||||
Count mtModules_Version=1
|
||||
mtModules_Version0="Version"
|
||||
Count mtModules_Size=1
|
||||
mtModules_Size0="Size"
|
||||
Count mtModules_LastModified=1
|
||||
mtModules_LastModified0="Modified"
|
||||
Count mtModules_Path=1
|
||||
mtModules_Path0="Path"
|
||||
Count mtProcesses_ID=1
|
||||
mtProcesses_ID0="ID"
|
||||
Count mtProcesses_Name=1
|
||||
mtProcesses_Name0="Name"
|
||||
Count mtProcesses_Description=1
|
||||
mtProcesses_Description0="Description"
|
||||
Count mtProcesses_Version=1
|
||||
mtProcesses_Version0="Version"
|
||||
Count mtProcesses_Memory=1
|
||||
mtProcesses_Memory0="Memory"
|
||||
Count mtProcesses_Priority=1
|
||||
mtProcesses_Priority0="Priority"
|
||||
Count mtProcesses_Threads=1
|
||||
mtProcesses_Threads0="Threads"
|
||||
Count mtProcesses_Path=1
|
||||
mtProcesses_Path0="Path"
|
||||
Count mtCPU_Registers=1
|
||||
mtCPU_Registers0="Registers"
|
||||
Count mtCPU_Stack=1
|
||||
mtCPU_Stack0="Stack"
|
||||
Count mtCPU_MemoryDump=1
|
||||
mtCPU_MemoryDump0="Memory Dump"
|
||||
Count mtSend_SuccessMsg=1
|
||||
mtSend_SuccessMsg0="The message was sent successfully."
|
||||
Count mtSend_FailureMsg=1
|
||||
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
||||
Count mtSend_BugClosedMsg=2
|
||||
mtSend_BugClosedMsg0="These BUG is just closed."
|
||||
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
|
||||
Count mtSend_UnknownErrorMsg=1
|
||||
mtSend_UnknownErrorMsg0="Unknown error."
|
||||
Count mtSend_InvalidLoginMsg=1
|
||||
mtSend_InvalidLoginMsg0="Invalid login request."
|
||||
Count mtSend_InvalidSearchMsg=1
|
||||
mtSend_InvalidSearchMsg0="Invalid search request."
|
||||
Count mtSend_InvalidSelectionMsg=1
|
||||
mtSend_InvalidSelectionMsg0="Invalid selection request."
|
||||
Count mtSend_InvalidInsertMsg=1
|
||||
mtSend_InvalidInsertMsg0="Invalid insert request."
|
||||
Count mtSend_InvalidModifyMsg=1
|
||||
mtSend_InvalidModifyMsg0="Invalid modify request."
|
||||
Count mtFileCrackedMsg=2
|
||||
mtFileCrackedMsg0="This file is cracked."
|
||||
mtFileCrackedMsg1="The application will be closed."
|
||||
Count mtException_LeakMultiFree=1
|
||||
mtException_LeakMultiFree0="Multi Free memory leak."
|
||||
Count mtException_LeakMemoryOverrun=1
|
||||
mtException_LeakMemoryOverrun0="Memory Overrun leak."
|
||||
Count mtException_AntiFreeze=1
|
||||
mtException_AntiFreeze0="The application seems to be frozen."
|
||||
Count mtInvalidEmailMsg=1
|
||||
mtInvalidEmailMsg0="Invalid email."
|
||||
TextsCollection=English
|
||||
EurekaLog Last Line -->
|
||||
@ -0,0 +1,22 @@
|
||||
1 VERSIONINFO
|
||||
FILEVERSION 1,0,0,0
|
||||
PRODUCTVERSION 1,0,0,0
|
||||
FILEFLAGSMASK 0x3FL
|
||||
FILEFLAGS 0x00L
|
||||
FILEOS 0x40004L
|
||||
FILETYPE 0x1L
|
||||
FILESUBTYPE 0x0L
|
||||
BEGIN
|
||||
BLOCK "StringFileInfo"
|
||||
BEGIN
|
||||
BLOCK "0C0A04E4"
|
||||
BEGIN
|
||||
VALUE "FileVersion", "1.0.0.0\0"
|
||||
VALUE "ProductVersion", "1.0.0.0\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
BEGIN
|
||||
VALUE "Translation", 0x0C0A, 1252
|
||||
END
|
||||
END
|
||||
Binary file not shown.
@ -0,0 +1,229 @@
|
||||
object PluginGestorInformes: TPluginGestorInformes
|
||||
OldCreateOrder = True
|
||||
Description = 'Informes'
|
||||
ModuleMenu = MainMenu
|
||||
ModuleName = 'Gestor de informes'
|
||||
SmallImages = SmallImages
|
||||
LargeImages = LargeImages
|
||||
Author = 'Rodax Software'
|
||||
Version = '1.0.0'
|
||||
Height = 252
|
||||
Width = 401
|
||||
object LargeImages: TPngImageList
|
||||
Height = 24
|
||||
Width = 24
|
||||
PngImages = <
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
|
||||
F80000000970485973000017120000171201679FD252000001BE4944415478DA
|
||||
63FCFFFF3F032D0123B2054BB79CA49A6DD13EE68C582D004A906CD8DFBFFF80
|
||||
F83F980601EBC07C86733BA6E1B6C0B6683F8A0187FB1C711A8EAC765BB315C3
|
||||
C275FB19E62DDD84DF02525CEE507A9081455D89E1C08C1D0CEF0FC6312CD978
|
||||
90B005D87C802E06027B3BEC189C2B0E311CD97F0BCC7FB32F8661F996C394F9
|
||||
E0FF3F605803F11FA0EB41EC3FFFFE41E3E01F98BD7ADB51D27D400C00F9E2F1
|
||||
8E70860DBB4E106701CCDBA480075B431936EF3D459C05F8520E3600D2B3A850
|
||||
8F61EB81D3C45B802BA86096C3E4616AE7E7EB32EC387486763E989DA3CDB0E7
|
||||
E839DAF96046A626C3FE131768E783A969EA0C874E5FC26F4184A729387792E3
|
||||
838929AA0CC7CE5EC16F41A89B09387792E3839E042586D317AFE3B720C8D988
|
||||
C1ADFA08591674C62A309CBB7213BF057E8E060C5EB5C7F01A06B27CC1913F70
|
||||
7E820D0BD882B62839868BD76FE3B7C0DB4E0F5EAEC0CA1850D9032BF393275F
|
||||
C1881F18BF394296E1CACD3BF82DF0B0D6C16938884E9B760D6BF0116D818BA5
|
||||
164EC3411667CDB88133E888B2C0DE541D6CD8BFBF88621966E1BFFFFFB1061F
|
||||
322068818D912AB844A404E0B5A077CA428A0C8701980500619929EF09CFCE42
|
||||
0000000049454E44AE426082}
|
||||
Name = 'PngImage0'
|
||||
Background = clWindow
|
||||
end>
|
||||
Left = 232
|
||||
Top = 16
|
||||
Bitmap = {}
|
||||
end
|
||||
object ModuleActionList: TActionList
|
||||
Images = SmallImages
|
||||
Left = 40
|
||||
Top = 72
|
||||
object actInformeFacturasCliente: TAction
|
||||
Category = 'Facturas de cliente'
|
||||
Caption = 'Listado de facturas de cliente'
|
||||
ImageIndex = 0
|
||||
OnExecute = actInformeFacturasClienteExecute
|
||||
end
|
||||
object actInformeFacturasClientePendientes: TAction
|
||||
Category = 'Facturas de cliente'
|
||||
Caption = 'Listado de facturas de cliente pendientes'
|
||||
ImageIndex = 0
|
||||
OnExecute = actInformeFacturasClientePendientesExecute
|
||||
end
|
||||
object actInformeFacturasClienteIVA: TAction
|
||||
Category = 'Facturas de cliente'
|
||||
Caption = 'Listado de IVA de facturas de cliente'
|
||||
ImageIndex = 0
|
||||
OnExecute = actInformeFacturasClienteIVAExecute
|
||||
end
|
||||
object actInformeRecibosCliente: TAction
|
||||
Category = 'Recibos de cliente'
|
||||
Caption = 'Listado de recibos de cliente'
|
||||
ImageIndex = 0
|
||||
OnExecute = actInformeRecibosClienteExecute
|
||||
end
|
||||
object actInformeRecibosCliPendientes: TAction
|
||||
Category = 'Recibos de cliente'
|
||||
Caption = 'Listado de recibos de cliente pendientes'
|
||||
ImageIndex = 0
|
||||
OnExecute = actInformeRecibosCliPendientesExecute
|
||||
end
|
||||
object actInformeFacturasProveedor: TAction
|
||||
Category = 'Facturas de proveedor'
|
||||
Caption = 'Listado de facturas de proveedor'
|
||||
ImageIndex = 0
|
||||
OnExecute = actInformeFacturasProveedorExecute
|
||||
end
|
||||
object actInformeFacturasProveedorPendientes: TAction
|
||||
Category = 'Facturas de proveedor'
|
||||
Caption = 'Listado de facturas de proveedor pendientes'
|
||||
ImageIndex = 0
|
||||
OnExecute = actInformeFacturasProveedorPendientesExecute
|
||||
end
|
||||
object actInformeFacturasProveedorIVA: TAction
|
||||
Category = 'Facturas de proveedor'
|
||||
Caption = 'Listado de IVA de facturas de proveedor'
|
||||
ImageIndex = 0
|
||||
OnExecute = actInformeFacturasProveedorIVAExecute
|
||||
end
|
||||
object actInformeRecibosProveedor: TAction
|
||||
Category = 'Recibos de proveedor'
|
||||
Caption = 'Listado de recibos de proveedor'
|
||||
ImageIndex = 0
|
||||
OnExecute = actInformeRecibosProveedorExecute
|
||||
end
|
||||
object actInformeRecibosProvPendientes: TAction
|
||||
Category = 'Recibos de proveedor'
|
||||
Caption = 'Listado de recibos de proveedor pendientes'
|
||||
ImageIndex = 0
|
||||
OnExecute = actInformeRecibosProvPendientesExecute
|
||||
end
|
||||
end
|
||||
object MainMenu: TMainMenu
|
||||
Images = LargeImages
|
||||
Left = 40
|
||||
Top = 16
|
||||
object Informes1: TMenuItem
|
||||
Caption = 'Informes'
|
||||
object Listadodefacturasdecliente1: TMenuItem
|
||||
Tag = 10
|
||||
Action = actInformeFacturasCliente
|
||||
end
|
||||
object Listadodefacturasdeclientependientes1: TMenuItem
|
||||
Tag = 20
|
||||
Action = actInformeFacturasClientePendientes
|
||||
end
|
||||
object ListadodeIVAdefacturasdecliente1: TMenuItem
|
||||
Tag = 30
|
||||
Action = actInformeFacturasClienteIVA
|
||||
end
|
||||
object N2: TMenuItem
|
||||
Tag = 40
|
||||
Caption = '-'
|
||||
end
|
||||
object N1: TMenuItem
|
||||
Tag = 50
|
||||
Action = actInformeRecibosCliente
|
||||
end
|
||||
object Listadoderecibosdeclientependientes1: TMenuItem
|
||||
Tag = 60
|
||||
Action = actInformeRecibosCliPendientes
|
||||
end
|
||||
object N3: TMenuItem
|
||||
Tag = 70
|
||||
Caption = '-'
|
||||
end
|
||||
object Listadodefacturasdeproveedor1: TMenuItem
|
||||
Tag = 80
|
||||
Action = actInformeFacturasProveedor
|
||||
end
|
||||
object Listadodefacturasdeproveedorpendientes1: TMenuItem
|
||||
Tag = 90
|
||||
Action = actInformeFacturasProveedorPendientes
|
||||
end
|
||||
object ListadodeIVAdefacturasdeproveedor1: TMenuItem
|
||||
Tag = 100
|
||||
Action = actInformeFacturasProveedorIVA
|
||||
end
|
||||
object N4: TMenuItem
|
||||
Tag = 110
|
||||
Caption = '-'
|
||||
end
|
||||
object Listadoderecibosdeproveedor1: TMenuItem
|
||||
Tag = 120
|
||||
Action = actInformeRecibosProveedor
|
||||
end
|
||||
object Listadoderecibosdeproveedorpendientes1: TMenuItem
|
||||
Tag = 130
|
||||
Action = actInformeRecibosProvPendientes
|
||||
end
|
||||
end
|
||||
end
|
||||
object SmallImages: TPngImageList
|
||||
PngImages = <
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||
610000000970485973000017120000171201679FD252000001684944415478DA
|
||||
63FCFFFF3FC394C53BFE33900172623D1819610600394469FAF3F71FC3EF3F7F
|
||||
19ACFDF319CEED98866A806DD17E14C587FB1CC134B2F8AE761B86B9ABF632CC
|
||||
5BBA09D3007CE0D7EFBF609B4178C98683D80D40770136B0AED69461E59623B8
|
||||
0D80391B04FE01E5FEFCF907B7D9B7FE04C3AA4A6386B53B8EE13700E692BD9D
|
||||
760CCEE587E03607359F66585A6AC0B069CF49FC06A0DB0CC2207E58FB598685
|
||||
85BA0CDB0E9CC16DC0C15E0706FBE203605B37375A809D0D02209BA3BB2F30CC
|
||||
C9D566D87DE41C6E0340CE46B7F9E7AF3F6076D2C42B0C53D2D4180E9FBE8C69
|
||||
4046941B8363E94194105F5E6EC810D9791ECC9E99A5C9903EED3A437F920AC3
|
||||
89F357310D480E7386DB08A2435ACF302C2ED687B8049A067266DD62E88A5364
|
||||
387BF906A60171410E280107B3191DB446C9315CBA7E1BD380283F3B147F23DB
|
||||
FC1BC9E07FFFFE335CB97907D380502F6B86D5DB8E129D13310C0009900A4006
|
||||
00004B6D80F047EC10D30000000049454E44AE426082}
|
||||
Name = 'PngImage0'
|
||||
Background = clWindow
|
||||
end>
|
||||
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
|
||||
Left = 308
|
||||
Top = 16
|
||||
Bitmap = {}
|
||||
end
|
||||
object ExtraImages: TPngImageList
|
||||
Height = 28
|
||||
Width = 28
|
||||
PngImages = <
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF
|
||||
940000000970485973000017120000171201679FD252000002834944415478DA
|
||||
BDD6ED4F52511800F087ECDFA8B5D6CB2A8550FC525862BC28B56966F9B2D658
|
||||
5B7373D69ABDACF5A12FADD6875EB6968DD922299C1481888680C0E555485494
|
||||
20B2FADCFAD6565FE53EDD7B0B86099C6BD7F970D9E53CDC7B7EE73907388810
|
||||
11363344C5A023F0916BB0B9FC73559B7970C7DFD7DCFBDC8150B5A5AA24705A
|
||||
23159505C7A90CB62A0EFCF7E869A62F9A46C8E568C8D134C8DB2EC382EB6979
|
||||
D0EE4F635B5335340C506B3A0B3F549485FEBDDE7DF730182C7E308C38F881EB
|
||||
0D1654CBF680FFD70A04F42EF819D181D14691C131DF073C79ACA66C85A5F2C1
|
||||
078D70F44A0022D4E742EE47E81C98EC413268F3A6B05D29E65D19BB4EB91C72
|
||||
E7E2B56373E6C93019B47A97F0945252B212BEC156FADDDB031667940738CD80
|
||||
AA3F60F114AD37BE79BAC1EA9A21836F3D8BD8A13EC881953E959582BD77F4BA
|
||||
14ECD3713268712791F9A20A064D572530E19B25836FDC0B7846535B002BAD65
|
||||
7E40C5D7E4EF310E88C14925C8E06BD73C7636D709AEF0F9A56AF084E7798053
|
||||
0CD8221C1CEADF0FBE68920C9AA7E6B0AB4526784AF57DFB808A2D92C1516702
|
||||
BBB5F5822B1CECDD0BA1D9140FF05D023BB532EEA74A08F8F8C26E88CEA5C9E0
|
||||
C8E47B660DEB41712D28684A1F9DDF05F164861FD8A1AE03E58DB0A00AEFEB76
|
||||
4262294B064D13716C57D582E666541078EFEC0E486696C9E02B470C5B9BA470
|
||||
FC568C57E7ECA086232B85B64EBE9503EFF46C8754F60B3FF044A3A4F49643AF
|
||||
FEFBD03B985DB3CEF9F6EDAE6D905EFE4A065F8ECFA0F6888488B103EAD37F2A
|
||||
39EDEB028DF62836378889187BBE38547EFBE20D0E8F4550231713B172B9E2E0
|
||||
05BEB0855175A886DBCB362288A0C11AC227CFCC1B82E5A322B819F11BFB7D9A
|
||||
E74CD9D0710000000049454E44AE426082}
|
||||
Name = 'PngImage0'
|
||||
Background = clWindow
|
||||
end>
|
||||
Left = 232
|
||||
Top = 80
|
||||
Bitmap = {}
|
||||
end
|
||||
end
|
||||
@ -0,0 +1,157 @@
|
||||
unit uPluginGestorInformes;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList,
|
||||
ImgList, Controls, PngImageList, uGestorInformesController;
|
||||
|
||||
type
|
||||
IMCGestorInformes = interface(IInterface)
|
||||
['{D44E1560-BF8F-4DA2-BF64-E0A44C08AC01}']
|
||||
end;
|
||||
|
||||
TPluginGestorInformes = class(TModuleController, IMCGestorInformes)
|
||||
ExtraImages: TPngImageList;
|
||||
LargeImages: TPngImageList;
|
||||
MainMenu: TMainMenu;
|
||||
ModuleActionList: TActionList;
|
||||
SmallImages: TPngImageList;
|
||||
Informes1: TMenuItem;
|
||||
actInformeFacturasCliente: TAction;
|
||||
Listadodefacturasdecliente1: TMenuItem;
|
||||
actInformeFacturasClientePendientes: TAction;
|
||||
actInformeFacturasClienteIVA: TAction;
|
||||
Listadodefacturasdeclientependientes1: TMenuItem;
|
||||
ListadodeIVAdefacturasdecliente1: TMenuItem;
|
||||
actInformeRecibosCliente: TAction;
|
||||
N1: TMenuItem;
|
||||
N2: TMenuItem;
|
||||
actInformeRecibosCliPendientes: TAction;
|
||||
Listadoderecibosdeclientependientes1: TMenuItem;
|
||||
actInformeFacturasProveedor: TAction;
|
||||
actInformeFacturasProveedorPendientes: TAction;
|
||||
actInformeFacturasProveedorIVA: TAction;
|
||||
actInformeRecibosProveedor: TAction;
|
||||
actInformeRecibosProvPendientes: TAction;
|
||||
N3: TMenuItem;
|
||||
Listadodefacturasdeproveedor1: TMenuItem;
|
||||
Listadodefacturasdeproveedorpendientes1: TMenuItem;
|
||||
ListadodeIVAdefacturasdeproveedor1: TMenuItem;
|
||||
N4: TMenuItem;
|
||||
Listadoderecibosdeproveedor1: TMenuItem;
|
||||
Listadoderecibosdeproveedorpendientes1: TMenuItem;
|
||||
procedure actInformeFacturasClienteExecute(Sender: TObject);
|
||||
procedure actInformeFacturasClientePendientesExecute(Sender: TObject);
|
||||
procedure actInformeFacturasClienteIVAExecute(Sender: TObject);
|
||||
procedure actInformeRecibosClienteExecute(Sender: TObject);
|
||||
procedure actInformeRecibosCliPendientesExecute(Sender: TObject);
|
||||
procedure actInformeFacturasProveedorExecute(Sender: TObject);
|
||||
procedure actInformeFacturasProveedorPendientesExecute(Sender: TObject);
|
||||
procedure actInformeFacturasProveedorIVAExecute(Sender: TObject);
|
||||
procedure actInformeRecibosProveedorExecute(Sender: TObject);
|
||||
procedure actInformeRecibosProvPendientesExecute(Sender: TObject);
|
||||
private
|
||||
FController : IGestorInformesController;
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
Forms, Dialogs, SysUtils,
|
||||
uGestorInformesViewRegister;
|
||||
|
||||
function GetModule : TModuleController;
|
||||
begin
|
||||
Result := TPluginGestorInformes.Create(NIL);
|
||||
end;
|
||||
|
||||
exports
|
||||
GetModule name GET_MODULE_FUNC;
|
||||
|
||||
procedure TPluginGestorInformes.actInformeFacturasClienteExecute(
|
||||
Sender: TObject);
|
||||
begin
|
||||
FController.VerInformeListadoFacturasCli;
|
||||
end;
|
||||
|
||||
procedure TPluginGestorInformes.actInformeFacturasClienteIVAExecute(
|
||||
Sender: TObject);
|
||||
begin
|
||||
FController.VerInformeIVAClientes;
|
||||
end;
|
||||
|
||||
procedure TPluginGestorInformes.actInformeFacturasClientePendientesExecute(
|
||||
Sender: TObject);
|
||||
begin
|
||||
FController.VerInformeListadoFacturasCliPendientes;
|
||||
end;
|
||||
|
||||
procedure TPluginGestorInformes.actInformeFacturasProveedorExecute(
|
||||
Sender: TObject);
|
||||
begin
|
||||
FController.VerInformeListadoFacturasProv;
|
||||
end;
|
||||
|
||||
procedure TPluginGestorInformes.actInformeFacturasProveedorIVAExecute(
|
||||
Sender: TObject);
|
||||
begin
|
||||
FController.VerInformeIVAProveedores;
|
||||
end;
|
||||
|
||||
procedure TPluginGestorInformes.actInformeFacturasProveedorPendientesExecute(
|
||||
Sender: TObject);
|
||||
begin
|
||||
FController.VerInformeListadoFacturasProvPendientes;
|
||||
end;
|
||||
|
||||
procedure TPluginGestorInformes.actInformeRecibosClienteExecute(
|
||||
Sender: TObject);
|
||||
begin
|
||||
FController.VerInformeListadoRecibosCliente;
|
||||
end;
|
||||
|
||||
procedure TPluginGestorInformes.actInformeRecibosCliPendientesExecute(
|
||||
Sender: TObject);
|
||||
begin
|
||||
FController.VerInformeListadoRecibosCliPendientes;
|
||||
end;
|
||||
|
||||
procedure TPluginGestorInformes.actInformeRecibosProveedorExecute(
|
||||
Sender: TObject);
|
||||
begin
|
||||
FController.VerInformeListadoRecibosProveedor;
|
||||
end;
|
||||
|
||||
procedure TPluginGestorInformes.actInformeRecibosProvPendientesExecute(
|
||||
Sender: TObject);
|
||||
begin
|
||||
FController.VerInformeListadoRecibosProvPendientes;
|
||||
end;
|
||||
|
||||
constructor TPluginGestorInformes.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
uGestorInformesViewRegister.RegisterViews;
|
||||
FController := TGestorInformesController.Create;
|
||||
end;
|
||||
|
||||
destructor TPluginGestorInformes.Destroy;
|
||||
begin
|
||||
FController := NIL;
|
||||
uGestorInformesViewRegister.UnregisterViews;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
initialization
|
||||
RegisterModuleClass(TPluginGestorInformes);
|
||||
|
||||
finalization
|
||||
UnRegisterModuleClass(TPluginGestorInformes);
|
||||
|
||||
end.
|
||||
@ -0,0 +1,109 @@
|
||||
object srvGestorInformes: TsrvGestorInformes
|
||||
OldCreateOrder = True
|
||||
SessionManager = dmServer.SessionManager
|
||||
ServiceSchema = Schema
|
||||
ServiceDataStreamer = Bin2DataStreamer
|
||||
ExportedDataTables = <
|
||||
item
|
||||
DataTable = dtComboDataset
|
||||
LogicalName = 'ComboDataset'
|
||||
end
|
||||
item
|
||||
DataTable = dtWindowsDir
|
||||
LogicalName = 'DirectoryData'
|
||||
end>
|
||||
BeforeGetDatasetData = DataAbstractServiceBeforeGetDatasetData
|
||||
ValidateDatasetAccess = DataAbstractServiceValidateDatasetAccess
|
||||
Height = 162
|
||||
Width = 313
|
||||
object Schema: TDASchema
|
||||
ConnectionManager = dmServer.ConnectionManager
|
||||
Datasets = <>
|
||||
JoinDataTables = <>
|
||||
UnionDataTables = <>
|
||||
Commands = <>
|
||||
RelationShips = <
|
||||
item
|
||||
Name = 'FK_Employees_Employees'
|
||||
MasterDatasetName = 'Employees'
|
||||
MasterFields = 'EmployeeID'
|
||||
DetailDatasetName = 'Employees'
|
||||
DetailFields = 'ReportsTo'
|
||||
RelationshipType = rtForeignKey
|
||||
end>
|
||||
UpdateRules = <>
|
||||
Version = 0
|
||||
Left = 32
|
||||
Top = 64
|
||||
end
|
||||
object dtComboDataset: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'AutoIncField'
|
||||
DataType = datAutoInc
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'TextField'
|
||||
DataType = datString
|
||||
Size = 50
|
||||
DisplayWidth = 50
|
||||
end>
|
||||
Params = <
|
||||
item
|
||||
Name = 'CustomParameter'
|
||||
DataType = datString
|
||||
Size = 50
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end>
|
||||
MasterMappingMode = mmDataRequest
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteFetchEnabled = False
|
||||
LocalDataStreamer = Bin2DataStreamer
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'ComboDataset'
|
||||
IndexDefs = <>
|
||||
Left = 128
|
||||
Top = 56
|
||||
end
|
||||
object dtWindowsDir: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'FileName'
|
||||
DataType = datString
|
||||
Size = 200
|
||||
DisplayWidth = 50
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'FileSize'
|
||||
DataType = datInteger
|
||||
end>
|
||||
Params = <
|
||||
item
|
||||
Name = 'Directory'
|
||||
DataType = datString
|
||||
Size = 200
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end>
|
||||
MasterMappingMode = mmDataRequest
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteFetchEnabled = False
|
||||
LocalDataStreamer = Bin2DataStreamer
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'DirectoryData'
|
||||
IndexDefs = <>
|
||||
Left = 216
|
||||
Top = 56
|
||||
end
|
||||
object Bin2DataStreamer: TDABin2DataStreamer
|
||||
Left = 32
|
||||
Top = 8
|
||||
end
|
||||
end
|
||||
@ -0,0 +1,376 @@
|
||||
unit srvGestorInformes_Impl;
|
||||
|
||||
{----------------------------------------------------------------------------}
|
||||
{ This unit was automatically generated by the RemObjects SDK after reading }
|
||||
{ the RODL file associated with this project . }
|
||||
{ }
|
||||
{ This is where you are supposed to code the implementation of your objects. }
|
||||
{----------------------------------------------------------------------------}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
{vcl:} Classes, SysUtils,
|
||||
{RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
|
||||
{Ancestor Implementation:} DataAbstractService_Impl,
|
||||
{Used RODLs:} DataAbstract4_Intf,
|
||||
{Generated:} uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer,
|
||||
uDAScriptingProvider, uDAClasses,
|
||||
FactuGES_Intf, uDAInterfaces, uDADataTable, uDAMemDataTable, uDABinAdapter;
|
||||
|
||||
|
||||
const
|
||||
{ Dataset names for Schema }
|
||||
ds_Employees = 'Employees';
|
||||
ds_Customers = 'Customers';
|
||||
ds_Regions = 'Regions';
|
||||
|
||||
type
|
||||
{ TGestorInformes }
|
||||
TsrvGestorInformes = class(TDataAbstractService, IsrvGestorInformes)
|
||||
dtComboDataset: TDAMemDataTable;
|
||||
dtWindowsDir: TDAMemDataTable;
|
||||
Schema: TDASchema;
|
||||
Bin2DataStreamer: TDABin2DataStreamer;
|
||||
procedure DataAbstractServiceBeforeGetDatasetData(aSender: TObject;
|
||||
const aDataset: IDADataset; const aIncludeSchema: Boolean;
|
||||
const aMaxRecords: Integer);
|
||||
procedure DataAbstractServiceValidateDatasetAccess(Sender: TObject;
|
||||
const aConnection: IDAConnection; const aDatasetName: string;
|
||||
const aParamNames: array of string;
|
||||
const aParamValues: array of Variant; aSchema: TDASchema;
|
||||
var Allowed: Boolean);
|
||||
private
|
||||
procedure FillComboDataset(const aDataset: IDAEditableDataset);
|
||||
procedure FillWinDirDataset(const aDataset: IDAEditableDataset);
|
||||
|
||||
public
|
||||
//MODULO PRESUPUESTOS CLIENTE
|
||||
function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
|
||||
//MODULO FACTURAS CLIENTE
|
||||
function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
|
||||
//MODULO RECIBOS CLIENTE
|
||||
function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
|
||||
//MODULO FACTURAS PROVEEDOR
|
||||
function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
|
||||
//MODULO RECIBOS PROVEEDOR
|
||||
function GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
uses
|
||||
{Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils, Dialogs,
|
||||
uRptPresupuestosCliente_Server, uRptFacturasCliente_Server, uRptRecibosCliente_Server;
|
||||
// uRptFacturasProveedor_Server, uRptRecibosProveedor_Server;
|
||||
|
||||
procedure Create_srvGestorInformes(out anInstance: IUnknown);
|
||||
begin
|
||||
anInstance := TsrvGestorInformes.Create(nil);
|
||||
end;
|
||||
|
||||
procedure TsrvGestorInformes.FillComboDataset(const aDataset: IDAEditableDataset);
|
||||
var
|
||||
employees,
|
||||
customers,
|
||||
regions: IDADataset;
|
||||
textfield: TDAField;
|
||||
begin
|
||||
{
|
||||
with aDataset do begin
|
||||
// Opens the in memory data table
|
||||
Open;
|
||||
textfield := FieldByName('TextField');
|
||||
|
||||
// Adds 3 dummy records
|
||||
Insert;
|
||||
textfield.AsString := 'String A';
|
||||
Post;
|
||||
|
||||
Insert;
|
||||
textfield.AsString := 'String B';
|
||||
Post;
|
||||
|
||||
Insert;
|
||||
textfield.AsString := 'String C';
|
||||
Post;
|
||||
|
||||
// Fetches data from other datasets, according to the value of the parameter "CustomParameter"
|
||||
if (Pos('EMPLOYEES', UpperCase(ParamByName('CustomParameter').AsString)) > 0) then begin
|
||||
employees := Schema.NewDataset(Connection, ds_Employees, [], [], TRUE);
|
||||
while not employees.EOF do begin
|
||||
Insert;
|
||||
textfield.AsString := employees.FieldByName('FirstName').AsString + ' ' + employees.FieldByName('LastName').AsString;
|
||||
Post;
|
||||
|
||||
employees.Next;
|
||||
end;
|
||||
employees:=nil;
|
||||
end;
|
||||
if (Pos('CUSTOMERS', UpperCase(ParamByName('CustomParameter').AsString)) > 0) then begin
|
||||
customers := Schema.NewDataset(Connection, ds_Customers, [], [], TRUE);
|
||||
while not customers.EOF do begin
|
||||
Insert;
|
||||
textfield.AsString := customers.FieldByName('CompanyName').AsString;
|
||||
Post;
|
||||
|
||||
customers.Next;
|
||||
end;
|
||||
customers := nil;
|
||||
end;
|
||||
if (Pos('REGIONS', UpperCase(ParamByName('CustomParameter').AsString)) > 0) then begin
|
||||
regions := Schema.NewDataset(Connection, ds_Regions, [], [], TRUE);
|
||||
while not regions.EOF do begin
|
||||
Insert;
|
||||
textfield.AsString := regions.FieldByName('RegionDescription').AsString;
|
||||
Post;
|
||||
|
||||
regions.Next;
|
||||
end;
|
||||
regions := nil;
|
||||
end;
|
||||
end;
|
||||
}
|
||||
end;
|
||||
|
||||
procedure TsrvGestorInformes.FillWinDirDataset(const aDataset: IDAEditableDataset);
|
||||
var
|
||||
dirinfo: TSearchRec;
|
||||
begin
|
||||
aDataset.Open;
|
||||
{
|
||||
if (FindFirst(IncludeTrailingPathDelimiter(aDataset.ParamByName('Directory').AsString) + '*.*', faArchive, dirinfo) = 0) then repeat
|
||||
}
|
||||
aDataset.Insert;
|
||||
|
||||
aDataset.FieldByName('FileName').AsString := 'hola';
|
||||
aDataset.FieldByName('FileSize').AsInteger := 10;
|
||||
|
||||
aDataset.Post;
|
||||
{
|
||||
until (FindNext(dirinfo) <> 0);
|
||||
}
|
||||
end;
|
||||
|
||||
function TsrvGestorInformes.GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
var
|
||||
AReportGenerator : TRptFacturasCliente;
|
||||
begin
|
||||
AReportGenerator := TRptFacturasCliente.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarInformeIVA(IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, Desglosado, ImporteMinimo);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TsrvGestorInformes.GenerarInformeIVAProveedores(const IdEmpresa: Integer;
|
||||
const FechaInicio, FechaFin: DateTime; const ListaIDProveedores: TIntegerArray;
|
||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
//var
|
||||
// AReportGenerator : TRptFacturasProveedor;
|
||||
begin
|
||||
{
|
||||
AReportGenerator := TRptFacturasProveedor.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarInformeIVA(IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, Desglosado, ImporteMinimo);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
}
|
||||
end;
|
||||
|
||||
function TsrvGestorInformes.GenerarInformeListadoFacturasCli(const IdEmpresa: Integer;
|
||||
const FechaInicio, FechaFin: DateTime; const ListaIDClientes: TIntegerArray;
|
||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
var
|
||||
AReportGenerator : TRptFacturasCliente;
|
||||
begin
|
||||
AReportGenerator := TRptFacturasCliente.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarInformeListadoFacturas(IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, Desglosado, ImporteMinimo);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TsrvGestorInformes.GenerarInformeListadoFacturasCliPendientes(
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime;
|
||||
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
var
|
||||
AReportGenerator : TRptFacturasCliente;
|
||||
begin
|
||||
AReportGenerator := TRptFacturasCliente.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarInformeListadoFacturasPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, Desglosado, ImporteMinimo);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TsrvGestorInformes.GenerarInformeListadoFacturasProv(
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime;
|
||||
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
//var
|
||||
// AReportGenerator : TRptFacturasProveedor;
|
||||
begin
|
||||
{
|
||||
AReportGenerator := TRptFacturasProveedor.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarInformeListadoFacturas(IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, Desglosado, ImporteMinimo);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
}
|
||||
end;
|
||||
|
||||
function TsrvGestorInformes.GenerarInformeListadoFacturasProvPendientes(
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime;
|
||||
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
//var
|
||||
// AReportGenerator : TRptFacturasProveedor;
|
||||
begin
|
||||
{
|
||||
AReportGenerator := TRptFacturasProveedor.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarInformeListadoFacturasPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, Desglosado, ImporteMinimo);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
}
|
||||
end;
|
||||
|
||||
function TsrvGestorInformes.GenerarInformeListadoPresupuestos(
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime;
|
||||
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
var
|
||||
AReportGenerator : TRptPresupuestosCliente;
|
||||
begin
|
||||
AReportGenerator := TRptPresupuestosCliente.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarInformeListadoPresupuestos(IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, Desglosado, ImporteMinimo);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TsrvGestorInformes.GenerarInformeListadoRecibosCliente(
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime;
|
||||
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
var
|
||||
AReportGenerator : TRptRecibosCliente;
|
||||
begin
|
||||
AReportGenerator := TRptRecibosCliente.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarInformeListadoRecibos(IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, Desglosado, ImporteMinimo);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TsrvGestorInformes.GenerarInformeListadoRecibosCliPendientes(
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime;
|
||||
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
var
|
||||
AReportGenerator : TRptRecibosCliente;
|
||||
begin
|
||||
AReportGenerator := TRptRecibosCliente.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarInformeListadoRecibosPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, Desglosado, ImporteMinimo);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TsrvGestorInformes.GenerarInformeListadoRecibosProveedor(
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime;
|
||||
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
//var
|
||||
// AReportGenerator : TRptRecibosProveedor;
|
||||
begin
|
||||
{
|
||||
AReportGenerator := TRptRecibosProveedor.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarInformeListadoRecibos(IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, Desglosado, ImporteMinimo);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
}
|
||||
end;
|
||||
|
||||
function TsrvGestorInformes.GenerarInformeListadoRecibosProvPendientes(
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime;
|
||||
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
//var
|
||||
// AReportGenerator : TRptRecibosProveedor;
|
||||
begin
|
||||
{
|
||||
AReportGenerator := TRptRecibosProveedor.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarInformeListadoRecibosPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, Desglosado, ImporteMinimo);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
}
|
||||
end;
|
||||
|
||||
procedure TsrvGestorInformes.DataAbstractServiceBeforeGetDatasetData(
|
||||
aSender: TObject; const aDataset: IDADataset;
|
||||
const aIncludeSchema: Boolean; const aMaxRecords: Integer);
|
||||
begin
|
||||
if SameText(aDataset.LogicalName, dtComboDataset.LogicalName) then
|
||||
FillComboDataset((dtComboDataset as IDAEditableDataset))
|
||||
else if SameText(aDataset.LogicalName, dtWindowsDir.LogicalName) then
|
||||
FillWinDirDataset((dtWindowsDir as IDAEditableDataset));
|
||||
end;
|
||||
|
||||
procedure TsrvGestorInformes.DataAbstractServiceValidateDatasetAccess(
|
||||
Sender: TObject; const aConnection: IDAConnection;
|
||||
const aDatasetName: string; const aParamNames: array of string;
|
||||
const aParamValues: array of Variant; aSchema: TDASchema;
|
||||
var Allowed: Boolean);
|
||||
|
||||
procedure FillParameters(aDataSet: TDAMemDataTable);
|
||||
var
|
||||
i: integer;
|
||||
begin
|
||||
for i := Low(aParamNames) to High(aParamNames) do
|
||||
begin
|
||||
showmessage(aParamValues[i]);
|
||||
aDataset.ParamByName(aParamNames[i]).Value := aParamValues[i];
|
||||
end;
|
||||
end;
|
||||
|
||||
begin
|
||||
if SameText(aDatasetName, dtComboDataset.LogicalName) then
|
||||
FillParameters(dtComboDataset)
|
||||
else if SameText(aDatasetName, dtWindowsDir.LogicalName) then
|
||||
FillParameters(dtWindowsDir)
|
||||
end;
|
||||
|
||||
initialization
|
||||
TROClassFactory.Create('srvGestorInformes', Create_srvGestorInformes, TsrvGestorInformes_Invoker);
|
||||
|
||||
finalization
|
||||
|
||||
end.
|
||||
|
||||
@ -0,0 +1,88 @@
|
||||
package GestorInformes_view;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
Base,
|
||||
GUIBase,
|
||||
ApplicationBase,
|
||||
Contactos_view,
|
||||
GestorInformes_controller,
|
||||
Contactos_model,
|
||||
Contactos_controller,
|
||||
RemObjects_Core_D11,
|
||||
dbrtl,
|
||||
PNG_D10,
|
||||
PngComponentsD10,
|
||||
vclactnband,
|
||||
vclx,
|
||||
tb2k_d10,
|
||||
tbx_d10,
|
||||
JvCoreD11R,
|
||||
vcldb,
|
||||
vcljpg,
|
||||
Jcl,
|
||||
JclVcl,
|
||||
JvSystemD11R,
|
||||
JvStdCtrlsD11R,
|
||||
JvPageCompsD11R,
|
||||
GUISDK_D11,
|
||||
xmlrtl,
|
||||
cfpack_d11,
|
||||
designide,
|
||||
ccpackD11,
|
||||
frx11,
|
||||
fs11,
|
||||
frxe11,
|
||||
cxLibraryD11,
|
||||
dxThemeD11,
|
||||
dxGDIPlusD11,
|
||||
dxLayoutControlD11,
|
||||
dxComnD11,
|
||||
cxEditorsD11,
|
||||
cxDataD11;
|
||||
|
||||
contains
|
||||
uGestorInformesViewRegister in 'uGestorInformesViewRegister.pas',
|
||||
uViewPeriodoFechas in 'uViewPeriodoFechas.pas' {frViewPeriodoFechas: TFrame},
|
||||
uViewFiltroImportes in 'uViewFiltroImportes.pas' {frViewFiltroImportes: TFrame},
|
||||
uEditorInformeIVAClientesReport in 'uEditorInformeIVAClientesReport.pas' {fEditorInformeIVAClientesReport: TForm},
|
||||
uEditorInformeBase in 'uEditorInformeBase.pas' {fEditorInformeBase: TForm},
|
||||
uViewFiltroClientes in 'uViewFiltroClientes.pas' {frViewFiltroClientes: TFrame},
|
||||
uViewParametrosInforme in 'uViewParametrosInforme.pas' {frViewParametrosInforme: TFrame},
|
||||
uEditorInformeFacturasClientePendientesReport in 'uEditorInformeFacturasClientePendientesReport.pas' {fEditorInformeFacturasClientePendientesReport: t},
|
||||
uEditorInformeFacturasClienteReport in 'uEditorInformeFacturasClienteReport.pas' {fEditorInformeFacturasClienteReport: T},
|
||||
uEditorInformeRecibosClienteReport in 'uEditorInformeRecibosClienteReport.pas' {fEditorInformeRecibosClienteReport: T},
|
||||
uEditorInformeRecibosCliPendientesReport in 'uEditorInformeRecibosCliPendientesReport.pas' {fEditorInformeRecibosCliPendientesReport: T},
|
||||
uViewFiltroProveedores in 'uViewFiltroProveedores.pas' {frViewFiltroProveedores: TFrame},
|
||||
uEditorInformeIVAProveedoresReport in 'uEditorInformeIVAProveedoresReport.pas' {fEditorInformeIVAProveedoresReport: TForm},
|
||||
uEditorInformeRecibosProvPendientesReport in 'uEditorInformeRecibosProvPendientesReport.pas' {fEditorInformeRecibosProvPendientesReport: TForm},
|
||||
uEditorInformeFacturasProveedorPendientesReport in 'uEditorInformeFacturasProveedorPendientesReport.pas' {fEditorInformeFacturasProveedorPendientesReport: TForm},
|
||||
uEditorInformeFacturasProveedorReport in 'uEditorInformeFacturasProveedorReport.pas' {fEditorInformeFacturasProveedorReport: TForm},
|
||||
uEditorInformeRecibosProveedorReport in 'uEditorInformeRecibosProveedorReport.pas' {fEditorInformeRecibosProveedorReport: TForm};
|
||||
|
||||
end.
|
||||
@ -0,0 +1,630 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{cdba3fdf-b755-404b-b9f9-ebf0ce885115}</ProjectGuid>
|
||||
<MainSource>GestorInformes_view.dpk</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\GestorInformes_view.bpl</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><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"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">GestorInformes_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="GestorInformes_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="ApplicationBase.dcp" />
|
||||
<DCCReference Include="Base.dcp" />
|
||||
<DCCReference Include="ccpackD11.dcp" />
|
||||
<DCCReference Include="cfpack_d11.dcp" />
|
||||
<DCCReference Include="Contactos_controller.dcp" />
|
||||
<DCCReference Include="Contactos_model.dcp" />
|
||||
<DCCReference Include="Contactos_view.dcp" />
|
||||
<DCCReference Include="cxDataD11.dcp" />
|
||||
<DCCReference Include="cxEditorsD11.dcp" />
|
||||
<DCCReference Include="cxLibraryD11.dcp" />
|
||||
<DCCReference Include="dbrtl.dcp" />
|
||||
<DCCReference Include="designide.dcp" />
|
||||
<DCCReference Include="dxComnD11.dcp" />
|
||||
<DCCReference Include="dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="dxThemeD11.dcp" />
|
||||
<DCCReference Include="frx11.dcp" />
|
||||
<DCCReference Include="frxe11.dcp" />
|
||||
<DCCReference Include="fs11.dcp" />
|
||||
<DCCReference Include="GestorInformes_controller.dcp" />
|
||||
<DCCReference Include="GUIBase.dcp" />
|
||||
<DCCReference Include="GUISDK_D11.dcp" />
|
||||
<DCCReference Include="Jcl.dcp" />
|
||||
<DCCReference Include="JclVcl.dcp" />
|
||||
<DCCReference Include="JvCoreD11R.dcp" />
|
||||
<DCCReference Include="JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="JvSystemD11R.dcp" />
|
||||
<DCCReference Include="PngComponentsD10.dcp" />
|
||||
<DCCReference Include="PNG_D10.dcp" />
|
||||
<DCCReference Include="RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="rtl.dcp" />
|
||||
<DCCReference Include="tb2k_d10.dcp" />
|
||||
<DCCReference Include="tbx_d10.dcp" />
|
||||
<DCCReference Include="uEditorInformeBase.pas">
|
||||
<Form>fEditorInformeBase</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorInformeFacturasClientePendientesReport.pas">
|
||||
<Form>fEditorInformeFacturasClientePendientesReport</Form>
|
||||
<DesignClass>t</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorInformeFacturasClienteReport.pas">
|
||||
<Form>fEditorInformeFacturasClienteReport</Form>
|
||||
<DesignClass>T</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorInformeFacturasProveedorPendientesReport.pas">
|
||||
<Form>fEditorInformeFacturasProveedorPendientesReport</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorInformeFacturasProveedorReport.pas">
|
||||
<Form>fEditorInformeFacturasProveedorReport</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorInformeIVAClientesReport.pas">
|
||||
<Form>fEditorInformeIVAClientesReport</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorInformeIVAProveedoresReport.pas">
|
||||
<Form>fEditorInformeIVAProveedoresReport</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorInformeRecibosClienteReport.pas">
|
||||
<Form>fEditorInformeRecibosClienteReport</Form>
|
||||
<DesignClass>T</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorInformeRecibosCliPendientesReport.pas">
|
||||
<Form>fEditorInformeRecibosCliPendientesReport</Form>
|
||||
<DesignClass>T</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorInformeRecibosProveedorReport.pas">
|
||||
<Form>fEditorInformeRecibosProveedorReport</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorInformeRecibosProvPendientesReport.pas">
|
||||
<Form>fEditorInformeRecibosProvPendientesReport</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uGestorInformesViewRegister.pas" />
|
||||
<DCCReference Include="uViewFiltroClientes.pas">
|
||||
<Form>frViewFiltroClientes</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewFiltroImportes.pas">
|
||||
<Form>frViewFiltroImportes</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewFiltroProveedores.pas">
|
||||
<Form>frViewFiltroProveedores</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewParametrosInforme.pas">
|
||||
<Form>frViewParametrosInforme</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewPeriodoFechas.pas">
|
||||
<Form>frViewPeriodoFechas</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="vcl.dcp" />
|
||||
<DCCReference Include="vclactnband.dcp" />
|
||||
<DCCReference Include="vcldb.dcp" />
|
||||
<DCCReference Include="vcljpg.dcp" />
|
||||
<DCCReference Include="vclx.dcp" />
|
||||
<DCCReference Include="xmlrtl.dcp" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=6006
|
||||
Activate=0
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
Foreground Tab=0
|
||||
Freeze Activate=0
|
||||
Freeze Timeout=60
|
||||
SMTP From=eurekalog@email.com
|
||||
SMTP Host=
|
||||
SMTP Port=25
|
||||
SMTP UserID=
|
||||
SMTP Password=
|
||||
Append to Log=0
|
||||
TerminateBtn Operation=2
|
||||
Errors Number=32
|
||||
Errors Terminate=3
|
||||
Email Address=
|
||||
Email Object=
|
||||
Email Send Options=0
|
||||
Output Path=
|
||||
Encrypt Password=
|
||||
AutoCloseDialogSecs=0
|
||||
WebSendMode=0
|
||||
SupportULR=
|
||||
HTMLLayout Count=15
|
||||
HTMLLine0="%3Chtml%3E"
|
||||
HTMLLine1=" %3Chead%3E"
|
||||
HTMLLine2=" %3C/head%3E"
|
||||
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
|
||||
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
|
||||
HTMLLine5=" %3Ctr%3E"
|
||||
HTMLLine6=" %3Ctd nowrap%3E"
|
||||
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
|
||||
HTMLLine8=" %3C%%HTML_TAG%%%3E"
|
||||
HTMLLine9=" %3C/font%3E"
|
||||
HTMLLine10=" %3C/td%3E"
|
||||
HTMLLine11=" %3C/tr%3E"
|
||||
HTMLLine12=" %3C/table%3E"
|
||||
HTMLLine13=" %3C/body%3E"
|
||||
HTMLLine14="%3C/html%3E"
|
||||
AutoCrashOperation=2
|
||||
AutoCrashNumber=10
|
||||
AutoCrashMinutes=1
|
||||
WebURL=
|
||||
WebUserID=
|
||||
WebPassword=
|
||||
WebPort=0
|
||||
AttachedFiles=
|
||||
ProxyURL=
|
||||
ProxyUser=
|
||||
ProxyPassword=
|
||||
ProxyPort=8080
|
||||
TrakerUser=
|
||||
TrakerPassword=
|
||||
TrakerAssignTo=
|
||||
TrakerProject=
|
||||
TrakerCategory=
|
||||
TrakerTrialID=
|
||||
ZipPassword=
|
||||
PreBuildEvent=
|
||||
PostSuccessfulBuildEvent=
|
||||
PostFailureBuildEvent=
|
||||
ExceptionDialogType=2
|
||||
Count=0
|
||||
EMail Message Line Count=0
|
||||
loNoDuplicateErrors=0
|
||||
loAppendReproduceText=0
|
||||
loDeleteLogAtVersionChange=0
|
||||
loAddComputerNameInLogFileName=0
|
||||
loSaveModulesAndProcessesSections=1
|
||||
loSaveAssemblerAndCPUSections=1
|
||||
soAppStartDate=1
|
||||
soAppName=1
|
||||
soAppVersionNumber=1
|
||||
soAppParameters=1
|
||||
soAppCompilationDate=1
|
||||
soAppUpTime=1
|
||||
soExcDate=1
|
||||
soExcAddress=1
|
||||
soExcModuleName=1
|
||||
soExcModuleVersion=1
|
||||
soExcType=1
|
||||
soExcMessage=1
|
||||
soExcID=1
|
||||
soExcCount=1
|
||||
soExcStatus=1
|
||||
soExcNote=1
|
||||
soUserID=1
|
||||
soUserName=1
|
||||
soUserEmail=1
|
||||
soUserPrivileges=1
|
||||
soUserCompany=1
|
||||
soActCtlsFormClass=1
|
||||
soActCtlsFormText=1
|
||||
soActCtlsControlClass=1
|
||||
soActCtlsControlText=1
|
||||
soCmpName=1
|
||||
soCmpTotalMemory=1
|
||||
soCmpFreeMemory=1
|
||||
soCmpTotalDisk=1
|
||||
soCmpFreeDisk=1
|
||||
soCmpSysUpTime=1
|
||||
soCmpProcessor=1
|
||||
soCmpDisplayMode=1
|
||||
soCmpDisplayDPI=1
|
||||
soCmpVideoCard=1
|
||||
soCmpPrinter=1
|
||||
soOSType=1
|
||||
soOSBuildN=1
|
||||
soOSUpdate=1
|
||||
soOSLanguage=1
|
||||
soOSCharset=1
|
||||
soNetIP=1
|
||||
soNetSubmask=1
|
||||
soNetGateway=1
|
||||
soNetDNS1=1
|
||||
soNetDNS2=1
|
||||
soNetDHCP=1
|
||||
soCustomData=1
|
||||
sndShowSendDialog=1
|
||||
sndShowSuccessFailureMsg=0
|
||||
sndSendEntireLog=0
|
||||
sndSendXMLLogCopy=0
|
||||
sndSendScreenshot=1
|
||||
sndUseOnlyActiveWindow=0
|
||||
sndSendLastHTMLPage=1
|
||||
sndSendInSeparatedThread=0
|
||||
sndAddDateInFileName=0
|
||||
sndAddComputerNameInFileName=0
|
||||
edoSendErrorReportChecked=1
|
||||
edoAttachScreenshotChecked=1
|
||||
edoShowCopyToClipOption=1
|
||||
edoShowDetailsButton=1
|
||||
edoShowInDetailedMode=0
|
||||
edoShowInTopMostMode=0
|
||||
edoUseEurekaLogLookAndFeel=0
|
||||
edoShowSendErrorReportOption=1
|
||||
edoShowAttachScreenshotOption=1
|
||||
edoShowCustomButton=0
|
||||
csoShowDLLs=1
|
||||
csoShowBPLs=1
|
||||
csoShowBorlandThreads=1
|
||||
csoShowWindowsThreads=1
|
||||
csoDoNotStoreProcNames=0
|
||||
boPauseBorlandThreads=0
|
||||
boDoNotPauseMainThread=0
|
||||
boPauseWindowsThreads=0
|
||||
boUseMainModuleOptions=1
|
||||
boCopyLogInCaseOfError=1
|
||||
boSaveCompressedCopyInCaseOfError=0
|
||||
boHandleSafeCallExceptions=1
|
||||
boCallRTLExceptionEvent=0
|
||||
boCatchHandledExceptions=0
|
||||
loCatchLeaks=0
|
||||
loGroupsSonLeaks=1
|
||||
loHideBorlandLeaks=1
|
||||
loFreeAllLeaks=1
|
||||
loCatchLeaksExceptions=1
|
||||
cfoReduceFileSize=1
|
||||
cfoCheckFileCorruption=0
|
||||
Count mtInformationMsgCaption=1
|
||||
mtInformationMsgCaption0="Information."
|
||||
Count mtQuestionMsgCaption=1
|
||||
mtQuestionMsgCaption0="Question."
|
||||
Count mtErrorMsgCaption=1
|
||||
mtErrorMsgCaption0="Error."
|
||||
Count mtDialog_Caption=1
|
||||
mtDialog_Caption0="Error occurred"
|
||||
Count mtDialog_ErrorMsgCaption=2
|
||||
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
|
||||
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
|
||||
Count mtDialog_GeneralCaption=1
|
||||
mtDialog_GeneralCaption0="General"
|
||||
Count mtDialog_GeneralHeader=1
|
||||
mtDialog_GeneralHeader0="General Information"
|
||||
Count mtDialog_CallStackCaption=1
|
||||
mtDialog_CallStackCaption0="Call Stack"
|
||||
Count mtDialog_CallStackHeader=1
|
||||
mtDialog_CallStackHeader0="Call Stack Information"
|
||||
Count mtDialog_ModulesCaption=1
|
||||
mtDialog_ModulesCaption0="Modules"
|
||||
Count mtDialog_ModulesHeader=1
|
||||
mtDialog_ModulesHeader0="Modules Information"
|
||||
Count mtDialog_ProcessesCaption=1
|
||||
mtDialog_ProcessesCaption0="Processes"
|
||||
Count mtDialog_ProcessesHeader=1
|
||||
mtDialog_ProcessesHeader0="Processes Information"
|
||||
Count mtDialog_AsmCaption=1
|
||||
mtDialog_AsmCaption0="Assembler"
|
||||
Count mtDialog_AsmHeader=1
|
||||
mtDialog_AsmHeader0="Assembler Information"
|
||||
Count mtDialog_CPUCaption=1
|
||||
mtDialog_CPUCaption0="CPU"
|
||||
Count mtDialog_CPUHeader=1
|
||||
mtDialog_CPUHeader0="CPU Information"
|
||||
Count mtDialog_OKButtonCaption=1
|
||||
mtDialog_OKButtonCaption0="%26OK"
|
||||
Count mtDialog_TerminateButtonCaption=1
|
||||
mtDialog_TerminateButtonCaption0="%26Terminate"
|
||||
Count mtDialog_RestartButtonCaption=1
|
||||
mtDialog_RestartButtonCaption0="%26Restart"
|
||||
Count mtDialog_DetailsButtonCaption=1
|
||||
mtDialog_DetailsButtonCaption0="%26Details"
|
||||
Count mtDialog_CustomButtonCaption=1
|
||||
mtDialog_CustomButtonCaption0="%26Help"
|
||||
Count mtDialog_SendMessage=1
|
||||
mtDialog_SendMessage0="%26Send this error via Internet"
|
||||
Count mtDialog_ScreenshotMessage=1
|
||||
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
|
||||
Count mtDialog_CopyMessage=1
|
||||
mtDialog_CopyMessage0="%26Copy to Clipboard"
|
||||
Count mtDialog_SupportMessage=1
|
||||
mtDialog_SupportMessage0="Go to the Support Page"
|
||||
Count mtMSDialog_ErrorMsgCaption=1
|
||||
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
|
||||
Count mtMSDialog_RestartCaption=1
|
||||
mtMSDialog_RestartCaption0="Restart application."
|
||||
Count mtMSDialog_TerminateCaption=1
|
||||
mtMSDialog_TerminateCaption0="Terminate application."
|
||||
Count mtMSDialog_PleaseCaption=1
|
||||
mtMSDialog_PleaseCaption0="Please tell us about this problem."
|
||||
Count mtMSDialog_DescriptionCaption=1
|
||||
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
|
||||
Count mtMSDialog_SeeDetailsCaption=1
|
||||
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
|
||||
Count mtMSDialog_SeeClickCaption=1
|
||||
mtMSDialog_SeeClickCaption0="click here."
|
||||
Count mtMSDialog_HowToReproduceCaption=1
|
||||
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
|
||||
Count mtMSDialog_EmailCaption=1
|
||||
mtMSDialog_EmailCaption0="Email address (optional):"
|
||||
Count mtMSDialog_SendButtonCaption=1
|
||||
mtMSDialog_SendButtonCaption0="%26Send Error Report"
|
||||
Count mtMSDialog_NoSendButtonCaption=1
|
||||
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
|
||||
Count mtLog_AppHeader=1
|
||||
mtLog_AppHeader0="Application"
|
||||
Count mtLog_AppStartDate=1
|
||||
mtLog_AppStartDate0="Start Date"
|
||||
Count mtLog_AppName=1
|
||||
mtLog_AppName0="Name/Description"
|
||||
Count mtLog_AppVersionNumber=1
|
||||
mtLog_AppVersionNumber0="Version Number"
|
||||
Count mtLog_AppParameters=1
|
||||
mtLog_AppParameters0="Parameters"
|
||||
Count mtLog_AppCompilationDate=1
|
||||
mtLog_AppCompilationDate0="Compilation Date"
|
||||
Count mtLog_AppUpTime=1
|
||||
mtLog_AppUpTime0="Up Time"
|
||||
Count mtLog_ExcHeader=1
|
||||
mtLog_ExcHeader0="Exception"
|
||||
Count mtLog_ExcDate=1
|
||||
mtLog_ExcDate0="Date"
|
||||
Count mtLog_ExcAddress=1
|
||||
mtLog_ExcAddress0="Address"
|
||||
Count mtLog_ExcModuleName=1
|
||||
mtLog_ExcModuleName0="Module Name"
|
||||
Count mtLog_ExcModuleVersion=1
|
||||
mtLog_ExcModuleVersion0="Module Version"
|
||||
Count mtLog_ExcType=1
|
||||
mtLog_ExcType0="Type"
|
||||
Count mtLog_ExcMessage=1
|
||||
mtLog_ExcMessage0="Message"
|
||||
Count mtLog_ExcID=1
|
||||
mtLog_ExcID0="ID"
|
||||
Count mtLog_ExcCount=1
|
||||
mtLog_ExcCount0="Count"
|
||||
Count mtLog_ExcStatus=1
|
||||
mtLog_ExcStatus0="Status"
|
||||
Count mtLog_ExcNote=1
|
||||
mtLog_ExcNote0="Note"
|
||||
Count mtLog_UserHeader=1
|
||||
mtLog_UserHeader0="User"
|
||||
Count mtLog_UserID=1
|
||||
mtLog_UserID0="ID"
|
||||
Count mtLog_UserName=1
|
||||
mtLog_UserName0="Name"
|
||||
Count mtLog_UserEmail=1
|
||||
mtLog_UserEmail0="Email"
|
||||
Count mtLog_UserCompany=1
|
||||
mtLog_UserCompany0="Company"
|
||||
Count mtLog_UserPrivileges=1
|
||||
mtLog_UserPrivileges0="Privileges"
|
||||
Count mtLog_ActCtrlsHeader=1
|
||||
mtLog_ActCtrlsHeader0="Active Controls"
|
||||
Count mtLog_ActCtrlsFormClass=1
|
||||
mtLog_ActCtrlsFormClass0="Form Class"
|
||||
Count mtLog_ActCtrlsFormText=1
|
||||
mtLog_ActCtrlsFormText0="Form Text"
|
||||
Count mtLog_ActCtrlsControlClass=1
|
||||
mtLog_ActCtrlsControlClass0="Control Class"
|
||||
Count mtLog_ActCtrlsControlText=1
|
||||
mtLog_ActCtrlsControlText0="Control Text"
|
||||
Count mtLog_CmpHeader=1
|
||||
mtLog_CmpHeader0="Computer"
|
||||
Count mtLog_CmpName=1
|
||||
mtLog_CmpName0="Name"
|
||||
Count mtLog_CmpTotalMemory=1
|
||||
mtLog_CmpTotalMemory0="Total Memory"
|
||||
Count mtLog_CmpFreeMemory=1
|
||||
mtLog_CmpFreeMemory0="Free Memory"
|
||||
Count mtLog_CmpTotalDisk=1
|
||||
mtLog_CmpTotalDisk0="Total Disk"
|
||||
Count mtLog_CmpFreeDisk=1
|
||||
mtLog_CmpFreeDisk0="Free Disk"
|
||||
Count mtLog_CmpSystemUpTime=1
|
||||
mtLog_CmpSystemUpTime0="System Up Time"
|
||||
Count mtLog_CmpProcessor=1
|
||||
mtLog_CmpProcessor0="Processor"
|
||||
Count mtLog_CmpDisplayMode=1
|
||||
mtLog_CmpDisplayMode0="Display Mode"
|
||||
Count mtLog_CmpDisplayDPI=1
|
||||
mtLog_CmpDisplayDPI0="Display DPI"
|
||||
Count mtLog_CmpVideoCard=1
|
||||
mtLog_CmpVideoCard0="Video Card"
|
||||
Count mtLog_CmpPrinter=1
|
||||
mtLog_CmpPrinter0="Printer"
|
||||
Count mtLog_OSHeader=1
|
||||
mtLog_OSHeader0="Operating System"
|
||||
Count mtLog_OSType=1
|
||||
mtLog_OSType0="Type"
|
||||
Count mtLog_OSBuildN=1
|
||||
mtLog_OSBuildN0="Build #"
|
||||
Count mtLog_OSUpdate=1
|
||||
mtLog_OSUpdate0="Update"
|
||||
Count mtLog_OSLanguage=1
|
||||
mtLog_OSLanguage0="Language"
|
||||
Count mtLog_OSCharset=1
|
||||
mtLog_OSCharset0="Charset"
|
||||
Count mtLog_NetHeader=1
|
||||
mtLog_NetHeader0="Network"
|
||||
Count mtLog_NetIP=1
|
||||
mtLog_NetIP0="IP Address"
|
||||
Count mtLog_NetSubmask=1
|
||||
mtLog_NetSubmask0="Submask"
|
||||
Count mtLog_NetGateway=1
|
||||
mtLog_NetGateway0="Gateway"
|
||||
Count mtLog_NetDNS1=1
|
||||
mtLog_NetDNS10="DNS 1"
|
||||
Count mtLog_NetDNS2=1
|
||||
mtLog_NetDNS20="DNS 2"
|
||||
Count mtLog_NetDHCP=1
|
||||
mtLog_NetDHCP0="DHCP"
|
||||
Count mtLog_CustInfoHeader=1
|
||||
mtLog_CustInfoHeader0="Custom Information"
|
||||
Count mtCallStack_Address=1
|
||||
mtCallStack_Address0="Address"
|
||||
Count mtCallStack_Name=1
|
||||
mtCallStack_Name0="Module"
|
||||
Count mtCallStack_Unit=1
|
||||
mtCallStack_Unit0="Unit"
|
||||
Count mtCallStack_Class=1
|
||||
mtCallStack_Class0="Class"
|
||||
Count mtCallStack_Procedure=1
|
||||
mtCallStack_Procedure0="Procedure/Method"
|
||||
Count mtCallStack_Line=1
|
||||
mtCallStack_Line0="Line"
|
||||
Count mtCallStack_MainThread=1
|
||||
mtCallStack_MainThread0="Main"
|
||||
Count mtCallStack_ExceptionThread=1
|
||||
mtCallStack_ExceptionThread0="Exception Thread"
|
||||
Count mtCallStack_RunningThread=1
|
||||
mtCallStack_RunningThread0="Running Thread"
|
||||
Count mtCallStack_CallingThread=1
|
||||
mtCallStack_CallingThread0="Calling Thread"
|
||||
Count mtCallStack_ThreadID=1
|
||||
mtCallStack_ThreadID0="ID"
|
||||
Count mtCallStack_ThreadPriority=1
|
||||
mtCallStack_ThreadPriority0="Priority"
|
||||
Count mtCallStack_ThreadClass=1
|
||||
mtCallStack_ThreadClass0="Class"
|
||||
Count mtCallStack_LeakCaption=1
|
||||
mtCallStack_LeakCaption0="Memory Leak"
|
||||
Count mtCallStack_LeakData=1
|
||||
mtCallStack_LeakData0="Data"
|
||||
Count mtCallStack_LeakType=1
|
||||
mtCallStack_LeakType0="Type"
|
||||
Count mtCallStack_LeakSize=1
|
||||
mtCallStack_LeakSize0="Total size"
|
||||
Count mtCallStack_LeakCount=1
|
||||
mtCallStack_LeakCount0="Count"
|
||||
Count mtSendDialog_Caption=1
|
||||
mtSendDialog_Caption0="Send."
|
||||
Count mtSendDialog_Message=1
|
||||
mtSendDialog_Message0="Message"
|
||||
Count mtSendDialog_Resolving=1
|
||||
mtSendDialog_Resolving0="Resolving DNS..."
|
||||
Count mtSendDialog_Login=1
|
||||
mtSendDialog_Login0="Login..."
|
||||
Count mtSendDialog_Connecting=1
|
||||
mtSendDialog_Connecting0="Connecting with server..."
|
||||
Count mtSendDialog_Connected=1
|
||||
mtSendDialog_Connected0="Connected with server."
|
||||
Count mtSendDialog_Sending=1
|
||||
mtSendDialog_Sending0="Sending message..."
|
||||
Count mtSendDialog_Sent=1
|
||||
mtSendDialog_Sent0="Message sent."
|
||||
Count mtSendDialog_SelectProject=1
|
||||
mtSendDialog_SelectProject0="Select project..."
|
||||
Count mtSendDialog_Searching=1
|
||||
mtSendDialog_Searching0="Searching..."
|
||||
Count mtSendDialog_Modifying=1
|
||||
mtSendDialog_Modifying0="Modifying..."
|
||||
Count mtSendDialog_Disconnecting=1
|
||||
mtSendDialog_Disconnecting0="Disconnecting..."
|
||||
Count mtSendDialog_Disconnected=1
|
||||
mtSendDialog_Disconnected0="Disconnected."
|
||||
Count mtReproduceDialog_Caption=1
|
||||
mtReproduceDialog_Caption0="Request"
|
||||
Count mtReproduceDialog_Request=1
|
||||
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
|
||||
Count mtReproduceDialog_OKButtonCaption=1
|
||||
mtReproduceDialog_OKButtonCaption0="%26OK"
|
||||
Count mtModules_Handle=1
|
||||
mtModules_Handle0="Handle"
|
||||
Count mtModules_Name=1
|
||||
mtModules_Name0="Name"
|
||||
Count mtModules_Description=1
|
||||
mtModules_Description0="Description"
|
||||
Count mtModules_Version=1
|
||||
mtModules_Version0="Version"
|
||||
Count mtModules_Size=1
|
||||
mtModules_Size0="Size"
|
||||
Count mtModules_LastModified=1
|
||||
mtModules_LastModified0="Modified"
|
||||
Count mtModules_Path=1
|
||||
mtModules_Path0="Path"
|
||||
Count mtProcesses_ID=1
|
||||
mtProcesses_ID0="ID"
|
||||
Count mtProcesses_Name=1
|
||||
mtProcesses_Name0="Name"
|
||||
Count mtProcesses_Description=1
|
||||
mtProcesses_Description0="Description"
|
||||
Count mtProcesses_Version=1
|
||||
mtProcesses_Version0="Version"
|
||||
Count mtProcesses_Memory=1
|
||||
mtProcesses_Memory0="Memory"
|
||||
Count mtProcesses_Priority=1
|
||||
mtProcesses_Priority0="Priority"
|
||||
Count mtProcesses_Threads=1
|
||||
mtProcesses_Threads0="Threads"
|
||||
Count mtProcesses_Path=1
|
||||
mtProcesses_Path0="Path"
|
||||
Count mtCPU_Registers=1
|
||||
mtCPU_Registers0="Registers"
|
||||
Count mtCPU_Stack=1
|
||||
mtCPU_Stack0="Stack"
|
||||
Count mtCPU_MemoryDump=1
|
||||
mtCPU_MemoryDump0="Memory Dump"
|
||||
Count mtSend_SuccessMsg=1
|
||||
mtSend_SuccessMsg0="The message was sent successfully."
|
||||
Count mtSend_FailureMsg=1
|
||||
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
||||
Count mtSend_BugClosedMsg=2
|
||||
mtSend_BugClosedMsg0="These BUG is just closed."
|
||||
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
|
||||
Count mtSend_UnknownErrorMsg=1
|
||||
mtSend_UnknownErrorMsg0="Unknown error."
|
||||
Count mtSend_InvalidLoginMsg=1
|
||||
mtSend_InvalidLoginMsg0="Invalid login request."
|
||||
Count mtSend_InvalidSearchMsg=1
|
||||
mtSend_InvalidSearchMsg0="Invalid search request."
|
||||
Count mtSend_InvalidSelectionMsg=1
|
||||
mtSend_InvalidSelectionMsg0="Invalid selection request."
|
||||
Count mtSend_InvalidInsertMsg=1
|
||||
mtSend_InvalidInsertMsg0="Invalid insert request."
|
||||
Count mtSend_InvalidModifyMsg=1
|
||||
mtSend_InvalidModifyMsg0="Invalid modify request."
|
||||
Count mtFileCrackedMsg=2
|
||||
mtFileCrackedMsg0="This file is cracked."
|
||||
mtFileCrackedMsg1="The application will be closed."
|
||||
Count mtException_LeakMultiFree=1
|
||||
mtException_LeakMultiFree0="Multi Free memory leak."
|
||||
Count mtException_LeakMemoryOverrun=1
|
||||
mtException_LeakMemoryOverrun0="Memory Overrun leak."
|
||||
Count mtException_AntiFreeze=1
|
||||
mtException_AntiFreeze0="The application seems to be frozen."
|
||||
Count mtInvalidEmailMsg=1
|
||||
mtInvalidEmailMsg0="Invalid email."
|
||||
TextsCollection=English
|
||||
EurekaLog Last Line -->
|
||||
@ -0,0 +1,22 @@
|
||||
1 VERSIONINFO
|
||||
FILEVERSION 1,0,0,0
|
||||
PRODUCTVERSION 1,0,0,0
|
||||
FILEFLAGSMASK 0x3FL
|
||||
FILEFLAGS 0x00L
|
||||
FILEOS 0x40004L
|
||||
FILETYPE 0x1L
|
||||
FILESUBTYPE 0x0L
|
||||
BEGIN
|
||||
BLOCK "StringFileInfo"
|
||||
BEGIN
|
||||
BLOCK "0C0A04E4"
|
||||
BEGIN
|
||||
VALUE "FileVersion", "1.0.0.0\0"
|
||||
VALUE "ProductVersion", "1.0.0.0\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
BEGIN
|
||||
VALUE "Translation", 0x0C0A, 1252
|
||||
END
|
||||
END
|
||||
BIN
Source/Modulos/Gestor de informes/Views/GestorInformes_view.res
Normal file
BIN
Source/Modulos/Gestor de informes/Views/GestorInformes_view.res
Normal file
Binary file not shown.
126
Source/Modulos/Gestor de informes/Views/uEditorInformeBase.dfm
Normal file
126
Source/Modulos/Gestor de informes/Views/uEditorInformeBase.dfm
Normal file
@ -0,0 +1,126 @@
|
||||
inherited fEditorInformeBase: TfEditorInformeBase
|
||||
Caption = ''
|
||||
ClientHeight = 483
|
||||
ClientWidth = 787
|
||||
ExplicitWidth = 795
|
||||
ExplicitHeight = 517
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 787
|
||||
ExplicitWidth = 787
|
||||
inherited Image1: TImage
|
||||
Left = 760
|
||||
ExplicitLeft = 760
|
||||
end
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 787
|
||||
ExplicitWidth = 787
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
ExplicitWidth = 787
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Top = 464
|
||||
Width = 787
|
||||
ExplicitTop = 464
|
||||
ExplicitWidth = 787
|
||||
end
|
||||
object TBXMultiDockIzquierdo: TTBXMultiDock [3]
|
||||
Left = 0
|
||||
Top = 102
|
||||
Width = 7
|
||||
Height = 362
|
||||
Position = dpLeft
|
||||
end
|
||||
object TBXMultiDockDerecho: TTBXMultiDock [4]
|
||||
Left = 633
|
||||
Top = 102
|
||||
Width = 154
|
||||
Height = 362
|
||||
Position = dpRight
|
||||
object pnlParametros: TTBXDockablePanel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Caption = 'Par'#225'metros'
|
||||
CloseButton = False
|
||||
CloseButtonWhenDocked = False
|
||||
DefaultDock = TBXMultiDockDerecho
|
||||
DockableTo = [dpLeft, dpRight]
|
||||
DockedWidth = 150
|
||||
DockMode = dmCannotFloat
|
||||
DockPos = 6
|
||||
FloatingWidth = 128
|
||||
FloatingHeight = 128
|
||||
SupportedDocks = [dkStandardDock, dkMultiDock]
|
||||
TabOrder = 0
|
||||
object TBXDockablePanel1: TTBXDockablePanel
|
||||
Left = 0
|
||||
Top = 196
|
||||
MaxClientHeight = 50
|
||||
Align = alBottom
|
||||
Caption = 'TBXDockablePanel1'
|
||||
FloatingWidth = 128
|
||||
FloatingHeight = 128
|
||||
SupportedDocks = [dkStandardDock, dkMultiDock]
|
||||
TabOrder = 0
|
||||
ExplicitTop = 274
|
||||
ExplicitWidth = 128
|
||||
object TBXButton1: TTBXButton
|
||||
Left = 16
|
||||
Top = 12
|
||||
Width = 121
|
||||
Height = 24
|
||||
Action = actRefrescar
|
||||
ImageIndex = 9
|
||||
Images = SmallImages
|
||||
TabOrder = 0
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited frxOLEObject1: TfrxOLEObject
|
||||
Top = 200
|
||||
end
|
||||
inherited frxRichObject1: TfrxRichObject
|
||||
Top = 232
|
||||
end
|
||||
inherited frxCrossObject1: TfrxCrossObject
|
||||
Top = 200
|
||||
end
|
||||
inherited frxCheckBoxObject1: TfrxCheckBoxObject
|
||||
Top = 232
|
||||
end
|
||||
inherited frxDialogControls1: TfrxDialogControls
|
||||
Top = 264
|
||||
end
|
||||
inherited frxTIFFExport1: TfrxTIFFExport
|
||||
Left = 136
|
||||
Top = 152
|
||||
end
|
||||
inherited frxPDFExport1: TfrxPDFExport
|
||||
Left = 176
|
||||
Top = 152
|
||||
end
|
||||
inherited frxBMPExport1: TfrxBMPExport
|
||||
Left = 208
|
||||
Top = 152
|
||||
end
|
||||
inherited frxXLSExport1: TfrxXLSExport
|
||||
Left = 56
|
||||
Top = 152
|
||||
end
|
||||
inherited frxMailExport1: TfrxMailExport
|
||||
Left = 96
|
||||
Top = 152
|
||||
end
|
||||
inherited frxRTFExport: TfrxRTFExport
|
||||
Left = 248
|
||||
Top = 152
|
||||
end
|
||||
inherited frxSimpleTextExport1: TfrxSimpleTextExport
|
||||
Left = 280
|
||||
Top = 152
|
||||
end
|
||||
end
|
||||
@ -0,0 +1,32 @@
|
||||
unit uEditorInformeBase;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, uEditorPreview, frxExportText, frxExportRTF, frxExportMail,
|
||||
frxExportXLS, frxExportImage, frxExportPDF, frxClass, frxDCtrl, frxGradient,
|
||||
frxChBox, frxCross, frxRich, frxOLE, frxBarcode, JvAppStorage,
|
||||
JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, PngImageList,
|
||||
StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems,
|
||||
TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
|
||||
JvExControls, JvNavigationPane, uIEditorInformeBase, TBXDkPanels;
|
||||
|
||||
type
|
||||
TfEditorInformeBase = class(TfEditorPreview, IEditorInformeBase)
|
||||
TBXMultiDockIzquierdo: TTBXMultiDock;
|
||||
TBXMultiDockDerecho: TTBXMultiDock;
|
||||
pnlParametros: TTBXDockablePanel;
|
||||
TBXDockablePanel1: TTBXDockablePanel;
|
||||
TBXButton1: TTBXButton;
|
||||
private
|
||||
{ Private declarations }
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
end.
|
||||
@ -0,0 +1,202 @@
|
||||
inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturasClientePendientesReport
|
||||
Caption = 'fEditorInformeFacturasClientePendientesReport'
|
||||
ClientHeight = 655
|
||||
ClientWidth = 895
|
||||
ExplicitWidth = 903
|
||||
ExplicitHeight = 689
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 895
|
||||
ExplicitWidth = 895
|
||||
inherited Image1: TImage
|
||||
Left = 868
|
||||
ExplicitLeft = 868
|
||||
end
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 895
|
||||
ExplicitWidth = 895
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
ExplicitWidth = 895
|
||||
end
|
||||
inherited TBXToolbar1: TTBXToolbar
|
||||
ExplicitWidth = 591
|
||||
object TBXItem58: TTBXItem [0]
|
||||
Action = actRefrescar
|
||||
DisplayMode = nbdmImageAndText
|
||||
Images = SmallImages
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Top = 636
|
||||
Width = 895
|
||||
ExplicitTop = 636
|
||||
ExplicitWidth = 895
|
||||
end
|
||||
inherited TBXMultiDockIzquierdo: TTBXMultiDock
|
||||
Height = 534
|
||||
ExplicitHeight = 534
|
||||
end
|
||||
inherited TBXMultiDockDerecho: TTBXMultiDock
|
||||
Left = 703
|
||||
Width = 192
|
||||
Height = 534
|
||||
ExplicitLeft = 703
|
||||
ExplicitWidth = 192
|
||||
ExplicitHeight = 534
|
||||
inherited pnlParametros: TTBXDockablePanel
|
||||
DockedWidth = 188
|
||||
ExplicitWidth = 192
|
||||
ExplicitHeight = 518
|
||||
inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0]
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 188
|
||||
Height = 136
|
||||
Align = alTop
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 136
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Width = 182
|
||||
ExplicitWidth = 182
|
||||
inherited cbPeriodo: TcxComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 153
|
||||
Width = 153
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
||||
Width = 182
|
||||
ExplicitWidth = 182
|
||||
inherited Label3: TLabel
|
||||
Width = 85
|
||||
end
|
||||
inherited edtFechaFin: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 99
|
||||
Width = 99
|
||||
end
|
||||
inherited edtFechaIni: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 97
|
||||
Width = 97
|
||||
end
|
||||
end
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
end
|
||||
end
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
Top = 368
|
||||
TabOrder = 2
|
||||
ExplicitTop = 456
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 40
|
||||
inherited TBXButton1: TTBXButton
|
||||
AlignWithMargins = True
|
||||
Left = 3
|
||||
Top = 3
|
||||
Width = 182
|
||||
Height = 37
|
||||
Margins.Left = 8
|
||||
Margins.Top = 8
|
||||
Margins.Right = 8
|
||||
Margins.Bottom = 8
|
||||
Align = alTop
|
||||
ExplicitLeft = 3
|
||||
ExplicitTop = 3
|
||||
ExplicitWidth = 182
|
||||
ExplicitHeight = 37
|
||||
end
|
||||
end
|
||||
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
||||
Left = 0
|
||||
Top = 136
|
||||
Width = 188
|
||||
Height = 77
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
ReadOnly = False
|
||||
ExplicitTop = 136
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 77
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Width = 182
|
||||
ExplicitWidth = 182
|
||||
inherited eImporte: TcxSpinEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
end
|
||||
end
|
||||
end
|
||||
inline frViewFiltroClientes1: TfrViewFiltroClientes
|
||||
Left = 0
|
||||
Top = 213
|
||||
Width = 188
|
||||
Height = 146
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 3
|
||||
ReadOnly = False
|
||||
ExplicitTop = 213
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 146
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
end
|
||||
inherited bElegirCliente: TBitBtn
|
||||
Width = 108
|
||||
ExplicitWidth = 108
|
||||
end
|
||||
inherited edtCliente: TcxTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 141
|
||||
Width = 141
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -0,0 +1,132 @@
|
||||
unit uEditorInformeFacturasClientePendientesReport;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, uEditorPreview, frxExportText, frxExportRTF, frxExportMail,
|
||||
frxExportXLS, frxExportImage, frxExportPDF, frxClass, frxDCtrl, frxGradient,
|
||||
frxChBox, frxCross, frxRich, frxOLE, frxBarcode, JvAppStorage,
|
||||
JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, PngImageList,
|
||||
StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems,
|
||||
TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
|
||||
JvExControls, JvNavigationPane, uCustomView,
|
||||
uViewBase, uViewPeriodoFechas,
|
||||
uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes,
|
||||
FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
|
||||
uIEditorInformeBase, uViewParametrosInforme,
|
||||
uIEditorInformeFacturasClientePendientesReport;
|
||||
|
||||
type
|
||||
TfEditorInformeFacturasClientePendientesReport = class(TfEditorInformeBase, IEditorInformeFacturasClientePendientesReport)
|
||||
TBXItem58: TTBXItem;
|
||||
frViewPeriodoFechas1: TfrViewPeriodoFechas;
|
||||
frViewFiltroImportes1: TfrViewFiltroImportes;
|
||||
frViewFiltroClientes1: TfrViewFiltroClientes;
|
||||
procedure actRefrescarExecute(Sender: TObject);
|
||||
private
|
||||
FListaIDClientes: TIntegerArray;
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetListaIDClientes: TIntegerArray;
|
||||
function GetImporteMinimo: Currency;
|
||||
function GetDesglosadoCliente: Boolean;
|
||||
|
||||
procedure RefrescarInforme;
|
||||
|
||||
public
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||
property ImporteMinimo: Currency read GetImporteMinimo;
|
||||
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
uses uROTypes, uGestorInformesController, uFactuGES_App;
|
||||
|
||||
{ TfEditorGestorInformesReport }
|
||||
|
||||
procedure TfEditorInformeFacturasClientePendientesReport.actRefrescarExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
RefrescarInforme;
|
||||
end;
|
||||
|
||||
constructor TfEditorInformeFacturasClientePendientesReport.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
FListaIDClientes := TIntegerArray.Create;
|
||||
end;
|
||||
|
||||
destructor TfEditorInformeFacturasClientePendientesReport.Destroy;
|
||||
begin
|
||||
FListaIDClientes.Free;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasClientePendientesReport.GetDesglosadoCliente: Boolean;
|
||||
begin
|
||||
if frViewFiltroImportes1.cbxDesglosado.Enabled then
|
||||
Result := frViewFiltroClientes1.cbxDesglosado.Checked
|
||||
else
|
||||
Result := False;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasClientePendientesReport.GetFechaFin: TDateTime;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.Date;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasClientePendientesReport.GetFechaInicio: TDateTime;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaIni.Date;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasClientePendientesReport.GetImporteMinimo: Currency;
|
||||
begin
|
||||
if frViewFiltroImportes1.eImporte.Enabled then
|
||||
Result := frViewFiltroImportes1.eImporte.Value
|
||||
else
|
||||
Result := 0;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasClientePendientesReport.GetListaIDClientes: TIntegerArray;
|
||||
begin
|
||||
FListaIDClientes.Clear;
|
||||
if Assigned(frViewFiltroClientes1.Cliente) then
|
||||
FListaIDClientes.Add(frViewFiltroClientes1.Cliente.ID);
|
||||
|
||||
Result := FListaIDClientes;
|
||||
end;
|
||||
|
||||
procedure TfEditorInformeFacturasClientePendientesReport.RefrescarInforme;
|
||||
var
|
||||
AStream: Binary;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AStream := (Controller as IGestorInformesController).DataModule.GenerarInformeListadoFacturasCliPendientes(
|
||||
AppFactuGES.EmpresaActiva.ID,
|
||||
FechaInicio,
|
||||
FechaFin,
|
||||
ListaIDClientes,
|
||||
DesglosadoCliente,
|
||||
ImporteMinimo);
|
||||
|
||||
LoadFromStream(AStream);
|
||||
Report.ShowPreparedReport;
|
||||
finally
|
||||
FreeAndNil(AStream);
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -0,0 +1,202 @@
|
||||
inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteReport
|
||||
Caption = 'fEditorInformeFacturasClienteReport'
|
||||
ClientHeight = 655
|
||||
ClientWidth = 895
|
||||
ExplicitWidth = 903
|
||||
ExplicitHeight = 689
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 895
|
||||
ExplicitWidth = 895
|
||||
inherited Image1: TImage
|
||||
Left = 868
|
||||
ExplicitLeft = 868
|
||||
end
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 895
|
||||
ExplicitWidth = 895
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
ExplicitWidth = 895
|
||||
end
|
||||
inherited TBXToolbar1: TTBXToolbar
|
||||
ExplicitWidth = 591
|
||||
object TBXItem58: TTBXItem [0]
|
||||
Action = actRefrescar
|
||||
DisplayMode = nbdmImageAndText
|
||||
Images = SmallImages
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Top = 636
|
||||
Width = 895
|
||||
ExplicitTop = 636
|
||||
ExplicitWidth = 895
|
||||
end
|
||||
inherited TBXMultiDockIzquierdo: TTBXMultiDock
|
||||
Height = 534
|
||||
ExplicitHeight = 534
|
||||
end
|
||||
inherited TBXMultiDockDerecho: TTBXMultiDock
|
||||
Left = 703
|
||||
Width = 192
|
||||
Height = 534
|
||||
ExplicitLeft = 703
|
||||
ExplicitWidth = 192
|
||||
ExplicitHeight = 534
|
||||
inherited pnlParametros: TTBXDockablePanel
|
||||
DockedWidth = 188
|
||||
ExplicitWidth = 192
|
||||
ExplicitHeight = 518
|
||||
inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0]
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 188
|
||||
Height = 136
|
||||
Align = alTop
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 136
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Width = 182
|
||||
ExplicitWidth = 182
|
||||
inherited cbPeriodo: TcxComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 153
|
||||
Width = 153
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
||||
Width = 182
|
||||
ExplicitWidth = 182
|
||||
inherited Label3: TLabel
|
||||
Width = 85
|
||||
end
|
||||
inherited edtFechaFin: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 99
|
||||
Width = 99
|
||||
end
|
||||
inherited edtFechaIni: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 97
|
||||
Width = 97
|
||||
end
|
||||
end
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
end
|
||||
end
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
Top = 368
|
||||
TabOrder = 2
|
||||
ExplicitTop = 440
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 50
|
||||
inherited TBXButton1: TTBXButton
|
||||
AlignWithMargins = True
|
||||
Left = 3
|
||||
Top = 3
|
||||
Width = 182
|
||||
Height = 37
|
||||
Margins.Left = 8
|
||||
Margins.Top = 8
|
||||
Margins.Right = 8
|
||||
Margins.Bottom = 8
|
||||
Align = alTop
|
||||
ExplicitLeft = 3
|
||||
ExplicitTop = 3
|
||||
ExplicitWidth = 182
|
||||
ExplicitHeight = 37
|
||||
end
|
||||
end
|
||||
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
||||
Left = 0
|
||||
Top = 136
|
||||
Width = 188
|
||||
Height = 77
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
ReadOnly = False
|
||||
ExplicitTop = 136
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 77
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Width = 182
|
||||
ExplicitWidth = 182
|
||||
inherited eImporte: TcxSpinEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
end
|
||||
end
|
||||
end
|
||||
inline frViewFiltroClientes1: TfrViewFiltroClientes
|
||||
Left = 0
|
||||
Top = 213
|
||||
Width = 188
|
||||
Height = 146
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 3
|
||||
ReadOnly = False
|
||||
ExplicitTop = 213
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 146
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
end
|
||||
inherited bElegirCliente: TBitBtn
|
||||
Width = 108
|
||||
ExplicitWidth = 108
|
||||
end
|
||||
inherited edtCliente: TcxTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 141
|
||||
Width = 141
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -0,0 +1,131 @@
|
||||
unit uEditorInformeFacturasClienteReport;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, uEditorPreview, frxExportText, frxExportRTF, frxExportMail,
|
||||
frxExportXLS, frxExportImage, frxExportPDF, frxClass, frxDCtrl, frxGradient,
|
||||
frxChBox, frxCross, frxRich, frxOLE, frxBarcode, JvAppStorage,
|
||||
JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, PngImageList,
|
||||
StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems,
|
||||
TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
|
||||
JvExControls, JvNavigationPane, uCustomView,
|
||||
uViewBase, uViewPeriodoFechas,
|
||||
uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes,
|
||||
FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
|
||||
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeFacturasClienteReport;
|
||||
|
||||
type
|
||||
TfEditorInformeFacturasClienteReport = class(TfEditorInformeBase, IEditorInformeFacturasClienteReport)
|
||||
TBXItem58: TTBXItem;
|
||||
frViewPeriodoFechas1: TfrViewPeriodoFechas;
|
||||
frViewFiltroImportes1: TfrViewFiltroImportes;
|
||||
frViewFiltroClientes1: TfrViewFiltroClientes;
|
||||
procedure actRefrescarExecute(Sender: TObject);
|
||||
private
|
||||
FListaIDClientes: TIntegerArray;
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetListaIDClientes: TIntegerArray;
|
||||
function GetImporteMinimo: Currency;
|
||||
function GetDesglosadoCliente: Boolean;
|
||||
|
||||
procedure RefrescarInforme;
|
||||
|
||||
public
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||
property ImporteMinimo: Currency read GetImporteMinimo;
|
||||
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
uses uROTypes, uGestorInformesController, uFactuGES_App;
|
||||
|
||||
{ TfEditorGestorInformesReport }
|
||||
|
||||
procedure TfEditorInformeFacturasClienteReport.actRefrescarExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
RefrescarInforme;
|
||||
end;
|
||||
|
||||
constructor TfEditorInformeFacturasClienteReport.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
FListaIDClientes := TIntegerArray.Create;
|
||||
end;
|
||||
|
||||
destructor TfEditorInformeFacturasClienteReport.Destroy;
|
||||
begin
|
||||
FListaIDClientes.Free;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasClienteReport.GetDesglosadoCliente: Boolean;
|
||||
begin
|
||||
if frViewFiltroImportes1.cbxDesglosado.Enabled then
|
||||
Result := frViewFiltroClientes1.cbxDesglosado.Checked
|
||||
else
|
||||
Result := False;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasClienteReport.GetFechaFin: TDateTime;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.Date;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasClienteReport.GetFechaInicio: TDateTime;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaIni.Date;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasClienteReport.GetImporteMinimo: Currency;
|
||||
begin
|
||||
if frViewFiltroImportes1.eImporte.Enabled then
|
||||
Result := frViewFiltroImportes1.eImporte.Value
|
||||
else
|
||||
Result := 0;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasClienteReport.GetListaIDClientes: TIntegerArray;
|
||||
begin
|
||||
FListaIDClientes.Clear;
|
||||
if Assigned(frViewFiltroClientes1.Cliente) then
|
||||
FListaIDClientes.Add(frViewFiltroClientes1.Cliente.ID);
|
||||
|
||||
Result := FListaIDClientes;
|
||||
end;
|
||||
|
||||
procedure TfEditorInformeFacturasClienteReport.RefrescarInforme;
|
||||
var
|
||||
AStream: Binary;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AStream := (Controller as IGestorInformesController).DataModule.GenerarInformeListadoFacturasCli(
|
||||
AppFactuGES.EmpresaActiva.ID,
|
||||
FechaInicio,
|
||||
FechaFin,
|
||||
ListaIDClientes,
|
||||
DesglosadoCliente,
|
||||
ImporteMinimo);
|
||||
|
||||
LoadFromStream(AStream);
|
||||
Report.ShowPreparedReport;
|
||||
finally
|
||||
FreeAndNil(AStream);
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -0,0 +1,201 @@
|
||||
inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFacturasProveedorPendientesReport
|
||||
Caption = 'fEditorInformeFacturasProveedorPendientesReport'
|
||||
ClientHeight = 655
|
||||
ClientWidth = 895
|
||||
ExplicitWidth = 903
|
||||
ExplicitHeight = 689
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 895
|
||||
ExplicitWidth = 895
|
||||
inherited Image1: TImage
|
||||
Left = 868
|
||||
ExplicitLeft = 868
|
||||
end
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 895
|
||||
ExplicitWidth = 895
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
ExplicitWidth = 895
|
||||
end
|
||||
inherited TBXToolbar1: TTBXToolbar
|
||||
ExplicitWidth = 591
|
||||
object TBXItem58: TTBXItem [0]
|
||||
Action = actRefrescar
|
||||
DisplayMode = nbdmImageAndText
|
||||
Images = SmallImages
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Top = 636
|
||||
Width = 895
|
||||
ExplicitTop = 636
|
||||
ExplicitWidth = 895
|
||||
end
|
||||
inherited TBXMultiDockIzquierdo: TTBXMultiDock
|
||||
Height = 534
|
||||
ExplicitHeight = 534
|
||||
end
|
||||
inherited TBXMultiDockDerecho: TTBXMultiDock
|
||||
Left = 703
|
||||
Width = 192
|
||||
Height = 534
|
||||
ExplicitLeft = 703
|
||||
ExplicitWidth = 192
|
||||
ExplicitHeight = 534
|
||||
inherited pnlParametros: TTBXDockablePanel
|
||||
DockedWidth = 188
|
||||
ExplicitWidth = 192
|
||||
ExplicitHeight = 518
|
||||
inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0]
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 188
|
||||
Height = 136
|
||||
Align = alTop
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 136
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Width = 182
|
||||
ExplicitWidth = 182
|
||||
inherited cbPeriodo: TcxComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 153
|
||||
Width = 153
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
||||
Width = 182
|
||||
ExplicitWidth = 182
|
||||
inherited Label3: TLabel
|
||||
Width = 172
|
||||
end
|
||||
inherited edtFechaFin: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 99
|
||||
Width = 99
|
||||
end
|
||||
inherited edtFechaIni: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 97
|
||||
Width = 97
|
||||
end
|
||||
end
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
end
|
||||
end
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
Top = 368
|
||||
TabOrder = 2
|
||||
ExplicitTop = 368
|
||||
ExplicitWidth = 188
|
||||
inherited TBXButton1: TTBXButton
|
||||
AlignWithMargins = True
|
||||
Left = 3
|
||||
Top = 3
|
||||
Width = 182
|
||||
Height = 37
|
||||
Margins.Left = 8
|
||||
Margins.Top = 8
|
||||
Margins.Right = 8
|
||||
Margins.Bottom = 8
|
||||
Align = alTop
|
||||
ExplicitLeft = 3
|
||||
ExplicitTop = 3
|
||||
ExplicitWidth = 182
|
||||
ExplicitHeight = 37
|
||||
end
|
||||
end
|
||||
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
||||
Left = 0
|
||||
Top = 136
|
||||
Width = 188
|
||||
Height = 77
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
ReadOnly = False
|
||||
ExplicitTop = 136
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 77
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Width = 182
|
||||
ExplicitWidth = 182
|
||||
inherited eImporte: TcxSpinEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
end
|
||||
end
|
||||
end
|
||||
inline frViewFiltroProveedores1: TfrViewFiltroProveedores
|
||||
Left = 0
|
||||
Top = 213
|
||||
Width = 188
|
||||
Height = 146
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 3
|
||||
ReadOnly = False
|
||||
ExplicitTop = 213
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 146
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
end
|
||||
inherited bElegirProveedor: TBitBtn
|
||||
Width = 108
|
||||
ExplicitWidth = 108
|
||||
end
|
||||
inherited edtProveedor: TcxTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 141
|
||||
Width = 141
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -0,0 +1,132 @@
|
||||
unit uEditorInformeFacturasProveedorPendientesReport;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, uEditorPreview, frxExportText, frxExportRTF, frxExportMail,
|
||||
frxExportXLS, frxExportImage, frxExportPDF, frxClass, frxDCtrl, frxGradient,
|
||||
frxChBox, frxCross, frxRich, frxOLE, frxBarcode, JvAppStorage,
|
||||
JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, PngImageList,
|
||||
StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems,
|
||||
TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
|
||||
JvExControls, JvNavigationPane, uCustomView,
|
||||
uViewBase, uViewPeriodoFechas,
|
||||
uViewFiltroProveedores, dxLayoutControl, cxControls, uViewFiltroImportes,
|
||||
FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
|
||||
uIEditorInformeBase, uViewParametrosInforme,
|
||||
uIEditorInformeFacturasProveedorPendientesReport;
|
||||
|
||||
type
|
||||
TfEditorInformeFacturasProveedorPendientesReport = class(TfEditorInformeBase, IEditorInformeFacturasProveedorPendientesReport)
|
||||
TBXItem58: TTBXItem;
|
||||
frViewPeriodoFechas1: TfrViewPeriodoFechas;
|
||||
frViewFiltroImportes1: TfrViewFiltroImportes;
|
||||
frViewFiltroProveedores1: TfrViewFiltroProveedores;
|
||||
procedure actRefrescarExecute(Sender: TObject);
|
||||
private
|
||||
FListaIDProveedores: TIntegerArray;
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetListaIDProveedores: TIntegerArray;
|
||||
function GetImporteMinimo: Currency;
|
||||
function GetDesglosadoProveedor: Boolean;
|
||||
|
||||
procedure RefrescarInforme;
|
||||
|
||||
public
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
||||
property ImporteMinimo: Currency read GetImporteMinimo;
|
||||
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
uses uROTypes, uGestorInformesController, uFactuGES_App;
|
||||
|
||||
{ TfEditorGestorInformesReport }
|
||||
|
||||
procedure TfEditorInformeFacturasProveedorPendientesReport.actRefrescarExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
RefrescarInforme;
|
||||
end;
|
||||
|
||||
constructor TfEditorInformeFacturasProveedorPendientesReport.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
FListaIDProveedores := TIntegerArray.Create;
|
||||
end;
|
||||
|
||||
destructor TfEditorInformeFacturasProveedorPendientesReport.Destroy;
|
||||
begin
|
||||
FListaIDProveedores.Free;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasProveedorPendientesReport.GetDesglosadoProveedor: Boolean;
|
||||
begin
|
||||
if frViewFiltroImportes1.cbxDesglosado.Enabled then
|
||||
Result := frViewFiltroProveedores1.cbxDesglosado.Checked
|
||||
else
|
||||
Result := False;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasProveedorPendientesReport.GetFechaFin: TDateTime;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.Date;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasProveedorPendientesReport.GetFechaInicio: TDateTime;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaIni.Date;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasProveedorPendientesReport.GetImporteMinimo: Currency;
|
||||
begin
|
||||
if frViewFiltroImportes1.eImporte.Enabled then
|
||||
Result := frViewFiltroImportes1.eImporte.Value
|
||||
else
|
||||
Result := 0;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasProveedorPendientesReport.GetListaIDProveedores: TIntegerArray;
|
||||
begin
|
||||
FListaIDProveedores.Clear;
|
||||
if Assigned(frViewFiltroProveedores1.Proveedor) then
|
||||
FListaIDProveedores.Add(frViewFiltroProveedores1.Proveedor.ID);
|
||||
|
||||
Result := FListaIDProveedores;
|
||||
end;
|
||||
|
||||
procedure TfEditorInformeFacturasProveedorPendientesReport.RefrescarInforme;
|
||||
var
|
||||
AStream: Binary;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AStream := (Controller as IGestorInformesController).DataModule.GenerarInformeListadoFacturasProvPendientes(
|
||||
AppFactuGES.EmpresaActiva.ID,
|
||||
FechaInicio,
|
||||
FechaFin,
|
||||
ListaIDProveedores,
|
||||
DesglosadoProveedor,
|
||||
ImporteMinimo);
|
||||
|
||||
LoadFromStream(AStream);
|
||||
Report.ShowPreparedReport;
|
||||
finally
|
||||
FreeAndNil(AStream);
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -0,0 +1,201 @@
|
||||
inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedorReport
|
||||
Caption = 'fEditorInformeFacturasProveedorReport'
|
||||
ClientHeight = 655
|
||||
ClientWidth = 895
|
||||
ExplicitWidth = 903
|
||||
ExplicitHeight = 689
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 895
|
||||
ExplicitWidth = 895
|
||||
inherited Image1: TImage
|
||||
Left = 868
|
||||
ExplicitLeft = 868
|
||||
end
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 895
|
||||
ExplicitWidth = 895
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
ExplicitWidth = 895
|
||||
end
|
||||
inherited TBXToolbar1: TTBXToolbar
|
||||
ExplicitWidth = 591
|
||||
object TBXItem58: TTBXItem [0]
|
||||
Action = actRefrescar
|
||||
DisplayMode = nbdmImageAndText
|
||||
Images = SmallImages
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Top = 636
|
||||
Width = 895
|
||||
ExplicitTop = 636
|
||||
ExplicitWidth = 895
|
||||
end
|
||||
inherited TBXMultiDockIzquierdo: TTBXMultiDock
|
||||
Height = 534
|
||||
ExplicitHeight = 534
|
||||
end
|
||||
inherited TBXMultiDockDerecho: TTBXMultiDock
|
||||
Left = 703
|
||||
Width = 192
|
||||
Height = 534
|
||||
ExplicitLeft = 703
|
||||
ExplicitWidth = 192
|
||||
ExplicitHeight = 534
|
||||
inherited pnlParametros: TTBXDockablePanel
|
||||
DockedWidth = 188
|
||||
ExplicitWidth = 192
|
||||
ExplicitHeight = 518
|
||||
inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0]
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 188
|
||||
Height = 136
|
||||
Align = alTop
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 136
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Width = 182
|
||||
ExplicitWidth = 182
|
||||
inherited cbPeriodo: TcxComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 153
|
||||
Width = 153
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
||||
Width = 182
|
||||
ExplicitWidth = 182
|
||||
inherited Label3: TLabel
|
||||
Width = 172
|
||||
end
|
||||
inherited edtFechaFin: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 99
|
||||
Width = 99
|
||||
end
|
||||
inherited edtFechaIni: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 97
|
||||
Width = 97
|
||||
end
|
||||
end
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
end
|
||||
end
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
Top = 368
|
||||
TabOrder = 2
|
||||
ExplicitTop = 368
|
||||
ExplicitWidth = 188
|
||||
inherited TBXButton1: TTBXButton
|
||||
AlignWithMargins = True
|
||||
Left = 3
|
||||
Top = 3
|
||||
Width = 182
|
||||
Height = 37
|
||||
Margins.Left = 8
|
||||
Margins.Top = 8
|
||||
Margins.Right = 8
|
||||
Margins.Bottom = 8
|
||||
Align = alTop
|
||||
ExplicitLeft = 3
|
||||
ExplicitTop = 3
|
||||
ExplicitWidth = 182
|
||||
ExplicitHeight = 37
|
||||
end
|
||||
end
|
||||
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
||||
Left = 0
|
||||
Top = 136
|
||||
Width = 188
|
||||
Height = 77
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
ReadOnly = False
|
||||
ExplicitTop = 136
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 77
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Width = 182
|
||||
ExplicitWidth = 182
|
||||
inherited eImporte: TcxSpinEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
end
|
||||
end
|
||||
end
|
||||
inline frViewFiltroProveedores1: TfrViewFiltroProveedores
|
||||
Left = 0
|
||||
Top = 213
|
||||
Width = 188
|
||||
Height = 146
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 3
|
||||
ReadOnly = False
|
||||
ExplicitTop = 213
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 146
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
end
|
||||
inherited bElegirProveedor: TBitBtn
|
||||
Width = 108
|
||||
ExplicitWidth = 108
|
||||
end
|
||||
inherited edtProveedor: TcxTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 141
|
||||
Width = 141
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -0,0 +1,131 @@
|
||||
unit uEditorInformeFacturasProveedorReport;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, uEditorPreview, frxExportText, frxExportRTF, frxExportMail,
|
||||
frxExportXLS, frxExportImage, frxExportPDF, frxClass, frxDCtrl, frxGradient,
|
||||
frxChBox, frxCross, frxRich, frxOLE, frxBarcode, JvAppStorage,
|
||||
JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, PngImageList,
|
||||
StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems,
|
||||
TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
|
||||
JvExControls, JvNavigationPane, uCustomView,
|
||||
uViewBase, uViewPeriodoFechas,
|
||||
uViewFiltroProveedores, dxLayoutControl, cxControls, uViewFiltroImportes,
|
||||
FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
|
||||
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeFacturasProveedorReport;
|
||||
|
||||
type
|
||||
TfEditorInformeFacturasProveedorReport = class(TfEditorInformeBase, IEditorInformeFacturasProveedorReport)
|
||||
TBXItem58: TTBXItem;
|
||||
frViewPeriodoFechas1: TfrViewPeriodoFechas;
|
||||
frViewFiltroImportes1: TfrViewFiltroImportes;
|
||||
frViewFiltroProveedores1: TfrViewFiltroProveedores;
|
||||
procedure actRefrescarExecute(Sender: TObject);
|
||||
private
|
||||
FListaIDProveedores: TIntegerArray;
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetListaIDProveedores: TIntegerArray;
|
||||
function GetImporteMinimo: Currency;
|
||||
function GetDesglosadoProveedor: Boolean;
|
||||
|
||||
procedure RefrescarInforme;
|
||||
|
||||
public
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
||||
property ImporteMinimo: Currency read GetImporteMinimo;
|
||||
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
uses uROTypes, uGestorInformesController, uFactuGES_App;
|
||||
|
||||
{ TfEditorGestorInformesReport }
|
||||
|
||||
procedure TfEditorInformeFacturasProveedorReport.actRefrescarExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
RefrescarInforme;
|
||||
end;
|
||||
|
||||
constructor TfEditorInformeFacturasProveedorReport.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
FListaIDProveedores := TIntegerArray.Create;
|
||||
end;
|
||||
|
||||
destructor TfEditorInformeFacturasProveedorReport.Destroy;
|
||||
begin
|
||||
FListaIDProveedores.Free;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasProveedorReport.GetDesglosadoProveedor: Boolean;
|
||||
begin
|
||||
if frViewFiltroImportes1.cbxDesglosado.Enabled then
|
||||
Result := frViewFiltroProveedores1.cbxDesglosado.Checked
|
||||
else
|
||||
Result := False;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasProveedorReport.GetFechaFin: TDateTime;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.Date;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasProveedorReport.GetFechaInicio: TDateTime;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaIni.Date;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasProveedorReport.GetImporteMinimo: Currency;
|
||||
begin
|
||||
if frViewFiltroImportes1.eImporte.Enabled then
|
||||
Result := frViewFiltroImportes1.eImporte.Value
|
||||
else
|
||||
Result := 0;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasProveedorReport.GetListaIDProveedores: TIntegerArray;
|
||||
begin
|
||||
FListaIDProveedores.Clear;
|
||||
if Assigned(frViewFiltroProveedores1.Proveedor) then
|
||||
FListaIDProveedores.Add(frViewFiltroProveedores1.Proveedor.ID);
|
||||
|
||||
Result := FListaIDProveedores;
|
||||
end;
|
||||
|
||||
procedure TfEditorInformeFacturasProveedorReport.RefrescarInforme;
|
||||
var
|
||||
AStream: Binary;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AStream := (Controller as IGestorInformesController).DataModule.GenerarInformeListadoFacturasProv(
|
||||
AppFactuGES.EmpresaActiva.ID,
|
||||
FechaInicio,
|
||||
FechaFin,
|
||||
ListaIDProveedores,
|
||||
DesglosadoProveedor,
|
||||
ImporteMinimo);
|
||||
|
||||
LoadFromStream(AStream);
|
||||
Report.ShowPreparedReport;
|
||||
finally
|
||||
FreeAndNil(AStream);
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -0,0 +1,201 @@
|
||||
inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
|
||||
Caption = 'fEditorInformeIVAClientesReport'
|
||||
ClientHeight = 655
|
||||
ClientWidth = 895
|
||||
ExplicitWidth = 903
|
||||
ExplicitHeight = 689
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 895
|
||||
ExplicitWidth = 895
|
||||
inherited Image1: TImage
|
||||
Left = 868
|
||||
ExplicitLeft = 868
|
||||
end
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 895
|
||||
ExplicitWidth = 895
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
ExplicitWidth = 895
|
||||
end
|
||||
inherited TBXToolbar1: TTBXToolbar
|
||||
ExplicitWidth = 591
|
||||
object TBXItem58: TTBXItem [0]
|
||||
Action = actRefrescar
|
||||
DisplayMode = nbdmImageAndText
|
||||
Images = SmallImages
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Top = 636
|
||||
Width = 895
|
||||
ExplicitTop = 636
|
||||
ExplicitWidth = 895
|
||||
end
|
||||
inherited TBXMultiDockIzquierdo: TTBXMultiDock
|
||||
Height = 534
|
||||
ExplicitHeight = 534
|
||||
end
|
||||
inherited TBXMultiDockDerecho: TTBXMultiDock
|
||||
Left = 703
|
||||
Width = 192
|
||||
Height = 534
|
||||
ExplicitLeft = 703
|
||||
ExplicitWidth = 192
|
||||
ExplicitHeight = 534
|
||||
inherited pnlParametros: TTBXDockablePanel
|
||||
DockedWidth = 188
|
||||
ExplicitWidth = 192
|
||||
ExplicitHeight = 518
|
||||
inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0]
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 188
|
||||
Height = 136
|
||||
Align = alTop
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 136
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Width = 182
|
||||
ExplicitWidth = 182
|
||||
inherited cbPeriodo: TcxComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 153
|
||||
Width = 153
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
||||
Width = 182
|
||||
ExplicitWidth = 182
|
||||
inherited Label3: TLabel
|
||||
Width = 172
|
||||
end
|
||||
inherited edtFechaFin: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 99
|
||||
Width = 99
|
||||
end
|
||||
inherited edtFechaIni: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 97
|
||||
Width = 97
|
||||
end
|
||||
end
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
end
|
||||
end
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
Top = 368
|
||||
TabOrder = 2
|
||||
ExplicitTop = 368
|
||||
ExplicitWidth = 188
|
||||
inherited TBXButton1: TTBXButton
|
||||
AlignWithMargins = True
|
||||
Left = 3
|
||||
Top = 3
|
||||
Width = 182
|
||||
Height = 37
|
||||
Margins.Left = 8
|
||||
Margins.Top = 8
|
||||
Margins.Right = 8
|
||||
Margins.Bottom = 8
|
||||
Align = alTop
|
||||
ExplicitLeft = 3
|
||||
ExplicitTop = 3
|
||||
ExplicitWidth = 182
|
||||
ExplicitHeight = 37
|
||||
end
|
||||
end
|
||||
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
||||
Left = 0
|
||||
Top = 136
|
||||
Width = 188
|
||||
Height = 77
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
ReadOnly = False
|
||||
ExplicitTop = 136
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 77
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Width = 182
|
||||
ExplicitWidth = 182
|
||||
inherited eImporte: TcxSpinEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
end
|
||||
end
|
||||
end
|
||||
inline frViewFiltroClientes1: TfrViewFiltroClientes
|
||||
Left = 0
|
||||
Top = 213
|
||||
Width = 188
|
||||
Height = 146
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 3
|
||||
ReadOnly = False
|
||||
ExplicitTop = 213
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 146
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
end
|
||||
inherited bElegirCliente: TBitBtn
|
||||
Width = 108
|
||||
ExplicitWidth = 108
|
||||
end
|
||||
inherited edtCliente: TcxTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 141
|
||||
Width = 141
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -0,0 +1,131 @@
|
||||
unit uEditorInformeIVAClientesReport;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, uEditorPreview, frxExportText, frxExportRTF, frxExportMail,
|
||||
frxExportXLS, frxExportImage, frxExportPDF, frxClass, frxDCtrl, frxGradient,
|
||||
frxChBox, frxCross, frxRich, frxOLE, frxBarcode, JvAppStorage,
|
||||
JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, PngImageList,
|
||||
StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems,
|
||||
TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
|
||||
JvExControls, JvNavigationPane, uCustomView,
|
||||
uViewBase, uViewPeriodoFechas,
|
||||
uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes,
|
||||
FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
|
||||
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeIVAClientesReport;
|
||||
|
||||
type
|
||||
TfEditorInformeIVAClientesReport = class(TfEditorInformeBase, IEditorInformeIVAClientesReport)
|
||||
TBXItem58: TTBXItem;
|
||||
frViewPeriodoFechas1: TfrViewPeriodoFechas;
|
||||
frViewFiltroImportes1: TfrViewFiltroImportes;
|
||||
frViewFiltroClientes1: TfrViewFiltroClientes;
|
||||
procedure actRefrescarExecute(Sender: TObject);
|
||||
private
|
||||
FListaIDClientes: TIntegerArray;
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetListaIDClientes: TIntegerArray;
|
||||
function GetImporteMinimo: Currency;
|
||||
function GetDesglosadoCliente: Boolean;
|
||||
|
||||
procedure RefrescarInforme;
|
||||
|
||||
public
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||
property ImporteMinimo: Currency read GetImporteMinimo;
|
||||
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
uses uROTypes, uGestorInformesController, uFactuGES_App;
|
||||
|
||||
{ TfEditorGestorInformesReport }
|
||||
|
||||
procedure TfEditorInformeIVAClientesReport.actRefrescarExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
RefrescarInforme;
|
||||
end;
|
||||
|
||||
constructor TfEditorInformeIVAClientesReport.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
FListaIDClientes := TIntegerArray.Create;
|
||||
end;
|
||||
|
||||
destructor TfEditorInformeIVAClientesReport.Destroy;
|
||||
begin
|
||||
FListaIDClientes.Free;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TfEditorInformeIVAClientesReport.GetDesglosadoCliente: Boolean;
|
||||
begin
|
||||
if frViewFiltroImportes1.cbxDesglosado.Enabled then
|
||||
Result := frViewFiltroClientes1.cbxDesglosado.Checked
|
||||
else
|
||||
Result := False;
|
||||
end;
|
||||
|
||||
function TfEditorInformeIVAClientesReport.GetFechaFin: TDateTime;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.Date;
|
||||
end;
|
||||
|
||||
function TfEditorInformeIVAClientesReport.GetFechaInicio: TDateTime;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaIni.Date;
|
||||
end;
|
||||
|
||||
function TfEditorInformeIVAClientesReport.GetImporteMinimo: Currency;
|
||||
begin
|
||||
if frViewFiltroImportes1.eImporte.Enabled then
|
||||
Result := frViewFiltroImportes1.eImporte.Value
|
||||
else
|
||||
Result := 0;
|
||||
end;
|
||||
|
||||
function TfEditorInformeIVAClientesReport.GetListaIDClientes: TIntegerArray;
|
||||
begin
|
||||
FListaIDClientes.Clear;
|
||||
if Assigned(frViewFiltroClientes1.Cliente) then
|
||||
FListaIDClientes.Add(frViewFiltroClientes1.Cliente.ID);
|
||||
|
||||
Result := FListaIDClientes;
|
||||
end;
|
||||
|
||||
procedure TfEditorInformeIVAClientesReport.RefrescarInforme;
|
||||
var
|
||||
AStream: Binary;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AStream := (Controller as IGestorInformesController).DataModule.GenerarInformeIVAClientes(
|
||||
AppFactuGES.EmpresaActiva.ID,
|
||||
FechaInicio,
|
||||
FechaFin,
|
||||
ListaIDClientes,
|
||||
DesglosadoCliente,
|
||||
ImporteMinimo);
|
||||
|
||||
LoadFromStream(AStream);
|
||||
Report.ShowPreparedReport;
|
||||
finally
|
||||
FreeAndNil(AStream);
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -0,0 +1,201 @@
|
||||
inherited fEditorInformeIVAProveedoresReport: TfEditorInformeIVAProveedoresReport
|
||||
Caption = 'fEditorInformeIVAProveedoresReport'
|
||||
ClientHeight = 655
|
||||
ClientWidth = 895
|
||||
ExplicitWidth = 903
|
||||
ExplicitHeight = 689
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 895
|
||||
ExplicitWidth = 895
|
||||
inherited Image1: TImage
|
||||
Left = 868
|
||||
ExplicitLeft = 868
|
||||
end
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 895
|
||||
ExplicitWidth = 895
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
ExplicitWidth = 895
|
||||
end
|
||||
inherited TBXToolbar1: TTBXToolbar
|
||||
ExplicitWidth = 591
|
||||
object TBXItem58: TTBXItem [0]
|
||||
Action = actRefrescar
|
||||
DisplayMode = nbdmImageAndText
|
||||
Images = SmallImages
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Top = 636
|
||||
Width = 895
|
||||
ExplicitTop = 636
|
||||
ExplicitWidth = 895
|
||||
end
|
||||
inherited TBXMultiDockIzquierdo: TTBXMultiDock
|
||||
Height = 534
|
||||
ExplicitHeight = 534
|
||||
end
|
||||
inherited TBXMultiDockDerecho: TTBXMultiDock
|
||||
Left = 703
|
||||
Width = 192
|
||||
Height = 534
|
||||
ExplicitLeft = 703
|
||||
ExplicitWidth = 192
|
||||
ExplicitHeight = 534
|
||||
inherited pnlParametros: TTBXDockablePanel
|
||||
DockedWidth = 188
|
||||
ExplicitWidth = 192
|
||||
ExplicitHeight = 518
|
||||
inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0]
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 188
|
||||
Height = 136
|
||||
Align = alTop
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 136
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Width = 182
|
||||
ExplicitWidth = 182
|
||||
inherited cbPeriodo: TcxComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 153
|
||||
Width = 153
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
||||
Width = 182
|
||||
ExplicitWidth = 182
|
||||
inherited Label3: TLabel
|
||||
Width = 85
|
||||
end
|
||||
inherited edtFechaFin: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 99
|
||||
Width = 99
|
||||
end
|
||||
inherited edtFechaIni: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 97
|
||||
Width = 97
|
||||
end
|
||||
end
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
end
|
||||
end
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
Top = 368
|
||||
TabOrder = 2
|
||||
ExplicitTop = 368
|
||||
ExplicitWidth = 188
|
||||
inherited TBXButton1: TTBXButton
|
||||
AlignWithMargins = True
|
||||
Left = 3
|
||||
Top = 3
|
||||
Width = 182
|
||||
Height = 37
|
||||
Margins.Left = 8
|
||||
Margins.Top = 8
|
||||
Margins.Right = 8
|
||||
Margins.Bottom = 8
|
||||
Align = alTop
|
||||
ExplicitLeft = 3
|
||||
ExplicitTop = 3
|
||||
ExplicitWidth = 182
|
||||
ExplicitHeight = 37
|
||||
end
|
||||
end
|
||||
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
||||
Left = 0
|
||||
Top = 136
|
||||
Width = 188
|
||||
Height = 77
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
ReadOnly = False
|
||||
ExplicitTop = 136
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 77
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Width = 182
|
||||
ExplicitWidth = 182
|
||||
inherited eImporte: TcxSpinEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
end
|
||||
end
|
||||
end
|
||||
inline frViewFiltroProveedores1: TfrViewFiltroProveedores
|
||||
Left = 0
|
||||
Top = 213
|
||||
Width = 188
|
||||
Height = 146
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 3
|
||||
ReadOnly = False
|
||||
ExplicitTop = 213
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 146
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
end
|
||||
inherited bElegirProveedor: TBitBtn
|
||||
Width = 108
|
||||
ExplicitWidth = 108
|
||||
end
|
||||
inherited edtProveedor: TcxTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 141
|
||||
Width = 141
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -0,0 +1,131 @@
|
||||
unit uEditorInformeIVAProveedoresReport;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, uEditorPreview, frxExportText, frxExportRTF, frxExportMail,
|
||||
frxExportXLS, frxExportImage, frxExportPDF, frxClass, frxDCtrl, frxGradient,
|
||||
frxChBox, frxCross, frxRich, frxOLE, frxBarcode, JvAppStorage,
|
||||
JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, PngImageList,
|
||||
StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems,
|
||||
TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
|
||||
JvExControls, JvNavigationPane, uCustomView,
|
||||
uViewBase, uViewPeriodoFechas,
|
||||
uViewFiltroProveedores, dxLayoutControl, cxControls, uViewFiltroImportes,
|
||||
FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
|
||||
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeIVAProveedoresReport;
|
||||
|
||||
type
|
||||
TfEditorInformeIVAProveedoresReport = class(TfEditorInformeBase, IEditorInformeIVAProveedoresReport)
|
||||
TBXItem58: TTBXItem;
|
||||
frViewPeriodoFechas1: TfrViewPeriodoFechas;
|
||||
frViewFiltroImportes1: TfrViewFiltroImportes;
|
||||
frViewFiltroProveedores1: TfrViewFiltroProveedores;
|
||||
procedure actRefrescarExecute(Sender: TObject);
|
||||
private
|
||||
FListaIDProveedores: TIntegerArray;
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetListaIDProveedores: TIntegerArray;
|
||||
function GetImporteMinimo: Currency;
|
||||
function GetDesglosadoProveedor: Boolean;
|
||||
|
||||
procedure RefrescarInforme;
|
||||
|
||||
public
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
||||
property ImporteMinimo: Currency read GetImporteMinimo;
|
||||
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
uses uROTypes, uGestorInformesController, uFactuGES_App;
|
||||
|
||||
{ TfEditorGestorInformesReport }
|
||||
|
||||
procedure TfEditorInformeIVAProveedoresReport.actRefrescarExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
RefrescarInforme;
|
||||
end;
|
||||
|
||||
constructor TfEditorInformeIVAProveedoresReport.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
FListaIDProveedores := TIntegerArray.Create;
|
||||
end;
|
||||
|
||||
destructor TfEditorInformeIVAProveedoresReport.Destroy;
|
||||
begin
|
||||
FListaIDProveedores.Free;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TfEditorInformeIVAProveedoresReport.GetDesglosadoProveedor: Boolean;
|
||||
begin
|
||||
if frViewFiltroImportes1.cbxDesglosado.Enabled then
|
||||
Result := frViewFiltroProveedores1.cbxDesglosado.Checked
|
||||
else
|
||||
Result := False;
|
||||
end;
|
||||
|
||||
function TfEditorInformeIVAProveedoresReport.GetFechaFin: TDateTime;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.Date;
|
||||
end;
|
||||
|
||||
function TfEditorInformeIVAProveedoresReport.GetFechaInicio: TDateTime;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaIni.Date;
|
||||
end;
|
||||
|
||||
function TfEditorInformeIVAProveedoresReport.GetImporteMinimo: Currency;
|
||||
begin
|
||||
if frViewFiltroImportes1.eImporte.Enabled then
|
||||
Result := frViewFiltroImportes1.eImporte.Value
|
||||
else
|
||||
Result := 0;
|
||||
end;
|
||||
|
||||
function TfEditorInformeIVAProveedoresReport.GetListaIDProveedores: TIntegerArray;
|
||||
begin
|
||||
FListaIDProveedores.Clear;
|
||||
if Assigned(frViewFiltroProveedores1.Proveedor) then
|
||||
FListaIDProveedores.Add(frViewFiltroProveedores1.Proveedor.ID);
|
||||
|
||||
Result := FListaIDProveedores;
|
||||
end;
|
||||
|
||||
procedure TfEditorInformeIVAProveedoresReport.RefrescarInforme;
|
||||
var
|
||||
AStream: Binary;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AStream := (Controller as IGestorInformesController).DataModule.GenerarInformeIVAProveedores(
|
||||
AppFactuGES.EmpresaActiva.ID,
|
||||
FechaInicio,
|
||||
FechaFin,
|
||||
ListaIDProveedores,
|
||||
DesglosadoProveedor,
|
||||
ImporteMinimo);
|
||||
|
||||
LoadFromStream(AStream);
|
||||
Report.ShowPreparedReport;
|
||||
finally
|
||||
FreeAndNil(AStream);
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -0,0 +1,201 @@
|
||||
inherited fEditorInformePresupuestosReport: TfEditorInformePresupuestosReport
|
||||
Caption = 'fEditorInformePresupuestosReport'
|
||||
ClientHeight = 655
|
||||
ClientWidth = 895
|
||||
ExplicitWidth = 903
|
||||
ExplicitHeight = 689
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 895
|
||||
ExplicitWidth = 895
|
||||
inherited Image1: TImage
|
||||
Left = 868
|
||||
ExplicitLeft = 868
|
||||
end
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 895
|
||||
ExplicitWidth = 895
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
ExplicitWidth = 895
|
||||
end
|
||||
inherited TBXToolbar1: TTBXToolbar
|
||||
ExplicitWidth = 591
|
||||
object TBXItem58: TTBXItem [0]
|
||||
Action = actRefrescar
|
||||
DisplayMode = nbdmImageAndText
|
||||
Images = SmallImages
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Top = 636
|
||||
Width = 895
|
||||
ExplicitTop = 636
|
||||
ExplicitWidth = 895
|
||||
end
|
||||
inherited TBXMultiDockIzquierdo: TTBXMultiDock
|
||||
Height = 534
|
||||
ExplicitHeight = 534
|
||||
end
|
||||
inherited TBXMultiDockDerecho: TTBXMultiDock
|
||||
Left = 703
|
||||
Width = 192
|
||||
Height = 534
|
||||
ExplicitLeft = 703
|
||||
ExplicitWidth = 192
|
||||
ExplicitHeight = 534
|
||||
inherited pnlParametros: TTBXDockablePanel
|
||||
DockedWidth = 188
|
||||
ExplicitWidth = 192
|
||||
ExplicitHeight = 518
|
||||
inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0]
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 188
|
||||
Height = 136
|
||||
Align = alTop
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 136
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Width = 182
|
||||
ExplicitWidth = 182
|
||||
inherited cbPeriodo: TcxComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 153
|
||||
Width = 153
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
||||
Width = 182
|
||||
ExplicitWidth = 182
|
||||
inherited Label3: TLabel
|
||||
Width = 85
|
||||
end
|
||||
inherited edtFechaFin: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 99
|
||||
Width = 99
|
||||
end
|
||||
inherited edtFechaIni: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 97
|
||||
Width = 97
|
||||
end
|
||||
end
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
end
|
||||
end
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
Top = 368
|
||||
TabOrder = 2
|
||||
ExplicitTop = 368
|
||||
ExplicitWidth = 188
|
||||
inherited TBXButton1: TTBXButton
|
||||
AlignWithMargins = True
|
||||
Left = 3
|
||||
Top = 3
|
||||
Width = 182
|
||||
Height = 37
|
||||
Margins.Left = 8
|
||||
Margins.Top = 8
|
||||
Margins.Right = 8
|
||||
Margins.Bottom = 8
|
||||
Align = alTop
|
||||
ExplicitLeft = 3
|
||||
ExplicitTop = 3
|
||||
ExplicitWidth = 182
|
||||
ExplicitHeight = 37
|
||||
end
|
||||
end
|
||||
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
||||
Left = 0
|
||||
Top = 136
|
||||
Width = 188
|
||||
Height = 77
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
ReadOnly = False
|
||||
ExplicitTop = 136
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 77
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Width = 182
|
||||
ExplicitWidth = 182
|
||||
inherited eImporte: TcxSpinEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
end
|
||||
end
|
||||
end
|
||||
inline frViewFiltroClientes1: TfrViewFiltroClientes
|
||||
Left = 0
|
||||
Top = 213
|
||||
Width = 188
|
||||
Height = 146
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 3
|
||||
ReadOnly = False
|
||||
ExplicitTop = 213
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 146
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
end
|
||||
inherited bElegirCliente: TBitBtn
|
||||
Width = 108
|
||||
ExplicitWidth = 108
|
||||
end
|
||||
inherited edtCliente: TcxTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 141
|
||||
Width = 141
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -0,0 +1,131 @@
|
||||
unit uEditorInformePresupuestosReport;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, uEditorPreview, frxExportText, frxExportRTF, frxExportMail,
|
||||
frxExportXLS, frxExportImage, frxExportPDF, frxClass, frxDCtrl, frxGradient,
|
||||
frxChBox, frxCross, frxRich, frxOLE, frxBarcode, JvAppStorage,
|
||||
JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, PngImageList,
|
||||
StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems,
|
||||
TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
|
||||
JvExControls, JvNavigationPane, uCustomView,
|
||||
uViewBase, uViewPeriodoFechas,
|
||||
uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes,
|
||||
FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
|
||||
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformePresupuestosReport;
|
||||
|
||||
type
|
||||
TfEditorInformePresupuestosReport = class(TfEditorInformeBase, IEditorInformePresupuestosReport)
|
||||
TBXItem58: TTBXItem;
|
||||
frViewPeriodoFechas1: TfrViewPeriodoFechas;
|
||||
frViewFiltroImportes1: TfrViewFiltroImportes;
|
||||
frViewFiltroClientes1: TfrViewFiltroClientes;
|
||||
procedure actRefrescarExecute(Sender: TObject);
|
||||
private
|
||||
FListaIDClientes: TIntegerArray;
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetListaIDClientes: TIntegerArray;
|
||||
function GetImporteMinimo: Currency;
|
||||
function GetDesglosadoCliente: Boolean;
|
||||
|
||||
procedure RefrescarInforme;
|
||||
|
||||
public
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||
property ImporteMinimo: Currency read GetImporteMinimo;
|
||||
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
uses uROTypes, uGestorInformesController, uFactuGES_App;
|
||||
|
||||
{ TfEditorGestorInformesReport }
|
||||
|
||||
procedure TfEditorInformePresupuestosReport.actRefrescarExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
RefrescarInforme;
|
||||
end;
|
||||
|
||||
constructor TfEditorInformePresupuestosReport.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
FListaIDClientes := TIntegerArray.Create;
|
||||
end;
|
||||
|
||||
destructor TfEditorInformePresupuestosReport.Destroy;
|
||||
begin
|
||||
FListaIDClientes.Free;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TfEditorInformePresupuestosReport.GetDesglosadoCliente: Boolean;
|
||||
begin
|
||||
if frViewFiltroImportes1.cbxDesglosado.Enabled then
|
||||
Result := frViewFiltroClientes1.cbxDesglosado.Checked
|
||||
else
|
||||
Result := False;
|
||||
end;
|
||||
|
||||
function TfEditorInformePresupuestosReport.GetFechaFin: TDateTime;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.Date;
|
||||
end;
|
||||
|
||||
function TfEditorInformePresupuestosReport.GetFechaInicio: TDateTime;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaIni.Date;
|
||||
end;
|
||||
|
||||
function TfEditorInformePresupuestosReport.GetImporteMinimo: Currency;
|
||||
begin
|
||||
if frViewFiltroImportes1.eImporte.Enabled then
|
||||
Result := frViewFiltroImportes1.eImporte.Value
|
||||
else
|
||||
Result := 0;
|
||||
end;
|
||||
|
||||
function TfEditorInformePresupuestosReport.GetListaIDClientes: TIntegerArray;
|
||||
begin
|
||||
FListaIDClientes.Clear;
|
||||
if Assigned(frViewFiltroClientes1.Cliente) then
|
||||
FListaIDClientes.Add(frViewFiltroClientes1.Cliente.ID);
|
||||
|
||||
Result := FListaIDClientes;
|
||||
end;
|
||||
|
||||
procedure TfEditorInformePresupuestosReport.RefrescarInforme;
|
||||
var
|
||||
AStream: Binary;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AStream := (Controller as IGestorInformesController).DataModule.GenerarInformeListadoPresupuestos(
|
||||
AppFactuGES.EmpresaActiva.ID,
|
||||
FechaInicio,
|
||||
FechaFin,
|
||||
ListaIDClientes,
|
||||
DesglosadoCliente,
|
||||
ImporteMinimo);
|
||||
|
||||
LoadFromStream(AStream);
|
||||
Report.ShowPreparedReport;
|
||||
finally
|
||||
FreeAndNil(AStream);
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue
Block a user