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

Se adaptan totalmente los informes de la versión anterior a multiempresa

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@102 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
roberto 2010-11-25 12:03:41 +00:00
parent 4197838077
commit fa3ab29e53
38 changed files with 9737 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
Source/Modulos/Informe margen por articulo/Data/InfMargenArticulo_data.drc Normal file
View File

@ -0,0 +1,17 @@
/* VER185
Generated by the CodeGear Delphi Pascal Compiler
because -GD or --drc was supplied to the compiler.
This file contains compiler-generated resources that
were bound to the executable.
If this file is empty, then no compiler-generated
resources were bound to the produced executable.
*/
STRINGTABLE
BEGIN
END
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Data\uDataModuleInfMargenArticulo.DFM */
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Data\InfMargenArticulo_data.res */
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Data\InfMargenArticulo_data.drf */

492
Source/Modulos/Informes base/Views/InformesBase_view.bdsproj Normal file
View File

@ -0,0 +1,492 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<PersonalityInfo>
<Option>
<Option Name="Personality">Delphi.Personality</Option>
<Option Name="ProjectType"></Option>
<Option Name="Version">1.0</Option>
<Option Name="GUID">{4269F0A2-B81F-47F7-A014-F7F28BC5BB79}</Option>
</Option>
</PersonalityInfo>
<Delphi.Personality>
<Source>
<Source Name="MainSource">InformesBase_view.dpk</Source>
</Source>
<FileVersion>
<FileVersion Name="Version">7.0</FileVersion>
</FileVersion>
<Compiler>
<Compiler Name="A">8</Compiler>
<Compiler Name="B">0</Compiler>
<Compiler Name="C">1</Compiler>
<Compiler Name="D">1</Compiler>
<Compiler Name="E">0</Compiler>
<Compiler Name="F">0</Compiler>
<Compiler Name="G">1</Compiler>
<Compiler Name="H">1</Compiler>
<Compiler Name="I">1</Compiler>
<Compiler Name="J">0</Compiler>
<Compiler Name="K">0</Compiler>
<Compiler Name="L">1</Compiler>
<Compiler Name="M">0</Compiler>
<Compiler Name="N">1</Compiler>
<Compiler Name="O">1</Compiler>
<Compiler Name="P">1</Compiler>
<Compiler Name="Q">0</Compiler>
<Compiler Name="R">0</Compiler>
<Compiler Name="S">0</Compiler>
<Compiler Name="T">0</Compiler>
<Compiler Name="U">0</Compiler>
<Compiler Name="V">1</Compiler>
<Compiler Name="W">0</Compiler>
<Compiler Name="X">1</Compiler>
<Compiler Name="Y">1</Compiler>
<Compiler Name="Z">1</Compiler>
<Compiler Name="ShowHints">True</Compiler>
<Compiler Name="ShowWarnings">True</Compiler>
<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
<Compiler Name="NamespacePrefix"></Compiler>
<Compiler Name="GenerateDocumentation">False</Compiler>
<Compiler Name="DefaultNamespace"></Compiler>
<Compiler Name="SymbolDeprecated">True</Compiler>
<Compiler Name="SymbolLibrary">True</Compiler>
<Compiler Name="SymbolPlatform">True</Compiler>
<Compiler Name="SymbolExperimental">True</Compiler>
<Compiler Name="UnitLibrary">True</Compiler>
<Compiler Name="UnitPlatform">True</Compiler>
<Compiler Name="UnitDeprecated">True</Compiler>
<Compiler Name="UnitExperimental">True</Compiler>
<Compiler Name="HResultCompat">True</Compiler>
<Compiler Name="HidingMember">True</Compiler>
<Compiler Name="HiddenVirtual">True</Compiler>
<Compiler Name="Garbage">True</Compiler>
<Compiler Name="BoundsError">True</Compiler>
<Compiler Name="ZeroNilCompat">True</Compiler>
<Compiler Name="StringConstTruncated">True</Compiler>
<Compiler Name="ForLoopVarVarPar">True</Compiler>
<Compiler Name="TypedConstVarPar">True</Compiler>
<Compiler Name="AsgToTypedConst">True</Compiler>
<Compiler Name="CaseLabelRange">True</Compiler>
<Compiler Name="ForVariable">True</Compiler>
<Compiler Name="ConstructingAbstract">True</Compiler>
<Compiler Name="ComparisonFalse">True</Compiler>
<Compiler Name="ComparisonTrue">True</Compiler>
<Compiler Name="ComparingSignedUnsigned">True</Compiler>
<Compiler Name="CombiningSignedUnsigned">True</Compiler>
<Compiler Name="UnsupportedConstruct">True</Compiler>
<Compiler Name="FileOpen">True</Compiler>
<Compiler Name="FileOpenUnitSrc">True</Compiler>
<Compiler Name="BadGlobalSymbol">True</Compiler>
<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
<Compiler Name="InvalidDirective">True</Compiler>
<Compiler Name="PackageNoLink">True</Compiler>
<Compiler Name="PackageThreadVar">True</Compiler>
<Compiler Name="ImplicitImport">True</Compiler>
<Compiler Name="HPPEMITIgnored">True</Compiler>
<Compiler Name="NoRetVal">True</Compiler>
<Compiler Name="UseBeforeDef">True</Compiler>
<Compiler Name="ForLoopVarUndef">True</Compiler>
<Compiler Name="UnitNameMismatch">True</Compiler>
<Compiler Name="NoCFGFileFound">True</Compiler>
<Compiler Name="ImplicitVariants">True</Compiler>
<Compiler Name="UnicodeToLocale">True</Compiler>
<Compiler Name="LocaleToUnicode">True</Compiler>
<Compiler Name="ImagebaseMultiple">True</Compiler>
<Compiler Name="SuspiciousTypecast">True</Compiler>
<Compiler Name="PrivatePropAccessor">True</Compiler>
<Compiler Name="UnsafeType">False</Compiler>
<Compiler Name="UnsafeCode">False</Compiler>
<Compiler Name="UnsafeCast">False</Compiler>
<Compiler Name="OptionTruncated">True</Compiler>
<Compiler Name="WideCharReduced">True</Compiler>
<Compiler Name="DuplicatesIgnored">True</Compiler>
<Compiler Name="UnitInitSeq">True</Compiler>
<Compiler Name="LocalPInvoke">True</Compiler>
<Compiler Name="MessageDirective">True</Compiler>
<Compiler Name="CodePage"></Compiler>
</Compiler>
<Linker>
<Linker Name="MapFile">0</Linker>
<Linker Name="OutputObjs">0</Linker>
<Linker Name="GenerateHpps">False</Linker>
<Linker Name="ConsoleApp">1</Linker>
<Linker Name="DebugInfo">False</Linker>
<Linker Name="RemoteSymbols">False</Linker>
<Linker Name="GenerateDRC">False</Linker>
<Linker Name="MinStackSize">16384</Linker>
<Linker Name="MaxStackSize">1048576</Linker>
<Linker Name="ImageBase">4194304</Linker>
<Linker Name="ExeDescription"></Linker>
</Linker>
<Directories>
<Directories Name="OutputDir"></Directories>
<Directories Name="UnitOutputDir">.\</Directories>
<Directories Name="PackageDLLOutputDir">..\..\..\..\Output\Debug\Cliente</Directories>
<Directories Name="PackageDCPOutputDir">..\..\Lib</Directories>
<Directories Name="SearchPath">..\..\..\Lib;..\..\Lib</Directories>
<Directories Name="Packages"></Directories>
<Directories Name="Conditionals"></Directories>
<Directories Name="DebugSourceDirs"></Directories>
<Directories Name="UsePackages">False</Directories>
</Directories>
<Parameters>
<Parameters Name="RunParams"></Parameters>
<Parameters Name="HostApplication"></Parameters>
<Parameters Name="Launcher"></Parameters>
<Parameters Name="UseLauncher">False</Parameters>
<Parameters Name="DebugCWD"></Parameters>
<Parameters Name="Debug Symbols Search Path"></Parameters>
<Parameters Name="LoadAllSymbols">True</Parameters>
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
</Parameters>
<Language>
<Language Name="ActiveLang"></Language>
<Language Name="ProjectLang">$00000000</Language>
<Language Name="RootDir"></Language>
</Language>
<VersionInfo>
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">1</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
<VersionInfo Name="Special">False</VersionInfo>
<VersionInfo Name="Private">False</VersionInfo>
<VersionInfo Name="DLL">False</VersionInfo>
<VersionInfo Name="Locale">3082</VersionInfo>
<VersionInfo Name="CodePage">1252</VersionInfo>
</VersionInfo>
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName"></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>
</Delphi.Personality>
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=519
Activate=0
Activate Handle=1
Save Log File=1
Foreground Tab=0
Freeze Activate=0
Freeze Timeout=60
Freeze Message=The application seems to be frozen.
SMTP From=eurekalog@email.com
SMTP Host=
SMTP Port=25
SMTP UserID=
SMTP Password=
Append to Log=0
Show TerminateBtn=1
TerminateBtn Operation=1
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=1
AutoCrashNumber=10
AutoCrashMinutes=1
WebURL=
WebUserID=
WebPassword=
WebPort=0
AttachedFiles=
Count=0
EMail Message Line Count=0
loNoDuplicateErrors=0
loAppendReproduceText=0
loDeleteLogAtVersionChange=0
loAddComputerNameInLogFileName=0
loSaveModulesSection=1
loSaveCPUSection=1
soAppStartDate=1
soAppName=1
soAppVersionNumber=1
soAppParameters=1
soAppCompilationDate=1
soExcDate=1
soExcAddress=1
soExcModule=1
soExcType=1
soExcMessage=1
soActCtlsFormClass=1
soActCtlsFormText=1
soActCtlsControlClass=1
soActCtlsControlText=1
soCmpName=1
soCmpUser=1
soCmpTotalMemory=1
soCmpFreeMemory=1
soCmpTotalDisk=1
soCmpFreeDisk=1
soCmpSysUpTime=1
soCmpProcessor=1
soCmpDisplayMode=1
soOSType=1
soOSBuildN=1
soOSUpdate=1
soOSLanguage=1
soNetIP=1
soNetSubmask=1
soNetGateway=1
soNetDNS1=1
soNetDNS2=1
soNetDHCP=1
sndShowSendDialog=1
sndShowSuccessFailureMsg=0
sndSendEntireLog=0
sndSendXMLLogCopy=0
sndSendScreenshot=1
sndUseOnlyActiveWindow=0
sndSendLastHTMLPage=1
sndSendInSeparatedThread=0
sndAddDateInFileName=0
sndCompressAllFiles=0
edoShowExceptionDialog=1
edoSendEmailChecked=1
edoAttachScreenshotChecked=1
edoShowCopyToClipOption=1
edoShowDetailsButton=1
edoShowInDetailedMode=0
edoShowInTopMostMode=0
edoUseEurekaLogLookAndFeel=0
csoShowDLLs=1
csoShowBPLs=1
csoShowBorlandThreads=1
csoShowWindowsThreads=1
csoShowProcedureOffset=0
boActivateCrashDetection=0
boPauseBorlandThreads=0
boDoNotPauseMainThread=0
boPauseWindowsThreads=0
boUseMainModuleOptions=1
boCopyLogInCaseOfError=1
boSaveCompressedCopyInCaseOfError=0
Count mtInformationMsgCaption=1
mtInformationMsgCaption0="Information."
Count mtQuestionMsgCaption=1
mtQuestionMsgCaption0="Question."
Count mtDialog_Caption=1
mtDialog_Caption0="Error."
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_CPUCaption=1
mtDialog_CPUCaption0="CPU"
Count mtDialog_CPUHeader=1
mtDialog_CPUHeader0="CPU Information"
Count mtDialog_CustomDataCaption=1
mtDialog_CustomDataCaption0="Other"
Count mtDialog_CustomDataHeader=1
mtDialog_CustomDataHeader0="Other 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_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 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_ExcHeader=1
mtLog_ExcHeader0="Exception"
Count mtLog_ExcDate=1
mtLog_ExcDate0="Date"
Count mtLog_ExcAddress=1
mtLog_ExcAddress0="Address"
Count mtLog_ExcModule=1
mtLog_ExcModule0="Module"
Count mtLog_ExcType=1
mtLog_ExcType0="Type"
Count mtLog_ExcMessage=1
mtLog_ExcMessage0="Message"
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_CmpUser=1
mtLog_CmpUser0="User"
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_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_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 mtSendDialog_Caption=1
mtSendDialog_Caption0="Send."
Count mtSendDialog_Message=1
mtSendDialog_Message0="Message"
Count mtSendDialog_Resolving=1
mtSendDialog_Resolving0="Resolving DNS..."
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 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 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."
EurekaLog Last Line -->
</BorlandProject>

46
Source/Modulos/Informes base/Views/InformesBase_view.dpk Normal file
View File

@ -0,0 +1,46 @@
package InformesBase_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 ON}
requires
Informes_model,
GUIBase,
ApplicationBase,
cxVerticalGridD11,
JvGlobusD11R;
contains
uViewInformeBaseGrid in 'uViewInformeBaseGrid.pas' {frViewInformeBaseGrid: TFrame},
uViewInformeBaseParametros in 'uViewInformeBaseParametros.pas' {frViewInformeBaseParametros: TFrame},
uViewColumnas in 'uViewColumnas.pas' {frViewColumnas: TFrame},
uViewAgrupaciones in 'uViewAgrupaciones.pas' {frViewAgrupaciones: TFrame},
uViewSumarios in 'uViewSumarios.pas' {frViewSumarios: TFrame},
uViewFiltros in 'uViewFiltros.pas' {frViewFiltros: TFrame},
uViewInformeBase in 'uViewInformeBase.pas' {frViewInformeBase: TFrame},
uEditorInformeBase in 'uEditorInformeBase.pas' {fEditorInformeBase: TfEditorInformeBase},
uViewPeriodoFechas in 'uViewPeriodoFechas.pas' {frViewPeriodoFechas: TFrame},
uFormPropiedadesInforme in 'uFormPropiedadesInforme.pas';
end.

590
Source/Modulos/Informes base/Views/InformesBase_view.dproj Normal file
View File

@ -0,0 +1,590 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{4269f0a2-b81f-47f7-a014-f7f28bc5bb79}</ProjectGuid>
<MainSource>InformesBase_view.dpk</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\InformesBase_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_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>
<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">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">InformesBase_view.dpk</Source></Source><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\cxVerticalGridD11.bpl">ExpressVerticalGrid by Developer Express Inc.</Excluded_Packages>
</Excluded_Packages></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="InformesBase_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="ApplicationBase.dcp" />
<DCCReference Include="cxVerticalGridD11.dcp" />
<DCCReference Include="GUIBase.dcp" />
<DCCReference Include="Informes_model.dcp" />
<DCCReference Include="JvGlobusD11R.dcp" />
<DCCReference Include="uEditorInformeBase.pas">
<Form>fEditorInformeBase</Form>
<DesignClass>TfEditorInformeBase</DesignClass>
</DCCReference>
<DCCReference Include="uFormPropiedadesInforme.pas" />
<DCCReference Include="uViewAgrupaciones.pas">
<Form>frViewAgrupaciones</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewColumnas.pas">
<Form>frViewColumnas</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewFiltros.pas">
<Form>frViewFiltros</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewInformeBase.pas">
<Form>frViewInformeBase</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewInformeBaseGrid.pas">
<Form>frViewInformeBaseGrid</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewInformeBaseParametros.pas">
<Form>frViewInformeBaseParametros</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewPeriodoFechas.pas">
<Form>frViewPeriodoFechas</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewSumarios.pas">
<Form>frViewSumarios</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
</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 -->

22
Source/Modulos/Informes base/Views/InformesBase_view.rc Normal file
View File

@ -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/Informes base/Views/InformesBase_view.res Normal file
View File

Binary file not shown.

602
Source/Modulos/Informes base/Views/Informes_view.dproj Normal file
View File

@ -0,0 +1,602 @@
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{7678d139-6be7-4479-88a2-d88f84d39b56}</ProjectGuid>
<MainSource>Informes_view.dpk</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\Informes_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_MapFile>3</DCC_MapFile>
<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>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<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">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>
<Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
</Excluded_Packages>
<Source>
<Source Name="MainSource">Informes_view.dpk</Source>
</Source>
</Delphi.Personality> </BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="Informes_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Lib\InformesBase_controller.dcp" />
<DCCReference Include="..\..\Lib\InformesBase_view.dcp" />
<DCCReference Include="..\..\Lib\Informes_controller.dcp" />
<DCCReference Include="uEditorInformes.pas">
<Form>fEditorInformes</Form>
<DesignClass>TfEditorInformes</DesignClass>
</DCCReference>
<DCCReference Include="uInformesViewRegister.pas" />
<DCCReference Include="uViewInformes.pas">
<Form>frViewInformes</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
</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 -->

18
Source/Modulos/Informes base/Views/Informes_view.drc Normal file
View File

@ -0,0 +1,18 @@
/* VER185
Generated by the CodeGear Delphi Pascal Compiler
because -GD or --drc was supplied to the compiler.
This file contains compiler-generated resources that
were bound to the executable.
If this file is empty, then no compiler-generated
resources were bound to the produced executable.
*/
STRINGTABLE
BEGIN
END
/* C:\Codigo\Source\Modulos\Informes base\Views\uViewInformes.dfm */
/* C:\Codigo\Source\Modulos\Informes base\Views\uEditorInformes.dfm */
/* C:\Codigo\Source\Modulos\Informes base\Views\Informes_view.res */
/* C:\Codigo\Source\Modulos\Informes base\Views\Informes_view.drf */

22
Source/Modulos/Informes base/Views/Informes_view.rc Normal file
View File

@ -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/Informes base/Views/Informes_view.res Normal file
View File

Binary file not shown.

1380
Source/Modulos/Informes base/Views/uEditorInformeBase.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

246
Source/Modulos/Informes base/Views/uEditorInformeBase.pas Normal file
View File

@ -0,0 +1,246 @@
unit uEditorInformeBase;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uEditorDBItem, DB, uDADataTable, JvAppStorage,
JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList,
PngImageList, StdActns, ActnList, ComCtrls, TBX, TB2Item, TB2Dock,
TB2Toolbar, ExtCtrls, JvExControls, JvComponent, JvNavigationPane,
uBizInformes, schInformesClient_Intf, uViewInformeBase, JvExComCtrls,
JvStatusBar, pngimage, TB2ExtItems, TBXExtItems, uDAInterfaces, cxControls,
cxContainer, cxEdit, cxLabel;
type
IEditorInformeBase = interface(IEditorDBItem)
['{E8DB0818-75F8-4575-A30E-25B6599A757F}']
function GetInforme: IBizInforme;
procedure SetInforme(const Value: IBizInforme);
property Informe: IBizInforme read GetInforme write SetInforme;
end;
TfEditorInformeBase = class(TfEditorDBItem, IEditorInformeBase)
actPropiedades: TAction;
TBXSeparatorItem14: TTBXSeparatorItem;
tbxiPropiedades: TTBXItem;
tbxiPropiedades2: TTBXItem;
tbxFiltro: TTBXToolbar;
TBXLabelItem1: TTBXLabelItem;
tbxEditFiltro: TTBXEditItem;
TBXItem34: TTBXItem;
actQuitarFiltro: TAction;
procedure actPropiedadesExecute(Sender: TObject);
procedure actGuardarCerrarUpdate(Sender: TObject);
procedure actGuardarUpdate(Sender: TObject);
procedure actPrevisualizarExecute(Sender: TObject);
procedure actImprimirExecute(Sender: TObject);
procedure actEliminarExecute(Sender: TObject);
procedure actQuitarFiltroExecute(Sender: TObject);
procedure tbxEditFiltroChange(Sender: TObject; const Text: string);
private
procedure ComprobarPrivilegios;
protected
Cadena:string;
FInforme : IBizInforme;
FViewInforme : IViewInformeBase;
function GetInforme: IBizInforme; virtual;
procedure SetInforme(const Value: IBizInforme); virtual;
procedure RellenarCabeceraInforme; virtual;
function GetModified: Boolean; override;
procedure RestaurarConfiguracion; virtual;
public
procedure PonerTitulos(const ATitulo: string = ''); override;
property Informe: IBizInforme read GetInforme write SetInforme;
end;
implementation
uses
uEditorDBBase, uEditorBase, uDataModuleUsuarios, uFormPropiedadesInforme,
uViewGridBase, cxFilter, uFactuGES_App;
{$R *.dfm}
{ TfEditorControlBase }
function TfEditorInformeBase.GetInforme: IBizInforme;
begin
Result := FInforme;
end;
function TfEditorInformeBase.GetModified: Boolean;
begin
if (AppFactuGES.UsuarioActivo.LOGIN <> 'admin') then
Result := False
else
Result := inherited GetModified;
end;
procedure TfEditorInformeBase.SetInforme(const Value: IBizInforme);
begin
FInforme := Value;
dsDataTable.DataTable := FInforme.DataTable;
ComprobarPrivilegios;
if Assigned(FViewInforme) then
FViewInforme.Informe := FInforme;
end;
procedure TfEditorInformeBase.tbxEditFiltroChange(Sender: TObject; const Text: string);
begin
inherited;
if not Assigned(FViewInforme) then
Exit;
if Length(Text) > 0 then
begin
//La aplicación de los filtros aqui cambia el orden, ya que antes de aplicar el filtro establecido en el
//campo de filtro por el usuario hay que aplicar el propio del informe por ello siempre antes de aplicar el filtro
//que desea el usuario restauramos la configuración inicial.
RestaurarConfiguracion;
FViewInforme.Filter := Text
end
else
actQuitarFiltro.Execute;
end;
procedure TfEditorInformeBase.actPropiedadesExecute(Sender: TObject);
begin
inherited;
with TfrPropiedadesInforme.Create(NIL) do
try
Nombre := FInforme.NOMBRE;
Descripcion := FInforme.DESCRIPCION;
Modificable := True; //FInforme.EsModificable;
Icono := FInforme.ICONO;
if (ShowModal = mrOK) then
begin
FInforme.DataTable.Edit;
FInforme.NOMBRE := Nombre;
FInforme.DESCRIPCION := Descripcion;
FInforme.ICONO := Icono;
if Modificable then
FInforme.MODIFICABLE := 'S'
else
FInforme.MODIFICABLE := 'N';
end;
finally
Free;
ActualizarEstadoEditor;
// FViewInforme.Modificable := FInforme.EsModificable;
end;
end;
procedure TfEditorInformeBase.actQuitarFiltroExecute(Sender: TObject);
begin
inherited;
if Assigned(FViewInforme) then
begin
tbxEditFiltro.Text := '';
FViewInforme.Filter := '';
//Esto al igual que en resto de las partes cambiará ya que siempre que se quite el filtro
//se debe limpiar para que no queden rastros y restaurar la configuración del informe con el filtro
//de dicho informe
FViewInforme._FocusedView.DataController.Filter.Root.Clear;
RestaurarConfiguracion;
end;
end;
procedure TfEditorInformeBase.ComprobarPrivilegios;
begin
if (AppFactuGES.UsuarioActivo.LOGIN <> 'admin') then
begin
actGuardarCerrar.Enabled := False;
actGuardarCerrar.Visible := False;
actGuardar.Enabled := False;
actGuardar.Visible := False;
actEliminar.Enabled := False;
actEliminar.Visible := False;
actPropiedades.Enabled := False;
actPropiedades.Visible := False;
end;
end;
{
function TfEditorInformeBase.GetModified: Boolean;
begin
Result := inherited GetModified and
(Assigned(FInforme) and FInforme.EsModificable);
end;
}
procedure TfEditorInformeBase.PonerTitulos(const ATitulo: string);
var
FTitulo : String;
begin
FTitulo := ATitulo;
if (FTitulo = '') and Assigned(FInforme) then
begin
if FInforme.EsNuevo then
FTitulo := 'Nuevo informe' + ' - ' + FInforme.NOMBRE
else
FTitulo := 'Informe ' + ' - ' + FInforme.NOMBRE;
end;
inherited PonerTitulos(FTitulo);
Self.Caption := FTitulo + ' (' + AppFactuGES.EmpresaActiva.NOMBRE + ')';
end;
procedure TfEditorInformeBase.actGuardarCerrarUpdate(Sender: TObject);
begin
inherited;
// (Sender as TAction).Enabled := Assigned(FInforme) and (FInforme.EsModificable);
end;
procedure TfEditorInformeBase.actGuardarUpdate(Sender: TObject);
begin
inherited;
// (Sender as TAction).Enabled := Assigned(FInforme) and (FInforme.EsModificable);
end;
procedure TfEditorInformeBase.actPrevisualizarExecute(Sender: TObject);
begin
RellenarCabeceraInforme;
inherited;
end;
procedure TfEditorInformeBase.RellenarCabeceraInforme;
begin
inherited;
//
end;
procedure TfEditorInformeBase.RestaurarConfiguracion;
begin
//
end;
procedure TfEditorInformeBase.actImprimirExecute(Sender: TObject);
begin
RellenarCabeceraInforme;
inherited;
end;
procedure TfEditorInformeBase.actEliminarExecute(Sender: TObject);
begin
{
if not FInforme.EsModificable then
ShowMessage('Este control no se puede eliminar')
else
inherited
}
end;
end.

