Se añade el módulo de comisiones
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@227 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
parent
f92be771c9
commit
68929cc451
204
Source/Modulos/Comisiones/Comisiones_Group.groupproj
Normal file
204
Source/Modulos/Comisiones/Comisiones_Group.groupproj
Normal file
@ -0,0 +1,204 @@
|
|||||||
|
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
|
<PropertyGroup>
|
||||||
|
<ProjectGuid>{3df776bd-a3f8-4f3a-9129-45fdb4a2ee63}</ProjectGuid>
|
||||||
|
</PropertyGroup>
|
||||||
|
<ItemGroup />
|
||||||
|
<ItemGroup>
|
||||||
|
<Projects Include="..\..\ApplicationBase\ApplicationBase.dproj" />
|
||||||
|
<Projects Include="..\..\Base\Base.dproj" />
|
||||||
|
<Projects Include="..\..\Cliente\FactuGES.dproj" />
|
||||||
|
<Projects Include="..\..\GUIBase\GUIBase.dproj" />
|
||||||
|
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
|
||||||
|
<Projects Include="..\Contactos\Controller\Contactos_controller.dproj" />
|
||||||
|
<Projects Include="..\Contactos\Data\Contactos_data.dproj" />
|
||||||
|
<Projects Include="..\Contactos\Model\Contactos_model.dproj" />
|
||||||
|
<Projects Include="..\Contactos\Plugin\Contactos_plugin.dproj" />
|
||||||
|
<Projects Include="..\Contactos\Views\Contactos_view.dproj" />
|
||||||
|
<Projects Include="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" />
|
||||||
|
<Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
|
||||||
|
<Projects Include="..\Remesas de cliente\Views\RemesasCliente_view.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="Contactos_model">
|
||||||
|
<MSBuild Projects="..\Contactos\Model\Contactos_model.dproj" Targets="" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Contactos_model:Clean">
|
||||||
|
<MSBuild Projects="..\Contactos\Model\Contactos_model.dproj" Targets="Clean" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Contactos_model:Make">
|
||||||
|
<MSBuild Projects="..\Contactos\Model\Contactos_model.dproj" Targets="Make" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Contactos_data">
|
||||||
|
<MSBuild Projects="..\Contactos\Data\Contactos_data.dproj" Targets="" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Contactos_data:Clean">
|
||||||
|
<MSBuild Projects="..\Contactos\Data\Contactos_data.dproj" Targets="Clean" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Contactos_data:Make">
|
||||||
|
<MSBuild Projects="..\Contactos\Data\Contactos_data.dproj" Targets="Make" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Contactos_controller">
|
||||||
|
<MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Contactos_controller:Clean">
|
||||||
|
<MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="Clean" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Contactos_controller:Make">
|
||||||
|
<MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="Make" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Contactos_view">
|
||||||
|
<MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Contactos_view:Clean">
|
||||||
|
<MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="Clean" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Contactos_view:Make">
|
||||||
|
<MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="Make" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Contactos_plugin">
|
||||||
|
<MSBuild Projects="..\Contactos\Plugin\Contactos_plugin.dproj" Targets="" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Contactos_plugin:Clean">
|
||||||
|
<MSBuild Projects="..\Contactos\Plugin\Contactos_plugin.dproj" Targets="Clean" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Contactos_plugin:Make">
|
||||||
|
<MSBuild Projects="..\Contactos\Plugin\Contactos_plugin.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="FacturasCliente_controller">
|
||||||
|
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="FacturasCliente_controller:Clean">
|
||||||
|
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="Clean" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="FacturasCliente_controller:Make">
|
||||||
|
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="Make" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="FacturasCliente_view">
|
||||||
|
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="FacturasCliente_view:Clean">
|
||||||
|
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Clean" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="FacturasCliente_view:Make">
|
||||||
|
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Make" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="RemesasCliente_view">
|
||||||
|
<MSBuild Projects="..\Remesas de cliente\Views\RemesasCliente_view.dproj" Targets="" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="RemesasCliente_view:Clean">
|
||||||
|
<MSBuild Projects="..\Remesas de cliente\Views\RemesasCliente_view.dproj" Targets="Clean" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="RemesasCliente_view:Make">
|
||||||
|
<MSBuild Projects="..\Remesas de cliente\Views\RemesasCliente_view.dproj" Targets="Make" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Build">
|
||||||
|
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Contactos_plugin;Comisiones_model;Comisiones_data;Comisiones_controller;Comisiones_view;Comisiones_plugin;FactuGES;FactuGES_Server;FacturasCliente_controller;FacturasCliente_view;RemesasCliente_view" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Clean">
|
||||||
|
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Contactos_plugin:Clean;Comisiones_model:Clean;Comisiones_data:Clean;Comisiones_controller:Clean;Comisiones_view:Clean;Comisiones_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;FacturasCliente_controller:Clean;FacturasCliente_view:Clean;RemesasCliente_view:Clean" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Make">
|
||||||
|
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Contactos_plugin:Make;Comisiones_model:Make;Comisiones_data:Make;Comisiones_controller:Make;Comisiones_view:Make;Comisiones_plugin:Make;FactuGES:Make;FactuGES_Server:Make;FacturasCliente_controller:Make;FacturasCliente_view:Make;RemesasCliente_view:Make" />
|
||||||
|
</Target>
|
||||||
|
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||||
|
</Project>
|
||||||
Binary file not shown.
544
Source/Modulos/Comisiones/Controller/Comisiones_controller.dproj
Normal file
544
Source/Modulos/Comisiones/Controller/Comisiones_controller.dproj
Normal file
@ -0,0 +1,544 @@
|
|||||||
|
<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><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="C:\Documents and Settings\Usuario\Comisiones_data.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\Comisiones_model.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\FacturasCliente_controller.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\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=6006
|
||||||
|
Activate=0
|
||||||
|
Activate Handle=1
|
||||||
|
Save Log File=1
|
||||||
|
Foreground Tab=0
|
||||||
|
Freeze Activate=0
|
||||||
|
Freeze Timeout=60
|
||||||
|
SMTP From=eurekalog@email.com
|
||||||
|
SMTP Host=
|
||||||
|
SMTP Port=25
|
||||||
|
SMTP UserID=
|
||||||
|
SMTP Password=
|
||||||
|
Append to Log=0
|
||||||
|
TerminateBtn Operation=2
|
||||||
|
Errors Number=32
|
||||||
|
Errors Terminate=3
|
||||||
|
Email Address=
|
||||||
|
Email Object=
|
||||||
|
Email Send Options=0
|
||||||
|
Output Path=
|
||||||
|
Encrypt Password=
|
||||||
|
AutoCloseDialogSecs=0
|
||||||
|
WebSendMode=0
|
||||||
|
SupportULR=
|
||||||
|
HTMLLayout Count=15
|
||||||
|
HTMLLine0="%3Chtml%3E"
|
||||||
|
HTMLLine1=" %3Chead%3E"
|
||||||
|
HTMLLine2=" %3C/head%3E"
|
||||||
|
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
|
||||||
|
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
|
||||||
|
HTMLLine5=" %3Ctr%3E"
|
||||||
|
HTMLLine6=" %3Ctd nowrap%3E"
|
||||||
|
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
|
||||||
|
HTMLLine8=" %3C%%HTML_TAG%%%3E"
|
||||||
|
HTMLLine9=" %3C/font%3E"
|
||||||
|
HTMLLine10=" %3C/td%3E"
|
||||||
|
HTMLLine11=" %3C/tr%3E"
|
||||||
|
HTMLLine12=" %3C/table%3E"
|
||||||
|
HTMLLine13=" %3C/body%3E"
|
||||||
|
HTMLLine14="%3C/html%3E"
|
||||||
|
AutoCrashOperation=2
|
||||||
|
AutoCrashNumber=10
|
||||||
|
AutoCrashMinutes=1
|
||||||
|
WebURL=
|
||||||
|
WebUserID=
|
||||||
|
WebPassword=
|
||||||
|
WebPort=0
|
||||||
|
AttachedFiles=
|
||||||
|
ProxyURL=
|
||||||
|
ProxyUser=
|
||||||
|
ProxyPassword=
|
||||||
|
ProxyPort=8080
|
||||||
|
TrakerUser=
|
||||||
|
TrakerPassword=
|
||||||
|
TrakerAssignTo=
|
||||||
|
TrakerProject=
|
||||||
|
TrakerCategory=
|
||||||
|
TrakerTrialID=
|
||||||
|
ZipPassword=
|
||||||
|
PreBuildEvent=
|
||||||
|
PostSuccessfulBuildEvent=
|
||||||
|
PostFailureBuildEvent=
|
||||||
|
ExceptionDialogType=2
|
||||||
|
Count=0
|
||||||
|
EMail Message Line Count=0
|
||||||
|
loNoDuplicateErrors=0
|
||||||
|
loAppendReproduceText=0
|
||||||
|
loDeleteLogAtVersionChange=0
|
||||||
|
loAddComputerNameInLogFileName=0
|
||||||
|
loSaveModulesAndProcessesSections=1
|
||||||
|
loSaveAssemblerAndCPUSections=1
|
||||||
|
soAppStartDate=1
|
||||||
|
soAppName=1
|
||||||
|
soAppVersionNumber=1
|
||||||
|
soAppParameters=1
|
||||||
|
soAppCompilationDate=1
|
||||||
|
soAppUpTime=1
|
||||||
|
soExcDate=1
|
||||||
|
soExcAddress=1
|
||||||
|
soExcModuleName=1
|
||||||
|
soExcModuleVersion=1
|
||||||
|
soExcType=1
|
||||||
|
soExcMessage=1
|
||||||
|
soExcID=1
|
||||||
|
soExcCount=1
|
||||||
|
soExcStatus=1
|
||||||
|
soExcNote=1
|
||||||
|
soUserID=1
|
||||||
|
soUserName=1
|
||||||
|
soUserEmail=1
|
||||||
|
soUserPrivileges=1
|
||||||
|
soUserCompany=1
|
||||||
|
soActCtlsFormClass=1
|
||||||
|
soActCtlsFormText=1
|
||||||
|
soActCtlsControlClass=1
|
||||||
|
soActCtlsControlText=1
|
||||||
|
soCmpName=1
|
||||||
|
soCmpTotalMemory=1
|
||||||
|
soCmpFreeMemory=1
|
||||||
|
soCmpTotalDisk=1
|
||||||
|
soCmpFreeDisk=1
|
||||||
|
soCmpSysUpTime=1
|
||||||
|
soCmpProcessor=1
|
||||||
|
soCmpDisplayMode=1
|
||||||
|
soCmpDisplayDPI=1
|
||||||
|
soCmpVideoCard=1
|
||||||
|
soCmpPrinter=1
|
||||||
|
soOSType=1
|
||||||
|
soOSBuildN=1
|
||||||
|
soOSUpdate=1
|
||||||
|
soOSLanguage=1
|
||||||
|
soOSCharset=1
|
||||||
|
soNetIP=1
|
||||||
|
soNetSubmask=1
|
||||||
|
soNetGateway=1
|
||||||
|
soNetDNS1=1
|
||||||
|
soNetDNS2=1
|
||||||
|
soNetDHCP=1
|
||||||
|
soCustomData=1
|
||||||
|
sndShowSendDialog=1
|
||||||
|
sndShowSuccessFailureMsg=0
|
||||||
|
sndSendEntireLog=0
|
||||||
|
sndSendXMLLogCopy=0
|
||||||
|
sndSendScreenshot=1
|
||||||
|
sndUseOnlyActiveWindow=0
|
||||||
|
sndSendLastHTMLPage=1
|
||||||
|
sndSendInSeparatedThread=0
|
||||||
|
sndAddDateInFileName=0
|
||||||
|
sndAddComputerNameInFileName=0
|
||||||
|
edoSendErrorReportChecked=1
|
||||||
|
edoAttachScreenshotChecked=1
|
||||||
|
edoShowCopyToClipOption=1
|
||||||
|
edoShowDetailsButton=1
|
||||||
|
edoShowInDetailedMode=0
|
||||||
|
edoShowInTopMostMode=0
|
||||||
|
edoUseEurekaLogLookAndFeel=0
|
||||||
|
edoShowSendErrorReportOption=1
|
||||||
|
edoShowAttachScreenshotOption=1
|
||||||
|
edoShowCustomButton=0
|
||||||
|
csoShowDLLs=1
|
||||||
|
csoShowBPLs=1
|
||||||
|
csoShowBorlandThreads=1
|
||||||
|
csoShowWindowsThreads=1
|
||||||
|
csoDoNotStoreProcNames=0
|
||||||
|
boPauseBorlandThreads=0
|
||||||
|
boDoNotPauseMainThread=0
|
||||||
|
boPauseWindowsThreads=0
|
||||||
|
boUseMainModuleOptions=1
|
||||||
|
boCopyLogInCaseOfError=1
|
||||||
|
boSaveCompressedCopyInCaseOfError=0
|
||||||
|
boHandleSafeCallExceptions=1
|
||||||
|
boCallRTLExceptionEvent=0
|
||||||
|
boCatchHandledExceptions=0
|
||||||
|
loCatchLeaks=0
|
||||||
|
loGroupsSonLeaks=1
|
||||||
|
loHideBorlandLeaks=1
|
||||||
|
loFreeAllLeaks=1
|
||||||
|
loCatchLeaksExceptions=1
|
||||||
|
cfoReduceFileSize=1
|
||||||
|
cfoCheckFileCorruption=0
|
||||||
|
Count mtInformationMsgCaption=1
|
||||||
|
mtInformationMsgCaption0="Information."
|
||||||
|
Count mtQuestionMsgCaption=1
|
||||||
|
mtQuestionMsgCaption0="Question."
|
||||||
|
Count mtErrorMsgCaption=1
|
||||||
|
mtErrorMsgCaption0="Error."
|
||||||
|
Count mtDialog_Caption=1
|
||||||
|
mtDialog_Caption0="Error occurred"
|
||||||
|
Count mtDialog_ErrorMsgCaption=2
|
||||||
|
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
|
||||||
|
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
|
||||||
|
Count mtDialog_GeneralCaption=1
|
||||||
|
mtDialog_GeneralCaption0="General"
|
||||||
|
Count mtDialog_GeneralHeader=1
|
||||||
|
mtDialog_GeneralHeader0="General Information"
|
||||||
|
Count mtDialog_CallStackCaption=1
|
||||||
|
mtDialog_CallStackCaption0="Call Stack"
|
||||||
|
Count mtDialog_CallStackHeader=1
|
||||||
|
mtDialog_CallStackHeader0="Call Stack Information"
|
||||||
|
Count mtDialog_ModulesCaption=1
|
||||||
|
mtDialog_ModulesCaption0="Modules"
|
||||||
|
Count mtDialog_ModulesHeader=1
|
||||||
|
mtDialog_ModulesHeader0="Modules Information"
|
||||||
|
Count mtDialog_ProcessesCaption=1
|
||||||
|
mtDialog_ProcessesCaption0="Processes"
|
||||||
|
Count mtDialog_ProcessesHeader=1
|
||||||
|
mtDialog_ProcessesHeader0="Processes Information"
|
||||||
|
Count mtDialog_AsmCaption=1
|
||||||
|
mtDialog_AsmCaption0="Assembler"
|
||||||
|
Count mtDialog_AsmHeader=1
|
||||||
|
mtDialog_AsmHeader0="Assembler Information"
|
||||||
|
Count mtDialog_CPUCaption=1
|
||||||
|
mtDialog_CPUCaption0="CPU"
|
||||||
|
Count mtDialog_CPUHeader=1
|
||||||
|
mtDialog_CPUHeader0="CPU Information"
|
||||||
|
Count mtDialog_OKButtonCaption=1
|
||||||
|
mtDialog_OKButtonCaption0="%26OK"
|
||||||
|
Count mtDialog_TerminateButtonCaption=1
|
||||||
|
mtDialog_TerminateButtonCaption0="%26Terminate"
|
||||||
|
Count mtDialog_RestartButtonCaption=1
|
||||||
|
mtDialog_RestartButtonCaption0="%26Restart"
|
||||||
|
Count mtDialog_DetailsButtonCaption=1
|
||||||
|
mtDialog_DetailsButtonCaption0="%26Details"
|
||||||
|
Count mtDialog_CustomButtonCaption=1
|
||||||
|
mtDialog_CustomButtonCaption0="%26Help"
|
||||||
|
Count mtDialog_SendMessage=1
|
||||||
|
mtDialog_SendMessage0="%26Send this error via Internet"
|
||||||
|
Count mtDialog_ScreenshotMessage=1
|
||||||
|
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
|
||||||
|
Count mtDialog_CopyMessage=1
|
||||||
|
mtDialog_CopyMessage0="%26Copy to Clipboard"
|
||||||
|
Count mtDialog_SupportMessage=1
|
||||||
|
mtDialog_SupportMessage0="Go to the Support Page"
|
||||||
|
Count mtMSDialog_ErrorMsgCaption=1
|
||||||
|
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
|
||||||
|
Count mtMSDialog_RestartCaption=1
|
||||||
|
mtMSDialog_RestartCaption0="Restart application."
|
||||||
|
Count mtMSDialog_TerminateCaption=1
|
||||||
|
mtMSDialog_TerminateCaption0="Terminate application."
|
||||||
|
Count mtMSDialog_PleaseCaption=1
|
||||||
|
mtMSDialog_PleaseCaption0="Please tell us about this problem."
|
||||||
|
Count mtMSDialog_DescriptionCaption=1
|
||||||
|
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
|
||||||
|
Count mtMSDialog_SeeDetailsCaption=1
|
||||||
|
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
|
||||||
|
Count mtMSDialog_SeeClickCaption=1
|
||||||
|
mtMSDialog_SeeClickCaption0="click here."
|
||||||
|
Count mtMSDialog_HowToReproduceCaption=1
|
||||||
|
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happended (optional)?"
|
||||||
|
Count mtMSDialog_EmailCaption=1
|
||||||
|
mtMSDialog_EmailCaption0="Email address (optional):"
|
||||||
|
Count mtMSDialog_SendButtonCaption=1
|
||||||
|
mtMSDialog_SendButtonCaption0="%26Send Error Report"
|
||||||
|
Count mtMSDialog_NoSendButtonCaption=1
|
||||||
|
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
|
||||||
|
Count mtLog_AppHeader=1
|
||||||
|
mtLog_AppHeader0="Application"
|
||||||
|
Count mtLog_AppStartDate=1
|
||||||
|
mtLog_AppStartDate0="Start Date"
|
||||||
|
Count mtLog_AppName=1
|
||||||
|
mtLog_AppName0="Name/Description"
|
||||||
|
Count mtLog_AppVersionNumber=1
|
||||||
|
mtLog_AppVersionNumber0="Version Number"
|
||||||
|
Count mtLog_AppParameters=1
|
||||||
|
mtLog_AppParameters0="Parameters"
|
||||||
|
Count mtLog_AppCompilationDate=1
|
||||||
|
mtLog_AppCompilationDate0="Compilation Date"
|
||||||
|
Count mtLog_AppUpTime=1
|
||||||
|
mtLog_AppUpTime0="Up Time"
|
||||||
|
Count mtLog_ExcHeader=1
|
||||||
|
mtLog_ExcHeader0="Exception"
|
||||||
|
Count mtLog_ExcDate=1
|
||||||
|
mtLog_ExcDate0="Date"
|
||||||
|
Count mtLog_ExcAddress=1
|
||||||
|
mtLog_ExcAddress0="Address"
|
||||||
|
Count mtLog_ExcModuleName=1
|
||||||
|
mtLog_ExcModuleName0="Module Name"
|
||||||
|
Count mtLog_ExcModuleVersion=1
|
||||||
|
mtLog_ExcModuleVersion0="Module Version"
|
||||||
|
Count mtLog_ExcType=1
|
||||||
|
mtLog_ExcType0="Type"
|
||||||
|
Count mtLog_ExcMessage=1
|
||||||
|
mtLog_ExcMessage0="Message"
|
||||||
|
Count mtLog_ExcID=1
|
||||||
|
mtLog_ExcID0="ID"
|
||||||
|
Count mtLog_ExcCount=1
|
||||||
|
mtLog_ExcCount0="Count"
|
||||||
|
Count mtLog_ExcStatus=1
|
||||||
|
mtLog_ExcStatus0="Status"
|
||||||
|
Count mtLog_ExcNote=1
|
||||||
|
mtLog_ExcNote0="Note"
|
||||||
|
Count mtLog_UserHeader=1
|
||||||
|
mtLog_UserHeader0="User"
|
||||||
|
Count mtLog_UserID=1
|
||||||
|
mtLog_UserID0="ID"
|
||||||
|
Count mtLog_UserName=1
|
||||||
|
mtLog_UserName0="Name"
|
||||||
|
Count mtLog_UserEmail=1
|
||||||
|
mtLog_UserEmail0="Email"
|
||||||
|
Count mtLog_UserCompany=1
|
||||||
|
mtLog_UserCompany0="Company"
|
||||||
|
Count mtLog_UserPrivileges=1
|
||||||
|
mtLog_UserPrivileges0="Privileges"
|
||||||
|
Count mtLog_ActCtrlsHeader=1
|
||||||
|
mtLog_ActCtrlsHeader0="Active Controls"
|
||||||
|
Count mtLog_ActCtrlsFormClass=1
|
||||||
|
mtLog_ActCtrlsFormClass0="Form Class"
|
||||||
|
Count mtLog_ActCtrlsFormText=1
|
||||||
|
mtLog_ActCtrlsFormText0="Form Text"
|
||||||
|
Count mtLog_ActCtrlsControlClass=1
|
||||||
|
mtLog_ActCtrlsControlClass0="Control Class"
|
||||||
|
Count mtLog_ActCtrlsControlText=1
|
||||||
|
mtLog_ActCtrlsControlText0="Control Text"
|
||||||
|
Count mtLog_CmpHeader=1
|
||||||
|
mtLog_CmpHeader0="Computer"
|
||||||
|
Count mtLog_CmpName=1
|
||||||
|
mtLog_CmpName0="Name"
|
||||||
|
Count mtLog_CmpTotalMemory=1
|
||||||
|
mtLog_CmpTotalMemory0="Total Memory"
|
||||||
|
Count mtLog_CmpFreeMemory=1
|
||||||
|
mtLog_CmpFreeMemory0="Free Memory"
|
||||||
|
Count mtLog_CmpTotalDisk=1
|
||||||
|
mtLog_CmpTotalDisk0="Total Disk"
|
||||||
|
Count mtLog_CmpFreeDisk=1
|
||||||
|
mtLog_CmpFreeDisk0="Free Disk"
|
||||||
|
Count mtLog_CmpSystemUpTime=1
|
||||||
|
mtLog_CmpSystemUpTime0="System Up Time"
|
||||||
|
Count mtLog_CmpProcessor=1
|
||||||
|
mtLog_CmpProcessor0="Processor"
|
||||||
|
Count mtLog_CmpDisplayMode=1
|
||||||
|
mtLog_CmpDisplayMode0="Display Mode"
|
||||||
|
Count mtLog_CmpDisplayDPI=1
|
||||||
|
mtLog_CmpDisplayDPI0="Display DPI"
|
||||||
|
Count mtLog_CmpVideoCard=1
|
||||||
|
mtLog_CmpVideoCard0="Video Card"
|
||||||
|
Count mtLog_CmpPrinter=1
|
||||||
|
mtLog_CmpPrinter0="Printer"
|
||||||
|
Count mtLog_OSHeader=1
|
||||||
|
mtLog_OSHeader0="Operating System"
|
||||||
|
Count mtLog_OSType=1
|
||||||
|
mtLog_OSType0="Type"
|
||||||
|
Count mtLog_OSBuildN=1
|
||||||
|
mtLog_OSBuildN0="Build #"
|
||||||
|
Count mtLog_OSUpdate=1
|
||||||
|
mtLog_OSUpdate0="Update"
|
||||||
|
Count mtLog_OSLanguage=1
|
||||||
|
mtLog_OSLanguage0="Language"
|
||||||
|
Count mtLog_OSCharset=1
|
||||||
|
mtLog_OSCharset0="Charset"
|
||||||
|
Count mtLog_NetHeader=1
|
||||||
|
mtLog_NetHeader0="Network"
|
||||||
|
Count mtLog_NetIP=1
|
||||||
|
mtLog_NetIP0="IP Address"
|
||||||
|
Count mtLog_NetSubmask=1
|
||||||
|
mtLog_NetSubmask0="Submask"
|
||||||
|
Count mtLog_NetGateway=1
|
||||||
|
mtLog_NetGateway0="Gateway"
|
||||||
|
Count mtLog_NetDNS1=1
|
||||||
|
mtLog_NetDNS10="DNS 1"
|
||||||
|
Count mtLog_NetDNS2=1
|
||||||
|
mtLog_NetDNS20="DNS 2"
|
||||||
|
Count mtLog_NetDHCP=1
|
||||||
|
mtLog_NetDHCP0="DHCP"
|
||||||
|
Count mtLog_CustInfoHeader=1
|
||||||
|
mtLog_CustInfoHeader0="Custom Information"
|
||||||
|
Count mtCallStack_Address=1
|
||||||
|
mtCallStack_Address0="Address"
|
||||||
|
Count mtCallStack_Name=1
|
||||||
|
mtCallStack_Name0="Module"
|
||||||
|
Count mtCallStack_Unit=1
|
||||||
|
mtCallStack_Unit0="Unit"
|
||||||
|
Count mtCallStack_Class=1
|
||||||
|
mtCallStack_Class0="Class"
|
||||||
|
Count mtCallStack_Procedure=1
|
||||||
|
mtCallStack_Procedure0="Procedure/Method"
|
||||||
|
Count mtCallStack_Line=1
|
||||||
|
mtCallStack_Line0="Line"
|
||||||
|
Count mtCallStack_MainThread=1
|
||||||
|
mtCallStack_MainThread0="Main"
|
||||||
|
Count mtCallStack_ExceptionThread=1
|
||||||
|
mtCallStack_ExceptionThread0="Exception Thread"
|
||||||
|
Count mtCallStack_RunningThread=1
|
||||||
|
mtCallStack_RunningThread0="Running Thread"
|
||||||
|
Count mtCallStack_CallingThread=1
|
||||||
|
mtCallStack_CallingThread0="Calling Thread"
|
||||||
|
Count mtCallStack_ThreadID=1
|
||||||
|
mtCallStack_ThreadID0="ID"
|
||||||
|
Count mtCallStack_ThreadPriority=1
|
||||||
|
mtCallStack_ThreadPriority0="Priority"
|
||||||
|
Count mtCallStack_ThreadClass=1
|
||||||
|
mtCallStack_ThreadClass0="Class"
|
||||||
|
Count mtCallStack_LeakCaption=1
|
||||||
|
mtCallStack_LeakCaption0="Memory Leak"
|
||||||
|
Count mtCallStack_LeakData=1
|
||||||
|
mtCallStack_LeakData0="Data"
|
||||||
|
Count mtCallStack_LeakType=1
|
||||||
|
mtCallStack_LeakType0="Type"
|
||||||
|
Count mtCallStack_LeakSize=1
|
||||||
|
mtCallStack_LeakSize0="Total size"
|
||||||
|
Count mtCallStack_LeakCount=1
|
||||||
|
mtCallStack_LeakCount0="Count"
|
||||||
|
Count mtSendDialog_Caption=1
|
||||||
|
mtSendDialog_Caption0="Send."
|
||||||
|
Count mtSendDialog_Message=1
|
||||||
|
mtSendDialog_Message0="Message"
|
||||||
|
Count mtSendDialog_Resolving=1
|
||||||
|
mtSendDialog_Resolving0="Resolving DNS..."
|
||||||
|
Count mtSendDialog_Login=1
|
||||||
|
mtSendDialog_Login0="Login..."
|
||||||
|
Count mtSendDialog_Connecting=1
|
||||||
|
mtSendDialog_Connecting0="Connecting with server..."
|
||||||
|
Count mtSendDialog_Connected=1
|
||||||
|
mtSendDialog_Connected0="Connected with server."
|
||||||
|
Count mtSendDialog_Sending=1
|
||||||
|
mtSendDialog_Sending0="Sending message..."
|
||||||
|
Count mtSendDialog_Sent=1
|
||||||
|
mtSendDialog_Sent0="Message sent."
|
||||||
|
Count mtSendDialog_SelectProject=1
|
||||||
|
mtSendDialog_SelectProject0="Select project..."
|
||||||
|
Count mtSendDialog_Searching=1
|
||||||
|
mtSendDialog_Searching0="Searching..."
|
||||||
|
Count mtSendDialog_Modifying=1
|
||||||
|
mtSendDialog_Modifying0="Modifying..."
|
||||||
|
Count mtSendDialog_Disconnecting=1
|
||||||
|
mtSendDialog_Disconnecting0="Disconnecting..."
|
||||||
|
Count mtSendDialog_Disconnected=1
|
||||||
|
mtSendDialog_Disconnected0="Disconnected."
|
||||||
|
Count mtReproduceDialog_Caption=1
|
||||||
|
mtReproduceDialog_Caption0="Request"
|
||||||
|
Count mtReproduceDialog_Request=1
|
||||||
|
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
|
||||||
|
Count mtReproduceDialog_OKButtonCaption=1
|
||||||
|
mtReproduceDialog_OKButtonCaption0="%26OK"
|
||||||
|
Count mtModules_Handle=1
|
||||||
|
mtModules_Handle0="Handle"
|
||||||
|
Count mtModules_Name=1
|
||||||
|
mtModules_Name0="Name"
|
||||||
|
Count mtModules_Description=1
|
||||||
|
mtModules_Description0="Description"
|
||||||
|
Count mtModules_Version=1
|
||||||
|
mtModules_Version0="Version"
|
||||||
|
Count mtModules_Size=1
|
||||||
|
mtModules_Size0="Size"
|
||||||
|
Count mtModules_LastModified=1
|
||||||
|
mtModules_LastModified0="Modified"
|
||||||
|
Count mtModules_Path=1
|
||||||
|
mtModules_Path0="Path"
|
||||||
|
Count mtProcesses_ID=1
|
||||||
|
mtProcesses_ID0="ID"
|
||||||
|
Count mtProcesses_Name=1
|
||||||
|
mtProcesses_Name0="Name"
|
||||||
|
Count mtProcesses_Description=1
|
||||||
|
mtProcesses_Description0="Description"
|
||||||
|
Count mtProcesses_Version=1
|
||||||
|
mtProcesses_Version0="Version"
|
||||||
|
Count mtProcesses_Memory=1
|
||||||
|
mtProcesses_Memory0="Memory"
|
||||||
|
Count mtProcesses_Priority=1
|
||||||
|
mtProcesses_Priority0="Priority"
|
||||||
|
Count mtProcesses_Threads=1
|
||||||
|
mtProcesses_Threads0="Threads"
|
||||||
|
Count mtProcesses_Path=1
|
||||||
|
mtProcesses_Path0="Path"
|
||||||
|
Count mtCPU_Registers=1
|
||||||
|
mtCPU_Registers0="Registers"
|
||||||
|
Count mtCPU_Stack=1
|
||||||
|
mtCPU_Stack0="Stack"
|
||||||
|
Count mtCPU_MemoryDump=1
|
||||||
|
mtCPU_MemoryDump0="Memory Dump"
|
||||||
|
Count mtSend_SuccessMsg=1
|
||||||
|
mtSend_SuccessMsg0="The message was sent successfully."
|
||||||
|
Count mtSend_FailureMsg=1
|
||||||
|
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
||||||
|
Count mtSend_BugClosedMsg=2
|
||||||
|
mtSend_BugClosedMsg0="These BUG is just closed."
|
||||||
|
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
|
||||||
|
Count mtSend_UnknownErrorMsg=1
|
||||||
|
mtSend_UnknownErrorMsg0="Unknown error."
|
||||||
|
Count mtSend_InvalidLoginMsg=1
|
||||||
|
mtSend_InvalidLoginMsg0="Invalid login request."
|
||||||
|
Count mtSend_InvalidSearchMsg=1
|
||||||
|
mtSend_InvalidSearchMsg0="Invalid search request."
|
||||||
|
Count mtSend_InvalidSelectionMsg=1
|
||||||
|
mtSend_InvalidSelectionMsg0="Invalid selection request."
|
||||||
|
Count mtSend_InvalidInsertMsg=1
|
||||||
|
mtSend_InvalidInsertMsg0="Invalid insert request."
|
||||||
|
Count mtSend_InvalidModifyMsg=1
|
||||||
|
mtSend_InvalidModifyMsg0="Invalid modify request."
|
||||||
|
Count mtFileCrackedMsg=2
|
||||||
|
mtFileCrackedMsg0="This file is cracked."
|
||||||
|
mtFileCrackedMsg1="The application will be closed."
|
||||||
|
Count mtException_LeakMultiFree=1
|
||||||
|
mtException_LeakMultiFree0="Multi Free memory leak."
|
||||||
|
Count mtException_LeakMemoryOverrun=1
|
||||||
|
mtException_LeakMemoryOverrun0="Memory Overrun leak."
|
||||||
|
Count mtException_AntiFreeze=1
|
||||||
|
mtException_AntiFreeze0="The application seems to be frozen."
|
||||||
|
Count mtInvalidEmailMsg=1
|
||||||
|
mtInvalidEmailMsg0="Invalid email."
|
||||||
|
TextsCollection=English
|
||||||
|
EurekaLog Last Line -->
|
||||||
@ -0,0 +1,22 @@
|
|||||||
|
1 VERSIONINFO
|
||||||
|
FILEVERSION 1,0,0,0
|
||||||
|
PRODUCTVERSION 1,0,0,0
|
||||||
|
FILEFLAGSMASK 0x3FL
|
||||||
|
FILEFLAGS 0x00L
|
||||||
|
FILEOS 0x40004L
|
||||||
|
FILETYPE 0x1L
|
||||||
|
FILESUBTYPE 0x0L
|
||||||
|
BEGIN
|
||||||
|
BLOCK "StringFileInfo"
|
||||||
|
BEGIN
|
||||||
|
BLOCK "0C0A04E4"
|
||||||
|
BEGIN
|
||||||
|
VALUE "FileVersion", "1.0.0.0\0"
|
||||||
|
VALUE "ProductVersion", "1.0.0.0\0"
|
||||||
|
END
|
||||||
|
END
|
||||||
|
BLOCK "VarFileInfo"
|
||||||
|
BEGIN
|
||||||
|
VALUE "Translation", 0x0C0A, 1252
|
||||||
|
END
|
||||||
|
END
|
||||||
Binary file not shown.
@ -3,14 +3,11 @@ unit uIEditorComisionesPreview;
|
|||||||
interface
|
interface
|
||||||
|
|
||||||
uses
|
uses
|
||||||
uEditorPreview, uIDataModuleComisionesReport;
|
uEditorPreview;
|
||||||
|
|
||||||
type
|
type
|
||||||
IEditorComisionesPreview = interface(IEditorPreview)
|
IEditorComisionesPreview = interface(IEditorPreview)
|
||||||
['{A0E45AC5-503B-4FB6-8BCA-714B6DE2358A}']
|
['{A0E45AC5-503B-4FB6-8BCA-714B6DE2358A}']
|
||||||
function GetDataModule : IDataModuleComisionesReport;
|
|
||||||
procedure SetDataModule (const Value : IDataModuleComisionesReport);
|
|
||||||
property DataModule : IDataModuleComisionesReport read GetDataModule write SetDataModule;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@ -5,43 +5,42 @@ interface
|
|||||||
|
|
||||||
uses
|
uses
|
||||||
Classes, SysUtils, uDADataTable, uControllerBase, uEditorDBItem,
|
Classes, SysUtils, uDADataTable, uControllerBase, uEditorDBItem,
|
||||||
uIDataModuleComisiones, uBizComisiones, uFacturasClienteController, uBizFacturasCliente;
|
uIDataModuleComisiones, uBizComisiones; //, uFacturasClienteController, uBizFacturasCliente;
|
||||||
|
|
||||||
type
|
type
|
||||||
IComisionesController = interface(IObservador)
|
IComisionesController = interface(IObservador)
|
||||||
['{0C281A5D-9DF9-46BD-99CB-1150A536EFA1}']
|
['{0C281A5D-9DF9-46BD-99CB-1150A536EFA1}']
|
||||||
function BuscarTodos: IBizComisiones;
|
function BuscarTodos: IBizComisiones;
|
||||||
|
function Buscar(const ID: Integer): IBizComisiones;
|
||||||
procedure VerTodos(AComision: IBizComisiones);
|
procedure VerTodos(AComision: IBizComisiones);
|
||||||
procedure Ver(AComision: IBizComisiones);
|
procedure Ver(AComision: IBizComisiones);
|
||||||
function Anadir(AComision : IBizComisiones): Boolean;
|
function Anadir(AComision : IBizComisiones): Boolean;
|
||||||
function Eliminar(AComision : IBizComisiones): Boolean;
|
function Eliminar(AComision : IBizComisiones): Boolean;
|
||||||
function Guardar(AComision : IBizComisiones): Boolean;
|
function Guardar(AComision : IBizComisiones): Boolean;
|
||||||
procedure DescartarCambios(AComision : IBizComisiones);
|
procedure Preview(AComision : IBizComisiones; AllItems: Boolean = false);
|
||||||
procedure Preview(AComision : IBizComisiones; const DesglosadoProv: Boolean);
|
procedure Print(AComision : IBizComisiones; AllItems: Boolean = false);
|
||||||
procedure Print(AComision : IBizComisiones; const DesglosadoProv: Boolean);
|
function ExtraerSeleccionados(AComisiones: IBizComisiones) : IBizComisiones;
|
||||||
|
|
||||||
function ElegirFacturasComision(AComision : IBizComisiones): Boolean;
|
function ElegirFacturasComision(AComision : IBizComisiones): Boolean;
|
||||||
procedure EliminarFactura(AComision : IBizComisiones);
|
function ElegirVendedoresComision(AComision : IBizComisiones): Boolean;
|
||||||
|
procedure RecalcularComisiones(AComision : IBizComisiones; Const ImporteTotal: Variant);
|
||||||
procedure AsignarImporteTotal(AComision : IBizComisiones; Const ImporteTotal: Variant);
|
procedure AsignarImporteTotal(AComision : IBizComisiones; Const ImporteTotal: Variant);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
TComisionesController = class(TObservador, IComisionesController)
|
TComisionesController = class(TObservador, IComisionesController)
|
||||||
private
|
private
|
||||||
function BuscarFacturasDesglosadas(AFacturas: IBizFacturaCliente): IBizFacturasComision;
|
// function BuscarFacturasDesglosadas(AFacturas: IBizFacturaCliente): IBizFacturasComision;
|
||||||
// procedure QuitarExistentes(AFacturas: IBizFacturaCliente; AFacturasComision: IBizFacturasComision);
|
// procedure QuitarExistentes(AFacturas: IBizFacturaCliente; AFacturasComision: IBizFacturasComision);
|
||||||
|
|
||||||
|
procedure FiltrarEmpresa(AComisiones: IBizComisiones);
|
||||||
|
|
||||||
protected
|
protected
|
||||||
FDataModule : IDataModuleComisiones;
|
FDataModule : IDataModuleComisiones;
|
||||||
FFacturasClienteController: IFacturasClienteController;
|
// FFacturasClienteController: IFacturasClienteController;
|
||||||
|
|
||||||
procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
|
procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
|
||||||
function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;
|
function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;
|
||||||
|
|
||||||
function ValidarComision(AComision: IBizComisiones): 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étodos a sobre escribir si se desea heredar toda la logica de
|
|
||||||
//este controller
|
|
||||||
procedure AsignarDataModule; virtual;
|
procedure AsignarDataModule; virtual;
|
||||||
|
|
||||||
public
|
public
|
||||||
@ -50,15 +49,17 @@ type
|
|||||||
|
|
||||||
function Eliminar(AComision : IBizComisiones): Boolean;
|
function Eliminar(AComision : IBizComisiones): Boolean;
|
||||||
function Guardar(AComision : IBizComisiones): Boolean;
|
function Guardar(AComision : IBizComisiones): Boolean;
|
||||||
procedure DescartarCambios(AComision : IBizComisiones);
|
|
||||||
function Anadir(AComision : IBizComisiones): Boolean;
|
function Anadir(AComision : IBizComisiones): Boolean;
|
||||||
function BuscarTodos: IBizComisiones;
|
function BuscarTodos: IBizComisiones;
|
||||||
|
function Buscar(const ID: Integer): IBizComisiones;
|
||||||
procedure VerTodos(AComision: IBizComisiones);
|
procedure VerTodos(AComision: IBizComisiones);
|
||||||
procedure Ver(AComision: IBizComisiones);
|
procedure Ver(AComision: IBizComisiones);
|
||||||
procedure Preview(AComision : IBizComisiones; const DesglosadoProv: Boolean);
|
procedure Preview(AComision : IBizComisiones; AllItems: Boolean = false);
|
||||||
procedure Print(AComision : IBizComisiones; const DesglosadoProv: Boolean);
|
procedure Print(AComision : IBizComisiones; AllItems: Boolean = false);
|
||||||
|
function ExtraerSeleccionados(AComisiones: IBizComisiones) : IBizComisiones;
|
||||||
function ElegirFacturasComision(AComision : IBizComisiones): Boolean;
|
function ElegirFacturasComision(AComision : IBizComisiones): Boolean;
|
||||||
procedure EliminarFactura(AComision : IBizComisiones);
|
function ElegirVendedoresComision(AComision : IBizComisiones): Boolean;
|
||||||
|
procedure RecalcularComisiones(AComision : IBizComisiones; Const ImporteTotal: Variant);
|
||||||
procedure AsignarImporteTotal(AComision : IBizComisiones; Const ImporteTotal: Variant);
|
procedure AsignarImporteTotal(AComision : IBizComisiones; Const ImporteTotal: Variant);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -66,9 +67,11 @@ implementation
|
|||||||
|
|
||||||
uses
|
uses
|
||||||
Variants, Dialogs, cxControls, DB, uEditorRegistryUtils, schComisionesClient_Intf,
|
Variants, Dialogs, cxControls, DB, uEditorRegistryUtils, schComisionesClient_Intf,
|
||||||
uIEditorComisiones, uDataModuleComisiones, uDataModuleUsuarios,
|
uIEditorComisiones, uDataModuleComisiones, uDataModuleUsuarios, uFactuGES_App,
|
||||||
uDAInterfaces, uDataTableUtils, uIEditorComision, uComisionesReportController,
|
uDAInterfaces, uDataTableUtils, uIEditorComision, uComisionesReportController,
|
||||||
uDateUtils, uROTypes, DateUtils, Controls, Windows, uDialogUtils;
|
uDateUtils, uROTypes, DateUtils, Controls, Windows, uDialogUtils,
|
||||||
|
|
||||||
|
uBizContactos, uVendedoresController, uBizFacturasCliente, uFacturasClienteController;
|
||||||
|
|
||||||
{ TComisionesController }
|
{ TComisionesController }
|
||||||
|
|
||||||
@ -89,6 +92,7 @@ begin
|
|||||||
FDataModule := TDataModuleComisiones.Create(Nil);
|
FDataModule := TDataModuleComisiones.Create(Nil);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
{
|
||||||
procedure TComisionesController.AsignarID(AComision: IBizComisiones; const IDNuevo: Integer);
|
procedure TComisionesController.AsignarID(AComision: IBizComisiones; const IDNuevo: Integer);
|
||||||
begin
|
begin
|
||||||
if not Assigned(AComision) then
|
if not Assigned(AComision) then
|
||||||
@ -103,7 +107,8 @@ begin
|
|||||||
AComision.Post;
|
AComision.Post;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
}
|
||||||
|
{
|
||||||
procedure TComisionesController.AsignarIDDetalles(AFacturasComision: IBizFacturasComision; IDComision: Integer; AEsNuevo: Boolean);
|
procedure TComisionesController.AsignarIDDetalles(AFacturasComision: IBizFacturasComision; IDComision: Integer; AEsNuevo: Boolean);
|
||||||
begin
|
begin
|
||||||
with AFacturasComision do
|
with AFacturasComision do
|
||||||
@ -137,7 +142,7 @@ begin
|
|||||||
un presupuesto ya que en ese caso si que hay que hacer un recorrido
|
un presupuesto ya que en ese caso si que hay que hacer un recorrido
|
||||||
total de las tuplas de detalle.
|
total de las tuplas de detalle.
|
||||||
}
|
}
|
||||||
|
{
|
||||||
if AEsNuevo then
|
if AEsNuevo then
|
||||||
begin
|
begin
|
||||||
while RecordCount > 0 do
|
while RecordCount > 0 do
|
||||||
@ -168,21 +173,33 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
}
|
||||||
|
|
||||||
procedure TComisionesController.AsignarImporteTotal(AComision: IBizComisiones; const ImporteTotal: Variant);
|
procedure TComisionesController.AsignarImporteTotal(AComision: IBizComisiones; const ImporteTotal: Variant);
|
||||||
|
var
|
||||||
|
EnEdicion: Boolean;
|
||||||
begin
|
begin
|
||||||
if Assigned(AComision) then
|
if Assigned(AComision) then
|
||||||
begin
|
begin
|
||||||
if (not VarIsNull(ImporteTotal))
|
if (not VarIsNull(ImporteTotal))
|
||||||
and (AComision.DataTable.FieldByName(fld_ComisionesIMPORTE_TOTAL).IsNull or (AComision.IMPORTE_TOTAL <> ImporteTotal)) then
|
and (AComision.DataTable.FieldByName(fld_ComisionesIMPORTE_TOTAL).IsNull or (AComision.IMPORTE_TOTAL <> ImporteTotal)) then
|
||||||
begin
|
begin
|
||||||
AComision.Edit;
|
EnEdicion:= AComision.DataTable.Editing;
|
||||||
|
if not EnEdicion then
|
||||||
|
AComision.DataTable.Edit;
|
||||||
|
|
||||||
AComision.IMPORTE_TOTAL := ImporteTotal;
|
AComision.IMPORTE_TOTAL := ImporteTotal;
|
||||||
AComision.Post;
|
AComision.DataTable.Post;
|
||||||
|
|
||||||
|
if EnEdicion then
|
||||||
|
AComision.DataTable.Edit;
|
||||||
|
|
||||||
|
// Recalcular
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
{
|
||||||
function TComisionesController.BuscarFacturasDesglosadas(AFacturas: IBizFacturaCliente): IBizFacturasComision;
|
function TComisionesController.BuscarFacturasDesglosadas(AFacturas: IBizFacturaCliente): IBizFacturasComision;
|
||||||
var
|
var
|
||||||
Cadena: String;
|
Cadena: String;
|
||||||
@ -215,17 +232,25 @@ begin
|
|||||||
CloseBraket;
|
CloseBraket;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
}
|
||||||
|
|
||||||
|
function TComisionesController.Buscar(const ID: Integer): IBizComisiones;
|
||||||
|
begin
|
||||||
|
Result := (FDataModule as IDataModuleComisiones).GetItem(ID);
|
||||||
|
FiltrarEmpresa(Result);
|
||||||
|
end;
|
||||||
|
|
||||||
function TComisionesController.BuscarTodos: IBizComisiones;
|
function TComisionesController.BuscarTodos: IBizComisiones;
|
||||||
begin
|
begin
|
||||||
Result := FDataModule.GetItems;
|
Result := FDataModule.GetItems;
|
||||||
|
FiltrarEmpresa(Result);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
constructor TComisionesController.Create;
|
constructor TComisionesController.Create;
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
AsignarDataModule;
|
AsignarDataModule;
|
||||||
FFacturasClienteController := TFacturasClienteController.Create;
|
// FFacturasClienteController := TFacturasClienteController.Create;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TComisionesController.CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
|
function TComisionesController.CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
|
||||||
@ -233,25 +258,9 @@ begin
|
|||||||
Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
|
Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
|
||||||
end;
|
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;
|
destructor TComisionesController.Destroy;
|
||||||
begin
|
begin
|
||||||
FFacturasClienteController := Nil;
|
// FFacturasClienteController := Nil;
|
||||||
FDataModule := Nil;
|
FDataModule := Nil;
|
||||||
inherited;
|
inherited;
|
||||||
end;
|
end;
|
||||||
@ -268,8 +277,15 @@ begin
|
|||||||
if (AComision.DataTable.State in dsEditModes) then
|
if (AComision.DataTable.State in dsEditModes) then
|
||||||
AComision.DataTable.Post;
|
AComision.DataTable.Post;
|
||||||
|
|
||||||
if AComision.DataTable.FieldByName(fld_ComisionesID_AGENTE).IsNull then
|
//Tambien hacemos post de sus tablas hija
|
||||||
raise Exception.Create('Debe indicar el agente de esta liquidación de comisiones.');
|
if (AComision.Facturas.DataTable.State in dsEditModes) then
|
||||||
|
AComision.Facturas.DataTable.Post;
|
||||||
|
|
||||||
|
if (AComision.Vendedores.DataTable.State in dsEditModes) then
|
||||||
|
AComision.Vendedores.DataTable.Post;
|
||||||
|
|
||||||
|
// if AComision.DataTable.FieldByName(fld_ComisionesID_AGENTE).IsNull then
|
||||||
|
// raise Exception.Create('Debe indicar el agente de esta liquidación de comisiones.');
|
||||||
|
|
||||||
if AComision.DataTable.FieldByName(fld_ComisionesFECHA).IsNull then
|
if AComision.DataTable.FieldByName(fld_ComisionesFECHA).IsNull then
|
||||||
raise Exception.Create('Debe indicar la fecha de esta liquidación de comisiones.');
|
raise Exception.Create('Debe indicar la fecha de esta liquidación de comisiones.');
|
||||||
@ -334,57 +350,117 @@ end;
|
|||||||
|
|
||||||
function TComisionesController.ElegirFacturasComision(AComision: IBizComisiones): Boolean;
|
function TComisionesController.ElegirFacturasComision(AComision: IBizComisiones): Boolean;
|
||||||
var
|
var
|
||||||
AFacturasAgente : IBizFacturaCliente;
|
|
||||||
AFacturasSeleccionadas : IBizFacturaCliente;
|
AFacturasSeleccionadas : IBizFacturaCliente;
|
||||||
AFacturasDesglosadas: IBizFacturasComision;
|
AFacturasController: IFacturasClienteController;
|
||||||
Cadena: String;
|
Cadena: TStringList;
|
||||||
|
|
||||||
begin
|
begin
|
||||||
Result := False;
|
Result := False;
|
||||||
|
|
||||||
if (AComision.ID_AGENTE <> 0) then
|
if Assigned(AComision.Facturas) then
|
||||||
begin
|
begin
|
||||||
|
//Recogemos los id de las facturas que ya tiene asociada la liquidación
|
||||||
if Assigned(AComision.Facturas) then
|
with AComision.Facturas.DataTable do
|
||||||
begin
|
begin
|
||||||
with AComision.Facturas.DataTable do
|
if not Active then Active := True;
|
||||||
|
First;
|
||||||
|
Cadena := TStringList.Create;
|
||||||
|
While not Eof do
|
||||||
begin
|
begin
|
||||||
if not Active then Active := True;
|
Cadena.Add(IntToStr(AComision.Facturas.ID));
|
||||||
First;
|
Next;
|
||||||
Cadena := '';
|
|
||||||
While not Eof do
|
|
||||||
begin
|
|
||||||
if (Length(Cadena) > 0) then
|
|
||||||
Cadena := Cadena + ', ';
|
|
||||||
Cadena := Cadena + IntToStr(AComision.Facturas.ID_FACTURA);
|
|
||||||
Next;
|
|
||||||
end;
|
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
AFacturasAgente := FFacturasClienteController.BuscarTodasPendientesComision(AComision.ID_AGENTE, AComision.ID, Cadena);
|
AFacturasController := TFacturasClienteController.Create;
|
||||||
AFacturasSeleccionadas := (FFacturasClienteController.ElegirFacturas(AFacturasAgente, 'Elija uno o más facturas para incluirlos en esta liquidación de comisiones', True) as IBizFacturaCliente);
|
try
|
||||||
|
AFacturasSeleccionadas := AFacturasController.BuscarTodasPendientesComision(AComision.ID_AGENTE, AComision.ID, Cadena.CommaText);
|
||||||
|
AFacturasSeleccionadas := (AFacturasController.ElegirFacturas(AFacturasSeleccionadas, 'Elija uno o más facturas para incluirlos en esta liquidación de comisiones', True) as IBizFacturaCliente);
|
||||||
|
|
||||||
if Assigned(AFacturasSeleccionadas) then
|
if Assigned(AFacturasSeleccionadas) then
|
||||||
|
begin
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
//Copia las facturas desglosadas de las facturas seleccionadas
|
||||||
|
DuplicarRegistros(AFacturasSeleccionadas.DataTable, AComision.Facturas.DataTable, mdrTodos, True, True, True);
|
||||||
|
Result := True;
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
finally
|
||||||
|
Cadena.Free;
|
||||||
|
AFacturasController := Nil;
|
||||||
|
AFacturasSeleccionadas := Nil;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
function TComisionesController.ElegirVendedoresComision(AComision: IBizComisiones): Boolean;
|
||||||
|
var
|
||||||
|
AVendedoresSeleccionados : IBizContacto;
|
||||||
|
AVendedoresController : IVendedoresController;
|
||||||
|
Cadena: TStringList;
|
||||||
|
|
||||||
|
begin
|
||||||
|
Result := False;
|
||||||
|
|
||||||
|
if Assigned(AComision.Vendedores) then
|
||||||
|
begin
|
||||||
|
//Recogemos los id de los vendedores que ya tiene asociada la liquidación
|
||||||
|
with AComision.Vendedores.DataTable do
|
||||||
begin
|
begin
|
||||||
ShowHourglassCursor;
|
if not Active then Active := True;
|
||||||
try
|
First;
|
||||||
AFacturasDesglosadas := BuscarFacturasDesglosadas(AFacturasSeleccionadas);
|
Cadena := TStringList.Create;
|
||||||
|
While not Eof do
|
||||||
//Copia las facturas desglosadas de las facturas seleccionadas
|
begin
|
||||||
DuplicarRegistros(AFacturasDesglosadas.DataTable, AComision.Facturas.DataTable, mdrTodos, True, True, False);
|
Cadena.Add(IntToStr(AComision.Vendedores.ID_VENDEDOR));
|
||||||
|
Next;
|
||||||
Result := True;
|
end;
|
||||||
finally
|
|
||||||
HideHourglassCursor;
|
|
||||||
end;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
AFacturasAgente := Nil;
|
AVendedoresController := TVendedoresController.Create;
|
||||||
AFacturasSeleccionadas := Nil;
|
try
|
||||||
AFacturasDesglosadas := Nil;
|
AVendedoresSeleccionados := AVendedoresController.BuscarTodos(Cadena.CommaText);
|
||||||
end
|
AVendedoresSeleccionados := AVendedoresController.ElegirContacto(AvendedoresSeleccionados, 'Elija los vendedores de la comision', True);
|
||||||
else
|
|
||||||
ShowWarningMessage('Debe elegir primero el agente asociado a la liquidación');
|
if Assigned(AVendedoresSeleccionados) then
|
||||||
|
begin
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
//Copia los vendedores seleccionados
|
||||||
|
DuplicarRegistros(AVendedoresSeleccionados.DataTable, AComision.Vendedores.DataTable, mdrTodos, True, True, False);
|
||||||
|
|
||||||
|
//Copiamos el ID de los vendedores seleccionados en ID_VENDEDOR de la tabla detalle
|
||||||
|
AVendedoresSeleccionados.DataTable.First;
|
||||||
|
AComision.Vendedores.DataTable.First;
|
||||||
|
while not AVendedoresSeleccionados.DataTable.EOF do
|
||||||
|
begin
|
||||||
|
if not AComision.Vendedores.DataTable.Editing then
|
||||||
|
AComision.Vendedores.DataTable.Edit;
|
||||||
|
|
||||||
|
AComision.Vendedores.ID_VENDEDOR := AVendedoresSeleccionados.ID;
|
||||||
|
AComision.Vendedores.DataTable.Post;
|
||||||
|
|
||||||
|
AVendedoresSeleccionados.DataTable.Next;
|
||||||
|
AComision.Vendedores.DataTable.Next;
|
||||||
|
end;
|
||||||
|
AComision.Vendedores.DataTable.First;
|
||||||
|
|
||||||
|
Result := True;
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
Cadena.Free;
|
||||||
|
AVendedoresController := Nil;
|
||||||
|
AVendedoresSeleccionados := Nil;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TComisionesController.Eliminar(AComision: IBizComisiones): Boolean;
|
function TComisionesController.Eliminar(AComision: IBizComisiones): Boolean;
|
||||||
@ -408,17 +484,55 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TComisionesController.EliminarFactura(AComision: IBizComisiones);
|
function TComisionesController.ExtraerSeleccionados(AComisiones: IBizComisiones): IBizComisiones;
|
||||||
var
|
var
|
||||||
IdFactura: Variant;
|
ASeleccionados : IBizComisiones;
|
||||||
begin
|
begin
|
||||||
IdFactura := AComision.Facturas.ID_FACTURA;
|
ASeleccionados := (Self.Buscar(ID_NULO) as IBizComisiones);
|
||||||
|
CopyDataTableDA3(AComisiones.DataTable, ASeleccionados.DataTable, True);
|
||||||
|
Result := ASeleccionados;
|
||||||
|
|
||||||
AComision.Facturas.First;
|
end;
|
||||||
while AComision.Facturas.DataTable.Locate('ID_FACTURA', IdFactura,[]) do
|
|
||||||
|
procedure TComisionesController.FiltrarEmpresa(AComisiones: IBizComisiones);
|
||||||
|
var
|
||||||
|
Condicion: TDAWhereExpression;
|
||||||
|
begin
|
||||||
|
if AComisiones.DataTable.Active then
|
||||||
|
AComisiones.DataTable.Active := False;
|
||||||
|
|
||||||
|
// Filtrar las facturas actuales por empresa
|
||||||
|
with AComisiones.DataTable.DynamicWhere do
|
||||||
begin
|
begin
|
||||||
AComision.Facturas.Delete;
|
// (ID_EMPRESA >= ID)
|
||||||
AComision.Facturas.First;
|
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.RecalcularComisiones(AComision: IBizComisiones; const ImporteTotal: Variant);
|
||||||
|
begin
|
||||||
|
if Assigned(AComision)
|
||||||
|
and Assigned(AComision.Vendedores)
|
||||||
|
and (not AComision.Vendedores.IsEmpty) then
|
||||||
|
begin
|
||||||
|
AComision.Vendedores.DataTable.DisableControls;
|
||||||
|
try
|
||||||
|
AComision.Vendedores.DataTable.First;
|
||||||
|
while not AComision.Vendedores.DataTable.EOF do
|
||||||
|
begin
|
||||||
|
AComision.Vendedores.Edit;
|
||||||
|
AComision.Vendedores.IMPORTE_TOTAL := ((AComision.Vendedores.COMISION / 100) * ImporteTotal);
|
||||||
|
AComision.Vendedores.Post;
|
||||||
|
AComision.Vendedores.DataTable.Next;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
AComision.Vendedores.DataTable.EnableControls;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -435,23 +549,13 @@ begin
|
|||||||
Result := False;
|
Result := False;
|
||||||
|
|
||||||
if not Assigned(AComision) then
|
if not Assigned(AComision) then
|
||||||
raise Exception.Create ('Almacen no asignada');
|
raise Exception.Create ('Comision no asignada');
|
||||||
|
|
||||||
if ValidarComision(AComision) then
|
if ValidarComision(AComision) then
|
||||||
begin
|
begin
|
||||||
ShowHourglassCursor;
|
ShowHourglassCursor;
|
||||||
try
|
try
|
||||||
if (AComision.EsNuevo) then
|
|
||||||
NuevoID := FDataModule.GetNextID(AComision.DataTable.LogicalName)
|
|
||||||
else
|
|
||||||
NuevoID := AComision.ID;
|
|
||||||
|
|
||||||
AsignarID(AComision, NuevoID);
|
|
||||||
AComision.DataTable.ApplyUpdates;
|
AComision.DataTable.ApplyUpdates;
|
||||||
//Si todo ha ido bien, asignamos la comision a las facturas asociadas
|
|
||||||
//Como no están declarados como maestro-detalles debemos hacer el applyupdates nosotros
|
|
||||||
// RecibosClienteController.AsignarRemesa(ARemesaCliente.Recibos, NuevoID);
|
|
||||||
// ARemesaCliente.Recibos.DataTable.ApplyUpdates; //En este applyupdates tambien se realizarán todos los cambios acumulados sobre los recibos asociados (EliminarReciboCliente/ ElegirRecibosCliente)
|
|
||||||
|
|
||||||
Result := True;
|
Result := True;
|
||||||
finally
|
finally
|
||||||
@ -459,33 +563,73 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
procedure TComisionesController.Preview(AComision: IBizComisiones; const DesglosadoProv: Boolean);
|
procedure TComisionesController.Preview(AComision: IBizComisiones; AllItems: Boolean = false);
|
||||||
var
|
var
|
||||||
AReportController : IComisionesReportController;
|
AReportController : IComisionesReportController;
|
||||||
|
ID_Comisiones: TStringList;
|
||||||
|
|
||||||
begin
|
begin
|
||||||
AReportController := TComisionesReportController.Create;
|
AReportController := TComisionesReportController.Create;
|
||||||
try
|
try
|
||||||
if Assigned(AComision) then
|
ID_Comisiones := TStringList.Create;
|
||||||
AReportController.Preview(AComision.ID, DesglosadoProv)
|
|
||||||
else
|
//Si deseamos previsualizar todos los items del objeto comision
|
||||||
AReportController.Preview(Null, DesglosadoProv)
|
if AllItems then
|
||||||
|
begin
|
||||||
|
with AComision.DataTable do
|
||||||
|
begin
|
||||||
|
First;
|
||||||
|
while not EOF do
|
||||||
|
begin
|
||||||
|
ID_Comisiones.Add(IntToStr(AComision.ID));
|
||||||
|
Next;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end
|
||||||
|
//Solo previsualizamos el item seleccionado
|
||||||
|
else
|
||||||
|
ID_Comisiones.Add(IntToStr(AComision.ID));
|
||||||
|
|
||||||
|
AReportController.Preview(ID_Comisiones.CommaText);
|
||||||
|
|
||||||
finally
|
finally
|
||||||
AReportController := NIL;
|
AReportController := NIL;
|
||||||
|
ID_Comisiones.Free;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TComisionesController.Print(AComision: IBizComisiones; const DesglosadoProv: Boolean);
|
procedure TComisionesController.Print(AComision: IBizComisiones; AllItems: Boolean = false);
|
||||||
var
|
var
|
||||||
AReportController : IComisionesReportController;
|
AReportController : IComisionesReportController;
|
||||||
|
ID_Comisiones: TStringList;
|
||||||
|
|
||||||
begin
|
begin
|
||||||
AReportController := TComisionesReportController.Create;
|
AReportController := TComisionesReportController.Create;
|
||||||
try
|
try
|
||||||
if Assigned(AComision) then
|
ID_Comisiones := TStringList.Create;
|
||||||
AReportController.Print(AComision.ID, DesglosadoProv)
|
|
||||||
else
|
//Si deseamos previsualizar todos los items del objeto comision
|
||||||
AReportController.Print(Null, DesglosadoProv);
|
if AllItems then
|
||||||
|
begin
|
||||||
|
with AComision.DataTable do
|
||||||
|
begin
|
||||||
|
First;
|
||||||
|
while not EOF do
|
||||||
|
begin
|
||||||
|
ID_Comisiones.Add(IntToStr(AComision.ID));
|
||||||
|
Next;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end
|
||||||
|
//Solo previsualizamos el item seleccionado
|
||||||
|
else
|
||||||
|
ID_Comisiones.Add(IntToStr(AComision.ID));
|
||||||
|
|
||||||
|
AReportController.Print(ID_Comisiones.CommaText);
|
||||||
|
|
||||||
finally
|
finally
|
||||||
AReportController := NIL;
|
AReportController := NIL;
|
||||||
|
ID_Comisiones.Free;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|||||||
@ -10,8 +10,8 @@ uses
|
|||||||
type
|
type
|
||||||
IComisionesReportController = interface
|
IComisionesReportController = interface
|
||||||
['{7ABB74C2-050C-4737-BC4C-C5F20883CED8}']
|
['{7ABB74C2-050C-4737-BC4C-C5F20883CED8}']
|
||||||
procedure Preview(const AComisionID : Variant; const DesglosadoProv: Boolean);
|
procedure Preview(const AComisionID : String);
|
||||||
procedure Print(const AComisionID : Variant; const DesglosadoProv: Boolean);
|
procedure Print(const AComisionID : String);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
TComisionesReportController = class(TInterfacedObject, IComisionesReportController)
|
TComisionesReportController = class(TInterfacedObject, IComisionesReportController)
|
||||||
@ -22,8 +22,8 @@ type
|
|||||||
constructor Create;
|
constructor Create;
|
||||||
destructor Destroy; override;
|
destructor Destroy; override;
|
||||||
|
|
||||||
procedure Preview(const AComisionID : Variant; const DesglosadoProv: Boolean);
|
procedure Preview(const AComisionID : String);
|
||||||
procedure Print(const AComisionID : Variant; const DesglosadoProv: Boolean);
|
procedure Print(const AComisionID : String);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
@ -53,7 +53,7 @@ begin
|
|||||||
inherited;
|
inherited;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TComisionesReportController.Preview(const AComisionID : Variant; const DesglosadoProv: Boolean);
|
procedure TComisionesReportController.Preview(const AComisionID : String);
|
||||||
var
|
var
|
||||||
AStream: Binary;
|
AStream: Binary;
|
||||||
AEditor : IEditorComisionesPreview;
|
AEditor : IEditorComisionesPreview;
|
||||||
@ -61,13 +61,12 @@ begin
|
|||||||
AEditor := NIL;
|
AEditor := NIL;
|
||||||
ShowHourglassCursor;
|
ShowHourglassCursor;
|
||||||
try
|
try
|
||||||
AStream := FDataModule.GetReport(AComisionID, DesglosadoProv,'', '', Null);
|
AStream := FDataModule.GetReport(AComisionID);
|
||||||
try
|
try
|
||||||
CreateEditor('EditorComisionesPreview', IEditorComisionesPreview, AEditor);
|
CreateEditor('EditorComisionesPreview', IEditorComisionesPreview, AEditor);
|
||||||
if Assigned(AEditor) then
|
if Assigned(AEditor) then
|
||||||
with AEditor do
|
with AEditor do
|
||||||
begin
|
begin
|
||||||
DataModule := FDataModule;
|
|
||||||
LoadFromStream(AStream);
|
LoadFromStream(AStream);
|
||||||
Preview;
|
Preview;
|
||||||
Release;
|
Release;
|
||||||
@ -81,7 +80,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TComisionesReportController.Print(const AComisionID : Variant; const DesglosadoProv: Boolean);
|
procedure TComisionesReportController.Print(const AComisionID : String);
|
||||||
var
|
var
|
||||||
AStream: Binary;
|
AStream: Binary;
|
||||||
AEditor : IEditorComisionesPreview;
|
AEditor : IEditorComisionesPreview;
|
||||||
@ -89,15 +88,15 @@ begin
|
|||||||
AEditor := NIL;
|
AEditor := NIL;
|
||||||
ShowHourglassCursor;
|
ShowHourglassCursor;
|
||||||
try
|
try
|
||||||
AStream := FDataModule.GetReport(AComisionID, DesglosadoProv, '', '', Null);
|
AStream := FDataModule.GetReport(AComisionID);
|
||||||
try
|
try
|
||||||
CreateEditor('EditorComisionesPreview', IEditorComisionesPreview, AEditor);
|
CreateEditor('EditorComisionesPreview', IEditorComisionesPreview, AEditor);
|
||||||
if Assigned(AEditor) then
|
if Assigned(AEditor) then
|
||||||
with AEditor do
|
with AEditor do
|
||||||
begin
|
begin
|
||||||
DataModule := FDataModule;
|
|
||||||
LoadFromStream(AStream);
|
LoadFromStream(AStream);
|
||||||
Print;
|
Print;
|
||||||
|
Release;
|
||||||
end;
|
end;
|
||||||
finally
|
finally
|
||||||
FreeAndNil(AStream);
|
FreeAndNil(AStream);
|
||||||
|
|||||||
Binary file not shown.
579
Source/Modulos/Comisiones/Data/Comisiones_data.dproj
Normal file
579
Source/Modulos/Comisiones/Data/Comisiones_data.dproj
Normal file
@ -0,0 +1,579 @@
|
|||||||
|
<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 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_data.dpk</Source>
|
||||||
|
</Source>
|
||||||
|
</Delphi.Personality> </BorlandProject></BorlandProject>
|
||||||
|
</ProjectExtensions>
|
||||||
|
<ItemGroup />
|
||||||
|
<ItemGroup>
|
||||||
|
<DelphiCompile Include="Comisiones_data.dpk">
|
||||||
|
<MainSource>MainSource</MainSource>
|
||||||
|
</DelphiCompile>
|
||||||
|
<DCCReference Include="..\..\Lib\Comisiones_model.dcp" />
|
||||||
|
<DCCReference Include="uDataModuleComisiones.pas">
|
||||||
|
<Form>DataModuleComisiones</Form>
|
||||||
|
</DCCReference>
|
||||||
|
</ItemGroup>
|
||||||
|
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||||
|
</Project>
|
||||||
|
|
||||||
|
<!-- EurekaLog First Line
|
||||||
|
[Exception Log]
|
||||||
|
EurekaLog Version=6006
|
||||||
|
Activate=0
|
||||||
|
Activate Handle=1
|
||||||
|
Save Log File=1
|
||||||
|
Foreground Tab=0
|
||||||
|
Freeze Activate=0
|
||||||
|
Freeze Timeout=60
|
||||||
|
SMTP From=eurekalog@email.com
|
||||||
|
SMTP Host=
|
||||||
|
SMTP Port=25
|
||||||
|
SMTP UserID=
|
||||||
|
SMTP Password=
|
||||||
|
Append to Log=0
|
||||||
|
TerminateBtn Operation=2
|
||||||
|
Errors Number=32
|
||||||
|
Errors Terminate=3
|
||||||
|
Email Address=
|
||||||
|
Email Object=
|
||||||
|
Email Send Options=0
|
||||||
|
Output Path=
|
||||||
|
Encrypt Password=
|
||||||
|
AutoCloseDialogSecs=0
|
||||||
|
WebSendMode=0
|
||||||
|
SupportULR=
|
||||||
|
HTMLLayout Count=15
|
||||||
|
HTMLLine0="%3Chtml%3E"
|
||||||
|
HTMLLine1=" %3Chead%3E"
|
||||||
|
HTMLLine2=" %3C/head%3E"
|
||||||
|
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
|
||||||
|
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
|
||||||
|
HTMLLine5=" %3Ctr%3E"
|
||||||
|
HTMLLine6=" %3Ctd nowrap%3E"
|
||||||
|
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
|
||||||
|
HTMLLine8=" %3C%%HTML_TAG%%%3E"
|
||||||
|
HTMLLine9=" %3C/font%3E"
|
||||||
|
HTMLLine10=" %3C/td%3E"
|
||||||
|
HTMLLine11=" %3C/tr%3E"
|
||||||
|
HTMLLine12=" %3C/table%3E"
|
||||||
|
HTMLLine13=" %3C/body%3E"
|
||||||
|
HTMLLine14="%3C/html%3E"
|
||||||
|
AutoCrashOperation=2
|
||||||
|
AutoCrashNumber=10
|
||||||
|
AutoCrashMinutes=1
|
||||||
|
WebURL=
|
||||||
|
WebUserID=
|
||||||
|
WebPassword=
|
||||||
|
WebPort=0
|
||||||
|
AttachedFiles=
|
||||||
|
ProxyURL=
|
||||||
|
ProxyUser=
|
||||||
|
ProxyPassword=
|
||||||
|
ProxyPort=8080
|
||||||
|
TrakerUser=
|
||||||
|
TrakerPassword=
|
||||||
|
TrakerAssignTo=
|
||||||
|
TrakerProject=
|
||||||
|
TrakerCategory=
|
||||||
|
TrakerTrialID=
|
||||||
|
ZipPassword=
|
||||||
|
PreBuildEvent=
|
||||||
|
PostSuccessfulBuildEvent=
|
||||||
|
PostFailureBuildEvent=
|
||||||
|
ExceptionDialogType=2
|
||||||
|
Count=0
|
||||||
|
EMail Message Line Count=0
|
||||||
|
loNoDuplicateErrors=0
|
||||||
|
loAppendReproduceText=0
|
||||||
|
loDeleteLogAtVersionChange=0
|
||||||
|
loAddComputerNameInLogFileName=0
|
||||||
|
loSaveModulesAndProcessesSections=1
|
||||||
|
loSaveAssemblerAndCPUSections=1
|
||||||
|
soAppStartDate=1
|
||||||
|
soAppName=1
|
||||||
|
soAppVersionNumber=1
|
||||||
|
soAppParameters=1
|
||||||
|
soAppCompilationDate=1
|
||||||
|
soAppUpTime=1
|
||||||
|
soExcDate=1
|
||||||
|
soExcAddress=1
|
||||||
|
soExcModuleName=1
|
||||||
|
soExcModuleVersion=1
|
||||||
|
soExcType=1
|
||||||
|
soExcMessage=1
|
||||||
|
soExcID=1
|
||||||
|
soExcCount=1
|
||||||
|
soExcStatus=1
|
||||||
|
soExcNote=1
|
||||||
|
soUserID=1
|
||||||
|
soUserName=1
|
||||||
|
soUserEmail=1
|
||||||
|
soUserPrivileges=1
|
||||||
|
soUserCompany=1
|
||||||
|
soActCtlsFormClass=1
|
||||||
|
soActCtlsFormText=1
|
||||||
|
soActCtlsControlClass=1
|
||||||
|
soActCtlsControlText=1
|
||||||
|
soCmpName=1
|
||||||
|
soCmpTotalMemory=1
|
||||||
|
soCmpFreeMemory=1
|
||||||
|
soCmpTotalDisk=1
|
||||||
|
soCmpFreeDisk=1
|
||||||
|
soCmpSysUpTime=1
|
||||||
|
soCmpProcessor=1
|
||||||
|
soCmpDisplayMode=1
|
||||||
|
soCmpDisplayDPI=1
|
||||||
|
soCmpVideoCard=1
|
||||||
|
soCmpPrinter=1
|
||||||
|
soOSType=1
|
||||||
|
soOSBuildN=1
|
||||||
|
soOSUpdate=1
|
||||||
|
soOSLanguage=1
|
||||||
|
soOSCharset=1
|
||||||
|
soNetIP=1
|
||||||
|
soNetSubmask=1
|
||||||
|
soNetGateway=1
|
||||||
|
soNetDNS1=1
|
||||||
|
soNetDNS2=1
|
||||||
|
soNetDHCP=1
|
||||||
|
soCustomData=1
|
||||||
|
sndShowSendDialog=1
|
||||||
|
sndShowSuccessFailureMsg=0
|
||||||
|
sndSendEntireLog=0
|
||||||
|
sndSendXMLLogCopy=0
|
||||||
|
sndSendScreenshot=1
|
||||||
|
sndUseOnlyActiveWindow=0
|
||||||
|
sndSendLastHTMLPage=1
|
||||||
|
sndSendInSeparatedThread=0
|
||||||
|
sndAddDateInFileName=0
|
||||||
|
sndAddComputerNameInFileName=0
|
||||||
|
edoSendErrorReportChecked=1
|
||||||
|
edoAttachScreenshotChecked=1
|
||||||
|
edoShowCopyToClipOption=1
|
||||||
|
edoShowDetailsButton=1
|
||||||
|
edoShowInDetailedMode=0
|
||||||
|
edoShowInTopMostMode=0
|
||||||
|
edoUseEurekaLogLookAndFeel=0
|
||||||
|
edoShowSendErrorReportOption=1
|
||||||
|
edoShowAttachScreenshotOption=1
|
||||||
|
edoShowCustomButton=0
|
||||||
|
csoShowDLLs=1
|
||||||
|
csoShowBPLs=1
|
||||||
|
csoShowBorlandThreads=1
|
||||||
|
csoShowWindowsThreads=1
|
||||||
|
csoDoNotStoreProcNames=0
|
||||||
|
boPauseBorlandThreads=0
|
||||||
|
boDoNotPauseMainThread=0
|
||||||
|
boPauseWindowsThreads=0
|
||||||
|
boUseMainModuleOptions=1
|
||||||
|
boCopyLogInCaseOfError=1
|
||||||
|
boSaveCompressedCopyInCaseOfError=0
|
||||||
|
boHandleSafeCallExceptions=1
|
||||||
|
boCallRTLExceptionEvent=0
|
||||||
|
boCatchHandledExceptions=0
|
||||||
|
loCatchLeaks=0
|
||||||
|
loGroupsSonLeaks=1
|
||||||
|
loHideBorlandLeaks=1
|
||||||
|
loFreeAllLeaks=1
|
||||||
|
loCatchLeaksExceptions=1
|
||||||
|
cfoReduceFileSize=1
|
||||||
|
cfoCheckFileCorruption=0
|
||||||
|
Count mtInformationMsgCaption=1
|
||||||
|
mtInformationMsgCaption0="Information."
|
||||||
|
Count mtQuestionMsgCaption=1
|
||||||
|
mtQuestionMsgCaption0="Question."
|
||||||
|
Count mtErrorMsgCaption=1
|
||||||
|
mtErrorMsgCaption0="Error."
|
||||||
|
Count mtDialog_Caption=1
|
||||||
|
mtDialog_Caption0="Error occurred"
|
||||||
|
Count mtDialog_ErrorMsgCaption=2
|
||||||
|
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
|
||||||
|
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
|
||||||
|
Count mtDialog_GeneralCaption=1
|
||||||
|
mtDialog_GeneralCaption0="General"
|
||||||
|
Count mtDialog_GeneralHeader=1
|
||||||
|
mtDialog_GeneralHeader0="General Information"
|
||||||
|
Count mtDialog_CallStackCaption=1
|
||||||
|
mtDialog_CallStackCaption0="Call Stack"
|
||||||
|
Count mtDialog_CallStackHeader=1
|
||||||
|
mtDialog_CallStackHeader0="Call Stack Information"
|
||||||
|
Count mtDialog_ModulesCaption=1
|
||||||
|
mtDialog_ModulesCaption0="Modules"
|
||||||
|
Count mtDialog_ModulesHeader=1
|
||||||
|
mtDialog_ModulesHeader0="Modules Information"
|
||||||
|
Count mtDialog_ProcessesCaption=1
|
||||||
|
mtDialog_ProcessesCaption0="Processes"
|
||||||
|
Count mtDialog_ProcessesHeader=1
|
||||||
|
mtDialog_ProcessesHeader0="Processes Information"
|
||||||
|
Count mtDialog_AsmCaption=1
|
||||||
|
mtDialog_AsmCaption0="Assembler"
|
||||||
|
Count mtDialog_AsmHeader=1
|
||||||
|
mtDialog_AsmHeader0="Assembler Information"
|
||||||
|
Count mtDialog_CPUCaption=1
|
||||||
|
mtDialog_CPUCaption0="CPU"
|
||||||
|
Count mtDialog_CPUHeader=1
|
||||||
|
mtDialog_CPUHeader0="CPU Information"
|
||||||
|
Count mtDialog_OKButtonCaption=1
|
||||||
|
mtDialog_OKButtonCaption0="%26OK"
|
||||||
|
Count mtDialog_TerminateButtonCaption=1
|
||||||
|
mtDialog_TerminateButtonCaption0="%26Terminate"
|
||||||
|
Count mtDialog_RestartButtonCaption=1
|
||||||
|
mtDialog_RestartButtonCaption0="%26Restart"
|
||||||
|
Count mtDialog_DetailsButtonCaption=1
|
||||||
|
mtDialog_DetailsButtonCaption0="%26Details"
|
||||||
|
Count mtDialog_CustomButtonCaption=1
|
||||||
|
mtDialog_CustomButtonCaption0="%26Help"
|
||||||
|
Count mtDialog_SendMessage=1
|
||||||
|
mtDialog_SendMessage0="%26Send this error via Internet"
|
||||||
|
Count mtDialog_ScreenshotMessage=1
|
||||||
|
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
|
||||||
|
Count mtDialog_CopyMessage=1
|
||||||
|
mtDialog_CopyMessage0="%26Copy to Clipboard"
|
||||||
|
Count mtDialog_SupportMessage=1
|
||||||
|
mtDialog_SupportMessage0="Go to the Support Page"
|
||||||
|
Count mtMSDialog_ErrorMsgCaption=1
|
||||||
|
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
|
||||||
|
Count mtMSDialog_RestartCaption=1
|
||||||
|
mtMSDialog_RestartCaption0="Restart application."
|
||||||
|
Count mtMSDialog_TerminateCaption=1
|
||||||
|
mtMSDialog_TerminateCaption0="Terminate application."
|
||||||
|
Count mtMSDialog_PleaseCaption=1
|
||||||
|
mtMSDialog_PleaseCaption0="Please tell us about this problem."
|
||||||
|
Count mtMSDialog_DescriptionCaption=1
|
||||||
|
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
|
||||||
|
Count mtMSDialog_SeeDetailsCaption=1
|
||||||
|
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
|
||||||
|
Count mtMSDialog_SeeClickCaption=1
|
||||||
|
mtMSDialog_SeeClickCaption0="click here."
|
||||||
|
Count mtMSDialog_HowToReproduceCaption=1
|
||||||
|
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happended (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 -->
|
||||||
@ -3,295 +3,12 @@ inherited DataModuleComisiones: TDataModuleComisiones
|
|||||||
Height = 414
|
Height = 414
|
||||||
Width = 518
|
Width = 518
|
||||||
object RORemoteService: TRORemoteService
|
object RORemoteService: TRORemoteService
|
||||||
|
Message = dmConexion.ROMessage
|
||||||
|
Channel = dmConexion.ROChannel
|
||||||
ServiceName = 'srvComisiones'
|
ServiceName = 'srvComisiones'
|
||||||
Left = 48
|
Left = 48
|
||||||
Top = 24
|
Top = 24
|
||||||
end
|
end
|
||||||
object tbl_Comisiones: TDACDSDataTable
|
|
||||||
RemoteUpdatesOptions = []
|
|
||||||
Fields = <
|
|
||||||
item
|
|
||||||
Name = 'ID'
|
|
||||||
DataType = datInteger
|
|
||||||
DictionaryEntry = 'Comisiones_ID'
|
|
||||||
InPrimaryKey = True
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'ID_EMPRESA'
|
|
||||||
DataType = datInteger
|
|
||||||
DictionaryEntry = 'Comisiones_ID_EMPRESA'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'REFERENCIA'
|
|
||||||
DataType = datString
|
|
||||||
Size = 255
|
|
||||||
DisplayLabel = 'Comisiones_REFERENCIA'
|
|
||||||
DictionaryEntry = 'Comisiones_REFERENCIA'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'ID_AGENTE'
|
|
||||||
DataType = datInteger
|
|
||||||
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 = datFloat
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'USUARIO'
|
|
||||||
DataType = datString
|
|
||||||
Size = 20
|
|
||||||
DictionaryEntry = 'Comisiones_USUARIO'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'NOMBRE'
|
|
||||||
DataType = datString
|
|
||||||
Size = 255
|
|
||||||
end>
|
|
||||||
Params = <>
|
|
||||||
MasterMappingMode = mmDataRequest
|
|
||||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
|
||||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
|
||||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
|
||||||
LogicalName = 'Comisiones'
|
|
||||||
IndexDefs = <>
|
|
||||||
Left = 216
|
|
||||||
Top = 144
|
|
||||||
end
|
|
||||||
object ds_Comisiones: TDADataSource
|
|
||||||
DataSet = tbl_Comisiones.Dataset
|
|
||||||
DataTable = tbl_Comisiones
|
|
||||||
Left = 216
|
|
||||||
Top = 80
|
|
||||||
end
|
|
||||||
object tbl_Facturas_Comision: TDACDSDataTable
|
|
||||||
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
|
|
||||||
DisplayLabel = 'Facturas_Comision_ID_CLIENTE'
|
|
||||||
DictionaryEntry = 'Facturas_Comision_ID_CLIENTE'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'CLIENTE'
|
|
||||||
DataType = datString
|
|
||||||
Size = 255
|
|
||||||
DisplayLabel = 'Facturas_Comision_CLIENTE'
|
|
||||||
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
|
|
||||||
DisplayLabel = 'Facturas_Comision_IMPORTE_COMISIONABLE'
|
|
||||||
Alignment = taRightJustify
|
|
||||||
DictionaryEntry = 'Facturas_Comision_IMPORTE_COMISIONABLE'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'IMPORTE_COMISION'
|
|
||||||
DataType = datCurrency
|
|
||||||
DisplayLabel = 'Facturas_Comision_IMPORTE_COMISION'
|
|
||||||
Alignment = taRightJustify
|
|
||||||
DictionaryEntry = 'Facturas_Comision_IMPORTE_COMISION'
|
|
||||||
end>
|
|
||||||
Params = <
|
|
||||||
item
|
|
||||||
Name = 'ID_COMISION'
|
|
||||||
Value = 18
|
|
||||||
ParamType = daptInput
|
|
||||||
end>
|
|
||||||
MasterParamsMappings.Strings = (
|
|
||||||
'ID_COMISION=ID')
|
|
||||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
|
||||||
MasterSource = ds_Comisiones
|
|
||||||
MasterFields = 'ID'
|
|
||||||
DetailFields = 'ID_COMISION_LIQUIDADA'
|
|
||||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
|
||||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
|
||||||
LogicalName = 'Facturas_Comision'
|
|
||||||
IndexDefs = <>
|
|
||||||
Left = 368
|
|
||||||
Top = 144
|
|
||||||
end
|
|
||||||
object ds_Facturas_Comision: TDADataSource
|
|
||||||
DataSet = tbl_Facturas_Comision.Dataset
|
|
||||||
DataTable = tbl_Facturas_Comision
|
|
||||||
Left = 368
|
|
||||||
Top = 80
|
|
||||||
end
|
|
||||||
object tbl_V_Detalles_Facturas_Comision: TDACDSDataTable
|
|
||||||
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
|
|
||||||
DisplayLabel = 'Facturas_Comision_ID_CLIENTE'
|
|
||||||
DictionaryEntry = 'Facturas_Comision_ID_CLIENTE'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'CLIENTE'
|
|
||||||
DataType = datString
|
|
||||||
Size = 255
|
|
||||||
DisplayLabel = 'Facturas_Comision_CLIENTE'
|
|
||||||
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
|
|
||||||
DisplayLabel = 'V_Detalles_Facturas_Comision_IMPORTE_COMISIONABLE'
|
|
||||||
Alignment = taRightJustify
|
|
||||||
DictionaryEntry = 'V_Detalles_Facturas_Comision_IMPORTE_COMISIONABLE'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'IMPORTE_COMISION'
|
|
||||||
DataType = datCurrency
|
|
||||||
DisplayLabel = 'V_Detalles_Facturas_Comision_IMPORTE_COMISION'
|
|
||||||
Alignment = taRightJustify
|
|
||||||
DictionaryEntry = 'V_Detalles_Facturas_Comision_IMPORTE_COMISION'
|
|
||||||
end>
|
|
||||||
Params = <>
|
|
||||||
MasterMappingMode = mmDataRequest
|
|
||||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
|
||||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
|
||||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
|
||||||
LogicalName = 'V_Detalles_Facturas_Comision'
|
|
||||||
IndexDefs = <>
|
|
||||||
Left = 312
|
|
||||||
Top = 312
|
|
||||||
end
|
|
||||||
object ds_V_Detalles_Facturas_Comision: TDADataSource
|
|
||||||
DataSet = tbl_V_Detalles_Facturas_Comision.Dataset
|
|
||||||
DataTable = tbl_V_Detalles_Facturas_Comision
|
|
||||||
Left = 312
|
|
||||||
Top = 256
|
|
||||||
end
|
|
||||||
object Bin2DataStreamer: TDABin2DataStreamer
|
object Bin2DataStreamer: TDABin2DataStreamer
|
||||||
Left = 48
|
Left = 48
|
||||||
Top = 84
|
Top = 84
|
||||||
@ -306,4 +23,429 @@ inherited DataModuleComisiones: TDataModuleComisiones
|
|||||||
Left = 51
|
Left = 51
|
||||||
Top = 143
|
Top = 143
|
||||||
end
|
end
|
||||||
|
object tbl_Comisiones: TDAMemDataTable
|
||||||
|
RemoteUpdatesOptions = []
|
||||||
|
Fields = <
|
||||||
|
item
|
||||||
|
Name = 'ID'
|
||||||
|
DataType = datAutoInc
|
||||||
|
GeneratorName = 'GEN_COMISIONES_LIQUID_ID'
|
||||||
|
DisplayLabel = 'Id'
|
||||||
|
ServerAutoRefresh = True
|
||||||
|
DictionaryEntry = 'Comisiones_ID'
|
||||||
|
InPrimaryKey = True
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_EMPRESA'
|
||||||
|
DataType = datInteger
|
||||||
|
DisplayLabel = 'IdEmpresa'
|
||||||
|
DictionaryEntry = 'Comisiones_ID_EMPRESA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'REFERENCIA'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DisplayLabel = 'Referencia'
|
||||||
|
DictionaryEntry = 'Comisiones_REFERENCIA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_AGENTE'
|
||||||
|
DataType = datInteger
|
||||||
|
DisplayLabel = 'IdAgente'
|
||||||
|
DictionaryEntry = 'Comisiones_ID_AGENTE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'DESCRIPCION'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DisplayLabel = 'Descripci'#243'n'
|
||||||
|
DictionaryEntry = 'Comisiones_DESCRIPCION'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FECHA'
|
||||||
|
DataType = datDateTime
|
||||||
|
DisplayLabel = 'Fecha'
|
||||||
|
DictionaryEntry = 'Comisiones_FECHA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_TOTAL'
|
||||||
|
DataType = datCurrency
|
||||||
|
DisplayLabel = 'Importe total'
|
||||||
|
Alignment = taRightJustify
|
||||||
|
DictionaryEntry = 'Comisiones_IMPORTE_TOTAL'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FECHA_ALTA'
|
||||||
|
DataType = datDateTime
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FECHA_MODIFICACION'
|
||||||
|
DataType = datDateTime
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'USUARIO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 20
|
||||||
|
DisplayLabel = 'Usuario'
|
||||||
|
DictionaryEntry = 'Comisiones_USUARIO'
|
||||||
|
end>
|
||||||
|
Params = <>
|
||||||
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||||
|
RemoteDataAdapter = rda_Comisiones
|
||||||
|
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||||
|
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||||
|
LogicalName = 'Comisiones'
|
||||||
|
IndexDefs = <>
|
||||||
|
Left = 224
|
||||||
|
Top = 112
|
||||||
|
end
|
||||||
|
object ds_Comisiones: TDADataSource
|
||||||
|
DataSet = tbl_Comisiones.Dataset
|
||||||
|
DataTable = tbl_Comisiones
|
||||||
|
Left = 224
|
||||||
|
Top = 56
|
||||||
|
end
|
||||||
|
object tbl_Facturas_Comision: TDAMemDataTable
|
||||||
|
RemoteUpdatesOptions = []
|
||||||
|
Fields = <
|
||||||
|
item
|
||||||
|
Name = 'ID'
|
||||||
|
DataType = datInteger
|
||||||
|
DisplayLabel = 'Facturas_Comision_ID'
|
||||||
|
DictionaryEntry = 'Facturas_Comision_ID'
|
||||||
|
InPrimaryKey = True
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_EMPRESA'
|
||||||
|
DataType = datInteger
|
||||||
|
DisplayLabel = 'Facturas_Comision_ID_EMPRESA'
|
||||||
|
DictionaryEntry = 'Facturas_Comision_ID_EMPRESA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'REFERENCIA'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DisplayLabel = 'Referencia'
|
||||||
|
DictionaryEntry = 'Facturas_Comision_REFERENCIA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'TIPO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 1
|
||||||
|
DisplayLabel = 'Facturas_Comision_TIPO'
|
||||||
|
DictionaryEntry = 'Facturas_Comision_TIPO'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_COMISION_LIQUIDADA'
|
||||||
|
DataType = datInteger
|
||||||
|
DisplayLabel = 'IdComision'
|
||||||
|
ServerAutoRefresh = True
|
||||||
|
DictionaryEntry = 'Facturas_Comision_ID_COMISION_LIQUIDADA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FECHA_FACTURA'
|
||||||
|
DataType = datDateTime
|
||||||
|
DisplayLabel = 'Fecha'
|
||||||
|
DictionaryEntry = 'Facturas_Comision_FECHA_FACTURA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'SITUACION'
|
||||||
|
DataType = datString
|
||||||
|
Size = 19
|
||||||
|
DisplayLabel = 'Situaci'#243'n'
|
||||||
|
DictionaryEntry = 'Facturas_Comision_SITUACION'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'BASE_IMPONIBLE'
|
||||||
|
DataType = datCurrency
|
||||||
|
DisplayLabel = 'Base imponible'
|
||||||
|
Alignment = taRightJustify
|
||||||
|
DictionaryEntry = 'Facturas_Comision_BASE_IMPONIBLE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'DESCUENTO'
|
||||||
|
DataType = datFloat
|
||||||
|
DisplayLabel = 'Facturas_Comision_DESCUENTO'
|
||||||
|
DictionaryEntry = 'Facturas_Comision_DESCUENTO'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_DESCUENTO'
|
||||||
|
DataType = datCurrency
|
||||||
|
DisplayLabel = 'Facturas_Comision_IMPORTE_DESCUENTO'
|
||||||
|
DictionaryEntry = 'Facturas_Comision_IMPORTE_DESCUENTO'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IVA'
|
||||||
|
DataType = datFloat
|
||||||
|
DisplayLabel = 'Facturas_Comision_IVA'
|
||||||
|
DictionaryEntry = 'Facturas_Comision_IVA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_IVA'
|
||||||
|
DataType = datCurrency
|
||||||
|
DisplayLabel = 'Facturas_Comision_IMPORTE_IVA'
|
||||||
|
DictionaryEntry = 'Facturas_Comision_IMPORTE_IVA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'RE'
|
||||||
|
DataType = datFloat
|
||||||
|
DisplayLabel = 'Facturas_Comision_RE'
|
||||||
|
DictionaryEntry = 'Facturas_Comision_RE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_RE'
|
||||||
|
DataType = datCurrency
|
||||||
|
DisplayLabel = 'Facturas_Comision_IMPORTE_RE'
|
||||||
|
DictionaryEntry = 'Facturas_Comision_IMPORTE_RE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_TOTAL'
|
||||||
|
DataType = datCurrency
|
||||||
|
DisplayLabel = 'Facturas_Comision_IMPORTE_TOTAL'
|
||||||
|
DictionaryEntry = 'Facturas_Comision_IMPORTE_TOTAL'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'OBSERVACIONES'
|
||||||
|
DataType = datMemo
|
||||||
|
DisplayLabel = 'Facturas_Comision_OBSERVACIONES'
|
||||||
|
DictionaryEntry = 'Facturas_Comision_OBSERVACIONES'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_CLIENTE'
|
||||||
|
DataType = datInteger
|
||||||
|
DisplayLabel = 'IdCliente'
|
||||||
|
DictionaryEntry = 'Facturas_Comision_ID_CLIENTE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'NOMBRE_CLIENTE'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DisplayLabel = 'Nombre cliente'
|
||||||
|
DictionaryEntry = 'Facturas_Comision_NOMBRE_CLIENTE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'NOMBRE_COMERCIAL_CLIENTE'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DisplayLabel = 'Nombre comercial cliente'
|
||||||
|
DictionaryEntry = 'Facturas_Comision_NOMBRE_COMERCIAL_CLIENTE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'NIF_CIF'
|
||||||
|
DataType = datString
|
||||||
|
Size = 15
|
||||||
|
DisplayLabel = 'Facturas_Comision_NIF_CIF'
|
||||||
|
DictionaryEntry = 'Facturas_Comision_NIF_CIF'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'NOMBRE'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DisplayLabel = 'Raz'#243'n social'
|
||||||
|
DictionaryEntry = 'Facturas_Comision_NOMBRE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'CALLE'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DisplayLabel = 'Facturas_Comision_CALLE'
|
||||||
|
DictionaryEntry = 'Facturas_Comision_CALLE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'POBLACION'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DisplayLabel = 'Facturas_Comision_POBLACION'
|
||||||
|
DictionaryEntry = 'Facturas_Comision_POBLACION'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'PROVINCIA'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DisplayLabel = 'Facturas_Comision_PROVINCIA'
|
||||||
|
DictionaryEntry = 'Facturas_Comision_PROVINCIA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'CODIGO_POSTAL'
|
||||||
|
DataType = datString
|
||||||
|
Size = 10
|
||||||
|
DisplayLabel = 'Facturas_Comision_CODIGO_POSTAL'
|
||||||
|
DictionaryEntry = 'Facturas_Comision_CODIGO_POSTAL'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FECHA_ALTA'
|
||||||
|
DataType = datDateTime
|
||||||
|
DisplayLabel = 'Facturas_Comision_FECHA_ALTA'
|
||||||
|
DictionaryEntry = 'Facturas_Comision_FECHA_ALTA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FECHA_MODIFICACION'
|
||||||
|
DataType = datDateTime
|
||||||
|
DisplayLabel = 'Facturas_Comision_FECHA_MODIFICACION'
|
||||||
|
DictionaryEntry = 'Facturas_Comision_FECHA_MODIFICACION'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'USUARIO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 30
|
||||||
|
DisplayLabel = 'Facturas_Comision_USUARIO'
|
||||||
|
DictionaryEntry = 'Facturas_Comision_USUARIO'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_FORMA_PAGO'
|
||||||
|
DataType = datInteger
|
||||||
|
DisplayLabel = 'Facturas_Comision_ID_FORMA_PAGO'
|
||||||
|
DictionaryEntry = 'Facturas_Comision_ID_FORMA_PAGO'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'RECARGO_EQUIVALENCIA'
|
||||||
|
DataType = datSmallInt
|
||||||
|
DisplayLabel = 'Facturas_Comision_RECARGO_EQUIVALENCIA'
|
||||||
|
DictionaryEntry = 'Facturas_Comision_RECARGO_EQUIVALENCIA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_TIPO_IVA'
|
||||||
|
DataType = datInteger
|
||||||
|
DisplayLabel = 'Facturas_Comision_ID_TIPO_IVA'
|
||||||
|
DictionaryEntry = 'Facturas_Comision_ID_TIPO_IVA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_NETO'
|
||||||
|
DataType = datCurrency
|
||||||
|
DisplayLabel = 'Facturas_Comision_IMPORTE_NETO'
|
||||||
|
DictionaryEntry = 'Facturas_Comision_IMPORTE_NETO'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_PORTE'
|
||||||
|
DataType = datCurrency
|
||||||
|
DisplayLabel = 'Facturas_Comision_IMPORTE_PORTE'
|
||||||
|
DictionaryEntry = 'Facturas_Comision_IMPORTE_PORTE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_AGENTE'
|
||||||
|
DataType = datInteger
|
||||||
|
DisplayLabel = 'Facturas_Comision_ID_AGENTE'
|
||||||
|
DictionaryEntry = 'Facturas_Comision_ID_AGENTE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'REFERENCIA_COMISION'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DisplayLabel = 'Facturas_Comision_REFERENCIA_COMISION'
|
||||||
|
DictionaryEntry = 'Facturas_Comision_REFERENCIA_COMISION'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IGNORAR_CONTABILIDAD'
|
||||||
|
DataType = datSmallInt
|
||||||
|
DisplayLabel = 'Facturas_Comision_IGNORAR_CONTABILIDAD'
|
||||||
|
DictionaryEntry = 'Facturas_Comision_IGNORAR_CONTABILIDAD'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_TIENDA'
|
||||||
|
DataType = datInteger
|
||||||
|
DisplayLabel = 'Facturas_Comision_ID_TIENDA'
|
||||||
|
DictionaryEntry = 'Facturas_Comision_ID_TIENDA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'TIENDA'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DisplayLabel = 'Facturas_Comision_TIENDA'
|
||||||
|
DictionaryEntry = 'Facturas_Comision_TIENDA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_SUBCUENTA'
|
||||||
|
DataType = datInteger
|
||||||
|
DisplayLabel = 'Facturas_Comision_ID_SUBCUENTA'
|
||||||
|
DictionaryEntry = 'Facturas_Comision_ID_SUBCUENTA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'SUBCUENTA'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DisplayLabel = 'Facturas_Comision_SUBCUENTA'
|
||||||
|
DictionaryEntry = 'Facturas_Comision_SUBCUENTA'
|
||||||
|
end>
|
||||||
|
Params = <>
|
||||||
|
MasterMappingMode = mmWhere
|
||||||
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||||
|
RemoteDataAdapter = rda_Comisiones
|
||||||
|
MasterSource = ds_Comisiones
|
||||||
|
MasterFields = 'ID'
|
||||||
|
DetailFields = 'ID_COMISION_LIQUIDADA'
|
||||||
|
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||||
|
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||||
|
LogicalName = 'Facturas_Comision'
|
||||||
|
IndexDefs = <>
|
||||||
|
Left = 376
|
||||||
|
Top = 104
|
||||||
|
end
|
||||||
|
object ds_Facturas_Comision: TDADataSource
|
||||||
|
DataSet = tbl_Facturas_Comision.Dataset
|
||||||
|
DataTable = tbl_Facturas_Comision
|
||||||
|
Left = 376
|
||||||
|
Top = 48
|
||||||
|
end
|
||||||
|
object tbl_Vendedores_Comision: TDAMemDataTable
|
||||||
|
RemoteUpdatesOptions = []
|
||||||
|
Fields = <
|
||||||
|
item
|
||||||
|
Name = 'ID'
|
||||||
|
DataType = datAutoInc
|
||||||
|
GeneratorName = 'GEN_COMISIONES_VENDEDORES_ID'
|
||||||
|
DisplayLabel = 'Id'
|
||||||
|
DictionaryEntry = 'Comisiones_vendedores_ID'
|
||||||
|
InPrimaryKey = True
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_COMISION'
|
||||||
|
DataType = datInteger
|
||||||
|
DisplayLabel = 'IdComision'
|
||||||
|
ServerAutoRefresh = True
|
||||||
|
DictionaryEntry = 'Comisiones_vendedores_ID_COMISION'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_VENDEDOR'
|
||||||
|
DataType = datInteger
|
||||||
|
DisplayLabel = 'IdVendedor'
|
||||||
|
DictionaryEntry = 'Comisiones_vendedores_ID_VENDEDOR'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'NOMBRE'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DisplayLabel = 'Vendedor'
|
||||||
|
DictionaryEntry = 'Comisiones_vendedores_NOMBRE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COMISION'
|
||||||
|
DataType = datFloat
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_TOTAL'
|
||||||
|
DataType = datCurrency
|
||||||
|
DisplayLabel = 'Importe'
|
||||||
|
Alignment = taRightJustify
|
||||||
|
DictionaryEntry = 'Comisiones_vendedores_IMPORTE_TOTAL'
|
||||||
|
end>
|
||||||
|
Params = <>
|
||||||
|
MasterMappingMode = mmWhere
|
||||||
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||||
|
RemoteDataAdapter = rda_Comisiones
|
||||||
|
MasterSource = ds_Comisiones
|
||||||
|
MasterFields = 'ID'
|
||||||
|
DetailFields = 'ID_COMISION'
|
||||||
|
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||||
|
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||||
|
LogicalName = 'Vendedores_Comision'
|
||||||
|
IndexDefs = <>
|
||||||
|
Left = 384
|
||||||
|
Top = 232
|
||||||
|
end
|
||||||
|
object ds_Vendedores_Comision: TDADataSource
|
||||||
|
DataSet = tbl_Vendedores_Comision.Dataset
|
||||||
|
DataTable = tbl_Vendedores_Comision
|
||||||
|
Left = 384
|
||||||
|
Top = 176
|
||||||
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -8,37 +8,38 @@ uses
|
|||||||
uROServiceComponent, uRORemoteService, uROClient, uROBinMessage,
|
uROServiceComponent, uRORemoteService, uROClient, uROBinMessage,
|
||||||
uDADesigntimeCall, uIDataModuleComisiones, uBizComisiones, uDataModuleBase,
|
uDADesigntimeCall, uIDataModuleComisiones, uBizComisiones, uDataModuleBase,
|
||||||
uIDataModuleComisionesReport, uDARemoteDataAdapter, uDADataStreamer,
|
uIDataModuleComisionesReport, uDARemoteDataAdapter, uDADataStreamer,
|
||||||
uDABin2DataStreamer, uDAInterfaces;
|
uDABin2DataStreamer, uDAInterfaces, uDAMemDataTable;
|
||||||
|
|
||||||
type
|
type
|
||||||
TDataModuleComisiones = class(TDataModuleBase, IDataModuleComisiones, IDataModuleComisionesReport)
|
TDataModuleComisiones = class(TDataModuleBase, IDataModuleComisiones, IDataModuleComisionesReport)
|
||||||
RORemoteService: TRORemoteService;
|
RORemoteService: TRORemoteService;
|
||||||
tbl_Comisiones: TDACDSDataTable;
|
|
||||||
ds_Comisiones: TDADataSource;
|
|
||||||
tbl_Facturas_Comision: TDACDSDataTable;
|
|
||||||
ds_Facturas_Comision: TDADataSource;
|
|
||||||
tbl_V_Detalles_Facturas_Comision: TDACDSDataTable;
|
|
||||||
ds_V_Detalles_Facturas_Comision: TDADataSource;
|
|
||||||
Bin2DataStreamer: TDABin2DataStreamer;
|
Bin2DataStreamer: TDABin2DataStreamer;
|
||||||
rda_Comisiones: TDARemoteDataAdapter;
|
rda_Comisiones: TDARemoteDataAdapter;
|
||||||
|
tbl_Comisiones: TDAMemDataTable;
|
||||||
|
ds_Comisiones: TDADataSource;
|
||||||
|
tbl_Facturas_Comision: TDAMemDataTable;
|
||||||
|
ds_Facturas_Comision: TDADataSource;
|
||||||
|
tbl_Vendedores_Comision: TDAMemDataTable;
|
||||||
|
ds_Vendedores_Comision: TDADataSource;
|
||||||
procedure DAClientDataModuleCreate(Sender: TObject);
|
procedure DAClientDataModuleCreate(Sender: TObject);
|
||||||
protected
|
protected
|
||||||
function _GetFacturas : IBizFacturasComision;
|
function _GetFacturas : IBizFacturasComision;
|
||||||
|
function _GetVendedores : IBizVendedoresComision;
|
||||||
public
|
public
|
||||||
function GetItems : IBizComisiones; overload;
|
function GetItems : IBizComisiones; overload;
|
||||||
function GetFacturasDesglosadas : IBizFacturasComision;
|
function GetFacturasSinComision : IBizFacturasComision;
|
||||||
function GetItem(const ID : Integer) : IBizComisiones;
|
function GetItem(const ID : Integer) : IBizComisiones;
|
||||||
function NewItem : IBizComisiones;
|
function NewItem : IBizComisiones;
|
||||||
|
|
||||||
// Report
|
// Report
|
||||||
function GetReport(const AComisionID: Variant; const DesglosadoProv: Boolean; FechaIni: String; FechaFin: String; AAgenteID: Variant): Binary;
|
function GetReport(const AComisionID: String): Binary;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
{$R *.DFM}
|
{$R *.DFM}
|
||||||
|
|
||||||
uses
|
uses
|
||||||
FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, uDAInterfaces,
|
FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls,
|
||||||
schComisionesClient_Intf;
|
schComisionesClient_Intf;
|
||||||
|
|
||||||
{ TdmComisiones }
|
{ TdmComisiones }
|
||||||
@ -51,19 +52,20 @@ end;
|
|||||||
|
|
||||||
function TDataModuleComisiones.GetItems: IBizComisiones;
|
function TDataModuleComisiones.GetItems: IBizComisiones;
|
||||||
var
|
var
|
||||||
AComisiones : TDACDSDataTable;
|
AComisiones : TDAMemDataTable;
|
||||||
begin
|
begin
|
||||||
ShowHourglassCursor;
|
ShowHourglassCursor;
|
||||||
try
|
try
|
||||||
AComisiones := CloneDataTable(tbl_Comisiones);
|
AComisiones := CloneDataTable(tbl_Comisiones);
|
||||||
AComisiones.BusinessRulesID := BIZ_CLIENT_COMISIONES;
|
|
||||||
|
|
||||||
// EL CAMPO REFERENCIA TIENE QUE SER AUTOREFRESH!!!!!
|
// EL CAMPO REFERENCIA TIENE QUE SER AUTOREFRESH!!!!!
|
||||||
AComisiones.FieldByName(fld_ComisionesREFERENCIA).ServerAutoRefresh := TRUE;
|
AComisiones.FieldByName(fld_ComisionesREFERENCIA).ServerAutoRefresh := TRUE;
|
||||||
|
AComisiones.BusinessRulesID := BIZ_CLIENT_COMISIONES;
|
||||||
|
|
||||||
with TBizComisiones(AComisiones.BusinessEventsObj) do
|
with TBizComisiones(AComisiones.BusinessEventsObj) do
|
||||||
begin
|
begin
|
||||||
Facturas := _GetFacturas;
|
Facturas := _GetFacturas;
|
||||||
|
Vendedores := _GetVendedores;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
Result := (AComisiones as IBizComisiones);
|
Result := (AComisiones as IBizComisiones);
|
||||||
@ -90,15 +92,33 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TDataModuleComisiones.GetFacturasDesglosadas: IBizFacturasComision;
|
function TDataModuleComisiones._GetVendedores: IBizVendedoresComision;
|
||||||
var
|
var
|
||||||
AFacturasDesglosadas : TDAMemDataTable;
|
AVendedores : TDAMemDataTable;
|
||||||
begin
|
begin
|
||||||
ShowHourglassCursor;
|
ShowHourglassCursor;
|
||||||
try
|
try
|
||||||
AFacturasDesglosadas := CloneDataTable(tbl_V_Detalles_Facturas_Comision);
|
AVendedores := CloneDataTable(tbl_Vendedores_Comision);
|
||||||
AFacturasDesglosadas.BusinessRulesID := BIZ_CLIENT_FACTURAS_COMISION;
|
with AVendedores do
|
||||||
Result := (AFacturasDesglosadas as IBizFacturasComision);
|
begin
|
||||||
|
BusinessRulesID := BIZ_CLIENT_VENDEDORES_COMISION;
|
||||||
|
DetailOptions := DetailOptions - [dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates];
|
||||||
|
end;
|
||||||
|
Result := (AVendedores as IBizVendedoresComision);
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TDataModuleComisiones.GetFacturasSinComision: IBizFacturasComision;
|
||||||
|
var
|
||||||
|
AFacturasSinComision : TDAMemDataTable;
|
||||||
|
begin
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
// AFacturasSinComision := CloneDataTable(tbl_V_Detalles_Facturas_Comision);
|
||||||
|
// AFacturasSinComision.BusinessRulesID := BIZ_CLIENT_FACTURAS_COMISION;
|
||||||
|
Result := (AFacturasSinComision as IBizFacturasComision);
|
||||||
finally
|
finally
|
||||||
HideHourglassCursor;
|
HideHourglassCursor;
|
||||||
end;
|
end;
|
||||||
@ -128,9 +148,9 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TDataModuleComisiones.GetReport(const AComisionID: Variant; const DesglosadoProv: Boolean; FechaIni: String; FechaFin: String; AAgenteID: Variant): Binary;
|
function TDataModuleComisiones.GetReport(const AComisionID: String): Binary;
|
||||||
begin
|
begin
|
||||||
// Result := (RORemoteService as IsrvComisiones).GenerateReport(AComisionID, DesglosadoProv, FechaIni, FechaFin, AAgenteID);
|
Result := (RORemoteService as IsrvComisiones).GenerateReport(AComisionID);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TDataModuleComisiones.NewItem: IBizComisiones;
|
function TDataModuleComisiones.NewItem: IBizComisiones;
|
||||||
|
|||||||
Binary file not shown.
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>
|
||||||
|
<ItemGroup />
|
||||||
|
<ItemGroup>
|
||||||
|
<DelphiCompile Include="Comisiones_model.dpk">
|
||||||
|
<MainSource>MainSource</MainSource>
|
||||||
|
</DelphiCompile>
|
||||||
|
<DCCReference Include="..\..\..\Lib\ApplicationBase.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>
|
||||||
|
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||||
|
</Project>
|
||||||
|
|
||||||
|
<!-- EurekaLog First Line
|
||||||
|
[Exception Log]
|
||||||
|
EurekaLog Version=6006
|
||||||
|
Activate=0
|
||||||
|
Activate Handle=1
|
||||||
|
Save Log File=1
|
||||||
|
Foreground Tab=0
|
||||||
|
Freeze Activate=0
|
||||||
|
Freeze Timeout=60
|
||||||
|
SMTP From=eurekalog@email.com
|
||||||
|
SMTP Host=
|
||||||
|
SMTP Port=25
|
||||||
|
SMTP UserID=
|
||||||
|
SMTP Password=
|
||||||
|
Append to Log=0
|
||||||
|
TerminateBtn Operation=2
|
||||||
|
Errors Number=32
|
||||||
|
Errors Terminate=3
|
||||||
|
Email Address=
|
||||||
|
Email Object=
|
||||||
|
Email Send Options=0
|
||||||
|
Output Path=
|
||||||
|
Encrypt Password=
|
||||||
|
AutoCloseDialogSecs=0
|
||||||
|
WebSendMode=0
|
||||||
|
SupportULR=
|
||||||
|
HTMLLayout Count=15
|
||||||
|
HTMLLine0="%3Chtml%3E"
|
||||||
|
HTMLLine1=" %3Chead%3E"
|
||||||
|
HTMLLine2=" %3C/head%3E"
|
||||||
|
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
|
||||||
|
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
|
||||||
|
HTMLLine5=" %3Ctr%3E"
|
||||||
|
HTMLLine6=" %3Ctd nowrap%3E"
|
||||||
|
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
|
||||||
|
HTMLLine8=" %3C%%HTML_TAG%%%3E"
|
||||||
|
HTMLLine9=" %3C/font%3E"
|
||||||
|
HTMLLine10=" %3C/td%3E"
|
||||||
|
HTMLLine11=" %3C/tr%3E"
|
||||||
|
HTMLLine12=" %3C/table%3E"
|
||||||
|
HTMLLine13=" %3C/body%3E"
|
||||||
|
HTMLLine14="%3C/html%3E"
|
||||||
|
AutoCrashOperation=2
|
||||||
|
AutoCrashNumber=10
|
||||||
|
AutoCrashMinutes=1
|
||||||
|
WebURL=
|
||||||
|
WebUserID=
|
||||||
|
WebPassword=
|
||||||
|
WebPort=0
|
||||||
|
AttachedFiles=
|
||||||
|
ProxyURL=
|
||||||
|
ProxyUser=
|
||||||
|
ProxyPassword=
|
||||||
|
ProxyPort=8080
|
||||||
|
TrakerUser=
|
||||||
|
TrakerPassword=
|
||||||
|
TrakerAssignTo=
|
||||||
|
TrakerProject=
|
||||||
|
TrakerCategory=
|
||||||
|
TrakerTrialID=
|
||||||
|
ZipPassword=
|
||||||
|
PreBuildEvent=
|
||||||
|
PostSuccessfulBuildEvent=
|
||||||
|
PostFailureBuildEvent=
|
||||||
|
ExceptionDialogType=2
|
||||||
|
Count=0
|
||||||
|
EMail Message Line Count=0
|
||||||
|
loNoDuplicateErrors=0
|
||||||
|
loAppendReproduceText=0
|
||||||
|
loDeleteLogAtVersionChange=0
|
||||||
|
loAddComputerNameInLogFileName=0
|
||||||
|
loSaveModulesAndProcessesSections=1
|
||||||
|
loSaveAssemblerAndCPUSections=1
|
||||||
|
soAppStartDate=1
|
||||||
|
soAppName=1
|
||||||
|
soAppVersionNumber=1
|
||||||
|
soAppParameters=1
|
||||||
|
soAppCompilationDate=1
|
||||||
|
soAppUpTime=1
|
||||||
|
soExcDate=1
|
||||||
|
soExcAddress=1
|
||||||
|
soExcModuleName=1
|
||||||
|
soExcModuleVersion=1
|
||||||
|
soExcType=1
|
||||||
|
soExcMessage=1
|
||||||
|
soExcID=1
|
||||||
|
soExcCount=1
|
||||||
|
soExcStatus=1
|
||||||
|
soExcNote=1
|
||||||
|
soUserID=1
|
||||||
|
soUserName=1
|
||||||
|
soUserEmail=1
|
||||||
|
soUserPrivileges=1
|
||||||
|
soUserCompany=1
|
||||||
|
soActCtlsFormClass=1
|
||||||
|
soActCtlsFormText=1
|
||||||
|
soActCtlsControlClass=1
|
||||||
|
soActCtlsControlText=1
|
||||||
|
soCmpName=1
|
||||||
|
soCmpTotalMemory=1
|
||||||
|
soCmpFreeMemory=1
|
||||||
|
soCmpTotalDisk=1
|
||||||
|
soCmpFreeDisk=1
|
||||||
|
soCmpSysUpTime=1
|
||||||
|
soCmpProcessor=1
|
||||||
|
soCmpDisplayMode=1
|
||||||
|
soCmpDisplayDPI=1
|
||||||
|
soCmpVideoCard=1
|
||||||
|
soCmpPrinter=1
|
||||||
|
soOSType=1
|
||||||
|
soOSBuildN=1
|
||||||
|
soOSUpdate=1
|
||||||
|
soOSLanguage=1
|
||||||
|
soOSCharset=1
|
||||||
|
soNetIP=1
|
||||||
|
soNetSubmask=1
|
||||||
|
soNetGateway=1
|
||||||
|
soNetDNS1=1
|
||||||
|
soNetDNS2=1
|
||||||
|
soNetDHCP=1
|
||||||
|
soCustomData=1
|
||||||
|
sndShowSendDialog=1
|
||||||
|
sndShowSuccessFailureMsg=0
|
||||||
|
sndSendEntireLog=0
|
||||||
|
sndSendXMLLogCopy=0
|
||||||
|
sndSendScreenshot=1
|
||||||
|
sndUseOnlyActiveWindow=0
|
||||||
|
sndSendLastHTMLPage=1
|
||||||
|
sndSendInSeparatedThread=0
|
||||||
|
sndAddDateInFileName=0
|
||||||
|
sndAddComputerNameInFileName=0
|
||||||
|
edoSendErrorReportChecked=1
|
||||||
|
edoAttachScreenshotChecked=1
|
||||||
|
edoShowCopyToClipOption=1
|
||||||
|
edoShowDetailsButton=1
|
||||||
|
edoShowInDetailedMode=0
|
||||||
|
edoShowInTopMostMode=0
|
||||||
|
edoUseEurekaLogLookAndFeel=0
|
||||||
|
edoShowSendErrorReportOption=1
|
||||||
|
edoShowAttachScreenshotOption=1
|
||||||
|
edoShowCustomButton=0
|
||||||
|
csoShowDLLs=1
|
||||||
|
csoShowBPLs=1
|
||||||
|
csoShowBorlandThreads=1
|
||||||
|
csoShowWindowsThreads=1
|
||||||
|
csoDoNotStoreProcNames=0
|
||||||
|
boPauseBorlandThreads=0
|
||||||
|
boDoNotPauseMainThread=0
|
||||||
|
boPauseWindowsThreads=0
|
||||||
|
boUseMainModuleOptions=1
|
||||||
|
boCopyLogInCaseOfError=1
|
||||||
|
boSaveCompressedCopyInCaseOfError=0
|
||||||
|
boHandleSafeCallExceptions=1
|
||||||
|
boCallRTLExceptionEvent=0
|
||||||
|
boCatchHandledExceptions=0
|
||||||
|
loCatchLeaks=0
|
||||||
|
loGroupsSonLeaks=1
|
||||||
|
loHideBorlandLeaks=1
|
||||||
|
loFreeAllLeaks=1
|
||||||
|
loCatchLeaksExceptions=1
|
||||||
|
cfoReduceFileSize=1
|
||||||
|
cfoCheckFileCorruption=0
|
||||||
|
Count mtInformationMsgCaption=1
|
||||||
|
mtInformationMsgCaption0="Information."
|
||||||
|
Count mtQuestionMsgCaption=1
|
||||||
|
mtQuestionMsgCaption0="Question."
|
||||||
|
Count mtErrorMsgCaption=1
|
||||||
|
mtErrorMsgCaption0="Error."
|
||||||
|
Count mtDialog_Caption=1
|
||||||
|
mtDialog_Caption0="Error occurred"
|
||||||
|
Count mtDialog_ErrorMsgCaption=2
|
||||||
|
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
|
||||||
|
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
|
||||||
|
Count mtDialog_GeneralCaption=1
|
||||||
|
mtDialog_GeneralCaption0="General"
|
||||||
|
Count mtDialog_GeneralHeader=1
|
||||||
|
mtDialog_GeneralHeader0="General Information"
|
||||||
|
Count mtDialog_CallStackCaption=1
|
||||||
|
mtDialog_CallStackCaption0="Call Stack"
|
||||||
|
Count mtDialog_CallStackHeader=1
|
||||||
|
mtDialog_CallStackHeader0="Call Stack Information"
|
||||||
|
Count mtDialog_ModulesCaption=1
|
||||||
|
mtDialog_ModulesCaption0="Modules"
|
||||||
|
Count mtDialog_ModulesHeader=1
|
||||||
|
mtDialog_ModulesHeader0="Modules Information"
|
||||||
|
Count mtDialog_ProcessesCaption=1
|
||||||
|
mtDialog_ProcessesCaption0="Processes"
|
||||||
|
Count mtDialog_ProcessesHeader=1
|
||||||
|
mtDialog_ProcessesHeader0="Processes Information"
|
||||||
|
Count mtDialog_AsmCaption=1
|
||||||
|
mtDialog_AsmCaption0="Assembler"
|
||||||
|
Count mtDialog_AsmHeader=1
|
||||||
|
mtDialog_AsmHeader0="Assembler Information"
|
||||||
|
Count mtDialog_CPUCaption=1
|
||||||
|
mtDialog_CPUCaption0="CPU"
|
||||||
|
Count mtDialog_CPUHeader=1
|
||||||
|
mtDialog_CPUHeader0="CPU Information"
|
||||||
|
Count mtDialog_OKButtonCaption=1
|
||||||
|
mtDialog_OKButtonCaption0="%26OK"
|
||||||
|
Count mtDialog_TerminateButtonCaption=1
|
||||||
|
mtDialog_TerminateButtonCaption0="%26Terminate"
|
||||||
|
Count mtDialog_RestartButtonCaption=1
|
||||||
|
mtDialog_RestartButtonCaption0="%26Restart"
|
||||||
|
Count mtDialog_DetailsButtonCaption=1
|
||||||
|
mtDialog_DetailsButtonCaption0="%26Details"
|
||||||
|
Count mtDialog_CustomButtonCaption=1
|
||||||
|
mtDialog_CustomButtonCaption0="%26Help"
|
||||||
|
Count mtDialog_SendMessage=1
|
||||||
|
mtDialog_SendMessage0="%26Send this error via Internet"
|
||||||
|
Count mtDialog_ScreenshotMessage=1
|
||||||
|
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
|
||||||
|
Count mtDialog_CopyMessage=1
|
||||||
|
mtDialog_CopyMessage0="%26Copy to Clipboard"
|
||||||
|
Count mtDialog_SupportMessage=1
|
||||||
|
mtDialog_SupportMessage0="Go to the Support Page"
|
||||||
|
Count mtMSDialog_ErrorMsgCaption=1
|
||||||
|
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
|
||||||
|
Count mtMSDialog_RestartCaption=1
|
||||||
|
mtMSDialog_RestartCaption0="Restart application."
|
||||||
|
Count mtMSDialog_TerminateCaption=1
|
||||||
|
mtMSDialog_TerminateCaption0="Terminate application."
|
||||||
|
Count mtMSDialog_PleaseCaption=1
|
||||||
|
mtMSDialog_PleaseCaption0="Please tell us about this problem."
|
||||||
|
Count mtMSDialog_DescriptionCaption=1
|
||||||
|
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
|
||||||
|
Count mtMSDialog_SeeDetailsCaption=1
|
||||||
|
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
|
||||||
|
Count mtMSDialog_SeeClickCaption=1
|
||||||
|
mtMSDialog_SeeClickCaption0="click here."
|
||||||
|
Count mtMSDialog_HowToReproduceCaption=1
|
||||||
|
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happended (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 -->
|
||||||
@ -7,12 +7,11 @@ uses
|
|||||||
|
|
||||||
type
|
type
|
||||||
IDataModuleComisiones = interface
|
IDataModuleComisiones = interface
|
||||||
['{3E1CCFC9-B804-4D80-85BD-F9B9D7908E0D}']
|
['{91E197D0-2356-46ED-81CD-4907D47A961F}']
|
||||||
function GetItems: IBizComisiones;
|
function GetItems: IBizComisiones;
|
||||||
function GetItem(const ID : Integer) : IBizComisiones;
|
function GetItem(const ID : Integer) : IBizComisiones;
|
||||||
function GetNextID(const DataSetName : String) : Integer;
|
|
||||||
function NewItem : IBizComisiones;
|
function NewItem : IBizComisiones;
|
||||||
function GetFacturasDesglosadas : IBizFacturasComision;
|
function GetFacturasSinComision : IBizFacturasComision;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|||||||
@ -7,8 +7,8 @@ uses
|
|||||||
|
|
||||||
type
|
type
|
||||||
IDataModuleComisionesReport = interface
|
IDataModuleComisionesReport = interface
|
||||||
['{F498AC70-AA38-4C06-B301-85A4AC0B210B}']
|
['{81994438-6047-4B97-83C1-257ED9CCDA74}']
|
||||||
function GetReport(const AComisionID: Variant; const DesglosadoProv: Boolean; FechaIni: String; FechaFin: String; AAgenteID: Variant): Binary;
|
function GetReport(const AComisionID: String): Binary;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|||||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@ -1,622 +0,0 @@
|
|||||||
unit schReportClient_Intf;
|
|
||||||
|
|
||||||
interface
|
|
||||||
|
|
||||||
uses
|
|
||||||
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable;
|
|
||||||
|
|
||||||
const
|
|
||||||
{ Data table rules ids
|
|
||||||
Feel free to change them to something more human readable
|
|
||||||
but make sure they are unique in the context of your application }
|
|
||||||
RID_InformeComisiones = '{1FE7EF1F-1A5F-49F0-884E-059EA3E9AEDB}';
|
|
||||||
|
|
||||||
{ Data table names }
|
|
||||||
nme_InformeComisiones = 'InformeComisiones';
|
|
||||||
|
|
||||||
{ InformeComisiones fields }
|
|
||||||
fld_InformeComisionesFECHA_COMISION = 'FECHA_COMISION';
|
|
||||||
fld_InformeComisionesREFERENCIA_COMISION = 'REFERENCIA_COMISION';
|
|
||||||
fld_InformeComisionesDESCRIPCION = 'DESCRIPCION';
|
|
||||||
fld_InformeComisionesIMPORTE_TOTAL = 'IMPORTE_TOTAL';
|
|
||||||
fld_InformeComisionesID_EMPRESA = 'ID_EMPRESA';
|
|
||||||
fld_InformeComisionesNIF_CIF_EMPRESA = 'NIF_CIF_EMPRESA';
|
|
||||||
fld_InformeComisionesRAZON_SOCIAL = 'RAZON_SOCIAL';
|
|
||||||
fld_InformeComisionesCALLE_EMPRESA = 'CALLE_EMPRESA';
|
|
||||||
fld_InformeComisionesPOBLACION_EMPRESA = 'POBLACION_EMPRESA';
|
|
||||||
fld_InformeComisionesPROVINCIA_EMPRESA = 'PROVINCIA_EMPRESA';
|
|
||||||
fld_InformeComisionesCODIGO_POSTAL_EMPRESA = 'CODIGO_POSTAL_EMPRESA';
|
|
||||||
fld_InformeComisionesTELEFONO_1 = 'TELEFONO_1';
|
|
||||||
fld_InformeComisionesFAX = 'FAX';
|
|
||||||
fld_InformeComisionesMOVIL_1 = 'MOVIL_1';
|
|
||||||
fld_InformeComisionesEMAIL_1 = 'EMAIL_1';
|
|
||||||
fld_InformeComisionesPAGINA_WEB = 'PAGINA_WEB';
|
|
||||||
fld_InformeComisionesREGISTRO_MERCANTIL = 'REGISTRO_MERCANTIL';
|
|
||||||
fld_InformeComisionesID_AGENTE = 'ID_AGENTE';
|
|
||||||
fld_InformeComisionesAGENTE = 'AGENTE';
|
|
||||||
fld_InformeComisionesID_FACTURA = 'ID_FACTURA';
|
|
||||||
fld_InformeComisionesID_COMISION_LIQUIDADA = 'ID_COMISION_LIQUIDADA';
|
|
||||||
fld_InformeComisionesFECHA = 'FECHA';
|
|
||||||
fld_InformeComisionesREFERENCIA = 'REFERENCIA';
|
|
||||||
fld_InformeComisionesSITUACION = 'SITUACION';
|
|
||||||
fld_InformeComisionesID_CLIENTE = 'ID_CLIENTE';
|
|
||||||
fld_InformeComisionesCLIENTE = 'CLIENTE';
|
|
||||||
fld_InformeComisionesID_PROVEEDOR = 'ID_PROVEEDOR';
|
|
||||||
fld_InformeComisionesPROVEEDOR = 'PROVEEDOR';
|
|
||||||
fld_InformeComisionesCOMISION = 'COMISION';
|
|
||||||
fld_InformeComisionesIMPORTE_COMISIONABLE = 'IMPORTE_COMISIONABLE';
|
|
||||||
fld_InformeComisionesIMPORTE_COMISION = 'IMPORTE_COMISION';
|
|
||||||
|
|
||||||
{ InformeComisiones field indexes }
|
|
||||||
idx_InformeComisionesFECHA_COMISION = 0;
|
|
||||||
idx_InformeComisionesREFERENCIA_COMISION = 1;
|
|
||||||
idx_InformeComisionesDESCRIPCION = 2;
|
|
||||||
idx_InformeComisionesIMPORTE_TOTAL = 3;
|
|
||||||
idx_InformeComisionesID_EMPRESA = 4;
|
|
||||||
idx_InformeComisionesNIF_CIF_EMPRESA = 5;
|
|
||||||
idx_InformeComisionesRAZON_SOCIAL = 6;
|
|
||||||
idx_InformeComisionesCALLE_EMPRESA = 7;
|
|
||||||
idx_InformeComisionesPOBLACION_EMPRESA = 8;
|
|
||||||
idx_InformeComisionesPROVINCIA_EMPRESA = 9;
|
|
||||||
idx_InformeComisionesCODIGO_POSTAL_EMPRESA = 10;
|
|
||||||
idx_InformeComisionesTELEFONO_1 = 11;
|
|
||||||
idx_InformeComisionesFAX = 12;
|
|
||||||
idx_InformeComisionesMOVIL_1 = 13;
|
|
||||||
idx_InformeComisionesEMAIL_1 = 14;
|
|
||||||
idx_InformeComisionesPAGINA_WEB = 15;
|
|
||||||
idx_InformeComisionesREGISTRO_MERCANTIL = 16;
|
|
||||||
idx_InformeComisionesID_AGENTE = 17;
|
|
||||||
idx_InformeComisionesAGENTE = 18;
|
|
||||||
idx_InformeComisionesID_FACTURA = 19;
|
|
||||||
idx_InformeComisionesID_COMISION_LIQUIDADA = 20;
|
|
||||||
idx_InformeComisionesFECHA = 21;
|
|
||||||
idx_InformeComisionesREFERENCIA = 22;
|
|
||||||
idx_InformeComisionesSITUACION = 23;
|
|
||||||
idx_InformeComisionesID_CLIENTE = 24;
|
|
||||||
idx_InformeComisionesCLIENTE = 25;
|
|
||||||
idx_InformeComisionesID_PROVEEDOR = 26;
|
|
||||||
idx_InformeComisionesPROVEEDOR = 27;
|
|
||||||
idx_InformeComisionesCOMISION = 28;
|
|
||||||
idx_InformeComisionesIMPORTE_COMISIONABLE = 29;
|
|
||||||
idx_InformeComisionesIMPORTE_COMISION = 30;
|
|
||||||
|
|
||||||
type
|
|
||||||
{ IInformeComisiones }
|
|
||||||
IInformeComisiones = interface(IDAStronglyTypedDataTable)
|
|
||||||
['{267AC63D-9C18-4E68-8E59-55511F3F7AAD}']
|
|
||||||
{ Property getters and setters }
|
|
||||||
function GetFECHA_COMISIONValue: DateTime;
|
|
||||||
procedure SetFECHA_COMISIONValue(const aValue: DateTime);
|
|
||||||
function GetREFERENCIA_COMISIONValue: String;
|
|
||||||
procedure SetREFERENCIA_COMISIONValue(const aValue: String);
|
|
||||||
function GetDESCRIPCIONValue: String;
|
|
||||||
procedure SetDESCRIPCIONValue(const aValue: String);
|
|
||||||
function GetIMPORTE_TOTALValue: Float;
|
|
||||||
procedure SetIMPORTE_TOTALValue(const aValue: Float);
|
|
||||||
function GetID_EMPRESAValue: Integer;
|
|
||||||
procedure SetID_EMPRESAValue(const aValue: Integer);
|
|
||||||
function GetNIF_CIF_EMPRESAValue: String;
|
|
||||||
procedure SetNIF_CIF_EMPRESAValue(const aValue: String);
|
|
||||||
function GetRAZON_SOCIALValue: String;
|
|
||||||
procedure SetRAZON_SOCIALValue(const aValue: String);
|
|
||||||
function GetCALLE_EMPRESAValue: String;
|
|
||||||
procedure SetCALLE_EMPRESAValue(const aValue: String);
|
|
||||||
function GetPOBLACION_EMPRESAValue: String;
|
|
||||||
procedure SetPOBLACION_EMPRESAValue(const aValue: String);
|
|
||||||
function GetPROVINCIA_EMPRESAValue: String;
|
|
||||||
procedure SetPROVINCIA_EMPRESAValue(const aValue: String);
|
|
||||||
function GetCODIGO_POSTAL_EMPRESAValue: String;
|
|
||||||
procedure SetCODIGO_POSTAL_EMPRESAValue(const aValue: String);
|
|
||||||
function GetTELEFONO_1Value: String;
|
|
||||||
procedure SetTELEFONO_1Value(const aValue: String);
|
|
||||||
function GetFAXValue: String;
|
|
||||||
procedure SetFAXValue(const aValue: String);
|
|
||||||
function GetMOVIL_1Value: String;
|
|
||||||
procedure SetMOVIL_1Value(const aValue: String);
|
|
||||||
function GetEMAIL_1Value: String;
|
|
||||||
procedure SetEMAIL_1Value(const aValue: String);
|
|
||||||
function GetPAGINA_WEBValue: String;
|
|
||||||
procedure SetPAGINA_WEBValue(const aValue: String);
|
|
||||||
function GetREGISTRO_MERCANTILValue: String;
|
|
||||||
procedure SetREGISTRO_MERCANTILValue(const aValue: String);
|
|
||||||
function GetID_AGENTEValue: Integer;
|
|
||||||
procedure SetID_AGENTEValue(const aValue: Integer);
|
|
||||||
function GetAGENTEValue: String;
|
|
||||||
procedure SetAGENTEValue(const aValue: String);
|
|
||||||
function GetID_FACTURAValue: Integer;
|
|
||||||
procedure SetID_FACTURAValue(const aValue: Integer);
|
|
||||||
function GetID_COMISION_LIQUIDADAValue: Integer;
|
|
||||||
procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer);
|
|
||||||
function GetFECHAValue: DateTime;
|
|
||||||
procedure SetFECHAValue(const aValue: DateTime);
|
|
||||||
function GetREFERENCIAValue: String;
|
|
||||||
procedure SetREFERENCIAValue(const aValue: String);
|
|
||||||
function GetSITUACIONValue: String;
|
|
||||||
procedure SetSITUACIONValue(const aValue: String);
|
|
||||||
function GetID_CLIENTEValue: Integer;
|
|
||||||
procedure SetID_CLIENTEValue(const aValue: Integer);
|
|
||||||
function GetCLIENTEValue: String;
|
|
||||||
procedure SetCLIENTEValue(const aValue: String);
|
|
||||||
function GetID_PROVEEDORValue: Integer;
|
|
||||||
procedure SetID_PROVEEDORValue(const aValue: Integer);
|
|
||||||
function GetPROVEEDORValue: String;
|
|
||||||
procedure SetPROVEEDORValue(const aValue: String);
|
|
||||||
function GetCOMISIONValue: Float;
|
|
||||||
procedure SetCOMISIONValue(const aValue: Float);
|
|
||||||
function GetIMPORTE_COMISIONABLEValue: Float;
|
|
||||||
procedure SetIMPORTE_COMISIONABLEValue(const aValue: Float);
|
|
||||||
function GetIMPORTE_COMISIONValue: Float;
|
|
||||||
procedure SetIMPORTE_COMISIONValue(const aValue: Float);
|
|
||||||
|
|
||||||
|
|
||||||
{ Properties }
|
|
||||||
property FECHA_COMISION: DateTime read GetFECHA_COMISIONValue write SetFECHA_COMISIONValue;
|
|
||||||
property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
|
|
||||||
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
|
||||||
property IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
|
|
||||||
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
|
||||||
property NIF_CIF_EMPRESA: String read GetNIF_CIF_EMPRESAValue write SetNIF_CIF_EMPRESAValue;
|
|
||||||
property RAZON_SOCIAL: String read GetRAZON_SOCIALValue write SetRAZON_SOCIALValue;
|
|
||||||
property CALLE_EMPRESA: String read GetCALLE_EMPRESAValue write SetCALLE_EMPRESAValue;
|
|
||||||
property POBLACION_EMPRESA: String read GetPOBLACION_EMPRESAValue write SetPOBLACION_EMPRESAValue;
|
|
||||||
property PROVINCIA_EMPRESA: String read GetPROVINCIA_EMPRESAValue write SetPROVINCIA_EMPRESAValue;
|
|
||||||
property CODIGO_POSTAL_EMPRESA: String read GetCODIGO_POSTAL_EMPRESAValue write SetCODIGO_POSTAL_EMPRESAValue;
|
|
||||||
property TELEFONO_1: String read GetTELEFONO_1Value write SetTELEFONO_1Value;
|
|
||||||
property FAX: String read GetFAXValue write SetFAXValue;
|
|
||||||
property MOVIL_1: String read GetMOVIL_1Value write SetMOVIL_1Value;
|
|
||||||
property EMAIL_1: String read GetEMAIL_1Value write SetEMAIL_1Value;
|
|
||||||
property PAGINA_WEB: String read GetPAGINA_WEBValue write SetPAGINA_WEBValue;
|
|
||||||
property REGISTRO_MERCANTIL: String read GetREGISTRO_MERCANTILValue write SetREGISTRO_MERCANTILValue;
|
|
||||||
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
|
|
||||||
property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
|
|
||||||
property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
|
|
||||||
property ID_COMISION_LIQUIDADA: Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue;
|
|
||||||
property FECHA: DateTime read GetFECHAValue write SetFECHAValue;
|
|
||||||
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
|
|
||||||
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
|
|
||||||
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
|
|
||||||
property CLIENTE: String read GetCLIENTEValue write SetCLIENTEValue;
|
|
||||||
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
|
|
||||||
property PROVEEDOR: String read GetPROVEEDORValue write SetPROVEEDORValue;
|
|
||||||
property COMISION: Float read GetCOMISIONValue write SetCOMISIONValue;
|
|
||||||
property IMPORTE_COMISIONABLE: Float read GetIMPORTE_COMISIONABLEValue write SetIMPORTE_COMISIONABLEValue;
|
|
||||||
property IMPORTE_COMISION: Float read GetIMPORTE_COMISIONValue write SetIMPORTE_COMISIONValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
{ TInformeComisionesDataTableRules }
|
|
||||||
TInformeComisionesDataTableRules = class(TIntfObjectDADataTableRules, IInformeComisiones)
|
|
||||||
private
|
|
||||||
protected
|
|
||||||
{ Property getters and setters }
|
|
||||||
function GetFECHA_COMISIONValue: DateTime; virtual;
|
|
||||||
procedure SetFECHA_COMISIONValue(const aValue: DateTime); virtual;
|
|
||||||
function GetREFERENCIA_COMISIONValue: String; virtual;
|
|
||||||
procedure SetREFERENCIA_COMISIONValue(const aValue: String); virtual;
|
|
||||||
function GetDESCRIPCIONValue: String; virtual;
|
|
||||||
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
|
||||||
function GetIMPORTE_TOTALValue: Float; virtual;
|
|
||||||
procedure SetIMPORTE_TOTALValue(const aValue: Float); virtual;
|
|
||||||
function GetID_EMPRESAValue: Integer; virtual;
|
|
||||||
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
|
|
||||||
function GetNIF_CIF_EMPRESAValue: String; virtual;
|
|
||||||
procedure SetNIF_CIF_EMPRESAValue(const aValue: String); virtual;
|
|
||||||
function GetRAZON_SOCIALValue: String; virtual;
|
|
||||||
procedure SetRAZON_SOCIALValue(const aValue: String); virtual;
|
|
||||||
function GetCALLE_EMPRESAValue: String; virtual;
|
|
||||||
procedure SetCALLE_EMPRESAValue(const aValue: String); virtual;
|
|
||||||
function GetPOBLACION_EMPRESAValue: String; virtual;
|
|
||||||
procedure SetPOBLACION_EMPRESAValue(const aValue: String); virtual;
|
|
||||||
function GetPROVINCIA_EMPRESAValue: String; virtual;
|
|
||||||
procedure SetPROVINCIA_EMPRESAValue(const aValue: String); virtual;
|
|
||||||
function GetCODIGO_POSTAL_EMPRESAValue: String; virtual;
|
|
||||||
procedure SetCODIGO_POSTAL_EMPRESAValue(const aValue: String); virtual;
|
|
||||||
function GetTELEFONO_1Value: String; virtual;
|
|
||||||
procedure SetTELEFONO_1Value(const aValue: String); virtual;
|
|
||||||
function GetFAXValue: String; virtual;
|
|
||||||
procedure SetFAXValue(const aValue: String); virtual;
|
|
||||||
function GetMOVIL_1Value: String; virtual;
|
|
||||||
procedure SetMOVIL_1Value(const aValue: String); virtual;
|
|
||||||
function GetEMAIL_1Value: String; virtual;
|
|
||||||
procedure SetEMAIL_1Value(const aValue: String); virtual;
|
|
||||||
function GetPAGINA_WEBValue: String; virtual;
|
|
||||||
procedure SetPAGINA_WEBValue(const aValue: String); virtual;
|
|
||||||
function GetREGISTRO_MERCANTILValue: String; virtual;
|
|
||||||
procedure SetREGISTRO_MERCANTILValue(const aValue: String); virtual;
|
|
||||||
function GetID_AGENTEValue: Integer; virtual;
|
|
||||||
procedure SetID_AGENTEValue(const aValue: Integer); virtual;
|
|
||||||
function GetAGENTEValue: String; virtual;
|
|
||||||
procedure SetAGENTEValue(const aValue: String); virtual;
|
|
||||||
function GetID_FACTURAValue: Integer; virtual;
|
|
||||||
procedure SetID_FACTURAValue(const aValue: Integer); virtual;
|
|
||||||
function GetID_COMISION_LIQUIDADAValue: Integer; virtual;
|
|
||||||
procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer); virtual;
|
|
||||||
function GetFECHAValue: DateTime; virtual;
|
|
||||||
procedure SetFECHAValue(const aValue: DateTime); virtual;
|
|
||||||
function GetREFERENCIAValue: String; virtual;
|
|
||||||
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
|
||||||
function GetSITUACIONValue: String; virtual;
|
|
||||||
procedure SetSITUACIONValue(const aValue: String); virtual;
|
|
||||||
function GetID_CLIENTEValue: Integer; virtual;
|
|
||||||
procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
|
|
||||||
function GetCLIENTEValue: String; virtual;
|
|
||||||
procedure SetCLIENTEValue(const aValue: String); virtual;
|
|
||||||
function GetID_PROVEEDORValue: Integer; virtual;
|
|
||||||
procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
|
|
||||||
function GetPROVEEDORValue: String; virtual;
|
|
||||||
procedure SetPROVEEDORValue(const aValue: String); virtual;
|
|
||||||
function GetCOMISIONValue: Float; virtual;
|
|
||||||
procedure SetCOMISIONValue(const aValue: Float); virtual;
|
|
||||||
function GetIMPORTE_COMISIONABLEValue: Float; virtual;
|
|
||||||
procedure SetIMPORTE_COMISIONABLEValue(const aValue: Float); virtual;
|
|
||||||
function GetIMPORTE_COMISIONValue: Float; virtual;
|
|
||||||
procedure SetIMPORTE_COMISIONValue(const aValue: Float); virtual;
|
|
||||||
|
|
||||||
{ Properties }
|
|
||||||
property FECHA_COMISION: DateTime read GetFECHA_COMISIONValue write SetFECHA_COMISIONValue;
|
|
||||||
property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
|
|
||||||
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
|
||||||
property IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
|
|
||||||
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
|
||||||
property NIF_CIF_EMPRESA: String read GetNIF_CIF_EMPRESAValue write SetNIF_CIF_EMPRESAValue;
|
|
||||||
property RAZON_SOCIAL: String read GetRAZON_SOCIALValue write SetRAZON_SOCIALValue;
|
|
||||||
property CALLE_EMPRESA: String read GetCALLE_EMPRESAValue write SetCALLE_EMPRESAValue;
|
|
||||||
property POBLACION_EMPRESA: String read GetPOBLACION_EMPRESAValue write SetPOBLACION_EMPRESAValue;
|
|
||||||
property PROVINCIA_EMPRESA: String read GetPROVINCIA_EMPRESAValue write SetPROVINCIA_EMPRESAValue;
|
|
||||||
property CODIGO_POSTAL_EMPRESA: String read GetCODIGO_POSTAL_EMPRESAValue write SetCODIGO_POSTAL_EMPRESAValue;
|
|
||||||
property TELEFONO_1: String read GetTELEFONO_1Value write SetTELEFONO_1Value;
|
|
||||||
property FAX: String read GetFAXValue write SetFAXValue;
|
|
||||||
property MOVIL_1: String read GetMOVIL_1Value write SetMOVIL_1Value;
|
|
||||||
property EMAIL_1: String read GetEMAIL_1Value write SetEMAIL_1Value;
|
|
||||||
property PAGINA_WEB: String read GetPAGINA_WEBValue write SetPAGINA_WEBValue;
|
|
||||||
property REGISTRO_MERCANTIL: String read GetREGISTRO_MERCANTILValue write SetREGISTRO_MERCANTILValue;
|
|
||||||
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
|
|
||||||
property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
|
|
||||||
property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
|
|
||||||
property ID_COMISION_LIQUIDADA: Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue;
|
|
||||||
property FECHA: DateTime read GetFECHAValue write SetFECHAValue;
|
|
||||||
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
|
|
||||||
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
|
|
||||||
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
|
|
||||||
property CLIENTE: String read GetCLIENTEValue write SetCLIENTEValue;
|
|
||||||
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
|
|
||||||
property PROVEEDOR: String read GetPROVEEDORValue write SetPROVEEDORValue;
|
|
||||||
property COMISION: Float read GetCOMISIONValue write SetCOMISIONValue;
|
|
||||||
property IMPORTE_COMISIONABLE: Float read GetIMPORTE_COMISIONABLEValue write SetIMPORTE_COMISIONABLEValue;
|
|
||||||
property IMPORTE_COMISION: Float read GetIMPORTE_COMISIONValue write SetIMPORTE_COMISIONValue;
|
|
||||||
|
|
||||||
public
|
|
||||||
constructor Create(aDataTable: TDADataTable); override;
|
|
||||||
destructor Destroy; override;
|
|
||||||
|
|
||||||
end;
|
|
||||||
|
|
||||||
implementation
|
|
||||||
|
|
||||||
uses Variants;
|
|
||||||
|
|
||||||
{ TInformeComisionesDataTableRules }
|
|
||||||
constructor TInformeComisionesDataTableRules.Create(aDataTable: TDADataTable);
|
|
||||||
begin
|
|
||||||
inherited;
|
|
||||||
end;
|
|
||||||
|
|
||||||
destructor TInformeComisionesDataTableRules.Destroy;
|
|
||||||
begin
|
|
||||||
inherited;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesDataTableRules.GetFECHA_COMISIONValue: DateTime;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_InformeComisionesFECHA_COMISION].AsDateTime;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesDataTableRules.SetFECHA_COMISIONValue(const aValue: DateTime);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_InformeComisionesFECHA_COMISION].AsDateTime := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesDataTableRules.GetREFERENCIA_COMISIONValue: String;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_InformeComisionesREFERENCIA_COMISION].AsString;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesDataTableRules.SetREFERENCIA_COMISIONValue(const aValue: String);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_InformeComisionesREFERENCIA_COMISION].AsString := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesDataTableRules.GetDESCRIPCIONValue: String;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_InformeComisionesDESCRIPCION].AsString;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesDataTableRules.SetDESCRIPCIONValue(const aValue: String);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_InformeComisionesDESCRIPCION].AsString := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesDataTableRules.GetIMPORTE_TOTALValue: Float;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_InformeComisionesIMPORTE_TOTAL].AsFloat;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesDataTableRules.SetIMPORTE_TOTALValue(const aValue: Float);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_InformeComisionesIMPORTE_TOTAL].AsFloat := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesDataTableRules.GetID_EMPRESAValue: Integer;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_InformeComisionesID_EMPRESA].AsInteger;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_InformeComisionesID_EMPRESA].AsInteger := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesDataTableRules.GetNIF_CIF_EMPRESAValue: String;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_InformeComisionesNIF_CIF_EMPRESA].AsString;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesDataTableRules.SetNIF_CIF_EMPRESAValue(const aValue: String);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_InformeComisionesNIF_CIF_EMPRESA].AsString := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesDataTableRules.GetRAZON_SOCIALValue: String;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_InformeComisionesRAZON_SOCIAL].AsString;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesDataTableRules.SetRAZON_SOCIALValue(const aValue: String);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_InformeComisionesRAZON_SOCIAL].AsString := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesDataTableRules.GetCALLE_EMPRESAValue: String;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_InformeComisionesCALLE_EMPRESA].AsString;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesDataTableRules.SetCALLE_EMPRESAValue(const aValue: String);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_InformeComisionesCALLE_EMPRESA].AsString := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesDataTableRules.GetPOBLACION_EMPRESAValue: String;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_InformeComisionesPOBLACION_EMPRESA].AsString;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesDataTableRules.SetPOBLACION_EMPRESAValue(const aValue: String);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_InformeComisionesPOBLACION_EMPRESA].AsString := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesDataTableRules.GetPROVINCIA_EMPRESAValue: String;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_InformeComisionesPROVINCIA_EMPRESA].AsString;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesDataTableRules.SetPROVINCIA_EMPRESAValue(const aValue: String);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_InformeComisionesPROVINCIA_EMPRESA].AsString := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesDataTableRules.GetCODIGO_POSTAL_EMPRESAValue: String;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_InformeComisionesCODIGO_POSTAL_EMPRESA].AsString;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesDataTableRules.SetCODIGO_POSTAL_EMPRESAValue(const aValue: String);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_InformeComisionesCODIGO_POSTAL_EMPRESA].AsString := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesDataTableRules.GetTELEFONO_1Value: String;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_InformeComisionesTELEFONO_1].AsString;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesDataTableRules.SetTELEFONO_1Value(const aValue: String);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_InformeComisionesTELEFONO_1].AsString := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesDataTableRules.GetFAXValue: String;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_InformeComisionesFAX].AsString;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesDataTableRules.SetFAXValue(const aValue: String);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_InformeComisionesFAX].AsString := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesDataTableRules.GetMOVIL_1Value: String;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_InformeComisionesMOVIL_1].AsString;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesDataTableRules.SetMOVIL_1Value(const aValue: String);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_InformeComisionesMOVIL_1].AsString := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesDataTableRules.GetEMAIL_1Value: String;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_InformeComisionesEMAIL_1].AsString;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesDataTableRules.SetEMAIL_1Value(const aValue: String);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_InformeComisionesEMAIL_1].AsString := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesDataTableRules.GetPAGINA_WEBValue: String;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_InformeComisionesPAGINA_WEB].AsString;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesDataTableRules.SetPAGINA_WEBValue(const aValue: String);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_InformeComisionesPAGINA_WEB].AsString := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesDataTableRules.GetREGISTRO_MERCANTILValue: String;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_InformeComisionesREGISTRO_MERCANTIL].AsString;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesDataTableRules.SetREGISTRO_MERCANTILValue(const aValue: String);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_InformeComisionesREGISTRO_MERCANTIL].AsString := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesDataTableRules.GetID_AGENTEValue: Integer;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_InformeComisionesID_AGENTE].AsInteger;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesDataTableRules.SetID_AGENTEValue(const aValue: Integer);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_InformeComisionesID_AGENTE].AsInteger := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesDataTableRules.GetAGENTEValue: String;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_InformeComisionesAGENTE].AsString;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesDataTableRules.SetAGENTEValue(const aValue: String);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_InformeComisionesAGENTE].AsString := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesDataTableRules.GetID_FACTURAValue: Integer;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_InformeComisionesID_FACTURA].AsInteger;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesDataTableRules.SetID_FACTURAValue(const aValue: Integer);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_InformeComisionesID_FACTURA].AsInteger := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesDataTableRules.GetID_COMISION_LIQUIDADAValue: Integer;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_InformeComisionesID_COMISION_LIQUIDADA].AsInteger;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesDataTableRules.SetID_COMISION_LIQUIDADAValue(const aValue: Integer);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_InformeComisionesID_COMISION_LIQUIDADA].AsInteger := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesDataTableRules.GetFECHAValue: DateTime;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_InformeComisionesFECHA].AsDateTime;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesDataTableRules.SetFECHAValue(const aValue: DateTime);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_InformeComisionesFECHA].AsDateTime := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesDataTableRules.GetREFERENCIAValue: String;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_InformeComisionesREFERENCIA].AsString;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesDataTableRules.SetREFERENCIAValue(const aValue: String);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_InformeComisionesREFERENCIA].AsString := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesDataTableRules.GetSITUACIONValue: String;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_InformeComisionesSITUACION].AsString;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesDataTableRules.SetSITUACIONValue(const aValue: String);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_InformeComisionesSITUACION].AsString := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesDataTableRules.GetID_CLIENTEValue: Integer;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_InformeComisionesID_CLIENTE].AsInteger;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesDataTableRules.SetID_CLIENTEValue(const aValue: Integer);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_InformeComisionesID_CLIENTE].AsInteger := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesDataTableRules.GetCLIENTEValue: String;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_InformeComisionesCLIENTE].AsString;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesDataTableRules.SetCLIENTEValue(const aValue: String);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_InformeComisionesCLIENTE].AsString := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesDataTableRules.GetID_PROVEEDORValue: Integer;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_InformeComisionesID_PROVEEDOR].AsInteger;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesDataTableRules.SetID_PROVEEDORValue(const aValue: Integer);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_InformeComisionesID_PROVEEDOR].AsInteger := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesDataTableRules.GetPROVEEDORValue: String;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_InformeComisionesPROVEEDOR].AsString;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesDataTableRules.SetPROVEEDORValue(const aValue: String);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_InformeComisionesPROVEEDOR].AsString := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesDataTableRules.GetCOMISIONValue: Float;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_InformeComisionesCOMISION].AsFloat;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesDataTableRules.SetCOMISIONValue(const aValue: Float);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_InformeComisionesCOMISION].AsFloat := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesDataTableRules.GetIMPORTE_COMISIONABLEValue: Float;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_InformeComisionesIMPORTE_COMISIONABLE].AsFloat;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesDataTableRules.SetIMPORTE_COMISIONABLEValue(const aValue: Float);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_InformeComisionesIMPORTE_COMISIONABLE].AsFloat := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesDataTableRules.GetIMPORTE_COMISIONValue: Float;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_InformeComisionesIMPORTE_COMISION].AsFloat;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesDataTableRules.SetIMPORTE_COMISIONValue(const aValue: Float);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_InformeComisionesIMPORTE_COMISION].AsFloat := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
|
|
||||||
initialization
|
|
||||||
RegisterDataTableRules(RID_InformeComisiones, TInformeComisionesDataTableRules);
|
|
||||||
|
|
||||||
end.
|
|
||||||
@ -1,739 +0,0 @@
|
|||||||
unit schReportServer_Intf;
|
|
||||||
|
|
||||||
interface
|
|
||||||
|
|
||||||
uses
|
|
||||||
Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, schReportClient_Intf;
|
|
||||||
|
|
||||||
const
|
|
||||||
{ Delta rules ids
|
|
||||||
Feel free to change them to something more human readable
|
|
||||||
but make sure they are unique in the context of your application }
|
|
||||||
RID_InformeComisionesDelta = '{624C756A-A5EA-4038-A339-5B0C8E25A076}';
|
|
||||||
|
|
||||||
type
|
|
||||||
{ IInformeComisionesDelta }
|
|
||||||
IInformeComisionesDelta = interface(IInformeComisiones)
|
|
||||||
['{624C756A-A5EA-4038-A339-5B0C8E25A076}']
|
|
||||||
{ Property getters and setters }
|
|
||||||
function GetOldFECHA_COMISIONValue : DateTime;
|
|
||||||
function GetOldREFERENCIA_COMISIONValue : String;
|
|
||||||
function GetOldDESCRIPCIONValue : String;
|
|
||||||
function GetOldIMPORTE_TOTALValue : Float;
|
|
||||||
function GetOldID_EMPRESAValue : Integer;
|
|
||||||
function GetOldNIF_CIF_EMPRESAValue : String;
|
|
||||||
function GetOldRAZON_SOCIALValue : String;
|
|
||||||
function GetOldCALLE_EMPRESAValue : String;
|
|
||||||
function GetOldPOBLACION_EMPRESAValue : String;
|
|
||||||
function GetOldPROVINCIA_EMPRESAValue : String;
|
|
||||||
function GetOldCODIGO_POSTAL_EMPRESAValue : String;
|
|
||||||
function GetOldTELEFONO_1Value : String;
|
|
||||||
function GetOldFAXValue : String;
|
|
||||||
function GetOldMOVIL_1Value : String;
|
|
||||||
function GetOldEMAIL_1Value : String;
|
|
||||||
function GetOldPAGINA_WEBValue : String;
|
|
||||||
function GetOldREGISTRO_MERCANTILValue : String;
|
|
||||||
function GetOldID_AGENTEValue : Integer;
|
|
||||||
function GetOldAGENTEValue : String;
|
|
||||||
function GetOldID_FACTURAValue : Integer;
|
|
||||||
function GetOldID_COMISION_LIQUIDADAValue : Integer;
|
|
||||||
function GetOldFECHAValue : DateTime;
|
|
||||||
function GetOldREFERENCIAValue : String;
|
|
||||||
function GetOldSITUACIONValue : String;
|
|
||||||
function GetOldID_CLIENTEValue : Integer;
|
|
||||||
function GetOldCLIENTEValue : String;
|
|
||||||
function GetOldID_PROVEEDORValue : Integer;
|
|
||||||
function GetOldPROVEEDORValue : String;
|
|
||||||
function GetOldCOMISIONValue : Float;
|
|
||||||
function GetOldIMPORTE_COMISIONABLEValue : Float;
|
|
||||||
function GetOldIMPORTE_COMISIONValue : Float;
|
|
||||||
|
|
||||||
{ Properties }
|
|
||||||
property OldFECHA_COMISION : DateTime read GetOldFECHA_COMISIONValue;
|
|
||||||
property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue;
|
|
||||||
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
|
||||||
property OldIMPORTE_TOTAL : Float read GetOldIMPORTE_TOTALValue;
|
|
||||||
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
|
||||||
property OldNIF_CIF_EMPRESA : String read GetOldNIF_CIF_EMPRESAValue;
|
|
||||||
property OldRAZON_SOCIAL : String read GetOldRAZON_SOCIALValue;
|
|
||||||
property OldCALLE_EMPRESA : String read GetOldCALLE_EMPRESAValue;
|
|
||||||
property OldPOBLACION_EMPRESA : String read GetOldPOBLACION_EMPRESAValue;
|
|
||||||
property OldPROVINCIA_EMPRESA : String read GetOldPROVINCIA_EMPRESAValue;
|
|
||||||
property OldCODIGO_POSTAL_EMPRESA : String read GetOldCODIGO_POSTAL_EMPRESAValue;
|
|
||||||
property OldTELEFONO_1 : String read GetOldTELEFONO_1Value;
|
|
||||||
property OldFAX : String read GetOldFAXValue;
|
|
||||||
property OldMOVIL_1 : String read GetOldMOVIL_1Value;
|
|
||||||
property OldEMAIL_1 : String read GetOldEMAIL_1Value;
|
|
||||||
property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue;
|
|
||||||
property OldREGISTRO_MERCANTIL : String read GetOldREGISTRO_MERCANTILValue;
|
|
||||||
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
|
|
||||||
property OldAGENTE : String read GetOldAGENTEValue;
|
|
||||||
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
|
|
||||||
property OldID_COMISION_LIQUIDADA : Integer read GetOldID_COMISION_LIQUIDADAValue;
|
|
||||||
property OldFECHA : DateTime read GetOldFECHAValue;
|
|
||||||
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
|
||||||
property OldSITUACION : String read GetOldSITUACIONValue;
|
|
||||||
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
|
|
||||||
property OldCLIENTE : String read GetOldCLIENTEValue;
|
|
||||||
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
|
|
||||||
property OldPROVEEDOR : String read GetOldPROVEEDORValue;
|
|
||||||
property OldCOMISION : Float read GetOldCOMISIONValue;
|
|
||||||
property OldIMPORTE_COMISIONABLE : Float read GetOldIMPORTE_COMISIONABLEValue;
|
|
||||||
property OldIMPORTE_COMISION : Float read GetOldIMPORTE_COMISIONValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
{ TInformeComisionesBusinessProcessorRules }
|
|
||||||
TInformeComisionesBusinessProcessorRules = class(TDABusinessProcessorRules, IInformeComisiones, IInformeComisionesDelta)
|
|
||||||
private
|
|
||||||
protected
|
|
||||||
{ Property getters and setters }
|
|
||||||
function GetFECHA_COMISIONValue: DateTime; virtual;
|
|
||||||
function GetOldFECHA_COMISIONValue: DateTime; virtual;
|
|
||||||
procedure SetFECHA_COMISIONValue(const aValue: DateTime); virtual;
|
|
||||||
function GetREFERENCIA_COMISIONValue: String; virtual;
|
|
||||||
function GetOldREFERENCIA_COMISIONValue: String; virtual;
|
|
||||||
procedure SetREFERENCIA_COMISIONValue(const aValue: String); virtual;
|
|
||||||
function GetDESCRIPCIONValue: String; virtual;
|
|
||||||
function GetOldDESCRIPCIONValue: String; virtual;
|
|
||||||
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
|
||||||
function GetIMPORTE_TOTALValue: Float; virtual;
|
|
||||||
function GetOldIMPORTE_TOTALValue: Float; virtual;
|
|
||||||
procedure SetIMPORTE_TOTALValue(const aValue: Float); virtual;
|
|
||||||
function GetID_EMPRESAValue: Integer; virtual;
|
|
||||||
function GetOldID_EMPRESAValue: Integer; virtual;
|
|
||||||
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
|
|
||||||
function GetNIF_CIF_EMPRESAValue: String; virtual;
|
|
||||||
function GetOldNIF_CIF_EMPRESAValue: String; virtual;
|
|
||||||
procedure SetNIF_CIF_EMPRESAValue(const aValue: String); virtual;
|
|
||||||
function GetRAZON_SOCIALValue: String; virtual;
|
|
||||||
function GetOldRAZON_SOCIALValue: String; virtual;
|
|
||||||
procedure SetRAZON_SOCIALValue(const aValue: String); virtual;
|
|
||||||
function GetCALLE_EMPRESAValue: String; virtual;
|
|
||||||
function GetOldCALLE_EMPRESAValue: String; virtual;
|
|
||||||
procedure SetCALLE_EMPRESAValue(const aValue: String); virtual;
|
|
||||||
function GetPOBLACION_EMPRESAValue: String; virtual;
|
|
||||||
function GetOldPOBLACION_EMPRESAValue: String; virtual;
|
|
||||||
procedure SetPOBLACION_EMPRESAValue(const aValue: String); virtual;
|
|
||||||
function GetPROVINCIA_EMPRESAValue: String; virtual;
|
|
||||||
function GetOldPROVINCIA_EMPRESAValue: String; virtual;
|
|
||||||
procedure SetPROVINCIA_EMPRESAValue(const aValue: String); virtual;
|
|
||||||
function GetCODIGO_POSTAL_EMPRESAValue: String; virtual;
|
|
||||||
function GetOldCODIGO_POSTAL_EMPRESAValue: String; virtual;
|
|
||||||
procedure SetCODIGO_POSTAL_EMPRESAValue(const aValue: String); virtual;
|
|
||||||
function GetTELEFONO_1Value: String; virtual;
|
|
||||||
function GetOldTELEFONO_1Value: String; virtual;
|
|
||||||
procedure SetTELEFONO_1Value(const aValue: String); virtual;
|
|
||||||
function GetFAXValue: String; virtual;
|
|
||||||
function GetOldFAXValue: String; virtual;
|
|
||||||
procedure SetFAXValue(const aValue: String); virtual;
|
|
||||||
function GetMOVIL_1Value: String; virtual;
|
|
||||||
function GetOldMOVIL_1Value: String; virtual;
|
|
||||||
procedure SetMOVIL_1Value(const aValue: String); virtual;
|
|
||||||
function GetEMAIL_1Value: String; virtual;
|
|
||||||
function GetOldEMAIL_1Value: String; virtual;
|
|
||||||
procedure SetEMAIL_1Value(const aValue: String); virtual;
|
|
||||||
function GetPAGINA_WEBValue: String; virtual;
|
|
||||||
function GetOldPAGINA_WEBValue: String; virtual;
|
|
||||||
procedure SetPAGINA_WEBValue(const aValue: String); virtual;
|
|
||||||
function GetREGISTRO_MERCANTILValue: String; virtual;
|
|
||||||
function GetOldREGISTRO_MERCANTILValue: String; virtual;
|
|
||||||
procedure SetREGISTRO_MERCANTILValue(const aValue: String); virtual;
|
|
||||||
function GetID_AGENTEValue: Integer; virtual;
|
|
||||||
function GetOldID_AGENTEValue: Integer; virtual;
|
|
||||||
procedure SetID_AGENTEValue(const aValue: Integer); virtual;
|
|
||||||
function GetAGENTEValue: String; virtual;
|
|
||||||
function GetOldAGENTEValue: String; virtual;
|
|
||||||
procedure SetAGENTEValue(const aValue: String); virtual;
|
|
||||||
function GetID_FACTURAValue: Integer; virtual;
|
|
||||||
function GetOldID_FACTURAValue: Integer; virtual;
|
|
||||||
procedure SetID_FACTURAValue(const aValue: Integer); virtual;
|
|
||||||
function GetID_COMISION_LIQUIDADAValue: Integer; virtual;
|
|
||||||
function GetOldID_COMISION_LIQUIDADAValue: Integer; virtual;
|
|
||||||
procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer); virtual;
|
|
||||||
function GetFECHAValue: DateTime; virtual;
|
|
||||||
function GetOldFECHAValue: DateTime; virtual;
|
|
||||||
procedure SetFECHAValue(const aValue: DateTime); virtual;
|
|
||||||
function GetREFERENCIAValue: String; virtual;
|
|
||||||
function GetOldREFERENCIAValue: String; virtual;
|
|
||||||
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
|
||||||
function GetSITUACIONValue: String; virtual;
|
|
||||||
function GetOldSITUACIONValue: String; virtual;
|
|
||||||
procedure SetSITUACIONValue(const aValue: String); virtual;
|
|
||||||
function GetID_CLIENTEValue: Integer; virtual;
|
|
||||||
function GetOldID_CLIENTEValue: Integer; virtual;
|
|
||||||
procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
|
|
||||||
function GetCLIENTEValue: String; virtual;
|
|
||||||
function GetOldCLIENTEValue: String; virtual;
|
|
||||||
procedure SetCLIENTEValue(const aValue: String); virtual;
|
|
||||||
function GetID_PROVEEDORValue: Integer; virtual;
|
|
||||||
function GetOldID_PROVEEDORValue: Integer; virtual;
|
|
||||||
procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
|
|
||||||
function GetPROVEEDORValue: String; virtual;
|
|
||||||
function GetOldPROVEEDORValue: String; virtual;
|
|
||||||
procedure SetPROVEEDORValue(const aValue: String); virtual;
|
|
||||||
function GetCOMISIONValue: Float; virtual;
|
|
||||||
function GetOldCOMISIONValue: Float; virtual;
|
|
||||||
procedure SetCOMISIONValue(const aValue: Float); virtual;
|
|
||||||
function GetIMPORTE_COMISIONABLEValue: Float; virtual;
|
|
||||||
function GetOldIMPORTE_COMISIONABLEValue: Float; virtual;
|
|
||||||
procedure SetIMPORTE_COMISIONABLEValue(const aValue: Float); virtual;
|
|
||||||
function GetIMPORTE_COMISIONValue: Float; virtual;
|
|
||||||
function GetOldIMPORTE_COMISIONValue: Float; virtual;
|
|
||||||
procedure SetIMPORTE_COMISIONValue(const aValue: Float); virtual;
|
|
||||||
|
|
||||||
{ Properties }
|
|
||||||
property FECHA_COMISION : DateTime read GetFECHA_COMISIONValue write SetFECHA_COMISIONValue;
|
|
||||||
property OldFECHA_COMISION : DateTime read GetOldFECHA_COMISIONValue;
|
|
||||||
property REFERENCIA_COMISION : String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
|
|
||||||
property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue;
|
|
||||||
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
|
||||||
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
|
||||||
property IMPORTE_TOTAL : Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
|
|
||||||
property OldIMPORTE_TOTAL : Float read GetOldIMPORTE_TOTALValue;
|
|
||||||
property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
|
||||||
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
|
||||||
property NIF_CIF_EMPRESA : String read GetNIF_CIF_EMPRESAValue write SetNIF_CIF_EMPRESAValue;
|
|
||||||
property OldNIF_CIF_EMPRESA : String read GetOldNIF_CIF_EMPRESAValue;
|
|
||||||
property RAZON_SOCIAL : String read GetRAZON_SOCIALValue write SetRAZON_SOCIALValue;
|
|
||||||
property OldRAZON_SOCIAL : String read GetOldRAZON_SOCIALValue;
|
|
||||||
property CALLE_EMPRESA : String read GetCALLE_EMPRESAValue write SetCALLE_EMPRESAValue;
|
|
||||||
property OldCALLE_EMPRESA : String read GetOldCALLE_EMPRESAValue;
|
|
||||||
property POBLACION_EMPRESA : String read GetPOBLACION_EMPRESAValue write SetPOBLACION_EMPRESAValue;
|
|
||||||
property OldPOBLACION_EMPRESA : String read GetOldPOBLACION_EMPRESAValue;
|
|
||||||
property PROVINCIA_EMPRESA : String read GetPROVINCIA_EMPRESAValue write SetPROVINCIA_EMPRESAValue;
|
|
||||||
property OldPROVINCIA_EMPRESA : String read GetOldPROVINCIA_EMPRESAValue;
|
|
||||||
property CODIGO_POSTAL_EMPRESA : String read GetCODIGO_POSTAL_EMPRESAValue write SetCODIGO_POSTAL_EMPRESAValue;
|
|
||||||
property OldCODIGO_POSTAL_EMPRESA : String read GetOldCODIGO_POSTAL_EMPRESAValue;
|
|
||||||
property TELEFONO_1 : String read GetTELEFONO_1Value write SetTELEFONO_1Value;
|
|
||||||
property OldTELEFONO_1 : String read GetOldTELEFONO_1Value;
|
|
||||||
property FAX : String read GetFAXValue write SetFAXValue;
|
|
||||||
property OldFAX : String read GetOldFAXValue;
|
|
||||||
property MOVIL_1 : String read GetMOVIL_1Value write SetMOVIL_1Value;
|
|
||||||
property OldMOVIL_1 : String read GetOldMOVIL_1Value;
|
|
||||||
property EMAIL_1 : String read GetEMAIL_1Value write SetEMAIL_1Value;
|
|
||||||
property OldEMAIL_1 : String read GetOldEMAIL_1Value;
|
|
||||||
property PAGINA_WEB : String read GetPAGINA_WEBValue write SetPAGINA_WEBValue;
|
|
||||||
property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue;
|
|
||||||
property REGISTRO_MERCANTIL : String read GetREGISTRO_MERCANTILValue write SetREGISTRO_MERCANTILValue;
|
|
||||||
property OldREGISTRO_MERCANTIL : String read GetOldREGISTRO_MERCANTILValue;
|
|
||||||
property ID_AGENTE : Integer read GetID_AGENTEValue write SetID_AGENTEValue;
|
|
||||||
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
|
|
||||||
property AGENTE : String read GetAGENTEValue write SetAGENTEValue;
|
|
||||||
property OldAGENTE : String read GetOldAGENTEValue;
|
|
||||||
property ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue;
|
|
||||||
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
|
|
||||||
property ID_COMISION_LIQUIDADA : Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue;
|
|
||||||
property OldID_COMISION_LIQUIDADA : Integer read GetOldID_COMISION_LIQUIDADAValue;
|
|
||||||
property FECHA : DateTime read GetFECHAValue write SetFECHAValue;
|
|
||||||
property OldFECHA : DateTime read GetOldFECHAValue;
|
|
||||||
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
|
|
||||||
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
|
||||||
property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue;
|
|
||||||
property OldSITUACION : String read GetOldSITUACIONValue;
|
|
||||||
property ID_CLIENTE : Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
|
|
||||||
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
|
|
||||||
property CLIENTE : String read GetCLIENTEValue write SetCLIENTEValue;
|
|
||||||
property OldCLIENTE : String read GetOldCLIENTEValue;
|
|
||||||
property ID_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
|
|
||||||
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
|
|
||||||
property PROVEEDOR : String read GetPROVEEDORValue write SetPROVEEDORValue;
|
|
||||||
property OldPROVEEDOR : String read GetOldPROVEEDORValue;
|
|
||||||
property COMISION : Float read GetCOMISIONValue write SetCOMISIONValue;
|
|
||||||
property OldCOMISION : Float read GetOldCOMISIONValue;
|
|
||||||
property IMPORTE_COMISIONABLE : Float read GetIMPORTE_COMISIONABLEValue write SetIMPORTE_COMISIONABLEValue;
|
|
||||||
property OldIMPORTE_COMISIONABLE : Float read GetOldIMPORTE_COMISIONABLEValue;
|
|
||||||
property IMPORTE_COMISION : Float read GetIMPORTE_COMISIONValue write SetIMPORTE_COMISIONValue;
|
|
||||||
property OldIMPORTE_COMISION : Float read GetOldIMPORTE_COMISIONValue;
|
|
||||||
|
|
||||||
public
|
|
||||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
||||||
destructor Destroy; override;
|
|
||||||
|
|
||||||
end;
|
|
||||||
|
|
||||||
implementation
|
|
||||||
|
|
||||||
uses
|
|
||||||
Variants, uROBinaryHelpers;
|
|
||||||
|
|
||||||
{ TInformeComisionesBusinessProcessorRules }
|
|
||||||
constructor TInformeComisionesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
||||||
begin
|
|
||||||
inherited;
|
|
||||||
end;
|
|
||||||
|
|
||||||
destructor TInformeComisionesBusinessProcessorRules.Destroy;
|
|
||||||
begin
|
|
||||||
inherited;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetFECHA_COMISIONValue: DateTime;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesFECHA_COMISION];
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetOldFECHA_COMISIONValue: DateTime;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesFECHA_COMISION];
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesBusinessProcessorRules.SetFECHA_COMISIONValue(const aValue: DateTime);
|
|
||||||
begin
|
|
||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesFECHA_COMISION] := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetREFERENCIA_COMISIONValue: String;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesREFERENCIA_COMISION];
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetOldREFERENCIA_COMISIONValue: String;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesREFERENCIA_COMISION];
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesBusinessProcessorRules.SetREFERENCIA_COMISIONValue(const aValue: String);
|
|
||||||
begin
|
|
||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesREFERENCIA_COMISION] := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetDESCRIPCIONValue: String;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesDESCRIPCION];
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesDESCRIPCION];
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
|
|
||||||
begin
|
|
||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesDESCRIPCION] := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetIMPORTE_TOTALValue: Float;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesIMPORTE_TOTAL];
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Float;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesIMPORTE_TOTAL];
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Float);
|
|
||||||
begin
|
|
||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesIMPORTE_TOTAL] := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetID_EMPRESAValue: Integer;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesID_EMPRESA];
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesID_EMPRESA];
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
|
|
||||||
begin
|
|
||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesID_EMPRESA] := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetNIF_CIF_EMPRESAValue: String;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesNIF_CIF_EMPRESA];
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetOldNIF_CIF_EMPRESAValue: String;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesNIF_CIF_EMPRESA];
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesBusinessProcessorRules.SetNIF_CIF_EMPRESAValue(const aValue: String);
|
|
||||||
begin
|
|
||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesNIF_CIF_EMPRESA] := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetRAZON_SOCIALValue: String;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesRAZON_SOCIAL];
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetOldRAZON_SOCIALValue: String;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesRAZON_SOCIAL];
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesBusinessProcessorRules.SetRAZON_SOCIALValue(const aValue: String);
|
|
||||||
begin
|
|
||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesRAZON_SOCIAL] := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetCALLE_EMPRESAValue: String;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesCALLE_EMPRESA];
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetOldCALLE_EMPRESAValue: String;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesCALLE_EMPRESA];
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesBusinessProcessorRules.SetCALLE_EMPRESAValue(const aValue: String);
|
|
||||||
begin
|
|
||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesCALLE_EMPRESA] := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetPOBLACION_EMPRESAValue: String;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesPOBLACION_EMPRESA];
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetOldPOBLACION_EMPRESAValue: String;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesPOBLACION_EMPRESA];
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesBusinessProcessorRules.SetPOBLACION_EMPRESAValue(const aValue: String);
|
|
||||||
begin
|
|
||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesPOBLACION_EMPRESA] := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetPROVINCIA_EMPRESAValue: String;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesPROVINCIA_EMPRESA];
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetOldPROVINCIA_EMPRESAValue: String;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesPROVINCIA_EMPRESA];
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesBusinessProcessorRules.SetPROVINCIA_EMPRESAValue(const aValue: String);
|
|
||||||
begin
|
|
||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesPROVINCIA_EMPRESA] := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetCODIGO_POSTAL_EMPRESAValue: String;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesCODIGO_POSTAL_EMPRESA];
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetOldCODIGO_POSTAL_EMPRESAValue: String;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesCODIGO_POSTAL_EMPRESA];
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesBusinessProcessorRules.SetCODIGO_POSTAL_EMPRESAValue(const aValue: String);
|
|
||||||
begin
|
|
||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesCODIGO_POSTAL_EMPRESA] := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetTELEFONO_1Value: String;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesTELEFONO_1];
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetOldTELEFONO_1Value: String;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesTELEFONO_1];
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesBusinessProcessorRules.SetTELEFONO_1Value(const aValue: String);
|
|
||||||
begin
|
|
||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesTELEFONO_1] := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetFAXValue: String;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesFAX];
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetOldFAXValue: String;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesFAX];
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesBusinessProcessorRules.SetFAXValue(const aValue: String);
|
|
||||||
begin
|
|
||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesFAX] := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetMOVIL_1Value: String;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesMOVIL_1];
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetOldMOVIL_1Value: String;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesMOVIL_1];
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesBusinessProcessorRules.SetMOVIL_1Value(const aValue: String);
|
|
||||||
begin
|
|
||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesMOVIL_1] := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetEMAIL_1Value: String;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesEMAIL_1];
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetOldEMAIL_1Value: String;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesEMAIL_1];
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesBusinessProcessorRules.SetEMAIL_1Value(const aValue: String);
|
|
||||||
begin
|
|
||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesEMAIL_1] := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetPAGINA_WEBValue: String;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesPAGINA_WEB];
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetOldPAGINA_WEBValue: String;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesPAGINA_WEB];
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesBusinessProcessorRules.SetPAGINA_WEBValue(const aValue: String);
|
|
||||||
begin
|
|
||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesPAGINA_WEB] := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetREGISTRO_MERCANTILValue: String;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesREGISTRO_MERCANTIL];
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetOldREGISTRO_MERCANTILValue: String;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesREGISTRO_MERCANTIL];
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesBusinessProcessorRules.SetREGISTRO_MERCANTILValue(const aValue: String);
|
|
||||||
begin
|
|
||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesREGISTRO_MERCANTIL] := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetID_AGENTEValue: Integer;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesID_AGENTE];
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetOldID_AGENTEValue: Integer;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesID_AGENTE];
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesBusinessProcessorRules.SetID_AGENTEValue(const aValue: Integer);
|
|
||||||
begin
|
|
||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesID_AGENTE] := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetAGENTEValue: String;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesAGENTE];
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetOldAGENTEValue: String;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesAGENTE];
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesBusinessProcessorRules.SetAGENTEValue(const aValue: String);
|
|
||||||
begin
|
|
||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesAGENTE] := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetID_FACTURAValue: Integer;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesID_FACTURA];
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetOldID_FACTURAValue: Integer;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesID_FACTURA];
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer);
|
|
||||||
begin
|
|
||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesID_FACTURA] := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetID_COMISION_LIQUIDADAValue: Integer;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesID_COMISION_LIQUIDADA];
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetOldID_COMISION_LIQUIDADAValue: Integer;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesID_COMISION_LIQUIDADA];
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesBusinessProcessorRules.SetID_COMISION_LIQUIDADAValue(const aValue: Integer);
|
|
||||||
begin
|
|
||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesID_COMISION_LIQUIDADA] := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetFECHAValue: DateTime;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesFECHA];
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetOldFECHAValue: DateTime;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesFECHA];
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesBusinessProcessorRules.SetFECHAValue(const aValue: DateTime);
|
|
||||||
begin
|
|
||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesFECHA] := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetREFERENCIAValue: String;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesREFERENCIA];
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetOldREFERENCIAValue: String;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesREFERENCIA];
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
|
|
||||||
begin
|
|
||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesREFERENCIA] := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetSITUACIONValue: String;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesSITUACION];
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetOldSITUACIONValue: String;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesSITUACION];
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesBusinessProcessorRules.SetSITUACIONValue(const aValue: String);
|
|
||||||
begin
|
|
||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesSITUACION] := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetID_CLIENTEValue: Integer;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesID_CLIENTE];
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetOldID_CLIENTEValue: Integer;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesID_CLIENTE];
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesBusinessProcessorRules.SetID_CLIENTEValue(const aValue: Integer);
|
|
||||||
begin
|
|
||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesID_CLIENTE] := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetCLIENTEValue: String;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesCLIENTE];
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetOldCLIENTEValue: String;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesCLIENTE];
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesBusinessProcessorRules.SetCLIENTEValue(const aValue: String);
|
|
||||||
begin
|
|
||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesCLIENTE] := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetID_PROVEEDORValue: Integer;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesID_PROVEEDOR];
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetOldID_PROVEEDORValue: Integer;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesID_PROVEEDOR];
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesBusinessProcessorRules.SetID_PROVEEDORValue(const aValue: Integer);
|
|
||||||
begin
|
|
||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesID_PROVEEDOR] := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetPROVEEDORValue: String;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesPROVEEDOR];
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetOldPROVEEDORValue: String;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesPROVEEDOR];
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesBusinessProcessorRules.SetPROVEEDORValue(const aValue: String);
|
|
||||||
begin
|
|
||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesPROVEEDOR] := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetCOMISIONValue: Float;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesCOMISION];
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetOldCOMISIONValue: Float;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesCOMISION];
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesBusinessProcessorRules.SetCOMISIONValue(const aValue: Float);
|
|
||||||
begin
|
|
||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesCOMISION] := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetIMPORTE_COMISIONABLEValue: Float;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesIMPORTE_COMISIONABLE];
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetOldIMPORTE_COMISIONABLEValue: Float;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesIMPORTE_COMISIONABLE];
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesBusinessProcessorRules.SetIMPORTE_COMISIONABLEValue(const aValue: Float);
|
|
||||||
begin
|
|
||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesIMPORTE_COMISIONABLE] := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetIMPORTE_COMISIONValue: Float;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesIMPORTE_COMISION];
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TInformeComisionesBusinessProcessorRules.GetOldIMPORTE_COMISIONValue: Float;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesIMPORTE_COMISION];
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TInformeComisionesBusinessProcessorRules.SetIMPORTE_COMISIONValue(const aValue: Float);
|
|
||||||
begin
|
|
||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesIMPORTE_COMISION] := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
|
|
||||||
initialization
|
|
||||||
RegisterBusinessProcessorRules(RID_InformeComisionesDelta, TInformeComisionesBusinessProcessorRules);
|
|
||||||
|
|
||||||
end.
|
|
||||||
@ -8,36 +8,53 @@ uses
|
|||||||
const
|
const
|
||||||
BIZ_CLIENT_COMISIONES = 'Client.Comisiones';
|
BIZ_CLIENT_COMISIONES = 'Client.Comisiones';
|
||||||
BIZ_CLIENT_FACTURAS_COMISION = 'Client.FacturasComisiones';
|
BIZ_CLIENT_FACTURAS_COMISION = 'Client.FacturasComisiones';
|
||||||
|
BIZ_CLIENT_VENDEDORES_COMISION = 'Client.VendedoresComisiones';
|
||||||
|
|
||||||
type
|
type
|
||||||
IBizFacturasComision = interface(IFacturas_Comision)
|
IBizFacturasComision = interface(IFacturas_Comision)
|
||||||
['{5CFE7994-1947-4745-8BC1-8E02345D02FD}']
|
['{C2AB9B3F-BCAA-4F99-BDEC-105365BFB364}']
|
||||||
|
end;
|
||||||
|
|
||||||
|
IBizVendedoresComision = interface(IVendedores_Comision)
|
||||||
|
['{8F74E0CA-5988-4ABD-8F99-31915C1C1B97}']
|
||||||
end;
|
end;
|
||||||
|
|
||||||
IBizComisiones = interface(IComisiones)
|
IBizComisiones = interface(IComisiones)
|
||||||
['{18C4B891-F7DB-460B-B031-F2064E3C242E}']
|
['{40E2637E-C002-42AB-8DD5-7A438490C23D}']
|
||||||
function GetFacturas: IBizFacturasComision;
|
function GetFacturas: IBizFacturasComision;
|
||||||
procedure SetFacturas(const Value: IBizFacturasComision);
|
procedure SetFacturas(const Value: IBizFacturasComision);
|
||||||
property Facturas: IBizFacturasComision read GetFacturas write SetFacturas;
|
property Facturas: IBizFacturasComision read GetFacturas write SetFacturas;
|
||||||
|
function GetVendedores: IBizVendedoresComision;
|
||||||
|
procedure SetVendedores(const Value: IBizVendedoresComision);
|
||||||
|
property Vendedores: IBizVendedoresComision read GetVendedores write SetVendedores;
|
||||||
function EsNuevo : Boolean;
|
function EsNuevo : Boolean;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
TBizFacturasComision = class(TFacturas_ComisionDataTableRules, IBizFacturasComision)
|
TBizFacturasComision = class(TFacturas_ComisionDataTableRules, IBizFacturasComision)
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
TBizVendedoresComision = class(TVendedores_ComisionDataTableRules, IBizVendedoresComision)
|
||||||
|
end;
|
||||||
|
|
||||||
TBizComisiones = class(TComisionesDataTableRules, IBizComisiones, ISeleccionable)
|
TBizComisiones = class(TComisionesDataTableRules, IBizComisiones, ISeleccionable)
|
||||||
protected
|
protected
|
||||||
FFacturas: IBizFacturasComision;
|
FFacturas: IBizFacturasComision;
|
||||||
FFacturasLink : TDADataSource;
|
FFacturasLink : TDADataSource;
|
||||||
|
FVendedores: IBizVendedoresComision;
|
||||||
|
FVendedoresLink : TDADataSource;
|
||||||
FSeleccionableInterface : ISeleccionable;
|
FSeleccionableInterface : ISeleccionable;
|
||||||
|
|
||||||
function GetFacturas: IBizFacturasComision;
|
function GetFacturas: IBizFacturasComision;
|
||||||
procedure SetFacturas(const Value: IBizFacturasComision);
|
procedure SetFacturas(const Value: IBizFacturasComision);
|
||||||
|
function GetVendedores: IBizVendedoresComision;
|
||||||
|
procedure SetVendedores(const Value: IBizVendedoresComision);
|
||||||
|
|
||||||
procedure OnNewRecord(Sender: TDADataTable); override;
|
procedure OnNewRecord(Sender: TDADataTable); override;
|
||||||
public
|
public
|
||||||
property SeleccionableInterface : ISeleccionable read FSeleccionableInterface
|
property SeleccionableInterface : ISeleccionable read FSeleccionableInterface
|
||||||
write FSeleccionableInterface implements ISeleccionable;
|
write FSeleccionableInterface implements ISeleccionable;
|
||||||
property Facturas: IBizFacturasComision read GetFacturas write SetFacturas;
|
property Facturas: IBizFacturasComision read GetFacturas write SetFacturas;
|
||||||
|
property Vendedores: IBizVendedoresComision read GetVendedores write SetVendedores;
|
||||||
|
|
||||||
procedure IniciarValoresComisionLiquidacionNuevo; virtual;
|
procedure IniciarValoresComisionLiquidacionNuevo; virtual;
|
||||||
function EsNuevo : Boolean;
|
function EsNuevo : Boolean;
|
||||||
@ -47,7 +64,7 @@ type
|
|||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
uses SysUtils, uDataTableUtils, uDataModuleUsuarios;
|
uses SysUtils, uDataTableUtils, uDataModuleUsuarios, uFactuGES_App;
|
||||||
|
|
||||||
{ TBizComisiones }
|
{ TBizComisiones }
|
||||||
|
|
||||||
@ -58,6 +75,10 @@ begin
|
|||||||
FFacturasLink := TDADataSource.Create(NIL);
|
FFacturasLink := TDADataSource.Create(NIL);
|
||||||
FFacturasLink.DataTable := aDataTable;
|
FFacturasLink.DataTable := aDataTable;
|
||||||
|
|
||||||
|
FVendedores := Nil;
|
||||||
|
FVendedoresLink := TDADataSource.Create(NIL);
|
||||||
|
FVendedoresLink.DataTable := aDataTable;
|
||||||
|
|
||||||
FSeleccionableInterface := TSeleccionable.Create(aDataTable);
|
FSeleccionableInterface := TSeleccionable.Create(aDataTable);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -65,6 +86,8 @@ destructor TBizComisiones.Destroy;
|
|||||||
begin
|
begin
|
||||||
FFacturas := Nil;
|
FFacturas := Nil;
|
||||||
FFacturasLink.Free;
|
FFacturasLink.Free;
|
||||||
|
FVendedores := Nil;
|
||||||
|
FVendedoresLink.Free;
|
||||||
FSeleccionableInterface := NIL;
|
FSeleccionableInterface := NIL;
|
||||||
inherited;
|
inherited;
|
||||||
end;
|
end;
|
||||||
@ -79,18 +102,23 @@ begin
|
|||||||
Result := FFacturas;
|
Result := FFacturas;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
function TBizComisiones.GetVendedores: IBizVendedoresComision;
|
||||||
|
begin
|
||||||
|
Result := FVendedores;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TBizComisiones.IniciarValoresComisionLiquidacionNuevo;
|
procedure TBizComisiones.IniciarValoresComisionLiquidacionNuevo;
|
||||||
begin
|
begin
|
||||||
ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
|
ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
|
||||||
FECHA := Date;
|
|
||||||
USUARIO := AppFactuGES.UsuarioActivo.UserName;
|
USUARIO := AppFactuGES.UsuarioActivo.UserName;
|
||||||
|
FECHA := Date;
|
||||||
DESCRIPCION := 'Liquidación de comisiones del mes de ' + UpperCase(FormatDateTime('mmmm', date));
|
DESCRIPCION := 'Liquidación de comisiones del mes de ' + UpperCase(FormatDateTime('mmmm', date));
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TBizComisiones.OnNewRecord(Sender: TDADataTable);
|
procedure TBizComisiones.OnNewRecord(Sender: TDADataTable);
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
ID := GetRecNo; // -1, -2, -3...
|
// ID := GetRecNo; // -1, -2, -3...
|
||||||
IniciarValoresComisionLiquidacionNuevo;
|
IniciarValoresComisionLiquidacionNuevo;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -104,8 +132,19 @@ begin
|
|||||||
FFacturas.DataTable.Active := True;
|
FFacturas.DataTable.Active := True;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TBizComisiones.SetVendedores(const Value: IBizVendedoresComision);
|
||||||
|
begin
|
||||||
|
FVendedores := Value;
|
||||||
|
EnlazarMaestroDetalle(FVendedoresLink, FVendedores);
|
||||||
|
|
||||||
|
if Assigned(FVendedores) then
|
||||||
|
if not FVendedores.DataTable.Active then
|
||||||
|
FVendedores.DataTable.Active := True;
|
||||||
|
end;
|
||||||
|
|
||||||
initialization
|
initialization
|
||||||
RegisterDataTableRules(BIZ_CLIENT_COMISIONES, TBizComisiones);
|
RegisterDataTableRules(BIZ_CLIENT_COMISIONES, TBizComisiones);
|
||||||
RegisterDataTableRules(BIZ_CLIENT_FACTURAS_COMISION, TBizFacturasComision);
|
RegisterDataTableRules(BIZ_CLIENT_FACTURAS_COMISION, TBizFacturasComision);
|
||||||
|
RegisterDataTableRules(BIZ_CLIENT_VENDEDORES_COMISION, TBizVendedoresComision);
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|||||||
@ -8,68 +8,96 @@ uses
|
|||||||
|
|
||||||
const
|
const
|
||||||
BIZ_SERVER_COMISIONES = 'Server.Comisiones';
|
BIZ_SERVER_COMISIONES = 'Server.Comisiones';
|
||||||
REF_COMISIONES = 'REF_COMISIONES';
|
|
||||||
|
|
||||||
type
|
type
|
||||||
TBizComisionesServer = class(TComisionesBusinessProcessorRules)
|
TBizComisionesServer = class(TComisionesBusinessProcessorRules)
|
||||||
|
private
|
||||||
|
FReferenciaAutomatica : Boolean;
|
||||||
|
function DarReferencia : String;
|
||||||
|
function IncrementarReferencia : Boolean;
|
||||||
|
|
||||||
protected
|
protected
|
||||||
procedure BeforeProcessDelta(Sender: TDABusinessProcessor; const aDelta: IDADelta); override;
|
procedure BeforeProcessDelta(Sender: TDABusinessProcessor; const aDelta: IDADelta); override;
|
||||||
|
procedure AfterProcessChange(Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean; var CanRemoveFromDelta: Boolean); override;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
uses
|
uses
|
||||||
Variants, uDAClasses, uReferenciasUtils, uBusinessUtils, uROClasses, uDataModuleServer,
|
Variants, uDAClasses, uReferenciasUtils, uBusinessUtils, uROClasses, uDataModuleServer,
|
||||||
schComisionesClient_Intf,;
|
schComisionesClient_Intf, srvReferencias_Impl;
|
||||||
|
|
||||||
|
const
|
||||||
|
REF_COMISIONES = 'REF_COMISIONES';
|
||||||
|
|
||||||
{ TBizComisionesServer }
|
{ TBizComisionesServer }
|
||||||
|
|
||||||
|
procedure TBizComisionesServer.AfterProcessChange(Sender: TDABusinessProcessor;
|
||||||
|
aChange: TDADeltaChange; Processed: Boolean; var CanRemoveFromDelta: Boolean);
|
||||||
|
begin
|
||||||
|
// No hay que quitar los deltas para que los datos del contacto se
|
||||||
|
// mantengan por si alguna tabla detalle lo necesita
|
||||||
|
// (por ejemplo, DireccionesContacto)
|
||||||
|
CanRemoveFromDelta := False;
|
||||||
|
|
||||||
|
// Actualizamos el contador de referencias.
|
||||||
|
case aChange.ChangeType of
|
||||||
|
ctInsert, ctUpdate: begin
|
||||||
|
if FReferenciaAutomatica then
|
||||||
|
begin
|
||||||
|
IncrementarReferencia;
|
||||||
|
FReferenciaAutomatica := False;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TBizComisionesServer.BeforeProcessDelta(Sender: TDABusinessProcessor;
|
procedure TBizComisionesServer.BeforeProcessDelta(Sender: TDABusinessProcessor;
|
||||||
const aDelta: IDADelta);
|
const aDelta: IDADelta);
|
||||||
var
|
|
||||||
ASchema : TDASchema;
|
|
||||||
ACurrentConn : IDAConnection;
|
|
||||||
dsData: IDADataset;
|
|
||||||
Empresa : Variant;
|
|
||||||
|
|
||||||
begin
|
begin
|
||||||
inherited;
|
FReferenciaAutomatica := False;
|
||||||
|
|
||||||
case Sender.CurrentChange.ChangeType of
|
case Sender.CurrentChange.ChangeType of
|
||||||
ctInsert, ctUpdate: begin
|
ctInsert, ctUpdate: begin
|
||||||
//Si la referencia no ha sido asignada le asignamos una nosotros
|
//Si la referencia no ha sido asignada le asignamos una nosotros
|
||||||
if (VarIsNull(Sender.CurrentChange.NewValueByName[fld_ComisionesREFERENCIA]))
|
if REFERENCIAIsNull or (Length(REFERENCIA) = 0) then
|
||||||
or (VarToStr(Sender.CurrentChange.NewValueByName[fld_ComisionesREFERENCIA]) = '') then
|
|
||||||
begin
|
begin
|
||||||
ASchema := BusinessProcessor.Schema;
|
FReferenciaAutomatica := True;
|
||||||
ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor);
|
REFERENCIA := DarReferencia;
|
||||||
|
|
||||||
try
|
|
||||||
//Siempre va a estar rellena
|
|
||||||
Empresa := Sender.CurrentChange.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;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
function TBizComisionesServer.DarReferencia: String;
|
||||||
|
var
|
||||||
|
ATipo : String;
|
||||||
|
begin
|
||||||
|
ATipo := REF_COMISIONES;
|
||||||
|
|
||||||
|
with TsrvReferencias.Create(NIL) do
|
||||||
|
try
|
||||||
|
Result := DarNuevaReferencia(ATipo, ID_EMPRESA)
|
||||||
|
finally
|
||||||
|
Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TBizComisionesServer.IncrementarReferencia: Boolean;
|
||||||
|
var
|
||||||
|
ATipo : String;
|
||||||
|
begin
|
||||||
|
ATipo := REF_COMISIONES;
|
||||||
|
|
||||||
|
with TsrvReferencias.Create(NIL) do
|
||||||
|
try
|
||||||
|
Result := IncrementarValorReferencia(ATipo, Self.REFERENCIA, ID_EMPRESA)
|
||||||
|
finally
|
||||||
|
Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
initialization
|
initialization
|
||||||
RegisterBusinessProcessorRules(BIZ_SERVER_COMISIONES, TBizComisionesServer);
|
RegisterBusinessProcessorRules(BIZ_SERVER_COMISIONES, TBizComisionesServer);
|
||||||
|
|
||||||
|
|||||||
@ -25,13 +25,6 @@ package Comisiones_plugin;
|
|||||||
{$IMPLICITBUILD OFF}
|
{$IMPLICITBUILD OFF}
|
||||||
|
|
||||||
requires
|
requires
|
||||||
rtl,
|
|
||||||
vcl,
|
|
||||||
PngComponentsD10,
|
|
||||||
PNG_D10,
|
|
||||||
vclactnband,
|
|
||||||
vclx,
|
|
||||||
PluginSDK_D10R,
|
|
||||||
Comisiones_view,
|
Comisiones_view,
|
||||||
Comisiones_controller;
|
Comisiones_controller;
|
||||||
|
|
||||||
|
|||||||
580
Source/Modulos/Comisiones/Plugin/Comisiones_plugin.dproj
Normal file
580
Source/Modulos/Comisiones/Plugin/Comisiones_plugin.dproj
Normal file
@ -0,0 +1,580 @@
|
|||||||
|
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
|
<PropertyGroup>
|
||||||
|
<ProjectGuid>{82e36812-58c4-491b-b463-6b951e95da51}</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_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_plugin.dpk</Source>
|
||||||
|
</Source>
|
||||||
|
</Delphi.Personality> </BorlandProject></BorlandProject>
|
||||||
|
</ProjectExtensions>
|
||||||
|
<ItemGroup />
|
||||||
|
<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>
|
||||||
|
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||||
|
</Project>
|
||||||
|
|
||||||
|
<!-- EurekaLog First Line
|
||||||
|
[Exception Log]
|
||||||
|
EurekaLog Version=6006
|
||||||
|
Activate=0
|
||||||
|
Activate Handle=1
|
||||||
|
Save Log File=1
|
||||||
|
Foreground Tab=0
|
||||||
|
Freeze Activate=0
|
||||||
|
Freeze Timeout=60
|
||||||
|
SMTP From=eurekalog@email.com
|
||||||
|
SMTP Host=
|
||||||
|
SMTP Port=25
|
||||||
|
SMTP UserID=
|
||||||
|
SMTP Password=
|
||||||
|
Append to Log=0
|
||||||
|
TerminateBtn Operation=2
|
||||||
|
Errors Number=32
|
||||||
|
Errors Terminate=3
|
||||||
|
Email Address=
|
||||||
|
Email Object=
|
||||||
|
Email Send Options=0
|
||||||
|
Output Path=
|
||||||
|
Encrypt Password=
|
||||||
|
AutoCloseDialogSecs=0
|
||||||
|
WebSendMode=0
|
||||||
|
SupportULR=
|
||||||
|
HTMLLayout Count=15
|
||||||
|
HTMLLine0="%3Chtml%3E"
|
||||||
|
HTMLLine1=" %3Chead%3E"
|
||||||
|
HTMLLine2=" %3C/head%3E"
|
||||||
|
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
|
||||||
|
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
|
||||||
|
HTMLLine5=" %3Ctr%3E"
|
||||||
|
HTMLLine6=" %3Ctd nowrap%3E"
|
||||||
|
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
|
||||||
|
HTMLLine8=" %3C%%HTML_TAG%%%3E"
|
||||||
|
HTMLLine9=" %3C/font%3E"
|
||||||
|
HTMLLine10=" %3C/td%3E"
|
||||||
|
HTMLLine11=" %3C/tr%3E"
|
||||||
|
HTMLLine12=" %3C/table%3E"
|
||||||
|
HTMLLine13=" %3C/body%3E"
|
||||||
|
HTMLLine14="%3C/html%3E"
|
||||||
|
AutoCrashOperation=2
|
||||||
|
AutoCrashNumber=10
|
||||||
|
AutoCrashMinutes=1
|
||||||
|
WebURL=
|
||||||
|
WebUserID=
|
||||||
|
WebPassword=
|
||||||
|
WebPort=0
|
||||||
|
AttachedFiles=
|
||||||
|
ProxyURL=
|
||||||
|
ProxyUser=
|
||||||
|
ProxyPassword=
|
||||||
|
ProxyPort=8080
|
||||||
|
TrakerUser=
|
||||||
|
TrakerPassword=
|
||||||
|
TrakerAssignTo=
|
||||||
|
TrakerProject=
|
||||||
|
TrakerCategory=
|
||||||
|
TrakerTrialID=
|
||||||
|
ZipPassword=
|
||||||
|
PreBuildEvent=
|
||||||
|
PostSuccessfulBuildEvent=
|
||||||
|
PostFailureBuildEvent=
|
||||||
|
ExceptionDialogType=2
|
||||||
|
Count=0
|
||||||
|
EMail Message Line Count=0
|
||||||
|
loNoDuplicateErrors=0
|
||||||
|
loAppendReproduceText=0
|
||||||
|
loDeleteLogAtVersionChange=0
|
||||||
|
loAddComputerNameInLogFileName=0
|
||||||
|
loSaveModulesAndProcessesSections=1
|
||||||
|
loSaveAssemblerAndCPUSections=1
|
||||||
|
soAppStartDate=1
|
||||||
|
soAppName=1
|
||||||
|
soAppVersionNumber=1
|
||||||
|
soAppParameters=1
|
||||||
|
soAppCompilationDate=1
|
||||||
|
soAppUpTime=1
|
||||||
|
soExcDate=1
|
||||||
|
soExcAddress=1
|
||||||
|
soExcModuleName=1
|
||||||
|
soExcModuleVersion=1
|
||||||
|
soExcType=1
|
||||||
|
soExcMessage=1
|
||||||
|
soExcID=1
|
||||||
|
soExcCount=1
|
||||||
|
soExcStatus=1
|
||||||
|
soExcNote=1
|
||||||
|
soUserID=1
|
||||||
|
soUserName=1
|
||||||
|
soUserEmail=1
|
||||||
|
soUserPrivileges=1
|
||||||
|
soUserCompany=1
|
||||||
|
soActCtlsFormClass=1
|
||||||
|
soActCtlsFormText=1
|
||||||
|
soActCtlsControlClass=1
|
||||||
|
soActCtlsControlText=1
|
||||||
|
soCmpName=1
|
||||||
|
soCmpTotalMemory=1
|
||||||
|
soCmpFreeMemory=1
|
||||||
|
soCmpTotalDisk=1
|
||||||
|
soCmpFreeDisk=1
|
||||||
|
soCmpSysUpTime=1
|
||||||
|
soCmpProcessor=1
|
||||||
|
soCmpDisplayMode=1
|
||||||
|
soCmpDisplayDPI=1
|
||||||
|
soCmpVideoCard=1
|
||||||
|
soCmpPrinter=1
|
||||||
|
soOSType=1
|
||||||
|
soOSBuildN=1
|
||||||
|
soOSUpdate=1
|
||||||
|
soOSLanguage=1
|
||||||
|
soOSCharset=1
|
||||||
|
soNetIP=1
|
||||||
|
soNetSubmask=1
|
||||||
|
soNetGateway=1
|
||||||
|
soNetDNS1=1
|
||||||
|
soNetDNS2=1
|
||||||
|
soNetDHCP=1
|
||||||
|
soCustomData=1
|
||||||
|
sndShowSendDialog=1
|
||||||
|
sndShowSuccessFailureMsg=0
|
||||||
|
sndSendEntireLog=0
|
||||||
|
sndSendXMLLogCopy=0
|
||||||
|
sndSendScreenshot=1
|
||||||
|
sndUseOnlyActiveWindow=0
|
||||||
|
sndSendLastHTMLPage=1
|
||||||
|
sndSendInSeparatedThread=0
|
||||||
|
sndAddDateInFileName=0
|
||||||
|
sndAddComputerNameInFileName=0
|
||||||
|
edoSendErrorReportChecked=1
|
||||||
|
edoAttachScreenshotChecked=1
|
||||||
|
edoShowCopyToClipOption=1
|
||||||
|
edoShowDetailsButton=1
|
||||||
|
edoShowInDetailedMode=0
|
||||||
|
edoShowInTopMostMode=0
|
||||||
|
edoUseEurekaLogLookAndFeel=0
|
||||||
|
edoShowSendErrorReportOption=1
|
||||||
|
edoShowAttachScreenshotOption=1
|
||||||
|
edoShowCustomButton=0
|
||||||
|
csoShowDLLs=1
|
||||||
|
csoShowBPLs=1
|
||||||
|
csoShowBorlandThreads=1
|
||||||
|
csoShowWindowsThreads=1
|
||||||
|
csoDoNotStoreProcNames=0
|
||||||
|
boPauseBorlandThreads=0
|
||||||
|
boDoNotPauseMainThread=0
|
||||||
|
boPauseWindowsThreads=0
|
||||||
|
boUseMainModuleOptions=1
|
||||||
|
boCopyLogInCaseOfError=1
|
||||||
|
boSaveCompressedCopyInCaseOfError=0
|
||||||
|
boHandleSafeCallExceptions=1
|
||||||
|
boCallRTLExceptionEvent=0
|
||||||
|
boCatchHandledExceptions=0
|
||||||
|
loCatchLeaks=0
|
||||||
|
loGroupsSonLeaks=1
|
||||||
|
loHideBorlandLeaks=1
|
||||||
|
loFreeAllLeaks=1
|
||||||
|
loCatchLeaksExceptions=1
|
||||||
|
cfoReduceFileSize=1
|
||||||
|
cfoCheckFileCorruption=0
|
||||||
|
Count mtInformationMsgCaption=1
|
||||||
|
mtInformationMsgCaption0="Information."
|
||||||
|
Count mtQuestionMsgCaption=1
|
||||||
|
mtQuestionMsgCaption0="Question."
|
||||||
|
Count mtErrorMsgCaption=1
|
||||||
|
mtErrorMsgCaption0="Error."
|
||||||
|
Count mtDialog_Caption=1
|
||||||
|
mtDialog_Caption0="Error occurred"
|
||||||
|
Count mtDialog_ErrorMsgCaption=2
|
||||||
|
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
|
||||||
|
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
|
||||||
|
Count mtDialog_GeneralCaption=1
|
||||||
|
mtDialog_GeneralCaption0="General"
|
||||||
|
Count mtDialog_GeneralHeader=1
|
||||||
|
mtDialog_GeneralHeader0="General Information"
|
||||||
|
Count mtDialog_CallStackCaption=1
|
||||||
|
mtDialog_CallStackCaption0="Call Stack"
|
||||||
|
Count mtDialog_CallStackHeader=1
|
||||||
|
mtDialog_CallStackHeader0="Call Stack Information"
|
||||||
|
Count mtDialog_ModulesCaption=1
|
||||||
|
mtDialog_ModulesCaption0="Modules"
|
||||||
|
Count mtDialog_ModulesHeader=1
|
||||||
|
mtDialog_ModulesHeader0="Modules Information"
|
||||||
|
Count mtDialog_ProcessesCaption=1
|
||||||
|
mtDialog_ProcessesCaption0="Processes"
|
||||||
|
Count mtDialog_ProcessesHeader=1
|
||||||
|
mtDialog_ProcessesHeader0="Processes Information"
|
||||||
|
Count mtDialog_AsmCaption=1
|
||||||
|
mtDialog_AsmCaption0="Assembler"
|
||||||
|
Count mtDialog_AsmHeader=1
|
||||||
|
mtDialog_AsmHeader0="Assembler Information"
|
||||||
|
Count mtDialog_CPUCaption=1
|
||||||
|
mtDialog_CPUCaption0="CPU"
|
||||||
|
Count mtDialog_CPUHeader=1
|
||||||
|
mtDialog_CPUHeader0="CPU Information"
|
||||||
|
Count mtDialog_OKButtonCaption=1
|
||||||
|
mtDialog_OKButtonCaption0="%26OK"
|
||||||
|
Count mtDialog_TerminateButtonCaption=1
|
||||||
|
mtDialog_TerminateButtonCaption0="%26Terminate"
|
||||||
|
Count mtDialog_RestartButtonCaption=1
|
||||||
|
mtDialog_RestartButtonCaption0="%26Restart"
|
||||||
|
Count mtDialog_DetailsButtonCaption=1
|
||||||
|
mtDialog_DetailsButtonCaption0="%26Details"
|
||||||
|
Count mtDialog_CustomButtonCaption=1
|
||||||
|
mtDialog_CustomButtonCaption0="%26Help"
|
||||||
|
Count mtDialog_SendMessage=1
|
||||||
|
mtDialog_SendMessage0="%26Send this error via Internet"
|
||||||
|
Count mtDialog_ScreenshotMessage=1
|
||||||
|
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
|
||||||
|
Count mtDialog_CopyMessage=1
|
||||||
|
mtDialog_CopyMessage0="%26Copy to Clipboard"
|
||||||
|
Count mtDialog_SupportMessage=1
|
||||||
|
mtDialog_SupportMessage0="Go to the Support Page"
|
||||||
|
Count mtMSDialog_ErrorMsgCaption=1
|
||||||
|
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
|
||||||
|
Count mtMSDialog_RestartCaption=1
|
||||||
|
mtMSDialog_RestartCaption0="Restart application."
|
||||||
|
Count mtMSDialog_TerminateCaption=1
|
||||||
|
mtMSDialog_TerminateCaption0="Terminate application."
|
||||||
|
Count mtMSDialog_PleaseCaption=1
|
||||||
|
mtMSDialog_PleaseCaption0="Please tell us about this problem."
|
||||||
|
Count mtMSDialog_DescriptionCaption=1
|
||||||
|
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
|
||||||
|
Count mtMSDialog_SeeDetailsCaption=1
|
||||||
|
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
|
||||||
|
Count mtMSDialog_SeeClickCaption=1
|
||||||
|
mtMSDialog_SeeClickCaption0="click here."
|
||||||
|
Count mtMSDialog_HowToReproduceCaption=1
|
||||||
|
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happended (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 -->
|
||||||
File diff suppressed because it is too large
Load Diff
@ -7,13 +7,12 @@ uses
|
|||||||
Dialogs, frxClass, frxDBSet, uDAScriptingProvider,
|
Dialogs, frxClass, frxDBSet, uDAScriptingProvider,
|
||||||
uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient,
|
uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient,
|
||||||
frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes,
|
frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes,
|
||||||
uDAInterfaces;
|
uDAInterfaces, uDADataStreamer, uDABin2DataStreamer, uDAMemDataTable;
|
||||||
|
|
||||||
type
|
type
|
||||||
TRptComisiones = class(TDataModule)
|
TRptComisiones = class(TDataModule)
|
||||||
DADataCabecera: TDADataSource;
|
DADataCabecera: TDADataSource;
|
||||||
tbl_Comisiones: TDACDSDataTable;
|
tbl_Comisiones: TDAMemDataTable;
|
||||||
DABINAdapter: TDABINAdapter;
|
|
||||||
frxRichObject1: TfrxRichObject;
|
frxRichObject1: TfrxRichObject;
|
||||||
frxBarCodeObject1: TfrxBarCodeObject;
|
frxBarCodeObject1: TfrxBarCodeObject;
|
||||||
frxOLEObject1: TfrxOLEObject;
|
frxOLEObject1: TfrxOLEObject;
|
||||||
@ -22,14 +21,23 @@ type
|
|||||||
frxGradientObject1: TfrxGradientObject;
|
frxGradientObject1: TfrxGradientObject;
|
||||||
frxChartObject1: TfrxChartObject;
|
frxChartObject1: TfrxChartObject;
|
||||||
frxDBCabecera: TfrxDBDataset;
|
frxDBCabecera: TfrxDBDataset;
|
||||||
|
frxReport: TfrxReport;
|
||||||
|
Bin2DataStreamer: TDABin2DataStreamer;
|
||||||
|
frxDBDetalles1: TfrxDBDataset;
|
||||||
|
DADataDetalles1: TDADataSource;
|
||||||
|
tbl_Facturas: TDAMemDataTable;
|
||||||
|
frxDBDetalles2: TfrxDBDataset;
|
||||||
|
DADataDetalles2: TDADataSource;
|
||||||
|
tbl_Vendedores: TDAMemDataTable;
|
||||||
schReport: TDASchema;
|
schReport: TDASchema;
|
||||||
DataDictionary: TDADataDictionary;
|
DataDictionary: TDADataDictionary;
|
||||||
frxReport: TfrxReport;
|
|
||||||
procedure DataModuleCreate(Sender: TObject);
|
procedure DataModuleCreate(Sender: TObject);
|
||||||
private
|
private
|
||||||
FConnection: IDAConnection;
|
FConnection: IDAConnection;
|
||||||
|
//Genera cada uno de los albaranes a imprimir
|
||||||
|
procedure GenerarComision(const ID: integer); overload;
|
||||||
public
|
public
|
||||||
function GenerarComision(const AComisionID : Variant; const DesglosadoProv: Boolean; FechaIni: String; FechaFin: String; AAgenteID: Variant): Binary;
|
function GenerarComision(const AComisionID : String): Binary; overload;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
@ -37,16 +45,10 @@ implementation
|
|||||||
{$R *.dfm}
|
{$R *.dfm}
|
||||||
|
|
||||||
uses
|
uses
|
||||||
uDataModuleServer, schReportClient_Intf;
|
uDataModuleServer;
|
||||||
|
|
||||||
const
|
const
|
||||||
rptComision = 'InfComisiones.fr3';
|
rptComision = 'InfComision.fr3';
|
||||||
rptComisionDesglosado = 'InfComisionesDesglosado.fr3';
|
|
||||||
|
|
||||||
{ Dataset names for schReport }
|
|
||||||
ds_InformeComisiones = 'InformeComisiones';
|
|
||||||
ds_InformeComisionesDesglosado = 'InformeComisionesDesglosado';
|
|
||||||
|
|
||||||
|
|
||||||
{ TRptComision }
|
{ TRptComision }
|
||||||
|
|
||||||
@ -57,66 +59,39 @@ begin
|
|||||||
frxReport.EngineOptions.NewSilentMode := simReThrow;
|
frxReport.EngineOptions.NewSilentMode := simReThrow;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TRptComisiones.GenerarComision(const AComisionID : Variant; const DesglosadoProv: Boolean; FechaIni: String; FechaFin: String; AAgenteID: Variant): Binary;
|
procedure TRptComisiones.GenerarComision(const ID: integer);
|
||||||
var
|
begin
|
||||||
dsMaster: IDADataset;
|
tbl_Comisiones.ParamByName('ID').AsInteger := ID;
|
||||||
AStream: TMemoryStream;
|
tbl_Facturas.ParamByName('ID').AsInteger := ID;
|
||||||
|
tbl_Vendedores.ParamByName('ID').AsInteger := ID;
|
||||||
|
tbl_Comisiones.Active := True;
|
||||||
|
tbl_Facturas.Active := True;
|
||||||
|
tbl_Vendedores.Active := True;
|
||||||
|
|
||||||
|
frxReport.LoadFromFile(DarRutaInformes + rptComision, True);
|
||||||
|
frxReport.PrepareReport(False);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRptComisiones.GenerarComision(const AComisionID: String): Binary;
|
||||||
|
var
|
||||||
|
ID_Comisiones: TStringList;
|
||||||
|
i: Integer;
|
||||||
|
|
||||||
begin
|
begin
|
||||||
AStream := TMemoryStream.Create;
|
|
||||||
Result := Binary.Create;
|
Result := Binary.Create;
|
||||||
FConnection.BeginTransaction;
|
FConnection.BeginTransaction;
|
||||||
|
|
||||||
try
|
try
|
||||||
if DesglosadoProv then
|
ID_Comisiones := TStringList.Create;
|
||||||
dsMaster := schReport.NewDataset(FConnection, ds_InformeComisionesDesglosado,[], [], False)
|
ID_Comisiones.CommaText := AComisionID;
|
||||||
else
|
|
||||||
dsMaster := schReport.NewDataset(FConnection, ds_InformeComisiones,[], [], False);
|
|
||||||
|
|
||||||
with dsMaster.Where do
|
//Vamos generando todos y cada uno de los albaranes recibidos
|
||||||
begin
|
for i := 0 to ID_Comisiones.Count - 1 do
|
||||||
if not VarIsNull(AComisionID) then
|
GenerarComision(StrToInt(ID_Comisiones.Strings[i]));
|
||||||
begin
|
|
||||||
AddOperator(opAND);
|
|
||||||
OpenBraket;
|
|
||||||
AddText('V_AGENTES_COMISIONES_DET_FAC.' + fld_InformeComisionesID_COMISION_LIQUIDADA + ' = ' + VarToStr(AComisionID));
|
|
||||||
CloseBraket;
|
|
||||||
end;
|
|
||||||
|
|
||||||
if not VarIsNull(AAgenteID) then
|
|
||||||
begin
|
|
||||||
AddOperator(opAND);
|
|
||||||
OpenBraket;
|
|
||||||
AddText('V_AGENTES_COMISIONES_DET_FAC.' + fld_InformeComisionesID_AGENTE + ' = ' + VarToStr(AAgenteID));
|
|
||||||
CloseBraket;
|
|
||||||
end;
|
|
||||||
|
|
||||||
if (Length(FechaIni) > 0)
|
|
||||||
and (Length(FechaFin) > 0) then
|
|
||||||
begin
|
|
||||||
AddOperator(opAND);
|
|
||||||
OpenBraket;
|
|
||||||
|
|
||||||
AddText('COMISIONES_LIQUIDADAS.FECHA between ''' + StringReplace(FechaIni, '/', '.', [rfReplaceAll]) + ''' and ''' + StringReplace(FechaFin, '/', '.', [rfReplaceAll]) + '''');
|
|
||||||
CloseBraket;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
dsMaster.Open;
|
|
||||||
|
|
||||||
AStream.Clear;
|
|
||||||
DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1);
|
|
||||||
DABINAdapter.ReadDataset(AStream, tbl_Comisiones, TRUE, '', TRUE, TRUE);
|
|
||||||
|
|
||||||
if DesglosadoProv then
|
|
||||||
frxReport.LoadFromFile(DarRutaInformes + rptComisionDesglosado, True)
|
|
||||||
else
|
|
||||||
frxReport.LoadFromFile(DarRutaInformes + rptComision, True);
|
|
||||||
|
|
||||||
frxReport.Variables['FechaIni'] := QuotedStr(FechaIni);
|
|
||||||
frxReport.Variables['FechaFin'] := QuotedStr(FechaFin);
|
|
||||||
frxReport.PrepareReport;
|
|
||||||
frxReport.PreviewPages.SaveToStream(Result);
|
frxReport.PreviewPages.SaveToStream(Result);
|
||||||
|
|
||||||
finally
|
finally
|
||||||
AStream.Free;
|
|
||||||
FConnection.RollbackTransaction;
|
FConnection.RollbackTransaction;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|||||||
File diff suppressed because it is too large
Load Diff
@ -12,27 +12,28 @@ interface
|
|||||||
uses
|
uses
|
||||||
{vcl:} Classes, SysUtils,
|
{vcl:} Classes, SysUtils,
|
||||||
{RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
|
{RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
|
||||||
{Ancestor Implementation:} DARemoteService_Impl,
|
{Ancestor Implementation:} DataAbstractService_Impl,
|
||||||
{Used RODLs:} DataAbstract_Intf,
|
{Used RODLs:} DataAbstract4_Intf,
|
||||||
{Generated:} FactuGES_Intf, uDADataTable, uDABINAdapter, uDAClasses,
|
{Generated:} FactuGES_Intf, uDADataTable, uDABINAdapter, uDAClasses,
|
||||||
uDAScriptingProvider, uDABusinessProcessor, uDAInterfaces, Variants;
|
uDAScriptingProvider, uDABusinessProcessor, uDAInterfaces, Variants,
|
||||||
|
uDADataStreamer, uDABin2DataStreamer;
|
||||||
|
|
||||||
type
|
type
|
||||||
{ TsrvComisiones }
|
{ TsrvComisiones }
|
||||||
TsrvComisiones = class(TDARemoteService, IsrvComisiones)
|
TsrvComisiones = class(TDataAbstractService, IsrvComisiones)
|
||||||
Diagrams: TDADiagrams;
|
Diagrams: TDADiagrams;
|
||||||
DABINAdapter: TDABINAdapter;
|
|
||||||
bpComisiones: TDABusinessProcessor;
|
|
||||||
bpFacturas_Comision: TDABusinessProcessor;
|
bpFacturas_Comision: TDABusinessProcessor;
|
||||||
|
Bin2DataStreamer: TDABin2DataStreamer;
|
||||||
|
bpVendedores_Comision: TDABusinessProcessor;
|
||||||
|
bpComisiones: TDABusinessProcessor;
|
||||||
schComisiones: TDASchema;
|
schComisiones: TDASchema;
|
||||||
DataDictionary: TDADataDictionary;
|
DataDictionary: TDADataDictionary;
|
||||||
procedure DARemoteServiceBeforeAcquireConnection(Sender: TDARemoteService;
|
|
||||||
var ConnectionName: string);
|
|
||||||
procedure DARemoteServiceCreate(Sender: TObject);
|
procedure DARemoteServiceCreate(Sender: TObject);
|
||||||
|
procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject;
|
||||||
|
var aConnectionName: string);
|
||||||
{ IsrvComisiones methods }
|
{ IsrvComisiones methods }
|
||||||
protected
|
protected
|
||||||
function GetNextAutoInc(const GeneratorName: String): Integer;
|
function GenerateReport(const AComisionID: String): Binary;
|
||||||
function GenerateReport(const AComisionID: Variant; const DesglosadoProv: Boolean; const FechaIni: String; const FechaFin: String; const AAgenteID: Variant): Binary;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
@ -49,35 +50,29 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
{ srvComisiones }
|
{ srvComisiones }
|
||||||
procedure TsrvComisiones.DARemoteServiceBeforeAcquireConnection(
|
|
||||||
Sender: TDARemoteService; var ConnectionName: string);
|
|
||||||
begin
|
|
||||||
ConnectionName := dmServer.ConnectionName;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TsrvComisiones.DARemoteServiceCreate(Sender: TObject);
|
procedure TsrvComisiones.DARemoteServiceCreate(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
SessionManager := dmServer.SessionManager;
|
SessionManager := dmServer.SessionManager;
|
||||||
bpComisiones.BusinessRulesID := BIZ_SERVER_COMISIONES;
|
bpComisiones.BusinessRulesID := BIZ_SERVER_COMISIONES;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TsrvComisiones.GenerateReport(const AComisionID: Variant; const DesglosadoProv: Boolean; const FechaIni: String; const FechaFin: String; const AAgenteID: Variant): Binary;
|
procedure TsrvComisiones.DataAbstractServiceBeforeAcquireConnection(
|
||||||
|
aSender: TObject; var aConnectionName: string);
|
||||||
|
begin
|
||||||
|
ConnectionName := dmServer.ConnectionName;
|
||||||
|
end;
|
||||||
|
function TsrvComisiones.GenerateReport(const AComisionID: String): Binary;
|
||||||
var
|
var
|
||||||
AReportGenerator : TRptComisiones;
|
AReportGenerator : TRptComisiones;
|
||||||
begin
|
begin
|
||||||
AReportGenerator := TRptComisiones.Create(nil);
|
AReportGenerator := TRptComisiones.Create(nil);
|
||||||
try
|
try
|
||||||
Result := AReportGenerator.GenerarComision(AComisionID, DesglosadoProv, FechaIni, FechaFin, AAgenteID);
|
Result := AReportGenerator.GenerarComision(AComisionID);
|
||||||
finally
|
finally
|
||||||
FreeAndNIL(AReportGenerator);
|
FreeAndNIL(AReportGenerator);
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TsrvComisiones.GetNextAutoInc(const GeneratorName: String): Integer;
|
|
||||||
begin
|
|
||||||
Result := uDatabaseUtils.GetNextAutoInc(GeneratorName)
|
|
||||||
end;
|
|
||||||
|
|
||||||
initialization
|
initialization
|
||||||
TROClassFactory.Create('srvComisiones', Create_srvComisiones, TsrvComisiones_Invoker);
|
TROClassFactory.Create('srvComisiones', Create_srvComisiones, TsrvComisiones_Invoker);
|
||||||
|
|
||||||
|
|||||||
Binary file not shown.
613
Source/Modulos/Comisiones/Views/Comisiones_view.dproj
Normal file
613
Source/Modulos/Comisiones/Views/Comisiones_view.dproj
Normal file
@ -0,0 +1,613 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
|
<PropertyGroup>
|
||||||
|
<ProjectGuid>{e3d36a6f-7004-4c89-9f3d-f2d77e386d1b}</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_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_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="C:\Documents and Settings\Usuario\adortl.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\ccpackD11.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\cfpack_d11.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\Comisiones_controller.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\Comisiones_model.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\dxComnD11.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\frxTee11.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\fsTee11.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d10.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\tee.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\teeUI.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
|
||||||
|
<DCCReference Include="uComisionesViewRegister.pas" />
|
||||||
|
<DCCReference Include="uEditorComision.pas">
|
||||||
|
<Form>fEditorComision</Form>
|
||||||
|
<DesignClass>TfEditorComision</DesignClass>
|
||||||
|
</DCCReference>
|
||||||
|
<DCCReference Include="uEditorComisiones.pas">
|
||||||
|
<Form>fEditorComisiones</Form>
|
||||||
|
<DesignClass>TfEditorComisiones</DesignClass>
|
||||||
|
</DCCReference>
|
||||||
|
<DCCReference Include="uEditorComisionesReport.pas">
|
||||||
|
<Form>fEditorComisionesPreview</Form>
|
||||||
|
<DesignClass>TfEditorComision</DesignClass>
|
||||||
|
</DCCReference>
|
||||||
|
<DCCReference Include="uViewComision.pas">
|
||||||
|
<Form>frViewComision</Form>
|
||||||
|
<DesignClass>TFrame</DesignClass>
|
||||||
|
</DCCReference>
|
||||||
|
<DCCReference Include="uViewComisiones.pas">
|
||||||
|
<Form>frViewComisiones</Form>
|
||||||
|
<DesignClass>TFrame</DesignClass>
|
||||||
|
</DCCReference>
|
||||||
|
<DCCReference Include="uViewFacturasComision.pas">
|
||||||
|
<Form>frViewFacturasComision</Form>
|
||||||
|
<DesignClass>TFrame</DesignClass>
|
||||||
|
</DCCReference>
|
||||||
|
<DCCReference Include="uViewVendedoresComision.pas">
|
||||||
|
<Form>frViewVendedoresComision</Form>
|
||||||
|
<DesignClass>TFrame</DesignClass>
|
||||||
|
</DCCReference>
|
||||||
|
</ItemGroup>
|
||||||
|
</Project>
|
||||||
|
<!-- EurekaLog First Line
|
||||||
|
[Exception Log]
|
||||||
|
EurekaLog Version=6006
|
||||||
|
Activate=0
|
||||||
|
Activate Handle=1
|
||||||
|
Save Log File=1
|
||||||
|
Foreground Tab=0
|
||||||
|
Freeze Activate=0
|
||||||
|
Freeze Timeout=60
|
||||||
|
SMTP From=eurekalog@email.com
|
||||||
|
SMTP Host=
|
||||||
|
SMTP Port=25
|
||||||
|
SMTP UserID=
|
||||||
|
SMTP Password=
|
||||||
|
Append to Log=0
|
||||||
|
TerminateBtn Operation=2
|
||||||
|
Errors Number=32
|
||||||
|
Errors Terminate=3
|
||||||
|
Email Address=
|
||||||
|
Email Object=
|
||||||
|
Email Send Options=0
|
||||||
|
Output Path=
|
||||||
|
Encrypt Password=
|
||||||
|
AutoCloseDialogSecs=0
|
||||||
|
WebSendMode=0
|
||||||
|
SupportULR=
|
||||||
|
HTMLLayout Count=15
|
||||||
|
HTMLLine0="%3Chtml%3E"
|
||||||
|
HTMLLine1=" %3Chead%3E"
|
||||||
|
HTMLLine2=" %3C/head%3E"
|
||||||
|
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
|
||||||
|
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
|
||||||
|
HTMLLine5=" %3Ctr%3E"
|
||||||
|
HTMLLine6=" %3Ctd nowrap%3E"
|
||||||
|
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
|
||||||
|
HTMLLine8=" %3C%%HTML_TAG%%%3E"
|
||||||
|
HTMLLine9=" %3C/font%3E"
|
||||||
|
HTMLLine10=" %3C/td%3E"
|
||||||
|
HTMLLine11=" %3C/tr%3E"
|
||||||
|
HTMLLine12=" %3C/table%3E"
|
||||||
|
HTMLLine13=" %3C/body%3E"
|
||||||
|
HTMLLine14="%3C/html%3E"
|
||||||
|
AutoCrashOperation=2
|
||||||
|
AutoCrashNumber=10
|
||||||
|
AutoCrashMinutes=1
|
||||||
|
WebURL=
|
||||||
|
WebUserID=
|
||||||
|
WebPassword=
|
||||||
|
WebPort=0
|
||||||
|
AttachedFiles=
|
||||||
|
ProxyURL=
|
||||||
|
ProxyUser=
|
||||||
|
ProxyPassword=
|
||||||
|
ProxyPort=8080
|
||||||
|
TrakerUser=
|
||||||
|
TrakerPassword=
|
||||||
|
TrakerAssignTo=
|
||||||
|
TrakerProject=
|
||||||
|
TrakerCategory=
|
||||||
|
TrakerTrialID=
|
||||||
|
ZipPassword=
|
||||||
|
PreBuildEvent=
|
||||||
|
PostSuccessfulBuildEvent=
|
||||||
|
PostFailureBuildEvent=
|
||||||
|
ExceptionDialogType=2
|
||||||
|
Count=0
|
||||||
|
EMail Message Line Count=0
|
||||||
|
loNoDuplicateErrors=0
|
||||||
|
loAppendReproduceText=0
|
||||||
|
loDeleteLogAtVersionChange=0
|
||||||
|
loAddComputerNameInLogFileName=0
|
||||||
|
loSaveModulesAndProcessesSections=1
|
||||||
|
loSaveAssemblerAndCPUSections=1
|
||||||
|
soAppStartDate=1
|
||||||
|
soAppName=1
|
||||||
|
soAppVersionNumber=1
|
||||||
|
soAppParameters=1
|
||||||
|
soAppCompilationDate=1
|
||||||
|
soAppUpTime=1
|
||||||
|
soExcDate=1
|
||||||
|
soExcAddress=1
|
||||||
|
soExcModuleName=1
|
||||||
|
soExcModuleVersion=1
|
||||||
|
soExcType=1
|
||||||
|
soExcMessage=1
|
||||||
|
soExcID=1
|
||||||
|
soExcCount=1
|
||||||
|
soExcStatus=1
|
||||||
|
soExcNote=1
|
||||||
|
soUserID=1
|
||||||
|
soUserName=1
|
||||||
|
soUserEmail=1
|
||||||
|
soUserPrivileges=1
|
||||||
|
soUserCompany=1
|
||||||
|
soActCtlsFormClass=1
|
||||||
|
soActCtlsFormText=1
|
||||||
|
soActCtlsControlClass=1
|
||||||
|
soActCtlsControlText=1
|
||||||
|
soCmpName=1
|
||||||
|
soCmpTotalMemory=1
|
||||||
|
soCmpFreeMemory=1
|
||||||
|
soCmpTotalDisk=1
|
||||||
|
soCmpFreeDisk=1
|
||||||
|
soCmpSysUpTime=1
|
||||||
|
soCmpProcessor=1
|
||||||
|
soCmpDisplayMode=1
|
||||||
|
soCmpDisplayDPI=1
|
||||||
|
soCmpVideoCard=1
|
||||||
|
soCmpPrinter=1
|
||||||
|
soOSType=1
|
||||||
|
soOSBuildN=1
|
||||||
|
soOSUpdate=1
|
||||||
|
soOSLanguage=1
|
||||||
|
soOSCharset=1
|
||||||
|
soNetIP=1
|
||||||
|
soNetSubmask=1
|
||||||
|
soNetGateway=1
|
||||||
|
soNetDNS1=1
|
||||||
|
soNetDNS2=1
|
||||||
|
soNetDHCP=1
|
||||||
|
soCustomData=1
|
||||||
|
sndShowSendDialog=1
|
||||||
|
sndShowSuccessFailureMsg=0
|
||||||
|
sndSendEntireLog=0
|
||||||
|
sndSendXMLLogCopy=0
|
||||||
|
sndSendScreenshot=1
|
||||||
|
sndUseOnlyActiveWindow=0
|
||||||
|
sndSendLastHTMLPage=1
|
||||||
|
sndSendInSeparatedThread=0
|
||||||
|
sndAddDateInFileName=0
|
||||||
|
sndAddComputerNameInFileName=0
|
||||||
|
edoSendErrorReportChecked=1
|
||||||
|
edoAttachScreenshotChecked=1
|
||||||
|
edoShowCopyToClipOption=1
|
||||||
|
edoShowDetailsButton=1
|
||||||
|
edoShowInDetailedMode=0
|
||||||
|
edoShowInTopMostMode=0
|
||||||
|
edoUseEurekaLogLookAndFeel=0
|
||||||
|
edoShowSendErrorReportOption=1
|
||||||
|
edoShowAttachScreenshotOption=1
|
||||||
|
edoShowCustomButton=0
|
||||||
|
csoShowDLLs=1
|
||||||
|
csoShowBPLs=1
|
||||||
|
csoShowBorlandThreads=1
|
||||||
|
csoShowWindowsThreads=1
|
||||||
|
csoDoNotStoreProcNames=0
|
||||||
|
boPauseBorlandThreads=0
|
||||||
|
boDoNotPauseMainThread=0
|
||||||
|
boPauseWindowsThreads=0
|
||||||
|
boUseMainModuleOptions=1
|
||||||
|
boCopyLogInCaseOfError=1
|
||||||
|
boSaveCompressedCopyInCaseOfError=0
|
||||||
|
boHandleSafeCallExceptions=1
|
||||||
|
boCallRTLExceptionEvent=0
|
||||||
|
boCatchHandledExceptions=0
|
||||||
|
loCatchLeaks=0
|
||||||
|
loGroupsSonLeaks=1
|
||||||
|
loHideBorlandLeaks=1
|
||||||
|
loFreeAllLeaks=1
|
||||||
|
loCatchLeaksExceptions=1
|
||||||
|
cfoReduceFileSize=1
|
||||||
|
cfoCheckFileCorruption=0
|
||||||
|
Count mtInformationMsgCaption=1
|
||||||
|
mtInformationMsgCaption0="Information."
|
||||||
|
Count mtQuestionMsgCaption=1
|
||||||
|
mtQuestionMsgCaption0="Question."
|
||||||
|
Count mtErrorMsgCaption=1
|
||||||
|
mtErrorMsgCaption0="Error."
|
||||||
|
Count mtDialog_Caption=1
|
||||||
|
mtDialog_Caption0="Error occurred"
|
||||||
|
Count mtDialog_ErrorMsgCaption=2
|
||||||
|
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
|
||||||
|
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
|
||||||
|
Count mtDialog_GeneralCaption=1
|
||||||
|
mtDialog_GeneralCaption0="General"
|
||||||
|
Count mtDialog_GeneralHeader=1
|
||||||
|
mtDialog_GeneralHeader0="General Information"
|
||||||
|
Count mtDialog_CallStackCaption=1
|
||||||
|
mtDialog_CallStackCaption0="Call Stack"
|
||||||
|
Count mtDialog_CallStackHeader=1
|
||||||
|
mtDialog_CallStackHeader0="Call Stack Information"
|
||||||
|
Count mtDialog_ModulesCaption=1
|
||||||
|
mtDialog_ModulesCaption0="Modules"
|
||||||
|
Count mtDialog_ModulesHeader=1
|
||||||
|
mtDialog_ModulesHeader0="Modules Information"
|
||||||
|
Count mtDialog_ProcessesCaption=1
|
||||||
|
mtDialog_ProcessesCaption0="Processes"
|
||||||
|
Count mtDialog_ProcessesHeader=1
|
||||||
|
mtDialog_ProcessesHeader0="Processes Information"
|
||||||
|
Count mtDialog_AsmCaption=1
|
||||||
|
mtDialog_AsmCaption0="Assembler"
|
||||||
|
Count mtDialog_AsmHeader=1
|
||||||
|
mtDialog_AsmHeader0="Assembler Information"
|
||||||
|
Count mtDialog_CPUCaption=1
|
||||||
|
mtDialog_CPUCaption0="CPU"
|
||||||
|
Count mtDialog_CPUHeader=1
|
||||||
|
mtDialog_CPUHeader0="CPU Information"
|
||||||
|
Count mtDialog_OKButtonCaption=1
|
||||||
|
mtDialog_OKButtonCaption0="%26OK"
|
||||||
|
Count mtDialog_TerminateButtonCaption=1
|
||||||
|
mtDialog_TerminateButtonCaption0="%26Terminate"
|
||||||
|
Count mtDialog_RestartButtonCaption=1
|
||||||
|
mtDialog_RestartButtonCaption0="%26Restart"
|
||||||
|
Count mtDialog_DetailsButtonCaption=1
|
||||||
|
mtDialog_DetailsButtonCaption0="%26Details"
|
||||||
|
Count mtDialog_CustomButtonCaption=1
|
||||||
|
mtDialog_CustomButtonCaption0="%26Help"
|
||||||
|
Count mtDialog_SendMessage=1
|
||||||
|
mtDialog_SendMessage0="%26Send this error via Internet"
|
||||||
|
Count mtDialog_ScreenshotMessage=1
|
||||||
|
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
|
||||||
|
Count mtDialog_CopyMessage=1
|
||||||
|
mtDialog_CopyMessage0="%26Copy to Clipboard"
|
||||||
|
Count mtDialog_SupportMessage=1
|
||||||
|
mtDialog_SupportMessage0="Go to the Support Page"
|
||||||
|
Count mtMSDialog_ErrorMsgCaption=1
|
||||||
|
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
|
||||||
|
Count mtMSDialog_RestartCaption=1
|
||||||
|
mtMSDialog_RestartCaption0="Restart application."
|
||||||
|
Count mtMSDialog_TerminateCaption=1
|
||||||
|
mtMSDialog_TerminateCaption0="Terminate application."
|
||||||
|
Count mtMSDialog_PleaseCaption=1
|
||||||
|
mtMSDialog_PleaseCaption0="Please tell us about this problem."
|
||||||
|
Count mtMSDialog_DescriptionCaption=1
|
||||||
|
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
|
||||||
|
Count mtMSDialog_SeeDetailsCaption=1
|
||||||
|
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
|
||||||
|
Count mtMSDialog_SeeClickCaption=1
|
||||||
|
mtMSDialog_SeeClickCaption0="click here."
|
||||||
|
Count mtMSDialog_HowToReproduceCaption=1
|
||||||
|
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happended (optional)?"
|
||||||
|
Count mtMSDialog_EmailCaption=1
|
||||||
|
mtMSDialog_EmailCaption0="Email address (optional):"
|
||||||
|
Count mtMSDialog_SendButtonCaption=1
|
||||||
|
mtMSDialog_SendButtonCaption0="%26Send Error Report"
|
||||||
|
Count mtMSDialog_NoSendButtonCaption=1
|
||||||
|
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
|
||||||
|
Count mtLog_AppHeader=1
|
||||||
|
mtLog_AppHeader0="Application"
|
||||||
|
Count mtLog_AppStartDate=1
|
||||||
|
mtLog_AppStartDate0="Start Date"
|
||||||
|
Count mtLog_AppName=1
|
||||||
|
mtLog_AppName0="Name/Description"
|
||||||
|
Count mtLog_AppVersionNumber=1
|
||||||
|
mtLog_AppVersionNumber0="Version Number"
|
||||||
|
Count mtLog_AppParameters=1
|
||||||
|
mtLog_AppParameters0="Parameters"
|
||||||
|
Count mtLog_AppCompilationDate=1
|
||||||
|
mtLog_AppCompilationDate0="Compilation Date"
|
||||||
|
Count mtLog_AppUpTime=1
|
||||||
|
mtLog_AppUpTime0="Up Time"
|
||||||
|
Count mtLog_ExcHeader=1
|
||||||
|
mtLog_ExcHeader0="Exception"
|
||||||
|
Count mtLog_ExcDate=1
|
||||||
|
mtLog_ExcDate0="Date"
|
||||||
|
Count mtLog_ExcAddress=1
|
||||||
|
mtLog_ExcAddress0="Address"
|
||||||
|
Count mtLog_ExcModuleName=1
|
||||||
|
mtLog_ExcModuleName0="Module Name"
|
||||||
|
Count mtLog_ExcModuleVersion=1
|
||||||
|
mtLog_ExcModuleVersion0="Module Version"
|
||||||
|
Count mtLog_ExcType=1
|
||||||
|
mtLog_ExcType0="Type"
|
||||||
|
Count mtLog_ExcMessage=1
|
||||||
|
mtLog_ExcMessage0="Message"
|
||||||
|
Count mtLog_ExcID=1
|
||||||
|
mtLog_ExcID0="ID"
|
||||||
|
Count mtLog_ExcCount=1
|
||||||
|
mtLog_ExcCount0="Count"
|
||||||
|
Count mtLog_ExcStatus=1
|
||||||
|
mtLog_ExcStatus0="Status"
|
||||||
|
Count mtLog_ExcNote=1
|
||||||
|
mtLog_ExcNote0="Note"
|
||||||
|
Count mtLog_UserHeader=1
|
||||||
|
mtLog_UserHeader0="User"
|
||||||
|
Count mtLog_UserID=1
|
||||||
|
mtLog_UserID0="ID"
|
||||||
|
Count mtLog_UserName=1
|
||||||
|
mtLog_UserName0="Name"
|
||||||
|
Count mtLog_UserEmail=1
|
||||||
|
mtLog_UserEmail0="Email"
|
||||||
|
Count mtLog_UserCompany=1
|
||||||
|
mtLog_UserCompany0="Company"
|
||||||
|
Count mtLog_UserPrivileges=1
|
||||||
|
mtLog_UserPrivileges0="Privileges"
|
||||||
|
Count mtLog_ActCtrlsHeader=1
|
||||||
|
mtLog_ActCtrlsHeader0="Active Controls"
|
||||||
|
Count mtLog_ActCtrlsFormClass=1
|
||||||
|
mtLog_ActCtrlsFormClass0="Form Class"
|
||||||
|
Count mtLog_ActCtrlsFormText=1
|
||||||
|
mtLog_ActCtrlsFormText0="Form Text"
|
||||||
|
Count mtLog_ActCtrlsControlClass=1
|
||||||
|
mtLog_ActCtrlsControlClass0="Control Class"
|
||||||
|
Count mtLog_ActCtrlsControlText=1
|
||||||
|
mtLog_ActCtrlsControlText0="Control Text"
|
||||||
|
Count mtLog_CmpHeader=1
|
||||||
|
mtLog_CmpHeader0="Computer"
|
||||||
|
Count mtLog_CmpName=1
|
||||||
|
mtLog_CmpName0="Name"
|
||||||
|
Count mtLog_CmpTotalMemory=1
|
||||||
|
mtLog_CmpTotalMemory0="Total Memory"
|
||||||
|
Count mtLog_CmpFreeMemory=1
|
||||||
|
mtLog_CmpFreeMemory0="Free Memory"
|
||||||
|
Count mtLog_CmpTotalDisk=1
|
||||||
|
mtLog_CmpTotalDisk0="Total Disk"
|
||||||
|
Count mtLog_CmpFreeDisk=1
|
||||||
|
mtLog_CmpFreeDisk0="Free Disk"
|
||||||
|
Count mtLog_CmpSystemUpTime=1
|
||||||
|
mtLog_CmpSystemUpTime0="System Up Time"
|
||||||
|
Count mtLog_CmpProcessor=1
|
||||||
|
mtLog_CmpProcessor0="Processor"
|
||||||
|
Count mtLog_CmpDisplayMode=1
|
||||||
|
mtLog_CmpDisplayMode0="Display Mode"
|
||||||
|
Count mtLog_CmpDisplayDPI=1
|
||||||
|
mtLog_CmpDisplayDPI0="Display DPI"
|
||||||
|
Count mtLog_CmpVideoCard=1
|
||||||
|
mtLog_CmpVideoCard0="Video Card"
|
||||||
|
Count mtLog_CmpPrinter=1
|
||||||
|
mtLog_CmpPrinter0="Printer"
|
||||||
|
Count mtLog_OSHeader=1
|
||||||
|
mtLog_OSHeader0="Operating System"
|
||||||
|
Count mtLog_OSType=1
|
||||||
|
mtLog_OSType0="Type"
|
||||||
|
Count mtLog_OSBuildN=1
|
||||||
|
mtLog_OSBuildN0="Build #"
|
||||||
|
Count mtLog_OSUpdate=1
|
||||||
|
mtLog_OSUpdate0="Update"
|
||||||
|
Count mtLog_OSLanguage=1
|
||||||
|
mtLog_OSLanguage0="Language"
|
||||||
|
Count mtLog_OSCharset=1
|
||||||
|
mtLog_OSCharset0="Charset"
|
||||||
|
Count mtLog_NetHeader=1
|
||||||
|
mtLog_NetHeader0="Network"
|
||||||
|
Count mtLog_NetIP=1
|
||||||
|
mtLog_NetIP0="IP Address"
|
||||||
|
Count mtLog_NetSubmask=1
|
||||||
|
mtLog_NetSubmask0="Submask"
|
||||||
|
Count mtLog_NetGateway=1
|
||||||
|
mtLog_NetGateway0="Gateway"
|
||||||
|
Count mtLog_NetDNS1=1
|
||||||
|
mtLog_NetDNS10="DNS 1"
|
||||||
|
Count mtLog_NetDNS2=1
|
||||||
|
mtLog_NetDNS20="DNS 2"
|
||||||
|
Count mtLog_NetDHCP=1
|
||||||
|
mtLog_NetDHCP0="DHCP"
|
||||||
|
Count mtLog_CustInfoHeader=1
|
||||||
|
mtLog_CustInfoHeader0="Custom Information"
|
||||||
|
Count mtCallStack_Address=1
|
||||||
|
mtCallStack_Address0="Address"
|
||||||
|
Count mtCallStack_Name=1
|
||||||
|
mtCallStack_Name0="Module"
|
||||||
|
Count mtCallStack_Unit=1
|
||||||
|
mtCallStack_Unit0="Unit"
|
||||||
|
Count mtCallStack_Class=1
|
||||||
|
mtCallStack_Class0="Class"
|
||||||
|
Count mtCallStack_Procedure=1
|
||||||
|
mtCallStack_Procedure0="Procedure/Method"
|
||||||
|
Count mtCallStack_Line=1
|
||||||
|
mtCallStack_Line0="Line"
|
||||||
|
Count mtCallStack_MainThread=1
|
||||||
|
mtCallStack_MainThread0="Main"
|
||||||
|
Count mtCallStack_ExceptionThread=1
|
||||||
|
mtCallStack_ExceptionThread0="Exception Thread"
|
||||||
|
Count mtCallStack_RunningThread=1
|
||||||
|
mtCallStack_RunningThread0="Running Thread"
|
||||||
|
Count mtCallStack_CallingThread=1
|
||||||
|
mtCallStack_CallingThread0="Calling Thread"
|
||||||
|
Count mtCallStack_ThreadID=1
|
||||||
|
mtCallStack_ThreadID0="ID"
|
||||||
|
Count mtCallStack_ThreadPriority=1
|
||||||
|
mtCallStack_ThreadPriority0="Priority"
|
||||||
|
Count mtCallStack_ThreadClass=1
|
||||||
|
mtCallStack_ThreadClass0="Class"
|
||||||
|
Count mtCallStack_LeakCaption=1
|
||||||
|
mtCallStack_LeakCaption0="Memory Leak"
|
||||||
|
Count mtCallStack_LeakData=1
|
||||||
|
mtCallStack_LeakData0="Data"
|
||||||
|
Count mtCallStack_LeakType=1
|
||||||
|
mtCallStack_LeakType0="Type"
|
||||||
|
Count mtCallStack_LeakSize=1
|
||||||
|
mtCallStack_LeakSize0="Total size"
|
||||||
|
Count mtCallStack_LeakCount=1
|
||||||
|
mtCallStack_LeakCount0="Count"
|
||||||
|
Count mtSendDialog_Caption=1
|
||||||
|
mtSendDialog_Caption0="Send."
|
||||||
|
Count mtSendDialog_Message=1
|
||||||
|
mtSendDialog_Message0="Message"
|
||||||
|
Count mtSendDialog_Resolving=1
|
||||||
|
mtSendDialog_Resolving0="Resolving DNS..."
|
||||||
|
Count mtSendDialog_Login=1
|
||||||
|
mtSendDialog_Login0="Login..."
|
||||||
|
Count mtSendDialog_Connecting=1
|
||||||
|
mtSendDialog_Connecting0="Connecting with server..."
|
||||||
|
Count mtSendDialog_Connected=1
|
||||||
|
mtSendDialog_Connected0="Connected with server."
|
||||||
|
Count mtSendDialog_Sending=1
|
||||||
|
mtSendDialog_Sending0="Sending message..."
|
||||||
|
Count mtSendDialog_Sent=1
|
||||||
|
mtSendDialog_Sent0="Message sent."
|
||||||
|
Count mtSendDialog_SelectProject=1
|
||||||
|
mtSendDialog_SelectProject0="Select project..."
|
||||||
|
Count mtSendDialog_Searching=1
|
||||||
|
mtSendDialog_Searching0="Searching..."
|
||||||
|
Count mtSendDialog_Modifying=1
|
||||||
|
mtSendDialog_Modifying0="Modifying..."
|
||||||
|
Count mtSendDialog_Disconnecting=1
|
||||||
|
mtSendDialog_Disconnecting0="Disconnecting..."
|
||||||
|
Count mtSendDialog_Disconnected=1
|
||||||
|
mtSendDialog_Disconnected0="Disconnected."
|
||||||
|
Count mtReproduceDialog_Caption=1
|
||||||
|
mtReproduceDialog_Caption0="Request"
|
||||||
|
Count mtReproduceDialog_Request=1
|
||||||
|
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
|
||||||
|
Count mtReproduceDialog_OKButtonCaption=1
|
||||||
|
mtReproduceDialog_OKButtonCaption0="%26OK"
|
||||||
|
Count mtModules_Handle=1
|
||||||
|
mtModules_Handle0="Handle"
|
||||||
|
Count mtModules_Name=1
|
||||||
|
mtModules_Name0="Name"
|
||||||
|
Count mtModules_Description=1
|
||||||
|
mtModules_Description0="Description"
|
||||||
|
Count mtModules_Version=1
|
||||||
|
mtModules_Version0="Version"
|
||||||
|
Count mtModules_Size=1
|
||||||
|
mtModules_Size0="Size"
|
||||||
|
Count mtModules_LastModified=1
|
||||||
|
mtModules_LastModified0="Modified"
|
||||||
|
Count mtModules_Path=1
|
||||||
|
mtModules_Path0="Path"
|
||||||
|
Count mtProcesses_ID=1
|
||||||
|
mtProcesses_ID0="ID"
|
||||||
|
Count mtProcesses_Name=1
|
||||||
|
mtProcesses_Name0="Name"
|
||||||
|
Count mtProcesses_Description=1
|
||||||
|
mtProcesses_Description0="Description"
|
||||||
|
Count mtProcesses_Version=1
|
||||||
|
mtProcesses_Version0="Version"
|
||||||
|
Count mtProcesses_Memory=1
|
||||||
|
mtProcesses_Memory0="Memory"
|
||||||
|
Count mtProcesses_Priority=1
|
||||||
|
mtProcesses_Priority0="Priority"
|
||||||
|
Count mtProcesses_Threads=1
|
||||||
|
mtProcesses_Threads0="Threads"
|
||||||
|
Count mtProcesses_Path=1
|
||||||
|
mtProcesses_Path0="Path"
|
||||||
|
Count mtCPU_Registers=1
|
||||||
|
mtCPU_Registers0="Registers"
|
||||||
|
Count mtCPU_Stack=1
|
||||||
|
mtCPU_Stack0="Stack"
|
||||||
|
Count mtCPU_MemoryDump=1
|
||||||
|
mtCPU_MemoryDump0="Memory Dump"
|
||||||
|
Count mtSend_SuccessMsg=1
|
||||||
|
mtSend_SuccessMsg0="The message was sent successfully."
|
||||||
|
Count mtSend_FailureMsg=1
|
||||||
|
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
||||||
|
Count mtSend_BugClosedMsg=2
|
||||||
|
mtSend_BugClosedMsg0="These BUG is just closed."
|
||||||
|
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
|
||||||
|
Count mtSend_UnknownErrorMsg=1
|
||||||
|
mtSend_UnknownErrorMsg0="Unknown error."
|
||||||
|
Count mtSend_InvalidLoginMsg=1
|
||||||
|
mtSend_InvalidLoginMsg0="Invalid login request."
|
||||||
|
Count mtSend_InvalidSearchMsg=1
|
||||||
|
mtSend_InvalidSearchMsg0="Invalid search request."
|
||||||
|
Count mtSend_InvalidSelectionMsg=1
|
||||||
|
mtSend_InvalidSelectionMsg0="Invalid selection request."
|
||||||
|
Count mtSend_InvalidInsertMsg=1
|
||||||
|
mtSend_InvalidInsertMsg0="Invalid insert request."
|
||||||
|
Count mtSend_InvalidModifyMsg=1
|
||||||
|
mtSend_InvalidModifyMsg0="Invalid modify request."
|
||||||
|
Count mtFileCrackedMsg=2
|
||||||
|
mtFileCrackedMsg0="This file is cracked."
|
||||||
|
mtFileCrackedMsg1="The application will be closed."
|
||||||
|
Count mtException_LeakMultiFree=1
|
||||||
|
mtException_LeakMultiFree0="Multi Free memory leak."
|
||||||
|
Count mtException_LeakMemoryOverrun=1
|
||||||
|
mtException_LeakMemoryOverrun0="Memory Overrun leak."
|
||||||
|
Count mtException_AntiFreeze=1
|
||||||
|
mtException_AntiFreeze0="The application seems to be frozen."
|
||||||
|
Count mtInvalidEmailMsg=1
|
||||||
|
mtInvalidEmailMsg0="Invalid email."
|
||||||
|
TextsCollection=English
|
||||||
|
EurekaLog Last Line -->
|
||||||
@ -0,0 +1,22 @@
|
|||||||
|
1 VERSIONINFO
|
||||||
|
FILEVERSION 1,0,0,0
|
||||||
|
PRODUCTVERSION 1,0,0,0
|
||||||
|
FILEFLAGSMASK 0x3FL
|
||||||
|
FILEFLAGS 0x00L
|
||||||
|
FILEOS 0x40004L
|
||||||
|
FILETYPE 0x1L
|
||||||
|
FILESUBTYPE 0x0L
|
||||||
|
BEGIN
|
||||||
|
BLOCK "StringFileInfo"
|
||||||
|
BEGIN
|
||||||
|
BLOCK "0C0A04E4"
|
||||||
|
BEGIN
|
||||||
|
VALUE "FileVersion", "1.0.0.0\0"
|
||||||
|
VALUE "ProductVersion", "1.0.0.0\0"
|
||||||
|
END
|
||||||
|
END
|
||||||
|
BLOCK "VarFileInfo"
|
||||||
|
BEGIN
|
||||||
|
VALUE "Translation", 0x0C0A, 1252
|
||||||
|
END
|
||||||
|
END
|
||||||
Binary file not shown.
@ -4,20 +4,20 @@ inherited fEditorComision: TfEditorComision
|
|||||||
HorzScrollBar.Visible = False
|
HorzScrollBar.Visible = False
|
||||||
VertScrollBar.Visible = False
|
VertScrollBar.Visible = False
|
||||||
Caption = 'Ficha de liquidaci'#243'n de comisiones'
|
Caption = 'Ficha de liquidaci'#243'n de comisiones'
|
||||||
ClientHeight = 544
|
ClientHeight = 683
|
||||||
ClientWidth = 611
|
ClientWidth = 747
|
||||||
Scaled = False
|
Scaled = False
|
||||||
OnClose = CustomEditorClose
|
OnClose = CustomEditorClose
|
||||||
ExplicitWidth = 619
|
ExplicitWidth = 755
|
||||||
ExplicitHeight = 578
|
ExplicitHeight = 717
|
||||||
PixelsPerInch = 96
|
PixelsPerInch = 96
|
||||||
TextHeight = 13
|
TextHeight = 13
|
||||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||||
Width = 611
|
Width = 747
|
||||||
Caption = 'Liquidaci'#243'n de comisiones'
|
Caption = 'Liquidaci'#243'n de comisiones'
|
||||||
ExplicitWidth = 611
|
ExplicitWidth = 747
|
||||||
inherited Image1: TImage
|
inherited Image1: TImage
|
||||||
Left = 584
|
Left = 720
|
||||||
Picture.Data = {
|
Picture.Data = {
|
||||||
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
|
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
|
||||||
0000180806000000E0773DF80000000970485973000017120000171201679FD2
|
0000180806000000E0773DF80000000970485973000017120000171201679FD2
|
||||||
@ -59,8 +59,8 @@ inherited fEditorComision: TfEditorComision
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXDock: TTBXDock
|
inherited TBXDock: TTBXDock
|
||||||
Width = 611
|
Width = 747
|
||||||
ExplicitWidth = 611
|
ExplicitWidth = 747
|
||||||
inherited tbxMain: TTBXToolbar
|
inherited tbxMain: TTBXToolbar
|
||||||
ExplicitWidth = 488
|
ExplicitWidth = 488
|
||||||
inherited TBXItem2: TTBXItem
|
inherited TBXItem2: TTBXItem
|
||||||
@ -72,7 +72,7 @@ inherited fEditorComision: TfEditorComision
|
|||||||
end
|
end
|
||||||
inherited tbxMenu: TTBXToolbar
|
inherited tbxMenu: TTBXToolbar
|
||||||
DockPos = 0
|
DockPos = 0
|
||||||
ExplicitWidth = 611
|
ExplicitWidth = 747
|
||||||
inherited TBXSubmenuItem4: TTBXSubmenuItem
|
inherited TBXSubmenuItem4: TTBXSubmenuItem
|
||||||
inherited TBXItem8: TTBXItem
|
inherited TBXItem8: TTBXItem
|
||||||
Visible = False
|
Visible = False
|
||||||
@ -114,21 +114,23 @@ inherited fEditorComision: TfEditorComision
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited pgPaginas: TPageControl
|
inherited pgPaginas: TPageControl
|
||||||
Width = 611
|
Width = 741
|
||||||
Height = 403
|
Height = 536
|
||||||
MultiLine = True
|
MultiLine = True
|
||||||
ExplicitWidth = 611
|
ExplicitLeft = 3
|
||||||
ExplicitHeight = 403
|
ExplicitTop = 79
|
||||||
|
ExplicitWidth = 741
|
||||||
|
ExplicitHeight = 536
|
||||||
inherited pagGeneral: TTabSheet
|
inherited pagGeneral: TTabSheet
|
||||||
ExplicitLeft = 4
|
ExplicitLeft = 4
|
||||||
ExplicitTop = 24
|
ExplicitTop = 24
|
||||||
ExplicitWidth = 603
|
ExplicitWidth = 733
|
||||||
ExplicitHeight = 375
|
ExplicitHeight = 508
|
||||||
inline frViewComision1: TfrViewComision
|
inline frViewComision1: TfrViewComision
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 603
|
Width = 733
|
||||||
Height = 127
|
Height = 110
|
||||||
Align = alTop
|
Align = alTop
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Font.Charset = DEFAULT_CHARSET
|
||||||
Font.Color = clWindowText
|
Font.Color = clWindowText
|
||||||
@ -138,41 +140,27 @@ inherited fEditorComision: TfEditorComision
|
|||||||
ParentFont = False
|
ParentFont = False
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitWidth = 603
|
ExplicitWidth = 733
|
||||||
ExplicitHeight = 127
|
ExplicitHeight = 110
|
||||||
inherited dxLayoutControlComision: TdxLayoutControl
|
inherited dxLayoutControlComision: TdxLayoutControl
|
||||||
Width = 603
|
Width = 733
|
||||||
Height = 127
|
Height = 110
|
||||||
ExplicitWidth = 603
|
ExplicitWidth = 733
|
||||||
ExplicitHeight = 127
|
ExplicitHeight = 110
|
||||||
DesignSize = (
|
DesignSize = (
|
||||||
603
|
733
|
||||||
127)
|
110)
|
||||||
inherited eReferencia: TcxDBTextEdit
|
|
||||||
ExplicitWidth = 164
|
|
||||||
Width = 164
|
|
||||||
end
|
|
||||||
inherited eDescripcion: TcxDBTextEdit
|
|
||||||
ExplicitWidth = 108
|
|
||||||
Width = 108
|
|
||||||
end
|
|
||||||
inherited edtFecha: TcxDBDateEdit
|
inherited edtFecha: TcxDBDateEdit
|
||||||
Left = 355
|
Left = 413
|
||||||
ExplicitLeft = 355
|
ExplicitLeft = 413
|
||||||
ExplicitWidth = 170
|
|
||||||
Width = 170
|
|
||||||
end
|
|
||||||
inherited cbAgente: TcxDBLookupComboBox
|
|
||||||
ExplicitWidth = 319
|
|
||||||
Width = 319
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object dxLayoutControl1: TdxLayoutControl
|
object dxLayoutControl1: TdxLayoutControl
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 127
|
Top = 110
|
||||||
Width = 603
|
Width = 733
|
||||||
Height = 248
|
Height = 398
|
||||||
Align = alClient
|
Align = alClient
|
||||||
ParentBackground = True
|
ParentBackground = True
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
@ -183,6 +171,7 @@ inherited fEditorComision: TfEditorComision
|
|||||||
Top = 30
|
Top = 30
|
||||||
Width = 607
|
Width = 607
|
||||||
Height = 265
|
Height = 265
|
||||||
|
Align = alClient
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Font.Charset = DEFAULT_CHARSET
|
||||||
Font.Color = clWindowText
|
Font.Color = clWindowText
|
||||||
Font.Height = -11
|
Font.Height = -11
|
||||||
@ -208,21 +197,59 @@ inherited fEditorComision: TfEditorComision
|
|||||||
item
|
item
|
||||||
Format = ',0.00 '#8364';-,0.00 '#8364
|
Format = ',0.00 '#8364';-,0.00 '#8364
|
||||||
Kind = skSum
|
Kind = skSum
|
||||||
Column = frViewFacturasComision1.cxGridViewIMPORTE_COMISION
|
Column = frViewFacturasComision1.cxGridViewBASE_IMPONIBLE
|
||||||
end>
|
end>
|
||||||
DataController.Summary.OnAfterSummary = frViewFacturasComision1cxGridViewDataControllerSummaryAfterSummary
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited ToolBar1: TToolBar
|
inherited ToolBar1: TToolBar
|
||||||
Width = 607
|
Width = 607
|
||||||
ExplicitWidth = 607
|
ExplicitWidth = 607
|
||||||
inherited ToolButton3: TToolButton
|
end
|
||||||
ExplicitWidth = 98
|
end
|
||||||
end
|
inline frViewVendedoresComision1: TfrViewVendedoresComision
|
||||||
inherited ToolButton8: TToolButton
|
Left = 22
|
||||||
ExplicitWidth = 99
|
Top = 232
|
||||||
|
Width = 662
|
||||||
|
Height = 150
|
||||||
|
Align = alBottom
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 1
|
||||||
|
ReadOnly = False
|
||||||
|
ExplicitLeft = 22
|
||||||
|
ExplicitTop = 232
|
||||||
|
ExplicitWidth = 662
|
||||||
|
inherited cxGrid: TcxGrid
|
||||||
|
Width = 662
|
||||||
|
ExplicitWidth = 662
|
||||||
|
inherited cxGridView: TcxGridDBTableView
|
||||||
|
DataController.Summary.FooterSummaryItems = <
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Format = ',0.00 '#8364';-,0.00 '#8364
|
||||||
|
Kind = skSum
|
||||||
|
Column = frViewVendedoresComision1.cxGridViewIMPORTE_TOTAL
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Format = '0 Vendedores'
|
||||||
|
Kind = skCount
|
||||||
|
Column = frViewVendedoresComision1.cxGridViewNOMBRE
|
||||||
|
end>
|
||||||
|
inherited cxGridViewID: TcxGridDBColumn
|
||||||
|
IsCaptionAssigned = True
|
||||||
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
inherited ToolBar1: TToolBar
|
||||||
|
Width = 662
|
||||||
|
ExplicitWidth = 662
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||||
ShowCaption = False
|
ShowCaption = False
|
||||||
@ -231,7 +258,7 @@ inherited fEditorComision: TfEditorComision
|
|||||||
object dxLayoutControl1Group1: TdxLayoutGroup
|
object dxLayoutControl1Group1: TdxLayoutGroup
|
||||||
AutoAligns = [aaHorizontal]
|
AutoAligns = [aaHorizontal]
|
||||||
AlignVert = avClient
|
AlignVert = avClient
|
||||||
Caption = 'Facturas asociadas a la liquidaci'#243'n desglosadas por proveedor'
|
Caption = 'Facturas asociadas a la liquidaci'#243'n'
|
||||||
object dxLayoutControl1Item1: TdxLayoutItem
|
object dxLayoutControl1Item1: TdxLayoutItem
|
||||||
AutoAligns = [aaHorizontal]
|
AutoAligns = [aaHorizontal]
|
||||||
AlignVert = avClient
|
AlignVert = avClient
|
||||||
@ -242,24 +269,36 @@ inherited fEditorComision: TfEditorComision
|
|||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
object dxLayoutControl1Group2: TdxLayoutGroup
|
||||||
|
Caption = 'Vendedores asociados a la liquidaci'#243'n'
|
||||||
|
object dxLayoutControl1Item2: TdxLayoutItem
|
||||||
|
AutoAligns = [aaHorizontal]
|
||||||
|
AlignVert = avBottom
|
||||||
|
Caption = 'frViewVendedoresComision1'
|
||||||
|
ShowCaption = False
|
||||||
|
Control = frViewVendedoresComision1
|
||||||
|
ControlOptions.AutoColor = True
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited StatusBar: TJvStatusBar
|
inherited StatusBar: TJvStatusBar
|
||||||
Top = 525
|
Top = 664
|
||||||
Width = 611
|
Width = 747
|
||||||
Panels = <
|
Panels = <
|
||||||
item
|
item
|
||||||
Width = 200
|
Width = 200
|
||||||
end>
|
end>
|
||||||
ExplicitTop = 525
|
ExplicitTop = 664
|
||||||
ExplicitWidth = 611
|
ExplicitWidth = 747
|
||||||
end
|
end
|
||||||
inline frViewTotales1: TfrViewTotales [4]
|
inline frViewTotales1: TfrViewTotales [4]
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 479
|
Top = 618
|
||||||
Width = 611
|
Width = 747
|
||||||
Height = 46
|
Height = 46
|
||||||
Align = alBottom
|
Align = alBottom
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Font.Charset = DEFAULT_CHARSET
|
||||||
@ -270,12 +309,12 @@ inherited fEditorComision: TfEditorComision
|
|||||||
ParentFont = False
|
ParentFont = False
|
||||||
TabOrder = 4
|
TabOrder = 4
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitTop = 479
|
ExplicitTop = 618
|
||||||
ExplicitWidth = 611
|
ExplicitWidth = 747
|
||||||
ExplicitHeight = 46
|
ExplicitHeight = 46
|
||||||
inherited dxLayoutControl1: TdxLayoutControl
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
Width = 611
|
Width = 747
|
||||||
ExplicitWidth = 611
|
ExplicitWidth = 747
|
||||||
inherited Bevel1: TBevel
|
inherited Bevel1: TBevel
|
||||||
Left = 92
|
Left = 92
|
||||||
Top = 91
|
Top = 91
|
||||||
@ -285,18 +324,18 @@ inherited fEditorComision: TfEditorComision
|
|||||||
ExplicitWidth = 73
|
ExplicitWidth = 73
|
||||||
end
|
end
|
||||||
inherited Bevel3: TBevel
|
inherited Bevel3: TBevel
|
||||||
Left = 305
|
Left = 370
|
||||||
Top = 10
|
Top = 10
|
||||||
Height = 30
|
Height = 30
|
||||||
ExplicitLeft = 305
|
ExplicitLeft = 370
|
||||||
ExplicitTop = 10
|
ExplicitTop = 10
|
||||||
ExplicitHeight = 30
|
ExplicitHeight = 30
|
||||||
end
|
end
|
||||||
inherited Bevel4: TBevel
|
inherited Bevel4: TBevel
|
||||||
Left = 417
|
Left = 482
|
||||||
Top = 91
|
Top = 91
|
||||||
Width = 192
|
Width = 192
|
||||||
ExplicitLeft = 417
|
ExplicitLeft = 482
|
||||||
ExplicitTop = 91
|
ExplicitTop = 91
|
||||||
ExplicitWidth = 192
|
ExplicitWidth = 192
|
||||||
end
|
end
|
||||||
@ -311,20 +350,20 @@ inherited fEditorComision: TfEditorComision
|
|||||||
Width = 93
|
Width = 93
|
||||||
end
|
end
|
||||||
inherited ImporteIVA: TcxDBCurrencyEdit
|
inherited ImporteIVA: TcxDBCurrencyEdit
|
||||||
Left = 488
|
Left = 553
|
||||||
Top = 37
|
Top = 37
|
||||||
DataBinding.DataField = ''
|
DataBinding.DataField = ''
|
||||||
Style.IsFontAssigned = True
|
Style.IsFontAssigned = True
|
||||||
ExplicitLeft = 488
|
ExplicitLeft = 553
|
||||||
ExplicitTop = 37
|
ExplicitTop = 37
|
||||||
ExplicitWidth = 137
|
ExplicitWidth = 137
|
||||||
Width = 137
|
Width = 137
|
||||||
end
|
end
|
||||||
inherited ImporteTotal: TcxDBCurrencyEdit
|
inherited ImporteTotal: TcxDBCurrencyEdit
|
||||||
Left = 418
|
Left = 483
|
||||||
Top = 111
|
Top = 111
|
||||||
Style.IsFontAssigned = True
|
Style.IsFontAssigned = True
|
||||||
ExplicitLeft = 418
|
ExplicitLeft = 483
|
||||||
ExplicitTop = 111
|
ExplicitTop = 111
|
||||||
ExplicitWidth = 137
|
ExplicitWidth = 137
|
||||||
Width = 137
|
Width = 137
|
||||||
@ -338,37 +377,37 @@ inherited fEditorComision: TfEditorComision
|
|||||||
ExplicitTop = 111
|
ExplicitTop = 111
|
||||||
end
|
end
|
||||||
inherited edtIVA: TcxDBSpinEdit
|
inherited edtIVA: TcxDBSpinEdit
|
||||||
Left = 417
|
Left = 482
|
||||||
Top = 37
|
Top = 37
|
||||||
DataBinding.DataField = ''
|
DataBinding.DataField = ''
|
||||||
Style.IsFontAssigned = True
|
Style.IsFontAssigned = True
|
||||||
ExplicitLeft = 417
|
ExplicitLeft = 482
|
||||||
ExplicitTop = 37
|
ExplicitTop = 37
|
||||||
end
|
end
|
||||||
inherited ImporteBase: TcxDBCurrencyEdit
|
inherited ImporteBase: TcxDBCurrencyEdit
|
||||||
Left = 417
|
Left = 482
|
||||||
Top = 10
|
Top = 10
|
||||||
DataBinding.DataField = ''
|
DataBinding.DataField = ''
|
||||||
Style.IsFontAssigned = True
|
Style.IsFontAssigned = True
|
||||||
ExplicitLeft = 417
|
ExplicitLeft = 482
|
||||||
ExplicitTop = 10
|
ExplicitTop = 10
|
||||||
ExplicitWidth = 92
|
ExplicitWidth = 92
|
||||||
Width = 92
|
Width = 92
|
||||||
end
|
end
|
||||||
inherited edtRE: TcxDBSpinEdit
|
inherited edtRE: TcxDBSpinEdit
|
||||||
Left = 417
|
Left = 482
|
||||||
Top = 64
|
Top = 64
|
||||||
DataBinding.DataField = ''
|
DataBinding.DataField = ''
|
||||||
Style.IsFontAssigned = True
|
Style.IsFontAssigned = True
|
||||||
ExplicitLeft = 417
|
ExplicitLeft = 482
|
||||||
ExplicitTop = 64
|
ExplicitTop = 64
|
||||||
end
|
end
|
||||||
inherited ImporteRE: TcxDBCurrencyEdit
|
inherited ImporteRE: TcxDBCurrencyEdit
|
||||||
Left = 488
|
Left = 553
|
||||||
Top = 64
|
Top = 64
|
||||||
DataBinding.DataField = ''
|
DataBinding.DataField = ''
|
||||||
Style.IsFontAssigned = True
|
Style.IsFontAssigned = True
|
||||||
ExplicitLeft = 488
|
ExplicitLeft = 553
|
||||||
ExplicitTop = 64
|
ExplicitTop = 64
|
||||||
ExplicitWidth = 56
|
ExplicitWidth = 56
|
||||||
Width = 56
|
Width = 56
|
||||||
@ -403,9 +442,9 @@ inherited fEditorComision: TfEditorComision
|
|||||||
Width = 81
|
Width = 81
|
||||||
end
|
end
|
||||||
inherited bTiposIVA: TButton
|
inherited bTiposIVA: TButton
|
||||||
Left = 157
|
Left = 222
|
||||||
Top = 37
|
Top = 37
|
||||||
ExplicitLeft = 157
|
ExplicitLeft = 222
|
||||||
ExplicitTop = 37
|
ExplicitTop = 37
|
||||||
end
|
end
|
||||||
inherited cbRecargoEquivalencia: TcxDBCheckBox
|
inherited cbRecargoEquivalencia: TcxDBCheckBox
|
||||||
|
|||||||
@ -15,7 +15,7 @@ uses
|
|||||||
uIEditorComision, uComisionesController, JvExComCtrls,
|
uIEditorComision, uComisionesController, JvExComCtrls,
|
||||||
JvStatusBar, dxLayoutLookAndFeels, uViewGridBase, uViewGrid,
|
JvStatusBar, dxLayoutLookAndFeels, uViewGridBase, uViewGrid,
|
||||||
uViewDetallesGenerico, uViewFacturasComision, dxLayoutControl, cxControls,
|
uViewDetallesGenerico, uViewFacturasComision, dxLayoutControl, cxControls,
|
||||||
uViewTotales;
|
uViewTotales, uDAInterfaces, uViewVendedoresComision;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfEditorComision = class(TfEditorDBItem, IEditorComision)
|
TfEditorComision = class(TfEditorDBItem, IEditorComision)
|
||||||
@ -28,16 +28,24 @@ type
|
|||||||
dxLayoutControl1Group1: TdxLayoutGroup;
|
dxLayoutControl1Group1: TdxLayoutGroup;
|
||||||
dxLayoutControl1Item1: TdxLayoutItem;
|
dxLayoutControl1Item1: TdxLayoutItem;
|
||||||
frViewTotales1: TfrViewTotales;
|
frViewTotales1: TfrViewTotales;
|
||||||
|
frViewVendedoresComision1: TfrViewVendedoresComision;
|
||||||
|
dxLayoutControl1Item2: TdxLayoutItem;
|
||||||
|
dxLayoutControl1Group2: TdxLayoutGroup;
|
||||||
procedure FormShow(Sender: TObject);
|
procedure FormShow(Sender: TObject);
|
||||||
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
|
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
|
||||||
procedure actAnadirRecibosExecute(Sender: TObject);
|
|
||||||
procedure actEliminarReciboExecute(Sender: TObject);
|
|
||||||
procedure JvFormStorageRestorePlacement(Sender: TObject);
|
procedure JvFormStorageRestorePlacement(Sender: TObject);
|
||||||
procedure JvFormStorageSavePlacement(Sender: TObject);
|
procedure JvFormStorageSavePlacement(Sender: TObject);
|
||||||
procedure dsDataTableDataChange(Sender: TObject; Field: TField);
|
procedure dsDataTableDataChange(Sender: TObject; Field: TField);
|
||||||
procedure frViewFacturasComision1cxGridViewDataControllerSummaryAfterSummary(
|
procedure OnFacturasComisionAfterSummary(ASender: TcxDataSummary);
|
||||||
ASender: TcxDataSummary);
|
procedure OnVendedoresComisionAfterSummary(ASender: TcxDataSummary);
|
||||||
|
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); override; //Importante, es donde deben quitarse eventos para que afecten a la tabla una vez que se cierre el editor
|
||||||
|
|
||||||
|
private
|
||||||
|
FImporteTotalFacturas: Variant;
|
||||||
|
FImporteTotalVendedores: Variant;
|
||||||
|
FTotalVendedores: Variant;
|
||||||
|
|
||||||
protected
|
protected
|
||||||
FController : IComisionesController;
|
FController : IComisionesController;
|
||||||
FComision: IBizComisiones;
|
FComision: IBizComisiones;
|
||||||
@ -55,7 +63,6 @@ type
|
|||||||
procedure EliminarInterno; override;
|
procedure EliminarInterno; override;
|
||||||
procedure PrevisualizarInterno; override;
|
procedure PrevisualizarInterno; override;
|
||||||
procedure ImprimirInterno; override;
|
procedure ImprimirInterno; override;
|
||||||
// procedure CerrarInterno; override;
|
|
||||||
|
|
||||||
procedure PonerTitulos(const ATitulo: string = ''); override;
|
procedure PonerTitulos(const ATitulo: string = ''); override;
|
||||||
// function GetModified: Boolean; override;
|
// function GetModified: Boolean; override;
|
||||||
@ -113,13 +120,15 @@ begin
|
|||||||
ShowHourglassCursor;
|
ShowHourglassCursor;
|
||||||
// frViewRecibosComision1.OnViewModified := Nil;
|
// frViewRecibosComision1.OnViewModified := Nil;
|
||||||
//frViewDetallesFacturaCliente1.SaveGridStatus; // Para guardar estado del grid
|
//frViewDetallesFacturaCliente1.SaveGridStatus; // Para guardar estado del grid
|
||||||
// frViewDetallesFacturaCliente1.BeginUpdate; // Para que no se mueva el foco
|
frViewFacturasComision1.cxGrid.ActiveView.BeginUpdate; // Para que no se mueva el foco
|
||||||
|
frViewVendedoresComision1.cxGrid.ActiveView.BeginUpdate; // Para que no se mueva el foco
|
||||||
try
|
try
|
||||||
bEsNuevo := FComision.EsNuevo;
|
bEsNuevo := FComision.EsNuevo;
|
||||||
FController.Guardar(FComision);
|
FController.Guardar(FComision);
|
||||||
|
|
||||||
finally
|
finally
|
||||||
// frViewDetallesFacturaCliente1.EndUpdate;
|
frViewFacturasComision1.cxGrid.ActiveView.EndUpdate;
|
||||||
|
frViewVendedoresComision1.cxGrid.ActiveView.EndUpdate;
|
||||||
// frViewDetallesFacturaCliente1.RestoreGridStatus;
|
// frViewDetallesFacturaCliente1.RestoreGridStatus;
|
||||||
HideHourglassCursor;
|
HideHourglassCursor;
|
||||||
end;
|
end;
|
||||||
@ -167,7 +176,7 @@ begin
|
|||||||
|
|
||||||
inherited PonerTitulos(FTitulo);
|
inherited PonerTitulos(FTitulo);
|
||||||
|
|
||||||
Self.Caption := FTitulo + ' (' + AppFactuGES.EmpresaActiva.NOMBRE + ')';
|
// Self.Caption := FTitulo + ' (' + AppFactuGES.EmpresaActiva.NOMBRE + ')';
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfEditorComision.PrevisualizarInterno;
|
procedure TfEditorComision.PrevisualizarInterno;
|
||||||
@ -186,13 +195,13 @@ begin
|
|||||||
begin
|
begin
|
||||||
dsDataTable.DataTable := FComision.DataTable;
|
dsDataTable.DataTable := FComision.DataTable;
|
||||||
frViewFacturasComision1.Comision := FComision;
|
frViewFacturasComision1.Comision := FComision;
|
||||||
// frViewRecibosComision1.OnViewModified := OnRecibosChanged;
|
frViewVendedoresComision1.Comision := FComision;
|
||||||
end
|
end
|
||||||
else
|
else
|
||||||
begin
|
begin
|
||||||
dsDataTable.DataTable := Nil;
|
dsDataTable.DataTable := Nil;
|
||||||
frViewFacturasComision1.Comision := Nil;
|
frViewFacturasComision1.Comision := Nil;
|
||||||
// frViewRecibosComision1.OnViewModified := Nil;
|
frViewVendedoresComision1.Comision := Nil;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
if Assigned(FViewComision) then
|
if Assigned(FViewComision) then
|
||||||
@ -207,6 +216,7 @@ begin
|
|||||||
if Assigned(FController) then
|
if Assigned(FController) then
|
||||||
begin
|
begin
|
||||||
frViewFacturasComision1.Controller := FController;
|
frViewFacturasComision1.Controller := FController;
|
||||||
|
frViewVendedoresComision1.Controller := FController;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -221,6 +231,14 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorComision.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
|
||||||
|
begin
|
||||||
|
frViewFacturasComision1.cxGridView.DataController.Summary.OnAfterSummary := Nil;
|
||||||
|
frViewVendedoresComision1.cxGridView.DataController.Summary.OnAfterSummary := Nil;
|
||||||
|
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TfEditorComision.FormShow(Sender: TObject);
|
procedure TfEditorComision.FormShow(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
@ -231,19 +249,51 @@ begin
|
|||||||
if not Assigned(Comision) then
|
if not Assigned(Comision) then
|
||||||
raise Exception.Create('No hay ningún almacén asignado');
|
raise Exception.Create('No hay ningún almacén asignado');
|
||||||
|
|
||||||
|
frViewFacturasComision1.cxGridView.DataController.Summary.OnAfterSummary := OnFacturasComisionAfterSummary;
|
||||||
|
frViewVendedoresComision1.cxGridView.DataController.Summary.OnAfterSummary := OnVendedoresComisionAfterSummary;
|
||||||
|
|
||||||
Comision.DataTable.Active := True;
|
Comision.DataTable.Active := True;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfEditorComision.frViewFacturasComision1cxGridViewDataControllerSummaryAfterSummary(ASender: TcxDataSummary);
|
procedure TfEditorComision.OnFacturasComisionAfterSummary(ASender: TcxDataSummary);
|
||||||
Var
|
|
||||||
AImporteTotal: Variant;
|
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
|
|
||||||
AImporteTotal := ASender.FooterSummaryValues[1];
|
if (FImporteTotalFacturas <> ASender.FooterSummaryValues[1]) then
|
||||||
|
begin
|
||||||
|
FImporteTotalFacturas := ASender.FooterSummaryValues[1];
|
||||||
|
|
||||||
if Assigned(FController) then
|
//Recalculamos comisiones
|
||||||
FController.AsignarImporteTotal(Comision, AImporteTotal);
|
if Assigned(FController)
|
||||||
|
and (not VarIsNull(FImporteTotalFacturas))
|
||||||
|
and (FImporteTotalFacturas > 0) then
|
||||||
|
FController.RecalcularComisiones(Comision, FImporteTotalFacturas);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorComision.OnVendedoresComisionAfterSummary(ASender: TcxDataSummary);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
|
||||||
|
if (FTotalVendedores <> ASender.FooterSummaryValues[2]) then
|
||||||
|
begin
|
||||||
|
FTotalVendedores := ASender.FooterSummaryValues[2];
|
||||||
|
|
||||||
|
//Recalculamos comisiones
|
||||||
|
if Assigned(FController)
|
||||||
|
and (not VarIsNull(FImporteTotalFacturas))
|
||||||
|
and (FImporteTotalFacturas > 0) then
|
||||||
|
FController.RecalcularComisiones(Comision, FImporteTotalFacturas);
|
||||||
|
end;
|
||||||
|
|
||||||
|
if (FImporteTotalVendedores <> ASender.FooterSummaryValues[1]) then
|
||||||
|
begin
|
||||||
|
FImporteTotalVendedores := ASender.FooterSummaryValues[1];
|
||||||
|
|
||||||
|
//Asignamos el importe total de las comisiones
|
||||||
|
if Assigned(FController) then
|
||||||
|
FController.AsignarImporteTotal(Comision, FImporteTotalVendedores);
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
destructor TfEditorComision.Destroy;
|
destructor TfEditorComision.Destroy;
|
||||||
@ -258,28 +308,12 @@ begin
|
|||||||
ActualizarEstadoEditor;
|
ActualizarEstadoEditor;
|
||||||
end;
|
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);
|
constructor TfEditorComision.Create(AOwner: TComponent);
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
|
FImporteTotalFacturas := -1;
|
||||||
|
FImporteTotalVendedores := -1;
|
||||||
|
FTotalVendedores := -1;
|
||||||
pgPaginas.ActivePageIndex := 0;
|
pgPaginas.ActivePageIndex := 0;
|
||||||
FViewComision := frViewComision1;
|
FViewComision := frViewComision1;
|
||||||
end;
|
end;
|
||||||
@ -288,6 +322,7 @@ procedure TfEditorComision.CustomEditorClose(Sender: TObject;
|
|||||||
var Action: TCloseAction);
|
var Action: TCloseAction);
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
|
|
||||||
dsDataTable.DataTable := NIL;
|
dsDataTable.DataTable := NIL;
|
||||||
FViewComision := NIL;
|
FViewComision := NIL;
|
||||||
FComision := NIL;
|
FComision := NIL;
|
||||||
@ -298,11 +333,13 @@ begin
|
|||||||
if (Application.MessageBox('¿Desea borrar esta liquidación de comisiones?', 'Atención', MB_YESNO) = IDYES) then
|
if (Application.MessageBox('¿Desea borrar esta liquidación de comisiones?', 'Atención', MB_YESNO) = IDYES) then
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
|
//Quitamos los eventos antes de eliminar para que no intercedan en la operacion
|
||||||
|
frViewFacturasComision1.cxGridView.DataController.Summary.OnAfterSummary := Nil;
|
||||||
|
frViewVendedoresComision1.cxGridView.DataController.Summary.OnAfterSummary := Nil;
|
||||||
|
|
||||||
if not FController.Eliminar(FComision) then
|
if not FController.Eliminar(FComision) then
|
||||||
actRefrescar.Execute;
|
actRefrescar.Execute;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|
||||||
|
|
||||||
@ -56,10 +56,10 @@ inherited fEditorComisiones: TfEditorComisiones
|
|||||||
Width = 820
|
Width = 820
|
||||||
ExplicitWidth = 820
|
ExplicitWidth = 820
|
||||||
inherited tbxMain: TTBXToolbar
|
inherited tbxMain: TTBXToolbar
|
||||||
ExplicitWidth = 552
|
ExplicitWidth = 561
|
||||||
end
|
end
|
||||||
inherited tbxFiltro: TTBXToolbar
|
inherited tbxFiltro: TTBXToolbar
|
||||||
ExplicitWidth = 260
|
ExplicitWidth = 269
|
||||||
inherited tbxEditFiltro: TTBXEditItem
|
inherited tbxEditFiltro: TTBXEditItem
|
||||||
EditOptions = [tboUseEditWhenVertical]
|
EditOptions = [tboUseEditWhenVertical]
|
||||||
end
|
end
|
||||||
@ -77,6 +77,10 @@ inherited fEditorComisiones: TfEditorComisiones
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
inherited TBXTMain2: TTBXToolbar
|
||||||
|
Left = 334
|
||||||
|
ExplicitLeft = 334
|
||||||
|
end
|
||||||
end
|
end
|
||||||
inherited StatusBar: TJvStatusBar
|
inherited StatusBar: TJvStatusBar
|
||||||
Width = 820
|
Width = 820
|
||||||
@ -1489,4 +1493,626 @@ inherited fEditorComisiones: TfEditorComisiones
|
|||||||
ImageIndex = 25
|
ImageIndex = 25
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
object JsPrevisualizarDialog: TJSDialog
|
||||||
|
Content.Strings = (
|
||||||
|
'Elija una opci'#243'n:')
|
||||||
|
DialogOptions = [doCommandLinks, doModal]
|
||||||
|
Glyph.Data = {
|
||||||
|
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
|
||||||
|
00001C0806000000720DDF940000000970485973000017120000171201679FD2
|
||||||
|
520000000467414D410000B18E7CFB5193000003104944415478DAAD96FB4B14
|
||||||
|
5114C7CFE463DC1E606444BFF54424D3DC55CA52B1CCD7165A219905054182FD
|
||||||
|
1452FD5810FD100406610A669A998FC4F5BDB6266265DAB60F5DD15E58FE03B2
|
||||||
|
3F99D29ABBA7B9779C71C61D9D6177CFCE70CFDCB97B3EF7DCF3BD33C38082FD
|
||||||
|
B502B2B300CC656020048688A24F036233A0671F40D43160BA87BF62AEEE1010
|
||||||
|
60D7AE293AD8B835815E9B625C80DC8F1E88D4A7C1E8C1FB8F9FD6C3C44035B3
|
||||||
|
21500A65F6D700FE2EA580A5EC551F4A50359316B31D76EFDC0EE5F72A645045
|
||||||
|
A067AE0623074B8140891108F1057064CC0D556053DF173812B707E6DCF332A8
|
||||||
|
225080D201DB4AF99BF335B4D502F371415BCC364833C4C29F458F0C2A031281
|
||||||
|
081734AB0B3C88403C1E6E3E2E7960F6A8FFD27A7D3EF07A11DA2C76C84A8D87
|
||||||
|
A57FCB32E8B8A54A4C8C21B59365C9015996EF2240B6634DF435B51460A46D1F
|
||||||
|
70C093AA46BF09C980C12CA914E6F371ADD707EF1DB3B0B0B8006EB79B8EA96B
|
||||||
|
EA5106121851245129118FD8BFA2DC5C53C6BAF5EBBBBA97C2D64EC064195B1F
|
||||||
|
286C76E956A0EA5C51AEB4764A9929F5750D5A9581D2274B9B651C0BA2F514A8
|
||||||
|
6F28E36B70AD9A4253EF97A9AA55B0CEBA87D03B645B3F43C1DE589C58186D10
|
||||||
|
81150FCAC57B11E161B04517099BB953C78643141B01BA28EEE4DAB0B04DE2B8
|
||||||
|
CA460B9C399902E661BB3AB0F5AD038BF30CD4D7E7DD14815A61023027DD00EF
|
||||||
|
469C1A80FD1C307F1578FD4A81E665945AD68924181A9D5007B6F4DBF1527E32
|
||||||
|
F5C9D3632351F8F549AEE916B14EAA039BCD362C31A6040D23E7887D4A03B0CF
|
||||||
|
86C5C6641A24BB7646D3F2D51A77F8C1BCDCFFC79CD3EAC0D7BD56AE86294165
|
||||||
|
4660CB5C6B737DD3062CCA31D00069E76E05241862CF1EDD05E7D40F756063CF
|
||||||
|
673C7F5A4F679A59541EF03E4C8C3B0893DF67D481AFBAC7B0F05412CD30EBE2
|
||||||
|
ED80F7617CEC0198FEF94B1BF06C6622AD4B4EC99D80F7A1666043D7281A3312
|
||||||
|
FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312
|
||||||
|
82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA
|
||||||
|
1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082}
|
||||||
|
Instruction.Text = 'Previsualizar...'
|
||||||
|
Instruction.Glyph.Data = {
|
||||||
|
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
|
||||||
|
00001C0806000000720DDF940000000970485973000017120000171201679FD2
|
||||||
|
520000000467414D410000B18E7CFB5193000003104944415478DAAD96FB4B14
|
||||||
|
5114C7CFE463DC1E606444BFF54424D3DC55CA52B1CCD7165A219905054182FD
|
||||||
|
1452FD5810FD100406610A669A998FC4F5BDB6266265DAB60F5DD15E58FE03B2
|
||||||
|
3F99D29ABBA7B9779C71C61D9D6177CFCE70CFDCB97B3EF7DCF3BD33C38082FD
|
||||||
|
B502B2B300CC656020048688A24F036233A0671F40D43160BA87BF62AEEE1010
|
||||||
|
60D7AE293AD8B835815E9B625C80DC8F1E88D4A7C1E8C1FB8F9FD6C3C44035B3
|
||||||
|
21500A65F6D700FE2EA580A5EC551F4A50359316B31D76EFDC0EE5F72A645045
|
||||||
|
A067AE0623074B8140891108F1057064CC0D556053DF173812B707E6DCF332A8
|
||||||
|
225080D201DB4AF99BF335B4D502F371415BCC364833C4C29F458F0C2A031281
|
||||||
|
081734AB0B3C88403C1E6E3E2E7960F6A8FFD27A7D3EF07A11DA2C76C84A8D87
|
||||||
|
A57FCB32E8B8A54A4C8C21B59365C9015996EF2240B6634DF435B51460A46D1F
|
||||||
|
70C093AA46BF09C980C12CA914E6F371ADD707EF1DB3B0B0B8006EB79B8EA96B
|
||||||
|
EA5106121851245129118FD8BFA2DC5C53C6BAF5EBBBBA97C2D64EC064195B1F
|
||||||
|
286C76E956A0EA5C51AEB4764A9929F5750D5A9581D2274B9B651C0BA2F514A8
|
||||||
|
6F28E36B70AD9A4253EF97A9AA55B0CEBA87D03B645B3F43C1DE589C58186D10
|
||||||
|
81150FCAC57B11E161B04517099BB953C78643141B01BA28EEE4DAB0B04DE2B8
|
||||||
|
CA460B9C399902E661BB3AB0F5AD038BF30CD4D7E7DD14815A61023027DD00EF
|
||||||
|
469C1A80FD1C307F1578FD4A81E665945AD68924181A9D5007B6F4DBF1527E32
|
||||||
|
F5C9D3632351F8F549AEE916B14EAA039BCD362C31A6040D23E7887D4A03B0CF
|
||||||
|
86C5C6641A24BB7646D3F2D51A77F8C1BCDCFFC79CD3EAC0D7BD56AE86294165
|
||||||
|
4660CB5C6B737DD3062CCA31D00069E76E05241862CF1EDD05E7D40F756063CF
|
||||||
|
673C7F5A4F679A59541EF03E4C8C3B0893DF67D481AFBAC7B0F05412CD30EBE2
|
||||||
|
ED80F7617CEC0198FEF94B1BF06C6622AD4B4EC99D80F7A1666043D7281A3312
|
||||||
|
FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312
|
||||||
|
82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA
|
||||||
|
1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082}
|
||||||
|
Instruction.Icon = tdiCustom
|
||||||
|
CustomButtons = <
|
||||||
|
item
|
||||||
|
Caption = 'Previsualizar la comision/es seleccionada/s'
|
||||||
|
Value = 100
|
||||||
|
Default = True
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Caption = 'Previsualizar la lista de comisiones actual'
|
||||||
|
Value = 200
|
||||||
|
end>
|
||||||
|
ButtonBar.Buttons = [cbCancel]
|
||||||
|
MainIcon = tdiCustom
|
||||||
|
Title = 'FactuGES'
|
||||||
|
Position = dpMainFormCenter
|
||||||
|
Icon.Data = {
|
||||||
|
0000010003002020100001000400E8020000360000002020000001000800A808
|
||||||
|
00001E0300002020000001002000A8100000C60B000028000000200000004000
|
||||||
|
0000010004000000000000020000000000000000000000000000000000000000
|
||||||
|
000000008000008000000080800080000000800080008080000080808000C0C0
|
||||||
|
C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
|
||||||
|
0000000000000000000000000000000008777777777777777777777700000000
|
||||||
|
0877767777677776777767760000000008F88888888888888888888700000000
|
||||||
|
08F8FF8F8F888888888888860000000008FF8F8F88F8F8888888888C00000000
|
||||||
|
08F88888F8888888888888860000000008F8688878E8888E88E8788700000000
|
||||||
|
08F8688888F8F8FFFFFF88760000000008FF4888888F8FFFFFFF788700000000
|
||||||
|
08F8676767677677677658E50000000008FF8888888887878787888700000000
|
||||||
|
08FF8887887E8888888888860000000008FFE8E8E788C8E8FF8F8F8600000000
|
||||||
|
08FFF8F8F8F8FF8F88F8F8870000000008FFFFFF8FF8F8F8F88F888600000000
|
||||||
|
0FF8477878787878788788860000000008FF68888888F8FF8F8F788700000000
|
||||||
|
08B7588888FF8FFFFFFF78860000083008BB47887776777777776F86000000B7
|
||||||
|
8B9B73BB88788787E87878870000008BB8B9BB78888888EFF8F8FF8600000087
|
||||||
|
B8BB8B888E8E8E88FFF8F886000000088BBB888FFFFFFFFFF8F877770000B9BB
|
||||||
|
B8FFBB9B9BFFFFFFF87466460000BBB9BB8FBBBBB8FFFFFFF88F888700000008
|
||||||
|
B8BB88888FFFFFFFF88F8F7700000008BBBBBB8FFFFFFFFFFF8887700000007B
|
||||||
|
B7B98BB8FFFFFFFFF8887700000000B78B9B87B888F88F88F8877000000007B0
|
||||||
|
08BB883B78888788787700000000000000B9000000000000000000000000FFFF
|
||||||
|
FFFFF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
|
||||||
|
000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
|
||||||
|
000FF800000FF800000F9800000FC000000FC000000FC000000FE000000F0000
|
||||||
|
000F0000000FE000000FE000001FC000003FC000007F980000FFFCFFFFFF2800
|
||||||
|
0000200000004000000001000800000000000004000000000000000000000001
|
||||||
|
00000001000000000000694731007C5D49007E604C0081635000826451008567
|
||||||
|
540085685500886B5900896D5B008A6E5D008B705F008E715F008B7260008C72
|
||||||
|
61008E74640084766C00957A6900977D6D00887B72009A8171009D8272009C84
|
||||||
|
76009D8778009F897B00A28A7900A08B7D00A18C7E00E1B06E00E1B67D003E7A
|
||||||
|
970073A0A5007AA2B70074AFBD007BB2BB003CAACE0028A5DB0020ADDF000D9A
|
||||||
|
E500209EE3000DA6E2001AA4EF0000A6FF000CABFE0009ACFE0010A4F10015AC
|
||||||
|
FA0000B5FB0000B0FD000CB6FC0000BFF90000BAFD0004BAFD0009BBFB0013B6
|
||||||
|
F40015BFFA001CBDFB0026B7FD00589EC50040A4CD0040ABCC0050A2C7005DAE
|
||||||
|
C00060A3C20062A4C60060B7CB006AB0CD007BB6C80077BAC80061BADD0044AD
|
||||||
|
E50000C3F80007C6FB0000CAF80000CFFB0000D4F90026C8FA0026CDF8002BCC
|
||||||
|
F90039C4FB0039C2FC0039CAFA003FCFFB0024D6F80030D2F80039D5F80000F8
|
||||||
|
F8001FF8F8002CF6F8003EF4F8005AC6DC0070CDDF0052C0E40054C9E3004DCE
|
||||||
|
FA005FC7FF004FD2FB004DD9F8005FD9FB006ED3E70063CDFE0060D1FB0060D8
|
||||||
|
F90060DDF80046F8F90056F0F8005FFAFA0073E3F80073E4F90073EEF80060F1
|
||||||
|
F800958A84009A918C0081999500A68F8200AD968500A3968C00AE988900AD9A
|
||||||
|
8D00B19A8B00AF9C9000B09E9200B59F9200B7A29300B2A19600B5A19400B7A4
|
||||||
|
9700BDA79700B4A39800B1A59D00B4A79F00BAA69800BCA79900B4A89F00BCA8
|
||||||
|
9900BAA89C00BDAA9D00BEAC9E0083ADBD00B5A9A100BDABA000BEADA100BFAF
|
||||||
|
A500A0BABE00C0AB9E00C1AC9E00C6AE9F00E2B98100E4BA8300E4BB8400E5BC
|
||||||
|
8500E1BD8E00E3BF9000C0ADA000C2B0A300C2B1A500C4B2A600C1B2A800C3B5
|
||||||
|
AB00C8B4A800CCB9AD00CEBCB100D0BEB200D1BFB400E4C19300E5C29400E6C4
|
||||||
|
9600E8C69900D0C9A300CFC1B800D2C1B600D3C3B800D5C4B900D6C6BC00D8C6
|
||||||
|
BC00D6C8BE00DAC9BF00ECD3B000EDD4B200EFD6B500E7D1B800E7D3BD00F0D8
|
||||||
|
B6008CB7C40080BEC70097C3C70099C3C900ABD7CF00AFD9DD0086E3F90086E7
|
||||||
|
F90086ECF8009EE5FB0090E8F900ACEDFC00BCEAFD00BCF1FB00BFF1FD00D7C9
|
||||||
|
C000D9CAC100DCCBC200DACCC200DDCCC300DACCC400DDCEC400DED0C600DED1
|
||||||
|
C900DED3CC00DFD4CD00E1D1C900E2D5CD00F0DCC200E3D8D200E5D9D200E2DA
|
||||||
|
D500E6DBD400E5DCD500E8DDD600E6DDD800E9DFD900E6E0DB00EAE0DA00EAE2
|
||||||
|
DD00ECE3DE00EBE4DE00ECE4DE00F3E7D900C6E1EF00C9EFFD00D7F6FD00DFF3
|
||||||
|
FF00DFFEFE00EBE7E300EDE6E100EFE7E400EEE8E400F0EAE600F2EDE900F2EE
|
||||||
|
EC00F4EFEC00F5F0EE00F9F4ED00E7FAFD00EBF8FF00F6F2F000F7F4F100F8F4
|
||||||
|
F200F9F7F500FAF8F600FBF9F900FCFBFA00FCFCFB00FEFEFE00000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000007D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
|
||||||
|
0D0D0000000000000000009C9C19191919191919191919191919191919191919
|
||||||
|
1903000000000000000000ABDECBCBC7C7AFABABABABAAA3A2A2A0A0A0A0A0A0
|
||||||
|
8607000000000000000000ABECEAE9DEDEDEDED7D5D2D2D2CBCBCBCBB0CBB0CB
|
||||||
|
9007000000000000000000ABEDECEAE9DEDEDBD7D7D5D2D2D2CDCDCBB0B0B0B0
|
||||||
|
9007000000000000000000AFEDE9A9CFD2CFD2CDCBCBCBB0B0ABACA3A3A3A3B0
|
||||||
|
9007000000000000000000AFF0D5017783838386868686869099909999907BB0
|
||||||
|
9007000000000000000000B0F4D501A0B0CBD2D5DEECEDF7FAFAFAFAFAF77BAA
|
||||||
|
9007000000000000000000CBF4DC01A0B0B0B0D2D5DBEAEDF7FAFAFAFAF47BB0
|
||||||
|
9007000000000000000000CBF8DC010404070604090909090D0D110D110D02A3
|
||||||
|
9007000000000000000000CBFAED9E9E9E9C999E8C8C8C868683837E7D7D7ACB
|
||||||
|
9007000000000000000000CBFAF1A7A7A6A6A6A69898989898B5DBDBD5D5D2D2
|
||||||
|
9907000000000000000000CDFAF796969696961D961D931D1DB4DEDBD7D5D5D2
|
||||||
|
9C07000000000000000000CFFAFAFAFAF8F7F0F0EDEDEDECE9E9DEDEDED7D5D5
|
||||||
|
9907000000000000000000CDFAFAEAF0EDEDECEAEAE9DEDEDBDCD5D5D5D5D2D5
|
||||||
|
9C07000000000000000000D2FAEC01737D7D7B7D7D7B7D7B7D7B7B7B7D7B7DD2
|
||||||
|
9907000000000000000000CFFAEC019EABB0CBD2D5DCDEECEDF4F4F4F4EA7BD2
|
||||||
|
9C07000000000000000000B9524601A0B0B0CBB5D5DEEAEDF7FAFAFAFAF47DD5
|
||||||
|
9C070000000000213F0000B83226010C3F5C1F111214141616191B1B1B1807D2
|
||||||
|
9C07000000000000253D8A5B322D711E2860BA7E7E7A7E797A797979767676D5
|
||||||
|
9E0700000000000041375E662F2B65314EBBB6B6B6B6B4B4B1E2F4EDEDEDECEA
|
||||||
|
9C070000000000008F5D66663232394EC1A81C1C1C1C1C1C1CD3F7F4EDDED7D5
|
||||||
|
9C0700000000000000B7BE6E5758BEBDE4E6E6F3FAFAFAFAFAFAF7F4D5928675
|
||||||
|
7304000000002A2A2A2A4A6AFAE7562F2A2A2A5FFAFAFAFAFAFAF8D577010101
|
||||||
|
0101000000004747472F4A59C5E7564A32474766FAFAFAFAFAFAFADCA0D2CFB0
|
||||||
|
A20C00000000000000436C6958686D6BC2C5C5E7FAFAFAFAFAFAFADEAADEDBCB
|
||||||
|
1470000000000000004551534A4A5250C0E7FAFAFAFAFAFAFAFAFADEAAD7B514
|
||||||
|
700000000000000042384C54472B613550C3FAFAFAFAFAFAFAFAFADEA1B0196F
|
||||||
|
000000000000000024234463322EBC5A3664E3ECE9E9E9E9E9E9E9CF90731300
|
||||||
|
000000000000003A3C00002232298B8B3E3B207E8B7E8B7E827E817E74100000
|
||||||
|
0000000000000000000000003227000000000000000000000000000000000000
|
||||||
|
000000000000FFFFFFFFF800000FF800000FF800000FF800000FF800000FF800
|
||||||
|
000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
|
||||||
|
000FF800000FF800000FF800000FF800000F9800000FC000000FC000000FC000
|
||||||
|
000FE000000F0000000F0000000FE000000FE000001FC000003FC000007F9800
|
||||||
|
00FFFCFFFFFF2800000020000000400000000100200000000000801000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000007067
|
||||||
|
5F70AA9382E570513CE3735540E3735540E3735540E3735540E3735540E37355
|
||||||
|
40E3735540E3735540E3735540E3735540E3735540E3735540E3735540E37355
|
||||||
|
40E3735540E3735540E3735540E3735540E3735540E3735540E372533EE5BAAB
|
||||||
|
A070000000000000000000000000000000000000000000000000000000005E54
|
||||||
|
4C7FCAB7ABFFC5B5AAFFA18877FFA28A78FFA28A79FFA28A79FFA28A79FFA28A
|
||||||
|
79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A
|
||||||
|
79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA58D7CFF7A5B46FFB2A1
|
||||||
|
967F000000000000000000000000000000000000000000000000000000006055
|
||||||
|
4D7ED7C6BBFFEDE4E0FFD9CCC4FFD9CCC4FFD9CBC3FFD8CAC1FFD7C9BFFFD6C7
|
||||||
|
BDFFD5C6BBFFD4C4BAFFD3C3B8FFD2C1B7FFD1C0B5FFD0BEB3FFCFBDB2FFCEBC
|
||||||
|
B0FFCEBBAFFFCEBBAFFFCEBBAFFFCEBBAFFFCEBCB0FFBEAA9CFF82644FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006056
|
||||||
|
4D7ED7C8BCFFF2EBE8FFEFE9E5FFEEE7E2FFECE5E0FFEBE2DEFFEAE0DBFFE9DE
|
||||||
|
D8FFE7DBD4FFE5D9D1FFE3D7CFFFE2D4CCFFE1D2C9FFDFD0C7FFDDCDC4FFDCCB
|
||||||
|
C2FFDBC9BFFFDBC9BFFFDBC9BFFFDBC9BFFFDCCAC1FFC1AC9FFF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006155
|
||||||
|
4E7ED8C9BDFFF3EDE9FFF1EAE6FFF0E9E6FFEEE6E1FFECE4DFFFEBE2DDFFEAE0
|
||||||
|
DAFFE9DED7FFE7DBD4FFE5D9D1FFE3D7CFFFE2D4CCFFE1D2C9FFDFD0C7FFDDCD
|
||||||
|
C4FFDCCBC2FFDBC9BFFFDBC9BFFFDBC9BFFFDCCAC0FFC1AC9FFF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006157
|
||||||
|
4E7ED9C9BFFFF4EFEDFFEFE8E3FFD0C2B9FFDFD5CEFFE0D5CEFFE0D4CCFFDED3
|
||||||
|
CBFFDDD1C8FFDCCFC6FFDACCC4FFD9CBC1FFD8C9BFFFD7C7BDFFD6C5BBFFD5C4
|
||||||
|
B9FFD3C2B7FFD2C0B5FFD2BFB4FFD2BFB4FFDAC8BEFFC1AC9FFF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006256
|
||||||
|
4F7EDACCC0FFF5F2EFFFE5DDD9FF5C3821FFB0998AFFB8A394FFB8A394FFB9A3
|
||||||
|
94FFB8A495FFB9A597FFB9A698FFBAA698FFBBA799FFBBA89AFFBBA89BFFBCA8
|
||||||
|
9BFFBCA89BFFBCA89BFFBBA89AFFB49E8FFFD8C6BBFFC1AC9FFF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006256
|
||||||
|
4F7EDBCBC1FFF8F4F3FFE7E0DBFF5F3C24FFD0BDB2FFDCCBC1FFDDCCC3FFE2D2
|
||||||
|
CBFFE7DBD4FFEDE2DEFFF0E8E6FFF5F0EDFFF9F7F4FFFDFDFDFFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFAF8F7FFB39D8DFFD8C6BBFFC1AC9FFF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006256
|
||||||
|
4F7EDCCEC3FFFAF6F5FFE9E2DDFF5F3C24FFD2BFB5FFDFCDC4FFDECCC3FFE0CE
|
||||||
|
C6FFE4D4CDFFE9DDD6FFEFE4E0FFF1EAE8FFF7F1EFFFFBF8F6FFFFFEFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFCFBFAFFB5A090FFD9C7BEFFC1AD9FFF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006257
|
||||||
|
4F7EDDCFC4FFFCF9F9FFE9E4E0FF5F3A23FF7C5D49FF7F5F4CFF7E5F4CFF7E60
|
||||||
|
4DFF7F614DFF816350FF826552FF836654FF846856FF856A57FF866B59FF876C
|
||||||
|
5BFF876D5BFF876D5BFF866B59FF72523DFFD5C3B9FFC1AFA1FF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006357
|
||||||
|
507EDECFC6FFFCFCFBFFF4F1F0FFC3B6AEFFC3B5ADFFC1B4ACFFC0B3AAFFBFB1
|
||||||
|
A9FFBEB0A6FFBDAEA5FFBDACA3FFBCABA2FFBBAAA0FFBAA99FFFB8A69AFFB8A4
|
||||||
|
98FFB6A396FFB5A194FFB49F93FFB39D90FFDCCDC4FFC2AEA1FF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006357
|
||||||
|
507EDFD2C7FFFEFEFDFFF9F5EFFFE8C696FFE9C799FFE8C697FFE7C596FFE7C4
|
||||||
|
95FFE6C394FFE5C293FFE4C091FFE4C090FFE3BF8FFFE2BD8CFFE9D5BFFFEBE1
|
||||||
|
DCFFEADFD8FFE7DCD5FFE5DAD3FFE4D8D0FFE3D4CCFFC2AFA2FF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006458
|
||||||
|
517EE0D3C8FFFFFFFFFFFAF5EFFFE3B77CFFE4B97FFFE2B87EFFE3B77DFFE2B7
|
||||||
|
7CFFE2B67BFFE1B57AFFE1B479FFE0B478FFE0B377FFDFB174FFE6D0B7FFEBE1
|
||||||
|
DCFFE8DFD9FFE8DDD6FFE6D9D2FFE3D8D1FFE4D7CFFFC3AFA2FF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006458
|
||||||
|
517EE1D2C9FFFFFFFFFFFEFEFDFFFEFFFFFFFCFDFEFFFBFBFBFFF9F7F8FFF8F5
|
||||||
|
F6FFF7F3F2FFF5F1F0FFF4EFEEFFF1EDEBFFF0EBE9FFEEE9E6FFEDE6E2FFECE3
|
||||||
|
DEFFEBE1DBFFE9DFD9FFE8DDD6FFE6DAD3FFE5D9D2FFC3B0A3FF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006459
|
||||||
|
517EE1D4CAFFFFFFFFFFFDFDFCFFEEEBE8FFF5F2F0FFF4F0EFFFF3EFECFFF2ED
|
||||||
|
EAFFF1EBE8FFEEE9E5FFEFE7E3FFECE5E1FFEAE4DEFFEAE1DCFFE8E0DAFFE7DE
|
||||||
|
D8FFE6DDD6FFE5DBD4FFE4D8D1FFE2D6CEFFE6DBD4FFC3B1A4FF81634EFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006559
|
||||||
|
527EE2D4CAFFFFFFFFFFF0ECEAFF5B361EFFAB9383FFB39D8EFFB39D8DFFB39D
|
||||||
|
8DFFB29D8DFFB29C8DFFB29C8CFFB29C8CFFB29C8CFFB29C8CFFB29C8CFFB29C
|
||||||
|
8CFFB29C8CFFB29C8CFFB29C8DFFB39D8EFFE3D8D0FFC4B1A4FF81634EFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006559
|
||||||
|
527EE5D4CAFFFFFFFFFFF7F0EBFF5F3B24FFCCB8ADFFD7C5BAFFD9C7BDFFDCCC
|
||||||
|
C3FFE1D4CCFFE5DAD4FFE8E0DBFFEDE5E1FFF1EBE9FFF5F2EFFFF7F5F3FFF8F6
|
||||||
|
F4FFF8F5F4FFF8F6F4FFF1EEEAFFB29C8DFFE6DAD3FFC4B2A5FF81634EFFB2A1
|
||||||
|
967E00000000000000000000000000000000000000000000000000000000685A
|
||||||
|
527E9AC6C9FF35CFFEFF3DAEEBFF663E24FFD2BFB4FFE0CBBFFFE0C9BDFFE1CD
|
||||||
|
C4FFE4D5CDFFE9DED7FFEEE5E0FFF2EBE8FFF6F2F0FFFCF8F8FFFFFFFEFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFCFAF9FFB49E8FFFE7DED7FFC5B3A6FF81634EFFB2A1
|
||||||
|
967E00000000000000000000000000000000007792910072A7A3001E33366957
|
||||||
|
4C7C86C1C8FF00BFFBFF079AEBFF6A3E23FF926D57FF5FA3C8FF4AC1E8FF6C9C
|
||||||
|
A2FF917260FF927767FF947A69FF957C6CFF977E6FFF998171FF9A8374FF9B85
|
||||||
|
76FF9C8678FF9C8678FF998274FF7D5E49FFE3D9D4FFC5B3A7FF81634EFFB2A1
|
||||||
|
967E00000000000000000000000000000000005A6F7000A9E5E40075AEAE5C90
|
||||||
|
A5BD75D0E0FF00BFFAFF0CA3F4FF8A9A91FF3C7492FF03A4E4FF4AD5FFFF98C4
|
||||||
|
CBFFB3A196FFB1A197FFB0A096FFB09F95FFAF9D92FFAF9C91FFAD9A8EFFAC99
|
||||||
|
8CFFAB988AFFAB9789FFAA9688FFA99386FFE8E0DAFFC5B4A7FF81634EFFB2A1
|
||||||
|
967E00000000000000000000000000000000000000002DA5BFC110C2FFFF4DD0
|
||||||
|
FDFF64DBF9FF00B3FAFF09A8FEFF68D7FFFF04B5FFFF24CCFBFFAFD8CEFFF7DA
|
||||||
|
B8FFF3DBBBFFF3DBBAFFF2D9B9FFF1D8B7FFF0D7B4FFEED5B2FFF6EADDFFF9F6
|
||||||
|
F4FFF7F3F1FFF5F1EEFFF5EFECFFF4EDEAFFF1EBE7FFC6B4A8FF81634EFFB2A1
|
||||||
|
967E00000000000000000000000000000000000000005F8A909142C7E4E960DE
|
||||||
|
F8FF64D7FAFF00B6FDFF00B8FDFF21B2FDFF1ECCF7FF93EBFCFFD2C69BFFE1AB
|
||||||
|
63FFDFAC66FFDFAC66FFDFAC66FFDFAC66FFDFAC66FFDEA961FFEFDBC0FFF8F6
|
||||||
|
F5FFF6F2F0FFF3EDEBFFECE2DCFFE9DFD9FFE5DBD6FFC2B1A4FF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000E171A000E171A00040B145994A4A990EB
|
||||||
|
FCFF61F1F7FF13FAF7FF23F9F7FF93EDF7FF8CE5F8FFD5F2FDFFE9F8FFFFE7F8
|
||||||
|
FFFFF0FCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFFFFFFFDFEFFFFFAFAF9FFF9F7
|
||||||
|
F5FFF7F2F0FFE8DFD8FFC7AE9FFFBEA998FFAF9888FFB09A8AFF7F604DFFB2A1
|
||||||
|
967E00000000000000000000000000AAFFFF00AAFFFF00AAFFFF00A4FFFF00CD
|
||||||
|
FAFF5DFCF9FFFFFFFFFFEEFEFEFF00FBF7FF00AAFEFF00A1FFFF00A1FFFF00A0
|
||||||
|
FFFF56C3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCFDFBFFFCFBFAFFFBFA
|
||||||
|
F8FFE6DDD6FFAA9180FF5D3922FF603D26FF613E27FF613E28FF634029FFB4A3
|
||||||
|
987E00000000000000000000000000CAFFFF00CAFFFF00CBFFFF00B0FFFF00CD
|
||||||
|
FBFF38F5F7FFC3EFFAFFF0FFFEFF00FAF7FF00C8F7FF00C2F7FF00C2F7FF00C1
|
||||||
|
F7FF57D7FAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFFFDFDFCFFFCFC
|
||||||
|
FBFFE7DED8FFCCB9ACFFE6DBD5FFE2D7D0FFDCCFC5FFD7C5BBFF8E705DFFB4A2
|
||||||
|
9680000000000000000000000000002E383C002E383C00252F364C99B0B57DE8
|
||||||
|
FBFF59F1F7FF25F7F7FF41FAF8FF7CEEF7FF77E4F7FFB5EFFCFFC6F2FDFFC3F2
|
||||||
|
FDFFD9F6FCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDFEFEFFFEFE
|
||||||
|
FEFFE9E1DAFFCEBCAFFFF1E9E3FFEADFD8FFE4D5CCFF9D816FFF3A291F868985
|
||||||
|
831C00000000000000000000000000000000000000004E7073774AB0DADC37C9
|
||||||
|
FBFF22D5F7FF00D3F9FF02C3FBFF37D5F7FF34BEFCFFA2E6FAFFECFBFDFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFF
|
||||||
|
FFFFEAE2DCFFCDBBADFFEADFD8FFE3D5CBFF9F8271FF3E2D2386050100200000
|
||||||
|
000000000000000000000000000000000000000000003E9CC4C219C0FFFF23C9
|
||||||
|
FCFF30D3F8FF00BEF8FF06A8FEFF4FDCF8FF00B8FCFF32C2FBFFC0EBFCFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFFEAE3DEFFCDB9ABFFDDCEC4FFA58979FF3E2C1F8F0905041B000000000000
|
||||||
|
000000000000000000000000000000000000003451510099DDDB0091C0C35DAD
|
||||||
|
BCCF76D7E9FF00BEF9FF10A9FBFFBDDEDEFF5AC8DDFF0AB5F7FF62CEFFFFCBE4
|
||||||
|
F1FFF1E7E0FFEFE7E1FFEEE6E1FFEEE6E1FFEEE6E0FFEDE6E0FFEDE5E0FFEEE6
|
||||||
|
E1FFE1D4CCFFC5AE9FFFA68D7FF53E2718A10402000E00000000000000000000
|
||||||
|
0000000000000000000000000000000000000075B7AF0099C7C500323E425442
|
||||||
|
3B5C6BA8B1DA00C1FCFF0EA1F3F8A98E80C0AB9081C12698B1C10088C4C14C85
|
||||||
|
A3C1A18D80C19E8D81C19E8B81C19D8C80C19B8C7FC19B8A7FC19C897FC19A89
|
||||||
|
7EC19B8B7EC1897769C2432B1BAC000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000045565A00C5FFFF0094E6E2000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000FFFFFFFFF0000007F0000007F0000007F000
|
||||||
|
0007F0000007F0000007F0000007F0000007F0000007F0000007F0000007F000
|
||||||
|
0007F0000007F0000007F0000007F0000007F0000007F0000007800000078000
|
||||||
|
0007C0000007C000000700000007000000070000000700000007C000000FC000
|
||||||
|
001F8000003F800000FFF8FFFFFF}
|
||||||
|
Width = 450
|
||||||
|
Left = 296
|
||||||
|
Top = 144
|
||||||
|
end
|
||||||
|
object JsImprimirDialog: TJSDialog
|
||||||
|
Content.Strings = (
|
||||||
|
'Elija una opci'#243'n:')
|
||||||
|
DialogOptions = [doCommandLinks, doModal]
|
||||||
|
Glyph.Data = {
|
||||||
|
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
|
||||||
|
00001C0806000000720DDF940000000970485973000017120000171201679FD2
|
||||||
|
520000000467414D410000B18E7CFB5193000003104944415478DAAD96FB4B14
|
||||||
|
5114C7CFE463DC1E606444BFF54424D3DC55CA52B1CCD7165A219905054182FD
|
||||||
|
1452FD5810FD100406610A669A998FC4F5BDB6266265DAB60F5DD15E58FE03B2
|
||||||
|
3F99D29ABBA7B9779C71C61D9D6177CFCE70CFDCB97B3EF7DCF3BD33C38082FD
|
||||||
|
B502B2B300CC656020048688A24F036233A0671F40D43160BA87BF62AEEE1010
|
||||||
|
60D7AE293AD8B835815E9B625C80DC8F1E88D4A7C1E8C1FB8F9FD6C3C44035B3
|
||||||
|
21500A65F6D700FE2EA580A5EC551F4A50359316B31D76EFDC0EE5F72A645045
|
||||||
|
A067AE0623074B8140891108F1057064CC0D556053DF173812B707E6DCF332A8
|
||||||
|
225080D201DB4AF99BF335B4D502F371415BCC364833C4C29F458F0C2A031281
|
||||||
|
081734AB0B3C88403C1E6E3E2E7960F6A8FFD27A7D3EF07A11DA2C76C84A8D87
|
||||||
|
A57FCB32E8B8A54A4C8C21B59365C9015996EF2240B6634DF435B51460A46D1F
|
||||||
|
70C093AA46BF09C980C12CA914E6F371ADD707EF1DB3B0B0B8006EB79B8EA96B
|
||||||
|
EA5106121851245129118FD8BFA2DC5C53C6BAF5EBBBBA97C2D64EC064195B1F
|
||||||
|
286C76E956A0EA5C51AEB4764A9929F5750D5A9581D2274B9B651C0BA2F514A8
|
||||||
|
6F28E36B70AD9A4253EF97A9AA55B0CEBA87D03B645B3F43C1DE589C58186D10
|
||||||
|
81150FCAC57B11E161B04517099BB953C78643141B01BA28EEE4DAB0B04DE2B8
|
||||||
|
CA460B9C399902E661BB3AB0F5AD038BF30CD4D7E7DD14815A61023027DD00EF
|
||||||
|
469C1A80FD1C307F1578FD4A81E665945AD68924181A9D5007B6F4DBF1527E32
|
||||||
|
F5C9D3632351F8F549AEE916B14EAA039BCD362C31A6040D23E7887D4A03B0CF
|
||||||
|
86C5C6641A24BB7646D3F2D51A77F8C1BCDCFFC79CD3EAC0D7BD56AE86294165
|
||||||
|
4660CB5C6B737DD3062CCA31D00069E76E05241862CF1EDD05E7D40F756063CF
|
||||||
|
673C7F5A4F679A59541EF03E4C8C3B0893DF67D481AFBAC7B0F05412CD30EBE2
|
||||||
|
ED80F7617CEC0198FEF94B1BF06C6622AD4B4EC99D80F7A1666043D7281A3312
|
||||||
|
FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312
|
||||||
|
82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA
|
||||||
|
1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082}
|
||||||
|
Instruction.Text = 'Imprimir...'
|
||||||
|
Instruction.Glyph.Data = {
|
||||||
|
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
|
||||||
|
00001C0806000000720DDF940000000970485973000017120000171201679FD2
|
||||||
|
520000000467414D410000B18E7CFB5193000003104944415478DAAD96FB4B14
|
||||||
|
5114C7CFE463DC1E606444BFF54424D3DC55CA52B1CCD7165A219905054182FD
|
||||||
|
1452FD5810FD100406610A669A998FC4F5BDB6266265DAB60F5DD15E58FE03B2
|
||||||
|
3F99D29ABBA7B9779C71C61D9D6177CFCE70CFDCB97B3EF7DCF3BD33C38082FD
|
||||||
|
B502B2B300CC656020048688A24F036233A0671F40D43160BA87BF62AEEE1010
|
||||||
|
60D7AE293AD8B835815E9B625C80DC8F1E88D4A7C1E8C1FB8F9FD6C3C44035B3
|
||||||
|
21500A65F6D700FE2EA580A5EC551F4A50359316B31D76EFDC0EE5F72A645045
|
||||||
|
A067AE0623074B8140891108F1057064CC0D556053DF173812B707E6DCF332A8
|
||||||
|
225080D201DB4AF99BF335B4D502F371415BCC364833C4C29F458F0C2A031281
|
||||||
|
081734AB0B3C88403C1E6E3E2E7960F6A8FFD27A7D3EF07A11DA2C76C84A8D87
|
||||||
|
A57FCB32E8B8A54A4C8C21B59365C9015996EF2240B6634DF435B51460A46D1F
|
||||||
|
70C093AA46BF09C980C12CA914E6F371ADD707EF1DB3B0B0B8006EB79B8EA96B
|
||||||
|
EA5106121851245129118FD8BFA2DC5C53C6BAF5EBBBBA97C2D64EC064195B1F
|
||||||
|
286C76E956A0EA5C51AEB4764A9929F5750D5A9581D2274B9B651C0BA2F514A8
|
||||||
|
6F28E36B70AD9A4253EF97A9AA55B0CEBA87D03B645B3F43C1DE589C58186D10
|
||||||
|
81150FCAC57B11E161B04517099BB953C78643141B01BA28EEE4DAB0B04DE2B8
|
||||||
|
CA460B9C399902E661BB3AB0F5AD038BF30CD4D7E7DD14815A61023027DD00EF
|
||||||
|
469C1A80FD1C307F1578FD4A81E665945AD68924181A9D5007B6F4DBF1527E32
|
||||||
|
F5C9D3632351F8F549AEE916B14EAA039BCD362C31A6040D23E7887D4A03B0CF
|
||||||
|
86C5C6641A24BB7646D3F2D51A77F8C1BCDCFFC79CD3EAC0D7BD56AE86294165
|
||||||
|
4660CB5C6B737DD3062CCA31D00069E76E05241862CF1EDD05E7D40F756063CF
|
||||||
|
673C7F5A4F679A59541EF03E4C8C3B0893DF67D481AFBAC7B0F05412CD30EBE2
|
||||||
|
ED80F7617CEC0198FEF94B1BF06C6622AD4B4EC99D80F7A1666043D7281A3312
|
||||||
|
FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312
|
||||||
|
82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA
|
||||||
|
1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082}
|
||||||
|
Instruction.Icon = tdiCustom
|
||||||
|
CustomButtons = <
|
||||||
|
item
|
||||||
|
Caption = 'Imprimir la comision/es seleccionada/s'
|
||||||
|
Value = 100
|
||||||
|
Default = True
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Caption = 'Imprimir la lista de comisiones actual'
|
||||||
|
Value = 200
|
||||||
|
end>
|
||||||
|
ButtonBar.Buttons = [cbCancel]
|
||||||
|
MainIcon = tdiCustom
|
||||||
|
Title = 'FactuGES'
|
||||||
|
Position = dpMainFormCenter
|
||||||
|
Icon.Data = {
|
||||||
|
0000010003002020100001000400E8020000360000002020000001000800A808
|
||||||
|
00001E0300002020000001002000A8100000C60B000028000000200000004000
|
||||||
|
0000010004000000000000020000000000000000000000000000000000000000
|
||||||
|
000000008000008000000080800080000000800080008080000080808000C0C0
|
||||||
|
C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
|
||||||
|
0000000000000000000000000000000008777777777777777777777700000000
|
||||||
|
0877767777677776777767760000000008F88888888888888888888700000000
|
||||||
|
08F8FF8F8F888888888888860000000008FF8F8F88F8F8888888888C00000000
|
||||||
|
08F88888F8888888888888860000000008F8688878E8888E88E8788700000000
|
||||||
|
08F8688888F8F8FFFFFF88760000000008FF4888888F8FFFFFFF788700000000
|
||||||
|
08F8676767677677677658E50000000008FF8888888887878787888700000000
|
||||||
|
08FF8887887E8888888888860000000008FFE8E8E788C8E8FF8F8F8600000000
|
||||||
|
08FFF8F8F8F8FF8F88F8F8870000000008FFFFFF8FF8F8F8F88F888600000000
|
||||||
|
0FF8477878787878788788860000000008FF68888888F8FF8F8F788700000000
|
||||||
|
08B7588888FF8FFFFFFF78860000083008BB47887776777777776F86000000B7
|
||||||
|
8B9B73BB88788787E87878870000008BB8B9BB78888888EFF8F8FF8600000087
|
||||||
|
B8BB8B888E8E8E88FFF8F886000000088BBB888FFFFFFFFFF8F877770000B9BB
|
||||||
|
B8FFBB9B9BFFFFFFF87466460000BBB9BB8FBBBBB8FFFFFFF88F888700000008
|
||||||
|
B8BB88888FFFFFFFF88F8F7700000008BBBBBB8FFFFFFFFFFF8887700000007B
|
||||||
|
B7B98BB8FFFFFFFFF8887700000000B78B9B87B888F88F88F8877000000007B0
|
||||||
|
08BB883B78888788787700000000000000B9000000000000000000000000FFFF
|
||||||
|
FFFFF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
|
||||||
|
000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
|
||||||
|
000FF800000FF800000F9800000FC000000FC000000FC000000FE000000F0000
|
||||||
|
000F0000000FE000000FE000001FC000003FC000007F980000FFFCFFFFFF2800
|
||||||
|
0000200000004000000001000800000000000004000000000000000000000001
|
||||||
|
00000001000000000000694731007C5D49007E604C0081635000826451008567
|
||||||
|
540085685500886B5900896D5B008A6E5D008B705F008E715F008B7260008C72
|
||||||
|
61008E74640084766C00957A6900977D6D00887B72009A8171009D8272009C84
|
||||||
|
76009D8778009F897B00A28A7900A08B7D00A18C7E00E1B06E00E1B67D003E7A
|
||||||
|
970073A0A5007AA2B70074AFBD007BB2BB003CAACE0028A5DB0020ADDF000D9A
|
||||||
|
E500209EE3000DA6E2001AA4EF0000A6FF000CABFE0009ACFE0010A4F10015AC
|
||||||
|
FA0000B5FB0000B0FD000CB6FC0000BFF90000BAFD0004BAFD0009BBFB0013B6
|
||||||
|
F40015BFFA001CBDFB0026B7FD00589EC50040A4CD0040ABCC0050A2C7005DAE
|
||||||
|
C00060A3C20062A4C60060B7CB006AB0CD007BB6C80077BAC80061BADD0044AD
|
||||||
|
E50000C3F80007C6FB0000CAF80000CFFB0000D4F90026C8FA0026CDF8002BCC
|
||||||
|
F90039C4FB0039C2FC0039CAFA003FCFFB0024D6F80030D2F80039D5F80000F8
|
||||||
|
F8001FF8F8002CF6F8003EF4F8005AC6DC0070CDDF0052C0E40054C9E3004DCE
|
||||||
|
FA005FC7FF004FD2FB004DD9F8005FD9FB006ED3E70063CDFE0060D1FB0060D8
|
||||||
|
F90060DDF80046F8F90056F0F8005FFAFA0073E3F80073E4F90073EEF80060F1
|
||||||
|
F800958A84009A918C0081999500A68F8200AD968500A3968C00AE988900AD9A
|
||||||
|
8D00B19A8B00AF9C9000B09E9200B59F9200B7A29300B2A19600B5A19400B7A4
|
||||||
|
9700BDA79700B4A39800B1A59D00B4A79F00BAA69800BCA79900B4A89F00BCA8
|
||||||
|
9900BAA89C00BDAA9D00BEAC9E0083ADBD00B5A9A100BDABA000BEADA100BFAF
|
||||||
|
A500A0BABE00C0AB9E00C1AC9E00C6AE9F00E2B98100E4BA8300E4BB8400E5BC
|
||||||
|
8500E1BD8E00E3BF9000C0ADA000C2B0A300C2B1A500C4B2A600C1B2A800C3B5
|
||||||
|
AB00C8B4A800CCB9AD00CEBCB100D0BEB200D1BFB400E4C19300E5C29400E6C4
|
||||||
|
9600E8C69900D0C9A300CFC1B800D2C1B600D3C3B800D5C4B900D6C6BC00D8C6
|
||||||
|
BC00D6C8BE00DAC9BF00ECD3B000EDD4B200EFD6B500E7D1B800E7D3BD00F0D8
|
||||||
|
B6008CB7C40080BEC70097C3C70099C3C900ABD7CF00AFD9DD0086E3F90086E7
|
||||||
|
F90086ECF8009EE5FB0090E8F900ACEDFC00BCEAFD00BCF1FB00BFF1FD00D7C9
|
||||||
|
C000D9CAC100DCCBC200DACCC200DDCCC300DACCC400DDCEC400DED0C600DED1
|
||||||
|
C900DED3CC00DFD4CD00E1D1C900E2D5CD00F0DCC200E3D8D200E5D9D200E2DA
|
||||||
|
D500E6DBD400E5DCD500E8DDD600E6DDD800E9DFD900E6E0DB00EAE0DA00EAE2
|
||||||
|
DD00ECE3DE00EBE4DE00ECE4DE00F3E7D900C6E1EF00C9EFFD00D7F6FD00DFF3
|
||||||
|
FF00DFFEFE00EBE7E300EDE6E100EFE7E400EEE8E400F0EAE600F2EDE900F2EE
|
||||||
|
EC00F4EFEC00F5F0EE00F9F4ED00E7FAFD00EBF8FF00F6F2F000F7F4F100F8F4
|
||||||
|
F200F9F7F500FAF8F600FBF9F900FCFBFA00FCFCFB00FEFEFE00000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000007D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
|
||||||
|
0D0D0000000000000000009C9C19191919191919191919191919191919191919
|
||||||
|
1903000000000000000000ABDECBCBC7C7AFABABABABAAA3A2A2A0A0A0A0A0A0
|
||||||
|
8607000000000000000000ABECEAE9DEDEDEDED7D5D2D2D2CBCBCBCBB0CBB0CB
|
||||||
|
9007000000000000000000ABEDECEAE9DEDEDBD7D7D5D2D2D2CDCDCBB0B0B0B0
|
||||||
|
9007000000000000000000AFEDE9A9CFD2CFD2CDCBCBCBB0B0ABACA3A3A3A3B0
|
||||||
|
9007000000000000000000AFF0D5017783838386868686869099909999907BB0
|
||||||
|
9007000000000000000000B0F4D501A0B0CBD2D5DEECEDF7FAFAFAFAFAF77BAA
|
||||||
|
9007000000000000000000CBF4DC01A0B0B0B0D2D5DBEAEDF7FAFAFAFAF47BB0
|
||||||
|
9007000000000000000000CBF8DC010404070604090909090D0D110D110D02A3
|
||||||
|
9007000000000000000000CBFAED9E9E9E9C999E8C8C8C868683837E7D7D7ACB
|
||||||
|
9007000000000000000000CBFAF1A7A7A6A6A6A69898989898B5DBDBD5D5D2D2
|
||||||
|
9907000000000000000000CDFAF796969696961D961D931D1DB4DEDBD7D5D5D2
|
||||||
|
9C07000000000000000000CFFAFAFAFAF8F7F0F0EDEDEDECE9E9DEDEDED7D5D5
|
||||||
|
9907000000000000000000CDFAFAEAF0EDEDECEAEAE9DEDEDBDCD5D5D5D5D2D5
|
||||||
|
9C07000000000000000000D2FAEC01737D7D7B7D7D7B7D7B7D7B7B7B7D7B7DD2
|
||||||
|
9907000000000000000000CFFAEC019EABB0CBD2D5DCDEECEDF4F4F4F4EA7BD2
|
||||||
|
9C07000000000000000000B9524601A0B0B0CBB5D5DEEAEDF7FAFAFAFAF47DD5
|
||||||
|
9C070000000000213F0000B83226010C3F5C1F111214141616191B1B1B1807D2
|
||||||
|
9C07000000000000253D8A5B322D711E2860BA7E7E7A7E797A797979767676D5
|
||||||
|
9E0700000000000041375E662F2B65314EBBB6B6B6B6B4B4B1E2F4EDEDEDECEA
|
||||||
|
9C070000000000008F5D66663232394EC1A81C1C1C1C1C1C1CD3F7F4EDDED7D5
|
||||||
|
9C0700000000000000B7BE6E5758BEBDE4E6E6F3FAFAFAFAFAFAF7F4D5928675
|
||||||
|
7304000000002A2A2A2A4A6AFAE7562F2A2A2A5FFAFAFAFAFAFAF8D577010101
|
||||||
|
0101000000004747472F4A59C5E7564A32474766FAFAFAFAFAFAFADCA0D2CFB0
|
||||||
|
A20C00000000000000436C6958686D6BC2C5C5E7FAFAFAFAFAFAFADEAADEDBCB
|
||||||
|
1470000000000000004551534A4A5250C0E7FAFAFAFAFAFAFAFAFADEAAD7B514
|
||||||
|
700000000000000042384C54472B613550C3FAFAFAFAFAFAFAFAFADEA1B0196F
|
||||||
|
000000000000000024234463322EBC5A3664E3ECE9E9E9E9E9E9E9CF90731300
|
||||||
|
000000000000003A3C00002232298B8B3E3B207E8B7E8B7E827E817E74100000
|
||||||
|
0000000000000000000000003227000000000000000000000000000000000000
|
||||||
|
000000000000FFFFFFFFF800000FF800000FF800000FF800000FF800000FF800
|
||||||
|
000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
|
||||||
|
000FF800000FF800000FF800000FF800000F9800000FC000000FC000000FC000
|
||||||
|
000FE000000F0000000F0000000FE000000FE000001FC000003FC000007F9800
|
||||||
|
00FFFCFFFFFF2800000020000000400000000100200000000000801000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000007067
|
||||||
|
5F70AA9382E570513CE3735540E3735540E3735540E3735540E3735540E37355
|
||||||
|
40E3735540E3735540E3735540E3735540E3735540E3735540E3735540E37355
|
||||||
|
40E3735540E3735540E3735540E3735540E3735540E3735540E372533EE5BAAB
|
||||||
|
A070000000000000000000000000000000000000000000000000000000005E54
|
||||||
|
4C7FCAB7ABFFC5B5AAFFA18877FFA28A78FFA28A79FFA28A79FFA28A79FFA28A
|
||||||
|
79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A
|
||||||
|
79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA58D7CFF7A5B46FFB2A1
|
||||||
|
967F000000000000000000000000000000000000000000000000000000006055
|
||||||
|
4D7ED7C6BBFFEDE4E0FFD9CCC4FFD9CCC4FFD9CBC3FFD8CAC1FFD7C9BFFFD6C7
|
||||||
|
BDFFD5C6BBFFD4C4BAFFD3C3B8FFD2C1B7FFD1C0B5FFD0BEB3FFCFBDB2FFCEBC
|
||||||
|
B0FFCEBBAFFFCEBBAFFFCEBBAFFFCEBBAFFFCEBCB0FFBEAA9CFF82644FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006056
|
||||||
|
4D7ED7C8BCFFF2EBE8FFEFE9E5FFEEE7E2FFECE5E0FFEBE2DEFFEAE0DBFFE9DE
|
||||||
|
D8FFE7DBD4FFE5D9D1FFE3D7CFFFE2D4CCFFE1D2C9FFDFD0C7FFDDCDC4FFDCCB
|
||||||
|
C2FFDBC9BFFFDBC9BFFFDBC9BFFFDBC9BFFFDCCAC1FFC1AC9FFF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006155
|
||||||
|
4E7ED8C9BDFFF3EDE9FFF1EAE6FFF0E9E6FFEEE6E1FFECE4DFFFEBE2DDFFEAE0
|
||||||
|
DAFFE9DED7FFE7DBD4FFE5D9D1FFE3D7CFFFE2D4CCFFE1D2C9FFDFD0C7FFDDCD
|
||||||
|
C4FFDCCBC2FFDBC9BFFFDBC9BFFFDBC9BFFFDCCAC0FFC1AC9FFF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006157
|
||||||
|
4E7ED9C9BFFFF4EFEDFFEFE8E3FFD0C2B9FFDFD5CEFFE0D5CEFFE0D4CCFFDED3
|
||||||
|
CBFFDDD1C8FFDCCFC6FFDACCC4FFD9CBC1FFD8C9BFFFD7C7BDFFD6C5BBFFD5C4
|
||||||
|
B9FFD3C2B7FFD2C0B5FFD2BFB4FFD2BFB4FFDAC8BEFFC1AC9FFF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006256
|
||||||
|
4F7EDACCC0FFF5F2EFFFE5DDD9FF5C3821FFB0998AFFB8A394FFB8A394FFB9A3
|
||||||
|
94FFB8A495FFB9A597FFB9A698FFBAA698FFBBA799FFBBA89AFFBBA89BFFBCA8
|
||||||
|
9BFFBCA89BFFBCA89BFFBBA89AFFB49E8FFFD8C6BBFFC1AC9FFF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006256
|
||||||
|
4F7EDBCBC1FFF8F4F3FFE7E0DBFF5F3C24FFD0BDB2FFDCCBC1FFDDCCC3FFE2D2
|
||||||
|
CBFFE7DBD4FFEDE2DEFFF0E8E6FFF5F0EDFFF9F7F4FFFDFDFDFFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFAF8F7FFB39D8DFFD8C6BBFFC1AC9FFF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006256
|
||||||
|
4F7EDCCEC3FFFAF6F5FFE9E2DDFF5F3C24FFD2BFB5FFDFCDC4FFDECCC3FFE0CE
|
||||||
|
C6FFE4D4CDFFE9DDD6FFEFE4E0FFF1EAE8FFF7F1EFFFFBF8F6FFFFFEFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFCFBFAFFB5A090FFD9C7BEFFC1AD9FFF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006257
|
||||||
|
4F7EDDCFC4FFFCF9F9FFE9E4E0FF5F3A23FF7C5D49FF7F5F4CFF7E5F4CFF7E60
|
||||||
|
4DFF7F614DFF816350FF826552FF836654FF846856FF856A57FF866B59FF876C
|
||||||
|
5BFF876D5BFF876D5BFF866B59FF72523DFFD5C3B9FFC1AFA1FF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006357
|
||||||
|
507EDECFC6FFFCFCFBFFF4F1F0FFC3B6AEFFC3B5ADFFC1B4ACFFC0B3AAFFBFB1
|
||||||
|
A9FFBEB0A6FFBDAEA5FFBDACA3FFBCABA2FFBBAAA0FFBAA99FFFB8A69AFFB8A4
|
||||||
|
98FFB6A396FFB5A194FFB49F93FFB39D90FFDCCDC4FFC2AEA1FF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006357
|
||||||
|
507EDFD2C7FFFEFEFDFFF9F5EFFFE8C696FFE9C799FFE8C697FFE7C596FFE7C4
|
||||||
|
95FFE6C394FFE5C293FFE4C091FFE4C090FFE3BF8FFFE2BD8CFFE9D5BFFFEBE1
|
||||||
|
DCFFEADFD8FFE7DCD5FFE5DAD3FFE4D8D0FFE3D4CCFFC2AFA2FF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006458
|
||||||
|
517EE0D3C8FFFFFFFFFFFAF5EFFFE3B77CFFE4B97FFFE2B87EFFE3B77DFFE2B7
|
||||||
|
7CFFE2B67BFFE1B57AFFE1B479FFE0B478FFE0B377FFDFB174FFE6D0B7FFEBE1
|
||||||
|
DCFFE8DFD9FFE8DDD6FFE6D9D2FFE3D8D1FFE4D7CFFFC3AFA2FF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006458
|
||||||
|
517EE1D2C9FFFFFFFFFFFEFEFDFFFEFFFFFFFCFDFEFFFBFBFBFFF9F7F8FFF8F5
|
||||||
|
F6FFF7F3F2FFF5F1F0FFF4EFEEFFF1EDEBFFF0EBE9FFEEE9E6FFEDE6E2FFECE3
|
||||||
|
DEFFEBE1DBFFE9DFD9FFE8DDD6FFE6DAD3FFE5D9D2FFC3B0A3FF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006459
|
||||||
|
517EE1D4CAFFFFFFFFFFFDFDFCFFEEEBE8FFF5F2F0FFF4F0EFFFF3EFECFFF2ED
|
||||||
|
EAFFF1EBE8FFEEE9E5FFEFE7E3FFECE5E1FFEAE4DEFFEAE1DCFFE8E0DAFFE7DE
|
||||||
|
D8FFE6DDD6FFE5DBD4FFE4D8D1FFE2D6CEFFE6DBD4FFC3B1A4FF81634EFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006559
|
||||||
|
527EE2D4CAFFFFFFFFFFF0ECEAFF5B361EFFAB9383FFB39D8EFFB39D8DFFB39D
|
||||||
|
8DFFB29D8DFFB29C8DFFB29C8CFFB29C8CFFB29C8CFFB29C8CFFB29C8CFFB29C
|
||||||
|
8CFFB29C8CFFB29C8CFFB29C8DFFB39D8EFFE3D8D0FFC4B1A4FF81634EFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006559
|
||||||
|
527EE5D4CAFFFFFFFFFFF7F0EBFF5F3B24FFCCB8ADFFD7C5BAFFD9C7BDFFDCCC
|
||||||
|
C3FFE1D4CCFFE5DAD4FFE8E0DBFFEDE5E1FFF1EBE9FFF5F2EFFFF7F5F3FFF8F6
|
||||||
|
F4FFF8F5F4FFF8F6F4FFF1EEEAFFB29C8DFFE6DAD3FFC4B2A5FF81634EFFB2A1
|
||||||
|
967E00000000000000000000000000000000000000000000000000000000685A
|
||||||
|
527E9AC6C9FF35CFFEFF3DAEEBFF663E24FFD2BFB4FFE0CBBFFFE0C9BDFFE1CD
|
||||||
|
C4FFE4D5CDFFE9DED7FFEEE5E0FFF2EBE8FFF6F2F0FFFCF8F8FFFFFFFEFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFCFAF9FFB49E8FFFE7DED7FFC5B3A6FF81634EFFB2A1
|
||||||
|
967E00000000000000000000000000000000007792910072A7A3001E33366957
|
||||||
|
4C7C86C1C8FF00BFFBFF079AEBFF6A3E23FF926D57FF5FA3C8FF4AC1E8FF6C9C
|
||||||
|
A2FF917260FF927767FF947A69FF957C6CFF977E6FFF998171FF9A8374FF9B85
|
||||||
|
76FF9C8678FF9C8678FF998274FF7D5E49FFE3D9D4FFC5B3A7FF81634EFFB2A1
|
||||||
|
967E00000000000000000000000000000000005A6F7000A9E5E40075AEAE5C90
|
||||||
|
A5BD75D0E0FF00BFFAFF0CA3F4FF8A9A91FF3C7492FF03A4E4FF4AD5FFFF98C4
|
||||||
|
CBFFB3A196FFB1A197FFB0A096FFB09F95FFAF9D92FFAF9C91FFAD9A8EFFAC99
|
||||||
|
8CFFAB988AFFAB9789FFAA9688FFA99386FFE8E0DAFFC5B4A7FF81634EFFB2A1
|
||||||
|
967E00000000000000000000000000000000000000002DA5BFC110C2FFFF4DD0
|
||||||
|
FDFF64DBF9FF00B3FAFF09A8FEFF68D7FFFF04B5FFFF24CCFBFFAFD8CEFFF7DA
|
||||||
|
B8FFF3DBBBFFF3DBBAFFF2D9B9FFF1D8B7FFF0D7B4FFEED5B2FFF6EADDFFF9F6
|
||||||
|
F4FFF7F3F1FFF5F1EEFFF5EFECFFF4EDEAFFF1EBE7FFC6B4A8FF81634EFFB2A1
|
||||||
|
967E00000000000000000000000000000000000000005F8A909142C7E4E960DE
|
||||||
|
F8FF64D7FAFF00B6FDFF00B8FDFF21B2FDFF1ECCF7FF93EBFCFFD2C69BFFE1AB
|
||||||
|
63FFDFAC66FFDFAC66FFDFAC66FFDFAC66FFDFAC66FFDEA961FFEFDBC0FFF8F6
|
||||||
|
F5FFF6F2F0FFF3EDEBFFECE2DCFFE9DFD9FFE5DBD6FFC2B1A4FF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000E171A000E171A00040B145994A4A990EB
|
||||||
|
FCFF61F1F7FF13FAF7FF23F9F7FF93EDF7FF8CE5F8FFD5F2FDFFE9F8FFFFE7F8
|
||||||
|
FFFFF0FCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFFFFFFFDFEFFFFFAFAF9FFF9F7
|
||||||
|
F5FFF7F2F0FFE8DFD8FFC7AE9FFFBEA998FFAF9888FFB09A8AFF7F604DFFB2A1
|
||||||
|
967E00000000000000000000000000AAFFFF00AAFFFF00AAFFFF00A4FFFF00CD
|
||||||
|
FAFF5DFCF9FFFFFFFFFFEEFEFEFF00FBF7FF00AAFEFF00A1FFFF00A1FFFF00A0
|
||||||
|
FFFF56C3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCFDFBFFFCFBFAFFFBFA
|
||||||
|
F8FFE6DDD6FFAA9180FF5D3922FF603D26FF613E27FF613E28FF634029FFB4A3
|
||||||
|
987E00000000000000000000000000CAFFFF00CAFFFF00CBFFFF00B0FFFF00CD
|
||||||
|
FBFF38F5F7FFC3EFFAFFF0FFFEFF00FAF7FF00C8F7FF00C2F7FF00C2F7FF00C1
|
||||||
|
F7FF57D7FAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFFFDFDFCFFFCFC
|
||||||
|
FBFFE7DED8FFCCB9ACFFE6DBD5FFE2D7D0FFDCCFC5FFD7C5BBFF8E705DFFB4A2
|
||||||
|
9680000000000000000000000000002E383C002E383C00252F364C99B0B57DE8
|
||||||
|
FBFF59F1F7FF25F7F7FF41FAF8FF7CEEF7FF77E4F7FFB5EFFCFFC6F2FDFFC3F2
|
||||||
|
FDFFD9F6FCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDFEFEFFFEFE
|
||||||
|
FEFFE9E1DAFFCEBCAFFFF1E9E3FFEADFD8FFE4D5CCFF9D816FFF3A291F868985
|
||||||
|
831C00000000000000000000000000000000000000004E7073774AB0DADC37C9
|
||||||
|
FBFF22D5F7FF00D3F9FF02C3FBFF37D5F7FF34BEFCFFA2E6FAFFECFBFDFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFF
|
||||||
|
FFFFEAE2DCFFCDBBADFFEADFD8FFE3D5CBFF9F8271FF3E2D2386050100200000
|
||||||
|
000000000000000000000000000000000000000000003E9CC4C219C0FFFF23C9
|
||||||
|
FCFF30D3F8FF00BEF8FF06A8FEFF4FDCF8FF00B8FCFF32C2FBFFC0EBFCFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFFEAE3DEFFCDB9ABFFDDCEC4FFA58979FF3E2C1F8F0905041B000000000000
|
||||||
|
000000000000000000000000000000000000003451510099DDDB0091C0C35DAD
|
||||||
|
BCCF76D7E9FF00BEF9FF10A9FBFFBDDEDEFF5AC8DDFF0AB5F7FF62CEFFFFCBE4
|
||||||
|
F1FFF1E7E0FFEFE7E1FFEEE6E1FFEEE6E1FFEEE6E0FFEDE6E0FFEDE5E0FFEEE6
|
||||||
|
E1FFE1D4CCFFC5AE9FFFA68D7FF53E2718A10402000E00000000000000000000
|
||||||
|
0000000000000000000000000000000000000075B7AF0099C7C500323E425442
|
||||||
|
3B5C6BA8B1DA00C1FCFF0EA1F3F8A98E80C0AB9081C12698B1C10088C4C14C85
|
||||||
|
A3C1A18D80C19E8D81C19E8B81C19D8C80C19B8C7FC19B8A7FC19C897FC19A89
|
||||||
|
7EC19B8B7EC1897769C2432B1BAC000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000045565A00C5FFFF0094E6E2000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000FFFFFFFFF0000007F0000007F0000007F000
|
||||||
|
0007F0000007F0000007F0000007F0000007F0000007F0000007F0000007F000
|
||||||
|
0007F0000007F0000007F0000007F0000007F0000007F0000007800000078000
|
||||||
|
0007C0000007C000000700000007000000070000000700000007C000000FC000
|
||||||
|
001F8000003F800000FFF8FFFFFF}
|
||||||
|
Width = 450
|
||||||
|
Left = 328
|
||||||
|
Top = 144
|
||||||
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -12,7 +12,7 @@ uses
|
|||||||
JvAppRegistryStorage, JvFormPlacement, ExtCtrls, uCustomView, uViewBase,
|
JvAppRegistryStorage, JvFormPlacement, ExtCtrls, uCustomView, uViewBase,
|
||||||
uViewBarraSeleccion, pngimage, uIEditorComisiones, uEditorGridBase,
|
uViewBarraSeleccion, pngimage, uIEditorComisiones, uEditorGridBase,
|
||||||
JvComponentBase, uViewGridBase, uComisionesController, JvExComCtrls,
|
JvComponentBase, uViewGridBase, uComisionesController, JvExComCtrls,
|
||||||
JvStatusBar;
|
JvStatusBar, uDAInterfaces, JSDialog;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfEditorComisiones = class(TfEditorGridBase, IEditorComisiones)
|
TfEditorComisiones = class(TfEditorGridBase, IEditorComisiones)
|
||||||
@ -20,6 +20,8 @@ type
|
|||||||
Volcaradisco1: TMenuItem;
|
Volcaradisco1: TMenuItem;
|
||||||
TBXSubmenuItem2: TTBXSubmenuItem;
|
TBXSubmenuItem2: TTBXSubmenuItem;
|
||||||
TBXItem38: TTBXItem;
|
TBXItem38: TTBXItem;
|
||||||
|
JsPrevisualizarDialog: TJSDialog;
|
||||||
|
JsImprimirDialog: TJSDialog;
|
||||||
procedure FormShow(Sender: TObject);
|
procedure FormShow(Sender: TObject);
|
||||||
private
|
private
|
||||||
FComisiones: IBizComisiones;
|
FComisiones: IBizComisiones;
|
||||||
@ -52,9 +54,9 @@ type
|
|||||||
implementation
|
implementation
|
||||||
|
|
||||||
uses
|
uses
|
||||||
uCustomEditor, uDataModuleComisiones, uDataModuleUsuarios,
|
uCustomEditor, uDataModuleComisiones, uDataModuleUsuarios, uGridUtils,
|
||||||
//uEditorRemesaCliente,
|
//uEditorRemesaCliente,
|
||||||
uEditorDBBase, cxGrid, cxGridCustomTableView; //, uListaComisiones;
|
uEditorDBBase, cxGrid, cxGridCustomTableView, uDBSelectionListUtils;
|
||||||
|
|
||||||
{$R *.dfm}
|
{$R *.dfm}
|
||||||
|
|
||||||
@ -83,12 +85,44 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfEditorComisiones.ImprimirInterno;
|
procedure TfEditorComisiones.ImprimirInterno;
|
||||||
|
var
|
||||||
|
Respuesta : Integer;
|
||||||
|
AComisiones: IBizComisiones;
|
||||||
|
AllItems: Boolean;
|
||||||
begin
|
begin
|
||||||
// inherited;
|
AComisiones := Nil;
|
||||||
if (Application.MessageBox('¿Desea previsualizar la liquidación de comisiones sin desglosar?', 'Atención', MB_YESNO) = IDYES) then
|
AllItems := False;
|
||||||
FController.Print(Nil, False)
|
|
||||||
|
if MultiSelect and Assigned(ViewGrid) then
|
||||||
|
AllItems := (ViewGrid.NumSeleccionados > 1);
|
||||||
|
|
||||||
|
//Si esta agrupado solo podré imprimir la lista de elementos visibles
|
||||||
|
if not ViewGrid.esSeleccionCeldaDatos then
|
||||||
|
inherited
|
||||||
else
|
else
|
||||||
FController.Print(Nil, True);
|
begin
|
||||||
|
Respuesta := JsImprimirDialog.Execute;
|
||||||
|
if Respuesta <> IDCANCEL then
|
||||||
|
begin
|
||||||
|
case JsImprimirDialog.CustomButtonResult of
|
||||||
|
200 : begin // Lista de elementos visibles
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
100 : begin // Elemento Seleccionado
|
||||||
|
if AllItems then
|
||||||
|
begin
|
||||||
|
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Comisiones as ISeleccionable).SelectedRecords);
|
||||||
|
AComisiones := (Controller as IComisionesController).ExtraerSeleccionados(Comisiones) as IBizComisiones;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
AComisiones := Comisiones;
|
||||||
|
|
||||||
|
if Assigned(AComisiones) then
|
||||||
|
FController.Print(AComisiones, AllItems);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TfEditorComisiones.GetController: IComisionesController;
|
function TfEditorComisiones.GetController: IComisionesController;
|
||||||
@ -113,17 +147,49 @@ procedure TfEditorComisiones.PonerTitulos(const ATitulo: string);
|
|||||||
var
|
var
|
||||||
FTitulo : String;
|
FTitulo : String;
|
||||||
begin
|
begin
|
||||||
FTitulo := 'Lista de liquidaciones de comisiones - ' + AppFactuGES.EmpresaActiva.NOMBRE;
|
// FTitulo := 'Lista de liquidaciones de comisiones - ' + AppFactuGES.EmpresaActiva.NOMBRE;
|
||||||
inherited PonerTitulos(FTitulo);
|
inherited PonerTitulos(FTitulo);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfEditorComisiones.PrevisualizarInterno;
|
procedure TfEditorComisiones.PrevisualizarInterno;
|
||||||
|
var
|
||||||
|
Respuesta : Integer;
|
||||||
|
AComisiones: IBizComisiones;
|
||||||
|
AllItems: Boolean;
|
||||||
begin
|
begin
|
||||||
// inherited;
|
AComisiones := Nil;
|
||||||
if (Application.MessageBox('¿Desea previsualizar la liquidación de comisiones sin desglosar?', 'Atención', MB_YESNO) = IDYES) then
|
AllItems := False;
|
||||||
FController.Preview(Nil, False)
|
|
||||||
|
if MultiSelect and Assigned(ViewGrid) then
|
||||||
|
AllItems := (ViewGrid.NumSeleccionados > 1);
|
||||||
|
|
||||||
|
//Si esta agrupado solo podré imprimir la lista de elementos visibles
|
||||||
|
if not ViewGrid.esSeleccionCeldaDatos then
|
||||||
|
inherited
|
||||||
else
|
else
|
||||||
FController.Preview(Nil, True);
|
begin
|
||||||
|
Respuesta := JsPrevisualizarDialog.Execute;
|
||||||
|
if Respuesta <> IDCANCEL then
|
||||||
|
begin
|
||||||
|
case JsPrevisualizarDialog.CustomButtonResult of
|
||||||
|
200 : begin // Lista de elementos visibles
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
100 : begin // Elemento Seleccionado
|
||||||
|
if AllItems then
|
||||||
|
begin
|
||||||
|
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Comisiones as ISeleccionable).SelectedRecords);
|
||||||
|
AComisiones := (Controller as IComisionesController).ExtraerSeleccionados(Comisiones) as IBizComisiones;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
AComisiones := Comisiones;
|
||||||
|
|
||||||
|
if Assigned(AComisiones) then
|
||||||
|
FController.Preview(AComisiones, AllItems);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfEditorComisiones.SetComisiones(const Value: IBizComisiones);
|
procedure TfEditorComisiones.SetComisiones(const Value: IBizComisiones);
|
||||||
|
|||||||
@ -1,161 +1,14 @@
|
|||||||
inherited fEditorComisionesPreview: TfEditorComisionesPreview
|
inherited fEditorComisionesPreview: TfEditorComisionesPreview
|
||||||
Caption = 'Previsualizar la factura'
|
Caption = 'fEditorComisionesPreview'
|
||||||
ExplicitWidth = 803
|
ExplicitWidth = 954
|
||||||
|
ExplicitHeight = 543
|
||||||
PixelsPerInch = 96
|
PixelsPerInch = 96
|
||||||
TextHeight = 13
|
TextHeight = 13
|
||||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||||
inherited Image1: TImage
|
ExplicitWidth = 946
|
||||||
Left = 768
|
|
||||||
end
|
|
||||||
end
|
end
|
||||||
object pnlFiltrar: TTBXDockablePanel [3]
|
inherited StatusBar: TJvStatusBar
|
||||||
Left = 0
|
ExplicitTop = 490
|
||||||
Top = 102
|
ExplicitWidth = 946
|
||||||
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
|
||||||
end
|
end
|
||||||
|
|||||||
@ -4,134 +4,20 @@ interface
|
|||||||
|
|
||||||
uses
|
uses
|
||||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
Dialogs, uEditorPreview, frxExportImage, frxExportPDF, frxDCtrl, frxClass,
|
Dialogs, uEditorPreview, frxExportText, frxExportRTF, frxExportMail,
|
||||||
frxDMPExport, frxGradient, frxChBox, frxCross, frxRich, frxChart, frxOLE,
|
frxExportXLS, frxExportImage, frxExportPDF, frxClass, frxDCtrl, frxGradient,
|
||||||
frxBarcode, JvAppStorage, JvAppRegistryStorage, JvComponentBase,
|
frxChBox, frxCross, frxRich, frxOLE, frxBarcode, JvAppStorage,
|
||||||
JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls,
|
JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, PngImageList,
|
||||||
TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage,
|
StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems,
|
||||||
ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorComisionesPreview,
|
TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
|
||||||
JvExComCtrls, JvStatusBar, StdCtrls, Buttons, cxRadioGroup, cxMaskEdit,
|
JvExControls, JvNavigationPane, uIEditorComisionesPreview;
|
||||||
cxDropDownEdit, cxCalendar, cxControls, cxContainer, cxEdit, cxTextEdit,
|
|
||||||
TBXDkPanels, cxGraphics, DB, uDADataTable, cxLookupEdit, cxDBLookupEdit,
|
|
||||||
cxDBLookupComboBox, uIDataModuleComisionesReport;
|
|
||||||
|
|
||||||
type
|
type
|
||||||
TfEditorComisionesPreview = class(TfEditorPreview, IEditorComisionesPreview)
|
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;
|
end;
|
||||||
|
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
{$R *.dfm}
|
{$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.
|
end.
|
||||||
|
|||||||
@ -1,144 +0,0 @@
|
|||||||
object fEditorFamilias: TfEditorFamilias
|
|
||||||
Left = 453
|
|
||||||
Top = 234
|
|
||||||
ActiveControl = ListaFamilias
|
|
||||||
BorderIcons = [biSystemMenu]
|
|
||||||
BorderStyle = bsSingle
|
|
||||||
Caption = 'Administraci'#243'n de familias de art'#237'culos'
|
|
||||||
ClientHeight = 494
|
|
||||||
ClientWidth = 404
|
|
||||||
Color = clBtnFace
|
|
||||||
Font.Charset = DEFAULT_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -11
|
|
||||||
Font.Name = 'MS Sans Serif'
|
|
||||||
Font.Style = []
|
|
||||||
OldCreateOrder = False
|
|
||||||
Position = poScreenCenter
|
|
||||||
OnClose = CustomEditorClose
|
|
||||||
OnShow = FormShow
|
|
||||||
InstanceID = 0
|
|
||||||
ReadOnly = False
|
|
||||||
PixelsPerInch = 96
|
|
||||||
TextHeight = 13
|
|
||||||
object bAceptar: TButton
|
|
||||||
Left = 235
|
|
||||||
Top = 462
|
|
||||||
Width = 75
|
|
||||||
Height = 23
|
|
||||||
Action = actAceptar
|
|
||||||
Default = True
|
|
||||||
TabOrder = 1
|
|
||||||
end
|
|
||||||
object bCancelar: TButton
|
|
||||||
Left = 321
|
|
||||||
Top = 462
|
|
||||||
Width = 75
|
|
||||||
Height = 23
|
|
||||||
Action = actCancelar
|
|
||||||
Cancel = True
|
|
||||||
TabOrder = 2
|
|
||||||
end
|
|
||||||
object PageControl1: TPageControl
|
|
||||||
Left = 8
|
|
||||||
Top = 8
|
|
||||||
Width = 390
|
|
||||||
Height = 442
|
|
||||||
ActivePage = TabSheet1
|
|
||||||
TabOrder = 0
|
|
||||||
object TabSheet1: TTabSheet
|
|
||||||
Caption = 'Familias de art'#237'culos'
|
|
||||||
object Label1: TLabel
|
|
||||||
Left = 10
|
|
||||||
Top = 12
|
|
||||||
Width = 213
|
|
||||||
Height = 13
|
|
||||||
Caption = 'Lista de familias disponibles para los art'#237'culos'
|
|
||||||
end
|
|
||||||
object Label2: TLabel
|
|
||||||
Left = 10
|
|
||||||
Top = 326
|
|
||||||
Width = 116
|
|
||||||
Height = 13
|
|
||||||
Caption = 'A'#241'adir una nueva familia'
|
|
||||||
end
|
|
||||||
object Bevel1: TBevel
|
|
||||||
Left = 132
|
|
||||||
Top = 330
|
|
||||||
Width = 244
|
|
||||||
Height = 5
|
|
||||||
Shape = bsBottomLine
|
|
||||||
end
|
|
||||||
object eCategoria: TLabel
|
|
||||||
Left = 18
|
|
||||||
Top = 353
|
|
||||||
Width = 98
|
|
||||||
Height = 13
|
|
||||||
Caption = 'Nombre de la familia:'
|
|
||||||
end
|
|
||||||
object ListaFamilias: TDBLookupListBox
|
|
||||||
Left = 8
|
|
||||||
Top = 31
|
|
||||||
Width = 262
|
|
||||||
Height = 277
|
|
||||||
KeyField = 'RecID'
|
|
||||||
ListField = 'DESCRIPCION'
|
|
||||||
ListSource = DADataSource
|
|
||||||
TabOrder = 0
|
|
||||||
end
|
|
||||||
object bEliminar: TButton
|
|
||||||
Left = 281
|
|
||||||
Top = 31
|
|
||||||
Width = 95
|
|
||||||
Height = 23
|
|
||||||
Action = actEliminar
|
|
||||||
TabOrder = 1
|
|
||||||
end
|
|
||||||
object editFamilia: TEdit
|
|
||||||
Left = 122
|
|
||||||
Top = 349
|
|
||||||
Width = 254
|
|
||||||
Height = 21
|
|
||||||
TabOrder = 2
|
|
||||||
end
|
|
||||||
object bAnadir: TButton
|
|
||||||
Left = 281
|
|
||||||
Top = 382
|
|
||||||
Width = 95
|
|
||||||
Height = 23
|
|
||||||
Action = actAnadir
|
|
||||||
TabOrder = 3
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
object ActionList1: TActionList
|
|
||||||
Left = 144
|
|
||||||
Top = 16
|
|
||||||
object actAnadir: TAction
|
|
||||||
Caption = '&A'#241'adir'
|
|
||||||
OnExecute = actAnadirExecute
|
|
||||||
OnUpdate = actAnadirUpdate
|
|
||||||
end
|
|
||||||
object actEliminar: TAction
|
|
||||||
Caption = '&Eliminar'
|
|
||||||
OnExecute = actEliminarExecute
|
|
||||||
OnUpdate = actEliminarUpdate
|
|
||||||
end
|
|
||||||
object actAceptar: TAction
|
|
||||||
Caption = 'A&ceptar'
|
|
||||||
OnExecute = actAceptarExecute
|
|
||||||
end
|
|
||||||
object actCancelar: TAction
|
|
||||||
Caption = '&Cancelar'
|
|
||||||
OnExecute = actCancelarExecute
|
|
||||||
end
|
|
||||||
object actCerrar: TAction
|
|
||||||
Caption = 'actCerrar'
|
|
||||||
OnExecute = actCerrarExecute
|
|
||||||
end
|
|
||||||
end
|
|
||||||
object DADataSource: TDADataSource
|
|
||||||
Left = 168
|
|
||||||
Top = 16
|
|
||||||
end
|
|
||||||
end
|
|
||||||
@ -1,180 +0,0 @@
|
|||||||
{
|
|
||||||
===============================================================================
|
|
||||||
Copyright (©) 2006. Rodax Software.
|
|
||||||
===============================================================================
|
|
||||||
Los contenidos de este fichero son propiedad de Rodax Software titular del
|
|
||||||
copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
|
|
||||||
en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
|
|
||||||
acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
|
|
||||||
bajo el que se suministra.
|
|
||||||
-----------------------------------------------------------------------------
|
|
||||||
Web: www.rodax-software.com
|
|
||||||
===============================================================================
|
|
||||||
Fecha primera versión: 22-05-2006
|
|
||||||
Versión actual: 1.0.0
|
|
||||||
Fecha versión actual: 22-05-2006
|
|
||||||
===============================================================================
|
|
||||||
Modificaciones:
|
|
||||||
|
|
||||||
Fecha Comentarios
|
|
||||||
---------------------------------------------------------------------------
|
|
||||||
===============================================================================
|
|
||||||
}
|
|
||||||
|
|
||||||
unit uEditorFamilias;
|
|
||||||
|
|
||||||
interface
|
|
||||||
|
|
||||||
uses
|
|
||||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
||||||
Dialogs, DB, StdCtrls, DBCtrls, uDADataTable, ActnList,
|
|
||||||
uIEditorFamilias, uCustomEditor, uGUIBase, ExtCtrls,
|
|
||||||
ComCtrls, uBizFamilias, uFamiliasController;
|
|
||||||
|
|
||||||
type
|
|
||||||
TfEditorFamilias = class(TCustomEditor, IEditorFamilias)
|
|
||||||
ActionList1: TActionList;
|
|
||||||
DADataSource: TDADataSource;
|
|
||||||
ListaFamilias: TDBLookupListBox;
|
|
||||||
actAnadir: TAction;
|
|
||||||
actEliminar: TAction;
|
|
||||||
bEliminar: TButton;
|
|
||||||
actAceptar: TAction;
|
|
||||||
actCancelar: TAction;
|
|
||||||
bAceptar: TButton;
|
|
||||||
bCancelar: TButton;
|
|
||||||
actCerrar: TAction;
|
|
||||||
PageControl1: TPageControl;
|
|
||||||
TabSheet1: TTabSheet;
|
|
||||||
Label1: TLabel;
|
|
||||||
Label2: TLabel;
|
|
||||||
Bevel1: TBevel;
|
|
||||||
eCategoria: TLabel;
|
|
||||||
editFamilia: TEdit;
|
|
||||||
bAnadir: TButton;
|
|
||||||
procedure FormShow(Sender: TObject);
|
|
||||||
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
|
|
||||||
|
|
||||||
procedure actAnadirExecute(Sender: TObject);
|
|
||||||
procedure actEliminarExecute(Sender: TObject);
|
|
||||||
procedure actAceptarExecute(Sender: TObject);
|
|
||||||
procedure actCancelarExecute(Sender: TObject);
|
|
||||||
procedure actCerrarExecute(Sender: TObject);
|
|
||||||
procedure actAnadirUpdate(Sender: TObject);
|
|
||||||
procedure actEliminarUpdate(Sender: TObject);
|
|
||||||
protected
|
|
||||||
FFamilias: IBizFamilia;
|
|
||||||
FController: IFamiliasController;
|
|
||||||
function GetFamilias: IBizFamilia;
|
|
||||||
procedure SetFamilias(const Value: IBizFamilia);
|
|
||||||
function GetController : IFamiliasController;
|
|
||||||
procedure SetController (const Value : IFamiliasController);
|
|
||||||
public
|
|
||||||
property Familias: IBizFamilia read GetFamilias write SetFamilias;
|
|
||||||
property Controller : IFamiliasController read GetController write SetController;
|
|
||||||
end;
|
|
||||||
|
|
||||||
|
|
||||||
implementation
|
|
||||||
{$R *.dfm}
|
|
||||||
|
|
||||||
{ TfEditorFamilias }
|
|
||||||
|
|
||||||
uses
|
|
||||||
uDialogUtils;
|
|
||||||
|
|
||||||
function TfEditorFamilias.GetController: IFamiliasController;
|
|
||||||
begin
|
|
||||||
Result := FController;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TfEditorFamilias.GetFamilias: IBizFamilia;
|
|
||||||
begin
|
|
||||||
Result := FFamilias;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TfEditorFamilias.SetController(const Value: IFamiliasController);
|
|
||||||
begin
|
|
||||||
FController := Value;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TfEditorFamilias.SetFamilias(const Value: IBizFamilia);
|
|
||||||
begin
|
|
||||||
FFamilias := Value;
|
|
||||||
DADataSource.DataTable := (FFamilias as IBizFamilia).DataTable;
|
|
||||||
DADataSource.DataTable.Open;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TfEditorFamilias.actAnadirExecute(Sender: TObject);
|
|
||||||
begin
|
|
||||||
if not FController.Localizar(Familias, editFamilia.Text) then
|
|
||||||
begin
|
|
||||||
Familias.Append;
|
|
||||||
Familias.DESCRIPCION := editFamilia.Text;
|
|
||||||
Familias.Post;
|
|
||||||
editFamilia.Clear;
|
|
||||||
ListaFamilias.SetFocus;
|
|
||||||
end
|
|
||||||
else
|
|
||||||
ShowErrorMessage('Ya existe la familia ' + editFamilia.Text,
|
|
||||||
'Ya existe la familia ''' + editFamilia.Text + ''' en la lista.');
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TfEditorFamilias.actEliminarExecute(Sender: TObject);
|
|
||||||
begin
|
|
||||||
Familias.Delete;
|
|
||||||
ListaFamilias.SetFocus;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TfEditorFamilias.actEliminarUpdate(Sender: TObject);
|
|
||||||
begin
|
|
||||||
(Sender as TAction).Enabled := (FFamilias.DataTable.RecordCount > 0) and
|
|
||||||
(Length(ListaFamilias.SelectedItem) > 0);
|
|
||||||
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TfEditorFamilias.CustomEditorClose(Sender: TObject; var Action: TCloseAction);
|
|
||||||
begin
|
|
||||||
FFamilias := Nil;
|
|
||||||
FController := Nil;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TfEditorFamilias.actAceptarExecute(Sender: TObject);
|
|
||||||
begin
|
|
||||||
try
|
|
||||||
Familias.DataTable.ApplyUpdates;
|
|
||||||
except
|
|
||||||
on E : Exception do begin
|
|
||||||
Familias.DataTable.CancelUpdates;
|
|
||||||
ShowErrorMessage('Error al guardar cambios', 'Se ha producido un error grave', E);
|
|
||||||
exit;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
actCerrar.Execute;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TfEditorFamilias.actCancelarExecute(Sender: TObject);
|
|
||||||
begin
|
|
||||||
Familias.DataTable.CancelUpdates;
|
|
||||||
actCerrar.Execute;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TfEditorFamilias.actCerrarExecute(Sender: TObject);
|
|
||||||
begin
|
|
||||||
Close;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TfEditorFamilias.actAnadirUpdate(Sender: TObject);
|
|
||||||
begin
|
|
||||||
(Sender as TAction).Enabled := (Length(editFamilia.Text) > 0)
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TfEditorFamilias.FormShow(Sender: TObject);
|
|
||||||
begin
|
|
||||||
if not FFamilias.DataTable.Active then
|
|
||||||
FFamilias.DataTable.Active := true;
|
|
||||||
|
|
||||||
EditFamilia.SetFocus;
|
|
||||||
end;
|
|
||||||
|
|
||||||
end.
|
|
||||||
File diff suppressed because it is too large
Load Diff
Binary file not shown.
@ -1,6 +1,6 @@
|
|||||||
inherited frViewComision: TfrViewComision
|
inherited frViewComision: TfrViewComision
|
||||||
Width = 451
|
Width = 473
|
||||||
Height = 130
|
Height = 128
|
||||||
Align = alClient
|
Align = alClient
|
||||||
OnDestroy = CustomViewDestroy
|
OnDestroy = CustomViewDestroy
|
||||||
OnShow = CustomViewShow
|
OnShow = CustomViewShow
|
||||||
@ -9,17 +9,18 @@ inherited frViewComision: TfrViewComision
|
|||||||
object dxLayoutControlComision: TdxLayoutControl
|
object dxLayoutControlComision: TdxLayoutControl
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 451
|
Width = 473
|
||||||
Height = 130
|
Height = 128
|
||||||
Align = alClient
|
Align = alClient
|
||||||
ParentBackground = True
|
ParentBackground = True
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
AutoContentSizes = [acsWidth]
|
AutoContentSizes = [acsWidth]
|
||||||
LookAndFeel = dxLayoutOfficeLookAndFeel1
|
LookAndFeel = dxLayoutOfficeLookAndFeel1
|
||||||
ExplicitHeight = 304
|
ExplicitWidth = 451
|
||||||
|
ExplicitHeight = 113
|
||||||
DesignSize = (
|
DesignSize = (
|
||||||
451
|
473
|
||||||
130)
|
128)
|
||||||
object eReferencia: TcxDBTextEdit
|
object eReferencia: TcxDBTextEdit
|
||||||
Left = 85
|
Left = 85
|
||||||
Top = 30
|
Top = 30
|
||||||
@ -64,7 +65,7 @@ inherited frViewComision: TfrViewComision
|
|||||||
Width = 108
|
Width = 108
|
||||||
end
|
end
|
||||||
object edtFecha: TcxDBDateEdit
|
object edtFecha: TcxDBDateEdit
|
||||||
Left = 275
|
Left = 287
|
||||||
Top = 30
|
Top = 30
|
||||||
Anchors = [akLeft, akTop, akRight]
|
Anchors = [akLeft, akTop, akRight]
|
||||||
DataBinding.DataField = 'FECHA'
|
DataBinding.DataField = 'FECHA'
|
||||||
@ -147,6 +148,7 @@ inherited frViewComision: TfrViewComision
|
|||||||
end
|
end
|
||||||
object dxLayoutControlComisionItem1: TdxLayoutItem
|
object dxLayoutControlComisionItem1: TdxLayoutItem
|
||||||
Caption = 'Agente:'
|
Caption = 'Agente:'
|
||||||
|
Visible = False
|
||||||
Control = cbAgente
|
Control = cbAgente
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
|
|||||||
@ -11,7 +11,8 @@ uses
|
|||||||
ImgList, PngImageList, cxGraphics, cxMaskEdit, cxDropDownEdit,
|
ImgList, PngImageList, cxGraphics, cxMaskEdit, cxDropDownEdit,
|
||||||
uComisionesController, cxSpinEdit, cxCurrencyEdit,
|
uComisionesController, cxSpinEdit, cxCurrencyEdit,
|
||||||
uBizComisiones, cxCalendar,
|
uBizComisiones, cxCalendar,
|
||||||
dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox;
|
dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox,
|
||||||
|
uDAInterfaces;
|
||||||
|
|
||||||
type
|
type
|
||||||
IViewComision = interface(IViewBase)
|
IViewComision = interface(IViewBase)
|
||||||
@ -48,7 +49,9 @@ implementation
|
|||||||
{$R *.dfm}
|
{$R *.dfm}
|
||||||
|
|
||||||
uses
|
uses
|
||||||
uDataModuleUsuarios, uAgentesController, uBizContactos;
|
uDataModuleUsuarios,
|
||||||
|
//uAgentesController,
|
||||||
|
uBizContactos;
|
||||||
|
|
||||||
|
|
||||||
{ TfrViewComisions }
|
{ TfrViewComisions }
|
||||||
@ -64,12 +67,12 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewComision.CustomViewShow(Sender: TObject);
|
procedure TfrViewComision.CustomViewShow(Sender: TObject);
|
||||||
Var
|
//Var
|
||||||
AAgentes: IBizContacto;
|
// AAgentes: IBizContacto;
|
||||||
FAgentesController: IAgentesController;
|
// FAgentesController: IAgentesController;
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
try
|
{ try
|
||||||
FAgentesController := TAgentesController.Create;
|
FAgentesController := TAgentesController.Create;
|
||||||
AAgentes := FAgentesController.BuscarTodos;
|
AAgentes := FAgentesController.BuscarTodos;
|
||||||
AAgentes.DataTable.Active := True;
|
AAgentes.DataTable.Active := True;
|
||||||
@ -78,6 +81,7 @@ begin
|
|||||||
AAgentes := Nil;
|
AAgentes := Nil;
|
||||||
FAgentesController := Nil;
|
FAgentesController := Nil;
|
||||||
end;
|
end;
|
||||||
|
}
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TfrViewComision.GetComision: IBizComisiones;
|
function TfrViewComision.GetComision: IBizComisiones;
|
||||||
|
|||||||
@ -32,11 +32,13 @@ inherited frViewComisiones: TfrViewComisiones
|
|||||||
object cxGridViewREFERENCIA: TcxGridDBColumn
|
object cxGridViewREFERENCIA: TcxGridDBColumn
|
||||||
Caption = 'Referencia'
|
Caption = 'Referencia'
|
||||||
DataBinding.FieldName = 'REFERENCIA'
|
DataBinding.FieldName = 'REFERENCIA'
|
||||||
Width = 130
|
Width = 80
|
||||||
end
|
end
|
||||||
object cxGridViewAGENTE: TcxGridDBColumn
|
object cxGridViewAGENTE: TcxGridDBColumn
|
||||||
Caption = 'Agente'
|
Caption = 'Agente'
|
||||||
DataBinding.FieldName = 'NOMBRE'
|
DataBinding.FieldName = 'NOMBRE'
|
||||||
|
Visible = False
|
||||||
|
VisibleForCustomization = False
|
||||||
Width = 77
|
Width = 77
|
||||||
end
|
end
|
||||||
object cxGridViewFECHA: TcxGridDBColumn
|
object cxGridViewFECHA: TcxGridDBColumn
|
||||||
@ -47,7 +49,7 @@ inherited frViewComisiones: TfrViewComisiones
|
|||||||
object cxGridViewDESCRIPCION: TcxGridDBColumn
|
object cxGridViewDESCRIPCION: TcxGridDBColumn
|
||||||
Caption = 'Descripci'#243'n'
|
Caption = 'Descripci'#243'n'
|
||||||
DataBinding.FieldName = 'DESCRIPCION'
|
DataBinding.FieldName = 'DESCRIPCION'
|
||||||
Width = 97
|
Width = 400
|
||||||
end
|
end
|
||||||
object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn
|
object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn
|
||||||
Caption = 'Importe'
|
Caption = 'Importe'
|
||||||
@ -56,7 +58,7 @@ inherited frViewComisiones: TfrViewComisiones
|
|||||||
Properties.Alignment.Horz = taRightJustify
|
Properties.Alignment.Horz = taRightJustify
|
||||||
FooterAlignmentHorz = taRightJustify
|
FooterAlignmentHorz = taRightJustify
|
||||||
HeaderAlignmentHorz = taRightJustify
|
HeaderAlignmentHorz = taRightJustify
|
||||||
Width = 165
|
Width = 200
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
@ -78,6 +80,9 @@ inherited frViewComisiones: TfrViewComisiones
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
inherited pnlAgrupaciones: TTBXDockablePanel
|
||||||
|
ExplicitWidth = 554
|
||||||
|
end
|
||||||
inherited dxComponentPrinter: TdxComponentPrinter
|
inherited dxComponentPrinter: TdxComponentPrinter
|
||||||
inherited dxComponentPrinterLink: TdxGridReportLink
|
inherited dxComponentPrinterLink: TdxGridReportLink
|
||||||
ReportDocument.CreationDate = 38673.842406053240000000
|
ReportDocument.CreationDate = 38673.842406053240000000
|
||||||
|
|||||||
Binary file not shown.
@ -10,7 +10,6 @@ inherited frViewFacturasComision: TfrViewFacturasComision
|
|||||||
ExplicitWidth = 549
|
ExplicitWidth = 549
|
||||||
ExplicitHeight = 351
|
ExplicitHeight = 351
|
||||||
inherited cxGridView: TcxGridDBTableView
|
inherited cxGridView: TcxGridDBTableView
|
||||||
DataController.KeyFieldNames = 'ID_FACTURA;ID_PROVEEDOR'
|
|
||||||
DataController.Summary.FooterSummaryItems = <
|
DataController.Summary.FooterSummaryItems = <
|
||||||
item
|
item
|
||||||
Kind = skSum
|
Kind = skSum
|
||||||
@ -18,7 +17,7 @@ inherited frViewFacturasComision: TfrViewFacturasComision
|
|||||||
item
|
item
|
||||||
Format = ',0.00 '#8364';-,0.00 '#8364
|
Format = ',0.00 '#8364';-,0.00 '#8364
|
||||||
Kind = skSum
|
Kind = skSum
|
||||||
Column = cxGridViewIMPORTE_COMISION
|
Column = cxGridViewBASE_IMPONIBLE
|
||||||
end>
|
end>
|
||||||
OptionsCustomize.ColumnMoving = True
|
OptionsCustomize.ColumnMoving = True
|
||||||
OptionsData.Appending = False
|
OptionsData.Appending = False
|
||||||
@ -28,38 +27,27 @@ inherited frViewFacturasComision: TfrViewFacturasComision
|
|||||||
OptionsData.Inserting = False
|
OptionsData.Inserting = False
|
||||||
OptionsView.Footer = True
|
OptionsView.Footer = True
|
||||||
OptionsView.GroupFooters = gfAlwaysVisible
|
OptionsView.GroupFooters = gfAlwaysVisible
|
||||||
inherited cxGridViewID: TcxGridDBColumn
|
object cxGridViewRecID: TcxGridDBColumn [0]
|
||||||
DataBinding.FieldName = ''
|
|
||||||
IsCaptionAssigned = True
|
|
||||||
end
|
|
||||||
object cxGridViewRecID: TcxGridDBColumn
|
|
||||||
DataBinding.FieldName = 'RecID'
|
DataBinding.FieldName = 'RecID'
|
||||||
Visible = False
|
Visible = False
|
||||||
|
VisibleForCustomization = False
|
||||||
|
end
|
||||||
|
inherited cxGridViewID: TcxGridDBColumn
|
||||||
|
VisibleForCustomization = False
|
||||||
end
|
end
|
||||||
object cxGridViewID_EMPRESA: TcxGridDBColumn
|
object cxGridViewID_EMPRESA: TcxGridDBColumn
|
||||||
DataBinding.FieldName = 'ID_EMPRESA'
|
DataBinding.FieldName = 'ID_EMPRESA'
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
VisibleForCustomization = False
|
||||||
object cxGridViewID_AGENTE: TcxGridDBColumn
|
|
||||||
DataBinding.FieldName = 'ID_AGENTE'
|
|
||||||
Visible = False
|
|
||||||
end
|
|
||||||
object cxGridViewID_FACTURA: TcxGridDBColumn
|
|
||||||
DataBinding.FieldName = 'ID_FACTURA'
|
|
||||||
Visible = False
|
|
||||||
end
|
end
|
||||||
object cxGridViewID_COMISION_LIQUIDADA: TcxGridDBColumn
|
object cxGridViewID_COMISION_LIQUIDADA: TcxGridDBColumn
|
||||||
DataBinding.FieldName = 'ID_COMISION_LIQUIDADA'
|
DataBinding.FieldName = 'ID_COMISION_LIQUIDADA'
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
VisibleForCustomization = False
|
||||||
object cxGridViewAGENTE: TcxGridDBColumn
|
|
||||||
Caption = 'Agente'
|
|
||||||
DataBinding.FieldName = 'AGENTE'
|
|
||||||
Visible = False
|
|
||||||
end
|
end
|
||||||
object cxGridViewFECHA: TcxGridDBColumn
|
object cxGridViewFECHA: TcxGridDBColumn
|
||||||
Caption = 'Fecha factura'
|
Caption = 'Fecha factura'
|
||||||
DataBinding.FieldName = 'FECHA'
|
DataBinding.FieldName = 'FECHA_FACTURA'
|
||||||
end
|
end
|
||||||
object cxGridViewREFERENCIA: TcxGridDBColumn
|
object cxGridViewREFERENCIA: TcxGridDBColumn
|
||||||
Caption = 'Ref. factura'
|
Caption = 'Ref. factura'
|
||||||
@ -68,38 +56,22 @@ inherited frViewFacturasComision: TfrViewFacturasComision
|
|||||||
object cxGridViewSITUACION: TcxGridDBColumn
|
object cxGridViewSITUACION: TcxGridDBColumn
|
||||||
Caption = 'Situaci'#243'n factura'
|
Caption = 'Situaci'#243'n factura'
|
||||||
DataBinding.FieldName = 'SITUACION'
|
DataBinding.FieldName = 'SITUACION'
|
||||||
|
Visible = False
|
||||||
|
VisibleForCustomization = False
|
||||||
end
|
end
|
||||||
object cxGridViewID_CLIENTE: TcxGridDBColumn
|
object cxGridViewID_CLIENTE: TcxGridDBColumn
|
||||||
DataBinding.FieldName = 'ID_CLIENTE'
|
DataBinding.FieldName = 'ID_CLIENTE'
|
||||||
Visible = False
|
Visible = False
|
||||||
|
VisibleForCustomization = False
|
||||||
end
|
end
|
||||||
object cxGridViewCLIENTE: TcxGridDBColumn
|
object cxGridViewCLIENTE: TcxGridDBColumn
|
||||||
Caption = 'Cliente'
|
Caption = 'Raz'#243'n social'
|
||||||
DataBinding.FieldName = 'CLIENTE'
|
DataBinding.FieldName = 'NOMBRE'
|
||||||
end
|
end
|
||||||
object cxGridViewID_PROVEEDOR: TcxGridDBColumn
|
object cxGridViewBASE_IMPONIBLE: TcxGridDBColumn
|
||||||
DataBinding.FieldName = 'ID_PROVEEDOR'
|
Caption = 'Base imponible'
|
||||||
Visible = False
|
DataBinding.FieldName = 'BASE_IMPONIBLE'
|
||||||
end
|
HeaderAlignmentHorz = taRightJustify
|
||||||
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
|
end
|
||||||
end
|
end
|
||||||
@ -120,13 +92,13 @@ inherited frViewFacturasComision: TfrViewFacturasComision
|
|||||||
end
|
end
|
||||||
object ToolButton3: TToolButton
|
object ToolButton3: TToolButton
|
||||||
Left = 336
|
Left = 336
|
||||||
Top = 2
|
Top = 0
|
||||||
Action = actExpandir
|
Action = actExpandir
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
end
|
end
|
||||||
object ToolButton8: TToolButton
|
object ToolButton8: TToolButton
|
||||||
Left = 434
|
Left = 434
|
||||||
Top = 2
|
Top = 0
|
||||||
Action = actContraer
|
Action = actContraer
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
end
|
end
|
||||||
|
|||||||
@ -10,7 +10,7 @@ uses
|
|||||||
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
|
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
|
||||||
cxGrid, cxImageComboBox, cxCurrencyEdit, uDataModuleComisiones,
|
cxGrid, cxImageComboBox, cxCurrencyEdit, uDataModuleComisiones,
|
||||||
uBizComisiones, uComisionesController, Grids, DBGrids, cxSpinEdit,
|
uBizComisiones, uComisionesController, Grids, DBGrids, cxSpinEdit,
|
||||||
dxLayoutControl;
|
dxLayoutControl, uDAInterfaces;
|
||||||
|
|
||||||
type
|
type
|
||||||
IViewFacturasComision = interface
|
IViewFacturasComision = interface
|
||||||
@ -27,20 +27,13 @@ type
|
|||||||
TfrViewFacturasComision = class(TfrViewDetallesGenerico, IViewFacturasComision)
|
TfrViewFacturasComision = class(TfrViewDetallesGenerico, IViewFacturasComision)
|
||||||
cxGridViewRecID: TcxGridDBColumn;
|
cxGridViewRecID: TcxGridDBColumn;
|
||||||
cxGridViewID_EMPRESA: TcxGridDBColumn;
|
cxGridViewID_EMPRESA: TcxGridDBColumn;
|
||||||
cxGridViewID_AGENTE: TcxGridDBColumn;
|
|
||||||
cxGridViewAGENTE: TcxGridDBColumn;
|
|
||||||
cxGridViewID_FACTURA: TcxGridDBColumn;
|
|
||||||
cxGridViewID_COMISION_LIQUIDADA: TcxGridDBColumn;
|
cxGridViewID_COMISION_LIQUIDADA: TcxGridDBColumn;
|
||||||
cxGridViewFECHA: TcxGridDBColumn;
|
cxGridViewFECHA: TcxGridDBColumn;
|
||||||
cxGridViewREFERENCIA: TcxGridDBColumn;
|
cxGridViewREFERENCIA: TcxGridDBColumn;
|
||||||
cxGridViewSITUACION: TcxGridDBColumn;
|
cxGridViewSITUACION: TcxGridDBColumn;
|
||||||
cxGridViewID_CLIENTE: TcxGridDBColumn;
|
cxGridViewID_CLIENTE: TcxGridDBColumn;
|
||||||
cxGridViewCLIENTE: TcxGridDBColumn;
|
cxGridViewCLIENTE: TcxGridDBColumn;
|
||||||
cxGridViewID_PROVEEDOR: TcxGridDBColumn;
|
cxGridViewBASE_IMPONIBLE: TcxGridDBColumn;
|
||||||
cxGridViewPROVEEDOR: TcxGridDBColumn;
|
|
||||||
cxGridViewCOMISION: TcxGridDBColumn;
|
|
||||||
cxGridViewIMPORTE_COMISIONABLE: TcxGridDBColumn;
|
|
||||||
cxGridViewIMPORTE_COMISION: TcxGridDBColumn;
|
|
||||||
actExpandir: TAction;
|
actExpandir: TAction;
|
||||||
actContraer: TAction;
|
actContraer: TAction;
|
||||||
ToolButton3: TToolButton;
|
ToolButton3: TToolButton;
|
||||||
@ -141,11 +134,7 @@ end;
|
|||||||
|
|
||||||
procedure TfrViewFacturasComision.EliminarInterno;
|
procedure TfrViewFacturasComision.EliminarInterno;
|
||||||
begin
|
begin
|
||||||
if cxGridView.Controller.SelectedRowCount > 0 then
|
inherited;
|
||||||
if cxGridView.Controller.SelectedRows[0].HasCells then
|
|
||||||
// ViewGrid._FocusedView.Controller.SelectedRecordCount
|
|
||||||
FController.EliminarFactura(Comision);
|
|
||||||
Modified := True;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TfrViewFacturasComision.GetController: IComisionesController;
|
function TfrViewFacturasComision.GetController: IComisionesController;
|
||||||
|
|||||||
238
Source/Modulos/Comisiones/Views/uViewVendedoresComision.dfm
Normal file
238
Source/Modulos/Comisiones/Views/uViewVendedoresComision.dfm
Normal file
@ -0,0 +1,238 @@
|
|||||||
|
inherited frViewVendedoresComision: TfrViewVendedoresComision
|
||||||
|
Width = 549
|
||||||
|
Height = 150
|
||||||
|
OnShow = CustomViewShow
|
||||||
|
ExplicitWidth = 549
|
||||||
|
ExplicitHeight = 150
|
||||||
|
inherited cxGrid: TcxGrid
|
||||||
|
Width = 549
|
||||||
|
Height = 125
|
||||||
|
ExplicitWidth = 549
|
||||||
|
ExplicitHeight = 125
|
||||||
|
inherited cxGridView: TcxGridDBTableView
|
||||||
|
DataController.Summary.FooterSummaryItems = <
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Format = ',0.00 '#8364';-,0.00 '#8364
|
||||||
|
Kind = skSum
|
||||||
|
Column = cxGridViewIMPORTE_TOTAL
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Format = '0 Vendedores'
|
||||||
|
Kind = skCount
|
||||||
|
Column = cxGridViewNOMBRE
|
||||||
|
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
|
||||||
|
object cxGridViewRecID: TcxGridDBColumn [0]
|
||||||
|
DataBinding.FieldName = 'RecID'
|
||||||
|
Visible = False
|
||||||
|
VisibleForCustomization = False
|
||||||
|
end
|
||||||
|
inherited cxGridViewID: TcxGridDBColumn
|
||||||
|
DataBinding.FieldName = ''
|
||||||
|
VisibleForCustomization = False
|
||||||
|
IsCaptionAssigned = True
|
||||||
|
end
|
||||||
|
object cxGridViewID_COMISION: TcxGridDBColumn
|
||||||
|
DataBinding.FieldName = 'ID_COMISION'
|
||||||
|
Visible = False
|
||||||
|
VisibleForCustomization = False
|
||||||
|
end
|
||||||
|
object cxGridViewID_VENDEDOR: TcxGridDBColumn
|
||||||
|
DataBinding.FieldName = 'ID_VENDEDOR'
|
||||||
|
Visible = False
|
||||||
|
VisibleForCustomization = False
|
||||||
|
end
|
||||||
|
object cxGridViewNOMBRE: TcxGridDBColumn
|
||||||
|
DataBinding.FieldName = 'NOMBRE'
|
||||||
|
end
|
||||||
|
object cxGridViewCOMISION: TcxGridDBColumn
|
||||||
|
Caption = 'Comisi'#243'n'
|
||||||
|
DataBinding.FieldName = 'COMISION'
|
||||||
|
PropertiesClassName = 'TcxSpinEditProperties'
|
||||||
|
Properties.Alignment.Horz = taRightJustify
|
||||||
|
Properties.DisplayFormat = '0.0 %;-0.0 %'
|
||||||
|
Properties.MaxValue = 100.000000000000000000
|
||||||
|
HeaderAlignmentHorz = taRightJustify
|
||||||
|
end
|
||||||
|
object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn
|
||||||
|
Caption = 'Importe total'
|
||||||
|
DataBinding.FieldName = 'IMPORTE_TOTAL'
|
||||||
|
HeaderAlignmentHorz = taRightJustify
|
||||||
|
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 = 0
|
||||||
|
Action = actExpandir
|
||||||
|
AutoSize = True
|
||||||
|
end
|
||||||
|
object ToolButton8: TToolButton
|
||||||
|
Left = 434
|
||||||
|
Top = 0
|
||||||
|
Action = actContraer
|
||||||
|
AutoSize = True
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited dsDetalles: TDADataSource
|
||||||
|
Left = 72
|
||||||
|
Top = 80
|
||||||
|
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
|
||||||
183
Source/Modulos/Comisiones/Views/uViewVendedoresComision.pas
Normal file
183
Source/Modulos/Comisiones/Views/uViewVendedoresComision.pas
Normal file
@ -0,0 +1,183 @@
|
|||||||
|
unit uViewVendedoresComision;
|
||||||
|
|
||||||
|
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, uDAInterfaces, StdCtrls;
|
||||||
|
|
||||||
|
type
|
||||||
|
IViewVendedoresComision = interface
|
||||||
|
['{06705772-409C-4094-ABB3-F13E10D5B743}']
|
||||||
|
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;
|
||||||
|
|
||||||
|
TfrViewVendedoresComision = class(TfrViewDetallesGenerico, IViewVendedoresComision)
|
||||||
|
cxGridViewRecID: TcxGridDBColumn;
|
||||||
|
cxGridViewID_COMISION: TcxGridDBColumn;
|
||||||
|
cxGridViewID_VENDEDOR: TcxGridDBColumn;
|
||||||
|
cxGridViewNOMBRE: TcxGridDBColumn;
|
||||||
|
cxGridViewCOMISION: TcxGridDBColumn;
|
||||||
|
cxGridViewIMPORTE_TOTAL: 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);
|
||||||
|
procedure Button1Click(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;
|
||||||
|
|
||||||
|
{ TfrViewVendedoresComision }
|
||||||
|
|
||||||
|
procedure TfrViewVendedoresComision.actContraerExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
cxGridView.ViewData.Collapse(True);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewVendedoresComision.actContraerUpdate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
(Sender as TAction).Enabled := HayDatos;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewVendedoresComision.actEliminarUpdate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
(Sender as TAction).Enabled := ((cxGridView.Controller.SelectedRowCount > 0)
|
||||||
|
and (cxGridView.Controller.SelectedRows[0].HasCells));
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewVendedoresComision.actExpandirExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
cxGridView.ViewData.Expand(True);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewVendedoresComision.actExpandirUpdate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
(Sender as TAction).Enabled := HayDatos;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewVendedoresComision.AnadirInterno;
|
||||||
|
begin
|
||||||
|
//inherited; // No hacer el comportamiento normal
|
||||||
|
if FController.ElegirVendedoresComision(Comision) then
|
||||||
|
Modified := True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewVendedoresComision.Button1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
dsDetalles.DataTable.Active := true;
|
||||||
|
end;
|
||||||
|
|
||||||
|
constructor TfrViewVendedoresComision.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
FHayCambios := False;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewVendedoresComision.CustomViewShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
cxGridView.OptionsSelection.MultiSelect := False;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TfrViewVendedoresComision.Destroy;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewVendedoresComision.EliminarInterno;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfrViewVendedoresComision.GetController: IComisionesController;
|
||||||
|
begin
|
||||||
|
Result := FController;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfrViewVendedoresComision.GetModified: Boolean;
|
||||||
|
begin
|
||||||
|
Result := FHayCambios or inherited GetModified;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfrViewVendedoresComision.GetComision: IBizComisiones;
|
||||||
|
begin
|
||||||
|
Result := FComision;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewVendedoresComision.SetController(const Value: IComisionesController);
|
||||||
|
begin
|
||||||
|
FController := Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewVendedoresComision.SetModified(const Value: Boolean);
|
||||||
|
begin
|
||||||
|
FHayCambios := Value;
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewVendedoresComision.SetComision(const Value: IBizComisiones);
|
||||||
|
begin
|
||||||
|
FComision := Value;
|
||||||
|
FHayCambios := False;
|
||||||
|
|
||||||
|
if Assigned(FComision) then
|
||||||
|
dsDetalles.DataTable := FComision.Vendedores.DataTable
|
||||||
|
else
|
||||||
|
dsDetalles.DataTable := NIL;
|
||||||
|
|
||||||
|
actAnchoAutomatico.Execute;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
Loading…
Reference in New Issue
Block a user