Se añade módulo de comisiones
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@52 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
parent
518ffdffe0
commit
447fe8df78
124
Source/Modulos/Comisiones/Comisiones_Group.groupproj
Normal file
124
Source/Modulos/Comisiones/Comisiones_Group.groupproj
Normal file
@ -0,0 +1,124 @@
|
|||||||
|
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
|
<PropertyGroup>
|
||||||
|
<ProjectGuid>{9a7cc043-5043-46ff-a039-c4103c4aa6b2}</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\Comisiones_controller.dproj" />
|
||||||
|
<Projects Include="Data\Comisiones_data.dproj" />
|
||||||
|
<Projects Include="Model\Comisiones_model.dproj" />
|
||||||
|
<Projects Include="Plugin\Comisiones_plugin.dproj" />
|
||||||
|
<Projects Include="Views\Comisiones_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="Comisiones_model">
|
||||||
|
<MSBuild Projects="Model\Comisiones_model.dproj" Targets="" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Comisiones_model:Clean">
|
||||||
|
<MSBuild Projects="Model\Comisiones_model.dproj" Targets="Clean" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Comisiones_model:Make">
|
||||||
|
<MSBuild Projects="Model\Comisiones_model.dproj" Targets="Make" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Comisiones_data">
|
||||||
|
<MSBuild Projects="Data\Comisiones_data.dproj" Targets="" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Comisiones_data:Clean">
|
||||||
|
<MSBuild Projects="Data\Comisiones_data.dproj" Targets="Clean" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Comisiones_data:Make">
|
||||||
|
<MSBuild Projects="Data\Comisiones_data.dproj" Targets="Make" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Comisiones_controller">
|
||||||
|
<MSBuild Projects="Controller\Comisiones_controller.dproj" Targets="" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Comisiones_controller:Clean">
|
||||||
|
<MSBuild Projects="Controller\Comisiones_controller.dproj" Targets="Clean" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Comisiones_controller:Make">
|
||||||
|
<MSBuild Projects="Controller\Comisiones_controller.dproj" Targets="Make" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Comisiones_view">
|
||||||
|
<MSBuild Projects="Views\Comisiones_view.dproj" Targets="" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Comisiones_view:Clean">
|
||||||
|
<MSBuild Projects="Views\Comisiones_view.dproj" Targets="Clean" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Comisiones_view:Make">
|
||||||
|
<MSBuild Projects="Views\Comisiones_view.dproj" Targets="Make" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Comisiones_plugin">
|
||||||
|
<MSBuild Projects="Plugin\Comisiones_plugin.dproj" Targets="" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Comisiones_plugin:Clean">
|
||||||
|
<MSBuild Projects="Plugin\Comisiones_plugin.dproj" Targets="Clean" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Comisiones_plugin:Make">
|
||||||
|
<MSBuild Projects="Plugin\Comisiones_plugin.dproj" Targets="Make" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="FactuGES">
|
||||||
|
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="FactuGES:Clean">
|
||||||
|
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Clean" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="FactuGES:Make">
|
||||||
|
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Make" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="FactuGES_Server">
|
||||||
|
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="FactuGES_Server:Clean">
|
||||||
|
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Clean" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="FactuGES_Server:Make">
|
||||||
|
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Build">
|
||||||
|
<CallTarget Targets="Base;GUIBase;ApplicationBase;Comisiones_model;Comisiones_data;Comisiones_controller;Comisiones_view;Comisiones_plugin;FactuGES;FactuGES_Server" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Clean">
|
||||||
|
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Comisiones_model:Clean;Comisiones_data:Clean;Comisiones_controller:Clean;Comisiones_view:Clean;Comisiones_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Make">
|
||||||
|
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Comisiones_model:Make;Comisiones_data:Make;Comisiones_controller:Make;Comisiones_view:Make;Comisiones_plugin:Make;FactuGES:Make;FactuGES_Server:Make" />
|
||||||
|
</Target>
|
||||||
|
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||||
|
</Project>
|
||||||
@ -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">{7F80F8AA-6912-4714-986D-AED73035472B}</Option>
|
||||||
|
</Option>
|
||||||
|
</PersonalityInfo>
|
||||||
|
<Delphi.Personality>
|
||||||
|
<Source>
|
||||||
|
<Source Name="MainSource">Comisiones_controller.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>
|
||||||
@ -0,0 +1,42 @@
|
|||||||
|
package Comisiones_controller;
|
||||||
|
|
||||||
|
{$R *.res}
|
||||||
|
{$ALIGN 8}
|
||||||
|
{$ASSERTIONS ON}
|
||||||
|
{$BOOLEVAL OFF}
|
||||||
|
{$DEBUGINFO ON}
|
||||||
|
{$EXTENDEDSYNTAX ON}
|
||||||
|
{$IMPORTEDDATA ON}
|
||||||
|
{$IOCHECKS ON}
|
||||||
|
{$LOCALSYMBOLS ON}
|
||||||
|
{$LONGSTRINGS ON}
|
||||||
|
{$OPENSTRINGS ON}
|
||||||
|
{$OPTIMIZATION ON}
|
||||||
|
{$OVERFLOWCHECKS OFF}
|
||||||
|
{$RANGECHECKS OFF}
|
||||||
|
{$REFERENCEINFO ON}
|
||||||
|
{$SAFEDIVIDE OFF}
|
||||||
|
{$STACKFRAMES OFF}
|
||||||
|
{$TYPEDADDRESS OFF}
|
||||||
|
{$VARSTRINGCHECKS ON}
|
||||||
|
{$WRITEABLECONST OFF}
|
||||||
|
{$MINENUMSIZE 1}
|
||||||
|
{$IMAGEBASE $400000}
|
||||||
|
{$IMPLICITBUILD OFF}
|
||||||
|
|
||||||
|
requires
|
||||||
|
Base,
|
||||||
|
FacturasCliente_controller,
|
||||||
|
FacturasCliente_model,
|
||||||
|
Comisiones_data,
|
||||||
|
Comisiones_model,
|
||||||
|
ApplicationBase;
|
||||||
|
|
||||||
|
contains
|
||||||
|
uComisionesController in 'uComisionesController.pas',
|
||||||
|
uIEditorComisiones in 'View\uIEditorComisiones.pas',
|
||||||
|
uIEditorComision in 'View\uIEditorComision.pas',
|
||||||
|
uIEditorComisionesPreview in 'View\uIEditorComisionesPreview.pas',
|
||||||
|
uComisionesReportController in 'uComisionesReportController.pas';
|
||||||
|
|
||||||
|
end.
|
||||||
585
Source/Modulos/Comisiones/Controller/Comisiones_controller.dproj
Normal file
585
Source/Modulos/Comisiones/Controller/Comisiones_controller.dproj
Normal file
@ -0,0 +1,585 @@
|
|||||||
|
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
|
<PropertyGroup>
|
||||||
|
<ProjectGuid>{7f80f8aa-6912-4714-986d-aed73035472b}</ProjectGuid>
|
||||||
|
<MainSource>Comisiones_controller.dpk</MainSource>
|
||||||
|
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||||
|
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||||
|
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||||
|
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\Comisiones_controller.bpl</DCC_DependencyCheckOutputName>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||||
|
<Version>7.0</Version>
|
||||||
|
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||||
|
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||||
|
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||||
|
<DCC_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 xmlns=""> <Delphi.Personality> <Parameters>
|
||||||
|
<Parameters Name="UseLauncher">False</Parameters>
|
||||||
|
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||||
|
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||||
|
</Parameters>
|
||||||
|
<Package_Options>
|
||||||
|
<Package_Options Name="ImplicitBuild">False</Package_Options>
|
||||||
|
<Package_Options Name="DesigntimeOnly">False</Package_Options>
|
||||||
|
<Package_Options Name="RuntimeOnly">False</Package_Options>
|
||||||
|
</Package_Options>
|
||||||
|
<VersionInfo>
|
||||||
|
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||||
|
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||||
|
<VersionInfo Name="MajorVer">1</VersionInfo>
|
||||||
|
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||||
|
<VersionInfo Name="Release">0</VersionInfo>
|
||||||
|
<VersionInfo Name="Build">0</VersionInfo>
|
||||||
|
<VersionInfo Name="Debug">False</VersionInfo>
|
||||||
|
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||||
|
<VersionInfo Name="Special">False</VersionInfo>
|
||||||
|
<VersionInfo Name="Private">False</VersionInfo>
|
||||||
|
<VersionInfo Name="DLL">False</VersionInfo>
|
||||||
|
<VersionInfo Name="Locale">3082</VersionInfo>
|
||||||
|
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||||
|
</VersionInfo>
|
||||||
|
<VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
||||||
|
</VersionInfoKeys>
|
||||||
|
<Source>
|
||||||
|
<Source Name="MainSource">Comisiones_controller.dpk</Source>
|
||||||
|
</Source>
|
||||||
|
</Delphi.Personality> </BorlandProject></BorlandProject>
|
||||||
|
</ProjectExtensions>
|
||||||
|
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||||
|
<ItemGroup>
|
||||||
|
<DelphiCompile Include="Comisiones_controller.dpk">
|
||||||
|
<MainSource>MainSource</MainSource>
|
||||||
|
</DelphiCompile>
|
||||||
|
<DCCReference Include="..\..\..\Lib\ApplicationBase.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\Base.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\Comisiones_data.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\Comisiones_model.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\FacturasCliente_controller.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\FacturasCliente_model.dcp" />
|
||||||
|
<DCCReference Include="uComisionesController.pas" />
|
||||||
|
<DCCReference Include="uComisionesReportController.pas" />
|
||||||
|
<DCCReference Include="View\uIEditorComision.pas" />
|
||||||
|
<DCCReference Include="View\uIEditorComisiones.pas" />
|
||||||
|
<DCCReference Include="View\uIEditorComisionesPreview.pas" />
|
||||||
|
</ItemGroup>
|
||||||
|
</Project>
|
||||||
|
|
||||||
|
<!-- EurekaLog First Line
|
||||||
|
[Exception Log]
|
||||||
|
EurekaLog Version=6011
|
||||||
|
Activate=0
|
||||||
|
Activate Handle=1
|
||||||
|
Save Log File=1
|
||||||
|
Foreground Tab=0
|
||||||
|
Freeze Activate=0
|
||||||
|
Freeze Timeout=60
|
||||||
|
SMTP From=eurekalog@email.com
|
||||||
|
SMTP Host=
|
||||||
|
SMTP Port=25
|
||||||
|
SMTP UserID=
|
||||||
|
SMTP Password=
|
||||||
|
Append to Log=0
|
||||||
|
TerminateBtn Operation=2
|
||||||
|
Errors Number=32
|
||||||
|
Errors Terminate=3
|
||||||
|
Email Address=
|
||||||
|
Email Object=
|
||||||
|
Email Send Options=0
|
||||||
|
Output Path=
|
||||||
|
Encrypt Password=
|
||||||
|
AutoCloseDialogSecs=0
|
||||||
|
WebSendMode=0
|
||||||
|
SupportULR=
|
||||||
|
HTMLLayout Count=15
|
||||||
|
HTMLLine0="%3Chtml%3E"
|
||||||
|
HTMLLine1=" %3Chead%3E"
|
||||||
|
HTMLLine2=" %3C/head%3E"
|
||||||
|
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
|
||||||
|
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
|
||||||
|
HTMLLine5=" %3Ctr%3E"
|
||||||
|
HTMLLine6=" %3Ctd nowrap%3E"
|
||||||
|
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
|
||||||
|
HTMLLine8=" %3C%%HTML_TAG%%%3E"
|
||||||
|
HTMLLine9=" %3C/font%3E"
|
||||||
|
HTMLLine10=" %3C/td%3E"
|
||||||
|
HTMLLine11=" %3C/tr%3E"
|
||||||
|
HTMLLine12=" %3C/table%3E"
|
||||||
|
HTMLLine13=" %3C/body%3E"
|
||||||
|
HTMLLine14="%3C/html%3E"
|
||||||
|
AutoCrashOperation=2
|
||||||
|
AutoCrashNumber=10
|
||||||
|
AutoCrashMinutes=1
|
||||||
|
WebURL=
|
||||||
|
WebUserID=
|
||||||
|
WebPassword=
|
||||||
|
WebPort=0
|
||||||
|
AttachedFiles=
|
||||||
|
ProxyURL=
|
||||||
|
ProxyUser=
|
||||||
|
ProxyPassword=
|
||||||
|
ProxyPort=8080
|
||||||
|
TrakerUser=
|
||||||
|
TrakerPassword=
|
||||||
|
TrakerAssignTo=
|
||||||
|
TrakerProject=
|
||||||
|
TrakerCategory=
|
||||||
|
TrakerTrialID=
|
||||||
|
ZipPassword=
|
||||||
|
PreBuildEvent=
|
||||||
|
PostSuccessfulBuildEvent=
|
||||||
|
PostFailureBuildEvent=
|
||||||
|
ExceptionDialogType=2
|
||||||
|
Count=0
|
||||||
|
EMail Message Line Count=0
|
||||||
|
loNoDuplicateErrors=0
|
||||||
|
loAppendReproduceText=0
|
||||||
|
loDeleteLogAtVersionChange=0
|
||||||
|
loAddComputerNameInLogFileName=0
|
||||||
|
loSaveModulesAndProcessesSections=1
|
||||||
|
loSaveAssemblerAndCPUSections=1
|
||||||
|
soAppStartDate=1
|
||||||
|
soAppName=1
|
||||||
|
soAppVersionNumber=1
|
||||||
|
soAppParameters=1
|
||||||
|
soAppCompilationDate=1
|
||||||
|
soAppUpTime=1
|
||||||
|
soExcDate=1
|
||||||
|
soExcAddress=1
|
||||||
|
soExcModuleName=1
|
||||||
|
soExcModuleVersion=1
|
||||||
|
soExcType=1
|
||||||
|
soExcMessage=1
|
||||||
|
soExcID=1
|
||||||
|
soExcCount=1
|
||||||
|
soExcStatus=1
|
||||||
|
soExcNote=1
|
||||||
|
soUserID=1
|
||||||
|
soUserName=1
|
||||||
|
soUserEmail=1
|
||||||
|
soUserPrivileges=1
|
||||||
|
soUserCompany=1
|
||||||
|
soActCtlsFormClass=1
|
||||||
|
soActCtlsFormText=1
|
||||||
|
soActCtlsControlClass=1
|
||||||
|
soActCtlsControlText=1
|
||||||
|
soCmpName=1
|
||||||
|
soCmpTotalMemory=1
|
||||||
|
soCmpFreeMemory=1
|
||||||
|
soCmpTotalDisk=1
|
||||||
|
soCmpFreeDisk=1
|
||||||
|
soCmpSysUpTime=1
|
||||||
|
soCmpProcessor=1
|
||||||
|
soCmpDisplayMode=1
|
||||||
|
soCmpDisplayDPI=1
|
||||||
|
soCmpVideoCard=1
|
||||||
|
soCmpPrinter=1
|
||||||
|
soOSType=1
|
||||||
|
soOSBuildN=1
|
||||||
|
soOSUpdate=1
|
||||||
|
soOSLanguage=1
|
||||||
|
soOSCharset=1
|
||||||
|
soNetIP=1
|
||||||
|
soNetSubmask=1
|
||||||
|
soNetGateway=1
|
||||||
|
soNetDNS1=1
|
||||||
|
soNetDNS2=1
|
||||||
|
soNetDHCP=1
|
||||||
|
soCustomData=1
|
||||||
|
sndShowSendDialog=1
|
||||||
|
sndShowSuccessFailureMsg=0
|
||||||
|
sndSendEntireLog=0
|
||||||
|
sndSendXMLLogCopy=0
|
||||||
|
sndSendScreenshot=1
|
||||||
|
sndUseOnlyActiveWindow=0
|
||||||
|
sndSendLastHTMLPage=1
|
||||||
|
sndSendInSeparatedThread=0
|
||||||
|
sndAddDateInFileName=0
|
||||||
|
sndAddComputerNameInFileName=0
|
||||||
|
edoSendErrorReportChecked=1
|
||||||
|
edoAttachScreenshotChecked=1
|
||||||
|
edoShowCopyToClipOption=1
|
||||||
|
edoShowDetailsButton=1
|
||||||
|
edoShowInDetailedMode=0
|
||||||
|
edoShowInTopMostMode=0
|
||||||
|
edoUseEurekaLogLookAndFeel=0
|
||||||
|
edoShowSendErrorReportOption=1
|
||||||
|
edoShowAttachScreenshotOption=1
|
||||||
|
edoShowCustomButton=0
|
||||||
|
csoShowDLLs=1
|
||||||
|
csoShowBPLs=1
|
||||||
|
csoShowBorlandThreads=1
|
||||||
|
csoShowWindowsThreads=1
|
||||||
|
csoDoNotStoreProcNames=0
|
||||||
|
boPauseBorlandThreads=0
|
||||||
|
boDoNotPauseMainThread=0
|
||||||
|
boPauseWindowsThreads=0
|
||||||
|
boUseMainModuleOptions=1
|
||||||
|
boCopyLogInCaseOfError=1
|
||||||
|
boSaveCompressedCopyInCaseOfError=0
|
||||||
|
boHandleSafeCallExceptions=1
|
||||||
|
boCallRTLExceptionEvent=0
|
||||||
|
boCatchHandledExceptions=0
|
||||||
|
loCatchLeaks=0
|
||||||
|
loGroupsSonLeaks=1
|
||||||
|
loHideBorlandLeaks=1
|
||||||
|
loFreeAllLeaks=1
|
||||||
|
loCatchLeaksExceptions=1
|
||||||
|
cfoReduceFileSize=1
|
||||||
|
cfoCheckFileCorruption=0
|
||||||
|
Count mtInformationMsgCaption=1
|
||||||
|
mtInformationMsgCaption0="Information."
|
||||||
|
Count mtQuestionMsgCaption=1
|
||||||
|
mtQuestionMsgCaption0="Question."
|
||||||
|
Count mtErrorMsgCaption=1
|
||||||
|
mtErrorMsgCaption0="Error."
|
||||||
|
Count mtDialog_Caption=1
|
||||||
|
mtDialog_Caption0="Error occurred"
|
||||||
|
Count mtDialog_ErrorMsgCaption=2
|
||||||
|
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
|
||||||
|
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
|
||||||
|
Count mtDialog_GeneralCaption=1
|
||||||
|
mtDialog_GeneralCaption0="General"
|
||||||
|
Count mtDialog_GeneralHeader=1
|
||||||
|
mtDialog_GeneralHeader0="General Information"
|
||||||
|
Count mtDialog_CallStackCaption=1
|
||||||
|
mtDialog_CallStackCaption0="Call Stack"
|
||||||
|
Count mtDialog_CallStackHeader=1
|
||||||
|
mtDialog_CallStackHeader0="Call Stack Information"
|
||||||
|
Count mtDialog_ModulesCaption=1
|
||||||
|
mtDialog_ModulesCaption0="Modules"
|
||||||
|
Count mtDialog_ModulesHeader=1
|
||||||
|
mtDialog_ModulesHeader0="Modules Information"
|
||||||
|
Count mtDialog_ProcessesCaption=1
|
||||||
|
mtDialog_ProcessesCaption0="Processes"
|
||||||
|
Count mtDialog_ProcessesHeader=1
|
||||||
|
mtDialog_ProcessesHeader0="Processes Information"
|
||||||
|
Count mtDialog_AsmCaption=1
|
||||||
|
mtDialog_AsmCaption0="Assembler"
|
||||||
|
Count mtDialog_AsmHeader=1
|
||||||
|
mtDialog_AsmHeader0="Assembler Information"
|
||||||
|
Count mtDialog_CPUCaption=1
|
||||||
|
mtDialog_CPUCaption0="CPU"
|
||||||
|
Count mtDialog_CPUHeader=1
|
||||||
|
mtDialog_CPUHeader0="CPU Information"
|
||||||
|
Count mtDialog_OKButtonCaption=1
|
||||||
|
mtDialog_OKButtonCaption0="%26OK"
|
||||||
|
Count mtDialog_TerminateButtonCaption=1
|
||||||
|
mtDialog_TerminateButtonCaption0="%26Terminate"
|
||||||
|
Count mtDialog_RestartButtonCaption=1
|
||||||
|
mtDialog_RestartButtonCaption0="%26Restart"
|
||||||
|
Count mtDialog_DetailsButtonCaption=1
|
||||||
|
mtDialog_DetailsButtonCaption0="%26Details"
|
||||||
|
Count mtDialog_CustomButtonCaption=1
|
||||||
|
mtDialog_CustomButtonCaption0="%26Help"
|
||||||
|
Count mtDialog_SendMessage=1
|
||||||
|
mtDialog_SendMessage0="%26Send this error via Internet"
|
||||||
|
Count mtDialog_ScreenshotMessage=1
|
||||||
|
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
|
||||||
|
Count mtDialog_CopyMessage=1
|
||||||
|
mtDialog_CopyMessage0="%26Copy to Clipboard"
|
||||||
|
Count mtDialog_SupportMessage=1
|
||||||
|
mtDialog_SupportMessage0="Go to the Support Page"
|
||||||
|
Count mtMSDialog_ErrorMsgCaption=1
|
||||||
|
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
|
||||||
|
Count mtMSDialog_RestartCaption=1
|
||||||
|
mtMSDialog_RestartCaption0="Restart application."
|
||||||
|
Count mtMSDialog_TerminateCaption=1
|
||||||
|
mtMSDialog_TerminateCaption0="Terminate application."
|
||||||
|
Count mtMSDialog_PleaseCaption=1
|
||||||
|
mtMSDialog_PleaseCaption0="Please tell us about this problem."
|
||||||
|
Count mtMSDialog_DescriptionCaption=1
|
||||||
|
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
|
||||||
|
Count mtMSDialog_SeeDetailsCaption=1
|
||||||
|
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
|
||||||
|
Count mtMSDialog_SeeClickCaption=1
|
||||||
|
mtMSDialog_SeeClickCaption0="click here."
|
||||||
|
Count mtMSDialog_HowToReproduceCaption=1
|
||||||
|
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
|
||||||
|
Count mtMSDialog_EmailCaption=1
|
||||||
|
mtMSDialog_EmailCaption0="Email address (optional):"
|
||||||
|
Count mtMSDialog_SendButtonCaption=1
|
||||||
|
mtMSDialog_SendButtonCaption0="%26Send Error Report"
|
||||||
|
Count mtMSDialog_NoSendButtonCaption=1
|
||||||
|
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
|
||||||
|
Count mtLog_AppHeader=1
|
||||||
|
mtLog_AppHeader0="Application"
|
||||||
|
Count mtLog_AppStartDate=1
|
||||||
|
mtLog_AppStartDate0="Start Date"
|
||||||
|
Count mtLog_AppName=1
|
||||||
|
mtLog_AppName0="Name/Description"
|
||||||
|
Count mtLog_AppVersionNumber=1
|
||||||
|
mtLog_AppVersionNumber0="Version Number"
|
||||||
|
Count mtLog_AppParameters=1
|
||||||
|
mtLog_AppParameters0="Parameters"
|
||||||
|
Count mtLog_AppCompilationDate=1
|
||||||
|
mtLog_AppCompilationDate0="Compilation Date"
|
||||||
|
Count mtLog_AppUpTime=1
|
||||||
|
mtLog_AppUpTime0="Up Time"
|
||||||
|
Count mtLog_ExcHeader=1
|
||||||
|
mtLog_ExcHeader0="Exception"
|
||||||
|
Count mtLog_ExcDate=1
|
||||||
|
mtLog_ExcDate0="Date"
|
||||||
|
Count mtLog_ExcAddress=1
|
||||||
|
mtLog_ExcAddress0="Address"
|
||||||
|
Count mtLog_ExcModuleName=1
|
||||||
|
mtLog_ExcModuleName0="Module Name"
|
||||||
|
Count mtLog_ExcModuleVersion=1
|
||||||
|
mtLog_ExcModuleVersion0="Module Version"
|
||||||
|
Count mtLog_ExcType=1
|
||||||
|
mtLog_ExcType0="Type"
|
||||||
|
Count mtLog_ExcMessage=1
|
||||||
|
mtLog_ExcMessage0="Message"
|
||||||
|
Count mtLog_ExcID=1
|
||||||
|
mtLog_ExcID0="ID"
|
||||||
|
Count mtLog_ExcCount=1
|
||||||
|
mtLog_ExcCount0="Count"
|
||||||
|
Count mtLog_ExcStatus=1
|
||||||
|
mtLog_ExcStatus0="Status"
|
||||||
|
Count mtLog_ExcNote=1
|
||||||
|
mtLog_ExcNote0="Note"
|
||||||
|
Count mtLog_UserHeader=1
|
||||||
|
mtLog_UserHeader0="User"
|
||||||
|
Count mtLog_UserID=1
|
||||||
|
mtLog_UserID0="ID"
|
||||||
|
Count mtLog_UserName=1
|
||||||
|
mtLog_UserName0="Name"
|
||||||
|
Count mtLog_UserEmail=1
|
||||||
|
mtLog_UserEmail0="Email"
|
||||||
|
Count mtLog_UserCompany=1
|
||||||
|
mtLog_UserCompany0="Company"
|
||||||
|
Count mtLog_UserPrivileges=1
|
||||||
|
mtLog_UserPrivileges0="Privileges"
|
||||||
|
Count mtLog_ActCtrlsHeader=1
|
||||||
|
mtLog_ActCtrlsHeader0="Active Controls"
|
||||||
|
Count mtLog_ActCtrlsFormClass=1
|
||||||
|
mtLog_ActCtrlsFormClass0="Form Class"
|
||||||
|
Count mtLog_ActCtrlsFormText=1
|
||||||
|
mtLog_ActCtrlsFormText0="Form Text"
|
||||||
|
Count mtLog_ActCtrlsControlClass=1
|
||||||
|
mtLog_ActCtrlsControlClass0="Control Class"
|
||||||
|
Count mtLog_ActCtrlsControlText=1
|
||||||
|
mtLog_ActCtrlsControlText0="Control Text"
|
||||||
|
Count mtLog_CmpHeader=1
|
||||||
|
mtLog_CmpHeader0="Computer"
|
||||||
|
Count mtLog_CmpName=1
|
||||||
|
mtLog_CmpName0="Name"
|
||||||
|
Count mtLog_CmpTotalMemory=1
|
||||||
|
mtLog_CmpTotalMemory0="Total Memory"
|
||||||
|
Count mtLog_CmpFreeMemory=1
|
||||||
|
mtLog_CmpFreeMemory0="Free Memory"
|
||||||
|
Count mtLog_CmpTotalDisk=1
|
||||||
|
mtLog_CmpTotalDisk0="Total Disk"
|
||||||
|
Count mtLog_CmpFreeDisk=1
|
||||||
|
mtLog_CmpFreeDisk0="Free Disk"
|
||||||
|
Count mtLog_CmpSystemUpTime=1
|
||||||
|
mtLog_CmpSystemUpTime0="System Up Time"
|
||||||
|
Count mtLog_CmpProcessor=1
|
||||||
|
mtLog_CmpProcessor0="Processor"
|
||||||
|
Count mtLog_CmpDisplayMode=1
|
||||||
|
mtLog_CmpDisplayMode0="Display Mode"
|
||||||
|
Count mtLog_CmpDisplayDPI=1
|
||||||
|
mtLog_CmpDisplayDPI0="Display DPI"
|
||||||
|
Count mtLog_CmpVideoCard=1
|
||||||
|
mtLog_CmpVideoCard0="Video Card"
|
||||||
|
Count mtLog_CmpPrinter=1
|
||||||
|
mtLog_CmpPrinter0="Printer"
|
||||||
|
Count mtLog_OSHeader=1
|
||||||
|
mtLog_OSHeader0="Operating System"
|
||||||
|
Count mtLog_OSType=1
|
||||||
|
mtLog_OSType0="Type"
|
||||||
|
Count mtLog_OSBuildN=1
|
||||||
|
mtLog_OSBuildN0="Build #"
|
||||||
|
Count mtLog_OSUpdate=1
|
||||||
|
mtLog_OSUpdate0="Update"
|
||||||
|
Count mtLog_OSLanguage=1
|
||||||
|
mtLog_OSLanguage0="Language"
|
||||||
|
Count mtLog_OSCharset=1
|
||||||
|
mtLog_OSCharset0="Charset"
|
||||||
|
Count mtLog_NetHeader=1
|
||||||
|
mtLog_NetHeader0="Network"
|
||||||
|
Count mtLog_NetIP=1
|
||||||
|
mtLog_NetIP0="IP Address"
|
||||||
|
Count mtLog_NetSubmask=1
|
||||||
|
mtLog_NetSubmask0="Submask"
|
||||||
|
Count mtLog_NetGateway=1
|
||||||
|
mtLog_NetGateway0="Gateway"
|
||||||
|
Count mtLog_NetDNS1=1
|
||||||
|
mtLog_NetDNS10="DNS 1"
|
||||||
|
Count mtLog_NetDNS2=1
|
||||||
|
mtLog_NetDNS20="DNS 2"
|
||||||
|
Count mtLog_NetDHCP=1
|
||||||
|
mtLog_NetDHCP0="DHCP"
|
||||||
|
Count mtLog_CustInfoHeader=1
|
||||||
|
mtLog_CustInfoHeader0="Custom Information"
|
||||||
|
Count mtCallStack_Address=1
|
||||||
|
mtCallStack_Address0="Address"
|
||||||
|
Count mtCallStack_Name=1
|
||||||
|
mtCallStack_Name0="Module"
|
||||||
|
Count mtCallStack_Unit=1
|
||||||
|
mtCallStack_Unit0="Unit"
|
||||||
|
Count mtCallStack_Class=1
|
||||||
|
mtCallStack_Class0="Class"
|
||||||
|
Count mtCallStack_Procedure=1
|
||||||
|
mtCallStack_Procedure0="Procedure/Method"
|
||||||
|
Count mtCallStack_Line=1
|
||||||
|
mtCallStack_Line0="Line"
|
||||||
|
Count mtCallStack_MainThread=1
|
||||||
|
mtCallStack_MainThread0="Main"
|
||||||
|
Count mtCallStack_ExceptionThread=1
|
||||||
|
mtCallStack_ExceptionThread0="Exception Thread"
|
||||||
|
Count mtCallStack_RunningThread=1
|
||||||
|
mtCallStack_RunningThread0="Running Thread"
|
||||||
|
Count mtCallStack_CallingThread=1
|
||||||
|
mtCallStack_CallingThread0="Calling Thread"
|
||||||
|
Count mtCallStack_ThreadID=1
|
||||||
|
mtCallStack_ThreadID0="ID"
|
||||||
|
Count mtCallStack_ThreadPriority=1
|
||||||
|
mtCallStack_ThreadPriority0="Priority"
|
||||||
|
Count mtCallStack_ThreadClass=1
|
||||||
|
mtCallStack_ThreadClass0="Class"
|
||||||
|
Count mtCallStack_LeakCaption=1
|
||||||
|
mtCallStack_LeakCaption0="Memory Leak"
|
||||||
|
Count mtCallStack_LeakData=1
|
||||||
|
mtCallStack_LeakData0="Data"
|
||||||
|
Count mtCallStack_LeakType=1
|
||||||
|
mtCallStack_LeakType0="Type"
|
||||||
|
Count mtCallStack_LeakSize=1
|
||||||
|
mtCallStack_LeakSize0="Total size"
|
||||||
|
Count mtCallStack_LeakCount=1
|
||||||
|
mtCallStack_LeakCount0="Count"
|
||||||
|
Count mtSendDialog_Caption=1
|
||||||
|
mtSendDialog_Caption0="Send."
|
||||||
|
Count mtSendDialog_Message=1
|
||||||
|
mtSendDialog_Message0="Message"
|
||||||
|
Count mtSendDialog_Resolving=1
|
||||||
|
mtSendDialog_Resolving0="Resolving DNS..."
|
||||||
|
Count mtSendDialog_Login=1
|
||||||
|
mtSendDialog_Login0="Login..."
|
||||||
|
Count mtSendDialog_Connecting=1
|
||||||
|
mtSendDialog_Connecting0="Connecting with server..."
|
||||||
|
Count mtSendDialog_Connected=1
|
||||||
|
mtSendDialog_Connected0="Connected with server."
|
||||||
|
Count mtSendDialog_Sending=1
|
||||||
|
mtSendDialog_Sending0="Sending message..."
|
||||||
|
Count mtSendDialog_Sent=1
|
||||||
|
mtSendDialog_Sent0="Message sent."
|
||||||
|
Count mtSendDialog_SelectProject=1
|
||||||
|
mtSendDialog_SelectProject0="Select project..."
|
||||||
|
Count mtSendDialog_Searching=1
|
||||||
|
mtSendDialog_Searching0="Searching..."
|
||||||
|
Count mtSendDialog_Modifying=1
|
||||||
|
mtSendDialog_Modifying0="Modifying..."
|
||||||
|
Count mtSendDialog_Disconnecting=1
|
||||||
|
mtSendDialog_Disconnecting0="Disconnecting..."
|
||||||
|
Count mtSendDialog_Disconnected=1
|
||||||
|
mtSendDialog_Disconnected0="Disconnected."
|
||||||
|
Count mtReproduceDialog_Caption=1
|
||||||
|
mtReproduceDialog_Caption0="Request"
|
||||||
|
Count mtReproduceDialog_Request=1
|
||||||
|
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
|
||||||
|
Count mtReproduceDialog_OKButtonCaption=1
|
||||||
|
mtReproduceDialog_OKButtonCaption0="%26OK"
|
||||||
|
Count mtModules_Handle=1
|
||||||
|
mtModules_Handle0="Handle"
|
||||||
|
Count mtModules_Name=1
|
||||||
|
mtModules_Name0="Name"
|
||||||
|
Count mtModules_Description=1
|
||||||
|
mtModules_Description0="Description"
|
||||||
|
Count mtModules_Version=1
|
||||||
|
mtModules_Version0="Version"
|
||||||
|
Count mtModules_Size=1
|
||||||
|
mtModules_Size0="Size"
|
||||||
|
Count mtModules_LastModified=1
|
||||||
|
mtModules_LastModified0="Modified"
|
||||||
|
Count mtModules_Path=1
|
||||||
|
mtModules_Path0="Path"
|
||||||
|
Count mtProcesses_ID=1
|
||||||
|
mtProcesses_ID0="ID"
|
||||||
|
Count mtProcesses_Name=1
|
||||||
|
mtProcesses_Name0="Name"
|
||||||
|
Count mtProcesses_Description=1
|
||||||
|
mtProcesses_Description0="Description"
|
||||||
|
Count mtProcesses_Version=1
|
||||||
|
mtProcesses_Version0="Version"
|
||||||
|
Count mtProcesses_Memory=1
|
||||||
|
mtProcesses_Memory0="Memory"
|
||||||
|
Count mtProcesses_Priority=1
|
||||||
|
mtProcesses_Priority0="Priority"
|
||||||
|
Count mtProcesses_Threads=1
|
||||||
|
mtProcesses_Threads0="Threads"
|
||||||
|
Count mtProcesses_Path=1
|
||||||
|
mtProcesses_Path0="Path"
|
||||||
|
Count mtCPU_Registers=1
|
||||||
|
mtCPU_Registers0="Registers"
|
||||||
|
Count mtCPU_Stack=1
|
||||||
|
mtCPU_Stack0="Stack"
|
||||||
|
Count mtCPU_MemoryDump=1
|
||||||
|
mtCPU_MemoryDump0="Memory Dump"
|
||||||
|
Count mtSend_SuccessMsg=1
|
||||||
|
mtSend_SuccessMsg0="The message was sent successfully."
|
||||||
|
Count mtSend_FailureMsg=1
|
||||||
|
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
||||||
|
Count mtSend_BugClosedMsg=2
|
||||||
|
mtSend_BugClosedMsg0="These BUG is just closed."
|
||||||
|
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
|
||||||
|
Count mtSend_UnknownErrorMsg=1
|
||||||
|
mtSend_UnknownErrorMsg0="Unknown error."
|
||||||
|
Count mtSend_InvalidLoginMsg=1
|
||||||
|
mtSend_InvalidLoginMsg0="Invalid login request."
|
||||||
|
Count mtSend_InvalidSearchMsg=1
|
||||||
|
mtSend_InvalidSearchMsg0="Invalid search request."
|
||||||
|
Count mtSend_InvalidSelectionMsg=1
|
||||||
|
mtSend_InvalidSelectionMsg0="Invalid selection request."
|
||||||
|
Count mtSend_InvalidInsertMsg=1
|
||||||
|
mtSend_InvalidInsertMsg0="Invalid insert request."
|
||||||
|
Count mtSend_InvalidModifyMsg=1
|
||||||
|
mtSend_InvalidModifyMsg0="Invalid modify request."
|
||||||
|
Count mtFileCrackedMsg=2
|
||||||
|
mtFileCrackedMsg0="This file is cracked."
|
||||||
|
mtFileCrackedMsg1="The application will be closed."
|
||||||
|
Count mtException_LeakMultiFree=1
|
||||||
|
mtException_LeakMultiFree0="Multi Free memory leak."
|
||||||
|
Count mtException_LeakMemoryOverrun=1
|
||||||
|
mtException_LeakMemoryOverrun0="Memory Overrun leak."
|
||||||
|
Count mtException_AntiFreeze=1
|
||||||
|
mtException_AntiFreeze0="The application seems to be frozen."
|
||||||
|
Count mtInvalidEmailMsg=1
|
||||||
|
mtInvalidEmailMsg0="Invalid email."
|
||||||
|
TextsCollection=English
|
||||||
|
EurekaLog Last Line -->
|
||||||
@ -0,0 +1,22 @@
|
|||||||
|
unit uIEditorComision;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
uEditorDBItem, uBizComisiones, uComisionesController;
|
||||||
|
|
||||||
|
type
|
||||||
|
IEditorComision = interface(IEditorDBItem)
|
||||||
|
['{21D6E58B-2BBE-4EF4-BF81-3BF896BBD930}']
|
||||||
|
function GetController : IComisionesController;
|
||||||
|
procedure SetController (const Value : IComisionesController);
|
||||||
|
property Controller : IComisionesController read GetController write SetController;
|
||||||
|
|
||||||
|
function GetComision: IBizComisiones;
|
||||||
|
procedure SetComision(const Value: IBizComisiones);
|
||||||
|
property Comision: IBizComisiones read GetComision write SetComision;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
end.
|
||||||
@ -0,0 +1,23 @@
|
|||||||
|
unit uIEditorComisiones;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
uEditorGridBase, uBizComisiones, uComisionesController;
|
||||||
|
|
||||||
|
type
|
||||||
|
IEditorComisiones = interface(IEditorGridBase)
|
||||||
|
['{C29A6F57-3673-4BB5-A497-EBCCBE4A6088}']
|
||||||
|
function GetComisiones: IBizComisiones;
|
||||||
|
procedure SetComisiones(const Value: IBizComisiones);
|
||||||
|
property Comisiones: IBizComisiones read GetComisiones write SetComisiones;
|
||||||
|
|
||||||
|
function GetController : IComisionesController;
|
||||||
|
procedure SetController (const Value : IComisionesController);
|
||||||
|
property Controller : IComisionesController read GetController write SetController;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
end.
|
||||||
@ -0,0 +1,19 @@
|
|||||||
|
unit uIEditorComisionesPreview;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
uEditorPreview, uIDataModuleComisionesReport;
|
||||||
|
|
||||||
|
type
|
||||||
|
IEditorComisionesPreview = interface(IEditorPreview)
|
||||||
|
['{A0E45AC5-503B-4FB6-8BCA-714B6DE2358A}']
|
||||||
|
function GetDataModule : IDataModuleComisionesReport;
|
||||||
|
procedure SetDataModule (const Value : IDataModuleComisionesReport);
|
||||||
|
property DataModule : IDataModuleComisionesReport read GetDataModule write SetDataModule;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
end.
|
||||||
516
Source/Modulos/Comisiones/Controller/uComisionesController.pas
Normal file
516
Source/Modulos/Comisiones/Controller/uComisionesController.pas
Normal file
@ -0,0 +1,516 @@
|
|||||||
|
unit uComisionesController;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, uDADataTable, uControllerBase, uEditorDBItem,
|
||||||
|
uIDataModuleComisiones, uBizComisiones, uFacturasClienteController, uBizFacturasCliente;
|
||||||
|
|
||||||
|
type
|
||||||
|
IComisionesController = interface(IObservador)
|
||||||
|
['{0C281A5D-9DF9-46BD-99CB-1150A536EFA1}']
|
||||||
|
function BuscarTodos: IBizComisiones;
|
||||||
|
procedure VerTodos(AComision: IBizComisiones);
|
||||||
|
procedure Ver(AComision: IBizComisiones);
|
||||||
|
function Anadir(AComision : IBizComisiones): Boolean;
|
||||||
|
function Eliminar(AComision : IBizComisiones): Boolean;
|
||||||
|
function Guardar(AComision : IBizComisiones): Boolean;
|
||||||
|
procedure DescartarCambios(AComision : IBizComisiones);
|
||||||
|
procedure Preview(AComision : IBizComisiones; const DesglosadoProv: Boolean);
|
||||||
|
procedure Print(AComision : IBizComisiones; const DesglosadoProv: Boolean);
|
||||||
|
|
||||||
|
function ElegirFacturasComision(AComision : IBizComisiones): Boolean;
|
||||||
|
procedure EliminarFactura(AComision : IBizComisiones);
|
||||||
|
procedure AsignarImporteTotal(AComision : IBizComisiones; Const ImporteTotal: Variant);
|
||||||
|
end;
|
||||||
|
|
||||||
|
TComisionesController = class(TObservador, IComisionesController)
|
||||||
|
private
|
||||||
|
function BuscarFacturasDesglosadas(AFacturas: IBizFacturaCliente): IBizFacturasComision;
|
||||||
|
// procedure QuitarExistentes(AFacturas: IBizFacturaCliente; AFacturasComision: IBizFacturasComision);
|
||||||
|
|
||||||
|
procedure FiltrarEmpresa(AComision: IBizComisiones);
|
||||||
|
|
||||||
|
protected
|
||||||
|
FDataModule : IDataModuleComisiones;
|
||||||
|
FFacturasClienteController: IFacturasClienteController;
|
||||||
|
|
||||||
|
procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
|
||||||
|
function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;
|
||||||
|
|
||||||
|
function ValidarComision(AComision: IBizComisiones): Boolean;
|
||||||
|
procedure AsignarID(AComision: IBizComisiones; const IDNuevo: Integer);
|
||||||
|
procedure AsignarIDDetalles(AFacturasComision: IBizFacturasComision; IDComision: Integer; AEsNuevo: Boolean);
|
||||||
|
//Estos son los tres m閠odos a sobre escribir si se desea heredar toda la logica de
|
||||||
|
//este controller
|
||||||
|
procedure AsignarDataModule; virtual;
|
||||||
|
|
||||||
|
public
|
||||||
|
constructor Create; virtual;
|
||||||
|
destructor Destroy; override;
|
||||||
|
|
||||||
|
function Eliminar(AComision : IBizComisiones): Boolean;
|
||||||
|
function Guardar(AComision : IBizComisiones): Boolean;
|
||||||
|
procedure DescartarCambios(AComision : IBizComisiones);
|
||||||
|
function Anadir(AComision : IBizComisiones): Boolean;
|
||||||
|
function BuscarTodos: IBizComisiones;
|
||||||
|
procedure VerTodos(AComision: IBizComisiones);
|
||||||
|
procedure Ver(AComision: IBizComisiones);
|
||||||
|
procedure Preview(AComision : IBizComisiones; const DesglosadoProv: Boolean);
|
||||||
|
procedure Print(AComision : IBizComisiones; const DesglosadoProv: Boolean);
|
||||||
|
function ElegirFacturasComision(AComision : IBizComisiones): Boolean;
|
||||||
|
procedure EliminarFactura(AComision : IBizComisiones);
|
||||||
|
procedure AsignarImporteTotal(AComision : IBizComisiones; Const ImporteTotal: Variant);
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
Variants, Dialogs, cxControls, DB, uEditorRegistryUtils, schComisionesClient_Intf,
|
||||||
|
uIEditorComisiones, uDataModuleComisiones, uDataModuleUsuarios,
|
||||||
|
uDAInterfaces, uDataTableUtils, uIEditorComision, uComisionesReportController,
|
||||||
|
uDateUtils, uROTypes, DateUtils, Controls, Windows, uDialogUtils,
|
||||||
|
uFactuGES_App;
|
||||||
|
|
||||||
|
{ TComisionesController }
|
||||||
|
|
||||||
|
function TComisionesController.Anadir(AComision: IBizComisiones): Boolean;
|
||||||
|
begin
|
||||||
|
if not Assigned(AComision) then
|
||||||
|
raise Exception.Create ('Comision no asignado (Anadir)');
|
||||||
|
|
||||||
|
if not AComision.DataTable.Active then
|
||||||
|
AComision.DataTable.Active := True;
|
||||||
|
|
||||||
|
AComision.Insert;
|
||||||
|
Result := True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TComisionesController.AsignarDataModule;
|
||||||
|
begin
|
||||||
|
FDataModule := TDataModuleComisiones.Create(Nil);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TComisionesController.AsignarID(AComision: IBizComisiones; const IDNuevo: Integer);
|
||||||
|
begin
|
||||||
|
if not Assigned(AComision) then
|
||||||
|
raise Exception.Create ('Comision no asignado');
|
||||||
|
|
||||||
|
AsignarIDDetalles(AComision.Facturas, IDNuevo, AComision.EsNuevo);
|
||||||
|
|
||||||
|
if AComision.EsNuevo then
|
||||||
|
begin
|
||||||
|
AComision.Edit;
|
||||||
|
AComision.ID := IDNuevo;
|
||||||
|
AComision.Post;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TComisionesController.AsignarIDDetalles(AFacturasComision: IBizFacturasComision; IDComision: Integer; AEsNuevo: Boolean);
|
||||||
|
begin
|
||||||
|
with AFacturasComision do
|
||||||
|
begin
|
||||||
|
DataTable.DisableControls;
|
||||||
|
try
|
||||||
|
begin
|
||||||
|
if not DataTable.Active then
|
||||||
|
DataTable.Active := True;
|
||||||
|
|
||||||
|
{ OJO !!!!
|
||||||
|
Para asignar el ID en los detalles hay
|
||||||
|
que tener en cuenta una cosa:
|
||||||
|
Si se cambia el ID, ese detalle ya no
|
||||||
|
pertenece a esa cabecera porque ya no se
|
||||||
|
cumple la condici髇 de la relacion:
|
||||||
|
Master.ID = Detail.ID_PRESUPUESTO.
|
||||||
|
|
||||||
|
Por esa raz髇 no sirve hacer un recorrido
|
||||||
|
desde el principio hasta el final porque
|
||||||
|
las detalles van desapareciendo seg鷑 asignamos
|
||||||
|
el valor al campo ID y nos mueve aleatoriamente
|
||||||
|
la posici髇 del registro actual.
|
||||||
|
|
||||||
|
Es mejor hacer un bucle sencillo hasta que
|
||||||
|
"se gasten" todos los detalles. Cuando el
|
||||||
|
RecordCount llegue a 0 quiere decir que hemos
|
||||||
|
tratado todos los detalles.
|
||||||
|
|
||||||
|
El bucle cambia en el caso de ser llamada esta funcion desde modificar
|
||||||
|
un presupuesto ya que en ese caso si que hay que hacer un recorrido
|
||||||
|
total de las tuplas de detalle.
|
||||||
|
}
|
||||||
|
|
||||||
|
if AEsNuevo then
|
||||||
|
begin
|
||||||
|
while RecordCount > 0 do
|
||||||
|
begin
|
||||||
|
DataTable.First;
|
||||||
|
Edit;
|
||||||
|
ID_COMISION_LIQUIDADA := IdComision;
|
||||||
|
Post
|
||||||
|
end
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
DataTable.First;
|
||||||
|
while not DataTable.EOF do
|
||||||
|
begin
|
||||||
|
if ID_COMISION_LIQUIDADA < 0 then
|
||||||
|
begin
|
||||||
|
Edit;
|
||||||
|
ID_COMISION_LIQUIDADA := IdComision;
|
||||||
|
Post
|
||||||
|
end;
|
||||||
|
DataTable.Next
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
DataTable.EnableControls;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TComisionesController.AsignarImporteTotal(AComision: IBizComisiones; const ImporteTotal: Variant);
|
||||||
|
begin
|
||||||
|
if Assigned(AComision) then
|
||||||
|
begin
|
||||||
|
if (not VarIsNull(ImporteTotal))
|
||||||
|
and (AComision.DataTable.FieldByName(fld_ComisionesIMPORTE_TOTAL).IsNull or (AComision.IMPORTE_TOTAL <> ImporteTotal)) then
|
||||||
|
begin
|
||||||
|
AComision.Edit;
|
||||||
|
AComision.IMPORTE_TOTAL := ImporteTotal;
|
||||||
|
AComision.Post;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TComisionesController.BuscarFacturasDesglosadas(AFacturas: IBizFacturaCliente): IBizFacturasComision;
|
||||||
|
var
|
||||||
|
Cadena: String;
|
||||||
|
begin
|
||||||
|
if Assigned(AFacturas) then
|
||||||
|
begin
|
||||||
|
with AFacturas.DataTable do
|
||||||
|
begin
|
||||||
|
if not Active then Active := True;
|
||||||
|
First;
|
||||||
|
Cadena := '';
|
||||||
|
While not Eof do
|
||||||
|
begin
|
||||||
|
if (Length(Cadena) > 0) then
|
||||||
|
Cadena := Cadena + ', ';
|
||||||
|
Cadena := Cadena + IntToStr(AFacturas.ID);
|
||||||
|
Next;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// Showmessage(Cadena);
|
||||||
|
Result := FDataModule.GetFacturasDesglosadas;
|
||||||
|
with Result.DataTable.Where do
|
||||||
|
begin
|
||||||
|
if NotEmpty then
|
||||||
|
AddOperator(opAND);
|
||||||
|
OpenBraket;
|
||||||
|
AddText('ID_FACTURA in (' + Cadena + ')');
|
||||||
|
CloseBraket;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TComisionesController.BuscarTodos: IBizComisiones;
|
||||||
|
begin
|
||||||
|
Result := FDataModule.GetItems;
|
||||||
|
FiltrarEmpresa(Result);
|
||||||
|
end;
|
||||||
|
|
||||||
|
constructor TComisionesController.Create;
|
||||||
|
begin
|
||||||
|
AsignarDataModule;
|
||||||
|
FFacturasClienteController := TFacturasClienteController.Create;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TComisionesController.CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
|
||||||
|
begin
|
||||||
|
Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TComisionesController.DescartarCambios(AComision: IBizComisiones);
|
||||||
|
begin
|
||||||
|
if not Assigned(AComision) then
|
||||||
|
raise Exception.Create ('Almacen no asignado');
|
||||||
|
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
if (AComision.State in dsEditModes) then
|
||||||
|
AComision.Cancel;
|
||||||
|
|
||||||
|
AComision.DataTable.CancelUpdates;
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TComisionesController.Destroy;
|
||||||
|
begin
|
||||||
|
FFacturasClienteController := Nil;
|
||||||
|
FDataModule := Nil;
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TComisionesController.ValidarComision(AComision: IBizComisiones): Boolean;
|
||||||
|
var
|
||||||
|
AFechaPagado : TDateTime;
|
||||||
|
begin
|
||||||
|
Result := False;
|
||||||
|
|
||||||
|
if not Assigned(AComision) then
|
||||||
|
raise Exception.Create ('Comision no asignada');
|
||||||
|
|
||||||
|
if (AComision.DataTable.State in dsEditModes) then
|
||||||
|
AComision.DataTable.Post;
|
||||||
|
|
||||||
|
if AComision.DataTable.FieldByName(fld_ComisionesID_AGENTE).IsNull then
|
||||||
|
raise Exception.Create('Debe indicar el agente de esta liquidaci髇 de comisiones.');
|
||||||
|
|
||||||
|
if AComision.DataTable.FieldByName(fld_ComisionesFECHA).IsNull then
|
||||||
|
raise Exception.Create('Debe indicar la fecha de esta liquidaci髇 de comisiones.');
|
||||||
|
|
||||||
|
if AComision.DataTable.FieldByName(fld_ComisionesDESCRIPCION).IsNull then
|
||||||
|
raise Exception.Create('Debe indicar una descripci髇 para la liquidaci髇 de comisi髇.');
|
||||||
|
|
||||||
|
// Asegurarse de valores en campos "autom醫icos"
|
||||||
|
AComision.Edit;
|
||||||
|
try
|
||||||
|
AComision.USUARIO := AppFactuGES.UsuarioActivo.UserName;
|
||||||
|
Result := True;
|
||||||
|
finally
|
||||||
|
AComision.Post;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TComisionesController.Ver(AComision: IBizComisiones);
|
||||||
|
var
|
||||||
|
AEditor : IEditorComision;
|
||||||
|
begin
|
||||||
|
AEditor := NIL;
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
// RecuperarObjetos(ARemesaCliente);
|
||||||
|
|
||||||
|
CreateEditor('EditorComision', IEditorComision, AEditor);
|
||||||
|
with (AEditor as IEditorComision) do
|
||||||
|
begin
|
||||||
|
Controller := Self; //OJO ORDEN MUY IMPORTANTE
|
||||||
|
Comision := AComision;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if Assigned(AEditor) then
|
||||||
|
try
|
||||||
|
AEditor.ShowModal;
|
||||||
|
AEditor.Release;
|
||||||
|
finally
|
||||||
|
AEditor := NIL;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TComisionesController.VerTodos(AComision: IBizComisiones);
|
||||||
|
var
|
||||||
|
AEditor : IEditorComisiones;
|
||||||
|
begin
|
||||||
|
AEditor := NIL;
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
CreateEditor('EditorComisiones', IEditorComisiones, AEditor);
|
||||||
|
with AEditor do
|
||||||
|
begin
|
||||||
|
Controller := Self; //OJO ORDEN MUY IMPORTANTE
|
||||||
|
Comisiones := AComision;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if Assigned(AEditor) then
|
||||||
|
try
|
||||||
|
AEditor.ShowEmbedded;
|
||||||
|
finally
|
||||||
|
AEditor := NIL;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TComisionesController.ElegirFacturasComision(AComision: IBizComisiones): Boolean;
|
||||||
|
var
|
||||||
|
AFacturasAgente : IBizFacturaCliente;
|
||||||
|
AFacturasSeleccionadas : IBizFacturaCliente;
|
||||||
|
AFacturasDesglosadas: IBizFacturasComision;
|
||||||
|
Cadena: String;
|
||||||
|
begin
|
||||||
|
Result := False;
|
||||||
|
|
||||||
|
if (AComision.ID_AGENTE <> 0) then
|
||||||
|
begin
|
||||||
|
|
||||||
|
if Assigned(AComision.Facturas) then
|
||||||
|
begin
|
||||||
|
with AComision.Facturas.DataTable do
|
||||||
|
begin
|
||||||
|
if not Active then Active := True;
|
||||||
|
First;
|
||||||
|
Cadena := '';
|
||||||
|
While not Eof do
|
||||||
|
begin
|
||||||
|
if (Length(Cadena) > 0) then
|
||||||
|
Cadena := Cadena + ', ';
|
||||||
|
Cadena := Cadena + IntToStr(AComision.Facturas.ID_FACTURA);
|
||||||
|
Next;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
AFacturasAgente := FFacturasClienteController.BuscarTodasPendientesComision(AComision.ID_AGENTE, AComision.ID, Cadena);
|
||||||
|
AFacturasSeleccionadas := (FFacturasClienteController.ElegirFacturas(AFacturasAgente, 'Elija uno o m醩 facturas para incluirlos en esta liquidaci髇 de comisiones', True) as IBizFacturaCliente);
|
||||||
|
|
||||||
|
if Assigned(AFacturasSeleccionadas) then
|
||||||
|
begin
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
AFacturasDesglosadas := BuscarFacturasDesglosadas(AFacturasSeleccionadas);
|
||||||
|
|
||||||
|
//Copia las facturas desglosadas de las facturas seleccionadas
|
||||||
|
DuplicarRegistros(AFacturasDesglosadas.DataTable, AComision.Facturas.DataTable, mdrTodos, True, True, False);
|
||||||
|
|
||||||
|
Result := True;
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
AFacturasAgente := Nil;
|
||||||
|
AFacturasSeleccionadas := Nil;
|
||||||
|
AFacturasDesglosadas := Nil;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
ShowWarningMessage('Debe elegir primero el agente asociado a la liquidaci髇');
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TComisionesController.Eliminar(AComision: IBizComisiones): Boolean;
|
||||||
|
begin
|
||||||
|
Result := False;
|
||||||
|
|
||||||
|
if not Assigned(AComision) then
|
||||||
|
raise Exception.Create ('Comision no asignada');
|
||||||
|
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
if (AComision.State in dsEditModes) then
|
||||||
|
AComision.Cancel;
|
||||||
|
|
||||||
|
AComision.Delete;
|
||||||
|
AComision.DataTable.ApplyUpdates;
|
||||||
|
HideHourglassCursor;
|
||||||
|
Result := True;
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TComisionesController.EliminarFactura(AComision: IBizComisiones);
|
||||||
|
var
|
||||||
|
IdFactura: Variant;
|
||||||
|
begin
|
||||||
|
IdFactura := AComision.Facturas.ID_FACTURA;
|
||||||
|
|
||||||
|
AComision.Facturas.First;
|
||||||
|
while AComision.Facturas.DataTable.Locate('ID_FACTURA', IdFactura,[]) do
|
||||||
|
begin
|
||||||
|
AComision.Facturas.Delete;
|
||||||
|
AComision.Facturas.First;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TComisionesController.FiltrarEmpresa(AComision: IBizComisiones);
|
||||||
|
var
|
||||||
|
Condicion: TDAWhereExpression;
|
||||||
|
begin
|
||||||
|
if AComision.DataTable.Active then
|
||||||
|
AComision.DataTable.Active := False;
|
||||||
|
|
||||||
|
// Filtrar las facturas actuales por empresa
|
||||||
|
with AComision.DataTable.DynamicWhere do
|
||||||
|
begin
|
||||||
|
// (ID_EMPRESA >= ID)
|
||||||
|
Condicion := NewBinaryExpression(NewField('', fld_ComisionesID_EMPRESA), NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual);
|
||||||
|
|
||||||
|
if IsEmpty then
|
||||||
|
Expression := Condicion
|
||||||
|
else
|
||||||
|
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TComisionesController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
//
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TComisionesController.Guardar(AComision: IBizComisiones): Boolean;
|
||||||
|
begin
|
||||||
|
Result := False;
|
||||||
|
|
||||||
|
if not Assigned(AComision) then
|
||||||
|
raise Exception.Create ('Almacen no asignada');
|
||||||
|
|
||||||
|
if ValidarComision(AComision) then
|
||||||
|
begin
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
AComision.DataTable.ApplyUpdates;
|
||||||
|
//Si todo ha ido bien, asignamos la comision a las facturas asociadas
|
||||||
|
//Como no est醤 declarados como maestro-detalles debemos hacer el applyupdates nosotros
|
||||||
|
// RecibosClienteController.AsignarRemesa(ARemesaCliente.Recibos, NuevoID);
|
||||||
|
// ARemesaCliente.Recibos.DataTable.ApplyUpdates; //En este applyupdates tambien se realizar醤 todos los cambios acumulados sobre los recibos asociados (EliminarReciboCliente/ ElegirRecibosCliente)
|
||||||
|
|
||||||
|
Result := True;
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TComisionesController.Preview(AComision: IBizComisiones; const DesglosadoProv: Boolean);
|
||||||
|
var
|
||||||
|
AReportController : IComisionesReportController;
|
||||||
|
begin
|
||||||
|
AReportController := TComisionesReportController.Create;
|
||||||
|
try
|
||||||
|
if Assigned(AComision) then
|
||||||
|
AReportController.Preview(AComision.ID, DesglosadoProv)
|
||||||
|
else
|
||||||
|
AReportController.Preview(Null, DesglosadoProv)
|
||||||
|
finally
|
||||||
|
AReportController := NIL;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TComisionesController.Print(AComision: IBizComisiones; const DesglosadoProv: Boolean);
|
||||||
|
var
|
||||||
|
AReportController : IComisionesReportController;
|
||||||
|
begin
|
||||||
|
AReportController := TComisionesReportController.Create;
|
||||||
|
try
|
||||||
|
if Assigned(AComision) then
|
||||||
|
AReportController.Print(AComision.ID, DesglosadoProv)
|
||||||
|
else
|
||||||
|
AReportController.Print(Null, DesglosadoProv);
|
||||||
|
finally
|
||||||
|
AReportController := NIL;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
@ -0,0 +1,106 @@
|
|||||||
|
unit uComisionesReportController;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, uDADataTable, uControllerBase, uIDataModuleComisionesReport,
|
||||||
|
// uClientesController, uDetallesFacturaClienteController,
|
||||||
|
uBizComisiones;
|
||||||
|
|
||||||
|
type
|
||||||
|
IComisionesReportController = interface
|
||||||
|
['{7ABB74C2-050C-4737-BC4C-C5F20883CED8}']
|
||||||
|
procedure Preview(const AComisionID : Variant; const DesglosadoProv: Boolean);
|
||||||
|
procedure Print(const AComisionID : Variant; const DesglosadoProv: Boolean);
|
||||||
|
end;
|
||||||
|
|
||||||
|
TComisionesReportController = class(TInterfacedObject, IComisionesReportController)
|
||||||
|
private
|
||||||
|
FDataModule : IDataModuleComisionesReport;
|
||||||
|
function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
|
||||||
|
public
|
||||||
|
constructor Create;
|
||||||
|
destructor Destroy; override;
|
||||||
|
|
||||||
|
procedure Preview(const AComisionID : Variant; const DesglosadoProv: Boolean);
|
||||||
|
procedure Print(const AComisionID : Variant; const DesglosadoProv: Boolean);
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
Variants, uROTypes, uEditorRegistryUtils, uIEditorComisionesPreview,
|
||||||
|
uEditorPreview, uDataModuleComisiones, uEditorBase, cxControls;
|
||||||
|
|
||||||
|
{ TComisionesReportController }
|
||||||
|
|
||||||
|
constructor TComisionesReportController.Create;
|
||||||
|
begin
|
||||||
|
FDataModule := TDataModuleComisiones.Create(Nil);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TComisionesReportController.CreateEditor(const AName: String;
|
||||||
|
const IID: TGUID; out Intf): Boolean;
|
||||||
|
begin
|
||||||
|
Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
destructor TComisionesReportController.Destroy;
|
||||||
|
begin
|
||||||
|
FDataModule := NIL;
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TComisionesReportController.Preview(const AComisionID : Variant; const DesglosadoProv: Boolean);
|
||||||
|
var
|
||||||
|
AStream: Binary;
|
||||||
|
AEditor : IEditorComisionesPreview;
|
||||||
|
begin
|
||||||
|
AEditor := NIL;
|
||||||
|
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
AStream := FDataModule.GetReport(AComisionID, DesglosadoProv,'', '', Null);
|
||||||
|
try
|
||||||
|
CreateEditor('EditorComisionesPreview', IEditorComisionesPreview, AEditor);
|
||||||
|
AEditor.DataModule := FDataModule;
|
||||||
|
AEditor.LoadFromStream(AStream);
|
||||||
|
finally
|
||||||
|
AStream.Free;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if Assigned(AEditor) then
|
||||||
|
AEditor.Preview;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TComisionesReportController.Print(const AComisionID : Variant; const DesglosadoProv: Boolean);
|
||||||
|
var
|
||||||
|
AStream: Binary;
|
||||||
|
AEditor : IEditorComisionesPreview;
|
||||||
|
begin
|
||||||
|
AEditor := NIL;
|
||||||
|
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
AStream := FDataModule.GetReport(AComisionID, DesglosadoProv, '', '', Null);
|
||||||
|
try
|
||||||
|
CreateEditor('EditorComisionesPreview', IEditorComisionesPreview, AEditor);
|
||||||
|
AEditor.DataModule := FDataModule;
|
||||||
|
AEditor.LoadFromStream(AStream);
|
||||||
|
finally
|
||||||
|
AStream.Free;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if Assigned(AEditor) then
|
||||||
|
AEditor.Print
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
492
Source/Modulos/Comisiones/Data/Comisiones_data.bdsproj
Normal file
492
Source/Modulos/Comisiones/Data/Comisiones_data.bdsproj
Normal 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">{28B6D86E-FAC2-4BFD-97D9-FCEA860835EB}</Option>
|
||||||
|
</Option>
|
||||||
|
</PersonalityInfo>
|
||||||
|
<Delphi.Personality>
|
||||||
|
<Source>
|
||||||
|
<Source Name="MainSource">Comisiones_data.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>
|
||||||
47
Source/Modulos/Comisiones/Data/Comisiones_data.dpk
Normal file
47
Source/Modulos/Comisiones/Data/Comisiones_data.dpk
Normal file
@ -0,0 +1,47 @@
|
|||||||
|
package Comisiones_data;
|
||||||
|
|
||||||
|
{$R *.res}
|
||||||
|
{$ALIGN 8}
|
||||||
|
{$ASSERTIONS ON}
|
||||||
|
{$BOOLEVAL OFF}
|
||||||
|
{$DEBUGINFO ON}
|
||||||
|
{$EXTENDEDSYNTAX ON}
|
||||||
|
{$IMPORTEDDATA ON}
|
||||||
|
{$IOCHECKS ON}
|
||||||
|
{$LOCALSYMBOLS ON}
|
||||||
|
{$LONGSTRINGS ON}
|
||||||
|
{$OPENSTRINGS ON}
|
||||||
|
{$OPTIMIZATION ON}
|
||||||
|
{$OVERFLOWCHECKS OFF}
|
||||||
|
{$RANGECHECKS OFF}
|
||||||
|
{$REFERENCEINFO ON}
|
||||||
|
{$SAFEDIVIDE OFF}
|
||||||
|
{$STACKFRAMES OFF}
|
||||||
|
{$TYPEDADDRESS OFF}
|
||||||
|
{$VARSTRINGCHECKS ON}
|
||||||
|
{$WRITEABLECONST OFF}
|
||||||
|
{$MINENUMSIZE 1}
|
||||||
|
{$IMAGEBASE $400000}
|
||||||
|
{$IMPLICITBUILD OFF}
|
||||||
|
|
||||||
|
requires
|
||||||
|
Comisiones_model,
|
||||||
|
Base,
|
||||||
|
rtl,
|
||||||
|
dbrtl,
|
||||||
|
cxLibraryD11,
|
||||||
|
dxThemeD11,
|
||||||
|
vcl,
|
||||||
|
dxGDIPlusD11,
|
||||||
|
dxCoreD11,
|
||||||
|
vclx,
|
||||||
|
RemObjects_Core_D11,
|
||||||
|
DataAbstract_Core_D11,
|
||||||
|
vcldb,
|
||||||
|
dsnap,
|
||||||
|
adortl;
|
||||||
|
|
||||||
|
contains
|
||||||
|
uDataModuleComisiones in 'uDataModuleComisiones.pas' {DataModuleComisiones};
|
||||||
|
|
||||||
|
end.
|
||||||
552
Source/Modulos/Comisiones/Data/Comisiones_data.dproj
Normal file
552
Source/Modulos/Comisiones/Data/Comisiones_data.dproj
Normal file
@ -0,0 +1,552 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
|
<PropertyGroup>
|
||||||
|
<ProjectGuid>{28b6d86e-fac2-4bfd-97d9-fcea860835eb}</ProjectGuid>
|
||||||
|
<MainSource>Comisiones_data.dpk</MainSource>
|
||||||
|
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||||
|
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||||
|
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||||
|
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\Comisiones_data.bpl</DCC_DependencyCheckOutputName>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||||
|
<Version>7.0</Version>
|
||||||
|
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||||
|
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||||
|
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||||
|
<DCC_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">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Comisiones_data.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||||
|
</ProjectExtensions>
|
||||||
|
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||||
|
<ItemGroup>
|
||||||
|
<DelphiCompile Include="Comisiones_data.dpk">
|
||||||
|
<MainSource>MainSource</MainSource>
|
||||||
|
</DelphiCompile>
|
||||||
|
<DCCReference Include="..\..\Lib\adortl.dcp" />
|
||||||
|
<DCCReference Include="..\..\Lib\Base.dcp" />
|
||||||
|
<DCCReference Include="..\..\Lib\Comisiones_model.dcp" />
|
||||||
|
<DCCReference Include="..\..\Lib\cxLibraryD11.dcp" />
|
||||||
|
<DCCReference Include="..\..\Lib\DataAbstract_Core_D11.dcp" />
|
||||||
|
<DCCReference Include="..\..\Lib\dbrtl.dcp" />
|
||||||
|
<DCCReference Include="..\..\Lib\dsnap.dcp" />
|
||||||
|
<DCCReference Include="..\..\Lib\dxCoreD11.dcp" />
|
||||||
|
<DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" />
|
||||||
|
<DCCReference Include="..\..\Lib\dxThemeD11.dcp" />
|
||||||
|
<DCCReference Include="..\..\Lib\RemObjects_Core_D11.dcp" />
|
||||||
|
<DCCReference Include="..\..\Lib\rtl.dcp" />
|
||||||
|
<DCCReference Include="..\..\Lib\vcl.dcp" />
|
||||||
|
<DCCReference Include="..\..\Lib\vcldb.dcp" />
|
||||||
|
<DCCReference Include="..\..\Lib\vclx.dcp" />
|
||||||
|
<DCCReference Include="uDataModuleComisiones.pas">
|
||||||
|
<Form>DataModuleComisiones</Form>
|
||||||
|
</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 -->
|
||||||
300
Source/Modulos/Comisiones/Data/uDataModuleComisiones.dfm
Normal file
300
Source/Modulos/Comisiones/Data/uDataModuleComisiones.dfm
Normal file
@ -0,0 +1,300 @@
|
|||||||
|
inherited DataModuleComisiones: TDataModuleComisiones
|
||||||
|
OnCreate = DAClientDataModuleCreate
|
||||||
|
Height = 248
|
||||||
|
Width = 390
|
||||||
|
object RORemoteService: TRORemoteService
|
||||||
|
Message = dmConexion.ROMessage
|
||||||
|
Channel = dmConexion.ROChannel
|
||||||
|
ServiceName = 'srvComisiones'
|
||||||
|
Left = 48
|
||||||
|
Top = 24
|
||||||
|
end
|
||||||
|
object rda_Comisiones: TDARemoteDataAdapter
|
||||||
|
DataStreamer = Bin2DataStreamer
|
||||||
|
GetSchemaCall.RemoteService = RORemoteService
|
||||||
|
GetDataCall.RemoteService = RORemoteService
|
||||||
|
UpdateDataCall.RemoteService = RORemoteService
|
||||||
|
GetScriptsCall.RemoteService = RORemoteService
|
||||||
|
RemoteService = RORemoteService
|
||||||
|
Left = 43
|
||||||
|
Top = 151
|
||||||
|
end
|
||||||
|
object Bin2DataStreamer: TDABin2DataStreamer
|
||||||
|
Left = 48
|
||||||
|
Top = 88
|
||||||
|
end
|
||||||
|
object tbl_Comisiones: TDAMemDataTable
|
||||||
|
RemoteUpdatesOptions = []
|
||||||
|
Fields = <
|
||||||
|
item
|
||||||
|
Name = 'ID'
|
||||||
|
DataType = datAutoInc
|
||||||
|
GeneratorName = 'GEN_COMISIONES_LIQUID_ID'
|
||||||
|
ServerAutoRefresh = True
|
||||||
|
DictionaryEntry = 'Comisiones_ID'
|
||||||
|
InPrimaryKey = True
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_EMPRESA'
|
||||||
|
DataType = datInteger
|
||||||
|
DictionaryEntry = 'Comisiones_ID_EMPRESA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'REFERENCIA'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DictionaryEntry = 'Comisiones_REFERENCIA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_AGENTE'
|
||||||
|
DataType = datInteger
|
||||||
|
DisplayLabel = 'Comisiones_ID_AGENTE'
|
||||||
|
DictionaryEntry = 'Comisiones_ID_AGENTE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'DESCRIPCION'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DictionaryEntry = 'Comisiones_DESCRIPCION'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FECHA'
|
||||||
|
DataType = datDateTime
|
||||||
|
DictionaryEntry = 'Comisiones_FECHA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_TOTAL'
|
||||||
|
DataType = datCurrency
|
||||||
|
DisplayLabel = 'Comisiones_IMPORTE_TOTAL'
|
||||||
|
DictionaryEntry = 'Comisiones_IMPORTE_TOTAL'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'USUARIO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 30
|
||||||
|
DictionaryEntry = 'Comisiones_USUARIO'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'NOMBRE'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DisplayLabel = 'Comisiones_NOMBRE'
|
||||||
|
DictionaryEntry = 'Comisiones_NOMBRE'
|
||||||
|
end>
|
||||||
|
Params = <>
|
||||||
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||||
|
RemoteDataAdapter = rda_Comisiones
|
||||||
|
LogicalName = 'Comisiones'
|
||||||
|
IndexDefs = <>
|
||||||
|
Left = 176
|
||||||
|
Top = 16
|
||||||
|
end
|
||||||
|
object ds_Comisiones: TDADataSource
|
||||||
|
DataSet = tbl_Comisiones.Dataset
|
||||||
|
DataTable = tbl_Comisiones
|
||||||
|
Left = 176
|
||||||
|
Top = 64
|
||||||
|
end
|
||||||
|
object tbl_Facturas_Comision: TDAMemDataTable
|
||||||
|
RemoteUpdatesOptions = []
|
||||||
|
Fields = <
|
||||||
|
item
|
||||||
|
Name = 'ID_EMPRESA'
|
||||||
|
DataType = datInteger
|
||||||
|
DictionaryEntry = 'Comisiones_Detalles_ID_EMPRESA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_AGENTE'
|
||||||
|
DataType = datInteger
|
||||||
|
DictionaryEntry = 'Comisiones_Detalles_ID_AGENTE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'AGENTE'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DictionaryEntry = 'Comisiones_Detalles_AGENTE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_FACTURA'
|
||||||
|
DataType = datInteger
|
||||||
|
DictionaryEntry = 'Facturas_Comision_ID_FACTURA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_COMISION_LIQUIDADA'
|
||||||
|
DataType = datInteger
|
||||||
|
DictionaryEntry = 'Facturas_Comision_ID_COMISION_LIQUIDADA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FECHA'
|
||||||
|
DataType = datDateTime
|
||||||
|
DictionaryEntry = 'Comisiones_Detalles_FECHA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'REFERENCIA'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DictionaryEntry = 'Comisiones_Detalles_REFERENCIA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'SITUACION'
|
||||||
|
DataType = datString
|
||||||
|
Size = 19
|
||||||
|
DictionaryEntry = 'Comisiones_Detalles_SITUACION'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_CLIENTE'
|
||||||
|
DataType = datInteger
|
||||||
|
DictionaryEntry = 'Facturas_Comision_ID_CLIENTE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'CLIENTE'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DictionaryEntry = 'Facturas_Comision_CLIENTE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_PROVEEDOR'
|
||||||
|
DataType = datInteger
|
||||||
|
DictionaryEntry = 'Comisiones_Detalles_ID_PROVEEDOR'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'PROVEEDOR'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DictionaryEntry = 'Comisiones_Detalles_PROVEEDOR'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COMISION'
|
||||||
|
DataType = datFloat
|
||||||
|
DictionaryEntry = 'Comisiones_Detalles_COMISION'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_COMISIONABLE'
|
||||||
|
DataType = datCurrency
|
||||||
|
DictionaryEntry = 'Facturas_Comision_IMPORTE_COMISIONABLE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_COMISION'
|
||||||
|
DataType = datCurrency
|
||||||
|
DictionaryEntry = 'Facturas_Comision_IMPORTE_COMISION'
|
||||||
|
end>
|
||||||
|
Params = <
|
||||||
|
item
|
||||||
|
Name = 'ID_COMISION'
|
||||||
|
Value = ''
|
||||||
|
ParamType = daptInput
|
||||||
|
end>
|
||||||
|
MasterMappingMode = mmWhere
|
||||||
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||||
|
RemoteDataAdapter = rda_Comisiones
|
||||||
|
MasterSource = ds_Comisiones
|
||||||
|
MasterFields = 'ID'
|
||||||
|
DetailFields = 'ID_COMISION_LIQUIDADA'
|
||||||
|
LogicalName = 'Facturas_Comision'
|
||||||
|
IndexDefs = <>
|
||||||
|
Left = 312
|
||||||
|
Top = 16
|
||||||
|
end
|
||||||
|
object ds_Facturas_Comision: TDADataSource
|
||||||
|
DataSet = tbl_Facturas_Comision.Dataset
|
||||||
|
DataTable = tbl_Facturas_Comision
|
||||||
|
Left = 312
|
||||||
|
Top = 64
|
||||||
|
end
|
||||||
|
object tbl_V_Detalles_Facturas_Comision: TDAMemDataTable
|
||||||
|
RemoteUpdatesOptions = []
|
||||||
|
Fields = <
|
||||||
|
item
|
||||||
|
Name = 'ID_EMPRESA'
|
||||||
|
DataType = datInteger
|
||||||
|
DictionaryEntry = 'Comisiones_Detalles_ID_EMPRESA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_AGENTE'
|
||||||
|
DataType = datInteger
|
||||||
|
DictionaryEntry = 'Comisiones_Detalles_ID_AGENTE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'AGENTE'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DictionaryEntry = 'Comisiones_Detalles_AGENTE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_FACTURA'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_COMISION_LIQUIDADA'
|
||||||
|
DataType = datInteger
|
||||||
|
DictionaryEntry = 'V_Detalles_Facturas_Comision_ID_COMISION_LIQUIDADA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FECHA'
|
||||||
|
DataType = datDateTime
|
||||||
|
DictionaryEntry = 'Comisiones_Detalles_FECHA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'REFERENCIA'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DictionaryEntry = 'Comisiones_Detalles_REFERENCIA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'SITUACION'
|
||||||
|
DataType = datString
|
||||||
|
Size = 19
|
||||||
|
DictionaryEntry = 'Comisiones_Detalles_SITUACION'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_CLIENTE'
|
||||||
|
DataType = datInteger
|
||||||
|
DictionaryEntry = 'Facturas_Comision_ID_CLIENTE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'CLIENTE'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DictionaryEntry = 'Facturas_Comision_CLIENTE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_PROVEEDOR'
|
||||||
|
DataType = datInteger
|
||||||
|
DictionaryEntry = 'Comisiones_Detalles_ID_PROVEEDOR'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'PROVEEDOR'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DictionaryEntry = 'Comisiones_Detalles_PROVEEDOR'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COMISION'
|
||||||
|
DataType = datFloat
|
||||||
|
DictionaryEntry = 'Comisiones_Detalles_COMISION'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_COMISIONABLE'
|
||||||
|
DataType = datCurrency
|
||||||
|
DictionaryEntry = 'V_Detalles_Facturas_Comision_IMPORTE_COMISIONABLE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_COMISION'
|
||||||
|
DataType = datCurrency
|
||||||
|
DictionaryEntry = 'V_Detalles_Facturas_Comision_IMPORTE_COMISION'
|
||||||
|
end>
|
||||||
|
Params = <>
|
||||||
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||||
|
RemoteDataAdapter = rda_Comisiones
|
||||||
|
LogicalName = 'V_Detalles_Facturas_Comision'
|
||||||
|
IndexDefs = <>
|
||||||
|
Left = 232
|
||||||
|
Top = 128
|
||||||
|
end
|
||||||
|
object ds_V_Detalles_Facturas_Comision: TDADataSource
|
||||||
|
DataSet = tbl_V_Detalles_Facturas_Comision.Dataset
|
||||||
|
DataTable = tbl_V_Detalles_Facturas_Comision
|
||||||
|
Left = 232
|
||||||
|
Top = 176
|
||||||
|
end
|
||||||
|
end
|
||||||
148
Source/Modulos/Comisiones/Data/uDataModuleComisiones.pas
Normal file
148
Source/Modulos/Comisiones/Data/uDataModuleComisiones.pas
Normal file
@ -0,0 +1,148 @@
|
|||||||
|
unit uDataModuleComisiones;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
SysUtils, Classes, DB, uIDataModuleComisiones, uIDataModuleComisionesReport,
|
||||||
|
uBizComisiones, uDAInterfaces, uDADataTable, uROTypes,
|
||||||
|
uDAScriptingProvider, uDAMemDataTable, uDADataStreamer, uDABin2DataStreamer,
|
||||||
|
uDARemoteDataAdapter, uROClient, uRORemoteService, uDataModuleBase;
|
||||||
|
|
||||||
|
type
|
||||||
|
TDataModuleComisiones = class(TDataModuleBase, IDataModuleComisiones, IDataModuleComisionesReport)
|
||||||
|
RORemoteService: TRORemoteService;
|
||||||
|
rda_Comisiones: TDARemoteDataAdapter;
|
||||||
|
Bin2DataStreamer: TDABin2DataStreamer;
|
||||||
|
tbl_Comisiones: TDAMemDataTable;
|
||||||
|
ds_Comisiones: TDADataSource;
|
||||||
|
tbl_Facturas_Comision: TDAMemDataTable;
|
||||||
|
ds_Facturas_Comision: TDADataSource;
|
||||||
|
tbl_V_Detalles_Facturas_Comision: TDAMemDataTable;
|
||||||
|
ds_V_Detalles_Facturas_Comision: TDADataSource;
|
||||||
|
procedure DAClientDataModuleCreate(Sender: TObject);
|
||||||
|
protected
|
||||||
|
function _GetFacturas : IBizFacturasComision;
|
||||||
|
procedure AsignarClaseNegocio(AComisiones: TDADataTable);
|
||||||
|
|
||||||
|
public
|
||||||
|
function GetItems : IBizComisiones; overload;
|
||||||
|
function GetFacturasDesglosadas : IBizFacturasComision;
|
||||||
|
function GetItem(const ID : Integer) : IBizComisiones;
|
||||||
|
function NewItem : IBizComisiones;
|
||||||
|
|
||||||
|
// Report
|
||||||
|
function GetReport(const AComisionID: Variant; const DesglosadoProv: Boolean; FechaIni: String; FechaFin: String; AAgenteID: Variant): Binary;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
{$R *.DFM}
|
||||||
|
|
||||||
|
uses
|
||||||
|
FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls,
|
||||||
|
schComisionesClient_Intf;
|
||||||
|
|
||||||
|
{ TdmComisiones }
|
||||||
|
|
||||||
|
procedure TDataModuleComisiones.AsignarClaseNegocio(AComisiones: TDADataTable);
|
||||||
|
begin
|
||||||
|
AComisiones.BusinessRulesID := BIZ_CLIENT_COMISIONES;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TDataModuleComisiones.DAClientDataModuleCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
RORemoteService.Channel := dmConexion.Channel;
|
||||||
|
RORemoteService.Message := dmConexion.Message;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TDataModuleComisiones.GetFacturasDesglosadas: IBizFacturasComision;
|
||||||
|
var
|
||||||
|
AFacturasDesglosadas : TDAMemDataTable;
|
||||||
|
begin
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
AFacturasDesglosadas := CloneDataTable(tbl_V_Detalles_Facturas_Comision);
|
||||||
|
AFacturasDesglosadas.BusinessRulesID := BIZ_CLIENT_FACTURAS_COMISION;
|
||||||
|
Result := (AFacturasDesglosadas as IBizFacturasComision);
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TDataModuleComisiones.GetItem(const ID: Integer): IBizComisiones;
|
||||||
|
var
|
||||||
|
Condicion: TDAWhereExpression;
|
||||||
|
begin
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
Result := Self.GetItems;
|
||||||
|
|
||||||
|
with Result.DataTable.DynamicWhere do
|
||||||
|
begin
|
||||||
|
// (ID = :ID)
|
||||||
|
Condicion := NewBinaryExpression(NewField('', fld_ComisionesID), NewConstant(ID, datInteger), dboEqual);
|
||||||
|
|
||||||
|
if IsEmpty then
|
||||||
|
Expression := Condicion
|
||||||
|
else
|
||||||
|
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||||
|
end;
|
||||||
|
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TDataModuleComisiones.GetItems: IBizComisiones;
|
||||||
|
var
|
||||||
|
AComisiones : TDAMemDataTable;
|
||||||
|
begin
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
AComisiones := CloneDataTable(tbl_Comisiones);
|
||||||
|
AsignarClaseNegocio(AComisiones);
|
||||||
|
|
||||||
|
with TBizComisiones(AComisiones.BusinessEventsObj) do
|
||||||
|
begin
|
||||||
|
Facturas := _GetFacturas;
|
||||||
|
end;
|
||||||
|
|
||||||
|
Result := (AComisiones as IBizComisiones);
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
function TDataModuleComisiones.GetReport(const AComisionID: Variant;
|
||||||
|
const DesglosadoProv: Boolean; FechaIni, FechaFin: String;
|
||||||
|
AAgenteID: Variant): Binary;
|
||||||
|
begin
|
||||||
|
Result := (RORemoteService as IsrvComisiones).GenerateReport(AComisionID, DesglosadoProv, FechaIni, FechaFin, AAgenteID);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TDataModuleComisiones.NewItem: IBizComisiones;
|
||||||
|
begin
|
||||||
|
Result := GetItem(ID_NULO);
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
function TDataModuleComisiones._GetFacturas: IBizFacturasComision;
|
||||||
|
var
|
||||||
|
AFacturas : TDAMemDataTable;
|
||||||
|
begin
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
AFacturas := CloneDataTable(tbl_Facturas_Comision);
|
||||||
|
with AFacturas do
|
||||||
|
begin
|
||||||
|
BusinessRulesID := BIZ_CLIENT_FACTURAS_COMISION;
|
||||||
|
DetailOptions := DetailOptions -
|
||||||
|
[dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates];
|
||||||
|
end;
|
||||||
|
Result := (AFacturas as IBizFacturasComision);
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
492
Source/Modulos/Comisiones/Model/Comisiones_model.bdsproj
Normal file
492
Source/Modulos/Comisiones/Model/Comisiones_model.bdsproj
Normal 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">{73ACD39C-B2F0-49B7-9ACF-10945BBAC8C1}</Option>
|
||||||
|
</Option>
|
||||||
|
</PersonalityInfo>
|
||||||
|
<Delphi.Personality>
|
||||||
|
<Source>
|
||||||
|
<Source Name="MainSource">Comisiones_model.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>
|
||||||
38
Source/Modulos/Comisiones/Model/Comisiones_model.dpk
Normal file
38
Source/Modulos/Comisiones/Model/Comisiones_model.dpk
Normal file
@ -0,0 +1,38 @@
|
|||||||
|
package Comisiones_model;
|
||||||
|
|
||||||
|
{$R *.res}
|
||||||
|
{$ALIGN 8}
|
||||||
|
{$ASSERTIONS ON}
|
||||||
|
{$BOOLEVAL OFF}
|
||||||
|
{$DEBUGINFO ON}
|
||||||
|
{$EXTENDEDSYNTAX ON}
|
||||||
|
{$IMPORTEDDATA ON}
|
||||||
|
{$IOCHECKS ON}
|
||||||
|
{$LOCALSYMBOLS ON}
|
||||||
|
{$LONGSTRINGS ON}
|
||||||
|
{$OPENSTRINGS ON}
|
||||||
|
{$OPTIMIZATION ON}
|
||||||
|
{$OVERFLOWCHECKS OFF}
|
||||||
|
{$RANGECHECKS OFF}
|
||||||
|
{$REFERENCEINFO ON}
|
||||||
|
{$SAFEDIVIDE OFF}
|
||||||
|
{$STACKFRAMES OFF}
|
||||||
|
{$TYPEDADDRESS OFF}
|
||||||
|
{$VARSTRINGCHECKS ON}
|
||||||
|
{$WRITEABLECONST OFF}
|
||||||
|
{$MINENUMSIZE 1}
|
||||||
|
{$IMAGEBASE $400000}
|
||||||
|
{$IMPLICITBUILD OFF}
|
||||||
|
|
||||||
|
requires
|
||||||
|
Base,
|
||||||
|
ApplicationBase;
|
||||||
|
|
||||||
|
contains
|
||||||
|
uBizComisiones in 'uBizComisiones.pas',
|
||||||
|
uIDataModuleComisiones in 'Data\uIDataModuleComisiones.pas',
|
||||||
|
schComisionesClient_Intf in 'schComisionesClient_Intf.pas',
|
||||||
|
schComisionesServer_Intf in 'schComisionesServer_Intf.pas',
|
||||||
|
uIDataModuleComisionesReport in 'Data\uIDataModuleComisionesReport.pas';
|
||||||
|
|
||||||
|
end.
|
||||||
581
Source/Modulos/Comisiones/Model/Comisiones_model.dproj
Normal file
581
Source/Modulos/Comisiones/Model/Comisiones_model.dproj
Normal file
@ -0,0 +1,581 @@
|
|||||||
|
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
|
<PropertyGroup>
|
||||||
|
<ProjectGuid>{73acd39c-b2f0-49b7-9acf-10945bbac8c1}</ProjectGuid>
|
||||||
|
<MainSource>Comisiones_model.dpk</MainSource>
|
||||||
|
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||||
|
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||||
|
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||||
|
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\Comisiones_model.bpl</DCC_DependencyCheckOutputName>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||||
|
<Version>7.0</Version>
|
||||||
|
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||||
|
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||||
|
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||||
|
<DCC_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 xmlns=""> <Delphi.Personality> <Parameters>
|
||||||
|
<Parameters Name="UseLauncher">False</Parameters>
|
||||||
|
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||||
|
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||||
|
</Parameters>
|
||||||
|
<Package_Options>
|
||||||
|
<Package_Options Name="ImplicitBuild">False</Package_Options>
|
||||||
|
<Package_Options Name="DesigntimeOnly">False</Package_Options>
|
||||||
|
<Package_Options Name="RuntimeOnly">False</Package_Options>
|
||||||
|
</Package_Options>
|
||||||
|
<VersionInfo>
|
||||||
|
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||||
|
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||||
|
<VersionInfo Name="MajorVer">1</VersionInfo>
|
||||||
|
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||||
|
<VersionInfo Name="Release">0</VersionInfo>
|
||||||
|
<VersionInfo Name="Build">0</VersionInfo>
|
||||||
|
<VersionInfo Name="Debug">False</VersionInfo>
|
||||||
|
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||||
|
<VersionInfo Name="Special">False</VersionInfo>
|
||||||
|
<VersionInfo Name="Private">False</VersionInfo>
|
||||||
|
<VersionInfo Name="DLL">False</VersionInfo>
|
||||||
|
<VersionInfo Name="Locale">3082</VersionInfo>
|
||||||
|
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||||
|
</VersionInfo>
|
||||||
|
<VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
||||||
|
</VersionInfoKeys>
|
||||||
|
<Source>
|
||||||
|
<Source Name="MainSource">Comisiones_model.dpk</Source>
|
||||||
|
</Source>
|
||||||
|
</Delphi.Personality> </BorlandProject></BorlandProject>
|
||||||
|
</ProjectExtensions>
|
||||||
|
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||||
|
<ItemGroup>
|
||||||
|
<DelphiCompile Include="Comisiones_model.dpk">
|
||||||
|
<MainSource>MainSource</MainSource>
|
||||||
|
</DelphiCompile>
|
||||||
|
<DCCReference Include="..\..\..\Lib\ApplicationBase.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\Base.dcp" />
|
||||||
|
<DCCReference Include="Data\uIDataModuleComisiones.pas" />
|
||||||
|
<DCCReference Include="Data\uIDataModuleComisionesReport.pas" />
|
||||||
|
<DCCReference Include="schComisionesClient_Intf.pas" />
|
||||||
|
<DCCReference Include="schComisionesServer_Intf.pas" />
|
||||||
|
<DCCReference Include="uBizComisiones.pas" />
|
||||||
|
</ItemGroup>
|
||||||
|
</Project>
|
||||||
|
|
||||||
|
<!-- EurekaLog First Line
|
||||||
|
[Exception Log]
|
||||||
|
EurekaLog Version=6011
|
||||||
|
Activate=0
|
||||||
|
Activate Handle=1
|
||||||
|
Save Log File=1
|
||||||
|
Foreground Tab=0
|
||||||
|
Freeze Activate=0
|
||||||
|
Freeze Timeout=60
|
||||||
|
SMTP From=eurekalog@email.com
|
||||||
|
SMTP Host=
|
||||||
|
SMTP Port=25
|
||||||
|
SMTP UserID=
|
||||||
|
SMTP Password=
|
||||||
|
Append to Log=0
|
||||||
|
TerminateBtn Operation=2
|
||||||
|
Errors Number=32
|
||||||
|
Errors Terminate=3
|
||||||
|
Email Address=
|
||||||
|
Email Object=
|
||||||
|
Email Send Options=0
|
||||||
|
Output Path=
|
||||||
|
Encrypt Password=
|
||||||
|
AutoCloseDialogSecs=0
|
||||||
|
WebSendMode=0
|
||||||
|
SupportULR=
|
||||||
|
HTMLLayout Count=15
|
||||||
|
HTMLLine0="%3Chtml%3E"
|
||||||
|
HTMLLine1=" %3Chead%3E"
|
||||||
|
HTMLLine2=" %3C/head%3E"
|
||||||
|
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
|
||||||
|
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
|
||||||
|
HTMLLine5=" %3Ctr%3E"
|
||||||
|
HTMLLine6=" %3Ctd nowrap%3E"
|
||||||
|
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
|
||||||
|
HTMLLine8=" %3C%%HTML_TAG%%%3E"
|
||||||
|
HTMLLine9=" %3C/font%3E"
|
||||||
|
HTMLLine10=" %3C/td%3E"
|
||||||
|
HTMLLine11=" %3C/tr%3E"
|
||||||
|
HTMLLine12=" %3C/table%3E"
|
||||||
|
HTMLLine13=" %3C/body%3E"
|
||||||
|
HTMLLine14="%3C/html%3E"
|
||||||
|
AutoCrashOperation=2
|
||||||
|
AutoCrashNumber=10
|
||||||
|
AutoCrashMinutes=1
|
||||||
|
WebURL=
|
||||||
|
WebUserID=
|
||||||
|
WebPassword=
|
||||||
|
WebPort=0
|
||||||
|
AttachedFiles=
|
||||||
|
ProxyURL=
|
||||||
|
ProxyUser=
|
||||||
|
ProxyPassword=
|
||||||
|
ProxyPort=8080
|
||||||
|
TrakerUser=
|
||||||
|
TrakerPassword=
|
||||||
|
TrakerAssignTo=
|
||||||
|
TrakerProject=
|
||||||
|
TrakerCategory=
|
||||||
|
TrakerTrialID=
|
||||||
|
ZipPassword=
|
||||||
|
PreBuildEvent=
|
||||||
|
PostSuccessfulBuildEvent=
|
||||||
|
PostFailureBuildEvent=
|
||||||
|
ExceptionDialogType=2
|
||||||
|
Count=0
|
||||||
|
EMail Message Line Count=0
|
||||||
|
loNoDuplicateErrors=0
|
||||||
|
loAppendReproduceText=0
|
||||||
|
loDeleteLogAtVersionChange=0
|
||||||
|
loAddComputerNameInLogFileName=0
|
||||||
|
loSaveModulesAndProcessesSections=1
|
||||||
|
loSaveAssemblerAndCPUSections=1
|
||||||
|
soAppStartDate=1
|
||||||
|
soAppName=1
|
||||||
|
soAppVersionNumber=1
|
||||||
|
soAppParameters=1
|
||||||
|
soAppCompilationDate=1
|
||||||
|
soAppUpTime=1
|
||||||
|
soExcDate=1
|
||||||
|
soExcAddress=1
|
||||||
|
soExcModuleName=1
|
||||||
|
soExcModuleVersion=1
|
||||||
|
soExcType=1
|
||||||
|
soExcMessage=1
|
||||||
|
soExcID=1
|
||||||
|
soExcCount=1
|
||||||
|
soExcStatus=1
|
||||||
|
soExcNote=1
|
||||||
|
soUserID=1
|
||||||
|
soUserName=1
|
||||||
|
soUserEmail=1
|
||||||
|
soUserPrivileges=1
|
||||||
|
soUserCompany=1
|
||||||
|
soActCtlsFormClass=1
|
||||||
|
soActCtlsFormText=1
|
||||||
|
soActCtlsControlClass=1
|
||||||
|
soActCtlsControlText=1
|
||||||
|
soCmpName=1
|
||||||
|
soCmpTotalMemory=1
|
||||||
|
soCmpFreeMemory=1
|
||||||
|
soCmpTotalDisk=1
|
||||||
|
soCmpFreeDisk=1
|
||||||
|
soCmpSysUpTime=1
|
||||||
|
soCmpProcessor=1
|
||||||
|
soCmpDisplayMode=1
|
||||||
|
soCmpDisplayDPI=1
|
||||||
|
soCmpVideoCard=1
|
||||||
|
soCmpPrinter=1
|
||||||
|
soOSType=1
|
||||||
|
soOSBuildN=1
|
||||||
|
soOSUpdate=1
|
||||||
|
soOSLanguage=1
|
||||||
|
soOSCharset=1
|
||||||
|
soNetIP=1
|
||||||
|
soNetSubmask=1
|
||||||
|
soNetGateway=1
|
||||||
|
soNetDNS1=1
|
||||||
|
soNetDNS2=1
|
||||||
|
soNetDHCP=1
|
||||||
|
soCustomData=1
|
||||||
|
sndShowSendDialog=1
|
||||||
|
sndShowSuccessFailureMsg=0
|
||||||
|
sndSendEntireLog=0
|
||||||
|
sndSendXMLLogCopy=0
|
||||||
|
sndSendScreenshot=1
|
||||||
|
sndUseOnlyActiveWindow=0
|
||||||
|
sndSendLastHTMLPage=1
|
||||||
|
sndSendInSeparatedThread=0
|
||||||
|
sndAddDateInFileName=0
|
||||||
|
sndAddComputerNameInFileName=0
|
||||||
|
edoSendErrorReportChecked=1
|
||||||
|
edoAttachScreenshotChecked=1
|
||||||
|
edoShowCopyToClipOption=1
|
||||||
|
edoShowDetailsButton=1
|
||||||
|
edoShowInDetailedMode=0
|
||||||
|
edoShowInTopMostMode=0
|
||||||
|
edoUseEurekaLogLookAndFeel=0
|
||||||
|
edoShowSendErrorReportOption=1
|
||||||
|
edoShowAttachScreenshotOption=1
|
||||||
|
edoShowCustomButton=0
|
||||||
|
csoShowDLLs=1
|
||||||
|
csoShowBPLs=1
|
||||||
|
csoShowBorlandThreads=1
|
||||||
|
csoShowWindowsThreads=1
|
||||||
|
csoDoNotStoreProcNames=0
|
||||||
|
boPauseBorlandThreads=0
|
||||||
|
boDoNotPauseMainThread=0
|
||||||
|
boPauseWindowsThreads=0
|
||||||
|
boUseMainModuleOptions=1
|
||||||
|
boCopyLogInCaseOfError=1
|
||||||
|
boSaveCompressedCopyInCaseOfError=0
|
||||||
|
boHandleSafeCallExceptions=1
|
||||||
|
boCallRTLExceptionEvent=0
|
||||||
|
boCatchHandledExceptions=0
|
||||||
|
loCatchLeaks=0
|
||||||
|
loGroupsSonLeaks=1
|
||||||
|
loHideBorlandLeaks=1
|
||||||
|
loFreeAllLeaks=1
|
||||||
|
loCatchLeaksExceptions=1
|
||||||
|
cfoReduceFileSize=1
|
||||||
|
cfoCheckFileCorruption=0
|
||||||
|
Count mtInformationMsgCaption=1
|
||||||
|
mtInformationMsgCaption0="Information."
|
||||||
|
Count mtQuestionMsgCaption=1
|
||||||
|
mtQuestionMsgCaption0="Question."
|
||||||
|
Count mtErrorMsgCaption=1
|
||||||
|
mtErrorMsgCaption0="Error."
|
||||||
|
Count mtDialog_Caption=1
|
||||||
|
mtDialog_Caption0="Error occurred"
|
||||||
|
Count mtDialog_ErrorMsgCaption=2
|
||||||
|
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
|
||||||
|
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
|
||||||
|
Count mtDialog_GeneralCaption=1
|
||||||
|
mtDialog_GeneralCaption0="General"
|
||||||
|
Count mtDialog_GeneralHeader=1
|
||||||
|
mtDialog_GeneralHeader0="General Information"
|
||||||
|
Count mtDialog_CallStackCaption=1
|
||||||
|
mtDialog_CallStackCaption0="Call Stack"
|
||||||
|
Count mtDialog_CallStackHeader=1
|
||||||
|
mtDialog_CallStackHeader0="Call Stack Information"
|
||||||
|
Count mtDialog_ModulesCaption=1
|
||||||
|
mtDialog_ModulesCaption0="Modules"
|
||||||
|
Count mtDialog_ModulesHeader=1
|
||||||
|
mtDialog_ModulesHeader0="Modules Information"
|
||||||
|
Count mtDialog_ProcessesCaption=1
|
||||||
|
mtDialog_ProcessesCaption0="Processes"
|
||||||
|
Count mtDialog_ProcessesHeader=1
|
||||||
|
mtDialog_ProcessesHeader0="Processes Information"
|
||||||
|
Count mtDialog_AsmCaption=1
|
||||||
|
mtDialog_AsmCaption0="Assembler"
|
||||||
|
Count mtDialog_AsmHeader=1
|
||||||
|
mtDialog_AsmHeader0="Assembler Information"
|
||||||
|
Count mtDialog_CPUCaption=1
|
||||||
|
mtDialog_CPUCaption0="CPU"
|
||||||
|
Count mtDialog_CPUHeader=1
|
||||||
|
mtDialog_CPUHeader0="CPU Information"
|
||||||
|
Count mtDialog_OKButtonCaption=1
|
||||||
|
mtDialog_OKButtonCaption0="%26OK"
|
||||||
|
Count mtDialog_TerminateButtonCaption=1
|
||||||
|
mtDialog_TerminateButtonCaption0="%26Terminate"
|
||||||
|
Count mtDialog_RestartButtonCaption=1
|
||||||
|
mtDialog_RestartButtonCaption0="%26Restart"
|
||||||
|
Count mtDialog_DetailsButtonCaption=1
|
||||||
|
mtDialog_DetailsButtonCaption0="%26Details"
|
||||||
|
Count mtDialog_CustomButtonCaption=1
|
||||||
|
mtDialog_CustomButtonCaption0="%26Help"
|
||||||
|
Count mtDialog_SendMessage=1
|
||||||
|
mtDialog_SendMessage0="%26Send this error via Internet"
|
||||||
|
Count mtDialog_ScreenshotMessage=1
|
||||||
|
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
|
||||||
|
Count mtDialog_CopyMessage=1
|
||||||
|
mtDialog_CopyMessage0="%26Copy to Clipboard"
|
||||||
|
Count mtDialog_SupportMessage=1
|
||||||
|
mtDialog_SupportMessage0="Go to the Support Page"
|
||||||
|
Count mtMSDialog_ErrorMsgCaption=1
|
||||||
|
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
|
||||||
|
Count mtMSDialog_RestartCaption=1
|
||||||
|
mtMSDialog_RestartCaption0="Restart application."
|
||||||
|
Count mtMSDialog_TerminateCaption=1
|
||||||
|
mtMSDialog_TerminateCaption0="Terminate application."
|
||||||
|
Count mtMSDialog_PleaseCaption=1
|
||||||
|
mtMSDialog_PleaseCaption0="Please tell us about this problem."
|
||||||
|
Count mtMSDialog_DescriptionCaption=1
|
||||||
|
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
|
||||||
|
Count mtMSDialog_SeeDetailsCaption=1
|
||||||
|
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
|
||||||
|
Count mtMSDialog_SeeClickCaption=1
|
||||||
|
mtMSDialog_SeeClickCaption0="click here."
|
||||||
|
Count mtMSDialog_HowToReproduceCaption=1
|
||||||
|
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
|
||||||
|
Count mtMSDialog_EmailCaption=1
|
||||||
|
mtMSDialog_EmailCaption0="Email address (optional):"
|
||||||
|
Count mtMSDialog_SendButtonCaption=1
|
||||||
|
mtMSDialog_SendButtonCaption0="%26Send Error Report"
|
||||||
|
Count mtMSDialog_NoSendButtonCaption=1
|
||||||
|
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
|
||||||
|
Count mtLog_AppHeader=1
|
||||||
|
mtLog_AppHeader0="Application"
|
||||||
|
Count mtLog_AppStartDate=1
|
||||||
|
mtLog_AppStartDate0="Start Date"
|
||||||
|
Count mtLog_AppName=1
|
||||||
|
mtLog_AppName0="Name/Description"
|
||||||
|
Count mtLog_AppVersionNumber=1
|
||||||
|
mtLog_AppVersionNumber0="Version Number"
|
||||||
|
Count mtLog_AppParameters=1
|
||||||
|
mtLog_AppParameters0="Parameters"
|
||||||
|
Count mtLog_AppCompilationDate=1
|
||||||
|
mtLog_AppCompilationDate0="Compilation Date"
|
||||||
|
Count mtLog_AppUpTime=1
|
||||||
|
mtLog_AppUpTime0="Up Time"
|
||||||
|
Count mtLog_ExcHeader=1
|
||||||
|
mtLog_ExcHeader0="Exception"
|
||||||
|
Count mtLog_ExcDate=1
|
||||||
|
mtLog_ExcDate0="Date"
|
||||||
|
Count mtLog_ExcAddress=1
|
||||||
|
mtLog_ExcAddress0="Address"
|
||||||
|
Count mtLog_ExcModuleName=1
|
||||||
|
mtLog_ExcModuleName0="Module Name"
|
||||||
|
Count mtLog_ExcModuleVersion=1
|
||||||
|
mtLog_ExcModuleVersion0="Module Version"
|
||||||
|
Count mtLog_ExcType=1
|
||||||
|
mtLog_ExcType0="Type"
|
||||||
|
Count mtLog_ExcMessage=1
|
||||||
|
mtLog_ExcMessage0="Message"
|
||||||
|
Count mtLog_ExcID=1
|
||||||
|
mtLog_ExcID0="ID"
|
||||||
|
Count mtLog_ExcCount=1
|
||||||
|
mtLog_ExcCount0="Count"
|
||||||
|
Count mtLog_ExcStatus=1
|
||||||
|
mtLog_ExcStatus0="Status"
|
||||||
|
Count mtLog_ExcNote=1
|
||||||
|
mtLog_ExcNote0="Note"
|
||||||
|
Count mtLog_UserHeader=1
|
||||||
|
mtLog_UserHeader0="User"
|
||||||
|
Count mtLog_UserID=1
|
||||||
|
mtLog_UserID0="ID"
|
||||||
|
Count mtLog_UserName=1
|
||||||
|
mtLog_UserName0="Name"
|
||||||
|
Count mtLog_UserEmail=1
|
||||||
|
mtLog_UserEmail0="Email"
|
||||||
|
Count mtLog_UserCompany=1
|
||||||
|
mtLog_UserCompany0="Company"
|
||||||
|
Count mtLog_UserPrivileges=1
|
||||||
|
mtLog_UserPrivileges0="Privileges"
|
||||||
|
Count mtLog_ActCtrlsHeader=1
|
||||||
|
mtLog_ActCtrlsHeader0="Active Controls"
|
||||||
|
Count mtLog_ActCtrlsFormClass=1
|
||||||
|
mtLog_ActCtrlsFormClass0="Form Class"
|
||||||
|
Count mtLog_ActCtrlsFormText=1
|
||||||
|
mtLog_ActCtrlsFormText0="Form Text"
|
||||||
|
Count mtLog_ActCtrlsControlClass=1
|
||||||
|
mtLog_ActCtrlsControlClass0="Control Class"
|
||||||
|
Count mtLog_ActCtrlsControlText=1
|
||||||
|
mtLog_ActCtrlsControlText0="Control Text"
|
||||||
|
Count mtLog_CmpHeader=1
|
||||||
|
mtLog_CmpHeader0="Computer"
|
||||||
|
Count mtLog_CmpName=1
|
||||||
|
mtLog_CmpName0="Name"
|
||||||
|
Count mtLog_CmpTotalMemory=1
|
||||||
|
mtLog_CmpTotalMemory0="Total Memory"
|
||||||
|
Count mtLog_CmpFreeMemory=1
|
||||||
|
mtLog_CmpFreeMemory0="Free Memory"
|
||||||
|
Count mtLog_CmpTotalDisk=1
|
||||||
|
mtLog_CmpTotalDisk0="Total Disk"
|
||||||
|
Count mtLog_CmpFreeDisk=1
|
||||||
|
mtLog_CmpFreeDisk0="Free Disk"
|
||||||
|
Count mtLog_CmpSystemUpTime=1
|
||||||
|
mtLog_CmpSystemUpTime0="System Up Time"
|
||||||
|
Count mtLog_CmpProcessor=1
|
||||||
|
mtLog_CmpProcessor0="Processor"
|
||||||
|
Count mtLog_CmpDisplayMode=1
|
||||||
|
mtLog_CmpDisplayMode0="Display Mode"
|
||||||
|
Count mtLog_CmpDisplayDPI=1
|
||||||
|
mtLog_CmpDisplayDPI0="Display DPI"
|
||||||
|
Count mtLog_CmpVideoCard=1
|
||||||
|
mtLog_CmpVideoCard0="Video Card"
|
||||||
|
Count mtLog_CmpPrinter=1
|
||||||
|
mtLog_CmpPrinter0="Printer"
|
||||||
|
Count mtLog_OSHeader=1
|
||||||
|
mtLog_OSHeader0="Operating System"
|
||||||
|
Count mtLog_OSType=1
|
||||||
|
mtLog_OSType0="Type"
|
||||||
|
Count mtLog_OSBuildN=1
|
||||||
|
mtLog_OSBuildN0="Build #"
|
||||||
|
Count mtLog_OSUpdate=1
|
||||||
|
mtLog_OSUpdate0="Update"
|
||||||
|
Count mtLog_OSLanguage=1
|
||||||
|
mtLog_OSLanguage0="Language"
|
||||||
|
Count mtLog_OSCharset=1
|
||||||
|
mtLog_OSCharset0="Charset"
|
||||||
|
Count mtLog_NetHeader=1
|
||||||
|
mtLog_NetHeader0="Network"
|
||||||
|
Count mtLog_NetIP=1
|
||||||
|
mtLog_NetIP0="IP Address"
|
||||||
|
Count mtLog_NetSubmask=1
|
||||||
|
mtLog_NetSubmask0="Submask"
|
||||||
|
Count mtLog_NetGateway=1
|
||||||
|
mtLog_NetGateway0="Gateway"
|
||||||
|
Count mtLog_NetDNS1=1
|
||||||
|
mtLog_NetDNS10="DNS 1"
|
||||||
|
Count mtLog_NetDNS2=1
|
||||||
|
mtLog_NetDNS20="DNS 2"
|
||||||
|
Count mtLog_NetDHCP=1
|
||||||
|
mtLog_NetDHCP0="DHCP"
|
||||||
|
Count mtLog_CustInfoHeader=1
|
||||||
|
mtLog_CustInfoHeader0="Custom Information"
|
||||||
|
Count mtCallStack_Address=1
|
||||||
|
mtCallStack_Address0="Address"
|
||||||
|
Count mtCallStack_Name=1
|
||||||
|
mtCallStack_Name0="Module"
|
||||||
|
Count mtCallStack_Unit=1
|
||||||
|
mtCallStack_Unit0="Unit"
|
||||||
|
Count mtCallStack_Class=1
|
||||||
|
mtCallStack_Class0="Class"
|
||||||
|
Count mtCallStack_Procedure=1
|
||||||
|
mtCallStack_Procedure0="Procedure/Method"
|
||||||
|
Count mtCallStack_Line=1
|
||||||
|
mtCallStack_Line0="Line"
|
||||||
|
Count mtCallStack_MainThread=1
|
||||||
|
mtCallStack_MainThread0="Main"
|
||||||
|
Count mtCallStack_ExceptionThread=1
|
||||||
|
mtCallStack_ExceptionThread0="Exception Thread"
|
||||||
|
Count mtCallStack_RunningThread=1
|
||||||
|
mtCallStack_RunningThread0="Running Thread"
|
||||||
|
Count mtCallStack_CallingThread=1
|
||||||
|
mtCallStack_CallingThread0="Calling Thread"
|
||||||
|
Count mtCallStack_ThreadID=1
|
||||||
|
mtCallStack_ThreadID0="ID"
|
||||||
|
Count mtCallStack_ThreadPriority=1
|
||||||
|
mtCallStack_ThreadPriority0="Priority"
|
||||||
|
Count mtCallStack_ThreadClass=1
|
||||||
|
mtCallStack_ThreadClass0="Class"
|
||||||
|
Count mtCallStack_LeakCaption=1
|
||||||
|
mtCallStack_LeakCaption0="Memory Leak"
|
||||||
|
Count mtCallStack_LeakData=1
|
||||||
|
mtCallStack_LeakData0="Data"
|
||||||
|
Count mtCallStack_LeakType=1
|
||||||
|
mtCallStack_LeakType0="Type"
|
||||||
|
Count mtCallStack_LeakSize=1
|
||||||
|
mtCallStack_LeakSize0="Total size"
|
||||||
|
Count mtCallStack_LeakCount=1
|
||||||
|
mtCallStack_LeakCount0="Count"
|
||||||
|
Count mtSendDialog_Caption=1
|
||||||
|
mtSendDialog_Caption0="Send."
|
||||||
|
Count mtSendDialog_Message=1
|
||||||
|
mtSendDialog_Message0="Message"
|
||||||
|
Count mtSendDialog_Resolving=1
|
||||||
|
mtSendDialog_Resolving0="Resolving DNS..."
|
||||||
|
Count mtSendDialog_Login=1
|
||||||
|
mtSendDialog_Login0="Login..."
|
||||||
|
Count mtSendDialog_Connecting=1
|
||||||
|
mtSendDialog_Connecting0="Connecting with server..."
|
||||||
|
Count mtSendDialog_Connected=1
|
||||||
|
mtSendDialog_Connected0="Connected with server."
|
||||||
|
Count mtSendDialog_Sending=1
|
||||||
|
mtSendDialog_Sending0="Sending message..."
|
||||||
|
Count mtSendDialog_Sent=1
|
||||||
|
mtSendDialog_Sent0="Message sent."
|
||||||
|
Count mtSendDialog_SelectProject=1
|
||||||
|
mtSendDialog_SelectProject0="Select project..."
|
||||||
|
Count mtSendDialog_Searching=1
|
||||||
|
mtSendDialog_Searching0="Searching..."
|
||||||
|
Count mtSendDialog_Modifying=1
|
||||||
|
mtSendDialog_Modifying0="Modifying..."
|
||||||
|
Count mtSendDialog_Disconnecting=1
|
||||||
|
mtSendDialog_Disconnecting0="Disconnecting..."
|
||||||
|
Count mtSendDialog_Disconnected=1
|
||||||
|
mtSendDialog_Disconnected0="Disconnected."
|
||||||
|
Count mtReproduceDialog_Caption=1
|
||||||
|
mtReproduceDialog_Caption0="Request"
|
||||||
|
Count mtReproduceDialog_Request=1
|
||||||
|
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
|
||||||
|
Count mtReproduceDialog_OKButtonCaption=1
|
||||||
|
mtReproduceDialog_OKButtonCaption0="%26OK"
|
||||||
|
Count mtModules_Handle=1
|
||||||
|
mtModules_Handle0="Handle"
|
||||||
|
Count mtModules_Name=1
|
||||||
|
mtModules_Name0="Name"
|
||||||
|
Count mtModules_Description=1
|
||||||
|
mtModules_Description0="Description"
|
||||||
|
Count mtModules_Version=1
|
||||||
|
mtModules_Version0="Version"
|
||||||
|
Count mtModules_Size=1
|
||||||
|
mtModules_Size0="Size"
|
||||||
|
Count mtModules_LastModified=1
|
||||||
|
mtModules_LastModified0="Modified"
|
||||||
|
Count mtModules_Path=1
|
||||||
|
mtModules_Path0="Path"
|
||||||
|
Count mtProcesses_ID=1
|
||||||
|
mtProcesses_ID0="ID"
|
||||||
|
Count mtProcesses_Name=1
|
||||||
|
mtProcesses_Name0="Name"
|
||||||
|
Count mtProcesses_Description=1
|
||||||
|
mtProcesses_Description0="Description"
|
||||||
|
Count mtProcesses_Version=1
|
||||||
|
mtProcesses_Version0="Version"
|
||||||
|
Count mtProcesses_Memory=1
|
||||||
|
mtProcesses_Memory0="Memory"
|
||||||
|
Count mtProcesses_Priority=1
|
||||||
|
mtProcesses_Priority0="Priority"
|
||||||
|
Count mtProcesses_Threads=1
|
||||||
|
mtProcesses_Threads0="Threads"
|
||||||
|
Count mtProcesses_Path=1
|
||||||
|
mtProcesses_Path0="Path"
|
||||||
|
Count mtCPU_Registers=1
|
||||||
|
mtCPU_Registers0="Registers"
|
||||||
|
Count mtCPU_Stack=1
|
||||||
|
mtCPU_Stack0="Stack"
|
||||||
|
Count mtCPU_MemoryDump=1
|
||||||
|
mtCPU_MemoryDump0="Memory Dump"
|
||||||
|
Count mtSend_SuccessMsg=1
|
||||||
|
mtSend_SuccessMsg0="The message was sent successfully."
|
||||||
|
Count mtSend_FailureMsg=1
|
||||||
|
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
||||||
|
Count mtSend_BugClosedMsg=2
|
||||||
|
mtSend_BugClosedMsg0="These BUG is just closed."
|
||||||
|
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
|
||||||
|
Count mtSend_UnknownErrorMsg=1
|
||||||
|
mtSend_UnknownErrorMsg0="Unknown error."
|
||||||
|
Count mtSend_InvalidLoginMsg=1
|
||||||
|
mtSend_InvalidLoginMsg0="Invalid login request."
|
||||||
|
Count mtSend_InvalidSearchMsg=1
|
||||||
|
mtSend_InvalidSearchMsg0="Invalid search request."
|
||||||
|
Count mtSend_InvalidSelectionMsg=1
|
||||||
|
mtSend_InvalidSelectionMsg0="Invalid selection request."
|
||||||
|
Count mtSend_InvalidInsertMsg=1
|
||||||
|
mtSend_InvalidInsertMsg0="Invalid insert request."
|
||||||
|
Count mtSend_InvalidModifyMsg=1
|
||||||
|
mtSend_InvalidModifyMsg0="Invalid modify request."
|
||||||
|
Count mtFileCrackedMsg=2
|
||||||
|
mtFileCrackedMsg0="This file is cracked."
|
||||||
|
mtFileCrackedMsg1="The application will be closed."
|
||||||
|
Count mtException_LeakMultiFree=1
|
||||||
|
mtException_LeakMultiFree0="Multi Free memory leak."
|
||||||
|
Count mtException_LeakMemoryOverrun=1
|
||||||
|
mtException_LeakMemoryOverrun0="Memory Overrun leak."
|
||||||
|
Count mtException_AntiFreeze=1
|
||||||
|
mtException_AntiFreeze0="The application seems to be frozen."
|
||||||
|
Count mtInvalidEmailMsg=1
|
||||||
|
mtInvalidEmailMsg0="Invalid email."
|
||||||
|
TextsCollection=English
|
||||||
|
EurekaLog Last Line -->
|
||||||
@ -0,0 +1,19 @@
|
|||||||
|
unit uIDataModuleComisiones;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
uBizComisiones;
|
||||||
|
|
||||||
|
type
|
||||||
|
IDataModuleComisiones = interface
|
||||||
|
['{23B042CA-2C56-43A8-BC49-77D9A7F623D7}']
|
||||||
|
function GetItems: IBizComisiones;
|
||||||
|
function GetItem(const ID : Integer) : IBizComisiones;
|
||||||
|
function NewItem : IBizComisiones;
|
||||||
|
function GetFacturasDesglosadas : IBizFacturasComision;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
end.
|
||||||
@ -0,0 +1,16 @@
|
|||||||
|
unit uIDataModuleComisionesReport;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
SysUtils, Classes, uROTypes;
|
||||||
|
|
||||||
|
type
|
||||||
|
IDataModuleComisionesReport = interface
|
||||||
|
['{1B2AEAC0-BCCE-46A7-82D7-8ADE899BEE6B}']
|
||||||
|
function GetReport(const AComisionID: Variant; const DesglosadoProv: Boolean; FechaIni: String; FechaFin: String; AAgenteID: Variant): Binary;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
end.
|
||||||
1513
Source/Modulos/Comisiones/Model/schComisionesClient_Intf.pas
Normal file
1513
Source/Modulos/Comisiones/Model/schComisionesClient_Intf.pas
Normal file
File diff suppressed because it is too large
Load Diff
1806
Source/Modulos/Comisiones/Model/schComisionesServer_Intf.pas
Normal file
1806
Source/Modulos/Comisiones/Model/schComisionesServer_Intf.pas
Normal file
File diff suppressed because it is too large
Load Diff
111
Source/Modulos/Comisiones/Model/uBizComisiones.pas
Normal file
111
Source/Modulos/Comisiones/Model/uBizComisiones.pas
Normal file
@ -0,0 +1,111 @@
|
|||||||
|
unit uBizComisiones;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, uDAInterfaces, uDADataTable, schComisionesClient_Intf, uDBSelectionListUtils;
|
||||||
|
|
||||||
|
const
|
||||||
|
BIZ_CLIENT_COMISIONES = 'Client.Comisiones';
|
||||||
|
BIZ_CLIENT_FACTURAS_COMISION = 'Client.FacturasComisiones';
|
||||||
|
|
||||||
|
type
|
||||||
|
IBizFacturasComision = interface(IFacturas_Comision)
|
||||||
|
['{24716F2C-91DE-4596-87F8-59A9DAFB6981}']
|
||||||
|
end;
|
||||||
|
|
||||||
|
IBizComisiones = interface(IComisiones)
|
||||||
|
['{70922B7D-B0DE-4D5B-87B2-ADCE4DA41C22}']
|
||||||
|
function GetFacturas: IBizFacturasComision;
|
||||||
|
procedure SetFacturas(const Value: IBizFacturasComision);
|
||||||
|
property Facturas: IBizFacturasComision read GetFacturas write SetFacturas;
|
||||||
|
function EsNuevo : Boolean;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TBizFacturasComision = class(TFacturas_ComisionDataTableRules, IBizFacturasComision)
|
||||||
|
end;
|
||||||
|
|
||||||
|
TBizComisiones = class(TComisionesDataTableRules, IBizComisiones, ISeleccionable)
|
||||||
|
protected
|
||||||
|
FFacturas: IBizFacturasComision;
|
||||||
|
FFacturasLink : TDADataSource;
|
||||||
|
FSeleccionableInterface : ISeleccionable;
|
||||||
|
|
||||||
|
function GetFacturas: IBizFacturasComision;
|
||||||
|
procedure SetFacturas(const Value: IBizFacturasComision);
|
||||||
|
procedure OnNewRecord(Sender: TDADataTable); override;
|
||||||
|
public
|
||||||
|
property SeleccionableInterface : ISeleccionable read FSeleccionableInterface
|
||||||
|
write FSeleccionableInterface implements ISeleccionable;
|
||||||
|
property Facturas: IBizFacturasComision read GetFacturas write SetFacturas;
|
||||||
|
|
||||||
|
procedure IniciarValoresComisionLiquidacionNuevo; virtual;
|
||||||
|
function EsNuevo : Boolean;
|
||||||
|
constructor Create(aDataTable: TDADataTable); override;
|
||||||
|
destructor Destroy; override;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses SysUtils, uDataTableUtils, uFactuGES_App;
|
||||||
|
|
||||||
|
{ TBizComisiones }
|
||||||
|
|
||||||
|
constructor TBizComisiones.Create(aDataTable: TDADataTable);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
FFacturas := Nil;
|
||||||
|
FFacturasLink := TDADataSource.Create(NIL);
|
||||||
|
FFacturasLink.DataTable := aDataTable;
|
||||||
|
|
||||||
|
FSeleccionableInterface := TSeleccionable.Create(aDataTable);
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TBizComisiones.Destroy;
|
||||||
|
begin
|
||||||
|
FFacturas := Nil;
|
||||||
|
FFacturasLink.Free;
|
||||||
|
FSeleccionableInterface := NIL;
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TBizComisiones.EsNuevo: Boolean;
|
||||||
|
begin
|
||||||
|
Result := (ID < 0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TBizComisiones.GetFacturas: IBizFacturasComision;
|
||||||
|
begin
|
||||||
|
Result := FFacturas;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TBizComisiones.IniciarValoresComisionLiquidacionNuevo;
|
||||||
|
begin
|
||||||
|
ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
|
||||||
|
FECHA := Date;
|
||||||
|
USUARIO := AppFactuGES.UsuarioActivo.USERNAME;
|
||||||
|
DESCRIPCION := 'Liquidación de comisiones del mes de ' + UpperCase(FormatDateTime('mmmm', date));
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TBizComisiones.OnNewRecord(Sender: TDADataTable);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
ID := GetRecNo; // -1, -2, -3...
|
||||||
|
IniciarValoresComisionLiquidacionNuevo;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TBizComisiones.SetFacturas(const Value: IBizFacturasComision);
|
||||||
|
begin
|
||||||
|
FFacturas := Value;
|
||||||
|
EnlazarMaestroDetalle(FFacturasLink, FFacturas);
|
||||||
|
|
||||||
|
if Assigned(FFacturas) then
|
||||||
|
if not FFacturas.DataTable.Active then
|
||||||
|
FFacturas.DataTable.Active := True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
RegisterDataTableRules(BIZ_CLIENT_COMISIONES, TBizComisiones);
|
||||||
|
RegisterDataTableRules(BIZ_CLIENT_FACTURAS_COMISION, TBizFacturasComision);
|
||||||
|
|
||||||
|
end.
|
||||||
79
Source/Modulos/Comisiones/Model/uBizComisionesServer.pas
Normal file
79
Source/Modulos/Comisiones/Model/uBizComisionesServer.pas
Normal file
@ -0,0 +1,79 @@
|
|||||||
|
unit uBizComisionesServer;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
schComisionesServer_Intf, uDAInterfaces,
|
||||||
|
uDADataTable, uDABusinessProcessor;
|
||||||
|
|
||||||
|
const
|
||||||
|
BIZ_SERVER_COMISIONES = 'Server.Comisiones';
|
||||||
|
REF_COMISIONES = 'REF_COMISIONES';
|
||||||
|
|
||||||
|
type
|
||||||
|
TBizComisionesServer = class(TComisionesBusinessProcessorRules)
|
||||||
|
protected
|
||||||
|
procedure BeforeProcessChange(Sender: TDABusinessProcessor;
|
||||||
|
aChangeType: TDAChangeType; aChange: TDADeltaChange;
|
||||||
|
var ProcessChange: Boolean); override;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
Dialogs, SysUtils, Variants, uDataModuleServer, uDAClasses, DARemoteService_Impl,
|
||||||
|
schComisionesClient_Intf, uBusinessUtils, uReferenciasUtils, uROClasses;
|
||||||
|
|
||||||
|
{ TBizComisionesServer }
|
||||||
|
|
||||||
|
procedure TBizComisionesServer.BeforeProcessChange(
|
||||||
|
Sender: TDABusinessProcessor; aChangeType: TDAChangeType;
|
||||||
|
aChange: TDADeltaChange; var ProcessChange: Boolean);
|
||||||
|
var
|
||||||
|
ASchema : TDASchema;
|
||||||
|
ACurrentConn : IDAConnection;
|
||||||
|
dsData: IDADataset;
|
||||||
|
Empresa : Variant;
|
||||||
|
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
case aChangeType of
|
||||||
|
ctInsert, ctUpdate: begin
|
||||||
|
//Si la referencia no ha sido asignada le asignamos una nosotros
|
||||||
|
if (VarIsNull(aChange.NewValueByName[fld_ComisionesREFERENCIA]))
|
||||||
|
or (VarToStr(aChange.NewValueByName[fld_ComisionesREFERENCIA]) = '') then
|
||||||
|
begin
|
||||||
|
ASchema := BusinessProcessor.Schema;
|
||||||
|
ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor);
|
||||||
|
|
||||||
|
try
|
||||||
|
//Siempre va a estar rellena
|
||||||
|
Empresa := aChange.NewValueByName[fld_ComisionesID_EMPRESA];
|
||||||
|
|
||||||
|
dsData := ASchema.NewDataset(ACurrentConn, 'DarReferencia', ['CODIGO', 'EMPRESA'], [REF_COMISIONES, Empresa]);
|
||||||
|
except
|
||||||
|
RaiseError('No existe la tabla REFERENCIAS');
|
||||||
|
end;
|
||||||
|
|
||||||
|
dsData.Active := True;
|
||||||
|
|
||||||
|
if dsData.IsEmpty then
|
||||||
|
RaiseError('NO HAY REFERENCIA ' + REF_COMISIONES + ' DECLARADA EN TABLA REFERENCIAS');
|
||||||
|
|
||||||
|
REFERENCIA := dsData.FieldByName('VALOR').AsString;
|
||||||
|
|
||||||
|
try
|
||||||
|
ASchema.NewCommand(ACurrentConn, 'ModificarReferencia', ['CODIGO', 'VALOR', 'ID_EMPRESA'], [REF_COMISIONES, DarReferenciaSiguiente(REFERENCIA), Empresa]);
|
||||||
|
except
|
||||||
|
RaiseError('Error al asignar la nueva ' + REFERENCIA + ' referencia en tabla');
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
RegisterBusinessProcessorRules(BIZ_SERVER_COMISIONES, TBizComisionesServer);
|
||||||
|
|
||||||
|
end.
|
||||||
34
Source/Modulos/Comisiones/Plugin/Comisiones_plugin.dpk
Normal file
34
Source/Modulos/Comisiones/Plugin/Comisiones_plugin.dpk
Normal file
@ -0,0 +1,34 @@
|
|||||||
|
package Comisiones_plugin;
|
||||||
|
|
||||||
|
{$R *.res}
|
||||||
|
{$ALIGN 8}
|
||||||
|
{$ASSERTIONS ON}
|
||||||
|
{$BOOLEVAL OFF}
|
||||||
|
{$DEBUGINFO ON}
|
||||||
|
{$EXTENDEDSYNTAX ON}
|
||||||
|
{$IMPORTEDDATA ON}
|
||||||
|
{$IOCHECKS ON}
|
||||||
|
{$LOCALSYMBOLS ON}
|
||||||
|
{$LONGSTRINGS ON}
|
||||||
|
{$OPENSTRINGS ON}
|
||||||
|
{$OPTIMIZATION ON}
|
||||||
|
{$OVERFLOWCHECKS OFF}
|
||||||
|
{$RANGECHECKS OFF}
|
||||||
|
{$REFERENCEINFO ON}
|
||||||
|
{$SAFEDIVIDE OFF}
|
||||||
|
{$STACKFRAMES OFF}
|
||||||
|
{$TYPEDADDRESS OFF}
|
||||||
|
{$VARSTRINGCHECKS ON}
|
||||||
|
{$WRITEABLECONST OFF}
|
||||||
|
{$MINENUMSIZE 1}
|
||||||
|
{$IMAGEBASE $400000}
|
||||||
|
{$IMPLICITBUILD OFF}
|
||||||
|
|
||||||
|
requires
|
||||||
|
Comisiones_controller,
|
||||||
|
Comisiones_view;
|
||||||
|
|
||||||
|
contains
|
||||||
|
uPluginComisiones in 'uPluginComisiones.pas' {PluginComisiones};
|
||||||
|
|
||||||
|
end.
|
||||||
571
Source/Modulos/Comisiones/Plugin/Comisiones_plugin.dproj
Normal file
571
Source/Modulos/Comisiones/Plugin/Comisiones_plugin.dproj
Normal file
@ -0,0 +1,571 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
|
<PropertyGroup>
|
||||||
|
<ProjectGuid>{af35bebd-41cd-45b9-8709-1e20de7d07c4}</ProjectGuid>
|
||||||
|
<MainSource>Comisiones_plugin.dpk</MainSource>
|
||||||
|
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||||
|
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||||
|
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||||
|
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\Comisiones_plugin.bpl</DCC_DependencyCheckOutputName>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||||
|
<Version>7.0</Version>
|
||||||
|
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||||
|
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||||
|
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||||
|
<DCC_Define>RELEASE</DCC_Define>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||||
|
<Version>7.0</Version>
|
||||||
|
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||||
|
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||||
|
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||||
|
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||||
|
<DCC_DcpOutput>..\..\lib</DCC_DcpOutput>
|
||||||
|
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||||
|
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||||
|
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||||
|
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||||
|
</PropertyGroup>
|
||||||
|
<ProjectExtensions>
|
||||||
|
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||||
|
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||||
|
<BorlandProject>
|
||||||
|
<BorlandProject> <Delphi.Personality> <Parameters>
|
||||||
|
<Parameters Name="UseLauncher">False</Parameters>
|
||||||
|
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||||
|
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||||
|
</Parameters>
|
||||||
|
<Package_Options>
|
||||||
|
<Package_Options Name="ImplicitBuild">False</Package_Options>
|
||||||
|
<Package_Options Name="DesigntimeOnly">False</Package_Options>
|
||||||
|
<Package_Options Name="RuntimeOnly">False</Package_Options>
|
||||||
|
</Package_Options>
|
||||||
|
<VersionInfo>
|
||||||
|
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||||
|
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||||
|
<VersionInfo Name="MajorVer">1</VersionInfo>
|
||||||
|
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||||
|
<VersionInfo Name="Release">0</VersionInfo>
|
||||||
|
<VersionInfo Name="Build">0</VersionInfo>
|
||||||
|
<VersionInfo Name="Debug">False</VersionInfo>
|
||||||
|
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||||
|
<VersionInfo Name="Special">False</VersionInfo>
|
||||||
|
<VersionInfo Name="Private">False</VersionInfo>
|
||||||
|
<VersionInfo Name="DLL">False</VersionInfo>
|
||||||
|
<VersionInfo Name="Locale">3082</VersionInfo>
|
||||||
|
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||||
|
</VersionInfo>
|
||||||
|
<VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
||||||
|
</VersionInfoKeys>
|
||||||
|
<Source>
|
||||||
|
<Source Name="MainSource">Comisiones_plugin.dpk</Source>
|
||||||
|
</Source>
|
||||||
|
</Delphi.Personality> </BorlandProject></BorlandProject>
|
||||||
|
</ProjectExtensions>
|
||||||
|
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||||
|
<ItemGroup>
|
||||||
|
<DelphiCompile Include="Comisiones_plugin.dpk">
|
||||||
|
<MainSource>MainSource</MainSource>
|
||||||
|
</DelphiCompile>
|
||||||
|
<DCCReference Include="..\..\Lib\Comisiones_controller.dcp" />
|
||||||
|
<DCCReference Include="..\..\Lib\Comisiones_view.dcp" />
|
||||||
|
<DCCReference Include="uPluginComisiones.pas">
|
||||||
|
<Form>PluginComisiones</Form>
|
||||||
|
</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 -->
|
||||||
128
Source/Modulos/Comisiones/Plugin/uPluginComisiones.dfm
Normal file
128
Source/Modulos/Comisiones/Plugin/uPluginComisiones.dfm
Normal file
@ -0,0 +1,128 @@
|
|||||||
|
object PluginComisiones: TPluginComisiones
|
||||||
|
OldCreateOrder = True
|
||||||
|
DefaultAction = actComisiones
|
||||||
|
Description = 'Comisiones'
|
||||||
|
ModuleMenu = MainMenu
|
||||||
|
ModuleName = 'Comisiones'
|
||||||
|
SmallImages = SmallImages
|
||||||
|
LargeImages = SmallImages
|
||||||
|
Author = 'Rodax Software'
|
||||||
|
Version = '1.0.0'
|
||||||
|
Height = 252
|
||||||
|
Width = 401
|
||||||
|
object LargeImages: TPngImageList
|
||||||
|
Height = 24
|
||||||
|
Width = 24
|
||||||
|
PngImages = <
|
||||||
|
item
|
||||||
|
PngImage.Data = {
|
||||||
|
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
|
||||||
|
F80000000970485973000017120000171201679FD2520000040C4944415478DA
|
||||||
|
B5957F6C136518C7BF776D474BC7D87061A011815981753211E6D86AA5B86548
|
||||||
|
6AC409129C4AB6C13637C5312331D1EC17E8D044A3C1A066C384986804FF984A
|
||||||
|
C6C284C5316B9C9190A1123061D1D4C8A4CEBA75EDF5DADEBDBEEFF576F3E0A6
|
||||||
|
4EC39B5C9EF7C7F5F93CCFF77D9E2B4708C1F51C1C0374F57D775D2865F7E672
|
||||||
|
1A802E944DB66649C98A55E7B24CD78024510B0239419473599620C9CC12CD2A
|
||||||
|
EFD2E7A1AA173074B2430F60CE84B1515C38D6819FFABB100E8711B2656059F1
|
||||||
|
83C82B7D1C66EB5CD589EA9048DA9C304B1DB020D87CCB4E03404C8CE0DC7BAF
|
||||||
|
401EFC14C188802B13131815A2088405DC555E83BB1F69024C56257296D1FE4F
|
||||||
|
2C86D2D47AC6B0ADA6490FD8E471E2FCC031F80F3D0F4E8C211815F1074760CE
|
||||||
|
4C4360E40A02E35134BCD30BFB42A71A359391CAC164236A4612418224652AAF
|
||||||
|
6DD6031E589783939DAD183DF53E623C0FD3DC5464396EC26D8EF908FEF63B3E
|
||||||
|
EEFA02DE9A362C2A2CA7B7C02B0E5F3D6E35CC60873B88C7EA5AF480FB29A0FB
|
||||||
|
B50624C6CEC1E15C8C797366C36EE311098561E109FA3E3F8B1B8BAAE1703F0A
|
||||||
|
99E39568272F95699F9093DA4F66B2FDA9563DC0EB5E81237B2B9099F2335CF7
|
||||||
|
E4420C472150FD63542E330FF4F67E8DC5F7ED418E7B1B9584532B8B5D2A93E5
|
||||||
|
AFCE65055CF1F45E3D60A36B390ED697D032BA04EFA6B5B05BAC8846449868F4
|
||||||
|
6121840F8E0C207F4B33567B77508938254A69527B96851AF924B8AA619F1EB0
|
||||||
|
A16819DE6EAAC2455F0F4A3DB7232F671EE2B13862721C8367FCF8D27711DE96
|
||||||
|
37915FB0999633BB03597964B53C596F10552E6AB0B3F12A4069A10343A77DF8
|
||||||
|
B6A51319F6286C8541983244042E110883E9E0641BB23B1AB16481538BB8ED40
|
||||||
|
B7E125EFAE2C46CD332FEA01C505B762A0F12DDC70E617088910A2EB4790B626
|
||||||
|
0EA17B0EECDF6781F0669C77A5206F5725D2AC193ABDB52E26C93DE6B3F6D976
|
||||||
|
3D60FD9A6C9CCE7F12E9B367C124F2204502D272A9DA275211B94CB34002E1F1
|
||||||
|
187EA877604359A5D2682F1DEC31CC60D7760FEAF6ECD7033CABB3712ABF0EA9
|
||||||
|
560BEC9C192455866916609E30438C4B082712D8F8BADFD0E1375987B4BB206A
|
||||||
|
45D53FF7B21EE05EB514C7EFACC67C9B1D36B30929BC89B613AD16DACDA29480
|
||||||
|
65730F16969461A9EB0D0CFB762B8E2F0F9F05867F4467DFAF38DCB4EE5A72C9
|
||||||
|
8929802B6F09BEEAFE0CFEC12188C110402B88C940EB14B289C302773AB203EF
|
||||||
|
2ACEAE1ECDED4F4C0BD600852B17A9B52D4F75A8046DAD94243D5FE9AF3494A9
|
||||||
|
625FFF357B87FBA3531914386F563FC1C94A4836D1148C7E4031FEE1DA19C944
|
||||||
|
A15B35406BFB817FFC875A953982EA15438632D168A797E8DF0C5FDB2D0FBB5C
|
||||||
|
CB8F1A9EF92E1842E9B8632600F2B7F250BD8D7E37A30CA8393A4DA45B29E0A3
|
||||||
|
FF05F8AFE34FB2402F1C4138F79E0000000049454E44AE426082}
|
||||||
|
Name = 'PngImage0'
|
||||||
|
Background = clWindow
|
||||||
|
end>
|
||||||
|
Left = 232
|
||||||
|
Top = 16
|
||||||
|
Bitmap = {}
|
||||||
|
end
|
||||||
|
object ModuleActionList: TActionList
|
||||||
|
Images = SmallImages
|
||||||
|
Left = 40
|
||||||
|
Top = 72
|
||||||
|
object actComisiones: TAction
|
||||||
|
Category = 'Comisiones'
|
||||||
|
Caption = 'Liquidaciones de comisiones'
|
||||||
|
ImageIndex = 0
|
||||||
|
OnExecute = actComisionesExecute
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object MainMenu: TMainMenu
|
||||||
|
Images = LargeImages
|
||||||
|
Left = 40
|
||||||
|
Top = 16
|
||||||
|
object Ventas1: TMenuItem
|
||||||
|
Caption = 'Ventas'
|
||||||
|
object N1: TMenuItem
|
||||||
|
Tag = 18990
|
||||||
|
Caption = '-'
|
||||||
|
end
|
||||||
|
object Comisiones1: TMenuItem
|
||||||
|
Tag = 19000
|
||||||
|
Action = actComisiones
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object SmallImages: TPngImageList
|
||||||
|
PngImages = <
|
||||||
|
item
|
||||||
|
PngImage.Data = {
|
||||||
|
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||||
|
610000000970485973000017120000171201679FD252000002514944415478DA
|
||||||
|
8D925F4853511CC7BFF7DE4DBD6E33B799A3425C8533D2F025C55C98FDC1021F
|
||||||
|
667F1C542CA2724421A307090A155F828242F065680F3129E80F4C16120E1B89
|
||||||
|
4E9A302CED41211FCC10DB5AD3AE77F7DE6DEC740B1C14BBD5F7E51C0EE77CCE
|
||||||
|
E7777E872284603389B59877FEE540EBD2B8173CCF8363F5A83CDA8A9A66078C
|
||||||
|
5B4D147284DA0424A5C4CCACE7EE5226E4B3C51302221B1B880922A2BC80BA73
|
||||||
|
4E1C3CDBF5C96834942B023E8CFBC8F2C35BA0A424E2A284358A40555284E86A
|
||||||
|
04D1EF225C6E3FCC55F5942260D4DD4D62AF1F2349D360B66861AAD8014B4529
|
||||||
|
E25FBF61D83B8916672FEA6CD79501C3F73A487A7D16155566187485D0B03412
|
||||||
|
1C0F354D10783383ED0DED38D4D6A10C18EA729092BCCFB0365643E2450872FD
|
||||||
|
49B91C150DF8FDD3309FE844B3FD9A32E0FEE5260261112DB67A68D405101312
|
||||||
|
18F9765EE0F0E4E9046ACF74E394F3E65F009D0EB2107C85E6A67DA8D96B402A
|
||||||
|
994232934228BC8CA9E0025A7AFA613F7D551930351A70CDF50CF6E93522D803
|
||||||
|
71307A09D145592A540C2AC362F7C08DA163B58D17140123CE077DC6F08A4B48
|
||||||
|
73100FAFA2687F0AC2880EEC9EB7508AB56789CA027C95974871613E18890669
|
||||||
|
1050544DC0AD076075DE06B6ED8218EC4778EC1D06035FE0BE733C3BCF025E58
|
||||||
|
2E126D811A1A4A05A2CD80C907185D0463651C3ECE4DE634683F62B267019E9D
|
||||||
|
E74929AB01AB62904733A041217DD2F7FF063ECFF0C472E8FDBC14E7AE40EE40
|
||||||
|
465E36EA5760299BFEB5F19F06B912EC2D27B90C7E1E941FF0F96F5D5000B4C9
|
||||||
|
C3B33F0D1E8D8BD9FFF003405736B02FCE0FFF0000000049454E44AE426082}
|
||||||
|
Name = 'PngImage0'
|
||||||
|
Background = clWindow
|
||||||
|
end>
|
||||||
|
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
|
||||||
|
Left = 308
|
||||||
|
Top = 16
|
||||||
|
Bitmap = {}
|
||||||
|
end
|
||||||
|
object ExtraImages: TPngImageList
|
||||||
|
Height = 28
|
||||||
|
Width = 28
|
||||||
|
PngImages = <>
|
||||||
|
Left = 232
|
||||||
|
Top = 80
|
||||||
|
end
|
||||||
|
end
|
||||||
74
Source/Modulos/Comisiones/Plugin/uPluginComisiones.pas
Normal file
74
Source/Modulos/Comisiones/Plugin/uPluginComisiones.pas
Normal file
@ -0,0 +1,74 @@
|
|||||||
|
unit uPluginComisiones;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList,
|
||||||
|
ImgList, Controls, PngImageList;
|
||||||
|
|
||||||
|
type
|
||||||
|
IMCComisiones = interface(IInterface)
|
||||||
|
['{B6E222C6-F526-40D7-A80D-63117B0586E7}']
|
||||||
|
end;
|
||||||
|
|
||||||
|
TPluginComisiones = class(TModuleController, IMCComisiones)
|
||||||
|
actComisiones: TAction;
|
||||||
|
ExtraImages: TPngImageList;
|
||||||
|
LargeImages: TPngImageList;
|
||||||
|
MainMenu: TMainMenu;
|
||||||
|
ModuleActionList: TActionList;
|
||||||
|
SmallImages: TPngImageList;
|
||||||
|
Ventas1: TMenuItem;
|
||||||
|
Comisiones1: TMenuItem;
|
||||||
|
N1: TMenuItem;
|
||||||
|
procedure actComisionesExecute(Sender: TObject);
|
||||||
|
public
|
||||||
|
constructor Create(AOwner: TComponent); override;
|
||||||
|
destructor Destroy; override;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
uses
|
||||||
|
Forms, Dialogs, SysUtils,
|
||||||
|
uComisionesController, uBizComisiones, uComisionesViewRegister;
|
||||||
|
|
||||||
|
function GetModule : TModuleController;
|
||||||
|
begin
|
||||||
|
Result := TPluginComisiones.Create(NIL);
|
||||||
|
end;
|
||||||
|
|
||||||
|
exports
|
||||||
|
GetModule name GET_MODULE_FUNC;
|
||||||
|
|
||||||
|
procedure TPluginComisiones.actComisionesExecute(Sender: TObject);
|
||||||
|
var
|
||||||
|
AComisionesController : IComisionesController;
|
||||||
|
AComisiones : IBizComisiones;
|
||||||
|
begin
|
||||||
|
AComisionesController := TComisionesController.Create;
|
||||||
|
AComisiones := (AComisionesController.BuscarTodos as IBizComisiones);
|
||||||
|
AComisionesController.VerTodos(AComisiones);
|
||||||
|
end;
|
||||||
|
|
||||||
|
constructor TPluginComisiones.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
uComisionesViewRegister.RegisterViews;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TPluginComisiones.Destroy;
|
||||||
|
begin
|
||||||
|
uComisionesViewRegister.UnregisterViews;
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
RegisterModuleClass(TPluginComisiones);
|
||||||
|
|
||||||
|
finalization
|
||||||
|
UnRegisterModuleClass(TPluginComisiones);
|
||||||
|
|
||||||
|
end.
|
||||||
827
Source/Modulos/Comisiones/Servidor/srvComisiones_Impl.dfm
Normal file
827
Source/Modulos/Comisiones/Servidor/srvComisiones_Impl.dfm
Normal file
@ -0,0 +1,827 @@
|
|||||||
|
object srvComisiones: TsrvComisiones
|
||||||
|
OldCreateOrder = True
|
||||||
|
OnCreate = DARemoteServiceCreate
|
||||||
|
ConnectionName = 'IBX'
|
||||||
|
ServiceSchema = schComisiones
|
||||||
|
ServiceDataStreamer = Bin2DataStreamer
|
||||||
|
AllowExecuteSQL = True
|
||||||
|
ExportedDataTables = <>
|
||||||
|
BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
|
||||||
|
Height = 249
|
||||||
|
Width = 343
|
||||||
|
object Diagrams: TDADiagrams
|
||||||
|
Left = 150
|
||||||
|
Top = 82
|
||||||
|
DiagramData = '<Diagrams>'#13#10'</Diagrams>'#13#10
|
||||||
|
end
|
||||||
|
object DataDictionary: TDADataDictionary
|
||||||
|
Fields = <
|
||||||
|
item
|
||||||
|
Name = 'Comisiones_ID'
|
||||||
|
DataType = datAutoInc
|
||||||
|
GeneratorName = 'GEN_COMISIONES_LIQUID_ID'
|
||||||
|
DisplayLabel = 'ID'
|
||||||
|
ServerAutoRefresh = True
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'Comisiones_ID_EMPRESA'
|
||||||
|
DataType = datInteger
|
||||||
|
DisplayLabel = 'ID_EMPRESA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'Comisiones_REFERENCIA'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DisplayLabel = 'REFERENCIA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'Comisiones_ID_AGENTE'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'Comisiones_DESCRIPCION'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DisplayLabel = 'DESCRIPCION'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'Comisiones_FECHA'
|
||||||
|
DataType = datDateTime
|
||||||
|
DisplayLabel = 'FECHA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'Comisiones_IMPORTE_TOTAL'
|
||||||
|
DataType = datCurrency
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'Comisiones_USUARIO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 30
|
||||||
|
DisplayLabel = 'USUARIO'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'Comisiones_NOMBRE'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end>
|
||||||
|
Left = 150
|
||||||
|
Top = 22
|
||||||
|
end
|
||||||
|
object Bin2DataStreamer: TDABin2DataStreamer
|
||||||
|
Left = 48
|
||||||
|
Top = 80
|
||||||
|
end
|
||||||
|
object schComisiones: TDASchema
|
||||||
|
ConnectionManager = dmServer.ConnectionManager
|
||||||
|
DataDictionary = DataDictionary
|
||||||
|
Diagrams = Diagrams
|
||||||
|
Datasets = <
|
||||||
|
item
|
||||||
|
Params = <
|
||||||
|
item
|
||||||
|
Name = 'ID_COMISION'
|
||||||
|
Value = ''
|
||||||
|
ParamType = daptInput
|
||||||
|
end>
|
||||||
|
Statements = <
|
||||||
|
item
|
||||||
|
Connection = 'IBX'
|
||||||
|
TargetTable = 'V_AGENTES_COMISIONES_DET_FAC'
|
||||||
|
SQL =
|
||||||
|
'select V_AGENTES_COMISIONES_DET_FAC.ID_EMPRESA,'#10' V_AGENTES' +
|
||||||
|
'_COMISIONES_DET_FAC.ID_AGENTE, CONTACTOS1.NOMBRE as AGENTE,'#10' ' +
|
||||||
|
' V_AGENTES_COMISIONES_DET_FAC.ID_FACTURA,'#10' V_AGENTES_COM' +
|
||||||
|
'ISIONES_DET_FAC.ID_COMISION_LIQUIDADA,'#10' V_AGENTES_COMISION' +
|
||||||
|
'ES_DET_FAC.FECHA,'#10' V_AGENTES_COMISIONES_DET_FAC.REFERENCIA' +
|
||||||
|
','#10' V_AGENTES_COMISIONES_DET_FAC.SITUACION,'#10' V_AGENTE' +
|
||||||
|
'S_COMISIONES_DET_FAC.ID_CLIENTE,'#10' CONTACTOS2.NOMBRE as CLI' +
|
||||||
|
'ENTE,'#10' V_AGENTES_COMISIONES_DET_FAC.ID_PROVEEDOR,'#10' C' +
|
||||||
|
'ONTACTOS3.NOMBRE as PROVEEDOR,'#10' V_AGENTES_COMISIONES_DET_F' +
|
||||||
|
'AC.COMISION,'#10' SUM(V_AGENTES_COMISIONES_DET_FAC.IMPORTE_TOT' +
|
||||||
|
'AL)as IMPORTE_COMISIONABLE,'#10' SUM(V_AGENTES_COMISIONES_DET_' +
|
||||||
|
'FAC.IMPORTE_COMISION) as IMPORTE_COMISION'#10#10'from V_AGENTES_COMISI' +
|
||||||
|
'ONES_DET_FAC'#10'LEFT JOIN CONTACTOS CONTACTOS1 ON (CONTACTOS1.ID = ' +
|
||||||
|
'V_AGENTES_COMISIONES_DET_FAC.ID_AGENTE)'#10'LEFT JOIN CONTACTOS CONT' +
|
||||||
|
'ACTOS2 ON (CONTACTOS2.ID = V_AGENTES_COMISIONES_DET_FAC.ID_CLIEN' +
|
||||||
|
'TE)'#10'LEFT JOIN CONTACTOS CONTACTOS3 ON (CONTACTOS3.ID = V_AGENTES' +
|
||||||
|
'_COMISIONES_DET_FAC.ID_PROVEEDOR)'#10'WHERE V_AGENTES_COMISIONES_DET' +
|
||||||
|
'_FAC.ID_COMISION_LIQUIDADA = :ID_COMISION'#10'GROUP BY 1, 2, 3, 4, 5' +
|
||||||
|
', 6, 7, 8, 9, 10, 11, 12, 13'
|
||||||
|
StatementType = stSQL
|
||||||
|
ColumnMappings = <
|
||||||
|
item
|
||||||
|
DatasetField = 'ID_EMPRESA'
|
||||||
|
TableField = 'ID_EMPRESA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'ID_AGENTE'
|
||||||
|
TableField = 'ID_AGENTE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'AGENTE'
|
||||||
|
TableField = 'AGENTE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'FECHA'
|
||||||
|
TableField = 'FECHA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'REFERENCIA'
|
||||||
|
TableField = 'REFERENCIA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'SITUACION'
|
||||||
|
TableField = 'SITUACION'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'ID_PROVEEDOR'
|
||||||
|
TableField = 'ID_PROVEEDOR'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'PROVEEDOR'
|
||||||
|
TableField = 'PROVEEDOR'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'COMISION'
|
||||||
|
TableField = 'COMISION'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'ID_CLIENTE'
|
||||||
|
TableField = 'ID_CLIENTE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'CLIENTE'
|
||||||
|
TableField = 'CLIENTE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'ID_COMISION_LIQUIDADA'
|
||||||
|
TableField = 'ID_COMISION_LIQUIDADA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'IMPORTE_COMISIONABLE'
|
||||||
|
TableField = 'IMPORTE_COMISIONABLE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'IMPORTE_COMISION'
|
||||||
|
TableField = 'IMPORTE_COMISION'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'ID_FACTURA'
|
||||||
|
TableField = 'ID_FACTURA'
|
||||||
|
end>
|
||||||
|
end>
|
||||||
|
Name = 'Facturas_Comision'
|
||||||
|
Fields = <
|
||||||
|
item
|
||||||
|
Name = 'ID_EMPRESA'
|
||||||
|
DataType = datInteger
|
||||||
|
DictionaryEntry = 'Comisiones_Detalles_ID_EMPRESA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_AGENTE'
|
||||||
|
DataType = datInteger
|
||||||
|
DictionaryEntry = 'Comisiones_Detalles_ID_AGENTE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'AGENTE'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DictionaryEntry = 'Comisiones_Detalles_AGENTE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_FACTURA'
|
||||||
|
DataType = datInteger
|
||||||
|
DictionaryEntry = 'Facturas_Comision_ID_FACTURA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_COMISION_LIQUIDADA'
|
||||||
|
DataType = datInteger
|
||||||
|
DictionaryEntry = 'Facturas_Comision_ID_COMISION_LIQUIDADA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FECHA'
|
||||||
|
DataType = datDateTime
|
||||||
|
DictionaryEntry = 'Comisiones_Detalles_FECHA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'REFERENCIA'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DictionaryEntry = 'Comisiones_Detalles_REFERENCIA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'SITUACION'
|
||||||
|
DataType = datString
|
||||||
|
Size = 19
|
||||||
|
DictionaryEntry = 'Comisiones_Detalles_SITUACION'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_CLIENTE'
|
||||||
|
DataType = datInteger
|
||||||
|
DictionaryEntry = 'Facturas_Comision_ID_CLIENTE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'CLIENTE'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DictionaryEntry = 'Facturas_Comision_CLIENTE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_PROVEEDOR'
|
||||||
|
DataType = datInteger
|
||||||
|
DictionaryEntry = 'Comisiones_Detalles_ID_PROVEEDOR'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'PROVEEDOR'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DictionaryEntry = 'Comisiones_Detalles_PROVEEDOR'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COMISION'
|
||||||
|
DataType = datFloat
|
||||||
|
DictionaryEntry = 'Comisiones_Detalles_COMISION'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_COMISIONABLE'
|
||||||
|
DataType = datCurrency
|
||||||
|
DictionaryEntry = 'Facturas_Comision_IMPORTE_COMISIONABLE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_COMISION'
|
||||||
|
DataType = datCurrency
|
||||||
|
DictionaryEntry = 'Facturas_Comision_IMPORTE_COMISION'
|
||||||
|
end>
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Params = <>
|
||||||
|
Statements = <
|
||||||
|
item
|
||||||
|
Connection = 'IBX'
|
||||||
|
TargetTable = 'V_COMISIONES'
|
||||||
|
StatementType = stAutoSQL
|
||||||
|
ColumnMappings = <
|
||||||
|
item
|
||||||
|
DatasetField = 'ID'
|
||||||
|
TableField = 'ID'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'DESCRIPCION'
|
||||||
|
TableField = 'DESCRIPCION'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'FECHA'
|
||||||
|
TableField = 'FECHA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'USUARIO'
|
||||||
|
TableField = 'USUARIO'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'ID_EMPRESA'
|
||||||
|
TableField = 'ID_EMPRESA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'REFERENCIA'
|
||||||
|
TableField = 'REFERENCIA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'ID_AGENTE'
|
||||||
|
TableField = 'ID_AGENTE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'IMPORTE_TOTAL'
|
||||||
|
TableField = 'IMPORTE_TOTAL'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'NOMBRE'
|
||||||
|
TableField = 'NOMBRE'
|
||||||
|
end>
|
||||||
|
end>
|
||||||
|
Name = 'Comisiones'
|
||||||
|
Fields = <
|
||||||
|
item
|
||||||
|
Name = 'ID'
|
||||||
|
DataType = datAutoInc
|
||||||
|
GeneratorName = 'GEN_COMISIONES_LIQUID_ID'
|
||||||
|
ServerAutoRefresh = True
|
||||||
|
DictionaryEntry = 'Comisiones_ID'
|
||||||
|
InPrimaryKey = True
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_EMPRESA'
|
||||||
|
DataType = datInteger
|
||||||
|
DictionaryEntry = 'Comisiones_ID_EMPRESA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'REFERENCIA'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DictionaryEntry = 'Comisiones_REFERENCIA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_AGENTE'
|
||||||
|
DataType = datInteger
|
||||||
|
DictionaryEntry = 'Comisiones_ID_AGENTE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'DESCRIPCION'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DictionaryEntry = 'Comisiones_DESCRIPCION'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FECHA'
|
||||||
|
DataType = datDateTime
|
||||||
|
DictionaryEntry = 'Comisiones_FECHA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_TOTAL'
|
||||||
|
DataType = datCurrency
|
||||||
|
DictionaryEntry = 'Comisiones_IMPORTE_TOTAL'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'USUARIO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 30
|
||||||
|
DictionaryEntry = 'Comisiones_USUARIO'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'NOMBRE'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DictionaryEntry = 'Comisiones_NOMBRE'
|
||||||
|
end>
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Params = <>
|
||||||
|
Statements = <
|
||||||
|
item
|
||||||
|
Connection = 'IBX'
|
||||||
|
TargetTable = 'V_AGENTES_COMISIONES_DET_FAC'
|
||||||
|
SQL =
|
||||||
|
'select V_AGENTES_COMISIONES_DET_FAC.ID_EMPRESA,'#10' V_AGENTES' +
|
||||||
|
'_COMISIONES_DET_FAC.ID_AGENTE, CONTACTOS1.NOMBRE as AGENTE,'#10' ' +
|
||||||
|
' V_AGENTES_COMISIONES_DET_FAC.ID_FACTURA,'#10' V_AGENTES_COM' +
|
||||||
|
'ISIONES_DET_FAC.ID_COMISION_LIQUIDADA,'#10' V_AGENTES_COMISION' +
|
||||||
|
'ES_DET_FAC.FECHA,'#10' V_AGENTES_COMISIONES_DET_FAC.REFERENCIA' +
|
||||||
|
','#10' V_AGENTES_COMISIONES_DET_FAC.SITUACION,'#10' V_AGENTE' +
|
||||||
|
'S_COMISIONES_DET_FAC.ID_CLIENTE,'#10' CONTACTOS2.NOMBRE as CLI' +
|
||||||
|
'ENTE,'#10' V_AGENTES_COMISIONES_DET_FAC.ID_PROVEEDOR,'#10' C' +
|
||||||
|
'ONTACTOS3.NOMBRE as PROVEEDOR,'#10' V_AGENTES_COMISIONES_DET_F' +
|
||||||
|
'AC.COMISION,'#10' SUM(V_AGENTES_COMISIONES_DET_FAC.IMPORTE_TOT' +
|
||||||
|
'AL) as IMPORTE_COMISIONABLE,'#10' SUM(V_AGENTES_COMISIONES_DET' +
|
||||||
|
'_FAC.IMPORTE_COMISION) as IMPORTE_COMISION'#10#10'from V_AGENTES_COMIS' +
|
||||||
|
'IONES_DET_FAC'#10'LEFT JOIN CONTACTOS CONTACTOS1 ON (CONTACTOS1.ID =' +
|
||||||
|
' V_AGENTES_COMISIONES_DET_FAC.ID_AGENTE)'#10'LEFT JOIN CONTACTOS CON' +
|
||||||
|
'TACTOS2 ON (CONTACTOS2.ID = V_AGENTES_COMISIONES_DET_FAC.ID_CLIE' +
|
||||||
|
'NTE)'#10'LEFT JOIN CONTACTOS CONTACTOS3 ON (CONTACTOS3.ID = V_AGENTE' +
|
||||||
|
'S_COMISIONES_DET_FAC.ID_PROVEEDOR)'#10'GROUP BY 1, 2, 3, 4, 5, 6, 7,' +
|
||||||
|
' 8, 9, 10, 11, 12, 13'
|
||||||
|
StatementType = stSQL
|
||||||
|
ColumnMappings = <
|
||||||
|
item
|
||||||
|
DatasetField = 'ID_EMPRESA'
|
||||||
|
TableField = 'ID_EMPRESA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'ID_AGENTE'
|
||||||
|
TableField = 'ID_AGENTE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'AGENTE'
|
||||||
|
TableField = 'AGENTE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'FECHA'
|
||||||
|
TableField = 'FECHA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'REFERENCIA'
|
||||||
|
TableField = 'REFERENCIA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'SITUACION'
|
||||||
|
TableField = 'SITUACION'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'ID_PROVEEDOR'
|
||||||
|
TableField = 'ID_PROVEEDOR'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'PROVEEDOR'
|
||||||
|
TableField = 'PROVEEDOR'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'COMISION'
|
||||||
|
TableField = 'COMISION'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'ID_CLIENTE'
|
||||||
|
TableField = 'ID_CLIENTE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'CLIENTE'
|
||||||
|
TableField = 'CLIENTE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'ID_COMISION_LIQUIDADA'
|
||||||
|
TableField = 'ID_COMISION_LIQUIDADA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'IMPORTE_COMISIONABLE'
|
||||||
|
TableField = 'IMPORTE_COMISIONABLE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'IMPORTE_COMISION'
|
||||||
|
TableField = 'IMPORTE_COMISION'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'ID_FACTURA'
|
||||||
|
TableField = 'ID_FACTURA'
|
||||||
|
end>
|
||||||
|
end>
|
||||||
|
Name = 'V_Detalles_Facturas_Comision'
|
||||||
|
Fields = <
|
||||||
|
item
|
||||||
|
Name = 'ID_EMPRESA'
|
||||||
|
DataType = datInteger
|
||||||
|
DictionaryEntry = 'Comisiones_Detalles_ID_EMPRESA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_AGENTE'
|
||||||
|
DataType = datInteger
|
||||||
|
DictionaryEntry = 'Comisiones_Detalles_ID_AGENTE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'AGENTE'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DictionaryEntry = 'Comisiones_Detalles_AGENTE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_FACTURA'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_COMISION_LIQUIDADA'
|
||||||
|
DataType = datInteger
|
||||||
|
DictionaryEntry = 'V_Detalles_Facturas_Comision_ID_COMISION_LIQUIDADA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FECHA'
|
||||||
|
DataType = datDateTime
|
||||||
|
DictionaryEntry = 'Comisiones_Detalles_FECHA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'REFERENCIA'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DictionaryEntry = 'Comisiones_Detalles_REFERENCIA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'SITUACION'
|
||||||
|
DataType = datString
|
||||||
|
Size = 19
|
||||||
|
DictionaryEntry = 'Comisiones_Detalles_SITUACION'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_CLIENTE'
|
||||||
|
DataType = datInteger
|
||||||
|
DictionaryEntry = 'Facturas_Comision_ID_CLIENTE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'CLIENTE'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DictionaryEntry = 'Facturas_Comision_CLIENTE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_PROVEEDOR'
|
||||||
|
DataType = datInteger
|
||||||
|
DictionaryEntry = 'Comisiones_Detalles_ID_PROVEEDOR'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'PROVEEDOR'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DictionaryEntry = 'Comisiones_Detalles_PROVEEDOR'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COMISION'
|
||||||
|
DataType = datFloat
|
||||||
|
DictionaryEntry = 'Comisiones_Detalles_COMISION'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_COMISIONABLE'
|
||||||
|
DataType = datCurrency
|
||||||
|
DictionaryEntry = 'V_Detalles_Facturas_Comision_IMPORTE_COMISIONABLE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_COMISION'
|
||||||
|
DataType = datCurrency
|
||||||
|
DictionaryEntry = 'V_Detalles_Facturas_Comision_IMPORTE_COMISION'
|
||||||
|
end>
|
||||||
|
end>
|
||||||
|
JoinDataTables = <>
|
||||||
|
UnionDataTables = <>
|
||||||
|
Commands = <
|
||||||
|
item
|
||||||
|
Params = <
|
||||||
|
item
|
||||||
|
Name = 'ID_COMISION_LIQUIDADA'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
ParamType = daptInput
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_FACTURA'
|
||||||
|
Value = ''
|
||||||
|
end>
|
||||||
|
Statements = <
|
||||||
|
item
|
||||||
|
Connection = 'IBX'
|
||||||
|
TargetTable = 'FACTURAS_CLIENTE'
|
||||||
|
SQL =
|
||||||
|
'UPDATE FACTURAS_CLIENTE'#10'SET ID_COMISION_LIQUIDADA = :ID_COMISION' +
|
||||||
|
'_LIQUIDADA'#10'WHERE (ID = :ID_FACTURA)'
|
||||||
|
StatementType = stSQL
|
||||||
|
ColumnMappings = <>
|
||||||
|
end>
|
||||||
|
Name = 'Insert_Facturas_Comisiones'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Params = <
|
||||||
|
item
|
||||||
|
Name = 'OLD_ID_FACTURA'
|
||||||
|
Value = ''
|
||||||
|
end>
|
||||||
|
Statements = <
|
||||||
|
item
|
||||||
|
Connection = 'IBX'
|
||||||
|
TargetTable = 'FACTURAS_CLIENTE'
|
||||||
|
SQL =
|
||||||
|
'UPDATE FACTURAS_CLIENTE'#10'SET ID_COMISION_LIQUIDADA = Null'#10'WHERE (' +
|
||||||
|
'ID = :OLD_ID_FACTURA)'
|
||||||
|
StatementType = stSQL
|
||||||
|
ColumnMappings = <>
|
||||||
|
end>
|
||||||
|
Name = 'Delete_Facturas_Comision'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Params = <
|
||||||
|
item
|
||||||
|
Name = 'ID_COMISION_LIQUIDADA'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
ParamType = daptInput
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'OLD_ID_FACTURA'
|
||||||
|
Value = ''
|
||||||
|
end>
|
||||||
|
Statements = <
|
||||||
|
item
|
||||||
|
Connection = 'IBX'
|
||||||
|
TargetTable = 'FACTURAS_CLIENTE'
|
||||||
|
SQL =
|
||||||
|
'UPDATE FACTURAS_CLIENTE'#10'SET ID_COMISION_LIQUIDADA = :ID_COMISION' +
|
||||||
|
'_LIQUIDADA'#10'WHERE (ID = :OLD_ID_FACTURA)'
|
||||||
|
StatementType = stSQL
|
||||||
|
ColumnMappings = <>
|
||||||
|
end>
|
||||||
|
Name = 'Update_Facturas_Comision'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Params = <
|
||||||
|
item
|
||||||
|
Name = 'ID'
|
||||||
|
DataType = datAutoInc
|
||||||
|
GeneratorName = 'GEN_COMISIONES_LIQUID_ID'
|
||||||
|
Value = ''
|
||||||
|
ParamType = daptInput
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_EMPRESA'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
ParamType = daptInput
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'REFERENCIA'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
Value = ''
|
||||||
|
ParamType = daptInput
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_AGENTE'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
ParamType = daptInput
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'DESCRIPCION'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
Value = ''
|
||||||
|
ParamType = daptInput
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FECHA'
|
||||||
|
DataType = datDateTime
|
||||||
|
Value = ''
|
||||||
|
ParamType = daptInput
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_TOTAL'
|
||||||
|
DataType = datFloat
|
||||||
|
Value = ''
|
||||||
|
ParamType = daptInput
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'USUARIO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 20
|
||||||
|
Value = ''
|
||||||
|
ParamType = daptInput
|
||||||
|
end>
|
||||||
|
Statements = <
|
||||||
|
item
|
||||||
|
Connection = 'IBX'
|
||||||
|
TargetTable = 'COMISIONES_LIQUIDADAS'
|
||||||
|
SQL =
|
||||||
|
'INSERT'#10' INTO COMISIONES_LIQUIDADAS'#10' (ID, ID_EMPRESA, REFEREN' +
|
||||||
|
'CIA, ID_AGENTE, DESCRIPCION, FECHA, IMPORTE_TOTAL, USUARIO)'#10' VA' +
|
||||||
|
'LUES'#10' (:ID, :ID_EMPRESA, :REFERENCIA, :ID_AGENTE, :DESCRIPCIO' +
|
||||||
|
'N, :FECHA, :IMPORTE_TOTAL, :USUARIO)'
|
||||||
|
StatementType = stSQL
|
||||||
|
ColumnMappings = <>
|
||||||
|
end>
|
||||||
|
Name = 'Insert_Comisiones'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Params = <
|
||||||
|
item
|
||||||
|
Name = 'OLD_ID'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
ParamType = daptInput
|
||||||
|
end>
|
||||||
|
Statements = <
|
||||||
|
item
|
||||||
|
Connection = 'IBX'
|
||||||
|
TargetTable = 'COMISIONES_LIQUIDADAS'
|
||||||
|
SQL =
|
||||||
|
'DELETE '#10' FROM'#10' COMISIONES_LIQUIDADAS'#10' WHERE'#10' (ID = :OLD_' +
|
||||||
|
'ID)'
|
||||||
|
StatementType = stSQL
|
||||||
|
ColumnMappings = <>
|
||||||
|
end>
|
||||||
|
Name = 'Delete_Comisiones'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Params = <
|
||||||
|
item
|
||||||
|
Name = 'ID'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
ParamType = daptInput
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_EMPRESA'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
ParamType = daptInput
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'REFERENCIA'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
Value = ''
|
||||||
|
ParamType = daptInput
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_AGENTE'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
ParamType = daptInput
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'DESCRIPCION'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
Value = ''
|
||||||
|
ParamType = daptInput
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FECHA'
|
||||||
|
DataType = datDateTime
|
||||||
|
Value = ''
|
||||||
|
ParamType = daptInput
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_TOTAL'
|
||||||
|
DataType = datFloat
|
||||||
|
Value = ''
|
||||||
|
ParamType = daptInput
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'USUARIO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 20
|
||||||
|
Value = ''
|
||||||
|
ParamType = daptInput
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'OLD_ID'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
ParamType = daptInput
|
||||||
|
end>
|
||||||
|
Statements = <
|
||||||
|
item
|
||||||
|
Connection = 'IBX'
|
||||||
|
TargetTable = 'COMISIONES_LIQUIDADAS'
|
||||||
|
SQL =
|
||||||
|
'UPDATE COMISIONES_LIQUIDADAS'#10' SET '#10' ID = :ID, '#10' ID_EMPRES' +
|
||||||
|
'A = :ID_EMPRESA,'#10' REFERENCIA = :REFERENCIA,'#10' ID_AGENTE = :' +
|
||||||
|
'ID_AGENTE,'#10' DESCRIPCION = :DESCRIPCION, '#10' FECHA = :FECHA, ' +
|
||||||
|
#10' IMPORTE_TOTAL = :IMPORTE_TOTAL,'#10' USUARIO = :USUARIO'#10' WH' +
|
||||||
|
'ERE'#10' (ID = :OLD_ID)'
|
||||||
|
StatementType = stSQL
|
||||||
|
ColumnMappings = <>
|
||||||
|
end>
|
||||||
|
Name = 'Update_Comisiones'
|
||||||
|
end>
|
||||||
|
RelationShips = <>
|
||||||
|
UpdateRules = <
|
||||||
|
item
|
||||||
|
Name = 'Insert Comisiones'
|
||||||
|
DoUpdate = False
|
||||||
|
DoDelete = False
|
||||||
|
DatasetName = 'Comisiones'
|
||||||
|
FailureBehavior = fbRaiseException
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'Insert Facturas_Comision'
|
||||||
|
DoUpdate = False
|
||||||
|
DoDelete = False
|
||||||
|
DatasetName = 'Facturas_Comision'
|
||||||
|
FailureBehavior = fbRaiseException
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'Update Comisiones'
|
||||||
|
DoInsert = False
|
||||||
|
DoDelete = False
|
||||||
|
DatasetName = 'Comisiones'
|
||||||
|
FailureBehavior = fbRaiseException
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'Update Facturas_Comision'
|
||||||
|
DoInsert = False
|
||||||
|
DoDelete = False
|
||||||
|
DatasetName = 'Facturas_Comision'
|
||||||
|
FailureBehavior = fbRaiseException
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'Delete Facturas_Comision'
|
||||||
|
DoUpdate = False
|
||||||
|
DoInsert = False
|
||||||
|
DatasetName = 'Facturas_Comision'
|
||||||
|
FailureBehavior = fbRaiseException
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'Delete Comisiones'
|
||||||
|
DoUpdate = False
|
||||||
|
DoInsert = False
|
||||||
|
DatasetName = 'Comisiones'
|
||||||
|
FailureBehavior = fbRaiseException
|
||||||
|
end>
|
||||||
|
Version = 0
|
||||||
|
Left = 48
|
||||||
|
Top = 24
|
||||||
|
end
|
||||||
|
object bpFacturas_Comision: TDABusinessProcessor
|
||||||
|
Schema = schComisiones
|
||||||
|
InsertCommandName = 'Insert_Facturas_Comisiones'
|
||||||
|
DeleteCommandName = 'Delete_Facturas_Comision'
|
||||||
|
UpdateCommandName = 'Update_Facturas_Comision'
|
||||||
|
ReferencedDataset = 'Facturas_Comision'
|
||||||
|
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
|
||||||
|
UpdateMode = updWhereKeyOnly
|
||||||
|
Left = 248
|
||||||
|
Top = 80
|
||||||
|
end
|
||||||
|
object bpComisiones: TDABusinessProcessor
|
||||||
|
Schema = schComisiones
|
||||||
|
InsertCommandName = 'Insert_Comisiones'
|
||||||
|
DeleteCommandName = 'Delete_Comisiones'
|
||||||
|
UpdateCommandName = 'Update_Comisiones'
|
||||||
|
ReferencedDataset = 'Comisiones'
|
||||||
|
ProcessorOptions = [poPrepareCommands]
|
||||||
|
UpdateMode = updWhereKeyOnly
|
||||||
|
Left = 248
|
||||||
|
Top = 24
|
||||||
|
end
|
||||||
|
end
|
||||||
81
Source/Modulos/Comisiones/Servidor/srvComisiones_Impl.pas
Normal file
81
Source/Modulos/Comisiones/Servidor/srvComisiones_Impl.pas
Normal file
@ -0,0 +1,81 @@
|
|||||||
|
unit srvComisiones_Impl;
|
||||||
|
|
||||||
|
{----------------------------------------------------------------------------}
|
||||||
|
{ This unit was automatically generated by the RemObjects SDK after reading }
|
||||||
|
{ the RODL file associated with this project . }
|
||||||
|
{ }
|
||||||
|
{ This is where you are supposed to code the implementation of your objects. }
|
||||||
|
{----------------------------------------------------------------------------}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
{vcl:} Classes, SysUtils,
|
||||||
|
{RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
|
||||||
|
{Ancestor Implementation:} DataAbstractService_Impl,
|
||||||
|
{Used RODLs:} DataAbstract4_Intf,
|
||||||
|
{Generated:} uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer,
|
||||||
|
uDAScriptingProvider, uDAClasses,
|
||||||
|
FactuGES_Intf, uDAInterfaces;
|
||||||
|
|
||||||
|
type
|
||||||
|
{ TsrvComisiones }
|
||||||
|
TsrvComisiones = class(TDataAbstractService, IsrvComisiones)
|
||||||
|
Diagrams: TDADiagrams;
|
||||||
|
Bin2DataStreamer: TDABin2DataStreamer;
|
||||||
|
bpFacturas_Comision: TDABusinessProcessor;
|
||||||
|
bpComisiones: TDABusinessProcessor;
|
||||||
|
schComisiones: TDASchema;
|
||||||
|
DataDictionary: TDADataDictionary;
|
||||||
|
procedure DARemoteServiceCreate(Sender: TObject);
|
||||||
|
procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject;
|
||||||
|
var aConnectionName: string);
|
||||||
|
protected
|
||||||
|
function GenerateReport(const AComisionID: Variant; const DesglosadoProv: Boolean; const FechaIni: String; const FechaFin: String; const AAgenteID: Variant): Binary;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
uses
|
||||||
|
{Generated:} FactuGES_Invk, uDataModuleServer,
|
||||||
|
uDatabaseUtils, schComisionesClient_Intf, uRestriccionesUsuarioUtils;
|
||||||
|
|
||||||
|
procedure Create_srvComisiones(out anInstance : IUnknown);
|
||||||
|
begin
|
||||||
|
anInstance := TsrvComisiones.Create(NIL);
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ srvComisiones }
|
||||||
|
procedure TsrvComisiones.DARemoteServiceCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
//SessionManager := dmServer.SessionManager;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TsrvComisiones.DataAbstractServiceBeforeAcquireConnection(
|
||||||
|
aSender: TObject; var aConnectionName: string);
|
||||||
|
begin
|
||||||
|
ConnectionName := dmServer.ConnectionName;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TsrvComisiones.GenerateReport(const AComisionID: Variant;
|
||||||
|
const DesglosadoProv: Boolean; const FechaIni, FechaFin: String;
|
||||||
|
const AAgenteID: Variant): Binary;
|
||||||
|
//var
|
||||||
|
// AReportGenerator : TRptComisiones;
|
||||||
|
begin
|
||||||
|
{ AReportGenerator := TRptComisiones.Create(nil);
|
||||||
|
try
|
||||||
|
Result := AReportGenerator.GenerarComision(AComisionID, DesglosadoProv, FechaIni, FechaFin, AAgenteID);
|
||||||
|
finally
|
||||||
|
FreeAndNIL(AReportGenerator);
|
||||||
|
end;
|
||||||
|
}
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
TROClassFactory.Create('srvComisiones', Create_srvComisiones, TsrvComisiones_Invoker);
|
||||||
|
|
||||||
|
finalization
|
||||||
|
|
||||||
|
end.
|
||||||
39
Source/Modulos/Comisiones/Views/Comisiones_view.dpk
Normal file
39
Source/Modulos/Comisiones/Views/Comisiones_view.dpk
Normal file
@ -0,0 +1,39 @@
|
|||||||
|
package Comisiones_view;
|
||||||
|
|
||||||
|
{$R *.res}
|
||||||
|
{$ALIGN 8}
|
||||||
|
{$ASSERTIONS ON}
|
||||||
|
{$BOOLEVAL OFF}
|
||||||
|
{$DEBUGINFO ON}
|
||||||
|
{$EXTENDEDSYNTAX ON}
|
||||||
|
{$IMPORTEDDATA ON}
|
||||||
|
{$IOCHECKS ON}
|
||||||
|
{$LOCALSYMBOLS ON}
|
||||||
|
{$LONGSTRINGS ON}
|
||||||
|
{$OPENSTRINGS ON}
|
||||||
|
{$OPTIMIZATION ON}
|
||||||
|
{$OVERFLOWCHECKS OFF}
|
||||||
|
{$RANGECHECKS OFF}
|
||||||
|
{$REFERENCEINFO ON}
|
||||||
|
{$SAFEDIVIDE OFF}
|
||||||
|
{$STACKFRAMES OFF}
|
||||||
|
{$TYPEDADDRESS OFF}
|
||||||
|
{$VARSTRINGCHECKS ON}
|
||||||
|
{$WRITEABLECONST OFF}
|
||||||
|
{$MINENUMSIZE 1}
|
||||||
|
{$IMAGEBASE $400000}
|
||||||
|
{$IMPLICITBUILD OFF}
|
||||||
|
|
||||||
|
requires
|
||||||
|
Comisiones_controller,
|
||||||
|
Contactos_controller,
|
||||||
|
Contactos_model,
|
||||||
|
GUIBase,
|
||||||
|
ApplicationBase;
|
||||||
|
|
||||||
|
contains
|
||||||
|
uComisionesViewRegister in 'uComisionesViewRegister.pas',
|
||||||
|
uViewComisiones in 'uViewComisiones.pas' {frViewComisiones: TFrame},
|
||||||
|
uEditorComisiones in 'uEditorComisiones.pas' {fEditorComisiones: TfEditorComisiones};
|
||||||
|
|
||||||
|
end.
|
||||||
580
Source/Modulos/Comisiones/Views/Comisiones_view.dproj
Normal file
580
Source/Modulos/Comisiones/Views/Comisiones_view.dproj
Normal file
@ -0,0 +1,580 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
|
<PropertyGroup>
|
||||||
|
<ProjectGuid>{919d208a-4d6f-4d5d-9ad5-761926bfe12d}</ProjectGuid>
|
||||||
|
<MainSource>Comisiones_view.dpk</MainSource>
|
||||||
|
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||||
|
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||||
|
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||||
|
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\Comisiones_view.bpl</DCC_DependencyCheckOutputName>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||||
|
<Version>7.0</Version>
|
||||||
|
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||||
|
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||||
|
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||||
|
<DCC_Define>RELEASE</DCC_Define>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||||
|
<Version>7.0</Version>
|
||||||
|
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||||
|
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||||
|
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||||
|
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||||
|
<DCC_DcpOutput>..\..\lib</DCC_DcpOutput>
|
||||||
|
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||||
|
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||||
|
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||||
|
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||||
|
</PropertyGroup>
|
||||||
|
<ProjectExtensions>
|
||||||
|
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||||
|
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||||
|
<BorlandProject>
|
||||||
|
<BorlandProject> <Delphi.Personality> <Parameters>
|
||||||
|
<Parameters Name="UseLauncher">False</Parameters>
|
||||||
|
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||||
|
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||||
|
</Parameters>
|
||||||
|
<Package_Options>
|
||||||
|
<Package_Options Name="ImplicitBuild">False</Package_Options>
|
||||||
|
<Package_Options Name="DesigntimeOnly">False</Package_Options>
|
||||||
|
<Package_Options Name="RuntimeOnly">False</Package_Options>
|
||||||
|
</Package_Options>
|
||||||
|
<VersionInfo>
|
||||||
|
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||||
|
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||||
|
<VersionInfo Name="MajorVer">1</VersionInfo>
|
||||||
|
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||||
|
<VersionInfo Name="Release">0</VersionInfo>
|
||||||
|
<VersionInfo Name="Build">0</VersionInfo>
|
||||||
|
<VersionInfo Name="Debug">False</VersionInfo>
|
||||||
|
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||||
|
<VersionInfo Name="Special">False</VersionInfo>
|
||||||
|
<VersionInfo Name="Private">False</VersionInfo>
|
||||||
|
<VersionInfo Name="DLL">False</VersionInfo>
|
||||||
|
<VersionInfo Name="Locale">3082</VersionInfo>
|
||||||
|
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||||
|
</VersionInfo>
|
||||||
|
<VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
||||||
|
</VersionInfoKeys>
|
||||||
|
<Source>
|
||||||
|
<Source Name="MainSource">Comisiones_view.dpk</Source>
|
||||||
|
</Source>
|
||||||
|
</Delphi.Personality> </BorlandProject></BorlandProject>
|
||||||
|
</ProjectExtensions>
|
||||||
|
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||||
|
<ItemGroup>
|
||||||
|
<DelphiCompile Include="Comisiones_view.dpk">
|
||||||
|
<MainSource>MainSource</MainSource>
|
||||||
|
</DelphiCompile>
|
||||||
|
<DCCReference Include="..\Plugin\ApplicationBase.dcp" />
|
||||||
|
<DCCReference Include="..\Plugin\Comisiones_controller.dcp" />
|
||||||
|
<DCCReference Include="..\Plugin\Contactos_controller.dcp" />
|
||||||
|
<DCCReference Include="..\Plugin\Contactos_model.dcp" />
|
||||||
|
<DCCReference Include="..\Plugin\GUIBase.dcp" />
|
||||||
|
<DCCReference Include="uComisionesViewRegister.pas" />
|
||||||
|
<DCCReference Include="uEditorComisiones.pas">
|
||||||
|
<Form>fEditorComisiones</Form>
|
||||||
|
<DesignClass>TfEditorComisiones</DesignClass>
|
||||||
|
</DCCReference>
|
||||||
|
<DCCReference Include="uViewComisiones.pas">
|
||||||
|
<Form>frViewComisiones</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 -->
|
||||||
30
Source/Modulos/Comisiones/Views/uComisionesViewRegister.pas
Normal file
30
Source/Modulos/Comisiones/Views/uComisionesViewRegister.pas
Normal file
@ -0,0 +1,30 @@
|
|||||||
|
unit uComisionesViewRegister;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
procedure RegisterViews;
|
||||||
|
procedure UnregisterViews;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
uEditorRegistryUtils,
|
||||||
|
// uEditorComisionesReport,
|
||||||
|
// uEditorComision,
|
||||||
|
uEditorComisiones;
|
||||||
|
|
||||||
|
procedure RegisterViews;
|
||||||
|
begin
|
||||||
|
EditorRegistry.RegisterClass(TfEditorComisiones, 'EditorComisiones');
|
||||||
|
// EditorRegistry.RegisterClass(TfEditorComision, 'EditorComision');
|
||||||
|
// EditorRegistry.RegisterClass(TfEditorComisionesPreview, 'EditorComisionesPreview');
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure UnregisterViews;
|
||||||
|
begin
|
||||||
|
EditorRegistry.UnRegisterClass(TfEditorComisiones);
|
||||||
|
// EditorRegistry.UnRegisterClass(TfEditorComision);
|
||||||
|
// EditorRegistry.UnRegisterClass(TfEditorComisionesPreview);
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
1805
Source/Modulos/Comisiones/Views/uEditorComision.dfm
Normal file
1805
Source/Modulos/Comisiones/Views/uEditorComision.dfm
Normal file
File diff suppressed because it is too large
Load Diff
307
Source/Modulos/Comisiones/Views/uEditorComision.pas
Normal file
307
Source/Modulos/Comisiones/Views/uEditorComision.pas
Normal file
@ -0,0 +1,307 @@
|
|||||||
|
unit uEditorComision;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, uEditorDBItem, ToolWin, ComCtrls, JvExControls, JvComponent,
|
||||||
|
uViewComision, JvNavigationPane, ActnList,
|
||||||
|
uEditorBase, StdActns, TB2Dock, TB2Toolbar, TBX, ImgList, PngImageList,
|
||||||
|
TB2Item, uEditorItem, DB, uDADataTable, uEditorDBBase, JvFormAutoSize,
|
||||||
|
uDAScriptingProvider, uDACDSDataTable, StdCtrls, pngimage, ExtCtrls,
|
||||||
|
TBXDkPanels, JvButton, AppEvnts, uCustomView, uViewBase,
|
||||||
|
JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvComponentBase,
|
||||||
|
cxCustomData, uBizComisiones,
|
||||||
|
uIEditorComision, uComisionesController, JvExComCtrls,
|
||||||
|
JvStatusBar, dxLayoutLookAndFeels, uViewGridBase, uViewGrid,
|
||||||
|
uViewDetallesGenerico, uViewFacturasComision, dxLayoutControl, cxControls,
|
||||||
|
uViewTotales;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfEditorComision = class(TfEditorDBItem, IEditorComision)
|
||||||
|
TBXSubmenuItem2: TTBXSubmenuItem;
|
||||||
|
TBXItem7: TTBXItem;
|
||||||
|
frViewComision1: TfrViewComision;
|
||||||
|
frViewFacturasComision1: TfrViewFacturasComision;
|
||||||
|
dxLayoutControl1Group_Root: TdxLayoutGroup;
|
||||||
|
dxLayoutControl1: TdxLayoutControl;
|
||||||
|
dxLayoutControl1Group1: TdxLayoutGroup;
|
||||||
|
dxLayoutControl1Item1: TdxLayoutItem;
|
||||||
|
frViewTotales1: TfrViewTotales;
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
|
||||||
|
procedure actAnadirRecibosExecute(Sender: TObject);
|
||||||
|
procedure actEliminarReciboExecute(Sender: TObject);
|
||||||
|
procedure JvFormStorageRestorePlacement(Sender: TObject);
|
||||||
|
procedure JvFormStorageSavePlacement(Sender: TObject);
|
||||||
|
procedure dsDataTableDataChange(Sender: TObject; Field: TField);
|
||||||
|
procedure frViewFacturasComision1cxGridViewDataControllerSummaryAfterSummary(
|
||||||
|
ASender: TcxDataSummary);
|
||||||
|
protected
|
||||||
|
FController : IComisionesController;
|
||||||
|
FComision: IBizComisiones;
|
||||||
|
FViewComision : IViewComision;
|
||||||
|
|
||||||
|
function GetController : IComisionesController;
|
||||||
|
procedure SetController (const Value : IComisionesController); virtual;
|
||||||
|
function GetComision: IBizComisiones; virtual;
|
||||||
|
procedure SetComision(const Value: IBizComisiones); virtual;
|
||||||
|
function GetViewComision: IViewComision;
|
||||||
|
procedure SetViewComision(const Value: IViewComision);
|
||||||
|
property ViewComision: IViewComision read GetViewComision write SetViewComision;
|
||||||
|
|
||||||
|
procedure GuardarInterno; override;
|
||||||
|
procedure EliminarInterno; override;
|
||||||
|
procedure PrevisualizarInterno; override;
|
||||||
|
procedure ImprimirInterno; override;
|
||||||
|
// procedure CerrarInterno; override;
|
||||||
|
|
||||||
|
procedure PonerTitulos(const ATitulo: string = ''); override;
|
||||||
|
// function GetModified: Boolean; override;
|
||||||
|
|
||||||
|
public
|
||||||
|
property Comision: IBizComisiones read GetComision write SetComision;
|
||||||
|
constructor Create(AOwner: TComponent); override;
|
||||||
|
destructor Destroy; override;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
uses
|
||||||
|
uDataTableUtils, uDataModuleUsuarios, uDialogUtils, uCustomEditor,
|
||||||
|
uDataModuleBase;
|
||||||
|
|
||||||
|
{
|
||||||
|
******************************* TfEditorComision *******************************
|
||||||
|
}
|
||||||
|
function TfEditorComision.GetComision: IBizComisiones;
|
||||||
|
begin
|
||||||
|
Result := FComision;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorComision.GetController: IComisionesController;
|
||||||
|
begin
|
||||||
|
Result := FController;
|
||||||
|
end;
|
||||||
|
{
|
||||||
|
function TfEditorComision.GetModified: Boolean;
|
||||||
|
var
|
||||||
|
bCambiado : Boolean;
|
||||||
|
begin
|
||||||
|
bCambiado := inherited GetModified;
|
||||||
|
//Si no hay cambios miramos que no los halla en la lista de recibos
|
||||||
|
if not bCambiado then
|
||||||
|
bCambiado := frViewRecibosComision1.Modified;
|
||||||
|
Result := bCambiado;
|
||||||
|
end;
|
||||||
|
}
|
||||||
|
function TfEditorComision.GetViewComision: IViewComision;
|
||||||
|
begin
|
||||||
|
Result := FViewComision;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorComision.GuardarInterno;
|
||||||
|
var
|
||||||
|
bEsNuevo : Boolean;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
bEsNuevo := False;
|
||||||
|
|
||||||
|
ShowHourglassCursor;
|
||||||
|
// frViewRecibosComision1.OnViewModified := Nil;
|
||||||
|
//frViewDetallesFacturaCliente1.SaveGridStatus; // Para guardar estado del grid
|
||||||
|
// frViewDetallesFacturaCliente1.BeginUpdate; // Para que no se mueva el foco
|
||||||
|
try
|
||||||
|
bEsNuevo := FComision.EsNuevo;
|
||||||
|
FController.Guardar(FComision);
|
||||||
|
|
||||||
|
finally
|
||||||
|
// frViewDetallesFacturaCliente1.EndUpdate;
|
||||||
|
// frViewDetallesFacturaCliente1.RestoreGridStatus;
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if bEsNuevo then
|
||||||
|
ShowInfoMessage('La liquidación de comisiones se ha dado de alta con el código ' + FComision.REFERENCIA);
|
||||||
|
Modified := False;
|
||||||
|
// frViewRecibosComision1.Modified := False;
|
||||||
|
// frViewRecibosComision1.OnViewModified := OnRecibosChanged;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorComision.ImprimirInterno;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
if (Application.MessageBox('¿Desea previsualizar la liquidación de comisiones sin desglosar?', 'Atención', MB_YESNO) = IDYES) then
|
||||||
|
FController.Print(FComision, False)
|
||||||
|
else
|
||||||
|
FController.Print(FComision, True);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorComision.JvFormStorageRestorePlacement(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
//frViewRecibosComision1.RestoreFromRegistry(JvAppRegistryStorage.Root);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorComision.JvFormStorageSavePlacement(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
//frViewRecibosComision1.StoreToRegistry(JvAppRegistryStorage.Root);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorComision.PonerTitulos(const ATitulo: string);
|
||||||
|
var
|
||||||
|
FTitulo : String;
|
||||||
|
begin
|
||||||
|
FTitulo := ATitulo;
|
||||||
|
if (FTitulo = '') and Assigned(Comision) then
|
||||||
|
begin
|
||||||
|
if Comision.EsNuevo then
|
||||||
|
FTitulo := 'Nueva liquidación de comisiones'
|
||||||
|
else
|
||||||
|
FTitulo := 'Liquidación de comisiones';
|
||||||
|
end;
|
||||||
|
|
||||||
|
inherited PonerTitulos(FTitulo);
|
||||||
|
|
||||||
|
Self.Caption := FTitulo + ' (' + dmUsuarios.EmpresaActual.NOMBRE + ')';
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorComision.PrevisualizarInterno;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
if (Application.MessageBox('¿Desea previsualizar la liquidación de comisiones sin desglosar?', 'Atención', MB_YESNO) = IDYES) then
|
||||||
|
FController.Preview(FComision, False)
|
||||||
|
else
|
||||||
|
FController.Preview(FComision, True);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorComision.SetComision(const Value: IBizComisiones);
|
||||||
|
begin
|
||||||
|
FComision := Value;
|
||||||
|
if Assigned(FComision) then
|
||||||
|
begin
|
||||||
|
dsDataTable.DataTable := FComision.DataTable;
|
||||||
|
frViewFacturasComision1.Comision := FComision;
|
||||||
|
// frViewRecibosComision1.OnViewModified := OnRecibosChanged;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
dsDataTable.DataTable := Nil;
|
||||||
|
frViewFacturasComision1.Comision := Nil;
|
||||||
|
// frViewRecibosComision1.OnViewModified := Nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if Assigned(FViewComision) then
|
||||||
|
FViewComision.Comision := FComision;
|
||||||
|
|
||||||
|
frViewTotales1.DADataSource.DataTable := dsDataTable.DataTable;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorComision.SetController(const Value: IComisionesController);
|
||||||
|
begin
|
||||||
|
FController := Value;
|
||||||
|
if Assigned(FController) then
|
||||||
|
begin
|
||||||
|
frViewFacturasComision1.Controller := FController;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorComision.SetViewComision(const Value: IViewComision);
|
||||||
|
begin
|
||||||
|
FViewComision := Value;
|
||||||
|
|
||||||
|
if Assigned(FViewComision) and Assigned(Comision) then
|
||||||
|
begin
|
||||||
|
FViewComision.Comision := Comision;
|
||||||
|
// FViewComision.Controller := (FController as IComisionesController);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorComision.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
|
||||||
|
if not Assigned(FViewComision) then
|
||||||
|
raise Exception.Create('No hay ninguna vista asignada');
|
||||||
|
|
||||||
|
if not Assigned(Comision) then
|
||||||
|
raise Exception.Create('No hay ningún almacén asignado');
|
||||||
|
|
||||||
|
Comision.DataTable.Active := True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorComision.frViewFacturasComision1cxGridViewDataControllerSummaryAfterSummary(ASender: TcxDataSummary);
|
||||||
|
Var
|
||||||
|
AImporteTotal: Variant;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
|
||||||
|
AImporteTotal := ASender.FooterSummaryValues[1];
|
||||||
|
|
||||||
|
if Assigned(FController) then
|
||||||
|
FController.AsignarImporteTotal(Comision, AImporteTotal);
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TfEditorComision.Destroy;
|
||||||
|
begin
|
||||||
|
// Utilizar mejor OnClose;
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorComision.dsDataTableDataChange(Sender: TObject; Field: TField);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
ActualizarEstadoEditor;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorComision.actAnadirRecibosExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
// HayCambios := FController.ElegirRecibosCliente(Comision) OR HayCambios;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorComision.actEliminarReciboExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
// FController.EliminarReciboCliente(Comision);
|
||||||
|
// HayCambios := True;
|
||||||
|
end;
|
||||||
|
{
|
||||||
|
procedure TfEditorComision.CerrarInterno;
|
||||||
|
begin
|
||||||
|
frViewRecibosComision1.OnViewModified := Nil;
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
}
|
||||||
|
constructor TfEditorComision.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
pgPaginas.ActivePageIndex := 0;
|
||||||
|
FViewComision := frViewComision1;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorComision.CustomEditorClose(Sender: TObject;
|
||||||
|
var Action: TCloseAction);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
dsDataTable.DataTable := NIL;
|
||||||
|
FViewComision := NIL;
|
||||||
|
FComision := NIL;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorComision.EliminarInterno;
|
||||||
|
begin
|
||||||
|
if (Application.MessageBox('¿Desea borrar esta liquidación de comisiones?', 'Atención', MB_YESNO) = IDYES) then
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
if not FController.Eliminar(FComision) then
|
||||||
|
actRefrescar.Execute;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
1496
Source/Modulos/Comisiones/Views/uEditorComisiones.dfm
Normal file
1496
Source/Modulos/Comisiones/Views/uEditorComisiones.dfm
Normal file
File diff suppressed because it is too large
Load Diff
172
Source/Modulos/Comisiones/Views/uEditorComisiones.pas
Normal file
172
Source/Modulos/Comisiones/Views/uEditorComisiones.pas
Normal file
@ -0,0 +1,172 @@
|
|||||||
|
unit uEditorComisiones;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, uEditorBase, ToolWin, ComCtrls, JvExControls, JvComponent,
|
||||||
|
JvNavigationPane, uViewComisiones, uBizComisiones, ActnList, DBActns, uViewGrid,
|
||||||
|
Menus, uDataModuleBase, ImgList, PngImageList, TB2Dock, TB2Toolbar, TBX,
|
||||||
|
TB2Item, StdActns, TB2ExtItems, TBXExtItems, TB2MRU, DB, uDADataTable,
|
||||||
|
JvFormAutoSize, uDAScriptingProvider, uDACDSDataTable, JvAppStorage,
|
||||||
|
JvAppRegistryStorage, JvFormPlacement, ExtCtrls, uCustomView, uViewBase,
|
||||||
|
uViewBarraSeleccion, pngimage, uIEditorComisiones, uEditorGridBase,
|
||||||
|
JvComponentBase, uViewGridBase, uComisionesController, JvExComCtrls,
|
||||||
|
JvStatusBar, uDAInterfaces;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfEditorComisiones = class(TfEditorGridBase, IEditorComisiones)
|
||||||
|
N4: TMenuItem;
|
||||||
|
Volcaradisco1: TMenuItem;
|
||||||
|
TBXSubmenuItem2: TTBXSubmenuItem;
|
||||||
|
TBXItem38: TTBXItem;
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
private
|
||||||
|
FComisiones: IBizComisiones;
|
||||||
|
FController : IComisionesController;
|
||||||
|
protected
|
||||||
|
function GetComisiones: IBizComisiones;
|
||||||
|
procedure SetComisiones(const Value: IBizComisiones);
|
||||||
|
function GetController : IComisionesController; virtual;
|
||||||
|
procedure SetController (const Value : IComisionesController); virtual;
|
||||||
|
|
||||||
|
procedure NuevoInterno; override;
|
||||||
|
procedure EliminarInterno; override;
|
||||||
|
procedure ModificarInterno; override;
|
||||||
|
procedure PrevisualizarInterno; override;
|
||||||
|
procedure ImprimirInterno; override;
|
||||||
|
|
||||||
|
|
||||||
|
//Si queremos crear otra vista para el editor heredado solo tendriamos que
|
||||||
|
//sobreescribir este metodo
|
||||||
|
procedure AsignarVista; virtual;
|
||||||
|
|
||||||
|
public
|
||||||
|
procedure PonerTitulos(const ATitulo: string = ''); override;
|
||||||
|
property Comisiones: IBizComisiones read GetComisiones write SetComisiones;
|
||||||
|
property Controller : IComisionesController read GetController write SetController;
|
||||||
|
constructor Create(AOwner: TComponent); override;
|
||||||
|
destructor Destroy; override;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
uCustomEditor, uDataModuleComisiones, uDataModuleUsuarios,
|
||||||
|
//uEditorRemesaCliente,
|
||||||
|
uFactuGES_App,
|
||||||
|
uEditorDBBase, cxGrid, cxGridCustomTableView; //, uListaComisiones;
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
{
|
||||||
|
****************************** TfEditorComisiones *******************************
|
||||||
|
}
|
||||||
|
procedure TfEditorComisiones.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
|
||||||
|
if not Assigned(ViewGrid) then
|
||||||
|
raise Exception.Create('No hay ninguna vista asignada');
|
||||||
|
|
||||||
|
if not Assigned(Comisiones) then
|
||||||
|
raise Exception.Create('No hay ningún RemesaCliente asignado');
|
||||||
|
|
||||||
|
Comisiones.DataTable.Active := True;
|
||||||
|
ViewGrid.GotoFirst;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorComisiones.GetComisiones: IBizComisiones;
|
||||||
|
begin
|
||||||
|
Result := FComisiones;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorComisiones.ImprimirInterno;
|
||||||
|
begin
|
||||||
|
// inherited;
|
||||||
|
if (Application.MessageBox('¿Desea previsualizar la liquidación de comisiones sin desglosar?', 'Atención', MB_YESNO) = IDYES) then
|
||||||
|
FController.Print(Comisiones, False)
|
||||||
|
else
|
||||||
|
FController.Print(Comisiones, True);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorComisiones.GetController: IComisionesController;
|
||||||
|
begin
|
||||||
|
Result := FController;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorComisiones.ModificarInterno;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
FController.Ver(Comisiones);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorComisiones.NuevoInterno;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
FController.Anadir(Comisiones);
|
||||||
|
FController.Ver(Comisiones);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorComisiones.PonerTitulos(const ATitulo: string);
|
||||||
|
var
|
||||||
|
FTitulo : String;
|
||||||
|
begin
|
||||||
|
FTitulo := 'Lista de liquidaciones de comisiones - ' + AppFactuGES.EmpresaActiva.NOMBRE;
|
||||||
|
inherited PonerTitulos(FTitulo);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorComisiones.PrevisualizarInterno;
|
||||||
|
begin
|
||||||
|
// inherited;
|
||||||
|
if (Application.MessageBox('¿Desea previsualizar la liquidación de comisiones sin desglosar?', 'Atención', MB_YESNO) = IDYES) then
|
||||||
|
FController.Preview(Comisiones, False)
|
||||||
|
else
|
||||||
|
FController.Preview(Comisiones, True);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorComisiones.SetComisiones(const Value: IBizComisiones);
|
||||||
|
begin
|
||||||
|
FComisiones := Value;
|
||||||
|
dsDataTable.DataTable := FComisiones.DataTable;
|
||||||
|
if Assigned(ViewGrid) then
|
||||||
|
(ViewGrid as IViewComisiones).Comisiones := Comisiones;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorComisiones.SetController(const Value: IComisionesController);
|
||||||
|
begin
|
||||||
|
FController := Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TfEditorComisiones.Destroy;
|
||||||
|
begin
|
||||||
|
FComisiones := NIL;
|
||||||
|
FController := NIl;
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorComisiones.EliminarInterno;
|
||||||
|
begin
|
||||||
|
if (Application.MessageBox('¿Desea borrar esta liquidación de comisiones?', 'Atención', MB_YESNO) = IDYES) then
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
//Para que en el caso de no poderse realizar la operación se refresquen
|
||||||
|
//los datos y no nos permita eliminar un registro a la segunda
|
||||||
|
if not FController.Eliminar(Comisiones) then
|
||||||
|
actRefrescar.Execute;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorComisiones.AsignarVista;
|
||||||
|
begin
|
||||||
|
ViewGrid := CreateView(TfrViewComisiones) as IViewComisiones;
|
||||||
|
end;
|
||||||
|
|
||||||
|
constructor TfEditorComisiones.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
AsignarVista;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
161
Source/Modulos/Comisiones/Views/uEditorComisionesReport.dfm
Normal file
161
Source/Modulos/Comisiones/Views/uEditorComisionesReport.dfm
Normal file
@ -0,0 +1,161 @@
|
|||||||
|
inherited fEditorComisionesPreview: TfEditorComisionesPreview
|
||||||
|
Caption = 'Previsualizar la factura'
|
||||||
|
ExplicitWidth = 803
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 13
|
||||||
|
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||||
|
inherited Image1: TImage
|
||||||
|
Left = 768
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object pnlFiltrar: TTBXDockablePanel [3]
|
||||||
|
Left = 0
|
||||||
|
Top = 102
|
||||||
|
Align = alTop
|
||||||
|
Caption = 'Filtrar'
|
||||||
|
CaptionRotation = dpcrAlwaysVert
|
||||||
|
DockedHeight = 84
|
||||||
|
DockMode = dmCannotFloat
|
||||||
|
DockPos = 88
|
||||||
|
DockRow = 2
|
||||||
|
FloatingWidth = 128
|
||||||
|
FloatingHeight = 84
|
||||||
|
ShowCaptionWhenDocked = False
|
||||||
|
SupportedDocks = [dkStandardDock, dkMultiDock]
|
||||||
|
TabOrder = 3
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 261
|
||||||
|
Top = 50
|
||||||
|
Width = 17
|
||||||
|
Height = 13
|
||||||
|
Caption = 'y el'
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 10
|
||||||
|
Top = 16
|
||||||
|
Width = 117
|
||||||
|
Height = 13
|
||||||
|
Caption = 'Liquidaciones del agente'
|
||||||
|
end
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 10
|
||||||
|
Top = 48
|
||||||
|
Width = 103
|
||||||
|
Height = 13
|
||||||
|
Caption = 'Liquidaciones entre el'
|
||||||
|
end
|
||||||
|
object edtFechaFiltro1: TcxDateEdit
|
||||||
|
Left = 133
|
||||||
|
Top = 46
|
||||||
|
Properties.OnEditValueChanged = edtFechaFiltro1PropertiesEditValueChanged
|
||||||
|
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
|
||||||
|
Width = 121
|
||||||
|
end
|
||||||
|
object edtFechaFiltro2: TcxDateEdit
|
||||||
|
Left = 285
|
||||||
|
Top = 46
|
||||||
|
Properties.OnEditValueChanged = edtFechaFiltro1PropertiesEditValueChanged
|
||||||
|
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 = 2
|
||||||
|
Width = 121
|
||||||
|
end
|
||||||
|
object Button1: TBitBtn
|
||||||
|
Left = 435
|
||||||
|
Top = 43
|
||||||
|
Width = 163
|
||||||
|
Height = 25
|
||||||
|
Caption = 'Quitar filtro y ver todo'
|
||||||
|
TabOrder = 3
|
||||||
|
OnClick = Button1Click
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000000000000000000000000000000000000FF00FF00FF00
|
||||||
|
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00A505
|
||||||
|
E1007204CA00FE00FF00FF00FF00FF00FF00E800F5003E09C100FF00FF00FF00
|
||||||
|
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00AB17
|
||||||
|
F900161DC600C400E700FF00FF00FF00FF00520DC9000F30D600D71BCF00942A
|
||||||
|
8A004D493C004D493C00942A8A00D71BCF00FF00FF00FF00FF00D71BCF008B2C
|
||||||
|
92002843B900141B980070208D004615BA000F30D600C20BF80069605800F8D5
|
||||||
|
AD00F8C89000F8C89000E7AB63004D493C00FF00FF00FF00FF0069605800F8D5
|
||||||
|
AD00C8ACA6001036E4002125A6000F30D600B20EF600FF00FF0069605800FFD8
|
||||||
|
C000F8D5AD00F8C89000F8C890004D493C004D493C004D493C0069605800FFD8
|
||||||
|
C000EFCDAD005F65C6000A38ED002637A300927C6C00FF00FF0069605800F0F0
|
||||||
|
F000FFD8C000F8D5AD00F8C8900069605800696058006960580069605800FFF8
|
||||||
|
FF008372B1000F30D6002750F7000F30D60025256F00FF00FF00942A8A006960
|
||||||
|
58006960580069605800942A8A00D71BCF00FF00FF00FF00FF00D71BCF004F24
|
||||||
|
9E000F30D600434D8A00605D6C004D69E3000F30D6006D05CC00FF00FF006648
|
||||||
|
54004D493C00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000F30
|
||||||
|
D6008F1FF300FF00FF00FF00FF00C811FD003154EB000024D300FF00FF00FF00
|
||||||
|
FF00664854004D493C00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00FF00FF00FF00FF004D493C004D493C00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF0066485400696058004D493C00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00FF00FF00FF00FF00696058004D493C00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00FF00FF0066485400D419D000FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00FF00FF00FF00FF00A8658D0069605800FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
|
||||||
|
end
|
||||||
|
object cbAgentes: TcxLookupComboBox
|
||||||
|
Left = 133
|
||||||
|
Top = 13
|
||||||
|
Properties.KeyFieldNames = 'ID'
|
||||||
|
Properties.ListColumns = <
|
||||||
|
item
|
||||||
|
FieldName = 'NOMBRE'
|
||||||
|
end>
|
||||||
|
Properties.ListOptions.ShowHeader = False
|
||||||
|
Properties.ListSource = dsAgentes
|
||||||
|
Properties.OnEditValueChanged = OnAgentesChange
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
TabOrder = 0
|
||||||
|
Width = 273
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited EditorActionList: TActionList
|
||||||
|
Left = 8
|
||||||
|
Top = 88
|
||||||
|
end
|
||||||
|
inherited SmallImages: TPngImageList
|
||||||
|
Left = 35
|
||||||
|
Top = 88
|
||||||
|
end
|
||||||
|
inherited LargeImages: TPngImageList
|
||||||
|
Left = 59
|
||||||
|
Top = 88
|
||||||
|
end
|
||||||
|
inherited frxReport1: TfrxReport
|
||||||
|
Datasets = <>
|
||||||
|
Variables = <>
|
||||||
|
Style = <>
|
||||||
|
end
|
||||||
|
object dsAgentes: TDADataSource
|
||||||
|
Left = 144
|
||||||
|
Top = 96
|
||||||
|
end
|
||||||
|
end
|
||||||
137
Source/Modulos/Comisiones/Views/uEditorComisionesReport.pas
Normal file
137
Source/Modulos/Comisiones/Views/uEditorComisionesReport.pas
Normal file
@ -0,0 +1,137 @@
|
|||||||
|
unit uEditorComisionesReport;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, uEditorPreview, frxExportImage, frxExportPDF, frxDCtrl, frxClass,
|
||||||
|
frxDMPExport, frxGradient, frxChBox, frxCross, frxRich, frxChart, frxOLE,
|
||||||
|
frxBarcode, JvAppStorage, JvAppRegistryStorage, JvComponentBase,
|
||||||
|
JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls,
|
||||||
|
TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage,
|
||||||
|
ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorComisionesPreview,
|
||||||
|
JvExComCtrls, JvStatusBar, StdCtrls, Buttons, cxRadioGroup, cxMaskEdit,
|
||||||
|
cxDropDownEdit, cxCalendar, cxControls, cxContainer, cxEdit, cxTextEdit,
|
||||||
|
TBXDkPanels, cxGraphics, DB, uDADataTable, cxLookupEdit, cxDBLookupEdit,
|
||||||
|
cxDBLookupComboBox, uIDataModuleComisionesReport;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfEditorComisionesPreview = class(TfEditorPreview, IEditorComisionesPreview)
|
||||||
|
pnlFiltrar: TTBXDockablePanel;
|
||||||
|
Label1: TLabel;
|
||||||
|
edtFechaFiltro1: TcxDateEdit;
|
||||||
|
edtFechaFiltro2: TcxDateEdit;
|
||||||
|
Button1: TBitBtn;
|
||||||
|
Label2: TLabel;
|
||||||
|
Label3: TLabel;
|
||||||
|
cbAgentes: TcxLookupComboBox;
|
||||||
|
dsAgentes: TDADataSource;
|
||||||
|
procedure edtFechaFiltro1PropertiesEditValueChanged(Sender: TObject);
|
||||||
|
procedure OnAgentesChange(Sender: TObject);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure Button1Click(Sender: TObject);
|
||||||
|
protected
|
||||||
|
FDataModule : IDataModuleComisionesReport;
|
||||||
|
function GetDataModule : IDataModuleComisionesReport;
|
||||||
|
procedure SetDataModule (const Value : IDataModuleComisionesReport);
|
||||||
|
|
||||||
|
procedure RefrescarInterno; override;
|
||||||
|
public
|
||||||
|
property DataModule : IDataModuleComisionesReport read GetDataModule write SetDataModule;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
implementation
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
uses uROTypes, uDialogUtils, uBizContactos, uAgentesController;
|
||||||
|
|
||||||
|
procedure TfEditorComisionesPreview.Button1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
cbAgentes.Properties.OnEditValueChanged := Nil;
|
||||||
|
cbAgentes.Clear;
|
||||||
|
cbAgentes.Properties.OnEditValueChanged := OnAgentesChange;
|
||||||
|
|
||||||
|
edtFechaFiltro1.Properties.OnEditValueChanged := Nil;
|
||||||
|
edtFechaFiltro2.Properties.OnEditValueChanged := Nil;
|
||||||
|
edtFechaFiltro1.Clear;
|
||||||
|
edtFechaFiltro2.Clear;
|
||||||
|
edtFechaFiltro1.Properties.OnEditValueChanged := edtFechaFiltro1PropertiesEditValueChanged;
|
||||||
|
edtFechaFiltro2.Properties.OnEditValueChanged := edtFechaFiltro1PropertiesEditValueChanged;
|
||||||
|
|
||||||
|
RefrescarInterno;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorComisionesPreview.OnAgentesChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
RefrescarInterno;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorComisionesPreview.RefrescarInterno;
|
||||||
|
var
|
||||||
|
AStream: Binary;
|
||||||
|
begin
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
AStream := FDataModule.GetReport(Null, False, edtFechaFiltro1.Text, edtFechaFiltro2.Text, cbAgentes.EditValue);
|
||||||
|
try
|
||||||
|
//Para que refresque el editor que presenta el informe y no falle al aplicar un filtro y cambiar el numero de hojas del informe
|
||||||
|
actPrimeraPagina.Execute;
|
||||||
|
|
||||||
|
Report.PreviewPages.Clear;
|
||||||
|
LoadFromStream(AStream);
|
||||||
|
Report.Preview.Refresh;
|
||||||
|
|
||||||
|
//Para que refresque el editor que presenta el informe y no falle al aplicar un filtro y cambiar el numero de hojas del informe
|
||||||
|
actAnchoPagina.Execute;
|
||||||
|
finally
|
||||||
|
AStream.Free;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorComisionesPreview.SetDataModule(const Value: IDataModuleComisionesReport);
|
||||||
|
begin
|
||||||
|
FDataModule := Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorComisionesPreview.edtFechaFiltro1PropertiesEditValueChanged(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if not VarIsNull(edtFechaFiltro1.EditValue) and not VarIsNull(edtFechaFiltro2.EditValue) then
|
||||||
|
begin
|
||||||
|
if (edtFechaFiltro1.EditValue > edtFechaFiltro2.EditValue) then
|
||||||
|
begin
|
||||||
|
ShowWarningMessage('La fecha de inicio debe ser anterior a la fecha final');
|
||||||
|
edtFechaFiltro1.SetFocus;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
RefrescarInterno;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorComisionesPreview.FormShow(Sender: TObject);
|
||||||
|
var
|
||||||
|
AAgentesController: IAgentesController;
|
||||||
|
AAgentes: IBizAgente;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
try
|
||||||
|
AAgentesController := TAgentesController.Create;
|
||||||
|
AAgentes := (AAgentesController.BuscarTodos as IBizAgente);
|
||||||
|
AAgentes.DataTable.Active := True;
|
||||||
|
dsAgentes.DataTable := AAgentes.DataTable;
|
||||||
|
finally
|
||||||
|
AAgentesController := Nil;
|
||||||
|
AAgentes := Nil;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorComisionesPreview.GetDataModule: IDataModuleComisionesReport;
|
||||||
|
begin
|
||||||
|
Result := FDataModule;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
190
Source/Modulos/Comisiones/Views/uViewComision.dfm
Normal file
190
Source/Modulos/Comisiones/Views/uViewComision.dfm
Normal file
@ -0,0 +1,190 @@
|
|||||||
|
inherited frViewComision: TfrViewComision
|
||||||
|
Width = 451
|
||||||
|
Height = 130
|
||||||
|
Align = alClient
|
||||||
|
OnDestroy = CustomViewDestroy
|
||||||
|
OnShow = CustomViewShow
|
||||||
|
ExplicitWidth = 451
|
||||||
|
ExplicitHeight = 304
|
||||||
|
object dxLayoutControlComision: TdxLayoutControl
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 451
|
||||||
|
Height = 130
|
||||||
|
Align = alClient
|
||||||
|
ParentBackground = True
|
||||||
|
TabOrder = 0
|
||||||
|
AutoContentSizes = [acsWidth]
|
||||||
|
LookAndFeel = dxLayoutOfficeLookAndFeel1
|
||||||
|
ExplicitHeight = 304
|
||||||
|
DesignSize = (
|
||||||
|
451
|
||||||
|
130)
|
||||||
|
object eReferencia: TcxDBTextEdit
|
||||||
|
Left = 85
|
||||||
|
Top = 30
|
||||||
|
Anchors = [akLeft, akTop, akRight]
|
||||||
|
DataBinding.DataField = 'REFERENCIA'
|
||||||
|
DataBinding.DataSource = dsDataTable
|
||||||
|
Enabled = False
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.Color = 14745599
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.TextColor = clWindowText
|
||||||
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
TabOrder = 0
|
||||||
|
Width = 164
|
||||||
|
end
|
||||||
|
object eDescripcion: TcxDBTextEdit
|
||||||
|
Left = 85
|
||||||
|
Top = 84
|
||||||
|
DataBinding.DataField = 'DESCRIPCION'
|
||||||
|
DataBinding.DataSource = dsDataTable
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.Color = clInfoBk
|
||||||
|
Style.HotTrack = 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 = 3
|
||||||
|
Width = 108
|
||||||
|
end
|
||||||
|
object edtFecha: TcxDBDateEdit
|
||||||
|
Left = 275
|
||||||
|
Top = 30
|
||||||
|
Anchors = [akLeft, akTop, akRight]
|
||||||
|
DataBinding.DataField = 'FECHA'
|
||||||
|
DataBinding.DataSource = dsDataTable
|
||||||
|
Properties.ImmediatePost = True
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.Color = clInfoBk
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.Shadow = False
|
||||||
|
Style.ButtonStyle = bts3D
|
||||||
|
Style.ButtonTransparency = ebtNone
|
||||||
|
Style.PopupBorderStyle = epbsFrame3D
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
TabOrder = 1
|
||||||
|
Width = 170
|
||||||
|
end
|
||||||
|
object cbAgente: TcxDBLookupComboBox
|
||||||
|
Left = 85
|
||||||
|
Top = 57
|
||||||
|
DataBinding.DataField = 'ID_AGENTE'
|
||||||
|
DataBinding.DataSource = dsDataTable
|
||||||
|
Properties.GridMode = True
|
||||||
|
Properties.ImmediatePost = True
|
||||||
|
Properties.KeyFieldNames = 'ID'
|
||||||
|
Properties.ListColumns = <
|
||||||
|
item
|
||||||
|
FieldName = 'NOMBRE'
|
||||||
|
end>
|
||||||
|
Properties.ListOptions.GridLines = glNone
|
||||||
|
Properties.ListOptions.ShowHeader = False
|
||||||
|
Properties.ListSource = dsAgentes
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.Color = clInfoBk
|
||||||
|
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
|
||||||
|
Width = 319
|
||||||
|
end
|
||||||
|
object dxLayoutControlComisionGroup_Root: TdxLayoutGroup
|
||||||
|
ShowCaption = False
|
||||||
|
Hidden = True
|
||||||
|
ShowBorder = False
|
||||||
|
object dxLayoutControlComisionGroup1: TdxLayoutGroup
|
||||||
|
AutoAligns = [aaVertical]
|
||||||
|
AlignHorz = ahClient
|
||||||
|
Caption = 'Datos de la liquidaci'#243'n de comisiones'
|
||||||
|
object dxLayoutControlComisionGroup5: TdxLayoutGroup
|
||||||
|
ShowCaption = False
|
||||||
|
Hidden = True
|
||||||
|
LayoutDirection = ldHorizontal
|
||||||
|
ShowBorder = False
|
||||||
|
object dxLayoutControlComisionItem3: TdxLayoutItem
|
||||||
|
AutoAligns = [aaVertical]
|
||||||
|
AlignHorz = ahClient
|
||||||
|
Caption = 'Referencia:'
|
||||||
|
Control = eReferencia
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControlComisionItem4: TdxLayoutItem
|
||||||
|
AutoAligns = [aaVertical]
|
||||||
|
AlignHorz = ahClient
|
||||||
|
Caption = 'Fecha:'
|
||||||
|
Control = edtFecha
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object dxLayoutControlComisionItem1: TdxLayoutItem
|
||||||
|
Caption = 'Agente:'
|
||||||
|
Control = cbAgente
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControlComisionItem8: TdxLayoutItem
|
||||||
|
AutoAligns = [aaVertical]
|
||||||
|
AlignHorz = ahClient
|
||||||
|
Caption = 'Descripci'#243'n:'
|
||||||
|
Control = eDescripcion
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object dxLayoutControlComisionGroup3: TdxLayoutGroup
|
||||||
|
Caption = 'New Group'
|
||||||
|
ShowCaption = False
|
||||||
|
LayoutDirection = ldHorizontal
|
||||||
|
ShowBorder = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object dsDataTable: TDADataSource
|
||||||
|
Left = 8
|
||||||
|
Top = 8
|
||||||
|
end
|
||||||
|
object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
|
||||||
|
Left = 40
|
||||||
|
Top = 8
|
||||||
|
object dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel
|
||||||
|
GroupOptions.CaptionOptions.Font.Charset = DEFAULT_CHARSET
|
||||||
|
GroupOptions.CaptionOptions.Font.Color = clWindowText
|
||||||
|
GroupOptions.CaptionOptions.Font.Height = -11
|
||||||
|
GroupOptions.CaptionOptions.Font.Name = 'Tahoma'
|
||||||
|
GroupOptions.CaptionOptions.Font.Style = [fsBold]
|
||||||
|
GroupOptions.CaptionOptions.TextColor = clHighlight
|
||||||
|
GroupOptions.CaptionOptions.UseDefaultFont = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object dsAgentes: TDADataSource
|
||||||
|
Left = 8
|
||||||
|
Top = 40
|
||||||
|
end
|
||||||
|
end
|
||||||
99
Source/Modulos/Comisiones/Views/uViewComision.pas
Normal file
99
Source/Modulos/Comisiones/Views/uViewComision.pas
Normal file
@ -0,0 +1,99 @@
|
|||||||
|
unit uViewComision;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, uViewBase, ExtCtrls, StdCtrls, Buttons, DB, uDADataTable,
|
||||||
|
DBCtrls, Grids, DBGrids, Mask, ComCtrls, uCustomView, JvComponent,
|
||||||
|
JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit,
|
||||||
|
cxDBEdit, dxLayoutControl, cxCheckBox, PngSpeedButton, cxImage, ActnList,
|
||||||
|
ImgList, PngImageList, cxGraphics, cxMaskEdit, cxDropDownEdit,
|
||||||
|
uComisionesController, cxSpinEdit, cxCurrencyEdit,
|
||||||
|
uBizComisiones, cxCalendar,
|
||||||
|
dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox;
|
||||||
|
|
||||||
|
type
|
||||||
|
IViewComision = interface(IViewBase)
|
||||||
|
['{5EA82BD9-550C-426F-AEBB-A48B396CB4B4}']
|
||||||
|
function GetComision: IBizComisiones;
|
||||||
|
procedure SetComision(const Value: IBizComisiones);
|
||||||
|
property Comision: IBizComisiones read GetComision write SetComision;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TfrViewComision = class(TfrViewBase, IViewComision)
|
||||||
|
dsDataTable: TDADataSource;
|
||||||
|
eReferencia: TcxDBTextEdit;
|
||||||
|
eDescripcion: TcxDBTextEdit;
|
||||||
|
edtFecha: TcxDBDateEdit;
|
||||||
|
dxLayoutControlComision: TdxLayoutControl;
|
||||||
|
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
|
||||||
|
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
|
||||||
|
dxLayoutControlComisionItem1: TdxLayoutItem;
|
||||||
|
cbAgente: TcxDBLookupComboBox;
|
||||||
|
dsAgentes: TDADataSource;
|
||||||
|
procedure CustomViewShow(Sender: TObject);
|
||||||
|
procedure CustomViewDestroy(Sender: TObject);
|
||||||
|
|
||||||
|
protected
|
||||||
|
FComision: IBizComisiones;
|
||||||
|
function GetComision: IBizComisiones;
|
||||||
|
procedure SetComision(const Value: IBizComisiones); virtual;
|
||||||
|
public
|
||||||
|
property Comision: IBizComisiones read GetComision write SetComision;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
uses
|
||||||
|
uDataModuleUsuarios, uAgentesController, uBizContactos;
|
||||||
|
|
||||||
|
|
||||||
|
{ TfrViewComisions }
|
||||||
|
|
||||||
|
{
|
||||||
|
******************************* TfrViewComisions ********************************
|
||||||
|
}
|
||||||
|
|
||||||
|
procedure TfrViewComision.CustomViewDestroy(Sender: TObject);
|
||||||
|
begin
|
||||||
|
dsAgentes.DataTable := Nil;
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewComision.CustomViewShow(Sender: TObject);
|
||||||
|
Var
|
||||||
|
AAgentes: IBizContacto;
|
||||||
|
FAgentesController: IAgentesController;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
try
|
||||||
|
FAgentesController := TAgentesController.Create;
|
||||||
|
AAgentes := FAgentesController.BuscarTodos;
|
||||||
|
AAgentes.DataTable.Active := True;
|
||||||
|
dsAgentes.DataTable := AAgentes.DataTable;
|
||||||
|
finally
|
||||||
|
AAgentes := Nil;
|
||||||
|
FAgentesController := Nil;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfrViewComision.GetComision: IBizComisiones;
|
||||||
|
begin
|
||||||
|
Result := FComision;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewComision.SetComision(const Value: IBizComisiones);
|
||||||
|
begin
|
||||||
|
FComision := Value;
|
||||||
|
|
||||||
|
if Assigned(FComision) then
|
||||||
|
dsDataTable.DataTable := FComision.DataTable
|
||||||
|
else
|
||||||
|
dsDataTable.DataTable := NIL;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
169
Source/Modulos/Comisiones/Views/uViewComisiones.dfm
Normal file
169
Source/Modulos/Comisiones/Views/uViewComisiones.dfm
Normal file
@ -0,0 +1,169 @@
|
|||||||
|
inherited frViewComisiones: TfrViewComisiones
|
||||||
|
inherited cxGrid: TcxGrid
|
||||||
|
inherited cxGridView: TcxGridDBTableView
|
||||||
|
DataController.KeyFieldNames = 'ID'
|
||||||
|
DataController.Summary.DefaultGroupSummaryItems = <
|
||||||
|
item
|
||||||
|
Format = ',0.00 '#8364';-,0.00 '#8364
|
||||||
|
Kind = skSum
|
||||||
|
Position = spFooter
|
||||||
|
Column = cxGridViewIMPORTE_TOTAL
|
||||||
|
end>
|
||||||
|
DataController.Summary.FooterSummaryItems = <
|
||||||
|
item
|
||||||
|
Format = '0 almacenes'
|
||||||
|
Kind = skCount
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Format = '0 Art'#237'culos'
|
||||||
|
Kind = skCount
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Format = ',0.00 '#8364';-,0.00 '#8364
|
||||||
|
Kind = skSum
|
||||||
|
Column = cxGridViewIMPORTE_TOTAL
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Format = '0 liquidaciones'
|
||||||
|
Kind = skCount
|
||||||
|
Column = cxGridViewREFERENCIA
|
||||||
|
end>
|
||||||
|
OptionsBehavior.PullFocusing = True
|
||||||
|
object cxGridViewREFERENCIA: TcxGridDBColumn
|
||||||
|
Caption = 'Referencia'
|
||||||
|
DataBinding.FieldName = 'REFERENCIA'
|
||||||
|
Width = 130
|
||||||
|
end
|
||||||
|
object cxGridViewAGENTE: TcxGridDBColumn
|
||||||
|
Caption = 'Agente'
|
||||||
|
DataBinding.FieldName = 'NOMBRE'
|
||||||
|
Width = 77
|
||||||
|
end
|
||||||
|
object cxGridViewFECHA: TcxGridDBColumn
|
||||||
|
Caption = 'Fecha'
|
||||||
|
DataBinding.FieldName = 'FECHA'
|
||||||
|
Width = 71
|
||||||
|
end
|
||||||
|
object cxGridViewDESCRIPCION: TcxGridDBColumn
|
||||||
|
Caption = 'Descripci'#243'n'
|
||||||
|
DataBinding.FieldName = 'DESCRIPCION'
|
||||||
|
Width = 97
|
||||||
|
end
|
||||||
|
object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn
|
||||||
|
Caption = 'Importe'
|
||||||
|
DataBinding.FieldName = 'IMPORTE_TOTAL'
|
||||||
|
PropertiesClassName = 'TcxCurrencyEditProperties'
|
||||||
|
Properties.Alignment.Horz = taRightJustify
|
||||||
|
FooterAlignmentHorz = taRightJustify
|
||||||
|
HeaderAlignmentHorz = taRightJustify
|
||||||
|
Width = 165
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||||
|
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||||
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
|
inherited txtFiltroTodo: TcxTextEdit
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitWidth = 273
|
||||||
|
Width = 273
|
||||||
|
end
|
||||||
|
inherited edtFechaIniFiltro: TcxDateEdit
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitWidth = 121
|
||||||
|
Width = 121
|
||||||
|
end
|
||||||
|
inherited edtFechaFinFiltro: TcxDateEdit
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitWidth = 121
|
||||||
|
Width = 121
|
||||||
|
end
|
||||||
|
inherited eLista: TcxComboBox
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitWidth = 215
|
||||||
|
Width = 215
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited dxComponentPrinter: TdxComponentPrinter
|
||||||
|
inherited dxComponentPrinterLink: TdxGridReportLink
|
||||||
|
ReportDocument.CreationDate = 38673.842406053240000000
|
||||||
|
BuiltInReportLink = True
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object PngImageList: TPngImageList
|
||||||
|
PngImages = <
|
||||||
|
item
|
||||||
|
PngImage.Data = {
|
||||||
|
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||||
|
610000000970485973000017120000171201679FD2520000022E4944415478DA
|
||||||
|
8D93CF6BD36018C7BF6997A45DD376EA70CA18D31D44981741280C44119DA83D
|
||||||
|
C87619781A1EFD1BC49B2028B28353141111A43BE8CD934E65A8D4A1686B61B5
|
||||||
|
A31DD8CCBAFEDAACEDF226B389EFFB26CBCC54E6030FEFCB4B3E9FE79B9744B0
|
||||||
|
2C0B8220E0F7BA3AB2D75A282DE07F4AD82C60F0851B8F50530BF85EF98A6236
|
||||||
|
8DCCAB69B0B366BD8C95B24ACF4BB877FD226AFD635EC13A5CF99243A356869A
|
||||||
|
4D51F8398799EC476D09E5621E0F6F5EC6C8D938EE7C503604EB7055CDA34127
|
||||||
|
A8B90C3ECD3CE570A35AA2FD0DCB4B2AEE4F5CC29953C35094102667655B706D
|
||||||
|
7480C3F97412AD951AAAC502E6DEBCE47031974673B942BB8AA9DB57103F7D12
|
||||||
|
9D9D413ED4154C8C0BD6FCE7AD2F6C2816C3CE9E6E8862077C3E9F57307CE2FC
|
||||||
|
1F80655A308C35E844C7B3273318D8D78FE8B6282449A41211B7DE05FE2D304D
|
||||||
|
13866EC34433F0FAC55BF4EDE945A42B0C910A6459C6DD94F27781D936F964B2
|
||||||
|
AADB02DAEF9329ECEEED4138A240944548B2840773DBBD02B637596C6238205D
|
||||||
|
352AD175643E66B1A3BB0B0A15489204292061AAB0CB2B68D3C96B34367120BE
|
||||||
|
3AB2F96C01E1A8825028083920F35778BCD8B721387E6C9C42060788465C50A3
|
||||||
|
12B24AB0582C2110946907282C61BA3588442221B882C343E75C50A30093B104
|
||||||
|
84D849EAD53AFC1D7E0ECFFA631C76FF0526387470D4135977405B62A0D56CB2
|
||||||
|
C791891C71618FE0C0FEB873618623B2E33361FB679B4A340A1FF5C01E41928C
|
||||||
|
6DF9256E8659FD02D3B7960923D6946A0000000049454E44AE426082}
|
||||||
|
Name = 'PngImage0'
|
||||||
|
Background = clWindow
|
||||||
|
end
|
||||||
|
item
|
||||||
|
PngImage.Data = {
|
||||||
|
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||||
|
61000000097048597300000B1300000B1301009A9C18000001274944415478DA
|
||||||
|
DD923D4A035110C7FFAB60A208795B585865636795A4538CF0F4089A3EC113E4
|
||||||
|
0E5E20E00536584AD2682382BBA085A0984DC0D6B72FA0310AD9599068045947
|
||||||
|
B052F015A97460986198F9315F5692249844AC7F08B02C0BDBA725C96E95557E
|
||||||
|
857D56B7B979EEFFC8FF1E287BEB5208515FB49D3C5B2420B455802985CE2B50
|
||||||
|
3BD83AF34D00773957A8AC391B78E1E23E29DC50805069BC29344E76BA551320
|
||||||
|
5C2DCAEC92C88128C21D425C33208A34665A421FEF761D2360A558C8CE4160C8
|
||||||
|
1DDC33E096343477906A6574B0D73302DC944045D8027D068C10631C119EDA31
|
||||||
|
E6BD4CE362BF671C41CE46A80FED383F1284078A31AD80670F9D054AD72E0F07
|
||||||
|
BF2FF1F38CE5664912C555DEBC1C10214DF0DF69EC5E1D3D9ACF38F123FD3DC0
|
||||||
|
07A932AEE15E52559F0000000049454E44AE426082}
|
||||||
|
Name = 'PngImage1'
|
||||||
|
Background = clWindow
|
||||||
|
end
|
||||||
|
item
|
||||||
|
PngImage.Data = {
|
||||||
|
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||||
|
61000000E54944415478DADD902172C3301045BF4F10C3320B9645B0ACEE0D7C
|
||||||
|
83F806F5110C0BD51B6C99A160E1C2C085850B0D372C655965DCA28C3D9DB27C
|
||||||
|
CD8E44FEDBFF55E19FAAEE104013B77EF53ED100B3595967637A1B7813B098C7
|
||||||
|
F8149E435DC3CE807C29F2943FD48C784ABC0520371FF64D83D377597FF201F8
|
||||||
|
28C899DE39D3B005D0AE8B0DB0FB3597143A2B98195EA3DA0248DBC67D79FF98
|
||||||
|
B100682278857540224EF131BCD64BFF62363FE215540594C675C098728BB3F5
|
||||||
|
2184031C72DDAE1EFFC89EC85EE493D63FB1A81F526BA65D7808BDA8EE1C0611
|
||||||
|
B969BE09F8ABEE007001C1D97F1131BF40440000000049454E44AE426082}
|
||||||
|
Name = 'PngImage2'
|
||||||
|
Background = clWindow
|
||||||
|
end>
|
||||||
|
Left = 160
|
||||||
|
Top = 32
|
||||||
|
Bitmap = {}
|
||||||
|
end
|
||||||
|
end
|
||||||
83
Source/Modulos/Comisiones/Views/uViewComisiones.pas
Normal file
83
Source/Modulos/Comisiones/Views/uViewComisiones.pas
Normal file
@ -0,0 +1,83 @@
|
|||||||
|
unit uViewComisiones;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, uViewGrid, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
||||||
|
cxDataStorage, cxEdit, DB, cxDBData, uDADataTable, cxGridLevel,
|
||||||
|
cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView,
|
||||||
|
cxGridTableView, cxGridDBTableView, cxGrid, uBizComisiones, ActnList, Menus,
|
||||||
|
cxGridBandedTableView, cxGridDBBandedTableView, JvComponent,
|
||||||
|
JvFormAutoSize, PngImageList, ImgList, dxPSGlbl, dxPSUtl, dxPSEngn,
|
||||||
|
dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
|
||||||
|
dxPSEdgePatterns, cxIntlPrintSys3, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk,
|
||||||
|
cxGridCustomPopupMenu, cxGridPopupMenu, cxCurrencyEdit, cxSpinEdit, cxCheckBox,
|
||||||
|
cxCheckComboBox, cxImageComboBox, TB2Item, TBX, TB2Toolbar, TBXDkPanels,
|
||||||
|
TB2Dock, uViewFiltroBase, dxPgsDlg, uDAInterfaces, uCustomView, uViewBase;
|
||||||
|
|
||||||
|
type
|
||||||
|
IViewComisiones = interface(IViewGrid)
|
||||||
|
['{5E6A5CE4-EEF5-4CCB-B944-D028C5391676}']
|
||||||
|
function GetComisiones: IBizComisiones;
|
||||||
|
procedure SetComisiones(const Value: IBizComisiones);
|
||||||
|
property Comisiones: IBizComisiones read GetComisiones write SetComisiones;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TfrViewComisiones = class(TfrViewGrid, IViewComisiones)
|
||||||
|
PngImageList: TPngImageList;
|
||||||
|
cxGridViewREFERENCIA: TcxGridDBColumn;
|
||||||
|
cxGridViewFECHA: TcxGridDBColumn;
|
||||||
|
cxGridViewDESCRIPCION: TcxGridDBColumn;
|
||||||
|
cxGridViewAGENTE: TcxGridDBColumn;
|
||||||
|
cxGridViewIMPORTE_TOTAL: TcxGridDBColumn;
|
||||||
|
procedure cxGridViewIDCustomDrawCell(
|
||||||
|
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
|
||||||
|
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||||||
|
protected
|
||||||
|
FComisiones: IBizComisiones;
|
||||||
|
function GetComisiones: IBizComisiones; virtual;
|
||||||
|
procedure SetComisiones(const Value: IBizComisiones); virtual;
|
||||||
|
public
|
||||||
|
property Comisiones: IBizComisiones read GetComisiones write SetComisiones;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses uDataModuleComisiones;
|
||||||
|
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
{ TfrViewComisiones }
|
||||||
|
|
||||||
|
{
|
||||||
|
******************************* TfrViewComisiones *******************************
|
||||||
|
}
|
||||||
|
function TfrViewComisiones.GetComisiones: IBizComisiones;
|
||||||
|
begin
|
||||||
|
Result := FComisiones;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewComisiones.SetComisiones(const Value: IBizComisiones);
|
||||||
|
begin
|
||||||
|
FComisiones := Value;
|
||||||
|
if Assigned(FComisiones) then
|
||||||
|
dsDataSource.DataTable := FComisiones.DataTable;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
procedure TfrViewComisiones.cxGridViewIDCustomDrawCell(
|
||||||
|
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
|
||||||
|
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||||||
|
var
|
||||||
|
R : TRect;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
R := AViewInfo.ContentBounds;
|
||||||
|
ACanvas.FillRect(R);
|
||||||
|
ACanvas.DrawImage(PngImageList, R.Left, R.Top, 0);
|
||||||
|
ADone := True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
266
Source/Modulos/Comisiones/Views/uViewFacturasComision.dfm
Normal file
266
Source/Modulos/Comisiones/Views/uViewFacturasComision.dfm
Normal file
@ -0,0 +1,266 @@
|
|||||||
|
inherited frViewFacturasComision: TfrViewFacturasComision
|
||||||
|
Width = 549
|
||||||
|
Height = 376
|
||||||
|
OnShow = CustomViewShow
|
||||||
|
ExplicitWidth = 549
|
||||||
|
ExplicitHeight = 376
|
||||||
|
inherited cxGrid: TcxGrid
|
||||||
|
Width = 549
|
||||||
|
Height = 351
|
||||||
|
ExplicitWidth = 549
|
||||||
|
ExplicitHeight = 351
|
||||||
|
inherited cxGridView: TcxGridDBTableView
|
||||||
|
DataController.KeyFieldNames = 'ID_FACTURA;ID_PROVEEDOR'
|
||||||
|
DataController.Summary.FooterSummaryItems = <
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Format = ',0.00 '#8364';-,0.00 '#8364
|
||||||
|
Kind = skSum
|
||||||
|
Column = cxGridViewIMPORTE_COMISION
|
||||||
|
end>
|
||||||
|
OptionsCustomize.ColumnMoving = True
|
||||||
|
OptionsData.Appending = False
|
||||||
|
OptionsData.CancelOnExit = True
|
||||||
|
OptionsData.Deleting = False
|
||||||
|
OptionsData.Editing = False
|
||||||
|
OptionsData.Inserting = False
|
||||||
|
OptionsView.Footer = True
|
||||||
|
OptionsView.GroupFooters = gfAlwaysVisible
|
||||||
|
inherited cxGridViewID: TcxGridDBColumn
|
||||||
|
DataBinding.FieldName = ''
|
||||||
|
IsCaptionAssigned = True
|
||||||
|
end
|
||||||
|
object cxGridViewRecID: TcxGridDBColumn
|
||||||
|
DataBinding.FieldName = 'RecID'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object cxGridViewID_EMPRESA: TcxGridDBColumn
|
||||||
|
DataBinding.FieldName = 'ID_EMPRESA'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object cxGridViewID_AGENTE: TcxGridDBColumn
|
||||||
|
DataBinding.FieldName = 'ID_AGENTE'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object cxGridViewID_FACTURA: TcxGridDBColumn
|
||||||
|
DataBinding.FieldName = 'ID_FACTURA'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object cxGridViewID_COMISION_LIQUIDADA: TcxGridDBColumn
|
||||||
|
DataBinding.FieldName = 'ID_COMISION_LIQUIDADA'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object cxGridViewAGENTE: TcxGridDBColumn
|
||||||
|
Caption = 'Agente'
|
||||||
|
DataBinding.FieldName = 'AGENTE'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object cxGridViewFECHA: TcxGridDBColumn
|
||||||
|
Caption = 'Fecha factura'
|
||||||
|
DataBinding.FieldName = 'FECHA'
|
||||||
|
end
|
||||||
|
object cxGridViewREFERENCIA: TcxGridDBColumn
|
||||||
|
Caption = 'Ref. factura'
|
||||||
|
DataBinding.FieldName = 'REFERENCIA'
|
||||||
|
end
|
||||||
|
object cxGridViewSITUACION: TcxGridDBColumn
|
||||||
|
Caption = 'Situaci'#243'n factura'
|
||||||
|
DataBinding.FieldName = 'SITUACION'
|
||||||
|
end
|
||||||
|
object cxGridViewID_CLIENTE: TcxGridDBColumn
|
||||||
|
DataBinding.FieldName = 'ID_CLIENTE'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object cxGridViewCLIENTE: TcxGridDBColumn
|
||||||
|
Caption = 'Cliente'
|
||||||
|
DataBinding.FieldName = 'CLIENTE'
|
||||||
|
end
|
||||||
|
object cxGridViewID_PROVEEDOR: TcxGridDBColumn
|
||||||
|
DataBinding.FieldName = 'ID_PROVEEDOR'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object cxGridViewPROVEEDOR: TcxGridDBColumn
|
||||||
|
Caption = 'Proveedor'
|
||||||
|
DataBinding.FieldName = 'PROVEEDOR'
|
||||||
|
end
|
||||||
|
object cxGridViewIMPORTE_COMISIONABLE: TcxGridDBColumn
|
||||||
|
Caption = 'Importe comisionable'
|
||||||
|
DataBinding.FieldName = 'IMPORTE_COMISIONABLE'
|
||||||
|
end
|
||||||
|
object cxGridViewCOMISION: TcxGridDBColumn
|
||||||
|
Caption = 'Porcentaje'
|
||||||
|
DataBinding.FieldName = 'COMISION'
|
||||||
|
PropertiesClassName = 'TcxSpinEditProperties'
|
||||||
|
Properties.Alignment.Horz = taRightJustify
|
||||||
|
Properties.DisplayFormat = '0.0 %;-0.0 %'
|
||||||
|
Properties.MaxValue = 100.000000000000000000
|
||||||
|
end
|
||||||
|
object cxGridViewIMPORTE_COMISION: TcxGridDBColumn
|
||||||
|
Caption = 'Importe comisi'#243'n'
|
||||||
|
DataBinding.FieldName = 'IMPORTE_COMISION'
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited ToolBar1: TToolBar
|
||||||
|
Width = 549
|
||||||
|
ExplicitWidth = 549
|
||||||
|
inherited ToolButton1: TToolButton
|
||||||
|
ExplicitWidth = 62
|
||||||
|
end
|
||||||
|
inherited ToolButton4: TToolButton
|
||||||
|
ExplicitWidth = 74
|
||||||
|
end
|
||||||
|
inherited ToolButton2: TToolButton
|
||||||
|
ExplicitWidth = 67
|
||||||
|
end
|
||||||
|
inherited ToolButton7: TToolButton
|
||||||
|
ExplicitWidth = 117
|
||||||
|
end
|
||||||
|
object ToolButton3: TToolButton
|
||||||
|
Left = 336
|
||||||
|
Top = 2
|
||||||
|
Action = actExpandir
|
||||||
|
AutoSize = True
|
||||||
|
end
|
||||||
|
object ToolButton8: TToolButton
|
||||||
|
Left = 434
|
||||||
|
Top = 2
|
||||||
|
Action = actContraer
|
||||||
|
AutoSize = True
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited ContenidoImageList: TPngImageList
|
||||||
|
PngImages = <
|
||||||
|
item
|
||||||
|
PngImage.Data = {
|
||||||
|
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||||
|
610000000970485973000017120000171201679FD252000000F84944415478DA
|
||||||
|
63FCFFFF3F03084C59BC03C2200072E33C19616C905E46640372623DF06A06AA
|
||||||
|
6198B77413C3F99DD3194936E0DFBF7F0CD396EE62D051576128AAEB031B42B4
|
||||||
|
0120CDBFFFFC6398BD720F43B0A70DC3CD7B2FC0869CDB318D91A00130CDBF7F
|
||||||
|
FF6558B06E3FD80B3040D00064CDBFFF40F0AA6D47C1722083F01A804D3304FF
|
||||||
|
63D8B2EF147E03F06906D13B0F9DC56D0058E16F540D20FC07C607CA1D387911
|
||||||
|
BB01E991AE043583F847CF5EC16E4052881341CD207CEAE275EC06C406D813D4
|
||||||
|
0CC2E7AFDEC26E40848F2D41CD20B12B37EF603720D8C38AA06610C069809F8B
|
||||||
|
39C3A63D2789C994D80D404EA6C400900100F58BBFF09BC1E25C000000004945
|
||||||
|
4E44AE426082}
|
||||||
|
Name = 'PngImage0'
|
||||||
|
Background = clWindow
|
||||||
|
end
|
||||||
|
item
|
||||||
|
PngImage.Data = {
|
||||||
|
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||||
|
61000000097048597300000AEB00000AEB01828B0D5A000002854944415478DA
|
||||||
|
A5935D48536118C7FFAFDB8CCD557E7F34B33167F9119617A91596495D781304
|
||||||
|
451021A651362821B1ABA49B6EA4460961D88542055D84DD6545415992174994
|
||||||
|
9625CC8F9C329D9B5F3BE9CED9D9797BCEA1C932A3A0079EC3CBE13CBFE7FF7F
|
||||||
|
9FF330CE39FE2798FAB80BA4E61559EB2551E67B07279AE8D51FA98F2CC99546
|
||||||
|
031A3D6E5FF329993F631D80B52227A6D7929F9BAEA459D1D73BE8DC3330D6B8
|
||||||
|
1AD206641414DA5A6224E1E8ECA47779660955D532EF642F1371BD74331A14FA
|
||||||
|
9C27A4439F5D88777DAE1B65FD230D11485786B9363D65FD35C1EB4B9817427E
|
||||||
|
9F80C335C05BD53E23B2A934132FB23662B71406C2B14698F38AF0E9EB9473E8
|
||||||
|
E3C8655BD686D6F858A5DA3F27B04511E37E0195B5C0A00AD6003FE5259758F0
|
||||||
|
3AD1843C15125218CCB6AD707FF34EAC93973217041154ECF608D8770E188BD8
|
||||||
|
5A01A8A1DEC5F60CF4980CB0A890E8A47AFFF477EC3F037C8EBE975F006ADC37
|
||||||
|
60A7351E3D061DE222C522A5270047AD82DBAB27B21AC09EDA373525E9A52BCB
|
||||||
|
7E5F4CB4822509BE80848AB3C0C09A806380EE7CA1BDC55EB4CDE17AF2984932
|
||||||
|
75A60CCA088739742A84CE1E49C1010730F41BA03B27CD595C517CB1FFF92B04
|
||||||
|
E6035AF142101DCB12DA743AB413243FA468331D0F01E51780D1154057AAF148
|
||||||
|
D92E7BE794778E8DB92634C901116FA6451CAA27214EC06802AE5227AA839ED2
|
||||||
|
45A0729AC6A406182DD9329C10A7B7F57D18D63A93DF99D92076905F4FB4DF56
|
||||||
|
A08C20ED9476027CD1209C7BD9FBDC947BC1C0E2C9596A4B003E27E2F8E9301E
|
||||||
|
AEB507B700334968A6631D019C759C5F627780822413BA194312CDFB41958C13
|
||||||
|
7FDB4052739000430ECEDD913F313B568F9B8B326AC8F7CCBFAEB27A073F0058
|
||||||
|
5538F0EAB25B380000000049454E44AE426082}
|
||||||
|
Name = 'PngImage1'
|
||||||
|
Background = clWindow
|
||||||
|
end
|
||||||
|
item
|
||||||
|
PngImage.Data = {
|
||||||
|
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||||
|
610000000970485973000017120000171201679FD2520000015D4944415478DA
|
||||||
|
63FCFFFF3F03082CDD7212C22000627C2D1891F98CC80644FB98E3D50C54C3D0
|
||||||
|
3B6521C3F99DD3194936E0DFBF7F0CCBB79D6690161366B04C57058B715C6060
|
||||||
|
24CA0090E6DF7FFE31ACD9759621A4D68281352A97E1F7B2C90C8B2E10E10298
|
||||||
|
E6DFBFFF325C5DC2C1F044E912C39B4B4B19984A3AB17BC171E64DACAEE860D0
|
||||||
|
60D0F399C2F0F2D636868587CC18A41A1A18D218F07801DD669866100E699161
|
||||||
|
10D5F6050726411720DB0CD35CDE369B61DED24DD80DF8FDE72FD856107D6319
|
||||||
|
1786E6ED7B4F311C387911BB01611E260C6E73EF80F9110C1F180C182C18C4D5
|
||||||
|
BC5034830C3E7AF60A7603029D0D212E00FA7DEDAA2B0C2D2D210C6B6A9EA068
|
||||||
|
06E15317AF6337C0C75E8F2160D92330FF4E8B0B838B4B0D985D5CE907D70CC2
|
||||||
|
E7AFDEC26E80BBB50E5CD11FA84B60E181C0FF18AEDCBC83DD0027734D829A41
|
||||||
|
00A701B6C66A0C9BF69C24265362370094D348012003002CB76B52FA97B19500
|
||||||
|
00000049454E44AE426082}
|
||||||
|
Name = 'PngImage2'
|
||||||
|
Background = clWindow
|
||||||
|
end
|
||||||
|
item
|
||||||
|
PngImage.Data = {
|
||||||
|
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||||
|
610000000970485973000017120000171201679FD252000001124944415478DA
|
||||||
|
63FCFFFF3F03258091620340848147C2FF0B3B1630A24B1223CE08E20CAC0B28
|
||||||
|
0A0098010B361C807BE3E7CF5F0C5FBF7D63F8F2ED3B98D65455C62ADE599ACC
|
||||||
|
886240BCBF3D58E19FBFFF18BE7DFFC5F0EDC72F86D6A98B1826D7E760159FD2
|
||||||
|
908B69C0EF3F7F810A7E337C072ABC71FF15C3FC556B1916F69463155FD45B81
|
||||||
|
3060DAF21DFF93835D18BEFF80D8F0FDC71F8647CFDF334C9CB38061E5D446AC
|
||||||
|
E21B66B7220CE89AB3EE7F6AA80754D16F862F409BDE7FFCC6D0D43F8561DDCC
|
||||||
|
76ACE2FB574C4418503771F1FFB4085F86DB0F5EA3847049633BC3C6F97D58C5
|
||||||
|
CF6E9B8730A0A86DE6FF6FC0D0FDF4F90BC3E72F5FA1F417867FFFFE33589818
|
||||||
|
601587A78381CF4C941A00005C20FBD97F751C0A0000000049454E44AE426082}
|
||||||
|
Name = 'PngImage3'
|
||||||
|
Background = clWindow
|
||||||
|
end
|
||||||
|
item
|
||||||
|
PngImage.Data = {
|
||||||
|
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||||
|
610000000970485973000017120000171201679FD252000000DF4944415478DA
|
||||||
|
63FCFFFF3F032580916203600C9E351CFF19FE3130FCFF09A47EFD67F89EFC0B
|
||||||
|
2E67E09180D596F3DBE733220C58C5F17F89572FC3FBAF1F1832D73630FCC8FA
|
||||||
|
CDC84000805CCF886CF314B73A86F7DF3E32546EEC63F8FF0B22F6BBF62FDCA0
|
||||||
|
8482061497CCEFAF676444B619A41946BFF9FC8E61CDBE7D0C7F5AFF32E27501
|
||||||
|
F762F6FF309B9135BF06E20347CE33FCEDF987DF059C73D9FE839CFA1F1870A9
|
||||||
|
56C1709BC181F903283EE53F7E17C0386C5D2CFF838C1DB1DA4C542CB03633FF
|
||||||
|
FFFF8381289BB1BA801880350C48316008BB006F2C509A1B0127B3B6E11C11A1
|
||||||
|
6B0000000049454E44AE426082}
|
||||||
|
Name = 'PngImage4'
|
||||||
|
Background = clWindow
|
||||||
|
end
|
||||||
|
item
|
||||||
|
PngImage.Data = {
|
||||||
|
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||||
|
610000000970485973000017120000171201679FD252000000914944415478DA
|
||||||
|
63FCFFFF3F032580916203885164E09180D596F3DBE733320265C09220E23312
|
||||||
|
FE02C41F80D8158F2520D7430C9838112CF0F7F74F868F4F6F33BC7F7283E1CB
|
||||||
|
EBC70C770E3C6008413220A1A001C525F3FBEB1919FF010D60041A80AE1904CE
|
||||||
|
000D4821E4828F401ADDD91FA1F41F20CE20E4024A6200EC028A63812E2E18F8
|
||||||
|
30187817E0CF0B14E64600B6F869E1FAECCCBE0000000049454E44AE426082}
|
||||||
|
Name = 'PngImage5'
|
||||||
|
Background = clWindow
|
||||||
|
end>
|
||||||
|
Bitmap = {}
|
||||||
|
end
|
||||||
|
inherited ActionListContenido: TActionList
|
||||||
|
inherited actModificar: TAction
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object actExpandir: TAction
|
||||||
|
Category = 'Operaciones'
|
||||||
|
Caption = 'Expandir todo'
|
||||||
|
ImageIndex = 4
|
||||||
|
Visible = False
|
||||||
|
OnExecute = actExpandirExecute
|
||||||
|
OnUpdate = actExpandirUpdate
|
||||||
|
end
|
||||||
|
object actContraer: TAction
|
||||||
|
Category = 'Operaciones'
|
||||||
|
Caption = 'Contraer todo'
|
||||||
|
ImageIndex = 5
|
||||||
|
Visible = False
|
||||||
|
OnExecute = actContraerExecute
|
||||||
|
OnUpdate = actContraerUpdate
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
190
Source/Modulos/Comisiones/Views/uViewFacturasComision.pas
Normal file
190
Source/Modulos/Comisiones/Views/uViewFacturasComision.pas
Normal file
@ -0,0 +1,190 @@
|
|||||||
|
unit uViewFacturasComision;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, uViewDetallesGenerico, cxStyles, cxCustomData, cxGraphics, cxFilter,
|
||||||
|
cxData, cxDataStorage, cxEdit, DB, cxDBData, ActnList, ImgList, PngImageList,
|
||||||
|
uDADataTable, ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView,
|
||||||
|
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
|
||||||
|
cxGrid, cxImageComboBox, cxCurrencyEdit, uDataModuleComisiones,
|
||||||
|
uBizComisiones, uComisionesController, Grids, DBGrids, cxSpinEdit,
|
||||||
|
dxLayoutControl;
|
||||||
|
|
||||||
|
type
|
||||||
|
IViewFacturasComision = interface
|
||||||
|
['{9B698A4C-B38E-4279-918D-2AF64556B1FB}']
|
||||||
|
function GetComision: IBizComisiones;
|
||||||
|
procedure SetComision(const Value: IBizComisiones);
|
||||||
|
property Comision: IBizComisiones read GetComision write SetComision;
|
||||||
|
|
||||||
|
function GetController : IComisionesController;
|
||||||
|
procedure SetController (const Value : IComisionesController);
|
||||||
|
property Controller : IComisionesController read GetController write SetController;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TfrViewFacturasComision = class(TfrViewDetallesGenerico, IViewFacturasComision)
|
||||||
|
cxGridViewRecID: TcxGridDBColumn;
|
||||||
|
cxGridViewID_EMPRESA: TcxGridDBColumn;
|
||||||
|
cxGridViewID_AGENTE: TcxGridDBColumn;
|
||||||
|
cxGridViewAGENTE: TcxGridDBColumn;
|
||||||
|
cxGridViewID_FACTURA: TcxGridDBColumn;
|
||||||
|
cxGridViewID_COMISION_LIQUIDADA: TcxGridDBColumn;
|
||||||
|
cxGridViewFECHA: TcxGridDBColumn;
|
||||||
|
cxGridViewREFERENCIA: TcxGridDBColumn;
|
||||||
|
cxGridViewSITUACION: TcxGridDBColumn;
|
||||||
|
cxGridViewID_CLIENTE: TcxGridDBColumn;
|
||||||
|
cxGridViewCLIENTE: TcxGridDBColumn;
|
||||||
|
cxGridViewID_PROVEEDOR: TcxGridDBColumn;
|
||||||
|
cxGridViewPROVEEDOR: TcxGridDBColumn;
|
||||||
|
cxGridViewCOMISION: TcxGridDBColumn;
|
||||||
|
cxGridViewIMPORTE_COMISIONABLE: TcxGridDBColumn;
|
||||||
|
cxGridViewIMPORTE_COMISION: TcxGridDBColumn;
|
||||||
|
actExpandir: TAction;
|
||||||
|
actContraer: TAction;
|
||||||
|
ToolButton3: TToolButton;
|
||||||
|
ToolButton8: TToolButton;
|
||||||
|
procedure actExpandirExecute(Sender: TObject);
|
||||||
|
procedure actContraerExecute(Sender: TObject);
|
||||||
|
procedure CustomViewShow(Sender: TObject);
|
||||||
|
procedure actEliminarUpdate(Sender: TObject);
|
||||||
|
procedure actExpandirUpdate(Sender: TObject);
|
||||||
|
procedure actContraerUpdate(Sender: TObject);
|
||||||
|
protected
|
||||||
|
FHayCambios : Boolean;
|
||||||
|
FComision : IBizComisiones;
|
||||||
|
FController : IComisionesController;
|
||||||
|
|
||||||
|
procedure AnadirInterno; override;
|
||||||
|
procedure EliminarInterno; override;
|
||||||
|
|
||||||
|
function GetComision: IBizComisiones;
|
||||||
|
procedure SetComision(const Value: IBizComisiones);
|
||||||
|
|
||||||
|
function GetModified: Boolean; override;
|
||||||
|
procedure SetModified(const Value: Boolean); override;
|
||||||
|
|
||||||
|
function GetController : IComisionesController;
|
||||||
|
procedure SetController (const Value : IComisionesController);
|
||||||
|
public
|
||||||
|
constructor Create(AOwner: TComponent); override;
|
||||||
|
destructor Destroy; override;
|
||||||
|
property Comision: IBizComisiones read GetComision write SetComision;
|
||||||
|
property Controller : IComisionesController read GetController write SetController;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
uses
|
||||||
|
uCustomView;
|
||||||
|
|
||||||
|
{ TfrViewFacturasComision }
|
||||||
|
|
||||||
|
procedure TfrViewFacturasComision.actContraerExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
cxGridView.ViewData.Collapse(True);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewFacturasComision.actContraerUpdate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
(Sender as TAction).Enabled := HayDatos;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewFacturasComision.actEliminarUpdate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
(Sender as TAction).Enabled := ((cxGridView.Controller.SelectedRowCount > 0)
|
||||||
|
and (cxGridView.Controller.SelectedRows[0].HasCells));
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewFacturasComision.actExpandirExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
cxGridView.ViewData.Expand(True);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewFacturasComision.actExpandirUpdate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
(Sender as TAction).Enabled := HayDatos;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewFacturasComision.AnadirInterno;
|
||||||
|
begin
|
||||||
|
//inherited; // No hacer el comportamiento normal
|
||||||
|
if FController.ElegirFacturasComision(Comision) then
|
||||||
|
Modified := True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
constructor TfrViewFacturasComision.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
FHayCambios := False;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewFacturasComision.CustomViewShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
cxGridView.OptionsSelection.MultiSelect := False;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TfrViewFacturasComision.Destroy;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewFacturasComision.EliminarInterno;
|
||||||
|
begin
|
||||||
|
if cxGridView.Controller.SelectedRowCount > 0 then
|
||||||
|
if cxGridView.Controller.SelectedRows[0].HasCells then
|
||||||
|
// ViewGrid._FocusedView.Controller.SelectedRecordCount
|
||||||
|
FController.EliminarFactura(Comision);
|
||||||
|
Modified := True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfrViewFacturasComision.GetController: IComisionesController;
|
||||||
|
begin
|
||||||
|
Result := FController;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfrViewFacturasComision.GetModified: Boolean;
|
||||||
|
begin
|
||||||
|
Result := FHayCambios or inherited GetModified;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfrViewFacturasComision.GetComision: IBizComisiones;
|
||||||
|
begin
|
||||||
|
Result := FComision;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewFacturasComision.SetController(
|
||||||
|
const Value: IComisionesController);
|
||||||
|
begin
|
||||||
|
FController := Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewFacturasComision.SetModified(const Value: Boolean);
|
||||||
|
begin
|
||||||
|
FHayCambios := Value;
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewFacturasComision.SetComision(const Value: IBizComisiones);
|
||||||
|
begin
|
||||||
|
FComision := Value;
|
||||||
|
FHayCambios := False;
|
||||||
|
if Assigned(FComision) then
|
||||||
|
dsDetalles.DataTable := FComision.Facturas.DataTable
|
||||||
|
else
|
||||||
|
dsDetalles.DataTable := NIL;
|
||||||
|
|
||||||
|
actAnchoAutomatico.Execute;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
Reference in New Issue
Block a user