1432
Source/Modulos/Informes base/Views/uEditorInformes.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

220
Source/Modulos/Informes base/Views/uEditorInformes.pas Normal file
View File

@ -0,0 +1,220 @@
unit uEditorInformes;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uEditorDBBase, Menus, DB, uDADataTable, JvAppStorage,
JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList,
PngImageList, StdActns, ActnList, ComCtrls, TB2ExtItems, TBXExtItems,
TBX, TB2Item, TB2Dock, TB2Toolbar, ExtCtrls, JvExControls, JvComponent,
JvNavigationPane, pngimage, uBizInformes, uEditorBase,
uViewInformes, JvExComCtrls, JvStatusBar, uIEditorInformes, uInformesController,
uCustomView, uViewBase, JSDialog, uDAInterfaces;
type
TfEditorInformes = class(TfEditorDBBase, IEditorInformes)
ViewPopupMenu: TPopupMenu;
Modificar1: TMenuItem;
Eliminar1: TMenuItem;
N1: TMenuItem;
Nuevo1: TMenuItem;
pngImageNuevo: TPngImageList;
actPropiedades: TAction;
TBXSeparatorItem14: TTBXSeparatorItem;
TBXItem7: TTBXItem;
N2: TMenuItem;
Propiedades1: TMenuItem;
frViewInformes1: TfrViewInformes;
procedure actModificarExecute(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure actPropiedadesExecute(Sender: TObject);
procedure actPropiedadesUpdate(Sender: TObject);
private
procedure ComprobarPrivilegios;
protected
FInformes : IBizInforme;
FController : IInformesController;
FViewInformes : IViewInformes;
function GetInformes: IBizInforme;
procedure SetInformes(const Value: IBizInforme);
function GetController: IInformesController;
procedure SetController(const Value: IInformesController);
procedure NuevoInterno; override;
procedure EliminarInterno; override;
procedure RefrescarInterno; override;
public
property Informes: IBizInforme read GetInformes write SetInformes;
property Controller: IInformesController read GetController write SetController;
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end;
implementation
{$R *.dfm}
{ TfEditorInformes }
uses uDataModuleUsuarios, uFactuGES_App;
function TfEditorInformes.GetController: IInformesController;
begin
Result := FController;
end;
function TfEditorInformes.GetInformes: IBizInforme;
begin
Result := FInformes;
end;
procedure TfEditorInformes.NuevoInterno;
var
Respuesta: integer;
Opcion: integer;
i: integer;
begin
try
Respuesta := frViewInformes1.JsNuevoDialog.Execute;
if Respuesta <> IDCANCEL then
begin
frViewInformes1.JsNuevoDialog.CustomButtonResult;
Opcion := frViewInformes1.JsNuevoDialog.CustomButtonResult;
for i := 0 to frViewInformes1.JsNuevoDialog.CustomButtons.Count - 1 do
if (frViewInformes1.JsNuevoDialog.CustomButtons.Items[i].Value = Opcion) then
break;
FController.Nuevo(frViewInformes1.JsNuevoDialog.CustomButtons.Items[i].Info.Strings[0], FInformes);
// showmessage('Opcion seleccionada: ' + frViewInformes1.JsNuevoDialog.CustomButtons.Items[i].Info.Strings[0]);
end;
finally
FViewInformes.Refresh;
end;
end;
procedure TfEditorInformes.RefrescarInterno;
begin
inherited;
if Assigned(FViewInformes) then
FViewInformes.Refresh;
end;
procedure TfEditorInformes.SetController(const Value: IInformesController);
begin
FController := Value;
end;
procedure TfEditorInformes.SetInformes(const Value: IBizInforme);
begin
FInformes := Value;
dsDataTable.DataTable := FInformes.DataTable;
ComprobarPrivilegios;
if Assigned(FViewInformes) then
begin
FViewInformes.Informes := FInformes;
end;
end;
procedure TfEditorInformes.actModificarExecute(Sender: TObject);
begin
inherited;
try
FController.Ver(FInformes);
finally
FViewInformes.Refresh;
end;
end;
procedure TfEditorInformes.FormShow(Sender: TObject);
begin
inherited;
if not Assigned(FInformes) then
raise Exception.Create('No hay ninguna informe asociado');
if not Assigned(FViewInformes) then
raise Exception.Create('No hay ninguna vista asignada');
if not Assigned(FController) then
raise Exception.Create('No hay ningún Controller asignado');
FViewInformes.OnDblClick := actModificar.OnExecute;
FViewInformes.PopupMenu := ViewPopupMenu;
Informes.DataTable.Active := True;
FViewInformes.Refresh;
end;
destructor TfEditorInformes.Destroy;
begin
FViewInformes := NIL;
FController := NIL;
FInformes := NIL;
inherited;
end;
procedure TfEditorInformes.EliminarInterno;
begin
// if not FController.EsModificable then
// ShowMessage('Este Controller no se puede borrar')
if (Application.MessageBox('¿Desea borrar este informe?', 'Atención', MB_YESNO) = IDYES) then
begin
FController.Eliminar(FInformes);
FViewInformes.Refresh;
end;
end;
procedure TfEditorInformes.actPropiedadesExecute(Sender: TObject);
begin
inherited;
{
if Assigned(FController) then
try
FController.VerPropiedades;
actGuardar.Execute;
finally
FViewController.Refresh;
end;
}
end;
procedure TfEditorInformes.actPropiedadesUpdate(Sender: TObject);
begin
inherited;
{
if Assigned(dsDataTable.DataTable) then
(Sender as TAction).Enabled := (not dsDataTable.DataTable.IsEmpty)
and not (dsDataTable.DataTable.State = dsInsert)
else
(Sender as TAction).Enabled := False;
}
end;
procedure TfEditorInformes.ComprobarPrivilegios;
begin
if (AppFactuGES.UsuarioActivo.LOGIN <> 'admin') then
begin
actNuevo.Enabled := False;
actNuevo.Visible := False;
actEliminar.Enabled := False;
actEliminar.Visible := False;
actPropiedades.Enabled := False;
actPropiedades.Visible := False;
end;
end;
constructor TfEditorInformes.Create(AOwner: TComponent);
begin
inherited;
FViewInformes := frViewInformes1;
actModificar.ShortCut := ShortCut(VK_RETURN, []);
end;
end.

384
Source/Modulos/Informes base/Views/uFormPropiedadesInforme.dfm Normal file
View File

@ -0,0 +1,384 @@
object frPropiedadesInforme: TfrPropiedadesInforme
Left = 569
Top = 354
ActiveControl = edtNombre
BorderStyle = bsDialog
Caption = 'Propiedades del informe'
ClientHeight = 418
ClientWidth = 378
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
OnCloseQuery = FormCloseQuery
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 15
Top = 84
Width = 92
Height = 13
Caption = '&Nombre del control:'
FocusControl = edtNombre
end
object Label2: TLabel
Left = 48
Top = 112
Width = 59
Height = 13
Caption = '&Descripci'#243'n:'
FocusControl = memDescripcion
end
object JvgWizardHeader1: TJvgWizardHeader
Left = 0
Top = 0
Width = 378
Height = 60
CaptionFont.Charset = DEFAULT_CHARSET
CaptionFont.Color = clWindowText
CaptionFont.Height = -11
CaptionFont.Name = 'MS Sans Serif'
CaptionFont.Style = [fsBold]
CommentFont.Charset = DEFAULT_CHARSET
CommentFont.Color = clWindowText
CommentFont.Height = -11
CommentFont.Name = 'MS Sans Serif'
CommentFont.Style = []
SymbolFont.Charset = DEFAULT_CHARSET
SymbolFont.Color = clHighlightText
SymbolFont.Height = -35
SymbolFont.Name = 'Wingdings'
SymbolFont.Style = [fsBold]
Captions.Strings = (
'Propiedades del control')
Comments.Strings = (
'Introduca los datos del control')
Gradient.FromColor = clGradientActiveCaption
Gradient.ToColor = clGradientInactiveCaption
Gradient.Active = True
Gradient.Orientation = fgdVertical
BufferedDraw = False
end
object Label3: TLabel
Left = 77
Top = 272
Width = 30
Height = 13
Caption = '&Icono:'
end
object Bevel1: TBevel
Left = 8
Top = 360
Width = 361
Height = 10
Shape = bsBottomLine
end
object memDescripcion: TcxMemo
Left = 120
Top = 112
Lines.Strings = (
'')
Properties.ScrollBars = ssVertical
Properties.WantReturns = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 1
Height = 105
Width = 241
end
object edtNombre: TcxTextEdit
Left = 120
Top = 80
Style.Color = 14745599
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0
Width = 241
end
object bAceptar: TButton
Left = 296
Top = 384
Width = 75
Height = 25
Caption = '&Aceptar'
Default = True
ModalResult = 1
TabOrder = 2
end
object cbModificable: TCheckBox
Left = 120
Top = 232
Width = 234
Height = 17
Caption = 'No &permitir realizar cambios en este control'
TabOrder = 3
end
object btnIcono: TJvImgBtn
Left = 120
Top = 272
Width = 60
Height = 60
TabOrder = 4
DropDownMenu = JvPopupMenu1
DropArrow = True
Flat = True
HotTrackFont.Charset = DEFAULT_CHARSET
HotTrackFont.Color = clWindowText
HotTrackFont.Height = -11
HotTrackFont.Name = 'MS Sans Serif'
HotTrackFont.Style = []
Images = ReportImages
ImageIndex = 1
end
object ReportImages: TPngImageList
Height = 28
Width = 28
PngImages = <
item
PngImage.Data = {
89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF
940000000970485973000017120000171201679FD252000002024944415478DA
BDD5DB2E03411800E0E923B870E1CE9D085A940B823894D2489C4FAFE101BC80
8444840B89B3D4A954292D8A2855DD5655EB14E205A4570E09BAFB9B5944C7A1
B335F87727F3CFBF93F976B3995D1500A0FF0C553468D93A9107A4F6D6A8313E
E4F33597AFCBE74BDED93384FCF67E5534F0F181287061F3186A4AD27E74E746
AB80921213507B471785C604CD1B21A82D4DFF1138B1B48F325393D175F88642
FF0494F01A46AB07156853D0EDFD0385C604E71D41A82BCB880B1325098922A0
699B80CAF2D2D1E35384420F6C7DAA6FC1B9F523A8D7A9E3C6483F6BF7A2EEBE
B14F736282A6F50034E834716392847B51425BDE2B74777F87C2E1B03C6770C2
C200D73058CE06BFC23ED64C36171B9C5D3D84C68A4C6E8CD4CC6B6E363863F7
43933E8B1B23F9A2C3C306A7ED07D0ACCFE6C6486EDD14D8E094CD072D955A0A
227B8C0550B5D7F1AAD3A7005CC16095961B23BD63D7CF062757BCD05A95C38D
C95BC41D6083C66501DA0CB9DC18694E21A800B40AD062C8E1C6445C77F9426C
107FF1F13BCCE5C622B8F71C9E28031B2BB4DC18C97DC1333638BEE8863A5D36
738F452FFC0ED278E0F4820D8E59F6A0A6348B1B237342E797CAC0EA620D3746
421138BAE0024391861B530C8E9877A1B250CD8D290687E777405FA0E6C61483
43734E28CFCF90FF65BF114C70D0B40DBD0393BF82BD454CF03FE219EFD39C05
A47A98E90000000049454E44AE426082}
Name = 'PngImage0'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF
940000000970485973000017120000171201679FD252000002CB4944415478DA
BDD36F4813711807F0EF4984F5A68108254249648689A961334B8C95342CAD4C
222D5F66607F2C825E1426B504090A7B636446A00605A624A4258A664EF1DFA6
0E97298D72AED3306FCB68A277D7EE3776E9727AB7AB1E381EF8DDFD9ECFEFB9
E78EE2791EFF33286F90A228E0DA171EB737504AB37E3D48F1DD34A865415556
13CF3CD5504AF2AB660D765D3E8F804F15E8A86644F40FF0597D2F59385B69C7
8353EBFCCA8FD24611929F8B840C15A0676076AA60187720DBC1514B8227B471
A0624AC01B2ECACA6CDF05D43C2FC39EE4740C6487E2C0B77982093134F51D21
012C7C82728373D5F160344D639AF90A477E0A8269777D130D9C1126F6374096
E3F0AE220FEF9D3BA056AB0926849DF901AAF028268C3CC17CCE500EE8C1E2F7
6F4780B5074F8C6A6C8DD84C30A1539D4E07ABD5EAFB2B5D0816D78CAF08AA1D
3A119B9C9B01373F8B86E15472CF1B53D4A177671E8C9918839331E2B82E14C1
918761785DAA1C94825D2D2AC3E3AA97CA416F6C62D60E8E9D857DD226621DDD
83A86DEC940F2E35C38533F3850987AA6BEAF2BF43E11FE3381EED95CB77D6DE
35409E13C0FA961EFF407F3096E5F1A6AD573EE8C15896C3AD829398E3D39197
FA62454CC84DED0679A080DDA9B591B54DB6EB181C9B41ECCC38FA5497901955
2462E7EE772EDA9F16BD8A1CB0A5B35F3A98793056EC4C386D516136AE24AD86
A5D90C8B3310D59FD7E0ADE1C3929D913DAEABCDF5F1480633526244ACAE3C17
DDFA56E4C586C160F909FD340D666D1C0A6E3EF489B1AE757DAF493A7844132D
163A9D93838F23666C0CE611141A066D7C10128EDD5D169B77E52EE39074F050
7214D95CDA3885AA1B5A848547226B5F201233EE91E26ECC5DD8F326DCE06FBC
CF342C1DD4EE8D5C74FA85F394820957BF79443A9892B84D11263C631A1E950E
6AD4118A30216481C9F1E18A30D960D2CE2DA86ED0436948068B4BCA15639E58
11FCD7F10B8E341130466CDCF80000000049454E44AE426082}
Name = 'PngImage1'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF
940000000970485973000017120000171201679FD252000002B14944415478DA
BDD5CB4F13411800F0AF897AF2A0311E8C07F5604C63E9839683040D42A1D098
D42A8826DEFC070C4AF4E4C1981883C117C13755B02922A505ACB440855829B5
DB07B5151589070831846C222A242ADD717760B14B6B676991AFBB99D9D96FF7
37B3B3D3952084602D439208760E8CE003AE8DDF05C7EC0F6F8B757C1E6F0BF5
DA9B2608BB6E4B1281E50312801DFDEF90E1E0DE8C7A6E7150B06DEB66A8BE50
2740D382F6973174B8489611687EFE0694D29D304D7F17A0FF0564D87B581C7E
2850EF811F733F05685AD0E68E2263710EAE5FB14D12A173C6ED10671888C711
B43A2928DE27835FBFE70568C8D920F927D8DEF7161DD1CA458F8CC7B8B2CD15
806B0DCD493969416B5F041DD52A568C310C5BC61918087C86D9B959A0691AE7
349A3B09602F0B9690C154D8F236ABD34B06DB7A865145A952F41C26C6A9C24D
820ED87B7D64F0992B8C2A75AAAC46C6B775B9FD64B0D51542C774B959635CDD
D14F91C1A7CE20AA2A530B206E8D910041DBE2718F272802EC66C172754673C8
8751B501A3EEC130196CE90EA0E3E59AAC46B650B24BC41721839617143AA1CF
CB1AE3760F1515013A2854A5D7648DC5D9766F304606D97F7C760EF3F045D71D
5329E7E864FE467CF31DF7C6539E0F566E8179F67AFFF08838B0A2542D6A64BB
1E4C80A9F8EFB7939E61C07CEB34DCA93D8FF383D10F64F049970F19B5B9C435
C63DB2DDA6C92590C3462718A0ECD5507FB906E746DE7F2283CD9D43C850A422
62DC2393367DC1208F8D8E3330133A0B372E9DC139B18F63E2C043850A8C3D1C
F89A728E0CCAF5B80332F3145CD5489730FA1B827563355077B11AE789029B3A
BC487F409176647C9BC2320DAAA1BB491D5A11F8D83E88CAF6CB89D8C2EB9FBC
14124314F8C8F61AE90AE45963A24153BB0795E4E7E06FD96A04116CB4BE42F5
F75B5605E3232DB816F1079F420105E5B916660000000049454E44AE426082}
Name = 'PngImage2'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF
940000000970485973000017120000171201679FD252000002E14944415478DA
63FCFFFF3F033D0123B2859B0E5C03734062308CC207423082B2C1F260046177
4F9ACF707EE77446640BD03D8462E1C6FD57FFFB3B6A93E5F2E55B4F33488A0A
3214D5F5A1588AD7C20DFBAEFC0F70D221CBC2A55B4E3218682A30BC7EFB19C5
52A22DEC5CFF142E5E1E284D504C86F509838DB13AC3976F3F512CC56BE1FABD
97FF073AEB92E4B3BFFFFE31FCFDFB9F61D58ED30CCE963A0CBF7EFF41B1F4DC
8E698C382D5CB7E7D2FF20173D922D03D16B769E61E89FB618430D5E0BD7EEB9
F83FD8451F23F8B081127F49B865FFFE01E9BFFF180E9CB9C7F0F5DB5786B76F
DF82D5CC5BBA898085BB8116BAEA93E4339865E8626B771C236CE19A5D17FE87
B819506C19486CC3EE13842D5CBDF3FCFF5077439420454F8D20D5202D208341
74B6BB10D8B2C93BDF81B300509821D5818761F3DE53842D5CB5F3DCFF307723
8A7C06636FDD7F9AB0852B779CFD1FEE618CE2A3D20029B0013D9B9EA3F8ECDF
7F089DEECC0FB674FADE8F50710686441B4E865D87CF1261E176A0859EC6703E
C85042BE411143E2EF3D7A9EB0852BB69FF91FE16982E2C3026F71B0017D5B5E
217CF60FE1C354475EB06533F77F81C7619C251BC3811317095BB87CDBE9FF91
5EA614F90C2C0FC4874F5F26C2C2ADA7FF877B99800DE9DEF81CECE25C0F51B0
4113B7BF41F1D93F48CDC4906CC705B66CF6C16F701FC698B3301C3B7B85B085
C0121F1887A614F9EC2F50FC0F903E75E11A711686B819A3C459B69B10D82048
3E43F80C9662136C38C0F2F38EFC848B459830329CBD7C83B0854B369FF81FE8
6244308FC17C815087E9D38BD76F13B670F1A6E3FFFD9D0CC11A27ED780B8E33
483EFB07CC679F507CF60FDAD48806C617C8B2C527FE80C5402058FF2FC3959B
7788B3D0C7419F229FFD85DA4A94858B361EFBEF65A74FB165445BB870C3D1FF
1EB67A6459B6EA3C13DC1CA28374C1FA23FFDD6DF428F219493E9CBFEEF07F57
2B5D705D460D40D0C2796B0FFD9F327B05552C8301BC16D2030000BD734D0581
7DF1720000000049454E44AE426082}
Name = 'PngImage3'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF
940000000970485973000017120000171201679FD252000001C64944415478DA
63FCFFFF3F033D01E38059B87CDB699ADB1CE965CA88622150806CC3FE01CDF9
F7EF3FC3DFBFFF18FEFEFB87C4FECFB06CD32186794B37319CDB310DBF858C33
1919823435197EFDFD0BC6BFA134980D34F4C79F3F0C3F81EC3F40F64F201BCC
07E237515FE196FD03CAADD87284780BC9011FA2BEC12D03D1ABB71D25CE424A
8211661988BF6EE771D22D644CC4EFDBCF537F30FCF903B1186C21D462107FD3
9E9394F9106CE85F245F807CF7F73F56CB40BEDEB2EF146E0B09F9845470A7E9
35C3F60367F05BF87F3E224B5E5C69C8A01F7E1E271F19A0CB81CCBA59FF8A61
D7E1B3F82D4CC830806B2A78C0C030418101271F19A0CB2D987181E17AED0B86
3D47CFD3CF8757AA9F33EC3F7E817E3EBC50FE84E1F0E9CBF4F3E1D9D2C70CC7
CE5EA19F0F4F173F643871FE1AFD7C78A2F001C3E98BD7B15B18EE69C2C09CC4
44551F1ECDBBC770EECA4DEC1686BA1B33B0A63053D5878773EE325CB8760BBB
85412E860C1CE9AC54F5E1FECCDB0C576EDEC16EA1BF933E0377263B557D88D7
426F7B5D06FE1C4E066A02BC167ADAE8E02CF149AD2190014E0BDDACB4A86E19
5E0B9D2D3419566D3D42D5208501AC16764F9A4F13CB6000C5427A01BA5B0800
BE8AE7E7F700C7D10000000049454E44AE426082}
Name = 'PngImage4'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF
940000000970485973000017120000171201679FD2520000020E4944415478DA
63FCFFFF3F033D0123C842464646086F06034D6CFF9FFE9F11C5C2695326FDEF
9ED4CFF0A0F801C311EF7D641BFC0F08FFFCFFC5F0FBDF2F300DC2FE4D310CFF
E7A359A8A8A6F8FFFEADFB0C8585850C1BB66E6058B26F1E752CDB15C3C07082
01D342980F4100D9329BAD4E382D60636283606636067628FBE1D7470C5BDD57
C12D0CDE9D84DD425C3E0459986060806A112307030FB310032F8B1098E666E6
63E060E201E3A8B61C868D754B2016027D1ABE3783741F225B88CF324E661E86
C0E60486B5B5F3C096FD065A1AB32F8F7C1F12B20C447B3686302CAB9E0AB610
E4CBA403E5E4F99018CB40D8B1DE836151653F3C0ED30ED692EEC334430BA22C
6305261A9B5A278679159D700BB30E3593914A4F90963D669537C32DCC3BDC49
9A0F91C19FFFBFC1090196026186FE46E323F06F86A2237DA4F99012CB4072E5
47A790EE434296FDFAFF1D21CEF01BA5B4A93D3E97781F622BAA6096FE46E363
B30C841B4F2C26CE878BF6CDA1D832106E3DB992B00FA9651908779E5A4F9C0F
67EE9E40B16520F57DA7B712F621B52C03D193CEEC26CE871377B6906DD9CF7F
DFE1EC19E78E10F621BA65BF900C40CE637843018AE79C3F459C0FDBB695E2CD
D0C45806C20B2E5C20EC43522D5B1E7E066B99EAB05800B785E83EACDB9C4991
CF6080281F52CB32BC16A2FB10D45CA41AC06621A821ACA0AA006E043FB0A6A2
65508061213D010026DA8D05688EA69C0000000049454E44AE426082}
Name = 'PngImage5'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF
940000000970485973000017120000171201679FD252000003474944415478DA
BD946B48536118C79F95140409E62DBB7C083F85084566372135D2F292B74AD3
CCC44B492C32FC966D5AFA2D2A34E9A236733A9D695EA76B622A998917549CA9
980895B75D6995A5DBD9DBD939DBAB23754B9D0FBC9CE7FF1ECEF37BFEEFCB79
180821D8C860E8808CDB03CE649E4AAEAB16E214902B033D741D330039AE7B6D
D604637AD8027F500D12A5CA28EF1E0F845EE526386A5F5040026329A055BC08
1173EAE5AB21C672E78353768C37D48895D0DBD36B948B9D7221EFE721C89E3F
029A3C1F06063A8C0D5AE834E99038BB2C007730BBD048FA7E8B029DEF0E812A
E7300DB4BDD98DE4596EAB2EA6256B68B50808420B84965C04A29E863DBEA00D
5822040AEE59D3C0FCFC853C2E6E657D296A1E4A8AB7601D10FC83825608DB81
F5560B8A22BFB5395CCACD527B558D1D24902081FEC6C0FCC5EDAE43F8FA8751
E0DAA64E600935A0280E589D43739D1972417317B01AD4A0E0051A03E3E37BA9
82797907CDBAC388C87928E519DF595DD576ACBD7DE5241481B0B51BD80DF320
E79DA38176CC4E24CB765F77673A985A4340D3077218D4CF81BC24480FBCF111
C9728E9974187D85006EE166AC432FCCC29BD7DBB03EEDA784C67A1BAC8F7BCD
500DB474F4035BF007E4A5C134D03EA90D499F7A98ED4CD7F5B20E1769EA3DB9
DE770D00BBEE37C8F9217AE0B556247D7EF21F87BA1F9AF372618E5E8C9883B2
D2AD58FB07A940506D8DB5A78F0C5A447658BB9D98A08EB5BD474C0267496028
0D74486841925C4F2357A6A68739CE74300DF9ECECFB0469B5BF405616A607C6
352149FE29ECF045EE015CB8886B859B08393F0B95E52BDF597BB323D6AEEE5F
A81A3D03C3904E02A506A063AC08CD707CD6D599EE9E0DBA7F6814D2ABBE83B4
225C0F8C11A29957675605536BB48BDE2D0D178F7C867BE552905447D3C09DD1
023459E80789097D94CBAC272EF8C394E4617C446919FB202D751CEB943BBBE1
41E604D6D76FD9C1B3C732AC2F27D2434007BCCF9F8299BA583D30AA067D2B0C
C09D6A34A67F680D61DA992174C00CDE57986E48A081BB222BD11827C0ECE9F1
3F300CE48EC3B4288906EE09E5A291E270E094BF3339DE561B9905A330D5C4A4
814E5E8FD0B4B5DDDAABAE104E2A194C3627EB8F94045A94A60F0CDCC8D870E0
5FA7D4B1F664B3FE1D0000000049454E44AE426082}
Name = 'PngImage6'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF
940000000970485973000017120000171201679FD252000001084944415478DA
63FCFFFF3F033D01E3A88534B19031F124ED6DBD7081E1FFF97446B885516106
0CEF7E3130ECD870812134D480E1EB1F06862F50FCE937847E71807C390C0B3D
0220169EDA7681C12BD00045D38B1F1036C3093C72474F31788598E1D4876121
CD82F2FF3F60C431A15AB874CBC9FF6E969A0C5FBFFF64387AE11E43B48F3956
BD407564C98180914716C3B91DD310161AA849812DBCFDF82DD52D9CB27807C3
BCA59B502D549515663875E90E83A0A020568D7FFFFE6558B1FD0C5972D397ED
C6B49016D1F7FBD72F0656363686F7EFDF635A48CB38C41AA4A3714809188DC3
D1381C8D43E2E21014A42BB71DA3593C6258D83B6521CD2C8301B885F404C3DF
42005A1A11E70A945A890000000049454E44AE426082}
Name = 'PngImage7'
Background = clWindow
end>
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
Left = 27
Top = 216
Bitmap = {}
end
object JvPopupMenu1: TJvPopupMenu
Images = ReportImages
OnPopup = JvPopupMenu1Popup
Style = msItemPainter
ImageMargin.Left = 0
ImageMargin.Top = 0
ImageMargin.Right = 0
ImageMargin.Bottom = 0
ImageSize.Height = 0
ImageSize.Width = 0
Left = 192
Top = 288
object N11: TMenuItem
Caption = '1'
end
end
end

117
Source/Modulos/Informes base/Views/uFormPropiedadesInforme.pas Normal file
View File

@ -0,0 +1,117 @@
unit uFormPropiedadesInforme;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo, StdCtrls,
JvExControls, JvComponent, JvgWizardHeader, ExtCtrls, ImgList,
PngImageList, JvExStdCtrls, JvButton, JvCtrls, Menus, JvMenus, ActnList;
type
TfrPropiedadesInforme = class(TForm)
edtNombre: TcxTextEdit;
Label1: TLabel;
Label2: TLabel;
bAceptar: TButton;
memDescripcion: TcxMemo;
JvgWizardHeader1: TJvgWizardHeader;
cbModificable: TCheckBox;
Label3: TLabel;
Bevel1: TBevel;
btnIcono: TJvImgBtn;
ReportImages: TPngImageList;
JvPopupMenu1: TJvPopupMenu;
N11: TMenuItem;
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure JvPopupMenu1Popup(Sender: TObject);
private
procedure SetDescripcion(const Value: String);
procedure SetNombre(const Value: String);
function GetDescripcion: String;
function GetNombre: String;
function GetModificable: Boolean;
procedure SetModificable(const Value: Boolean);
function GetIcono: Integer;
procedure SetIcono(const Value: Integer);
procedure OnMenuItemClick(Sender: TObject);
public
property Nombre : String read GetNombre write SetNombre;
property Descripcion : String read GetDescripcion write SetDescripcion;
property Modificable : Boolean read GetModificable write SetModificable;
property Icono : Integer read GetIcono write SetIcono;
end;
implementation
{$R *.dfm}
procedure TfrPropiedadesInforme.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := Length(edtNombre.Text) > 0;
if not CanClose then
ShowMessage('Debe indicar al menos el nombre de este informe.');
end;
function TfrPropiedadesInforme.GetDescripcion: String;
begin
Result := memDescripcion.Lines.Text;
end;
function TfrPropiedadesInforme.GetIcono: Integer;
begin
Result := btnIcono.ImageIndex;
end;
function TfrPropiedadesInforme.GetModificable: Boolean;
begin
Result := not cbModificable.Checked;
end;
function TfrPropiedadesInforme.GetNombre: String;
begin
Result := edtNombre.Text;
end;
procedure TfrPropiedadesInforme.SetDescripcion(const Value: String);
begin
memDescripcion.Lines.Text := Value;
end;
procedure TfrPropiedadesInforme.SetIcono(const Value: Integer);
begin
btnIcono.ImageIndex := Value;
end;
procedure TfrPropiedadesInforme.SetModificable(const Value: Boolean);
begin
cbModificable.Checked := not Value;
end;
procedure TfrPropiedadesInforme.SetNombre(const Value: String);
begin
edtNombre.Text := Value;
end;
procedure TfrPropiedadesInforme.JvPopupMenu1Popup(Sender: TObject);
var
AItem : TMenuItem;
i : integer;
begin
JvPopupMenu1.Items.Clear;
for i := 0 to ReportImages.Count - 1 do
begin
AItem := TMenuItem.Create(JvPopupMenu1);
AItem.OnClick := OnMenuItemClick;
AItem.ImageIndex := i;
JvPopupMenu1.Items.Add(AItem);
end;
end;
procedure TfrPropiedadesInforme.OnMenuItemClick(Sender: TObject);
begin
btnIcono.ImageIndex := (Sender as TMenuItem).ImageIndex;
end;
end.

23
Source/Modulos/Informes base/Views/uInformesViewRegister.pas Normal file
View File

@ -0,0 +1,23 @@
unit uInformesViewRegister;
interface
procedure RegisterViews;
procedure UnregisterViews;
implementation
uses
uEditorRegistryUtils, uEditorInformes;
procedure RegisterViews;
begin
EditorRegistry.RegisterClass(TfEditorInformes, 'EditorInformes');
end;
procedure UnregisterViews;
begin
EditorRegistry.UnRegisterClass(TfEditorInformes);
end;
end.

137
Source/Modulos/Informes base/Views/uViewAgrupaciones.dfm Normal file
View File

@ -0,0 +1,137 @@
inherited frViewAgrupaciones: TfrViewAgrupaciones
Width = 228
Height = 396
ExplicitWidth = 228
ExplicitHeight = 396
object TBXLabel1: TTBXLabel
Left = 0
Top = 0
Width = 228
Height = 29
Margins.Top = 5
Margins.Bottom = 10
Align = alTop
Caption = 'Agrupaciones'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = True
ParentFont = False
Underline = True
end
object pnlAgrupaciones: TTBXAlignmentPanel
Left = 0
Top = 29
Width = 228
Height = 77
Align = alTop
AutoSize = True
TabOrder = 1
DesignSize = (
228
77)
object Label3: TLabel
Left = 7
Top = 60
Width = 79
Height = 13
Caption = 'y por '#250'ltimo por:'
Transparent = True
end
object Label2: TLabel
Left = 7
Top = 32
Width = 63
Height = 13
Caption = 'despu'#233's por:'
Transparent = True
end
object Label1: TLabel
Left = 7
Top = 4
Width = 101
Height = 13
Caption = 'Agrupar primero por:'
Transparent = True
end
object TBXButton1: TTBXButton
Tag = 1
Left = 111
Top = 0
Width = 111
Height = 21
Action = actBoton1
Anchors = [akLeft, akTop, akRight]
AutoSize = False
DropDownMenu = PopupMenu1
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ImageIndex = 0
ParentFont = False
TabOrder = 0
Wrapping = twEndEllipsis
end
object TBXButton3: TTBXButton
Tag = 3
Left = 111
Top = 56
Width = 111
Height = 21
Action = actBoton3
Anchors = [akLeft, akTop, akRight]
AutoSize = False
DropDownMenu = PopupMenu3
ImageIndex = 0
TabOrder = 1
Wrapping = twEndEllipsis
end
object TBXButton2: TTBXButton
Tag = 2
Left = 111
Top = 28
Width = 111
Height = 21
Action = actBoton2
Anchors = [akLeft, akTop, akRight]
AutoSize = False
DropDownMenu = PopupMenu2
ImageIndex = 0
TabOrder = 2
Wrapping = twEndEllipsis
end
end
object PopupMenu1: TPopupMenu
Left = 32
Top = 136
end
object PopupMenu2: TPopupMenu
Left = 64
Top = 136
end
object PopupMenu3: TPopupMenu
Left = 96
Top = 136
end
object ActionList1: TActionList
Left = 32
Top = 168
object actBoton2: TAction
OnExecute = actBoton2Execute
OnUpdate = actBoton2Update
end
object actBoton3: TAction
OnExecute = actBoton3Execute
OnUpdate = actBoton3Update
end
object actBoton1: TAction
OnExecute = actBoton1Execute
end
object actMenuClick: TAction
end
end
end

339
Source/Modulos/Informes base/Views/uViewAgrupaciones.pas Normal file
View File

@ -0,0 +1,339 @@
unit uViewAgrupaciones;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ActnList, Menus, dxLayoutLookAndFeels, dxLayoutControl, uViewBase,
TBXDkPanels, cxControls, StdCtrls, ImgList, uViewInformeBaseGrid,
PngImageList, uViewInformeBaseParametros, JvExControls, JvComponent,
JvArrowButton, cxLookAndFeelPainters, cxButtons;
type
IViewAgrupaciones = interface(IViewInformeBaseParametros)
['{42030B8F-B12D-43D2-AEB2-F642F11D78DA}']
function GetAgrupaciones: TStringList;
end;
TfrViewAgrupaciones = class(TfrViewInformeBaseParametros, IViewAgrupaciones)
TBXButton1: TTBXButton;
TBXButton2: TTBXButton;
TBXButton3: TTBXButton;
PopupMenu1: TPopupMenu;
PopupMenu2: TPopupMenu;
PopupMenu3: TPopupMenu;
ActionList1: TActionList;
actBoton2: TAction;
actBoton3: TAction;
actBoton1: TAction;
actMenuClick: TAction;
TBXLabel1: TTBXLabel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
pnlAgrupaciones: TTBXAlignmentPanel;
procedure actBoton2Update(Sender: TObject);
procedure actBoton3Update(Sender: TObject);
procedure actBoton2Execute(Sender: TObject);
procedure actBoton3Execute(Sender: TObject);
procedure actBoton1Execute(Sender: TObject);
procedure AMenuItemClick(Sender: TObject);
protected
FColumns : TStringList;
FBotonPulsado : TTBXButton;
procedure MarcarItem(AMenuItem : TMenuItem); overload;
procedure MarcarItem(AMenu : TPopupMenu; const ACaption : String); overload;
procedure DesmarcarItem(AMenu : TPopupMenu; const ACaption : String);
procedure DesmarcarItems(AMenu : TPopupMenu);
procedure OnButtonPopup(Sender: TTBXCustomButton; var AllowDropDown: Boolean);
procedure RellenarListaColumnas;
procedure RellenarAgrupaciones;
procedure SetModificable(const Value: Boolean); override;
public
function GetAgrupaciones: TStringList;
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Refresh; override;
procedure Execute; override;
end;
implementation
uses
cxGridDBTableView, JclStrings;
{$R *.dfm}
const
SIN_AGRUPACION = '(Quitar agrupación)';
{ TfrAgrupaciones }
procedure TfrViewAgrupaciones.MarcarItem(AMenuItem : TMenuItem);
var
AItem : TMenuItem;
begin
AMenuItem.Checked := True;
AItem := PopupMenu1.Items.Find(AMenuItem.Caption);
if Assigned(AItem) then
AItem.Enabled := False;
AItem := PopupMenu2.Items.Find(AMenuItem.Caption);
if Assigned(AItem) then
AItem.Enabled := False;
AItem := PopupMenu3.Items.Find(AMenuItem.Caption);
if Assigned(AItem) then
AItem.Enabled := False;
end;
procedure TfrViewAgrupaciones.MarcarItem(AMenu : TPopupMenu; const ACaption : String);
var
AItem : TMenuItem;
begin
AItem := AMenu.Items.Find(ACaption);
if Assigned(AItem) then
MarcarItem(AItem);
end;
procedure TfrViewAgrupaciones.DesmarcarItem(AMenu : TPopupMenu; const ACaption : String);
var
AItem : TMenuItem;
begin
AItem := AMenu.Items.Find(ACaption);
if Assigned(AItem) then
begin
AItem.Enabled := True;
AItem.Checked := False;
end;
end;
procedure TfrViewAgrupaciones.DesmarcarItems(AMenu : TPopupMenu);
var
i : integer;
begin
for i := 0 to AMenu.Items.Count - 1 do
begin
AMenu.Items[i].Enabled := True;
AMenu.Items[i].Checked := False;
end;
end;
function TfrViewAgrupaciones.GetAgrupaciones: TStringList;
var
aux : String;
AIndex : Integer;
begin
Result := TStringList.Create;
if actBoton1.Enabled then
begin
aux := TBXButton1.Caption;
aux := StringReplace(aux, '&', '', [rfReplaceAll, rfIgnoreCase]);
if Length(Trim(aux)) > 0 then
Result.Add(aux);
if actBoton2.Enabled then
begin
aux := TBXButton2.Caption;
aux := StringReplace(aux, '&', '', [rfReplaceAll, rfIgnoreCase]);
if Length(Trim(aux)) > 0 then
Result.Add(aux);
if actBoton3.Enabled then
begin
aux := TBXButton3.Caption;
aux := StringReplace(aux, '&', '', [rfReplaceAll, rfIgnoreCase]);
if Length(Trim(aux)) > 0 then
Result.Add(aux);
end;
end;
end;
end;
procedure TfrViewAgrupaciones.actBoton2Update(Sender: TObject);
begin
(Sender as TAction).Enabled := Length(TBXButton1.Caption) > 0;
end;
procedure TfrViewAgrupaciones.actBoton3Update(Sender: TObject);
begin
(Sender as TAction).Enabled := Length(TBXButton2.Caption) > 0;
end;
procedure TfrViewAgrupaciones.actBoton2Execute(Sender: TObject);
begin
//
end;
procedure TfrViewAgrupaciones.actBoton3Execute(Sender: TObject);
begin
//
end;
procedure TfrViewAgrupaciones.actBoton1Execute(Sender: TObject);
begin
//
end;
procedure TfrViewAgrupaciones.AMenuItemClick(Sender: TObject);
var
i : integer;
begin
if (Sender as TMenuItem).MenuIndex > 0 then // El 0 es 'Sin agrupacion'
begin
DesmarcarItem(PopupMenu1, FBotonPulsado.Caption);
DesmarcarItem(PopupMenu2, FBotonPulsado.Caption);
DesmarcarItem(PopupMenu3, FBotonPulsado.Caption);
FBotonPulsado.Caption := (Sender as TMenuItem).Caption;
MarcarItem(Sender as TMenuItem);
end
else begin
DesmarcarItems(PopupMenu1);
DesmarcarItems(PopupMenu2);
DesmarcarItems(PopupMenu3);
// Anular los botones que estén por debajo del actual
for i := 3 downto FBotonPulsado.Tag do
TTBXButton(FindComponent('TBXButton' + IntToStr(i))).Caption := '';
end;
end;
constructor TfrViewAgrupaciones.Create(AOwner: TComponent);
begin
inherited;
FColumns := TStringList.Create;
TBXButton1.OnDropDown := OnButtonPopup;
TBXButton2.OnDropDown := OnButtonPopup;
TBXButton3.OnDropDown := OnButtonPopup;
end;
procedure TfrViewAgrupaciones.OnButtonPopup(Sender: TTBXCustomButton;
var AllowDropDown: Boolean);
begin
FBotonPulsado := (Sender as TTBXButton);
end;
procedure TfrViewAgrupaciones.Execute;
var
AgrBotones : TStringList;
i : Integer;
begin
AgrBotones := GetAgrupaciones;
for i := 0 to FColumns.Count - 1 do
(FColumns.Objects[i] as TcxGridDBColumn).GroupIndex := AgrBotones.IndexOf(FColumns.Strings[i]);
end;
procedure TfrViewAgrupaciones.Refresh;
begin
RellenarListaColumnas;
RellenarAgrupaciones;
end;
procedure TfrViewAgrupaciones.RellenarListaColumnas;
var
i : integer;
function DarItem (const ACaption : string):TMenuItem;
begin
Result := NewItem(ACaption, 0, false, true, AMenuItemClick, 0, '');
end;
begin
PopupMenu1.Items.Clear;
PopupMenu2.Items.Clear;
PopupMenu3.Items.Clear;
PopupMenu1.Items.Add(DarItem(SIN_AGRUPACION));
PopupMenu2.Items.Add(DarItem(SIN_AGRUPACION));
PopupMenu3.Items.Add(DarItem(SIN_AGRUPACION));
for i := 0 to ViewInformeBaseGrid.ColumnCount - 1 do
begin
FColumns.AddObject(ViewInformeBaseGrid.Columns[i].Caption, ViewInformeBaseGrid.Columns[i]);
PopupMenu1.Items.Add(DarItem(ViewInformeBaseGrid.Columns[i].Caption));
PopupMenu2.Items.Add(DarItem(ViewInformeBaseGrid.Columns[i].Caption));
PopupMenu3.Items.Add(DarItem(ViewInformeBaseGrid.Columns[i].Caption));
end;
end;
destructor TfrViewAgrupaciones.Destroy;
begin
FreeAndNIL(FColumns);
inherited;
end;
procedure TfrViewAgrupaciones.RellenarAgrupaciones;
var
i : integer;
AList : TStringList;
begin
AList := TStringList.Create;
try
// Recuperar las agrupaciones del grid
for i := 0 to ViewInformeBaseGrid.GroupedColumnCount - 1 do
begin
if i = 3 then
Break; // Sólo meter las 3 primera agrupaciones
AList.Add(ViewInformeBaseGrid.GroupedColumns[i].Caption);
end;
if AList.Count > 0 then
begin
DesmarcarItems(PopupMenu1);
DesmarcarItems(PopupMenu2);
DesmarcarItems(PopupMenu3);
// Anular los botones que estén por debajo del actual
for i := 1 to 3 do
TTBXButton(FindComponent('TBXButton' + IntToStr(i))).Caption := '';
TBXButton1.Caption := AList.Strings[0];
MarcarItem(TBXButton1.DropDownMenu, AList.Strings[0]);
if AList.Count > 1 then
begin
TBXButton2.Caption := AList.Strings[1];
MarcarItem(TBXButton2.DropDownMenu, AList.Strings[1]);
if AList.Count > 2 then
begin
TBXButton3.Caption := AList.Strings[2];
MarcarItem(TBXButton3.DropDownMenu, AList.Strings[2]);
end;
end;
end;
finally
FreeAndNil(AList);
end;
end;
procedure TfrViewAgrupaciones.SetModificable(const Value: Boolean);
begin
inherited;
pnlAgrupaciones.Enabled := Value;
if pnlAgrupaciones.Enabled then
begin
Label1.Font.Color := clWindowText;
Label2.Font.Color := clWindowText;
Label3.Font.Color := clWindowText;
TBXButton1.Font.Color := clWindowText;
TBXButton2.Font.Color := clWindowText;
TBXButton3.Font.Color := clWindowText;
end
else begin
Label1.Font.Color := clBtnShadow;
Label2.Font.Color := clBtnShadow;
Label3.Font.Color := clBtnShadow;
TBXButton1.Font.Color := clBtnShadow;
TBXButton2.Font.Color := clBtnShadow;
TBXButton3.Font.Color := clBtnShadow;
end
end;
end.

44
Source/Modulos/Informes base/Views/uViewColumnas.dfm Normal file
View File

@ -0,0 +1,44 @@
inherited frViewColumnas: TfrViewColumnas
Width = 316
Height = 350
ExplicitWidth = 316
ExplicitHeight = 350
object TBXLabel1: TTBXLabel
Left = 0
Top = 0
Width = 316
Height = 29
Margins.Top = 5
Margins.Bottom = 10
Align = alTop
Caption = 'Columnas'
FocusControl = lbColumnas
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = True
ParentFont = False
Underline = True
end
object lbColumnas: TcxCheckListBox
Left = 0
Top = 29
Width = 316
Height = 321
Align = alClient
Items = <>
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.Color = clWindow
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 1
OnClickCheck = lbColumnasClickCheck
end
end

114
Source/Modulos/Informes base/Views/uViewColumnas.pas Normal file
View File

@ -0,0 +1,114 @@
unit uViewColumnas;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewBase, dxLayoutControl, cxControls, cxContainer, cxListBox,
TBXDkPanels, ActnList, cxCustomData, cxGridDBTableView, cxGridTableView,
JvExControls, JvComponent, JvxCheckListBox, uViewInformeBaseGrid,
cxCheckListBox, cxCheckBox, uViewInformeBaseParametros, cxLookAndFeelPainters;
type
IViewColumnas = interface(IViewInformeBaseParametros)
['{A7072B8B-5AC1-4AC4-BD58-F03B96FFEA4B}']
function GetCheckedColumns : TStringList;
end;
TfrViewColumnas = class(TfrViewInformeBaseParametros, IViewColumnas)
lbColumnas: TcxCheckListBox;
TBXLabel1: TTBXLabel;
procedure lbColumnasClickCheck(Sender: TObject; AIndex: Integer;
APrevState, ANewState: TcxCheckBoxState);
protected
procedure RellenarListaColumnas;
procedure SetModificable(const Value : Boolean); override;
public
procedure Refresh; override;
procedure Execute; override;
function GetCheckedColumns : TStringList;
end;
implementation
{$R *.dfm}
{ TfrViewColumnas }
procedure TfrViewColumnas.Refresh;
begin
inherited;
RellenarListaColumnas;
end;
procedure TfrViewColumnas.RellenarListaColumnas;
var
i : integer;
AIndex : Integer;
begin
with lbColumnas do
begin
Items.BeginUpdate;
Items.Clear;
try
for i := 0 to ViewInformeBaseGrid.ColumnCount - 1 do
begin
AddItem(ViewInformeBaseGrid.Columns[i].Caption);
AIndex := Items.Count - 1;
Items[AIndex].Checked := ViewInformeBaseGrid.Columns[i].Visible;
Items[AIndex].ItemObject := ViewInformeBaseGrid.Columns[i];
end;
finally
Items.EndUpdate;
end;
end;
end;
procedure TfrViewColumnas.lbColumnasClickCheck(Sender: TObject;
AIndex: Integer; APrevState, ANewState: TcxCheckBoxState);
var
i : integer;
begin
inherited;
{ No hacer nada por que el cambio en las columnas se debe ver cuando
el usuario pulse sobre el botón 'Refrescar'. }
{ with lbColumnas.Items[AIndex] do
if Assigned(ItemObject) then
(ItemObject as TcxGridDBColumn).Visible := (ANewState = cbsChecked);}
end;
procedure TfrViewColumnas.Execute;
var
AIndex : integer;
begin
inherited;
for AIndex := 0 to lbColumnas.Items.Count - 1 do
with lbColumnas.Items[AIndex] do
if Assigned(ItemObject) then
(ItemObject as TcxGridDBColumn).Visible := (State = cbsChecked);
end;
function TfrViewColumnas.GetCheckedColumns: TStringList;
var
AIndex : integer;
begin
result := TStringList.Create;
for AIndex := 0 to lbColumnas.Items.Count - 1 do
if (lbColumnas.Items[AIndex].State = cbsChecked) then
with lbColumnas.Items[AIndex] do
if Assigned(ItemObject) then
Result.Add((ItemObject as TcxGridDBColumn).DataBinding.FieldName);
end;
procedure TfrViewColumnas.SetModificable(const Value: Boolean);
begin
inherited;
lbColumnas.ReadOnly := not Value;
if lbColumnas.ReadOnly then
lbColumnas.Style.TextColor := clBtnShadow
else
lbColumnas.Style.TextColor := clWindowText;
end;
end.

118
Source/Modulos/Informes base/Views/uViewFiltros.dfm Normal file
View File

@ -0,0 +1,118 @@
inherited frViewFiltros: TfrViewFiltros
Width = 209
Height = 462
ExplicitWidth = 209
ExplicitHeight = 462
object vgFiltros: TcxVerticalGrid
Left = 0
Top = 229
Width = 216
Height = 233
Enabled = False
Images = PngImageList1
LookAndFeel.Kind = lfStandard
LookAndFeel.NativeStyle = True
OptionsView.CellAutoHeight = True
OptionsView.CellEndEllipsis = True
OptionsView.ScrollBars = ssVertical
OptionsView.RowHeaderWidth = 97
OptionsView.GridLines = vglVertical
OptionsView.ValueMinWidth = 75
TabOrder = 0
Visible = False
object vgFiltrosEditorRow1: TcxEditorRow
Properties.EditPropertiesClassName = 'TcxComboBoxProperties'
Properties.EditProperties.OnEditValueChanged = vgFiltrosEditorRow1EditPropertiesEditValueChanged
Properties.DataBinding.ValueType = 'String'
Properties.Value = Null
end
end
object TBXLabel1: TTBXLabel
Left = 0
Top = 0
Width = 209
Height = 29
Margins.Top = 5
Margins.Bottom = 10
Align = alTop
Caption = 'Filtros'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = True
ParentFont = False
Underline = True
end
object cxFilterControl1: TcxFilterControl
Left = 0
Top = 29
Width = 209
Height = 403
Align = alClient
Color = clWindow
LookAndFeel.Kind = lfStandard
LookAndFeel.NativeStyle = True
NullString = '<empty>'
TabOrder = 2
TabStop = True
end
object TBXAlignmentPanel3: TTBXAlignmentPanel
Left = 0
Top = 432
Width = 209
Height = 30
Margins.Left = 3
Margins.Top = 3
Margins.Right = 3
Margins.Bottom = 3
Align = alBottom
TabOrder = 3
object bRefrescar: TButton
Left = 4
Top = 5
Width = 100
Height = 21
Caption = 'Aplicar filtro'
TabOrder = 0
OnClick = bRefrescarClick
end
end
object cxStyleRepository1: TcxStyleRepository
Left = 216
Top = 104
object cxStyleNombreColumna: TcxStyle
AssignedValues = [svTextColor]
TextColor = clActiveCaption
end
object cxStyleCategoria: TcxStyle
AssignedValues = [svColor, svTextColor]
Color = 15329769
TextColor = clHighlight
end
end
object PngImageList1: TPngImageList
PngImages = <
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD2520000011E4944415478DA
63FCFFFF3F0325801164C0D22D27C936056E40B48F39511AFEFCFDC7F0FBCF5F
3076082E423540ADEA3C5CE165F924148DBA0FE7C1D967AA351916AD3BC0306F
E9264C036EB5198215FD9C09A43DBE3030BC60605830E30E43FA7C882F416A8E
96AA32ACDC728408030C80063CE06058B0E30A8A01070B9519D6EE3886DD006C
5E5870E20243AFE439387F4FAE02C3A63D27C9F7C28E4C59866D07CE90EF85CD
A9D20CBB8F9C23DF0BABE3C4180E9FBE4CBE17964589309C387F15D580704F53
06ADDA8B447961619820C3D9CB37500D08723562D06FBC82E20590D36100D90B
7382F8182E5DBF8D6A80AFA33EC39F3F88640A67FFFE0B1543C8FDFBF79FE1CA
CD3BA80678DAEA322CDB7488A48C846240EF948564E54600564A377B046BCB77
0000000049454E44AE426082}
Name = 'PngImage2'
Background = clWindow
end>
Left = 88
Top = 104
Bitmap = {}
end
end

198
Source/Modulos/Informes base/Views/uViewFiltros.pas Normal file
View File

@ -0,0 +1,198 @@
unit uViewFiltros;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewInformeBaseParametros, cxStyles, cxGraphics, cxEdit,
TBXDkPanels, cxControls, cxInplaceContainer, cxVGrid, cxDropDownEdit,
ImgList, PngImageList, cxFilterControl, uViewInformeBaseGrid,
cxDBFilterControl, StdCtrls;
type
IViewFiltros = interface(IViewInformeBaseParametros)
['{52E941A1-F878-4D9C-B10A-DEA96A39D40D}']
end;
TfrViewFiltros = class(TfrViewInformeBaseParametros, IViewFiltros)
vgFiltros: TcxVerticalGrid;
TBXLabel1: TTBXLabel;
cxStyleRepository1: TcxStyleRepository;
cxStyleNombreColumna: TcxStyle;
cxStyleCategoria: TcxStyle;
PngImageList1: TPngImageList;
vgFiltrosEditorRow1: TcxEditorRow;
cxFilterControl1: TcxFilterControl;
TBXAlignmentPanel3: TTBXAlignmentPanel;
bRefrescar: TButton;
procedure vgFiltrosEditorRow1EditPropertiesEditValueChanged(
Sender: TObject);
procedure bRefrescarClick(Sender: TObject);
protected
procedure RellenarFiltros;
procedure SetViewInformeBaseGrid(const Value: IViewInformeBaseGrid); override;
procedure SetModificable(const Value: Boolean); override;
public
procedure Execute; override;
procedure Refresh; override;
end;
implementation
{$R *.dfm}
uses
cxCustomData, cxFilter, cxGridDBDataDefinitions,
cxGridDBTableView, cxGridCustomTableView, cxFilterConsts, cxClasses,
cxDBData;
{ TfrViewFiltros }
procedure TfrViewFiltros.Execute;
begin
inherited;
cxFilterControl1.ApplyFilter;
FViewInformeBaseGrid.FocusedView.DataController.Filter.Active := True;
end;
procedure TfrViewFiltros.Refresh;
begin
inherited;
cxFilterControl1.UpdateFilter;
SetModificable(Modificable);
// RellenarFiltros;
end;
procedure TfrViewFiltros.RellenarFiltros;
var
i : Integer;
ACaption : String;
ARow : TcxEditorRow;
AColumn : TcxGridDBColumn;
AValueList : TcxDataFilterValueList;
procedure GetFilterStrings(AStrings: TStrings;
AValueList: TcxDataFilterValueList);
var
I: Integer;
S: string;
begin
AStrings.BeginUpdate;
try
AStrings.Clear;
for I := 0 to AValueList.Count - 1 do
begin
S := AValueList[I].DisplayText;
AStrings.AddObject(S, TObject(AValueList[I]));
end;
finally
AStrings.EndUpdate;
end;
end;
procedure AddRow;
begin
ARow := vgFiltros.Add(TcxEditorRow) as TcxEditorRow;
ARow.Parent := NIL;
ARow.Properties.Caption := AColumn.Caption;
ARow.Properties.EditPropertiesClassName := 'TcxComboBoxProperties';
with (TcxComboBoxProperties(ARow.Properties.EditProperties)) do
begin
ARow.Properties.ImageIndex := 0;
ImmediateDropDown := True;
ImmediatePost := True;
ImmediateUpdateText := True;
PostPopupValueOnTab := True;
OnEditValueChanged := vgFiltrosEditorRow1EditPropertiesEditValueChanged;
GetFilterStrings(Items, AValueList);
end;
end;
begin
{ vgFiltros.BeginUpdate;
try
vgFiltros.ClearRows;
for i := 0 to ViewInformeBaseParametros.FocusedView.VisibleColumnCount - 1 do
begin
AColumn := TcxGridDBColumn(ViewInformeBaseParametros.FocusedView.VisibleColumns[i]);
AValueList := ViewInformeBaseParametros.FilterValueList[AColumn.Index];
AddRow;
end;
finally
vgFiltros.EndUpdate;
end;
}
end;
procedure TfrViewFiltros.SetViewInformeBaseGrid(const Value: IViewInformeBaseGrid);
begin
inherited;
cxFilterControl1.LinkComponent := FViewInformeBaseGrid.FocusedView;
end;
procedure TfrViewFiltros.vgFiltrosEditorRow1EditPropertiesEditValueChanged(
Sender: TObject);
var
ARow : TcxEditorRow;
AColumn : TcxGridDBColumn;
AItemIndex : Integer;
begin
{ ARow := TcxEditorRow(vgFiltros.FocusedRow);
if not Assigned(ARow) then
Exit;
with (TcxComboBoxProperties(ARow.Properties.EditProperties)) do
AItemIndex := Items.IndexOf(ARow.Properties.Value);
AColumn := ViewInformeBaseParametros.GetColumnByCaption(ARow.Properties.Caption);
if Assigned(AColumn) and (AItemIndex <> -1) then
begin
AColumn.DataBinding.Filter.BeginUpdate;
try
with ViewInformeBaseParametros.FilterValueList[AColumn.Index][AItemIndex]^ do
begin
if not (Kind in [fviAll, fviCustom]) then
AColumn.DataBinding.Filter.Active := True;
case Kind of
fviAll:
begin
AColumn.Filtered := False;
ARow.Properties.Value := '';
end;
fviCustom:
ViewInformeBaseParametros.FocusedView.Filtering.RunCustomizeDialog(AColumn);
fviBlanks:
AColumn.DataBinding.AddToFilter(nil, foEqual, Value,
cxGetResourceStringNet(cxSFilterBlankCaption));
fviNonBlanks:
AColumn.DataBinding.AddToFilter(nil, foNotEqual, Value,
cxGetResourceStringNet(cxSFilterBlankCaption));
fviValue, fviMRU:
begin
AColumn.DataBinding.AddToFilter(nil, foEqual, Value, DisplayText);
AColumn.DataBinding.FilterMRUValueItems.Add(Value, DisplayText);
end;
end;
end;
finally
AColumn.DataBinding.Filter.EndUpdate;
end;
end;}
end;
procedure TfrViewFiltros.bRefrescarClick(Sender: TObject);
begin
inherited;
Execute;
end;
procedure TfrViewFiltros.SetModificable(const Value: Boolean);
begin
inherited;
vgFiltros.Enabled := Value;
end;
end.

646
Source/Modulos/Informes base/Views/uViewInformeBase.dfm Normal file
View File

@ -0,0 +1,646 @@
inherited frViewInformeBase: TfrViewInformeBase
Width = 699
Height = 607
ExplicitWidth = 699
ExplicitHeight = 607
object TBXMultiDock1: TTBXMultiDock [0]
Left = 0
Top = 132
Width = 222
Height = 475
Position = dpLeft
object pnlParametros: TTBXDockablePanel
Left = 0
Top = 0
Caption = 'Par'#225'metros del informe'
CloseButton = False
CloseButtonWhenDocked = False
DockedWidth = 218
DockedHeight = 185
DockMode = dmCannotFloat
DockPos = 0
ParentShowHint = False
ShowHint = False
SplitHeight = 261
SupportedDocks = [dkStandardDock, dkMultiDock]
TabOrder = 0
object TBXAlignmentPanel2: TTBXAlignmentPanel
Left = 0
Top = 0
Width = 218
Height = 67
Margins.Left = 4
Margins.Top = 4
Margins.Right = 4
Margins.Bottom = 4
Align = alTop
AutoSize = True
TabOrder = 0
object TBXLink1: TTBXLink
Left = 4
Top = 4
Width = 210
Height = 19
Cursor = crHandPoint
Margins.Top = 2
Margins.Bottom = 2
Align = alTop
Font.Charset = DEFAULT_CHARSET
Font.Color = clActiveCaption
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ImageIndex = 29
ParentColor = True
ParentFont = False
TabOrder = 0
Wrapping = twPathEllipsis
end
object TBXLink5: TTBXLink
Left = 4
Top = 23
Width = 210
Height = 20
Cursor = crHandPoint
Margins.Top = 2
Margins.Bottom = 2
Action = actColumnas
Align = alTop
Font.Charset = DEFAULT_CHARSET
Font.Color = clActiveCaption
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ImageIndex = 3
Images = SmallImages
ParentColor = True
ParentFont = False
TabOrder = 1
Wrapping = twPathEllipsis
end
object TBXLink2: TTBXLink
Left = 4
Top = 43
Width = 210
Height = 20
Cursor = crHandPoint
Margins.Top = 2
Margins.Bottom = 2
Action = actAgrupaciones
Align = alTop
Font.Charset = DEFAULT_CHARSET
Font.Color = clActiveCaption
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ImageIndex = 0
Images = SmallImages
ParentColor = True
ParentFont = False
TabOrder = 2
Wrapping = twPathEllipsis
end
end
object pcParametros: TPageControl
Left = 0
Top = 67
Width = 218
Height = 133
ActivePage = tsColumnas
Align = alClient
Style = tsFlatButtons
TabOrder = 1
ExplicitHeight = 39
object TabSheet5: TTabSheet
Caption = 'TabSheet5'
TabVisible = False
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
end
object tsColumnas: TTabSheet
Caption = 'tsColumnas'
ImageIndex = 1
TabVisible = False
ExplicitHeight = 29
inline frViewColumnas1: TfrViewColumnas
Left = 0
Top = 0
Width = 210
Height = 123
Align = alClient
TabOrder = 0
ReadOnly = False
ExplicitWidth = 210
ExplicitHeight = 29
inherited TBXLabel1: TTBXLabel
Width = 210
ExplicitWidth = 210
end
inherited lbColumnas: TcxCheckListBox
Width = 210
Height = 94
ExplicitWidth = 210
ExplicitHeight = 0
end
end
end
object tsAgrupacion: TTabSheet
Caption = 'tsAgrupacion'
ImageIndex = 2
TabVisible = False
inline frViewAgrupaciones1: TfrViewAgrupaciones
Left = 0
Top = 0
Width = 210
Height = 123
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 210
ExplicitHeight = 123
inherited TBXLabel1: TTBXLabel
Width = 210
ExplicitWidth = 210
end
inherited pnlAgrupaciones: TTBXAlignmentPanel
Width = 210
ExplicitWidth = 210
DesignSize = (
210
77)
inherited Label3: TLabel
Width = 74
ExplicitWidth = 74
end
inherited Label2: TLabel
Width = 61
ExplicitWidth = 61
end
inherited Label1: TLabel
Width = 95
ExplicitWidth = 95
end
inherited TBXButton1: TTBXButton
Width = 97
ExplicitWidth = 97
end
inherited TBXButton3: TTBXButton
Width = 97
ExplicitWidth = 97
end
inherited TBXButton2: TTBXButton
Width = 97
ExplicitWidth = 97
end
end
inherited PopupMenu1: TPopupMenu
Left = 24
Top = 120
end
inherited PopupMenu2: TPopupMenu
Left = 56
Top = 120
end
inherited PopupMenu3: TPopupMenu
Left = 88
Top = 120
end
end
end
end
end
object pnlTareas: TTBXDockablePanel
Left = 0
Top = 222
Caption = 'Modificar el informe'
CloseButton = False
CloseButtonWhenDocked = False
DockedWidth = 218
DockMode = dmCannotFloat
DockPos = 222
FloatingWidth = 128
FloatingHeight = 128
SplitHeight = 276
SplitWidth = 3
SupportedDocks = [dkStandardDock, dkMultiDock]
TabOrder = 1
object TBXPageScroller1: TTBXPageScroller
Left = 0
Top = 0
Width = 218
Height = 215
Align = alClient
DoubleBuffered = False
Range = 0
TabOrder = 0
ExplicitHeight = 106
object TBXAlignmentPanel1: TTBXAlignmentPanel
Left = 0
Top = 0
Width = 218
Height = 48
Margins.Left = 4
Margins.Top = 4
Margins.Right = 4
Margins.Bottom = 4
Align = alTop
AutoSize = True
TabOrder = 0
object bFiltros: TTBXLink
Left = 4
Top = 24
Width = 210
Height = 20
Cursor = crHandPoint
Margins.Top = 2
Margins.Bottom = 2
Action = actFiltros
Align = alTop
Font.Charset = DEFAULT_CHARSET
Font.Color = clActiveCaption
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ImageIndex = 1
Images = SmallImages
ParentColor = True
ParentFont = False
TabOrder = 0
end
object bSumarios: TTBXLink
Left = 4
Top = 4
Width = 210
Height = 20
Cursor = crHandPoint
Margins.Top = 2
Margins.Bottom = 2
Action = actSumarios
Align = alTop
Font.Charset = DEFAULT_CHARSET
Font.Color = clActiveCaption
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ImageIndex = 2
Images = SmallImages
ParentColor = True
ParentFont = False
TabOrder = 1
end
end
object pcTareas: TPageControl
Left = 0
Top = 48
Width = 218
Height = 167
ActivePage = tsFiltros
Align = alClient
Style = tsButtons
TabOrder = 1
ExplicitHeight = 58
object tsSumarios: TTabSheet
Caption = 'tsSumarios'
ImageIndex = 2
TabVisible = False
inline frViewSumarios1: TfrViewSumarios
Left = 0
Top = 0
Width = 210
Height = 157
Align = alClient
TabOrder = 0
ReadOnly = False
ExplicitWidth = 210
ExplicitHeight = 157
inherited TBXLabel1: TTBXLabel
Width = 210
ExplicitWidth = 210
end
inherited vgSumarios: TcxVerticalGrid
Width = 210
Height = 128
ExplicitWidth = 210
ExplicitHeight = 128
end
end
end
object tsFiltros: TTabSheet
Caption = 'tsFiltros'
ImageIndex = 1
TabVisible = False
inline frViewFiltros1: TfrViewFiltros
Left = 0
Top = 0
Width = 210
Height = 157
Align = alClient
TabOrder = 0
ReadOnly = False
ExplicitWidth = 210
ExplicitHeight = 157
inherited vgFiltros: TcxVerticalGrid
Width = 196
Height = 0
ExplicitWidth = 196
ExplicitHeight = 0
inherited vgFiltrosEditorRow1: TcxEditorRow
Properties.EditProperties.OnEditValueChanged = nil
end
end
inherited TBXLabel1: TTBXLabel
Width = 210
ExplicitWidth = 210
end
inherited cxFilterControl1: TcxFilterControl
Width = 210
Height = 98
ExplicitWidth = 210
ExplicitHeight = 98
end
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
Top = 127
Width = 210
ExplicitTop = 127
ExplicitWidth = 210
end
end
end
end
end
end
end
object TBXMultiDock2: TTBXMultiDock [1]
Left = 0
Top = 0
Width = 699
Height = 132
object pnlIntervaloFechas: TTBXDockablePanel
Left = 0
Top = 0
Caption = 'Modificar el informe'
CloseButton = False
CloseButtonWhenDocked = False
DockedWidth = 218
DockMode = dmCannotFloat
DockPos = 0
FloatingWidth = 128
FloatingHeight = 128
SplitHeight = 276
SplitWidth = 3
SupportedDocks = [dkStandardDock, dkMultiDock]
TabOrder = 0
object TBXAlignmentPanel3: TTBXAlignmentPanel
Left = 0
Top = 98
Width = 661
Height = 30
Align = alBottom
TabOrder = 0
object bRefrescar: TButton
Left = 2
Top = 4
Width = 100
Height = 21
Action = actRefrescar
TabOrder = 0
end
end
end
end
object SmallImages: TPngImageList
PngImages = <
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD252000000794944415478DA
63FCFFFF3F0325809162030CDD338936E1FCCEE98C580DC8CF4C870BFCF9F397
E1FBCF5F0CDF7E00F1F79F0C5FBEFF6078F6FA3DC38D8B27F01BB0F3D845BCB6
E33580222F60530832149B62AC81884B825843F02A20C6108236103204671810
E37FBC06109B36F01A404CDAA0DC0B039E1B0126BE69852B2E82B70000000049
454E44AE426082}
Name = 'PngImage23'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD252000001574944415478DA
63FCFFFF3F0308303232826943C3648800109C3F3F9791010780EB433600A4D9
B1A892E1129300C399C38719144F6E61483F3F17AE2903A88CA001E7053C1918
B8B9197C448E33F82C68620868296078346B2503EBA3E70C27910CC169809AC5
578685FA3718FEE99A332CB29EC9602427C9C00FD4CC0A54B38B9001B53D0BFE
57F34C60600E2E6160E27AC6F07BF1328605191718D480F27C407C069F0175BD
0BFF4BE87832243F7067604F2F61F839B38781D53E8AE1D9C5DD0C5B237683D5
6C4D6A03D34FCEDF6538776E0E238A017EC9EDFF37CDAD64F8F4FD2F43CFB425
60B10BD79EA1847C4A4626C39377BF18E65456611A00F2826F521BDC90379FFE
30BCFDFC07AEF9F9FBDF70CDA0E8C51A062080CD1074CD38031106900D3970E5
3386668206201B326DE72B0CCD2419606494823549D3C780096D450C219ED9E4
1B004A30B8722451066C9E5745303B030083AA15F0BB1362F30000000049454E
44AE426082}
Name = 'PngImage24'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
61000000097048597300000E9C00000E9C01079453DD000000534944415478DA
63FCFFFF3F03258071F018C0C8C848944940F58CB80CB0075207A0E20E407C10
BB7EDC0680288286A07B19DD0082861063005E43883500A72174710145614051
2C509C0E284B89E4028A0D0000DBA366E1865C514F0000000049454E44AE4260
82}
Name = 'PngImage27'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD2520000011E4944415478DA
63FCFFFF3F0325801164C0D22D27C936056E40B48F39511AFEFCFDC7F0FBCF5F
3076082E423540ADEA3C5CE165F924148DBA0FE7C1D967AA351916AD3BC0306F
E9264C036EB5198215FD9C09A43DBE3030BC60605830E30E43FA7C882F416A8E
96AA32ACDC728408030C80063CE06058B0E30A8A01070B9519D6EE3886DD006C
5E5870E20243AFE439387F4FAE02C3A63D27C9F7C28E4C59866D07CE90EF85CD
A9D20CBB8F9C23DF0BABE3C4180E9FBE4CBE17964589309C387F15D580704F53
06ADDA8B447961619820C3D9CB37500D08723562D06FBC82E20590D36100D90B
7382F8182E5DBF8D6A80AFA33EC39F3F88640A67FFFE0B1543C8FDFBF79FE1CA
CD3BA80678DAEA322CDB7488A48C846240EF948564E54600564A377B046BCB77
0000000049454E44AE426082}
Name = 'PngImage28'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD252000001534944415478DA
63542C3BFB9F8102C00832A0CE570F43E2E76F06864F5FFF337CFCF20F4C7FFA
FE9FE11750ECF3B7FF0C5FBE41E87FD74BB11B804D334C13CC001060B9033580
5CE70B5C9CC3C0B866CDEAFFC1C1217815FEFDF79FE1F79FBF402FFC61F8FDFB
2F98BD66FB3186794B37611AC0987812CE6E50D881D5C0C4B43C864D7B4EE236
E044860183C58C0B0C5247F318562FD8CF109AE008A6ADACB8181A1B1B196292
7218B61F388D6A0048026CEB030FB861475375C19A4100640008ECDEDDCD101E
97C9B0E7C8394C03EAEBEB198E1DFB06B60944C334C30C80B9C03F3C85E1C8E9
CB9806B8BA96E20CC8CBD6DC70B6E1A5870CA72E5C23EC02647A26232343FAD9
B30C338D8D1974CEDE63387FF526F630C005241A1AE06CF593B719AEDCBC8330
C0D73F101EBFBF40348CFDE72F5671104031C0C3CB8F61FE9A7D24A744B801AD
B349D70C4F37FFFF53949B1900BA770EC0E001FEA50000000049454E44AE4260
82}
Name = 'PngImage29'
Background = clWindow
end>
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
Left = 368
Top = 32
Bitmap = {}
end
object LargeImages: TPngImageList
Height = 24
Width = 24
PngImages = <
item
PngImage.Data = {
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
F80000000970485973000017120000171201679FD252000000CA4944415478DA
63FCFFFF3F032D01E3D0B7A0A0730DD56C98501EC288D5020375151441908D7F
FFFE63F8FBEF1FC33F10FDF72F980D11FB0F66FF0189FD05D110F68EED9B19CE
EF9C4ED802720C07B177EFDA4AD802720D07D1FBF7EEC06F012586FF03CA1FDC
BF13B705FA400BEE3D7E497464A21B0E02782D38B86F2F555211560B88D50C73
083643F00192149363094916906309C916906A095916906209232ECDE45A4CB4
05D42A9F88B28092F289A00594964F782DA046F984D3026A954F382DA056F934
F42B7D00F75AE9FD6BE4FF8E0000000049454E44AE426082}
Name = 'PngImage23'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
F80000000970485973000017120000171201679FD2520000022F4944415478DA
63FCFFFF3F030C303232C2D98686C9FA406A0A101B00F174205E7AFEFCDC8B0C
44001433B1590034FC30C8E0ECB9737840FCA9C92920AA1F8817822CD902B40C
C85EE6C3C0B095640B8086AF033203818633ACBBCFC0B0EDFA7584AFD6F63234
9F9F8B6C16C89268522DF82F593387615B0BD4202323087DEE1CC396F3290CB6
F3BA19FEBC7DC670BCB49F410B28BC0F8881FE6324C982F346D908D54083FFF7
A4306C7566C0301C06D02D21CA82648E7360B11EAB140681A8974053C4C19680
00B2E120F00A88AF205982D782C6A605FF1FBDFCC3602A3187215CE904C47086
CD60F90FCB52186E46430C7342337C63521BC3E67955F82D686A5EF85F4C531D
CCCE10B2049A826AB880E51C86F3FB52187EA5400CD5811AFE7BF571B09A6DDB
F783E94D732B19715AF0878B81E1C2B567508562D040069AA83807AE0E64C9B9
14081B6438C860032D2906091D4F861DABE6E2B7A0AC2296E1D79FFF0CBF8178
E2ACA508CB6AC4E086D71F6B83EB01196C62E70F663F79F70BBF05A038A8ED59
F0BF2A2F96E1EB8F7F0CBFFFFE67F803C4207AFEE21560CB4006FA0784A0C87D
FEFE0F6E38281E08E66498251FBEFE851B8242FF41B0DF7DF98B6238C1540403
A0D4040AAE379FFEE0B4E0D5C73F1886136D01B225CFDFFFC6B0E0E9BBDF580D
27C902644B1EBFF905B7E0C1AB5F380D27D902644BEEBDFC09B6E0C88D2F380D
27CB02644BE6ED7B83D7F0510B86B80522669E040DA7C882330F9E11349C220B
EAEB12081A8E6E01002A731EEF226ACE030000000049454E44AE426082}
Name = 'PngImage24'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
F8000000097048597300004E2000004E2001167D99DE000000DB4944415478DA
63FCFFFF3F032D01E3A805245BC0C8C848B68D40B31889B16002908A066211A8
9003101FC463AE3D10EB03F144622D0051CD405C0315DA09C4ED4458D20034CB
91580B40603E102740D97B80B88580250CD8E2139F0520D007C48550F62520CE
43B304A49805887F936B01084C841A0C02A780B80C974FC8B500045600713894
BD05887BB0F8E43F29168035A0A96D00E27A28FB3210E7A2FB84121FB001F12F
205E0EC41150B11D40DC01C42780F827A916D0DD07548F036440D35444937CC0
0AD540D39C4CD3B288E6A5296DEB036A83A16F01003B61B4D1E99D5171000000
0049454E44AE426082}
Name = 'PngImage27'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
F80000000970485973000017120000171201679FD252000001AD4944415478DA
63FCFFFF3F032D0123C882A55B4ED2C496681F7346B805400E5986FC03EAFFF7
EF3FC3DFBFFF20F81F88FECFE01456CC706EC734540BE44BCFA168BEA5928C61
A0DA9DB9782D3C5FA3C1B06CD32186794B3761B7E07E97215CF1EF59460C0C1E
6F802C1606862FEC0C0B7A6E32A4CEFB0797572C3B8FA21EC43F53A5C6B072CB
11522CF800369CE1051BC3822597095A70B25C9561CDF6A3245860F31D6C38C3
1D668605272E10B4E058A932C3FA9DC7715B8011070F24E0FC052F7630B4899C
C51B07878B141936ED3949BB383858A0C0B065DF29DAC5C1DE5C39861D07CFD0
2E0E7666C930EC39728E7671B02D5D8A61FFF10BB48B83CDA9120C874E5EA25D
1C6C481263387AE60AEDE2606DBC28C389F357312D88F436032BA0340E56440B
319CBD7C03D382704F5306E58A0B14C7C1D24801860B576F615A10E46AC4A051
7399E2385814C6C770F9C61D4C0BFC9D0C18B4EBAF521C070B43F918AEDCC462
818F833E835EE3358C3800198A0C08C5014E0B3C6D75E1B51184FE07A9A9D0C4
20B5D67F863F2835D83F06E4AA1DAB056ED6DAE08A825A00C382DE290BA96638
0CC02DA02500004F8255EF277FDA8C0000000049454E44AE426082}
Name = 'PngImage28'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
F80000000970485973000017120000171201679FD2520000022E4944415478DA
63FCFFFF3F032D0123DD2C60646404D351F98B2700A97C209EB86C626C013186
E0D203321B9B05FF974E886130F2C86238BF733A23911660D583628152F93930
C3F2E735063B4D558699EB17327CD04F212A1870E9B9D769C48862419DAF1EC3
EE352BC0FCEB378E31E4D54C4231E8DB8FFF0C5F81184243F8DF80F4CF3B6BE0
7AB8F47BC0E21F386E62B7E0E6C5730C3B372F6070F74D6050D7372268F8F79F
0C0C7FDF5C60B8737E11838C761CC3933FBA0C7FFE32307CE1C661013680CF70
30FBE77F381B64380860B580DCA4880BA058B076F7C5FFC1AEFA446BFEF70FE4
DA7F0C7F804E86D040FC17C25EB7F338C3BCA59B18CEED9886DF02C6C49328FC
C94EEF095AECE76CCEB069EF49122CB87082E1C48C0C068B191718A48EE6313C
BD7592E1D8B16F0C56565C6035C8EC298B7730783998326C3B709A780B4E6418
80D9200B1678BC60A8AA6D6358BD603FD850693573381B66819BAD31C3AEC367
715B00520403B9FB04512C3C9AAACB70FBF16EB0253000B20006CEDD3DC4E064
69C0B0EFF805FC16E4C47A60781F990D7239B205C83EB033D3633874EA12F916
201B8ECD020B432D8613E7AFE1B7C048D98EE8E47AD99A1B85AF7FFE3EC399CB
37280B2264F64C60297C0648CF3E7B9661A6B13183F699BB0C17AEDDA2AE05E9
40C3C16CA005EA276F335CB97987B854440C608DF344E1E3B5C0DF511792DDC1
D9FE1F1A1BA938C0210F03382DF0B6D36298B36A2F493EC005B05AD0DA3B932A
86C3008A05B40200F47739EF77A04B0C0000000049454E44AE426082}
Name = 'PngImage29'
Background = clWindow
end>
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
Left = 328
Top = 32
Bitmap = {}
end
object EditorActionList: TActionList
Images = SmallImages
Left = 288
Top = 32
object actAgrupaciones: TAction
Category = 'Tareas'
Caption = 'Agrupaciones'
ImageIndex = 0
OnExecute = actAgrupacionesExecute
end
object actColumnas: TAction
Category = 'Tareas'
Caption = 'Columnas'
ImageIndex = 3
OnExecute = actColumnasExecute
end
object actSumarios: TAction
Category = 'Tareas'
Caption = 'Res'#250'menes'
ImageIndex = 2
OnExecute = actSumariosExecute
end
object actFiltros: TAction
Category = 'Tareas'
Caption = 'Filtros'
ImageIndex = 1
OnExecute = actFiltrosExecute
end
object actRefrescar: TAction
Category = 'Ver'
Caption = 'Refrescar'
end
end
end

250
Source/Modulos/Informes base/Views/uViewInformeBase.pas Normal file
View File

@ -0,0 +1,250 @@
unit uViewInformeBase;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Forms,
Dialogs, uViewBase, TBXDkPanels, StdCtrls, ComCtrls, TB2Dock,
uViewAgrupaciones, uCustomView, uViewColumnas, ImgList, PngImageList,
ActnList, uViewInformeBaseGrid, uBizInformes, uViewSumarios, uViewGridBase,
uViewInformeBaseParametros, uViewFiltros, cxStyles, Controls, uViewFiltroBase,
DB, uDADataTable, uDAInterfaces;
type
IViewInformeBase = interface(IViewGridBase)
['{D716BE6B-1F41-4825-9385-0231D2AEF819}']
function GetModificable: Boolean;
procedure SetModificable(const Value: Boolean);
property Modificable : Boolean read GetModificable write SetModificable;
function GetInforme: IBizInforme;
procedure SetInforme(const Value: IBizInforme);
property Informe: IBizInforme read GetInforme write SetInforme;
function GetOnViewChanged : TNotifyEvent;
procedure SetOnViewChanged(const Value : TNotifyEvent);
property OnViewChanged: TNotifyEvent read GetOnViewChanged write SetOnViewChanged;
end;
TfrViewInformeBase = class(TfrViewGridBase, IViewInformeBase)
TBXMultiDock1: TTBXMultiDock;
pnlParametros: TTBXDockablePanel;
TBXAlignmentPanel2: TTBXAlignmentPanel;
TBXLink1: TTBXLink;
TBXLink5: TTBXLink;
TBXLink2: TTBXLink;
pcParametros: TPageControl;
TabSheet5: TTabSheet;
tsColumnas: TTabSheet;
tsAgrupacion: TTabSheet;
pnlTareas: TTBXDockablePanel;
TBXPageScroller1: TTBXPageScroller;
TBXAlignmentPanel1: TTBXAlignmentPanel;
bFiltros: TTBXLink;
bSumarios: TTBXLink;
pcTareas: TPageControl;
tsSumarios: TTabSheet;
tsFiltros: TTabSheet;
frViewColumnas1: TfrViewColumnas;
frViewAgrupaciones1: TfrViewAgrupaciones;
SmallImages: TPngImageList;
LargeImages: TPngImageList;
EditorActionList: TActionList;
actAgrupaciones: TAction;
actColumnas: TAction;
actSumarios: TAction;
actFiltros: TAction;
frViewSumarios1: TfrViewSumarios;
actRefrescar: TAction;
frViewFiltros1: TfrViewFiltros;
TBXMultiDock2: TTBXMultiDock;
pnlIntervaloFechas: TTBXDockablePanel;
TBXAlignmentPanel3: TTBXAlignmentPanel;
bRefrescar: TButton;
procedure actColumnasExecute(Sender: TObject);
procedure actSumariosExecute(Sender: TObject);
procedure actFiltrosExecute(Sender: TObject);
procedure actAgrupacionesExecute(Sender: TObject);
private
procedure ComprobarPrivilegios;
protected
FInforme : IBizInforme;
FOnViewChanged : TNotifyEvent;
FModificable : Boolean;
procedure ActivarTarea (const ATarea : Integer); virtual;
function GetInforme: IBizInforme; virtual;
procedure SetInforme(const Value: IBizInforme); virtual;
function GetOnViewChanged : TNotifyEvent; virtual;
procedure SetOnViewChanged(const Value : TNotifyEvent); virtual;
function GetModificable: Boolean; virtual;
procedure SetModificable(const Value: Boolean); virtual;
procedure FiltrarGrid(TextoFiltro : String); override;
public
property Modificable : Boolean read GetModificable write SetModificable;
property OnViewChanged: TNotifyEvent read GetOnViewChanged write SetOnViewChanged;
property Informe: IBizInforme read GetInforme write SetInforme;
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Refresh; override;
end;
implementation
{$R *.dfm}
uses cxGridDBTableView, cxFilter, uFactuGES_App;
const
COLUMNAS = 1;
AGRUPACIONES = 2;
SUMARIOS = 3;
FILTROS = 4;
procedure TfrViewInformeBase.actColumnasExecute(Sender: TObject);
begin
inherited;
ActivarTarea(COLUMNAS);
frViewColumnas1.Refresh;
end;
procedure TfrViewInformeBase.ActivarTarea(const ATarea: Integer);
begin
case ATarea of
COLUMNAS : pcParametros.ActivePage := tsColumnas;
AGRUPACIONES : pcParametros.ActivePage := tsAgrupacion;
SUMARIOS : pcTareas.ActivePage := tsSumarios;
FILTROS : pcTareas.ActivePage := tsFiltros;
end;
end;
function TfrViewInformeBase.GetInforme: IBizInforme;
begin
Result := FInforme;
end;
procedure TfrViewInformeBase.SetInforme(const Value: IBizInforme);
begin
FInforme := Value;
frViewColumnas1.Refresh;
frViewAgrupaciones1.Refresh;
ComprobarPrivilegios;
// ¿Es modificable el InformeBase?
// Self.Modificable := FInformeBase.EsModificable;
end;
procedure TfrViewInformeBase.actSumariosExecute(Sender: TObject);
begin
inherited;
ActivarTarea(SUMARIOS);
frViewSumarios1.Refresh;
end;
procedure TfrViewInformeBase.actFiltrosExecute(Sender: TObject);
begin
inherited;
ActivarTarea(FILTROS);
frViewFiltros1.Refresh;
end;
procedure TfrViewInformeBase.actAgrupacionesExecute(Sender: TObject);
begin
inherited;
ActivarTarea(AGRUPACIONES);
frViewAgrupaciones1.Refresh;
end;
function TfrViewInformeBase.GetOnViewChanged: TNotifyEvent;
begin
Result := FOnViewChanged;
end;
procedure TfrViewInformeBase.Refresh;
var
i: Integer;
begin
inherited;
end;
procedure TfrViewInformeBase.SetOnViewChanged(const Value: TNotifyEvent);
begin
FOnViewChanged := Value;
end;
procedure TfrViewInformeBase.ComprobarPrivilegios;
begin
if (AppFactuGES.UsuarioActivo.LOGIN <> 'admin') then
TBXMultiDock1.Visible := False;
end;
constructor TfrViewInformeBase.Create(AOwner: TComponent);
begin
inherited;
FModificable := False;
pcParametros.ActivePage := tsColumnas;
pcTareas.ActivePage := tsSumarios;
FOnViewChanged := nil;
end;
destructor TfrViewInformeBase.Destroy;
begin
ViewFiltros := Nil;
inherited;
end;
procedure TfrViewInformeBase.FiltrarGrid(TextoFiltro: String);
var
Columna: TcxGridDBColumn;
i: Integer;
AItemList: TcxFilterCriteriaItemList;
begin
with _FocusedView.DataController.Filter do
begin
BeginUpdate;
try
Options := [fcoCaseInsensitive, fcoSoftCompare];
// Hemos tenido que sobreescribir este metodo porque hemos tenido que cambiar el orden a aplicar los filtros
// en el caso de los informes debemos aplicar el filtro del campo de texto siempre despues del filtro
// establecido para el informe, por ello este método nunca limpiará el filtro que tenga ya establecido el grid
// sino que se añadirá al filtro existente
// Root.Clear;
if Length(TextoFiltro) > 0 then
begin
AItemList := Root.AddItemList(fboAnd);
AItemList.BoolOperatorKind := fboOr;
for i:=0 to (_FocusedView as TcxGridDBTableView).ColumnCount - 1 do
begin
Columna := (_FocusedView as TcxGridDBTableView).Columns[i];
if (Length(Columna.Caption) > 0) and (Columna.Caption <> 'RecID') then
AItemList.AddItem(Columna, foLike, '%'+TextoFiltro+'%', IntToStr(i));
end;
Active := True;
end
else
Active := False;
finally
ExpandirTodo;
EndUpdate;
end;
end;
end;
function TfrViewInformeBase.GetModificable: Boolean;
begin
Result := FModificable;
end;
procedure TfrViewInformeBase.SetModificable(const Value: Boolean);
begin
FModificable := Value;
frViewColumnas1.Modificable := FModificable;
frViewAgrupaciones1.Modificable := FModificable;
end;
end.

149
Source/Modulos/Informes base/Views/uViewInformeBaseGrid.dfm Normal file
View File

@ -0,0 +1,149 @@
inherited frViewInformeBaseGrid: TfrViewInformeBaseGrid
object dxPrintStyleManager1: TdxPrintStyleManager
CurrentStyle = dxPrintStyleManager1Style1
PageSetupDialog = dxPageSetupDialog1
Version = 0
Left = 16
Top = 16
object dxPrintStyleManager1Style1: TdxPSPrintStyle
PrinterPage.DMPaper = 9
PrinterPage.Footer = 6350
PrinterPage.Header = 6350
PrinterPage.Margins.Bottom = 20000
PrinterPage.Margins.Left = 12700
PrinterPage.Margins.Right = 12700
PrinterPage.Margins.Top = 20000
PrinterPage.PageFooter.CenterTitle.Strings = (
'[Date & Time Printed]')
PrinterPage.PageFooter.Font.Charset = DEFAULT_CHARSET
PrinterPage.PageFooter.Font.Color = clBlack
PrinterPage.PageFooter.Font.Height = -12
PrinterPage.PageFooter.Font.Name = 'Tahoma'
PrinterPage.PageFooter.Font.Style = []
PrinterPage.PageFooter.LeftTitle.Strings = (
'LUIS LE'#211'N REPRESENTACIONES S.L.')
PrinterPage.PageFooter.RightTitle.Strings = (
'[Page #] de [Total Pages]')
PrinterPage.PageHeader.Font.Charset = DEFAULT_CHARSET
PrinterPage.PageHeader.Font.Color = clBlack
PrinterPage.PageHeader.Font.Height = -15
PrinterPage.PageHeader.Font.Name = 'Tahoma'
PrinterPage.PageHeader.Font.Style = []
PrinterPage.PageHeader.LeftTitle.Strings = (
'')
PrinterPage.PageSize.X = 210000
PrinterPage.PageSize.Y = 297000
PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxLastMU_ = 2
BuiltInStyle = True
end
end
object dxPageSetupDialog1: TdxPageSetupDialog
ButtonsVisible = [psbStyleOptions]
Left = 48
Top = 16
end
object dxPSEngineController1: TdxPSEngineController
LookAndFeel = pslfOffice11
UseNativeLookAndFeel = False
Left = 80
Top = 16
end
object dxComponentPrinter: TdxComponentPrinter
CurrentLink = dxPrinterLinkcxGrid
PreviewOptions.ShowExplorer = True
PreviewOptions.WindowState = wsMaximized
Version = 0
Left = 112
Top = 16
object dxPrinterLinkcxGrid: TdxGridReportLink
PrinterPage.DMPaper = 9
PrinterPage.Footer = 6350
PrinterPage.GrayShading = True
PrinterPage.Header = 6350
PrinterPage.Margins.Bottom = 12700
PrinterPage.Margins.Left = 12700
PrinterPage.Margins.Right = 12700
PrinterPage.Margins.Top = 12700
PrinterPage.PageSize.X = 210000
PrinterPage.PageSize.Y = 297000
PrinterPage.ScaleMode = smFit
PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxLastMU_ = 2
ReportDocument.CreationDate = 38877.461868113420000000
StyleManager = dxPrintStyleManager1
OptionsCards.Shadow.Depth = 0
OptionsFormatting.SuppressBackgroundBitmaps = True
OptionsFormatting.UseNativeStyles = True
OptionsFormatting.ConsumeSelectionStyle = True
OptionsLevels.Unwrap = True
OptionsRefinements.TransparentGraphics = True
OptionsSize.AutoWidth = True
OptionsView.Caption = False
OptionsView.ExpandButtons = False
OptionsView.FilterBar = False
StyleRepository = cxStyleRepositoryInforme
Styles.Content = cxStyleContentInforme
Styles.Footer = cxStyleFooterInforme
Styles.Group = cxStyleGroupInforme
Styles.Header = cxStyleHeaderInforme
Styles.Selection = cxStyleSelectionInforme
BuiltInReportLink = True
end
end
object cxStyleRepositoryInforme: TcxStyleRepository
Left = 112
Top = 48
PixelsPerInch = 96
object cxStyleContentInforme: TcxStyle
AssignedValues = [svColor, svFont, svTextColor]
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
TextColor = clBlack
end
object cxStyleFooterInforme: TcxStyle
AssignedValues = [svColor, svFont, svTextColor]
Color = 14803425
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
TextColor = clBlack
end
object cxStyleGroupInforme: TcxStyle
AssignedValues = [svColor, svFont, svTextColor]
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = [fsBold]
TextColor = clBlack
end
object cxStyleHeaderInforme: TcxStyle
AssignedValues = [svColor, svFont, svTextColor]
Color = 14803425
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
TextColor = clBlack
end
object cxStyleSelectionInforme: TcxStyle
AssignedValues = [svColor, svFont, svTextColor]
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
TextColor = clBlack
end
end
end

284
Source/Modulos/Informes base/Views/uViewInformeBaseGrid.pas Normal file
View File

@ -0,0 +1,284 @@
{*******************************************************}
{ }
{ Administración de puntos de venta }
{ }
{ Copyright (C) 2006 Rodax Software S.L. }
{ }
{*******************************************************}
unit uViewInformeBaseGrid;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewBase, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
cxDataStorage, cxEdit, DB, cxDBData, dxPSGlbl, dxPSUtl, dxPSEngn,
dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
dxPSEdgePatterns, dxPSCore, ActnList, uDADataTable, cxGridLevel,
cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxGrid, dxPScxCommon, dxPScxGrid6Lnk,
dxPgsDlg;
type
IViewInformeBaseGrid = interface(IViewBase)
['{35BD610D-3BCF-4496-BA98-B86A7821CEFC}']
procedure ExpandirTodo;
procedure ContraerTodo;
procedure AjustarAncho;
procedure Preview;
procedure Print;
procedure PrintSetup;
procedure GotoFirst;
procedure GotoLast;
function GetColumnByCaption (const ACaption : String): TcxGridDBColumn;
function GetFocusedView : TcxGridDBTableView;
property FocusedView : TcxGridDBTableView read GetFocusedView;
function GetColumnCount: Integer;
function GetColumns(Index: Integer): TcxGridDBColumn;
property Columns[Index: Integer] : TcxGridDBColumn read GetColumns;
property ColumnCount : Integer read GetColumnCount;
function GetGroupedColumnCount: Integer;
function GetGroupedColumns(index: Integer): TcxGridColumn;
property GroupedColumns[Index: Integer] : TcxGridColumn read GetGroupedColumns;
property GroupedColumnCount : Integer read GetGroupedColumnCount;
function GetOnViewChanged : TNotifyEvent;
procedure SetOnViewChanged(const Value : TNotifyEvent);
property OnViewChanged: TNotifyEvent read GetOnViewChanged write SetOnViewChanged;
function GetViewProperties: String;
procedure SetViewProperties(const Value: String);
property ViewProperties: String read GetViewProperties write SetViewProperties;
function GetFilterValueList(index: Integer) : TStringList;
property FilterValueList[Index : Integer]: TStringList read GetFilterValueList;
function GetOnFilterChanged: TNotifyEvent;
procedure SetOnFilterChanged(const Value: TNotifyEvent);
property OnFilterChanged: TNotifyEvent read GetOnFilterChanged write SetOnFilterChanged;
end;
TfrViewInformeBaseGrid = class(TfrViewBase, IViewInformeBaseGrid)
dxPrintStyleManager1: TdxPrintStyleManager;
dxPrintStyleManager1Style1: TdxPSPrintStyle;
dxPageSetupDialog1: TdxPageSetupDialog;
dxPSEngineController1: TdxPSEngineController;
dxComponentPrinter: TdxComponentPrinter;
dxPrinterLinkcxGrid: TdxGridReportLink;
cxStyleRepositoryInforme: TcxStyleRepository;
cxStyleContentInforme: TcxStyle;
cxStyleFooterInforme: TcxStyle;
cxStyleGroupInforme: TcxStyle;
cxStyleHeaderInforme: TcxStyle;
cxStyleSelectionInforme: TcxStyle;
private
protected
FOnViewChanged : TNotifyEvent;
FOnFilterChanged : TNotifyEvent;
function GetColumnCount: Integer;
function GetColumns(Index: Integer): TcxGridDBColumn;
function GetGroupedColumnCount: Integer;
function GetGroupedColumns(Index: Integer): TcxGridColumn;
function GetFocusedView : TcxGridDBTableView; virtual; abstract;
function GetColumnByCaption (const ACaption : String): TcxGridDBColumn;
function GetOnViewChanged : TNotifyEvent; virtual;
procedure SetOnViewChanged(const Value : TNotifyEvent); virtual;
function GetOnFilterChanged: TNotifyEvent; virtual;
procedure SetOnFilterChanged(const Value: TNotifyEvent); virtual;
function GetViewProperties: String; virtual;
procedure SetViewProperties(const Value: String); virtual;
function GetFilterValueList(index: Integer) : TStringList; virtual;
procedure ActivarEventos; virtual;
procedure DesactivarEventos; virtual;
public
procedure Preview; virtual;
procedure Print; virtual;
procedure PrintSetup; virtual;
procedure GotoFirst; virtual;
procedure GotoLast; virtual;
procedure ExpandirTodo; virtual;
procedure ContraerTodo; virtual;
procedure AjustarAncho; virtual;
property FocusedView : TcxGridDBTableView read GetFocusedView;
property Columns[Index: Integer] : TcxGridDBColumn read GetColumns;
property ColumnCount : Integer read GetColumnCount;
property GroupedColumns[Index: Integer] : TcxGridColumn read GetGroupedColumns;
property GroupedColumnCount : Integer read GetGroupedColumnCount;
property OnViewChanged: TNotifyEvent read GetOnViewChanged write SetOnViewChanged;
property OnFilterChanged: TNotifyEvent read GetOnFilterChanged write SetOnFilterChanged;
property ViewProperties: String read GetViewProperties write SetViewProperties;
property FilterValueList[Index : Integer]: TStringList read GetFilterValueList;
constructor Create(AOwner: TComponent); override;
end;
implementation
{$R *.dfm}
{ TfrViewInformeBaseGrid }
procedure TfrViewInformeBaseGrid.ActivarEventos;
begin
//
end;
procedure TfrViewInformeBaseGrid.AjustarAncho;
begin
FocusedView.ApplyBestFit;
end;
procedure TfrViewInformeBaseGrid.ContraerTodo;
begin
FocusedView.ViewData.Collapse(True);
end;
constructor TfrViewInformeBaseGrid.Create(AOwner: TComponent);
begin
inherited;
FOnViewChanged := nil;
end;
procedure TfrViewInformeBaseGrid.DesactivarEventos;
begin
//
end;
procedure TfrViewInformeBaseGrid.ExpandirTodo;
begin
FocusedView.ViewData.Expand(True);
end;
function TfrViewInformeBaseGrid.GetColumnByCaption(
const ACaption: String): TcxGridDBColumn;
var
i : integer;
begin
Result := NIL;
for i := 0 to FocusedView.ColumnCount - 1 do
if FocusedView.Columns[i].Caption = ACaption then
begin
Result := FocusedView.Columns[i];
Break;
end;
end;
function TfrViewInformeBaseGrid.GetColumnCount: Integer;
begin
Result := FocusedView.ColumnCount;
end;
function TfrViewInformeBaseGrid.GetColumns(Index: Integer): TcxGridDBColumn;
begin
Result := FocusedView.Columns[Index];
end;
function TfrViewInformeBaseGrid.GetFilterValueList(
index: Integer): TStringList;
var
AValueList : TcxDataFilterValueList;
i : Integer;
begin
Result := TStringList.Create;
AValueList := TcxDataFilterValueList.Create(FocusedView.DataController.Filter);
try
AValueList.Load(Columns[Index].Index);
for i := 0 to AValueList.Count - 1 do
Result.Add(AValueList[i].DisplayText);
finally
FreeAndNil(AValueList);
end;
end;
function TfrViewInformeBaseGrid.GetGroupedColumnCount: Integer;
begin
Result := FocusedView.GroupedColumnCount;
end;
function TfrViewInformeBaseGrid.GetGroupedColumns(
Index: Integer): TcxGridColumn;
begin
Result := FocusedView.GroupedColumns[Index];
end;
function TfrViewInformeBaseGrid.GetOnFilterChanged: TNotifyEvent;
begin
Result := FOnFilterChanged;
end;
function TfrViewInformeBaseGrid.GetOnViewChanged: TNotifyEvent;
begin
Result := FOnViewChanged;
end;
function TfrViewInformeBaseGrid.GetViewProperties: String;
var
AStream : TStringStream;
begin
DesactivarEventos;
AStream := TStringStream.Create('');
try
FocusedView.StoreToStream(AStream, [gsoUseFilter,gsoUseSummary], FocusedView.Name);
Result := AStream.DataString;
finally
AStream.Free;
ActivarEventos;
end;
end;
procedure TfrViewInformeBaseGrid.GotoFirst;
begin
FocusedView.DataController.GotoFirst;
end;
procedure TfrViewInformeBaseGrid.GotoLast;
begin
FocusedView.DataController.GotoLast;
end;
procedure TfrViewInformeBaseGrid.Preview;
begin
dxPrinterLinkcxGrid.Preview;
end;
procedure TfrViewInformeBaseGrid.Print;
begin
dxPrinterLinkcxGrid.Print(True, nil);
end;
procedure TfrViewInformeBaseGrid.PrintSetup;
begin
dxPrinterLinkcxGrid.PageSetup;
end;
procedure TfrViewInformeBaseGrid.SetOnFilterChanged(const Value: TNotifyEvent);
begin
FOnFilterChanged := Value;
end;
procedure TfrViewInformeBaseGrid.SetOnViewChanged(const Value: TNotifyEvent);
begin
FOnViewChanged := Value;
end;
procedure TfrViewInformeBaseGrid.SetViewProperties(const Value: String);
var
AStream : TStringStream;
begin
DesactivarEventos;
AStream := TStringStream.Create(Value);
try
AStream.Position := 0;
FocusedView.RestoreFromStream(AStream, True, True, [gsoUseFilter,gsoUseSummary],
FocusedView.Name);
finally
AStream.Free;
ActivarEventos;
end;
end;
end.

3
Source/Modulos/Informes base/Views/uViewInformeBaseParametros.dfm Normal file
View File

@ -0,0 +1,3 @@
inherited frViewInformeBaseParametros: TfrViewInformeBaseParametros
ParentFont = True
end

82
Source/Modulos/Informes base/Views/uViewInformeBaseParametros.pas Normal file
View File

@ -0,0 +1,82 @@
unit uViewInformeBaseParametros;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewBase, uViewInformeBaseGrid;
type
IViewInformeBaseParametros = interface(IViewBase)
['{7830A245-0BB2-4E24-88AE-2D937A3FC904}']
function GetModificable: Boolean;
procedure SetModificable(const Value: Boolean);
property Modificable : Boolean read GetModificable write SetModificable;
procedure SetViewInformeBaseGrid (const Value : IViewInformeBaseGrid);
function GetViewInformeBaseGrid : IViewInformeBaseGrid;
property ViewInformeBaseGrid : IViewInformeBaseGrid read GetViewInformeBaseGrid write SetViewInformeBaseGrid;
procedure Execute;
procedure Refresh;
end;
TfrViewInformeBaseParametros = class(TfrViewBase, IViewInformeBaseParametros)
protected
FViewInformeBaseGrid : IViewInformeBaseGrid;
FModificable : Boolean;
function GetModificable: Boolean; virtual;
procedure SetModificable(const Value: Boolean); virtual;
procedure SetViewInformeBaseGrid (const Value : IViewInformeBaseGrid); virtual;
function GetViewInformeBaseGrid : IViewInformeBaseGrid; virtual;
public
property Modificable : Boolean read GetModificable write SetModificable;
property ViewInformeBaseGrid : IViewInformeBaseGrid read GetViewInformeBaseGrid write SetViewInformeBaseGrid;
procedure Execute; virtual;
procedure Refresh; override;
end;
implementation
{$R *.dfm}
{ TfrViewInformeBaseParametros }
procedure TfrViewInformeBaseParametros.Execute;
begin
if not Assigned(ViewInformeBaseGrid) then
raise Exception.Create('Vista para el control no asignada (Execute)');
end;
function TfrViewInformeBaseParametros.GetModificable: Boolean;
begin
Result := FModificable;
end;
function TfrViewInformeBaseParametros.GetViewInformeBaseGrid: IViewInformeBaseGrid;
begin
Result := FViewInformeBaseGrid;
end;
procedure TfrViewInformeBaseParametros.Refresh;
begin
inherited;
if not Assigned(ViewInformeBaseGrid) then
raise Exception.Create('Vista para el control no asignada (Refresh)');
end;
procedure TfrViewInformeBaseParametros.SetModificable(
const Value: Boolean);
begin
FModificable := Value;
end;
procedure TfrViewInformeBaseParametros.SetViewInformeBaseGrid(
const Value: IViewInformeBaseGrid);
begin
FViewInformeBaseGrid := Value;
end;
end.

558
Source/Modulos/Informes base/Views/uViewInformes.dfm Normal file
View File

@ -0,0 +1,558 @@
inherited frViewInformes: TfrViewInformes
Width = 469
Height = 308
ExplicitWidth = 469
ExplicitHeight = 308
object EasyListview: TcxListView
Left = 0
Top = 0
Width = 469
Height = 308
Align = alClient
Columns = <
item
AutoSize = True
Caption = 'Margen'
end
item
AutoSize = True
Caption = 'Ventas'
end>
Items.ItemData = {
0160000000010000000000000001000000FFFFFFFF0000000000000000256100
6100610061006100610020007300640066007300640020007300640066002000
7300640066007300640020007300640066002000640073002000660073006400
6600730064006600}
LargeImages = ReportImages
ParentShowHint = False
ShowHint = True
ShowWorkAreas = True
TabOrder = 0
OnDblClick = EasyListviewDblClick
OnSelectItem = EasyListviewSelectItem
end
object ReportImages: TPngImageList
Height = 28
Width = 28
PngImages = <
item
PngImage.Data = {
89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF
940000000970485973000017120000171201679FD252000002024944415478DA
BDD5DB2E03411800E0E923B870E1CE9D085A940B823894D2489C4FAFE101BC80
8444840B89B3D4A954292D8A2855DD5655EB14E205A4570E09BAFB9B5944C7A1
B335F87727F3CFBF93F976B3995D1500A0FF0C553468D93A9107A4F6D6A8313E
E4F33597AFCBE74BDED93384FCF67E5534F0F181287061F3186A4AD27E74E746
AB80921213507B471785C604CD1B21A82D4DFF1138B1B48F325393D175F88642
FF0494F01A46AB07156853D0EDFD0385C604E71D41A82BCB880B1325098922A0
699B80CAF2D2D1E35384420F6C7DAA6FC1B9F523A8D7A9E3C6483F6BF7A2EEBE
B14F736282A6F50034E834716392847B51425BDE2B74777F87C2E1B03C6770C2
C200D73058CE06BFC23ED64C36171B9C5D3D84C68A4C6E8CD4CC6B6E363863F7
43933E8B1B23F9A2C3C306A7ED07D0ACCFE6C6486EDD14D8E094CD072D955A0A
227B8C0550B5D7F1AAD3A7005CC16095961B23BD63D7CF062757BCD05A95C38D
C95BC41D6083C66501DA0CB9DC18694E21A800B40AD062C8E1C6445C77F9426C
107FF1F13BCCE5C622B8F71C9E28031B2BB4DC18C97DC1333638BEE8863A5D36
738F452FFC0ED278E0F4820D8E59F6A0A6348B1B237342E797CAC0EA620D3746
421138BAE0024391861B530C8E9877A1B250CD8D290687E777405FA0E6C61483
43734E28CFCF90FF65BF114C70D0B40DBD0393BF82BD454CF03FE219EFD39C05
A47A98E90000000049454E44AE426082}
Name = 'PngImage0'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF
940000000970485973000017120000171201679FD252000002CB4944415478DA
BDD36F4813711807F0EF4984F5A68108254249648689A961334B8C95342CAD4C
222D5F66607F2C825E1426B504090A7B636446A00605A624A4258A664EF1DFA6
0E97298D72AED3306FCB68A277D7EE3776E9727AB7AB1E381EF8DDFD9ECFEFB9
E78EE2791EFF33286F90A228E0DA171EB737504AB37E3D48F1DD34A865415556
13CF3CD5504AF2AB660D765D3E8F804F15E8A86644F40FF0597D2F59385B69C7
8353EBFCCA8FD24611929F8B840C15A0676076AA60187720DBC1514B8227B471
A0624AC01B2ECACA6CDF05D43C2FC39EE4740C6487E2C0B77982093134F51D21
012C7C82728373D5F160344D639AF90A477E0A8269777D130D9C1126F6374096
E3F0AE220FEF9D3BA056AB0926849DF901AAF028268C3CC17CCE500EE8C1E2F7
6F4780B5074F8C6A6C8DD84C30A1539D4E07ABD5EAFB2B5D0816D78CAF08AA1D
3A119B9C9B01373F8B86E15472CF1B53D4A177671E8C9918839331E2B82E14C1
918761785DAA1C94825D2D2AC3E3AA97CA416F6C62D60E8E9D857DD226621DDD
83A86DEC940F2E35C38533F3850987AA6BEAF2BF43E11FE3381EED95CB77D6DE
35409E13C0FA961EFF407F3096E5F1A6AD573EE8C15896C3AD829398E3D39197
FA62454CC84DED0679A080DDA9B591B54DB6EB181C9B41ECCC38FA5497901955
2462E7EE772EDA9F16BD8A1CB0A5B35F3A98793056EC4C386D516136AE24AD86
A5D90C8B3310D59FD7E0ADE1C3929D913DAEABCDF5F1480633526244ACAE3C17
DDFA56E4C586C160F909FD340D666D1C0A6E3EF489B1AE757DAF493A7844132D
163A9D93838F23666C0CE611141A066D7C10128EDD5D169B77E52EE39074F050
7214D95CDA3885AA1B5A848547226B5F201233EE91E26ECC5DD8F326DCE06FBC
CF342C1DD4EE8D5C74FA85F394820957BF79443A9892B84D11263C631A1E950E
6AD4118A30216481C9F1E18A30D960D2CE2DA86ED0436948068B4BCA15639E58
11FCD7F10B8E341130466CDCF80000000049454E44AE426082}
Name = 'PngImage1'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF
940000000970485973000017120000171201679FD252000002B14944415478DA
BDD5CB4F13411800F0AF897AF2A0311E8C07F5604C63E9839683040D42A1D098
D42A8826DEFC070C4AF4E4C1981883C117C13755B02922A505ACB440855829B5
DB07B5151589070831846C222A242ADD717760B14B6B676991AFBB99D9D96FF7
37B3B3D3952084602D439208760E8CE003AE8DDF05C7EC0F6F8B757C1E6F0BF5
DA9B2608BB6E4B1281E50312801DFDEF90E1E0DE8C7A6E7150B06DEB66A8BE50
2740D382F6973174B8489611687EFE0694D29D304D7F17A0FF0564D87B581C7E
2850EF811F733F05685AD0E68E2263710EAE5FB14D12A173C6ED10671888C711
B43A2928DE27835FBFE70568C8D920F927D8DEF7161DD1CA458F8CC7B8B2CD15
806B0DCD493969416B5F041DD52A568C310C5BC61918087C86D9B959A0691AE7
349A3B09602F0B9690C154D8F236ABD34B06DB7A865145A952F41C26C6A9C24D
820ED87B7D64F0992B8C2A75AAAC46C6B775B9FD64B0D51542C774B959635CDD
D14F91C1A7CE20AA2A530B206E8D910041DBE2718F272802EC66C172754673C8
8751B501A3EEC130196CE90EA0E3E59AAC46B650B24BC41721839617143AA1CF
CB1AE3760F1515013A2854A5D7648DC5D9766F304606D97F7C760EF3F045D71D
5329E7E864FE467CF31DF7C6539E0F566E8179F67AFFF08838B0A2542D6A64BB
1E4C80A9F8EFB7939E61C07CEB34DCA93D8FF383D10F64F049970F19B5B9C435
C63DB2DDA6C92590C3462718A0ECD5507FB906E746DE7F2283CD9D43C850A422
62DC2393367DC1208F8D8E3330133A0B372E9DC139B18F63E2C043850A8C3D1C
F89A728E0CCAF5B80332F3145CD5489730FA1B827563355077B11AE789029B3A
BC487F409176647C9BC2320DAAA1BB491D5A11F8D83E88CAF6CB89D8C2EB9FBC
14124314F8C8F61AE90AE45963A24153BB0795E4E7E06FD96A04116CB4BE42F5
F75B5605E3232DB816F1079F420105E5B916660000000049454E44AE426082}
Name = 'PngImage2'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF
940000000970485973000017120000171201679FD252000002E14944415478DA
63FCFFFF3F033D0123B2859B0E5C03734062308CC207423082B2C1F260046177
4F9ACF707EE77446640BD03D8462E1C6FD57FFFB3B6A93E5F2E55B4F33488A0A
3214D5F5A1588AD7C20DFBAEFC0F70D221CBC2A55B4E3218682A30BC7EFB19C5
52A22DEC5CFF142E5E1E284D504C86F509838DB13AC3976F3F512CC56BE1FABD
97FF073AEB92E4B3BFFFFE31FCFDFB9F61D58ED30CCE963A0CBF7EFF41B1F4DC
8E698C382D5CB7E7D2FF20173D922D03D16B769E61E89FB618430D5E0BD7EEB9
F83FD8451F23F8B081127F49B865FFFE01E9BFFF180E9CB9C7F0F5DB5786B76F
DF82D5CC5BBA898085BB8116BAEA93E4339865E8626B771C236CE19A5D17FE87
B819506C19486CC3EE13842D5CBDF3FCFF5077439420454F8D20D5202D208341
74B6BB10D8B2C93BDF81B300509821D5818761F3DE53842D5CB5F3DCFF307723
8A7C06636FDD7F9AB0852B779CFD1FEE618CE2A3D20029B0013D9B9EA3F8ECDF
7F089DEECC0FB674FADE8F50710686441B4E865D87CF1261E176A0859EC6703E
C85042BE411143E2EF3D7A9EB0852BB69FF91FE16982E2C3026F71B0017D5B5E
217CF60FE1C354475EB06533F77F81C7619C251BC3811317095BB87CDBE9FF91
5EA614F90C2C0FC4874F5F26C2C2ADA7FF877B99800DE9DEF81CECE25C0F51B0
4113B7BF41F1D93F48CDC4906CC705B66CF6C16F701FC698B3301C3B7B85B085
C0121F1887A614F9EC2F50FC0F903E75E11A711686B819A3C459B69B10D82048
3E43F80C9662136C38C0F2F38EFC848B459830329CBD7C83B0854B369FF81FE8
6244308FC17C815087E9D38BD76F13B670F1A6E3FFFD9D0CC11A27ED780B8E33
483EFB07CC679F507CF60FDAD48806C617C8B2C527FE80C5402058FF2FC3959B
7788B3D0C7419F229FFD85DA4A94858B361EFBEF65A74FB165445BB870C3D1FF
1EB67A6459B6EA3C13DC1CA28374C1FA23FFDD6DF428F219493E9CBFEEF07F57
2B5D705D460D40D0C2796B0FFD9F327B05552C8301BC16D2030000BD734D0581
7DF1720000000049454E44AE426082}
Name = 'PngImage3'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF
940000000970485973000017120000171201679FD252000001C64944415478DA
63FCFFFF3F033D01E38059B87CDB699ADB1CE965CA88622150806CC3FE01CDF9
F7EF3FC3DFBFFF18FEFEFB87C4FECFB06CD32186794B37319CDB310DBF858C33
1919823435197EFDFD0BC6BFA134980D34F4C79F3F0C3F81EC3F40F64F201BCC
07E237515FE196FD03CAADD87284780BC9011FA2BEC12D03D1ABB71D25CE424A
8211661988BF6EE771D22D644CC4EFDBCF537F30FCF903B1186C21D462107FD3
9E9394F9106CE85F245F807CF7F73F56CB40BEDEB2EF146E0B09F9845470A7E9
35C3F60367F05BF87F3E224B5E5C69C8A01F7E1E271F19A0CB81CCBA59FF8A61
D7E1B3F82D4CC830806B2A78C0C030418101271F19A0CB2D987181E17AED0B86
3D47CFD3CF8757AA9F33EC3F7E817E3EBC50FE84E1F0E9CBF4F3E1D9D2C70CC7
CE5EA19F0F4F173F643871FE1AFD7C78A2F001C3E98BD7B15B18EE69C2C09CC4
44551F1ECDBBC770EECA4DEC1686BA1B33B0A63053D5878773EE325CB8760BBB
85412E860C1CE9AC54F5E1FECCDB0C576EDEC16EA1BF933E0377263B557D88D7
426F7B5D06FE1C4E066A02BC167ADAE8E02CF149AD2190014E0BDDACB4A86E19
5E0B9D2D3419566D3D42D5208501AC16764F9A4F13CB6000C5427A01BA5B0800
BE8AE7E7F700C7D10000000049454E44AE426082}
Name = 'PngImage4'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF
940000000970485973000017120000171201679FD2520000020E4944415478DA
63FCFFFF3F033D0123C842464646086F06034D6CFF9FFE9F11C5C2695326FDEF
9ED4CFF0A0F801C311EF7D641BFC0F08FFFCFFC5F0FBDF2F300DC2FE4D310CFF
E7A359A8A8A6F8FFFEADFB0C8585850C1BB66E6058B26F1E752CDB15C3C07082
01D342980F4100D9329BAD4E382D60636283606636067628FBE1D7470C5BDD57
C12D0CDE9D84DD425C3E0459986060806A112307030FB310032F8B1098E666E6
63E060E201E3A8B61C868D754B2016027D1ABE3783741F225B88CF324E661E86
C0E60486B5B5F3C096FD065A1AB32F8F7C1F12B20C447B3686302CAB9E0AB610
E4CBA403E5E4F99018CB40D8B1DE836151653F3C0ED30ED692EEC334430BA22C
6305261A9B5A278679159D700BB30E3593914A4F90963D669537C32DCC3BDC49
9A0F91C19FFFBFC1090196026186FE46E323F06F86A2237DA4F99012CB4072E5
47A790EE434296FDFAFF1D21CEF01BA5B4A93D3E97781F622BAA6096FE46E363
B30C841B4F2C26CE878BF6CDA1D832106E3DB992B00FA9651908779E5A4F9C0F
67EE9E40B16520F57DA7B712F621B52C03D193CEEC26CE871377B6906DD9CF7F
DFE1EC19E78E10F621BA65BF900C40CE637843018AE79C3F459C0FDBB695E2CD
D0C45806C20B2E5C20EC43522D5B1E7E066B99EAB05800B785E83EACDB9C4991
CF6080281F52CB32BC16A2FB10D45CA41AC06621A821ACA0AA006E043FB0A6A2
65508061213D010026DA8D05688EA69C0000000049454E44AE426082}
Name = 'PngImage5'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF
940000000970485973000017120000171201679FD252000003474944415478DA
BD946B48536118C79F95140409E62DBB7C083F85084566372135D2F292B74AD3
CCC44B492C32FC966D5AFA2D2A34E9A236733A9D695EA76B622A998917549CA9
980895B75D6995A5DBD9DBD939DBAB23754B9D0FBC9CE7FF1ECEF37BFEEFCB79
180821D8C860E8808CDB03CE649E4AAEAB16E214902B033D741D330039AE7B6D
D604637AD8027F500D12A5CA28EF1E0F845EE526386A5F5040026329A055BC08
1173EAE5AB21C672E78353768C37D48895D0DBD36B948B9D7221EFE721C89E3F
029A3C1F06063A8C0D5AE834E99038BB2C007730BBD048FA7E8B029DEF0E812A
E7300DB4BDD98DE4596EAB2EA6256B68B50808420B84965C04A29E863DBEA00D
5822040AEE59D3C0FCFC853C2E6E657D296A1E4A8AB7601D10FC83825608DB81
F5560B8A22BFB5395CCACD527B558D1D24902081FEC6C0FCC5EDAE43F8FA8751
E0DAA64E600935A0280E589D43739D1972417317B01AD4A0E0051A03E3E37BA9
82797907CDBAC388C87928E519DF595DD576ACBD7DE5241481B0B51BD80DF320
E79DA38176CC4E24CB765F77673A985A4340D3077218D4CF81BC24480FBCF111
C9728E9974187D85006EE166AC432FCCC29BD7DBB03EEDA784C67A1BAC8F7BCD
500DB474F4035BF007E4A5C134D03EA90D499F7A98ED4CD7F5B20E1769EA3DB9
DE770D00BBEE37C8F9217AE0B556247D7EF21F87BA1F9AF372618E5E8C9883B2
D2AD58FB07A940506D8DB5A78F0C5A447658BB9D98A08EB5BD474C0267496028
0D74486841925C4F2357A6A68739CE74300DF9ECECFB0469B5BF405616A607C6
352149FE29ECF045EE015CB8886B859B08393F0B95E52BDF597BB323D6AEEE5F
A81A3D03C3904E02A506A063AC08CD707CD6D599EE9E0DBA7F6814D2ABBE83B4
225C0F8C11A29957675605536BB48BDE2D0D178F7C867BE552905447D3C09DD1
023459E80789097D94CBAC272EF8C394E4617C446919FB202D751CEB943BBBE1
41E604D6D76FD9C1B3C732AC2F27D2434007BCCF9F8299BA583D30AA067D2B0C
C09D6A34A67F680D61DA992174C00CDE57986E48A081BB222BD11827C0ECE9F1
3F300CE48EC3B4288906EE09E5A291E270E094BF3339DE561B9905A330D5C4A4
814E5E8FD0B4B5DDDAABAE104E2A194C3627EB8F94045A94A60F0CDCC8D870E0
5FA7D4B1F664B3FE1D0000000049454E44AE426082}
Name = 'PngImage6'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF
940000000970485973000017120000171201679FD252000001084944415478DA
63FCFFFF3F033D01E3A88534B19031F124ED6DBD7081E1FFF97446B885516106
0CEF7E3130ECD870812134D480E1EB1F06862F50FCE937847E71807C390C0B3D
0220169EDA7681C12BD00045D38B1F1036C3093C72474F31788598E1D4876121
CD82F2FF3F60C431A15AB874CBC9FF6E969A0C5FBFFF64387AE11E43B48F3956
BD407564C98180914716C3B91DD310161AA849812DBCFDF82DD52D9CB27807C3
BCA59B502D549515663875E90E83A0A020568D7FFFFE6558B1FD0C5972D397ED
C6B49016D1F7FBD72F0656363686F7EFDF635A48CB38C41AA4A3714809188DC3
D1381C8D43E2E21014A42BB71DA3593C6258D83B6521CD2C8301B885F404C3DF
42005A1A11E70A945A890000000049454E44AE426082}
Name = 'PngImage7'
Background = clWindow
end>
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
Left = 115
Top = 96
Bitmap = {}
end
object dsDataTable: TDADataSource
Left = 40
Top = 96
end
object JsNuevoDialog: TJSDialog
Content.Strings = (
'Elija una opci'#243'n:')
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 = 'Previsualizar...'
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
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 = 224
Top = 88
end
end

258
Source/Modulos/Informes base/Views/uViewInformes.pas Normal file
View File

@ -0,0 +1,258 @@
unit uViewInformes;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewBase, cxGraphics, cxCustomData, cxStyles, cxTL,
cxImageComboBox, cxMaskEdit, cxTextEdit, cxInplaceContainer, cxDBTL,
cxControls, cxTLData, Menus, uBizInformes, DB, uDADataTable,
ImgList, PngImageList,
//EasyListview,
// MPCommonUtilities,
// MPCommonObjects,
pngimage, JSDialog, uDAInterfaces, ComCtrls, cxContainer, cxListView,
JvExComCtrls, JvListView;
type
IViewInformes = interface(IViewBase)
['{D991FCEC-08DB-4F77-BD57-FA04B3C88788}']
function GetDblClick: TNotifyEvent;
procedure SetDblClick(const Value: TNotifyEvent);
property OnDblClick: TNotifyEvent read GetDblClick write SetDblClick;
function GetPopupMenu: TPopupMenu;
procedure SetPopupMenu(const Value: TPopupMenu);
property PopupMenu: TPopupMenu read GetPopupMenu write SetPopupMenu;
function GetInformes: IBizInforme;
procedure SetInformes(const Value: IBizInforme);
property Informes: IBizInforme read GetInformes write SetInformes;
procedure Refresh;
end;
TfrViewInformes = class(TfrViewBase, IViewInformes)
ReportImages: TPngImageList;
dsDataTable: TDADataSource;
JsNuevoDialog: TJSDialog;
EasyListview: TcxListView;
procedure EasyListviewSelectItem(Sender: TObject; Item: TListItem;
Selected: Boolean);
procedure EasyListviewDblClick(Sender: TObject);
// procedure EasyListviewItemDblClick(Sender: TCustomEasyListview;
// Button: TEasyMouseButton; MousePos: TPoint;
// HitInfo: TEasyHitInfoItem);
{ procedure EasyListviewItemContextMenu(Sender: TCustomEasyListview;
HitInfo: TEasyHitInfoItem; WindowPoint: TPoint; var Menu: TPopupMenu;
var Handled: Boolean);
procedure EasyListviewItemSelectionChanged(Sender: TCustomEasyListview;
Item: TEasyItem);
procedure EasyListviewItemDblClick(Sender: TCustomEasyListview;
Button: TCommonMouseButton; MousePos: TPoint; HitInfo: TEasyHitInfoItem);
}
protected
FInformes : IBizInforme;
FOnDblClick: TNotifyEvent;
FPopupMenu: TPopupMenu;
function GetDblClick: TNotifyEvent; virtual;
procedure SetDblClick(const Value: TNotifyEvent); virtual;
function GetPopupMenu: TPopupMenu; virtual;
procedure SetPopupMenu(const Value: TPopupMenu); virtual;
function GetInformes: IBizInforme; virtual;
procedure SetInformes(const Value: IBizInforme); virtual;
public
procedure Refresh; override;
property Informes: IBizInforme read GetInformes write SetInformes;
property OnDblClick: TNotifyEvent read GetDblClick write SetDblClick;
property PopupMenu: TPopupMenu read GetPopupMenu write SetPopupMenu;
end;
implementation
{$R *.dfm}
{ TfrViewInformes }
function TfrViewInformes.GetInformes: IBizInforme;
begin
Result := FInformes;
end;
procedure TfrViewInformes.EasyListviewDblClick(Sender: TObject);
begin
inherited;
if Assigned(FOnDblClick) then
FOnDblClick(Self);
end;
procedure TfrViewInformes.EasyListviewSelectItem(Sender: TObject;
Item: TListItem; Selected: Boolean);
begin
inherited;
if Selected then
begin
//showmessage(Item.Caption);
FInformes.First;
FInformes.Locate('ID', Item.Indent, []);
end;
end;
function TfrViewInformes.GetDblClick: TNotifyEvent;
begin
Result := FOnDblClick;
end;
function TfrViewInformes.GetPopupMenu: TPopupMenu;
begin
Result := FPopupMenu;
end;
procedure TfrViewInformes.Refresh;
var
// Group: TEasyGroup;
// GroupModificable: TEasyGroup;
AItem : TListItem;
i: Integer;
IDSelected : integer;
CategoriaAux : String;
Opcion: TJsCustomButtonItem;
begin
inherited;
if not Assigned(FInformes) then
Exit;
// EasyListview.BeginUpdate; // BeginUpdate(False);
try
IDSelected := 0;
if EasyListview.Items.Count > 0 then
begin
for i := 0 to EasyListview.Items.Count - 1 do
if EasyListview.Items[i].Selected then
IDSelected := EasyListview.Items[i].Indent; // Columna ID
EasyListview.Items.Clear;
end;
// Group := EasyListview.Groups.Add;
// Group.Caption := 'Controles generales';
// Group.Bold := True;
// GroupModificable := EasyListview.Groups.Add;
// GroupModificable.Caption := 'Controles personalizados';
// GroupModificable.Bold := True;
with FInformes do
begin
JsNuevoDialog.CustomButtons.Clear;
FInformes.First;
for i := 0 to (FInformes.RecordCount - 1) do
begin
{ if CategoriaAux <> FInformes.CATEGORIA then
begin
CategoriaAux := FInformes.CATEGORIA;
// Group := EasyListview.Groups.Add;
// Group.Caption := FInformes.CATEGORIA;
// Group.Bold := True;
Opcion := JsNuevoDialog.CustomButtons.Add;
// Opcion.Caption := Group.Caption;
Opcion.Info.Add(FInformes.CONTROLLER);
end;
// if EsModificable then
}
AItem := EasyListview.Items.Add;
AItem.Caption := NOMBRE;
AItem.Indent := ID;
AItem.
// else
// AItem := GroupNoModificable.Items.Add(NIL);
{ AItem.ImageIndex := ICONO;
AItem.Captions[0] := NOMBRE;
AItem.Captions[1] := DESCRIPCION;
AItem.Captions[3] := IntToStr(ID);
AItem.Captions[4] := MODIFICABLE;
AItem.DetailCount := 2;
AItem.Details[0] := 0; // Columna NOMBRE;
AItem.Details[1] := 1; // Columna DESCRIPCION;
AItem.Selected := (IDSelected = AItem.Captions[3]);
}
FInformes.Next;
end;
end;
finally
// EasyListview.Sort.SortAll;
// EasyListview.EndUpdate;
if (IDSelected = 0) and (EasyListview.Items.Count > 0) then
EasyListview.Items[0].Selected := True;
for i := 0 to EasyListview.Items.Count - 1 do
if EasyListview.Items[i].Selected then
begin
FInformes.First;
FInformes.Locate('ID', EasyListview.Items[i].Indent, []);
Break;
end;
// EasyListview.ShowGroupMargins := True;
end
end;
procedure TfrViewInformes.SetInformes(const Value: IBizInforme);
begin
FInformes := Value;
dsDataTable.DataTable := Value.DataTable;
end;
procedure TfrViewInformes.SetDblClick(const Value: TNotifyEvent);
begin
FOnDblClick := Value;
end;
procedure TfrViewInformes.SetPopupMenu(const Value: TPopupMenu);
begin
FPopupMenu := Value;
end;
{
procedure TfrViewInformes.EasyListviewItemContextMenu(
Sender: TCustomEasyListview; HitInfo: TEasyHitInfoItem;
WindowPoint: TPoint; var Menu: TPopupMenu; var Handled: Boolean);
begin
inherited;
if Assigned(FPopupMenu) then
Menu := FPopupMenu;
end;
procedure TfrViewInformes.EasyListviewItemDblClick(Sender: TCustomEasyListview;
Button: TCommonMouseButton; MousePos: TPoint; HitInfo: TEasyHitInfoItem);
begin
inherited;
if Assigned(FOnDblClick) then
FOnDblClick(Self);
end;
procedure TfrViewInformes.EasyListviewItemSelectionChanged(
Sender: TCustomEasyListview; Item: TEasyItem);
begin
inherited;
if not Item.Destroying then
begin
FInformes.First;
FInformes.Locate('ID', StrToInt(Item.Captions[3]), []);
end;
end;
}
end.

163
Source/Modulos/Informes base/Views/uViewPeriodoFechas.dfm Normal file
View File

@ -0,0 +1,163 @@
inherited frViewPeriodoFechas: TfrViewPeriodoFechas
Width = 769
Height = 75
ExplicitWidth = 769
ExplicitHeight = 75
object TBXDockablePanel1: TTBXDockablePanel
Left = 0
Top = 0
Align = alClient
Caption = 'TBXDockablePanel1'
FloatingWidth = 128
FloatingHeight = 128
SupportedDocks = [dkStandardDock, dkMultiDock]
TabOrder = 0
ExplicitTop = 3
ExplicitWidth = 128
ExplicitHeight = 128
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
Width = 769
Height = 75
Align = alClient
ParentBackground = True
TabOrder = 0
LookAndFeel = dxLayoutStandardLookAndFeel1
ExplicitWidth = 455
ExplicitHeight = 74
DesignSize = (
769
75)
object cbPeriodo: TcxComboBox
Left = 55
Top = 37
RepositoryItem = cxRepositoryPeriodos
Anchors = [akLeft, akTop, akRight]
Properties.OnChange = cbPeriodoPropertiesChange
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 2
Text = 'Este mes'
Width = 385
end
object edtFechaIni: TcxDateEdit
Left = 55
Top = 10
Properties.DateButtons = [btnToday]
Properties.PostPopupValueOnTab = True
Properties.SaveTime = False
Properties.ShowTime = False
Properties.OnValidate = edtFechaIni2PropertiesValidate
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0
Width = 170
end
object edtFechaFin: TcxDateEdit
Left = 268
Top = 10
Properties.DateButtons = [btnToday]
Properties.PostPopupValueOnTab = True
Properties.SaveTime = False
Properties.ShowTime = False
Properties.OnValidate = edtFechaFinPropertiesValidate
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 1
Width = 170
end
object dxLayoutGroup1: TdxLayoutGroup
ShowCaption = False
Hidden = True
ShowBorder = False
object dxLayoutGroup2: TdxLayoutGroup
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item2: TdxLayoutItem
Caption = 'Desde:'
Control = edtFechaIni
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item3: TdxLayoutItem
Caption = 'Hasta:'
Control = edtFechaFin
ControlOptions.ShowBorder = False
end
end
object dxLayoutItem1: TdxLayoutItem
AutoAligns = [aaVertical]
Caption = 'Periodo:'
Control = cbPeriodo
ControlOptions.ShowBorder = False
end
end
end
end
object cxRepository: TcxEditRepository
Left = 184
Top = 32
object cxRepositoryPeriodos: TcxEditRepositoryComboBoxItem
Properties.BeepOnError = True
Properties.DropDownListStyle = lsFixedList
Properties.DropDownRows = 10
Properties.ImmediatePost = True
Properties.ImmediateUpdateText = True
Properties.Items.Strings = (
'Hoy'
'Ayer'
'Esta semana'
'Este mes'
'Este a'#241'o'
#218'ltimos 7 d'#237'as'
#218'ltimos 30 d'#237'as'
#218'ltimos 3 meses'
'Mes anterior'
'A'#241'o anterior'
'Personalizado')
Properties.PostPopupValueOnTab = True
Properties.ReadOnly = False
end
end
object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
Left = 136
Top = 16
object dxLayoutStandardLookAndFeel1: TdxLayoutStandardLookAndFeel
end
end
end

206
Source/Modulos/Informes base/Views/uViewPeriodoFechas.pas Normal file
View File

@ -0,0 +1,206 @@
unit uViewPeriodoFechas;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxGraphics, cxEdit, cxDropDownEdit, cxCalendar, StdCtrls,
cxControls, cxContainer, cxTextEdit, cxMaskEdit, TBXDkPanels,
cxEditRepositoryItems, dxLayoutControl, dxLayoutLookAndFeels, uViewBase,
Mask, JvExMask, JvToolEdit, uViewInformeBaseParametros, TB2Dock;
type
IViewPeriodoFechas = interface(IViewInformeBaseParametros)
['{793084E2-873E-4C57-8BD6-9087816CCF3A}']
end;
TfrViewPeriodoFechas = class(TfrViewInformeBaseParametros, IViewPeriodoFechas)
cxRepository: TcxEditRepository;
cxRepositoryPeriodos: TcxEditRepositoryComboBoxItem;
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
dxLayoutStandardLookAndFeel1: TdxLayoutStandardLookAndFeel;
TBXDockablePanel1: TTBXDockablePanel;
dxLayoutControl1: TdxLayoutControl;
cbPeriodo: TcxComboBox;
edtFechaIni: TcxDateEdit;
edtFechaFin: TcxDateEdit;
dxLayoutGroup1: TdxLayoutGroup;
dxLayoutGroup2: TdxLayoutGroup;
dxLayoutControl1Item2: TdxLayoutItem;
dxLayoutControl1Item3: TdxLayoutItem;
dxLayoutItem1: TdxLayoutItem;
procedure cbPeriodoPropertiesChange(Sender: TObject);
procedure edtFechaIni2PropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean);
procedure edtFechaFinPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean);
private
function GetFechaFinal: TDateTime;
function GetFechaInicial: TDateTime;
procedure SetFechaFinal(const Value: TDateTime);
procedure SetFechaInicial(const Value: TDateTime);
public
procedure Hoy;
procedure Ayer;
procedure EstaSemana;
procedure EsteMes;
procedure EsteAno;
procedure Ultimos7dias;
procedure Ultimos30dias;
procedure Ultimos3meses;
procedure MesAnterior;
procedure AnoAnterior;
procedure Personalizado;
property FechaInicial : TDateTime read GetFechaInicial write SetFechaInicial;
property FechaFinal : TDateTime read GetFechaFinal write SetFechaFinal;
constructor Create(AOwner: TComponent); override;
end;
implementation
uses DateUtils;
{$R *.dfm}
procedure TfrViewPeriodoFechas.AnoAnterior;
begin
edtFechaIni.Date := StartOfTheYear(IncYear(Today, -1));
edtFechaFin.Date := EndOfTheYear(IncYear(Today, -1));
end;
procedure TfrViewPeriodoFechas.Ayer;
begin
edtFechaIni.Date := Yesterday;
edtFechaFin.Date := Yesterday;
end;
procedure TfrViewPeriodoFechas.EstaSemana;
begin
edtFechaIni.Date := StartOfTheWeek(Today);
edtFechaFin.Date := EndOfTheWeek(Today);
end;
procedure TfrViewPeriodoFechas.EsteAno;
begin
edtFechaIni.Date := StartOfTheYear(Today);
edtFechaFin.Date := EndOfTheYear(Today);
end;
procedure TfrViewPeriodoFechas.EsteMes;
begin
edtFechaIni.Date := StartOfTheMonth(Today);
edtFechaFin.Date := EndOfTheMonth(Today);
end;
function TfrViewPeriodoFechas.GetFechaFinal: TDateTime;
begin
Result := DateOf(edtFechaFin.Date);
end;
function TfrViewPeriodoFechas.GetFechaInicial: TDateTime;
begin
Result := DateOf(edtFechaIni.Date);
end;
procedure TfrViewPeriodoFechas.Hoy;
begin
edtFechaIni.Date := Today;
edtFechaFin.Date := Today;
end;
procedure TfrViewPeriodoFechas.MesAnterior;
begin
edtFechaIni.Date := StartOfTheMonth(IncMonth(Today, -1));
edtFechaFin.Date := EndOfTheMonth(IncMonth(Today, -1));
end;
procedure TfrViewPeriodoFechas.Personalizado;
begin
edtFechaIni.SetFocus;
end;
procedure TfrViewPeriodoFechas.SetFechaFinal(const Value: TDateTime);
begin
edtFechaFin.Date := Value;
end;
procedure TfrViewPeriodoFechas.SetFechaInicial(const Value: TDateTime);
begin
edtFechaIni.Date := Value;
end;
procedure TfrViewPeriodoFechas.Ultimos30dias;
begin
edtFechaIni.Date := IncDay(Today, -30);
edtFechaFin.Date := Today
end;
procedure TfrViewPeriodoFechas.Ultimos3meses;
begin
edtFechaIni.Date := IncMonth(Today, -3);
edtFechaFin.Date := Today
end;
procedure TfrViewPeriodoFechas.Ultimos7dias;
begin
edtFechaIni.Date := IncDay(Today, -7);
edtFechaFin.Date := Today
end;
procedure TfrViewPeriodoFechas.cbPeriodoPropertiesChange(Sender: TObject);
begin
case (Sender as TcxComboBox).ItemIndex of
0 : Hoy;
1 : Ayer;
2 : EstaSemana;
3 : EsteMes;
4 : EsteAno;
5 : Ultimos7dias;
6 : Ultimos30dias;
7 : Ultimos3meses;
8 : MesAnterior;
9 : AnoAnterior;
else
Personalizado;
end;
end;
constructor TfrViewPeriodoFechas.Create(AOwner: TComponent);
begin
inherited;
cbPeriodo.ItemIndex := 3;
EsteMes;
end;
procedure TfrViewPeriodoFechas.edtFechaIni2PropertiesValidate(
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean);
begin
inherited;
if DisplayValue <> edtFechaIni.Date then
cbPeriodo.ItemIndex := 12;
if DisplayValue > edtFechaFin.Date then
begin
edtFechaFin.EditText := DisplayValue;
edtFechaFin.ValidateEdit(True);
end;
end;
procedure TfrViewPeriodoFechas.edtFechaFinPropertiesValidate(
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean);
begin
inherited;
if DisplayValue <> edtFechaFin.Date then
cbPeriodo.ItemIndex := 12;
if DisplayValue < edtFechaIni.Date then
begin
edtFechaIni.EditText := DisplayValue;
edtFechaIni.ValidateEdit(True);
end;
end;
end.

118
Source/Modulos/Informes base/Views/uViewSumarios.dfm Normal file
View File

@ -0,0 +1,118 @@
inherited frViewSumarios: TfrViewSumarios
Width = 344
Height = 472
ExplicitWidth = 344
ExplicitHeight = 472
object TBXLabel1: TTBXLabel
Left = 0
Top = 0
Width = 344
Height = 29
Margins.Top = 5
Margins.Bottom = 10
Align = alTop
Caption = 'Res'#250'menes'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = True
ParentFont = False
Underline = True
end
object vgSumarios: TcxVerticalGrid
Left = 0
Top = 29
Width = 344
Height = 443
Align = alClient
Images = PngImageList1
LookAndFeel.Kind = lfStandard
LookAndFeel.NativeStyle = True
OptionsView.CellAutoHeight = True
OptionsView.CellEndEllipsis = True
OptionsView.ScrollBars = ssVertical
OptionsView.RowHeaderWidth = 133
OptionsView.GridLines = vglVertical
OptionsView.ValueMinWidth = 75
Styles.Category = cxStyleCategoria
TabOrder = 1
end
object PngImageList1: TPngImageList
PngImages = <
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
61000000097048597300000E9C00000E9C01079453DD000000534944415478DA
63FCFFFF3F03258071F018C0C8C848944940F58CB80CB0075207A0E20E407C10
BB7EDC0680288286A07B19DD0082861063005E43883500A72174710145614051
2C509C0E284B89E4028A0D0000DBA366E1865C514F0000000049454E44AE4260
82}
Name = 'PngImage0'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD252000000794944415478DA
63FCFFFF3F0325809162030CDD338936E1FCCEE98C580DC8CF4C870BFCF9F397
E1FBCF5F0CDF7E00F1F79F0C5FBEFF6078F6FA3DC38D8B27F01BB0F3D845BCB6
E33580222F60530832149B62AC81884B825843F02A20C6108236103204671810
E37FBC06109B36F01A404CDAA0DC0B039E1B0126BE69852B2E82B70000000049
454E44AE426082}
Name = 'PngImage1'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD2520000011E4944415478DA
63FCFFFF3F0325801164C0D22D27C936056E40B48F39511AFEFCFDC7F0FBCF5F
3076082E423540ADEA3C5CE165F924148DBA0FE7C1D967AA351916AD3BC0306F
E9264C036EB5198215FD9C09A43DBE3030BC60605830E30E43FA7C882F416A8E
96AA32ACDC728408030C80063CE06058B0E30A8A01070B9519D6EE3886DD006C
5E5870E20243AFE439387F4FAE02C3A63D27C9F7C28E4C59866D07CE90EF85CD
A9D20CBB8F9C23DF0BABE3C4180E9FBE4CBE17964589309C387F15D580704F53
06ADDA8B447961619820C3D9CB37500D08723562D06FBC82E20590D36100D90B
7382F8182E5DBF8D6A80AFA33EC39F3F88640A67FFFE0B1543C8FDFBF79FE1CA
CD3BA80678DAEA322CDB7488A48C846240EF948564E54600564A377B046BCB77
0000000049454E44AE426082}
Name = 'PngImage2'
Background = clWindow
end>
Left = 88
Top = 104
Bitmap = {}
end
object cxStyleRepository1: TcxStyleRepository
Left = 216
Top = 104
PixelsPerInch = 96
object cxStyleNombreColumna: TcxStyle
AssignedValues = [svColor, svTextColor]
Color = clWindow
TextColor = clActiveCaption
end
object cxStyleCategoria: TcxStyle
AssignedValues = [svColor, svTextColor]
Color = 15329769
TextColor = clHighlight
end
object cxStyleNombreColumnaInactivo: TcxStyle
AssignedValues = [svColor, svTextColor]
Color = clWindow
TextColor = cl3DDkShadow
end
object cxStyleCategoriaInactivo: TcxStyle
AssignedValues = [svColor, svTextColor]
Color = 15329769
TextColor = clBtnShadow
end
object cxStyleContentInactivo: TcxStyle
AssignedValues = [svColor, svTextColor]
Color = clWindow
TextColor = clBtnShadow
end
end
end

323
Source/Modulos/Informes base/Views/uViewSumarios.pas Normal file
View File

@ -0,0 +1,323 @@
unit uViewSumarios;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewBase, dxLayoutControl, cxControls, cxContainer, cxListBox,
TBXDkPanels, ActnList, cxCustomData, cxGridDBTableView, cxGridTableView,
cxGraphics, cxStyles, cxTL, cxTextEdit, cxDropDownEdit, ImgList,
PngImageList, ComCtrls, JvExComCtrls, JvComCtrls, cxInplaceContainer,
ExtCtrls, cxEdit, TBXToolPals, uViewInformeBaseGrid,
uViewInformeBaseParametros, cxVGrid;
type
IViewSumarios = interface(IViewInformeBaseParametros)
['{B0C5A7EB-FEFA-49A5-BEF9-E3DD72E97AF4}']
end;
TfrViewSumarios = class(TfrViewInformeBaseParametros, IViewSumarios)
PngImageList1: TPngImageList;
vgSumarios: TcxVerticalGrid;
TBXLabel1: TTBXLabel;
cxStyleRepository1: TcxStyleRepository;
cxStyleNombreColumna: TcxStyle;
cxStyleCategoria: TcxStyle;
cxStyleNombreColumnaInactivo: TcxStyle;
cxStyleCategoriaInactivo: TcxStyle;
cxStyleContentInactivo: TcxStyle;
procedure vgSumariosEditorRowInitPopup(Sender: TObject);
procedure vgSumariosEditorRowEditValueChanged(
Sender: TObject);
protected
procedure RellenarArbolTotales;
function AnadirSumario(const ACaption : String;
const AKind : TcxSummaryKind) : TcxEditorRow;
procedure RellenarTotalesPie;
procedure RellenarTotalesGrupo(const AGroupName : String);
procedure RellenarCategorias;
procedure RellenarCategoria(const APosition : TcxSummaryPosition;
const AGroupName : String = '');
procedure AplicarSumarioVista(const APosition : TcxSummaryPosition;
const AColumnCaption : String; const AKind : TcxSummaryKind);
procedure SetModificable(const Value: Boolean); override;
public
procedure Execute; override;
procedure Refresh; override;
end;
implementation
{$R *.dfm}
uses
DB, cxGridPopupMenuConsts;
var
SumaryKindStrArray : array[skNone..skAverage] of String
= ('', 'Sumar', 'Mínimo', 'Máximo', 'Contar', 'Promedio');
procedure TfrViewSumarios.Refresh;
begin
RellenarCategorias;
end;
procedure TfrViewSumarios.RellenarArbolTotales;
var
i : Integer;
begin
// Recuperar las agrupaciones del grid
for i := 0 to ViewInformeBaseGrid.GroupedColumnCount - 1 do
begin
if i = 3 then
Break; // Sólo meter las 3 primera agrupaciones
RellenarCategoria(spGroup, ViewInformeBaseGrid.GroupedColumns[i].Caption);
end;
end;
function TfrViewSumarios.AnadirSumario(const ACaption : String;
const AKind : TcxSummaryKind) : TcxEditorRow;
begin
Result := vgSumarios.Add(TcxEditorRow) as TcxEditorRow;
with Result do
begin
Properties.Caption := ACaption;
Properties.Value := SumaryKindStrArray[AKind];
Properties.ImageIndex := 2;
Properties.EditPropertiesClass := TcxComboBoxProperties;
with TcxComboBoxProperties(Properties.EditProperties) do
begin
ImmediateDropDown := True;
DropDownListStyle := lsFixedList;
ImmediatePost := True;
ImmediateUpdateText := True;
PostPopupValueOnTab := True;
OnInitPopup := vgSumariosEditorRowInitPopup;
OnEditValueChanged := vgSumariosEditorRowEditValueChanged;
end;
end;
end;
procedure TfrViewSumarios.AplicarSumarioVista (
const APosition: TcxSummaryPosition; const AColumnCaption: String;
const AKind: TcxSummaryKind);
var
AColumn : TcxGridDBColumn;
ADisplayFormat : string;
begin
AColumn := ViewInformeBaseGrid.GetColumnByCaption(AColumnCaption);
if (AColumn.Properties is TcxCustomTextEditProperties) then
ADisplayFormat := TcxCustomTextEditProperties(AColumn.Properties).DisplayFormat
else
ADisplayFormat := '';
if APosition = spFooter then
begin
AColumn.Summary.FooterKind := AKind;
//AColumn.Summary.FooterFormat := ADisplayFormat;
end
else begin
AColumn.Summary.GroupFooterKind := AKind;
// AColumn.Summary.GroupFooterFormat := ADisplayFormat;
end;
end;
procedure TfrViewSumarios.RellenarTotalesPie;
var
i, j: Integer;
ASummary: TcxDataFooterSummaryItems;
AClase : TcxSummaryKind;
ACaption : String;
ACategory : TcxCategoryRow;
ARow : TcxEditorRow;
begin
vgSumarios.BeginUpdate;
try
ACategory := (vgSumarios.AddChild(nil, TcxCategoryRow) as TcxCategoryRow);
with ACategory.Properties do
begin
ASummary := ViewInformeBaseGrid.FocusedView.DataController.Summary.FooterSummaryItems;
ImageIndex := 0;
Caption := 'Resúmenes totales'
end;
for i := 0 to ViewInformeBaseGrid.FocusedView.VisibleColumnCount - 1 do
begin
ACaption := ViewInformeBaseGrid.FocusedView.VisibleColumns[i].Caption;
AClase := ViewInformeBaseGrid.FocusedView.VisibleColumns[i].Summary.FooterKind;
ARow := AnadirSumario(ACaption, AClase);
ARow.Parent := ACategory;
end;
finally
vgSumarios.EndUpdate;
end;
end;
procedure TfrViewSumarios.RellenarCategoria(
const APosition: TcxSummaryPosition; const AGroupName: String);
begin
if APosition = spFooter then
RellenarTotalesPie
else
RellenarTotalesGrupo(AGroupName);
end;
procedure TfrViewSumarios.RellenarCategorias;
var
i : Integer;
begin
vgSumarios.ClearRows;
RellenarCategoria(spFooter);
// Recuperar las agrupaciones del grid
for i := 0 to ViewInformeBaseGrid.GroupedColumnCount - 1 do
begin
if i = 3 then
Break; // Sólo meter las 3 primera agrupaciones
RellenarCategoria(spGroup, ViewInformeBaseGrid.GroupedColumns[i].Caption);
end;
end;
procedure TfrViewSumarios.vgSumariosEditorRowInitPopup(Sender: TObject);
var
AColumn: TcxGridDBColumn;
ARow : TcxEditorRow;
const
NumberFieldTypes =
[ftSmallint, ftInteger, ftWord, ftFloat, ftCurrency, ftBCD, ftDate, ftTime,
ftDateTime, ftAutoInc];
TimeFieldTypes = [ftDate, ftTime, ftDateTime];
begin
inherited;
ARow := TcxEditorRow(vgSumarios.FocusedRow);
AColumn := TcxGridDBColumn(ViewInformeBaseGrid.FocusedView.VisibleColumns[ARow.Index]);
if Assigned(AColumn.DataBinding.Field) then
with TcxComboBoxProperties(TcxPopupEdit(Sender).Properties) do
begin
Items.Clear;
BeginUpdate;
try
Items.Add(SumaryKindStrArray[skNone]);
Items.Add(SumaryKindStrArray[skCount]);
if AColumn.DataBinding.Field.DataType in NumberFieldTypes then
begin
Items.Add(SumaryKindStrArray[skMax]);
Items.Add(SumaryKindStrArray[skMin]);
if not (AColumn.DataBinding.Field.DataType in TimeFieldTypes) then
begin
Items.Add(SumaryKindStrArray[skSum]);
Items.Add(SumaryKindStrArray[skAverage]);
end;
end;
finally
EndUpdate;
end;
end;
end;
procedure TfrViewSumarios.vgSumariosEditorRowEditValueChanged(
Sender: TObject);
var
AColumn : String;
ARow : TcxEditorRow;
AKind : TcxSummaryKind;
function DarSummaryKind(AKind : String) : TcxSummaryKind;
var
i : TcxSummaryKind;
begin
if Length(AKind) = 0 then
Result := skNone
else
for i := skSum to skAverage do
if SumaryKindStrArray[i] = AKind then
begin
Result := i;
Break;
end;
end;
begin
inherited;
ARow := TcxEditorRow(vgSumarios.FocusedRow);
AColumn := ARow.Properties.Caption;
AKind := DarSummaryKind(VarToStr(ARow.Properties.Value));
if Assigned(ARow.Parent) then
begin
if(ARow.Parent.Index = 0) then
AplicarSumarioVista(spFooter, AColumn, AKind)
else
AplicarSumarioVista(spGroup, AColumn, AKind)
end;
end;
procedure TfrViewSumarios.RellenarTotalesGrupo(const AGroupName: String);
var
i, j: Integer;
ASummary: TcxDataSummaryGroup;
AClase : TcxSummaryKind;
ACaption : String;
ACategory : TcxCategoryRow;
ARow : TcxEditorRow;
begin
ASummary := ViewInformeBaseGrid.FocusedView.DataController.Summary.SummaryGroups.FindByItemLink(ViewInformeBaseGrid.GetColumnByCaption(AGroupName));
vgSumarios.BeginUpdate;
try
ACategory := (vgSumarios.AddChild(nil, TcxCategoryRow) as TcxCategoryRow);
with ACategory.Properties do
begin
ImageIndex := 1;
Caption := 'Totales de ' + AGroupName;
end;
for i := 0 to ViewInformeBaseGrid.FocusedView.VisibleColumnCount - 1 do
begin
ACaption := ViewInformeBaseGrid.FocusedView.VisibleColumns[i].Caption;
AClase := ViewInformeBaseGrid.FocusedView.VisibleColumns[i].Summary.GroupFooterKind;
ARow := AnadirSumario(ACaption, AClase);
ARow.Parent := ACategory;
end;
finally
vgSumarios.EndUpdate;
end;
end;
procedure TfrViewSumarios.Execute;
begin
inherited;
//
end;
procedure TfrViewSumarios.SetModificable(const Value: Boolean);
begin
inherited;
vgSumarios.Enabled := Value;
if Value then
begin
vgSumarios.Styles.Category := cxStyleCategoria;
vgSumarios.Styles.Header := cxStyleNombreColumna;
vgSumarios.Styles.Content := nil;
end
else begin
vgSumarios.Styles.Category := cxStyleCategoriaInactivo;
vgSumarios.Styles.Header := cxStyleNombreColumnaInactivo;
vgSumarios.Styles.Content := cxStyleContentInactivo;
end;
end;
end.

BIN
Source/Modulos/Tienda web/Test/TiendaWeb_Tests.res Normal file
View File

Binary file not shown.

2
Source/Modulos/Tienda web/TiendaWeb_Group.config Normal file
View File

@ -0,0 +1,2 @@
<?xml version="1.0"?>
<TgConfig Version="3" SubLevelDisabled="False" />

134
Source/Modulos/Tienda web/TiendaWeb_Group.groupproj Normal file
View File

@ -0,0 +1,134 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{63b52b8d-c304-4581-90ea-19e9faf0e651}</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="Controller\TiendaWeb_controller.dproj" />
<Projects Include="Data\TiendaWeb_data.dproj" />
<Projects Include="Model\TiendaWeb_model.dproj" />
<Projects Include="Plugin\TiendaWeb_plugin.dproj" />
<Projects Include="Test\TiendaWeb_Tests.dproj" />
<Projects Include="Views\TiendaWeb_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="TiendaWeb_model">
<MSBuild Projects="Model\TiendaWeb_model.dproj" Targets="" />
</Target>
<Target Name="TiendaWeb_model:Clean">
<MSBuild Projects="Model\TiendaWeb_model.dproj" Targets="Clean" />
</Target>
<Target Name="TiendaWeb_model:Make">
<MSBuild Projects="Model\TiendaWeb_model.dproj" Targets="Make" />
</Target>
<Target Name="TiendaWeb_data">
<MSBuild Projects="Data\TiendaWeb_data.dproj" Targets="" />
</Target>
<Target Name="TiendaWeb_data:Clean">
<MSBuild Projects="Data\TiendaWeb_data.dproj" Targets="Clean" />
</Target>
<Target Name="TiendaWeb_data:Make">
<MSBuild Projects="Data\TiendaWeb_data.dproj" Targets="Make" />
</Target>
<Target Name="TiendaWeb_controller">
<MSBuild Projects="Controller\TiendaWeb_controller.dproj" Targets="" />
</Target>
<Target Name="TiendaWeb_controller:Clean">
<MSBuild Projects="Controller\TiendaWeb_controller.dproj" Targets="Clean" />
</Target>
<Target Name="TiendaWeb_controller:Make">
<MSBuild Projects="Controller\TiendaWeb_controller.dproj" Targets="Make" />
</Target>
<Target Name="TiendaWeb_view">
<MSBuild Projects="Views\TiendaWeb_view.dproj" Targets="" />
</Target>
<Target Name="TiendaWeb_view:Clean">
<MSBuild Projects="Views\TiendaWeb_view.dproj" Targets="Clean" />
</Target>
<Target Name="TiendaWeb_view:Make">
<MSBuild Projects="Views\TiendaWeb_view.dproj" Targets="Make" />
</Target>
<Target Name="TiendaWeb_plugin">
<MSBuild Projects="Plugin\TiendaWeb_plugin.dproj" Targets="" />
</Target>
<Target Name="TiendaWeb_plugin:Clean">
<MSBuild Projects="Plugin\TiendaWeb_plugin.dproj" Targets="Clean" />
</Target>
<Target Name="TiendaWeb_plugin:Make">
<MSBuild Projects="Plugin\TiendaWeb_plugin.dproj" Targets="Make" />
</Target>
<Target Name="TiendaWeb_Tests">
<MSBuild Projects="Test\TiendaWeb_Tests.dproj" Targets="" />
</Target>
<Target Name="TiendaWeb_Tests:Clean">
<MSBuild Projects="Test\TiendaWeb_Tests.dproj" Targets="Clean" />
</Target>
<Target Name="TiendaWeb_Tests:Make">
<MSBuild Projects="Test\TiendaWeb_Tests.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;TiendaWeb_model;TiendaWeb_data;TiendaWeb_controller;TiendaWeb_view;TiendaWeb_plugin;TiendaWeb_Tests;FactuGES;FactuGES_Server" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;TiendaWeb_model:Clean;TiendaWeb_data:Clean;TiendaWeb_controller:Clean;TiendaWeb_view:Clean;TiendaWeb_plugin:Clean;TiendaWeb_Tests:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;TiendaWeb_model:Make;TiendaWeb_data:Make;TiendaWeb_controller:Make;TiendaWeb_view:Make;TiendaWeb_plugin:Make;TiendaWeb_Tests:Make;FactuGES:Make;FactuGES_Server:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>